diff options
| author | jofret | 2009-06-19 15:24:22 +0000 |
|---|---|---|
| committer | jofret | 2009-06-19 15:24:22 +0000 |
| commit | df3de1f888465b1adeb280647cf453f6c080735a (patch) | |
| tree | 0bb72ec28114416079e45fd9388accb088841522 /tests/unit_tests/test_double_OpStar.sci | |
| parent | 8097a3ab6e7b365908977bbc01bb673821172996 (diff) | |
| download | scilab2c-df3de1f888465b1adeb280647cf453f6c080735a.tar.gz scilab2c-df3de1f888465b1adeb280647cf453f6c080735a.tar.bz2 scilab2c-df3de1f888465b1adeb280647cf453f6c080735a.zip | |
Intensive validation process
Diffstat (limited to 'tests/unit_tests/test_double_OpStar.sci')
| -rw-r--r-- | tests/unit_tests/test_double_OpStar.sci | 51 |
1 files changed, 27 insertions, 24 deletions
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 |