|
|
EDA365欢迎您登录!
您需要 登录 才可以下载或查看,没有帐号?注册
x
对于代码画出来的图如何使用lsqcurvefit 拟合?代码中c为X轴,FF为y轴
3 h' U- ^. V, | J @: @0 A2 ~ function FF0dian_TDdyTC
3 B# M, w8 O* Sclc
- o& ^! Z3 c! p# p, M$ mTC=283:367;' V& [' m4 z& u- Y m, I5 O
% 0.025<vaDaRE<14 0.3<eps<0.55 0.29<dtad0<0.7 32<活化能<42 Co=UDa/eps; B `. c2 X) @. _! n g8 [* K3 N' p
VADARE=14;
* K: r/ J, F6 S/ pEPS=0.55;dtad0=0.29;UDA=10*EPS;2 K3 U- z4 Y6 _4 p% L6 N
RH=1;Y=36;1 ~9 M3 h2 R- R7 t1 L4 u f i3 L
TR=300;TD=TC; 4 T _' ~! C) `: ~2 G
YD=TD/TR;) `$ c' x8 m8 D7 Y$ z; ]( t
for i=1:85& ~. z4 @% ^+ N! i1 ?5 T
start_t=0;end_t=2;
$ a" k) `$ Q# T8 T: ?' poptions=odeset('RelTol',1e-8,'AbsTol',[1e-9 1e-9]);/ Q# h b- j1 z7 g( T4 E
[T,y]=ode45(@SBR1,[start_t end_t],[0,277/300],options,TC(i));
. @ c3 A0 M2 k1 w5 ia=max(y(:,2));
& K2 s! B* E2 R/ lb=y(:,2)==a;* E) S) r }+ i! E- S8 H
c=TC(i)./TR;, u, e( H# ]7 P3 x
T(b);
7 q8 Y, ~* X3 r, l! [- i' k if T(b)<=1
: c6 _7 h" {: c YTA=c+1.05*dtad0/(UDA*(1+EPS*T(b))+EPS*RH);) P2 D2 ?) M: }$ r: A
FF(i)=a-YTA;
2 ]" B/ N$ a# n3 F }0 L* U$ u* z else
/ N3 X. I# o5 L- ~; K: Q YTA=c+1.05*dtad0/(UDA*(1+EPS)+EPS*RH);! S \7 x" Q% Y9 U5 t4 d/ F
FF(i)=a-YTA;3 l( x2 ^: _" m9 k
end
9 o) |7 \7 l& C" {2 x. C$ fend; P# E( V8 B% C% M. s/ d* ^
figure;- R4 F2 [) Z$ S
plot(TC/TR,FF,'.');hold on5 h2 s9 c: w% k7 c
end, r$ o. w1 Q* k2 l0 p! h
2 Q. w+ F9 ?' c. ?% ]3 r5 xfunction dy= SBR1(t,y,TC)' d; h( y# j* C; B" J
dy=zeros(2,1);
7 o+ N# Y0 D9 y ^2 lVADARE=14;, V- _6 d4 I: w# K" U9 G
EPS=0.55;dtad0=0.29;UDA=10*EPS;' n% X& X# v" O' Z8 }* s
RH=1;Y=36;
! I* b% m. e4 ]: }4 U9 nTR=300;TD=TC; YD=TD/TR;! n; D; T" `7 Q
if t<=1+ F" R6 `1 `, l3 c9 ?7 X* N2 L; a) i- o, f
YCE=((UDA*(1+EPS*t)*TC+RH*EPS*TD)/(UDA*(1+EPS*t)+RH*EPS))/TR;5 v0 G, b" J* ~5 b# N W% q" d
dy(1) = VADARE*(t-y(1))*(1-y(1))*exp(Y*(1-1/y(2)));
0 z% e( d) R) G dy(2) = ((dtad0*dy(1)-(UDA*(1+EPS*t)+RH*EPS)*(y(2)-YCE)))/(1+RH*EPS*t);$ ?* X; ]" j) V: A$ r/ R
end1 M7 K2 i9 w- B$ z* N# o
if t>1
& |: k$ ^) L3 o$ i3 N: O YCE=((UDA*(1+EPS)*TC+RH*EPS*TD)/(UDA*(1+EPS)+RH*EPS))/TR;
; ?2 C& \- M3 \- I, s' U" w' l dy(1) = VADARE*(1-y(1))*(1-y(1))*exp(Y*(1-1/y(2)));
3 _9 E( S3 U9 X5 V/ t# W5 `8 b dy(2) = ((dtad0*dy(1)-(UDA*(1+EPS)+RH*EPS)*(y(2)-YCE)))/(1+RH*EPS);
+ F* p0 F) S* Y) H, {' n) fend
: ?4 n* \) d( c9 Jend
3 a$ T1 c/ z* x1 T2 X
$ y7 J7 L1 O& l2 \& i& J2 X$ Y( p3 S+ y4 ?& T
|
|