{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 }{PSTYLE "Maple Plot " 0 13 1 {CSTYLE "" -1 -1 "" 0 1 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 0 "> " 0 "" {MPLTEXT 1 0 315 "rotation := proc(f, f1,g,g1,n)\nseq(spacecurve(\{[g(t)*cos(u),f(t),g(t)*sin(u),t=0..0.5],[ g1(t)*cos(u),f1(t),g1(t)*sin(u),t=0..0.5],[[g(0.5)*cos(u),f(0.5),g(0.5 )*sin(u)],[g1(0.5)*cos(u),f1(0.5),g1(0.5)*sin(u)]]\},scaling=constrain ed,thickness=2,color=red,numpoints=10,orientation=[0,0]),u=[seq(2*k*Pi /n,k=0..n-1)])\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 167 "b: =2:h:=sqrt(b^2-1):c:=sqrt(b^2+1):l:=2*EllipticK(h/c)/c:\nf:=t->Ellipti cF(sin(Pi*t),h/c)/c:\nf1:=t->l-EllipticF(sin(Pi*t),h/c)/c:\ng:=t->h*si n(Pi*t):\ng1:=t->h*sin(Pi*t):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "display3d(rotation(f,f1,g,g1,15),insequence=true);" }}{PARA 13 " " 1 "" {GLPLOT3D 400 300 300 {PLOTDATA 3 "6#-%(ANIMATEG617'-%'CURVESG6 %7,7%\"\"!F,F,7%$\"+kYn2I!#5$\"+kl\"*=6\"FAF,7%FT$\"+#H5P %**F0F,7%FY$\"+O?t=()F0F,FgnF^o-F(6%7$FXFXFgnF^o-%(SCALINGG6#%,CONSTRA INEDG-%+PROJECTIONG6%F,F,\"\"\"7'-F(6%7,F+7%$\"+FvkZFF0F1$\"+'\\JLA\"F 07%$\"+u\"4=T&F0F7$\"+%o#\\4CF07%$\"+Sd`6zF0F<$\"+cEWANF07%$\"+Iu3<5FA FB$\"+\"*\\OGXF07%$\"+)f<@@\"FAFG$\"+Z_p'R&F07%$\"+(==.P\"FAFL$\"+['\\ 55'F07%$\"+^B)o[\"FAFQ$\"+Vn-?mF07%$\"+Z$o#e:FAFV$\"+uw&y$pF07%$\"+[rI #e\"FAFen$\"+6`)[/(F0FgnF^o-F(6%7,Feo7%FcrFioFer7%FhrF\\pFjr7%F]sF_pF_ s7%FbsFbpFds7%FgsFepFis7%F\\tFhpF^t7%FatF[qFct7%FftF^qFht7%F[uFaqF]uFg nF^o-F(6%7$7%F[uFen$\"+7`)[/(F0F^vFgnF^oFfqFjq7'-F(6%7,F+7%$\"+sr_7?F0 F1$\"+jy8NAF07%$\"+BZ!R'RF0F7$\"+$>iBS%F07%$\"+P5%[z&F0F<$\"+xH#eV'F07 %$\"+QSq\\uF0FB$\"+OXtt#)F07%$\"+^:@y))F0FG$\"+eGDg)*F07%$\"+5fp.5FAFL $\"+Rsr96FA7%$\"+sQ2*3\"FAFQ$\"+s!R&47FA7%$\"+w3OT6FAFV$\"+t'4wE\"FA7% $\"+2#o*e6FAFen$\"+&fkrG\"FAFgnF^o-F(6%7,Feo7%FfvFioFhv7%F[wF\\pF]w7%F `wF_pFbw7%FewFbpFgw7%FjwFepF\\x7%F_xFhpFax7%FdxF[qFfx7%FixF^qF[y7%F^yF aqF`yFgnF^o-F(6%7$7%F^yFen$\"+'fkrG\"FAFazFgnF^oFfqFjq7'-F(6%7$7%$\"+] 8L_`F0Fen$\"+2#ysk\"FAFhzFgnF^o-F(6%7,F+7%$\"+ZeA%H*F3F1$\"+)eo/'GF07% $\"+M^gI=F0F7$\"+%GBSj&F07%$\"+uc;wEF0F<$\"+P5RO#)F07%$\"+uATSMF0FB$\" +A+&)e5FA7%$\"+(oB,5%F0FG$\"+<$))=E\"FA7%$\"+<\\DNYF0FL$\"+vZeE9FA7%$ \"+siaH]F0FQ$\"+w^$za\"FA7%$\"+3u,r_F0FV$\"+]BDA;FA7%$\"+Z8L_`F0FenF[[ lFgnF^o-F(6%7,Feo7%Fa[lFioFc[l7%Ff[lF\\pFh[l7%F[\\lF_pF]\\l7%F`\\lFbpF b\\l7%Fe\\lFepFg\\l7%Fj\\lFhpF\\]l7%F_]lF[qFa]l7%Fd]lF^qFf]l7%Fi]lFaqF [[lFgnF^oFfqFjq7'-F(6%7,F+7%$!+1h(Q9$F3F1$\"+2$)>\"*HF07%$!+FrA#>'F3F7 $\"+n0^\"*eF07%$!+i/V_!*F3F<$\"+iA\"Gh)F07%$!+G!eP;\"F0FB$\"+,=C26FA7% $!+6G\"pQ\"F0FG$\"+&Rf&>8FA7%$!+\\p#zc\"F0FL$\"+WGy\"\\\"FA7%$!+@/I,'HF0F7$\"+\\@II^F07%$!+?q7IVF0F<$\"+,+++ vF07%$!+%*RqmbF0FB$\"+[T\"=k*F07%$!+%[RTj'F0FG$\"+lm1\\6FA7%$!+-+++vF0 FL$\"+1\"Q!*H\"FA7%$!+:o(z8)F0FQ$\"+K*Q&49FA7%$!+@`oG&)F0FV$\"+I;@x9FA 7%$!+QSDg')F0FenFJFgnF^o-F(6%7,Feo7%FaclFioFccl7%FfclF\\pFhcl7%F[dlF_p F]dl7%F`dlFbpFbdl7%FedlFepFgdl7%FjdlFhpF\\el7%F_elF[qFael7%FdelF^qFfel 7%FielFaqFJFgnF^o-F(6%7$7%$!+SSDg')F0FenFJFjflFgnF^oFfqFjq7'-F(6%7,F+7 %$!+<*fKV#F0F1$\"+6o'yw\"F07%$!+hke#z%F0F7$\"+$)y,#[$F07%$!+$p#H1qF0F< $\"+0'p.4&F07%$!+ni62!*F0FB$\"+BI0WlF07%$!+%HF0F1$\"+[sI`iF37%$!+d)4Xz&F0F7$\"+#4h;B\"F07%$!+5n+r%) F0F<$\"+g!o0!=F07%$!+J;,*3\"FAFB$\"+zcw9BF07%$!+CN$yH\"FAFG$\"+9.jeFF0 7%$!+-9An9FAFL$\"+j`n=JF07%$!+*\\G?f\"FAFQ$\"+R5'RQ$F07%$!+\"*HF07%Fa_lF7$!+n0^\"*e F07%Ff_lF<$!+iA\"Gh)F07%F[`lFB$!+,=C26FA7%F``lFG$!+&Rf&>8FA7%Fe`lFL$!+ WGy\"\\\"FA7%Fj`lFQ$!+D#z'=;FA7%F_alFV$!+eGR'p\"FA7%FdalFen$!+_CcAiBS%F07%F`wF<$!+xH#eV'F07%FewFB$! +OXtt#)F07%FjwFG$!+eGDg)*F07%F_xFL$!+Rsr96FA7%FdxFQ$!+s!R&47FA7%FixFV$ !+t'4wE\"FA7%F^yFen$!+&fkrG\"FAFgnF^o-F(6%7,Feo7%FfvFioFg^n7%F[wF\\pFj ^n7%F`wF_pF]_n7%FewFbpF`_n7%FjwFepFc_n7%F_xFhpFf_n7%FdxF[qFi_n7%FixF^q F\\`n7%F^yFaqF_`nFgnF^o-F(6%7$7%F^yFen$!+'fkrG\"FAF`anFgnF^oFfqFjq7'-F (6%7$7%F[uFen$!+7`)[/(F0FganFgnF^o-F(6%7,F+7%FcrF1$!+'\\JLA\"F07%FhrF7 $!+%o#\\4CF07%F]sF<$!+cEWANF07%FbsFB$!+\"*\\OGXF07%FgsFG$!+Z_p'R&F07%F \\tFL$!+['\\55'F07%FatFQ$!+Vn-?mF07%FftFV$!+uw&y$pF07%F[uFen$!+6`)[/(F 0FgnF^o-F(6%7,Feo7%FcrFioF^bn7%FhrF\\pFabn7%F]sF_pFdbn7%FbsFbpFgbn7%Fg sFepFjbn7%F\\tFhpF]cn7%FatF[qF`cn7%FftF^qFccn7%F[uFaqFfcnFgnF^oFfqFjq " 1 2 0 1 0 2 1 1 1 2 1.000000 74.000000 172.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "2 1 0" 2 }{VIEWOPTS 1 1 0 1 1 1803 }