(******************************************************)
(*
** Datei an1list.txt
**
** ARIBAS Code zum Buch
** Analysis 1 von O. Forster
** 6. Auflage 2001
** Vieweg-Verlag, ISBN 3-528-57224-8
**
** Das Programm ARIBAS ist erhaeltlich ueber die
** Hompage des Verfassers
**    http://www.mathematik.uni-muenchen.de/~forster
** Unterpunkt Software --> Aribas
*)
(******************************************************)
(*
** Der Code kann durch Cut & Paste in Aribas uebertragen werden
*)
(* --------------------------------------------------------
** 6. Quadratwurzeln
**
** Der folgende Code fuehrt die ersten 6 Iterationsschritte
** zur Berechnung der Quadratwurzel von 2 durch
*)

set_floatprec(long_float);
a := 2;
x := a; y := 1;
for n := 1 to 6 do
    x := (x + y)/2; y := a/x;
    writeln(n,")");
    writeln(y); writeln(x);
end.

(* --------------------------------------------------------
** 17. Numerische Loesung von Gleichungen
**
** Der folgende Code berechnet iterativ eine Loesung 
** der Gleichung
**		t = 5*(1 - exp(-t))
** mit einem Fehler <= eps := 10**-6
*)

set_floatprec(single_float);
t := 5.0;
eps := 10**-6; delta := 1;
while delta > eps do
    writeln(t);
    t0 := t;
    t := 5*(1 - exp(-t0));
    delta := abs(t-t0);
end;
t.
(*----------------------------------------------------------*)