- 在线时间
- 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* g2 d" g: o8 D% Y' a: y! ^: d7 t
%syms x y z t;
H. C3 q: L6 k. Q0 ]# d; S%Q=10;%初始浓度定为10mg/m^3;
4 s; F1 r) }1 N" d2 E% j) }%1.32*10^-5=1.32*10^-5;%扩散系数
( g/ I2 G: v) I# x( [* @%C=Q/(4*pi.*1.32*10^-5.*t)^1.5*exp(-(x.^2+y.^2+z.^2)./4.*1.32*10^-5.*t);
8 b" v5 m, F2 a2 S* s+ |2 {9 Y%统一并申明一下单位 U0 g0 j: \: n$ q
%C (mg/m^3)
0 l; X2 ? n5 H; x) J# h! T% w%Q (mg/m^3)
, B: z/ A) \9 Z7 {3 a- b%1.32*10^-5 (m^2/s)" {5 p/ K/ `' T; j
%t (s)
9 u- ?# p9 F. [%x,y,z (m)9 g/ ~; x4 u% ]% C' [
%申明一下扩散的条件如下:
! v; T h7 e. ~% i+ F" w%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个
- x5 T F ~# A8 ]$ Q4 X%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。
6 R9 k, h' P9 vrandnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间 a7 }4 z0 w5 l! o
for i=1:46 s/ ~# M) F' D* K+ J
[x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);, ?# r9 o, U0 |" P5 b
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));2 b/ f ~6 O% H, l
xslice=[-0.25,1.75];
4 k, G6 l7 {; I yslice=[-0.25,1.25];5 Q- m8 H$ |% h. I
zslice=0.25;
r" i/ x" Z0 r7 B; z( ~ subplot(2,2,i);2 r+ c$ J3 T8 f* R
slice(x,y,z,C,xslice,yslice,zslice);
$ A7 S. y* Q8 y, e! D/ h/ @8 @ xlabel('x坐标');8 ~# C0 K+ N6 [& S0 d# `# J
ylabel('y坐标'); C! T- `! W6 r# e# \ {% w3 o
zlabel('z坐标');
2 f* z' L8 e; [! d. w. U6 Q- k title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']); ) X* o# |, Y3 z. Q& r
colormap hsv' \9 |% _6 }9 `) z. m
colorbar0 X) }2 M1 v3 v
end
4 I. }# t J$ D2 j/ | |
|