%*****************************************************************
% File: EPSILON.M
%
% Scopo: Calcolo dell' epsilon macchina e del numero di cifre
%	 binarie utilizzate per memorizzare per mantissa
%
% Input:
% Output: ap = epsilon macchina
%	  kp = cifre mantissa
%
% Richiami:
% Commenti: Usa PAUSA per rallentare esecuzione.
%	    Per macchine in base 2.
%
% Autori: mf
%*****************************************************************

ap=1;
kp=0;
clc
while 1+ap>1;..
    pausa(50);
    home
    disp('Calcolo dell'' epsilon macchina')
    disp(' ')
    ap=ap/2;
    kp=kp+1;
    disp(sprintf(' Epsilon macchina = %g',ap))
    disp(' ')
    disp(sprintf(' Cifre mantissa   = %g',kp))
end
clc
home
ap=ap*2;
kp=kp-1;
disp('Calcolo dell'' epsilon macchina')
disp(' ')
disp(sprintf(' Epsilon macchina = %g',ap))
disp(' ')
disp(sprintf(' Cifre mantissa   = %g',kp))