- 在线时间
- 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
6 g% h8 _: p H9 K%syms x y z t;
) K1 Y( b1 i4 i! s%Q=10;%初始浓度定为10mg/m^3;$ v" H$ N H/ H6 d/ }( Z
%1.32*10^-5=1.32*10^-5;%扩散系数
, \ F# j5 i* b7 }%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);
2 w+ C2 A6 U! E2 a%统一并申明一下单位
' A, T/ j r+ b$ }( g& \5 C%C (mg/m^3)7 V+ e7 @. y" e0 a2 o8 g, f
%Q (mg/m^3)
7 N, o9 S" ~, G& ` K%1.32*10^-5 (m^2/s)4 K- m/ ^6 p6 x! I* W- A. v* x2 c, v
%t (s)
& e% {$ N3 z* g7 U1 a5 D" {%x,y,z (m). p: b* [# |" ~4 H0 Y; ~& v( t/ _
%申明一下扩散的条件如下:
# R) w f4 w" F6 g%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个
, I7 o- ^# p" R9 ?# F/ p& F: k2 G% m; X%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。
! c/ O1 m, b k* w& A6 V1 rrandnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间( v1 n8 V% }$ d; Y5 l5 P2 ` [
for i=1:4; d) `9 w8 C. |, `/ ^! x7 S# K1 I- a
[x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);2 X3 s0 H8 }# J) j
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));& x2 c9 n @$ A! Y6 r
xslice=[-0.25,1.75];! D; n! L( v' w, h# N+ U8 b
yslice=[-0.25,1.25];8 U) G, D; J4 P( ]
zslice=0.25;4 E) F* k+ i4 j6 ]# c( M8 e8 `
subplot(2,2,i);
$ ?- R; _; ~0 `( R% }% v7 c$ N slice(x,y,z,C,xslice,yslice,zslice);
4 i# J" j3 q# E* ?0 [1 k1 ` xlabel('x坐标');
5 R5 y( k7 A# Y+ {5 q6 E/ c ylabel('y坐标');
1 g! Y7 T7 ], J5 N1 t0 k; `# s; v zlabel('z坐标'); u1 N9 r @3 v- a- G2 r, {
title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']);
7 O+ B0 O5 S9 p# u" @# w/ n& T colormap hsv# ]7 G* ^: d$ B! Y; x. t% _' \1 b
colorbar0 `6 C# i' ~- I
end4 g1 w! b' Q% h: ^7 V. t8 [
|
|