[x,maxval]=simplex1([0,25,30;6000,-1,0;4000,0,-1;40,-1/200,-1/140]);
x 
maxval
