476074_zh-TW

liliconcom

創建列切換器 - 腳本 JMP

你好，

我需要一些幫助才能為事件的 Laney 的 P' 圖表製作列切換器。

 

下面是我的代碼：

 

首先，我們需要用這些行確定一個係數：

 

z_yyy = Eval( {:"Y1"n} );
z_xx = z_yyy[1] << get values;
z_nnn = Eval( {:N} );
z_nn = z_nnn[1] << get values;
z_rrr = Eval( {:Numéro de lot} );

z_Proportion = E Div( z_xx, z_nn );
z_Pbar = V Sum( z_xx ) / V Sum( z_nn );
z_sigma_est = Root( z_Pbar * (1 - z_Pbar) );
z_zvalue = E Mult( ((z_Proportion - z_Pbar) / z_sigma_est), Root( z_nn ) );
z_nr = N Row( z_zvalue );
z_mRList = {0};
z_m = z_zvalue;
z_m[1, 0] = [];
z_m = z_m |/ [0];
z_mr = Abs( z_m - z_zvalue );
z_nr = N Row( z_mr );
z_mr[z_nr, 0] = [];
z_SigmaZ = Mean( z_mr ) / 1.128;
z_KSigmaZ = 3 * z_SigmaZ;

然後，這裡是我想開發列切換器的地方：

graph = New Window( chart_title,
Control Chart(
Sample Label( :Numéro de lot ),
Sample Size( :N ),
KSigma( z_KSigmaZ ),
Sort by Row Order( 1 ),
Chart Col( :"Y1"n, P( Limits Precision( 1 ), LCL( -3 ) ) ),
SendToReport(
Dispatch(
{},
"P of Y1",
OutlineBox,
{Set Title( "p'-chart, p of Y1" )}
),
Dispatch(
{"P of Y1"},
"2",
ScaleBox,
{Format( "Fixed Dec", 12, 5 ), Min( -0.00025 ), Max( 0.0025 ),
Inc( 0.00025 ), Minor Ticks( 1 )}
),
Dispatch(
{"P of Y1"},
"1",
ScaleBox,
{Min( 0.5 ), Inc( 1 ), Minor Ticks( 0 )}
),
Dispatch(
{"P of Y1"},
"",
AxisBox,
{Add Axis Label( "Taux de défauts pour Y1" )}
),
Dispatch(
{"P of Y1"},
"Proportion pour RNS",
TextEditBox,
{Set Text( "Taux de défauts pour Y1" )}
),
Column Switcher(
 :Name( "Y1" ),
 {:Name( "Y1" ), :Name( "Y2" ),
 :Name( "Y3" ), :Name( "Y4" )}
 )
)
);
);

 

但是，這是用 Chart Col 函數開發的，沒有 Y 可以確定，這就是為什麼我不知道如何在它上面製作這個列切換器。

你能幫我解決這個請求嗎？

 

非常感謝，

問候，

塞巴斯蒂安

腳本回复：創建列切換器 - 腳本 JMP

在腳本索引的幫助下，也許這樣的事情會起作用：

Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Quality Control/Coating.jmp");
obj = dt << Control Chart(Sample Size(1), Chart Col(:Weight), Chart Type(Run Chart));
wait(1);
ColumnSwitcherObject = obj << Column Switcher(:Weight, {:Pin, :Sample, :Weight, :"Weight 2"n});

回复：創建列切換器 - 腳本 JMP

我在腳本末尾嘗試了這個：

 wait(1);
 ColumnSwitcherObject = graph << Column Switcher( :Y1,{:Y1, :Y2});

但不起作用：\

回复：創建列切換器 - 腳本 JMP

嘗試參考控製圖而不是新窗口。 它可能會有所幫助

 

graph = New Window(chart_title,
 cc = Control Chart(

然後嘗試

ColumnSwitcherObject = cc<< Column Switcher( :Y1,{:Y1, :Y2});

 

回复：創建列切換器 - 腳本 JMP

偉大的！ 這是工作！

但是，我在代碼中添加了替代項，因為我想應用特定的 Ksigma：

 

 SubstituteInto(graph, Expr(TBD), z_KSigmaZ);
 ColumnSwitcherObject = graph << Column Switcher( :Y1,{:Y1, :Y2} );

並創建了兩個窗口...

你知道有沒有辦法用 ColumSwitchersObject 只創建一個窗口？

 

非常感謝您的回答

 

回复：創建列切換器 - 腳本 JMP

在不知道腳本的外觀的情況下，這是我通常使用的解決方案：

Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Quality Control/Coating.jmp");

ksigma = 0.1;

Eval(EvalExpr(nw = New Window("window",
 obj = dt << Control Chart Builder(K Sigma(Expr(ksigma)), Variables(Subgroup(:Sample), Y(:Weight)));
)));

Wait(1);
ColumnSwitcherObject = obj << Column Switcher(:Weight, {:Pin, :"Weight 2"n});