459192_de-DE

liliconcom

So speichern Sie Kontrolldiagramme und ihre Zusammenfassung auf derselben Folie in ppt

Hallo,

Ich habe ein Skript, das einen Block von Kontrolldiagrammen mit Funktionen basierend auf dem Parameter erstellt, und ich möchte jeden Bericht für jeden Parameter in einer separaten PPT-Folie speichern. Jede Hilfe wird geschätzt.

Hier sind die Diagramme:

und ich hätte gerne jedes Parameterdiagramm und jeden Bericht auf einer separaten PPT-Folie:

 

Im Anhang finden Sie die Tabelle mit dem Kontrolldiagramm-Skript.

 

Danke,

Tomasz

 

PS. und wenn es möglich wäre, nur die Diagramme zu speichern, deren Ppk unter 1,33 liegt, dann wäre das großartig

InhaltsorganisationMassenanpassungQualitäts- und VerfahrenstechnikBetreff: So speichern Sie Kontrolldiagramme und ihre Zusammenfassung auf derselben Folie in ppt

Hallo Jim,

 

Das ist genau das, was ich brauchte, vielen Dank.

 

Tomasz

Betreff: So speichern Sie Kontrolldiagramme und ihre Zusammenfassung auf derselben Folie in ppt

Fügen Sie die folgende JSL am Ende Ihres Skripts hinzu und Sie sollten das bekommen, was Sie wollen

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;

Betreff: So speichern Sie Kontrolldiagramme und ihre Zusammenfassung auf derselben Folie in ppt

Hallo Jim,

Das sieht sehr gut aus und macht hervorragende Arbeit, aber gibt es eine Möglichkeit, ähnliche Arbeit zu leisten, aber die Integrität des ursprünglichen Kontrolldiagrammskripts unverändert zu lassen?

Ich extrahiere die Funktionen aus allen Diagrammen, sodass ich sie in einem Block benötige.

Ich verstehe die von Ihnen erwähnte Vorgehensweise So speichern Sie ein Tagebuch als PPT (2 Grafiken pro Folie) mit JSL Gibt es eine Möglichkeit, dieses Skript so zu ändern, dass es mit dem Kontrolldiagramm-Skript funktioniert?

 

Danke,

Tomasz

Betreff: So speichern Sie Kontrolldiagramme und ihre Zusammenfassung auf derselben Folie in ppt

Diese Frage wurde schon einmal gestellt.Hier ist ein Link zu meiner Herangehensweise an das Problem

So speichern Sie ein Tagebuch als PPT (2 Grafiken pro Folie) mit JSL

 

Hier ist ein vollständiges Beispiel, bei dem Ihre Daten verwendet werden, um die gewünschte Ausgabe zu erstellen

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