von *Marks » Di 7. Jun 2005, 16:37
Sodelle, hab jetzt eine Prüfung ob abs(x/y) zwischen 0,9999 und 1,0001.
Dadurch bekommt man wesentlich seltener den Overflow Fehler.
Das Prob Overlow taucht auf, wenn die Werte zu genau werden, aber ich weis bisher noch nicht warum. Wenn jemand ne Lösung hat, bitte posten.
Der aktuelle Source:
InputFunc f(x), "Funktion eingeben"
Input x,"Startwert"
Input n,"Stufen"
ClrText
Locate 1,11,"Bitte Resize machen"
Locate 1,21,"und fortsetzen"
Pause
ClrText
for 1->i to n
x - ( f(x) / diff(f(x)) )->y
locate 1,10*i,"X ="
locate 10,10*i,i
locate 30,10*i,y
if (abs(x/y)>0.9999) and (abs(x/y)<1.0001)
then
goto end
ifend
if y=0
then
goto end
ifend
y->x
next
lbl end