X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FRoots%2FSimple.hs;h=79750e8d15b9aa2f0091e903b94a17accea9b7b8;hb=3a03a2bdc233f1504764b21149a13162486fc3bf;hp=1ab9034038d996bf5906a985d78ada0eec8e362f;hpb=d87d75d07cc14f8107c852ac7c8b505000d3ae17;p=numerical-analysis.git

diff --git a/src/Roots/Simple.hs b/src/Roots/Simple.hs
index 1ab9034..79750e8 100644
--- a/src/Roots/Simple.hs
+++ b/src/Roots/Simple.hs
@@ -114,6 +114,14 @@ newton_iterations f f' x0 =
 --   >>> abs (f root) < 1/100000
 --   True
 --
+--   >>> import Data.Number.BigFloat
+--   >>> let eps = 1/(10^20) :: BigFloat Prec50
+--   >>> let Just root = newtons_method f f' eps 2
+--   >>> root
+--   1.13472413840151949260544605450647284028100785303643e0
+--   >>> abs (f root) < eps
+--   True
+--
 newtons_method :: (Fractional a, Ord a)
                  => (a -> a) -- ^ The function @f@ whose root we seek
                  -> (a -> a) -- ^ The derivative of @f@