Probleme mit atan/atan2

[Pflaumi]

Hallo,
ich programmiere ein Spiel, wofür ich die Funktion "atan" oder "atan2" brauche.
Wenn ich jetzt schreibe: a := atan(50/50);
oder: a := atan2(50, 50);
dann kommt immer die Fehlermeldung "Spiel.pas(96): Undefinierter Bezeichner: 'atan'".
Muss man am Anfang irgenteine Klasse installieren/deklahieren?
Ich freue mich über Hilfe. :-D

Falls du mehr anfangen kannst wenn du den Qelltext hast, dann schreib mir!

[Daniel]

Die Funktion müsste ArcTan() heißen.

[Rollo62]

Richtig, und diese Unit bräuchte man dafür.

Delphi-Quellcode:

interface

uses
    System.Math
   ...
   ...
   ;

...

[Andreas13]

Und nicht vergessen, daß die trigonometrischen Funktionen stets in Bogenmaß (= Radiant) "denken"...

Gruß
Andreas

[Pflaumi]

Vielen Dank,
Jetzt habe ich noch ein Problem, ich möchte wissen, wie man dass, was arctan ausgibt,
in Grad umrechnet. :(
Kann mir jemand helfen? :cyclops:

[Klaus01]

siehe hier -> https://www.frustfrei-lernen.de/math...-gradmass.html

.. oder RadToDeg aus der Math Library nutzen.

Grüße
Klaus

[Andreas13]

Delphi-Quellcode:

Function DegToRad(x: Extended): Extended;
Begin
  Result:= x*Pi/180; // Pi/180 = 0,0174532925199432
End;


Function RadToDeg(x: Extended): Extended;
Begin
  Result:= x/(Pi/180); // Pi/180 = 0,0174532925199432
End;

Gruß
Andreas

[Pflaumi]

Danke :)
kann mir noch jemand eine Funktion (oder etwass anderes) nennen,
wie man die Zahl auf ganze Grad runden kann.
Oder einfach allgemein eine Funktion zum Runden!
Das wäre cool 8-)

[Heuman]

Hallo,

z.B. so

function cnc_round(fzahl: Extended): Extended;

begin

result := round(fzahl * 10000) / 10000;

end;


Gruß

[Andreas13]

Hallo Felix,
etwas professioneller geht es so:

Delphi-Quellcode:

Function ArithRound(x: Extended): Int64;
Begin
  IF Frac(x) < 0.5 Then
    Result:= Floor(x)
  Else
    Result:= Ceil(x);
End;{ArithRound}
{--------------}

oder

Delphi-Quellcode:

Function ArithRound(x: Extended): Int64;
Begin
  Result:= Trunc(x + 0.5); 
End;{ArithRound}
{--------------}

Gruß
Andreas