expm1 ( x -- value )


Vocabulary
picomath

Inputs
xan object


Outputs
valuean object


Definition


:: expm1 ( x -- value )
x abs 0.00001 < [ x sq 0.5 * x + ] [ x e^ 1.0 - ] if ;