- 在线时间
- 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
- R, [- e. I4 g" @%syms x y z t;
6 K# i1 E; J$ C- k% d" ]%Q=10;%初始浓度定为10mg/m^3;
% _- h! E: n n8 Q. Z- D%1.32*10^-5=1.32*10^-5;%扩散系数
& C% G s$ P0 j+ p4 L/ F8 S%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);
: z. V7 K* Q) ?& J" ]%统一并申明一下单位! ]+ D K U! \: r" u2 p9 O2 m+ e
%C (mg/m^3)
0 @$ y. ~; Q A7 c3 \( p%Q (mg/m^3)9 v" S$ p1 V& @& G/ P
%1.32*10^-5 (m^2/s)
7 L1 _/ f1 d- M0 a1 g# G%t (s)
" K/ z. X3 i# ?, R: t%x,y,z (m)7 i. n& Y! f1 v/ q$ a) [
%申明一下扩散的条件如下:9 l+ k/ b+ t, p, L) b$ q
%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个
$ v* _- r+ ]) Q ]. r%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。
* L3 R7 |; ?- _& P; trandnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间 }; O; u: N: C( }
for i=1:4( k% z1 ^; _$ L* W
[x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);: I u2 j. w6 U% q+ n) t, v! r
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 |# {7 L9 [$ s- W xslice=[-0.25,1.75];7 y- K# S( S. m9 m' M
yslice=[-0.25,1.25];% W3 `1 Q5 F9 U0 X6 s
zslice=0.25;
5 j1 [* p1 g( d- D/ f% H subplot(2,2,i);: ~ v, N% P8 R0 M; A
slice(x,y,z,C,xslice,yslice,zslice);
5 _) s7 G0 f1 F0 s* {2 s9 ? xlabel('x坐标');2 w9 \6 d# b9 h: \3 T# N' C
ylabel('y坐标');( a% V. m; L" a
zlabel('z坐标');9 D. {6 K% F% _1 c( Z4 i
title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); 4 C, k+ L; j+ V8 b4 g, q" h0 P
colormap hsv
' Y9 L2 o4 s" O4 P colorbar
4 Q% H* c! q: f' S7 h, Dend
+ r+ ]/ t& d2 J; K% J& n# j |
|