- 在线时间
- 24 小时
- 最后登录
- 2013-5-6
- 注册时间
- 2009-8-13
- 听众数
- 8
- 收听数
- 0
- 能力
- 0 分
- 体力
- 1988 点
- 威望
- 0 点
- 阅读权限
- 50
- 积分
- 769
- 相册
- 1
- 日志
- 25
- 记录
- 41
- 帖子
- 290
- 主题
- 22
- 精华
- 0
- 分享
- 3
- 好友
- 101
升级   42.25% TA的每日心情 | 开心 2013-5-6 20:58 |
|---|
签到天数: 3 天 [LV.2]偶尔看看I
群组: 数学建模 群组: LINGO 群组: 代数与数论 群组: C 语言讨论组 |
2#
发表于 2010-8-6 22:56
|只看该作者
|
|邮箱已经成功绑定
function y=shuzhimoni
* b3 l1 s7 b0 v' V9 x) d6 G%syms x y z t;5 _# A0 J! ?. w. O( R! b0 [! g
%Q=10;%初始浓度定为10mg/m^3;# y; K4 I3 ?& V7 t2 j7 s
%1.32*10^-5=1.32*10^-5;%扩散系数
+ z+ U8 ]6 \$ K+ d%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);6 ]* V0 ^/ r4 U
%统一并申明一下单位! l' ~& _# `+ o8 `7 T& n; `
%C (mg/m^3)) ^8 Q; [# |7 y
%Q (mg/m^3)
% x& I9 [; Q6 p6 A%1.32*10^-5 (m^2/s), K9 Y" P! r$ a) j- j
%t (s)6 F3 X( c+ _2 {# M2 X1 Z2 u/ _3 Y
%x,y,z (m)
1 U+ c+ y# y5 r) V$ h$ M) R% ]) p%申明一下扩散的条件如下:
+ x% Y5 a% ]% Y0 r _" G3 y%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个
9 R2 R6 N& v2 n# } Q W& e%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。
' C- D5 t) B5 A& Orandnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间
1 w( d( G4 D* @% `for i=1:43 `+ Z1 }+ \/ G( a7 K# e" q+ n
[x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);* {1 R0 j; G4 L6 c7 S2 d
C=10/(4*pi.*1.32*10^-5.*randnum(i))^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*randnum(i));5 Q- m9 \8 | {8 Q
xslice=[-0.25,1.75];$ I5 C# V0 W5 G- g1 _
yslice=[-0.25,1.25];
) ?1 E% _1 H6 j+ v9 C1 d/ H3 Q zslice=0.25;4 D7 O; T/ M3 x$ f
subplot(2,2,i);4 s1 n8 b( e" e, X9 q
slice(x,y,z,C,xslice,yslice,zslice);
$ I! s/ S8 J' f. _ g. z xlabel('x坐标');0 z; L% A0 N$ ?2 Q( I/ J! H
ylabel('y坐标');) x# [4 B1 |: e
zlabel('z坐标');
) e9 P% V. h% q7 _ title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); 7 K3 z% A$ ~+ \. a! B+ h0 p S( z8 g
colormap hsv
; R+ r+ r/ `' R; x' L colorbar2 q6 o& j( P) _
end6 Y5 x. y9 o d; N
|
|