Geschwindigkeitsprobleme

[Bernd Jagla <bernd@XXXXXXX.org>]

Hallo liebe MMA Freunde,

Ich versuche folgende Do Schleife
auszurechnen. Die Matrix ist {140,140}
dimensional und
es gibt ca 160 000 Vectoren cyto der
Dimension 140.

Do[
   If[cyto[[i]].cytoinv.cyto[[i]] <
cyto[[i]].cleavinv.cyto[[i]],
       Ne = Ne +
1;AppendTo[mat1,cy[[i]]],
       Ov = Ov +
1;AppendTo[mat2,cy[[i]]]],
  {i, anzcyto}];

Ich habe festgestellt, dass diese
Schleife im Laufe der Zeit immer
langsamer
wird. Ich kann mir leider nicht
erklaeren warum.

Wenn irgendjemand einen Vorschlag hat,
waere ich sehr dankbar.

Gruss

Bernd