Select Code to Download

Select or download this

#!/usr/bin/env perl
use strict;
...
print "fixed-pt mul: ", int128_to_hex($p);
print "   converted: ", fixed2number($p);
print "    expected: ", $val->copy->bpow(2);

Select or download this

  Scale: 2**124 = 21267647932558653966460912964485513216
Epsilon: 0.00000000000000000000000000000000000004701977403289150031874
+946148888982711275
...
fixed-pt mul: 000000000000001758BEBD8531A08964
   converted: 0.000000000000000020249999998198227269026294503547169656
+24
    expected: 0.00000000000000002025