Maple-Worksheet: Heronverfahren

Einführung in Maple Übungen

Mathematik

Das Heron-Verfahren

restart;

Iterative Bestimmung von .

Die Iterationsvorschrift:

>	heron:= x -> 1/2*(x + a/x);

>
a:= 13;

Wahl eines Startwertes:

>	x[alt]:= 4;

>
x[neu]:= heron (x[alt]);

>
while (abs(x[neu]-x[alt]) > 1/1000000) do
x[alt]:= x[neu]: x[neu]:= heron (x[alt]):
print (x[neu]);
od: