**TI85** Grouped file dated 08/09/95, 00:15  Ô
€< ê
 (Circum(& ClLCDÖDisp "  Circum/Inscribed"ÖDisp "    Integration"ÖDisp ""ÖDisp "Do you want graphics"ÖMenu(1,"Yes",YES,5,"No",NO)ÖLbl NOÖ0GÖDisp "No Graphics"ÖGoto nintÖLbl YESÖDisp "Graphics On"Ö1GÖLbl nintÖPrompt xMinÖPrompt xMaxÖLbl OptsÖClLCDÖDisp "Number of intervals:"ÖPrompt NÖ(xMax-xMin)/NDÖDisp "Circum- or Inscribed"ÖMenu(1,"Circum",Circ,5,"Inscr",Inscr)ÖLbl InscrÖ1CIÖDisp "Inscribed"ÖGoto ChkGÖLbl CircÖ0CIÖDisp "Circumscribed"Ö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)/62HÖ yMax+HyMaxÖ yMin-HyMinÖ If yMin>0Ö  0yMinÖ If yMax<0Ö  0yMaxÖ DrawF y1Ö StPic functgrÖ 2GÖ FnOffÖEndÖLbl NoGÖ0RSumÖxMinXÖIf G==2Ö RcPic functgrÖ ÖFor(I,1,N,1)Ö evalF(y1,x,X)YLÖ evalF(y1,x,X+D)YRÖ YLYÖ If CI==0 and YR>YÖ  YRYÖ If CI==1 and YR<YÖ  YRYÖ 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+YRSumÖ X+DXÖEndÖIf G0Ö Pause ÖRSum*DRSumÖDisp "Sum=",RSumÖMenu(1,"Again",Opts,5,"Quit",Quit)ÖLbl QuitÖ	  FEVAL  æ-x= /2xoé;y1	 Á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Ö1methÖGoto grchÖLbl circÖ2methÖGoto grchÖLbl trapÖ3methÖLbl grchÖClLCDÖDisp "Do you want graphics"ÖMenu(1,"Yes",YES,5,"No",NO)ÖLbl YESÖ1GÖDisp "Graphics On"ÖGoto nintÖLbl NOÖ0GÖDisp "No Graphics"ÖLbl nintÖClLCDÖPrompt xMinÖPrompt xMaxÖLbl OptsÖClLCDÖDisp "Number of intervals:"ÖPrompt NÖ(xMax-xMin)/NDÖIf meth==1ÖThenÖ Disp "Left or Right hand"Ö Menu(1,"Left",LEFT,5,"Right",RIGHT)Ö Lbl RIGHTÖ DLRÖ Disp "Right"Ö Goto ChkGÖ Lbl LEFTÖ 0LRÖ Disp "Left"ÖEndÖIf meth==2ÖThenÖ Disp "Circum- or Inscribed"Ö Menu(1,"Circum",Circ,5,"Inscr",Inscr)Ö Lbl InscrÖ 1CIÖ Disp "Inscribed"Ö Goto ChkGÖ Lbl CircÖ 0CIÖ 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)/62HÖ yMax+HyMaxÖ yMin-HyMinÖ If yMin>0Ö  0yMinÖ If yMax<0Ö  0yMaxÖ DrawF y1Ö StPic functgrÖ 2GÖ FnOffÖEndÖLbl NoGÖ0RSumÖxMinXÖIf G==2Ö RcPic functgrÖ ÖFor(I,1,N,1)Ö If meth==1Ö ThenÖ  X+LRxÖ  y1YÖ  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Ö  YLYÖ  If CI==0 and YR>YÖ   YRYÖ  If CI==1 and YR<YÖ   YRYÖ  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==3Ö ThenÖ  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)Ö EndÖ Lbl AddOnÖ RSum+YRSumÖ X+DXÖEndÖIf G0Ö PauseÖ ÖRSum*DRSumÖDisp "Sum=",RSumÖMenu(1,"Again",Opts,5,"Quit",Quit)ÖLbl QuitÖ
 ÊNewtonÊÈìoé-   Newtons Method oé- oé-Do you want graphics oLD1 /-Yes /5YES/D5 /-No /4NOoàNO oD0 3Goé-No Graphics oàYES oD1 3Goé-Graphics oç=oç=oé-Starting x value: oç3XoØ3GPD1 oÙo‘oD1 o);y1/2x/=/=3Vo%;y1/2x/3V=o(;y1/2x/=/=3Vo%;y1/2x/3V=o=a=qD62 3Zo=`3Z=o=a3Z=oD2 3Goƒo;y1oÞoàNextIt o%;y1/2x/3X3Yo%;y2/2x/3X3MoØ3GUD0 oÙo–3X/3Y/3Xa3Yq3M/D0 oâoÞo3Xa3Yq3M3Xoé3XoLD1 /-Again /8NextIt/D5 /-Quit /6QuitoàQuit 
 ìRatiosìê Menu(1,"Run",run,5,"Help",help)ÖLbl helpÖClLCDÖDisp "This program assumes"ÖDisp "that you have already"ÖDisp "stored a list of"ÖDisp "numbers in R. To do"ÖDisp "this, use the EDIT"ÖDisp "option on the LIST"ÖDisp "menu."ÖOutpt(8,8,"...Press Enter")ÖPauseÖClLCDÖDisp "The output is written"ÖDisp "to the list ROut."ÖDisp ""ÖDisp "WARNING: This program"ÖDisp "can't handle more "ÖDisp "than 25 entries."ÖMenu(1,"Cont",run,5,"Quit",quit)ÖLbl runÖ25dimL RÖFor(i,1,24,1)Ö If R(i)==0Ö ThenÖ  ClLCDÖ  If R(i+1)0Ö  ThenÖ   Disp "Error!"Ö   Disp "You entered R(  )=0"Ö   OutPt(2,15,i)Ö   StopÖ  Ö  ElseÖ   Disp "Are you sure you"Ö   Disp "entered the list R?"Ö   StopÖ  EndÖ EndÖ R(i+1)/R(i)ROut(i)ÖEndÖClLCDÖDisp "The ratios were:"ÖDisp ROutÖLbl quitÖ »Riem»¹ ClLCDÖDisp " Riemann Integration"ÖDisp ""ÖDisp "Do you want graphics"ÖMenu(1,"Yes",YES,5,"No",NO)ÖLbl YESÖ1GÖDisp "Graphics On"ÖGoto NINTÖLbl NOÖ0GÖDisp "No Graphics"ÖLbl NINTÖPrompt xMinÖPrompt xMaxÖLbl OptsÖClLCDÖDisp "Number of intervals:"ÖPrompt NÖ(xMax-xMin)/NDÖDisp "Left or Right hand"ÖMenu(1,"Left",LEFT,5,"Right",RIGHT)ÖLbl RIGHTÖDLRÖDisp "Right"ÖGoto ChkGÖLbl LEFTÖ0LRÖ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)/62HÖ yMax+HyMaxÖ yMin-HyMinÖ If yMin>0Ö  0yMinÖ If yMax<0Ö  0yMaxÖ DrawF y1Ö StPic functgrÖ 2GÖ FnOffÖEndÖLbl NoGÖ0RSumÖxMinXÖIf G==2Ö RcPic functgrÖ ÖFor(I,1,N,1)Ö X+LRxÖ y1YÖ 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+YRSumÖ X+DXÖEndÖIf G0Ö PauseÖ ÖRSum*DRSumÖDisp "Riemann sum=",RSumÖMenu(1,"Again",Opts,5,"Quit",Quit)ÖLbl QuitÖ
 ²Secant²° ClLCDÖFnOff ÖDisp "   Secant Tracer"ÖDisp ""ÖDisp "Do you want graphics"ÖMenu(1,"Yes",YES,5,"No",NO)ÖLbl NOÖ ClLCDÖ 0graphicsÖ Disp "No Graphics"Ö Goto mainÖ ÖLbl YESÖ ClLCDÖ 1graphicsÖ Disp "Graphics On"Ö Disp ""Ö Disp "Do you want to set"Ö Disp "the range or have"Ö Disp "auto resize?"Ö Menu(1,"auto",auto,5,"set",manual)ÖEndÖLbl autoÖ1resizeÖGoto mainÖLbl manualÖ0resizeÖPrompt xMinÖPrompt xMaxÖLbl mainÖInput "x=", XÖLbl getHÖInput "h=", HÖIf H==0ÖThenÖ Disp "You cant set h=0."Ö Disp "That's WHY you have"Ö Disp "to take limits."Ö Goto getHÖEndÖIf resize==0ÖThenÖ If X<xMin or X>xMax or X+H<xMin or X+H>xMaxÖ ThenÖ  Disp "One of your points x"Ö  Disp "or x+h lies outside"Ö  Disp "your graphing range."Ö  Disp ""Ö  Disp "Change entries?"Ö  Goto mainÖ EndÖEndÖIf resize==1ÖThenÖ min(X-H/4,X+5H/4)xMinÖ max(X+5H/4,X-H/4)xMaxÖ 1graphicsÖEndÖIf graphics==1ÖThenÖ 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+0.05*(yMax-yMin)yMaxÖ yMin-0.05*(yMax-yMin)yMinÖ ClDrwÖ DrawF y1Ö StPic functgrÖ FnOff 1Ö 2graphicsÖEndÖevalF(y1,x,X)YLÖevalF(y1,x,X+H)YRÖ(YR-YL  )/HslopeÖIf graphics==2ÖThenÖ ClDrwÖ RcPic functgrÖ Ö (xMax-xMin)/126DXÖ (yMax-yMin)/62DYÖ For(i,1,1,1)Ö  For(j,1,1,1)Ö   PtOn(X+i*DX,YL+j*DY)Ö   PtOn(X+H+i*DX,YR+j*DY)Ö  EndÖ EndÖ Ö If H>0Ö ThenÖ  X+max(1.5H, 0.5(xMax-X))XRÖ  X-min((X-xMin)/4,H/2)XLÖ EndÖ Ö If H<0Ö ThenÖ  X+max((xMax-X)/4,H/2)XRÖ  X+min(1.5H, 0.5(xMin-X))XLÖ EndÖ YL+(XR-X)*slopeYRÖ YL+(XL-X)*slopeYLÖ Line(XL,YL,XR,YR)Ö  Ö Ö PauseÖEndÖDisp "Difference Quotient="ÖDisp slopeÖMenu(1,"Again",again,5,"Quit",quit)ÖLbl againÖClLCDÖDisp "Reenter x and h"ÖDisp "or just h?"ÖMenu(1,"h",getH,5,"x, h",main)ÖLbl quitÖ oTrapom ClLCDÖDisp "Trapezoidal"ÖDisp "Integration"ÖDisp ""ÖDisp "Do you want graphics"ÖMenu(1,"Yes",YES,5,"No",NO)ÖLbl YESÖ1GÖDisp "Graphics On"ÖGoto NINTÖLbl NOÖ0GÖDisp "No Graphics"ÖLbl NINTÖPrompt xMinÖPrompt xMaxÖLbl OptsÖClLCDÖDisp "Number of intervals:"ÖPrompt NÖ(xMax-xMin)/NDÖ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)/62HÖ yMax+HyMaxÖ yMin-HyMinÖ If yMin>0Ö  0yMinÖ If yMax<0Ö  0yMaxÖ DrawF y1Ö StPic functgrÖ 2GÖ FnOffÖEndÖLbl NoGÖ0RSumÖxMinXÖ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+YRSumÖ X+DXÖEndÖIf G0Ö PauseÖ ÖRSum*DRSumÖDisp "Trapezoidal sum=",RSumÖMenu(1,"Again",Opts,5,"Quit",Quit)ÖLbl QuitÖ èTrigèæé-  Trig Function oé-    Displayer oé- oé-Select mode: oé- oD0 4DSoLD1 /-Dynamic /5DYN/D5 /-Stepped /5STPoàSTP oD1 4DSoé-Use ^ and v to rotate oàDYN oé-Hit ENTER to begin oâ-and when done. o¡D2 =oD2 =o¡D1.2 =oD1.2 =o‘oƒoœD0 /D0 /D1 o’6CPicoVoD0 3AoàREDRAW o¬3A4cAoª3A4sAoƒo“6CPico–4cA/4sA/D0 /D0 o–4cA/4sA/D0 /4sAo–4cA/4sA/4cA/D0 oàWAITKEY oC3KoØ3KPD105 oáåEXIT oØ4DSPD0 oD25 3KoØ3KPD0 oájWAITKEY oØ3KPD25 o3A`D0.15 3AoØ3KPD34 o3AaD0.15 3AoáREDRAW oàEXIT ÆÛ