bhsimulator表面声道展示.rar

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_WintelBellhopangleMod.f90

     文件       8088  2016-10-07 22:16  bh_simulator_表面声道展示at_WintelBellhopArrMod.f90

     文件      10547  2016-10-07 22:16  bh_simulator_表面声道展示at_WintelBellhopdryMod.f90

     文件       1881  2016-10-07 22:16  bh_simulator_表面声道展示at_WintelBellhopeampatternMod.f90

     文件      65110  2016-10-07 22:16  bh_simulator_表面声道展示at_WintelBellhopellhop.f90

     文件       1046  2016-10-07 22:16  bh_simulator_表面声道展示at_WintelBellhopellMod.f90

     文件        943  2016-10-07 22:16  bh_simulator_表面声道展示at_WintelBellhopMakefile

     文件        795  2016-10-07 22:16  bh_simulator_表面声道展示at_WintelBellhopmunk.f90

     文件      13665  2016-10-07 22:16  bh_simulator_表面声道展示at_WintelBellhop
ead.me

     文件      32033  2016-10-07 22:16  bh_simulator_表面声道展示at_WintelBellhop
eadin.f90

     文件       8866  2016-10-07 22:16  bh_simulator_表面声道展示at_WintelBellhopsplined.f90

     文件       8870  2016-10-07 22:16  bh_simulator_表面声道展示at_WintelBellhopspliner.f90

     文件        351  2016-10-07 22:16  bh_simulator_表面声道展示at_WintelBellhopsspMod.f90

     文件     876049  2016-10-07 22:16  bh_simulator_表面声道展示at_Wintelinellhop.exe

     文件     667080  2016-10-07 22:16  bh_simulator_表面声道展示at_Wintelinounce.exe

     文件     696834  2016-10-07 22:16  bh_simulator_表面声道展示at_Wintelinfield.exe

     文件     691492  2016-10-07 22:16  bh_simulator_表面声道展示at_Wintelinfield3d.exe

     文件     634196  2016-10-07 22:16  bh_simulator_表面声道展示at_Wintelinfields.exe

     文件     707258  2016-10-07 22:16  bh_simulator_表面声道展示at_Wintelinkraken.exe

     文件     725631  2016-10-07 22:16  bh_simulator_表面声道展示at_Wintelinkrakenc.exe

     文件     588587  2016-10-07 22:16  bh_simulator_表面声道展示at_Wintelinmodasc.exe

     文件     579719  2016-10-07 22:16  bh_simulator_表面声道展示at_Wintelinmodbin.exe

     文件     688597  2016-10-07 22:16  bh_simulator_表面声道展示at_Wintelinscooter.exe

     文件     699389  2016-10-07 22:16  bh_simulator_表面声道展示at_Wintelinsparc.exe

     文件       2872  2016-10-07 22:16  bh_simulator_表面声道展示at_WinteldocATI_BTY_File.htm

     文件       4908  2016-10-07 22:16  bh_simulator_表面声道展示at_Winteldocart.htm

     文件      23930  2016-10-07 22:16  bh_simulator_表面声道展示at_Winteldocellhop.htm

     文件       9470  2016-10-07 22:16  bh_simulator_表面声道展示at_Winteldocounce.htm

     文件      26551  2016-10-07 22:16  bh_simulator_表面声道展示at_WinteldocEnvironmentalFile.html

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