272323_fr-FR

liliconcom

Comment utiliser JSL pour transmettre dynamiquement des tracés bivariés au journal (ayant un problème avec le journal)

Salut la communauté JMP,

 

J'ai un script qui remplit deux ensembles de colonnes dans deux listes différentes.

• set1_list & set2_list

Ensuite, je parcoure la liste des noms de colonnes des deux ensembles et lorsque ceux-ci correspondent (partiellement via regex), je fais un tracé Y par X. -- c'est bon.

 

Les diagrammes bivariés individuels sont remplis mais ne sont pas ajoutés au journal.

- je peux le faire manuellement mais il y a de très nombreux plots (ordre de 100s à 1000s)

- J'ai essayé d'imiter des parties d'autres exemples où il y a deux journaux (temp = xx, et main "sample journal" )

JSL - Ajouter une table à un journal

- J'ai essayé de regarder mes scripts plus anciens où cela fonctionnait (poussé vers le journal). Pourtant, je ne vois pas ce qui me manque.Dans de tels cas, cette partie du code ressemblait à ci-dessous où newplot est similaire à l'exemple actuel

Current Journal( "Y_vs_X" );
Report( newplot ) << Journal( "Y_vs_X" );
  

 

 

J'inclus une bonne partie du script ci-dessous/ci-joint. Bien que les paramètres ou la table de données ne soient pas inclus ici. Je pense qu'un pro repérera rapidement l'erreur, ainsi je pourrai éviter de répéter cela et avoir une meilleure compréhension.

 

 

//Match parameters that are common between set 1 and set 2 to do bivariate plot and push to journal
For( v = 1, v <= Count_set1, v++,
 Titlex = Char( set1_list[v] );
 If( Pat Match( Titlex, Regex( Titlex, "([\w.+])(.+)(\:)(.+)(\:)(.+)", "\1\2\3\4" ) ),
  matchone = Regex( Titlex, "([\w.+])(.+)(\:)(.+)(\:)(.+)", "\1\2\3\4" ), 
     
 );
 
 For( w = 1, w <= Count_set2, w++,
  Titley = Char( set2_list[w] );
  If( Pat Match( Titley, Regex( Titley, "([\w.+])(.+)(\:)(.+)(\:)(.+)", "\1\2\3\4" ) ),
   matchtwo = Regex( Titley, "([\w.+])(.+)(\:)(.+)(\:)(.+)", "\1\2\3\4" ), 

  );
  
  
   
  If(
   matchone == matchtwo,
    newplot = mydataTable << Bivariate(
     X( :As name( Titlex ) ),
     Y( :As name( Titley ) ),
     SendToReport(
      Dispatch(
       {},
       "Bivar Plot",
       FrameBox,
       {Add Graphics Script(
        2,
        Description( "" ),
        Pen Color( "blue" );
        Y Function( x, x );
       ), Grid Line Order( 1 ), Reference Line Order( 3 ), DispatchSeg(
        TopSeg( 1 ),
        {Set Script(
         Pen Color( "blue" );
         Y Function( x, x );
        )}
       )}
      )
     ),
     rep_plot = newplot << report;
    
     invisible, 

    ), 
      
   Wait( 0.01 ),
   tmpjrnl = New Window( "temp_journal", <<journal );
   rep_plot << journal;
   hlb << append (tmpjrnl);
   tmpjrnl << close window;
  
   
  , 

  );, 

 );
);

Print( "This is the end, the script has finished running..." );   

 

 

ScriptRe : Comment utiliser JSL pour transmettre dynamiquement des tracés bivariés au journal (ayant un problème avec le journal)

En fait, j'ai trouvé que mon erreur utilisait un "," après l'instruction Wait.
En le remplaçant par un ";" et ci-dessous résolu le problème

Wait( 0.01 );
newjrnl << append(Report( current_plot_new ));