Labfans是一个针对大学生、工程师和科研工作者的技术社区。 | 论坛首页 | 联系我们(Contact Us) |
![]() |
|
![]() |
#1 |
初级会员
注册日期: 2011-07-28
年龄: 41
帖子: 2
声望力: 0 ![]() |
![]()
clear
mt=3.734;u=0.0685;M=20;n=0.3;Dl=0.35;Dt=0.1;t=30; X=-50:50:250;Y=-50:50:50; [x,y]=meshgrid(X,Y); bata=sqrt(u^2*x.^2/(4*Dl^2)+u^2*y.^2./(4*Dl*Dt)); K0=besselk(0,bata) miu=u^2*t/(4*Dl) W=int(y.^(-1)*exp(-y.-bata^2/(4*y.)),miu;inf) C=mt*exp(x.*u./(2*Dl))*(2*K0.-W.)/(4*pi*M*n*sqrt(Dl*Dt).; figure(4); surf(x,y,C); |
![]() |
![]() |