- 在线时间
- 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
! _2 `# g7 X: |%syms x y z t;+ k: b. L! u! C
%Q=10;%初始浓度定为10mg/m^3;
( A3 s. l5 P- X5 w) e%1.32*10^-5=1.32*10^-5;%扩散系数. o, B' j: s, d' s9 v! 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);' R- W ~6 T/ O0 j
%统一并申明一下单位5 I# r3 A2 E7 g' y% K2 v1 q7 R
%C (mg/m^3)+ k/ o) f% t/ i1 s+ X# f' j: ^
%Q (mg/m^3)
6 D' n1 W/ Z$ Y6 a1 z! ~$ m4 {%1.32*10^-5 (m^2/s)' R; }% Q2 y' C0 v* M' ]
%t (s)1 `4 ]* Z: T4 ?5 B1 S6 e6 K$ p. s1 E: H
%x,y,z (m)/ U/ q- M# t. H
%申明一下扩散的条件如下:
$ _2 u7 ~" \, v5 h2 P* c%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个# q! h$ A: g1 h
%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。9 r% h7 B# T- @
randnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间( [% I1 b {: x1 x( Z
for i=1:40 s4 M- B6 u/ K ?( E" @ r: M
[x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);
1 d3 i" k" r1 A! O: h( D, `5 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));
# V) Z7 d* v& I0 |3 n3 F# z xslice=[-0.25,1.75];
! s: C' m; Y/ o$ N yslice=[-0.25,1.25];
$ A( a3 I5 X, g9 M m3 Y! T" O zslice=0.25;
/ W* u3 N" Q" ] subplot(2,2,i);
' o0 E0 P' n& l' M2 e* S# V0 I slice(x,y,z,C,xslice,yslice,zslice);
8 W; [2 B! h1 y8 u# P* Z xlabel('x坐标');
; V# }2 b F* U6 N9 r. D @ ylabel('y坐标');
! ~$ S7 Q; y$ n0 V+ D7 G zlabel('z坐标');2 q b8 S8 n7 ^2 V
title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']);
8 M; ?5 n j5 A ?6 B$ ] colormap hsv+ u) w. c- C) w) H' P% r0 N
colorbar( b% B2 p8 g# ^# m# h7 t# b- @, N
end% a. V: b5 y7 P9 u( l; r2 M; ?
|
|