試位法
更新日期: 2011年2月14日
程式 (53 bytes,不包括綠色的函數方程))
ClrMemory: While 1: ?→X: X3 - 2X - 1→C◢
If C>0: Then C→Y: X→A: Else C→D: X→B: IfEnd:
(AD - BY) ÷ (D - Y→X: WhileEnd
註: 綠色的X3 - 2X - 1是函數方程(變數是X),若果想計算其它 方程,只要修改綠色的部份。
程式另一個更精簡版本 (48 bytes)
例題: 用試位法解 x3 – 2x – 1 = 0, 1 < x < 2。
按 Prog 1 再按 1 EXE (顯示 f(1)的值為 - 2) EXE 2 EXE (顯示 f(2)的值為 3)
EXE (顯示第1近似值為1.4)
EXE (顯示f(1.4)的值為-1.056)
EXE (顯示第2近似值為1.556213)
EXE (顯示f(1.556213)的值為-0.343591)
EXE (顯示第3近似值為1.601817)
EXE (顯示f(1.601817)的值為-0.0936633)
EXE (顯示第4近似值為1.613872)
EXE (顯示f(1.613872)的值為-0.0242785)
EXE (顯示第5近似值為1.616972)
EXE (顯示f(1.616972)的值為-0.0062106)
…………………