Rebound3.hs

module Graphics.Implicit.Export.Symbolic.Rebound3 (rebound3) where

import Graphics.Implicit.Definitions
import Data.VectorSpace

rebound3 :: BoxedObj3 -> BoxedObj3
rebound3 (obj, (a,b)) = 
    let
        d :: ℝ3
        d = (b ^-^ a) ^/ 10
    in 
        (obj, ((a ^-^ d), (b ^+^ d)))