-- | In fact, since all of the tetrahedra are identical, we should
-- already know their volumes. There's 24 tetrahedra to a cube, so
-- we'd expect the volume of each one to be (1/24)*h^3.
-prop_all_volumes_exact :: Cube -> Bool
-prop_all_volumes_exact c =
- volume t ~= (1/24)*(delta^(3::Int))
+prop_tetrahedron0_volumes_exact :: Cube -> Bool
+prop_tetrahedron0_volumes_exact c =
+ volume (tetrahedron0 c) ~= (1/24)*(delta^(3::Int))
+ where
+ delta = h c
+
+-- | In fact, since all of the tetrahedra are identical, we should
+-- already know their volumes. There's 24 tetrahedra to a cube, so
+-- we'd expect the volume of each one to be (1/24)*h^3.
+prop_tetrahedron1_volumes_exact :: Cube -> Bool
+prop_tetrahedron1_volumes_exact c =
+ volume (tetrahedron1 c) ~= (1/24)*(delta^(3::Int))
+ where
+ delta = h c
+
+-- | In fact, since all of the tetrahedra are identical, we should
+-- already know their volumes. There's 24 tetrahedra to a cube, so
+-- we'd expect the volume of each one to be (1/24)*h^3.
+prop_tetrahedron2_volumes_exact :: Cube -> Bool
+prop_tetrahedron2_volumes_exact c =
+ volume (tetrahedron2 c) ~= (1/24)*(delta^(3::Int))
+ where
+ delta = h c
+
+-- | In fact, since all of the tetrahedra are identical, we should
+-- already know their volumes. There's 24 tetrahedra to a cube, so
+-- we'd expect the volume of each one to be (1/24)*h^3.
+prop_tetrahedron3_volumes_exact :: Cube -> Bool
+prop_tetrahedron3_volumes_exact c =
+ volume (tetrahedron3 c) ~= (1/24)*(delta^(3::Int))
+ where
+ delta = h c
+
+-- | In fact, since all of the tetrahedra are identical, we should
+-- already know their volumes. There's 24 tetrahedra to a cube, so
+-- we'd expect the volume of each one to be (1/24)*h^3.
+prop_tetrahedron4_volumes_exact :: Cube -> Bool
+prop_tetrahedron4_volumes_exact c =
+ volume (tetrahedron4 c) ~= (1/24)*(delta^(3::Int))
+ where
+ delta = h c
+
+-- | In fact, since all of the tetrahedra are identical, we should
+-- already know their volumes. There's 24 tetrahedra to a cube, so
+-- we'd expect the volume of each one to be (1/24)*h^3.
+prop_tetrahedron5_volumes_exact :: Cube -> Bool
+prop_tetrahedron5_volumes_exact c =
+ volume (tetrahedron5 c) ~= (1/24)*(delta^(3::Int))
+ where
+ delta = h c
+
+-- | In fact, since all of the tetrahedra are identical, we should
+-- already know their volumes. There's 24 tetrahedra to a cube, so
+-- we'd expect the volume of each one to be (1/24)*h^3.
+prop_tetrahedron6_volumes_exact :: Cube -> Bool
+prop_tetrahedron6_volumes_exact c =
+ volume (tetrahedron6 c) ~= (1/24)*(delta^(3::Int))
+ where
+ delta = h c
+
+-- | In fact, since all of the tetrahedra are identical, we should
+-- already know their volumes. There's 24 tetrahedra to a cube, so
+-- we'd expect the volume of each one to be (1/24)*h^3.
+prop_tetrahedron7_volumes_exact :: Cube -> Bool
+prop_tetrahedron7_volumes_exact c =
+ volume (tetrahedron7 c) ~= (1/24)*(delta^(3::Int))
where
- t = head $ tetrahedrons c
delta = h c
-- | All tetrahedron should have their v0 located at the center of the cube.
prop_tetrahedron7_volumes_positive :: Cube -> Bool
prop_tetrahedron7_volumes_positive c =
volume (tetrahedron7 c) > 0
+
+-- | This pretty much repeats the prop_all_volumes_positive property,
+-- but will let me know which tetrahedrons's vertices are disoriented.
+prop_tetrahedron8_volumes_positive :: Cube -> Bool
+prop_tetrahedron8_volumes_positive c =
+ volume (tetrahedron8 c) > 0
+
+-- | This pretty much repeats the prop_all_volumes_positive property,
+-- but will let me know which tetrahedrons's vertices are disoriented.
+prop_tetrahedron9_volumes_positive :: Cube -> Bool
+prop_tetrahedron9_volumes_positive c =
+ volume (tetrahedron9 c) > 0
+
+-- | This pretty much repeats the prop_all_volumes_positive property,
+-- but will let me know which tetrahedrons's vertices are disoriented.
+prop_tetrahedron10_volumes_positive :: Cube -> Bool
+prop_tetrahedron10_volumes_positive c =
+ volume (tetrahedron10 c) > 0
+
+-- | This pretty much repeats the prop_all_volumes_positive property,
+-- but will let me know which tetrahedrons's vertices are disoriented.
+prop_tetrahedron11_volumes_positive :: Cube -> Bool
+prop_tetrahedron11_volumes_positive c =
+ volume (tetrahedron11 c) > 0
+
+-- | This pretty much repeats the prop_all_volumes_positive property,
+-- but will let me know which tetrahedrons's vertices are disoriented.
+prop_tetrahedron12_volumes_positive :: Cube -> Bool
+prop_tetrahedron12_volumes_positive c =
+ volume (tetrahedron12 c) > 0
+
+-- | This pretty much repeats the prop_all_volumes_positive property,
+-- but will let me know which tetrahedrons's vertices are disoriented.
+prop_tetrahedron13_volumes_positive :: Cube -> Bool
+prop_tetrahedron13_volumes_positive c =
+ volume (tetrahedron13 c) > 0
+
+-- | This pretty much repeats the prop_all_volumes_positive property,
+-- but will let me know which tetrahedrons's vertices are disoriented.
+prop_tetrahedron14_volumes_positive :: Cube -> Bool
+prop_tetrahedron14_volumes_positive c =
+ volume (tetrahedron14 c) > 0
+
+-- | This pretty much repeats the prop_all_volumes_positive property,
+-- but will let me know which tetrahedrons's vertices are disoriented.
+prop_tetrahedron15_volumes_positive :: Cube -> Bool
+prop_tetrahedron15_volumes_positive c =
+ volume (tetrahedron15 c) > 0