\START85\
\COMMENT=Program file dated 03/14/00, 15:59
\NAME=volume
\FILE=C:\TI85LINK\PROGRAMS\VOLUME.85P
::ClLCD
:Disp ""
:Disp "       Volumes"
:Disp ""
:Disp "   by Nick Markham"
:Disp "  and Andy Schechter"
:Disp ""
:Disp "  markhamnr@aol.com"
:Pause 
:Lbl A4
:ClLCD
:InpST "f(x)=",eqn
:\St>Eq\(eqn,y1)
:InpST "g(x)=",eqn
:\St>Eq\(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\->\\LC-theta\
:Goto C3a
:Lbl C4
:0\->\\LC-theta\
:Goto C4a
:Lbl C2
:Input "y=",\LC-theta\
:Lbl C3a
:ClLCD
:Disp abs fnInt((y1-\LC-theta\)\^2\-(y2-\LC-theta\)\^2\,x,r,t)\>Frac\
:Disp "                   *\pi\"
:Goto B1
:Lbl C1
:Input "x=",\LC-theta\
:Lbl C4a
:ClLCD
:Disp 2*abs fnInt(abs (y1-y2)*(x-\LC-theta\),x,r,t)\>Frac\
:Disp "                   *\pi\"
:Goto B1
:Lbl A1:ClLCD
:Disp abs fnInt(abs (y1-y2),x,r,t)\>Frac\
:Goto B1
:Lbl A3:ClLCD
:fnInt(abs (y1-y2)\^2\,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,"*\sqrt\3"
:Outpt(5,1,"semicircle:"
:Outpt(5,13,.125*K)
:Outpt(5,20,"*\pi\"
:Goto B1
:Lbl A5
\STOP85\