diff options
Diffstat (limited to 'macros/fht.sci')
| -rw-r--r-- | macros/fht.sci | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/macros/fht.sci b/macros/fht.sci new file mode 100644 index 0000000..c6fd1bd --- /dev/null +++ b/macros/fht.sci @@ -0,0 +1,16 @@ +function y=fht(d,n,dim) +funcprot(0); +rhs=argn(2); +if(rhs<1 | rhs>3) + error("Wrong number of input arguments.") +end +select(rhs) +case 1 then + y=callOctave("fht",d) +case 2 then + y=callOctave("fht",d,n) +case 3 then + y=callOctave("fht",d,n,dim) +end + +endfunction |