Hi, all
Now i face the problems is i have nth tab and it does not shown the complete charts in each of the tab. I want use loop to script out all the charts, but after i run, it shown me error(too many arguments). So, do have any alternatives way to script out all the chart (3 charts) when i click on each tab?
Thanks.
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA\semiconductor capability.jmp" );
Data Table( "semiconductor capability" ) << Summary(
Group( :lot_id, :wafer ),
Mean( :NPN1 ),
Mean( :PNP1 ),
Mean( :PNP2 ),
Mean( :NPN2 ),
Freq( "None" ),
Weight( "None" )
);
nTabs = 5;
VariabilityWindow = New Window("Variability Chart",tb = tab box(),
For( i = 1, i <= nTabs, i++,
tb << Add(
"Product" || Char( i ),
Button Box( "Variability Chart #" || Char( i ), Print( "Variability chart" ) )
));
Variability Chart(
Y( :Name( "Mean(NPN1)" ) ),
X( :lot_id, :wafer ),
Max Iter( 100 ),
Conv Limit( 0.00000001 ),
Number Integration Abscissas( 128 ),
Number Function Evals( 65536 ),
Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
Connect Cell Means( 1 ),
Show Group Means( 1 ),
Std Dev Chart( 0 ),
Points Jittered( 1 ),
Show Bias Line( 0 ),
Show Box Plot Whisker Bars( 0 ),
Mean Diamonds( 1 )
),
"Product 2",
hz = H List Box();
);
Var Chart = V List Box(
Variability Chart(
Y( :Name( "Mean(PNP1)" ) ),
X( :lot_id, :wafer ),
Max Iter( 100 ),
Conv Limit( 0.00000001 ),
Number Integration Abscissas( 128 ),
Number Function Evals( 65536 ),
Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
Connect Cell Means( 1 ),
Show Group Means( 1 ),
Std Dev Chart( 0 ),
Points Jittered( 1 ),
Show Bias Line( 0 ),
Show Box Plot Whisker Bars( 0 ),
Mean Diamonds( 1 )
),
);
hz << append(Var Chart);
tb << append("Product 3",
V list box(
Variability Chart(
Y( :Name( "Mean(PNP2)" ) ),
X( :lot_id, :wafer ),
Max Iter( 100 ),
Conv Limit( 0.00000001 ),
Number Integration Abscissas( 128 ),
Number Function Evals( 65536 ),
Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
Connect Cell Means( 1 ),
Show Group Means( 1 ),
Std Dev Chart( 0 ),
Points Jittered( 1 ),
Show Bias Line( 0 ),
Show Box Plot Whisker Bars( 0 ),
Mean Diamonds( 1 )
)
)
);
Here is a script that does what I think you want. Tab Boxes are a bit fussy, but I was able to get it to work.
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA\semiconductor capability.jmp" );
dtsumm = dt << Summary(
Group( :lot_id, :wafer ),
Mean( :NPN1 ),
Mean( :PNP1 ),
Mean( :PNP2 ),
Mean( :NPN2 ),
Freq( "None" ),
Weight( "None" )
);
nTabs = 5;
VariabilityWindow = New Window( "Variability Chart", tb = Tab Box() );
For( i = 1, i <= nTabs, i++,
tb << Insert(
i,
"Product" || Char( i ),
V List Box(
Button Box( "Variability Chart #" || Char( i ) ),
dtsumm << Variability Chart(
Y( :Name( "Mean(NPN1)" ) ),
X( :lot_id, :wafer ),
Max Iter( 100 ),
Conv Limit( 0.00000001 ),
Number Integration Abscissas( 128 ),
Number Function Evals( 65536 ),
Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
Connect Cell Means( 1 ),
Show Group Means( 1 ),
Std Dev Chart( 0 ),
Points Jittered( 1 ),
Show Bias Line( 0 ),
Show Box Plot Whisker Bars( 0 ),
Mean Diamonds( 1 )
),
dtsumm << Variability Chart(
Y( :Name( "Mean(PNP1)" ) ),
X( :lot_id, :wafer ),
Max Iter( 100 ),
Conv Limit( 0.00000001 ),
Number Integration Abscissas( 128 ),
Number Function Evals( 65536 ),
Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
Connect Cell Means( 1 ),
Show Group Means( 1 ),
Std Dev Chart( 0 ),
Points Jittered( 1 ),
Show Bias Line( 0 ),
Show Box Plot Whisker Bars( 0 ),
Mean Diamonds( 1 )
),
dtsumm << Variability Chart(
Y( :Name( "Mean(PNP2)" ) ),
X( :lot_id, :wafer ),
Max Iter( 100 ),
Conv Limit( 0.00000001 ),
Number Integration Abscissas( 128 ),
Number Function Evals( 65536 ),
Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
Connect Cell Means( 1 ),
Show Group Means( 1 ),
Std Dev Chart( 0 ),
Points Jittered( 1 ),
Show Bias Line( 0 ),
Show Box Plot Whisker Bars( 0 ),
Mean Diamonds( 1 )
)
)
)
);