- 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,15 @@
+% [xl,xlf] = phxl(x,xs,al,pl,xli)
+function [xl,xlf] = phxl(x,xs,al,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) = al*x(n) + (1-al)*xl(n-1);
+  end;
+end;
+xlf = xl(N);