- 在线时间
- 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! o. e4 z) j; r2 s X
%syms x y z t;$ F- E6 L: T/ B/ | D/ v+ N4 q
%Q=10;%初始浓度定为10mg/m^3;
/ Y, d; `: v% s3 T%1.32*10^-5=1.32*10^-5;%扩散系数
9 ?6 w3 E0 w6 v" R! h7 U2 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);
8 L6 v# i: W- y5 D. R%统一并申明一下单位
7 [( C+ K j) R( J- S; U%C (mg/m^3)
3 v* {' H) c# p+ G% p: n1 z2 f%Q (mg/m^3)
& ^ O* S; g4 r& h) j3 Z5 g; S%1.32*10^-5 (m^2/s)% N7 {9 g; ~/ a, u( s
%t (s)! z0 }, [: }$ m
%x,y,z (m)* X2 j- ^, e& M: h
%申明一下扩散的条件如下:
7 X9 t2 _4 d5 U! `8 }%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个6 ~( Z/ o7 q8 y8 {* N5 ~: n5 @
%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。" _! |4 ]8 n h
randnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间
/ O& Z0 f$ P: u7 j) q) Mfor i=1:4
3 { j* c7 _" Y [x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);- l, C0 p( H+ q1 f" h) c- Q" c
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));) l& i y$ r0 Y9 U: I5 t D
xslice=[-0.25,1.75];# N, d. p( T x0 j
yslice=[-0.25,1.25];
; N" j2 K; E4 r1 V; n T zslice=0.25;0 N; R/ J5 V5 j* |# J
subplot(2,2,i);) c& }. ^2 `( Q
slice(x,y,z,C,xslice,yslice,zslice);
( I8 J3 P& p: w& G4 A# c xlabel('x坐标');' p8 C/ M5 R! l6 O E4 ^2 N6 X
ylabel('y坐标');
, ^/ b! K! w# ^/ _, m6 e1 J' S8 _ zlabel('z坐标');
$ l# \4 U1 B, u+ l title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); ! W' r0 ]" r( \* }% m. n5 x
colormap hsv
4 C1 f- X& y. f7 a' r5 i3 Q7 O9 S colorbar
. z2 Z! P% I7 T x- Pend: ?# w g/ H+ f$ J$ W2 e$ `
|
|