tests/unit_tests/test_double_OpLogNot.sci


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

function test_double_OpLogNot()
// test OpLogNot

  disp(~(-2))
  disp(~(0))
  disp(~(3))

  disp(~(0-2*%i))
  disp(~(0+0*%i))
  disp(~(0+3*%i))
  disp(~(3-5*%i))
  disp(~(3+0*%i))
  disp(~(3+6*%i))

  a=[-1 2 3; 0 -1 4; 2 -0 5];

  disp(~(a))

  b=[0+3*%i 2-%i 1 ; 0-2*%i 2+2*%i 1-%i; 0+0*%i 4+0*%i 5-0*%i]

  disp(~(b))

endfunction