213503_zh-CN

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>

 

回复：滑块更新更新图表的表格

您可能想根据我们都可以访问的标准数据表提出一个更简单的示例，然后我们可以拥有一些我们可以运行和评论的代码。