Epsilon Macchina

Testo della Funzione

function y=epsmac(x)
z=1;
epsm=1;%Calcolo l'espilon macchina in basse alla somma di 1.
while epsm + z > z
epsm = epsm/2;
end
%Torno un passo indietro per ottenere il risultato
y=epsm*2;%Calcolo l'epsilon relativo ad x, se questa è stata inserita.
if exist ('x')
y=y.*x;
end
return

Esempi d'uso
>> epsmac
ans = 2.2204e-016

Casi di Test
%Epsilon macchina calcolato dall'algoritmo
%Confronto con la funzione y=eps del
%Esempio 1:
Epsilon Macchina Matlab
>> epsmac
>> epsans = ans = 2.220446049250313e-016 2.220446049250313e-016