|
|
EDA365欢迎您登录!
您需要 登录 才可以下载或查看,没有帐号?注册
x
对于代码画出来的图如何使用lsqcurvefit 拟合?代码中c为X轴,FF为y轴
! F4 S' \4 N$ X! W' l+ y1 q function FF0dian_TDdyTC
8 Q2 P4 ]# p5 w m& ^! @3 Z' nclc
! a& ^0 q) Y% i0 u3 |* F6 t* ^1 r& dTC=283:367;, B: G2 J+ x/ H# ]2 F4 Q" A
% 0.025<vaDaRE<14 0.3<eps<0.55 0.29<dtad0<0.7 32<活化能<42 Co=UDa/eps8 x4 R2 C" Z l- [! l
VADARE=14; _0 Q- O' l3 D% [2 P
EPS=0.55;dtad0=0.29;UDA=10*EPS;
2 Y9 u, |0 t- T+ pRH=1;Y=36;
- E5 E4 i1 u, N& A/ ~% q5 OTR=300;TD=TC; * z, [# d5 t! f% x2 o. G
YD=TD/TR;
# |% p9 D- }$ m. j+ Gfor i=1:85
# _8 Y( q# D9 p1 y) ~9 O" j4 t/ ]start_t=0;end_t=2;
; N. E8 @/ q& O3 C8 D: L' A0 woptions=odeset('RelTol',1e-8,'AbsTol',[1e-9 1e-9]);
( T, D' _, P, m' f( w[T,y]=ode45(@SBR1,[start_t end_t],[0,277/300],options,TC(i));
$ g; ~' H$ I7 Q W y8 t% u9 Ga=max(y(:,2));
% w8 Z& D: L! y) R5 @b=y(:,2)==a;
( j5 n/ v( L* B$ V$ Rc=TC(i)./TR;
& r" V" ?/ |/ iT(b);0 G+ K- S8 T6 I; z: f' M6 `
if T(b)<=1
* y% D8 b( ?, a YTA=c+1.05*dtad0/(UDA*(1+EPS*T(b))+EPS*RH);! D! d# |* k+ V# Y( S0 v
FF(i)=a-YTA;7 w$ ^1 E& F+ V' G) s$ v1 l
else7 V2 W. F. D1 ]/ e
YTA=c+1.05*dtad0/(UDA*(1+EPS)+EPS*RH);
3 X% H) L* D( R1 V* a FF(i)=a-YTA;
: y6 b; u2 H3 F) B K; f" e end
2 c1 S7 p7 _% P/ H' \% fend
6 A- |" `0 z: p1 }; \9 t# d1 H$ K6 }figure;9 O- y9 |+ _% ~/ B8 q9 L
plot(TC/TR,FF,'.');hold on6 p6 d% H0 m5 y$ X7 z: n+ k
end
; j. M# Y u) i" _/ R9 x- f# q& z* }9 r' U# x" P8 E' b3 k2 @
function dy= SBR1(t,y,TC)9 b3 s' g; J' N# b4 J' F
dy=zeros(2,1);( p- e: ~! }7 M. ?( V3 P: z
VADARE=14;
) Y9 N5 ~8 _, a7 l9 |5 X) C% [; lEPS=0.55;dtad0=0.29;UDA=10*EPS;
' ~" a6 o5 a0 z/ eRH=1;Y=36;$ q) G1 u: r: ]
TR=300;TD=TC; YD=TD/TR; j- c5 m0 ], {% a D6 d
if t<=1
T; B* N/ U9 O t YCE=((UDA*(1+EPS*t)*TC+RH*EPS*TD)/(UDA*(1+EPS*t)+RH*EPS))/TR;3 q) [* N: ?9 d6 X' d
dy(1) = VADARE*(t-y(1))*(1-y(1))*exp(Y*(1-1/y(2)));
$ b' S4 D* I* e2 ~ dy(2) = ((dtad0*dy(1)-(UDA*(1+EPS*t)+RH*EPS)*(y(2)-YCE)))/(1+RH*EPS*t);
3 W' W8 p* ?$ [% P3 \0 N% g# Kend5 G3 Y8 d9 K" X
if t>1
' @1 t9 P# f! i" c5 ` y$ { YCE=((UDA*(1+EPS)*TC+RH*EPS*TD)/(UDA*(1+EPS)+RH*EPS))/TR;
" ?$ P7 M: u1 W6 `- U dy(1) = VADARE*(1-y(1))*(1-y(1))*exp(Y*(1-1/y(2)));, _& r8 ~- B8 r" x( i1 k' t* p+ O
dy(2) = ((dtad0*dy(1)-(UDA*(1+EPS)+RH*EPS)*(y(2)-YCE)))/(1+RH*EPS);
3 H6 e- a2 b1 o' z3 X& Send
/ s- y6 P- A4 @+ Send9 J9 c7 r) ^' E4 B8 u% s
, H) a: c8 H( T5 j! L3 X( V
- o1 ]. x" n. g/ b |
|