- 在线时间
- 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
0 d: ^" a9 L1 D7 [7 Z%syms x y z t;
+ {! c$ f- a/ y%Q=10;%初始浓度定为10mg/m^3;: v1 J* D- A* ^
%1.32*10^-5=1.32*10^-5;%扩散系数2 d2 f2 i K. |! J. O1 N
%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);/ x0 \ \: I2 u# m- p( v! |5 A
%统一并申明一下单位: G U3 d- |. s7 ]* W
%C (mg/m^3)
2 |" S# w# R! n6 q2 ]: X1 ^1 R* }' r%Q (mg/m^3)) d# _1 i8 Z r
%1.32*10^-5 (m^2/s)2 H8 q$ e* w. I+ }
%t (s)' p5 a, s6 D0 k' e$ A+ g. e
%x,y,z (m)0 A5 @* r: `/ M6 ]) _
%申明一下扩散的条件如下:7 L7 y* ]7 ]! G4 X
%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个
; P4 Q3 c- n: s$ l& q9 I+ \%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。
0 {* v4 J4 ~: A! d! frandnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间
' Y8 i* S; W* o; Efor i=1:4
x7 f% {! t0 E% w2 z, o7 ^# I# x [x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);
8 S: c2 e* T, ^9 T 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));
# s% u6 E' v. u xslice=[-0.25,1.75];/ Z# Z# k/ i6 Q" C3 E6 E
yslice=[-0.25,1.25];" N2 J5 {7 H# c7 k" I' ?( B3 J$ a; L
zslice=0.25;0 ]' H+ u4 ?" I+ J) ? `& X( s
subplot(2,2,i);
" S6 x( ~$ @8 J8 g8 z) K slice(x,y,z,C,xslice,yslice,zslice);
# ~& Y( R( S+ e2 I: C$ V& z xlabel('x坐标');
4 U/ ~) W. m% s# v O2 u! Z$ F ylabel('y坐标');
: a) H4 w2 Z* c zlabel('z坐标');
W5 k3 ~" F6 Z. A* |$ P/ B/ _0 ] title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); * l. P% Y$ Y8 \9 \/ _: W
colormap hsv
& P- v6 s8 m6 c. K6 I: W2 ~) Z% M/ | colorbar
. @, I5 a& s- e4 t9 mend J+ H: z/ C. \$ e2 \
|
|