update-velocity ( other-body body dt -- )

Vocabulary

benchmark.nbody

Inputs

other-body	an object
body	an object
dt	an object

Outputs

None

Definition

USING: accessors kernel math math.vectors ;

IN: benchmark.nbody

:: update-velocity ( other-body body dt -- )
    dt body other-body mag [
        [ body ] 2dip
        '[ other-body mass>> _ * _ n*v v- ] change-velocity drop
    ] [
        [ other-body ] 2dip
        '[ body mass>> _ * _ n*v v+ ] change-velocity drop
    ] 2bi ;