-- values of the function at the grid points, which are distance h=1
-- from one another in each direction (x,y,z).
--
-data Grid = Grid { function_values :: Values3D }
- deriving (Show)
+newtype Grid = Grid { function_values :: Values3D }
+ deriving (Show)
instance Arbitrary Grid where