* Bug 16290: %sn() set obsolete
[scilab.git] / scilab / modules / signal_processing / macros / ell1mag.sci
index bb0dc51..ee3fa3c 100644 (file)
@@ -10,7 +10,7 @@
 // For more information, see the COPYING file which you should have received
 // along with this program.
 
-function [v]=ell1mag(eps,m1,z)
+function v = ell1mag(eps, m1, z)
     //Function used for squared magnitude of an elliptic filter
     //Usually m1=eps*eps/(a*a-1);
     //  eps     :Passband ripple=1/(1+eps**2)
@@ -19,8 +19,9 @@ function [v]=ell1mag(eps,m1,z)
     //  v       :Elliptic filter values at sample points
     //
     //!
-    s=%sn(z,m1);un=ones(z);
-    v=real(un./(un+eps*eps*s.*s))
+    s = ellipj(z,m1);
+    un = ones(z);
+    v = real(un ./ (un+eps*eps*s.*s))
 
 
 endfunction