**TI85** Program file dated 08/06/95, 22:05Ç»Riem»¹ClLCDÖDisp " Riemann Integration"ÖDisp ""ÖDisp "Do you want graphics"ÖMenu(1,"Yes",YES,5,"No",NO)ÖLbl YESÖ1GÖDisp "Graphics On"ÖGoto NINTÖLbl NOÖ0GÖDisp "No Graphics"ÖLbl NINTÖPrompt xMinÖPrompt xMaxÖLbl OptsÖClLCDÖDisp "Number of intervals:"ÖPrompt NÖ(xMax-xMin)/NDÖDisp "Left or Right hand"ÖMenu(1,"Left",LEFT,5,"Right",RIGHT)ÖLbl RIGHTÖDLRÖDisp "Right"ÖGoto ChkGÖLbl LEFTÖ0LRÖDisp "Left"ÖLbl ChkGÖIf G==0Ö Goto NoGÖ ÖClDrwÖIf G==1ÖThenÖ FnOff Ö FnOn 1Ö fMax(y1,x,xMin,xMax)VÖ evalF(y1,x,V)yMaxÖ fMin(y1,x,xMin,xMax)VÖ evalF(y1,x,V)yMinÖ (yMax-yMin)/62HÖ yMax+HyMaxÖ yMin-HyMinÖ If yMin>0Ö 0yMinÖ If yMax<0Ö 0yMaxÖ DrawF y1Ö StPic functgrÖ 2GÖ FnOffÖEndÖLbl NoGÖ0RSumÖxMinXÖIf G==2Ö RcPic functgrÖ ÖFor(I,1,N,1)Ö X+LRxÖ y1YÖ If G==0Ö Goto AddOnÖ Line(X,0,X,Y)Ö Line(X,Y,X+D,Y)Ö Line(X+D,0,X+D,Y)Ö Lbl AddOnÖ RSum+YRSumÖ X+DXÖEndÖIf G0Ö PauseÖ ÖRSum*DRSumÖDisp "Riemann sum=",RSumÖMenu(1,"Again",Opts,5,"Quit",Quit)ÖLbl QuitÖˆT