Forum: Object-Pascal / Delphi-Language
Delphi
by Binärbaum,
26. Feb 2005
Mit dem Sinus und Cosinus dazu addiert kommt man doch auch bloß auf Werte im Bereich von 199..201, da Sinus und Cosinus als Wertebereich ja nur das Intervall haben.
Ich verstehe nicht so richtig, was du sonst mit dem Sinus/ Cosinus bezwecken willst.
MfG
Binärbaum
Forum: Object-Pascal / Delphi-Language
Delphi
by Binärbaum,
25. Feb 2005
Das habe ich doch schon weiter oben vorgeschlagen (siehe Quellcode). Allerdings hat ISAS das offensichtlich noch nicht geändert.
Forum: Object-Pascal / Delphi-Language
Delphi
by Binärbaum,
25. Feb 2005
Ich weiß zwar nicht genau, was die Funktionen Cos256 und Sin256 berechnen (wenn es Sinus- und Cosinuswerte sind, kann man doch auch sin und cos nehmen, oder besser SinCos), aber ich vermute jetzt mal dass es an den letzten beiden Zeilen liegt:
Procedure TPlayer.domove(MoveCount: Integer);
begin
Angle:=Round(arctan((Aim.Y-Player.Y)/(Aim.X-Player.X)) * 180/pi);
inherited DoMove(MoveCount);...
Forum: Object-Pascal / Delphi-Language
Delphi
by Binärbaum,
25. Feb 2005
Also dann kann man das folgendermaßen umsetzen:
uses math;
...
var alpha, geg, ank, hyp: Real;
...
//hier Werte für Gegen-, Ankathete und Hypotenuse einlesen
..
//Alpha berechen:
Forum: Object-Pascal / Delphi-Language
Delphi
by Binärbaum,
25. Feb 2005
Dem kann ich nur zustimmen. RadToGrad rechnet den Winkel im Neugradmaß aus, welches manchmal bei Vermessungstechnikern verwendet wird. Dort heißt die Einheit Gon und 400 Gon bilden einen Vollwinkel, während es im "normalen" Gradmaß nur 360 Grad sind.
MfG
Binärbaum
Forum: Object-Pascal / Delphi-Language
Delphi
by Binärbaum,
25. Feb 2005
Nur mal so nebenbei: :wink:
Gilt nicht cos(x) = Ankathete/Hypotenuse ?
Bei dir steht es aber mit Gegenkathete/ Ankathete, was meiner Meinung nach der Tangens ist.
MfG
Binärbaum