半分法精簡版

半分法精簡版

程式編寫日期: 2008年1月4日

第一個程式 (最少30 bytes，使用記憶為A，B，C及X)

If Ans>0 Then X→A: Else X→B: IfEnd:

2^-1( A + B→X: ?→X: X³ - 2X - 1

第二個程式 (最少34 bytes，可顯示根的範圍。)

2^-1( A + B→X: ?→X: X³ - 2X - 1◢ If Ans>0:

Then X→A: Else X→B: IfEnd: A◢ B

註: 綠色的X³ - 2X - 1是函數方程(變數是X)，若果想計算其它方程，只要修改綠色的部份。

例題: 解 x³ – 2x – 1 = 0, 1 < x < 2。

第一個程式的按法:

按 Prog 1 再按 1 EXE (顯示 f(1)的值為 - 2) EXE 2 EXE (顯示 f(2)的值為3)

EXE (顯示第一個近似值為1.5) EXE (顯示 f(1.5)的值為 -0.625)

EXE (顯示第二個近似值為1.75) EXE (顯示 f(1.75)的值為 0.859375)

EXE (顯示第三個近似值為1.625) EXE (顯示 f(1.625)的值為 0.041015625)

…………(直至要求的凖確度)

第二個程式的按法:

按 Prog 1 再按 1 EXE (顯示 f(1)的值為 - 2) EXE

EXE EXE (必要，忽略範圍的兩個數值) 2 EXE (顯示 f(2)的值為3)

EXE (顯示2) EXE (顯示1，表示根的範圍為1<X<2)

EXE (顯示第一個近似值為1.5) EXE (顯示 f(1.5)的值為 -0.625)

EXE (顯示2) EXE (顯示1.5，表示根的範圍為1.5<X<2)

EXE (顯示第二個近似值為1.75) EXE (顯示 f(1.75)的值為 0.859375)

EXE (顯示1.75) EXE (顯示1.5，表示根的範圍為1.5<X<1.75)

EXE (顯示第三個近似值為1.625) EXE (顯示 f(1.625)的值為 0.041015625)

…………(直至要求的凖確度)