X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FExamples.hs;h=4354ea67ae08dfc961a0cb599d1a199dc16e374d;hb=956d7b199353aa7d2a2d2fd440eed7ca568e9e6a;hp=62d4a00e83b4d6dec627159c49edc362c60e618b;hpb=58a5cb3570198ee1d604288f511ee02d4fc083d4;p=spline3.git

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)