Controlling output position of control chart

tony

Good morning,

I am in the process of generating a jmp script to output four control charts.  I am able to successfully generate the charts, however, they output in a cascaded fashion i.e. a 4x1 array.  I wanted to know if it was possible to control the position they output on the screen.  I would like to have them output in a 2x2 array instead which would make the information more accessible.  Can anyone provide the script commands that would enable me to do this?  For reference I have listed my current code below:

Control Chart(

  Sample Label( :Date ),

  Group Size( 1 ),

  KSigma( 3 ),

  Chart Col(:Y Limit Top DSA,Individual Measurement(LCL( 200 ),UCL( 1000 ))),

  Chart Col(:Y Limit Bottom DSA,Individual Measurement(LCL( 200 ),UCL( 1000 ))),

  Chart Col(:X Limit Top DSA,Individual Measurement(LCL( 200 ),UCL( 1000 ))),

  Chart Col(:X Limit Bottom DSA,Individual Measurement(LCL( 200 ),UCL( 1000 ))),

  SendToReport(

  Dispatch(

  {"Y Limit Top DSA"},

  "IR Chart of IM",

  FrameBox,

  {Frame Size( 400, 250 )}

  ),

  Dispatch(

  {"Y Limit Bottom DSA"},

  "IR Chart of IM",

  FrameBox( 2 ),

  {Frame Size( 89, 250 )}

  ),

  Dispatch(

  {"X Limit Top DSA"},

  "IR Chart of IM",

  FrameBox,

  {Frame Size( 400, 250 )}

  ),

  Dispatch(

  {"X Limit Bottom DSA"},

  "IR Chart of IM",

  FrameBox( 2 ),

  {Frame Size( 89, 250 )}

  )

  )

)

I appreciate your insight,

Tony

Byron_JMP

The easy way to do this is to make all four charts in separate windows, then arrange them roughly in a 2 x 2 grid. Check the little white box in the lower right corner of each window, and then, in the lower right corner, click the little down arrow and select the combine windows option.

This generates a report application that can be saved to your data table, no scripting required.

Alternatively this will work too.

names default to here(1);
dt=current data table();
fig1 = Expr(
dt << Control Chart(
  Group Size( 1 ),
  KSigma( 3 ),
  Chart Col( :Column 1, Individual Measurement )
)
);
fig2 = Expr(
dt << Control Chart(
  Group Size( 1 ),
  KSigma( 3 ),
  Chart Col( :Column 2, Individual Measurement )
)
);
fig3 = Expr(
dt << Control Chart(
  Group Size( 1 ),
  KSigma( 3 ),
  Chart Col( :Column 3, Individual Measurement )
)
);
fig4 = Expr(
dt << Control Chart(
  Group Size( 1 ),
  KSigma( 3 ),
  Chart Col( :Column 4, Individual Measurement )
)
);

New Window( "Four Graphs",
V List Box(
  "VLB",
  H List Box(
   "HLB1",
   fig1;
   fig2;
  ),
  H List Box(
   "HLB2",
   fig3;
   fig4;
  )
)
);