- 在线时间
- 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
. x) j+ ~0 z+ U' M8 F%syms x y z t;
- ^% j/ o1 r' m1 f%Q=10;%初始浓度定为10mg/m^3;, G' y c5 w3 A) ]6 k1 M
%1.32*10^-5=1.32*10^-5;%扩散系数: i( p& n( R: F
%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);1 ^$ ]- I' |' W
%统一并申明一下单位" p8 N7 C$ J; `2 g
%C (mg/m^3): E" K+ q% e0 \; s `8 u2 J
%Q (mg/m^3)
/ B3 a) U/ i1 l7 z: N+ L/ d%1.32*10^-5 (m^2/s)8 d w# l5 k% }# S, s Y3 d' Z
%t (s)
, t% u* A& D. U+ ?3 B%x,y,z (m)/ U) b2 ~; q" L6 R( F
%申明一下扩散的条件如下:
: g. E6 p7 Y+ v- K- M! r5 x%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个
4 a' a3 ]) p2 x, a! x: Q8 R" E%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。
6 x* F, f4 B) Rrandnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间
7 [' t/ p0 }) w- Q: Gfor i=1:4
, X9 B( |0 ^7 O/ N7 B& d, R1 J [x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);
& p' \9 F I+ [% ?% y" q' k5 F 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));
7 F" s8 y$ S% {' z- A' y/ f xslice=[-0.25,1.75];
w! H' G3 d, B1 V. ? yslice=[-0.25,1.25];
& q C) p: ]0 A$ t" ~: u& s zslice=0.25;; v+ J7 m6 {" D2 k* |6 ]8 Z7 g
subplot(2,2,i);& M: P$ E; ?& {; h' [/ N
slice(x,y,z,C,xslice,yslice,zslice);
* N- _9 v7 O, ?, y( U/ J xlabel('x坐标');
+ B* b9 l& [# N+ ]+ W/ j& P) } G5 o: ] ylabel('y坐标');8 v: Q8 X) H. a, y5 l# q
zlabel('z坐标');/ m! v, {+ R H, O8 c6 k3 p
title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); + ~( V' @8 _9 j* G" p+ w0 Y
colormap hsv
. d2 z0 @" B: K+ R colorbar
' f& ?' Z3 z7 k9 \6 x6 Q; p% M6 Qend( N) b/ R/ |; r0 ]4 W6 k" c( O5 u3 {
|
|