![x = [a0,a1,a2,...] = a0 + 1/ (a1 + 1/ (a2 + 1/...](Img/Formulae/FR_18.gif)
Casio50 » fx-3x50P » Programs 程式集 » (Uncategorized 未分類) »
本式可把小數以簡單連續分式表達.
| <COMP> |
|---|
| ? → A : |
| Lbl 0 : |
| A – . 5 : Fix0 : Rnd : Norm1 : Ans ◢ |
| ( A – Ans ) -1 → A : |
| Goto 0 |
| 31 Bytes |
| 一般操作 | 例子 |
|---|---|
|
以簡單連續分式 (Simple continued fraction) 表達 x. |
以簡單連續分式表達 π |
| 啟動程式 | 按 Prog 1 |
| 輸入資料 x EXE |
π (= Shift EXP) EXE |
| 顯示答案 a0 EXE a1 EXE a2 EXE ... (x = [a0, a1, a2, a3, a4, ...]) |
3 EXE 7 EXE 15 EXE
1 EXE 292 EXE 1 EXE
... (π = [3,7,15,1,292,1,...] ≈ 104348/33215) |
| A | an |
|---|---|
| B | |
| C | |
| D | |
| X | |
| Y | |
| M |
簡單連續分式的定義: