20 lines
397 B
Matlab
20 lines
397 B
Matlab
function [eps] = findeps()
|
|
%FINDEPS Findet die kleinste Zahl eps>0, so dass 1+eps!= 1
|
|
|
|
|
|
eps = 1;
|
|
n = 1;
|
|
while (1.0 + eps) > 1.0
|
|
n = n + 1; %n erhöhen
|
|
eps = 2^(-n); %eps neu zuweisen
|
|
end
|
|
|
|
%einen Schritt der while-Schleife ""rückgängig"" machen, um das letzte eps zu
|
|
%berechnen, so dass gerade noch gilt (1.0 + eps) > 1.0
|
|
n = n - 1;
|
|
eps = 2^(-n);
|
|
|
|
|
|
end
|
|
|