1 files changed, 16 insertions, 0 deletions
diff --git a/fht.sci b/fht.sci
new file mode 100644
index 0000000..c6fd1bd
--- /dev/null
+++ b/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