- 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,17 @@
+% ##################################################################################
+% ##  Funktion: lper.m;  Berechnung des Periodogramms                             ##
+% ##################################################################################
+%
+% function Sxx = lper(x[,NFFT])
+%
+% Schaetzung der spektralen Leistungsdichte mittels Periodogramm
+%   x        Datenfolge (Zeilen- oder Spaltenvektor)
+%  [NFFT]    FFT-Laenge (optional)
+
+function Sxx = lper(x,NFFT)
+  
+N = length(x);
+if nargin<2, NFFT=pow2(nextpow2(N)); end;
+X = fft(x,NFFT);
+Sxx = (abs(X).^2)./N;
+% #####  EOF  #####