86555_it-IT

liliconcom

JSL- distribuzione generica sulla tabella

EHI,

 

Vorrei eseguire l'istogramma su un tavolo.

L'output di ogni tabella è la colonna "risultato" e li divide per "nome del test".

Voglio un codice generico in grado di gestire diversi "nomi di test".

Ho provato:

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 );

Ma non ha funzionato.

È questo il modo corretto di farlo?

 

Grazie in anticipo.

Re: JSL-distribuzione generica sul tavolo

Grazie per l'aiuto!

ho altri 3 problemi....

 

1. Se ho bisogno di fare overlay (diciamo test1 in machine1 vs. machine2) usando il "Graph Builder".

Sto provando a fare lo stesso senza successo:

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. Sto cercando di ridimensionare l'asse Y in scala logaritmica, in modo da poter vedere più facilmente il valore anomalo, ma non funziona correttamente...

3. Perché la mia "casella di riepilogo" è nascosta e la vedo solo quando chiudo la trama.

 

Grazie!

Re: JSL-distribuzione generica sul tavolo

Ecco il tuo codice, divertiti:

 

 

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-distribuzione generica sul tavolose sei interessato, mandami un tavolo a
tom.abramov@ald.co.il
e metterò qui la sceneggiaturaRe: JSL-distribuzione generica sul tavolo

Che dire della modifica della scala delle dimensioni del contenitore, dell'aggiunta di LSL, USL ecc. a ciascuna finestra dei risultati?

Due questioni:

1. Come ottengo il valore sigma dall'istogramma che ho appena tracciato nel contenitore della scala del grafico?

2. Come posso aggiungere linee di riferimento senza avere un contatore dei nomi dei test?

Grazie mille in anticipo!

 

"std"- è il valore std dalla tabella delle statistiche

"???"- è un valore dalla tabella dei "limiti".

 

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-distribuzione generica sul tavolo

Inoltre, puoi eseguirlo senza loop:

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

Re: JSL-distribuzione generica sul tavolo

CIAO,

Ecco il codice dopo alcune correzioni:

 

 

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 );