48549_de-DE

liliconcom

JSL: Ändern Sie die Einstellungen in einem 3D-Flächendiagramm mit Nach Gruppen

/* Zielsetzung

In einem 3D-Flächendiagramm können Sie die Einstellungen für Marker in der Grafik durch Klicken mit der rechten Maustaste und z Markerskala, Markerqualität und so weiter. Dies ist für ein Diagramm einfach. Wenn Sie eine nach Gruppe mit vielen Gruppen haben, müssen Sie dies für jedes Diagramm erneut manuell ausführen. Für die Replikation funktioniert kein Steuerschlüssel.

Wie repliziert man das Setzen der Option zB für Markerskala und Markerqualität auf alle anderen ???

* /

　

/ * Ideen

Ich dachte darüber nach, das Skript zu speichern und dieses Skript als Ausdruck zu verwenden, in dem ich Frame3D-Eigenschaften ersetzen könnte, damit ich die gewünschten Optionen habe. Oder ersetzen. "ScaleBox" mit "ScaleBox (Markerskala setzen (5), Markerqualität setzen (0)), ScaleBox", die in der Ausgabe des Befehls "Skript abrufen" enthalten ist.

 

Eine andere Idee war, XPath zu verwenden, aber ich konnte die Dinge nicht automatisieren. ich benutzte

r_sp [Box (1)] [ListBox (2)] [PictureBox (1)] [ScaleBox (1)] [Display3DBox (1)] << Set Marker Scale (5)

Das hat beim ersten Mal funktioniert, aber nicht bei allen anderen, da ich nicht herausfinden konnte, wie ich die Indizes loswerden kann.

* /

Anbei ein Skript, in dem ich einige Papproaches getestet habe. Ich würde mich über jede andere Lösung freuen, als die Teile in die ByGroup-Abschnitte zu kopieren und dann das Skript erneut auszuführen. Das Beispiel hat 3 Gruppen, aber der Anwendungsfall hat ungefähr 90 Gruppen.

 

Vielen Dank,

Martin

/* Objective
In a 3D surface Plot one can set the settings for Markers in the graph by right click and e.g. Marker Scale, Marker Quality and so forth. This is easy for one graph. If you have a by Group with many groups you have to do this for each graph manually again, no control key works for replication. 
So how to replicate setting the option e.g. for Marker Scale and Marker Quality to all others???
*/

/* Ideas
I thought about saving the script and use this script as an expression where I could substitute Frame3D properties so that I have the desired options. Or substitute . "ScaleBox" with "ScaleBox(Set Marker Scale(5), Set Marker Quality(0)), ScaleBox" which is within the output of the Get Script command.
 
Another idea was to use XPath, but I failed to automate things. I used
r_sp[Box(1)][ListBox(2)][PictureBox(1)][ScaleBox(1)][Display3DBox(1)] << Set Marker Scale (5)
which worked for the first but not all others as I couldn't figure out how to get rid of the indices.
*/

Names Default to Here(1);

// Generate table and report (3D Plot) - this usually is done manually
dt = Open("$SAMPLE_DATA/Iris.jmp");

