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

Vocabulary

picomath

Inputs

x

an object

Outputs

value

an object

Definition

USING: kernel math math.functions ;

IN: picomath

:: 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 ;