Mathematica 連分数について
任意の長さのリストから、以下のようなリストの要素を分子に持つ連分数を生成
する関数を書きたい。(Foldを使い、チェックにFoldListを使う)
a
cf[{a,b,c,d}]= -----------
b
1 + ------
c
1 + ---
1+d
任意の長さのリストから、以下のような連分数を生成する関数を書きたい。
a1
cf[{{a1,b1},{a2,b2},{a3,b3{,{a4,b4},…}]= ----------------------
a2
b1+ ---------
a3
b2+ ------
a4
b3+---
b4+ …
すいません分母部分の位置が悪いですが、連分数です。
お礼
ありがとうございます。