Mercurial > hg > octave-lyh

comparison src/quad.cc @ 2800:9aeba8e006a4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-03-09 09:50:20 by jwe]
author jwe
date Sun, 09 Mar 1997 09:50:39 +0000
parents f81117f4754d
children bca5fbab2e52
comparison
equal deleted inserted replaced
2799:d77a29e4387f 2800:9aeba8e006a4
143 } 143 }
144 144
145 int indefinite = 0; 145 int indefinite = 0;
146 IndefQuad::IntegralType indef_type = IndefQuad::doubly_infinite; 146 IndefQuad::IntegralType indef_type = IndefQuad::doubly_infinite;
147 double bound = 0.0; 147 double bound = 0.0;
148 if ((int) xisinf (a) && (int) xisinf (b)) 148 if (xisinf (a) && xisinf (b))
149 { 149 {
150 indefinite = 1; 150 indefinite = 1;
151 indef_type = IndefQuad::doubly_infinite; 151 indef_type = IndefQuad::doubly_infinite;
152 } 152 }
153 else if ((int) xisinf (a)) 153 else if (xisinf (a))
154 { 154 {
155 indefinite = 1; 155 indefinite = 1;
156 bound = b; 156 bound = b;
157 indef_type = IndefQuad::neg_inf_to_bound; 157 indef_type = IndefQuad::neg_inf_to_bound;
158 } 158 }
159 else if ((int) xisinf (b)) 159 else if (xisinf (b))
160 { 160 {
161 indefinite = 1; 161 indefinite = 1;
162 bound = a; 162 bound = a;
163 indef_type = IndefQuad::bound_to_inf; 163 indef_type = IndefQuad::bound_to_inf;
164 } 164 }