%Ksekinontas me eps=1 kai diairwntas ti metavliti eps sunexws dia 2 kapote
%h timi tis tha ginei toso mikri wste na isxuei sth Matlab h sxesi 1+eps =1

%arxeio ypologismou ektheth k
eps=1;
for i=1:inf 
    eps=eps/2;
if (1+eps)==1
break
end
end
k=i-1

% H epalitheusi ginetai pliktrologwntas:
% comp_eps_1
% k =
% 52
% >>
% Pragmati:
% > 2^(-52)
% ans =
% 2.2204e-016
% >>