dh-Materialien
Einführung in Maple    
Übungen
 

Das Heron-Verfahren

> restart;

Iterative Bestimmung der Quadratwurzel von a

Die Iterationsvorschrift:

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

> a:= 13;

a := 13

Wahl eines Startwertes:

> x[alt]:= 4;

x[alt] := 4

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

x[neu] := 29/8

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

1673/464
5597777/1552544
62670214676897/17381590189376


 Home   Back   Top