^mag ( w abs arg -- magnitude )

Vocabulary

math.functions.private

Inputs

w	an object
abs	an object
arg	an object

Outputs

magnitude

an object

Definition

USING: kernel math math.functions math.libm ;

IN: math.functions.private

: ^mag ( w abs arg -- magnitude )
    [ >float-rect swap ] [ >float swap >float fpow ]
    [ rot * e^ /f ] tri* ; inline