From 138f436a9ed2bbe04c9df5acdd6a2b4e9c36807e Mon Sep 17 00:00:00 2001
From: torset
Date: Wed, 18 Feb 2009 15:16:17 +0000
Subject: Add real and imag interfaces

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

(limited to 'src/Scilab2C/SCI2CTests/test999_WorkingDir')

diff --git a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
index 5d7af3a3..02b5c3a7 100644
--- a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
+++ b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
@@ -1,30 +1,20 @@
 //SCI2C: DEFAULT_PRECISION= DOUBLE
 
-function mainfunction()
+function mainfunction()
+
+disp(real(4));
+disp(imag(4));
 
-//test max && min
+disp(real(1+2*%i));
+disp(imag(1+2*%i));
 
-//reals
+a=[4 2 7 5;4 8 6 1];
 
-disp(norm(3))
-disp(max(3,1))
-disp(max(3,2))
-
-
-disp(min(7))
-disp(min(7,1))
-disp(min(7,2))
-
-a=[4 -2 4 8;-3 4 5 -1;1 -4 5 6; -7 -4 5 3]
-
-
-disp(max(a))
-disp(max(a,1))
-disp(max(a,2))
-
-disp(min(a))
-disp(min(a,1))
-disp(min(a,2))
+disp(real(a));
+disp(imag(a));
 
+b=a+%i*2*a
+disp(real(b));
+disp(imag(b));
 
 endfunction
-- 
cgit