848204_de-DE

liliconcom

Einheitliche Achsenskalierung im Control Chart Builder-Skript

Ich arbeite an einem Skript, um eine Liste von Eigenschaften zu durchlaufen und für jede ein Paar Kontrolldiagramme zu erstellen. Die Diagrammpaare (nach "Linie") müssen nebeneinander angezeigt werden und die gleiche Skalierung der Y-Achse aufweisen.

Ich habe eine Liste mit Eigenschaften (eine Listenvariable namens CCProperty) und eine Liste mit Achseneinstellungen für jede Eigenschaft (eine Matrixvariable namens CCFormat). Obwohl ich für jedes Diagramm dieselben Zahlen (als CCFormat[i,j]) für Minimum, Maximum, Inkrement und Anzahl der Teilstriche verwendet habe, stimmen die Skalen nicht immer überein.

Für jede Hilfe bin ich dankbar. Ich verwende JMP Pro 18.1.1

Die vollständige Datentabelle mit eingebettetem Skript ist im Anhang enthalten. Hier ist ein Codeausschnitt:

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>Automatisierung und Skripting</LINGO-LABEL></LINGO-LABS>Betreff: Einheitliche Achsenskalierung im Control Chart Builder-Skript

Ich habe kleine Änderungen an deinem Skript vorgenommen, die das Problem in diesem Fall lösen könnten. Diesen Teil habe ich am meisten geändert.

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

Mehr anzeigen...

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

Im Allgemeinen würde ich vorschlagen, die Achsenwerte außerhalb des Diagramms festzulegen, aber in einfachen Fällen wie diesem sollte die Verwendung von sendtoreport innerhalb der Diagrammnachricht ausreichen

Betreff: Einheitliche Achsenskalierung im Control Chart Builder-Skript

Danke für die Hilfe! Ich vermute, dass der fehlende Index [i] in meiner CCProperty-Listenvariable die Ursache meiner Probleme war.