問題3.80

問題3.80 – SICP（計算機プログラムの構造と解釈）その170

2009年05月03日

(define (RLC R L C dt)
  (define (rlc vC0 iL0)
    (define dvC (scale-stream iL (/ -1 C)))
    (define diL (add-streams (scale-stream vC (/ 1 L))
                             (scale-stream iL (- (/ R L)))))
    (define iL (integral (delay diL) iL0 dt))
    (define vC (integral (delay dvC) vC0 dt))
    (stream-map (lambda (v i) (cons v i)) vC iL))
    rlc)

(define RLC1 (RLC 1 1 0.2 0.1))
(stream-head (RLC1 10 0) 10)
gosh> (10 . 0)
(10.0 . 1.0)
(9.5 . 1.9)
(8.55 . 2.66)
(7.220000000000001 . 3.249)
(5.5955 . 3.6461)
(3.77245 . 3.84104)
(1.8519299999999999 . 3.834181)
(-0.0651605000000004 . 3.6359559)
(-1.8831384500000004 . 3.2658442599999997)
done

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

posted with amazlet at 08.11.07

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

Amazon.co.jp で詳細を見る