943038_fr-FR

liliconcom

Actualisation des limites de contrôle pour les cartes de contrôle

Je suis novice en matière de JMP Pro, JMP Live et JSL. Voici mon problème : j'ai un script d'actualisation qui extrait correctement les limites de spécification d'une base de données SSMS et les applique aux propriétés des colonnes. Je souhaite maintenant extraire les données d'une autre table afin d'appliquer des limites de contrôle individuelles à toutes les variables de processus de l'ensemble de données. Lorsque j'ajoute ce qui me semble être les blocs appropriés, les limites de spécification sont bien définies, mais les limites de contrôle ne sont pas prises en compte. Aucun message d'erreur n'apparaît dans les journaux, je sais donc que les nouveaux blocs sont ignorés, mais je n'en comprends pas la signification.

Si quelqu'un pouvait m'indiquer la marche à suivre, ce serait grandement apprécié !

sql_query_main = " SELECT * FROM jmpTop30WideView WHERE Product LIKE '1/2 RS' AND TestType IN ('Retest', 'Hot')";
sql_query_limits = "SELECT Property AS Variable, LSL, Target, USL FROM ProductSpecsLongView WHERE [Product] LIKE '1/2 RS' ";
sql_query_Control = "SELECT Property AS Variable, Avg, LCL, UCL FROM ControlLimitsTable WHERE [Product] LIKE '1/2 RS' ";

main = Open Database(
	"DATABASE=XXXXXXXXXXXXXX;
DRIVER={SQL Server};
PWD=%_PWD_%;
SERVER=XXX-XXXXX;
TRUSTSERVERCERTIFICATE=Yes;
UID=%_UID_%;",
	sql_query_main
);

limits = Open Database(
	"DATABASE=XXXXXXXXXXXXXX;
DRIVER={SQL Server};
PWD=%_PWD_%;
SERVER=XXX-XXX-XXXXX;;
TRUSTSERVERCERTIFICATE=Yes;
UID=%_UID_%;",
	sql_query_limits
);

Control = Open Database(
	"DATABASE=XXXXXXXXXXXXXX;
DRIVER={SQL Server};
PWD=%_PWD_%;
SERVER=XXX-XXXXXX;;
TRUSTSERVERCERTIFICATE=Yes;
UID=%_UID_%;",
	sql_query_Control
);

Column(main, "DateTimeStampUnique") << Set Property("Label", 1);
main << Set Label Columns(:DateTimeStampUnique);

// References
dtMain = main;
dtLimits = limits;
dtControl = Control;

For Each Row(
	dtLimits,
	variable = dtLimits:Variable[];
	lsl = dtLimits:LSL[];
	target = dtLimits:Target[];
	usl = dtLimits:USL[];

	Eval(Eval Expr(Column(dtMain, variable) << Set Property("Spec Limits", {LSL(Expr(lsl)), Target(Expr(target)), USL(Expr(usl)), Show Limits(1)})));

	If(Contains(dtMain << Get Column Names, variable),
		Column(dtMain, variable) << Set Property("Spec Limits", {LSL(lsl), Target(target), USL(usl)})
	);
);

For Each Row(
	dtControl,
	variable = dtControl:Variable[];
	Avg = dtControl:Avg[];
	LCL = dtControl:LCL[];
	UCL = dtControl:UCL[];

	Eval(Eval Expr(Column(dtMain, variable) << Set Property("Control Limits", {Avg(Expr(Avg)), LCL(Expr(LCL)), UCL(Expr(UCL)), Show Limits(1)})));

	If(Contains(dtMain << Get Column Names, variable),
		Column(dtMain, variable) << Set Property(
			"Control Limits",
			{AVG(), LCL(), UCL()}

		)
	);
);

dtMain;

Modification (jthi) : Ajout de la mise en forme JSL (j’ai laissé le script original dans la balise spoiler car il manquait de nombreuses parenthèses que j’ai dû corriger).

Voir plus...

sql_query_main = " SELECT * FROM jmpTop30WideView WHERE Product LIKE '1/2 RS' AND TestType IN ('Retest', 'Hot')";
sql_query_limits = "SELECT Property AS Variable, LSL, Target, USL FROM ProductSpecsLongView WHERE [Product] LIKE '1/2 RS' ";
sql_query_Control = "SELECT Property AS Variable, Avg, LCL, UCL FROM ControlLimitsTable WHERE [Product] LIKE '1/2 RS' ";

