- 在线时间
- 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; Y( l o* B5 ]+ p
%syms x y z t;
: q3 u( c5 k, x3 X9 U) D%Q=10;%初始浓度定为10mg/m^3;4 _7 H* c, y" v: h4 \
%1.32*10^-5=1.32*10^-5;%扩散系数$ @- f6 | T; k$ l; ~4 l
%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);
* I7 {& W! G& L" k%统一并申明一下单位
4 C9 c# ?' ?9 K) L0 W6 s1 X%C (mg/m^3)' Q* Q, I, C4 W# {7 d; H7 P
%Q (mg/m^3)
3 ^& h' F/ M' R4 q%1.32*10^-5 (m^2/s)
( q, m/ I/ t' A%t (s)# ~9 Q4 C y4 E2 K; `0 L1 M
%x,y,z (m)
! s4 y+ t/ n$ c%申明一下扩散的条件如下:# L# g1 O0 } n8 V9 ^6 b
%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个% k9 i) B7 i! f
%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。
/ ]/ h" `! [# J+ V( e0 [4 @randnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间& z* R& x3 L# Q* h
for i=1:4% Q9 V4 P$ s: |, D1 o
[x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);
& H" u- C. n' o3 h 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# }- S" `1 m4 x% p; m: i
xslice=[-0.25,1.75];
/ C" h- S2 H, {3 E K# P yslice=[-0.25,1.25];
/ P% \) [- k5 O4 Z' M zslice=0.25;
( ?7 l1 n- Z6 T) G4 \" L subplot(2,2,i);; ]; a! M: v7 x1 S/ c. p6 X5 k7 E
slice(x,y,z,C,xslice,yslice,zslice);
3 f* {- _0 |" a xlabel('x坐标');" N D& W1 M: h) q
ylabel('y坐标');/ j6 I, l* l; B" X1 g, @4 E! |
zlabel('z坐标');/ p6 ?3 O2 ~( V8 p# b+ V" Y
title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); , R7 ]% k5 R+ a' N a; x: p3 _
colormap hsv
* `- B0 k& [! R/ e* B colorbar) i$ C/ O' x9 ^0 b9 l
end
. {4 g& {/ D2 n: w: W4 s4 X |
|