半分法精簡版

程式編寫日期: 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: X3 - 2X - 1

 

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

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

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

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

 

例題: 解 x3 – 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)

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

 

返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集

Free Web Hosting