Entering data with Input[] in mathematica
How can i make in this code the text in Dialog Box of the Input command to be l开发者_StackOverflowike this "Enter the 1 element","Enter the 2 element"....
For[k = 1, k ≤ n, k++,
br = Input["Enter the ",i,"element"];
AppendTo[x, br];
]
Make sure your variables match. :-)
You can use Row
to build up the text.
x = {};
n = 3;
For[k = 1, k <= n, k++,
br = Input[Row[{"Enter the ", k, " element"}]];
AppendTo[x, br];
]
(You could also use StringJoin["Enter the ", ToString[k], " element"]
, but I like Row
better.)
According to the Input[ ] help:
The prompt given can be text, graphics or any expression.
So, anything will fit in the input prompt!
Just as an example (note the explicit loop is not needed):
x = Input[
Panel[Grid@{{Row[{"Enter the element number ", #}]},
{PolyhedronData["Platonic", {"Image"}][[Mod[#, 5] + 1]]}}]
] & /@ Range[1, 5]
Will show things like:
精彩评论