478534_it-IT

liliconcom

Script JMP: commutatore di colonna applicato su un coefficiente

Ciao a tutti,

Sto cercando di creare un commutatore di colonna su diversi calcoli effettuati da questo 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;
//

E poi, ecco il cambio di colonna:

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

Tuttavia, ricevo un messaggio di errore perché il cambio di colonna non è applicato a un oggetto...

 

Hai qualche suggerimento per aiutarmi?

 

Sebastiano

ScriptingRe: JMP Script: cambio di colonna applicato su un coefficiente

Grande! Funziona davvero bene!

Grazie mille per il vostro aiuto

Sebastiano

Re: JMP Script: cambio di colonna applicato su un coefficiente

Credo che ciò di cui hai veramente bisogno sia

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

ait restituirà i valori dalla colonna selezionata

Re: JMP Script: cambio di colonna applicato su un coefficiente

Puoi provarlo e vedere se funziona per te.Sembrava funzionare bene per me. Ho ricevuto alcuni avvisi nel registro sull'assegnazione z_xx, ma in realtà è stato assegnato correttamente. Nel mio esempio qui sotto ho creato una nuova colonna dove Y3 = Y2.

 

Avviso di registro:

Invia prevede un oggetto con script in accesso o valutazione di 'Invia' , z_yyy << /*####*/get values/*####*/

alla riga 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: cambio di colonna applicato su un coefficiente

Ho provato con questa espressione:

KSigma(TBD),

 

ma KSigma non viene aggiornato sul grafico con la colList selezionata.

Tuttavia il grafico viene aggiornato con la colonna (commutatore) selezionata.

 

Qualche idea per aiutarmi?

 

In allegato troverai un esempio di set di dati.

Re: JMP Script: cambio di colonna applicato su un coefficiente

Non sono sicuro perché non ho impostato un set di dati per eseguirne il debug, ma ho modificato il codice nell'espressione e rimosso il TBD e l'ho sostituito con la variabile stessa. Puoi provare a cambiarlo di nuovo in TBD.

 

      KSigma(z_KSigmaZ),

Re: JMP Script: cambio di colonna applicato su un coefficiente

CIAO,

Grazie per la tua risposta, mi aiuta molto.

E penso di essere quasi arrivato.

C'è solo una cosa che non funziona, lo z_KSigmaZ non è aggiornato sul grafico realizzato...

Ecco il mio codice:

 

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;

Lo z_KSigmaZ è ben calcolato, tuttavia non viene applicato sul grafico realizzato...

Penso che derivi dal SubstituteInto(Graph_exprall, Expr(TBD), z_KSigmaZ);

Puoi aiutarmi con quello?

 

Molte grazie.

 

Re: JMP Script: cambio di colonna applicato su un coefficiente

Siamo spiacenti, questo potrebbe non essere molto utile. Ho riscontrato errori nel codice del grafico di controllo perché il set di dati non è realmente adatto a un grafico di controllo e non ho avuto il tempo di eseguire il debug con un set di dati adeguato. Ma potresti essere in grado di usarlo ed eseguire il debug del codice del grafico di controllo.L'ho appena testato con la piattaforma di distribuzione anziché con la carta di controllo e ha funzionato bene.Tieni presente che la casella di riepilogo col con il codice "on change ()" prende il posto del commutatore di colonna, quindi non è necessario aggiungerlo al codice del grafico di controllo. Viene semplicemente cancellato e rieseguito ogni volta che si seleziona un nuovo parametro (colonna) dalla casella di riepilogo delle colonne.

 

Non avevo capito che volevi anche delle trame. In tal caso, potrebbe essere stato più appropriato utilizzare un commutatore di colonna. Ci sono modi per intercettare che la selezione è cambiata e puoi eseguire il codice per aggiornare le tue variabili e ri-tracciare. Ma anche questo approccio col list box() dovrebbe funzionare bene.

 

 

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: cambio di colonna applicato su un coefficiente

Grande! Sta lavorando alla mia sceneggiatura!

Ma poi, ho un nuovo problema:\

Il grafico che ho fatto non è aggiornato con il coefficiente calcolato...

Ecco di nuovo il mio esempio:

 

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

Lo z_KSigmaZ viene aggiornato come volevo per ogni variabile.

Ma poi, vorrei creare questo grafico:

 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;

C'è un modo per aggiornare il grafico con il nuovo coefficiente z_KSigmaZ calcolato?

Penso che sarebbe meglio impostare il coefficiente z_KSigmaZ e la selezione delle variabili all'interno della finestra del grafico di controllo.

Puoi aiutarmi con quello?

 

Molte grazie.

 

Re: JMP Script: cambio di colonna applicato su un coefficiente

Ciao Sebastiano,

Sembra che tu voglia che JMP aggiorni quei calcoli (variabili) quando fai clic su un elenco di colonne. È corretto? In tal caso, il codice seguente utilizza una casella di riepilogo col per eseguire questa operazione.Il primo bit è solo l'impostazione di una tabella di esempio per avere colonne Y1, Y2 e Y3.Quindi crea una nuova finestra con una casella di riepilogo colonne e popolala con l'elenco di colonne. Fallo in modo che abbia un numero massimo di colonne selezionabili == 1. Quando la selezione cambia, verrà ricalcolata.C'è una casella di riepilogo av() chiamata calcVlb a cui puoi aggiungere elementi grafici. Quando passi alla selezione successiva, cancellerà quella vecchia prima di sostituirla con quella nuova. Al momento, aggiunge solo una casella di testo come esempio.

 

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

 

Ri: Script JMP: commutatore di colonna applicato su un coefficiente

La funzione Column Switcher fa parte di una piattaforma JMP come Graph Builder o Bivariate. Non è una caratteristica di una matrice. Non crea una colonna di dati in una tabella di dati.

 

È necessario creare una tabella di dati con la matrice, avviare una piattaforma assegnando colonne di dati ai ruoli di analisi e quindi abilitare la funzione di cambio colonna.