資源簡介
基于MATLAB的actup2.2水聲信道仿真模型,含有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);%找出門限值以上的數(shù)(去除幅度較小的值)
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??actup_v2_2l.exe
?????文件??????280008??2006-11-19?11:58??actup_v2_2l.pdf
?????文件??????708006??2012-05-03?23:49??actup使用方法.pdf
?????目錄???????????0??2019-03-06?15:15??BELLHOP\
?????文件??????374272??2016-05-13?10:18??BELLHOP\BELLHOP(MATLAB版)使用指南.doc
?????文件????????1712??2015-11-07?16:02??BELLHOP\BELLHOPchannel.m
?????文件???????10240??2015-11-06?21:49??BELLHOP\程序說明.doc
評論
共有 條評論