正割法 ( Secant Method )

( 程式版本:1.0,最後更新日期 14 DEC 2007。)

程式分為兩部份,第一部份是函數 ( Function ) 程式,第二部份是正割法程式。

第一部份: FX ( 程式名稱可隨意輸入 )

程式組
 
1
X^(3) + 3X2 – 2X – 1 → Y

第二部份: SECANT ( 程式名稱可隨意輸入 )
( 注意:如果第一部份的程式不是命名為 FX,則下面程式中的 Prog "FX" 應作相應修改。)

程式組
88 bytes
1
? A : ? B : 0 → D : A → X ◢ Lbl 1 : Prog "FX" : Y → C :
2
( AD – BC ) ÷ ( D – C → X ◢ C → D : A → B : X → A :
3
Goto 1
MODE 1

在執行程式前,請將計算機的角度量度單位轉至弧度 ( Rad ) 模式。先按 SETUP ( SHIFT MODE ),然後按 4

例:用正割法 ( Secant Method ) 計算方程式 f(x) = x3 + 3x2 – 2x – 1 = 0 位於 01 之間的根。

MODE 5 進入 PRGM 模式,再按 2 選擇 RUN,或按 FILE

Program List 中選擇程式 SECANT,按 EXE,此時計算機應出現 A?

再按  0 EXE  1 EXE  ( 輸入次序可倒轉,但計算結果可能不盡相同 )

顯示  0  ( a 的數值 )
再按  EXE   顯示   1  ( b 的數值 )
再按  EXE   顯示   0.5  ( 第一個近似值  First Approximation )
再按  EXE   顯示   0.764706  ( 第二個近似值  Second Approximation )
再按  EXE   顯示   0.873600  ( 第三個近似值  Third Approximation )
................................

直至要求的準確度達到為止,要終止程式請按 AC

注意:如想解其他方程式,只需修改褐色部分。( X 是函數變數,最後的 → Y 必須 )

程式執行完成後,請按 MODE 1 將計算機轉回 COMP 模式。

分半法 ( Bisection Method )

試位法 ( False Position Method, or Regula Falsi )

迭代法 ( Iteration Method )

梅拿法 ( Muller's Method )

返回選擇程式頁

返回頁首