|
EDA365欢迎您登录!
您需要 登录 才可以下载或查看,没有帐号?注册
x
程序如下:
1 \3 I9 Z- O. Y& _function out=mult_syg7(z,x)) U) u( z: }6 Q5 q' d5 }. F0 x
Pi=3.14159;
% M/ n- m4 b, C# vr0= 1.24*10^-3; % Outer diameter of the membrane, [m]
% b v5 x+ X" s6 r. c: Jri= 9.4*10^-4;% Inner diameter of the membrane, [m]8 G" z/ @7 I% e; S+ d/ R. g
r=(r0-ri)/log(r0/ri);% equivalent diameter ,[m]) v& W1 T- R. J, ^1 l
L=0.05;% membrane length,[m], L+ J j1 J! v1 [* J3 i- o9 ~/ {
Ac=Pi*r*L;% membrane area [m^2]( M' `# L( V# Q% _4 k
R=8.314;9 U0 X/ U+ Z8 Z5 D. R6 V
T0=1000;' f/ O* `; f [$ A' ~* o$ r
T=T0+273;- R# E3 Z* [6 B. j% j
P=101.325;%kpa$ N+ C: H$ A4 S' i
F=2.678*10^-2*2;
+ l; g) v/ ?9 v$ K& J s$ ?5 Fm=3;
& T% N' M2 U+ z6 z+ ?n=1;1 w) Y% p8 a! q5 p$ l
S=(1+m+n+2*x(1))/P;& a7 c+ h3 u. s! o* I d
PCH4=(1-x(1))/S;( ?+ c n0 s' t1 R0 ~" ^2 J v! b
PH2O=(m-x(1)-x(2))/S;8 I' H4 S) D0 h6 c/ A% b- O0 S
out= ...
. \* d" L; X% M6 B# V$ } [Ac/F*1.5*10^-3*exp(-117*10^3/(R*T))*PCH4.^0.97.*PH2O.^-0.08
7 n- M- c" q. s2 A (3*x(1)+x(2)).*x(2)./(1-x(2))./(m-x(1)-x(2))-exp(4400/T-4.063)];
* n% U5 M9 `. ^, C
+ q$ u3 R# y! U$ d! P7 E' S调用如下:) O* a9 f/ |9 w7 W, D- t+ E* d
>> x0 = [0; 0];: ~4 Q+ a, F! ~' f# Z# R/ x& M
tspan = [0:0.1:1];6 m& A) v8 @0 R8 u8 W$ d ^# E/ ]
M = [1 0 ; 0 0];
5 L# x) c; `3 [' E; |. Loptions = odeset('Mass',M,'RelTol',1e-4,'AbsTol',[1e-6 1e-10 ]);' K# V# o8 T9 W" B3 j" K. ^/ [
[t,x] = ode15s(@mult_syg7,tspan,x0,options)
# P: x6 H% h# P6 s2 q! R( o9 i# {& q7 q- q. |- s1 r6 U
报错如下:4 O4 ~. c" Z4 o# w; ^5 P( s
错误使用 daeic12 (line 76)
1 r5 Y2 {1 @( G' G此 DAE 的索引大于 1。2 m4 k- u' B# k) T2 q( b, ^
7 L$ W3 T$ k* {: p5 E/ {出错 ode15s (line 310)3 [" B+ l! N' J8 N: J
[y,yp,f0,dfdy,nFE,nPD,Jfac] = daeic12(odeFcn,odeArgs,t,ICtype,Mt,y,yp0,f0,...
. @* z9 E* l+ v5 D/ s2 q/ M8 |7 x+ g6 _ |
|