- 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,41 @@
+% Short-Term Magnitude Estimation von x
+% -------------------------------------
+%
+% Aufruf:
+% Function [xs,xsf] = xste(x,ar,af,xsi)
+%
+% 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 [xs,xsf] = xste(x,ar,af,xsi)
+
+N = lge(x);
+x = abs(x);
+xs(1) = xsi;
+
+for n = 2:N,
+  if(x(n) > xs(n-1))
+    xs(n) = ar*x(n) + (1-ar)*xs(n-1);
+  else
+    xs(n) = af*x(n) + (1-af)*xs(n-1);
+  end;
+end;
+xsf = xs(N);  
+
+% -------------------------------------------------------------------------
+% Ende xste.m