{VERSION 5 0 "IBM INTEL NT" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 257 "" 1 24 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
258 "" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 
0 0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 257 
1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 
0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT -1 0 "" }{TEXT 256 0 "" }{TEXT 
257 22 "Surfaces of Revolution" }{TEXT 258 0 "" }}{PARA 257 "" 0 "" 
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 830 "restart:wi
th(plots): \n\nsurfxyanimate:=proc(f,g,a,b) local mina,maxa,minb,maxb,
ra,rb,i,nd:\nmina:=min(f(a),g(a)):\nmaxa:=max(f(a),g(a)):\nminb:=min(f
(b),g(b)):\nmaxb:=max(f(b),g(b)):\nra:=x->((x-b)*mina-(x-a)*maxa)/(a-b
):\nrb:=x->((x-b)*minb-(x-a)*maxb)/(a-b):\nnd:=x->Pi/2+x*2*Pi/30:\nplo
ts[display](seq(display(plot3d(\{[cos(theta)*x,sin(theta)*x,f(x)],[cos
(theta)*x,sin(theta)*x,g(x)],[cos(theta)*a,sin(theta)*a,ra(x)],[cos(th
eta)*b,sin(theta)*b,rb(x)]\},theta=Pi/2..nd(k),x=a..b,scaling=constrai
ned,style=wireframe),spacecurve(\{[cos(nd(k))*x,sin(nd(k))*x,f(x)],[co
s(nd(k))*x,sin(nd(k))*x,g(x)],[cos(nd(k))*a,sin(nd(k))*a,ra(x)],[cos(n
d(k))*b,sin(nd(k))*b,rb(x)]\},x=a..b,color=red,thickness=3,scaling=con
strained,numpoints=200)),k=1..30),insequence=true)\nend: \n\n\nf:=x->1
-abs(x-2);\ng:=x->abs(x-2)-1;\na:=1;\nb:=3; \n\nsurfxyanimate(f,g,a,b)
; \n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 1 0" 0 }{VIEWOPTS 1 1 0 1 1 
1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }