水声物理中波数积分方法的MATLAB实现

本人编写的水声物理中波数积分方法MATLAB程序。计算海洋声学模型是进行声纳仿真设计和性评估的基本模型。通过本上机实验掌握波数积分的基本理论和波数积分的FFT实现方法，使用Matlab语言编制波数积分声场计算程序，实现Pekeris波导下声场的计算，输出声传播损失等结果。实验方案参考本人博文：https://blog.csdn.net/weixin_43713224/article/details/87191209 补充(2019)：本程序系以前上传有一定问题，海底部分不连续，请先修改勿直接使用

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%% 实验三 波数积分方法的编程实现 %%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

clc;
clear all;
close all;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 设置参数 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

H=100; H0=200; zs=36; f=20;
zr=46;                                                                      %设置接收点！
c1=1500; ro1=1000; c2=1800; ro2=1800; cmin=c1;
k1=1.05*pi*f/c1; k2=2*pi*f/c2;
krmax=0.9*2*pi*f/cmin;                                                     %对波数的最大值作了一定的调整！
krmin=10^（-8）;
Rmax=5000;                                                                  %对距离的最大值作了一定的调整！
R=2*Rmax;
M=2^round（（log2（Rmax*krmax*2/pi）+0.5））;                           

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件        4246  2017-06-26 18:22  实验三 波数积分方法的编程实现\haiyangshengxue.m
     文件       25580  2017-06-26 16:28  实验三 波数积分方法的编程实现\传播损失分布.jpg
     文件       21213  2017-06-25 21:16  实验三 波数积分方法的编程实现\声传播损失曲线.jpg
     文件       23867  2017-06-26 16:33  实验三 波数积分方法的编程实现\积分核函数.jpg
     文件       19093  2017-06-25 21:16  实验三 波数积分方法的编程实现\积分核函数随水平波束变化的曲线.jpg
     目录           0  2018-03-28 02:12  实验三 波数积分方法的编程实现\