expm1 ( x -- value )

Vocabulary

picomath

Inputs

x

an object

Outputs

value

an object

Definition

USING: kernel math math.functions ;

IN: picomath

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