Nelle carte di controllo, voglio escludere le zone sopra la media quando non esiste un limite inferiore.
Ecco la mia sceneggiatura:
// Passa attraverso la tabella dati divisa e legge i valori per quella colonna dalla tabella dati dt_limits_copy. Compilare i limiti delle specifiche e i limiti di controllo
Per( i = 1, i <= N Col( dtsplitcopy),i++,
limrow= Tentativo( ((pIDlimits_copia<<ottenere righe dove( pIDlimits_copia:l'etichetta== col[i] ))[1], . );
Se( Manca( limRow) == 0,
Specifiche= {LSL( . ),USL( . ),Bersaglio( . ),Mostra limiti( 1)};
Specifiche["LSL"] = pIDlimits_copia:Valore limite inferiore[limrow];
Specifiche["USL"] = pIDlimits_copia:Valore limite superiore[limrow];
Colonna( dtsplitcopy, Car( col[i] ) )<<impostare la proprietà( "limiti delle specifiche", Val( Specifiche) );
limiti di controllo= {Misurazione individuale( Media( a ),LCL( b ),UCL( c ) )};
// Se manca il limite inferiore, viene impostato su mean - (UCL - mean) = 2*mean - UCL poiché ciò risolverà i problemi con le zone che altrimenti sarebbero errate se impostate su mancanti
Sostituisci in( limiti di controllo, Espr( b ),Se(manca(pIDlimits_copia:Limite_controllo_inferiore[limrow]),2*pIDlimits_copia:Significa_Trama[limrow] - pIDlimits_copia:Limite_controllo_superiore[limrow],pIDlimits_copia:Limite_controllo_inferiore[limrow]));// questo viene fatto per ottenere le zone corrette
Sostituisci in( limiti di controllo, Espr( c ),pIDlimits_copia:Limite_controllo_superiore[limrow]);
Sostituisci in( limiti di controllo, Espr( a ),pIDlimits_copia:Significa_Trama[limrow]);
Colonna( dtsplitcopy, Car( col[i] ) )<<impostare la proprietà( "limiti di controllo", Val( limiti di controllo) );
// Queste note vengono aggiunte in modo che in seguito possiamo scegliere di nascondere i "limiti inferiori artificiali" che sono inclusi solo affinché le zone siano corrette
Colonna( dtsplitcopy, car( col[i] ) )<<impostare la proprietà( "Appunti", Se(manca(pIDlimits_copia:Limite_controllo_inferiore[limrow]),"Un solo limite","Due limiti"));
);
);
dtsplitcopy<<ordinare( di( Data),Sostituisci tabella);
n_di chi= N articoli(col);
// Crea una finestra per una carta di controllo per tutti i parametri di un dato prodotto da un dato sito
NO= Nuova finestra(nome del sito|| " " || ID_prod|| " Rapporto",
Per( v = 38, v <= n_di chi, v += 1,//modificato dalla colonna 37 alla 38 per evitare che venga stampata anche la 'Data'.
tmp= :colonna(v) <<ottenere la proprietà("Appunti");
Costruttore di carte di controllo(
Mostra due grafici di Shewhart( 0),
Mostra Pannello di controllo( 0),
Includi categorie mancanti( 0),
Nome( "Etichettatura AIAG (Ppk)")(1),
Variabili( Y(:Colonna(v)) ),
Grafico(
Punti( Statistica( "Individuale") ),
Limiti( Mostra limite inferiore( tmp== "Due limiti"),Sigma( "Portata mobile"),Zone( 1) ),
Avvertenze( Prova 1( 0),Prova 5( 1),Prova oltre i limiti( 1) )
),
)
);
vlb= Casella di riepilogo V( A= Casella di contorno("Stime Cpk e stampa dei dati") )
);
Cosa dovrei aggiungere al mio script?
