7058_de-DE

liliconcom

Diagrammskript zum Arbeiten mit unterschiedlichen Anzahlen von Y-Variablen<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

Ich bin neugierig, ob es einen besseren Weg gibt, das unten stehende Skript auszuführen.  Momentan habe ich eine Funktion, um die Eingabe vom Benutzer zu übernehmen und eine Liste aller möglichen Y-Werte für den oder die folgenden Graphen zu erstellen.  Dann wird die folgende Funktion aufgerufen, um die Diagramme zu erstellen.  Ich würde gerne wissen, ob es eine Möglichkeit gibt, die Menge an Code zu reduzieren, die erforderlich ist, wenn ein oder zwei Diagramm-Builder verwendet werden, anstatt die 6 if-Anweisungen, die ihre eigenen Diagramm-Builder enthalten

HALTbuildGraph = Funktion ({} . { Tempcol = "" . Vibcol = "" } .

      ob ( N Artikel ( LogCheckBox << Ausgewählt bekommen ()) == 1 . // wenn Protokolldateien importiert wurden

            zum ( ich = 1 . ich <= n Col () . ich ++

                  ob ( enthält ( verkohlen ( Spaltenname ( ich )) . "Temp" ) & enthält ( verkohlen ( Spaltenname ( ich )) . "Sollwert" ) .

                        Tempcol = verkohlen ( Spaltenname ( ich )) .

                  / * sonst wenn * / enthält ( verkohlen ( Spaltenname ( ich )) . "Vib" ) & enthält ( verkohlen ( Spaltenname ( ich )) . "Sollwert" ) .

                        Vibcol = verkohlen ( Spaltenname ( ich )) ;

                  ) ;

            ) ;

            ob ( Tempcol == "" . // wenn die Spalte Temperatursollwert nicht gefunden wurde.

                  drucken ( "Fehler 111a: Temperatursollwert nicht gefunden" ) ;

                  werfen ()

            ) ;

            ob ( Vibcol == "" . // wenn die Spalte Vibrationssollwert nicht gefunden wurde.

                  drucken ( "Fehler 111b: Vibrationssollwert nicht gefunden" ) ;

                  werfen () ;

            ) ;

            ob ( N Artikel ( Graphliste ) == 1 .

                  gb = Graph Builder (

                        Variablen (

                              X ( : Testzeit ) .

                              Y ( Säule ( Tempcol ) ) .

                              Y ( Säule ( Vibcol ) ) .

                              Y ( Säule ( Graphliste [ 1 ]) )

                        ) .

                        Elemente (

                              Position ( 1 . 1 ) .

                              Linie ( X . Y . Legende ( 27 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 2 ) .

                              Linie ( X . Y . Legende ( 28 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 3 ) .

                              Linie ( X . Y . Legende ( 29 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        SendToReport (

                              Versand ({} . "Diagrammtitel" . Textbearbeitungsfeld . { Text setzen ( Graphliste [ 1 ])}) ;

                        ) ;

                  ) ;

                  gb_rpt = Bericht ( gb ) ;

                  gb_rpt [ LegendBox ( 1 )] << löschen ;

                  gb_rpt [ Bilderkiste ( 1 )] << Journalfenster ;

                  gb << Fenster schließen ( nosave ) .

            / * sonst wenn * / N Artikel ( Graphliste ) == 2 .

                  gb = Graph Builder (

                        Variablen (

                              X ( : Testzeit ) .

                              Y ( Säule ( Tempcol ) ) .

                              Y ( Säule ( Vibcol ) ) .

                              Y ( Säule ( Graphliste [ 1 ]) ) .

                              Y ( Säule ( Graphliste [ 2 ]) )

                        ) .

                        Elemente (

                              Position ( 1 . 1 ) .

                              Linie ( X . Y . Legende ( 27 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 2 ) .

                              Linie ( X . Y . Legende ( 28 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 3 ) .

                              Linie ( X . Y . Legende ( 29 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 4 ) .

                              Linie ( X . Y . Legende ( 30 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        SendToReport (

                              Versand ({} . "Diagrammtitel" . Textbearbeitungsfeld . { Text setzen ( Graphliste [ 1 ] || "&" || Graphliste [ 2 ])}) ;

                        ) ;

                  ) ;

                  gb_rpt = Bericht ( gb ) ;

                  gb_rpt [ LegendBox ( 1 )] << löschen ;

                  gb_rpt [ Bilderkiste ( 1 )] << Journalfenster ;

                  gb << Fenster schließen ( nosave ) .

            / * sonst wenn * / N Artikel ( Graphliste ) == 3 .

                  gb = Graph Builder (

                        Variablen (

                              X ( : Testzeit ) .

                              Y ( Säule ( Tempcol ) ) .

                              Y ( Säule ( Vibcol ) ) .

                              Y ( Säule ( Graphliste [ 1 ]) ) .

                              Y ( Säule ( Graphliste [ 2 ]) ) .

                              Y ( Säule ( Graphliste [ 3 ]) )

                        ) .

                        Elemente (

                              Position ( 1 . 1 ) .

                              Linie ( X . Y . Legende ( 27 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 2 ) .

                              Linie ( X . Y . Legende ( 28 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 3 ) .

                              Linie ( X . Y . Legende ( 29 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 4 ) .

                              Linie ( X . Y . Legende ( 30 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 5 ) .

                              Linie ( X . Y . Legende ( 31 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        SendToReport (

                              Versand ({} . "Diagrammtitel" . Textbearbeitungsfeld . { Text setzen ( Graphliste [ 1 ] || "," || Graphliste [ 2 ] || ", &" || Graphliste [ 3 ])}) ;

                        ) ;

                  ) ;

                  gb_rpt = Bericht ( gb ) ;

                  gb_rpt [ LegendBox ( 1 )] << löschen ;

                  gb_rpt [ Bilderkiste ( 1 )] << Journalfenster ;

                  gb << Fenster schließen ( nosave ) .

            / * sonst wenn * / N Artikel ( Graphliste ) == 4 .

                  gb = Graph Builder (

                        Variablen (

                              X ( : Testzeit ) .

                              Y ( Säule ( Tempcol ) ) .

                              Y ( Säule ( Vibcol ) ) .

                              Y ( Säule ( Graphliste [ 1 ]) ) .

                              Y ( Säule ( Graphliste [ 2 ]) ) .

                              Y ( Säule ( Graphliste [ 3 ]) )

                        ) .

                        Elemente (

                              Position ( 1 . 1 ) .

                              Linie ( X . Y . Legende ( 27 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 2 ) .

                              Linie ( X . Y . Legende ( 28 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 3 ) .

                              Linie ( X . Y . Legende ( 29 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 4 ) .

                              Linie ( X . Y . Legende ( 30 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 5 ) .

                              Linie ( X . Y . Legende ( 31 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        SendToReport (

                              Versand ({} . "Diagrammtitel" . Textbearbeitungsfeld . { Text setzen ( Graphliste [ 1 ] || "," || Graphliste [ 2 ] || ", &" || Graphliste [ 3 ])}) ;

                        ) ;

                  ) ;

                  gb_rpt = Bericht ( gb ) ;

                  gb_rpt [ LegendBox ( 1 )] << löschen ;

                  gb_rpt [ Bilderkiste ( 1 )] << Journalfenster ;

                  gb << Fenster schließen ( nosave ) ;

                  gb = Graph Builder (

                        Variablen (

                              X ( : Testzeit ) .

                              Y ( Säule ( Tempcol ) ) .

                              Y ( Säule ( Vibcol ) ) .

                              Y ( Säule ( Graphliste [ 4 ]) )

                        ) .

                        Elemente (

                              Position ( 1 . 1 ) .

                              Linie ( X . Y . Legende ( 27 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 2 ) .

                              Linie ( X . Y . Legende ( 28 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 3 ) .

                              Linie ( X . Y . Legende ( 29 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        SendToReport (

                              Versand ({} . "Diagrammtitel" . Textbearbeitungsfeld . { Text setzen ( Graphliste [ 4 ])}) ;

                        ) ;

                  ) ;

                  gb_rpt = Bericht ( gb ) ;

                  gb_rpt [ LegendBox ( 1 )] << löschen ;

                  gb_rpt [ Bilderkiste ( 1 )] << Journalfenster ;

                  gb << Fenster schließen ( nosave ) .

            / * sonst wenn * / N Artikel ( Graphliste ) == 5 .

                  gb = Graph Builder (

                        Variablen (

                              X ( : Testzeit ) .

                              Y ( Säule ( Tempcol ) ) .

                              Y ( Säule ( Vibcol ) ) .

                              Y ( Säule ( Graphliste [ 1 ]) ) .

                              Y ( Säule ( Graphliste [ 2 ]) ) .

                              Y ( Säule ( Graphliste [ 3 ]) )

                        ) .

                        Elemente (

                              Position ( 1 . 1 ) .

                              Linie ( X . Y . Legende ( 27 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 2 ) .

                              Linie ( X . Y . Legende ( 28 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 3 ) .

                              Linie ( X . Y . Legende ( 29 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 4 ) .

                              Linie ( X . Y . Legende ( 30 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 5 ) .

                              Linie ( X . Y . Legende ( 31 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        SendToReport (

                              Versand ({} . "Diagrammtitel" . Textbearbeitungsfeld . { Text setzen ( Graphliste [ 1 ] || "," || Graphliste [ 2 ] || ", &" || Graphliste [ 3 ])}) ;

                        ) ;

                  ) ;

                  gb_rpt = Bericht ( gb ) ;

                  gb_rpt [ LegendBox ( 1 )] << löschen ;

                  gb_rpt [ Bilderkiste ( 1 )] << Journalfenster ;

                  gb << Fenster schließen ( nosave ) ;

                  gb = Graph Builder (

                        Variablen (

                              X ( : Testzeit ) .

                              Y ( Säule ( Tempcol ) ) .

                              Y ( Säule ( Vibcol ) ) .

                              Y ( Säule ( Graphliste [ 4 ]) ) .

                              Y ( Säule ( Graphliste [ 5 ]) )

                        ) .

                        Elemente (

                              Position ( 1 . 1 ) .

                              Linie ( X . Y . Legende ( 27 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 2 ) .

                              Linie ( X . Y . Legende ( 28 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 3 ) .

                              Linie ( X . Y . Legende ( 29 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 4 ) .

                              Linie ( X . Y . Legende ( 30 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        SendToReport (

                              Versand ({} . "Diagrammtitel" . Textbearbeitungsfeld . { Text setzen ( Graphliste [ 4 ] || "&" || Graphliste [ 5 ])}) ;

                        ) ;

                  ) ;

                  gb_rpt = Bericht ( gb ) ;

                  gb_rpt [ LegendBox ( 1 )] << löschen ;

                  gb_rpt [ Bilderkiste ( 1 )] << Journalfenster ;

                  gb << Fenster schließen ( nosave ) .

            / * sonst wenn * / N Artikel ( Graphliste ) == 6 .

                  gb = Graph Builder (

                        Variablen (

                              X ( : Testzeit ) .

                              Y ( Säule ( Tempcol ) ) .

                              Y ( Säule ( Vibcol ) ) .

                              Y ( Säule ( Graphliste [ 1 ]) ) .

                              Y ( Säule ( Graphliste [ 2 ]) ) .

                              Y ( Säule ( Graphliste [ 3 ]) )

                        ) .

                        Elemente (

                              Position ( 1 . 1 ) .

                              Linie ( X . Y . Legende ( 27 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 2 ) .

                              Linie ( X . Y . Legende ( 28 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 3 ) .

                              Linie ( X . Y . Legende ( 29 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 4 ) .

                              Linie ( X . Y . Legende ( 30 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 5 ) .

                              Linie ( X . Y . Legende ( 31 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        SendToReport (

                              Versand ({} . "Diagrammtitel" . Textbearbeitungsfeld . { Text setzen ( Graphliste [ 1 ] || "," || Graphliste [ 2 ] || ", &" || Graphliste [ 3 ])}) ;

                        ) ;

                  ) ;

                  gb_rpt = Bericht ( gb ) ;

                  gb_rpt [ LegendBox ( 1 )] << löschen ;

                  gb_rpt [ Bilderkiste ( 1 )] << Journalfenster ;

                  gb << Fenster schließen ( nosave ) ;

                  gb = Graph Builder (

                        Variablen (

                              X ( : Testzeit ) .

                              Y ( Säule ( Tempcol ) ) .

                              Y ( Säule ( Vibcol ) ) .

                              Y ( Säule ( Graphliste [ 4 ]) ) .

                              Y ( Säule ( Graphliste [ 5 ]) ) .

                              Y ( Säule ( Graphliste [ 6 ]) )

                        ) .

                        Elemente (

                              Position ( 1 . 1 ) .

                              Linie ( X . Y . Legende ( 27 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 2 ) .

                              Linie ( X . Y . Legende ( 28 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 3 ) .

                              Linie ( X . Y . Legende ( 29 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 4 ) .

                              Linie ( X . Y . Legende ( 30 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        Elemente (

                              Position ( 1 . 5 ) .

                              Linie ( X . Y . Legende ( 31 ) . Reihenreihenfolge ( 0 ) . Zusammenfassungsstatistik ( "Bedeuten" ) )

                        ) .

                        SendToReport (

                              Versand ({} . "Diagrammtitel" . Textbearbeitungsfeld . { Text setzen ( Graphliste [ 4 ] || "&" || Graphliste [ 5 ])}) ;

                        ) ;

                  ) ;

                  gb_rpt = Bericht ( gb ) ;

                  gb_rpt [ LegendBox ( 1 )] << löschen ;

                  gb_rpt [ Bilderkiste ( 1 )] << Journalfenster ;

                  gb << Fenster schließen ( nosave ) ;

            ) .

Es geht weiter, aber ich denke, Sie bekommen das Bild ...

Grundsätzlich habe ich versucht, if-Anweisungen im Abschnitt Variablen des Diagramm-Generators zu verwenden, aber JMP scheint das überhaupt nicht zu mögen.  Ich suche nur nach einer Möglichkeit, meinen Code zu verkürzen und das Lesen zu erleichtern.

Re: Zeichnen Sie ein Skript, um mit einer unterschiedlichen Anzahl von Y-Variablen zu arbeiten

Schön, dass das Beispiel hilfreich war.  Übrigens können Sie Ihren Code ein wenig kürzen:

• Sie müssen evalinsert () nur dann verwenden, wenn Sie Variablen verwenden, in die Sie einsetzen (z. B. ^ xcol ^).

• Sie müssen das Konstrukt "\ [] \" nur verwenden, wenn Sie doppelte Anführungszeichen verwenden (z. B. "\ [das ist" zitierter Text "). ] ""

Re: Zeichnen Sie ein Skript, um mit einer unterschiedlichen Anzahl von Y-Variablen zu arbeiten

Nochmals vielen Dank für das Teilen dieses Beispiels und dieser Befehle.  So sieht der obige Code jetzt aus.  Ich würde sagen, es ist viel besser als früher.

HALTbuildGraph = Funktion ({} . { Tempcol = "" . Vibcol = "" } . // 11

      ob ( N Artikel ( LogCheckBox << Ausgewählt bekommen ()) == 1 . // wenn Protokolldateien importiert wurden

            zum ( ich = 1 . ich <= n Col () . ich ++

                  ob ( enthält ( verkohlen ( Spaltenname ( ich )) . "Temp" ) & enthält ( verkohlen ( Spaltenname ( ich )) . "Sollwert" ) .

                        Tempcol = verkohlen ( Spaltenname ( ich )) .

                  / * sonst wenn * / enthält ( verkohlen ( Spaltenname ( ich )) . "Vib" ) & enthält ( verkohlen ( Spaltenname ( ich )) . "Sollwert" ) .

                        Vibcol = verkohlen ( Spaltenname ( ich )) ;

                  ) ;

            ) ;

            ob ( Tempcol == "" . // wenn die Spalte Temperatursollwert nicht gefunden wurde.

                  drucken ( "Fehler 111a: Temperatursollwert nicht gefunden" ) ;

                  werfen ()

            ) ;

            ob ( Vibcol == "" . // wenn die Spalte Vibrationssollwert nicht gefunden wurde.

                  drucken ( "Fehler 111b: Vibrationssollwert nicht gefunden" ) ;

                  werfen () ;

            ) ;

            gb_expr = evalinsert ( "\ [

                  gb = Graph Builder (

                        Variablen(

                              X (: Testzeit),

                              Y (Spalte (Tempcol)),

                              Y (Spalte (Vibcol)),

            ] \ " ) ;

            zum ( ich = 1 . ich <= N Artikel ( Graphliste ) & ich <= 3 . ich ++

                  ob ( ich == N Artikel ( Graphliste ) | ich == 3 .

                        gb_expr = gb_expr || evalinsert ( "\ [

                              Y (Grafikliste [^ i ^])

                        )

                        ] \ " ) .

                  /*sonst*/

                        gb_expr = gb_expr || evalinsert ( "\ [

                              Y (Graphliste [^ i ^]),

                        ] \ " ) ;

                  ) ;

            ) ;

            gb_expr = gb_expr || evalinsert ( "\ [

                        Elemente (

                              Position (1, 1),

                              Zeile (X, Y, Legende (27), Zeilenreihenfolge (0), Zusammenfassungsstatistik ("Mittelwert"))

                        )

                        Elemente (

                              Position (1, 2),

                              Zeile (X, Y, Legende (28), Zeilenreihenfolge (0), Zusammenfassungsstatistik ("Mittelwert"))

                        )

            ] \ " ) ;

            zum ( ich = 1 . ich <= N Artikel ( Graphliste ) & ich <= 3 . ich ++

                  gb_expr = gb_expr || evalinsert ( "\ [

                        Elemente (

                              Position (1, 2 + ^ i ^),

                              Zeile (X, Y, Legende (28 + ^ i ^), Zeilenreihenfolge (0), Zusammenfassungsstatistik ("Mittelwert"))

                        )

                        ] \ " ) ;

            ) ;

            gb_expr = gb_expr || evalinsert ( "\ [

                        SendToReport (

                              Versand ({}, "Diagrammtitel", Textbearbeitungsfeld, {Setze Text (Diagrammliste [1])

            ] \ " ) ;

            ob ( N Artikel ( Graphliste ) == 1 .

                  gb_expr = gb_expr || evalinsert ( "\ [)});

                        );

                  ] \ " ) ;

            ) ;

            zum ( ich = 2 . ich <= N Artikel ( Graphliste ) & ich <= 3 . ich ++

                  ob ( ich == N Artikel ( Graphliste ) | ich == 3 .

                        gb_expr = gb_expr || evalinsert ( "\ [||", & "|| graphlist [^ i ^])});

                        );

                        ] \ " ) .

                  /*sonst*/

                        gb_expr = gb_expr || evalinsert ( "\ [||", "|| graphlist [^ i ^]

                        ] \ " ) ;

                  ) ;

            ) ;

            gb_expr = gb_expr || evalinsert ( "\ [

                  );

                  gb_rpt = report (gb);

                  gb_rpt [LegendBox (1)] << löschen;

                  gb_rpt [PictureBox (1)] << Journalfenster;

                  gb << Fenster schliessen (nosave)

            ] \ " ) ;

            eval ( analysieren ( gb_expr )) ;

            ob ( N Artikel ( Graphliste ) > 3 .

                  gb_expr = evalinsert ( "\ [

                  gb = Graph Builder (

                        Variablen(

                              X (: Testzeit),

                              Y (Spalte (Tempcol)),

                              Y (Spalte (Vibcol)),

                  ] \ " ) ;

                  zum ( ich = 4 . ich <= N Artikel ( Graphliste ) . ich ++

                        ob ( ich == N Artikel ( Graphliste ) .

                              gb_expr = gb_expr || evalinsert ( "\ [

                              Y (Grafikliste [^ i ^])

                        )

                              ] \ " ) .

                        /*sonst*/

                              gb_expr = gb_expr || evalinsert ( "\ [

                              Y (Graphliste [^ i ^]),

                              ] \ " ) ;

                        ) ;

                  ) ;

                  gb_expr = gb_expr || evalinsert ( "\ [

                        Elemente (

                              Position (1, 1),

                              Zeile (X, Y, Legende (27), Zeilenreihenfolge (0), Zusammenfassungsstatistik ("Mittelwert"))

                        )

                        Elemente (

                              Position (1, 2),

                              Zeile (X, Y, Legende (28), Zeilenreihenfolge (0), Zusammenfassungsstatistik ("Mittelwert"))

                        )

                  ] \ " ) ;

                  zum ( ich = 4 . ich <= N Artikel ( Graphliste ) . ich ++

                        gb_expr = gb_expr || evalinsert ( "\ [

                        Elemente (

                              Position (1, 2 + ^ i ^ -3),

                              Zeile (X, Y, Legende (28 + ^ i ^ -3), Zeilenreihenfolge (0), Zusammenfassungsstatistik ("Mittelwert"))

                        )

                        ] \ " ) ;

                  ) ;

                  gb_expr = gb_expr || evalinsert ( "\ [

                        SendToReport (

                              Versand ({}, "Diagrammtitel", Textbearbeitungsfeld, {Setze Text (Diagrammliste [4])

                  ] \ " ) ;

                  ob ( N Artikel ( Graphliste ) == 4 .

                        gb_expr = gb_expr || evalinsert ( "\ [)});

                        );

                        ] \ " ) ;

                  ) ;

                  zum ( ich = 5 . ich <= N Artikel ( Graphliste ) . ich ++

                        ob ( ich == N Artikel ( Graphliste ) .

                              gb_expr = gb_expr || evalinsert ( "\ [||", & "|| graphlist [^ i ^])});

                        );

                              ] \ " ) .

                        /*sonst*/

                              gb_expr = gb_expr || evalinsert ( "\ [||", "|| graphlist [^ i ^]

                              ] \ " ) ;

                        ) ;

                  ) ;

                  gb_expr = gb_expr || evalinsert ( "\ [

                  );

                  gb_rpt = report (gb);

                  gb_rpt [LegendBox (1)] << löschen;

                  gb_rpt [PictureBox (1)] << Journalfenster;

                  gb << Fenster schliessen (nosave)

                  ] \ " ) ;

                  eval ( analysieren ( gb_expr )) ;

            ) .

Re: Zeichnen Sie ein Skript, um mit einer unterschiedlichen Anzahl von Y-Variablen zu arbeiten

Danke, das werde ich am Montag ausprobieren, wenn ich wieder bei der Arbeit bin.

Re: Zeichnen Sie ein Skript, um mit einer unterschiedlichen Anzahl von Y-Variablen zu arbeiten

Sie können das Diagramm-Builder-JSL-Skript direkt als Textzeichenfolge erstellen und dann mit eval (parse ()) ausführen.  Wenn Ihre Diagramme gemeinsame Elemente enthalten, kann dies die Dinge vereinfachen.

Hier ein Beispiel, wie das geht.  Beachten Sie, dass ich evalinsert verwende, um das Ersetzen in Variablen zu erleichtern.  Außerdem verwende ich \ [and] \, damit ich doppelte Anführungszeichen in der Zeichenfolge haben kann, ohne sie zu umgehen.

dt = öffnen ( "$ sample_data \ Big Class.jmp" ) ;

xvar = ":Gewicht" ;

yvar = ":Höhe" ;

byvar = ":Sex" ;

gb_expr = evalinsert ( "\ [

Graph Builder (

    Systemsteuerung anzeigen (0),

    Variablen (X (^ xvar ^), Y (^ yvar ^), Überlagerung (^ byvar ^)),

    Elemente (Punkte (X, Y, Legende (1)), Glatter (X, Y, Legende (3))),

    SendToReport (Dispatch ({}, "Graph Builder", FrameBox, {Markergröße (3)}))

)] " ) ;

eval ( analysieren ( gb_expr )) ;