Select Code to Download

#!/usr/bin/perl

...
    }
    return $index;
}

perl -le'print $_,"\t",sin($_/10)+sin(($_/30))**2*0.2+sin($_/500)*0.4+
+4+(rand()+rand()+rand()+rand())/20 for 0..6000' > testdata.txt