Ich nochmal aber mit einem anderen Problem.
Wie schaffe ich es, anhand der Eintrittswinkel die Austrittswinkel nach dem Zusammenprallen zu berechnen.
Ich kenne folgende Daten:
- Der Winkel der Bewegung beider Kreise
- Die Geschwindigkeit beider Kreise
- Die Lage der Kreise zueinander
Bisher habe ich Folgendes.Nicht wundern der Code ist in Delphi:
Code
procedure TKugel.anstossen(kKugel:TKugel);
var
Seitenhalbierende:real;
begin
if (sqr(kKugel.zx - zx)+sqr(kKugel.zy - zy) <= sqr(kKugel.zRadius + zRadius) )
then begin
Seitenhalbierende:=zRichtung/2;
zRichtung := zRichtung + 180 ;
hStift.dreheBis(zRichtung);
kKugel.zRichtung := kKugel.zRichtung + 180;
kKugel.hStift.dreheBis(kKugel.zRichtung);
end;
end;
Alles anzeigen
bis zum ersten then begin geht es, aber dannach weiß ich halt nicht weiter. Wie ihr seht, drehen die sich einfach um 180°.
Als Anregeung(ich habe es nicht verstanden http://www.uni-protokolle.de/foren/viewt/58889,0.html(der vorletzte Post)
Hoffe ihr könnt es mir verständlich beibringen