資源簡介
寬帶陣列綜合程序,對于不同的頻率可以形成相同的方向圖。

代碼片段和文件信息
function?[DdD]=arrayresp(thetaposfsTdel)
%?D=arrayresp(thetaposfsTdel)?returns?array?responce?vectors?for?angles
%?in?theta?at?various?frequencies.?The?vectors?are?returnd?in?D?[TT?Dx
%?Da]?where?TT=T/2+1?represent?the?frequency?bins?up?to?the?Nyquist
%?frequency?Da=length(theta)?the?number?of?anlges?and?Dx=lenght(pos)?the
%?number?of?microphones.?The?sampling?frequency?is?given?in?fs?and?T
%?corresponds?to?the?size?of?the?FFT?with?which?this?responce?vectors?would
%?be?used.?The?array?responce?for?a?FIR?filter?matrix?W?is?given?as
%?R(i::)=W(i::)*D(i::)?for?every?frequency?bin?i.?The?responce
%?contains?an?overall?delay?of?del.
%?Lucas?Parra?Aug?31?2000
%??????????????Sep?21?2000?included?delay
%?Ref:?Barry?Van?Veen?Kevin?Buckley?“Beam?forming?techniques?for?spacial
%?filtering“?IEEE?Signal?Processing?Magazine.
if?nargin<5?del=0;?end
csound=342;?%?speed?of?sound?in?air
TT?=?T/2+1;
theta?=?theta(:)‘*pi/180;?%?make?user?its?a?row?and?conver?into?rad
pos?=?pos(:);?????????????%?make?user?its?a?column
tau_theta?=?sqrt(-1)?*?2?*?pi?*?pos*sin(theta)/csound;
freq?=?(0:TT-1)‘*fs/T;
D?=?exp(reshape(kron(tau_thetafreq)[length(freq)?size(tau_theta)]));
if?del
??shift(1+del)=1;?shift=conj(fft(shift‘T));?
??shift=repmat(shift(1:TT)[1?length(pos)?length(theta)]);
??D?=?D.*shift;
end
if?nargout==2
??tau_theta?=?sqrt(-1)?*?2?*?pi?*?pos*cos(theta)/csound;
??dD?=?D.*reshape(kron(tau_thetafreq)[length(freq)?size(tau_theta)]);
??if?del?dD?=?dD.*shift;??end
end
?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件???????1507??2007-01-19?00:54??Parra-JASA-2006-code\arrayresp.m
?????文件???????2118??2007-01-19?00:54??Parra-JASA-2006-code\figures.m
?????文件???????4548??2007-01-19?01:23??Parra-JASA-2006-code\finvariant.m
?????文件?????????56??2007-01-19?00:55??Parra-JASA-2006-code\hermite.m
?????文件????????362??2007-01-19?00:55??Parra-JASA-2006-code\ip.m
?????文件????????975??2007-01-19?00:56??Parra-JASA-2006-code\legdecomp.m
?????文件???????1462??2007-01-19?00:56??Parra-JASA-2006-code\legshift.m
?????文件????????295??2007-01-19?00:55??Parra-JASA-2006-code\mypinv.m
?????文件???????2187??2007-01-19?00:56??Parra-JASA-2006-code\polarresponce.m
?????文件????????873??2007-01-19?01:44??Parra-JASA-2006-code\README
?????目錄??????????0??2014-09-15?17:55??Parra-JASA-2006-code
-----------?---------??----------?-----??----
????????????????14383????????????????????11
評論
共有 條評論