Select Code to Download

use strict;
use warnings;
...
  my @logd = map log, @$d;
  printf "%10.2f %10.2f %10.2f\n", fit( \@x, $d), fit( \@x, \@logd), f
+it( \@logx, \@logd );
}

    linear  loglinear     loglog
      0.99       0.69       0.95
      0.26       1.00       0.86
      0.26       0.90       0.58