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

ptfuncs.c, drop inaccurate replacements for ashinh() acosh() and atanh()

This commit is contained in:
rlar 2013-12-16 21:32:34 +01:00
parent d225c4f958
commit d146502fc9
1 changed files with 0 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/spicelib/parser/ptfuncs.c
View File

@ -18,10 +18,6 @@ Author: 1987 Wayne A. Christopher, U. C. Berkeley CAD Group
/* XXX These should be in math.h */
#ifndef HAVE_ATANH
extern double asinh(), acosh(), atanh();
#endif
double PTfudge_factor;
#define MODULUS(NUM,LIMIT) ((NUM) - ((int) ((NUM) / (LIMIT))) * (LIMIT))
@ -113,13 +109,7 @@ PTacos(double arg)
double
PTacosh(double arg)
{
#ifdef HAVE_ACOSH
return (acosh(arg));
#else
if (arg < 1.0)
arg = 1.0;
return (log(arg + sqrt(arg*arg-1.0)));
#endif
}
double
@ -131,11 +121,7 @@ PTasin(double arg)
double
PTasinh(double arg)
{
#ifdef HAVE_ASINH
return (asinh(arg));
#else
return log(arg + sqrt(arg * arg + 1.0));
#endif
}
double
@ -147,15 +133,7 @@ PTatan(double arg)
double
PTatanh(double arg)
{
#ifdef HAVE_ATANH
return (atanh(arg));
#else
if (arg < -1.0)
arg = -1.0 + PTfudge_factor + 1e-10;
else if (arg > 1.0)
arg = 1.0 - PTfudge_factor - 1e-10;
return (log((1.0 + arg) / (1.0 - arg)) / 2.0);
#endif
}
double