Select Code to Download

C:\usr\local\share>perl -le "printf qq(%.17e => %s\n), $_, $_ for 2.99
+999999999999989e-02, 2.99999999999999503e-02, 2.99999999999999468e-02
+"
2.99999999999999989e-02 => 0.03
2.99999999999999503e-02 => 0.03
2.99999999999999468e-02 => 0.0299999999999999

C:\usr\local\share>perl -MMachine::Epsilon -le "for (2.999999999999999
+89e-02, 2.99999999999999503e-02, 2.99999999999999468e-02) { printf qq
+(%.17e => %-30s x+2eps = %s\n), $_, $_, $_+2*machine_epsilon}"
2.99999999999999989e-02 => 0.03                           x+2eps = 0.0
+300000000000004
2.99999999999999503e-02 => 0.03                           x+2eps = 0.0
+300000000000004
2.99999999999999468e-02 => 0.0299999999999999             x+2eps = 0.0
+300000000000004