213126_de-DE

liliconcom

JMP-Skripting – Doppelte FOR-Schleife: H-Listenfeld und V-Listenfeld

Hallo allerseits,

Ich habe angefangen, Skripte zu lernen und versuche, ein Fenster mit 6 Scatteplots zu erstellen: 2 vertikal + 3 horizontal.

Ich habe eine doppelte for-Schleife ausprobiert, weiß aber nicht, warum sie nicht funktioniert. Es gibt keinen Fehler, aber ich kann die Bilder nicht abrufen. Der Code lautet:

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 )
         )
        )}
       )
      )
     )
    );
   ),
  );
 );
);

Wenn ich jedoch eine einzelne Schleife versuche, funktioniert es:

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 )
         )
        )}
       )
      )
     )
    );
   ),
  /*);*/
 );
);

Kann mir jemand dabei helfen?

Danke schön,

David

 

Betreff: JMP-Skripterstellung – Doppelte FOR-Schleife: H-Listenfeld und V-Listenfeld

Ich weiß, dass dies ein etwas alter Thread ist, den ich zurückholen muss, aber ich kann nicht sagen, was die grundlegende Änderung zwischen den beiden Codesätzen war, die das Problem mit der verschachtelten Schleife behoben hat. Ich erhalte einen Fehler in einem meiner Tools, der eine verschachtelte Schleife verwendet. Ich hoffe, dass dies damit zusammenhängt.

 

Bearbeiten: Geht es nur darum, diese HLB-Anhängefunktion zu verwenden?

Betreff: JMP-Skripterstellung – Doppelte FOR-Schleife: H-Listenfeld und V-ListenfeldVielen Dank, Txnelson, für Ihre Hilfe! Es funktioniert perfekt.Betreff: JMP-Skripterstellung – Doppelte FOR-Schleife: H-Listenfeld und V-Listenfeld

Ich konnte die Doppelschleife nicht zum Laufen bringen, aber mit der folgenden Methode erhalten Sie die gewünschten Ergebnisse

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 );
);