SICP 习题1.36 使用不动点发寻找x^x = 1000的根

原创于 2016-06-04 15:04:44 发布 · 752 阅读

0 ·

CC 4.0 BY-SA版权

SICP 专栏收录该内容

77 篇文章

订阅专栏

本文介绍了一种使用Scheme语言实现的固定点迭代算法，通过不断逼近的方法求解给定函数的固定点。该算法利用了递归思想，并定义了判断数值接近度的函数来决定迭代何时停止。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

修改fixed-point过程，在let里修改即可

(define tolerance 0.00001)

(define (fixed-point f first-guess)
  (newline)
  (display first-guess)
  (define (close-enough? v1 v2)
    (< (abs (- v1 v2)) tolerance))
  (define (try guess)
    (let ((next (f guess)))
      (newline)
      (display next)
      (if (close-enough? guess next)
        next
        (try next))))
  (try first-guess))

(fixed-point (lambda (x) (/ (log 1000) (log x))) 3.0)