1 // Copyright (C) 2019 - Stéphane MOTTELET
3 // This file is distributed under the same license as the Scilab package.
4 // =============================================================================
6 // <-- CLI SHELL MODE -->
8 // <-- Non-regression test for bug 15781 -->
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/15781
13 // <-- Short Description -->
14 // display of complex matrix is ugly.
18 a=testmatrix("magic",4);
21 x=complex(cos(a),sin(a));
41 0. + 0.i -0.4161468 + 0.9092974i -0.9899925 + 0.14112i
42 0. + 0.i 1. + i -0.8390715 - 0.5440211i
43 0. + 0.i 0.7539023 + 0.6569866i Nan + 0.i
44 0. + 0.i 0.1367372 + 0.9906074i -0.7596879 + 0.6502878i
51 0. + 0.i -0.4161468 + 0.9092974i -0.9899925 + 0.14112i
55 0. + 0.i 1. + i -0.8390715 - 0.5440211i -0.1455 + 0.9893582i
57 0. + 0.i 0.7539023 + 0.6569866i Nan + 0.i 0.843854 - 0.5365729i
60 0. + 0.i 0.1367372 + 0.9906074i -0.7596879 + 0.6502878i
69 -0.4161468 + 0.9092974i
71 0.7539023 + 0.6569866i
72 0.1367372 + 0.9906074i
75 -0.8390715 - 0.5440211i
77 -0.7596879 + 0.6502878i
84 0. + 0.i 0. + 0.i 0. + 0.i 0. + 0.i
85 0. + 0.i 0. + 0.i 0. + 0.i 0. + 0.i
86 0. + 0.i 0. + 0.i Nan + 0.i 0. + 0.i
87 0. + 0.i 0. + 0.i 0. + 0.i Nan + 0.i
93 -0.5493061 - 1.5707963i
95 0.5493061 - 1.5707963i
98 0.5493061 + 3.1415927i
100 0.000D+00 + 0.000D+00i -4.161D-01 + 9.093D-01i
101 0.000D+00 + 0.000D+00i 1.000D+00 + 1.000D+00i
102 0.000D+00 + 0.000D+00i 7.539D-01 + 6.570D-01i
103 0.000D+00 + 0.000D+00i 1.367D-01 + 9.906D-01i
105 -9.900D-01 + 1.411D-01i 9.074D-01 + 4.202D-01i
106 -8.391D-01 - 5.440D-01i -1.455D-01 + 9.894D-01i
107 Nan + 0.000D+00i 8.439D-01 - 5.366D-01i
108 -7.597D-01 + 6.503D-01i Inf + 0.000D+00i
110 0.000D+00 + 0.000D+00i -4.161D-01 + 9.093D-01i
112 -9.900D-01 + 1.411D-01i 9.074D-01 + 4.202D-01i
115 0.000D+00 + 0.000D+00i 1.000D+00 + 1.000D+00i
117 -8.391D-01 - 5.440D-01i -1.455D-01 + 9.894D-01i
120 0.000D+00 + 0.000D+00i 7.539D-01 + 6.570D-01i Nan + 0.000D+00i
122 8.439D-01 - 5.366D-01i
125 0.000D+00 + 0.000D+00i 1.367D-01 + 9.906D-01i
127 -7.597D-01 + 6.503D-01i Inf + 0.000D+00i
134 -4.161D-01 + 9.093D-01i
135 1.000D+00 + 1.000D+00i
136 7.539D-01 + 6.570D-01i
137 1.367D-01 + 9.906D-01i
139 -9.900D-01 + 1.411D-01i
140 -8.391D-01 - 5.440D-01i
142 -7.597D-01 + 6.503D-01i
144 9.074D-01 + 4.202D-01i
145 -1.455D-01 + 9.894D-01i
146 8.439D-01 - 5.366D-01i
150 0.000D+00 + 0.000D+00i 0.000D+00 + 0.000D+00i
151 0.000D+00 + 0.000D+00i 0.000D+00 + 0.000D+00i
152 0.000D+00 + 0.000D+00i 0.000D+00 + 0.000D+00i
153 0.000D+00 + 0.000D+00i 0.000D+00 + 0.000D+00i
155 0.000D+00 + 0.000D+00i 0.000D+00 + 0.000D+00i
156 0.000D+00 + 0.000D+00i 0.000D+00 + 0.000D+00i
157 Nan + 0.000D+00i 0.000D+00 + 0.000D+00i
158 0.000D+00 + 0.000D+00i Nan + 0.000D+00i
161 -5.493D-01 + 0.000D+00i
162 -8.047D-01 + 0.000D+00i
164 -5.493D-01 - 1.571D+00i
165 0.000D+00 - 1.571D+00i
166 5.493D-01 - 1.571D+00i
168 8.047D-01 + 3.142D+00i
169 5.493D-01 + 3.142D+00i
171 a= [0,0,%i*0.6795197,0.7161007+%i*0.3997826,0
173 0,0.2629713,0,0,0.4505416
174 0,%i*0.8173032,0.529842,0,%i*0.8558751
175 0,0,0,0.7481516,%i*0.2598704
176 0,0.3402197+%i*0.3631865,0,0,0
177 0,%i*0.8686947,%i*0.0844358,0.9883794,0
179 0,0.6540791,0.6892145+%i*0.3462334,0,0
183 0. + 0.i 0. + 0.i 0. + 0.6795197i
184 0. + 0.i 0. + 0.977002i 0. + 0.i
185 0. + 0.i 0.2629713 + 0.i 0. + 0.i
186 0. + 0.i 0. + 0.8173032i 0.529842 + 0.i
187 0. + 0.i 0. + 0.i 0. + 0.i
188 0. + 0.i 0.3402197 + 0.3631865i 0. + 0.i
189 0. + 0.i 0. + 0.8686947i 0. + 0.0844358i
190 0. + 0.i 0. + 0.i 0. + 0.i
191 0. + 0.i 0.6540791 + 0.i 0.6892145 + 0.3462334i
192 0. + 0.i 0. + 0.i 0. + 0.i
194 0.7161007 + 0.3997826i 0. + 0.i
196 0. + 0.i 0.4505416 + 0.i
197 0. + 0.i 0. + 0.8558751i
198 0.7481516 + 0.i 0. + 0.2598704i
200 0.9883794 + 0.i 0. + 0.i
203 0. + 0.i 0.7204935 + 0.i