使用算法在mathematica中命名变量

Question

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

例如：

我想运行一个执行以下操作的循环 P = P1 P 1 2 = P2 P 1 3 = P3

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

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

NB：

使用列表当然更好。像

这样的东西

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

aList[[3]]
p^3

但我想你已经知道了。

HTH！