11111.zip_传播损失图_正弦信号_水声学_海底声场_简正

共3个文件

m：3个

1.该资源内容由用户上传，如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款（资源遇到问题，请及时私信上传者）

版权申诉

正弦信号

5星 · 超过95%的资源 5 下载量 117 浏览量 2022-07-15 01:18:59 上传评论 3 收藏 2KB ZIP 举报

温馨提示

水声学实验应用简正波理论求解下列声场：如下图所示波导模型，上层为均匀水层，其厚度为100m，声速为1500m/s；下层为硬质均匀海底，海面和海底均平整。点声源位于30m深处，辐射声波频率为25Hz，编程计算10m和90m深度上的传播损失，分析其差别。

资源详情

资源评论

资源推荐

收起资源包目录

11111.zip （3个子文件）

Untitled10m.m 688B

Untitled90m.m 686B

Untitled10m90m.m 1KB

共 3 条

c0=1500;z0=30;H=100;f=25;w=2*pi*f;N=3;r=1:0.1:10000;n=3; x1=0;y1=0;TL1=0;TL2=0; x2=0;y2=0;z=10; kzn=(n-1/2)*pi/H; qn=((w/c0)^2-kzn^2)^(1/2); for n=1:N x1=2/H*sin(kzn*z)^2*sin(kzn*z0)^2*besselh(0,2,r*qn).*besselh(0,2,r*qn); y1=x1+y1; end TL1=-10*log10(y1); for m=1:N for n=1:N if m~=n kzm=(m-1/2)*pi/H; qm=((w/c0)^2-kzm^2)^(1/2); x2=4/H^2*sin(kzn*z)*sin(kzn*z0)*sin(kzm*z)*sin(kzm*z0)*besselh(0,2,r*(qm+qn)); y2=x2+y2; end end end TL2=-10*log10(y2); TL=TL1+TL2; figure(1); plot(r,TL) title('传播损失') xlabel('Rang(m)'); ylabel('TL(dB)'); c0=1500;z0=30;H=100;f=25;w=2*pi*f;N=3;r=1:0.1:10000; x1=0;y1=0;TL1=0;TL2=0; x2=0;y2=0;z=90; kzn=(n-1/2)*pi/H; qn=((w/c0)^2-kzn^2)^(1/2); for n=1:N x1=2/H*sin(kzn*z)^2*sin(kzn*z0)^2*besselh(0,2,r*qn).*besselh(0,2,r*qn); y1=x1+y1; end TL1=-10*log10(y1); for m=1:N for n=1:N if m~=n kzm=(m-1/2)*pi/H; qm=((w/c0)^2-kzm^2)^(1/2); x2=4/H^2*sin(kzn*z)*sin(kzn*z0)*sin(kzm*z)*sin(kzm*z0)*besselh(0,2,r*(qm+qn)); y2=x2+y2; end end end TL2=-10*log10(y2); TL=TL1+TL2; hold on plot(r,TL) legend('10m','90m') title('传播损失') xlabel('Rang(m)'); ylabel('TL(dB)');