summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci45
-rw-r--r--src/matrixOperations/interfaces/int_eye.h38
2 files changed, 60 insertions, 23 deletions
diff --git a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
index f0958f7a..f4700edf 100644
--- a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
+++ b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
@@ -1,56 +1,55 @@
//SCI2C: DEFAULT_PRECISION= DOUBLE
function mainfunction()
-//test multiplication
+//test division
//d0d0
-disp (5*3)
+disp (5/3)
//d0z0
-disp (1*%i)
+disp (1/%i)
//z0d0
-disp (%i*1)
+disp (%i/5)
//z0z0
-disp (%i*3*%i)
+disp (%i/(3*%i))
-a=[1 2 3; 4 5 6]
+a=[1 2 3; 5 5 6]
c=[4 2 3 ;8 8 4; 3 4 5]
b=[1+%i,2+4*%i 3+1*%i; 4 5 6+2*%i]
d=[4 2 3 ;8 8-1*%i 4; 3+4*%i 4 5]
-e=[4 2 ;3 8 ;8-1*%i 4; 3+4*%i 4]
//d2d2
-disp(a*c)
-disp(a.*a)
+disp(a/c)
+disp(a./a)
//d2z2
-disp(a*d)
-disp(a.*b)
+disp(a/d)
+disp(a./b)
//z2d2
-disp(e*a)
-disp(b.*a)
+disp(d/c)
+disp(b./a)
//z2z2
-disp(b*d)
-disp(b.*b)
+disp(b/d)
+disp(b./b)
//d2d0
-disp(a*1)
+disp(a/2)
//d0d2
-disp(1*a)
+disp(1/a)
//d2z0
-disp(a*%i)
+disp(a/%i)
//z0d2
-disp(%i*a)
+disp(%i/a)
//z2d0
-disp(b*1)
+disp(b/5)
//d0z2
-disp(1*b)
+disp(1/b)
//z2z0
-disp(b*%i)
+disp(b/%i)
//z0z2
-disp(%i*b)
+disp(%i/b)
endfunction
diff --git a/src/matrixOperations/interfaces/int_eye.h b/src/matrixOperations/interfaces/int_eye.h
new file mode 100644
index 00000000..2d0407d3
--- /dev/null
+++ b/src/matrixOperations/interfaces/int_eye.h
@@ -0,0 +1,38 @@
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET
+ *
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution. The terms
+ * are also available at
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
+
+/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */
+
+#ifndef __INT_EYE_H__
+#define __INT_EYE_H__
+
+#define s0eyes0(in) seyes(in)
+
+#define d0eyed0(in) deyes(in)
+
+#define c0eyec0(in) ceyes(in)
+
+#define z0eyez0(in) zeyes(in)
+
+#define s2eyes2(in,size,out) seyea(out, size[0], size[1])
+
+#define d2eyed2(in,size,out) deyea(out, size[0], size[1])
+
+#define c2eyec2(in,size,out) ceyea(out, size[0], size[1])
+
+#define z2eyez2(in,size,out) zeyea(out, size[0], size[1])
+
+#define s0s0eyes2(in1,in2,out) seyea(out,in1,in2)
+
+#define d0d0eyed2(in1,in2,out) deyea(out,in1,in2)
+
+#endif /* !__INT_EYE_H__ */