function [rho2,F] = rho2_F(k,r,ss,Ne,Np)

sy = sum(r.^2);

rho2 = 1 - ss./sy

F = (sy - ss).*(Ne-Np)./(Np.*ss) % F：F比

fprintf('\n\n使用函数lsqnonlin()估计得到的参数值为:\n')

fprintf('\tk1 = %.4f ± %.4f\n',k(1),ci(1,2)-k(1))

fprintf('\tE1 = %.4f ± %.4f\n',k(2),ci(2,2)-k(2))

fprintf('\tk2 = %.4f ± %.4f\n',k(3),ci(3,2)-k(3))

fprintf('\tE2 = %.4f ± %.4f\n',k(4),ci(4,2)-k(4))

fprintf('\tk3 = %.4f ± %.4f\n',k(5),ci(5,2)-k(5))

fprintf('\tE3 = %.4f ± %.4f\n',k(6),ci(6,2)-k(6))

fprintf('\tk4 = %.4f ± %.4f\n',k(7),ci(7,2)-k(7))

fprintf('\tE4 = %.4f ± %.4f\n',k(8),ci(8,2)-k(8))

fprintf('\tk5 = %.4f ± %.4f\n',k(9),ci(9,2)-k(9))

fprintf('\tE5 = %.4f ± %.4f\n',k(10),ci(10,2)-k(10))

fprintf('\tk6 = %.4f ± %.4f\n',k(11),ci(11,2)-k(11))

fprintf('\tE6 = %.4f ± %.4f\n',k(12),ci(12,2)-k(12))

fprintf('\tk7 = %.4f ± %.4f\n',k(13),ci(13,2)-k(13))

fprintf('\tE7 = %.4f ± %.4f\n',k(14),ci(14,2)-k(14))

fprintf('\tk8 = %.4f ± %.4f\n',k(15),ci(15,2)-k(15))

fprintf('\tE8 = %.4f ± %.4f\n',k(16),ci(16,2)-k(16))

fprintf('\tk9 = %.4f ± %.4f\n',k(17),ci(17,2)-k(17))

fprintf('\tE9 = %.4f ± %.4f\n',k(18),ci(18,2)-k(18))

function f = fy(k,x0,y0,ts,tt)

for i=1:42,%42组试验点

[t Xsim] = ode45(@g,[0,ts(i)],x0(i,:),[],k,tt(i));

i

ysim(i,1) = Xsim(end,1);

ysim(i,2) = Xsim(end,2);

ysim(i,3) = Xsim(end,3);

ysim(i,4) = Xsim(end,4);

ysim(i,5) = Xsim(end,5);

ysim(i,6) = Xsim(end,6);

ysim(i,7) = Xsim(end,7);

ysim(i,8) = Xsim(end,8);

ysim(i,9) = Xsim(end,9);

ysim(i,10) = Xsim(end,10);

ysim(i,11) = Xsim(end,11);

ysim(i,12) = Xsim(end,12);

%12个组分

end;

f = [ysim(:,:)-y0(:,:)];

function dCdt =g(t,C,k,tt)              % ODE模型

r1=k(1).*exp(-k(2)./8.314.*(1/tt-1/653)).*C(1).*C(2)-k(1).*exp(-k(2)./8.314.*(1/tt-1/653))./(0.001*tt*tt-1.514*tt+514.6).*C(4);

r2=k(3).*exp(-k(4)./8.314.*(1/tt-1/653)).*C(2).*C(2)-k(3).*exp(-k(4)./8.314.*(1/tt-1/653))./(0.00002*tt*tt-0.033*tt+11.44).*C(5);

r4=k(5).*exp(-k(6)./8.314.*(1/tt-1/653)).*C(2).*C(3)-k(5).*exp(-k(6)./8.314.*(1/tt-1/653))./(0.00003*tt*tt-0.046*tt+15.94).*C(6);

r5=k(7).*exp(-k(8)./8.314.*(1/tt-1/653)).*C(2).*C(4)-k(7).*exp(-k(8)./8.314.*(1/tt-1/653))./(0.00003*tt*tt-0.041*tt+14.14).*C(7);

r6=k(9).*exp(-k(10)./8.314.*(1/tt-1/653)).*C(3).*C(4)-k(9).*exp(-k(10)./8.314.*(1/tt-1/653))./(0.00003*tt*tt-0.034*tt+11.86).*C(8);

r8=k(11).*exp(-k(12)./8.314.*(1/tt-1/653)).*C(6);

r9=k(13).*exp(-k(14)./8.314.*(1/tt-1/653)).*C(7);

r10=k(15).*exp(-k(16)./8.314.*(1/tt-1/653)).*C(8) ;

r11=k(17).*exp(-k(18)./8.314.*(1/tt-1/653)).*C(2) ;

dC1dt=-r1;

dC2dt=-r1-2*r2-r4-r5-r11;

dC3dt=-r4-r6;

dC4dt=r1-r5-r6;

dC5dt=r2;

dC6dt=r4-r8;

dC7dt=r5-r9;

dC8dt=r6-r10;

dC9dt=r8;

dC10dt=r9;

dC11dt=r10;

dC12dt=r11;

dCdt = [dC1dt;dC2dt;dC3dt;dC4dt;dC5dt;dC6dt;dC7dt;dC8dt;dC9dt;dC10dt;dC11dt;dC12dt];