* Bug 15781 fixed: display of complex matrix was ugly
[scilab.git] / scilab / modules / ast / tests / nonreg_tests / bug_15781.tst
1 // Copyright (C) 2019 - St├ęphane MOTTELET
2 //
3 //  This file is distributed under the same license as the Scilab package.
4 // =============================================================================
5 //
6 // <-- CLI SHELL MODE -->
7 //
8 // <-- Non-regression test for bug 15781 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/15781
12 //
13 // <-- Short Description -->
14 // display of complex matrix is ugly.
15
16 n=4
17
18 a=testmatrix("magic",4);
19
20 for f = ["v","e"]
21     format(f)
22     x=complex(cos(a),sin(a));
23     x(3,3)=%nan;
24     x(4,4)=%inf;
25     x(2,1:2)=1+%i;
26     x(:,1)=0;
27     disp(x)
28
29     for i=1:n
30         disp(x(i,:))
31         disp(" ")
32     end
33
34     for i=1:n
35         disp(x(:,i))
36         disp(" ")
37     end
38
39     x=x-x;
40
41     disp(x)
42     disp(" ")
43
44     acoth(-2:0.5:2).'
45 end