;3.62
(define (div-series s d)
(if (= 0 (stream-car d))
'ERROR-DIVIDED-ZERO
(mul-series s (1-/-s d))))
;正切函数的级数
(define tanch-series
(div-series sine-series cosine-series))
3.62
最新推荐文章于 2024-05-15 08:15:00 发布
;3.62
(define (div-series s d)
(if (= 0 (stream-car d))
'ERROR-DIVIDED-ZERO
(mul-series s (1-/-s d))))
;正切函数的级数
(define tanch-series
(div-series sine-series cosine-series))