{VERSION 4 0 "IBM INTEL NT" "4.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 160 125 63 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 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 } {CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 260 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 } {CSTYLE "" -1 261 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 262 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 263 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 264 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 265 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 266 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 267 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 268 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 269 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 270 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 } {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 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 " Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 } {PSTYLE "Normal" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 1 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 41 "with(plots):with(lin alg):with(plottools):" }}}{EXCHG {PARA 256 "" 0 "" {TEXT -1 103 "The P olya vector field F of a function f(z)=f(x+iy)=u(x,y)+i*v(x,y) is defi ned to be the set of vectors" }}{PARA 256 "" 0 "" {TEXT -1 95 "F=[F_x, F_y]=[u(x,y),-v(x,y)] in the plane. Here F_x, and F_y, denote the x a nd y components of" }}{PARA 256 "" 0 "" {TEXT -1 24 "the vector field. (They " }{TEXT 267 6 "do not" }{TEXT -1 62 " represent partial deriva tives.) In the theory of electricity" }}{PARA 256 "" 0 "" {TEXT -1 65 "and magnetism, one can think of the Polya vector field as either \+ " }}{PARA 256 "" 0 "" {TEXT -1 47 "an electrostatic field F or a magne tic field B." }}{PARA 256 "" 0 "" {TEXT -1 0 "" }}{PARA 256 "" 0 "" {TEXT -1 96 "Below is the Polya vector field corresponding to f(z)=1/z . Note the behavior of the field at the" }}{PARA 256 "" 0 "" {TEXT -1 78 "singularity z=0. In physics, the singularity at z=0 represents a p oint charge." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "f:=z->z^2; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGR6#%\"zG6\"6$%)operatorG%&ar rowGF(*$)9$\"\"#\"\"\"F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "u:=unapply(evalc(Re(f(x+I*y))),(x,y));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"uGR6$%\"xG%\"yG6\"6$%)operatorG%&arrowGF),&*$)9$\" \"#\"\"\"F2*$)9%F1F2!\"\"F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "v:=unapply(evalc(Im(f(x+I*y))),(x,y));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"vGR6$%\"xG%\"yG6\"6$%)operatorG%&arrowGF),$*&9%\"\" \"9$F0\"\"#F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "F:=[u( x,y),-v(x,y)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"FG7$,&*$)%\"xG\" \"#\"\"\"F+*$)%\"yGF*F+!\"\",$*&F)F+F.F+!\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "g1:=fieldplot(F,x=-1..1,y=-1..1,arrows=thick,col or=red,grid=[5,5]):display(g1);" }}{PARA 13 "" 1 "" {GLPLOT2D 304 304 304 {PLOTDATA 2 "6$-%)POLYGONSG6<7*7$$!\"\"\"\"!$!3+++++++]7!#<7$$!3MJ O.ZIBK#)!#=$!3-jLq/LAt5F-7$$!3#3@6!\\Vu5%*F1F27$F5$!3++++++++vF17$$!3# *y))4lb#*e5F-F87$F;F27$$!3)pj'H&pwn<\"F-F2F'7*7$$!3++++++]PfF1$!3+++++ ++D6F-7$$!3+FW:;Rq!R%F1$!3V?z38H!H5\"F-7$$!3u;K9n&f*z\\F1$!33hPER(3(e5 F-7$$!3U0c]u@(yw$F1$!3m&z?\"p3(4(*)F17$$!3e%R%\\Dy7dVF1$!3M/#z38H!H&)F 17$$!3[1?8=_@pbF1$!3&>gRac9X,\"F-7$$!3m&z?\"p3ZehF1$!3,FW:;R?.(*F1FB7* 7$$F,F1F(7$$!3Mb\"o^Bl6m$!#>$!3[=$[wM)Q)3\"F-7$Fco$!3dR%\\Dyi%H5F-7$$ \"3+++++++]7F1Fio7$F\\p$!3T0c]u@P0(*F17$FcoF_p7$Fco$!37:o^Bl6;\"*F1F`o 7*7$$\"3++++++]iSF1$!3+++++++]()F17$$\"3y.#z38H:%QF1$!3>dXQ3'z'H5F-7$$ \"3_$*z'=y%yIWF1$!3c!)RgXV&[&)*F17$$\"3S0c]u@(Gk&F1$!3cz?\"p3(4Z6F-7$$ \"3f%R%\\Dy7KiF1FJ7$$\"3q#ycGVS+-&F1$!36)Qitg7HT*F17$$\"3*HdXQ3'H4cF1F TFfp7*7$$\"\"\"F*F87$$\"3MJO.ZIBK#)F1$!3moj'H&pwn#*F17$$\"3#3@6!\\Vu5% *F1F\\s7$F_sF+7$$\"3#*y))4lb#*e5F-F+7$FcsF\\s7$$\"3)pj'H&pwn<\"F-F\\sF fr7*7$$!3++++++]i!*F1$!3+++++++]iF17$$!3L/#z38H:%))F1$!3,FW:;R?.ZF17$$ !3_$*z'=y%yI%*F1$!3Y>gRac9X^F17$$!3Wg0XhPER(3(e&F17$$!3=dXQ3 'H41\"F-$!3M/#z38H!HgF1Fjs7*7$$!3++++++++]F1$!3+++++++DcF17$$!3c2%eZF \"RJZ^F1F\\w7$F_wFfv7$$!3W#fT#Q<%>W&F1FfvF^v7*7$$!3+++++++DJFeoF_v7$$! 3O)Q?z38H:*!#?$!3n&z?\"p3(4A&F17$Fjw$!3#*)ftj&plt]F17$$\"3+++++++DJFeo F`x7$Fcx$!33,kiVIME\\F17$FjwFfx7$Fjw$!3y.#z38H!zZF1Ffw7*7$$\"3++++++++ ]F1F\\w7$$\"3c2%eZF\"RJZ^F1Fav7$FjyFcy7$$\"3W#fT#Q<%>W&F1FcyF]y7*7$$\"3++++++ v$4\"F-$!3+++++++]PF17$$\"3+FW:;Rq!R*F1Fau7$$\"3IhPER(3(e&F17$F_u$\"3A'z?\"p3(4(RF17$Fjt$\"3y.#z38H!HNF17$Fet$\"3 Y>gRac9X^F17$F`t$\"3,FW:;R?.ZF1Fh`l7*7$F_v$\"3+++++++DcF17$Fcw$\"3c2%e gRac9X,\"F-7$FW$\"3M /#z38H!H&)F17$FR$\"3m&z?\"p3(4(*)F17$FM$\"33hPER(3(e5F-7$FH$\"3V?z38H! H5\"F-Fefl7*7$FaoFgr7$Fco$\"37:o^Bl6;\"*F17$Fco$\"3T0c]u@P0(*F17$F\\pF ^hl7$F\\p$\"3dR%\\Dyi%H5F-7$FcoFbhl7$Fco$\"3[=$[wM)Q)3\"F-Figl7*7$FgpF b`l7$FcrF`gl7$F^r$\"36)Qitg7HT*F17$F[rFfgl7$Ffq$\"3cz?\"p3(4Z6F-7$Faq$ \"3c!)RgXV&[&)*F17$F\\q$\"3>dXQ3'z'H5F-Fihl7*7$FgrF_fl7$Fgs$\"3moj'H&p wn#*F17$FcsF[jl7$FcsFiel7$F_sFiel7$F_sF[jl7$FjrF[jlFiil-%&COLORG6&%$RG BG$\"*++++\"!\")Fb\\lFb\\l-%+AXESLABELSG6$%\"xG%\"yG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "g := transform((x,y) -> [2*x,y]):\ndisplay( \{g(g1)\});" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6$- %)POLYGONSG6<7*7$$!\"#\"\"!$!++++]7!\"*7$$!+4mWY;F-$!+0LAt5F-7$$!+q)[@ )=F-F17$F4$!+++++v!#57$$!+I6&y6#F-F77$F;F17$$!+!R`NN#F-F1F'7*7$$!+++]( =\"F-$!++++D6F-7$$!+KyS\"y)F9$!+8H!H5\"F-7$$!+M\">*f**F9$!+R(3(e5F-7$$ !+]VuNvF9$!+p3(4(*)F97$$!+]cD9()F9$!+J\"H!H&)F97$$!+WI%Q6\"F-$!+lX^95F -7$$!+uTpJ7F-$!+;R?.(*F9FB7*7$$!+++++DF9$!\"\"F*7$$!+q/LAt!#6$!+[$)Q)3 \"F-7$Ffo$!+$yi%H5F-7$$\"+++++DF9F\\p7$F_p$!+v@P0(*F97$FfoFbp7$Ffo$!+C l6;\"*F9F`o7*7$$\"++++D\")F9$!++++]()F97$$\"+i#eIo(F9$!+3'z'H5F-7$$\"+ k&p:'))F9$!+YV&[&)*F97$$\"+NWdG6F-$!+(3(4Z6F-7$$\"+lbUY7F-FJ7$$\"+(33S +\"F-$!+2E\"HT*F97$$\"+<#f=7\"F-FTFip7*7$$\"\"#F*F77$$\"+4mWY;F-$!+`pw n#*F97$$\"+q)[@)=F-F_s7$FbsF+7$$\"+I6&y6#F-F+7$FfsF_s7$$\"+!R`NN#F-F_s Fir7*7$$!+++]7=F-$!++++]iF97$$!+EeIo*f*>F-$!+2E\"HT%F97$$\"+NWd`F-$\"+lZ$)Q))Fho7$Fc\\l$\"+b#yi%HFho7$$!++++]AF-Fh\\l7$F[]l$!+b#yi% HFho7$Fc\\lF^]l7$Fc\\l$!+lZ$)Q))FhoF^\\l7*7$$!++++v$*F9Fa\\l7$$!+Q<%p \")*F9$\"+\"p3(4AFho7$Fi]l$\"+Pcplt!#77$$!+++]i5F-F^^l7$Fb^l$!+PcpltF` ^l7$Fi]lFe^l7$Fi]l$!+\"p3(4AFhoFe]l7*7$Fa\\lFa\\lF\\_lF\\_lF\\_lF\\_lF \\_lF\\_lF\\_l7*7$$\"+++]i5F-Fa\\l7$$\"+EeI=5F-F[^l7$Fb_lF^^l7$$\"++++ v$*F9F^^l7$Ff_lFe^l7$Fb_lFe^l7$Fb_lFi^lF^_l7*7$$\"++++]AF-Fa\\l7$$\"+/ LAt?F-Fe\\l7$F``lFh\\l7$$\"++++] " 0 "" {MPLTEXT 1 0 28 "diverge([op(F),0], [x,y,z]);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&\"\"\"F%,&*$)%\"xG\"\"#F%F%*$)%\"y GF*F%F%!\"\"F**&*&F*F%F(F%F%*$)F&F*F%F.F.*&*&F*F%F,F%F%*$F2F%F.F." }}} {EXCHG {PARA 256 "" 0 "" {TEXT -1 4 "The " }{TEXT 260 4 "curl" }{TEXT -1 65 " of a vector field F = [F_x, F_y] at a point is defined to be t he" }}{PARA 256 "" 0 "" {TEXT 257 6 "vector" }{TEXT -1 29 " quantity o btained by taking " }{TEXT 261 13 "cross product" }{TEXT -1 20 " of th e DEL operator" }}{PARA 256 "" 0 "" {TEXT -1 52 "with the vector F_z*i + F_y*j + F_z*k at that point." }}{PARA 256 "" 0 "" {TEXT -1 0 "" }} {PARA 256 "" 0 "" {TEXT -1 78 "Intuitively, the curl measures rotation al tendency of the vector field at that" }}{PARA 256 "" 0 "" {TEXT -1 85 "point. Think of placing a paddle wheel placed at a point with its \+ blade perpendicular" }}{PARA 0 "" 0 "" {TEXT 262 75 "to the plane. If \+ the paddle wheel rotates, the curl is different from zero." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 256 "" 0 "" {TEXT -1 88 "4. Show that if f is differentiable at a point z=z0, then the curl of the corresponding " }}{PARA 256 "" 0 "" {TEXT -1 22 "Polya vector field is " }{TEXT 265 11 "zero there." }{TEXT -1 76 " ( Hint: Use the cross product, together with the Cauchy-Riemann equation s.)" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" } }{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 266 58 "Below M aple calculates the curl for the Polya field above." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "curl([op(F),0], [x,y,z]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7%\"\"!F'F'" }}}{EXCHG {PARA 256 "" 0 "" {TEXT -1 91 "The above results have a significant connection to phy sics, as the curl and divergence are " }}{PARA 256 "" 0 "" {TEXT -1 89 "essential for formulating the differential form of Maxwell's equat ions, the four primary " }}{PARA 256 "" 0 "" {TEXT -1 60 "equations th at govern the theory electricity and magnetism. " }}}}{MARK "11 1 1" 17 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }