Tagging the 2.0 release of scilab2crelease-2.0

10 files changed, 229 insertions, 0 deletions

diff --git a/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionAbs.sci b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionAbs.sci
new file mode 100644
index 00000000..8bbbf644
--- /dev/null
+++ b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionAbs.sci
@@ -0,0 +1,20 @@
+//SCI2C: DEFAULT_PRECISION= DOUBLE
+
+function mainfunction()

+
+disp(abs(7))
+disp(abs(-3))
+
+
+disp(abs(7-%i))
+disp(abs(7+%i))
+disp(abs(-3-2*%i))
+disp(abs(-3+2*%i))
+
+a=[-1 -5 4 -7; -8 3 -74 -5; 141 -3 4 45]
+b=[1+%i*7 2 5+%i*4; 4+%i*21 8+%i 6; 3-%i*7 4-%i*2 78 ]
+disp(abs(a))
+disp(abs(b))
+
+
+endfunction
diff --git a/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionConj.sci b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionConj.sci
new file mode 100644
index 00000000..3cceb0d1
--- /dev/null
+++ b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionConj.sci
@@ -0,0 +1,31 @@
+//SCI2C: DEFAULT_PRECISION= FLOAT
+
+function mainfunction()

+
+s1=[1+%i*3 1-%i*7;-1+5*%i 1-%i*7;-1+5*%i -1-6*%i]
+s2=conj(s1);
+disp(s2);
+
+s3=[1 1;-1+5*%i 1-%i*7;-1+5*%i -1-6*%i]
+s4=conj(s3);
+disp(s4);

+
+s5=1+%i*3
+s6=conj(s5);
+disp(s6);
+
+
+s7=1-%i*3
+s8=conj(s7);
+disp(s8);

+
+s9=[1+%i*3 1-%i*7;-1 7;-1+5*%i -1-6*%i]
+s10=conj(s9);
+disp(s10);

+
+s11=[1+%i*3 1;-1+5*%i 1;-1 -1-6*%i]
+s12=conj(s11);
+disp(s12);
+
+
+endfunction
diff --git a/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionFind.sci b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionFind.sci
new file mode 100644
index 00000000..2a093e9c
--- /dev/null
+++ b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionFind.sci
@@ -0,0 +1,20 @@
+//SCI2C: DEFAULT_PRECISION= DOUBLE
+
+function mainfunction()

+
+a = 1
+disp(find(a==0))
+disp(find(a==1))
+
+b = 1+3*%i
+disp(find(b==2-%i))
+disp(find(b==1+3*%i))
+
+c=[2 5 4 7; 36 4 1 5; 1 2 54 7; 9 6 3 1]
+disp(find(c==1))
+
+
+d=[1 2+%i 5 9; 7+%i 5+%i 4+%i 1+%i; 1+%i 5+%i 6+%i 3+%i; 2+%i 2+%i 2+%i 2+%i*3]
+disp(find(d==2+%i))
+
+endfunction
diff --git a/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionFind2d.sci b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionFind2d.sci
new file mode 100644
index 00000000..2857b80b
--- /dev/null
+++ b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionFind2d.sci
@@ -0,0 +1,32 @@
+//SCI2C: DEFAULT_PRECISION= DOUBLE
+
+function mainfunction()

+
+a = 1
+[u1,v1]=find(a==0);
+[u2,v2]=find(a==1);
+
+disp(u1);disp(v1);
+disp(u2);disp(v2);
+
+b = 1+3*%i
+[u3,v3]=find(b==0);
+[u4,v4]=find(b==1+3*%i);
+
+disp(u3);disp(v3);
+disp(u4);disp(v4);
+
+c=[2 5 4 7; 36 4 1 5; 1 2 54 7; 9 6 3 1]
+[u5,v5]=find(c==0);
+[u6,v6]=find(c==1);
+
+disp(u5);disp(v5);
+disp(u6);disp(v6);
+
+d=[1 2+%i 5 9; 7+%i 5+%i 4+%i 1+%i; 1+%i 5+%i 6+%i 3+%i; 2+%i 2+%i 2-%i 2+%i*3]
+[u7,v7]=find(d==0);
+[u8,v8]=find(d==2+%i);
+
+disp(u7);disp(v7);
+disp(u8);disp(v8);
+endfunction
diff --git a/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionIsEmpty.sci b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionIsEmpty.sci
new file mode 100644
index 00000000..9c975ad7
--- /dev/null
+++ b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionIsEmpty.sci
@@ -0,0 +1,18 @@
+//SCI2C: DEFAULT_PRECISION= DOUBLE
+
+function mainfunction()

