- 在线时间
- 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
, r9 e8 F5 k! |& T0 a%syms x y z t;
I3 x8 b3 ^* E& `- E5 J' l( i%Q=10;%初始浓度定为10mg/m^3;$ A' `" E3 F! j7 J- X' E: }$ `% C) R
%1.32*10^-5=1.32*10^-5;%扩散系数
, r7 m. Y* u, m+ T5 e. K8 }; ]3 `%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);( R8 k6 \) `6 K9 w
%统一并申明一下单位; y E! K: Z% ~/ H! |
%C (mg/m^3)
. S" Q& y) \( T0 g! R$ A%Q (mg/m^3)$ f1 m$ y) h$ y4 g0 i
%1.32*10^-5 (m^2/s)& R* m- k% i/ a5 w
%t (s)" J8 b5 K! |2 f4 l4 {
%x,y,z (m)
3 s; l- ]4 v7 |8 S%申明一下扩散的条件如下:
) v4 ~& `' P$ F/ }% j%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个
" x. }: B# h: o; Z% o' q% b0 c8 V. W%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。
5 I* `: j$ h6 y! g/ d9 e/ v/ J, ]3 @randnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间
! {8 d; E; V5 ~+ d1 ifor i=1:47 e5 P0 q$ x( j$ H% x. {
[x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);
9 ]" Y* d! ~1 }9 L* f0 J( c 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));6 n2 F/ T* V) V3 s9 J) D
xslice=[-0.25,1.75];! {/ G% \% _5 f+ ]- W. N: g
yslice=[-0.25,1.25];6 y6 J1 A+ o, z. j
zslice=0.25;
" r3 N a( Y: \; L3 K subplot(2,2,i);
D9 t5 \2 K* M slice(x,y,z,C,xslice,yslice,zslice);! s8 s3 z; w3 C5 Q! x7 Z1 L6 Q
xlabel('x坐标');; d2 v3 d% t7 \* v- ^
ylabel('y坐标');$ B) e0 y8 _: J
zlabel('z坐标');
6 Y1 j7 N/ U, Q( u: S title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); : i# Z! w& G5 y {! j7 E1 J
colormap hsv
6 O. M, o$ {' b r4 c, U colorbar, H, \+ Y/ X5 T7 J" q% o- G
end: g4 g7 I. a$ R1 V
|
|