LingrBBS

Are you OK?

donot problem
yas what?
why?
i am oky!

Why do you ask such a question?
I'm 25 years old. not boy.

are you gile?
oky
get it

What will you do?
gile?
I just wanted to check if you would like to study SICP?
If you are not, I'm terribly sorry, but you might want to leave this room.
I like speaking anyone, but I hate meaning less things.

oky by
bye?

Stop. Would you be interested in studying SICP?
Please, give me your answer.
?

thanks bye iwk......

Could you tell me what your purpose is?
If you wanted to leave this room, you should do it?
No.sorry.

bye?

bye.

it is my id areian.pars@yahoo.com

意図がわからないんですけれど。
OK.thanks.

無意味に焦った

Exercise3.62
Use the results of exercises3.60 and 3.61 to define a procedure div-series that divides two power series.
二つのベキ級数を割り算する、div-seriesプロシージャを定義する為に、練習問題3.60、3.61の結果を使え。
Div-series should work for any two series, provided that the denominator series begins with a nonzero constant term.
div-seriesは任意の二つの級数に対して動作する、ただし、分母となる級数は、ゼロでない定数項持つ。
(If the denominator has a zero constant term, then div-series should signal an error.)
分母の級数の定数項がゼロなら、エラーを出さなければならない。
Show how to use div-series together with the result of exercise 3.59 to generate the power series for tangent.
タンジェントのベキ級数を生成するためには、練習問題3.59の結果とともに、どのようにdiv-seriesを使えばよいのかを示せ。

iwkさん
「Exercise3.60の考え方」分かりやすくて良いです。
(stream-ref (mul-series A B) 3)で、どうやって2次の項が出てくるのが判った気がします。

どうもどうも。nagaさんに喜んでいただいて、私としても光栄です。
もともと線型代数は得意なのですよ。

今週の範囲外ですが、練習問題3.62でタンジェントの級数展開を行っています。多分この級数展開から、ベルヌーイ数を求めることが可能なはずなんですけど、うまく行かないです。
ちなみに、ベルヌーイ数というのは、tan,cot,cosecの級数展開で必要になる数です。
cos,sin以外の級数展開と言うのは、cos,sinに比べて異様に大変なのです。
昔、酷い目にあったので、なんだか思い出してしまいました。

今週はExercise3.64まで
Bernoulli数出さなきゃ。

出た。
(define fact (cons-stream 1 (mul-stream fact (stream-cdr integers))))
(define (skip-stream s)
(cons-stream (stream-car (stream-cdr s))
(skip-stream (stream-cdr (stream-cdr s)))))
(define dfact (skip-stream fact))

(define pow4
(cons-stream 4
(stream-map (lambda (x) (* 4 x)) pow4)))
(define (repeat n)
(cons-stream n (repeat n)))

(define (remove-zero s)
(cond ((stream-null? s) the-empty-stream)
((zero? (stream-car s))
(define bernoulli-nums
(stream-map (lambda (x y) (/ x y))
(mul-stream (remove-zero tangent-series) dfact)
(mul-stream pow4 (add-streams pow4 (repeat -1)))))

あれほど難しいbernoulli数があっさりと。
参考：http://ja.wikipedia.org/wiki/%E3%83%99%E3%83%AB%E3%83%8C%E3%83%BC%E3%82%A4%E6%95%B0
今第何項目まで算出されているのでしょう。