scrip

[Jesus Fernandez]

Here is the script:

jaff

#!jesusafernandez/bin/perl
use warnings;

for ($samp=0; $samp<5000; $samp++)
{
$n = 10000;
$k = 25;
while ($k>=2){
    if ($k==1) {last;}
    $mean=(4*$n)/$k*($k-1);
    $time=(-log(rand)*$mean);
    push(@coalt, $time);
    $k=$k-1;
    }
    for ($time=0; $time<=24; $time++){
    }
    print "$coalt[$time]\n";
    }