612111_es-ES

liliconcom

JSL para generar diagrama de caja y guardar imagen

En "44322.jmp" tiene 28 FAI#, quiero cambiar el script para guardar 28 imágenes como "44322 - Graph Builder.jpg". Sé que lo siguiente ":FAI_1.1&:FAI_1.2&:FAI_1.3" necesita cambios, pero no sé qué cambiar.

Variables(
	X( :FAI_1.1, Combine( "Parallel Merged" ) ),
	X( :FAI_1.2, Position( 1 ), Combine( "Parallel Merged" ) ),
	X( :FAI_1.3, Position( 1 ), Combine( "Parallel Merged" ) ),
	Group X( Phase ),
	Color( Phase )
),

Automatización y secuencias de comandosOrganización de contenidosAcceso a los datosCombinación y limpieza de datosLa personalización en masaCompartir y comunicar resultadosventanasRe: JSL para generar diagrama de caja y guardar imagen

¿Cómo deberían cambiar esos nombres de columna? ¿Una imagen para cada FAI_X (donde X es un número que puede ser seguido por .Y)?

Re: JSL para generar diagrama de caja y guardar imagen

Aquí hay una modificación al script que maneja los 28 FAI encontrados en los datos.También ajusta el gráfico para compensar el diferente número de columnas encontradas para cada FAI.

