86555_es-ES

liliconcom

JSL- distribución genérica en la tabla

Ey,

 

Me gustaría ejecutar un histograma en una tabla.

La salida de cada tabla es la columna "resultado" y se divide por "nombre de prueba".

Quiero un código genérico que pueda manejar diferentes "nombres de prueba".

Yo he tratado:

dt1 = Open();
:result << Set Data Type( Numeric, "Continuous" );
:range_min << Set Name( "LSL" );
:range_max << Set Name( "USL" );
limits = dt1 << Summary( Group( :test_name ), Mean( Eval( "LSL" ) ), Mean( Eval( "USL" ) ), );
Current Data Table( limits );
rowsTest = limits[0, 1];
iMax = N Rows( limits );
Current Data Table( dt1 );

vl = V List Box( Text Box( "Spec Limits Script" ) );

For( i = 0, i < iMax, i++,
 vv = V List Box(
  Distribution(
   Stack( 1 ),
   Continuous Distribution( Column( :result ), Horizontal Layout( 1 ), Vertical( 0 ) ),
   Where( :test_name == rowsTest[i] )
  )
 ),
 vl << append( vv )
);
newFit = New Window( "Spec Limits Collection", vl );

Pero no funcionó.

¿Es esta la forma correcta de hacerlo?

 

Gracias de antemano.

Re: JSL- distribución genérica en la tabla

¡Gracias por la ayuda!

tengo 3 problemas mas....

 

1. Si necesito superponer (digamos test1 en machine1 vs. machine2) usando el "Graph Builder".

Estoy tratando de hacer lo mismo sin éxito:

For( i = 1, i <= N Rows( SummaryDT ), i++,
 CurrentTest = Column( SummaryDT, 1 )[i];
 CurrentMin = Column( SummaryDT, 2 )[i];
 CurrentMax = Column( SummaryDT, 3 )[i];
 NewMin = Column( SummaryDT, 4 )[i];
 NewMax = Column( SummaryDT, 5 )[i];
 CurrentStDev = Column( SummaryDT, 7 )[i];

 CurBox = V List Box(
  CurDist = StackedResults << 
  Graph Builder(
   Show Control Panel( 0 ),
   Variables( X( :Result ), Page( :Test Name ), Overlay( :Facility ) ),
   Elements( Histogram( X, Legend( 13 ) ) )
  ),
  V List Box(
   H List Box( Text Box( "Current Low:   " ), Text Box( CurrentMin ), Text Box( "   New Low:   " ), Text Box( NewMin ) ),
   (H List Box( Text Box( "Current High:   " ), Text Box( CurrentMax ), Text Box( "   New High:   " ), Text Box( NewMax ) ))
  )
 );
 (CurDist << report)[AxisBox( 1 )] << Min( Min( CurrentMin || NewMin ) - Abs( Min( CurrentMin || NewMin ) ) * 0.005 );
 (CurDist << report)[AxisBox( 1 )] << Max( Max( CurrentMax || NewMax ) * 1.005 );
 (CurDist << report)[AxisBox( 1 )] << Add Ref Line( CurrentMin, "Solid", blue, "Min", 1 );
 (CurDist << report)[AxisBox( 1 )] << Add Ref Line( CurrentMax, "Solid", blue, "Max", 1 );
 (CurDist << report)[AxisBox( 1 )] << Inc( CurrentStDev );
 //(CurDist << report)[AxisBox( 2 )] << Show Major Grid( 1 );
 //(CurDist << report)[AxisBox( 2 )] << Scale( "Log" );
 (CurDist << report)[Outline Box( 1 )] << Set Title( "Test: " || CurrentTest );
 MainContainer << append( CurBox );
);

2. Estoy tratando de escalar el eje Y en escala logarítmica, para poder ver el valor atípico más fácilmente, pero eso no funciona correctamente...

3. Por qué mi "cuadro de lista" está oculto y solo puedo verlo cuando cierro el gráfico.

 

¡Gracias!

Re: JSL- distribución genérica en la tabla

Aquí está tu código, disfrútalo:

 

 

dt = Current Data Table();
SummaryDT = dt << Summary( Group( :test_name, :range_min, :range_max ), Std Dev( :result ) );

win = New Window( "My Analysis", MainContainer = V List Box() );

