Product package:lapack

data Product fuse
lapack Numeric.LAPACK.Matrix.Type
product :: (C sh, Floating a) => Vector sh a -> a
lapack Numeric.LAPACK.Vector
QC.forAll (QC.choose (0,10)) $ \dim -> QC.forAll (genVector 3 dim) $ \xs -> approx 1e-2 (Vector.product xs) (List.product (Vector.toList (xs :: Vector Number_)))
tensorProduct :: (C height, Eq height, C width, Eq width, Floating a) => Order -> Vector height a -> Vector width a -> General height width a
lapack Numeric.LAPACK.Matrix
tensorProduct order x y = singleColumn order x #*# singleRow order y
tensorProduct :: (Packing pack, C sh, Floating a) => Order -> Vector sh a -> SymmetricP pack sh a
lapack Numeric.LAPACK.Matrix.Symmetric