我的問題已被舉報為垃圾郵件
鏈接發布： （具有多個分組的適合樣條）
通過011717
https://community.jmp.com/t5/Discussions/Fit-Spline-with-multiple-groupings/mp/316655#M56822
大家好，
我有一個與我需要的功能類似的功能，但可以使用“分組依據”和“擬合樣條線”。 因此，我需要具有不同分組的圖：類型，grpcolor和BP。 在給定的功能上，我只有grpcolor作為分組。 但是我需要的是這三個參數（類型，數字，BP）。 如何將這些代碼轉換為類似於以下示例的函數
圖示例：
Bivariate（Y（：Cal_I_Jmp），X （：STO_DCR_TS_LES），Fit Where（：BP ==“ 20nm”，Fit Spline（1000，{Line Color（{212，73，88}）}））），Fit Where（（BP ==“ 35nm”，Fit Spline （1000，{Line Color（{61，174，70}）}）），Fit Where（：BP ==“ 50nm”，Fit Spline（1000，{Line Color（{66，112，221}）}））） ，SendToReport（Dispatch（{}，“ Bivar Plot”，FrameBox，{Row Legend（BP，Color（1），Color Theme（“ JMP Default”）），Marker（0），Marker Theme（“”），Continuous Scale（ 0），反向縮放（0），排除的行（0））}））））））;）
以下是該函數：
bivpolyfit = Function（{x_param，y_param，grouping}，biv = Bivariate（Y（Column（y_param）），X（Column（x_param）），GroupBy（Column（grouping）），＆lt;＆lt;多項式（2 ，{Line Width（2}}））; rbiv = biv＆lt;＆lt; Report; rbiv [Framebox（1）]＆lt;＆lt; {Marker Size（3）}; rbiv [Axisbox（2）]＆lt; ;＆lt;刻度字體（style（0），size（9））＆lt;＆lt;顯示主要網格（1）＆lt;＆lt;顯示次要網格（1）＆lt;＆lt;顯示次要滴答聲（1）＆lt;＆lt; {Min（eval（xmin [j]）），Max（eval（xmax [j]））/ *，Inc（incr [j]）* /}; rbiv [Axisbox（1）]＆lt;＆lt;刻度字體（style（0），size（9））＆lt;＆lt;顯示主要網格（1）＆lt;＆lt;顯示次要網格（1）＆lt;＆lt;顯示次要滴答聲（1）＆lt;＆lt; {Min（eval（ymin [j]）），Max（eval（ymax [j]））/ *，Inc（incr [j]）* /}; rbiv [TextEditBox（2）]＆lt;＆lt;設置字體大小（10）＆lt;＆lt;設置字體樣式（“粗體”）； rbiv [TextEditBox（1）]＆lt;＆lt;設置字體大小（10）＆lt;＆lt;設置字體樣式（“粗體”）； rbiv [概述框（1）]＆lt;＆lt;設置標題（y_param ||“ vs” || x_param）; rbiv [“多項式擬合度＝ 2？”] ＜＜像這樣關閉所有； rbiv [Framebox（1）]＆lt;＆lt;行圖例（列（分組），顏色（1），標記（0），顏色主題（“ JMP默認”），連續縮放（0））； rbiv [Framebox（1）]＆lt;＆lt;行圖例（Column（rdr），Color（0），Marker（1），Marker Theme（“ Solid”））; rbiv [BorderBox（3）]＆lt;＆lt;刪除; rbiv [BorderBox（2）]＆lt;＆lt;刪除; pbiv = rbiv [OutlineBox（1）]＆lt;＆lt;得到圖片； <CODE class="“" language-jsl=""> ppt9 = OutlineBox（“ IJMP”）; yparam = {“ Cal_I_Jmp”，“ Cal_I_Jmp”，“ Cal_I_Jmp”，“ Cal_I_Jmp”}; xparam = {“ STO_DCR_TS_LES”，“ STO_DCR_TS_MP”，“ STO_R”，“ STO_TS”}; lb = LineupBox（NCol（4））;對於（j = 1，j <= nitems（xparam），j ++，bivpolyfit（xparam [j]，yparam [j]，grpcolor）; lb＆lt;＆lt; append（pbiv）; biv＆lt;＆lt; <關閉窗口;） ; ppt9＆lt;＆lt; append（lb＆lt;＆lt;獲取圖片）; transdt＆lt;＆lt;清除；
該消息有0條回复
