- 在线时间
- 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
: G: ~ l) S9 K7 x' T6 K8 ^) ?%syms x y z t;
* a( M/ C7 d5 ^/ `5 a* t2 B, c. H%Q=10;%初始浓度定为10mg/m^3;
; l1 @# j+ f0 C( f3 J( p1 [%1.32*10^-5=1.32*10^-5;%扩散系数
9 Z+ C* Q0 u1 s( B( N. Y%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);, a0 x+ |2 u+ i% e8 e/ [! R- [
%统一并申明一下单位7 }6 D) _# b7 R
%C (mg/m^3)
& k" H9 J# {( E% f$ E. I%Q (mg/m^3)
# I3 ^. G, p& n5 x. [' m%1.32*10^-5 (m^2/s)* Z0 K/ \7 d& }7 R
%t (s)
+ B# l0 ^4 a3 [9 Q! Q+ ]1 q( _%x,y,z (m)
4 S3 U. C- F/ K2 T%申明一下扩散的条件如下:. E, n' P0 l8 p8 C0 N
%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个
" v7 Z+ `1 s5 L- ^; `, {%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。1 S; ?" {5 k! L& v7 [, b
randnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间
5 F6 d7 `! I. A+ G& ~) X: ofor i=1:4
& S1 N7 E% L- X [x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);
# q) ^! s* v3 t6 ? D. 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));
. ]+ a' w; s0 G2 t% E xslice=[-0.25,1.75];
: m6 Q: ?/ D9 |2 s, F yslice=[-0.25,1.25];
$ \' p( ]! |7 a* d zslice=0.25;
7 {: f, t6 P% O8 h4 \9 ~ subplot(2,2,i);
* \( R w6 R: ]4 n slice(x,y,z,C,xslice,yslice,zslice);+ s; ?; A1 _* j2 M7 e
xlabel('x坐标');
/ |; _) s* i8 B' d( y0 R ylabel('y坐标');
# p/ R# l% T. w* }' F. D6 \: c zlabel('z坐标');
- r* o# b0 a8 A" L% U, z% L title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']);
; ?& [/ G! X2 [/ l0 j2 u colormap hsv7 Q! ?& p7 Y* f& }& X% I. j2 Q
colorbar
; l3 d/ ]# p8 F+ c- ` gend
" ?- L m R; [) {3 b9 c# v |
|