Skip to content

Instantly share code, notes, and snippets.

@agustingianni

agustingianni/gist:234126

Created November 13, 2009 20:22
Show Gist options
  • Save agustingianni/234126 to your computer and use it in GitHub Desktop.
Save agustingianni/234126 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
derivada :: (Double -> Double) -> Double -> Double -> Double
derivada f x0 h = (f (x0 + h) - f x0) / (2*h)
newton :: (Double -> Double) -> Double -> Double
mewton f x0 = x0 - (f x0 / (derivada f x0))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment