- 在线时间
- 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
% @- w7 \/ n/ p. n" C8 k& r%syms x y z t;- I+ j6 Z! t5 E* F# _6 e
%Q=10;%初始浓度定为10mg/m^3;
- x N6 R0 [+ J3 \3 d) f1 z/ Y%1.32*10^-5=1.32*10^-5;%扩散系数
1 T$ X' z$ p( W' W+ F6 n0 |+ 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);! a C; W& K0 I/ |/ ]! _9 P( p4 E6 ~% {
%统一并申明一下单位) D4 d. \7 ]4 |% a
%C (mg/m^3)* b- J4 l" a! T, W, i6 v1 `
%Q (mg/m^3)
6 f) N) o" f0 h2 A9 o7 @2 [0 x%1.32*10^-5 (m^2/s)7 n a" k) u! x$ [
%t (s)/ r, }: B. C7 C R
%x,y,z (m)- E! R* }" O& A' z+ Y7 @% V; x+ @" w
%申明一下扩散的条件如下:0 s$ i; `) B Z
%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个
8 Q: N3 a* _3 d) {4 g%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。8 F8 I }& P' C( F
randnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间
5 S) o; G5 p) m( g9 G0 E; m* a( [for i=1:4+ M9 H4 `: R& a, e6 Y0 u
[x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);1 t" b T5 T3 Q3 }4 c0 }) _( 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));
* Q3 g5 g" h2 T2 t2 y& n. {3 c xslice=[-0.25,1.75];
& Y! E/ m7 Z5 R3 l/ M yslice=[-0.25,1.25];
7 W8 d, L ?5 ?% Z5 j& z% f zslice=0.25;9 o( `% n8 S5 }7 a, i/ }9 \! `
subplot(2,2,i);
$ S. K5 b& {& t7 y3 M! j2 K4 ? slice(x,y,z,C,xslice,yslice,zslice);. v5 f9 S6 c/ d
xlabel('x坐标');
7 [+ N m/ |# F7 _7 b ylabel('y坐标');
" F1 Q$ _+ h) q7 ~" C2 e: D# U$ b zlabel('z坐标');
8 o @2 R4 k6 q4 _1 j* C' g2 w2 u } title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']);
- z8 p7 B3 w7 x z9 m colormap hsv
S/ Z' Y' Y+ G colorbar
+ c- `) K% {) W& ~, Mend: [ {! ]9 a) h6 U/ j9 r
|
|