mag ( dt body other-body -- mag d )

Vocabulary

benchmark.nbody

Inputs

dt	an object
body	an object
other-body	an object

Outputs

mag	an object
d	an object

Definition

USING: accessors kernel math math.functions math.vectors ;

IN: benchmark.nbody

: mag ( dt body other-body -- mag d )
    [ location>> ] bi@ v- [ norm-sq dup sqrt * / ] keep ; inline