943038_es-ES

liliconcom

Actualización de límites de control para gráficos de control

Soy principiante en JMP Pro, JMP Live y JSL. Mi problema es el siguiente: tengo un script de actualización que obtiene correctamente los límites de especificación de una base de datos en SSMS y los aplica a las propiedades de las columnas. Quiero empezar a obtener datos de otra tabla para aplicar límites de control individuales a todas las variables de proceso del conjunto de datos. Al añadir los bloques que creo que son los correctos, se establecen los límites de especificación, pero los límites de control no se aplican. No hay errores ni nada en el registro, así que sé que ignora silenciosamente los nuevos bloques, pero no entiendo qué significa eso.

¡Si alguien pudiera orientarme, se lo agradecería enormemente!

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;

Editar (jthi): Se agregó formato jsl (dejé el script original en un bloque de spoiler ya que faltaban muchos corchetes que tuve que corregir).

Ver más...

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 = Abrir base de datos(
"BASE DE DATOS=XXXXXXXXXXXXXX;
CONTROLADOR={SQL Server};
PWD=%_PWD_%;
SERVIDOR=XXX-XXXXX;
CERTIFICADO DE SERVIDOR DE CONFIANZA=Sí;
UID=%_UID_%;",
consulta_sql_main
);

límites = Abrir base de datos(
"BASE DE DATOS=XXXXXXXXXXXXXX;
CONTROLADOR={SQL Server};
PWD=%_PWD_%;
SERVIDOR=XXX-XXX-XXXXX;;
CERTIFICADO DE SERVIDOR DE CONFIANZA=Sí;
UID=%_UID_%;",
límites_de_consulta_sql
);

Control = Abrir base de datos(
"BASE DE DATOS=XXXXXXXXXXXXXX;
CONTROLADOR={SQL Server};
PWD=%_PWD_%;
SERVIDOR=XXX-XXXXXX;;
CERTIFICADO DE SERVIDOR DE CONFIANZA=Sí;
UID=%_UID_%;",
Control de consulta SQL
);

Columna( principal, "DateTimeStampUnique" ) << Establecer propiedad( "Etiqueta", 1 );
principal << Establecer columnas de etiquetas ( :DateTimeStampUnique );

// Referencias
dtMain = principal;
dtLimits = límites;
dtControl = Control;

Para cada fila (dtLimits,
variable = dtLimits:Variable[];
lsl = dtLimits:LSL[];
objetivo = dtLimits:Target[];
usl = dtLimits:USL[];

Eval( Eval Expr(
Columna( dtMain, variable ) <<
Establecer propiedad(
"Límites de especificación",
{LSL( Expr( lsl ) ), Target( Expr( target ) ), USL( Expr( usl ) ), Show Limits( 1 )}
)
));

Si(
Contiene( dtMain << Obtener nombres de columna, variable ),
Columna( dtMain, variable ) << Establecer propiedad(
"Límites de especificación",
{LSL( lsl ), Objetivo( objetivo ), USL( usl )}
)

Para cada fila (dtControl,
variable = dtControl:Variable[];
Promedio = dtControl:Promedio[];
LCL = dtControl:LCL[];
UCL = dtControl:UCL[];

Eval( Eval Expr(
Columna( dtMain, variable ) <<
Establecer propiedad(
"Límites de control",
{Avg( Expr( Avg ) ), LCL( Expr( LCL ) ), UCL( Expr( UCL ) ), Show Limits( 1 )}
)
));

Si(
Contiene( dtMain << Obtener nombres de columna, variable ),
Columna( dtMain, variable ) << Establecer propiedad(
"Límites de control",
{AVG(), LCL(), UCL()}

)
);
);

dtMain;

Automatización y secuencias de comandos

Re: Actualización de límites de control para gráficos de control

Apuesto a que esto funcionaría si especificas el tipo de gráfico de control, así que en lugar de

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

intentar

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

(Sustituya "XBar" por el tipo de gráfico de control que desee)

Además, creo que deberías intentar comentar las sentencias If() redundantes que intentan asignar los límites de especificación y los límites de control después de haberlo hecho ya. Comprueba si funciona como esperas.

Re: Actualización de límites de control para gráficos de control

El código JSL que proporcionaste tiene errores de sintaxis. Al intentar reformatearlo, falla en la línea 67 por no tener un punto y coma al final de la línea anterior. Tras corregirlo, falla por no encontrar el paréntesis de cierre ")" para los distintos bloques "For Each Row". Esto dificulta la depuración, ya que sin que los bloques "For" estén correctamente cerrados, es muy difícil comprender la lógica del programa.

Por favor, corrija estos errores y vuelva a enviar el formulario.

Además, utilice el icono JSL que se encuentra en la parte superior de la ventana de entrada para insertar su código JSL en el foro de discusión. Esto permitirá que el lector evalúe mejor su código.

Re: Actualización de límites de control para gráficos de control

Esto, sumado a otra respuesta, ha sido de ayuda. Ahora, el sistema de clasificación de advertencias en JMP Live sigue mostrando un error indicando que los límites deben ser estáticos, pero están configurados según las definiciones del usuario.