I'm trying to have a dynamic drawing of a spec "box" in graph builder but I can't seem to get it to work. I've tried making the usl and lsl expr(usl) and expr(lsl) and done eval(eval expr()) but that did not work either. Any suggestions would be greatly appreciated!
rpt=dt<<Graph Builder(
Size( 527, 456 ),
Show Control Panel( 0 ),
Graph Spacing( 5 ),
Variables( X( :Min ), Y( :Max ) ),
Elements(
Points( X, Y, Legend( 3 ) ),
Ellipse( X, Y, Legend( 5 ), Coverage( "99%" ), Mean Point( 1 ) )
),
SendToReport(
Dispatch( {}, "Graph Builder", FrameBox,
{Add Graphics Script(
2,
Description( "" ),
Pen Color( "red" );
Line( [lsl, usl], [usl, usl] );
Line( [usl, usl], [lsl, usl] );
Line( [lsl, usl], [lsl, lsl] );
Line( [lsl, lsl], [lsl, usl] );
)}
)
)
);Want it to look like this (this was using the hard coding instead of lsl and usl)
Accepted Solutions
Here is an example of one way to code the example
Names Default To Here( 1 );
dt =
// Open Data Table: Big Class.jmp
// → Data Table( "Big Class" )
Open( "$SAMPLE_DATA/Big Class.jmp" );
gb = dt << Graph Builder(
Size( 527, 456 ),
Show Control Panel( 0 ),
Graph Spacing( 5 ),
Variables( X( :height ), Y( :weight ) ),
Elements( Points( X, Y, Legend( 3 ) ), Ellipse( X, Y, Legend( 5 ), Coverage( "99%" ), Mean Point( 1 ) ) )
);
xmin = 55;
ymin = 0;
xmax = 100;
ymax = 100;
//eval(evalexpr(
Report( gb )[framebox( 1 )] << Add Graphics Script(
Pen Color( "red" );
xMat = Matrix( xmin );
xMat = xMat || Matrix( xmin );
xMat = xMat || Matrix( xmax );
xMat = xMat || Matrix( xmax );
xMat = xMat || Matrix( xmin );
yMat = Matrix( ymin );
yMat = yMat || Matrix( ymax );
yMat = yMat || Matrix( ymax );
yMat = yMat || Matrix( ymin );
yMat = yMat || Matrix( ymin );
Line( xMat, yMat );
);
Eval(EvalExpr(
fb << Add Graphics Script(
Pen Color("Red");
Rect(Expr(low), Expr(high), Expr(high), Expr(low));
);
));
after saving the plot,
the code will not work anymore.
low & high should be defined INSIDE the graphics script - see previous post.
@hogi wrote:
Eval(EvalExpr( fb << Add Graphics Script( Pen Color("Red"); Rect(Expr(low), Expr(high), Expr(high), Expr(low)); ); ));
after saving the plot, the code will not work anymore.
low & high should be defined INSIDE the graphics script - see previous post.
How would you save the plot so they wouldn't work?
The values won't update if user makes changes, but without knowing where values are coming from, it is extremely difficult to take that into account.
Graph Builder(
Size(525, 454),
Show Control Panel(0),
Variables(X(:weight), Y(:height), Overlay(:sex)),
Elements(Points(X, Y, Legend(9))),
SendToReport(
Dispatch({}, "weight", ScaleBox,
{Min(38.9121338912134), Max(180), Inc(20), Minor Ticks(0)}
),
Dispatch({}, "height", ScaleBox,
{Min(47.513125), Max(180.625510686239), Inc(20), Minor Ticks(0)}
),
Dispatch({}, "Graph Builder", FrameBox,
{Add Graphics Script(
5,
Description(""),
Pen Color("Red");
Rect(60, 140, 140, 60);
)}
)
)
);