diff options
Diffstat (limited to 'macros/meyeraux.sci')
| -rw-r--r-- | macros/meyeraux.sci | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/macros/meyeraux.sci b/macros/meyeraux.sci index 657e829..7cde1b9 100644 --- a/macros/meyeraux.sci +++ b/macros/meyeraux.sci @@ -1,12 +1,10 @@ function [y]=meyeraux(x) - // Returns value of Meyer Wavelet Auxiliary function // Calling Sequence // [y]=meyeraux(x) // Parameters // x: Real or complex valued vector or matrix // Description -// This is an Octave function. // This function returns values of the auxiliary function used for Meyer wavelet generation. // Examples // 1. meyeraux([1 2 3]) @@ -14,10 +12,11 @@ function [y]=meyeraux(x) // 2. meyeraux([1 2 3;4 5 6]) // ans= [1 -208 -10287 ; -118016 -709375 -2940624 ] -funcprot(0); -rhs=argn(2); -if (rhs~=1) then +if (argn(2)~=1) then error ("Wrong number of input arguments.") -else y=callOctave("meyeraux",x) +else + y = 35.*x.^4-84.*x.^5+70.*x.^6-20.*x.^7; end endfunction + + |