Select Code to Download

#!/usr/bin/perl -w

...
    $bu[$i]=$bu[$i-1]+$beu;    
    print "$i\t$bu[$i]\n";
}

1       0.1
2       0.2
...
398     39.8000000000003
399     39.9000000000003
400     40.0000000000003