%  Testing to find Huge, Tiny and epsilon in our computer

% Tiny(x):
x=1.;
y=1.;
while x>0
    y=x;
    x=x/2.;
end
disp([x,y]);
% disp(['Tiny(x)=',y]);
% disp(['Tiny(x)=',num2str(y)]);

% Huge(x)
x=1.;
y=1.;
while x<inf
    y=x;
    x=x*2.;
end
disp([x,y]);
% disp(['Huge(x)=',num2str(y)]);

%Epsilon(x)
epsi=1;
while 1< 1+epsi
    epsi=epsi/2;
end
disp(epsi);
% disp(['epsilon(x)=', num2str(epsi)]);