variables - 使用算法在mathematica中命名变量

Question

我想使用算法生成变量的定义。

例如:

我想运行一个执行以下操作的循环p=p1p^2=p2p^3=p3

所以对于 p^i 我想定义一个变量 pi (i 是一个数字)。

Answer 1

badListEmulation[varName_?StringQ, maxIndex_?IntegerQ] := 

      ToExpression /@ 
             Table[(varName <> # <> "=" <> varName <> "^" <> #) & [ToString@i], 
                   {i, maxIndex}
             ];

使用

 badListEmulation["var", 10]

结果

 {var, var^2, var^3, var^4, var^5, var^6, var^7, var^8, var^9, var^10}

 ?var3
 var3=var^3 ... etc

注意:

当然，使用列表要好得多。类似的东西

aList = Table[p^i,{i,6}];

aList[[3]]
p^3

但我想你已经知道了。

呵呵!