一元三次方程式(II)(牛頓法)

程式編寫日期: 2011年4月11日

程式第一部份使用牛頓法計算一元三次方程式的其中一根,程式會自動執行(第一版需要手動找尋)直至找到答案時,會出現Error 2,這時只要按 → DEL DEL = 即可顯示答案。程式第二部份則用作計算餘下的二根。

如何在程式中加入K字元

程式第一部份

0 + ( K - ( A K
yx 3 + B K + C
K + D ) x-1 x-1 ÷ (
3 A K + 2 B K
+ C STO F1

程式第二部份

( ( A Ans + B )
- 4 A ( C + B
Ans + A Ans ) ) ÷
A + ( +/- B - A Ans
- ( ( A Ans + B
) - 4 A ( C +
B Ans + A Ans ) )
) ÷ 2 A STO F2

 

例題1: 解 2x³ - x² - 72x + 36 =0

按 RCL F1 ALGB 2 = 1 +/- = 72 +/- = 36 =∫dx = = = 出現Error 2時

再按 → DEL DEL = (顯示方程其中一根,可能出現答案數值為6, -6或0.5)

再按 RCL F2 = (顯示第二個根) 再按 0 = (顯示第三個根)

 

例題2: 解 x³ - 2x - 1 = 0

按 RCL F1 ALGB 1 = 0 = 2 = 1 +/- =∫dx = = = 出現Error 2時

再按 → DEL DEL = (顯示方程其中一根)

再按 RCL F2 = (顯示第二個根) 再按 0 = (顯示第三個根)

三個根的數為 -1, -0.618033988 及 1.68033989

 

例題3: 解 3x³ - 5x² + x - 4 =0

按 RCL F1 ALGB 3 = 5 +/- = 1 = 4 +/- =∫dx = = = 出現Error 2時

再按 → DEL DEL = (顯示方程第一根為1.86977421)

再按 RCL F2 = (顯示Error 2,表示餘下兩根無實解)

 

例題4: 解 x² - 7x + 12 = 0

按 2ndF DEL (必要) 再按 RCL F2 ALGB 1 = 7 +/- = 12 = (顯示第一個根為4)

再按 0 = (顯示第二個根為3)

註1: 若果第二個根及第三個根為實數重根(特別是三重根情況),執行程式第二部份有可能出現 Error 2,這是計算誤差造成。

註2: 使用程式第一部份,可以設定牛頓法的起始值,方法是先按 ON/C + 數值 =,但這個步驟並非必要,不過萬一在計算第一個根時無法得出答案(Error 2),就必需設定一個新的數值。

註3: 若果第一個根為重根,誤差可能會較大。
 

 

返回EL-506程式集主頁

Free Web Hosting