• 締切済み

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+ … すいません分母部分の位置が悪いですが、連分数です。

みんなの回答

回答No.1

> Foldを使い、チェックにFoldListを使う Foldは使いませんが例として type[list_] := { ans = 0; For[ a = 0, a < Length[list], a++, ans = Part[list, Length[list] - a, 1] / (Part[list, Length[list] - a, 2] + ans)]; Print[ans] }

関連するQ&A