Tengo el siguiente script que produce un bonito gráfico de control. Me gustaría agregar una función para guardarlo (o la ventana) como png en una carpeta que pueda compartir con otros.
Tabla de datos ("datos de muestra")
<< Nuevo guión(
"Gráfico de control - 1",
Generador de gráficos de control(
Tamaño (960, 767),
Mostrar informe de alarma (1),
Mostrar etiquetas de límite (1),
Mostrar informe Sigma( 1 ),
Incluir categorías faltantes (0),
Variables(
Subgrupo (: tiempo),
Subgrupo( :unidad, Posición( 1 ) ),
Y( :parámetro 1 )
),
Cuadro(
Posición( 1 ),
Puntos( Estadística( "Individual") ),
Límites( Sigma( "Rango móvil") ),
Advertencias(
Prueba 1( 1 ),
Prueba 2 (1),
Prueba 3( 1 ),
Prueba 4( 1 ),
Prueba 5 (1),
Prueba 6 (1),
Prueba 7 (1),
Prueba 8( 1 ),
Regla 1 2S( 1 ),
Regla 1 3S( 1 ),
Regla 2 2S( 1 ),
Regla R 4S( 1 ),
Regla 4 1S( 1 ),
Regla 10 X( 1 ),
Prueba más allá de los límites( 1 )
),
Análisis de capacidad del proceso (histograma (1, mostrar dentro de la densidad sigma (0)))
),
Cuadro(
Posición( 2 ),
Puntos( Estadística( "Rango móvil") ),
Límites( Sigma( "Rango móvil") ),
Advertencias( Prueba más allá de los límites( 1 ) )
),
Cuadro(
Posición( 3 ),
Puntos( Estadística( "Rango móvil") ),
Límites( Sigma( "Rango móvil") ),
Advertencias( Prueba más allá de los límites( 1 ) )
),
Filtro de datos locales (Agregar filtro (columnas (: filtro 1))),
Mostrar panel de control (0),
Enviar a informe (
Despacho(
{},
"parámetro 2",
caja de escala,
{Formato( "Dic fijo", 12, 2 ), Min( 0 ), Max( 1), Inc( 0.1 ),
Marcas menores (0)}))));
Este ejemplo para el índice de secuencias de comandos debería ilustrar cómo hacerlo:
Names Default To Here( 1 );
//This message applies to all display box objects
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
biv = dt << Bivariate( y( :weight ), x( :height ) );
rbiv = biv << report;
rbiv << Save Picture( "$TEMP/jmp_example.png", "png" );
