function r = mach_eps(start)

% macheps  berechnet das Maschinen-Epsilon

% Der Aufruf ist 
%          r = macheps(start)
% Der Anfangswert der Iteration ist durch 1+start gegeben

% Die Iteration.

 while abs(1+start) > 1;
   start = start / 2.0;
 end

 s = sprintf('Maschinen-Epsilon %g (Matlab-Wert %g)',2*start,eps);
 disp(s);
 





