%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:374
File Name:RIEMANN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\G SelOn 1
"   INTEGRATES Y1"
"    FROM A TO B"
"A="?\->A
"B="?\->B
\Lbl 1
\ClrText
0\->S
"NO OF RECTANGLES"?\->N
(B-A)/N\->H
\Lbl 2
\ClrText
\Cls
"RULE"
" "
"1: LEFT ENDPOINT"
"2: RIGHT ENDPOINT"
?\->Z
Z=1\=>\GotoL
Z=2\=>\GotoR
\Goto2
\Lbl L
\DrawGraph
\For 1\->J \To N \Step 1
A+(J-1)H\->X
\Y 1\->L
S+HL\->S
\F-Line X,0,X,L
\F-Line X,L,X+H,L
\F-Line X+H,L,X+H,0
\Next \Disp\ClrText
"LHSUM"
S\Disp\Goto1
\Lbl R
\DrawGraph
\For 1\->J \To N \Step 1
A+JH\->X
\Y 1\->L
S+HL\->S
\F-Line X-H,0,X-H,L
\F-Line X-H,L,X,L
\F-Line X,L,X,0
\Next \Disp\ClrText
"RHSUM"
S\Disp\Goto1

%End