- 在线时间
- 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' N# s0 j4 O4 y0 i$ C0 v
%syms x y z t;* e7 [' U/ t; W
%Q=10;%初始浓度定为10mg/m^3;# i. z0 ]& {$ [% Z
%1.32*10^-5=1.32*10^-5;%扩散系数
: v1 @- f3 G7 ~1 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);
. i4 ]0 [$ U. W: k. i. [%统一并申明一下单位
# j5 O" R4 k1 V v%C (mg/m^3)
8 x7 s% ~: \2 Z9 q%Q (mg/m^3)
6 p* e8 x; f$ Z; s/ w% B%1.32*10^-5 (m^2/s)" w+ [4 J0 w5 N/ D% N/ F9 d
%t (s)
& f/ Y. \0 ~8 @/ j%x,y,z (m)
( x) y$ a* `* @3 @/ f( O, \%申明一下扩散的条件如下:$ S, v- ~$ g a, m
%1.模拟的球形空间的直径D=3.5m 在x方向安装15个,在y方向安装3个
6 k" N( g! l) @; d& Z%2.当经过时间10s时,可视为扩散均匀,其中时间可以通过一次实验或者相关文献查得。
. y8 |; B' a) {, prandnum=unifrnd(1,10,10,1);%产生一组符合均匀分布的时间$ `% F- m: J0 C: b% w9 q! e
for i=1:4
- S( o7 ^5 s* `: A [x,y,z] = meshgrid(-1.75:.2:1.75,-1.75:.2:1.75,-1.75:.2:1.75);& x6 s8 ^0 B) W" u# y
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));: h* T+ v) P5 V. T# U2 s
xslice=[-0.25,1.75];
5 ~6 B! K" q# W C8 y& v# ~ yslice=[-0.25,1.25];
: {/ ^; v. n. X: F zslice=0.25;) K6 W5 P9 X5 n9 m3 B, C- X6 i$ r
subplot(2,2,i);" T+ `& X1 |. Z, `- X# B& [
slice(x,y,z,C,xslice,yslice,zslice);
2 z9 J/ K3 S5 Q. v xlabel('x坐标');
2 k0 h& E+ B8 Y ylabel('y坐标');" g) X3 S1 ~8 V$ ^" ^6 z5 ]3 `: m
zlabel('z坐标');2 s- I; D8 |- m: } Q: s
title(['当时间为' num2str(randnum(i)) '时的浓度分布情况']);
! R r; d' P! v8 x colormap hsv* p/ ^% }0 ~1 ~1 Z' t7 y
colorbar
3 C% s2 E K2 _; r# Tend
7 l2 _0 Z6 V' M' u |
|