- 在线时间
- 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
. A4 q5 h& l& Z8 i) E$ w- P9 t: v%syms x y z t;
6 U/ E$ C, ^3 V( [* t%Q=10;%初始浓度定为10mg/m^3;) a7 G2 ?. q; _/ |4 f C
%1.32*10^-5=1.32*10^-5;%扩散系数2 A, N2 Z& N6 Z9 B+ P
%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);; [% |$ I) E" \- m: g% F' x
%统一并申明一下单位
7 R# C% [, T a' f/ m%C (mg/m^3)3 ?7 E7 y+ b$ `; j( C4 f- x! d
%Q (mg/m^3)6 M. m' y* @6 g) g
%1.32*10^-5 (m^2/s)' d% l6 k6 Q& ~) ~3 p! B
%t (s)
) j/ y% m. v$ t. ?) i4 r( |%x,y,z (m)1 t# |5 l' @1 Q2 u+ e
%申明一下扩散的条件如下:
0 W7 s3 V2 W3 |( [ ]. _1 q%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个
5 b2 [" B) n5 T5 s$ W% B; u%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。% q/ Q5 I1 W. v+ A/ A1 D. f
randnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间
/ E6 k6 B* v1 p" v: s' w9 e, A4 Dfor i=1:4
! [# x" j* o2 H+ V* r& J- r [x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);
$ C3 `2 z, H/ i& H 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 z( w! u9 M6 z7 p1 }5 A0 U6 r" y xslice=[-0.25,1.75];1 U5 f5 \8 } I, D
yslice=[-0.25,1.25];
% k: j: A0 z( Y zslice=0.25;3 h. P& B- H% I- f
subplot(2,2,i);7 Q& p. W( {8 o! x4 C, K
slice(x,y,z,C,xslice,yslice,zslice);2 P1 g4 N6 v e! T. {
xlabel('x坐标');
. }- c0 P+ Q) u/ m ylabel('y坐标');6 ^9 i% R) y# j4 `' S& _
zlabel('z坐标');
( w, X' p" ~+ N1 q3 p( b6 N8 N title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); 1 t$ i9 {( f4 X3 V
colormap hsv' g) U5 g. z3 K+ V6 U" S
colorbar1 F4 g. q' e* _; D
end6 p4 F0 H" b% r: M
|
|