- 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: lakffft      AKF-Schaetzung nach IDFT{|DFT{x}|^2}                 ##
+% ##################################################################################
+%
+%  function rxx = lakffft(M,x)
+%
+%  Nicht erwartungstreue AKF-Schaetzung nach IDFT{|DFT{x}|^2}.
+%  Der Parameter M entspricht dem Maximalwert fuer lambda.
+%  Der Vektor x mit den Signalwerten darf eine beliebige Dimension 
+%  annehmen und kann als Spalten- oder Zeilenvektor uebergeben werden.  
+%  Die Ausgabe erfolgt als Spaltenvektor der Dimension M sowie nur fuer
+%  positive lambda-Werte:  rxx = [rxx(0), ..., rxx(M-1)].
+%  Fuer negative lambda ist eine konj. gerade Ergaenzung vorzunehmen.
+
+function rxx = lakffft(M,x)
+
+x = x(:);                        % Spaltenvektoren erzeugen 
+N = length(x);
+NFFT = pow2(nextpow2(N+M));       
+X = fft(x,NFFT);
+Sxx = abs(X.^2);
+rxx = ifft(Sxx)./N;              
+rxx = rxx(1:M);
+% #####  EOF  #####