根据列公式创建预测表达式显示我想在自定义报告窗口中基于列公式创建格式化的预测表达式。 当我使用最小二乘拟合线性模型时，在模型报告中，我可以打开预测表达式的显示，该显示将显示等式的格式化“图片”视图。
然后，我可以将公式作为带有公式的列保存到数据表中。
现在，我想选择该列，并在新的报告窗口中单独显示保存到该列的公式的预测表达式。
有没有办法用JSL做到这一点？
脚本编写回复：基于列公式创建预测表达式显示您可以简单地使用传递到该列的<< <<获取公式消息来检索该公式。
Names Default To Here( 1 );
dt = New Table( "Example",
add rows( 10 ),
New Column( "The Column", formula( Random Integer( 1, 100 ) ) )
);
theFormla = dt:The Column << get formula;
回复：基于列公式创建预测表达式显示如果要查找预测表达式的图片，则可以使用Expr As Picture（）。
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Drug.jmp" );
obj = dt << Fit Model(
Y( :y ),
Effects( :Drug, :x ),
Personality( Standard Least Squares ),
Emphasis( Minimal Report ),
Run
);
obj << Prediction Formula;
New Window( "Example",
Lineup Box( N Col( 1 ), spacing( 10 ),
Text Box( "Column Formula" ),
Border Box( Left( 10 ), Right( 10 ), bottom( 10 ), top( 10 ), sides( 15 ),
Expr As Picture( dt:pred formula y << get formula )
)
)
);
回复：基于列公式创建预测表达式显示谢谢，这就是我所需要的。 我知道有办法做到这一点，我只是不记得表示为Picture（）框显示对象。
回复：基于列公式创建预测表达式显示自从我发布此消息以来已经有好一段时间了。 我想分享我开发的脚本，以允许快速查看数据表中列中的公式，并允许以交互方式切换列。
/* this script presents a list of columns in the current data table
in a list box, and upon selecting a column, if the column has a formula,
it will display the formula below the list box as a picture.
If the column does not have a formula, "No Column Formula" is displayed
*/
Names Default To Here( 1 );
_dt = Current Data Table();
expr_ShowFormulaAsPicture = Expr(
_vb1 << Delete;
_vb << Append( _vb1 = V List Box() );
_c = Column( dt, (_clb << Get Selected)[1] );
If( Is Empty( _c << Get Property( "Formula" ) ),
_vb1 << Append( Text Box( "No Column Formula" ) ),
_vb1 << Append( Picture Box( Expr As Picture( _c << get formula ) ) )
);
);
New Window( "Show Column Formula as Picture",
_vb = V List Box(
)
);
_vb << Append(
_pb = Panel Box( "Select Column With Formula To Display as Picture",
_clb = Col List Box(
_dt,
max selected( 1 ),
grouped,
all,
On Change( expr_ShowFormulaAsPicture )
)
)
);
_vb << Append( _vb1 = V List Box() );
此处的示例窗口：
