[Delphi] Cosinus in DEG berechnen?

Computer: Software & Programmierung Programmierung allgemein
1

Hallo,

weiß jemand, wie man in Delphi 5 (Pro) den Cosinus in DEG ausrechnet?

Die Delphi-eigene Funktion berechnet den Cosinus ja im Bogenmaß (RAD).

Michael

2

Hallo Michael,

so schwer ist das nicht:

function degcos(x: Extended): Extended;
begin
degcos := cos(x * 2 * pi / 360);
end.

Roland (Mathe-LK!)

3

Hallo Michael,

da 360 Grad („DEG“) gerade 2*pi im Bogenmaß („RAD“) entsprechen, ist der Umrechnungsfaktor gleich pi/180 = 0.017453293…

Diesen Umrechnungsfaktor definierst Du in Deinem Programm am besten als Konstante („CONST k = 0.017453293“), dann ist die „Mehrarbeit“ des Prozessors mit einer einzigen Multiplikation so klein wie möglich .

Also: cos(„60 Grad“) = cos(k*60) = 0.5

Dasselbe gilt natürlich auch für den Sinus, den Tangens usw.

Gruß
Martin

4

Hallo,

danke, es funktioniert.

Kennst Du eine Webseite, wo solche Formeln für Umwandlungen usw. beschreiben sind?

Michael

5

Ich empfehle eine gute Formelsammlung (z.B. Bronstein/Semendjajew http://www.amazon.de/exec/obidos/ASIN/3817120141/o/q…)

Reinhard