HTML modified

15 files changed, 114 insertions, 0 deletions

diff --git a/macros/cceps.bin b/macros/cceps.bin
new file mode 100644
index 0000000..cda9e36
--- /dev/null
+++ b/macros/cceps.bin
diff --git a/macros/cceps.sci b/macros/cceps.sci
new file mode 100644
index 0000000..99e4a7d
--- /dev/null
+++ b/macros/cceps.sci
@@ -0,0 +1,16 @@
+function y = cceps (x,correct)
+
+funcprot(0);
+//
+rhs = argn(2)
+if(rhs<1 | rhs>2)
+error("Wrong number of input arguments.")
+end
+
+	select(rhs)
+	case 1 then
+	y = callOctave("cceps",x)
+	case 2 then
+	y = callOctave("cceps",x,correct)
+	end
+endfunction
diff --git a/macros/fht.bin b/macros/fht.bin
new file mode 100644
index 0000000..e97d7e4
--- /dev/null
+++ b/macros/fht.bin
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
diff --git a/macros/idct1.bin b/macros/idct1.bin
new file mode 100644
index 0000000..3ef1c7e
--- /dev/null
+++ b/macros/idct1.bin
diff --git a/macros/idct1.sci b/macros/idct1.sci
new file mode 100644
index 0000000..d398e56
--- /dev/null
+++ b/macros/idct1.sci
@@ -0,0 +1,14 @@
+function y = idct1(x,n)
+funcprot(0);
+rhs=argn(2)
+if (rhs<1 | rhs>2) then
+    error("Wrong number of input arguments.")
+end
+select(rhs)
+case 1 then
+    y=callOctave("idct",x)
+case 2 then 
+    y=callOctave("idct",x,n)
+end
+
+endfunction
diff --git a/macros/idct2.bin b/macros/idct2.bin
new file mode 100644
index 0000000..d577764
--- /dev/null
+++ b/macros/idct2.bin
diff --git a/macros/idct2.sci b/macros/idct2.sci
new file mode 100644
index 0000000..1cfacab
--- /dev/null
+++ b/macros/idct2.sci
@@ -0,0 +1,15 @@
+function y = idct2(x,varargin)
+funcprot(0);
+rhs=argn(2)
+if (rhs<1 | rhs>3) then
+    error("Wrong number of input arguments.")
+end
+select(rhs)
+case 1 then
+    y=callOctave("idct2",x)
+case 2 then 
+    y=callOctave("idct2",x,varargin(1))
+case 3 then
+    y=callOctave("idct2",x,varargin(1),varargin(2))
+end
+endfunction
diff --git a/macros/idst1.bin b/macros/idst1.bin
new file mode 100644
index 0000000..448ee7e
--- /dev/null
+++ b/macros/idst1.bin
diff --git a/macros/idst1.sci b/macros/idst1.sci
new file mode 100644
index 0000000..5276a70
--- /dev/null
+++ b/macros/idst1.sci
@@ -0,0 +1,14 @@
+function y = idst1(x,varargin)
+funcprot(0);
+rhs=argn(2);
+if(rhs<1 | rhs>2) then
+    error("Wrong number of input arguments.");
+end
+select(rhs)
+case 1 then
+    y=callOctave("idst",x);
+case 2 then
+    y=callOctave("idst",x,varargin(1));
+end
+
+endfunction
diff --git a/macros/names b/macros/names
index 3e3fa6e..4099cfa 100644
--- a/macros/names
+++ b/macros/names
@@ -17,6 +17,7 @@ boxcar
 buffer
 butter
 buttord
+cceps
 cconv
 cell2sos
 cheb1ord
@@ -48,6 +49,7 @@ enbw
 eqtflength
 falltime
 fftfilt
+fht
 filternorm
 filtfilt
 filtic
@@ -70,8 +72,14 @@ hann
 helperHarmonicDistortionAmplifier
 hilbert1
 icceps
+<<<<<<< HEAD
 ifht
 ifwht
+=======
+idct1
+idct2
+idst1
+>>>>>>> 3f916032cc0b2efdeafb838dd10e1141ead2cb27
 iirlp2mb
 impinvar
 impz
@@ -160,6 +168,7 @@ sgolay
 sgolayfilt
 shanwavf
 shiftdata
+sigmoid_train
 slewrate
 sos2cell
 sos2ss
@@ -196,6 +205,7 @@ window
 wkeep
 wrev
 xcorr2
+xcov1
 zerocrossing
 zp2sos
 zplane
diff --git a/macros/sigmoid_train.bin b/macros/sigmoid_train.bin
new file mode 100644
index 0000000..438d657
--- /dev/null
+++ b/macros/sigmoid_train.bin
diff --git a/macros/sigmoid_train.sci b/macros/sigmoid_train.sci
new file mode 100644
index 0000000..bba751d
--- /dev/null
+++ b/macros/sigmoid_train.sci
@@ -0,0 +1,12 @@
+function y =sigmoid_train(t, ranges, rc)
+funcprot(0);
+rhs=argn(2);
+if (rhs<3 | rhs>3) then
+    error("Wrong number of input arguments");
+end
+
+select(rhs)
+case 3 then
+    y=callOctave("sigmoid_train", t, ranges, rc)
+end
+endfunction
diff --git a/macros/xcov1.bin b/macros/xcov1.bin
new file mode 100644
index 0000000..9a57ca5
--- /dev/null
+++ b/macros/xcov1.bin
diff --git a/macros/xcov1.sci b/macros/xcov1.sci
new file mode 100644
index 0000000..4c1f37e
--- /dev/null
+++ b/macros/xcov1.sci
@@ -0,0 +1,17 @@
+function [R,lag] = xcov1(X, Y, biasflag)
+
+funcprot(0);
+rhs = argn(2)
+if(rhs<1 | rhs>3)
+error("Wrong number of input arguments.");
+end
+
+	select(rhs)
+	case 1 then
+	[R,lag] = callOctave("xcov",X);
+	case 2 then
+	[R,lag] = callOctave("xcov",X,Y);
+	case 3 then
+	[R,lag] = callOctave("xcov",X,Y,biasflag);
+	end
+endfunction