{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 0 0 0 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 "MS Sans Serif" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 257 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "MS Sans Serif" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "MS Sans Serif" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 260 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 261 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 262 "" 0 14 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 263 "" 0 14 0 0 0 0 0 1 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 264 "" 0 14 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 265 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 266 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 267 "MS Sans Serif" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 268 "MS Sans Serif" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 269 "MS Sans Serif" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 270 "MS Sans Serif" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 271 "MS Sans Serif" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 272 "MS Sans Serif" 0 1 0 0 0 0 0 0 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 "Hea ding 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 4 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 2" -1 4 1 {CSTYLE " " -1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 2 1 0 1 0 2 2 0 1 }{PSTYLE "Text Output" -1 6 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 2 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "W arning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 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 "Time s" 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 "Title" -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 1 2 2 2 1 1 1 1 }3 1 0 0 12 12 1 0 1 0 2 2 19 1 }{PSTYLE "Heading 3" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 1 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 {PARA 18 "" 0 "" {TEXT -1 34 "Surface Integrals of Vector Fiel ds" }}{PARA 18 "" 0 "" {TEXT -1 20 "Using Maple and the " }{TEXT 256 8 "vec_calc" }{TEXT -1 8 " Package" }}{PARA 0 "" 0 "" {TEXT -1 77 "Thi s worksheet shows how to compute surface integrals of vector fields us ing " }{TEXT 257 5 "Maple" }{TEXT -1 9 " and the " }{TEXT 258 8 "vec_c alc" }{TEXT -1 33 " package. As examples we compute" }}{PARA 0 "" 0 " " {TEXT 260 30 "* The Flux of a Magnetic Field" }{TEXT 263 0 "" }} {PARA 0 "" 0 "" {TEXT 261 24 "* The Expansion of a Gas" }{TEXT 262 0 " " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 13 "To st art the " }{TEXT 259 8 "vec_calc" }{TEXT -1 41 " package, execute the \+ following commands:" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restar t;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "libname:=libname,\"C: /mylib/vector\";" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(libnameG6$Q=C: \\Program~Files\\Maple~6/lib6\"Q0C:/mylib/vectorF'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "with(vec_calc): vc_aliases:" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected names norm and trace have bee n redefined and unprotected\n" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been redefined\n" }}{PARA 6 "" 1 "" {TEXT -1 33 "Package: vec_calc Version 4.3" }}{PARA 6 "" 1 "" {TEXT -1 32 "For all HELP, execute: ?vec_calc" }}{PARA 6 "" 1 "" {TEXT -1 38 "T o use aliases, execute: vc_aliases;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 4 "" 0 "" {TEXT 264 0 "" }{TEXT 265 28 "The Flux of a Magnetic Field" }{TEXT -1 0 "" }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 32 "The magnetic field of a current " }{XPPEDIT 18 0 "i;" "6#%\"iG" }{TEXT -1 61 " moving along an infinitely long straight wire has magnitude " }{XPPEDIT 18 0 "B = 1/4*mu[0]*i/(Pi*r);" "6#/%\" BG*,\"\"\"F&\"\"%!\"\"&%#muG6#\"\"!F&%\"iGF&*&%#PiGF&%\"rGF&F(" } {TEXT -1 7 " where " }{XPPEDIT 18 0 "mu[0];" "6#&%#muG6#\"\"!" }{TEXT -1 19 " is a constant and " }{XPPEDIT 18 0 "r;" "6#%\"rG" }{TEXT -1 155 " is the distance from the wire. Its direction is counterclockwis e around the wire as given by the right hand rule. Suppose two wires \+ are parallel to the " }{XPPEDIT 18 0 "z;" "6#%\"zG" }{TEXT -1 21 "-axi s and located at " }{XPPEDIT 18 0 "[x, y] = [2*a, 0];" "6#/7$%\"xG%\"y G7$*&\"\"#\"\"\"%\"aGF*\"\"!" }{TEXT -1 5 " and " }{XPPEDIT 18 0 "[x, \+ y] = [-2*a, 0];" "6#/7$%\"xG%\"yG7$,$*&\"\"#\"\"\"%\"aGF+!\"\"\"\"!" } {TEXT -1 28 " and each carries a current " }{XPPEDIT 18 0 "i;" "6#%\"i G" }{TEXT -1 99 " but in opposite directions. We want to find the flu x of the magnetic field through the rectangle " }{XPPEDIT 18 0 "-b <= \+ x;" "6#1,$%\"bG!\"\"%\"xG" }{XPPEDIT 18 0 "` ` <= b;" "6#1%\"~G%\"bG" }{TEXT -1 2 ", " }{XPPEDIT 18 0 "y = 0;" "6#/%\"yG\"\"!" }{TEXT -1 6 " , and " }{XPPEDIT 18 0 "0 <= z;" "6#1\"\"!%\"zG" }{XPPEDIT 18 0 "` ` < = c;" "6#1%\"~G%\"cG" }{TEXT -1 1 "." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 34 "The magnetic field of the wire at " } {XPPEDIT 18 0 "[x, y] = [2*a, 0];" "6#/7$%\"xG%\"yG7$*&\"\"#\"\"\"%\"a GF*\"\"!" }{TEXT -1 3 " is" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "B1:=MF( [x,y,z], evall(mu[0]*i/(4*Pi*((x-2*a)^2+(y)^2))*[-y,x-2*a ,0]) );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#B1G7%R6%%\"xG%\"yG%\"zG 6\"6$%)operatorG%&arrowGF+,$*&*(&%#muG6#\"\"!\"\"\"%\"iGF69%F6F6*&%#Pi GF6,&*$),&9$F6*&\"\"#F6%\"aGF6!\"\"FAF6F6*$)F8FAF6F6F6FC#FC\"\"%F+F+F+ RF'F+F,F+,$*&*(F2F6F7F6F>F6F6*&F:F6F;F6FC#F6FGF+F+F+F5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 34 "The magnetic field of the wire at " } {XPPEDIT 18 0 "[x, y] = [-2*a, 0];" "6#/7$%\"xG%\"yG7$,$*&\"\"#\"\"\"% \"aGF+!\"\"\"\"!" }{TEXT -1 3 " is" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "B2:=MF( [x,y,z], evall(-mu[0]*i/(4*Pi*((x+2*a)^2+(y) ^2))*[-y,x+2*a,0]) );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#B2G7%R6%% \"xG%\"yG%\"zG6\"6$%)operatorG%&arrowGF+,$*&*(&%#muG6#\"\"!\"\"\"%\"iG F69%F6F6*&%#PiGF6,&*$),&9$F6*&\"\"#F6%\"aGF6F6FAF6F6*$)F8FAF6F6F6!\"\" #F6\"\"%F+F+F+RF'F+F,F+,$*&*(F2F6F7F6F>F6F6*&F:F6F;F6FE#FEFGF+F+F+F5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 18 "The total field is" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "B3:=MF( [x,y,z], evall(B1(x,y,z)+B 2(x,y,z)) );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#B3G7%R6%%\"xG%\"yG %\"zG6\"6$%)operatorG%&arrowGF+,&*&*(&%#muG6#\"\"!\"\"\"%\"iGF69%F6F6* &%#PiGF6,&*$),&9$F6*&\"\"#F6%\"aGF6F6FAF6F6*$)F8FAF6F6F6!\"\"#F6\"\"%* &#F6FGF6*&*(F2F6F7F6F8F6F6*&F:F6,&*$),&F?F6*&FAF6FBF6FEFAF6F6FCF6F6FEF 6FEF+F+F+RF'F+F,F+,&*&*(F2F6F7F6F>F6F6*&F:F6F;F6FE#FEFG*&**FFF6F2F6F7F 6FPF6F6*&F:F6FMF6FEF6F+F+F+F5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 129 "For the purpose of plotting the functions (and making numerical comou tations) we make the following assignments to the variables:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "a:=1; b:=1; c:=1; i:=1; mu[0 ]:=1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% \"cG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"iG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%#muG6#\"\"!\"\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 43 "We first plot the two functions separately:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 134 "B1plot:=fieldplot3d(B1,-3.. 3,-1..1,-1..1, grid=[9,9,2], color=blue, arrows=SLIM, orientation=[-90 ,0], axes=normal, tickmarks=[7,3,3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 133 "B2plot:=fieldplot3d(B2,-3..3,-1..1,-1..1, grid=[9,9, 2], color=red, arrows=SLIM, orientation=[-90,0], axes=normal, tickmark s=[7,3,3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "display(arra y([B1plot,B2plot]));" }}{PARA 13 "" 1 "" {GLPLOT3D 872 297 297 {PLOTDATA 3 "6D-%'CURVESG6_u7'7%$!+++++5!\")$!+RLb')**!\"*$!+p)fHr*F-7 %F($!+$eX%y**F-$!+?8[K)*F-7%F($!+2IS&***F-$!+z,g2)*F-7%F($!+B*)*\\'**F -$!+c\"3c!)*F-F07'7%F($!+*Gi?](F-$!+1n)Hq*F-7%F($!+7>$4\\(F-$!+*[aC%)* F-7%F($!+V236vF-$!+bhi8)*F-7%F($!+yEgvuF-$!+%\\\"*3\")*F-FE7'7%F($!+g& )e=]F-$!+r$*>*o*F-7%F($!+?4S-]F-$!+B=Cc)*F-7%F($!+F>:F]F-$!+vY1A)*F-7% F($!+l$fY)\\F-$!+ru3=)*F-FZ7'7%F($!+\"=rs`#F-$!+p96p'*F-7%F($!+yNr6DF- $!+>(Hj()*F-7%F($!+RKgVDF-$!+B`gM)*F-7%F($!+%o!*3\\#F-$!+))fKG)*F-Fio7 '7%F($!+([$oLh!#6$!+j4+Q'*F-7%F($!+t-Kk:F\\q$!+F-W2**F-7%F($!+S)Q1)fF \\q$!+P#=Z&)*F-7%F($\"+I)fSt)!#7$!+*f\"\\V)*F-F_q7'7%F($\"+$z$\\(R#F-$ !+()>Q)e*F-7%F($\"+!*3`(\\#F-$!+.#fq&**F-7%F($\"+M)z*GCF-$!+&[F&*))*F- 7%F($\"+7YwADF-$!+0!\\\\')*F-Fer7'7%F($\"+#QR$zZF-$!+&>Taa*F-7%F($\"+A +p(3&F-F(7%F($\"+0W6j\\F-$!+K]YR**F-7%F($\"+'*euy]F-$!+J_qj)*F-Fjs7'7% F($\"+1%R$yrF-$!+l!)[]**F-7%F($\"+>ZpgwF-$!+GJ&\\f*F-7%F($\"+TD[,wF-$! +AX=J(*F-7%F($\"+?4/6vF-$!+yGn7'*F-F]u7'7%F($\"+YN.O)*F-$!+xuex**F-7%F ($\"+,`+v**F-$!+7P&yc*F-7%F($\"+T9.(***F-$!+:fjt'*F-7%F($\"+EE!G*)*F-$ !+N9\\R'*F-Fbv7'7%F($!+\\(ob)**F-$!+p?@psF-7%F($!+t,Vz**F-$!+D)o)*Q(F- 7%F($!+dc5'***F-$!+w**\\ktF-7%F($!+sFTl**F-$!+m<*HO(F-Fgw7'7%F($!+'QD2 ](F-$!+[x*)esF-7%F($!+:)oA\\(F-$!+YJ=+uF-7%F($!+L*p?^(F-$!+CGjqtF-7%F( $!+*\\HhZ(F-$!+(4b&otF-F\\y7'7%F($!+]+o;]F-$!+=xVWsF-7%F($!+I%4V+&F-$! +wJk9uF-7%F($!+KjjG]F-$!+0BJztF-7%F($!+h\"R`)\\F-$!+AHFwtF-Faz7'7%F($! +VCOMDF-$!+9*RGA(F-7%F($!+;Bi9DF-$!+!)4COuF-7%F($!+a)Qga#F-$!+1LY#R(F- 7%F($!+/Nv\"\\#F-$!+\"G8wQ(F-Ff[l7'7%F($!+Hv[`cF\\q$!+C#ow=(F-7%F($!+J i^W?F\\q$!+qETruF-7%F($!+PF&[V'F\\q$!+-PT9uF-7%F($\"+?')*3$yF\\r$!+*oY bS(F-F[]l7'7%F($\"+)o0dS#F-$!+Xy5CrF-7%F($\"+&**=$*[#F-$!+\\I(\\`(F-7% F($\"+my&*=CF-$!+`(*GcuF-7%F($\"++XZBDF-$!+$\\YdV(F-F`^l7'7%F(Ffs$!+X7 ]EqF-7%F(F[t$!+\\'zDj(F-7%F($\"+\"\\UQ%\\F-$!+D(R#RvF-7%F($\"+5y,)4&F- $!+D*zMY(F-Fc_l7'7%F($\"+]NdTrF-$!+#H'p-wF-7%F($\"+v0Y(p(F-$!+-YQcqF-7 %F($\"+%Q$fYwF-$!+9N&HC(F-7%F($\"+E;i2vF-$!+\"fvj5(F-Ff`l7'7%F($\"+4]A X)*F-$!+PPcmvF-7%F($\"+TQ\"e'**F-$!+dr^#4(F-7%F($\"+++++5F*$!+3_'*4sF- 7%F($\"+y6Tz)*F-$!+(HP.=(F-F[bl7'7%F($!+/(fX)**F-$!+dwhD[F-7%F($!+=#R/ )**F-$!+RH5Z\\F-7%F($!+_Jy'***F-$!+#z18#\\F-7%F($!+3&ze'**F-$!+;WH?\\F -F`cl7'7%F($!+NEM*\\(F-$!+d!\\]\"[F-7%F($!+m:l$\\(F-$!+R:nd\\F-7%F($!+ ,S-8vF-$!+'*>\\F\\F-7%F($!+NMuwuF-$!+PP4E\\F-Fedl7'7%F($!+/an9]F-$!+0' y+![F-7%F($!+wSJ1]F-$!+\"*>ks\\F-7%F($!+^G2I]F-$!+&33j$\\F-7%F($!+je<' )\\F-$!+fPDM\\F-Fjel7'7%F($!+j!=7`#F-$!+u!)HxZF-7%F($!+'pmx^#F-$!+ADU& *\\F-7%F($!+[CU[DF-$!+^'\\)\\\\F-7%F($!+cb$H\\#F-$!+OZaY\\F-F_gl7'7%F( $!+3lz+^F\\q$!+_CtQZF-7%F($!+_s?(f#F\\q$!+W\"))R.&F-7%F($!+5Tj%*oF\\q$ !+#**QJ(\\F-7%F($\"+!fO8;'F\\r$!+Ky)p'\\F-Fdhl7'7%F($\"+vj+k; 6rF-$!++\">4M&F-7%F($\"+1x'ys(F-$!+'\\,=V%F-7%F($\"+]%z*4xF-$!+K5R/ZF- 7%F($\"+pkryuF-$!+J9(Gb%F-Fc\\m7'7%F($\"+\"zD)f)*F-$!+j&*zb^F-7%F($\"+ bI@^**F-$!+L5#ph%F-7%F($\"+\"en*****F-$!+#H=[u%F-7%F($\"+$o')G')*F-$!+ ?]OAZF-Fh]m7'7%F($!+gQ`$)**F-$!+B`=#Q#F-7%F($!+i]Y\")**F-$!+v\\%[#F- 7%F($!+-9WxuF-$!+kJ\\$[#F-Fb`m7'7%F($!+=Fg7]F-$!+>,IDF-7%F($!+9LVJ]F-$!+[;.$\\#F-7%F($!+wd;()\\F-$!+9e*>\\#F-Fgam7' 7%F($!+)*4!z_#F-$!+DLjKBF-7%F($!+hP3@DF-$!+tps`DF-7%F($!+Q3o]DF-$!+qip 1DF-7%F($!+N'QW\\#F-$!+=8-0DF-F\\cm7'7%F($!+U@%3\\%F\\q$!+0>z\"H#F-7%F ($!+=;;2KF\\q$!+$RoXf#F-7%F($!+u\"GhL(F\\q$!+ABfIDF-7%F($\"+S'\\&fOF\\ r$!++%Qu_#F-Fadm7'7%F($\"+IoHJCF-$!+Us8/AF-7%F($\"+`ysjCF-$!+cIA#o#F-7 %F($\"+j\")*eR#F-$!+*[)p#e#F-7%F($\"+)\\9v^#F-$!+#RIZd#F-Ffem7'7%F($\" +Ru7U[F-$!+>;I/>F-7%F($\"+l>!\\-&F-$!+z'e?)HF-7%F($\"+B#\\#[[F-$!+.2F-F^hm7'7%F($\"+I N[!))*F-$!+TeVQFF-7%F($\"+;`bI**F-$!+dW#z9#F-7%F($\"+J@#[***F-$!+#3D>G #F-7%F($\"+!y1Y%)*F-$!+iFipAF-Faim7'7%F($!+h%*\\#)**F-$\"+s.&z5'F\\q7% F(Fbjm$!+s.&z5'F\\q7%F($!+wp.)***F-$!+y-8jMF\\q7%F($!+Y>'p'**F-F\\[nFf jm7'7%F($!+,r\\'\\(F-$\"+lR#e=(F\\q7%F(Fc[n$!+lR#e=(F\\q7%F($!+Ilx9vF- $!+:4FuSF\\q7%F($!+rw@yuF-F]\\nFg[n7'7%F($!+SZ\\5]F-$\"+)QVcs)F\\q7%F( Fd\\n$!+)QVcs)F\\q7%F($!+\">\"pK]F-$!+o*Gt%\\F\\q7%F($!+*G)H))\\F-F^]n Fh\\n7'7%F($!+zB\\CDF-$\"+Kk`56!#57%F(Fe]n$!+Kk`56Fi]n7%F($!+1Cu_DF-$! +60g'H'F\\q7%F($!+`BC'\\#F-F`^nFj]n7'7%F($!+!)=+\\QF\\q$\"+$f()p_\"Fi] n7%F(Fg^n$!+$f()p_\"Fi]n7%F($!+o0QLxF\\q$!+(pDyl)F\\q7%F($\"++3oPN!#8F a_nF[_n7'7%F($\"+TB^ZCF-$\"+\\,=VCFi]n7%F(Fi_n$!+\\,=VCFi]n7%F($\"+#Gi `Q#F-$!+6@D&Q\"Fi]n7%F($\"+,Cm4DF-Fc`nF]`n7'7%F($\"+-Z^L\\F-$FejmFi]n7 %F(Fj`n$FhjmFi]n7%F($\"+a&R\"yZF-$F][nFi]n7%F($\"+])*)))3&F-FbanF]an7' 7%F($\"+jq^>uF-$!+u+f@7F-7%F(Fhan$\"+u+f@7F-7%F($\"+etEIxF-$\"+e0EEpFi ]n7%F($\"+nnw3rF-FbbnF\\bn7'7%F($\"+B%>b!**F-$!+'=vR0$Fi]n7%F(Fibn$\"+ '=vR0$Fi]n7%F($\"+,q?$)**F-$\"+S^cJg)***F-$\"+-5&)3CF-7%F( $!+w*pv'**F-$\"+7FM3CF-F\\dn7'7%F(Fc`m$\"+-1!\\^#F-7%F(F^`m$\"+'pf9P#F -7%F($!+*z_b^(F-$\"+Mr'GS#F-7%F($!+US1zuF-$\"+#*R;-CF-F]en7'7%F(Fham$ \"+z,>IDF-7%F(Fcam$\"+>,z\"H#F-7%F($!+C(eR1)F\\q$\"+)*=#*eBF-7%F($!+gev=OF\\r$\"+w zwbBF-F`hn7'7%F(Fgem$\"+cIA#o#F-7%F(Fbem$\"+Us8/AF-7%F($\"+&=5vP#F-$\" +1*H;J#F-7%F($\"+?l7*\\#F-$\"+4=m.BF-Fain7'7%F(F\\gm$\"+z'e?)HF-7%F(Fg fm$\"+>;I/>F-7%F($\"+)Q=Yu%F-$\"+Rh4g@F-7%F($\"+\"=!y=]F-$\"+&f*=:@F-F bjn7'7%F(Fg`l$\"+:ErB;F-7%F(Fb`l$\"+$oZEE$F-7%F($\"+dUQquF-$\"+$z'4wHF -7%F($\"+')*oM0(F-$\"+q)=&RGF-Fc[o7'7%F(Fbim$\"+dW#z9#F-7%F(F]im$\"+Te VQFF-7%F($\"+r?Vm**F-$\"+Ovt;EF-7%F($\"+8n@;)*F-$\"+;_V/EF-Fd\\o7'7%F( Facl$\"+RH5Z\\F-7%F(F\\cl$\"+dwhD[F-7%F($!+9%>\"****F-$\"+!=EC&[F-7%F( $!+qd@o**F-$\"+/QT^[F-Fe]o7'7%F(Ffdl$\"+R:nd\\F-7%F(Fadl$\"+d!\\]\"[F- 7%F($!+m2D;vF-$\"+foiY[F-7%F($!++-(*zuF-$\"++'G_%[F-Ff^o7'7%F(F[fl$\"+ \"*>ks\\F-7%F(Ffel$\"+0'y+![F-7%F($!+u89$)F\\q$\"+kFt0[F-7%F($!++lpL!)F\\r$\" +/;e*z%F-Fiao7'7%F(Fjil$\"+&)R@6^F-7%F(Feil$\"+6m]hYF-7%F($\"+dr,tBF-$ \"+OiOmZF-7%F($\"+MXT([#F-$\"+!*fP^ZF-Fjbo7'7%F(F_[m$\"+lS4'H&F-7%F(Fj jl$\"+JliwWF-7%F($\"+k1\\]ZF-$\"+P4>)o%F-7%F($\"+*H[*e\\F-$\"+v>!*>YF- F[do7'7%F(Fd\\m$\"+'\\,=V%F-7%F(F_\\m$\"++\">4M&F-7%F($\"+cwJgtF-$\"+l \"\\)>_F-7%F($\"+vY0HrF-$\"+k&H$o]F-F\\eo7'7%F(Fi]m$\"+L5#ph%F-7%F(Fd] m$\"+j&*zb^F-7%F($\"+j@:[**F-$\"+wbN]]F-7%F($\"+k726)*F-$\"+/B!z-&F-F] fo7'7%F(Fhw$\"+D)o)*Q(F-7%F(Fcw$\"+p?@psF-7%F($!+]he****F-$\"+G\"*3'H( F-7%F($!+lK*)o**F-$\"+=4e%H(F-F^go7'7%F(F]y$\"+YJ=+uF-7%F(Fhx$\"+[x*)e sF-7%F($!+-Z'o^(F-$\"+(zD0H(F-7%F($!+oU#4[(F-$\"+q![%)G(F-F_ho7'7%F(Fb z$\"+wJk9uF-7%F(F]z$\"+=xVWsF-7%F($!+>.lN]F-$\"+sz!GG(F-7%F($!+[JN#*\\ F-$\"+*eo(zsF-F`io7'7%F(Fg[l$\"+!)4COuF-7%F(Fb[l$\"+9*RGA(F-7%F($!+b7B dDF-$\"+8wYrsF-7%F($!+0f%H]#F-$\"+)e nYC(F-Fb[p7'7%F(Fa^l$\"+\\I(\\`(F-7%F(F\\^l$\"+Xy5CrF-7%F($\"+$=]:P#F- $\"+,WLBsF-7%F($\"+(F-7%F($\"+8p=B\\F-$\"+p6%)>rF-Fd ]p7'7%F(Fg`l$\"+-YQcqF-7%F(Fb`l$\"+#H'p-wF-7%F($\"+*\\79L(F-$\"+.`q_vF -7%F($\"+T2W#>(F-$\"+!QFhT(F-Fe^p7'7%F(F\\bl$\"+dr^#4(F-7%F(Fgal$\"+PP cmvF-7%F($\"+owiJ**F-$\"+(fV(yuF-7%F($\"+W)Q5\")*F-$\"+'o:\"\\uF-Ff_p7 '7%F(F1$\"+?8[K)*F-7%F(F+$\"+p)fHr*F-7%F($!+**********F-$\"+NI$)R(*F-7 %F($!+:ffp**F-$\"+65%yt*F-Fg`p7'7%F(FF$\"+*[aC%)*F-7%F(FA$\"+1n)Hq*F-7 %F($!+B:R[(F-$\"+N]\"=t*F-Fhap7'7%F(Fen$ \"+B=Cc)*F-7%F(FV$\"+r$*>*o*F-7%F($!+:,LO]F-$\"+BPNF(*F-7%F($!+`v$Q*\\ F-$\"+AlPB(*F-Fibp7'7%F(Fjo$\"+>(Hj()*F-7%F(Feo$\"+p96p'*F-7%F($!+vS4e DF-$\"+2_6<(*F-7%F($!+?:Q0DF-$\"+ne$3r*F-Fjcp7'7%F(F`q$\"+F-W2**F-7%F( Fjp$\"+j4+Q'*F-7%F($!+V(49d)F\\q$\"+%f\\>q*F-7%F($!+?\\O<Q)e*F-7%F($\"+r+EsBF-$\"+( =#\\!o*F-7%F($\"+\\[/mCF-$\"+1P\"fl*F-F\\fp7'7%F(F[tFabl7%F(Ffs$\"+&>T aa*F-7%F($\"+3NG)y%F-$\"+ift\"o*F-7%F($\"+**\\\"R!\\F-$\"+ih(fg*F-F[gp 7'7%F(F^u$\"+GJ&\\f*F-7%F(Fit$\"+l!)[]**F-7%F($\"+0K*zK(F-$\"+9$oF$**F -7%F($\"+%e^vB(F-$\"+smD9)*F-F\\hp7'7%F(Fcv$\"+7P&yc*F-7%F(F^v$\"+xuex **F-7%F($\"+?iB=**F-$\"+g(\\f!**F-7%F($\"+-u+9)*F-$\"+s_!=()*F-F]ip7'7 %FablF+F.7%FablF1F37%FablF6F87%FablF;F=F\\jp7'7%FablFAFC7%FablFFFH7%Fa blFKFM7%FablFPFRFajp7'7%FablFVFX7%FablFenFgn7%FablFjnF\\o7%FablF_oFaoF fjp7'7%FablFeoFgo7%FablFjoF\\p7%FablF_pFap7%FablFdpFfpF[[q7'7%FablFjpF ]q7%FablF`qFbq7%FablFeqFgq7%FablFjqF]rF`[q7'7%FablFarFcr7%FablFfrFhr7% FablF[sF]s7%FablF`sFbsFe[q7'7%FablFfsFhs7%FablF[tF(7%FablF^tF`t7%FablF ctFetFj[q7'7%FablFitF[u7%FablF^uF`u7%FablFcuFeu7%FablFhuFjuF_\\q7'7%Fa blF^vF`v7%FablFcvFev7%FablFhvFjv7%FablF]wF_wFd\\q7'7%FablFcwFew7%FablF hwFjw7%FablF]xF_x7%FablFbxFdxFi\\q7'7%FablFhxFjx7%FablF]yF_y7%FablFbyF dy7%FablFgyFiyF^]q7'7%FablF]zF_z7%FablFbzFdz7%FablFgzFiz7%FablF\\[lF^[ lFc]q7'7%FablFb[lFd[l7%FablFg[lFi[l7%FablF\\\\lF^\\l7%FablFa\\lFc\\lFh ]q7'7%FablFg\\lFi\\l7%FablF\\]lF^]l7%FablFa]lFc]l7%FablFf]lFh]lF]^q7'7 %FablF\\^lF^^l7%FablFa^lFc^l7%FablFf^lFh^l7%FablF[_lF]_lFb^q7'7%FablFf sFa_l7%FablF[tFd_l7%FablFg_lFi_l7%FablF\\`lF^`lFg^q7'7%FablFb`lFd`l7%F ablFg`lFi`l7%FablF\\alF^al7%FablFaalFcalF\\_q7'7%FablFgalFial7%FablF\\ blF^bl7%FablFablFcbl7%FablFfblFhblFa_q7'7%FablF\\clF^cl7%FablFaclFccl7 %FablFfclFhcl7%FablF[dlF]dlFf_q7'7%FablFadlFcdl7%FablFfdlFhdl7%FablF[e lF]el7%FablF`elFbelF[`q7'7%FablFfelFhel7%FablF[flF]fl7%FablF`flFbfl7%F ablFeflFgflF``q7'7%FablF[glF]gl7%FablF`glFbgl7%FablFeglFggl7%FablFjglF \\hlFe`q7'7%FablF`hlFbhl7%FablFehlFghl7%FablFjhlF\\il7%FablF_ilFailFj` q7'7%FablFeilFgil7%FablFjilF\\jl7%FablF_jlFajl7%FablFdjlFfjlF_aq7'7%Fa blFjjlF\\[m7%FablF_[mFa[m7%FablFd[mFf[m7%FablFi[mF[\\mFdaq7'7%FablF_\\ mFa\\m7%FablFd\\mFf\\m7%FablFi\\mF[]m7%FablF^]mF`]mFiaq7'7%FablFd]mFf] m7%FablFi]mF[^m7%FablF^^mF`^m7%FablFc^mFe^mF^bq7'7%FablFi^mF[_m7%FablF ^_mF`_m7%FablFc_mFe_m7%FablFh_mFj_mFcbq7'7%FablF^`mF``m7%FablFc`mFe`m7 %FablFh`mFj`m7%FablF]amF_amFhbq7'7%FablFcamFeam7%FablFhamFjam7%FablF]b mF_bm7%FablFbbmFdbmF]cq7'7%FablFhbmFjbm7%FablF]cmF_cm7%FablFbcmFdcm7%F ablFgcmFicmFbcq7'7%FablF]dmF_dm7%FablFbdmFddm7%FablFgdmFidm7%FablF\\em F^emFgcq7'7%FablFbemFdem7%FablFgemFiem7%FablF\\fmF^fm7%FablFafmFcfmF\\ dq7'7%FablFgfmFifm7%FablF\\gmF^gm7%FablFagmFcgm7%FablFfgmFhgmFadq7'7%F ablFb`lF\\hm7%FablFg`lF_hm7%FablFbhmFdhm7%FablFghmFihmFfdq7'7%FablF]im F_im7%FablFbimFdim7%FablFgimFiim7%FablF\\jmF^jmF[eq7'7%FablFbjmFdjm7%F ablFbjmFgjm7%FablFjjmF\\[n7%FablF_[nF\\[nF`eq7'7%FablFc[nFe[n7%FablFc[ nFh[n7%FablF[\\nF]\\n7%FablF`\\nF]\\nFeeq7'7%FablFd\\nFf\\n7%FablFd\\n Fi\\n7%FablF\\]nF^]n7%FablFa]nF^]nFjeq7'7%FablFe]nFg]n7%FablFe]nF[^n7% FablF^^nF`^n7%FablFc^nF`^nF_fq7'7%FablFg^nFi^n7%FablFg^nF\\_n7%FablF__ nFa_n7%FablFd_nFa_nFdfq7'7%FablFi_nF[`n7%FablFi_nF^`n7%FablFa`nFc`n7%F ablFf`nFc`nFifq7'7%FablFj`nF\\an7%FablFj`nF^an7%FablF`anFban7%FablFdan FbanF^gq7'7%FablFhanFjan7%FablFhanF]bn7%FablF`bnFbbn7%FablFebnFbbnFcgq 7'7%FablFibnF[cn7%FablFibnF^cn7%FablFacnFccn7%FablFfcnFccnFhgq7'7%Fabl F^_mFjcn7%FablFi^mF]dn7%FablF`dnFbdn7%FablFednFgdnF]hq7'7%FablFc`mF[en 7%FablF^`mF^en7%FablFaenFcen7%FablFfenFhenFbhq7'7%FablFhamF\\fn7%FablF camF_fn7%FablFbfnFdfn7%FablFgfnFifnFghq7'7%FablF]cmF]gn7%FablFhbmF`gn7 %FablFcgnFegn7%FablFhgnFjgnF\\iq7'7%FablFbdmF^hn7%FablF]dmFahn7%FablFd hnFfhn7%FablFihnF[inFaiq7'7%FablFgemF_in7%FablFbemFbin7%FablFeinFgin7% FablFjinF\\jnFfiq7'7%FablF\\gmF`jn7%FablFgfmFcjn7%FablFfjnFhjn7%FablF[ [oF][oF[jq7'7%FablFg`lFa[o7%FablFb`lFd[o7%FablFg[oFi[o7%FablF\\\\oF^\\ oF`jq7'7%FablFbimFb\\o7%FablF]imFe\\o7%FablFh\\oFj\\o7%FablF]]oF_]oFej q7'7%FablFaclFc]o7%FablF\\clFf]o7%FablFi]oF[^o7%FablF^^oF`^oFjjq7'7%Fa blFfdlFd^o7%FablFadlFg^o7%FablFj^oF\\_o7%FablF__oFa_oF_[r7'7%FablF[flF e_o7%FablFfelFh_o7%FablF[`oF]`o7%FablF``oFb`oFd[r7'7%FablF`glFf`o7%Fab lF[glFi`o7%FablF\\aoF^ao7%FablFaaoFcaoFi[r7'7%FablFehlFgao7%FablF`hlFj ao7%FablF]boF_bo7%FablFbboFdboF^\\r7'7%FablFjilFhbo7%FablFeilF[co7%Fab lF^coF`co7%FablFccoFecoFc\\r7'7%FablF_[mFico7%FablFjjlF\\do7%FablF_doF ado7%FablFddoFfdoFh\\r7'7%FablFd\\mFjdo7%FablF_\\mF]eo7%FablF`eoFbeo7% FablFeeoFgeoF]]r7'7%FablFi]mF[fo7%FablFd]mF^fo7%FablFafoFcfo7%FablFffo FhfoFb]r7'7%FablFhwF\\go7%FablFcwF_go7%FablFbgoFdgo7%FablFggoFigoFg]r7 '7%FablF]yF]ho7%FablFhxF`ho7%FablFchoFeho7%FablFhhoFjhoF\\^r7'7%FablFb zF^io7%FablF]zFaio7%FablFdioFfio7%FablFiioF[joFa^r7'7%FablFg[lF_jo7%Fa blFb[lFbjo7%FablFejoFgjo7%FablFjjoF\\[pFf^r7'7%FablF\\]lF`[p7%FablFg\\ lFc[p7%FablFf[pFh[p7%FablF[\\pF]\\pF[_r7'7%FablFa^lFa\\p7%FablF\\^lFd \\p7%FablFg\\pFi\\p7%FablF\\]pF^]pF`_r7'7%FablF[tFb]p7%FablFfsFe]p7%Fa blFh]pFj]p7%FablF]^pF_^pFe_r7'7%FablFg`lFc^p7%FablFb`lFf^p7%FablFi^pF[ _p7%FablF^_pF`_pFj_r7'7%FablF\\blFd_p7%FablFgalFg_p7%FablFj_pF\\`p7%Fa blF_`pFa`pF_`r7'7%FablF1Fe`p7%FablF+Fh`p7%FablF[apF]ap7%FablF`apFbapFd `r7'7%FablFFFfap7%FablFAFiap7%FablF\\bpF^bp7%FablFabpFcbpFi`r7'7%FablF enFgbp7%FablFVFjbp7%FablF]cpF_cp7%FablFbcpFdcpF^ar7'7%FablFjoFhcp7%Fab lFeoF[dp7%FablF^dpF`dp7%FablFcdpFedpFcar7'7%FablF`qFidp7%FablFjpF\\ep7 %FablF_epFaep7%FablFdepFfepFhar7'7%FablFfrFjep7%FablFarF]fp7%FablF`fpF bfp7%FablFefpFgfpF]br7'7%FablF[tFabl7%FablFfsF\\gp7%FablF_gpFagp7%Fabl FdgpFfgpFbbr7'7%FablF^uFjgp7%FablFitF]hp7%FablF`hpFbhp7%FablFehpFghpFg br7'7%FablFcvF[ip7%FablF^vF^ip7%FablFaipFcip7%FablFfipFhipF\\cr-%&COLO RG6cil%$RGBG$\"\"!FdcrFccr$\"*++++\"F*FccrFccrFecrFccrFccrFecrFccrFccr FecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFc crFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccr FccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFc crFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecr FccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFe crFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccr FecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFc crFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccr FccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFc crFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecr FccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFe crFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccr FecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFc crFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccr FccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFc crFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecr FccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFe crFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccr FecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFc crFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccr FccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFc crFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecr FccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFe crFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccr FecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFc crFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccr FccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFccrFccrFecrFc crFccrFecr-F$6&7$7%$!\"!FdcrF[apFccr7%FccrFablFccr7$7%FccrFg^nF(7%F[dr Fg^nFabl7$7%F(Fg^nFccr7%FablFg^nFccr-%'COLOURG6&Fbcr\"\"\"FdcrFdcr-%'P OINTSG607%F[drFbjmFccr7%F[dr$!+Z'Hym'F-Fccr7%F[dr$!+L)fJN$F-Fccr7%F[dr Fg^nFccr7%Fccr$\"+&zzhF$F-Fccr7%Fccr$\"+4'\\3f'F-Fccr7%FccrFibnFccr7%F ccrFg^n$!+'f?Fx*F-Fber7%F[drFg^n$\"+'f?Fx*F-FbdrFberFcdr-%'SYMBOLG6#%$ BOXG-%%TEXTG6%F[er%$-3.G%+ALIGNBELOWG-Fefr6%F\\er%$-2.GFhfr-Fefr6%F_er %$-1.GFhfr-Fefr6%Fber%#0.GFhfr-Fefr6%Fcer%#1.GFhfr-Fefr6%Ffer%#2.GFhfr -Fefr6%Fier%#3.GFhfr-Fefr6%FjerF^gr%*ALIGNLEFTG-Fefr6%FberFagrF]hr-Fef r6%F]frFdgrF]hr-Fefr6%FbdrF^grF]hrF^hr-Fefr6%FcdrFdgrF]hr-F$6_u7'7%F($ \"+XmR;?F*F`v7%F($\"+q%*\\-?F*Fev7%F($\"+P(>2,#F*F_w7%F($\"+coH+?F*Fjv F\\ir7'7%F($\"+fg;#G#F*F[u7%F($\"+G0$RB#F*F`u7%F($\"+3f*)[AF*Fju7%F($ \"+Y<&)RAF*FeuFiir7'7%F($\"+ig1ADF*Fhs7%F($\"+)*4B\"\\#F*F(7%F($\"+5a7 #\\#F*Fet7%F($\"+g&)o.DF*F`tFfjr7'7%F($\"+@1DgFF*Fcr7%F($\"+6pC]FF*Fhr 7%F($\"+RNsZFF*Fbs7%F($\"+:F]$F* F\\oFj]s7'7%F($\"+Hi?]PF*FC7%F($\"+\">$4\\PF*FH7%F($\"+o-cZPF*FR7%F($ \"+u!36v$F*FMFg^s7'7%F($\"+M`l)*RF*F.7%F($\"+eX%y*RF*F37%F($\"+#*)*\\' *RF*F=7%F($\"+,.a**RF*F8Fd_s7'7%F($\"+*\\xa,#F*Fial7%F($\"+;'=M+#F*F^b l7%F($\"+#))e?,#F*Fhbl7%F($\"+++++?F*FcblFa`s7'7%F($\"+XE%eG#F*Fd`l7%F ($\"+URDIAF*Fi`l7%F($\"+PyB\\AF*Fcal7%F($\"+i1MNAF*F^alF^as7'7%F(FdjrF a_l7%F(FgjrFd_l7%F($\"+>#)>!\\#F*F^`l7%F($\"+^dh0DF*Fi_lFias7'7%F($\"+ J%H%fFF*F^^l7%F($\"++\"o5v#F*Fc^l7%F($\"+]DlZFF*F]_l7%F($\"+8U5eFF*Fh^ lFdbs7'7%F($\"+)[`c+$F*Fi\\l7%F($\"+;X/-IF*F^]l7%F($\"+5p@**HF*Fh]l7%F ($\"+`[V1IF*Fc]lFacs7'7%F($\"+WiV`KF*Fd[l7%F($\"+KAY^KF*Fi[l7%F($\"+]` <\\KF*Fc\\l7%F($\"+&)QgaKF*F^\\lF^ds7'7%F($\"+0!o;]$F*F_z7%F($\"+V4V+N F*Fdz7%F($\"+;R`)\\$F*F^[l7%F($\"+LO'G]$F*FizF[es7'7%F($\"+RD2]PF*Fjx7 %F($\"+#)oA\\PF*F_y7%F($\"+]HhZPF*Fiy7%F($\"+$*p?^PF*FdyFhes7'7%F($\"+ vob)*RF*Few7%F($\"+4DF*Ff[mF\\is7'7%F($\"+i$*HeFF*F gil7%F($\"+p\")>_FF*F\\jl7%F($\"+Z#*zZFF*Ffjl7%F($\"+&)*Q#fFF*FajlFiis 7'7%F($\"+(z+^+$F*Fbhl7%F($\"+2sf-IF*Fghl7%F($\"+mQQ**HF*Fail7%F($\"+M Y*o+$F*F\\ilFfjs7'7%F($\"+1=7`KF*F]gl7%F($\"+qmx^KF*Fbgl7%F($\"+cNH\\K F*F\\hl7%F($\"+XA%[D$F*FgglFc[t7'7%F($\"+SvY,NF*Fhel7%F($\"+39j+NF*F]f l7%F($\"+'e<')\\$F*Fgfl7%F($\"+&G2I]$F*FbflF`\\t7'7%F($\"+kU$*\\PF*Fcd l7%F($\"+d^O\\PF*Fhdl7%F($\"+WVnZPF*Fbel7%F($\"++CI^PF*F]elF]]t7'7%F($ \"+qfX)*RF*F^cl7%F($\"+AR/)*RF*Fccl7%F($\"+^ze'*RF*F]dl7%F($\"+:$y'**R F*FhclFj]t7'7%F($\"+Z;&>,#F*F_im7%F($\"+oW%p+#F*Fdim7%F($\"+A$Rb,#F*F^ jm7%F($\"+(y<0+#F*FiimFg^t7'7%F(F\\asF\\hm7%F(F_asF_hm7%F($\"+8]8jAF*F ihm7%F($\"+'[V9A#F*FdhmFb_t7'7%F($\"+csy:DF*Fifm7%F($\"+/)4v\\#F*F^gm7 %F($\"+)*)ex[#F*Fhgm7%F($\"+y]<:DF*FcgmF]`t7'7%F($\"+<.(ov#F*Fdem7%F($ \"+:si`FF*Fiem7%F($\"+]&[#[FF*Fcfm7%F($\"+%=5/w#F*F^fmFj`t7'7%F($\"+U3 \\/IF*F_dm7%F($\"+ir?.IF*Fddm7%F($\"+XSj**HF*F^em7%F($\"+GhL2IF*FidmFg at7'7%F($\"++,z_KF*Fjbm7%F($\"+w$3@D$F*F_cm7%F($\"+kQW\\KF*Ficm7%F($\" +%3o]D$F*FdcmFdbt7'7%F($\"+s-E,NF*Feam7%F($\"+w'Q3]$F*Fjam7%F($\"+ylr) \\$F*Fdbm7%F($\"+JL9.NF*F_bmFact7'7%F($\"+.Gz\\PF*F``m7%F($\"+\"pK]$F*F^]nFjit7'7%F($\" +5(\\'\\PF*Fe[n7%F(FcjtFh[n7%F($\"+n<#yu$F*F]\\n7%F($\"+`wZ^PF*F]\\nFe jt7'7%F($\"+Y*\\#)*RF*Fdjm7%F(F^[uFgjm7%F($\"+&>'p'*RF*F\\[n7%F($\"+)p .)**RF*F\\[nF`[u7'7%F(Fh^tFb\\o7%F(Fe^tFe\\o7%F($\"+H$y$=?F*F_]o7%F($ \"+$zcL+#F*Fj\\oFi[u7'7%F(F_asFa[o7%F(F\\asFd[o7%F($\"+,Jl%H#F*F^\\o7% F($\"+u:'HD#F*Fi[oFb\\u7'7%F(F^`tF`jn7%F(F[`tFcjn7%F($\"+#)>7)\\#F*F][ o7%F($\"+h\"Qb_#F*FhjnF[]u7'7%F(F[atF_in7%F(Fh`tFbin7%F($\"+[t3]FF*F\\ jn7%F($\"+#)*[Aw#F*FginFd]u7'7%F(FhatF^hn7%F(FeatFahn7%F($\"+w=O+IF*F[ in7%F($\"+fR13IF*FfhnF]^u7'7%F(FebtF]gn7%F(FbbtF`gn7%F($\"+#RI)\\KF*Fj gn7%F($\"+7YXbKF*FegnFf^u7'7%F(FbctF\\fn7%F(F_ctF_fn7%F($\"+g)**RF*FbdnFa`u7'7%F(FcgsF[fo7%F(F`gsF^fo7%F($\"+uG*)= ?F*Fhfo7%F($\"+%y%=0?F*FcfoFj`u7'7%F(F`hsFjdo7%F(F]hsF]eo7%F($\"+KX4(G #F*Fgeo7%F($\"+M#oRE#F*FbeoFcau7'7%F(F]isFico7%F(FjhsF\\do7%F($\"+q^5/ DF*Ffdo7%F($\"+M4&\\_#F*FadoF\\bu7'7%F(FjisFhbo7%F(FgisF[co7%F($\"+Z&e 7v#F*Feco7%F($\"+%G)piFF*F`coFebu7'7%F(FgjsFgao7%F(FdjsFjao7%F($\"+qL! 3+$F*Fdbo7%F($\"+PTJ3IF*F_boF^cu7'7%F(Fd[tFf`o7%F(Fa[tFi`o7%F($\"+Ji0] KF*Fcao7%F($\"+?\\gbKF*F^aoFgcu7'7%F(Fa\\tFe_o7%F(F^\\tFh_o7%F($\"+j;4 *\\$F*Fb`o7%F($\"+i8[.NF*F]`oF`du7'7%F(F^]tFd^o7%F(F[]tFg^o7%F($\"+?q* zu$F*Fa_o7%F($\"+x]i^PF*F\\_oFidu7'7%F(F[^tFc]o7%F(Fh]tFf]o7%F($\"+x:# o*RF*F`^o7%F($\"+T>\"***RF*F[^oFbeu7'7%F(Fb`sFd_p7%F(F_`sFg_p7%F($\"+; h*)=?F*Fa`p7%F($\"+Ls$o+#F*F\\`pF[fu7'7%F(F_asFc^p7%F(F\\asFf^p7%F($\" +Efv!G#F*F`_p7%F($\"+](eoE#F*F[_pFdfu7'7%F(FgjrFb]p7%F(FdjrFe]p7%F($\" +48o2DF*F_^p7%F($\"+T))4BDF*Fj]pF]gu7'7%F(FebsFa\\p7%F(FbbsFd\\p7%F($ \"+=LR_FF*F^]p7%F($\"+#)\\%Gw#F*Fi\\pFfgu7'7%F(FbcsF`[p7%F(F_csFc[p7%F ($\"+^JE,IF*F]\\p7%F($\"+%4\"[3IF*Fh[pF_hu7'7%F(F_dsF_jo7%F(F\\dsFbjo7 %F($\"+!f%H]KF*F\\[p7%F($\"+EJsbKF*FgjoFhhu7'7%F(F\\esF^io7%F(FidsFaio 7%F($\"+:`B*\\$F*F[jo7%F($\"+K]c.NF*FfioFaiu7'7%F(FiesF]ho7%F(FfesF`ho 7%F($\"+FC4[PF*Fjho7%F($\"+qko^PF*FehoFjiu7'7%F(FffsF\\go7%F(FcfsF_go7 %F($\"+E$*)o*RF*Figo7%F($\"+:'e***RF*FdgoFcju7'7%F(F]irF[ip7%F(FjhrF^i p7%F($\"+g#*f=?F*Fhip7%F($\"+yj<3?F*FcipF\\[v7'7%F(FjirFjgp7%F(FgirF]h p7%F($\"+U[CwAF*Fghp7%F($\"+!o+sE#F*FbhpFe[v7'7%F(FgjrFabl7%F(FdjrF\\g p7%F($\"++&3'4DF*Ffgp7%F($\"+\\;<@DF*FagpF^\\v7'7%F(Fd[sFjep7%F(Fa[sF] fp7%F($\"+:bR`FF*Fgfp7%F($\"+$*RxiFF*FbfpFg\\v7'7%F(Fa\\sFidp7%F(F^\\s F\\ep7%F($\"+ltr,IF*Ffep7%F($\"+59d3IF*FaepF`]v7'7%F(F^]sFhcp7%F(F[]sF [dp7%F($\"+_\"Q0D$F*Fedp7%F($\"+3%4eD$F*F`dpFi]v7'7%F(F[^sFgbp7%F(Fh]s Fjbp7%F($\"+bPQ*\\$F*Fdcp7%F($\"+7Ij.NF*F_cpFb^v7'7%F(Fh^sFfap7%F(Fe^s Fiap7%F($\"+Y8>[PF*Fcbp7%F($\"+_\"R " 0 "" {MPLTEXT 1 0 143 "B3plot:=fieldplot 3d(B3,-3..3,-1..1,-1..1, grid=[9,9,2], color=black, arrows=SLIM, orien tation=[-90,0], axes=normal, tickmarks=[7,3,3]): B3plot;" }}{PARA 13 " " 1 "" {GLPLOT3D 400 300 300 {PLOTDATA 3 "6&-%'CURVESG6_u7'7%$!3=o?Ab* *GvH!#<$!32g&yJOtk,\"F*$!\"\"\"\"!7%$!3#=$zxW+rCIF*$!3P+W@ojEN)*!#=F-7 %$!33U39f_l,IF*$!3'4zC#>k+'))*F5F-7%$!3(>o3RIlj-$F*$!3-6!)=F)*=F**F5F- F07'7%$!3oH!=QiV:;#F*$!35c^xg&G7+\"F*F-7%$!3Lq>=wjXQBF*$!3%zV[AR9x)**F 5F-7%$!3)QX]6AK#*H#F*$!3D@qjp0K>**F5F-7%$!3#z=8B1v5I#F*$!3ujtK'yum+\"F *F-FF7'7%$!3EN\\wJAam9F*$!3MwRJ\"z.Lp*F5F-7%$!3uk]BoxXL:F*$!3P-'o3ip1. \"F*F-7%$!3ZnPEXB(>a\"F*$!3vct6Q6g95F*F-7%$!3#R'3'R\"z'f\\\"F*$!3&4?BG Vx,-\"F*F-Fen7'7%$!3jI@jX)fZS(F5$!3[,ElwyC=(*F5F-7%$!3OpyOa,C&f(F5$!3& )RZL7_8=:5F*F-7%$!3KdeGleoUtF5$!3#GNoal on,\"F*F-Fjo7'7%$F/F/$!3,@z:+]PM(*F5F-7%F[q$!3,3U)**\\il-\"F*F-7%$!3c& f:))\\(=#*>!#>$!39Mq4+11:5F*F-7%$\"3c&f:))\\(=#*>FdqFeqF-F^q7'7%$\"3jI @jX)fZS(F5FhoF-7%$\"3OpyOa,C&f(F5F]pF-7%$\"3KdeGleoUtF5FgpF-7%$\"35bpI ]SJlxF5FbpF-F^r7'7%$\"3EN\\wJAam9F*FYF-7%$\"3uk]BoxXL:F*FhnF-7%$\"3#R' 3'R\"z'f\\\"F*FboF-7%$\"3ZnPEXB(>a\"F*F]oF-F[s7'7%$\"3oH!=QiV:;#F*FDF- 7%$\"3Lq>=wjXQBF*FIF-7%$\"3#z=8B1v5I#F*FSF-7%$\"3)QX]6AK#*H#F*FNF-Fhs7 '7%$\"3=o?Ab**GvHF*F+F-7%$\"3#=$zxW+rCIF*F3F-7%$\"3(>o3RIlj-$F*F>F-7%$ \"33U39f_l,IF*F9F-Fet7'7%$!3?_a\"pL6)zHF*$!3A*3-)\\E3*p(F5F-7%$!3\"ya% 3j')=?IF*$!3x5z>]t\"4I(F5F-7%$!3if&*z;b^'*HF*$!3O'y%Q!y)HqtF5F-7%$!3zs )pU\"zPEIF*$!3IlB>_l%RS(F5F-Fdu7'7%$!3/aP@1UGV@F*$!3_J))>su4ewF5F-7%$! 3'fC'y$z:nN#F*$!3[o6!y_->M(F5F-7%$!3ay$p\"*=\\')H#F*$!3U4^C84V@tF5F-7% $!3+.#***4QOABF*$!3)*=bbp0H*\\(F5F-Fiv7'7%$!3kU&4Jx->Y\"F*$!3cyz:o^W3r F5F-7%$!3Od/*oA(4Q:F*$!3W@?%=$[b\"*yF5F-7%$!35r\"GhDn4b\"F*$!3;t<4F*e- p(F5F-7%$!3#y'=NJSB#\\\"F*$!31NDC0Vv`xF5F-F^x7'7%$!3qFoJtk\\5uF5$!3!pi k%Q_w\"=(F5F-7%$!3IsJoEN]*e(F5$!36t``hZB=yF5F-7%$!33Sn\"RVB%*y(F5$!3s; LQSk(Hn(F5F-7%$!3')zOh\"Hr?J(F5$!3570$[p$*yo(F5F-Fcy7'7%F[q$!3!H5a(4T! *3sF5F-7%F[q$!35(*eC!*e4\"z(F5F-7%$!3)*GU%o<>K=#Fdq$!3')*z+BnZ]m(F5F-7 %$\"3)*GU%o<>K=#FdqF\\[lF-Ffz7'7%$\"3qFoJtk\\5uF5FayF-7%$\"3IsJoEN]*e( F5FfyF-7%$\"3')zOh\"Hr?J(F5F`zF-7%$\"33Sn\"RVB%*y(F5F[zF-Fe[l7'7%$\"3k U&4Jx->Y\"F*F\\xF-7%$\"3Od/*oA(4Q:F*FaxF-7%$\"3#y'=NJSB#\\\"F*F[yF-7%$ \"35r\"GhDn4b\"F*FfxF-Fb\\l7'7%$\"3/aP@1UGV@F*FgvF-7%$\"3'fC'y$z:nN#F* F\\wF-7%$\"3+.#***4QOABF*FfwF-7%$\"3ay$p\"*=\\')H#F*FawF-F_]l7'7%$\"3? _a\"pL6)zHF*FbuF-7%$\"3\"ya%3j')=?IF*FguF-7%$\"3zs)pU\"zPEIF*FavF-7%$ \"3if&*z;b^'*HF*F\\vF-F\\^l7'7%$!3#))G'=U&*Q&)HF*$!3o;6s[ALJ_F5F-7%$!3 =6P\"yX5Y,$F*$!3'Q))y7vn'oZF5F-7%$!33IeMDS$4*HF*$!3E\"*4#=(HO#F*$!3k;]2(*e/#f%F5F-7%$!3AkkoxqX$G#F*$!3#R5H4&>bu YF5F-7%$!3%>@DJ>]YM#F*$!3Ac?$*f%QG'[F5F-F``l7'7%$!3'[$4z%)eMh9F*$!3#pg Upz6Y[%F5F-7%$!39l!4_6a'Q:F*$!33$RdI?)Q:bF5F-7%$!3?RCd20dg:F*$!3![\"R0 -o+g_F5F-7%$!3=IQ6xAE$[\"F*$!3LcBSF.VC`F5F-Feal7'7%$!3(=JXMLz$GuF5$!3y :h5c]'yk%F5F-7%$!37)oalm?;d(F5$!3o$)Q*Q%\\8_`F5F-7%$!3?M*Qh@4Z!yF5$!3Y q\"G:l(o$>&F5F-7%$!393\")H+o]wsF5$!3`&G(GHWi0_F5F-Fjbl7'7%F[q$!3Uu=E++ ](o%F5F-7%F[q$!3.D\"Q(****\\7`F5F-7%$!3#>%f.)**\\PM#Fdq$!3'4?50`$=x^F5 F-7%$\"3#>%f.)**\\PM#FdqFcdlF-F]dl7'7%$\"3(=JXMLz$GuF5FhblF-7%$\"37)oa lm?;d(F5F]clF-7%$\"393\")H+o]wsF5FgclF-7%$\"3?M*Qh@4Z!yF5FbclF-F\\el7' 7%$\"3'[$4z%)eMh9F*FcalF-7%$\"39l!4_6a'Q:F*FhalF-7%$\"3=IQ6xAE$[\"F*Fb blF-7%$\"3?RCd20dg:F*F]blF-Fiel7'7%$\"3tG#)f%4Gq8#F*F^`lF-7%$\"3Er (HO#F*Fc`lF-7%$\"3%>@DJ>]YM#F*F]alF-7%$\"3AkkoxqX$G#F*Fh`lF-Fffl7'7%$ \"3#))G'=U&*Q&)HF*Fi^lF-7%$\"3=6P\"yX5Y,$F*F^_lF-7%$\"3f(*RliQjDIF*Fh_ lF-7%$\"33IeMDS$4*HF*Fc_lF-Fcgl7'7%$!3I0U#3(3A#*HF*$!3KE(>@+jgv#F5F-7% $!3r%zv\"H\"zx+$F*$!3St-)y*p$RC#F5F-7%$!3!e.uA%f?&)HF*$!3qtijAHL[BF5F- 7%$!3'[*>f#R:O-$F*$!3ok#Hz8)HhBF5F-Fbhl7'7%$!39L-E.]0d@F*$!3l$Gf!\\x F5F-7%$!33jNvj>mkBF*$!3j9RDu=-4@F5F-Fgil7'7%$!3=v537cCs9F*$!3)G`f'e*o# H=F5F-7%$!3#[#*=zQax_\"F*$!37n/MT5tqJF5F-7%$!3S@t^87/m:F*$!3iXvGCt;dGF 5F-7%$!3I^iJd:Vl9F*$!3j`d[PYU.HF5F-F\\[m7'7%$!37RIJT-gfuF5$!3QX5S&eNH7 #F5F-7%$!3)3'poe(*RSvF5$!3!\\&*)f9W1xGF5F-7%$!3>U8(4Y/d!yF5$!3*o!))3(3 C/r#F5F-7%$!365H2Ry5SsF5$!3b+L?!Qdrr#F5F-Fa\\m7'7%F[q$!3)pY(>Bp2t@F5F- 7%F[q$!3uKD!o2Bp#GF5F-7%$!3'p**=g2B>X#Fdq$!3[]`+K7O&o#F5F-7%$\"3'p**=g 2B>X#FdqFj]mF-Fd]m7'7%$\"37RIJT-gfuF5F_\\mF-7%$\"3)3'poe(*RSvF5Fd\\mF- 7%$\"365H2Ry5SsF5F^]mF-7%$\"3>U8(4Y/d!yF5Fi\\mF-Fc^m7'7%$\"3=v537cCs9F *FjjlF-7%$\"3#[#*=zQax_\"F*F_[mF-7%$\"3I^iJd:Vl9F*Fi[mF-7%$\"3S@t^87/m :F*Fd[mF-F`_m7'7%$\"39L-E.]0d@F*FeilF-7%$\"3'owRn*\\%HM#F*FjilF-7%$\"3 3jNvj>mkBF*FdjlF-7%$\"3[qYR,`tSAF*F_jlF-F]`m7'7%$\"3I0U#3(3A#*HF*F`hlF -7%$\"3r%zv\"H\"zx+$F*FehlF-7%$\"3'[*>f#R:O-$F*F_ilF-7%$\"3!e.uA%f?&)H F*FjhlF-Fj`m7'7%$!\"$F/$!33%z?%)**\\il#FdqF-7%Feam$\"33%z?%)**\\il#Fdq F-7%$!3AW=,D\"y+)HF*$\"3q-Mq4+11:FdqF-7%$!3zb\"))\\(=#*>IF*F_bmF-Fiam7 '7%$!3+++++++]AF*$!3!Q>`%******\\7F5F-7%Ffbm$\"3!Q>`%******\\7F5F-7%$! 3I55/++Dc@F*$\"3QPpCB7M(3(FdqF-7%$!3p*)*e****\\PM#F*F`cmF-Fjbm7'7%$!3+ +++++++:F*$\"3Cd(p.r&G*e(FdqF-7%Fgcm$!3Cd(p.r&G*e(FdqF-7%$!3=tx#Gk>pb \"F*$!3[P0\\*fGII%FdqF-7%$!3#oAsrN!3V9F*FadmF-F[dm7'7%$!3++++++++vF5$ \"3GrsZijjjQFdqF-7%Fhdm$!3GrsZijjjQFdqF-7%$!3G&z&=FFx*y(F5$!3#>'>.UFj! >#FdqF-7%$!3s/U\"GFF-@(F5FbemF-F\\em7'7%F[q$\"3#4Ppb\"F*FadmF-Fegm7'7%$\"3++++++ +]AF*FhbmF-7%F^hmF[cmF-7%$\"3p*)*e****\\PM#F*F`cmF-7%$\"3I55/++Dc@F*F` cmF-F`hm7'7%$\"\"$F/FgamF-7%FihmFjamF-7%$\"3zb\"))\\(=#*>IF*F_bmF-7%$ \"3AW=,D\"y+)HF*F_bmF-F[im7'7%Fchl$\"3St-)y*p$RC#F5F-7%F^hl$\"3KE(>@+j gv#F5F-7%$!3;0!3ug%QwHF*$\"3wM22i=qQEF5F-7%$!3?kfsdSz9IF*$\"3wDPOxqm^E F5F-Ffim7'7%Fhil$\"3i;2%4DAQn\"F5F-7%Fcil$\"3l$Gf!\\xE%GG#F5 F-7%$!3#ylG!RbH%>(F5$\"3S$>6H\"fd*G#F5F-Fi\\n7'7%F[q$\"3uKD!o2Bp#GF5F- 7%F[q$\"3)pY(>Bp2t@F5F-7%Fh]m$\"3C\\Y*zwQYJ#F5F-7%F]^mF^^nF-Fj]n7'7%Fd ^mFg\\nF-7%Fa^mFj\\nF-7%$\"3#ylG!RbH%>(F5Fd]nF-7%$\"3))*3F4;#*)fxF5F_] nF-Fc^n7'7%Fa_mFf[nF-7%F^_mFi[nF-7%$\"3gyE['yeRV\"F*Fc\\nF-7%$\"3q[PoU %oX`\"F*F^\\nF-F\\_n7'7%F^`mFejmF-7%F[`mFhjmF-7%$\"3_H`g)pk#fAF*Fb[nF- 7%$\"3#pVYi.Q`8#F*F][nF-Fe_n7'7%F[amFdimF-7%Fh`mFgimF-7%$\"3?kfsdSz9IF *FajmF-7%$\"3;0!3ug%QwHF*F\\jmF-F^`n7'7%F\\_l$\"3'Q))y7vn'oZF5F-7%Fg^l $\"3o;6s[ALJ_F5F-7%$!3U-gMPhOuHF*$\"3`dh:lq)*=^F5F-7%$!3#*pTluf14IF*$ \"3v3!z\"GyLV^F5F-Fi`n7'7%Fa`l$\"3k;]2(*e/#f%F5F-7%F\\`l$\"3N$)\\#H5az S&F5F-7%$!31)yuo!)\\`:#F*$\"3zVz1S:;P^F5F-7%$!3yNNJAHa;AF*$\"3`&*32\\! [aK&F5F-Fjan7'7%Ffal$\"33$RdI?)Q:bF5F-7%Faal$\"3#pgUpz6Y[%F5F-7%$!3\") ph)GsPn^\"F*$\"3mVwfs'pbn%F5F-7%$!3!3cFC\\H%R9F*$\"3?&3Yz>$**RZF5F-F[c n7'7%F[cl$\"3o$)Q*Q%\\8_`F5F-7%Ffbl$\"3y:h5c]'yk%F5F-7%$!3&=*=q*>$\\Bx F5$\"3[9FrqbP%z%F5F-7%$!3!e1hQy!H&>(F5$\"3)*G=Z[BJ1[F5F-F\\dn7'7%F[q$ \"3.D\"Q(****\\7`F5F-7%F[q$\"3Uu=E++](o%F5F-7%Fadl$\"3#zz*[pk\"G#[F5F- 7%FfdlFaenF-F]en7'7%F]elFjcnF-7%FjdlF]dnF-7%$\"3!e1hQy!H&>(F5FgdnF-7%$ \"3&=*=q*>$\\BxF5FbdnF-Ffen7'7%FjelFibnF-7%FgelF\\cnF-7%$\"3!3cFC\\H%R 9F*FfcnF-7%$\"3\")ph)GsPn^\"F*FacnF-F_fn7'7%FgflFhanF-7%FdflF[bnF-7%$ \"3yNNJAHa;AF*FebnF-7%$\"31)yuo!)\\`:#F*F`bnF-Fhfn7'7%FdglFg`nF-7%Fagl Fj`nF-7%$\"3#*pTluf14IF*FdanF-7%$\"3U-gMPhOuHF*F_anF-Fagn7'7%Feu$\"3x5 z>]t\"4I(F5F-7%F`u$\"3A*3-)\\E3*p(F5F-7%$!3AF,t&3AO(HF*$\"3oMw!yW`gf(F 5F-7%$!3PS/?$[%[.IF*$\"3j8_h>7qHwF5F-F\\hn7'7%Fjv$\"3[o6!y_->M(F5F-7%F ev$\"3_J))>su4ewF5F-7%$!3+(z++>Ow<#F*$\"3-\"[W/V42](F5F-7%$!3X@1$3\"3N ,AF*$\"3e!*[v'3p&ywF5F-F]in7'7%F_x$\"3W@?%=$[b\"*yF5F-7%Fjw$\"3cyz:o^W 3rF5F-7%$!3Ow<#F*FcinF-F[^o7'7%F]^lFjgnF-7% Fj]lF]hnF-7%$\"3PS/?$[%[.IF*FghnF-7%$\"3AF,t&3AO(HF*FbhnF-Fd^o7'7%F1$ \"3P+W@ojEN)*F5F-7%F($\"32g&yJOtk,\"F*F-7%$!3/=84'pMO(HF*$\"3,*>\"G<5G 25F*F-7%$!3#z:f3uW$)*HF*$\"3\"4_x!e$*R65F*F-F__o7'7%FG$\"3%zV[AR9x)**F 5F-7%FB$\"35c^xg&G7+\"F*F-7%$!317ooP\\#*)>#F*$\"3VgjsO@DL**F5F-7%$!36Y &\\)yxw+AF*$\"3w(HOI%z135F*F-F``o7'7%Ffn$\"3P-'o3ip1.\"F*F-7%FW$\"3MwR J\"z.Lp*F5F-7%$!32O\"Rg3KS]\"F*$\"3_!*zwrcA)z*F5F-7%$!3_Kitaw-e9F*$\"3 SJk#)='))R&)*F5F-Faao7'7%F[p$\"3&)RZL7_#F*Ff`oF-F^eo7'7%FftF]_oF- 7%FctF`_oF-7%$\"3#z:f3uW$)*HF*Fj_oF-7%$\"3/=84'pMO(HF*Fe_oF-Fgeo7'7%F( F+$\"\"\"F/7%F1F3F`fo7%F7F9F`fo7%FF`foFbfo7'7%FBFDF`fo7%FGFIF`fo7%F LFNF`fo7%FQFSF`foFgfo7'7%FWFYF`fo7%FfnFhnF`fo7%F[oF]oF`fo7%F`oFboF`foF \\go7'7%FfoFhoF`fo7%F[pF]pF`fo7%F`pFbpF`fo7%FepFgpF`foFago7'7%F[qF\\qF `fo7%F[qF_qF`fo7%FbqFeqF`fo7%FhqFeqF`foFfgo7'7%F\\rFhoF`fo7%F_rF]pF`fo 7%FbrFgpF`fo7%FerFbpF`foF[ho7'7%FirFYF`fo7%F\\sFhnF`fo7%F_sFboF`fo7%Fb sF]oF`foF`ho7'7%FfsFDF`fo7%FisFIF`fo7%F\\tFSF`fo7%F_tFNF`foFeho7'7%Fct F+F`fo7%FftF3F`fo7%FitF>F`fo7%F\\uF9F`foFjho7'7%F`uFbuF`fo7%FeuFguF`fo 7%FjuF\\vF`fo7%F_vFavF`foF_io7'7%FevFgvF`fo7%FjvF\\wF`fo7%F_wFawF`fo7% FdwFfwF`foFdio7'7%FjwF\\xF`fo7%F_xFaxF`fo7%FdxFfxF`fo7%FixF[yF`foFiio7 '7%F_yFayF`fo7%FdyFfyF`fo7%FiyF[zF`fo7%F^zF`zF`foF^jo7'7%F[qFdzF`fo7%F [qFgzF`fo7%FjzF\\[lF`fo7%F_[lF\\[lF`foFcjo7'7%Fc[lFayF`fo7%Ff[lFfyF`fo 7%Fi[lF`zF`fo7%F\\\\lF[zF`foFhjo7'7%F`\\lF\\xF`fo7%Fc\\lFaxF`fo7%Ff\\l F[yF`fo7%Fi\\lFfxF`foF][p7'7%F]]lFgvF`fo7%F`]lF\\wF`fo7%Fc]lFfwF`fo7%F f]lFawF`foFb[p7'7%Fj]lFbuF`fo7%F]^lFguF`fo7%F`^lFavF`fo7%Fc^lF\\vF`foF g[p7'7%Fg^lFi^lF`fo7%F\\_lF^_lF`fo7%Fa_lFc_lF`fo7%Ff_lFh_lF`foF\\\\p7' 7%F\\`lF^`lF`fo7%Fa`lFc`lF`fo7%Ff`lFh`lF`fo7%F[alF]alF`foFa\\p7'7%Faal FcalF`fo7%FfalFhalF`fo7%F[blF]blF`fo7%F`blFbblF`foFf\\p7'7%FfblFhblF`f o7%F[clF]clF`fo7%F`clFbclF`fo7%FeclFgclF`foF[]p7'7%F[qF[dlF`fo7%F[qF^d lF`fo7%FadlFcdlF`fo7%FfdlFcdlF`foF`]p7'7%FjdlFhblF`fo7%F]elF]clF`fo7%F `elFgclF`fo7%FcelFbclF`foFe]p7'7%FgelFcalF`fo7%FjelFhalF`fo7%F]flFbblF `fo7%F`flF]blF`foFj]p7'7%FdflF^`lF`fo7%FgflFc`lF`fo7%FjflF]alF`fo7%F]g lFh`lF`foF_^p7'7%FaglFi^lF`fo7%FdglF^_lF`fo7%FgglFh_lF`fo7%FjglFc_lF`f oFd^p7'7%F^hlF`hlF`fo7%FchlFehlF`fo7%FhhlFjhlF`fo7%F]ilF_ilF`foFi^p7'7 %FcilFeilF`fo7%FhilFjilF`fo7%F]jlF_jlF`fo7%FbjlFdjlF`foF^_p7'7%FhjlFjj lF`fo7%F][mF_[mF`fo7%Fb[mFd[mF`fo7%Fg[mFi[mF`foFc_p7'7%F]\\mF_\\mF`fo7 %Fb\\mFd\\mF`fo7%Fg\\mFi\\mF`fo7%F\\]mF^]mF`foFh_p7'7%F[qFb]mF`fo7%F[q Fe]mF`fo7%Fh]mFj]mF`fo7%F]^mFj]mF`foF]`p7'7%Fa^mF_\\mF`fo7%Fd^mFd\\mF` fo7%Fg^mF^]mF`fo7%Fj^mFi\\mF`foFb`p7'7%F^_mFjjlF`fo7%Fa_mF_[mF`fo7%Fd_ mFi[mF`fo7%Fg_mFd[mF`foFg`p7'7%F[`mFeilF`fo7%F^`mFjilF`fo7%Fa`mFdjlF`f o7%Fd`mF_jlF`foF\\ap7'7%Fh`mF`hlF`fo7%F[amFehlF`fo7%F^amF_ilF`fo7%Faam FjhlF`foFaap7'7%FeamFgamF`fo7%FeamFjamF`fo7%F]bmF_bmF`fo7%FbbmF_bmF`fo Ffap7'7%FfbmFhbmF`fo7%FfbmF[cmF`fo7%F^cmF`cmF`fo7%FccmF`cmF`foF[bp7'7% FgcmFicmF`fo7%FgcmF\\dmF`fo7%F_dmFadmF`fo7%FddmFadmF`foF`bp7'7%FhdmFjd mF`fo7%FhdmF]emF`fo7%F`emFbemF`fo7%FeemFbemF`foFebp7'7%F[qFiemF`fo7%F[ qF\\fmF`fo7%F_fmFafmF`fo7%FdfmFafmF`foFjbp7'7%FhfmFjdmF`fo7%FhfmF]emF` fo7%F\\gmFbemF`fo7%F_gmFbemF`foF_cp7'7%FcgmFicmF`fo7%FcgmF\\dmF`fo7%Fg gmFadmF`fo7%FjgmFadmF`foFdcp7'7%F^hmFhbmF`fo7%F^hmF[cmF`fo7%FbhmF`cmF` fo7%FehmF`cmF`foFicp7'7%FihmFgamF`fo7%FihmFjamF`fo7%F]imF_bmF`fo7%F`im F_bmF`foF^dp7'7%FchlFdimF`fo7%F^hlFgimF`fo7%FjimF\\jmF`fo7%F_jmFajmF`f oFcdp7'7%FhilFejmF`fo7%FcilFhjmF`fo7%F[[nF][nF`fo7%F`[nFb[nF`foFhdp7'7 %F][mFf[nF`fo7%FhjlFi[nF`fo7%F\\\\nF^\\nF`fo7%Fa\\nFc\\nF`foF]ep7'7%Fb \\mFg\\nF`fo7%F]\\mFj\\nF`fo7%F]]nF_]nF`fo7%Fb]nFd]nF`foFbep7'7%F[qFh] nF`fo7%F[qF[^nF`fo7%Fh]mF^^nF`fo7%F]^mF^^nF`foFgep7'7%Fd^mFg\\nF`fo7%F a^mFj\\nF`fo7%Fe^nFd]nF`fo7%Fh^nF_]nF`foF\\fp7'7%Fa_mFf[nF`fo7%F^_mFi[ nF`fo7%F^_nFc\\nF`fo7%Fa_nF^\\nF`foFafp7'7%F^`mFejmF`fo7%F[`mFhjmF`fo7 %Fg_nFb[nF`fo7%Fj_nF][nF`foFffp7'7%F[amFdimF`fo7%Fh`mFgimF`fo7%F``nFaj mF`fo7%Fc`nF\\jmF`foF[gp7'7%F\\_lFg`nF`fo7%Fg^lFj`nF`fo7%F]anF_anF`fo7 %FbanFdanF`foF`gp7'7%Fa`lFhanF`fo7%F\\`lF[bnF`fo7%F^bnF`bnF`fo7%FcbnFe bnF`foFegp7'7%FfalFibnF`fo7%FaalF\\cnF`fo7%F_cnFacnF`fo7%FdcnFfcnF`foF jgp7'7%F[clFjcnF`fo7%FfblF]dnF`fo7%F`dnFbdnF`fo7%FednFgdnF`foF_hp7'7%F [qF[enF`fo7%F[qF^enF`fo7%FadlFaenF`fo7%FfdlFaenF`foFdhp7'7%F]elFjcnF`f o7%FjdlF]dnF`fo7%FhenFgdnF`fo7%F[fnFbdnF`foFihp7'7%FjelFibnF`fo7%FgelF \\cnF`fo7%FafnFfcnF`fo7%FdfnFacnF`foF^ip7'7%FgflFhanF`fo7%FdflF[bnF`fo 7%FjfnFebnF`fo7%F]gnF`bnF`foFcip7'7%FdglFg`nF`fo7%FaglFj`nF`fo7%FcgnFd anF`fo7%FfgnF_anF`foFhip7'7%FeuFjgnF`fo7%F`uF]hnF`fo7%F`hnFbhnF`fo7%Fe hnFghnF`foF]jp7'7%FjvF[inF`fo7%FevF^inF`fo7%FainFcinF`fo7%FfinFhinF`fo Fbjp7'7%F_xF\\jnF`fo7%FjwF_jnF`fo7%FbjnFdjnF`fo7%FgjnFijnF`foFgjp7'7%F dyF][oF`fo7%F_yF`[oF`fo7%Fc[oFe[oF`fo7%Fh[oFj[oF`foF\\[q7'7%F[qF^\\oF` fo7%F[qFa\\oF`fo7%FjzFd\\oF`fo7%F_[lFd\\oF`foFa[q7'7%Ff[lF][oF`fo7%Fc[ lF`[oF`fo7%F[]oFj[oF`fo7%F^]oFe[oF`foFf[q7'7%Fc\\lF\\jnF`fo7%F`\\lF_jn F`fo7%Fd]oFijnF`fo7%Fg]oFdjnF`foF[\\q7'7%F`]lF[inF`fo7%F]]lF^inF`fo7%F ]^oFhinF`fo7%F`^oFcinF`foF`\\q7'7%F]^lFjgnF`fo7%Fj]lF]hnF`fo7%Ff^oFghn F`fo7%Fi^oFbhnF`foFe\\q7'7%F1F]_oF`fo7%F(F`_oF`fo7%Fc_oFe_oF`fo7%Fh_oF j_oF`foFj\\q7'7%FGF^`oF`fo7%FBFa`oF`fo7%Fd`oFf`oF`fo7%Fi`oF[aoF`foF_]q 7'7%FfnF_aoF`fo7%FWFbaoF`fo7%FeaoFgaoF`fo7%FjaoF\\boF`foFd]q7'7%F[pF`b oF`fo7%FfoFcboF`fo7%FfboFhboF`fo7%F[coF]coF`foFi]q7'7%F[qFacoF`fo7%F[q FdcoF`fo7%FbqFgcoF`fo7%FhqFgcoF`foF^^q7'7%F_rF`boF`fo7%F\\rFcboF`fo7%F ^doF]coF`fo7%FadoFhboF`foFc^q7'7%F\\sF_aoF`fo7%FirFbaoF`fo7%FgdoF\\boF `fo7%FjdoFgaoF`foFh^q7'7%FisF^`oF`fo7%FfsFa`oF`fo7%F`eoF[aoF`fo7%FceoF f`oF`foF]_q7'7%FftF]_oF`fo7%FctF`_oF`fo7%FieoFj_oF`fo7%F\\foFe_oF`foFb _q-%&COLORG6cil%$RGBGF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF [qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[ qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[q F[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF [qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[ qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[q F[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF [qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[ qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[q F[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF [qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[ qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[q F[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF [qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[ qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[q F[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF [qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[ qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[q F[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF [qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[ qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[qF[q F[qF[qF[q-%*AXESTICKSG6%\"\"(FjhmFjhm-%*AXESSTYLEG6#%'NORMALG-%+PROJEC TIONG6%$!#!*F/F[qFafo" 1 2 0 1 10 0 2 1 1 4 2 1.000000 0.000000 -90.000000 1 0 "Curve 1" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 44 "Befor e we go on, we unassign the parameters:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "a:='a'; b:='b'; c:='c'; i:='i'; mu[0]:='mu[0]';" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aGF$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bGF$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cGF$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"iGF$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >&%#muG6#\"\"!F$" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 36 "The rectangle may be parametrized by" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 " Rect:=[u,0,v];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%RectG7%%\"uG\"\"! %\"vG" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 7 "where " }{XPPEDIT 18 0 " -b <= u;" "6#1,$%\"bG!\"\"%\"uG" }{XPPEDIT 18 0 "` ` <= b;" "6#1%\"~G% \"bG" }{TEXT -1 6 ", and " }{XPPEDIT 18 0 "0 <= v;" "6#1\"\"!%\"vG" } {XPPEDIT 18 0 "` ` <= c;" "6#1%\"~G%\"cG" }{TEXT -1 48 ". The tangent vectors and the normal vector are" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "Ru:=diff(Rect,u); Rv:=diff(Rect,v); N:=Ru &x Rv;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#RuG7%\"\"\"\"\"!F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#RvG7%\"\"!F&\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"NG7%\"\"!!\"\"F&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 46 "Notice that the normal points in the negative " }{XPPEDIT 18 0 "y;" "6#%\"yG" }{TEXT -1 85 "-direction, which is the direction we saw in the plot that the magnetic field points." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 39 "On the rectangle, the magnetic \+ field is" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "B3(u,0,v); simp lify(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"\"!,&*&*&&%#muG6#F$\" \"\"%\"iGF+F+*&%#PiGF+,&%\"uGF+*&\"\"#F+%\"aGF+F+F+!\"\"#F4\"\"%*&*(#F +F6F+F(F+F,F+F+*&F.F+,&F0F+*&F2F+F3F+F4F+F4F+F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"\"!,$*&*(&%#muG6#F$\"\"\"%\"iGF+%\"aGF+F+*(%#PiGF+, &%\"uGF+*&\"\"#F+F-F+F+F+,&F1!\"\"*&F3F+F-F+F+F+F5F5F$" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 14 "So the flux is" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "interface(showassumed=0); assume(0 " 0 "" {MPLTEXT 1 0 53 "Muint(B3(u,0,v) &. N,u=-b ..b,v=0..c); Flux:=value(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$Int G6$-F$6$*&*(&%#muG6#\"\"!\"\"\"%\"iGF.%#a|irGF.F.*(%#PiGF.,&%\"uGF.*& \"\"#F.F0F.F.F.,&F4!\"\"*&F6F.F0F.F.F.F8/F4;,$%#b|irGF8F=/%\"vG;F-%#c| irG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%FluxG,$*&**&%#muG6#\"\"!\"\" \"%\"iGF,,&-%#lnG6#,&%#b|irGF,*&\"\"#F,%#a|irGF,F,F,-F06#,&F3!\"\"*&F5 F,F6F,F,F:F,%#c|irGF,F,%#PiGF:#F,F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "Flux:=combine(%,ln);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%FluxG*&**&%#muG6#\"\"!\"\"\"%\"iGF+%#c|irGF+-%#lnG6#*$-%%sqrtG6# *&,&%#b|irGF+*&\"\"#F+%#a|irGF+F+F+,&F7!\"\"*&F9F+F:F+F+F " 0 "" {MPLTEXT 1 0 20 "Ruv:=MF([u,v],Rect);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$RuvG7%R6$%\"uG%\"vG6\"6$%)operatorG%&arrowGF*9$F*F*F*\"\"!RF'F*F +F*9%F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "Siv(B3,Ruv,u =-b..b,v=0..c); Flux:=value(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$ IntG6$-F$6$*&*(&%#muG6#\"\"!\"\"\"%\"iGF.%#a|irGF.F.*(%#PiGF.,&%\"uGF. *&\"\"#F.F0F.F.F.,&F4!\"\"*&F6F.F0F.F.F.F8/F4;,$%#b|irGF8F=/%\"vG;F-%# c|irG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%FluxG,$*&**&%#muG6#\"\"!\" \"\"%\"iGF,,&-%#lnG6#,&%#b|irGF,*&\"\"#F,%#a|irGF,F,F,-F06#,&F3!\"\"*& F5F,F6F,F,F:F,%#c|irGF,F,%#PiGF:#F,F5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 108 "There is a second way to compute this flux. The magneti c field is solenoidal because it is divergence-free:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "DIV(B3);" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#\"\"!" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 46 "So the magnetic field \+ has a vector potential, " }{XPPEDIT 18 0 "A;" "6#%\"AG" }{TEXT -1 3 ". " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "VEC_POT(B3,'A');" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "A(x,y,z);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%,&*&**& %#muG6#\"\"!\"\"\"%\"iGF+,&%\"xGF+*&\"\"#F+%#a|irGF+F+F+%\"zGF+F+*&%#P iGF+,&*$)F-F0F+F+*$)%\"yGF0F+F+F+!\"\"#F;\"\"%*&*,#F+F=F+F'F+F,F+,&F.F +*&F0F+F1F+F;F+F2F+F+*&F4F+,&*$)FAF0F+F+F8F+F+F;F+,&*&**F'F+F,F+F:F+F2 F+F+*&F4F+F5F+F;F<*&*,F@F+F'F+F,F+F:F+F2F+F+*&F4F+FDF+F;F+F*" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 151 "By Stokes' Theorem, the flux is t he line integral of the vector potential around the boundary curve. H ere the boundary consists of four line segments:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "r1:=MF([u],[u,0,0]); #for u=-b..b" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r1G7%R6#%\"uG6\"6$%)operatorG%&arrowGF)9$ F)F)F)\"\"!F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "r2:=MF([v] ,[b,0,v]); #for v=0..c" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r2G7%R6#% \"vG6\"6$%)operatorG%&arrowGF)%#b|irGF)F)F)\"\"!RF'F)F*F)9$F)F)F)" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "r3:=MF([u],[-u,0,c]); #for u =-b..b" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r3G7%R6#%\"uG6\"6$%)opera torG%&arrowGF),$9$!\"\"F)F)F)\"\"!RF'F)F*F)%#c|irGF)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "r4:=MF([v],[-b,0,c-v]); #for v=0..c " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r4G7%R6#%\"vG6\"6$%)operatorG%& arrowGF),$%#b|irG!\"\"F)F)F)\"\"!RF'F)F*F),&%#c|irG\"\"\"9$F/F)F)F)" } }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 39 "So the flux is the total line in tegral:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 86 "Liv(A,r1,u=-b..b )+Liv(A,r2,v=0..c)+Liv(A,r3,u=-b..b)+Liv(A,r4,v=0..c); Flux:=value(%); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(-%$IntG6$\"\"!/%\"uG;,$%#b|irG! \"\"F,\"\"\"*&\"\"#F.-F%6$F'/%\"vG;F'%#c|irGF.F.-F%6$*&**&%#muG6#F'F.% \"iGF.F6F.%#a|irGF.F.*(%#PiGF.,&F)F.*&F0F.F?F.F.F.,&F)F-*&F0F.F?F.F.F. F-F(F." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%FluxG,$*&**&%#muG6#\"\"! \"\"\"%\"iGF,,&-%#lnG6#,&%#b|irGF,*&\"\"#F,%#a|irGF,F,F,-F06#,&F3!\"\" *&F5F,F6F,F,F:F,%#c|irGF,F,%#PiGF:#F,F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT 266 22 "The Expans ion of a Gas" }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 31 "The velocity field of a gas is " }{XPPEDIT 18 0 "V = [x*y^2, y*z^2, z*x^2];" "6#/%\"VG7% *&%\"xG\"\"\"*$%\"yG\"\"#F(*&F*F(*$%\"zGF+F(*&F.F(*$F'F+F(" }{TEXT -1 70 " . We want to find the expansion of the fluid out through the sph ere " }{XPPEDIT 18 0 "x^2+y^2+z^2 = 4;" "6#/,(*$%\"xG\"\"#\"\"\"*$%\"y GF'F(*$%\"zGF'F(\"\"%" }{TEXT -1 21 " which is defined as " }{XPPEDIT 18 0 "Expansion = Int(`V.`,S);" "6#/%*ExpansionG-%$IntG6$%#V.G%\"SG" } {TEXT -1 1 " " }{XPPEDIT 18 0 "` ` = Int(Int(`V.N`,theta = 0 .. 2*Pi), phi = 0 .. Pi);" "6#/%\"~G-%$IntG6$-F&6$%$V.NG/%&thetaG;\"\"!*&\"\"#\" \"\"%#PiGF1/%$phiG;F.F2" }{TEXT -1 5 " " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 42 "We enter the fluid velocity as \+ a function:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "V:=MF([x,y,z ],[x*y^2,y*z^2,z*x^2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"VG7%R6% %\"xG%\"yG%\"zG6\"6$%)operatorG%&arrowGF+*&9$\"\"\")9%\"\"#F1F+F+F+RF' F+F,F+*&F3F1)9&F4F1F+F+F+RF'F+F,F+*&F8F1)F0F4F1F+F+F+" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 33 "The sphere may be parametrized as" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "Rsph:=[2*sin(phi)*cos(theta) ,2*sin(phi)*sin(theta),2*cos(phi)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%%RsphG7%,$*&-%$sinG6#%$phiG\"\"\"-%$cosG6#%&thetaGF,\"\"#,$*&F(F,-F )F/F,F1,$-F.F*F1" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 27 "So the tangen t vectors are:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "R[theta]: =diff(Rsph,theta);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"RG6#%&theta G7%,$*&-%$sinG6#%$phiG\"\"\"-F,F&F/!\"#,$*&F+F/-%$cosGF&F/\"\"#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "R[phi]:=diff(Rsph,phi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"RG6#%$phiG7%,$*&-%$cosGF&\"\"\" -F,6#%&thetaGF-\"\"#,$*&F+F--%$sinGF/F-F1,$-F5F&!\"#" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 24 "and the normal vector is" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 23 "N:= R[theta] &x R[phi];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"NG7%,$*&)-%$sinG6#%$phiG\"\"#\"\"\"-%$cosG6#%&theta GF.!\"%,$*&F(F.-F*F1F.F3,&*(F)F.)F6F-F.-F0F+F.F3**\"\"%F.F)F.)F/F-F.F: F.!\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 32 "We simplify the third \+ component:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "N[3]:=simplif y(N[3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"NG6#\"\"$,$*&-%$sinG6 #%$phiG\"\"\"-%$cosGF,F.!\"%" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 18 "T he components of " }{XPPEDIT 18 0 "N;" "6#%\"NG" }{TEXT -1 39 " are ne gative in the first octant. So " }{XPPEDIT 18 0 "N;" "6#%\"NG" } {TEXT -1 58 " points inward. We want the flux outward. So we reverse " }{XPPEDIT 18 0 "N;" "6#%\"NG" }{TEXT -1 1 ":" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 6 "N:=-N;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"N G7%,$*&)-%$sinG6#%$phiG\"\"#\"\"\"-%$cosG6#%&thetaGF.\"\"%,$*&F(F.-F*F 1F.F3,$*&F)F.-F0F+F.F3" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 30 "On the \+ sphere, the velocity is" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 " VR:=V(op(Rsph));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#VRG7%,$*()-%$si nG6#%$phiG\"\"$\"\"\"-%$cosG6#%&thetaGF.)-F*F1\"\"#F.\"\"),$*(F)F.F4F. )-F0F+F5F.F6,$*(F:F.)F)F5F.)F/F5F.F6" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 63 "Note: We need the op command to strip the square brackets off \+ " }{XPPEDIT 18 0 "Rsph;" "6#%%RsphG" }{TEXT -1 3 ". " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 56 "The dot product of the velocity field and the normal is:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "VN:=VR &. N;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#VN G,$*(,&!\"\"\"\"\"*$)-%$cosG6#%$phiG\"\"#F)F)F)-%$sinGF.F),,*$)-F-6#%& thetaGF0F)F)*$)F6\"\"%F)F(*&F+F)F5F)F(*&F:F)F+F)F)F*F)F)!#K" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 20 "So the expansion is:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "Muint(VN,theta=0..2*Pi,phi=0..Pi); \+ Expansion:=value(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$IntG6$-F$6$ ,$*(,&!\"\"\"\"\"*$)-%$cosG6#%$phiG\"\"#F,F,F,-%$sinGF1F,,,*$)-F06#%&t hetaGF3F,F,*$)F9\"\"%F,F+*&F.F,F8F,F+*&F=F,F.F,F,F-F,F,!#K/F;;\"\"!,$% #PiGF3/F2;FDFF" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*ExpansionG,$%#PiG #\"$G\"\"\"&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 59 "Another way to co mpute this surface integral is to use the " }{TEXT 270 18 "Surface_int _vector" }{TEXT -1 23 " command (or its alias " }{TEXT 271 3 "Siv" } {TEXT -1 11 ") from the " }{TEXT 272 8 "vec_calc" }{TEXT -1 81 " packa ge which works directly with the parametrized surface and the vector f ield:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "R:=MF([theta,phi], Rsph);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"RG7%R6$%&thetaG%$phiG6\" 6$%)operatorG%&arrowGF*,$*&-%$sinG6#9%\"\"\"-%$cosG6#9$F4\"\"#F*F*F*RF 'F*F+F*,$*&F0F4-F1F7F4F9F*F*F*RF'F*F+F*,$-F6F2F9F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "Siv(V,R,theta=0..2*Pi,phi=0..Pi); E xpansion:=value(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$IntG6$-F$6$, $*(,&!\"\"\"\"\"*$)-%$cosG6#%$phiG\"\"#F,F,F,-%$sinGF1F,,,*$)-F06#%&th etaGF3F,F,*$)F9\"\"%F,F+*&F.F,F8F,F+*&F=F,F.F,F,F-F,F,\"#K/F;;\"\"!,$% #PiGF3/F2;FDFF" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*ExpansionG,$%#PiG #!$G\"\"\"&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 92 "Notice there is a \+ minus sign difference in the answer because we did not reverse the nor mal." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 206 " There is a second way to compute this expansion. By Gauss' theorem, t he expansion is the volume integral of the divergence of the velocity \+ over the interior of the sphere. In this case, the divergence is:" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "DIV(V);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#R6%%\"xG%\"yG%\"zG6\"6$%)operatorG%&arrowGF(,(*$)9%\"\" #\"\"\"F1*$)9&F0F1F1*$)9$F0F1F1F(F(F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 34 " which in spherical coordinates is" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 12 "divV:=rho^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%%divVG*$)%$rhoG\"\"#\"\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 32 "The spherical volume Jacobian is" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "J:=rho^2*sin(phi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%\"JG*&)%$rhoG\"\"#\"\"\"-%$sinG6#%$phiGF)" }}}{EXCHG {PARA 0 "" 0 " " {TEXT -1 19 "So the expansion is" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "Muint(divV*J,rho=0..2,theta=0..2*Pi,phi=0..Pi); Expan sion:=value(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$IntG6$-F$6$-F$6$ *&)%$rhoG\"\"%\"\"\"-%$sinG6#%$phiGF./F,;\"\"!\"\"#/%&thetaG;F5,$%#PiG F6/F2;F5F;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*ExpansionG,$%#PiG#\"$ G\"\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}}{MARK "11 12 1 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }