Delphi-Quellcode:
function VectorLength(v: TVector): double;
asm
fld v.x;
fmul v.x;
fld v.y;
fmul v.y;
faddp;
fsqrt;
fstp result;
// In Delphi-Language:
// result := sqrt(sqr(v[0])+sqr(v[1]));
end;
Optimiert hier der Delphi Compiler so schlecht?
Nachtrag: Bei sehr vielen Partikeln leidet die Performance doch recht stark.