Thema: Delphi Sinus/Cosinus Funktionen

Einzelnen Beitrag anzeigen

Benutzerbild von JASH
JASH

Registriert seit: 19. Dez 2003
16 Beiträge
 
Delphi 7 Architect
 
#6

Re: Sinus/Cosinus Funktionen

  Alt 16. Jan 2004, 07:42
Hmmm, der erste teil funzt nun, noma vielen dank, aber wenn ich die Sinus-Werte zurückrechne bekomme ich immer falsche Ergebnisse raus, bei kleinen Winkeln stimmt es noch ungefähr, bei grösseren aber dann garnicht mehr, hoffe mal ihr könnt mir da genauso schnell weiterhelfen wie zuvor

Delphi-Quellcode:
var
  R: Extended;
  S: string;
begin
  R := DegToRad(R);
  R := Sin(R);
  Str(R:5:3, S);
  Canvas.TextOut(10, 10, 'Sinus: ' + S);{Bis hierhin stimmt der Sinuswert}
  R := sinh(R);
  R := RadToDeg(R);
  Str(R:5:3, S);
  Canvas.TextOut(10, 10, 'Winkel: ' + S);{Hier erhalte ich dann die falschen Werte zurück bzw. von dem sinh}
end;
Aus Fehlern lernt man, folglich gilt also "Desto mehr Fehler man macht desto mehr lernt man"
  Mit Zitat antworten Zitat