- 在线时间
- 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; w* t" r/ l% l4 b$ F
%syms x y z t;! x) u! l8 n3 K, w, _' J* ?3 V
%Q=10;%初始浓度定为10mg/m^3;1 c) @# o" g: c G% K
%1.32*10^-5=1.32*10^-5;%扩散系数
8 f5 `+ I8 ?, F t& a# e5 J- `* m%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);
# U! E U# g8 x# _ e0 m%统一并申明一下单位
- C* V# i/ \- J. k/ P# h0 d%C (mg/m^3). Y- l( r$ t- J
%Q (mg/m^3)6 c% p( k g, N* r; j
%1.32*10^-5 (m^2/s)& N) b0 V1 m/ @% F) [) X( k, m
%t (s)
$ n4 P+ [6 t9 T%x,y,z (m)4 i+ z1 r) `5 L2 A
%申明一下扩散的条件如下:% }$ f9 w1 z) O m" L8 t; t
%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个/ j. A* N& o1 k- J/ [3 e
%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。
2 u* c" X9 s5 E! e. irandnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间
$ n& i7 x; R, F% d9 q; U4 @: ~for i=1:4
+ r+ O/ Y: z* m- J, r [x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);
4 J' }9 Q: J4 p' t( V, S) N 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));0 a7 u. t8 @3 W" O) k9 q7 p
xslice=[-0.25,1.75];# V9 Z# Q+ _2 F1 ^
yslice=[-0.25,1.25];
+ c: ]8 P6 C" f7 t' e zslice=0.25;) e- M* ^2 ]9 R" ?! X; x
subplot(2,2,i);
5 H1 `. f) S. I3 ~! q6 t$ V* v! _! M slice(x,y,z,C,xslice,yslice,zslice);; m! B6 t6 v& g% Y
xlabel('x坐标');
7 F2 l( }$ n+ l( w ylabel('y坐标');( P( f5 N+ M/ [+ }
zlabel('z坐标');
% ]- k. C4 m" D6 ~! R( \% ` title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); ) V; G+ [5 K3 d/ {
colormap hsv
# K5 ^9 u f/ ~6 O: D$ A* b colorbar5 \) P% n3 ~" x2 }% K
end
. a8 O$ t: k' d4 Y& W2 r |
|