BELLHOP 水声通信中信道的bellhop建模

水声通信中信道的bellhop建模，用来生成信道的冲击响应

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

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2016-09-05 16:27  BELLHOP\
     文件        1712  2015-11-07 16:02  BELLHOP\BELLHOPchannel.m
     文件      374272  2016-05-13 10:18  BELLHOP\BELLHOP（MATLAB版）使用指南.doc
     文件       10240  2015-11-06 21:49  BELLHOP\程序说明.doc