+
+//test isempty
+
+
+disp(isempty(4));
+disp(isempty(3+%i*4));
+
+c=[1 5 4 8; 2 9 4 5; 3 6 4 7]
+d=[1 5+%i*4 4 8+%i; 2-%i*3 9+%i*7 4+%i*2 5; 3 6 4 7-%i]
+e=[0,0]
+disp(isempty(c));
+disp(isempty(d));
+disp(isempty(e));
+disp(isempty(e+%i*0));
+endfunction
diff --git a/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionIsNan.sci b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionIsNan.sci
new file mode 100644
index 00000000..9d4eac4f
--- /dev/null
+++ b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionIsNan.sci
@@ -0,0 +1,20 @@
+//SCI2C: DEFAULT_PRECISION= DOUBLE
+
+function mainfunction()

+
+//test isnan
+
+
+disp(isnan(4));
+disp(isnan(3+%i*4));
+
+c=[1 5 4 8; 2 9 4 5; 3 6 4 7]
+d=[1 5+%i*4 4 8+%i; 2-%i*3 9+%i*7 4+%i*2 5; 3 6 4 7-%i]
+e=[0,0]
+//disp(isnan([1 0.01 -%nan %inf-%inf]));
+disp(isnan([1 0.01  %inf-%inf]));
+disp(isnan(c));
+disp(isnan(d));
+disp(isnan(e));
+disp(isnan(e+%i*0));
+endfunction
diff --git a/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionLength.sci b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionLength.sci
new file mode 100644
index 00000000..7509073c
--- /dev/null
+++ b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionLength.sci
@@ -0,0 +1,17 @@
+//SCI2C: DEFAULT_PRECISION= DOUBLE
+
+function mainfunction()

+
+//test length
+
+
+disp(length(4));
+disp(length(3+%i*4));
+
+c=[1 5 4 8; 2 9 4 5; 3 6 4 7]
+d=[1 5+%i*4 4 8+%i; 2-%i*3 9+%i*7 4+%i*2 5; 3 6 4 7-%i; 3 6 4 7-%i]
+
+disp(length(c));
+disp(length(d));
+
+endfunction
diff --git a/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionSign.sci b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionSign.sci
new file mode 100644
index 00000000..6a1ce45c
--- /dev/null
+++ b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionSign.sci
@@ -0,0 +1,28 @@
+//SCI2C: DEFAULT_PRECISION= DOUBLE
+
+function mainfunction()

+
+//test sign
+
+//real
+disp (sign(4))
+disp (sign(0))
+disp (sign(-2))
+
+a=[1 0 5 4; -2 4 0 5 ; -4 -2 -1 4]
+disp (sign(a))
+
+
+//complex
+disp (sign(4-2*%i))
+disp (sign(4+2*%i))
+disp (sign(0+%i*0))
+disp (sign(3+%i*0))
+disp (sign(0+%i*3))
+disp (sign(-2 - 2*%i))
+disp (sign(-2 + 2*%i))
+
+b=[1+%i 0+0*%i 5-2*%i 4+0*%i; -2+%i 4 0+2*%i 5 ; -4-3*%i -2 -1-3*%i 4+2*%i]
+disp (sign(b))
+
+endfunction
diff --git a/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionSize.sci b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionSize.sci
new file mode 100644
index 00000000..067365db
--- /dev/null
+++ b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionSize.sci
@@ -0,0 +1,27 @@
+//SCI2C: DEFAULT_PRECISION= DOUBLE
+
+function mainfunction()

+
+//test sign
+
+//real
+disp (size(4))
+disp (size(4,1))
+disp (size(4,2))
+
+a=[1 0 5 4; -2 4 0 5 ; -4 -2 -1 4]
+disp (size(a))
+disp (size(a,1))
+disp (size(a,2))
+
+//complex
+disp (size(4-2*%i))
+disp (size(4-2*%i,1))
+disp (size(4-2*%i,2))
+
+b=[1+%i 0+0*%i 5-2*%i 4+0*%i; -2+%i 4 0+2*%i 5 ]
+disp (size(b))
+disp (size(b,1))
+disp (size(b,2))
+
+endfunction
diff --git a/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionType.sci b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionType.sci
new file mode 100644
index 00000000..db837346
--- /dev/null
+++ b/src/Scilab2C/SCI2CTests/Mes_tests/auxiliaryFunctions/mainfunctionType.sci
@@ -0,0 +1,16 @@
+//SCI2C: DEFAULT_PRECISION= DOUBLE
+
+function mainfunction()

+
+//test type
+
+disp (type(4))
+disp (type(2+3*%i))
+
+a=[1 2 4 ; 2 5 3]
+disp (type(a))
+
+b=[1-%i 2+3*%i 4 ; 2-2*%i 5 3+2*%i]
+disp (type(b))
+
+endfunction