newton's-law ( other-body body -- e )


Vocabulary
benchmark.nbody

Inputs
other-bodyan object
bodyan object


Outputs
ean object


Definition
USING: accessors kernel math math.vectors ;

IN: benchmark.nbody

: newton's-law ( other-body body -- e )
[ [ mass>> ] bi@ * ] [ [ location>> ] bi@ distance ] 2bi / ;