Wo ist mein Fehler im Code?

[*Joklos]

Hallo.
Ich finde den Syntaxfehler unten nicht. Soll Intervallhalbierungsverfahren sein. Hat jemand eine Idee?

[CODE]
ClrText

Input r, "Radikand"
Input f, "max Fehler"

0=>u

If r>1
Then
r=>o
Else
1=>o
IfEnd

(u+o)/2=>m

While (abs(m^2-r))<f
(u+o)/2=>m
If m^2>r
Then
m=>o
Else
m=>u
Endif
WhileEnd

Print "die Wurzel aus"
Print r
Print "ist"
Print m
Print "bei einem Fehler <"
Print f

DelVar r,u,o,f,m
[/CODE]

[Joklos]

Danke für die Antwort, Ivaylo.
Mein Verfahren soll die Quadratwurzel einer Zahl r bestimmen.
Deine Intervallgrenzen a und b errechne ich:
a ist bei mir u (untere Grenze) und zum Start immer null.
b ist bei mir o (obere Grenze) und je nach r entweder r oder für 0<r<1 dann 1.
c ist bei mir m, die Intervallmitte, wird wie bei dir berechnet
Mit deiner While-Bedingung testest du nicht den Fehler der Funktionswerte, sondern die Intervalllänge. Das funktioniert natürlich, aber der Fehler ist ein anderer.

Einen prinzipiellen Unterschied zwischen unseren Programmen finde ich dennoch nicht :)

Gruß Joklos

[Ivaylo]

[url]http://www.casiofans.de/cgi-bin/cutecast/cutecast.pl?session=m2GwtnromjG9W1hA7V3mP03oNN&forum=8&thread=855[/url]
Für:

Mein Verfahren soll die Quadratwurzel einer Zahl r bestimmen.

Guck mall da!

Die Unterschied ist, dass deine Verfahren nicht der "Intervallhalbierung (Bisektionsverfahren)"
entspricht, lies die Difinition die ich geschrieben habe.

--------------------------------------------------------------------------------
Edit:
Du hast eine Fehler beim zweiten if
IfEnd nicht EndIF


[Edit by Ivaylo on [TIME]1100082113[/TIME]]