1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2011 - DIGITEO - Michael Baudin
4 // Copyright (C) 2020 - Samuel GOUGEON
6 // This file is distributed under the same license as the Scilab package.
7 // =============================================================================
9 // <-- CLI SHELL MODE -->
10 // <-- NO CHECK REF -->
13 assert_checkequal([real(c);imag(c)],[1;0]);
16 assert_checkequal([real(c);imag(c)],[1;2]);
19 assert_checkequal([real(c);imag(c)],[1 2;0 0]);
21 c = complex([1 2 3], 4);
22 assert_checkequal([real(c);imag(c)],[1 2 3;4 4 4]);
24 c = complex(1, [2 3 4]);
25 assert_checkequal([real(c);imag(c)],[1 1 1;2 3 4]);
27 c = complex([1 2],[3 4]);
28 assert_checkequal([real(c);imag(c)],[1 2;3 4]);
30 L = list(1, [1 2], sparse(1), sparse([1 2]), %t, [%f %t], sparse(%t), sparse([%f %t]));
32 assert_checkequal(issparse(complex(Re)), issparse(Re));
34 if ~issparse(Re) & ~issparse(Im)
38 ref = and(size(Re)==size(Im)) && issparse(Re) && issparse(Im)
39 assert_checkequal(issparse(c), ref);
45 g = [-%inf 0 1 %inf %nan];
46 // Generating all possible (rel, imag) combinations:
51 assert_checkequal(real(c), r);
52 assert_checkequal(imag(c), i);
57 assert_checkequal(real(c), r);
58 assert_checkequal(imag(c), i);