Zitat von
rajuneon:
Delphi-Quellcode:
Timer1Timer...
lw := 0.5 * rho * cw * A * (sqr(vx) + sqr(vy)) / 10000; // <-- hier ziehst du die Wurzel aus vx und vy gemäß Wiki sollten das aber Quadrate sein!!
winkelbogen := arctan(vy / vx);
winkel := RadToDeg(winkelbogen);
ax := (-cos(winkelbogen)) * lw * m;
ay := (-g) - (sin(winkelbogen) * lw / m);
vx := vx + (ax * (interv / 1000));
vy := vy + (ay * (interv / 1000));
v := vx + vy;
x := x + (vx * (interv / 1000));
y := y + (vy * (interv / 1000));
// Berechnung der variablen Werte MIT Luftwiderstand
Also hab mir die Formeln in Wiki mal angeschaut und habe einen Fehler gefunden, vieleicht wars das ja dann schon, hab den Fehler kommentiert. Anscheinend hast du nur Wurzel mit Quadrat vertauscht in der ersten Formel.
MfG
BAMatze