{VERSION 6 0 "IBM INTEL NT" "6.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 "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {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 "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 " " 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 } {PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 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 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been redefined\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "smooth:=proc(c1,c2,mu)\n ret urn (c1+c2)/2+sqrt((p1^2+p2^2)*mu+((c1-c2)/2)^2)\nend proc:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "cp:=proc(p)\n p[1]*p1+p[2]*p 2\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 119 "Smooth:=pr oc(L,mu)\n local i,C;\n C:=cp(L[1]):\n for i from 2 to nops(L) do\n C :=smooth(C,cp(L[i]),mu):\n end do:\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 89 "dc:=proc(c,alpha)\n map2(diff,c,[p1,p2]):\n subs ([p1=cos(alpha),p2=sin(alpha)],%)\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 112 "Plot:=proc(L,mu,N,opts)\n dc(Smooth(L,mu),'alph a'):\n plot([op(%),'alpha'=0..2*Pi],numpoints=N,op(opts))\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "L:=[[1,1],[2,-2],[-1,-1], [-2,1.5],[-1,2]];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"LG7'7$\"\"\"F '7$\"\"#!\"#7$!\"\"F,7$F*$\"#:F,7$F,F)" }}}{EXCHG }{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 58 "g_polygon:=pointplot([op(L),L[1]],color=red,co nnect=true):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "mu:=0.01:" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 121 "g_smooth:=Plot(L,0.01,20, \n [color=blue,scaling=constrained,labels=[`x1`,`x2`],\n title=cat(\" mu = \",convert(mu,string))]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "display(g_polygon,g_smooth);" }}{PARA 13 "" 1 "" {GLPLOT2D 495 495 495 {PLOTDATA 2 "6(-%'CURVESG6$7(7$$\"\"\"\"\"!F(7$$\"\"#F*$! \"#F*7$$!\"\"F*F17$F.$\"#:F27$F1F,F'-%'COLOURG6&%$RGBG$\"*++++\"!\")$F *F*F>-F$6$7^p7$$\"3Ti5E3K->?!#<$!3o`%p>=/L'>FE7$$\"3!G[)zeLhFE7$$\"3X]o:$RZp+#FE$!3wHOFlIud=FE7$$\"39Wya&)R%o)>FE$!3u#RZ?'[ EdFE$!3fhm\"FE$!3*))R%z Jv!*GkF`o7$$\"3)f2'=uM'=e\"FE$!3oq'*QVK]wQF`o7$$\"35%44SBXm\\\"FE$!3gH CQ)RiiQ\"F`o7$$\"3vY[-p*)H<9FE$\"3t<$He)zPN&)!#>7$$\"3b&Ggd&)[YI\"FE$ \"3-G(F`o7$$\"3tUkK;y\"f8\"FE$\"3*y')=x*R9L!)F`o7$$\"3k(o*z F;\">4\"FE$\"3A2O(Qj3K(*)F`o7$$\"3[D'=qE,t1\"FE$\"3#>k*eTPzI,\"FE7$$ \"3sC)z*=**f(*)*F`o$\"39shMM'H?0\"FE7$$\"3uC+'[Tj=_)F`o$\"3Y&*3)H6Lb: \"FE7$$\"3Gq(pKVu%zsF`o$\"3^Yovo@pL7FE7$$\"3s@8$\\EeGz%F`o$\"3![LCyLWd P\"FE7$$\"3s>kfEn=wGF`o$\"3I/yGN(=xZ\"FE7$$\"3(=vW')>ySPElF`o$\"3[:%G#*[a?\">FE7$$!3a&Q')R;]4&zF`o$\"3e8 .Yw8fk>FE7$$!3ik%)*)e7I0()F`o$\"3mm#*))H'*y))>FE7$$!3q;'oY=CZ:*F`o$\"3 xk6I3^4,?FE7$$!3&*)o@SlV!>5FE$\"3d>zYX?S>?FE7$$!3%)>tK_=#o0\"FE$\"3P,Y Jc;$)=?FE7$$!3%R'pa(y$fR6FE$\"3W5xzrE4.?FE7$$!3irIKi[?/9FE$\"3x#)G*>)z 'y!>FE7$$!3\")eG;kR%>j\"FE$\"3Mm&Q_6Vxz\"FE7$$!3j(>WdU>3\"=FE$\"3)=\\n >BQLp\"FE7$$!3()=C\"oK>v!>FE$\"3]^t!RQ#)fi\"FE7$$!3[&=t/9)\\b>FE$\"3!y UGW!yP'e\"FE7$$!3i,t(fB&H'*>FE$\"30!Rp>)H*Ra\"FE7$$!3:qLBs'3&4?FE$\"3 \"oIm#G@QC:FE7$$!3T/!p&*3'H:?FE$\"3AhHN>'39^\"FE7$$!3jYOn.8T=?FE$\"3?O _%[y()*)\\\"FE7$$!3h%*\\Z:,v>?FE$\"3Wgz'>?6!z9FE7$$!3ww\"Qiu_?,#FE$\"3 AhiB)ybRT\"FE7$$!3Yj)yt&Q!Q+#FE$\"3ElQ4Hiwt8FE7$$!3#*R&oO\"HL')>FE$\"3 kL@jpag-8FE7$$!3u$H-L$*)\\Y>FE$\"3/*yUEG$fj6FE7$$!3S\\f6oY=^=FE$\"3gj \"3o\\Z@t)F`o7$$!3S3iix(Hfw\"FE$\"3CcI^YZy]jF`o7$$!3K1[xb&=Fl\"FE$\"3C 0Zw2G]mLF`o7$$!3v\"z$eW'\\__\"FE$\"3w!\\28#)=5(=Fep7$$!3CS4S'QQhS\"FE$ !3Q2Rmdn#*HEF`o7$$!3pnFrb/zR7FE$!3#*fU.ji&*)G'F`o7$$!3]#*z\\Y*HJ:\"FE$ !36B'Rbj.$=!)F`o7$$!3Yv5'4z=d/\"FE$!3Q=i[Ncf0)*F`o7$$!3/z/o&*\\=<5FE$! 3nX6*\\$QH75FE7$$!3S*3*o\"H<7\")*F`o$!3DqT,@]RR5FE7$$!3#zPo@Wyr'oF`o$! 3%))4H](e!3=\"FE7$$!37!4UGyRVB&F`o$!3%382aVluC\"FE7$$!3!4[g-#QU$e#F`o$ !37(*[jn;N\\8FE7$$!3\"RS&o7)fqj(Fep$!3`]TWDj>;9FE7$$\"3?:5UWKY!Q\"F`o$ !3ms?#=@gC\\\"FE7$$\"3')*[.)oF`dPF`o$!3%*G5Ic:Eu:FE7$$\"33hnU$*)eT?'F` o$!3k(Q]!z>lb;FE7$$\"3z0\"evFE7$$\"39qbxu%3!)p\"FE$! 3K![#4lr&>(>FE7$$\"3!*z9s4#o7*=FE$!322zQn#=:,#FE7$$\"3y2b+o5HX>FE$!3W \\-S*>.y,#FE7$$\"3'y>BWur$y>FE$!3u:7:5g-=?FE7$$\"3)HqKLK-6*>FE$!3IEl4W 36;?FE7$$\"3sbF?.?**)*>FE$!3\\.c-g\"QN,#FE7$$\"3#=MUjsIR+#FE$!3B],!)=b &3,#FE7$$\"3h1*f$)RL(4?FE$!3hL\")*yQWb+#FE7$$\"3/xF(\\hFE7$$\"3Ty7S\"y>v,#FE$!3#3&)Q'*z$ Q&)>FE7$FC$!35mmy\"=/L'>FE-F86&F:F>F>F;-%&TITLEG6#Q+mu~=~.1e-16\"-%(SC ALINGG6#%,CONSTRAINEDG-%+AXESLABELSG6$%#x1G%#x2G-%%VIEWG6$%(DEFAULTGFj gl" 1 6 0 1 10 0 2 9 1 4 1 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}}{MARK "12 1 0" 0 }{VIEWOPTS 1 1 1 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }