diff options
57 files changed, 1038 insertions, 84 deletions
diff --git a/tests/unit_tests/test_double_OpApex.sci b/tests/unit_tests/test_double_OpApex.sci new file mode 100644 index 00000000..77c04b70 --- /dev/null +++ b/tests/unit_tests/test_double_OpApex.sci @@ -0,0 +1,11 @@ +function test_double_OpApex() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0') + disp(d2') + disp(z0') + disp(z2') +endfunction diff --git a/tests/unit_tests/test_double_OpDotApex.sci b/tests/unit_tests/test_double_OpDotApex.sci new file mode 100644 index 00000000..89fab710 --- /dev/null +++ b/tests/unit_tests/test_double_OpDotApex.sci @@ -0,0 +1,11 @@ +function test_double_OpDotApex() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0.') + disp(d2.') + disp(z0.') + disp(z2.') +endfunction diff --git a/tests/unit_tests/test_double_OpDotBackSlash.sci b/tests/unit_tests/test_double_OpDotBackSlash.sci new file mode 100644 index 00000000..3e9ac329 --- /dev/null +++ b/tests/unit_tests/test_double_OpDotBackSlash.sci @@ -0,0 +1,30 @@ +function test_double_OpDotBackSlash() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0.\d0) + disp(z0.\z0) + disp(d2.\d0) + disp(z2.\z0) + + disp(d0.\d2) + disp(z0.\z2) + + disp(d2.\d2) + disp(z2.\z2) + + disp(d2.\z0) + disp(z2.\d0) + + disp(d0.\z2) + disp(z0.\d2) + + disp(d0.\z0) + disp(z0.\d0) + + disp(d2.\z2) + disp(z2.\d2) + +endfunction diff --git a/tests/unit_tests/test_double_OpDotHat.sci b/tests/unit_tests/test_double_OpDotHat.sci new file mode 100644 index 00000000..a35f6c0f --- /dev/null +++ b/tests/unit_tests/test_double_OpDotHat.sci @@ -0,0 +1,29 @@ +function test_double_OpDotHat() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0.^d0) + disp(z0.^z0) + disp(d2.^d0) + disp(z2.^z0) + + disp(d0.^d2) + disp(z0.^z2) + + disp(d2.^d2) + disp(z2.^z2) + + disp(d2.^z0) + disp(z2.^d0) + + disp(d0.^z2) + disp(z0.^d2) + + disp(d0.^z0) + disp(z0.^d0) + + disp(d2.^z2) + disp(z2.^d2) +endfunction diff --git a/tests/unit_tests/test_double_OpDotSlash.sci b/tests/unit_tests/test_double_OpDotSlash.sci new file mode 100644 index 00000000..c9ba9dea --- /dev/null +++ b/tests/unit_tests/test_double_OpDotSlash.sci @@ -0,0 +1,26 @@ +function test_double_OpDotSlash() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0./d0) + disp(d0./z0) + disp(d0./d2) + disp(d0./z2) + + disp(d2./d0) + disp(d2./z0) + disp(d2./d2) + disp(d2./z2) + + disp(z0./d0) + disp(z0./z0) + disp(z0./d2) + disp(z0./z2) + + disp(z2./d0) + disp(z2./z0) + disp(z2./d2) + disp(z2./z2) +endfunction diff --git a/tests/unit_tests/test_double_OpDotStar.sci b/tests/unit_tests/test_double_OpDotStar.sci new file mode 100644 index 00000000..fe74fddf --- /dev/null +++ b/tests/unit_tests/test_double_OpDotStar.sci @@ -0,0 +1,26 @@ +function test_double_OpDotStar() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0.*d0) + disp(d0.*z0) + disp(d0.*d2) + disp(d0.*z2) + + disp(d2.*d0) + disp(d2.*z0) + disp(d2.*d2) + disp(d2.*z2) + + disp(z0.*d0) + disp(z0.*z0) + disp(z0.*d2) + disp(z0.*z2) + + disp(z2.*d0) + disp(z2.*z0) + disp(z2.*d2) + disp(z2.*z2) +endfunction diff --git a/tests/unit_tests/test_double_OpHat.sci b/tests/unit_tests/test_double_OpHat.sci new file mode 100644 index 00000000..44e8f2c8 --- /dev/null +++ b/tests/unit_tests/test_double_OpHat.sci @@ -0,0 +1,29 @@ +function test_double_OpHat() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0^d0) + disp(z0^z0) + disp(d2^d0) + disp(z2^z0) + + disp(d0^d2) + disp(z0^z2) + + //disp(d2^d2) // ! Not implemented in Scilab ! + //disp(z2^z2) // ! Not implemented in Scilab ! + + disp(d2^z0) + disp(z2^d0) + + disp(d0^z2) + disp(z0^d2) + + disp(d0^z0) + disp(z0^d0) + + //disp(d2^z2) // ! Not implemented in Scilab ! + //disp(z2^d2) // ! Not implemented in Scilab ! +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_OpLogAnd.sci b/tests/unit_tests/test_double_OpLogAnd.sci new file mode 100644 index 00000000..fc2fdfb2 --- /dev/null +++ b/tests/unit_tests/test_double_OpLogAnd.sci @@ -0,0 +1,29 @@ +function test_double_OpLogAnd() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0&d0) + disp(z0&z0) + disp(d2&d0) + disp(z2&z0) + + disp(d0&d2) + disp(z0&z2) + + disp(d2&d2) + disp(z2&z2) + + disp(d2&z0) + disp(z2&d0) + + disp(d0&z2) + disp(z0&d2) + + disp(d0&z0) + disp(z0&d0) + + disp(d2&z2) + disp(z2&d2) +endfunction diff --git a/tests/unit_tests/test_double_OpLogEq.sci b/tests/unit_tests/test_double_OpLogEq.sci index e0e843b6..f24c236f 100644 --- a/tests/unit_tests/test_double_OpLogEq.sci +++ b/tests/unit_tests/test_double_OpLogEq.sci @@ -1,25 +1,33 @@ function test_double_OpLogEq() - a = 1; - b = 2 + %i; - c = [1 2 3] - d = %i * [1 2 3 4 5 6] - disp(a == a); // d0d0OpLogEqd0 - disp(a == b); // d0z0OpLogEqd0 - disp(a == c); // d0d2OpLogEqd2 - disp(a == d); // d0z2OpLogEqd2 + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + g0 = 'A' + g2 = "foo" - disp(b == a); // z0d0OpLogEqd0 - disp(b == b); // z0z0OpLogEqd0 - disp(b == c); // z0d2OpLogEqd2 - disp(b == d); // z0z2OpLogEqd2 + //disp(g0==g0) // ! Unable to manage this case ! + + disp(d0==d0) + disp(z0==z0) + disp(d2==d0) + disp(z2==z0) - disp(c == a); // d2d0OpLogEqd0 - disp(c == b); // d2z0OpLogEqd0 - disp(c == c); // d2d2OpLogEqd2 - disp(c == d); // d2z2OpLogEqd2 + disp(d0==d2) + disp(z0==z2) + + disp(d2==d2) + disp(z2==z2) + + disp(d2==z0) + disp(z2==d0) - disp(d == a); // z2d0OpLogEqd0 - disp(d == b); // z2z0OpLogEqd0 - disp(d == c); // z2d2OpLogEqd2 - disp(d == d); // z2z2OpLogEqd2 + disp(d0==z2) + disp(z0==d2) + + disp(d0==z0) + disp(z0==d0) + + disp(d2==z2) + disp(z2==d2) endfunction diff --git a/tests/unit_tests/test_double_OpLogGe.sci b/tests/unit_tests/test_double_OpLogGe.sci index 9aca3e75..b50166c1 100644 --- a/tests/unit_tests/test_double_OpLogGe.sci +++ b/tests/unit_tests/test_double_OpLogGe.sci @@ -1,11 +1,29 @@ function test_double_OpLogGe() - a = 1; - c = [1 2 3] + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0>=d0) + //disp(z0>=z0) + disp(d2>=d0) + //disp(z2>=z0) - disp(a >= a); // d0d0OpLogEqd0 - disp(a >= c); // d0d2OpLogEqd2 + disp(d0>=d2) + //disp(z0>=z2) - disp(c >= a); // d2d0OpLogEqd0 - disp(c >= c); // d2d2OpLogEqd2 - -endfunction + disp(d2>=d2) + //disp(z2>=z2) + + //disp(d2>=z0) + //disp(z2>=d0) + + //disp(d0>=z2) + //disp(z0>=d2) + + //disp(d0>=z0) + //disp(z0>=d0) + + //disp(d2>=z2) + //disp(z2>=d2) + endfunction diff --git a/tests/unit_tests/test_double_OpLogGt.sci b/tests/unit_tests/test_double_OpLogGt.sci index 70a1ef39..848da1c7 100644 --- a/tests/unit_tests/test_double_OpLogGt.sci +++ b/tests/unit_tests/test_double_OpLogGt.sci @@ -1,11 +1,30 @@ function test_double_OpLogGt() - a = 1; - c = [1 2 3] + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0>d0) + //disp(z0>z0) + disp(d2>d0) + //disp(z2>z0) + + disp(d0>d2) + //disp(z0>z2) - disp(a > a); // d0d0OpLogEqd0 - disp(a > c); // d0d2OpLogEqd2 + disp(d2>d2) + //disp(z2>z2) + + //disp(d2>z0) + //disp(z2>d0) + + //disp(d0>z2) + //disp(z0>d2) + + //disp(d0>z0) + //disp(z0>d0) - disp(c > a); // d2d0OpLogEqd0 - disp(c > c); // d2d2OpLogEqd2 + //disp(d2>z2) + //disp(z2>d2) endfunction diff --git a/tests/unit_tests/test_double_OpLogLe.sci b/tests/unit_tests/test_double_OpLogLe.sci new file mode 100644 index 00000000..77e3f6e2 --- /dev/null +++ b/tests/unit_tests/test_double_OpLogLe.sci @@ -0,0 +1,29 @@ +function test_double_OpLogLe() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0<=d0) + //disp(z0<=z0) + disp(d2<=d0) + //disp(z2<=z0) + + disp(d0<=d2) + //disp(z0<=z2) + + disp(d2<=d2) + //disp(z2<=z2) + + //disp(d2<=z0) + //disp(z2<=d0) + + //disp(d0<=z2) + //disp(z0<=d2) + + //disp(d0<=z0) + //disp(z0<=d0) + + //disp(d2<=z2) + //disp(z2<=d2) +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_OpLogLt.sci b/tests/unit_tests/test_double_OpLogLt.sci index ec06fcc2..416f8dcb 100644 --- a/tests/unit_tests/test_double_OpLogLt.sci +++ b/tests/unit_tests/test_double_OpLogLt.sci @@ -1,10 +1,29 @@ function test_double_OpLogLt() - a = 1; - c = [1 2 3] + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 - disp(a < a); // d0d0OpLogEqd0 - disp(a < c); // d0d2OpLogEqd2 + disp(d0<d0) + //disp(z0<z0) + disp(d2<d0) + //disp(z2<z0) + + disp(d0<d2) + //disp(z0<z2) + + disp(d2<d2) + //disp(z2<z2) - disp(c < a); // d2d0OpLogEqd0 - disp(c < c); // d2d2OpLogEqd2 + //disp(d2<z0) + //disp(z2<d0) + + //disp(d0<z2) + //disp(z0<d2) + + //disp(d0<z0) + //disp(z0<d0) + + //disp(d2<z2) + //disp(z2<d2) endfunction diff --git a/tests/unit_tests/test_double_OpLogNe.sci b/tests/unit_tests/test_double_OpLogNe.sci index 64d582d8..892efb58 100644 --- a/tests/unit_tests/test_double_OpLogNe.sci +++ b/tests/unit_tests/test_double_OpLogNe.sci @@ -1,25 +1,33 @@ function test_double_OpLogNe() - a = 1; - b = 2 + %i; - c = [1 2 3] - d = %i * [1 2 3 4 5 6] - disp(a <> a); // d0d0OpLogEqd0 - disp(a <> b); // d0z0OpLogEqd0 - disp(a <> c); // d0d2OpLogEqd2 - disp(a <> d); // d0z2OpLogEqd2 + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + g0 = 'A' + g2 = "foo" - disp(b <> a); // z0d0OpLogEqd0 - disp(b <> b); // z0z0OpLogEqd0 - disp(b <> c); // z0d2OpLogEqd2 - disp(b <> d); // z0z2OpLogEqd2 + //disp(g0<>g0) + + disp(d0<>d0) + disp(z0<>z0) + disp(d2<>d0) + disp(z2<>z0) - disp(c <> a); // d2d0OpLogEqd0 - disp(c <> b); // d2z0OpLogEqd0 - disp(c <> c); // d2d2OpLogEqd2 - disp(c <> d); // d2z2OpLogEqd2 + disp(d0<>d2) + disp(z0<>z2) + + disp(d2<>d2) + disp(z2<>z2) + + disp(d2<>z0) + disp(z2<>d0) - disp(d <> a); // z2d0OpLogEqd0 - disp(d <> b); // z2z0OpLogEqd0 - disp(d <> c); // z2d2OpLogEqd2 - disp(d <> d); // z2z2OpLogEqd2 + disp(d0<>z2) + disp(z0<>d2) + + disp(d0<>z0) + disp(z0<>d0) + + disp(d2<>z2) + disp(z2<>d2) endfunction diff --git a/tests/unit_tests/test_double_OpLogOr.sci b/tests/unit_tests/test_double_OpLogOr.sci new file mode 100644 index 00000000..50e9c98c --- /dev/null +++ b/tests/unit_tests/test_double_OpLogOr.sci @@ -0,0 +1,29 @@ +function test_double_OpLogOr() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0|d0) + disp(z0|z0) + disp(d2|d0) + disp(z2|z0) + + disp(d0|d2) + disp(z0|z2) + + disp(d2|d2) + disp(z2|z2) + + disp(d2|z0) + disp(z2|d0) + + disp(d0|z2) + disp(z0|d2) + + disp(d0|z0) + disp(z0|d0) + + disp(d2|z2) + disp(z2|d2) +endfunction diff --git a/tests/unit_tests/test_double_OpSlash.sci b/tests/unit_tests/test_double_OpSlash.sci new file mode 100644 index 00000000..8012584c --- /dev/null +++ b/tests/unit_tests/test_double_OpSlash.sci @@ -0,0 +1,32 @@ +function test_double_OpSlash() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0/d0) + disp(d0/z0) + disp(z0/d0) + disp(z0/z0) + + disp(d2/d0) + disp(d2/z0) + disp(z2/d0) + disp(z2/z0) + + disp(d0/d2) + disp(d0/z2) + disp(z0/d2) + disp(z0/z2) + + disp(d2/d2) + disp(d2/z2) + disp(z2/d2) + disp(z2/z2) + + disp([1 2 3]/[1 2 3]) //d2d2OpSlashd0 + disp([1 2 3]/(%i * [1 2 3])) //d2z2OpSlashz0 + disp((%i * [1 2 3])/[1 2 3]) //z2d2OpSlashz0 + disp((%i * [1 2 3])/(%i * [1 2 3])) //z2z2OpSlashz0 + +endfunction diff --git a/tests/unit_tests/test_double_OpStar.sci b/tests/unit_tests/test_double_OpStar.sci index 329bb671..12797bbb 100644 --- a/tests/unit_tests/test_double_OpStar.sci +++ b/tests/unit_tests/test_double_OpStar.sci @@ -1,28 +1,31 @@ function test_double_OpStar() - a = 2 * 3; //d0d0OpStard0 - b = 2 * %i; - c = 2 * b; //d0z0OpStard0 - d = [2 * %i 3 * %i 4* %i]; - e = 2 * d; //d0z2OpStarz2 - l = 2 * [1 2; 3 4 ; 5 6] //d0d2OpStard2 - - f = b * a; // z0d0OpStarz0 - g = b * b; // z0z0OpStarz0 - h = [1 2 3 4]; - j = b * h; // z0d2OpStarz2 - k = b * d; // z0z2OpStarz2 + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0*d0) + disp(d0*z0) + disp(z0*d0) + disp(z0*z0) - m = [1 2;3 4] * [5 6; 7 8] //d2d2OpStard2 - n = [1 2;3 4] * ([5 6; 7 8] + %i) //d2z2OpStarz2 - o = [1 2 3 4 5 6 7 8 9]; - p = o * o' // d2d2OpStard0 - q = o * (o + %i)' // d2z2OpStarz0 - disp(q); + disp(d2*d0) + disp(d2*z0) + disp(z2*d0) + disp(z2*z0) + + disp(d0*d2) + disp(d0*z2) + disp(z0*d2) + disp(z0*z2) - r = ([1 2;3 4] + %i) * ([5 6; 7 8] + %i) //z2z2OpStarz2 - s = ([1 2;3 4] + %i) * [5 6; 7 8] //z2d2OpStarz2 - t = [1 2 3 4 5 6 7 8 9] + %i; - u = t * t'; // z2z2OpStarz0 - v = t * o'; //z2d2OpStarz0 - disp(v); + disp(d2*d2) + disp(d2*z2) + disp(z2*d2) + disp(z2*z2) + + disp([1 2 3]*[1 2 3]') //d2d2OpStard0 + disp([1 2 3]*(%i * [1 2 3])') //d2z2OpStarz0 + disp((%i * [1 2 3])*[1 2 3]') //z2d2OpStarz0 + disp((%i * [1 2 3])*(%i * [1 2 3])') //z2z2OpStarz0 endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_abs.sci b/tests/unit_tests/test_double_abs.sci new file mode 100644 index 00000000..9faccf25 --- /dev/null +++ b/tests/unit_tests/test_double_abs.sci @@ -0,0 +1,11 @@ +function test_double_abs() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(abs(d0)) + disp(abs(z0)) + disp(abs(d2)) + disp(abs(z2)) +endfunction diff --git a/tests/unit_tests/test_double_acos.sci b/tests/unit_tests/test_double_acos.sci new file mode 100644 index 00000000..14bb88af --- /dev/null +++ b/tests/unit_tests/test_double_acos.sci @@ -0,0 +1,11 @@ +function test_double_acos() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + acos(d0); + acos(d2); + acos(z0); + acos(z2); +endfunction diff --git a/tests/unit_tests/test_double_acosh.sci b/tests/unit_tests/test_double_acosh.sci new file mode 100644 index 00000000..73fe317a --- /dev/null +++ b/tests/unit_tests/test_double_acosh.sci @@ -0,0 +1,11 @@ +function test_double_acosh() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(acosh(d0)); + disp(acosh(d2)); + disp(acosh(z0)); + disp(acosh(z2)); +endfunction diff --git a/tests/unit_tests/test_double_asin.sci b/tests/unit_tests/test_double_asin.sci new file mode 100644 index 00000000..b95efcf8 --- /dev/null +++ b/tests/unit_tests/test_double_asin.sci @@ -0,0 +1,11 @@ +function test_double_asin() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(asin(d0)); + disp(asin(d2)); + disp(asin(z0)); + disp(asin(z2)); +endfunction diff --git a/tests/unit_tests/test_double_asinh.sci b/tests/unit_tests/test_double_asinh.sci new file mode 100644 index 00000000..d912f201 --- /dev/null +++ b/tests/unit_tests/test_double_asinh.sci @@ -0,0 +1,11 @@ +function test_double_asinh() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + asinh(d0); + asinh(d2); + asinh(z0); + asinh(z2); +endfunction diff --git a/tests/unit_tests/test_double_atan.sci b/tests/unit_tests/test_double_atan.sci new file mode 100644 index 00000000..7126dfea --- /dev/null +++ b/tests/unit_tests/test_double_atan.sci @@ -0,0 +1,14 @@ +function test_double_atan() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(atan(d0)); + disp(atan(d2)); + disp(atan(z0)); + disp(atan(z2)); + + disp(atan(d0,d0)); + disp(atan(d2,d2)); +endfunction diff --git a/tests/unit_tests/test_double_atanh.sci b/tests/unit_tests/test_double_atanh.sci new file mode 100644 index 00000000..3bef7ef3 --- /dev/null +++ b/tests/unit_tests/test_double_atanh.sci @@ -0,0 +1,11 @@ +function test_double_atanh() + d0 = %pi + d2 = [2 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(atanh(d0)); + disp(atanh(d2)); + disp(atanh(z0)); + disp(atanh(z2)); +endfunction diff --git a/tests/unit_tests/test_double_ceil.sci b/tests/unit_tests/test_double_ceil.sci new file mode 100644 index 00000000..84d96fab --- /dev/null +++ b/tests/unit_tests/test_double_ceil.sci @@ -0,0 +1,11 @@ +function test_double_ceil() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + ceil(d0); + ceil(d2); + ceil(z0); + ceil(z2); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_chol.sci b/tests/unit_tests/test_double_chol.sci new file mode 100644 index 00000000..33c129f5 --- /dev/null +++ b/tests/unit_tests/test_double_chol.sci @@ -0,0 +1,11 @@ +function test_double_chol() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(chol(d0)); + disp(chol(d2*d2')); + disp(chol(z0)); + disp(chol(z2*z2')); +endfunction diff --git a/tests/unit_tests/test_double_conj.sci b/tests/unit_tests/test_double_conj.sci new file mode 100644 index 00000000..8ccea9c3 --- /dev/null +++ b/tests/unit_tests/test_double_conj.sci @@ -0,0 +1,11 @@ +function test_double_conj() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + conj(d0); + conj(d2); + conj(z0); + conj(z2); +endfunction diff --git a/tests/unit_tests/test_double_cos.sci b/tests/unit_tests/test_double_cos.sci new file mode 100644 index 00000000..25020612 --- /dev/null +++ b/tests/unit_tests/test_double_cos.sci @@ -0,0 +1,11 @@ +function test_double_cos() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + cos(d0); + cos(d2); + cos(z0); + cos(z2); +endfunction diff --git a/tests/unit_tests/test_double_cosh.sci b/tests/unit_tests/test_double_cosh.sci new file mode 100644 index 00000000..6d688b2c --- /dev/null +++ b/tests/unit_tests/test_double_cosh.sci @@ -0,0 +1,11 @@ +function test_double_cosh() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + cosh(d0); + cosh(d2); + cosh(z0); + cosh(z2); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_exp.sci b/tests/unit_tests/test_double_exp.sci new file mode 100644 index 00000000..d00388bd --- /dev/null +++ b/tests/unit_tests/test_double_exp.sci @@ -0,0 +1,11 @@ +function test_double_exp() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + exp(d0); + exp(d2); + exp(z0); + exp(z2); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_eye.sci b/tests/unit_tests/test_double_eye.sci new file mode 100644 index 00000000..4bf9727d --- /dev/null +++ b/tests/unit_tests/test_double_eye.sci @@ -0,0 +1,14 @@ +function test_double_eye() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(eye(d0)) + disp(eye(z0)) + disp(eye(d2)) + disp(eye(z2)) + //disp(eye(0,0)) // ! sci2c does not manage [] ! + disp(eye(1,1)) + disp(eye(d0,d0)) +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_fix.sci b/tests/unit_tests/test_double_fix.sci new file mode 100644 index 00000000..827276a7 --- /dev/null +++ b/tests/unit_tests/test_double_fix.sci @@ -0,0 +1,11 @@ +function test_double_fix() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + fix(d0); + fix(d2); + fix(z0); + fix(z2); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_floor.sci b/tests/unit_tests/test_double_floor.sci new file mode 100644 index 00000000..abfcd6bd --- /dev/null +++ b/tests/unit_tests/test_double_floor.sci @@ -0,0 +1,11 @@ +function test_double_floor() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + floor(d0); + floor(d2); + floor(z0); + floor(z2); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_imag.sci b/tests/unit_tests/test_double_imag.sci new file mode 100644 index 00000000..aa7da25e --- /dev/null +++ b/tests/unit_tests/test_double_imag.sci @@ -0,0 +1,11 @@ +function test_double_imag() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(imag(d0)) + disp(imag(z0)) + disp(imag(d2)) + disp(imag(z2)) +endfunction diff --git a/tests/unit_tests/test_double_int.sci b/tests/unit_tests/test_double_int.sci new file mode 100644 index 00000000..00a4aaef --- /dev/null +++ b/tests/unit_tests/test_double_int.sci @@ -0,0 +1,11 @@ +function test_double_int() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + int(d0); + int(d2); + int(z0); + int(z2); +endfunction diff --git a/tests/unit_tests/test_double_inv.sci b/tests/unit_tests/test_double_inv.sci new file mode 100644 index 00000000..956abe56 --- /dev/null +++ b/tests/unit_tests/test_double_inv.sci @@ -0,0 +1,11 @@ +function test_double_inv() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + inv(d0); + inv(d2); + inv(z0); + inv(z2); +endfunction diff --git a/tests/unit_tests/test_double_isnan.sci b/tests/unit_tests/test_double_isnan.sci new file mode 100644 index 00000000..1ea38d48 --- /dev/null +++ b/tests/unit_tests/test_double_isnan.sci @@ -0,0 +1,11 @@ +function test_double_isnan() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(isnan(d0)) + disp(isnan(d2)) + disp(isnan(z0)) + disp(isnan(z2)) +endfunction diff --git a/tests/unit_tests/test_double_log.sci b/tests/unit_tests/test_double_log.sci new file mode 100644 index 00000000..b5790f14 --- /dev/null +++ b/tests/unit_tests/test_double_log.sci @@ -0,0 +1,11 @@ +function test_double_log() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(log(d0)); + disp(log(d2)); + disp(log(z0)); + disp(log(z2)); +endfunction diff --git a/tests/unit_tests/test_double_log10.sci b/tests/unit_tests/test_double_log10.sci new file mode 100644 index 00000000..a30176d9 --- /dev/null +++ b/tests/unit_tests/test_double_log10.sci @@ -0,0 +1,11 @@ + function test_double_log10() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(log10(d0)); + disp(log10(d2)); + disp(log10(z0)); + disp(log10(z2)); + endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_log1p.sci b/tests/unit_tests/test_double_log1p.sci new file mode 100644 index 00000000..03196ceb --- /dev/null +++ b/tests/unit_tests/test_double_log1p.sci @@ -0,0 +1,12 @@ +function test_double_log1p() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(log1p(d0)); + disp(log1p(d2)); + //disp(log1p(z0)); // ! Not Implemented in Scilab ! + //disp(log1p(z2)); // ! Not Implemented in Scilab ! + +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_max.sci b/tests/unit_tests/test_double_max.sci new file mode 100644 index 00000000..b43e47a4 --- /dev/null +++ b/tests/unit_tests/test_double_max.sci @@ -0,0 +1,32 @@ +function test_double_max() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(max(d0)) + //disp(max(z0)) + disp(max(d2)) + //disp(max(z2)) + + disp(max(d0, 1)) + //disp(max(z0, 1)) + disp(max(d2, 1)) + //disp(max(z2, 1)) + + disp(max(d0, 2)) + //disp(max(z0, 2)) + disp(max(d2, 2)) + //disp(max(z2, 2)) + +// disp(max(d0, 'r')) +// disp(max(z0, 'r')) +// disp(max(d2, 'r')) +// disp(max(z2, 'r')) + +// disp(max(d0, 'c')) +// disp(max(z0, 'c')) +// disp(max(d2, 'c')) +// disp(max(z2, 'c')) + +endfunction diff --git a/tests/unit_tests/test_double_mean.sci b/tests/unit_tests/test_double_mean.sci new file mode 100644 index 00000000..66859d01 --- /dev/null +++ b/tests/unit_tests/test_double_mean.sci @@ -0,0 +1,31 @@ +function test_double_mean() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(mean(d0)) + disp(mean(z0)) + disp(mean(d2)) + disp(mean(z2)) + + disp(mean(d0, 1)) + disp(mean(z0, 1)) + disp(mean(d2, 1)) + disp(mean(z2, 1)) + + disp(mean(d0, 2)) + disp(mean(z0, 2)) + disp(mean(d2, 2)) + disp(mean(z2, 2)) + +// disp(mean(d0, 'r')) +// disp(mean(z0, 'r')) +// disp(mean(d2, 'r')) +// disp(mean(z2, 'r')) + +// disp(mean(d0, 'c')) +// disp(mean(z0, 'c')) +// disp(mean(d2, 'c')) +// disp(mean(z2, 'c')) +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_min.sci b/tests/unit_tests/test_double_min.sci new file mode 100644 index 00000000..65f267bc --- /dev/null +++ b/tests/unit_tests/test_double_min.sci @@ -0,0 +1,32 @@ +function test_double_min() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(min(d0)) + //disp(min(z0)) + disp(min(d2)) + //disp(min(z2)) + + disp(min(d0, 1)) + //disp(min(z0, 1)) + disp(min(d2, 1)) + //disp(min(z2, 1)) + + disp(min(d0, 2)) + //disp(min(z0, 2)) + disp(min(d2, 2)) + //disp(min(z2, 2)) + +// disp(min(d0, 'r')) +// disp(min(z0, 'r')) +// disp(min(d2, 'r')) +// disp(min(z2, 'r')) + +// disp(min(d0, 'c')) +// disp(min(z0, 'c')) +// disp(min(d2, 'c')) +// disp(min(z2, 'c')) + +endfunction diff --git a/tests/unit_tests/test_double_ones.sci b/tests/unit_tests/test_double_ones.sci new file mode 100644 index 00000000..eb30b0a4 --- /dev/null +++ b/tests/unit_tests/test_double_ones.sci @@ -0,0 +1,14 @@ +function test_double_ones() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(ones(d0)) + disp(ones(z0)) + disp(ones(d2)) + disp(ones(z2)) + //disp(ones(0,0)) // ! sci2c does not manage [] ! + disp(ones(1,1)) + disp(ones(d0,d0)) +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_prod.sci b/tests/unit_tests/test_double_prod.sci new file mode 100644 index 00000000..f5b2c552 --- /dev/null +++ b/tests/unit_tests/test_double_prod.sci @@ -0,0 +1,31 @@ +function test_double_prod() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(prod(d0)) + disp(prod(z0)) + disp(prod(d2)) + disp(prod(z2)) + + disp(prod(d0, 1)) + disp(prod(z0, 1)) + disp(prod(d2, 1)) + disp(prod(z2, 1)) + + disp(prod(d0, 2)) + disp(prod(z0, 2)) + disp(prod(d2, 2)) + disp(prod(z2, 2)) + +// disp(prod(d0, 'r')) +// disp(prod(z0, 'r')) +// disp(prod(d2, 'r')) +// disp(prod(z2, 'r')) + +// disp(prod(d0, 'c')) +// disp(prod(z0, 'c')) +// disp(prod(d2, 'c')) +// disp(prod(z2, 'c')) +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_rand.sci b/tests/unit_tests/test_double_rand.sci new file mode 100644 index 00000000..c6b1893e --- /dev/null +++ b/tests/unit_tests/test_double_rand.sci @@ -0,0 +1,14 @@ +function test_double_rand() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(rand(d0)) + disp(rand(z0)) + disp(rand(d2)) + disp(rand(z2)) + //disp(rand(0,0)) // ! sci2c does not manage [] ! + disp(rand(1,1)) + disp(rand(d0,d0)) +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_real.sci b/tests/unit_tests/test_double_real.sci new file mode 100644 index 00000000..31748476 --- /dev/null +++ b/tests/unit_tests/test_double_real.sci @@ -0,0 +1,11 @@ +function test_double_real() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(real(d0)) + disp(real(z0)) + disp(real(d2)) + disp(real(z2)) +endfunction diff --git a/tests/unit_tests/test_double_round.sci b/tests/unit_tests/test_double_round.sci new file mode 100644 index 00000000..4c57b494 --- /dev/null +++ b/tests/unit_tests/test_double_round.sci @@ -0,0 +1,11 @@ +function test_double_round() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + round(d0); + round(d2); + round(z0); + round(z2); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_sign.sci b/tests/unit_tests/test_double_sign.sci new file mode 100644 index 00000000..c13cb2f1 --- /dev/null +++ b/tests/unit_tests/test_double_sign.sci @@ -0,0 +1,11 @@ +function test_double_sign() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + sign(d0); + sign(d2); + sign(z0); + sign(z2); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_sin.sci b/tests/unit_tests/test_double_sin.sci new file mode 100644 index 00000000..cb00390f --- /dev/null +++ b/tests/unit_tests/test_double_sin.sci @@ -0,0 +1,11 @@ +function test_double_sin() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + sin(d0); + sin(d2); + sin(z0); + sin(z2); +endfunction diff --git a/tests/unit_tests/test_double_sinh.sci b/tests/unit_tests/test_double_sinh.sci new file mode 100644 index 00000000..d23706fa --- /dev/null +++ b/tests/unit_tests/test_double_sinh.sci @@ -0,0 +1,11 @@ +function test_double_sinh() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + sinh(d0); + sinh(d2); + sinh(z0); + sinh(z2); +endfunction diff --git a/tests/unit_tests/test_double_sqrt.sci b/tests/unit_tests/test_double_sqrt.sci new file mode 100644 index 00000000..3f39cbd6 --- /dev/null +++ b/tests/unit_tests/test_double_sqrt.sci @@ -0,0 +1,11 @@ +function test_double_sqrt() + d0 = %pi + d2 = [2 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(sqrt(d0)); + disp(sqrt(d2)); + disp(sqrt(z0)); + disp(sqrt(z2)); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_st_deviation.sci b/tests/unit_tests/test_double_st_deviation.sci new file mode 100644 index 00000000..ddff4c63 --- /dev/null +++ b/tests/unit_tests/test_double_st_deviation.sci @@ -0,0 +1,31 @@ +function test_double_st_deviation() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(st_deviation(d0)) + disp(st_deviation(z0)) + disp(st_deviation(d2)) + disp(st_deviation(z2)) + + disp(st_deviation(d0, 1)) + disp(st_deviation(z0, 1)) + disp(st_deviation(d2, 1)) + disp(st_deviation(z2, 1)) + + disp(st_deviation(d0, 2)) + disp(st_deviation(z0, 2)) + disp(st_deviation(d2, 2)) + disp(st_deviation(z2, 2)) + +// disp(st_deviation(d0, 'r')) +// disp(st_deviation(z0, 'r')) +// disp(st_deviation(d2, 'r')) +// disp(st_deviation(z2, 'r')) + +// disp(st_deviation(d0, 'c')) +// disp(st_deviation(z0, 'c')) +// disp(st_deviation(d2, 'c')) +// disp(st_deviation(z2, 'c')) +endfunction diff --git a/tests/unit_tests/test_double_sum.sci b/tests/unit_tests/test_double_sum.sci new file mode 100644 index 00000000..11beb8b7 --- /dev/null +++ b/tests/unit_tests/test_double_sum.sci @@ -0,0 +1,31 @@ +function test_double_sum() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(sum(d0)) + disp(sum(z0)) + disp(sum(d2)) + disp(sum(z2)) + + disp(sum(d0, 1)) + disp(sum(z0, 1)) + disp(sum(d2, 1)) + disp(sum(z2, 1)) + + disp(sum(d0, 2)) + disp(sum(z0, 2)) + disp(sum(d2, 2)) + disp(sum(z2, 2)) + +// disp(sum(d0, 'r')) +// disp(sum(z0, 'r')) +// disp(sum(d2, 'r')) +// disp(sum(z2, 'r')) + +// disp(sum(d0, 'c')) +// disp(sum(z0, 'c')) +// disp(sum(d2, 'c')) +// disp(sum(z2, 'c')) +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_tanh.sci b/tests/unit_tests/test_double_tanh.sci new file mode 100644 index 00000000..bf1a8a73 --- /dev/null +++ b/tests/unit_tests/test_double_tanh.sci @@ -0,0 +1,11 @@ +function test_double_tanh() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + tanh(d0); + tanh(d2); + tanh(z0); + tanh(z2); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/test_double_variance.sci b/tests/unit_tests/test_double_variance.sci new file mode 100644 index 00000000..cafe17b5 --- /dev/null +++ b/tests/unit_tests/test_double_variance.sci @@ -0,0 +1,31 @@ +function test_double_variance() + d0 = 0.2113249 + d2 = [0.2113249 0.0002211 0.6653811;0.7560439 0.4453586 0.6283918] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + //disp(variance(d0)) + //disp(variance(z0)) + disp(variance(d2)) + disp(variance(z2)) + + //disp(variance(d0, 1)) + //disp(variance(z0, 1)) + disp(variance(d2, 1)) + disp(variance(z2, 1)) + + //disp(variance(d0, 2)) + //disp(variance(z0, 2)) + disp(variance(d2, 2)) + disp(variance(z2, 2)) + +// disp(variance(d0, 'r')) +// disp(variance(z0, 'r')) +// disp(variance(d2, 'r')) +// disp(variance(z2, 'r')) + +// disp(variance(d0, 'c')) +// disp(variance(z0, 'c')) +// disp(variance(d2, 'c')) +// disp(variance(z2, 'c')) +endfunction diff --git a/tests/unit_tests/test_double_zeros.sci b/tests/unit_tests/test_double_zeros.sci new file mode 100644 index 00000000..37045a9e --- /dev/null +++ b/tests/unit_tests/test_double_zeros.sci @@ -0,0 +1,14 @@ +function test_double_zeros() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(zeros(d0)) + disp(zeros(z0)) + disp(zeros(d2)) + disp(zeros(z2)) + //disp(zeros(0,0)) // ! sci2c does not manage [] ! + disp(zeros(1,1)) + disp(zeros(d0,d0)) +endfunction
\ No newline at end of file |