epsilon.m

% Testataan kuinka tarkasti tietokone laskee

% Alustetaan muuttujat
x = 1;
eps = 1;

% Mikäli x+eps erisuuri kuin x
while x+eps ~= x
    % Pienennetään epsilon puoleen
    eps = 0.5*eps;
end

% Tulostetaan epsionin arvo
eps