〓 Mathematica 七 〓 [転載禁止]©2ch.net

[0116 １３２人目の素数さん 2015/12/28(月) 00:59:30.78 ID:NFbTjtr3]

添字付き変数渡しは、Headのせいか難しいっぽい。
答えにはなっていませんが、ListのPart扱いなら、
a = {};
Do[AppendTo[a, 0], {10}](*初期値*)
SetSharedVariable[a];
ParallelDo[a[[i]] = i, {i, 1, 10}] (*並列計算*)
Do[Print[a[[i]]], {i, 1, 10}]