- 在线时间
- 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! S6 a/ G% b; L9 f
%syms x y z t;! K' } r; G9 h0 [, e1 E
%Q=10;%初始浓度定为10mg/m^3;
- }, [& @& U8 V! Z+ B. t3 Q' b%1.32*10^-5=1.32*10^-5;%扩散系数' {( F: u+ h, [! a- P! w# D* v
%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);+ `* _3 m# D$ X/ @8 Y" I
%统一并申明一下单位
" M6 e; ^" D7 W6 j1 Z( m; G. J%C (mg/m^3)0 Q2 G% _$ T, P% V" @
%Q (mg/m^3)
8 W: H$ ?. k) ]4 X5 @%1.32*10^-5 (m^2/s)0 _! E% W5 t- u$ h6 c1 T- G
%t (s)
6 Y7 A/ c3 B1 |$ z2 U; \$ I%x,y,z (m)
! A) p \6 u0 p0 i$ r. r2 a$ d%申明一下扩散的条件如下:6 U! G8 f- e. s0 l3 ~$ d
%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个- n' E- j$ u- B
%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。2 [9 I! ?- H- r2 L$ ~ ?
randnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间9 h, o$ k8 h5 [5 @# B
for i=1:4
0 `& P+ N8 w0 s, _' z6 Y [x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);
8 _' @' i2 d" C( Y. _ 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));8 f" d; k3 \/ @5 j- Z& j% d: S
xslice=[-0.25,1.75];
; b1 W) @. y% I4 z, k Y7 l yslice=[-0.25,1.25];
4 y- |+ o& x% p. i7 e M zslice=0.25;
0 m3 {, Z, y) Y G subplot(2,2,i);$ m! }5 _+ L+ u$ o* H
slice(x,y,z,C,xslice,yslice,zslice);
: G& X _" R. B! E; R) \ xlabel('x坐标');! @* V' D3 P% g5 p6 x
ylabel('y坐标');9 k! o' h* X+ v
zlabel('z坐标');7 d s- D, [5 ?( u1 B
title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); 1 I8 i% j; K" h8 q1 X! T
colormap hsv
4 v3 H3 C1 O' \% Z% e& ] colorbar
3 b* R6 I. ^# K# M7 gend
! u2 F) i6 P$ G# ]0 q) S |
|