polynomial :: Tetrahedron -> (RealFunction Point)
polynomial t =
V.sum $ V.singleton ((c t 0 0 0 3) `cmult` (beta t 0 0 0 3)) `V.snoc`
polynomial :: Tetrahedron -> (RealFunction Point)
polynomial t =
V.sum $ V.singleton ((c t 0 0 0 3) `cmult` (beta t 0 0 0 3)) `V.snoc`