import Data.Maybe (fromJust)
import Test.HUnit
-import Test.QuickCheck
import Assertions
import Comparisons
import Tetrahedron
-instance Arbitrary Grid where
- arbitrary = do
- (Positive h') <- arbitrary :: Gen (Positive Double)
- fvs <- arbitrary :: Gen [[[Double]]]
- return (make_grid h' fvs)
-
-
-- | Check the value of c0030 for tetrahedron0 belonging to the
-- cube centered on (1,1,1) with a grid constructed from the
-- trilinear values. See example one in the paper.