478534_ja-JP

liliconcom

JMP Script: 係数に適用された列スイッチャー

こんにちは、みんな、

このスクリプトで作成された別の計算で列スイッチャーを作成しようとしています:

  //Calcul du Zsigma
z_yyy = Eval( {<STRONG>:"Y1"n</STRONG>} );
z_xx = z_yyy[1] << get values;
z_nnn = Eval( {:Nombre de seringues} );
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;
//

次に、列スイッチャーを次に示します。

Column = z_yyy << Column Switcher( :"Y1"n,{:"Y1"n, :"Y2"n, :"Y3"n, :"Y4"n ,"Y5"n ,"Y6"n});

ただし、列スイッチャーがオブジェクトに適用されていないため、メッセージ エラーが表示されます...

 

私を助けるための提案はありますか？

 

セバスチャン

スクリプティングRe: JMP Script: 係数に適用された列スイッチャー

素晴らしい！ それは本当にうまくいっています！

助けてくれてありがとう:)

セバスチャン

Re: JMP Script: 係数に適用された列スイッチャー

私はあなたが本当に使う必要があると信じています

    z_yyy = Eval(column(currCol)<<GET name=""></GET>

ait は、選択した列から値を返します

Re: JMP Script: 係数に適用された列スイッチャー

これを試してみて、うまくいくかどうかを確認してください。それは私にとってはうまくいったようです。 z_xx 割り当てに関するログにいくつかの警告がありましたが、実際には問題なく割り当てられました。 以下の私の例では、Y3 = Y2 の新しい列を作成しました。

 

ログ警告:

Send は 'Send' のアクセスまたは評価で Scriptable Object を予期します , z_yyy << /*###*/get values/*###*/

16行目

 

names default to here(1);
dt = current data table();

colList = {"Y1", "Y2", "Y3"};


new window("Calculations",
 hlb = hlistbox(
  clb = col list box(dt, max selected(1),
   on change(
    try(calcVlb << delete());
    currCol = clb << get selected();
    //currColName = char(currCol[1]);
    
    z_yyy = Eval(column(currCol));// Eval( {currCol} );
    z_xx = z_yyy << get values;
    z_nnn = Eval( {:Nombre de seringues} );  //change back
    z_nn = z_nnn[1] << get values;
    z_rrr = Eval( {:Numéro de lot} );    //change back

    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;

    show(currCol[1]);
    show(z_KSigmaZ);

    hlb << append(
     calcVlb = vlistbox(
      textbox("Variables updated to column " || currCol[1]);
     )
    );
    
    /*calcVlb << append(
     Distribution(
      Stack( 1 ),
      Continuous Distribution(
       Column( column(currCol[1])),
       Horizontal Layout( 1 ),
       Vertical( 0 ),
       PpK Capability Labeling( 0 ),
       Customize Summary Statistics(
        Std Err Mean( 0 ),
        Upper Mean Confidence Interval( 0 ),
        Lower Mean Confidence Interval( 0 ),
        N Missing( 1 ),
        Range( 1 )
       )
      )
     );
    );*/
    Graph_exprall=Expr(
     calcVlb << append(
      Graphall = Control Chart(
        Sample Label( :Nombre de seringues ),
        Sample Size( :Numéro de lot ),
        KSigma(TBD),
        Sort by Row Order( 1 ),
       Chart Col( column(currCol[1]), P( Test Beyond Limits( 1 ), Limits Precision( 1 ), LCL( -3 ) ) ),
      SendToReport(
      Dispatch(
       {},
       String_TBD,
       OutlineBox,
       {Set Title( "p'-chart, Proportion de défaut" )}
      ),
      Dispatch(
       {String_TBD},
       "2",
       ScaleBox,
       {Format( "Fixed Dec", 12, 5 ), Min( -0.00025 ), Max( 0.0025 ),
       Inc( 0.00025 ), Minor Ticks( 1 )}
      ),
      Dispatch(
       {String_TBD},
       "1",
       ScaleBox,
       {Min( 0.5 ), Inc( 1 ), Minor Ticks( 0 )}
      ),
      Dispatch(
       {String_TBD},
       "",
       AxisBox,
       {Add Axis Label( "Taux de défauts (srg)" )}
      )));
      //ColumnSwitcherObject = graphall << Column Switcher( :"Y1"n,{:"Y2"n, :"Y3"n, :"Y4"n, :"Y5"n ,"Y6"n ,"Y7"n}); 
     );
    );

    // On affecte le SigmaZ à la carte de controle
    olbString = "P of " || currCol[1];

    SubstituteInto(Graph_exprall, Expr(TBD), z_KSigmaZ);
    SubstituteInto(Graph_exprall, Expr(String_TBD), olbString);
    Graph_exprall;

    
   )
  )
 )
);



clb << append(colList);
clb << set selected(1);

Re: JMP Script: 係数に適用された列スイッチャー

私はこの式で試しました：

Kシグマ(TBD)、

 

ただし、colList が選択されているグラフでは、KSigma は更新されません。

ただし、グラフは列 (スイッチャー) が選択された状態で更新されます。

 

私を助けるアイデアはありますか？

 

データセットの例が添付されています。

Re: JMP Script: 係数に適用された列スイッチャー

デバッグ用にデータセットを設定していないためわかりませんが、式のコードを変更し、TBD を削除して、変数自体に置き換えました。 TBD に戻してみることができます。

 

      KSigma(z_KSigmaZ),

Re: JMP Script: 係数に適用された列スイッチャー

やあ、

あなたの答えをありがとう、それは私を大いに助けます。

そして、私はほとんどそこにいると思います。

機能しないことが 1 つだけあります。作成されたグラフで z_KSigmaZ が更新されません...

これが私のコードです：

 

colList = {"Y1", "Y2", "Y3"};

new window("Calculations",
 hlb = hlistbox(
  clb = col list box(dt, max selected(1),
   on change(
    try(calcVlb << delete());
    currCol = clb << get selected();
    currColName = char(currCol[1]);
    
    z_yyy = Eval(column(currCol));// Eval( {currCol} );
    z_xx = z_yyy << get values;
    z_nnn = Eval( {:Nombre de seringues} );  //change back
    z_nn = z_nnn[1] << get values;
    z_rrr = Eval( {:Numéro de lot} );    //change back

    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;

    show(currCol[1]);
    show(z_Proportion);

    hlb << append(
     calcVlb = vlistbox(
      textbox("Variables updated to column " || currCol[1]);
     )
    );
    
    /*calcVlb << append(
     Distribution(
      Stack( 1 ),
      Continuous Distribution(
       Column( column(currCol[1])),
       Horizontal Layout( 1 ),
       Vertical( 0 ),
       PpK Capability Labeling( 0 ),
       Customize Summary Statistics(
        Std Err Mean( 0 ),
        Upper Mean Confidence Interval( 0 ),
        Lower Mean Confidence Interval( 0 ),
        N Missing( 1 ),
        Range( 1 )
       )
      )
     );
    );*/
  
Graph_exprall=Expr(
    hlb << append(
    
    Graphall = Control Chart(
      Sample Label( :Numéro de lot ),
      Sample Size( :Nombre de seringues ),
      KSigma(z_KSigmaZ),
      Sort by Row Order( 1 ),
     Chart Col( column(currCol[1]), P( Test Beyond Limits( 1 ), Limits Precision( 1 )) ),
    SendToReport(
    Dispatch(
     {},
     "P of Y1",
     OutlineBox,
     {Set Title( "p'-chart, Proportion de défaut" )}
    ),
    Dispatch(
     {"P of Y1"},
     "2",
     ScaleBox,
     {Format( "Fixed Dec", 12, 5 ), 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 (srg)" )}
    )));
    ColumnSwitcherObject = graphall << Column Switcher( :"Y1"n,{:"Y1"n, :"Y2"n, :"Y3"n}); 
    
    );

       
    );
   
   )
  )
 )
);

clb << append(colList);
clb << set selected(1);

SubstituteInto(Graph_exprall, Expr(TBD), z_KSigmaZ);
Graph_exprall;

z_KSigmaZ はよく計算されていますが、作成されたグラフには適用されません...

から来ていると思います。 SubstituteInto(Graph_exprall, Expr(TBD), z_KSigmaZ);

それを手伝ってもらえますか？

 

どうもありがとう。

 

Re: JMP Script: 係数に適用された列スイッチャー

申し訳ありませんが、これはあまり役に立たないかもしれません。 データセットが管理図にあまり適しておらず、適切なデータ セットでデバッグする時間がなかったため、管理図コードにエラーがありました。 しかし、これを使用して管理図コードをデバッグできる場合があります。管理図の代わりに配布プラットフォームでテストしたところ、問題なく動作しました。「on change()」コードを含む列リスト ボックスが列スイッチャーの代わりになるので、管理図コードに追加する必要がないことに注意してください。 列リスト ボックスから新しいパラメータ (列) を選択するたびに、削除されて再実行されます。

 

あなたがプロットも欲しがっているとは知りませんでした。 その場合は、カラム スイッチャーを使用する方が適している可能性があります。 選択が変更されたことを傍受する方法があり、コードを実行して変数を更新し、再プロットできます。 しかし、この col list box() アプローチも問題なく機能するはずです。

 

 

names default to here(1);
dt = open("$SAMPLE_DATA\Big Class.jmp");



// New columns, update big class for y1, y2, y3
Local( {dt},
 dt = Data Table( "Big Class" );
 dt << New Column( "Y1",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Selected
 ) << New Column( "Y2",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Selected
 ) << New Column( "Y3",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Selected
 ) << Begin Data Update;
 For Each Row(
  dt,
  :Y1 = Random Integer( 1, 40 );
  :Y2 = Random Integer( 1, 40 );
  :Y3 = Random Integer( 1, 40 );
 );
 dt << End Data Update;
);

colList = {"Y1", "Y2", "Y3"};



new window("Calculations",
 hlb = hlistbox(
  clb = col list box(dt, max selected(1),
   on change(
    try(calcVlb << delete());
    currCol = clb << get selected();
    currColName = char(currCol[1]);
    
    z_yyy = Eval(column(currCol));// Eval( {currCol} );
    z_xx = z_yyy << get values;
    z_nnn = Eval( {:weight} );  //change back
    z_nn = z_nnn[1] << get values;
    z_rrr = Eval( {:age} );    //change back

    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;

    show(currCol[1]);
    show(z_Proportion);

    hlb << append(
     calcVlb = vlistbox(
      textbox("Variables updated to column " || currCol[1]);
     )
    );
    
    calcVlb << append(
     Distribution(
      Stack( 1 ),
      Continuous Distribution(
       Column( column(currCol[1])),
       Horizontal Layout( 1 ),
       Vertical( 0 ),
       PpK Capability Labeling( 0 ),
       Customize Summary Statistics(
        Std Err Mean( 0 ),
        Upper Mean Confidence Interval( 0 ),
        Lower Mean Confidence Interval( 0 ),
        N Missing( 1 ),
        Range( 1 )
       )
      )
     );
    );
  //Graph_exprall=Expr(
/*
    hlb << append(
    Graphall = Control Chart(
      Sample Label( :weight ),
      Sample Size( :age ),
      KSigma(z_KSigmaZ),
      Sort by Row Order( 1 ),
     Chart Col( column(currCol[1]), P( Test Beyond Limits( 1 ), Limits Precision( 1 ), LCL( -3 ) ) ),
    SendToReport(
    Dispatch(
     {},
     "P of Y1",
     OutlineBox,
     {Set Title( "p'-chart, Proportion de défaut" )}
    ),
    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 (srg)" )}
    )));
    //ColumnSwitcherObject = graphall << Column Switcher( :"Y1"n,{:"Y2"n, :"Y3"n, :"Y4"n, :"Y5"n ,"Y6"n ,"Y7"n}); 
  //  );

    // On affecte le SigmaZ à la carte de controle
  //  SubstituteInto(Graph_exprall, Expr(TBD), z_KSigmaZ);
  //  Graph_exprall;    
    );
    */
   )
  )
 )
);



clb << append(colList);
clb << set selected(1);

Re: JMP Script: 係数に適用された列スイッチャー

素晴らしい！ それは私のスクリプトに取り組んでいます！

しかし、その後、新たな問題が発生しました

作ったグラフが計算された係数で更新されていない…

これが私の例です。

 

colList = {"Y1", "Y2", "Y3"};
  new window("Calculations",
  hlb = hlistbox(
   clb = col list box(dt, max selected(1),
    on change(
     try(calcVlb << delete());
     currCol = clb << get selected();
     currColName = char(currCol[1]);
     
     z_yyy = Eval(column(currCol));// Eval( {currCol} );
     z_xx = z_yyy << get values;
     z_nnn = Eval( {:Nombre de seringues} );
     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;

     show(currCol[1]);
     show(z_Proportion);
     show(z_KSigmaZ);
     
     hlb << append(
      calcVlb = vlistbox(
       textbox("Variables updated to column " || currCol[1]);
      )
     )
    )
   )
  )
 );
// Creation des cartes
 clb << append(colList);
 clb << set selected(1);

z_KSigmaZ は、変数ごとに必要に応じて更新されます。

しかし、次に、このグラフを作成したいと思います。

 Graph_exprall=Expr(
  Graphall = Control Chart(
    Sample Label( :Numéro de lot ),
    Sample Size( :Nombre de seringues ),
    KSigma(TBD),
    Sort by Row Order( 1 ),
   Chart Col( :"Y1"n, P( Test Beyond Limits( 1 ), Limits Precision( 1 ), LCL( -3 ) ) ),
  SendToReport(
  Dispatch(
   {},
   "P of Y1",
   OutlineBox,
   {Set Title( "p'-chart, Proportion de défaut" )}
  ),
  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 (srg)" )}
  )));
  ColumnSwitcherObject = graphall << Column Switcher( :"Y1"n,{:"Y2"n, :"Y3"n, :"Y4"n, :"Y5"n ,"Y6"n ,"Y7"n}); 
  );

  // On affecte le SigmaZ à la carte de controle
  SubstituteInto(Graph_exprall, Expr(TBD), z_KSigmaZ);
  Graph_exprall;

計算された新しい z_KSigmaZ 係数でグラフを更新する方法はありますか?

z_KSigmaZ 係数と管理図ウィンドウ内の変数選択を設定した方が良いと思います。

それを手伝ってもらえますか？

 

どうもありがとう。

 

Re: JMP Script: 係数に適用された列スイッチャー

こんにちはセバスチャン、

列のリストをクリックしたときに、JMP にこれらの計算 (変数) を更新させたいようです。 あれは正しいですか？ その場合、以下のコードは col リスト ボックスを使用してこれを実現します。最初のビットは、Y1、Y2、および Y3 列を持つようにサンプル テーブルをセットアップするだけです。次に、列リスト ボックスを含む新しいウィンドウを作成し、列のリストを入力します。 選択可能な列の最大数 == 1 になるようにします。 選択が変更されると、再計算されます。グラフィックを追加できる calcVlb という av list box() があります。 次の選択に変更すると、新しい選択に置き換える前に古い選択が削除されます。 現時点では、例としてテキスト ボックスを追加するだけです。

 

names default to here(1);
dt = open("$SAMPLE_DATA\Big Class.jmp");



// New columns, update big class for y1, y2, y3
Local( {dt},
 dt = Data Table( "Big Class" );
 dt << New Column( "Y1",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Selected
 ) << New Column( "Y2",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Selected
 ) << New Column( "Y3",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Selected
 ) << Begin Data Update;
 For Each Row(
  dt,
  :Y1 = Random Integer( 1, 40 );
  :Y2 = Random Integer( 1, 40 );
  :Y3 = Random Integer( 1, 40 );
 );
 dt << End Data Update;
);

colList = {"Y1", "Y2", "Y3"};



new window("Calculations",
 hlb = hlistbox(
  clb = col list box(dt, max selected(1),
   on change(
    try(calcVlb << delete());
    currCol = clb << get selected();
    currColName = char(currCol[1]);
    
    z_yyy = Eval(column(currCol));// Eval( {currCol} );
    z_xx = z_yyy << get values;
    z_nnn = Eval( {:weight} );  //change back
    z_nn = z_nnn[1] << get values;
    z_rrr = Eval( {:age} );    //change back

    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;

    show(currCol[1]);
    show(z_Proportion);

    hlb << append(
     calcVlb = vlistbox(
      textbox("Variables updated to column " || currCol[1]);
     )
    )
   )
  )
 )
);



clb << append(colList);
clb << set selected(1);

 

Re: JMP Script: 係数に適用された列スイッチャー

Column Switcher 機能は、Graph Builder や Bivariate などの JMP プラットフォームの一部です。 これはマトリックスの機能ではありません。 データ テーブルにデータ列は作成されません。

 

マトリックスを使用してデータ テーブルを作成し、データ列を分析ロールに割り当ててプラットフォームを起動し、列スイッチャー機能を有効にする必要があります。