principal = Ouvrir la base de données(
"BASE DE DONNÉES=XXXXXXXXXXXXXX;
PILOTE={SQL Server};
PWD=%_PWD_%;
SERVEUR=XXX-XXXXX;
CERTIFICAT DE CONFIANCE DU SERVEUR=Oui ;
UID=%_UID_%;",
sql_query_main
);

limites = Ouvrir la base de données(
"BASE DE DONNÉES=XXXXXXXXXXXXXX;
PILOTE={SQL Server};
PWD=%_PWD_%;
SERVEUR=XXX-XXX-XXXXX;;
CERTIFICAT DE CONFIANCE DU SERVEUR=Oui ;
UID=%_UID_%;",
limites de requête SQL
);

Contrôle = Ouvrir la base de données(
"BASE DE DONNÉES=XXXXXXXXXXXXXX;
PILOTE={SQL Server};
PWD=%_PWD_%;
SERVEUR=XXX-XXXXXX;;
CERTIFICAT DE CONFIANCE DU SERVEUR=Oui ;
UID=%_UID_%;",
sql_query_Control
);

Colonne( main, "DateTimeStampUnique" ) << Définir la propriété( "Label", 1 );
main << Définir les colonnes d'étiquettes( :DateTimeStampUnique );

// Références
dtMain = main;
dtLimits = limites ;
dtControl = Contrôle;

Pour chaque ligne( dtLimits,
variable = dtLimits:Variable[];
lsl = dtLimits:LSL[];
cible = dtLimits:Cible[];
usl = dtLimits:USL[];

Évaluer( Évaluer Expr(
Colonne( dtMain, variable ) <<
Définir la propriété (
"Limites de spécification",
{LSL( Expr( lsl ) ), Target( Expr( target ) ), USL( Expr( usl ) ), Show Limits( 1 )}
)
));

Si(
Contient( dtMain << Obtenir les noms de colonnes, variable ),
Colonne( dtMain, variable ) << Définir la propriété(
"Limites de spécification",
{LSL( lsl ), Cible( cible ), USL( usl )}
)

Pour chaque ligne( dtControl,
variable = dtControl:Variable[];
Moyenne = dtControl:Moyenne[];
LCL = dtControl:LCL[];
UCL = dtControl:UCL[];

Évaluer( Évaluer Expr(
Colonne( dtMain, variable ) <<
Définir la propriété (
"Limites de contrôle",
{Moyenne(Expr(Moyenne)), LCL(Expr(LCL)), UCL(Expr(UCL)), Afficher les limites(1)}
)
));

Si(
Contient( dtMain << Obtenir les noms de colonnes, variable ),
Colonne( dtMain, variable ) << Définir la propriété(
"Limites de contrôle",
{AVG(), LCL(), UCL()}

)
);
);

dtMain;

Automatisation et scriptage

Re: Actualisation des limites de contrôle pour les cartes de contrôle

Je parie que cela fonctionnerait si vous spécifiez le type de carte de contrôle, donc au lieu de

 << Set Property( "Control Limits", {Avg( Expr( Avg ) ), LCL( Expr( LCL ) ), UCL( Expr( UCL ) ), Show Limits( 1 )} )t

essayer

<< Set Property( "Control Limits", {XBar( Avg( Expr( Avg ) ), LCL( Expr( LCL ) ), UCL( Expr( UCL ) ), Show Limits( 1 ) )} )

(en remplaçant « XBar » par le type de graphique de contrôle souhaité)

De plus, je pense que vous devriez essayer de commenter vos instructions If() redondantes qui tentent d'assigner les limites de spécification et de contrôle après l'avoir déjà fait. Voyez si cela fonctionne comme vous le souhaitez.

Re: Actualisation des limites de contrôle pour les cartes de contrôle

Le JSL que vous avez fourni contient des erreurs de syntaxe. Lorsque j'ai tenté de le reformater, l'exécution a échoué à la ligne 67, car la ligne précédente ne se terminait pas par un point-virgule. Une fois cette erreur corrigée, l'exécution a de nouveau échoué, car les boucles « For Each Row » ne contenaient pas de parenthèse fermante. Cela m'empêche de déboguer correctement, car sans ces boucles, il est très difficile de comprendre le fonctionnement du programme.

Veuillez corriger ces erreurs puis soumettre à nouveau.

Veuillez également utiliser l'icône JSL en haut de la fenêtre de saisie pour insérer votre code JSL dans la discussion. Cela permettra au lecteur de mieux l'évaluer.

Re: Actualisation des limites de contrôle pour les cartes de contrôle

Cela complète une autre réponse et a été utile. Cependant, le système de triage des avertissements dans JMP Live continue de signaler que les limites doivent être statiques, alors qu'elles sont définies par l'utilisateur.