- 在线时间
- 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) q/ @: o. b2 l( _; b, w
%syms x y z t;
7 \7 w+ t( u2 b; |! C- z%Q=10;%初始浓度定为10mg/m^3;
8 S8 t; p3 q" b4 e) x" t%1.32*10^-5=1.32*10^-5;%扩散系数
! u. P# V# i( s+ r0 z%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);/ o: Q/ v' ]! v$ o7 b9 v+ r9 x
%统一并申明一下单位7 f- x, c P5 l- z
%C (mg/m^3)- b+ c5 A. B( `, V: U+ s
%Q (mg/m^3)4 W$ |- J# y# ]; h/ Q
%1.32*10^-5 (m^2/s)
! _ m& R# W3 r$ j4 I7 @%t (s)7 S+ O( C1 A$ A( m+ c) w( B
%x,y,z (m)6 A7 b' ^+ }$ R1 x! }
%申明一下扩散的条件如下:* g0 s( S+ P+ e, `3 O6 k8 {
%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个" B- X, b+ T G1 q$ [! M
%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。6 a: O" r9 Z+ j d
randnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间$ q2 e; p) `8 @
for i=1:4! N" c( z% A8 D6 }" i1 R
[x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);
, F2 x7 {, c2 ~ 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));/ o% R, D4 g' q/ _* `- B3 ^
xslice=[-0.25,1.75];
' f6 g# J# H! x. w' e9 `2 b yslice=[-0.25,1.25];
* j$ N1 F7 m# H zslice=0.25;0 h6 L. j8 ~3 J
subplot(2,2,i);7 B b% U- a) Y' f/ I3 C, \
slice(x,y,z,C,xslice,yslice,zslice);
& d' O. P2 y; y8 O: ]/ k xlabel('x坐标');
# z3 o, X5 Y% e! O ylabel('y坐标');
8 F- p' e* g: F4 X* W; A zlabel('z坐标');
( ~9 ?6 v2 k$ n; g+ N title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); ; N7 l# a" Z" Q' ^1 C% T* F- a
colormap hsv
: C; ~7 \5 i% p colorbar
! }) d6 `( V" v [% y" v$ l* a3 rend) U* q5 f$ z) @3 H" M- j
|
|