From: Michael Orlitzky <michael@orlitzky.com>
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)