- 在线时间
- 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" d, H: H/ ~# `! _5 N" b
%syms x y z t;
8 ^( I& Z3 C X; h: ]6 _%Q=10;%初始浓度定为10mg/m^3;
: c/ G; N: n7 }2 s* L( m% p Y%1.32*10^-5=1.32*10^-5;%扩散系数
! C- g& O& A: \/ i' M%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);
$ r! }* _9 k8 u; T) ~8 D2 g$ ~. j%统一并申明一下单位5 V; r# M9 x- M
%C (mg/m^3)! p+ f. C' \2 ?
%Q (mg/m^3). [( m& N4 J/ |9 ^$ O: P) x
%1.32*10^-5 (m^2/s)
! r' K; ~ \6 ? ^, q8 F" b2 u%t (s)
/ x1 |8 [. N" T+ \ l+ I; u%x,y,z (m)
3 l2 [# X% z, A* u%申明一下扩散的条件如下:
) ?: r8 b$ Z; O% g0 {%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个
) x3 e! Q( n6 C6 n2 b- S, b" \%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。8 c& i5 A; E; e6 v, Q
randnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间3 Y- n8 h# `- ^% ?/ T0 _
for i=1:4, S8 A8 Y4 d# |4 A
[x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);
7 S4 \" `. m- o4 a9 h, W 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));4 {4 Z# n! H; _
xslice=[-0.25,1.75];
+ H2 h _* c/ G/ [8 v& R" N, |" v- U. f yslice=[-0.25,1.25];
( }& [4 `6 R2 C zslice=0.25;
5 H0 X. k& J) o" D/ h subplot(2,2,i);# j. ~2 O3 U: f! d
slice(x,y,z,C,xslice,yslice,zslice);/ k% T, W5 r4 x+ C; J6 a3 {% r' ~
xlabel('x坐标');. q8 n/ b8 l( E- P+ Q3 p2 E
ylabel('y坐标');
5 P6 Q* u# A) {! z# ` zlabel('z坐标');
]. r1 I* w8 H. h) Y title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); 4 q8 c3 j9 ^: q
colormap hsv
; R, j3 f$ e# ^1 Q colorbar9 p% `2 G4 D, f1 f2 x4 ]$ e4 v6 K
end
3 x' @3 O1 E1 } |
|