213503_zh-TW

liliconcom

滑塊更新更新圖表的表格

我正在嘗試使用滑塊更新表格，然後更新模型列中的模型以預測新值（在晶圓圖上），然後重新繪製等高線圖。 問題是，當您打開自動重新計算並將滑塊附加到等高線圖時，滑塊會在重新計算時被丟棄。

我可以將滑塊和等高線圖保存在單獨的窗口中，但是如果我在 JMP 項目中工作並且我必須編寫選項卡報告佈局腳本，那麼我就會遇到問題。

我不需要留在表格內 - 帶有滑塊格式的圖形，我們也可以在內存中完成所有操作，但我認為在代碼中重建等高線圖並不有趣。 只要我可以繪製點圖，圖形生成器也很好。

這個新 window() 中的當前解決方案有效，但在移動滑塊時，我正在刪除並重新附加更新的等高線圖，這有點麻煩而且很慢。 所以我正在尋找更好的解決方案！

 

 

附上示例表。

 

示例腳本附在此處：

Names default to here(1);
RangeMin = Associative array(["C flow" => 180,
"D flow" => 165,
"Time" => 33,
"Pressure" => 200,
"Temp" => 610,
"A flow" => 180,
"B flow" => 165]);
RangeMax = Associative Array(["C flow" => 355,
"D flow" => 325,
"Time" => 44,
"Pressure" => 350,
"Temp" => 630,
"A flow" => 355,
"B flow" => 450]);
SliderVars = {620.869565217391, 40.5217391304348, 268.478260869565, 263.260869565217,
288.913043478261, 271.086956521739, 247.608695652174, 263.43, 40.5217391304348,
268.478260869565, 263.260869565217, 288.913043478261, 271.086956521739,
247.608695652174, 620.869565217391, 40.5217391304348, 268.478260869565,
263.260869565217, 288.913043478261, 271.086956521739, 247.608695652174};
XColumns = {"Temp", "Time", "Pressure", "A flow", "B flow",
"C flow", "D flow"};
GraphingTable = Current Data Table();

sjaakie = New window("test", testlist = h list box());

CP = GraphingTable << Contour Plot(
 X( :X, :Y ),
 Y( :Models ),
 Show Data Points( 1 ),
 Fill Areas( 1 ),
 Label Contours( 0 ),
 Color Theme( "Spectral" ),
 Automatic Recalc( 1 )
);

ValuesOutlineBox = Outline Box("Values", SliderList = v list box());
For(i=1, i<= n items(XColumns),i++,
 SliderList << append(
  h list box(
   Text box(XColumns[i]),
   eval(
    parse(
     eval insert(
      "Var^char(i)^ = ^SliderVars[i]^;
      SB^char(i)^ = Slider Box(
       ^RangeMin << get value(XColumns[i])^,
       ^RangeMax << get value(XColumns[i])^,
       Var^char(i)^,
       NEB^char(i)^ << set( Var^char(i)^ );
       ^Column(GraphingTable, XColumns[i])^ << set values(J(n rows(),1,Var^char(i)^));
       testlist[2] << Delete Box();
       wait(0.1);
       testlist << append(report(CP));
      );"
     );
    );
   ),
   eval(
    parse(
     eval insert(
      "NEB^char(i)^ = Number Edit Box( Var^char(i)^,
       <<SETFUNCTION></SETFUNCTION>

 

 

回复：滑塊更新更新圖表的表格是的，我首先嘗試的另一種技術的神器，感謝您的幫助！回复：滑塊更新更新圖表的表格

供參考

 

當您使用 eval(parse(evalinsert( ... ))) 構造時，您不需要“char”變量。所以你可以寫

SB^i^ = Slider Box( . . . )

內容已經是一個字符串，所以 char 是多餘的。

回复：滑塊更新更新圖表的表格

我已經將等高線圖放在一個展示盒容器中，它似乎工作正常。

 

Names default to here(1);
RangeMin = Associative array(["C flow" => 180,
"D flow" => 165,
"Time" => 33,
"Pressure" => 200,
"Temp" => 610,
"A flow" => 180,
"B flow" => 165]);
RangeMax = Associative Array(["C flow" => 355,
"D flow" => 325,
"Time" => 44,
"Pressure" => 350,
"Temp" => 630,
"A flow" => 355,
"B flow" => 450]);
SliderVars = {620.869565217391, 40.5217391304348, 268.478260869565, 263.260869565217,
288.913043478261, 271.086956521739, 247.608695652174, 263.43, 40.5217391304348,
268.478260869565, 263.260869565217, 288.913043478261, 271.086956521739,
247.608695652174, 620.869565217391, 40.5217391304348, 268.478260869565,
263.260869565217, 288.913043478261, 271.086956521739, 247.608695652174};
XColumns = {"Temp", "Time", "Pressure", "A flow", "B flow",
"C flow", "D flow"};
GraphingTable = Current Data Table();

sjaakie = New window("test", testlist = h list box());

CPcontent = VListBox(
 GraphingTable << Contour Plot(
  X( :X, :Y ),
  Y( :Models ),
  Show Data Points( 1 ),
  Fill Areas( 1 ),
  Label Contours( 0 ),
  Color Theme( "Spectral" ),
  Automatic Recalc( 1 )
 )
);

ValuesOutlineBox = Outline Box("Values", SliderList = v list box());

For(i=1, i<= n items(XColumns),i++,
 SliderList << append(
  h list box(
   Text box(XColumns[i]),
   eval(
    parse(
     eval insert(
      "Var^char(i)^ = ^SliderVars[i]^;
      SB^char(i)^ = Slider Box(
       ^RangeMin << get value(XColumns[i])^,
       ^RangeMax << get value(XColumns[i])^,
       Var^char(i)^,
       NEB^char(i)^ << set( Var^char(i)^ );
       ^Column(GraphingTable, XColumns[i])^ << set values(J(n rows(),1,Var^char(i)^));
      );"
     );
    );
   ),
   eval(
    parse(
     eval insert(
      "NEB^char(i)^ = Number Edit Box( Var^char(i)^,
       <<SETFUNCTION></SETFUNCTION>

 

回复：滑塊更新更新圖表的表格

您可能想根據我們都可以訪問的標準數據表提出一個更簡單的示例，然後我們可以擁有一些我們可以運行和評論的代碼。