- 在线时间
- 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/ ~2 b* x, a* ~9 K0 S9 l! X& \
%syms x y z t;
( c, X& ]- ~6 G+ ?3 b%Q=10;%初始浓度定为10mg/m^3;
6 k+ _2 [1 {5 z& i) D r! a& Y%1.32*10^-5=1.32*10^-5;%扩散系数1 ~+ A. ~3 g7 k+ s
%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);9 P6 N: k0 u& L9 x. p3 E
%统一并申明一下单位
' f# z" N, z1 Y7 ^2 E%C (mg/m^3)
8 X) N5 d d, E: r. \%Q (mg/m^3)0 u1 l- j% \5 B6 f8 u
%1.32*10^-5 (m^2/s), D. J; g6 L9 O8 u# z C
%t (s)2 `8 U' ^6 T4 I+ s
%x,y,z (m)6 v/ p$ }6 m7 z5 N
%申明一下扩散的条件如下:0 T8 ~+ n' h: p5 }! v, y! \/ f
%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个
; w5 d* F& X( i; s%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。
5 O5 i9 ?5 r: D V5 Jrandnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间, G6 M& M6 W) U; D) Z; U5 `$ t, o/ S
for i=1:4/ k1 s0 ]/ S8 w0 h8 T8 _3 \
[x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);
$ R' O/ G$ G. F% i 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));: Q) d5 U! A/ ^% ~5 ~
xslice=[-0.25,1.75];9 [" m4 M) G, Y5 s# q
yslice=[-0.25,1.25];
5 Q# S2 [ S) w zslice=0.25;
! `. U$ }4 ]3 m* _# s7 r% e subplot(2,2,i);; j* ~1 c, Z$ R' i
slice(x,y,z,C,xslice,yslice,zslice);3 x" E0 v) }: G! Q4 ?6 w9 f5 @$ Q
xlabel('x坐标');
: y. }4 w' B# y2 @ ylabel('y坐标');) a* c i8 j3 y3 ~# |' k! s$ P
zlabel('z坐标');7 z, ]: a' f3 `; E8 }! @ N4 U
title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); " J% R+ }3 V' I2 B- d8 \2 L2 D- O' g$ A5 }
colormap hsv
) R! L2 D& p5 c; i4 D$ Z colorbar0 r: y" s. n5 ]) ?, F
end
4 X5 q( u) z# e3 q/ D1 ^ |
|