- 在线时间
- 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
! l% ~$ v- y# I B6 f: N%syms x y z t;/ w9 |( ~* X1 a& M' V
%Q=10;%初始浓度定为10mg/m^3;
% F: K$ d l' E7 i5 f+ _- Q& s%1.32*10^-5=1.32*10^-5;%扩散系数& W: r. L+ A0 h
%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);
$ M2 t' a6 s3 i# ?9 _%统一并申明一下单位! }+ r1 |. |5 u+ |
%C (mg/m^3)
2 b2 k% E9 [. S%Q (mg/m^3)5 l# `2 d/ W) O9 p
%1.32*10^-5 (m^2/s)5 K6 ^+ l5 W% Q( z6 E/ ]
%t (s)
* q: r" l/ v6 ?% C1 V%x,y,z (m)
4 R1 ?0 ^: q5 E. j%申明一下扩散的条件如下:! d+ U5 C# }! i3 M8 O6 q9 F! c' W
%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个- Y' Z' n- z% |# k$ E: \1 ~
%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。
, Y" `& j d0 ?1 V# Drandnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间& N( Y' C; i4 p5 J2 S
for i=1:4- e4 r, C+ j8 L7 b
[x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);
8 K" C# u* L% ]/ J' E8 p7 x/ I9 O% [ 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));
5 P' ~6 |: w2 V: h# l; D xslice=[-0.25,1.75];7 @# c( f: I6 J2 ]( E
yslice=[-0.25,1.25];
8 F7 F" j; f: `- N zslice=0.25;6 Q6 @0 c) r: Z# q
subplot(2,2,i);
: s5 }& F U/ l* H6 W5 m; n slice(x,y,z,C,xslice,yslice,zslice);7 r/ D+ d9 w: G
xlabel('x坐标');
' F* d% w3 Q; b. z; \ ylabel('y坐标');
' ?9 b1 u0 V& L( S* G zlabel('z坐标');
' ~8 A1 ^" C3 ? title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); : X; U. f% o# E' v. e/ {9 v
colormap hsv3 I. R3 v/ q% ~5 l" `+ d
colorbar/ P, m- i0 g' I1 F' `4 z/ x
end
- w/ a) W* ?" s) F- ]6 K" N8 Q |
|