Select Code to Download

perl58 -le "$eps = 1; while( 10 < 10 + $eps ){ $eps /= 2 ; } print $ep
+s,"
8.88178419700125e-016

perl58 -le "$eps = 1; while( 100 < 100 + $eps ){ $eps /= 2 }print $eps
+"
7.105427357601e-015

perl58 -le "$eps = 1; while( 0.1 < 0.1 + $eps ){ $eps /= 2 } print $ep
+s"
6.93889390390723e-018

perl58 -e "for(-15..16) { $eps=1; while( qq[1E$_] < qq[1E$_] + $eps )
           { $eps /= 2; } printf '%20.20f : %32.32f' . $/, qq[1E$_], $
+eps }"
...
1000000000000000.00000000000000000000 : 0.0625000000000000000000000000
+0000
10000000000000000.00000000000000000000 : 1.000000000000000000000000000
+00000

perl58 -le"printf '%32.32f', 0.9"
0.90000000000000002000000000000000