Control Chart Builder y axis scale - can I set dynamically using JSL?

jmpbeginner

New to Control Chart Builder, but I am liking it so far!  It appears that local data filters work with this platform (whereas control charts prior to CCB did not support them?).  Only issue I am having is that when a local data filter is used, the selection in the filter does not prompt a scale adjustment.  I notice the LCL/Avg/UCL are updated based on the local data filter selection, but the scale stays static.

First question, is there a way to force a scale recalc?  If not, I thought of the following option:

• I can send scale changes via this jsl snippet when I generate the chart initially:

<!--

SendToReport(

Dispatch(

{},

"area",

ScaleBox,

{Min( 0 ), Max( 500 ), Inc( 50 ), Minor Ticks( 1 )}

)

)

-->

but what I really need is for the scale to be set based on the local data filter selection.

My thought is I could use the dynamically calculated LCL and UCL to adjust the Min and Max scale settings:

• Is there a way to access the UCL and LCL values dynamically(with each recalc)?
• If so, I could set them as variables and then use a formula to set the scale:

<!--

//define variables

LCLvar = reference to LCL value

UCLvar = reference to UCL value

//change scale based on those variables

SendToReport(

Dispatch(

{},

"area",

ScaleBox,

{Min( LCLvar - 50), Max( UCLvar + 50), Inc( UCLvar-LCLvar/50), Minor Ticks( 1 )}

)

)

-->

Is this the right approach? or is there an easier way to accomplish the desired result?  thanks

txnelson

I have worked my example a little further.  It now dynamically changes the axis when the data filter is changed.  The data filter is now a global filter, so the code can pick up the changes in the selection in the data table

 

Names Default To Here( 1 );

 

dt = Open( "$SAMPLE_DATA\semiconductor capability.jmp" );

 

f = Function( {a},

   

// Capture the LCL and UCL from the Limit Summaries Outline Box in the Report Output 

       myLCL = (Report( ccb )["NPN1 Limit Summaries"][Table Box( 1 )][2] << get)[1]; 

       myUCL = (Report( ccb )["NPN1 Limit Summaries"][Table Box( 1 )][4] << get)[1];

// Apply back to the Control Chart the new axis settings

       Report( ccb )[Axis Box( 3 )] << Min( myLCL );

       Report( ccb )[Axis Box( 3 )] << Max( myUCL );

);

   

rs = dt << make rowstate handler( f );

   

New Window( "Working Example",

       Data Filter Context Box(

              H List Box(

                     dt << Data Filter( Add Filter( Columns( :SITE ) ),Mode(select(1),show(1),include(1)) ),

                     Platform(dt,

                           ccb = Control Chart Builder(

                                  Size( 534, 453 ),

                                  Show Control Panel( 0 ), 

                                  Variables( Y( :NPN1 ) ), 

                                  Chart( Position( 1 ), Limits ), 

                                  Chart( Position( 2 ) ), 

                                  SendToReport( 

                                         Dispatch( 

                                                {}, 

                                                "NPN1", 

                                                ScaleBox,

                                                {Min( 96.6346153846154 ), Max( 131.634615384615 ), Inc( 5 ), Minor Ticks( 0 ),

                                                Add Ref Line( 104.412948990151, "Solid", "Blue", "LSL", 1 ), 

                                                Add Ref Line( 131.893493064355, "Solid", "Blue", "USL", 1 ), 

                                                Add Ref Line( 118.153221027253, "Solid", "Blue", "Target", 1 )}

                                           ) 

                                  )

                           )

                     )

              )

       )

);