%LOSS OF SIGNIFICANCE EXAMPLE

%machine precision example 
clear 
x(1)=1-1/exp(1); s(1)=1; f(1)=1; 
for i= 2:21 
 x(i)=1-(i-1)*x(i-1); 
 s(i)=1/i; 
 f(i)=(i-1)*f(i-1); 
end 
n=0:20; 
z=[n;x;s;f]; 
fprintf(1,'\n\n n x(n) 1/(n+1) n!\n\n') 
fprintf(1,'%2.0f %13.8f %10.8f %10.3g\n',z)