From 3f916032cc0b2efdeafb838dd10e1141ead2cb27 Mon Sep 17 00:00:00 2001
From: bgtushar
Date: Thu, 9 Nov 2017 20:51:40 +0530
Subject: cceps, fht, idct1, idct2, idst1, sigmoid, xcov1

---
 macros/fht.sci | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 macros/fht.sci

(limited to 'macros/fht.sci')

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
-- 
cgit