Lots of changes

2022-10-12 15:56:48 +02:00
parent a61f15df44
commit cb2dad39ec
9 changed files with 227 additions and 43 deletions
--- a/lib/Petzval/Types.hs
+++ b/lib/Petzval/Types.hs
@@ -0,0 +1,16 @@
+{-# LANGUAGE FlexibleInstances, UndecidableInstances #-}
+module Petzval.Types(Calcuable) where
+
+import Numeric.AD.Mode
+import Numeric.AD.Mode.Reverse.Double
+import Numeric.AD.Internal.Reverse.Double
+import Data.Reflection (Reifies)
+import Linear(Epsilon(..))
+
+
+class (RealFloat n, Scalar n ~ Double, Epsilon n, Mode n) => Calcuable n
+
+instance (RealFloat n, Scalar n ~ Double, Epsilon n, Mode n) => Calcuable n
+
+instance Reifies s Tape => Epsilon (ReverseDouble s) where
+  nearZero s = abs s <= 1e-12