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

unique limexp behaviour

This commit is contained in:
dwarning 2007-07-23 17:24:14 +00:00
parent 5ea58f9f05
commit 00ad16b464
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/spicelib/devices/adms/admst/ngspiceMODULEdefs.h.xml
View File

@ -3,7 +3,10 @@
<!--
$Id$
$Log$
Revision 1.13 2007-07-05 10:20:47 r29173
Revision 1.14 2007-07-23 17:24:14 dwarning
unique limexp behaviour
Revision 1.13 2007/07/05 10:20:47 r29173
added declaration of noise variables
Revision 1.12 2007/05/11 07:19:57 r29173
@ -218,8 +221,8 @@ if(isinf(var)) \\
#define _dx_div(dx,xy,x,y)
#define _dy_div(dy,dx,xy,x,y) dy = -xy*dx;
#define _limexp(val,arg) val = ((arg)&lt;(80)) ? (exp(arg)) : (exp(80)*(1.0+(arg-80)));
#define _d_limexp(val,dval,arg) val = ((arg)&lt;(80)) ? (exp(arg)) : (exp(80)*(1.0+(arg-80))); dval = val;
#define _limexp(val,arg) val = ((arg)&lt;(90)) ? (exp(arg)) : (exp(90)*(1.0+(arg-90)));
#define _d_limexp(val,dval,arg) val = ((arg)&lt;(90)) ? (exp(arg)) : (exp(90)*(1.0+(arg-90))); dval = val;
#define _fabs(val,arg) val = fabs(arg);
#define _d_fabs(val,dval,arg) val = fabs(arg); dval = (((val)&gt;=0)?(+1.0):(-1.0));
#define _abs(val) ((val)&lt;(0) ? (-(val)):(val))