%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:204
File Name:SIMPSON
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"SIMPSON'S RULE"
"COMPUTE \Integral(\f6)DX FROM A TO B"
"A="?\->A
"B="?\->B
\Lbl 0
"EVEN NUMBER OF"
"SUBINTERVALS="?\->N
\Frac (N/2)\<>0\=>\Goto0
(B-A)/N\->H
A\->X
\f6\->S
\For 1\->I \To N-1
X+H\->X
1+2\Frac (I/2)\->K
2^K\f6+S\->S
\Next 
B\->X
\f6+S\->S
SH/3\->S
"INTEGRAL~"
S
%End