[output_stream] regen dia.ref
[scilab.git] / scilab / modules / output_stream / tests / nonreg_tests / bug_8874.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2011 - INRIA - Serge Steer
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 // <-- Non-regression test for bug 8874 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/show_bug.cgi?id=8874
12 //
13 // <-- ENGLISH IMPOSED -->
14 // <-- Short Description -->
15 // Wrong display of complex numbers with Inf or Nan real or Imaginary
16 // parts
17 setlanguage("en_US");
18 A=[complex(-1,%inf),complex(1,%nan),complex(%inf,%nan),complex(%nan,%nan);
19 1                2               3                  4];
20 As=sparse(A);
21 P=poly(A(1,:),"s","c");
22 format("v")
23 // Check string
24 assert_checkequal(string(complex(0,%inf)),"%i*Inf");
25 assert_checkequal(string(complex(1,%inf)),"1+%i*Inf");
26 assert_checkequal(string(complex(-1,%inf)),"-1+%i*Inf");
27 assert_checkequal(string(complex(1,%nan)),"1+%i*Nan");
28 assert_checkequal(string(complex(%inf,%nan)),"Inf+%i*Nan");
29 assert_checkequal(string(complex(-%inf,%nan)),"-Inf+%i*Nan");
30 assert_checkequal(string(complex(%nan,%nan)),"Nan+%i*Nan");
31 assert_checkequal(string(A),["-1+%i*Inf","1+%i*Nan","Inf+%i*Nan","Nan+%i*Nan";"1","2","3","4"]);
32 //Check display
33 complex(0,%inf)
34  ans  =
35    Infi 
36 complex(1,%inf)
37  ans  =
38    1. + Infi
39 complex(-1,%inf)
40  ans  =
41   -1. + Infi
42 complex(1,%nan)
43  ans  =
44    1. + Nani
45 complex(%inf,%nan)
46  ans  =
47    Inf + Nani
48 complex(-%inf,%nan)
49  ans  =
50   -Inf + Nani
51 complex(%nan,%nan)
52  ans  =
53    Nan + Nani
54 A
55  A  = 
56   -1. + Infi   1. + Nani   Inf + Nani   Nan + Nani
57    1.          2.          3.           4.        
58 As
59  As  = 
60 (  2,  4) sparse matrix
61 (  1,  1)        -1. + Infi
62 (  1,  2)         1. + Nani
63 (  1,  3)         Inf + Nani
64 (  1,  4)         Nan + Nani
65 (  2,  1)         1.
66 (  2,  2)         2.
67 (  2,  3)         3.
68 (  2,  4)         4.
69 P
70  P  = 
71 Real part
72              2      3
73   -1 +s +Infs  +Nans 
74 Imaginary part
75                   2      3
76    Inf +Nans +Nans  +Nans 
77 format("e")
78 // Check string
79 assert_checkequal(string(complex(0,%inf)),"%i*Inf");
80 assert_checkequal(string(complex(1,%inf)),"1.000D+00+%i*Inf");
81 assert_checkequal(string(complex(-1,%inf)),"-1.000D+00+%i*Inf");
82 assert_checkequal(string(complex(1,%nan)),"1.000D+00+%i*Nan");
83 assert_checkequal(string(complex(%inf,%nan)),"Inf+%i*Nan");
84 assert_checkequal(string(complex(-%inf,%nan)),"-Inf+%i*Nan");
85 assert_checkequal(string(complex(%nan,%nan)),"Nan+%i*Nan");
86 assert_checkequal(string(A),["-1.000D+00+%i*Inf","1.000D+00+%i*Nan","Inf+%i*Nan","Nan+%i*Nan";
87 "1.000D+00","2.000D+00","3.000D+00","4.000D+00"]);
88 //Check display
89 complex(0,%inf)
90  ans  =
91    Infi        
92 complex(1,%inf)
93  ans  =
94    1.000D+00 + Infi
95 complex(-1,%inf)
96  ans  =
97   -1.000D+00 + Infi
98 complex(1,%nan)
99  ans  =
100    1.000D+00 + Nani
101 complex(%inf,%nan)
102  ans  =
103    Inf + Nani
104 complex(-%inf,%nan)
105  ans  =
106   -Inf + Nani
107 complex(%nan,%nan)
108  ans  =
109    Nan + Nani
110 A
111  A  = 
112   -1.000D+00 + Infi   1.000D+00 + Nani   Inf + Nani   Nan + Nani
113    1.000D+00          2.000D+00          3.000D+00    4.000D+00 
114 As
115  As  = 
116 (  2,  4) sparse matrix
117 (  1,  1)        -1.000D+00 + Infi
118 (  1,  2)         1.000D+00 + Nani
119 (  1,  3)         Inf + Nani
120 (  1,  4)         Nan + Nani
121 (  2,  1)         1.000D+00
122 (  2,  2)         2.000D+00
123 (  2,  3)         3.000D+00
124 (  2,  4)         4.000D+00
125 P
126  P  = 
127 Real part
128                               2      3
129   -1.000D+00 +1.000D+00s +Infs  +Nans 
130 Imaginary part
131                   2      3
132    Inf +Nans +Nans  +Nans