**TI85** Program file dated 08/06/95, 22:05Î ÁIntegÁ¿ClLCDÖDisp "Integration Package"ÖDisp ""ÖDisp "Choose your method"ÖDisp "of integration"ÖMenu(1,"Riem",riem, 2,"Circ",circ, 3,"Trap",trap)ÖLbl riemÖ1methÖGoto grchÖLbl circÖ2methÖGoto grchÖLbl trapÖ3methÖLbl grchÖClLCDÖ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ÖClLCDÖPrompt xMinÖPrompt xMaxÖLbl OptsÖClLCDÖDisp "Number of intervals:"ÖPrompt NÖ(xMax-xMin)/NDÖIf meth==1ÖThenÖ Disp "Left or Right hand"Ö Menu(1,"Left",LEFT,5,"Right",RIGHT)Ö Lbl RIGHTÖ DLRÖ Disp "Right"Ö Goto ChkGÖ Lbl LEFTÖ 0LRÖ Disp "Left"ÖEndÖIf meth==2ÖThenÖ Disp "Circum- or Inscribed"Ö Menu(1,"Circum",Circ,5,"Inscr",Inscr)Ö Lbl InscrÖ 1CIÖ Disp "Inscribed"Ö Goto ChkGÖ Lbl CircÖ 0CIÖ Disp "Circumscribed"ÖEndÖ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)Ö If meth==1Ö ThenÖ 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)Ö EndÖ If meth==2Ö ThenÖ evalF(y1,x,X)YLÖ evalF(y1,x,X+D)YRÖ YLYÖ If CI==0 and YR>YÖ YRYÖ If CI==1 and YR