dt = Open("$SAMPLE_DATA/Big Class.jmp");
dt << New Column( "col1", Numeric, Continuous, Set Formula( Col Shuffle() ) );
dt << New Column( "col2", Numeric, Continuous, Set Formula( Col Shuffle() ) );
dt << New Column( "col3", Numeric, Continuous, Set Formula( Col Shuffle() ) );
dt << New Column( "col4", Numeric, Continuous, Set Formula( Col Shuffle() ) );
dt << New Column( "col5", Numeric, Continuous, Set Formula( Col Shuffle() ) );
dt << New Column( "col6", Numeric, Continuous, Set Formula( Col Shuffle() ) );
dt << New Column( "col7", Numeric, Continuous, Set Formula( Col Shuffle() ) );
dt << New Column( "col8", Numeric, Continuous, Set Formula( Col Shuffle() ) );
//??
gb_expr = Expr(dt << Graph Builder(
Transform Column("row", Formula(Row())),
Size(500, 100),
Show Control Panel(0),
Show Legend(0),
Show Title(0),
Show Footer(0),
Show X Axis(0),
Show Y Axis(0),
Show X Axis Title(0),
Show Y Axis Title(0),
Variables(X(:row), Y(:height)),
Elements(Line(X, Y, Legend(5)))
));
lub = Lineup Box(N Col(1));
p2=dt<< Graph Builder(Transform Column("row",Formula(Row())),Size(500,100),Show Control Panel(0),Show Legend(0),Show Title(0),Show Footer(0),Show X Axis(0),Show Y Axis(0),Show X Axis Title(0),Show Y Axis Title(0),Variables(X(:row),Y(:weight)),Elements(Line(X,Y,Legend(5))));
(p2 << XPath("//OutlineBox[text() = '图形生成器']")) << Set Title("");
lub = Lineup Box(N Col(1));
lub << append(gb_expr)
……
nw = new window("",
lub
);
(nw << XPath("//OutlineBox[text() = '图形生成器']")) << Set Title("");