Add real and imag interfaces

1 files changed, 12 insertions, 22 deletions

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