- or download this
sub rndPart1{ ## can overlap
my( $start, $end, $count ) = @_;
...
sprintf "%5.2f", $v;
} 0 .. $count-1;
}
- or download this
0 .. 59 / 10
3.90 14.52 13.91 22.28 26.68 31.21 40.83 49.55 55.17 57.06
...
3.80 8.54 12.36 25.85 20.68 30.68 40.63 38.98 52.05 57.25
3.95 13.69 9.22 25.05 20.82 29.50 33.54 48.19 50.64 58.39
0.41 6.58 13.65 25.90 26.83 33.76 34.38 46.55 45.82 55.61
- or download this
E:\Chart>rndChart -L=90
3.19 7.43 15.68 19.31 47.80 48.67 50.26 68.37 68.46 82.69 after 2 tr
+ies
...
E:\Chart>rndChart -L=20
Terminating on signal SIGINT(2)
- or download this
sub rndPart2{ ## strictly ascending, skew possible
my( $start, $end, $count ) = @_;
...
sprintf "%5.2f", $last = $last + ( rand( $_ + $step/2 - $last
+) );
} map{ $start + $step*$_ } 0 .. $count-1;
}
- or download this
1 .. 100 / 11
8.57 14.36 20.02 35.86 46.77 53.07 65.66 67.28 80.73 85.74
...
3.11 4.37 8.04 20.13 43.43 53.70 63.87 75.75 80.99 96.80
9.12 16.13 27.56 39.08 44.37 45.88 60.40 78.30 79.01 85.30
1.73 19.18 24.60 30.43 32.73 52.95 57.84 78.79 79.04 82.93