For( i = 1, i <= N Rows( SummaryDT ), i++,
CurrentTest = Column( SummaryDT, 1 )[i];
CurrentMin = Column( SummaryDT, 2 )[i];
CurrentMax = Column( SummaryDT, 3 )[i];
CurrentStDev = Column( SummaryDT, 5 )[i];

CurBox = V List Box( CurDist = dt << Distribution( Continuous Distribution( Column( :result ),Horizontal Layout(1) ), Where( :test_name == CurrentTest ) ) );

(CurDist << report)[AxisBox(1)] << Max(Maximum(CurrentMax,(CurDist << report)[AxisBox(1)] << Get Max) + (CurrentMax-CurrentMin)*0.05);
(CurDist << report)[AxisBox(1)] << Min(Minimum(CurrentMin,(CurDist << report)[AxisBox(1)] << Get Min) - (CurrentMax-CurrentMin)*0.05);
(CurDist << report)[AxisBox(1)] << Add Ref Line( CurrentMin, "Solid", blue, "Min", 1 );
(CurDist << report)[AxisBox(1)] << Add Ref Line( CurrentMax, "Solid", blue, "Max", 1 );
(CurDist << report)[AxisBox(1)] << Inc(CurrentStDev);
(CurDist << report)[OutlineBox(1)] << Set Title("Test: " || CurrentTest);
MainContainer << append(CurBox);
);
close(SummaryDT,nosave);
(win << XPath("//TextBox[contains(./text(), 'Where')]")) << delete();

 

Re: JSL- distribución genérica en la tablasi te interesa mandame una mesa a
tom.abramov@ald.co.il
y pondre aqui el guionRe: JSL- distribución genérica en la tabla

¿Qué hay de cambiar la escala del tamaño del contenedor, agregar LSL, USL, etc. a cada ventana de resultados?

Dos problemas:

1. ¿Cómo obtengo el valor sigma del histograma que acabo de trazar en el contenedor de escala del gráfico?

2. ¿Cómo agrego líneas de referencia sin tener un contador de los nombres de las pruebas?

¡Muchas gracias por adelantado!

 

"std": es el valor estándar de la tabla de estadísticas

"???"- es un valor de la tabla de "límites".

 

dt1 = Open();
:result << Set Data Type( Numeric, "Continuous" );
limits = dt1 << Summary( Group( :test_name ), Mean( Eval( "range_min" ) ), Mean( Eval( "range_max" ) ), );
Ntests = N Rows( limits );

vl = V List Box( Text Box( "Spec Limits Script" ) );

dt1 << Distribution(
 Continuous Distribution( Column( :result ), Horizontal Layout( 1 ), Vertical( 0 ) ),
 By( :test_name ),
 SendToReport(
  Dispatch(
   {"result"},
   "1",
   ScaleBox,
   {Min( 97.5173285198556 ), Max( 97.9576714801444 ), Inc( <U><STRONG>std</STRONG></U>), Minor Ticks( 0 ),
   Add Ref Line( limits[<U><STRONG>???</STRONG></U>,3], "Solid", "Black", "", 1 ), Add Ref Line( limits[<U><STRONG>???</STRONG></U>,4], "Solid", "Black", "", 1 )}
  )
 )
);

 

 

Re: JSL- distribución genérica en la tabla

Además, puede ejecutarlo sin bucle:

Distribution(
Continuous Distribution(
Column( :result ),
Horizontal Layout( 1 ),
Vertical( 0 )
),
By( :test_name )
);

Re: JSL- distribución genérica en la tabla

Hola,

Aquí está el código después de algunas correcciones:

 

 

dt1 = Open();
:result << Set Data Type( Numeric, "Continuous" );
:range_min << Set Name( "LSL" );
:range_max << Set Name( "USL" );
limits = dt1 << Summary( Group( :test_name ), Mean( Eval( "LSL" ) ), Mean( Eval( "USL" ) ), );
Ntests = NRows(limits);
vl = V List Box( Text Box( "Spec Limits Script" ) );
For( i = 1, i <= Ntests, i++,
vv = V List Box(
dt1 << Distribution(
Stack( 1 ),
Continuous Distribution( Column( :result ), Horizontal Layout( 1 ), Vertical( 0 ) ),
Where( :test_name == Column(limits,"test_name")[i] )
)
);
vl << append( vv )
);
newFit = New Window( "Spec Limits Collection", vl );