Sinus, Cosinus, Tangens

[Delphi Freak]

Hallo,

ich will Sinus, Cosinus und Tangens von meinem Programm ausrechnen lassen, die Befehle sind ja entsprechend Sin(x), Cos(x) und Tan(x), so weit bin ich schon, nur sind die Werte dann im Winkelmaß angegeben und ich hätte sie gerne im Gradmaß, du Funktion dazu heißt ja: RadToDeg; so weit hab ichs auch schon, aber trotzdem kommen voll die komischen Werte raus. Zum Beispiel bei Sinus von 30° kommt bei mir -56,6100420859772 raus, eigentlich müsste ja 0,5 rauskommen!
Hier noch mein Quelltext:

Delphi-Quellcode:

procedure TForm1.BuSinusClick(Sender: TObject);
begin
  x := StrToFloat(Edit.Text);
  z := RadToDeg(Sin(x));
  Edit.Text := FloatToStr(z);
end;

Ich hoff, ihr könnt mir sagen, wo mein Fehler ist! Danke schon im voraus!
MfG
Florian

[Matze]

Hallo,

da du die 30° vorgibst, musst du diese zuerst ins Bogenmaß umrechnen lassen:

z := RadToDeg(Sin(DegToRad(x)));

[Wolfgang Mix]

... oder sin(alpha*pi/180)

[jfheins]

Zitat von Matze:

Hallo,

da du die 30° vorgibst, musst du diese zuerst ins Bogenmaß umrechnen lassen:

z := RadToDeg(Sin(DegToRad(x)));

Aber bitte nicht das Ergebnis vom Sinus umrechnen wollen

z := sin(DegToRad(x));

[LargoD]

Zitat von Matze:

Hallo,

da du die 30° vorgibst, musst du diese zuerst ins Bogenmaß umrechnen lassen:

z := RadToDeg(Sin(DegToRad(x)));

Nö, aber so:

z := Sin(DegToRad(x)); Gruß
Erich

[Matze]

@Julius und Erich: Ihr habt natürlich recht. Mich hat der Code von Florian durcheinander gebracht.

[Delphi Freak]

@ jfheins & LargoD: Danke für die schnelle Hilfe, jetzt tuts!
@ wolfgang mix: deine Formel verstehe ich nicht, kannst du mir sie vllt auch erklären? Was ist alpha?

MfG
Florian

[rollstuhlfahrer]

Alpha ist der Winkel im Gradmaß. Winkel im Gradmaß werden normalerweise in der Matehematik mit Alpha, Beta, Gamma, Delta, Epslilon angegeben. Hier sollte eigentlich die Anzahl der Winkelnamen ausreichen. Bei Winkeln im Bogenmaß spricht man normalerweise von Phi. Umrechnen tut man den Winkel vom Gradmaß in das Bogenmaß mit Winkel*PI/180 und zurück ins Gradmaß mit Winkel/180*PI. Dies machen die Funktionen DegToRad und RadToDeg machen intern nichts anderes. Einfach mal in der Unit Math nachgucken.

Bernhard

[Delphi Freak]

Danke Bernhard, also ist alpha nichts anderes, als mein x?

[rollstuhlfahrer]

jap