{VERSION 3 0 "IBM INTEL NT" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 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 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "restart:with(plots): " }{TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 125 "X:=cos(k*2*Pi/n )*2*cos(t)**2-sin(k*2*Pi/n)*2*cos(t)*sin(t):Y:=sin(k*2*Pi/n)*2*cos(t)* *2+cos(k*2*Pi/n)*2*cos(t)*sin(t):\nn:=30:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 119 "#s:=seq(tubeplot([X,2*sin(t),Y],t=0..2*Pi,radius=0.1 ),k=0..n-1):\ns:=seq(spacecurve([X,2*sin(t),Y],t=0..2*Pi),k=0..n-1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "display3d(s,insequence=tr ue,linestyle=24,scaling=constrained);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 91 "b:=1:plot([cos(t)-b*sin(t),-sin(t)*(cos(t)-b*sin(t)), t=0..2*Pi],xtickmarks=0,ytickmarks=0);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 420 "a:=2:b:=1:plot([[sqrt(2*(b+sqrt(a^2+b^2))*y+a^2)+sqr t(2*(b-sqrt(a^2+b^2))*y+a^2),y,y=-sqrt(a^2+b^2)..sqrt(a^2+b^2)],[sqrt( 2*(b+sqrt(a^2+b^2))*y+a^2)-sqrt(2*(b-sqrt(a^2+b^2))*y+a^2),y,y=-sqrt(a ^2+b^2)..sqrt(a^2+b^2)],[-sqrt(2*(b+sqrt(a^2+b^2))*y+a^2)-sqrt(2*(b-sq rt(a^2+b^2))*y+a^2),y,y=-sqrt(a^2+b^2)..sqrt(a^2+b^2)],[-sqrt(2*(b+sqr t(a^2+b^2))*y+a^2)+sqrt(2*(b-sqrt(a^2+b^2))*y+a^2),y,y=-sqrt(a^2+b^2). .sqrt(a^2+b^2)]]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "plot( [a*cos(t)-b*sin(t),sin(t)*(-a*cos(t)\n+b*sin(t)),t=0..2*Pi]);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "implicitplot((x^2-b*y)^2-a^ 2*(x^2-y^2),x=-sqrt(a^2+b^2)..sqrt(a^2+b^2),y=-sqrt(a^2+b^2)..sqrt(a^2 +b^2));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "8" 0 } {VIEWOPTS 1 1 0 1 1 1803 }