RE: Convert from String to variable
- To: mathgroup at smc.vnet.net
- Subject: [mg70244] RE: [mg70229] Convert from String to variable
- From: "David Park" <djmp at earthlink.net>
- Date: Mon, 9 Oct 2006 01:55:59 -0400 (EDT)
Peng, Just use Symbol. Symbol["a" <> ToString[1] <> ToString[2] <> ToString[3]] Head[%] a123 Symbol David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: PengYu.UT at gmail.com [mailto:PengYu.UT at gmail.com] To: mathgroup at smc.vnet.net 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? Are there any better solution to generate the assignment list? Thanks, Peng