試位法 ( False Position Method, or Regula Falsi )
注意：此程式只能在 HP-32SII 上使用。
|
LBL A
|
INPUT A
|
STO X
|
XEQ F
|
STO C
|
R/S
|
|
INPUT B
|
STO X
|
XEQ F
|
R/S
|
RCL ×C
|
x ≧
0?
|
|
GTO A
|
LBL B
|
RCL A
|
STO X
|
STO F
|
XEQ F
|
|
STO C
|
RCL B
|
STO X
|
XEQ F
|
STO D
|
RCL ×A
|
|
RCL B
|
RCL ×C
|
－
|
RCL D
|
RCL –C
|
÷
|
|
STO E
|
R/S
|
STO X
|
XEQ F
|
R/S
|
STO ×F
|
|
RCL F
|
x ≧
0?
|
GTO C
|
GTO D
|
LBL C
|
RCL E
|
|
STO A
|
GTO B
|
LBL D
|
RCL E
|
STO B
|
GTO B
|
|
LBL F
|
RCL
X
|
3
|
yx
|
RCL
X
|
x2
|
|
3
|
×
|
+
|
RCL
X
|
2
|
×
|
|
－
|
1
|
－
|
PRGM
|
最少 75
bytes
|
|
( 程式連同數字記憶共使用最少 117
bytes。)
( 如果日後想繼續輸入其他程式，則請在離開 PRGM 模式前按 RTN。)
例：用試位法 ( False Position Method ) 計算方程式 f(x) = x3 + 3x2 – 2x – 1 = 0 位於 0 和 1 之間的根。
按 XEQ A，此時計算機應顯示 A?。
按 0 R/S 顯示 –1 (
f(0) = -1 < 0 )
再按 R/S，再按 1
R/S 顯示 1 (
f(1) = 1 > 0 )
所以在 0 與 1 之間確實有至少一個根存在。
再按 R/S 顯示 0.5 (
第一個近似值 First approximation )
再按 R/S 顯示 –1.125 ( f(0.5) 的數值
)
再按 R/S 顯示 0.764706 (
第二個近似值 Second approximation )
再按 R/S 顯示 –0.327906 ( f(0.764706) 的數值
)
…………………………
直至要求的準確度達到為止
注意：如想解其他方程式，只需修改褐色部分。( X 是函數變數
) 要輸入其他方程式，按 PRGM 進入程式輸入狀態後，再按
▲，再連續按 
直至出現 F01
- LBL F，便可開始輸入其他方程式。