Help for this page

Select Code to Download


  1. or download this
    sub rndPart1{ ## can overlap
        my( $start, $end, $count ) = @_;
    ...
            sprintf "%5.2f", $v;
        } 0 .. $count-1;
    }
    
  2. 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
    
  3. 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)
    
  4. 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;
    }
    
  5. 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