clear?all
close?all
clc

load（‘bh_ssp_example.mat‘）;%加載現(xiàn)有聲速梯度文件
%修改聲速梯度為絕對負梯度
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）;%把所有距離上的聲速梯度改成和發(fā)射點一樣的
end
ssp_range_vec=ssp_range_vec*10;
save（‘bh_ssp_example2.mat‘）;%保存正梯度聲速文件


load（‘bh_ssp_example.mat‘）;%加載現(xiàn)有聲速梯度文件
%修改聲速梯度為絕對負梯度
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）.‘）;%這樣反轉(zhuǎn)后就是絕對正梯度
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）;%把所有距離上的聲速梯度改成和發(fā)射點一樣的
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個文件信息