正割法

程式新版 (舊版依然保留在網頁下方)

新版程式編寫日期: 2006年1月3日

程式 (最少41 bytes)

Mem clear: Lbl 0: ?→X: X³ - 2X - 1 →C: X→B:

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

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

註2: 若果想同時顯示函數值，只要將程式中紅色的":"放為"◢"即可。

程式另一個更精簡版本 (35 bytes)

例題: 用正割法解 x³ – 2x – 1 = 0, 1 < x < 2。

按 Prog 1 再按 1 EXE 2 EXE (顯示第1近似值1.4)

EXE (顯示第2近似值1.556213)

EXE (顯示第3近似值1.631554)

EXE (顯示第4近似值1.617320)

EXE (顯示第5近似值1.618026)

EXE (顯示第6近似值1.618034)

EXE (顯示第7近似值1.618034)

…………

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

返回 fx-3650P及SC185及程式集

舊版程式

程式編寫日期:2005年12月17日

程式 (最少45 bytes)

Mem clear: ?→X: ?→Y: Lbl 0: X³ - 2X - 1 →A:

X→C: (XB - YA) ÷ (B - A→X◢ A→B: C→Y: Goto 0

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

例題: 用正割法解 x³ – 2x – 1 = 0, 1 < x < 2。

按 Prog 1 再按 1 EXE 2 EXE (輸入a及b的值，注意會先顯示b的值為2)

EXE (顯示第1近似值1.4)

EXE (顯示第2近似值1.556213)

EXE (顯示第3近似值1.631554)

EXE (顯示第4近似值1.617320)

EXE (顯示第5近似值1.618026)

EXE (顯示第6近似值1.618034)

EXE (顯示第7近似值1.618034)

…………

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

返回 fx-3650P及SC185程式集