25 lines
1.3 KiB
Matlab
Executable File
25 lines
1.3 KiB
Matlab
Executable File
% ##################################################################################
|
|
% ## Funktion: lblack.m; Berechnung des Blackman-Tuckey-Leistungsdichtespektrums ##
|
|
% ## -------------------------------------------------------------------------- ##
|
|
% ## Benoetigte(s) m-File(s): lrader.m ##
|
|
% ##################################################################################
|
|
%
|
|
% function Sxx = lblack(x,M,windowtype[,NFFT]);
|
|
%
|
|
% Schaetzung der spektralen Leistungsdichte nach Blackman-Tukey (1958)
|
|
% x Datenfolge (Zeilen- oder Spaltenvektor)
|
|
% M Anzahl der verwendeten Autokorrelationswerte
|
|
% (sollte Zweierpotenz sein): rxx(-(M-1)), ..., rxx(M-1)
|
|
% windowtype Fensterfunktion (String, z.B. 'hamming'),
|
|
% [NFFT] FFT-Laenge (optional)
|
|
|
|
function Sxx = lblack(x,M,windowtype,NFFT)
|
|
|
|
rxx = lrader(M,x); % rxx = [rxx(0); ...; rxx(M-1)]
|
|
rxx = [flipud(conj(rxx(2:M))); rxx]; % Konj. gerade Ergaenzung
|
|
% => Laenge 2M-1
|
|
eval(['fenster= ', windowtype,'(2*M-1);']); % Fensterfunktion der Laenge
|
|
if nargin<4, NFFT=nextpow2(length(x)); end; % 2M-1 berechnen
|
|
Sxx = abs(fft(rxx.*(fenster),NFFT));
|
|
% ##### EOF #####
|