定積分計算 ( 森遜法則 ) ( 第二版 )
( Numerical Integration : Simpson's
Rule ( Version 2 ) )
( 程式版本：1.0，最後更新日期 14 AUG 2003。)
|
LBL 0
|
R/S
|
STO 0
|
R/S
|
STO 1
|
RCL 0
|
|
STO –1
|
R/S
|
STO 2
|
STO ÷1
|
0
|
STO 3
|
|
LBL 1
|
XEQ F
|
STO +3
|
RCL 1
|
STO +0
|
XEQ F
|
|
×
|
4
|
=
|
STO +3
|
RCL 1
|
STO +0
|
|
XEQ F
|
STO +3
|
2
|
STO –2
|
RCL 2
|
x = 0?
|
|
GTO 2
|
GTO 1
|
LBL 2
|
C
|
RCL 1
|
STO ×3
|
|
3
|
STO ÷3
|
RCL 3
|
GTO E
|
LBL F
|
RAD
|
|
RCL
0
|
COS
|
÷
|
RCL
0
|
ex
|
=
|
|
RTN
|
LBL E
|
PRGM
|
最少
43 steps
|
||
| 例：利用森遜法則 ( Simpson's Rule )，用 10 個區間 ( subintervals ) 計算積分 |
 |
先按 XEQ 0
再按 0 R/S ( 積分下限 (
Lower Limit ) )
再按 1 R/S ( 積分上限 (
Upper Limit ) )
再按 10 R/S ( 區間數目 (
Number of subintervals )，注意此數必須是正整數及雙數。)
顯示 0.555396 ( 使用森遜法則計算的積分近似值
)
| 亦即是說 |  |
注意：如想計算其他積分，只需修改褐色部份。( R0 是函數變數 )
程式執行完成後，按 RCL 3 會顯示計算的積分近似值。