19fe6cf83773fb307c03dcec97d8c4e66ab07142
[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          column 1 to 3
113   - 1.000D+00 + Infi     1.000D+00 + Nani     Inf + Nani  
114     1.000D+00            2.000D+00            3.000D+00   
115          column 4
116     Nan + Nani  
117     4.000D+00   
118 As
119 As  = 
120 (  2,  4) sparse matrix
121 (  1,  1)        - 1.000D+00 + Infi
122 (  1,  2)          1.000D+00 + Nani
123 (  1,  3)          Inf + Nani
124 (  1,  4)          Nan + Nani
125 (  2,  1)          1.000D+00
126 (  2,  2)          2.000D+00
127 (  2,  3)          3.000D+00
128 (  2,  4)          4.000D+00
129 P
130 P  = 
131 Real part
132                                  2       3
133   - 1.000D+00 + 1.000D+00s + Infs  + Nans 
134 Imaginary part
135                      2       3
136     Inf + Nans + Nans  + Nans