DegToRad...Etwas verwirrt :-/

[glkgereon]

Hi,

Ich möchte den Sinus ausrechnen....um möglichst allgemein zu bleiben habe ich mir für die verschiedenen Modi (Deg,Rad,Grad) eine Globale Config-Variable angelegt.

nun versuche ich so zu rechnen:

Delphi-Quellcode:

function ValToRad(Val: Extended):Extended;
begin
  Result:=0;
  Case Config.AngleType of
    aRad: Result:=Val;
    aDeg: Result:=DegToRad(Val);
    aGrad:Result:=GradToRad(Val);
  end;
end;

function RadToVal(Val: Extended): Extended;
begin
  Result:=0;
  Case Config.AngleType of
    aRad: Result:=Val;
    aDeg: Result:=RadToDeg(Val);
    aGrad:Result:=RadToGrad(Val);
  end;
end;

function Sinus(Val: Extended): Extended;
begin
  ShowMessage(FloatToStr(Val));
  Result:=RadToVal(Sin(ValToRad(Val)));
end;

komischerweise kommt nur leider bei dem aufruf Sinus(45) heraus:
40,5142342270698
und nicht, wie eigentlich korrekt:
0,7071067812...

Config.Angletype ist auf aDeg...hab ich überprüft...und ich weiss einfach nicht mehr weiter

[alcaeus]

Warum wandelst du das Ergebnis des Sinus nochmal um? Das ist doch kein Winkel...

Greetz
alcaeus

[glkgereon]

Zitat von alcaeus:

Warum wandelst du das Ergebnis des Sinus nochmal um? Das ist doch kein Winkel...

Greetz
alcaeus

manchmal sieht man den Wald vor lauter Bäumen nicht mehr....

Danke für die Rodung

Edit:
Achso...bei ArcusSinus steck ich doch nen Wert rein und hol nen Winkel raus...oder?
also da nur die umgekehrte richtung...

[alcaeus]

Ganz genau. Dort musst du das Ergebnis dann natuerlich umrechnen

Greetz
alcaeus

[glkgereon]

Danke

ihr werdet dann (hoffentlich :-/ ) bald einen neuen MatheParser zu bestaunen haben