restore tests from operations module
[scilab.git] / scilab / modules / ast / tests / unit_tests / kron.dia.ref
1 // ============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2012 - DIGITEO - Antoine ELIAS
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // ============================================================================
7 // <-- JVM NOT MANDATORY -->
8 r = 2;
9 R = [1,2;3,4];
10 c = 1 + 2*%i;
11 C = [1+2*%i,2+4*%i;3+6*%i,4+8*%i];
12 // double .*. double
13 //r .*. r
14 assert_checkequal(r .*. r, 4);
15 //r .*. c
16 assert_checkequal(r .*. c, 2+4*%i);
17 //c .*. r
18 assert_checkequal(c .*. r, 2+4*%i);
19 //c .*. c
20 assert_checkequal(c .*. c, -3+4*%i);
21 // double .*. DOUBLE
22 //r .*. R
23 assert_checkequal(r .*. R, [2,4;6,8]);
24 //r .*. C
25 assert_checkequal(r .*. C, [2+4*%i,4+8*%i;6+12*%i,8+16*%i]);
26 //c .*. R
27 assert_checkequal(c .*. R, [1+2*%i,2+4*%i;3+6*%i,4+8*%i]);
28 //c .*. C
29 assert_checkequal(c .*. C, [-3+4*%i,-6+8*%i;-9+12*%i,-12+16*%i]);
30 // DOUBLE .*. double
31 //R .*. r
32 assert_checkequal(R .*.r, [2,4;6,8]);
33 //R .*. c
34 assert_checkequal(R .*.c, [1+2*%i,2+4*%i;3+6*%i,4+8*%i]);
35 //C .*. r
36 assert_checkequal(C .*.r, [2+4*%i,4+8*%i;6+12*%i,8+16*%i]);
37 //C .*. c
38 assert_checkequal(C .*.c, [-3+4*%i,-6+8*%i;-9+12*%i,-12+16*%i]);
39 // DOUBLE .*. DOUBLE
40 //R .*. R
41 assert_checkequal(R .*. R, [1,2,2,4;3,4,6,8;3,6,4,8;9,12,12,16]);
42 //R .*. C
43 assert_checkequal(R .*. C, [1+2*%i,2+4*%i,2+4*%i,4+8*%i;3+6*%i,4+8*%i,6+12*%i,8+16*%i;3+6*%i,6+12*%i,4+8*%i,8+16*%i;9+18*%i,12+24*%i,12+24*%i,16+32*%i]);
44 //C .*. R
45 assert_checkequal(C .*. R, [1+2*%i,2+4*%i,2+4*%i,4+8*%i;3+6*%i,4+8*%i,6+12*%i,8+16*%i;3+6*%i,6+12*%i,4+8*%i,8+16*%i;9+18*%i,12+24*%i,12+24*%i,16+32*%i]);
46 //C .*. C
47 assert_checkequal(C .*. C, [-3+4*%i,-6+8*%i,-6+8*%i,-12+16*%i;-9+12*%i,-12+16*%i,-18+24*%i,-24+32*%i;-9+12*%i,-18+24*%i,-12+16*%i,-24+32*%i;-27+36*%i,-36+48*%i,-36+48*%i,-48+64*%i]);