459192_fr-FR

liliconcom

Comment enregistrer les cartes de contrôle et son résumé sur la même diapositive en ppt

Salut,

J'ai un script qui crée un bloc de cartes de contrôle avec des capacités basées sur le paramètre et je voudrais enregistrer chaque rapport pour chaque paramètre dans une diapositive ppt séparée. Toute aide appréciée.

Voici les graphiques :

et je voudrais avoir chaque tableau de paramètres et rapport sur une diapositive ppt séparée :

 

Ci-joint le tableau avec le script de la carte de contrôle.

 

Merci,

Tomász

 

PS. et s'il est possible de ne sauvegarder que les cartes qui ont un Ppk inférieur à 1.33 alors ce serait magnifique

Organisation du contenuPersonnalisation de masseIngénierie de la qualité et des procédésRe : Comment enregistrer des cartes de contrôle et son résumé dans la même diapositive en ppt

Salut Jim,

 

C'est exactement ce dont j'avais besoin, merci beaucoup.

 

Tomász

Re : Comment enregistrer des cartes de contrôle et son résumé dans la même diapositive en ppt

Ajoutez le JSL ci-dessous au bas de votre script et vous devriez obtenir ce que vous voulez

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 : Comment enregistrer des cartes de contrôle et son résumé dans la même diapositive en ppt

Salut Jim,

Cela semble très bien et dose un excellent travail, mais existe-t-il un moyen de faire un travail similaire tout en conservant l'intégrité du script de carte de contrôle d'origine inchangé?

J'extrait les capacités de tous les graphiques, j'en ai donc besoin en un seul bloc.

Je fais le lac l'approché que vous avez mentionné dans le Comment enregistrer un journal au format PPT (2 graphiques par diapositive) à l'aide de JSL , existe-t-il un moyen de modifier ce script pour qu'il fonctionne avec un script de carte de contrôle ?

 

Merci,

Tomász

Re : Comment enregistrer des cartes de contrôle et son résumé dans la même diapositive en ppt

Cette question a déjà été posée.Voici un lien vers la façon dont j'aborde le problème

Comment enregistrer un journal au format PPT (2 graphiques par diapositive) à l'aide de JSL

 

Voici un exemple complet, utilisant vos données qui crée la sortie que vous voulez

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