Salut tout le monde,
Je fais une carte P' de Laney avec JMP 16.2. (Je sais que ce tableau est disponible avec la nouvelle version de JMP, cependant je n'ai pas cette nouvelle version).
Je ne sais pas pourquoi mais quand j'ai moins de 10 valeurs, l'échelle des X n'est pas adaptée.
L'échelle X est paramétrée pour 10 valeurs (quelque soit le nombre de valeurs s'il est inférieur à 10), et quand j'ai plus de 10 valeurs l'échelle X est en cours d'adaptation.
Voici mon programme
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;
);
)Est-ce que quelqu'un a une suggestion pour m'aider?
Merci
Sébastien
