~rel ( x y epsilon -- ? )

Vocabulary

math.functions

Inputs

x	an object
y	an object
epsilon	an object

Outputs

?

an object

Definition

USING: kernel math ;

IN: math.functions

: ~rel ( x y epsilon -- ? )
    [ [ - abs ] 2keep [ abs ] bi@ + ] dip * <= ;