- 在线时间
- 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
5 u0 \! e. v/ P8 x( |$ H& z% `%syms x y z t;$ a$ q6 M+ h+ F6 Q( K& ` E
%Q=10;%初始浓度定为10mg/m^3;
. i1 q! B7 ]: V%1.32*10^-5=1.32*10^-5;%扩散系数/ u) ]/ x( i* z7 m
%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 h- |) m7 ~* t9 Y( @%统一并申明一下单位1 v2 U' B. K, {. m2 H/ ~! B
%C (mg/m^3)4 X+ d+ j" @$ v# w3 g5 W5 M2 o
%Q (mg/m^3). ]% Z7 M" J0 S+ `+ C, i
%1.32*10^-5 (m^2/s)( @* e O3 N. g# b1 Z- E
%t (s)4 ^! f1 ~+ k Z- Q) X
%x,y,z (m)6 ^/ d9 l# d4 F ~
%申明一下扩散的条件如下:
" l3 n& U1 X6 N! e2 e6 Q; |% a%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个
2 u: A* r4 M6 A: {! h M0 b%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。
( Q3 p8 f3 T \7 qrandnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间
4 e. Z9 u: i$ X/ H% p \for i=1:45 Y7 z8 c* f; q8 Q3 p6 ], n; f
[x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);
2 G5 u" J4 z5 v+ N/ {$ N9 L 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));
5 Y. e8 j' Q$ U' \8 g& G xslice=[-0.25,1.75];% Z: _, u( k, `6 Y3 T
yslice=[-0.25,1.25];
" [8 @$ W8 q3 S& M zslice=0.25;
- I& r& |8 y: v+ K; Y2 |1 v subplot(2,2,i);
7 }4 r% d* p) j& R9 X9 E slice(x,y,z,C,xslice,yslice,zslice);
! I/ F! q) m$ o xlabel('x坐标');# j4 P7 ?# V, |9 _; _
ylabel('y坐标');
9 w6 G T7 Q# M9 H6 Q' k7 w U# W zlabel('z坐标');
7 h8 u2 l/ ?/ e6 f title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); 0 F$ G- p [, r! }/ l, f
colormap hsv: r9 }3 c& Q) G) |
colorbar
@, T. A0 ~: e+ l( ?end' J" A+ a" Y% q- K2 \0 v
|
|