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

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}}，那我该怎么办？

包装其他周边的你For循环的外循环。新的循环对行进行计数。对你的代码做一些小的修改，然后使用它。 – Bill 2015-04-03 15:53:53

比For循环更好：

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

，更好地尝试这个办法：

Table[ [email protected][ 
     InputString[ 
      Row[{"enter row", i , 
        " (three numbers space separated)" }]]], {i, 3}]

2015-04-03 17:52:27 agentp

谢谢@agentp表格比For循环更好。 – 2015-04-06 09:37:11

回答