function x=geteps();
% Ermitteln von eps
% Uebung Numerik Roman Unger SS 1998

y=1;
% y hat jetzt den Startwert 1. In der Schleife wird y zu 1 addiert und
% wenn das Ergebnis groesser als 1 ist y halbiert und wieder addiert.
% Das ganze geht solange, bis sich am Wert 1 trotz Addition nichts mehr
% aendert, das gesuchte eps war dann das letzte y, welches auf x steht.
while(1+y>1)
 x=y;
 y=y/2;
 end;

