%*****************************************************************
% 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))
|
