文件路徑 = 選擇文件(
“選擇 Excel 檔案”、“$Documents”、
{"所有檔案|jmp;jsl;xlsx;xlsm", "JMP 檔案|jmp;jsl", "Excel 檔案|*"},
1, //選擇項目
0, //儲存文件
"Daily_Cpk.xlsx", //預設選擇
);
dt = 開啟(檔案路徑);
//Xaxis = {"db_data_source_cd"};
Y軸= {“offset_micron”};
//資料= {“datatag_cd”};
總結(uparam=by(datatag_cd));
nw = new window("日線機Cpk",
分配(
堆疊(1),
連續分佈(
列(:offset_micron),
水平佈局(1),
垂直(0),
能力分析(
//規格限制(
datatag_cd[i] == "THA_X", LSL( -150 ), USL( 150 ),
datatag_cd[i] == "THA_Y", LSL( -150 ), USL( 150 ),
datatag_cd[i] == "THA_Theta", LSL( -300 ), USL( 300 ),
//)
)
),
通過(:db_data_source_cd,:datatag_cd)
)
);
程式碼正在運行,只留下 datatag_cd 部分:X 和 Y 的參數,我想將限制設為 +-150。但是,產生的圖表僅適用於 Theta 的所有規格限制。如何使規格限制發揮作用?
我很可能會向不同的分發平台發送單獨的訊息。下面的腳本可能會給出一些想法
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Variability Data/2 Factors Crossed.jmp");
nw = New Window("Daily Line Machine Cpk",
dists = dt << Distribution(
Stack(1),
Continuous Distribution(
Column(:Measurement),
Horizontal Layout(1),
Vertical(0),
),
By(:operator)
)
);
specs = Associative Array();
specs["Cindy"] = {0.2, 2};
specs["George"] = {0.3, 3};
specs["Tom"] = {0.4, 4};
For Each({dist}, dists,
cur_report = Report(dist);
curname = Word(-1, cur_report[OutlineBox(1)] << get title, "=");
Eval(EvalExpr(
dist << Capability Analysis(
LSL(Expr(specs[curname][1])),
USL(Expr(specs[curname][2]))
)
));
cur_report[AxisBox(1)] << Min(specs[curname][1] - 0.2);
cur_report[AxisBox(1)] << Max(specs[curname][2] + 0.2);
);
根據您需要的報告類型,您可能還需要檢查 JMP 提供的其他平台:流程能力、流程篩選(但有些可能需要您分割資料)