478534_es-ES

liliconcom

Script JMP: conmutador de columna aplicado en un coeficiente

Hola a todos,

Estoy tratando de hacer un conmutador de columna en diferentes cálculos realizados por este 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;
//

Y luego, aquí está el conmutador de columnas:

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

Sin embargo, aparece un mensaje de error porque el conmutador de columnas no se aplica a un objeto...

 

¿Tienes alguna sugerencia para ayudarme?

 

Sebastián

secuencias de comandosRe: JMP Script: Cambiador de columnas aplicado a un coeficiente

La función Column Switcher es parte de una plataforma JMP como Graph Builder o Bivariate. No es una característica de una matriz. No crea una columna de datos en una tabla de datos.

 

Debe crear una tabla de datos con la matriz, iniciar una plataforma asignando columnas de datos a roles de análisis y luego habilitar la función de cambio de columna.

Re: JMP Script: Cambiador de columnas aplicado a un coeficiente

Hola Sebastián,

Parece que desea que JMP actualice esos cálculos (variables) cuando hace clic en una lista de columnas. ¿Es eso correcto? Si es así, el siguiente código usa un cuadro de lista col para lograr esto.El primer bit es simplemente configurar una tabla de muestra para tener columnas Y1, Y2 e Y3.A continuación, cree una nueva ventana con un cuadro de lista de columnas y complétela con la lista de columnas. Hágalo para que tenga un número máximo de columnas seleccionables == 1. Cuando la selección cambie, se volverá a calcular.Hay un cuadro de lista av () llamado calcVlb al que puede agregar gráficos. Cuando cambie a la siguiente selección, eliminará la anterior antes de reemplazarla por la nueva. En este momento, solo agrega un cuadro de texto como ejemplo.

 

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: Cambiador de columnas aplicado a un coeficiente

¡Estupendo! ¡Está funcionando en mi guión!

Pero luego, tengo un nuevo problema: \

La gráfica que hice no se actualiza con el coeficiente calculado...

Aquí está mi ejemplo de nuevo:

 

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

El z_KSigmaZ se actualiza como quería para cada variable.

Pero entonces, me gustaría crear este gráfico:

 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;

¿Hay alguna forma de actualizar el gráfico con el nuevo coeficiente z_KSigmaZ calculado?

Creo que sería mejor configurar el coeficiente z_KSigmaZ y la selección de variables dentro de la ventana del gráfico de control.

¿Me puede ayudar con eso?

 

Muchas gracias.

 

Re: JMP Script: Cambiador de columnas aplicado a un coeficiente

Lo sentimos, esto puede no ser muy útil. Tuve errores en el código del gráfico de control porque el conjunto de datos no es realmente adecuado para un gráfico de control y no tuve tiempo de depurar con un conjunto de datos adecuado. Pero es posible que pueda usar esto y depurar el código del gráfico de control.Acabo de probarlo con la plataforma de distribución en lugar del gráfico de control y funcionó bien.Tenga en cuenta que el cuadro de lista de columnas con el código "al cambiar ()" ocupa el lugar del conmutador de columnas, por lo que no necesita agregarlo al código del gráfico de control. Simplemente se elimina y se vuelve a ejecutar cada vez que selecciona un nuevo parámetro (columna) del cuadro de lista de columnas.

 

No me di cuenta de que también querías parcelas. En ese caso, un conmutador de columna podría haber sido más apropiado para usar. Hay formas de interceptar que la selección ha cambiado y puede ejecutar código para actualizar sus variables y volver a trazar. Pero este enfoque de col list box() también debería funcionar bien.

 

 

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: Cambiador de columnas aplicado a un coeficiente

Hola,

Gracias por tu respuesta, me ayuda mucho.

Y creo que ya casi estoy.

Solo hay una cosa que no funciona, el z_KSigmaZ no esta actualizado en la grafica realizada...

Aquí está mi código:

 

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;

El z_KSigmaZ está bien calculado, sin embargo, no se aplica en el gráfico realizado...

creo que viene del SubstituteInto(Graph_exprall, Expr(TBD), z_KSigmaZ);

¿Me puede ayudar con eso?

 

Muchas gracias.

 

Re: JMP Script: Cambiador de columnas aplicado a un coeficiente

No estoy seguro porque no tengo un conjunto de datos configurado para depurarlo, pero cambié su código en la expresión, eliminé el TBD y lo reemplacé con la variable misma. Puedes intentar cambiarlo de nuevo a TBD.

 

      KSigma(z_KSigmaZ),

Re: JMP Script: Cambiador de columnas aplicado a un coeficiente

Probé con esta expresión:

KSigma (TBD),

 

pero el KSigma no se actualiza en el gráfico con colList seleccionado.

Sin embargo, el gráfico se actualiza con la columna (conmutador) seleccionada.

 

¿Alguna idea para ayudarme?

 

Encontrará adjunto un ejemplo de conjunto de datos.