正割法
更新日期: 2011年3月19日
程式 (40 bytes，不包括綠色的函數方程)
ClrMemory: While 1: ?→X: X3 - 2X - 1 →C: X→B:
(XA - YC) ÷ (A - C→X: C→A: B→Y: WhileEnd
註1: 綠色的X3 - 2X - 1是函數方程(變數是X)，若果想計算其它 方程，只要修改綠色的部份。
註2: 若果想同時顯示函數值，只要將程式中紅色的":"放為"◢"即可。
程式另一個更精簡版本 (33 bytes)
例題: 用正割法解 x3 – 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之中。
返回 CASIO fx-50FH 及 fx-50F PLUS 程式集