- 在线时间
- 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/ s( o+ T& f: |
%syms x y z t;' F3 w& F" k: \% w7 ~
%Q=10;%初始浓度定为10mg/m^3;
} q- T& `. I3 j9 | Q%1.32*10^-5=1.32*10^-5;%扩散系数
- Y7 z) R, J, ?, a* u%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);( c2 ?. w3 O! t, q
%统一并申明一下单位
5 R) d) {1 G3 X5 Z( A%C (mg/m^3)
* Y/ V+ a" c' b9 ^6 |/ K%Q (mg/m^3)
/ _+ z$ s+ h& ?9 y5 G; O) u5 P%1.32*10^-5 (m^2/s)
( u. g, X+ D; ?; \$ ~* ?6 a%t (s)
+ {6 s" ]# s( D. R% T$ O%x,y,z (m)
& j7 b9 ^; x$ o3 N8 E0 z' x%申明一下扩散的条件如下:
9 q2 t) R z2 ^' x$ ~%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个6 ^8 x" W+ s, n) ?4 t% H
%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。
$ p0 G c- v7 S5 J+ v/ g" |randnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间& Y! Q+ w2 N1 @/ c3 L
for i=1:49 N$ F$ t, ]$ w3 p5 h4 m* \1 k; }( C( n
[x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);
& [: i4 n6 ]% N4 j2 A 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));
+ C" @* v9 e0 u0 P0 e xslice=[-0.25,1.75];0 Q: Z3 U7 a F( L( f, F. M- t/ c
yslice=[-0.25,1.25];
& |, b: k" W9 N+ m5 q3 Y4 y- P/ y$ T zslice=0.25;
' n7 }2 X: M5 z5 _5 a4 e4 { subplot(2,2,i);/ Q0 u! u. m8 {
slice(x,y,z,C,xslice,yslice,zslice);9 g0 r8 A ^7 q
xlabel('x坐标');0 r3 u( [. ^7 F" r n
ylabel('y坐标');! N9 ^7 X" T9 U2 D
zlabel('z坐标');
W4 P1 ~0 Y7 _+ p; T title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']);
7 g$ Q( q6 Y+ H( ^7 K" x: t; N0 o colormap hsv
" @9 |+ v0 O5 h7 q3 q# E colorbar
$ k, _# X1 t9 x" eend/ }1 u" S, s- i% a& h
|
|