именование переменной в Mathematica с алгоритмом

Question

Я бы хотел сгенерировать определения переменных, используя алгоритм.

Например:

Я хотел бы запустить цикл, который выполняет следующие р = р1 р ^ 2 = р2 р ^ 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

Но я думаю, вы уже это знаете.

НТН!