WUT_Computer_Science/NotProgramming/ENUME/projectA/findmacheps.m

19 lines
473 B
Mathematica
Raw Normal View History

2021-10-27 16:00:43 +02:00
macheps = 1;
2021-11-06 00:26:00 +01:00
while 1.0 + macheps / 2 > 1.0
2021-10-27 16:00:43 +02:00
macheps = macheps/2;
2021-11-06 00:26:00 +01:00
end
2021-10-27 16:00:43 +02:00
2021-11-06 00:26:00 +01:00
format long;
2021-10-27 16:00:43 +02:00
disp("Display calculated macheps:")
disp(macheps)
disp("Display actual eps:")
disp(eps)
disp("Display 2^(-52)")
disp(2^(-52))
disp("Display difference between calculated macheps and actual eps:")
disp(macheps - eps)
disp("Display difference between 2^(-52) and actual eps:")
disp(2^(-52) - eps)
disp("Display difference between calculated macheps and 2^(-52):")
disp(macheps - 2^(-52))