- added

git-svn-id: http://moon:8086/svn/matlab/trunk@153 801c6759-fa7c-4059-a304-17956f83a07c
2021-03-22 20:28:22 +00:00
parent 1b5742e13e
commit b31f3e7435
140 changed files with 6054 additions and 0 deletions
@@ -0,0 +1,41 @@
+% Long-Term Magnitude Estimation von x
+% -------------------------------------
+%
+% Aufruf:
+% Function [xl,xlf] = xlte(x,xs,af,pl,xli)
+%
+% Parameter:
+% x     :
+% ar    :
+% af    :
+% xsi   :
+%
+% Rückgabewerte:
+% xs    :
+% xsf   :
+
+% -------------------------------------------------------------------------
+% Datum : 26.07.2001
+% Autor : Jens Ahrensfeld
+% Thema : Diplomarbeit
+% Datei : xste.m
+% Benötigte Dateien: 
+%
+% -------------------------------------------------------------------------
+function [xl,xlf] = xlte(x,xs,af,pl,xli)
+
+N = lge(x);
+x = abs(x);
+xl(1) = xli;
+
+for n = 2:N,
+  if(xs(n) > pl*xl(n-1))
+    xl(n) = xl(n-1);
+  else
+    xl(n) = af*x(n) + (1-af)*xl(n-1);
+  end;
+end;
+xlf = xl(N);  
+
+% -------------------------------------------------------------------------
+% Ende xlte.m