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]);