From a403570036bd77c4debe3cfd3107575453d19e30 Mon Sep 17 00:00:00 2001
From: torset
Date: Wed, 25 Feb 2009 14:11:44 +0000
Subject: Add SCI2C tests

---
 .../signalProcessing/mainfunctionFftShift.sci      | 30 ++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 src/Scilab2C/SCI2CTests/Mes_tests/signalProcessing/mainfunctionFftShift.sci

(limited to 'src/Scilab2C/SCI2CTests/Mes_tests/signalProcessing/mainfunctionFftShift.sci')

diff --git a/src/Scilab2C/SCI2CTests/Mes_tests/signalProcessing/mainfunctionFftShift.sci b/src/Scilab2C/SCI2CTests/Mes_tests/signalProcessing/mainfunctionFftShift.sci
new file mode 100644
index 00000000..b562894f
--- /dev/null
+++ b/src/Scilab2C/SCI2CTests/Mes_tests/signalProcessing/mainfunctionFftShift.sci
@@ -0,0 +1,30 @@
+//SCI2C: DEFAULT_PRECISION= DOUBLE
+
+function mainfunction()
+
+
+// test fftshift
+
+disp(fftshift(4))
+disp(fftshift(5,1))
+disp(fftshift(6,2))
+
+disp(fftshift(4-%i))
+disp(fftshift(4-%i*2,1))
+disp(fftshift(4-%i*3,2))
+
+a=[2 3 4 8; 8 4 5 6;1 2 3 4; 14 5 8 7; 1 2 6 7]
+b=[2 3 4 8;1 2 6+3*%i 7]
+
+
+disp(fftshift(a))
+disp(fftshift(a,1))
+disp(fftshift(a,2))
+
+
+disp(fftshift(b))
+disp(fftshift(b,1))
+disp(fftshift(b,2))
+
+
+endfunction
-- 
cgit