Serendip

Web Studio

問題3.73

図3.33の通りに手続き RC を定義したが、出力される結果がこれで正しいのかわからない…

(define (integral integrand initial-value dt)
  (define int
    (cons-stream initial-value
                 (add-streams (scale-stream integrand dt)
                              int)))
  int)

(define (RC R C dt)
  (define (rc i-st v-zero)
    (add-streams
      (scale-stream i-st R)
      (integral (scale-stream i-st (/ 1 C))
                v-zero
                dt)))
  rc)

(define RC1 (RC 5 1 0.5))
(stream-head (RC1 ones 0) 10)
gosh> 5.0
5.5
6.0
6.5
7.0
7.5
8.0
8.5
9.0
9.5
done

計算機プログラムの構造と解釈

posted with amazlet at 08.11.07

ジェラルド・ジェイ サスマン ジュリー サスマン ハロルド エイブルソン
ピアソンエデュケーション
売り上げランキング: 6542

Amazon.co.jp で詳細を見る