**TI85** 6 )TRAPI)'Func:FnOffÖClLCDÖRadianÖDisp "ENTER FUNCTION"ÖInpST "Y=",YÖStEq(Y,y1)ÖLbl AAÖDisp "LOWER LIMIT OF X"ÖPrompt XLÖDisp "UPPER LIMIT OF X"ÖPrompt XUÖDisp "# INTERVALS"ÖPrompt NÖ0SMÖ(XU-XL)/NWÖXLxMinÖXUxMaxÖXLXÖClLCDÖDisp "SCALING GRAPH"ÖDisp "PLEASE WAIT"ÖZFitÖIf yMin>0Ö0yMinÖIf yMax<0Ö0yMaxÖDispGÖFor(I,1,N)ÖevalF(y1,x,X)YXÖevalF(y1,x,X+W)YWÖ(YX+YW)/2AVÖSM+AV*WSMÖLine(X,0,X,YX)ÖLine(X,YX,X+W,YW)ÖLine(X+W,YW,X+W,0)ÖX+WXÖEndÖPause ÖClLCDÖDisp "INTEGRAL ="ÖDisp SMÖDisp "RUN AGAIN ?"ÖDisp "YES 1"ÖDisp "NO 2"ÖInput RÖIf R==1ÖGoto AAÖStopé¼