From ff23a5bcb60d81f9bfac7e074670629165418f74 Mon Sep 17 00:00:00 2001
From: torset
Date: Wed, 25 Feb 2009 13:40:52 +0000
Subject: Update

---
 .../test999_WorkingDir/scilabcode/mainfunction.sci | 36 +++++++++++++---------
 1 file changed, 22 insertions(+), 14 deletions(-)

(limited to 'src/Scilab2C/SCI2CTests')

diff --git a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
index b562894f..e9d11acd 100644
--- a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
+++ b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
@@ -5,26 +5,34 @@ function mainfunction()
 
 // test fftshift
 
-disp(fftshift(4))
-disp(fftshift(5,1))
-disp(fftshift(6,2))
+//1 input argument
+disp(fft(4))
 
-disp(fftshift(4-%i))
-disp(fftshift(4-%i*2,1))
-disp(fftshift(4-%i*3,2))
+disp(fft([3 4 2 1; 1 4 5 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(fft(4-%i))
 
 
-disp(fftshift(a))
-disp(fftshift(a,1))
-disp(fftshift(a,2))
+disp(fft([3+%i*2 4 2-%i 1; 1-%i*2 4 5 2]));
 
+//2 input arguments
 
-disp(fftshift(b))
-disp(fftshift(b,1))
-disp(fftshift(b,2))
+disp(fft(4,1))
 
+disp(fft([3 4 2 1; 1 4 5 2],1));
+
+disp(fft(4-%i,1))
+
+
+disp(fft([3+%i*2 4 2-%i 1; 1-%i*2 4 5 2],1));
+
+disp(fft(4,-1))
+
+disp(fft([3 4 2 1; 1 4 5 2],-1));
+
+disp(fft(4-%i,-1))
+
+
+disp(fft([3+%i*2 4 2-%i 1; 1-%i*2 4 5 2],-1));
 
 endfunction
-- 
cgit