bhsimulator表面声道展示.rar

本程序为水声信道仿真软件Bellhop，适合水声和通信的学生。

clear all
close all
clc

load（‘bh_ssp_example.mat‘）;%加载现有声速梯度文件
%修改声速梯度为绝对负梯度
init_ssp=[    0 1537.35175856685;
              28  1537.35175856685;
              33  1537.15130979153;
              38  1537.00617488873;
              43  1536.85390828461;
              48  1536.67917488873;
              53  1536.44845039375;
              58  1536.27815673259;
              63  1535.86192465993;
              68  1535.50674462457;
              73  1535.23355313430;
              78  1533.85763380041;
              83  1533.46795269213;
              88  1532.89813766046;
              93  1532.44500854600;
              98  1531.80590593878;
              100  1531.80590593878 ];
init_ssp_add=[ 200 1526;
               300 1518;
               400 1511;
               500 1505;
               600 1500;
               700 1495;
               800 1491;
               900 1488;
               1000 1490;];
init_ssp=[init_ssp;
          init_ssp_add];
multi_ssp=ones（length（init_ssp）10）;      
for i=1:10
    multi_ssp（:i）=init_ssp（:2）;%把所有距离上的声速梯度改成和发射点一样的
end
ssp_range_vec=ssp_range_vec*10;
save（‘bh_ssp_example2.mat‘）;%保存正梯度声速文件


load（‘bh_ssp_example.mat‘）;%加载现有声速梯度文件
%修改声速梯度为绝对负梯度
init_ssp=[    0 1537.35175856685;
              28  1537.35175856685;
              33  1537.15130979153;
              38  1537.00617488873;
              43  1536.85390828461;
              48  1536.67917488873;
              53  1536.44845039375;
              58  1536.27815673259;
              63  1535.86192465993;
              68  1535.50674462457;
              73  1535.23355313430;
              78  1533.85763380041;
              83  1533.46795269213;
              88  1532.89813766046;
              93  1532.44500854600;
              98  1531.80590593878;
              100  1531.80590593878 ];
init_ssp（:2）=fliplr（init_ssp（:2）.‘）;%这样反转后就是绝对正梯度
init_ssp_add=[ 200 1526;
               300 1518;
               400 1511;
               500 1505;
               600 1500;
               700 1495;
               800 1491;
               900 1488;
               1000 1490;];
init_ssp=[init_ssp;
          init_ssp_add];
multi_ssp=ones（length（init_ssp）10）; 
for i=1:10
    multi_ssp（:i）=init_ssp（:2）;%把所有距离上的声速梯度改成和发射点一样的
end
ssp_range_vec=ssp_range_vec*10;
save（‘bh_ssp_example3.mat‘）;%保存负梯度声速文件

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       6148  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\.DS_Store

     文件        130  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\Bellhop\angleMod.f90

     文件       8088  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\Bellhop\ArrMod.f90

     文件      10547  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\Bellhop\bdryMod.f90

     文件       1881  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\Bellhop\beampatternMod.f90

     文件      65110  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\Bellhop\bellhop.f90

     文件       1046  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\Bellhop\bellMod.f90

     文件        943  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\Bellhop\Makefile

     文件        795  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\Bellhop\munk.f90

     文件      13665  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\Bellhop\read.me

     文件      32033  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\Bellhop\readin.f90

     文件       8866  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\Bellhop\splined.f90

     文件       8870  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\Bellhop\spliner.f90

     文件        351  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\Bellhop\sspMod.f90

     文件     876049  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\bin\bellhop.exe

     文件     667080  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\bin\bounce.exe

     文件     696834  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\bin\field.exe

     文件     691492  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\bin\field3d.exe

     文件     634196  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\bin\fields.exe

     文件     707258  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\bin\kraken.exe

     文件     725631  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\bin\krakenc.exe

     文件     588587  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\bin\modasc.exe

     文件     579719  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\bin\modbin.exe

     文件     688597  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\bin\scooter.exe

     文件     699389  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\bin\sparc.exe

     文件       2872  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\doc\ATI_BTY_File.htm

     文件       4908  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\doc\bart.htm

     文件      23930  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\doc\bellhop.htm

     文件       9470  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\doc\bounce.htm

     文件      26551  2016-10-07 22:16  bh_simulator_表面声道展示\at_Wintel\doc\EnvironmentalFile.html

............此处省略819个文件信息