Data.Array.Accelerate.Linear.Vector

Operations on free vector spaces

Documentation

>>> import Linear.V2
>>> import Data.Array.Accelerate.Linear.V2 ()
>>> import Data.Array.Accelerate.Interpreter
>>> :{
  let test :: Elt e => Exp e -> e
      test e = indexArray (run (unit e)) Z
:}

class Additive f => Additive f where

A vector is an additive group with additional structure.

TODO: Support both Exp and Acc

Methods

zero :: (Elt (f a), Num a) => Exp (f a)

The zero vector

(^+^) :: forall a. (Num a, Box f a) => Exp (f a) -> Exp (f a) -> Exp (f a) infixl 6

Compute the sum of two vectors

>>> test $ lift (V2 1 2 :: V2 Int) ^+^ lift (V2 3 4 :: V2 Int)
V2 4 6

(^-^) :: forall a. (Num a, Box f a) => Exp (f a) -> Exp (f a) -> Exp (f a) infixl 6

Compute the difference between two vectors

>>> test $ lift (V2 4 5 :: V2 Int) ^-^ lift (V2 3 1 :: V2 Int)
V2 1 4

lerp :: forall a. (Num a, Box f a) => Exp a -> Exp (f a) -> Exp (f a) -> Exp (f a)

Linearly interpolate between two vectors

newtype E t

Basis element

Constructors

E

Fields

• el :: forall a. (Elt a, Box t a) => Lens' (Exp (t a)) (Exp a)

negated :: forall f a. (Functor f, Num a, Box f a) => Exp (f a) -> Exp (f a)

Compute the negation of a vector

>>> test $ negated (lift (V2 2 4 :: V2 Int))
V2 (-2) (-4)

(*^) :: forall f a. (Functor f, Num a, Box f a) => Exp a -> Exp (f a) -> Exp (f a) infixl 7

Compute the left scalar product

>>> test $ 2 *^ lift (V2 3 4 :: V2 Int)
V2 6 8

(^*) :: forall f a. (Functor f, Num a, Box f a) => Exp (f a) -> Exp a -> Exp (f a) infixl 7

Compute the right scalar product

>>> test $ lift (V2 3 4 :: V2 Int) ^* 2
V2 6 8

(^/) :: forall f a. (Functor f, Fractional a, Box f a) => Exp (f a) -> Exp a -> Exp (f a) infixl 7

Compute division by a scalar on the right

>>> test $ lift (V2 4 6 :: V2 Double) ^/ 2
V2 2.0 3.0

(/^) :: forall f a. (Functor f, Fractional a, Box f a) => Exp a -> Exp (f a) -> Exp (f a) infixl 7

Compute division of a scalar on the left

>>> test $ 4 /^ lift (V2 2 4 :: V2 Double)
V2 2.0 1.0

(+^) :: forall f a. (Functor f, Num a, Box f a) => Exp a -> Exp (f a) -> Exp (f a) infixl 6

Addition with a scalar on the left

>>> test $ 2 +^ lift (V2 3 4 :: V2 Int)
V2 5 6

(^+) :: forall f a. (Functor f, Num a, Box f a) => Exp (f a) -> Exp a -> Exp (f a) infixl 6

Addition with a scalar on the right

>>> test $ lift (V2 1 2 :: V2 Int) ^+ 3
V2 4 5

(-^) :: forall f a. (Functor f, Num a, Box f a) => Exp a -> Exp (f a) -> Exp (f a) infixl 6

Subtraction with a scalar on the left

>>> test $ 2 -^ lift (V2 3 4 :: V2 Int)
V2 (-1) (-2)

(^-) :: forall f a. (Functor f, Num a, Box f a) => Exp (f a) -> Exp a -> Exp (f a) infixl 6

Subtraction with a scalar on the right

>>> test $ lift (V2 1 2 :: V2 Int) ^- 3
V2 (-2) (-1)