私の質問はスパムとして報告されました
投稿へのリンク: (複数のグループでスプラインに適合)
沿って011717
https://community.jmp.com/t5/Discussions/Fit-Spline-with-multiple-groupings/mp/316655#M56822
みなさん、
必要な機能と似ていますが、Group by then FitSplineを使用しています。 したがって、タイプ、grpcolor、およびBPというさまざまなグループのプロットが必要です。 与えられた関数では、グループ化としてgrpcolorしかありません。 しかし、私が必要としているのは、これら3つのパラメーター(タイプ、数、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)、Reverse Scale(0)、Excluded Rows(0))}))); </CODECLASS></PRE></P><P>関数は次のとおりです: <PRE> <CODE class=""language-jsl"> bivpolyfit = Function({x_param、y_param、grouping}、biv = Bivariate(Y(Column(y_param))、X(Column(x_param))、GroupBy(Column(grouping))、&lt;&lt; Fit Polynomial(2 、{Line Width(2)})); rbiv = biv&lt;&lt; Report; rbiv [Framebox(1)]&lt;&lt; {Marker Size(3)}; rbiv [Axisbox(2)]&lt ;&lt; Tick Font(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; Tick Font(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 ["Polynomial Fit Degree = 2?"]&lt;&lt;このようにすべて閉じる; rbiv [Framebox(1)]&lt;&lt;行の凡例(列(グループ化)、色(1)、マーカー(0)、色のテーマ( "JMPデフォルト")、連続スケール(0)); rbiv [Framebox(1)]&lt;&lt;行の凡例(列(rdr)、色(0)、マーカー(1)、マーカーのテーマ( "ソリッド")); 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)); For(j = 1、j&lt; = nitems(xparam)、j ++、bivpolyfit(xparam [j]、yparam [j]、grpcolor); lb&lt;&lt; append(pbiv); biv&lt;&lt;ウィンドウを閉じる;) ; ppt9&lt;&lt; append(lb&lt;&lt; get picture); transdt&lt;&lt;クリア;
このメッセージには0件の返信があります