LBL A INPUT A STO B XEQ F STO D R/S INPUT B XEQ F STO C STO ×D R/S RCL D x ≧ 0? GTO A RCL C x ≦ 0? GTO B GTO C LBL B RCL A x <> B STO A LBL C RCL A RCL +B 2 ÷ R/S x <> B STO C XEQ F R/S x ≦ 0? GTO D GTO C LBL D RCL C x <> B STO A GTO C LBL F RCL B 3 yx RCL B x2 3 × + RCL B 2 × - 1 - PRGM 最少 63 bytes( 程式連同數字記憶共使用最少 87 bytes。)
( 如果日後想繼續輸入其他程式,則請在離開 PRGM 模式前按 RTN。)例:用分半法 ( Bisection 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.75 ( 第二個近似值 Second approximation )
再按 R/S 顯示 –0.390625 ( f(0.75) 的數值 )
…………………………
直至要求的準確度達到為止注意:如想解其他方程式,只需修改褐色部份。( B 是函數變數 ) 要輸入其他方程式,按 PRGM 進入程式輸入狀態後,再按 ▲,再連續按
直至出現 F01 - LBL F,便可開始輸入其他方程式。