459192_it-IT

liliconcom

Come salvare i grafici di controllo e il relativo riepilogo nella stessa diapositiva in ppt

CIAO,

Ho uno script che crea un blocco di grafici di controllo con funzionalità basate sul parametro e vorrei salvare ogni rapporto per ogni parametro in una diapositiva ppt separata. Qualsiasi aiuto apprezzato.

Ecco i grafici:

e mi piacerebbe avere ogni grafico dei parametri e riferire su una diapositiva ppt separata:

 

In allegato la tabella con lo script della carta di controllo.

 

Grazie,

Tomasz

 

PS. e se è possibile salvare solo i grafici che hanno Ppk sotto 1.33 allora sarebbe magnifico

Organizzazione dei contenutiPersonalizzazione di massaQualità e ingegneria di processoRe: Come salvare i grafici di controllo e il relativo riepilogo nella stessa diapositiva in ppt

Ciao Jim,

 

È proprio quello di cui avevo bisogno, grazie mille.

 

Tomasz

Re: Come salvare i grafici di controllo e il relativo riepilogo nella stessa diapositiva in ppt

Aggiungi il JSL sottostante alla fine del tuo script e dovresti ottenere quello che vuoi

nw = New Window( "Control Charts", 
 V List Box(
  obAge = Outline Box( "Control Chart for Age" ),
  obWeight = Outline Box( "Control Chart for Weight" ),
  obOxy = Outline Box( "Control Chart for Oxy" )
 )
);

ob = Outline Box( "", hlb = H List Box() );
hlb << append( Report( gb )["Levey Jennings of Age"] );
ob2 = Outline Box( "Distributions" );
ob2 << append( Report( gb )["Age"] );
hlb << append( ob2 );
obAge << append( ob << get picture );

ob = Outline Box( "", hlb = H List Box() );
hlb << append( Report( gb )["Levey Jennings of Weight"] );
ob2 = Outline Box( "Distributions" );
ob2 << append( Report( gb )["Weight"] );
hlb << append( ob2 );
obWeight << append( ob << get picture );

ob = Outline Box( "", hlb = H List Box() );
hlb << append( Report( gb )["Levey Jennings of Oxy"] );
ob2 = Outline Box( "Distributions" );
ob2 << append( Report( gb )["Oxy"] );
hlb << append( ob2 );
obOxy << append( ob << get picture );

nw << Save Presentation( "$TEMP/jmp_example2.pptx" );
Open( "$TEMP/jmp_example2.pptx" );

nw << close window;

Re: Come salvare i grafici di controllo e il relativo riepilogo nella stessa diapositiva in ppt

Ciao Jim,

Sembra molto buono e dosa un lavoro eccellente, ma c'è un modo per fare un lavoro simile ma mantenere invariata l'integrità dello script del grafico di controllo originale?

Sto estraendo le capacità da tutti i grafici, quindi ne ho bisogno in un blocco.

Faccio il lago avvicinato che hai menzionato nel Come salvare il diario come PPT (2 grafici per diapositiva) utilizzando JSL , c'è un modo per modificare lo script in modo che funzioni con lo script del grafico di controllo?

 

Grazie,

Tomasz

Re: Come salvare i grafici di controllo e il relativo riepilogo nella stessa diapositiva in ppt

Questa domanda è già stata posta.Ecco un link al modo in cui affronto il problema

Come salvare il diario come PPT (2 grafici per diapositiva) utilizzando JSL

 

Ecco un esempio completo, utilizzando i tuoi dati che creano l'output desiderato

Names Default To Here( 1 );
nw = New Window( "Control Charts",
 ob1 = Outline Box( "Levey Jennings of Age" ),
 ob2 = Outline Box( "Levey Jennings of Weight" ),
 ob3 = Outline Box( "Levey Jennings of Oxy" )
);
cc1 = Control Chart(
 invisible,
 Sample Label( :Name ),
 KSigma( 3 ),
 Chart Col(
  :Age,
  Levey Jennings(
   Show Zones( 1 ),
   Shade Zones( 1 ),
   Test 1( 1 ),
   Test 2( 1 ),
   Test 5( 1 ),
   Test 6( 1 ),
   Test Beyond Limits( 1 )
  ),
  Capability(
   Distribution(
    Continuous Distribution(
     Column( :Age ),
     Quantiles( 0 ),
     Horizontal Layout( 1 ),
     Vertical( 0 ),
     Outlier Box Plot( 0 ),
     Normal Quantile Plot( 1 ),
     Process Capability(
      Use Column Property Specs,
      Process Capability Analysis(
       Nonconformance( 0 ),
       Histogram( 1, Show Within Sigma Density( 0 ) )
      )
     ),
     Customize Summary Statistics( Skewness( 1 ) )
    )
   )
  )
 )
);
cc2 = Control Chart(
 invisible,
 Sample Label( :Name ),
 KSigma( 3 ),
 Chart Col(
  :Weight,
  Levey Jennings(
   Show Zones( 1 ),
   Shade Zones( 1 ),
   Test 1( 1 ),
   Test 2( 1 ),
   Test 5( 1 ),
   Test 6( 1 ),
   Test Beyond Limits( 1 )
  ),
  Capability(
   Distribution(
    Continuous Distribution(
     Column( :Weight ),
     Quantiles( 0 ),
     Horizontal Layout( 1 ),
     Vertical( 0 ),
     Outlier Box Plot( 0 ),
     Normal Quantile Plot( 1 ),
     Process Capability(
      Use Column Property Specs,
      Process Capability Analysis(
       Nonconformance( 0 ),
       Histogram( 1, Show Within Sigma Density( 0 ) )
      )
     ),
     Customize Summary Statistics( Skewness( 1 ) )
    )
   )
  )
 )
);
cc3 = Control Chart(
 invisible,
 Sample Label( :Name ),
 KSigma( 3 ),
 Chart Col(
  :Oxy,
  Levey Jennings(
   Show Zones( 1 ),
   Shade Zones( 1 ),
   Test 1( 1 ),
   Test 2( 1 ),
   Test 5( 1 ),
   Test 6( 1 ),
   Test Beyond Limits( 1 )
  ),
  Capability(
   Distribution(
    Continuous Distribution(
     Column( :Oxy ),
     Quantiles( 0 ),
     Horizontal Layout( 1 ),
     Vertical( 0 ),
     Outlier Box Plot( 0 ),
     Normal Quantile Plot( 1 ),
     Process Capability(
      Use Column Property Specs,
      Process Capability Analysis(
       Nonconformance( 0 ),
       Histogram( 1, Show Within Sigma Density( 0 ) )
      )
     ),
     Customize Summary Statistics( Skewness( 1 ) )
    )
   )
  )
 )
);
ob1 << append( cc1 << get picture );
ob2 << append( cc2 << get picture );
ob3 << append( cc3 << get picture );

nw << Save Presentation( "$TEMP/jmp_example.pptx" );
Open( "$TEMP/jmp_example.pptx" );