Help for this page

Select Code to Download


  1. or download this
       
    DB<186> $x1= 1000*(4/25)
     => 160
    ...
      DB<188> $x1 == $x2
     => 1
    
  2. or download this
      DB<205>  for (254..263) {$x = 1000 * ( $_ + 4/25 ); printf "%.20f\n"
    +, $x} 
    
    ...
    261160.00000000002910383046
    262160.00000000000000000000
    263160.00000000000000000000
    
  3. or download this
      DB<220>  for (0..20) {$e=2**$_; $x = 1000 * ( $e + 4/25 ); printf "$
    +_:$e => %.20f\n", $x if ($x-int($x))} 
    5:32 => 32159.99999999999636202119
    ...
    18:262144 => 262144159.99999997019767761230
    19:524288 => 524288160.00000005960464477539
    20:1048576 => 1048576159.99999988079071044922