T = 24; r = 0.04;
Minit = 5; Mmax = 40;
pbuy = 1800; psell = 1700;
W = [ 1875 5250 4875 11250 13500 16875 25500 23250 39750 40875 32250 20625 ...
      4500 5625 8625  7125 16125 22500 24750 33750 41250 45000 36000 23250 ];