Select Code to Download

-60 < x <= -30           (  6273 pts)  |**

 -30 < x <= 0                  ( 44623 pts)  |********
...
  0 < x <= 30                  ( 55626 pts)  +**********

  30 < x <= 60                 ( 11244 pts)  |**

my $file  = $ARGV[0]; # input file
my $bin    = $ARGV[1]; # bin size normally 20 or 30 
...
close IN_LOG;
close OUT_LOG;
close MYFILE;

45.980
-34.99
...
75.00
-30.173
-40.178