- 在线时间
- 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* C1 R" v! S- V& n2 E) ^! ]( Z
%syms x y z t;
. z' o1 A* h5 K" @7 A+ w! p%Q=10;%初始浓度定为10mg/m^3;
* I6 n/ I& v4 e$ Z& E%1.32*10^-5=1.32*10^-5;%扩散系数
8 o7 K5 A# G1 }% m5 W%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);) g# F& ~' G1 I( k+ Y& E4 S4 [
%统一并申明一下单位
0 B! }( }; r- G1 {: D- H6 E%C (mg/m^3)
! p9 k; |, q" U: ^%Q (mg/m^3)
U& J) s% \# p% M- W8 T& B%1.32*10^-5 (m^2/s)
+ I% L0 @, \- _%t (s)
5 S1 R" j- C7 U3 k/ z1 ]2 V5 q%x,y,z (m)# l1 U0 j% M0 d
%申明一下扩散的条件如下:% E1 x0 r( X% G8 t1 o
%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个
1 q( d7 K+ U' L# `8 R e* g%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。/ R+ b5 |! O6 p8 d
randnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间
3 j$ m: ~. y$ Y/ d8 T; U& d, Cfor i=1:4" K( ]* x& S$ [. i
[x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);; h. `" F- W; F# p( Q
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));
0 M/ L, I2 c3 x( T# w- ] xslice=[-0.25,1.75];
I- L8 d7 h' H q9 a yslice=[-0.25,1.25];) l& W# |5 N% [) n1 B
zslice=0.25;! ~- w% i, M7 ~+ e0 y3 [9 X
subplot(2,2,i);
/ @; e& T2 L3 K& u) M% E) A slice(x,y,z,C,xslice,yslice,zslice);
% z/ X" A7 \4 L; B6 K/ m xlabel('x坐标');
1 y7 Y! G2 L( O9 t ylabel('y坐标');+ h$ g# K) l4 w( u- d C: j
zlabel('z坐标');
2 y: z6 k1 G1 r* }' L- K title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); * Y5 d; [' N. B+ r: }% Q, j
colormap hsv/ e) _' x9 _ P$ o ^
colorbar
4 x# I% e: v4 Send
/ E8 J) C# k. A |
|