- 在线时间
- 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=shuzhimoni7 D4 f1 ^* y L) E/ F# e7 l
%syms x y z t;
" Z2 S$ N. o! k; O%Q=10;%初始浓度定为10mg/m^3;: X0 o. R+ J6 } T- w5 ^, S
%1.32*10^-5=1.32*10^-5;%扩散系数. U. T) {8 |' U# j' @3 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);
' Y5 |4 S6 P% t. S# G4 m%统一并申明一下单位 `+ x8 K, i) n% d
%C (mg/m^3)
% j0 J- P9 j3 E2 \%Q (mg/m^3)9 o6 {" \$ b5 [! k- _0 ^0 `
%1.32*10^-5 (m^2/s)) V( P; D8 \$ x! L+ w" f; f* t5 t
%t (s)2 z5 P6 N: K' l" i
%x,y,z (m)
7 `- ^9 y6 ?& E1 a; p. P%申明一下扩散的条件如下:
, }, R( P5 Y. s) q%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个8 }6 h/ q* n3 I9 Z. t4 k! f
%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。
( f( V* c6 \" t0 H& t2 nrandnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间! {8 t: o9 ^0 h+ G+ C5 |( A7 a
for i=1:4
4 C8 D; \8 X7 _; [& N4 V/ r [x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);0 N. Y. {: A J6 o
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));. [* m8 ]. ]( @( m& G
xslice=[-0.25,1.75];4 v0 W1 n2 U2 l, g0 {
yslice=[-0.25,1.25];
6 m( \1 O" k; v5 W* q zslice=0.25;
9 |1 j2 M* h: a) x$ X% B" E: c subplot(2,2,i);" N0 g. N1 f, V( b- D; n
slice(x,y,z,C,xslice,yslice,zslice);4 F- n& o' ~/ Z
xlabel('x坐标');
4 a9 d U5 Z) x ylabel('y坐标');
6 h% n& F, u4 r/ t4 }5 ~+ T+ C$ M1 s zlabel('z坐标');) p% N# b& C. K# P4 u
title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']);
5 Z" ^% V4 J3 t7 F: _: u colormap hsv
/ v* U' C- @4 f2 ^1 V# Q colorbar* O$ r+ E# Y1 F/ N8 E
end* _. ]& I* b2 F! ^; ]
|
|