用算法命名mathematica中的变量

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

但我想你已经知道了。

啊!