在Mathematica中獲得矩陣輸入

我希望用戶輸入矩陣。我有下面的代碼。在Mathematica中獲得矩陣輸入

rmatrix = {{Input["r11"], Input["r12"]}, {Input["r21"], Input["r22"]}}

但它顯示了每個項目的單獨對話框。我想在一個對話框中獲得完整的矩陣。

我也試過用另一種方法。檢查下面的代碼。

form = FormFunction[{{"r11" -> "Number", 
    "r12" -> "Number"}, {"r21" -> "Number", "r22" -> "Number"}}, 
    MatrixForm];

但我不知道如何將這些值分配給矩陣。

來源

2017-01-20 sheldon cooper

rmatrix = DialogInput[{r11, r12, r21, r22}, Grid[{ 
    {"r11", InputField[Dynamic[r11], Number], "r12", 
     InputField[Dynamic[r12], Number]}, 
    {"r21", InputField[Dynamic[r21], Number], "r22", 
     InputField[Dynamic[r22], Number]}, 
    { 
     Button["done", DialogReturn[{{r11, r12}, {r21, r22}}], 
     ImageSize -> Automatic]}}]];

如果你不喜歡這一點，不會讓你退出，而無需輸入所有的值：

rmatrix = DialogInput[{r11, r12, r21, r22}, Grid[{ 
    {"r11", InputField[Dynamic[r11], Number], "r12", 
     InputField[Dynamic[r12], Number]}, 
    {"r21", InputField[Dynamic[r21], Number], "r22", 
     InputField[Dynamic[r22], Number]}, 
    { Button["done", DialogReturn[{{r11, r12}, {r21, r22}}], 
     ImageSize -> Automatic, 
     Enabled -> Dynamic[AllTrue[{r11, r12, r21, r22}, NumericQ]]]}}]];

來源

2017-01-20 18:56:29 agentp

感謝，正是我試圖實現。 –

Interpretation[{ 
    r11 = MakeBoxes[0], 
    r12 = MakeBoxes[0], 
    r21 = MakeBoxes[0], 
    r22 = MakeBoxes[0]}, Panel[Grid[{ 
    {InputField[Dynamic[r11], Boxes, FieldSize -> Tiny], 
    InputField[Dynamic[r12], Boxes, FieldSize -> Tiny]}, 
    {InputField[Dynamic[r21], Boxes, FieldSize -> Tiny], 
    InputField[Dynamic[r22], Boxes, FieldSize -> Tiny]} 
    }]], 
With[{r11 = ToExpression[r11], r12 = ToExpression[r12], 
    r21 = ToExpression[r21], 
    r22 = ToExpression[r22]}, {{r11, r12}, {r21, r22}}]]

來源

2017-01-20 19:03:36 Daniel

在Mathematica中獲得矩陣輸入

回答

相關問題