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

##</code><code>##

C:\usr\local\share>perl -MMachine::Epsilon -le "for (2.99999999999999989e-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.0300000000000004
2.99999999999999503e-02 => 0.03                           x+2eps = 0.0300000000000004
2.99999999999999468e-02 => 0.0299999999999999             x+2eps = 0.0300000000000004