Re: Nummerierung von Variablen in parallelen Routinen schlägt fehl (MMA8)

["Udo und Susanne Krause" <su.krause@XXXXXXX.ch>]

Hallo Hakan & Rolf,

SetSharedFunction[] reicht aus, um alle Listen auszugeben, wie von Rolf  
bemerkt.

Bei SetSharedVariable[] muss man jede Variable einzeln anmelden. Die  
Initialisierung
innerhalb von SetSharedVariable[] ist nicht wirksam,

> SetSharedVariable[Array[pr, {101}, {2200}] = Table[{}, {101}]];

daher muss es heissen:

Remove[pr]
SetSharedVariable[Array[pr, {101}, {2200}]]
Do[pr[i] = {}, {i, 2200, 2300}]
ParallelDo[If[PrimeQ[2^i - 1], AppendTo[pr[i], i]], {i, 2200, 2300}]
Do[Print[pr[i]], {i, 2200, 2300}];

wenn man SetSharedVariable[] verwenden will.

Gruss
Udo.