正割法精簡版

正割法精簡版

程式編寫日期: 2011年7月19日

程式 (33 bytes(不包括綠色函數方程)，使用記憶為A, B, C, X及Y):

?→X: X³ - 2X - 1 →C: X→B:

(XA - YC) ÷ (A - C→X: B→Y: C→A

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

註2: 精簡版的函數部份更接近程式開始位置，更方便修改。不過在輸入第一個數值後，有可能會被原先數字記憶影響(機會率很低)，而出現Math ERROR，如果萬一出現上述情況，請先清除所有數字記憶 (按 Shift Mode 1 EXE)，再執行程式。

例題: 用正割法解 x³ – 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.631554) EXE (顯示 f(1.631554)的值為 0.080035)

EXE (顯示第4近似值1.617320) EXE (顯示 f(1.617320)的值為 -4.17944x10^-3)

…………

註:不斷按下EXE顯示近似值，最後會出現Math error，表示已產生最凖確的答案，而答案儲存在記憶X之中。