{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 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }} {PARA 0 "" 0 "" {TEXT -1 74 "Torus and offset surfaces. ao are moving \+ outward, ainn are moving inward. " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "torus:=plot3d([(3+cos(u))*cos(v),(3+cos(u))*sin(v),sin(u)],u=0..2* Pi,v=0..2*Pi):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 140 "ao:=animate3d([( 3+cos(u))*cos(v)+C*cos(u)*cos(v),(3+cos(u))*sin(v)+C*cos(u)*sin(v),sin (u)+C*sin(u)],u=0..2*Pi,v=0..1.8*Pi,C=0..3,frames=60):" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 18 "display(torus,ao);" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 152 "ainn:=animate3d([(3+cos(u))*cos(v)-C*cos(u)*cos(v) ,(3+cos(u))*sin(v)-C*cos(u)*sin(v),sin(u)-C*sin(u)],u=0..2*Pi,v=0..2*P i,C=0..3,frames=60,color=cyan):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 110 "toruscut:=plot3d([(3+cos(u))*cos(v),(3+cos(u))*sin(v ),sin(u)],u=0..2*Pi,v=0..1.7*Pi):\ndisplay(toruscut,ainn);\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 149 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }