848204_fr-FR

liliconcom

Mise à l'échelle uniforme des axes dans le script Control Chart Builder

Je travaille sur un script permettant de parcourir une liste de propriétés et de créer deux graphiques de contrôle pour chacune d'elles. Ces graphiques (par « Ligne ») doivent être affichés côte à côte et avoir la même échelle sur l'axe des Y.

J'ai une liste de propriétés (une variable de liste appelée CCProperty) et une liste de paramètres d'axe pour chaque propriété (une variable de matrice appelée CCFormat). Même si j'ai utilisé les mêmes valeurs (CCFormat[i,j]) pour les valeurs minimales, maximales, d'incrément et de graduations pour chaque graphique, les échelles ne correspondent pas systématiquement.

Toute aide serait appréciée. J'utilise JMP Pro 18.1.1.

Le tableau de données complet avec script intégré est joint. Voici un extrait de code :

For(i=1, i <= N Items(CCProperty), i += 1,  //  Loop through all the properties and make control charts using the graph min and max

Mainbox<<APPEND></APPEND>

<LINGO-LABS id="lingo-labs-848204" slang="en-US" mode="CREATE"><LINGO-LABEL>Automatisation et scripts</LINGO-LABEL></LINGO-LABS>Re : Mise à l'échelle uniforme des axes dans le script Control Chart Builder

J'ai légèrement modifié votre script, ce qui pourrait résoudre le problème. C'est cette partie que j'ai le plus modifiée.

SendToReport(
	Dispatch({}, CCProperty[i], ScaleBox, {Min(CCFormat[i, 1]), Max(CCFormat[i, 2]), Inc(CCFormat[i, 3]), Minor Ticks(CCFormat[i, 4])}),
)

Voir plus...

Names Default To Here(1);

CCProperty = {"Strength", "Elongation", "Weight", "Thickness"};

CCFormat = [60 66 1 4, 25 45.5 5 4, 3.4 4.0 0.1 4, 8 16 1 4];

outputwin = New Window("Control Charts", Outline Box("Control Charts", Mainbox = V List Box()));

For(i = 1, i <= N Items(CCProperty), i++,
	Mainbox << append(hb = H List Box());

	hb << append(
		Control Chart Builder(
			Size(650, 600),
			Graph Spacing(10),
			Test Excluded Subgroups(0),
			Show Limit Labels(1),
			Show Capability(0),
			Show Limit Summaries(0), 
	
			Variables(Subgroup(:Workorder), Y(Column(CCProperty[i]))),
			Chart(Position(1), Points(Statistic("Average")), Limits(Sigma("Moving Range"), Spec Limits(1))),
			Chart(Position(2), Points(Statistic("Moving Range on Means")), Limits(Sigma("Moving Range"))),
			Chart(Position(3), Points(Statistic("Standard Deviation")), Limits(Sigma("Standard Deviation"))),
			Show Control Panel(0),
			By(:Line), 

			Where(:Line == "Line 1"),
			SendToReport(
				Dispatch({}, CCProperty[i], ScaleBox, {Min(CCFormat[i, 1]), Max(CCFormat[i, 2]), Inc(CCFormat[i, 3]), Minor Ticks(CCFormat[i, 4])}),
			)
		)
	);

	hb << append(
		Control Chart Builder(
			Size(650, 600),
			Graph Spacing(10),
			Test Excluded Subgroups(0),
			Show Limit Labels(1),
			Show Capability(0),
			Show Limit Summaries(0), 
	
			Variables(Subgroup(:Workorder), Y(Column(CCProperty[i]))),
			Chart(Position(1), Points(Statistic("Average")), Limits(Sigma("Moving Range"), Spec Limits(1))),
			Chart(Position(2), Points(Statistic("Moving Range on Means")), Limits(Sigma("Moving Range"))),
			Chart(Position(3), Points(Statistic("Standard Deviation")), Limits(Sigma("Standard Deviation"))),
			Show Control Panel(0),
			By(:Line),
			Where(:Line == "Line 2"),
			SendToReport(
				Dispatch({}, CCProperty[i], ScaleBox, {Min(CCFormat[i, 1]), Max(CCFormat[i, 2]), Inc(CCFormat[i, 3]), Minor Ticks(CCFormat[i, 4])}),
			)
		)
	);
);  //end of For Loop

En général, je suggérerais de définir les valeurs de l'axe en dehors du graphique, mais dans un cas simple comme celui-ci, l'utilisation de sendtoreport à l'intérieur du message graphique devrait suffire.

Re : Mise à l'échelle uniforme des axes dans le script Control Chart Builder

Merci pour votre aide ! Je suppose que l'indice manquant [i] dans ma variable de liste CCProperty était la cause de mes problèmes.