**TI85** Program file dated 01/20/99, 15:29‚ tvolumetrLbl A4ÖClLCDÖInpSt "f(x)=",eqnÖStEq(eqn,y1)ÖInpSt "g(x)=",eqnÖStEq(eqn,y2)ÖInput "lower: ",rÖInput "upper: ",tÖLbl B1ÖMenu(1,"Area",A1,2,"Vol",A2,5,"Exit",A5,3,"Cross",A3,4,"New",A4)ÖLbl A2ÖDisp "Rotate around"ÖMenu(1,"x=",C1,2,"y=",C2,3,"xaxis",C3,4,"yaxis",C4)ÖLbl C3Ö0ÁÖGoto C3aÖLbl C4Ö0ÁÖGoto C4aÖLbl C2ÖInput "y=",ÁÖLbl C3aÖClLCDÖDisp abs fnInt((y1-Á)-(y2-Á),x,r,t)FracÖDisp " *Ä"ÖGoto B1ÖLbl C1ÖInput "x=",ÁÖLbl C4aÖClLCDÖDisp 2*fnInt(abs (y1-y2)*(x-Á),x,r,t)FracÖDisp " *Ä"ÖGoto B1ÖLbl A1:ClLCDÖDisp abs fnInt(abs (y1-y2),x,r,t)FracÖGoto B1ÖLbl A3:ClLCDÖfnInt(abs (y1-y2),x,r,t)KÖOutpt(1,1,"square:"ÖOutpt(1,13,K)ÖOutpt(2,1,"rt tri leg:"ÖOutpt(2,13,.5*K)ÖOutpt(3,1,"rt tri hyp:"ÖOutpt(3,13,.25*K)ÖOutpt(4,1,"equi tri:"ÖOutpt(4,13,.25*K)ÖOutpt(4,19,"*3"ÖOutpt(5,1,"semicircle:"ÖOutpt(5,13,.125*K)ÖOutpt(5,20,"*Ä"ÖGoto B1ÖLbl A5