Select Code to Download

#!/usr/bin/perl -lw
use strict;
...
    printf " %.22f   %.5f   %.22f   %.5f\n", $n, $n, $m, $m;
    $m += 0.00001;
}

Default / NEAR                       (compare computed value with cons
+tant)
 0.0000050000000000000004   0.00001  =0.0000050000000000000004= =0.000
+01=
...
<0.0000750000000000000070> <0.00008> <0.0000750000000000000480> =0.000
+08=
=0.0000850000000000000060= =0.00009= <0.0000850000000000000600> =0.000
+09=
=0.0000950000000000000050= =0.00010= <0.0000950000000000000730> =0.000
+10=