J'ai le script suivant qui produit une belle carte de contrôle, j'aimerais ajouter une fonction pour l'enregistrer (ou la fenêtre) au format png dans un dossier que je peux partager avec d'autres ?
Table de données ("échantillon de données")
<< Nouveau script(
"Carte de contrôle - 1",
Générateur de cartes de contrôle (
Taille (960, 767),
Afficher le rapport d'alarme (1),
Afficher les étiquettes de limite( 1 ),
Afficher le rapport Sigma ( 1 ),
Inclure les catégories manquantes ( 0 ),
Variables(
Sous-groupe( :time ),
Sous-groupe( :unité, Position( 1 ) ),
Y( :paramètre 1 )
),
Graphique(
Poste( 1 ),
Points( Statistique( "Individu" ) ),
Limites( Sigma( "Moving Range" ) ),
Avertissements(
Essai 1( 1 ),
Essai 2( 1 ),
Essai 3( 1 ),
Essai 4(1),
Essai 5(1),
Essai 6(1),
Essai 7(1),
Essai 8(1),
Règle 1 2S( 1 ),
Règle 1 3S( 1 ),
Règle 2 2S( 1 ),
Règle R 4S( 1 ),
Règle 4 1S( 1 ),
Règle 10 X( 1 ),
Test au-delà des limites( 1 )
),
Analyse de la capacité du processus (histogramme (1, afficher dans la densité Sigma (0)))
),
Graphique(
Poste( 2 ),
Points( Statistique( "Moving Range" ) ),
Limites( Sigma( "Moving Range" ) ),
Avertissements (Test au-delà des limites (1))
),
Graphique(
Poste( 3 ),
Points( Statistique( "Moving Range" ) ),
Limites( Sigma( "Moving Range" ) ),
Avertissements (Test au-delà des limites (1))
),
Filtre de données local (Ajouter un filtre (colonnes ( :filter 1 ) ) ),
Afficher le panneau de configuration (0),
EnvoyerToReport(
Expédition(
{},
"paramètre 2",
ScaleBox,
{Format( "Déc. fixe", 12, 2 ), Min( 0 ), Max( 1), Inc( 0.1 ),
Tiques mineures( 0 )}))));
Cet exemple pour l'index de script devrait illustrer comment procéder :
Names Default To Here( 1 );
//This message applies to all display box objects
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
biv = dt << Bivariate( y( :weight ), x( :height ) );
rbiv = biv << report;
rbiv << Save Picture( "$TEMP/jmp_example.png", "png" );
