848204_it-IT

liliconcom

Ridimensionamento uniforme degli assi nello script di Control Chart Builder

Sto lavorando a uno script per scorrere un elenco di proprietà e creare una coppia di grafici di controllo per ciascuna. La coppia (per "Line") di grafici deve essere visualizzata affiancata e avere la stessa scala dell'asse Y.

Ho un elenco di proprietà (una variabile di elenco chiamata CCProperty) e un elenco di impostazioni degli assi per ogni proprietà (una variabile di matrice chiamata CCFormat). Anche se ho usato gli stessi numeri (come CCFormat[i,j]) per min, max, incremento e numero di tick per ogni grafico, le scale non corrispondono in modo coerente.

Ogni aiuto sarebbe apprezzato. Sto usando JMP Pro 18.1.1

La tabella dati completa con lo script incorporato è allegata. Ecco un frammento del codice:

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>Automazione e scripting</LINGO-LABEL></LINGO-LABS>Re: ridimensionamento uniforme degli assi nello script di Control Chart Builder

Ho apportato piccole modifiche al tuo script che potrebbero risolvere il problema in questo caso. Questa parte l'ho modificata di più

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

Vedi altro...

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

In genere suggerirei di impostare i valori degli assi all'esterno del grafico, ma in un caso semplice come questo, utilizzare sendtoreport all'interno del messaggio grafico dovrebbe essere sufficiente

Re: ridimensionamento uniforme degli assi nello script di Control Chart Builder

Grazie per l'aiuto! Immagino che la causa dei miei problemi fosse l'indice mancante [i] nella mia variabile elenco CCProperty.