正割法及試位法

程式編寫日期: 2011年2月14日

程式 (72 bytes,不包括綠色的函數方程))

ClrMemory: ?→M: While 1: ?→X: X3 - 2X - 1→C

If 0≧MC: Then C→Y: X→A: Else C→D: X→B: IfEnd:

(AD - BY) ÷ (D - Y→X: M=0 => Y→D: Ans => A→B: WhileEnd

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

註2: 若果不想顯示函數值,可將程式中藍色的修改為 :

註3: 程式中的"ClrMemory"其實可以不輸入,不過若這做,在輸入第一個數值後,有可能會被原先數字記憶影響(機會率很低),而出現Math ERROR,如果 萬一出現上述情況,需要自行清除所有數字記憶 (按 Shift CLR 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)

…………………

 

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

Free Web Hosting