Probleme mit atan/atan2

[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

[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

[Pflaumi]

Danke,
wenn wir gleich beim Thema sind, schneidet die Funktion FloatToStrF alle Kommastellen weg oder rundet diese genauso?
Dazu habe ich auch noch eine Frage:
Ich weiß, dass hinter der Funktion eine Klammer mit vier Parametern hingehört.
Kann mir jemand sagen, welcher Parameter für was zuständig ist?
Schon mal Danke !

[peterbelow]

Zitat von Pflaumi:

Danke,
wenn wir gleich beim Thema sind, schneidet die Funktion FloatToStrF alle Kommastellen weg oder rundet diese genauso?
Dazu habe ich auch noch eine Frage:
Ich weiß, dass hinter der Funktion eine Klammer mit vier Parametern hingehört.
Kann mir jemand sagen, welcher Parameter für was zuständig ist?
Schon mal Danke !

Lern die Hilfe zu benutzen, auch die online-Version.
http://docwiki.embarcadero.com/Libra...ls.FloatToStrF

Die Funktion erlaubt es, die Zahl der Nachkommastellen zu spezifizieren, und auch, ob man das scientific format verwenden will oder fixed format.

http://docwiki.embarcadero.com/Libra...s.TFloatFormat

[Andreas13]

Hallo Felix,

die Online-Hilfe führt einen (wenigstens bei XE5 Pro) in die Irre: ms-help://embarcadero.rs_xe5/libraries/System.UnicodeString.FloatToStrF.html
denn FloatToStrF befindet sich nicht in der Unit „System.UnicodeString.pas“ (die gibt’s ja gar nicht), sondern in
System.SysUtils.pas

Dort findest Du u.a.:
function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits: Integer): string;
// TFloatFormat = (ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency);

FloatToStrF converts the floating-point value given by Value to its string representation. The Format parameter controls the format of the resulting string. The Precision parameter specifies the precision of the given value.
It should be 7 or less for values of type Single, 15 or less for values of type Double, and 18 or less for values of type Extended. The meaning of the Digits parameter depends on the particular format selected.
usw. usf.
…
Gruß
Andreas