|
Registriert seit: 18. Apr 2004
Ort: Linz
2.044 Beiträge
Turbo Delphi für Win32
|
Re: Tangeskurve
15. Feb 2005, 19:12
Hallo!
Ich hab die FOR - Schleife jetzt Schritt für Schritt nachgerechnet (*g*)...
Und bin auch mit meinem TR bei 61 auf eine Polstelle gestoßen...
Und siehe da: Bei X = 61 hängt das Programm....
Wieso ist das so?
Deswegen:
Formel:
tan(X / Image1.Width * 4 * Pi)
Image1.Width ist 488
Rechengang:
tan(X) = sin(X) / cos(x)
cos(61 / 488 * 4 * Pi) = 0
Wieso erkennt das mein Programm nicht, wenn ich schreibe:
if cos(X / Image1.Width * 4 * Pi) <> 0
Faux Manuel Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß.
 GoTrillian
|