Fix a bug in the relative error.

[numerical-analysis.git] / src / Naturals.hs

diff --git a/src/Naturals.hs b/src/Naturals.hs
index 7779cdf74a74ee4413e93b7677c8cf797f84177f..dbc8a37fbc82e8998e251043459a5c6b2715d787 100644 (file)
--- a/src/Naturals.hs
+++ b/src/Naturals.hs
@@ -15,7 +15,51 @@ module Naturals (
   N17,
   N18,
   N19,
-  N20 )
+  N20,
+  N21,
+  N22,
+  N23,
+  N24,
+  N25,
+  N26,
+  N27,
+  N28,
+  N29,
+  N30,
+  N31,
+  N32,
+  N33,
+  N34,
+  N35,
+  N36,
+  N37,
+  N38,
+  N39,
+  N40,
+  N41,
+  N42,
+  N43,
+  N44,
+  N45,
+  N46,
+  N47,
+  N48,
+  N49,
+  N50,
+  N51,
+  N52,
+  N53,
+  N54,
+  N55,
+  N56,
+  N57,
+  N58,
+  N59,
+  N60,
+  N61,
+  N62,
+  N63,
+  N64 )
 where
 
 import Data.Vector.Fixed ( N1, N2, N3, N4, N5, N6, S, Z )
@@ -34,3 +78,47 @@ type N17 = S N16
 type N18 = S N17
 type N19 = S N18
 type N20 = S N19
+type N21 = S N20
+type N22 = S N21
+type N23 = S N22
+type N24 = S N23
+type N25 = S N24
+type N26 = S N25
+type N27 = S N26
+type N28 = S N27
+type N29 = S N28
+type N30 = S N29
+type N31 = S N30
+type N32 = S N31
+type N33 = S N32
+type N34 = S N33
+type N35 = S N34
+type N36 = S N35
+type N37 = S N36
+type N38 = S N37
+type N39 = S N38
+type N40 = S N39
+type N41 = S N40
+type N42 = S N41
+type N43 = S N42
+type N44 = S N43
+type N45 = S N44
+type N46 = S N45
+type N47 = S N46
+type N48 = S N47
+type N49 = S N48
+type N50 = S N49
+type N51 = S N50
+type N52 = S N51
+type N53 = S N52
+type N54 = S N53
+type N55 = S N54
+type N56 = S N55
+type N57 = S N56
+type N58 = S N57
+type N59 = S N58
+type N60 = S N59
+type N61 = S N60
+type N62 = S N61
+type N63 = S N62
+type N64 = S N63