0

在 SICP 练习 1.37 中

SICP 中的第 1.3.3 节向下滚动到节的末尾（就在 1.3.4 之前）以找到练习[该节中的第三个练习]。

根据问题，我将 cont-frac 定义为

(define (cont-frac n d k)
    (if (= k 0)
     0 
     (/ n (+ d (cont-frac n d (- k 1))))
    )
)

链接到练习的解决方案

根据解决方案链接，上面的代码似乎是一致的。当 n 和 d 被替换为 时，问题出现在解决方案的第二部分，在解决方案的(lamda (i) 1.0)(a) 部分，这是一个过程。

我无法理解在cont-frac. 当我尝试时，出现错误类型的参数

编辑 1

我已经添加了我的整个解决方案。它解决了问题，但没有抓住该部分的本质。这是练习 1.37、1.38 和 1.39 的解法。该程序不使用以下链接的解决方案作为通用方法的程序 解决方案 1.37，解决方案 1.38和解决方案 1.39

在下面
的程序phi和程序中e-2-val，k是程序中连分数
的步数tan，k是以弧度为单位的角度（准确值的步数为1000）

#!/usr/local/bin/guile \
-e main -s
!#
(define (finite-cont-frac n d k)
    (if (= k 0)
        0 
        (/ n (+ d (finite-cont-frac n d (- k 1))))))

(define (e-2 n d k1 c k)
    (define (d-val) 
        (if (= (modulo k1 3) 1)
            (+ c 2)
            1))
    (define (c-val)
        (if (= (d-val) 1) c (d-val)))
    (if (= k 0)
        0 
        (/ n (+ (d-val) (e-2 n (d-val) (+ k1 1) (c-val) (- k 1))))))

(define (tan-cf n k d k1)
    (define (d-val)
        (if (= k1 0) 1 (+ d 2)))
    (if (= k 0) 
        0
        (/ n (+ (d-val) (tan-cf n (- k 1) (d-val) (+ k1 1))))))

(define (tan-man x kk)
    (let ((a (- (* x x))))
        (tan-cf a kk 1 0)))
(define rrr 80.0)
(define (main args)
    (let* ((k (string->number (list-ref args 1)))
           (phi (/ 1.0 (finite-cont-frac 1.0 1.0 k)))
           (e-2-val (e-2 1.0 1 0.0 0 k))
           (tt (/ (tan-man k 1000) (- 0.0 k))))
        (display tt)
        (newline)))
4

1 回答 1

1

链接的答案看起来是错误的，你应该传递过程，而不是数字作为实际参数。使用名为的帮助程序accumulate：

(define (accumulate combiner null-value term1 term2 a next b)
  (if (> a b)
      null-value
      (combiner (term1 a)
                (term2 a)
                (accumulate combiner
                            null-value
                            term1
                            term2
                            (next a)
                            next
                            b))))

(define (cont-frac n d k)
  (accumulate (λ (x y rec) (/ x (+ y rec)))
              0 n d 1 add1 k))

现在我们可以按预期调用该过程：

(cont-frac (lambda (i) 1.0)
           (lambda (i) 1.0)
           10)
=> 0.6179775280898876
于 2016-07-13T20:32:49.557 回答