%% Kone-epsilon   epsilon.m
clear
epsi=1;
while 1+epsi>1
    epsi=epsi/2;
end
epsi
eps

help eps