// Surface Plot, Goal is to set Marker Quality for all ByGroups to 0. Currently it is just for the first group.
sp = dt << Surface Plot(
 SendToByGroup( {:Species == "setosa"} ),
 Columns( :Sepal length, :Sepal width, :Petal length ),
 Datapoints Choice( "Points" ),
 Response( :Petal length ),
 SetVariableAxis( :Sepal length, Axis Data( {} ) ),
 SetVariableAxis( :Sepal width, Axis Data( {} ) ),
 SendToByGroup( {:Species == "setosa"}, SetZAxis( z#1, Current Value( 1.45 ) ) ),
 SendToByGroup(
  {:Species == "versicolor"},
  SetZAxis( z#1, Current Value( 4.125 ) )
 ),
 SendToByGroup(
  {:Species == "virginica"},
  SetZAxis( z#1, Current Value( 5.75 ) )
 ),
 SetXVariable( :Sepal length ),
 SetYVariable( :Sepal width ),
 SendToByGroup(
  {:Species == "setosa"},
  Frame3D(
   Set Rotation( -54, 0, 38 ),
   Set Marker Quality( 0 ),
   Set Marker Scale( 1.585 )
  )
 ),
 SendToByGroup(
  {:Species == "versicolor"},
  Frame3D( Set Rotation( -54, 0, 38 ) )
 ),
 SendToByGroup(
  {:Species == "virginica"},
  Frame3D( Set Rotation( -54, 0, 38 ) )
 ),
 By( :Species )
);


// Get report
r_sp = sp << report();
// usually one would need to use:
// r_sp = currentreport();

// idea 1: Build Expression and to be substituted with string
reportExpr = Expr(
 Surface Plot(
  SendToByGroup( {:Species == "setosa"} ),
  Columns( :Sepal length, :Sepal width, :Petal length ),
  Datapoints Choice( "Points" ),
  Response( :Petal length ),
  SetVariableAxis( :Sepal length, Axis Data( {} ) ),
  SetVariableAxis( :Sepal width, Axis Data( {} ) ),
  SendToByGroup( {:Species == "setosa"}, SetZAxis( z#1, Current Value( 1.45 ) ) ),
  SendToByGroup( {:Species == "versicolor"}, SetZAxis( z#1, Current Value( 4.125 ) ) ),
  SendToByGroup( {:Species == "virginica"}, SetZAxis( z#1, Current Value( 5.75 ) ) ),
  SetXVariable( :Sepal length ),
  SetYVariable( :Sepal width ),
  SendToByGroup(
   {:Species == "setosa"},
   Frame3D( _property_ )
  ),
  SendToByGroup( {:Species == "versicolor"}, Frame3D(  _property_ ) ), 
  SendToByGroup( {:Species == "virginica"}, Frame3D(  _property_ ) ),
  By( :Species )
 )
);
ReplaceWith = "Set Rotation( -54, 0, 38 ),Set Marker Quality( 0 ), Set Marker Scale( 5 )" ;
// NameExpr(reportExpr);
tmp = Substitute( 
 NameExpr( reportExpr), 
 Expr(  _property_ ), ReplaceWith,
);
// This does not work as there are "..." included which throws an error obviously. I checked different approaches but gave up and ask now :)
// eval( tmp );

// idea 3: Get script and change the code, however I failed and in addition was not sure how to change the report with the new script
myExpr = r_sp << Get Script;
// what next?

Betreff: JSL: Einstellungen in einem 3D-Flächendiagramm mit Nach Gruppen ändern

Hallo Martin,

Ich denke, das wird es schaffen.

Allerdings habe ich bemerkt, dass es auf Windows-Hosts funktioniert, aber auf Mac-Hosts keine Auswirkungen zu haben scheint.

Vielleicht hat es etwas damit zu tun, wie Open GL auf jedem Host verwendet wird.

Hinzufügen @Paul_Nelson um zu sehen, ob er mehr Einblick in das Artefakt der Hostabhängigkeit geben kann.

Stan

Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Iris.jmp");
sp = dt << Surface Plot(
 SendToByGroup( {:Species == "setosa"} ),
 Columns( :Sepal length, :Sepal width, :Petal length, :Petal width ),
 Datapoints Choice( "Points" ),
 Surface Color Theme( "Green to Black to Red" ),
 Surface Color Theme2( "Green to White to Red" ),
 Surface Color Theme3( "White to Black" ),
 Surface Color Theme4( "Blue to Gray to Red" ),
 Response Column Color Theme( "Blue to Green to Red" ),
 Response Column Color Theme2( "Spectral" ),
 Response Column Color Theme3( "Jet" ),
 Response Column Color Theme4( "White to Blue" ),
 Response( :Petal length ),
 Surface Color Method( "Solid", "Solid", "Solid", "Solid" ),
 SetVariableAxis( :Sepal length, Axis Data( {} ) ),
 SetVariableAxis( :Sepal width, Axis Data( {} ) ),
 SendToByGroup(
  {:Species == "setosa"},
  SetZAxis( Petal length, Current Value( 1.45 ), Axis Data( {} ) )
 ),
 SendToByGroup(
  {:Species == "versicolor"},
  SetZAxis( Petal length, Current Value( 4.125 ), Axis Data( {} ) )
 ),
 SendToByGroup(
  {:Species == "virginica"},
  SetZAxis( Petal length, Current Value( 5.75 ), Axis Data( {} ) )
 ),
 SetXVariable( :Sepal length ),
 SetYVariable( :Sepal width ),
 Frame3D(
  Set Walls( 1 ),
  Set Rotation( -54, 0, 38 ),
  Set Text Scale( 2 ),
  Set Line Scale( 1 ),
  Set Marker Transparency( 1 ),
  Set Marker Quality( 0 ),
  Set Marker Scale( 1 ),
  Set View Perspective( 0.1 ),
  Set View Zoom( 1 )
 ),
 By( :Species )
);

After running script and check on settings Nachdem Sie das Skript ausgeführt haben, überprüfen Sie die Einstellungen