Subscribe Bookmark RSS Feed

Alternatives way script out the charts

blue1994

Contributor

Joined:

Feb 27, 2017

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 )
)
)
);

1 ACCEPTED SOLUTION

Accepted Solutions
txnelson

Super User

Joined:

Jun 22, 2012

Solution

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 )
			)
		)
	)
);
Jim
2 REPLIES
txnelson

Super User

Joined:

Jun 22, 2012

Solution

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 )
			)
		)
	)
);
Jim
blue1994

Contributor

Joined:

Feb 27, 2017

Thanks a lot.