- refactored

2022-06-30 13:32:40 +02:00
parent 77cd5261b1
commit 776932e5d1
144 changed files with 0 additions and 38 deletions
@@ -0,0 +1,24 @@
+% ##################################################################################
+% ##  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  #####