scilab/modules/ast/tests/unit_tests/or.dia.ref

   1 // ============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2014 - Scilab Enterprises - Antoine ELIAS
   4 //
   5 //  This file is distributed under the same license as the Scilab package.
   6 // ============================================================================
   7 //
   8 // <-- CLI SHELL MODE -->
   9 empty = [];
  10 r = 2;
  11 R = [1,2;3,4];
  12 R3(:,:,1) = R;
  13 R3(:,:,2) = R';
  14 c = 1 + 2*%i;
  15 C = [1+2*%i,2+4*%i;3+6*%i,4+8*%i];
  16 C3(:,:,1) = C;
  17 C3(:,:,2) = C';
  18 e = eye();
  19 ec = (5+%i) * eye();
  20 p = 1 + %s - %s**2;
  21 pc = 1 + %s - %s**2 + ( 2 - 3 * %s + 4 * %s**2 ) * %i;
  22 P = [2*p, -3*p;4*p,-5*p];
  23 PC = [2*pc, -3*pc;4*pc,-5*pc];
  24 SP = sparse([1,2;4,5;3,10],[1,2,3]);
  25 SPC = sparse([1,2;4,5;3,10],[1,2,3]) * ( 1 + 4*%i);
  26 SPB = sparse([1,2;2,1],[%t;%t],[2,2]);
  27 i8 = int8(-8);
  28 ui8 = uint8(8);
  29 I8 = int8([-8 -16 ; -24 -32]);
  30 UI8 = uint8([8 16 ; 24 32]);
  31 I16 = int16([-16 -32 ; -48 -64]);
  32 UI16 = uint16([16 32 ; 48 64]);
  33 i16 = int16(-16);
  34 ui16 = uint16(16);
  35 i32 = int32(-32);
  36 ui32 = uint32(32);
  37 I32 = int32([-32 -64 ; -96 -128]);
  38 UI32 = uint32([32 64 ; 96 128]);
  39 str = "string";
  40 STR = ["string1" "string2";"string3" "string4"];
  41 b = %f;
  42 B = [%t %f;%f %t];
  43 assert_checkequal(empty | empty, []);
  44 assert_checkequal(empty | r, []);
  45 assert_checkequal(empty | R, []);
  46 assert_checkequal(empty | e, []);
  47 assert_checkequal(empty | b, %t);
  48 assert_checkequal(empty | B, [%t %t;%t %t]);
  49 assert_checkequal(r | empty, []);
  50 assert_checkequal(r | r, %t);
  51 assert_checkequal(r | R, [%t,%t;%t,%t]);
  52 assert_checkequal(r | e, %t);
  53 assert_checkequal(r | b, %t);
  54 assert_checkequal(r | B, [%t,%t;%t,%t]);
  55 assert_checkequal(R | empty, []);
  56 assert_checkequal(R | r, [%t,%t;%t,%t]);
  57 assert_checkequal(R | R, [%t,%t;%t,%t]);
  58 assert_checkequal(R | e, [%t,%t;%t,%t]);
  59 assert_checkequal(R | b, [%t,%t;%t,%t]);
  60 assert_checkequal(R | B, [%t,%t;%t,%t]);
  61 assert_checkequal(e | empty, []);
  62 assert_checkequal(e | r, %t);
  63 assert_checkequal(e | R, [%t,%t;%t,%t]);
  64 assert_checkequal(e | b, %t);
  65 assert_checkequal(e | B, [%t,%t;%t,%t]);
  66 assert_checkequal(b | empty, %t);
  67 assert_checkequal(b | r, %t);
  68 assert_checkequal(b | R, [%t,%t;%t,%t]);
  69 assert_checkequal(b | e, %t);
  70 assert_checkequal(b | b, %f);
  71 assert_checkequal(b | B, [%t,%f;%f,%t]);
  72 assert_checkequal(b | SPB, sparse([1,2;2,1],[%t;%t],[2,2]));
  73 assert_checkequal(B | empty, [%t,%t;%t,%t]);
  74 assert_checkequal(B | r, [%t,%t;%t,%t]);
  75 assert_checkequal(B | R, [%t,%t;%t,%t]);
  76 assert_checkequal(B | e, [%t,%t;%t,%t]);
  77 assert_checkequal(B | b, [%t,%f;%f,%t]);
  78 assert_checkequal(B | B, [%t,%f;%f,%t]);
  79 assert_checkequal(B | SPB, sparse([1,1;1,2;2,1;2,2],[%t;%t;%t;%t],[2,2]));
  80 assert_checkequal(SPB | b, sparse([1,2;2,1],[%t;%t],[2,2]));
  81 assert_checkequal(SPB | B, sparse([1,1;1,2;2,1;2,2],[%t;%t;%t;%t],[2,2]));
  82 assert_checkequal(SPB | SPB, sparse([1,2;2,1],[%t;%t],[2,2]));