我試圖讓用戶輸入幾個變量，一旦這些變量被認為是正確的，那麼 ok 按鈕就會從灰色變為活動狀態。 我得到了這個工作。 我沒有工作的是 Eval Expr（輸出）。 這只是一件簡單的事情，只是為了確保在我進行計算之前我有這個工作。 當我運行腳本時，這是一個屏幕截圖，確定按鈕是灰色的：
然後，我輸入合理的值，單擊驗證輸入後，確定按鈕顯示為活動狀態：
但它沒有運行我的表達式並創建表。 我究竟做錯了什麼？ 我使用的是 JMP 16.0 Pro。 就像我說的，我做了一些非常簡單的事情，比如創建一個表格，只是為了確保我的腳本在我深入了解我真正需要的東西之前可以正常工作。
Names Default To Here( 0 );
Clear Log();
w = New Window( "Variables",
<<MODAL>= 1 | alpha == 0,
alphaw = New Window( "Error!",
<<MODAL>= 1 | beta == 0,
betaw = New Window( "Error!",
<<MODAL> 90 | percent == 0,
percentw = New Window( "Error!",
<<MODAL> 0.90 | p0 == 0,
p0w = New Window( "Error!",
<<MODAL>= 1 | Abs( beta ) >= 1 | DOEN == 0 |
Abs( percent ) > 90 | percent == 0 | Abs( p0 ) > 0.90 | p0 ==
0 | alpha == 0 | beta == 0, bb << Enable( 0 ),
bb << Enable( 1 ),
Eval Expr( output )
);
)
),
bb = Button Box( "OK" ),
bb << Enable( 0 );
)
)
);
Show( alpha );
Show( beta );
Show( DOEN );
Show( percent );
Show( p0 );
output = Expr(
dt = New Table( "Test Table",
New Column( "a", Set Values( {alpha, beta, N, percent, p0} ) )
);
w << closeWindow;
);</MODAL></MODAL></MODAL></MODAL></MODAL>
我認為你應該能夠擺脫 eval expr()。 如果你只是做輸出，它會評估。 你也可以只做 Eval(output)。EvalExpr 更多用於創建動態表達式。這是腳本索引中的一點。
EvalExpr 返回表達式的副本，其中 x 中的每個 Expr() 子句都替換為其計算值
所以
Eval Expr( Length( Expr( "X" || Char( 12 ) ) ) ); // returns Length("X12")
如果你想評估它，你必須這樣做
Eval(Eval Expr( Length( Expr( "X" || Char( 12 ) ) ) ));
但你只是想評估一個我認為的表達式，所以你可能不需要 evalexpr()
在創建 w 之前移動輸出表達式，並在按下 OK 按鈕時創建輸出。
查看更多...Names Default To Here(0);
Clear Log();
output = Expr(
dt = New Table("Test Table", New Column("a", Set Values({alpha, beta, N, percent, p0})));
bb << click;
);
w = New Window("Variables",
<<MODAL>= 1 | alpha == 0,
alphaw = New Window("Error!",
<<MODAL>= 1 | beta == 0,
betaw = New Window("Error!",
<<MODAL> 90 | percent == 0,
percentw = New Window("Error!",
<<MODAL> 0.90 | p0 == 0,
p0w = New Window("Error!",
<<MODAL>= 1 | Abs(beta) >= 1 | DOEN == 0 | Abs(percent) > 90 | percent == 0 | Abs(p0) > 0.90 | p0 == 0 | alpha == 0 | beta == 0,
bb << Enable(0),
bb << Enable(1),
write(); //not sure why this is needed here
);
)
),
bb = Button Box("OK", output, << enable(0))
)
)
);
Show(alpha);
Show(beta);
Show(DOEN);
Show(percent);
Show(p0);</MODAL></MODAL></MODAL></MODAL></MODAL> 並且因為您使用的是 Modal，所以您也可以在關閉 modal 後創建新表，因為在關閉 modal 之前腳本不會繼續執行。
這是一個示例，如果您願意，您可以如何重構代碼（您也可以使用 << 設置最小值和 << 設置最大值將最小值/最大值“強制”到數字編輯框）。 如果您願意，這還允許您在驗證步驟中顯示所有錯誤消息：
查看更多...Names Default To Here(0);
Clear Log();
validator = function({alpha, beta, N, percent, p0}, {Default Local}, //could also be expression, but this way you avoid creating unnecessary variables
DOEN = 0;
For(i = 1, i < 10, i++,
If(2 ^ i == N,
DOEN = DOEN + 1
)
);
error_list = {};
If(Abs(alpha) >= 1 | alpha == 0,
Insert Into(error_list,"Alpha needs to be between 0 and 1, please fix and try again");
);
If(Abs(beta) >= 1 | beta == 0,
Insert Into(error_list,"Beta needs to be between 0 and 1, please fix and try again");
);
If(DOEN == 0,
Insert Into(error_list,"N should be 2\!U1D3A, do not include centerpoints or repeats with N, please fix and try again");
);
If(Abs(percent) > 90 | percent == 0,
Insert Into(error_list,"The percent needs to be between 0 and 90%, please fix and try again");
);
If(Abs(p0) > 0.90 | p0 == 0,
Insert Into(error_list,"The p0 needs to be between 0 and 0.90, please fix and try again");
);
If(N Items(error_list) > 0,
nw = New Window( "Error!", <<MODAL></MODAL>編輯：
顯示框使用的一些選項：
查看更多...Names Default To Here(0);
Clear Log();
validator = function({alpha, beta, N, percent, p0}, {Default Local},
error_list = {};
DOEN = 0;
For(i = 1, i < 10, i++,
If(2 ^ i == N,
DOEN = DOEN + 1
)
);
If(Abs(alpha) >= 1 | alpha == 0,
Insert Into(error_list,"Alpha needs to be between 0 and 1, please fix and try again");
);
If(Abs(beta) >= 1 | beta == 0,
Insert Into(error_list,"Beta needs to be between 0 and 1, please fix and try again");
);
If(DOEN == 0,
Insert Into(error_list,"N should be 2\!U1D3A, do not include centerpoints or repeats with N, please fix and try again");
);
If(Abs(percent) > 90 | percent == 0,
Insert Into(error_list,"The percent needs to be between 0 and 90%, please fix and try again");
);
If(Abs(p0) > 0.90 | p0 == 0,
Insert Into(error_list,"The p0 needs to be between 0 and 0.90, please fix and try again");
);
If(N Items(error_list) > 0,
nw = New Window( "Error!", <<MODAL></MODAL>
我首先嘗試了 Eval（輸出），但沒有成功，所以我第二次嘗試了 Eval expr()。 我自己嘗試了輸出，但它不起作用。