Names Default To Here( 1 );
dt = Data Table( "44322.jmp" );
New Window( "Box Plot Compaire", 

 Excluded( Row State( 1 ) ) = 1;
 Excluded( Row State( 2 ) ) = 1;
 Excluded( Row State( 3 ) ) = 1;
 For( i = 2, i < N Col() + 1, i++, 
// determine the number of columns for the current FAI
  nFAI = 1;
  FAI = Word( 1, Column Name( i ), "." );
  Try( If( Word( 1, Column Name( i + 1 ), "." ) == FAI, nFAI = 2 ) );
  Try( If( Word( 1, Column Name( i + 2 ), "." ) == FAI, nFAI = 3 ) );
  If(
   nFAI == 3,
    mybox = Graph Builder(
     Size( 568, 458 ),
     Show Control Panel( 0 ),
     Variables(
      X( As Column( Column Name( i ) ), Position( 1 ), Combine( "Parallel Merged" ) ),
      X( As Column( Column Name( i + 1 ) ), Position( 1 ), Combine( "Parallel Merged" ) ),
      X( As Column( Column Name( i + 2 ) ), Position( 1 ), Combine( "Parallel Merged" ) ),
      Group X( Phase ),
      Color( Phase )
     ),
     Elements(
      Box Plot( X( 1 ), X( 2 ), X( 3 ), Legend( 9 ) ),
      Points( X( 1 ), X( 2 ), X( 3 ), Legend( 10 ) ),
      Caption Box( X( 1 ), X( 2 ), X( 3 ), Legend( 11 ) )
     ),
     SendToReport(
      Dispatch(
       {},
       "",
       ScaleBox,
       {Min(
        Col Min( Column( i ) ) - (Col Max( Column( i ) ) - Col Min( Column( i ) )) /
        100
       ), Max(
        Col Max( Column( i ) ) + (Col Max( Column( i ) ) - Col Min( Column( i ) )) /
        100
       ), /*Inc( (col max(column(i)) - col min(column(i)))/100 ),*/ Minor Ticks( 1 ),
       Add Ref Line(
        Column( i )[1],
        "Solid",
        "Dark Red",
        Eval Insert( "LSL ^column(i)[1]^" ),
        1
       ), Add Ref Line(
        Column( i )[2],
        "Solid",
        "Dark Red",
        Eval Insert( "USL ^column(i)[2]^" ),
        1
       ), Add Ref Line(
        Column( i )[3],
        "Solid",
        "Dark Blue",
        Eval Insert( "Target ^column(i)[3]^" ),
        1
       )}
      )
     )
    );,
   nFAI == 2,
    mybox = Graph Builder(
     Size( 568, 458 ),
     Show Control Panel( 0 ),
     Variables(
      X( As Column( Column Name( i ) ), Position( 1 ), Combine( "Parallel Merged" ) ),
      X( As Column( Column Name( i + 1 ) ), Position( 1 ), Combine( "Parallel Merged" ) ),
      Group X( Phase ),
      Color( Phase )
     ),
     Elements(
      Box Plot( X( 1 ), X( 2 ), X( 3 ), Legend( 9 ) ),
      Points( X( 1 ), X( 2 ), X( 3 ), Legend( 10 ) ),
      Caption Box( X( 1 ), X( 2 ), X( 3 ), Legend( 11 ) )
     ),
     SendToReport(
      Dispatch(
       {},
       "",
       ScaleBox,
       {Min(
        Col Min( Column( i ) ) - (Col Max( Column( i ) ) - Col Min( Column( i ) )) /
        100
       ), Max(
        Col Max( Column( i ) ) + (Col Max( Column( i ) ) - Col Min( Column( i ) )) /
        100
       ), /*Inc( (col max(column(i)) - col min(column(i)))/100 ),*/ Minor Ticks( 1 ),
       Add Ref Line(
        Column( i )[1],
        "Solid",
        "Dark Red",
        Eval Insert( "LSL ^column(i)[1]^" ),
        1
       ), Add Ref Line(
        Column( i )[2],
        "Solid",
        "Dark Red",
        Eval Insert( "USL ^column(i)[2]^" ),
        1
       ), Add Ref Line(
        Column( i )[3],
        "Solid",
        "Dark Blue",
        Eval Insert( "Target ^column(i)[3]^" ),
        1
       )}
      )
     )
    );,
   mybox = Graph Builder(
    Size( 568, 458 ),
    Show Control Panel( 0 ),
    Variables(
     X( As Column( Column Name( i ) ), Position( 1 ), Combine( "Parallel Merged" ) ),
     Group X( Phase ),
     Color( Phase )
    ),
    Elements(
     Box Plot( X( 1 ), X( 2 ), X( 3 ), Legend( 9 ) ),
     Points( X( 1 ), X( 2 ), X( 3 ), Legend( 10 ) ),
     Caption Box( X( 1 ), X( 2 ), X( 3 ), Legend( 11 ) )
    ),
    SendToReport(
     Dispatch(
      {},
      "",
      ScaleBox,
      {Min(
       Col Min( Column( i ) ) - (Col Max( Column( i ) ) - Col Min( Column( i ) )) / 100
      ), Max(
       Col Max( Column( i ) ) + (Col Max( Column( i ) ) - Col Min( Column( i ) )) / 100
      ), /*Inc( (col max(column(i)) - col min(column(i)))/100 ),*/ Minor Ticks( 1 ),
      Add Ref Line(
       Column( i )[1],
       "Solid",
       "Dark Red",
       Eval Insert( "LSL ^column(i)[1]^" ),
       1
      ), Add Ref Line(
       Column( i )[2],
       "Solid",
       "Dark Red",
       Eval Insert( "USL ^column(i)[2]^" ),
       1
      ), Add Ref Line(
       Column( i )[3],
       "Solid",
       "Dark Blue",
       Eval Insert( "Target ^column(i)[3]^" ),
       1
      )}
     )
    )
   );
  ); 
 
  Myboxplot = mybox << report;
  Myboxplot << save picture( FAI || ".emf", emf );
 
 // Increase variable i if nFAI is greater than 1 
 i=i+nFAI-1;
 );

);

Re: JSL para generar diagrama de caja y guardar imagen

Como sigue, " mínimo (……) " puede usar "::" para muestrear? Escribí " Min( Col Min( Columna( i :: i + 12 ))); " & " Min( Col Min( Columna( i ) :: Col Min( Columna( i + 12 ))); "pero es un error.

 

Para( i = 2, i < N Col() + 1, i++,

……

Min(Col Min( Columna( i )), Col Min( Columna( i + 1 )), Col Min( Columna( i + 2 )), Col Min( Columna( i + 3 )), Col Min( Columna( i + 4 )), Col Min( Columna( i + 5 )), Col Min( Columna( i + 6 )), Col Min( Columna( i + 7 )), Col Min( Columna( i + 8 )), Col Min( Columna( i + 9 )), Col Min( Columna( i + 10 )), Col Min( Columna( i + 11 )), Col Min( Columna( i + 12 )));

……

);