AtcUP_2.2L BELLHOP

ActUP_2.2L工具包和BELLHOP的使用说明书，可以在MATLAB平台下进行基于射线声学的水声信道仿真。

function [Outputdatah]=BELLHOPchannel（PosdelayampInputdataFs）
t=size（amp1）;
i=size（amp2）;
u=cell（t1）;
for counter1=1:t
  u{counter1}=zeros（3i）;
end
for counter1=1:t %取出时延和幅度值
   u{counter1}（11）=Pos.r.range（counter1）;
    u{counter1}（2:）=delay（counter1:）;
   u{counter1}（3:）=abs（amp（counter1:））;
end
row=find（u{t}（3:）>=3e-4）;%找出门限值以上的数（去除幅度较小的值）
Gain1=u{t}（3row）;
Delay1=u{t}（2row）;
RA=angle（amp（t:））;
ra1=RA（row）;%自多途时每一径的角度，单位为rad
o=length（Delay1）;
%去除自多途
for i=1:o 
    if（i>length（Delay1））
        break;
    end
    tt=find（abs（Delay1-Delay1（i））<=0.001）;
   p=find（Gain1（tt）==max（Gain1（tt）））;
   tt（p（1:end））=[];
   Gain1（tt（1:end））=[];
   Delay1（tt（1:end））=[];
   ra1（tt（1:end））=[];
end
ra2=ra1;%处理后每一径的角度，单位为rad
%求相对时延
g=find（Delay1==min（Delay1））;
g=Delay1（g）;
for pp=1:length（Delay1）
    Delay1（pp）=Delay1（pp）-g;
end
%幅度归一化
g=find（Gain1==max（Gain1））;
g=Gain1（g）;
for pp=1:length（Gain1）
    Gain1（pp）=Gain1（pp）/g;
end
%Delay1
%Gain1
stem（Delay1Gain1‘.‘）
   Gain=[Gain1];
  Delay=[round（Delay1.*Fs）];
 h=zeros（1length（Delay））;
    h（Delay+1）= Gain;
    
    stem（h）;
  Outputdata = conv（Inputdatah）;
% Len_in = length（Inputdata）;
% Len_out = Len_in +1000;
% Outputdata = zeros（1Len_out）;
% 
% for path = 1:length（Delay）
%     CHANNEL = [zeros（1Delay（path）） Inputdata zeros（1Len_out-Delay（path）-Len_in）];
%     Outputdata = Outputdata+Gain（path）*CHANNEL;
% end


    


%for counter1=1:t
    %z=max（r{counter1}（3:））;
    %for u=1:i
     %   if r{counter1}（3u）~=0
      %      r{counter1}（3u）=r{counter1}（3u）-z;
       % end
    %end
%end

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

     文件   11656171  2014-08-12 11:03  AtcUP\actup_v2_2l.exe

     文件     280008  2006-11-19 11:58  AtcUP\actup_v2_2l.pdf

     文件     708006  2012-05-03 23:49  AtcUP\actup使用方法.pdf

     文件       1712  2015-11-07 16:02  AtcUP\BELLHOP\BELLHOPchannel.m

     文件     374272  2016-05-13 10:18  AtcUP\BELLHOP\BELLHOP（MATLAB版）使用指南.doc

     文件      10240  2015-11-06 21:49  AtcUP\BELLHOP\程序说明.doc

     文件      14188  2010-07-31 16:58  AtcUP\index.htm

     目录          0  2019-03-06 15:15  AtcUP\BELLHOP

     目录          0  2019-11-16 16:49  AtcUP

----------- ---------  ---------- -----  ----

             13044597                    9