正割法、試位法及半分法
程式編寫日期: 2011年2月14日
程式 (87 bytes，不包括綠色的函數方程))
ClrMemory: ?→M: While 1: ?→X: X3 - 2X - 1→C◢
If 0≧MC: Then C→Y: X→A: Else C→D: X→B: IfEnd:
M=2 => -1→Y: Ans => 1→D: (AD - BY) ÷ (D - Y→X:
M=0 => Y→D: Ans => A→B: WhileEnd
註1: 綠色的X3 - 2X - 1是函數方程(變數是X)，若果想計算其它 方程，只要修改綠色的部份。
註2: 若果不想顯示函數值，可將程式中藍色的◢ 修改為 : 。
註3: 程式中的"ClrMemory:"其實可以不輸入，不過若這做，在輸入第一個數值後，有可能會被原先數字記憶影響(機會率很低)，而出現Math ERROR，如果 萬一出現上述情況，需要自行清除所有數字記憶 (按 Shift Mode 1 EXE)，再執行程式。
註4: 計數機顯示近似值會有?，當沒有?並顯示Disp表示為對應的函數值。
註5: 若果函數值為零，表示對應的x值已是計數機能計算出的最準確的答案，可按 AC 終止程式，若再繼續執行程式，有可能出現Math ERROR。
例題1: 用正割法解 x3 – 2x – 1 = 0, 1 < x < 2。
按 Prog 1 再按 EXE (輸入0或直接按EXE，表示使用正割法程式)
1 EXE (顯示 f(1)的值為 - 2) EXE (沒有?無法輸入數值，再按一下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.631554)
EXE (顯示f(1.631554)的值為 0.0800355)
…………
若將程式中藍色的◢ 修改為 : ，那麼不顯示函數值，而按法如下:
按 Prog 1 再按 EXE (輸入0或直接按EXE，表示使用正割法程式)
1 EXE 2 EXE (顯示第1近似值1.4)
EXE (顯示第2近似值1.556213)
EXE (顯示第3近似值1.631554)
…………
例題2: 用試位法解 x3 – 2x – 1 = 0, 1 < x < 2。
按 Prog 1 再按 1 EXE (輸入1表示使用試位法程式)
1 EXE (顯示 f(1)的值為 - 2) EXE (沒有?無法輸入數值，再按一下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)
…………………
若將程式中藍色的◢ 修改為 : ，那麼不顯示函數值，而按法如下:
按 Prog 1 再按 1 EXE (輸入1表示使用試位法程式)
1 EXE 2 EXE (顯示第1近似值為1.4)
EXE (顯示第2近似值為1.556213)
EXE (顯示第3近似值為1.601817)
EXE (顯示第4近似值為1.613872)
EXE (顯示第5近似值為1.616972)
…………………
例題3: 試用半分法解 x3 – 2x – 1 = 0, 1 < x < 2。
按 Prog 1 再按 2 EXE (2代表使用半分法程式)
1 EXE (顯示 f(1)的值為 - 2) EXE (沒有?無法輸入數值，再按一下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 再按 2 EXE (2代表使用半分法程式)
1 EXE 2 EXE (顯示第一個近似值為1.5)
EXE (顯示第二個近似值為1.75)
EXE (顯示第三個近似值為1.625)
…………(直至要求的凖確度)
返回 CASIO fx-50FH 及 fx-50F PLUS 程式集