Mercurial > hg > octave-nkf

comparison src/mappers.cc @ 1384:083787534e18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-09-13 08:25:37 by jwe]
author jwe
date Wed, 13 Sep 1995 08:32:00 +0000
parents 19c10b8657d5
children 1cff14ab83a4
comparison
equal deleted inserted replaced
1383:d0bdfca51b42 1384:083787534e18
165 #if defined (HAVE_FINITE) 165 #if defined (HAVE_FINITE)
166 return (double) finite (x); 166 return (double) finite (x);
167 #elif defined (HAVE_ISINF) && defined (HAVE_ISNAN) 167 #elif defined (HAVE_ISINF) && defined (HAVE_ISNAN)
168 return (double) (! isinf (x) && ! isnan (x)); 168 return (double) (! isinf (x) && ! isnan (x));
169 #else 169 #else
170 return (double) (x > -DBL_MAX && x < DBL_MAX); 170 return 1;
171 #endif 171 #endif
172 } 172 }
173 173
174 double 174 double
175 xgamma (double x) 175 xgamma (double x)
183 #if defined (HAVE_ISINF) 183 #if defined (HAVE_ISINF)
184 return (double) isinf (x); 184 return (double) isinf (x);
185 #elif defined (HAVE_FINITE) && defined (HAVE_ISNAN) 185 #elif defined (HAVE_FINITE) && defined (HAVE_ISNAN)
186 return (double) (! (finite (x) || isnan (x))); 186 return (double) (! (finite (x) || isnan (x)));
187 #else 187 #else
188 return (double) (x == DBL_MAX || x == -DBL_MAX); 188 return 0;
189 #endif 189 #endif
190 } 190 }
191 191
192 double 192 double
193 xlgamma (double x) 193 xlgamma (double x)