- 在线时间
- 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
7 u) l2 A2 l$ ]3 f8 ?. n+ `%syms x y z t;
?* B, `" X# z1 R1 P%Q=10;%初始浓度定为10mg/m^3;
w( t/ Y4 q9 q5 B%1.32*10^-5=1.32*10^-5;%扩散系数4 Y6 B! ^5 R [8 r
%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);' ~/ H3 ^9 {5 c. n
%统一并申明一下单位
8 R7 x' ?7 n: ~1 W* v3 Z) J%C (mg/m^3) _7 h& W! A! A4 t. ~1 y
%Q (mg/m^3)
- o. c+ W( Z' b! ~$ |7 \. q%1.32*10^-5 (m^2/s)
) O' Y: H8 r+ X3 ^( Q; @5 q%t (s)
2 e! A/ }/ O% o" r( I3 g) c% P%x,y,z (m)
3 t5 G! i! b- Q! I/ ^# T%申明一下扩散的条件如下:
" C7 e6 Z6 {* {%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个
# D+ S: y2 R. E& A' R# E- R%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。
1 G3 c. ~4 N3 {0 _+ F3 m' Orandnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间: E( W( q. b/ p7 X! u0 t
for i=1:4, I9 M* K* O9 A2 L$ G$ T, j
[x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);
. r! |: E) o: g- E8 Q 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));
& X1 t- I/ Y* j8 p, ^1 t, k- \6 c xslice=[-0.25,1.75];; t' r4 u4 ^' }# |$ i
yslice=[-0.25,1.25];+ s, U* U2 k- o% l! Q# O; ]
zslice=0.25;0 v5 u& R" K5 @' E0 Y
subplot(2,2,i);
+ b- Z! q9 O R+ m8 r; r slice(x,y,z,C,xslice,yslice,zslice);
, \( u+ D+ A# B: x5 v xlabel('x坐标');
6 O" Q* H1 f! v* z6 l9 A, C0 E ylabel('y坐标');
! L. F+ u+ S ? zlabel('z坐标');
3 L( l `" r8 ~7 s" S title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); , L/ U9 }) N" p" h# a r9 J' }( D
colormap hsv) Z5 V1 c$ p4 M4 G9 L6 z
colorbar
4 \% Z8 u5 M% M& s: U) |end
/ a1 X9 f9 D% A* G* O* p" y+ w* K+ }- ] |
|