Geschwindigkeitsprobleme-Nachtrag

[Bernd Jagla <bernd@XXXXXXX.org>]

Offentsichlich liegt das Problem bei
AppendTo =
Sollte man nicht nehmen wenn man viele
derartige Operationen
durchzufuehren hat (ganz schlecht)

Im Handbuch wird folgendes vorgeschlage:

s = {s, new}
und anschliessend
s = Flatten[s]

Damit kommt aber das Problem auf, dass
man hinterher nur noch
eine List hat und man keine Listen von
Listen erzeugen.

Man kann aber eine List mit maximaler
Laenge erzeugen, die
Felder beschreiben, die man beschreiben
moechte und dann
mit DeleteCases die leeren Felder
rausschmeissen.

ungefaehr so:

mat1=Table[{},{Dimensions[cyto][[1]]}];
mat2=Table[{},{Dimensions[cyto][[1]]}];
anz1=1;anz2=1;
Do[If[Mod[i,1000]==0,Print[TimeUsed[],"Comparing
status:\t",i]];

If[cyto[[i]].cytoinv.cyto[[i]]<cyto[[i]].cleavinv.cyto[[i]],Ne=Ne+1;


mat1[[anz1++]]=cy[[i]],Ov=Ov+1;mat2[[anz2++]]=cy[[i]]],{i,anzcyto}];

mat1=DeleteCases[mat1,{}];
mat2=DeleteCases[mat2,{}];

Ok so weit so gut. Ich hoffe, ich habe
Euch nicht zu sehr mit meinem
kleinen Problem gelangweilt...

Viele Gruesse und weiterhin viel Spass
mit der Mathematik


Bernd