From: Michael Orlitzky Date: Sun, 28 Aug 2011 01:12:00 +0000 (-0400) Subject: Add another 1x20x1 example vector. X-Git-Tag: 0.0.1~213 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=956d7b199353aa7d2a2d2fd440eed7ca568e9e6a;p=spline3.git Add another 1x20x1 example vector. --- diff --git a/src/Examples.hs b/src/Examples.hs index 62d4a00..4354ea6 100644 --- a/src/Examples.hs +++ b/src/Examples.hs @@ -84,4 +84,18 @@ naturals_list = [ [ [ 0, 1, 2 ], [ 24, 25, 26 ]]] naturals :: Values3D -naturals = Repa.fromList (n_cube 3) $ flatten naturals_list \ No newline at end of file +naturals = Repa.fromList (n_cube 3) $ flatten naturals_list + + + +naturals_1d_list :: [[[Double]]] +naturals_1d_list =[[[1, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20]]] + + +twenty_vector :: Repa.DIM3 +twenty_vector = (Repa.Z Repa.:. 1 Repa.:. 20 Repa.:. 1) + +-- | Used in at least one test where we need a 1x20x1 array. +naturals_1d :: Values3D +naturals_1d = Repa.fromList twenty_vector (flatten naturals_1d_list)