213126_fr-FR

liliconcom

Script JMP - Boucle FOR double : zone de liste H et zone de liste V

Salut tout le monde,

J'ai commencé à apprendre les scripts et j'essaie de faire une fenêtre avec 6 diagrammes de dispersion : 2 verticaux + 3 horizontaux.

J'ai essayé une double boucle for mais je ne sais pas pourquoi cela ne fonctionne pas. Il ne donne aucune erreur mais je ne peux pas obtenir les images. Le code est :

BladeList = List( "Blade8", "Blade61", "Blade74" );

New Window( "Oneway Advisor",
 H List Box(
  For( j = 1, j <= 2, j++,
   V List Box(
    For( i = 1, i <= 3, i++,
     Write(i);
     Scatterplot 3D(
      Y( :Name( " x" ), :y, :z ),
      Coloring( :Name( " Mean Io" ) ),
      Legend( 1522 ),
      Frame3D(
       Legend( 1 ),
       Set Grab Handles( 0 ),
       Set Rotation( -64, 0, -41 ),
       Set Marker Scale( 5.2652 )
      ),
      Where( :Blade == BladeList[i] & :Embodiment == "THP" ),
      SendToReport(
       Dispatch(
        {},
        "100",
        ScaleBox,
        {Legend Model(
         1522,
         Properties(
          0,
          {gradient( {Color Theme( "Jet" )} )},
          Item ID( " Mean Io", 1 )
         )
        )}
       )
      )
     )
    );
   ),
  );
 );
);

Cependant, si j'essaie une seule boucle, cela fonctionne:

BladeList = List( "Blade8", "Blade61", "Blade74" );

New Window( "Oneway Advisor",
 H List Box(
  /*For( j = 1, j <= 2, j++,*/
   V List Box(
    For( i = 1, i <= 3, i++,
     Write(i);
     Scatterplot 3D(
      Y( :Name( " x" ), :y, :z ),
      Coloring( :Name( " Mean Io" ) ),
      Legend( 1522 ),
      Frame3D(
       Legend( 1 ),
       Set Grab Handles( 0 ),
       Set Rotation( -64, 0, -41 ),
       Set Marker Scale( 5.2652 )
      ),
      Where( :Blade == BladeList[i] & :Embodiment == "THP" ),
      SendToReport(
       Dispatch(
        {},
        "100",
        ScaleBox,
        {Legend Model(
         1522,
         Properties(
          0,
          {gradient( {Color Theme( "Jet" )} )},
          Item ID( " Mean Io", 1 )
         )
        )}
       )
      )
     )
    );
   ),
      V List Box(
    For( i = 1, i <= 3, i++,
     Write(i);
     Scatterplot 3D(
      Y( :Name( " x" ), :y, :z ),
      Coloring( :Name( " Mean Io" ) ),
      Legend( 1522 ),
      Frame3D(
       Legend( 1 ),
       Set Grab Handles( 0 ),
       Set Rotation( -64, 0, -41 ),
       Set Marker Scale( 5.2652 )
      ),
      Where( :Blade == BladeList[i] & :Embodiment == "THP" ),
      SendToReport(
       Dispatch(
        {},
        "100",
        ScaleBox,
        {Legend Model(
         1522,
         Properties(
          0,
          {gradient( {Color Theme( "Jet" )} )},
          Item ID( " Mean Io", 1 )
         )
        )}
       )
      )
     )
    );
   ),
  /*);*/
 );
);

Est-ce que quelqu'un peut m'aider avec ça.

Merci,

David

 

Re : Script JMP - Double boucle FOR : zone de liste H et zone de liste V

Je sais que c'est un peu un vieux fil à ramener, mais je ne peux pas dire quel était le changement fondamental entre les deux ensembles de code qui a résolu le problème de boucle imbriquée. Je reçois une erreur dans l'un de mes outils utilisant une boucle imbriquée, j'espère que c'est lié.

 

Edit : S'agit-il simplement d'utiliser cette fonctionnalité d'ajout HLB ?

Re : Script JMP - Double boucle FOR : zone de liste H et zone de liste VMerci beaucoup txnelson pour votre aide ! Cela fonctionne parfaitement.Re : Script JMP - Double boucle FOR : zone de liste H et zone de liste V

Je n'ai pas réussi à faire fonctionner la double boucle, cependant, la méthode ci-dessous vous donnera les résultats que vous voulez

BladeList = List( "Blade8", "Blade61", "Blade74" );

New Window( "Oneway Advisor",
 hlb = H List Box()
);
For( j = 1, j <= 2, j++,
 vlb = V List Box(
  For( i = 1, i <= 3, i++,
   sc = Scatterplot 3D(
    invisible,
    Y( :Name( " x" ), :y, :z ),
    Coloring( :Name( " Mean Io" ) ),
    Legend( 1522 ),
    Frame3D(
     Legend( 1 ),
     Set Grab Handles( 0 ),
     Set Rotation( -64, 0, -41 ),
     Set Marker Scale( 5.2652 )
    ),
    Where( :Blade == BladeList[i] & :Embodiment == "THP"  ),
    SendToReport(
     Dispatch(
      {},
      "100",
      ScaleBox,
      {Legend Model(
       1522,
       Properties( 0, {gradient( {Color Theme( "Jet" )} )}, Item ID( " Mean Io", 1 ) )
      )}
     )
    )
   ), 
  )
 );
 hlb << append( vlb );
);