luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

xpressn.c: add domain check for acosh, atanh replacement functions

This commit is contained in:
h_vogt 2013-10-09 21:39:50 +02:00 committed by rlar
parent 2f508696a6
commit 3fae8e0ba9
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/frontend/numparam/xpressn.c
View File

@ -194,14 +194,22 @@ mathfunction(int f, double z, double x)
#ifdef HAVE_ACOSH
y = acosh(x);
#else
y = (log(x + sqrt(x*x-1.0)));
/* domain check (HUGE_VAL like gnu libc) */
if (x < 1.)
y = HUGE_VAL;
else
y = (log(x + sqrt(x*x-1.0)));
#endif
break;
case 33:
#ifdef HAVE_ATANH
y = atanh(x);
#else
y = (log((1.0 + x) / (1.0 - x)) / 2.0);
/* domain check (HUGE_VAL like gnu libc) */
if (fabs(x) >= 1.)
y = HUGE_VAL;
else
y = (log((1.0 + x) / (1.0 - x)) / 2.0);
#endif
break;
case 34: