Eine Art 'Ballwurf' simulieren

[arbu man]

Hab mal eben was zu sammen zusammen gestelt, das ganze gibt bei 45 Grad auch einen ihmo realistischen wurf

Delphi-Quellcode:

var
  wurf:boolean=false;
  xs0,ys0,xs,ys:double;
  g:double=9.81;
  v,w,t,ymax:double;

uses math;

function sinus(angle: Real): Real;
begin
  result := sin(Pi*angle/180);
end;

function cosinus(angle: Real): Real;
begin
  result := cos(Pi*angle/180);
end;

procedure setup;
begin
  v:=strtofloat(edit1.Text);// geschwindigkeit
  w:=strtofloat(edit2.Text);// winkel in grad
  xs0:=v*cosinus(w);
  ys0:=v*sinus(w);
  ymax:=0.5*g*sqr( (v*sinus(w))/g );
  t:=0;
  wurf:=true;
end;

// deltaTime = Zeit die seit dem letzten zeichnen vergangen ist
procedure draw( const deltaTime: double);
begin
  if not wurf then exit;
  t:= t + deltaTime;
  ys:=ys0*t-0.5*g*sqr(t);
  xs:=t*v;
  // mit ys und xs zeichnen
end;