Forum: Programmieren allgemein
by devnull,
19. Nov 2003
@Czapie:
:zwinker: Also da muss ich dir zustimmen; aber das is ja auch in der Formel schon drin:
koor_y := -(speed * sin(winkel / 180 * Pi ) * t - 0.5 * erdanziehung * t * t)+100;
Erdanziehung:
0,5 * g * t²
:warn: g steht hier für die Erdanziehungskraft g = 9,81 kgms^-2
Forum: Programmieren allgemein
by devnull,
19. Nov 2003
Hi Yheeky,
While (t < 100) and (koor_y > 100) do
begin
koor_x := speed * cos(winkel / 180 * Pi ) * t+100;
koor_y := -(speed * sin(winkel / 180 * Pi ) * t - 0.5 * erdanziehung * t * t)+100;
Canvas.LineTo(Round(koor_x),Round(koor_y));
t:=t+0.1;
end;
Forum: Programmieren allgemein
by devnull,
18. Nov 2003
Hi,
hab auch schon mal Flugbahnen berechnet (allerdings für mein TankWars-ähnliches Spiel):
koor_x := speed * cos(winkel / 180 * Pi ) * t;
koor_y := speed * sin(winkel / 180 * Pi ) * t - 0.5 * erdanziehung * t * t;
'speed': für die Geschwindigkeit, mit der der Gegenstand abgefeuert wird
'winkel': der Winkel des Rohres zum waagrechten Untergrund