- 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,42 @@
+% Magnitude Estimation von x
+% Schätzung des mittleren Betrages von x
+% mit getrennter Anstiegs- und Abfallzeit tr, tf
+% ----------------------------------------------
+%
+% Aufruf:
+% function [mx,mxf] = mx2(x,tr,tf,mxi)
+%
+% Parameter:
+% x     : Eingangsvektor 
+% tr    : Zeitkonstante Anstiegszeit
+% tf    : Zeitkonstante Abfallzeit
+% mxi   : Initial Condition Anfangsbetrag von x
+%
+% Rückgabewerte:
+% mx    : Ausgang mittlerer Betrag von x
+% mxf   : Endbetrag von x 
+
+% -------------------------------------------------------------------------
+% Datum : 27.03.2002
+% Autor : Jens Ahrensfeld
+% Thema : Diplomarbeit
+% Datei : mx2.m
+%
+% -------------------------------------------------------------------------
+function [mx,mxf] = mx2(x,tr,tf,mxi)
+
+N = lge(x);
+x = abs(x);
+mx(1) = mxi;
+
+for n = 2:N,
+  if(x(n) > mx(n-1))
+    mx(n) = tr*x(n) + (1-tr)*mx(n-1);
+  else
+    mx(n) = tf*x(n) + (1-tf)*mx(n-1);
+  end;
+end;
+mxf = mx(N);  
+
+% -------------------------------------------------------------------------
+% Ende mx2.m