1 files changed, 49 insertions, 12 deletions
diff --git a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
index 02b5c3a7..57a21ec9 100644
--- a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
+++ b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
@@ -1,20 +1,57 @@
-//SCI2C: DEFAULT_PRECISION= DOUBLE
+//SCI2C: DEFAULT_PRECISION= FLOAT
+
+//test pow
 
 function mainfunction()
-
-disp(real(4));
-disp(imag(4));
+//scalar^scalar
+disp(3.2^5.1)
+disp(3.2^(5.1+%i*1.4))
+disp((2.1+%i*0.3)^6.4)
+disp((2.1+%i*0.3)^(5.1+%i*1.4))
+
+//scalar.^scalar
+disp(3.2.^5.1)
+disp(3.2.^(5.1+%i*1.4))
+disp((2.1+%i*0.3).^6.4)
+disp((2.1+%i*0.3).^(5.1+%i*1.4))
+
+//scalar^matrice
+
+a=[1.2 6.1 3.6; 1.7 4.9 7.1];
+b=a+%i*[1.8 2.9 3.6; 5.5 7.3 4.1];
+
+disp(2.1^a)
+disp(2.3^b)
+disp((3.5+%i*2.5)^a)
+disp((3.5+%i*2.5)^b)
+
+//scalar.^matrice
+disp(2.1.^a)
+disp(2.3.^b)
+disp((3.5+%i*2.5).^a)
+disp((3.5+%i*2.5).^b)
+
+//matrix^scalar
+//matrice carrée attendue ici
+c=[1.2 6.1 ; 4.9 7.1];
+d=c+%i*[1.8 2.9 ; 5.5 7.3];
+disp(c^3.2)
+disp(c^(3.2+%i*5.4))
+disp(d^3.2)
+disp(d^(3.2+%i*5.4))
 
-disp(real(1+2*%i));
-disp(imag(1+2*%i));
+//matrix.^scalar
+disp(a.^3.2)
+disp(a.^(3.2+%i*5.4))
+disp(b.^3.2)
+disp(b.^(3.2+%i*5.4))
 
-a=[4 2 7 5;4 8 6 1];
 
-disp(real(a));
-disp(imag(a));
+//matrix.^matrix
+disp(a.^a)
+disp(a.^b)
+disp(b.^a)
+disp(b.^b)
 
-b=a+%i*2*a
-disp(real(b));
-disp(imag(b));
 
 endfunction