Help for this page

Select Code to Download


  1. or download this
    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
    
  2. or download this
    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