Select Code to Download

    my $ubound = 1e7;   # set this to change the upper bound for graph
+ing; [choroba]'s would be 1e8.
    print {$gp} join "\n", 'set term png;',
...
    #                      'set logscale x;',
                           "set xrange [10:$ubound]",
                           ;

    for my $n (10, 100, 1e3, 1e4, 1e5, 1e6, 2.5e6,
               5e6, 7.5e6, 1e7, 2.5e7, 5e7, 7.5e7, 1e8
...
        $time{$n}{linear} = 7e-8 * $n + 1e-6;       # [pryrt] added th
+is perfect mathematical line: y = mx + b  # Anonymous Monk should use
+ 7e-7 instead of 7e-8
    }
    $run{linear} = undef;                           # [pryrt] added so
+ that plot() below will include 'linear'