Título de la ventana de visualización de ajuste ortogonal impredecibleEstoy realizando una serie de gráficos de Ajuste ortogonal utilizando un script jsl y debo enviar un mensaje a cada uno (quiero que el valor predeterminado cierre el cuadro de resultados del análisis). Sin embargo, el título de ese cuadro es impredecible porque contiene el valor de relación, cuyo formato varía según el orden de magnitud del valor. Algunos ejemplos se muestran a continuación. Relación de ajuste ortogonal = 0.000 Relación de ajuste ortogonal = 0.123 Relación de ajuste ortogonal = 1.234 Relación de ajuste ortogonal = 12.34 Relación de ajuste ortogonal = 1234 Relación de ajuste ortogonal = 12345 Relación de ajuste ortogonal = 1e + 6 ¿Cómo escribo el código para solucionar cualquiera de estas posibles eventualidades? ? La solución fácil sería si pudiera cerrar todas las casillas de análisis que comienzan con Ortogonal.Re: Título de la ventana de visualización de ajuste ortogonal imprevisibleCambie la última línea para buscar cuadros de contorno con la clave de ayuda correcta:
Names Default To Here( 1 );
// open data table
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
// create container for platform references
platform = List();
dt << New Column( "agenum", formula( Num( :age ) ) );
// launch platform
p = dt << Fit Group(
Bivariate( Y( :weight ), X( :height ), Fit Orthogonal( Univariate Variances, {Line Color( {213, 72, 87} )} ) ),
Bivariate( Y( :weight ), X( :agenum ), Fit Orthogonal( Univariate Variances, {Line Color( {213, 72, 87} )} ) ),
<<{Arrange in Rows( 2 )}
);
// save reference in the list
Insert Into( platform, p );
Wait( 1 );
// send message to all platforms
( platform << XPath("//OutlineBox[@helpKey='Bivar Ortho']") ) << Close( 1 );Re: Título de la ventana de visualización de ajuste ortogonal imprevisibleGracias. Lo que realmente quiero hacer se ilustra a continuación. La última línea no funcionará, pero la idea es cerrar la caja de análisis, no las gráficas reales. Normalmente puedo hacer esto para la mayoría de los cuadros de análisis (Ajustar línea, etc.), pero el Ajuste ortogonal tiene un problema especial porque el resultado del análisis está realmente incorporado en el nombre del cuadro.
Palmadita
Nombres predeterminados aquí (1);
// abrir tabla de datos
dt = Abrir ("$ SAMPLE_DATA / Big Class.jmp");
// crear contenedor para referencias de plataforma
plataforma = Lista ();
dt << Nueva columna ("agenum", fórmula (Num (: age)));
// plataforma de lanzamiento
p = dt << Fit Group (
Bivariada
Y (: peso),
X (: altura),
Ajuste ortogonal (variaciones univariadas, {color de línea ({213, 72, 87})})
)
Bivariada
Y (: peso),
X (: agenum),
Ajuste ortogonal (variaciones univariadas, {color de línea ({213, 72, 87})})
)
<< {Organizar en filas (2)}
);
// guardar la referencia en la lista
Insertar en (plataforma, p);
Espera (1);
// enviar mensaje a todas las plataformas
plataforma << Despacho ({}, "Relación de ajuste ortogonal =?", OutlineBox, {Close (1)});
Re: Título de la ventana de visualización de ajuste ortogonal imprevisibleTambién puede guardar la referencia a las ventanas cuando se inician y luego enviarles un mensaje. Si almacena las referencias en una lista, la lista distribuirá el mensaje a todos los elementos. Vea este ejemplo:
Names Default to Here( 1 );
// open data table
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
// create container for platform references
platform = List();
// launch first platform
p = dt << Distribution( Y( :weight, :height ) );
// save reference in the list
Insert Into( platform, p );
Wait( 1 );
// launch second platform
p = dt << Bivariate( Y( :weight ), X( :height ), Fit Line );
// save reference in the list
Insert Into( platform, p );
Wait( 1 );
// send message to all platforms
platform << Close Window;
Re: Título de la ventana de visualización de ajuste ortogonal imprevisibleYo usaría XPath, tal vez esto te ayude a comenzar:
Names default to here( 1);
dt = Open( "$Sample_data/iris.jmp" );
win = New Window( "Bivariate Fits",
dt << Bivariate(
Y( :Sepal length ),
X( :Sepal width ),
Fit Orthogonal( Univariate Variances, {Line Color( {213, 72, 87} )} )
),
dt << Bivariate(
Y( :Petal length ),
X( :Petal width ),
Fit Orthogonal( Univariate Variances, {Line Color( {213, 72, 87} )} )
)
);
( win << XPath("//OutlineBox[@helpKey='Bivar Ortho']") ) << Close( 1 );
( win << XPath("//OutlineBox[@helpKey='Bivar Ortho']") )[1] << Close( 0 );
//Here is how I found the helpKey:
win << Show tree structure