使用mathematica中的Input []输入数据

Question

如何在此代码中将Input命令的对话框中的文本设置为“输入1个元素”，“输入2个元素”....

For[k = 1, k ≤ n, k++,
  br = Input["Enter the ",i,"element"];
  AppendTo[x, br];
]

Answer 1

确保您的变量匹配。 ： - ）

您可以使用Row来构建文字。

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

（您也可以使用StringJoin["Enter the ", ToString[k], " element"]，但我更喜欢Row。）

Answer 2

根据输入[] 帮助：

The prompt given can be text, graphics or any expression.

所以，任何东西都适合输入提示！

仅作为示例（注意不需要显式循环）：

x = Input[
    Panel[Grid@{{Row[{"Enter the element number ", #}]}, 
                     {PolyhedronData["Platonic", {"Image"}][[Mod[#, 5] + 1]]}}]
         ] & /@ Range[1, 5]

会显示如下内容：