log-one-plus-x ( x -- value )


Vocabulary
picomath

Inputs
xan object


Outputs
valuean object


Definition


:: log-one-plus-x ( x -- value )
x -1.0 <= [ "argument must be > -1" throw ] when
x abs 0.0001 > [ 1.0 x + log ] [ -0.5 x * 1.0 + x * ] if ;