Hola a todos,
Estoy haciendo un gráfico P' de Laney con JMP 16.2. (Sé que este gráfico está disponible con la nueva versión de JMP, sin embargo, no tengo esta nueva versión).
No sé por qué burro cuando tengo menos de 10 valores, la escala X no está adaptada.
La escala de X está configurada para 10 valores (cualquiera que sea el número de valores si es inferior a 10), y cuando tengo más de 10 valores la escala de X se va adaptando.
Aquí está mi programa
z_yyy = Eval( {:"Y"n} );
z_xx = z_yyy[1] << get values;
z_nnn = Eval( {:Nombre de seringue transmise par le remplissage} );
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;
Names Default To Here( 1 );
Graph_expr=Expr(
graph1 = Control Chart(
Sample Label( :X ),
Sample Size( :Y2 ),
KSigma(TBD),
Sort by Row Order( 1 ),
Chart Col( :"Y"n, P( Test Beyond Limits( 1 ), Limits Precision( 1 ) ) ),
SendToReport(
Dispatch(
{},
"Y",
OutlineBox,
{Set Title( "Carte de controle P'" )}
),
Dispatch(
{"Y"},
"2",
ScaleBox,
{Format( "Fixed Dec", 12, 5 ), Min( -0.05 ), Max( 1.05 ), Inc( 0.1 ),
Minor Ticks( 9 )}
),
Dispatch(
{"Y"},
"1",
ScaleBox,
{Min( 0.5 ), Inc( 1 ), Minor Ticks( 0 )}
),
Dispatch(
{"Y"},
"",
AxisBox,
{Add Axis Label( "XX" )}
)
)));
SubstituteInto(Graph_expr, Expr(TBD), z_KSigmaZ);
Graph_expr;
);
)¿Alguien tiene alguna sugerencia para ayudarme?
Gracias
Sebastián
