Go to the documentation of this file.
17 return(
makeflt(1.0/(1.0+exp(-x))));}
23 {
double x,u,
s,th1,th2;
27 s=0.5*(1.0+tanh(x/u));
29 else if (
s>th2)
return(
makeflt(th2));
42 while (--
n>=0)
f[
n]+=x;
defun("ADR_TO_STRING", mod, ADR_TO_STRING)
pointer sigmoid(context *ctx, int n, argv)
pointer error(enum errorcode ec,...) pointer error(va_alist) va_dcl
static pointer SIGMOID(context *ctx, int n, argv)
pointer SIGMOIDX(context *ctx, int n, argv)
pointer OFFSET_VECTOR(context *ctx, int n, argv)
euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Jun 15 2023 02:06:43