28 lines
788 B
Haskell
28 lines
788 B
Haskell
|
{-# OPTIONS_HADDOCK ignore-exports #-}
|
||
|
|
|
||
|
|
module LinearAlgebra.Vector where
|
||
|
|
|
||
|
|
import Data.Vector.Class
|
||
|
|
|
||
|
|
|
||
|
|
type Angle = Double
|
||
|
|
|
||
|
|
|
||
|
|
-- |Checks whether the Coordinates are in a given dimension.
|
||
|
|
inRange :: (Double, Double) -- ^ X dimension
|
||
|
|
-> (Double, Double) -- ^ Y dimension
|
||
|
|
-> (Double, Double) -- ^ Coordinates
|
||
|
|
-> Bool -- ^ result
|
||
|
|
inRange (xlD, xuD) (ylD, yuD) (x,y)
|
||
|
|
= x <= xuD && x >= xlD && y <= yuD && y >= ylD
|
||
|
|
|
||
|
|
|
||
|
|
-- |Get the angle between two vectors in degrees.
|
||
|
|
getAngle :: (Vector v) => v -> v -> Angle
|
||
|
|
getAngle a b = (*) 180.0 .
|
||
|
|
flip (/) pi .
|
||
|
|
acos .
|
||
|
|
flip (/) (vmag a * vmag b) .
|
||
|
|
vdot a $
|
||
|
|
b
|