Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
15 lines (9 sloc) 345 Bytes
(load "3.61.scm")
(define (div-series s1 s2)
(mul-series s1 (reciprocal-series s2)))
(define tangent-series
(div-series sine-series cosine-series))
(display-top10 tangent-series)
; 0 1 0 1/3 0 2/15 0 17/315 0 62/2835
; 关于tan的级数,可以参考 Wikipedia
; https://en.wikipedia.org/wiki/Trigonometric_functions#Tangent