Einen Winkel errechnen!?

[ISAS]

Habe hier ein rechtwinkeliges Dreieck, bei dem ich die Gegenkathete und die Ankathete gegeben habe. Das wäre nun Cosinus. Jetzt lautet die Formel: cos(Alpha)=Geg/Ank Alles leicht und gut, aber wie kann ich nun Alpha in Delphi errechnen.


Habe das gefunden: function RadToGrad(Radians: Extended): Extended; Do gibt es bei mir kein RadToGrad. Zwar steht es in der Hilfe drinnen, aber es is nicht da. Cosh hab ich auch gefunden, gibs aber auch nicht. Hoffentlich kann mir einer helfen.

Danke!

[Binärbaum]

Das die Funktionen nicht gefunden werden, liegt wahrscheinlich daran, dass du die Unit Math nicht in der uses-Klausel hast.
Um an alpha ranzukommen, müsste es sowas wie arccos geben.

MfG
Binärbaum

[Nikolas]

einfach mal in der Unit Math nach sin/cos schauen. Ich glaube du brauchst eher die Funktion DegToRad oder RadToDeg, um die Winkel ineinander umzurechnen.

[Binärbaum]

Nur mal so nebenbei:
Gilt nicht cos(x) = Ankathete/Hypotenuse ?
Bei dir steht es aber mit Gegenkathete/ Ankathete, was meiner Meinung nach der Tangens ist.

MfG
Binärbaum

[Oxmyx]

Es genügen ein paar Mathekenntnisse, denn der Umrechenfaktor von Bogenmaß nach Grad (im Englischen übrigens "Degree", und nicht "Grad"!) ist pi/180.

[Binärbaum]

Zitat von Oxmyx:

Es genügen ein paar Mathekenntnisse, denn der Umrechenfaktor von Bogenmaß nach Grad (im Englischen übrigens "Degree", und nicht "Grad"!) ist pi/180.

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

[PierreB]

Zitat von Binärbaum:

Nur mal so nebenbei:
Gilt nicht cos(x) = Ankathete/Hypotenuse ?
Bei dir steht es aber mit Gegenkathete/ Ankathete, was meiner Meinung nach der Tangens ist.

MfG
Binärbaum

Sin(Alpha)=Gegenkathete / Hypotenuse
Cos(Alpha)=Ankathete / Hypotenuse
Tan(Alpha)=Gegenkathete / Ankathete

Du hast Recht Binärbaum.

[sniper_w]

Zitat:

A = 50 degerees

X = cos ( A * pi / 180 );

Du hast X? Willst A?

Zitat:

A = arccos(X) * 180 / pi;

[Binärbaum]

Also dann kann man das folgendermaßen umsetzen:

Delphi-Quellcode:

uses math;
...
var alpha, geg, ank, hyp: Real;
...
//hier Werte für Gegen-, Ankathete und Hypotenuse einlesen
..
//Alpha berechen:
alpha:= arcsin(geg/hyp);
//oder
alpha:= arccos(ank/hyp);
//oder
alpha:= arctan(geg/ank);
alpha:= RadToDeg(alpha);//ins Gradmaß umrechnen

Ist doch garnicht so schwer, wenn man die mathematischen Grundlagen (und die Delphi-Funktionen) kennt.

MfG
Binärbaum

[ISAS]

Puh, danke für die schnellen Antworten.

Es stimmt, is natürlich Tan, hab mich verschaut. Und die Formel geht nun.