**TI85** Program file dated 08/06/95, 22:05{oTrapomClLCDÖDisp "Trapezoidal"ÖDisp "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Ö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)Ö evalF(y1,x,X)YLÖ evalF(y1,x,X+D)YRÖ (YL+YR)/2  YÖ If G==0Ö Goto AddOnÖ Line(X,0,X,YL)Ö Line(X,YL,X+D,YR)Ö Line(X+D,0,X+D,YR)Ö Ö Lbl AddOnÖ RSum+YRSumÖ X+DXÖEndÖIf G0Ö PauseÖ ÖRSum*DRSumÖDisp "Trapezoidal sum=",RSumÖMenu(1,"Again",Opts,5,"Quit",Quit)ÖLbl QuitÖ78