資源簡介
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
評論
共有 條評論