定積分計算 ( 梯形法則 ) ( Numerical Integration : Trapezoidal Rule )
注意：此程式只能在 HP-32SII 上使用。
|
LBL A
|
INPUT A
|
INPUT B
|
STO H
|
RCL A
|
STO –H
|
|
LBL B
|
INPUT N
|
x ≦
0?
|
GTO B
|
RCL N
|
IP
|
|
x ≠ y?
|
GTO B
|
RCL N
|
STO ÷H
|
STO C
|
0
|
|
STO I
|
LBL C
|
XEQ F
|
STO +I
|
RCL H
|
STO +A
|
|
XEQ F
|
STO +I
|
1
|
STO –C
|
RCL C
|
x >
0?
|
|
GTO C
|
RCL H
|
STO ×I
|
2
|
STO ÷I
|
RCL I
|
|
GTO E
|
LBL F
|
RAD
|
RCL
A
|
COS
|
RCL
A
|
|
ex
|
÷
|
RTN
|
LBL E
|
PRGM
|
最少
60 bytes
|
( 程式連同數字記憶共使用最少
108 bytes。)
( 如果日後想繼續輸入其他程式，則請在離開 PRGM
模式前按 RTN。)
| 例：利用梯形法則 ( Trapezoidal Rule )，用 10 個區間 ( subintervals ) 計算積分 |
 |
先按 XEQ A
再按 0 R/S ( 積分下限 (
Lower Limit ) )
再按 1 R/S ( 積分上限 (
Upper Limit ) )
再按 10 R/S ( 區間數目 (
Number of subintervals )，注意此數必須是正整數
)
顯示 0.555807 ( 使用梯形法則計算的積分近似值 )
| 亦即是說 |  |
注意：如想計算其他積分，只需修改褐色部份。( A 是函數變數 )
程式執行完成後，按 RCL I 會顯示計算的積分近似值。