matrix - 如何在 MATHEMATICA 中通过键盘输入矩阵

Question

我可以通过键盘输入单行矩阵。作为

x = {};
n = 3;
For[k = 1, k ≤ n, k++,
    br = Input[Row[{"Enter the ", k, " element"}]];
    AppendTo[x, br];
]

这将得到一个单行矩阵，如 x={ 2, 3 , 6}。但是如果我想通过键盘输入 x = {{2,3,4},{4,5,6},{0,1,0}} 那我该怎么办？

Answer 1

比For循环更好：

 x = Table[ 
      Input[Row[{ "enter component:"  , i , j}] ], {i, 3}, {j, 3}]

最好还是试试这个：

 Table[ ToExpression@StringSplit[
         InputString[
             Row[{"enter row", i , 
                  " ( three numbers space separated)" }]]], {i, 3}]