- 在线时间
- 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" t, X C9 i: M }/ F3 z9 F& ]
%syms x y z t;
( p0 @2 R; Z' z* B. Y%Q=10;%初始浓度定为10mg/m^3;2 n% i& L' y9 f. g) R! b
%1.32*10^-5=1.32*10^-5;%扩散系数
1 p3 R) g( x3 u) x' `%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);
7 _& R0 I5 b7 v/ U$ K%统一并申明一下单位" u% z4 N5 o& D8 s8 j" O
%C (mg/m^3)
7 k1 c& V( Z5 j* z( o# R6 V% \%Q (mg/m^3)
' a$ }3 L+ X* O+ ?( `%1.32*10^-5 (m^2/s)
; ?7 A. k9 _. I8 C1 x5 s%t (s)
5 `: L: L3 o% U% S6 f3 H%x,y,z (m)
9 H& g7 y1 x; J& l' W; O( o2 e%申明一下扩散的条件如下:
1 Q( u1 X1 N- p, c# }%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个
9 E, I$ ^' K% w* a%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。
. S. d" Q/ H7 A8 i/ orandnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间5 `0 N4 `2 k5 z" p8 Y' R- y
for i=1:4
6 ~2 l- N6 l# t5 I" o! m [x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);
7 s5 I8 ?+ |- U: p( n4 P' z7 _- a# V% i5 j 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));
* ^8 X4 j& m5 _; B+ i! y xslice=[-0.25,1.75]; I- z7 \% U! a# q1 u$ A
yslice=[-0.25,1.25];0 m* g k' b8 E: T0 {2 l+ H
zslice=0.25;+ N0 b1 x5 B2 @. n" M4 t) j
subplot(2,2,i);& [" D" K- _* P0 l9 Z
slice(x,y,z,C,xslice,yslice,zslice);* F4 [& M" @ J6 ^ V2 `" n( t
xlabel('x坐标');$ l" G& b5 j: |- U/ e
ylabel('y坐标');
8 F0 X! |' n2 p# t L% d zlabel('z坐标');* S0 J" d5 @# j C, V: y3 A
title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); ' X# a( z' f- r) q+ |5 ^! n/ X
colormap hsv
5 X P( H, x$ T6 h9 p5 {- R! W colorbar1 ^- k8 d6 X8 k# Y( a& ?# X
end
1 c' e9 r0 o5 c/ A' y |
|