mh. Ich versuche jetzt erst einmal die Teilchen geordnet in den Raum zu setzen, bekomme das aber nicht ganz hin:
Versuch:
Delphi-Quellcode:
var x,y,z:single;
d,f:single;
i:integer;
begin
//T ist das Array mit den Teilchen
f:=power(high(T),1/3);
//Der Raum ist 70 Einheiten groß
d:=70 / f;
y:=0;
x:=0;
z:=0;
for i:=0 to high(T) do begin
T[i].x:=x;
T[i].y:=y;
T[i].z:=z;
x:=x+d;
if x>f*d then begin
x:=1;
y:=y+d;
end;
if y>f*d then begin
y:=1;
z:=z+d;
end;
end;
Warum wird so nicht der komplette Raum ausgefüllt, sondern es bleiben immer Ränder?
