1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
| function [dc,fc,tco2n2,a1,a,nr] = co2(t,p,pa,ta,tr2,tr3,con2,ac,kap,nt,qc,dq,ec,vc,sc,nr)
b= bpl(t,667);
if (nr==0 || nr>10)
for ii=1:19
for jj=1:i
a0=(22.18)*sqrt(ta(jj,ii)/296);
if (jj==1)
if(ii==1)
u=1;
else
u=1.66*.8*con2*p(ii);
w=0.03*u/a0;
pave=p(ii)/2;
ab= uco2(qc,dq,ec,vc,sc,ta(jj,ii),pave,u,a0);
a(jj,ii)=ab*100;
a1(jj,ii)=200*a0*log(1+w/(4+w*(1+1/(pave*.1084*(298/ta(jj,ii))^0.56)))^0.5);
end
u=1.66*.8*con2*pa(ii);
w=.03*u/a0;
pave=(p(ii)+pa(ii))/2;%MODIFICATION : ERREUR!!!!p(ii+1)->p(ii)
ab= uco2(qc,dq,ec,vc,sc,ta(ii,jj),pave,u,a0);
a(ii,jj)=100*ab;
a1(ii,jj)=200*a0*log(1+w/(4+w*(1+1/(pave*.1084*(298/ta(ii,jj))^0.56)))^0.5);
else
pave=(pa(jj)+p(ii))/2;
u=1.66*.8*con2*abs(p(ii)-pa(jj));
w=.03*u/a0;
ab= uco2(qc,dq,ec,vc,sc,ta(jj,ii),pave,u,a0);
a(jj,ii)=ab*100;
a1(jj,ii)=200*a0*log(1+w/(4+w*(1+1/(pave*.1084*(298/ta(jj,ii))^0.56)))^0.5);
u=1.66*.80*con2*abs(pa(ii)-p(jj));
w=.03*u/a0;
ab= uco2(qc,dq,ec,vc,sc,ta(ii,jj),pave,u,a0);
a(ii,jj)=ab*100;
a1(ii,jj)=200*a0*log(1+w/(4+w*(1+1/(pave*.1084*(298/ta(ii,jj))^0.56)))^0.5);
end
tco2n2(jj,ii)=1-a(jj,ii)/30000;
tco2n2(ii,jj)=1-a(jj,ii)/30000;
a(jj,ii)=a(jj,ii)*tr2(jj,ii);
a(ii,jj)=a(ii,jj)*tr2(ii,jj);
a1(jj,ii)=a1(jj,ii)*tr3(jj,ii);
a1(ii,jj)=a1(ii,jj)*tr3(ii,jj);
end
end
nr=0;
end
nr=nr+1;
[dc,fc]=acool(a,b,p,ac,kap,nt);
b=bpl(t,1020);
[dc1,fc1]=acool(a1,b,p,ac,kap,nt);
for ind=1:18
dc(ind)=dc(ind+1)+dc1(ind);
fc(ind)=fc(ind)+fc1(ind);
end
fc(19)=fc(19)+fc1(19);
end |
Partager