We’re asking you to select a content label when starting a new topic in the Discussions area. Read more to find out why.
Choose Language Hide Translation Bar
Highlighted
blue1994
Level III

Alternatives way script out the charts

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
Highlighted
txnelson
Super User

Re: Alternatives way script out the charts

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

View solution in original post

2 REPLIES 2
Highlighted
txnelson
Super User

Re: Alternatives way script out the charts

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

View solution in original post

Highlighted
blue1994
Level III

Re: Alternatives way script out the charts

Thanks a lot.