function [f,g]=jm98a3fun(xx)
%1998年全国大学生数学建模竞赛A题：收益与风险 非线性模型优化函数
%《数学的实践与认识》p39-42
global M r q p u lemda;
xx=xx(:);len=length(xx);x=xx(1:(len-1));
y=(x>100*eps).*(x=u/M/100).
function [f,g]=fun(xx)
global M r q p u lemda;
xx=xx(:);len=length(xx);x=xx(1:(len-1));
y=(x>100*eps).*(x=u/M/100).*max(x,u/M);
y=y.*p;
f=lemda*xx(len)-(1-lemda)*sum(r.*x-y);
