函数程序设计实验三：使用Newton-Raphson方式计算平方根

最新推荐文章于 2024-08-18 10:16:18 发布

wu-kan

最新推荐文章于 2024-08-18 10:16:18 发布

阅读量815

点赞数

分类专栏： haskell

本文及后续更新已转到https://wu-kan.cn 本文为博主原创文章，转载需要注明来源。

本文链接：https://blog.csdn.net/w_weilan/article/details/83016331

版权

haskell 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

module Newton_Raphson where

squareroot2 :: Float -> Integer -> Float
squareroot2 x0 n=squareroot 2 x0 n

squareroot :: Float -> Float -> Integer -> Float
squareroot r x0 0=x0
squareroot r x0 n=(x+r/x)/2 where x=squareroot r x0 (n-1)

sqrtSeq :: Float -> Float -> [Float]
sqrtSeq r x0=x0:sqrtSeq r (squareroot r x0 1)

squareroot' :: Float -> Float -> Float -> Float
squareroot' r x0 eps=f (sqrtSeq r x0) eps where f (y:ys) eps=if abs((head ys)-y)<eps then y else f ys eps