Re: Convert from String to variable
- To: mathgroup at smc.vnet.net
- Subject: [mg70240] Re: Convert from String to variable
- From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
- Date: Mon, 9 Oct 2006 01:55:54 -0400 (EDT)
- Organization: The Open University, Milton Keynes, UK
- References: <ega5d4$bpc$1@smc.vnet.net>
PengYu.UT at gmail.com wrote:
> I want generate some code like below.
>
> {a[0][0][0] -> a000, a[0][0][1] -> a001,
> a[0][0][2] -> a002, a[0][1][0] -> a010,
> a[0][1][1] -> a011, a[0][1][2] -> a012,
> a[0][2][0] -> a020, a[0][2][1] -> a021,
> a[0][2][2] -> a022, a[1][0][0] -> a100,
> a[1][0][1] -> a101, a[1][0][2] -> a102,
> a[1][1][0] -> a110, a[1][1][1] -> a111,
> a[1][1][2] -> a112, a[1][2][0] -> a120,
> a[1][2][1] -> a121, a[1][2][2] -> a122,
> a[2][0][0] -> a200, a[2][0][1] -> a201,
> a[2][0][2] -> a202, a[2][1][0] -> a210,
> a[2][1][1] -> a211, a[2][1][2] -> a212,
> a[2][2][0] -> a220, a[2][2][1] -> a221, a[2][2][2] -> a222}
>
> I'm looking for an automated way to generate the assignments for
> a[i][j][k] (i = 1...n,j=1...n,k=1...n).
>
> One way that I think of is
> Flatten[ Table[a[i][j][k] -> "a" <> ToString[i] <> ToString[j] <>
> ToString[k], {i, 0, 2}, {j, 0, 2}, {k, 0, 2}]].
>
> But this method requires to convert the strings to variables. Is it
> possible to do this in Mathematica?
Hi Peng,
The built-in function ToExpression transforms a string into a
Mathematica expression, in your case into a symbol.
Flatten[Table[a[i][j][k] -> ToExpression[
StringJoin["a", ToString[i], ToString[j],
ToString[k]]], {i, 0, 2}, {j, 0, 2}, {k, 0, 2}]]
Regards,
Jean-Marc
> Are there any better solution to generate the assignment list?
>
> Thanks,
> Peng
>