Choose Language Hide Translation Bar
Highlighted
matthewh
Level I

Re: Graph builder

gzm, thanks for this! i may indeed steal a few ideas from your script :-)

up to now i have just accepted that JMP chooses what it thinks is the optimum layout for the graph builder, but this is a nice way of forcing it to be a 5x5 square. i also like the script for adding text to each graph box.

cheers,

matthew.
Highlighted
gzm
gzm
Level III

Re: Graph builder

matthewh,
You said you were new to JMP in Feb, so hopefully this script will not scare you off. I did not find a simple way to specify the layout for a graphbuilder overlay. If i specified wafer as nominal and there were 25, JMP built a 5x5 layout. If I had 24 wafers it built a 6x4 layout [rowxcol].

I usually create my own displays with scripting and JMP 8 now has V sheet boxes and H sheet boxes to make it somewhat easier. Anyway, read on for a script where you can specify the layout and mail the results. Since you are obviously from the semi-industry, the labels should be recognizable. Note numacross defines the layout, and you do need to change the email address.

//--x is xdie y is ydie fmax=speed wafer lot
//--this script assumes one lot and up to 25 wafers
dt=current data table();
lotid=:lot[1];
dt << Sort( By( :wafer ), Order( Ascending ), Replace Table(1) );
numacross=5;
widx=dt<wrow=dt<wcol=dt<widx< :wafer[Row(), Empty()] == :wafer[Row() - 1, Empty()], :WfrIDX[Row() - 1, Empty()],
:WfrIDX[Row() - 1, Empty()] + 1
));

wrow<wcol<
xwid=90*Col Maximum(wcol)+360;
ywid=90*Col Maximum(wrow)+200;
gb=Graph Builder(
Size( ::xwid, ::ywid ),
Variables(
X( :x ),
Y( :y ),
Group X( :WfrCol ),
Group Y( :WfrRow ),
Overlay( :FMAX_WC )
),
Elements( Points( X, Y, Legend( 8 ) ) ));

//--get listing of wafer numbers by WfrCol and WfrRow and put in teh top left corner
//--first find min x and max y
xp=Col minimum(:x)+1;
yp=Col maximum(:y)-1;
summarize(wtt=by(widx,:wafer));
gb_rpt=report(gb);
gtext= "xx<gtext=munger(gtext,1,"_xp_",char(xp));
gtext=munger(gtext,1,"_yp_",char(yp));
for(i=1,i<=nitems(wtt[1]), i++,
xx=gb_rpt[FrameBox(i)];
cmd=munger(gtext,1,"_wfr_","\!""||wtt[2]||"\!"");
eval(parse(cmd))
);

ttl="c:\temp\"||lotid||"_fmax.png";
gb_rpt[PictureBox(1)]<mail("mymail@hotmail.com","lot "||lotid||" Fmax","See attached graph", ttl);

Message was edited by: gzm
Article Labels

    There are no labels assigned to this post.