function f=jm99afun(n)
%99年中國大學(xué)生數(shù)學(xué)建模競賽a題：自動化車床問題一函數(shù)
%參見《數(shù)學(xué)的實(shí)踐與認(rèn)識》2000.1.p36-40
mu=600*0.95;sig=196.6292*0.95;
L=100*n(1)+3005;
L=L*normcdf(n(2)-n(1)/2,mu,sig);
t=0:0.1:(n(2)-n(1)/2);
L=L+10/n(1)*trapz(t,t.*normpdf(t,mu,sig));
c=200*n(2)+10*n(2)/n(1)+3000;
L=L+c*(normcdf(n(2),mu,sig)-normcdf(n(2)-n(1)/2,mu,sig));
t=(n(2)-n(1)/2):0.01:n(2);
L=L-200*trapz(t,t.*normpdf(t,mu,sig));
L=L+(10*n(2)/n(1)+1000)*(1-normcdf(n(2),mu,sig));

t=0:0.1:(n(2)-n(1)/2);
np=trapz(t,t.*normpdf(t,mu,sig));
np=np+n(1)/2*normcdf(n(2)-n(1)/2,mu,sig);
np=np+n(2)*(1-normcdf(n(2)-n(1)/2,mu,sig));

f=L/np;