如何在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}]