www.pudn.com > 实验7-线形拟合.rar > fun073.m

function y=fun073(x) 
b=[100,280]; 
a=[1,0.1;0.2,2]; 
c=[20,30]; 
r=[30,100]; 
lam=[0.015,0.02]; 
y1=((b(1)-a(1,1)*x(1)-a(1,2)*x(2))-(r(1)*exp(-lam(1)*x(1))+c(1)))*x(1); 
y2=((b(2)-a(2,1)*x(1)-a(2,2)*x(2))-(r(2)*exp(-lam(2)*x(2))+c(2)))*x(2); 
y=-y1-y2;