Skip to content

Instantly share code, notes, and snippets.

@MgaMPKAy

MgaMPKAy/Bisection.hs

Created March 6, 2012 07:44
Show Gist options
  • Save MgaMPKAy/1984744 to your computer and use it in GitHub Desktop.
Save MgaMPKAy/1984744 to your computer and use it in GitHub Desktop.
Download ZIP
bisection method
Raw
Bisection.hs
module Numeric.Bisection where
bisection f a b eps
| abs (a - b) < eps = mid
| f mid == 0 = mid
| f a * f mid < 0 = bisection f a mid eps
| otherwise = bisection f mid b eps
where mid = (a + b) / 2
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment