{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 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 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 -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 }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 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "restart:f:=t->sqrt(x ^2+y^2+r^2-2*r*x*cos(t));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGR6# %\"tG6\"6$%)operatorG%&arrowGF(-%%sqrtG6#,**$)%\"xG\"\"#\"\"\"\"\"\"*$ )%\"yGF3F4F5*$)%\"rGF3F4F5*(F;F5F2F5-%$cosG6#9$F5!\"#F(F(F(" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "X:=Int(x*cos(t)/f(t)^3,t=0.. 2*Pi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"XG-%$IntG6$*&*&%\"xG\"\" \"-%$cosG6#%\"tGF+F+*$),**$)F*\"\"#F+\"\"\"*$)%\"yGF5F+F6*$)%\"rGF5F+F 6*(F " 0 "" {MPLTEXT 1 0 38 "Y:=Int((r-x*cos(t))/f(t)^3,t=0..2*Pi);" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"YG-%$IntG6$*&,&%\"rG\"\"\"*&%\"xG F+-%$cosG6#%\"tGF+!\"\"\"\"\"*$),**$)F-\"\"#F3F+*$)%\"yGF9F3F+*$)F*F9F 3F+*(F*F+F-F3F.F3!\"##\"\"$F9F3!\"\"/F1;\"\"!,$%#PiGF9" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "r:=1:U:=(x,y)->int((cos(t))/f(t),t= 0..2*Pi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"UGR6$%\"xG%\"yG6\"6$% )operatorG%&arrowGF)-%$intG6$*&-%$cosG6#%\"tG\"\"\"-%\"fGF3!\"\"/F4;\" \"!,$%#PiG\"\"#F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "wi th(plots):contourplot(U(x,y),x=-2..2,y=-2..2);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6*-%'CURVESG617$7$$\"1(************ z)!#;$!1t#*f(>ZBU\"F*7$$\"1**H.B3HG7F*7$7$$\"1)************z)F*$\"1m#*f(>ZBU\"F*F@7$7$FG F+7$$\"13&\\SH&Hu%*F*$!18&\\SH&Hu9F*7$7$$\"1++++++S5!#:$!1Rk>\"R3d$=F* FM7$7$F(FI7$$\"1.L+]$RWT*F*$\"1$p'**\\1c&y\"F*7$7$FT$\"1Kk>\"R3d$=F*Fe n7$FS7$$\"1j<9D.g@6FV$!1LwT^K+;;F*7$7$$\"1ok;j-#4:\"FVF0F_o7$Feo7$Ffo$ !1Jok;j-#4$F27$7$FfoF(F*$!1g#4u_@O0#F*7$$\"1I@i/Mm$\\'F*F07$F `q7$Faq$!1OO@i/Mm$*!#=7$7$FaqFaN,dZfLF*7$7$FT$\"1'p4nDH,S $F*Fau7$F]u7$$\"1d@.l))e@6FV$!1s:K]'))e@$F*7$7$$\"1+++++++7FV$!1;k*zJh ;`#F*F[v7$Fgu7$$\"1QO$R/+*z6FV$\"1=Omg&**4g#F*7$7$Fbv$\"14k*zJh;`#F*Fg v7$Fav7$$\"1!Hxf*=v37FV$!1-Hxf*=v[#F*7$7$$\"1kB<5oz87FVF[sFaw7$7$$\"1j B<5oz87FVF[s7$$\"1.:blHm\"H\"FV$!1L]^b'Hmr\"F*7$7$$\"1>/TcnH:8FVF0F^x7 $Fdx7$Fex$!1X>/TcnHNF27$7$FexFF*7$$\"1WRs+_eYPF*$!1L++++++!)F27$7$$\"1XRs +_eYPF*F07$Fez$!16&Rs+_eY&F27$7$FezFvO#H5F*7$7$F`z$\"1]ZeD`;#*>F*Fd[l7$7$$\"1(************f&F*$!1*3 jm7EF*7$7$$\"1ncil8M)3%F*F[sFi\\l7$7$$\"1ocil8M)3%F*F[sF_z7$Fj[l7$$\"1 &*=cc'>B1%F*$\"1*4QMM!oPBF*7$7$F`]lFisFg]l7$7$Fd]lFis7$$\"1eU%[vK&pWF* $\"1Pd:XsYINF*7$7$Fd\\lF`zF`^l7$Ff^l7$$\"1&GRJQ]&z]F*$\"142'oh\\/_%F*7 $7$F_\\l$\"15G/A+pQ]F*Fh^l7$7$F\\q$!1-(*yGRlIjF*7$$\"1:AmF*7$7$F($\"1'Qocy:#QpF*Fcbl7$7$F(F`bl7$$\"1! GOI*z[G5FV$!11GOI*z[3(F*7$7$FT$!1Q7kg-i^I.'pF*7$7$FT$\"1K7kg(>>%>^9FV$!1.++++++cF*F]gl7$7$FdglFh_l7$$\"1M0=o#o W\\\"FV$!1Z`!=o#oW`F*7$7$$\"1++++++?:FV$!1\\)[\"o[$z(\\F*Fjgl7$7$Fahl$ \"1U)[\"o[$z(\\F*7$FdglF_\\l7$FihlFifl7$7$Fahl$!1])[\"o[$z(\\F*7$$\"11 =FwABt:FV$!1m!=FwAB`%F*7$7$$\"1>qUHE#Gg\"FVFf\\lF_il7$Feil7$$\"1llK>=$ pj\"FV$!1dcE$>=$pNF*7$7$$\"1AnHIAxy;FVF[sFiil7$F_jl7$$\"1G7GCY6z;FV$!1 $H7GCY6R#F*7$7$$\"1************z;FV$!1I'\\(H?-UBF*Fcjl7$7$Fjjl$\"1B'\\ (H?-UBF*7$F`jlFis7$Fb[m7$$\"1Mu-7)Hpn\"FV$\"1Vcsz=qICF*7$7$FfilF`zFd[m 7$Fj[mFfhl7$Fijl7$$\"1HI$4KGFV7$7$$!1w[GzIB!y\"Fg]m$!1++++++S=FVFj]m7$7$$!1*4Y\"zIB!y\"Fg]mFc^ m7$$\"1#*e>+gq7#)Fgq$!1'>+gq7#oK+.k))!#B$!1++++++!o\"FVFi ^m7$F__m7$$\"1EKX;#G1f)Fgq$!1`k@G1f3;FV7$7$$!1))*za%fR9aFb_m$!1++++++? :FVFf_m7$7$$!15A4WfR9aFb_mF_`m7$$\"1@3(Q!*\\A&*)Fgq$!1rQ!*\\A&*[9FV7$7 $$!1'44f([Ms`Fb_m$!1++++++g8FVFe`m7$F[am7$$\"1JMpD7'yE*Fgq$!1%pD7'yE*G \"FV7$7$$!1_K\">l[\"*\\#Fb_m$!1+++++++7FVFaam7$7$$!15))oa'[\"*\\#Fb_mF jam7$$\"1s9Ms)p(*[*Fgq$!1UB()p(*[H6FV7$7$$!1(QntI*3;KFb_m$!1++++++S5FV F`bm7$Ffbm7$$\"1k%f&Ht,Qf\"Fb_m$!11++++++))F*7$$\"1*Q!>\")G\"\\K*Fg q$!17>\")G\"\\K4)F*7$7$$!1#R6h!)y7L#Fb_m$!1/++++++sF*F]dm7$7$$!18Os/)y 7L#Fb_mFfdm7$$\"1k]J=cC*o)Fgq$!1eJ=cC*o['F*7$7$$!1_:t(=mTZ\"Fb_mFh_lF \\em7$7$$!1$))\\c=mTZ\"Fb_mFh_l7$$\"1%)e(\\^+\"zuFgq$!1m(\\^+\"zu[F*7$ 7$$!1(*zz#QnS:#Fb_mFf\\lFiem7$7$$!1()=\\$QnS:#Fb_mFf\\l7$$\"1Y-kYWdwbF gq$!15kYWdwbKF*7$7$$!1^!)3(o/(o8Fb_mF[sFffm7$7$$!1IeZ)o/(o8Fb_mF[s7$$ \"1.ua`\">C+$Fgq$!1\"[N:>C+j\"F*7$7$$!1#eCDElu:\"Fb_mF0Fcgm7$7$$!1#pI= Elu:\"Fb_mF07$Fjgm$\"1Vc8$>lu:\"Fb_m7$7$FjgmF![O\"zuFgq$\"1l>![O\"zu[F*7$ 7$FcemF_\\lFiim7$7$FgemF_\\l7$$!1.<#QA$G*o)Fgq$\"16#QA$G*o['F*7$7$Fddm F\\qFbjm7$7$FjdmF\\q7$$!1Q+r)f^\\K*Fgq$\"1%4()f^\\K4)F*7$7$FccmFGF[[n7 $7$Ficm$\"1*************z)F*7$$!1FV7$7$$!1ZE6Yc-^:Fg]m$\"1**************>FVF[_n-F`p6&FbpFcp#FepF[zFgp- F$6gn7$7$Fc_m$!1:?'z)3-UBF*7$$!1>QRtR.?O$\\G^9FVFh_l7$FbdnF can7$F[dn7$$!1?xX[#oW\\\"FV$\"1*>xX[#oW`F*7$7$FcdnF_\\lFgdn7$F]en7$$!1 sr'>c,^S\"FV$\"1;c,^gF*7$7$F^am$\"1-#pC4*e\\iF*F_en7$7$F^am$!13#pC4 *e\\iF*7$$!1@?'*)yd-E\"FV$!1)zz.6Auf'F*7$7$Fjam$!1KS0&*oT(*oF*F\\fn7$F een7$$!1!['HI([AI\"FV$\"1#zkHI([AmF*7$7$Fjam$\"1DS0&*oT(*oF*Fffn7$Fbfn 7$$!1;xZX6r`5FV$!1SGAX&))G1(F*7$7$Fibm$!1$RH+\\rb4(F*F`gn7$F\\gn7$$!1) =Ynq:j<\"FV$\"1u=Ynq:jpF*7$7$Fibm$\"1&QH+\\rb4(F*Fjgn7$Ffgn7$$!12I/+(p 'R!*F*$!1+q&**HI.'pF*7$7$Fecm$!1<>t^b@QpF*Fdhn7$F`hn7$$!1I2Mjz[G5FV$\" 1-tSL'z[3(F*7$7$$!1.++++++))F*$\"14>t^b@QpF*F^in7$7$Fein$!1;>t^b@QpF*7 $$!1tXt(z+yx(F*$!1OaE-#*>AmF*7$7$Ffdm$!1:+40OlIjF*F]jn7$7$Fecm$\"15>t^ b@QpF*7$$!1h(3urFLL)F*$\"1_(3urFLt'F*7$7$Ffdm$\"14+40OlIjF*Fjjn7$Fcjn7 $$!1PB1%F*$!1()e]'>!oPBF*7$7$Ff\\l$!1 )>t3Sk@*>F*Fc^o7$7$$!10++++++SF*$\"1\">t3Sk@*>F*7$F`^oFis7$Fb_o7$$!1T& zA!om7UF*$\"1M&zA!om7EF*7$7$Ff]oF`zFd_o7$Fj_o7$Fh_lFi\\o7$7$F^_oFj^o7$ $!16e8.MwqPF*$!1(>kofO#H5F*7$7$$!1TE7x`eYPF*F0F_`o7$Fe`o7$Ff`o$\"1LjAr P&eY&F27$7$Ff`oF;-^jO \\'F*F0Fhho7$F^io7$F_io$\"1z*=;-^jO*Fgq7$7$F_ioF " 0 "" {MPLTEXT 1 0 35 "a:=1/4:plot(2*a*x/(x^2+a),x=-2..2);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6$7ao7$$!\"#\"\"!$!1 )eqk!#:$!1PDUN;xYCF-7$$!1nm;M!\\p$=F1$!1z&ot+bT `#F-7$$!1LLL))Qj^M)*HF-7$$!1++]nU)*=9F 1$!1f?V!yoW8$F-7$$!1LL$3WDTL\"F1$!1&=?K?+iG$F-7$$!1++]d(Q&\\7F1$!14NiJ u>\\MF-7$$!1nmmc4`i6F1$!1YuTEfbHOF-7$$!1LLLQW*e3\"F1$!1*z9hUZ!*z$F-7$$ !1,+++()>'***F-$!1')*HWS74+%F-7$$!1++++0\"*H\"*F-$!1p1a@>&H@%F-7$$!1++ ++83&H)F-$!1PTmF/H@WF-7$$!1LLL3k(p`(F-$!1ZL!y9:mg%F-7$$!1nmmmj^NmF-$!1 DxEC,D1[F-7$$!1omm;*)o`iF-$!1$)RC!>;u([F-7$$!1ommm9'=(eF-$!1'RB?n*4O\\ F-7$$!1ML$3P0xU&F-$!1MyAF\\?$)\\F-7$$!1,++v#\\N)\\F-$!1F#y\"[G(***\\F- 7$$!1om\"Hdspy%F-$!1=*3+Zk_*\\F-7$$!1NL$3(eR!f%F-$!1cQQA>z\")\\F-7$$!1 -+vo\">QR%F-$!1O3.(yJ&e\\F-7$$!1pmmmCC(>%F-$!1wo=&y$RC\\F-7$$!1ML$3(3* ew$F-$!1M-t#*pk0[F-7$$!1*****\\FRXL$F-$!1IG./l-;YF-7$$!1******\\0zBHF- $!122wT6bdVF-7$$!1+++D=/8DF-$!1(RwoGsC,%F-7$$!1LL$3ioW3#F-$!1gWpzxl^NF -7$$!1mmm;a*el\"F-$!1lBZWoX%)HF-7$$!1nm;H9Li7F-$!1UGZG^QtBF-7$$!1pmm;W n(o)!#<$!1n$=\")\\:mo\"F-7$$!1.++D^bUWFgu$!1OGi'*f^:))Fgu7$$!1qLLL$eV( >!#=$!1c=!y4b'[RFbv7$$\"1[mmT+07UFgu$\"1;**3C$RZO)Fgu7$$\"1Mmm;f`@')Fg u$\"1)zB5x>Xn\"F-7$$\"1JLLL1+Y7F-$\"1Hn5:ZHYBF-7$$\"1)****\\nZ)H;F-$\" 1it1<4gYHF-7$$\"1JL$e*HTW?F-$\"1vJ(Hl^J]$F-7$$\"1lmm;$y*eCF-$\"1WQ:VV9 gRF-7$$\"1KLLe[E()GF-$\"1zTq%370L%F-7$$\"1*******R^bJ$F-$\"1rK]%HVeg%F -7$$\"1(****\\AYXt$F-$\"1$GJ^[:Wz%F-7$$\"1'*****\\5a`TF-$\"1.Tfx<@:\\F -7$$\"1'**\\(o0CcVF-$\"1A3y-8)G&\\F-7$$\"1'***\\(3S*eXF-$\"1#4)[G_vy\\ F-7$$\"1(**\\igR;w%F-$\"15mxJ6/%*\\F-7$$\"1(****\\7RV'\\F-$\"1-y'*>>() **\\F-7$$\"1(***\\PcY9aF-$\"1Dn+Xp=%)\\F-7$$\"1'*****\\@fkeF-$\"1NFIF0 2P\\F-7$$\"1jmmT30piF-$\"1X)*oP%pZ([F-7$$\"1JLLL&4Nn'F-$\"1SW!o0>')z%F -7$$\"1*******\\,s`(F-$\"1S/rd;c1YF-7$$\"1lmm\"zM)>$)F-$\"1$=\")f:F^T% F-7$$\"1*******pfa<*F-$\"1f5e<(Q;?%F-7$$\"1HLLeg`!)**F-$\"1IK(RwtY+%F- 7$$\"1++]#G2A3\"F1$\"1z%Q_#\\W2QF-7$$\"1LLL$)G[k6F1$\"18+#3pn`i$F-7$$ \"1++]7yh]7F1$\"1`#3=.UqW$F-7$$\"1nmm')fdL8F1$\"1F1$\"1re>VEYYCF- 7$$\"\"#F*$\"1)eqk " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "5 1 0" 2 }{VIEWOPTS 1 1 0 1 1 1803 }