(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 11.2' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 47295, 917]
NotebookOptionsPosition[ 45618, 888]
NotebookOutlinePosition[ 46006, 905]
CellTagsIndexPosition[ 45963, 902]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[StyleBox["Two parallel line charges with \[PlusMinus] Charge.",
FontFamily->"Arial",
FontSize->12,
FontWeight->"Bold",
FontColor->RGBColor[0., 0., 0.]]], "Text",
CellChangeTimes->{{3.716763557908621*^9, 3.716763599694217*^9},
3.716763635729313*^9, {3.7167639071022477`*^9, 3.7167639545917315`*^9}, {
3.7167639971900654`*^9, 3.7167640880592165`*^9}, {3.7167641360956264`*^9,
3.716764141596218*^9}, {3.7167642046186543`*^9, 3.7167643180058203`*^9}, {
3.7167644419097958`*^9, 3.7167644626932507`*^9}, 3.7167644937903533`*^9, {
3.7167645522810097`*^9, 3.7167645533592606`*^9}, 3.7167646441190147`*^9, {
3.7168507171251163`*^9, 3.716850884387892*^9}, {3.7168509162977657`*^9,
3.7168510486555643`*^9}, 3.7168518817214136`*^9, {3.723406828490447*^9,
3.7234068597480297`*^9}, {3.723406906761983*^9, 3.723406913573053*^9}, {
3.723406967647094*^9, 3.723407005776573*^9}, {3.723577257718231*^9,
3.7235773640993137`*^9}, {3.7235774480712347`*^9, 3.723577448100752*^9}, {
3.7235775037922487`*^9, 3.723577521031898*^9}, {3.723577570503064*^9,
3.723577587708437*^9}, {3.723577622898273*^9, 3.7235776287639*^9}, {
3.723577757122417*^9, 3.7235777768911343`*^9}, {3.723577869203267*^9,
3.723577937004771*^9}, {3.7235779769508038`*^9, 3.7235783239928493`*^9}, {
3.7235783697327147`*^9, 3.723578420843174*^9}, {3.723578646907113*^9,
3.7235786634528418`*^9}, {3.723579039720911*^9, 3.723579152640656*^9},
3.7240948970570498`*^9},
TextAlignment->Center,ExpressionUUID->"3fde6ba4-e2e9-4de0-af14-37214b09d30e"],
Cell[TextData[StyleBox["PROBLEM: \n\nConsider two infinitely long line \
charges parallel to each other and the z axis, passing through the x-y plane \
at Points {\[Dash]a,0,0} and {+a,0,0} (e.g., separated by a distance 2a), \
where the line passing through {\[Dash]a,0,0} has a linear charge density of \
\[Dash]\[Lambda] and the line passing through {+a,0,0} has a linear charge \
density of +\[Lambda]. The geometry is illustrated in the figure below. The \
line charges themselves extend into and out of the plane of the figure. ",
FontFamily->"Arial",
FontSize->12,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]]], "Text",
CellChangeTimes->{{3.716763557908621*^9, 3.716763599694217*^9},
3.716763635729313*^9, {3.7167639071022477`*^9, 3.7167639545917315`*^9}, {
3.7167639971900654`*^9, 3.7167640880592165`*^9}, {3.7167641360956264`*^9,
3.716764141596218*^9}, {3.7167642046186543`*^9, 3.7167643180058203`*^9}, {
3.7167644419097958`*^9, 3.7167644626932507`*^9}, 3.7167644937903533`*^9, {
3.7167645522810097`*^9, 3.7167645533592606`*^9}, 3.7167646441190147`*^9, {
3.7168507171251163`*^9, 3.716850884387892*^9}, {3.7168509162977657`*^9,
3.7168510486555643`*^9}, 3.7168518817214136`*^9, {3.723406828490447*^9,
3.7234068597480297`*^9}, {3.723406906761983*^9, 3.723406913573053*^9}, {
3.723406967647094*^9, 3.723407005776573*^9}, {3.723577257718231*^9,
3.7235773640993137`*^9}, {3.7235774480712347`*^9, 3.723577448100752*^9}, {
3.7235775037922487`*^9, 3.723577521031898*^9}, {3.723577570503064*^9,
3.723577587708437*^9}, {3.723577622898273*^9, 3.7235776287639*^9}, {
3.723577757122417*^9, 3.7235777768911343`*^9}, {3.723577869203267*^9,
3.723577937004771*^9}, {3.7235779769508038`*^9, 3.7235783239928493`*^9}, {
3.7235783697327147`*^9, 3.723578420843174*^9}, {3.723578646907113*^9,
3.7235786634528418`*^9}, {3.723579039720911*^9, 3.723579152640656*^9},
3.7240949455641947`*^9, {3.728156973530438*^9, 3.7281570033793383`*^9}, {
3.7281570452651167`*^9, 3.728157064610325*^9}, {3.7281579694850883`*^9,
3.7281579768350286`*^9}, 3.7281678880334506`*^9, {3.7281679238341265`*^9,
3.728167928116001*^9}, {3.728167965104338*^9, 3.7281679686047115`*^9}, {
3.7281680294080715`*^9, 3.728168041299966*^9}, 3.728182040161519*^9},
FontColor->RGBColor[0, 1, 1],
Background->RGBColor[
1, 0.9, 0.8],ExpressionUUID->"d6117274-4263-47f3-ba90-d3427021bfc3"],
Cell[TextData[{
"\t\t\t\t\t",
Cell[BoxData[
GraphicsBox[
TagBox[RasterBox[CompressedData["
1:eJzt3V+IXNe+J/YiOZOjDE5wxoLRJYZoHE9iiC8WiR5MUOCEaMAx58FMnCCY
Q/BMfGPnYm7EvY7jgC8l7d2KH/yggROsB0Mc8IM8x5ja1TLYoAc9CMYEPehB
CSbIoAdDHKOL2/SupidRglKr/xyVWmvvrupdVatq1+fDXdc+1VXdv7ZUu/b+
7rV+6+/9k//2H/7X/1Kn0/mrY8P/9w//8X//H//lX/7j/+E/e3r4P/7zv/ir
/+atv/izN//Tv3j3z976s798+Z/8y8MHTw+fe+JXnc7w/wAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIDxXRqOh5FxaczX
n6t4/VtTrxQAAABYVC914vnA92O+/vOK1z8z9UoBAACARXarE88IXjrkdc9U
vO7zmVUKAAAALKqqNQ6HrZGoet25mVUKAAAALKqqeQiHrZGIrY34eXZlAgAA
AAvu485kaySqMomPZ14pAAAAsKhe7Uy2RqJqbcRhPRsAAACAdgvrIcZdIxFb
GzHunhMAAABAe4W5CuPMSahaG/He3CoFAAAAFtVznfHWSFStjXhubpUCAAAA
i+ybzuHrHmJrI76ZY40AAADAYjusb2PV2ohzc68UAAAAWFQhP/i5U71GIpY/
/Lz3OgAAAIB9H3eq10jE1kZ8nKBGmIbYeqBxxs97rw0j9DXVewQAAOBJZzrx
a6qqx19NUyY0dtR8oaoPqnk8AAAAjwvzFWJzGA7r/QjLZJr5Qhi3OjIGAACA
UW91xr9nC8tq2vmCvVQAAAAeF9aTj3MtZd05y2wW+UIY9lMBAAB4JNbL8eBc
cFhmVflCndCHJMzvie2z4r0BAADwpNhelKPjrXSlwVQcJV/YF/os3Kp4vbk9
AAAAj6u7R6uPHcuuSb4QVO2p8nDvawAAAOz6uBO/dvo8ZVEwJU3zhaAqg3tv
emUCAAAsvbA/hP51tNU08oWq7yFfAAAA2BXWP8Tuzf6csiiYolnOX9CfBAAA
YFe4/xq7bvo4ZVEwRfovAAAATNdLI/8e+t5XZQuLct10MnUBtEKTfCG8T76v
eL3+pwAAwKqq24dy0fo6Pj0c9/b+CU1Mmi+EzCDkayF/q9tbZRHeJwAAAClU
XWcd7LvwXKoCR1zo7NZzIW0ZtMA4f++PMkbnAwEAAKySw66zwjzwRbhmCnMW
Njq7NW10zGGgmVnkC/aNAAAAVlnodX9wLXn432Ge9yLtRXmh83iNF1IWw9Kb
dr5wab7lAwAAcASjcxf2hzkMNDGtfCFkca/OuXYAAACO5kInfm13IV1JLLmj
5gvf7I0wX0GuAAAAsDxicxfMYaCpJvtTAgAAsHwudOrvJ19IVRhLTb4AAACw
OurmLpjDQBPyBQAAgNVxoTPemvgLacpjickXAAAAVsM4cxfMYeCo5AsAAACr
4UJnsr7+F1IUydKSLwAAALTfJHMXzGHgKOQLAAAA7XehM1m2YA4Dk5IvAAAA
tN/5zm5WMDqq8oTRcX6eRbLU5AsAAACrybUg0yRfAAAAWE2uBZkm+QIAAMBq
ci0IAAAANCVfAAAAAJqSLwAAAABNyRcAAACApuQLAAAAQFPyBQAAAKAp+QIA
AADQlHyhHY4PxxvDcXU47gzHxt4I//7FcLw5HCdSFQcAAEDryReWX8gO/qYT
/7McHb8Mx/nh+FWaMgEAAGgx+cLyOj0c33YOzxUeG3/71//K/zb858spCgYA
AKC15AvL6fnhGHQmzBZGxr8YjlNzrxoAAIC2ki8sn2PDcbtz9Gxhf9wdjqfm
XDsAAADtJF9YPlc6zbOF/XF1zrUDAADQTvKF5RJ6LkwrW9gfZ+f6GwAAANBG
8oXlcrkz/Xzh07n+BgAAALSRfGG5TKPvwsFxb66/AQAAAG0kX1guG53p5wvl
XH8DAAAA2ki+sFzkCwAAACwi+cJysT4CAACARSRfWC7T3Jtyf3w2198AAACA
NpIvLJcznennC6/M9TcAAACgjeQLS2RrPXvttf/w3/u/O9PLFr6e868AAABA
O8kXlsDDG91jZT+/MujnD3/6Z3/98Lk/+TvTyBZ+GI7j8/5dAAAAaCX5woIr
r116cVBkd0K2sD/++T/984e//lu/apItPOjsrrUAAACAaZAvLLCt4uLbZZFv
j2YL++P6h28+/Pv/5vH/pzNhtvBv/d1/4//9t//kmdfS/EYAAAC0lHxhAW30
uk8P+vkXsVxhf5RF3vtf/6c/PzF8+vvDMegckiuE+Q5//Y/+k4d/80V3+Nrs
o1S/GwAAAK0kX1gwm+v5mbKf36vJFbbL/sV3Drws5AzvDsf14bg3HNt7496f
njxx/+J/+Q8e/h//8383+j0ebK5femHOvxoAAADtJV9YEA9vdH81KPIPwrV/
5byFIvtu0Fs7Ncn33e51T8bXWGTXZ/W7AAAAsHLkCwtg68vus8Pr/Ru16yH6
+Sc//aH71FG+//C1F2Lfc7PIXp/27wIAAMBKki8kNuhnvx0U+f2abGGjLLJz
TX7G3v6WT6y5CI+Fr03rdwEAAGBlyRcSCdf1gyK7XN/DMfs2rG+Yxs8LcxUq
5kVcmMb3BwAAYKXJFxIIvRXLfna7fj1E9mHoyTDNnxt6LsT6RU4rwwAAAGBl
yRfmbHiN/8bwur6s2R/ix+E4O4ufvZNrRPpHhr0uZ/HzAAAAWBnyhTkJvRmH
1/JXD1kP8fXmevf4LOsY/oyPKnKNmWQaAAAArAT5whxsFWunY/0VR67tH5T9
tfPzqGWj1306zJGI7X057fUYAAAArAz5wowNivz92JqER9f1+d2QP8y1pt01
Gk/Wsp6/O886AAAAaA35wowMvuqeCOsd6tZDDIr8s7BuIkV9YW+K2F6Yoe4U
9QAAALDU5AszMLxOfyW6BuHRKMt+9ruUNe6s2YjNqyjyz1LWBQAAwFKSL0xR
6F9Q1T9xZN/J27/0u8+nrjUo+/knsRq3+msvp64NAACApSJfmJLtXvdk2c9u
1a+HyC4vUg/FsFfFzpqIJzOQW4tUJwAAAAtPvjAFZZGdC2seavos3A9rJlLX
GVP2L74TrbmXvZm6NgAAAJaGfKGB0JuxLPJPa+cs9LPri9wzMcxTGBTZnVgm
EvayTF0fAAAAS0G+cESD3tqpsLdkZZ+F0DuxyN9fhnUGm+v5mXiviPxK6toA
AABYCvKFIyj7a+fLIt+u7uGY31u2HonDuq/GMpLy2qUXU9cGAADAwpMvTCD0
Qxxec1+rXw+RX13GdQVbX3afjfaQKLKbqWsDAABg4ckXxlQW+dmyn/9QkyuU
W8XFt1PX2cSgyD+Ir/XIzqWuDQAAgIUmXzhE6J9Q9rN8p59C5XqI7HYb1hEM
f9djsZ4SIVcJvSxT1wcAAMDCki/U2O51T4b1AbXrIYr89+G6PHWt0xL20azI
UD5MXRsAAAALS75QYbPIXh9eV2/UZAsbW+vZa6nrnIWyyL6O9Hrc/qXffT51
bQAAACwk+cIBYS5C2Jexfs5CdjP0Q0xd66yEHCG2P0bIHVLXBgAAwEKSL4wI
PRQGRXanss9C2K+xn18IPRlS1zprYT1ExX+HV1LXBgAAwMKRL+wJez/E7tmP
9jjcXM/PpK5zXkI/x+h+GUV+t039JgAAAJiKlc8XNnrdp8si79Wthwhf31zv
Hk9d67yFfSkrelp+kLo2AAAAFspK5wthPkLZz+/V5ArbZf/iO6nrTKli/4yy
zf0nAAAAmNhK5guhf0K4Bx/6KdT0cLwz6K2dSl1raqEnRcV/p6upawMAAGBh
rFy+EO67D/rZjdr1EP38k9B/IHWti6JqP41V6kcBAABArZXKFwb97LeDIr9f
ky1shJ4DqetcNKFHRfS/W5HdWYW9NAAAADjUSuQLYb+D4bXw5foejtm3273u
ydS1LqpBL3szPtdjtftTAAAAsKP1+cLm+qUXyn52u349RPah+/D1wn+f4X+n
W7E5H6u4twYAAACPaXW+sHfPvazZH+LH4Tibus5lsdVfe7mqX0Xq2gAAAEiq
lflC6M0Y9jc4ZD3E1+67T25Q5J9FcpoHW8Xa6dS1AQAAkEzr8oVwnVv283s1
cxYelP2186nrXFaDr7onwpqIWP+K1LUBAACQTKvyhUGRvx/yg8p5C0V+d9Bb
O5W6zmU3WM/fjf83zt5IXRsAAABJtCJf2L2nnl2vWw8R5vWHdROpa22D0Otx
UGTfxfpZhL0sU9cHAADA3C19vjC8rn0lXNfWZAtl2c9+l7rOtgl9MSv6WnyU
ujYAAADmbmnzhZ39EofXsofsO3nrl373+dS1tlVZ5L1Yf4uwJ2jq2gAAAJir
pcwXQmYQsoP69RDZ5ZBBpK61zbZ73ZNlkW9H+jBcT10bAAAAc7V0+UJZZOfC
moeaPgv3w5qJ1HWuirKfX4j9OWwW2eupawMAAGBuliZfCL0ZyyL/tHbOQujx
+FX3ROpaV8nDG91jsf1Aw2Pha6nrAwAAYC6WIl8Ie0ru7C1Z1Wch7ElZ5O+n
rnNVhbkK8f4X+YXUtQEAADAXC58vlP218zv5QWUPx/zeVn/t5dR1rrrY/qCh
N0Po0ZC6NgAAAGZuYfOFzfXu8eH16bX69RD51Y1e9+nUtRL+vC69EMuBwh4T
qWsDAABg5hYyXxhek54t+/kPNblCOehlb6auk8dV7Rca/jxT1wYAAMBMLVS+
EPaTLPvZh/XrIbLb5bVLL6ask7gwl2T4Z/djZK/Q7+wVCgAA0GoLky+EdfrD
69Cbteshivz39iRYbIN+9kb0z249fzd1bQAAAMzMQuQLe/sPbNTkCve31rPX
UtTG5Moi+zby57hh71AAAIDWSpov/PSH7lNlP79SP2chu7n1ZffZedZFM1vF
2unoGpci/yx1bQAAAMxEsnwh9FAYFNmdyj4Lw+vTsp9fsG5/OQ3/7D6J/bna
SxQAAKCVkuQLW8XFt8si367u4Zj/sLmen5lHLcxG2F80tual7Ge3ZEYAAACt
M9d8YW9/gV7deojw9fC8WdbBfJT9i+9E/5ztLQoAANA2c8sXwnyEMC+hJlfY
Dtejs/r5zF+YpxBdA1Pk92VIAAAArTLzfGH3GjP/INrv71EPxzuD3tqpaf9s
0gu5UsUamCupawMAAGBqZpovhH0fBv3sRu16iOF1ZthHYpo/l8Uy/HO+Gu3f
ee3Si6lrAwAAYCpmli9srWevhXnwNdnCRllk56b181hcuzlTXsb2Hk1dGwAA
AFMx9Xzh4Y3useF14+X6Ho7Zt9u97smmP4vlEdbIVPxdkDEBAAAsv6nmC5vr
l14o+9ntmh6OD4Zf/9D+hKtnN3fK78b2IrU+BgAAYOlNLV8Iew5G58A/yhZ+
HI6z0yqc5TP8e/BKvAdH9mHq2gAAAGikcb4Q7j3H+vcdmAP/9eZ69/i0i2f5
hL8Lsb1Jf+l3n09dGwAAAEfWKF/YKtZOl/38Xv16iLXzsyic5RRyhJAnxDKo
1LUBAABwZEfOFwZF/n7IDyrnLYS19r21U7MqnOUV1kNU/L15JXVtAAAAHMnE
+cLgq+6JQT+7XrceYlDkn+nZR5XwdyP0dYxlUqEPZOr6AAAAmNhE+cJOf74i
v1+TLZRlP/vdPApnuYV9KSuyqQ9S1wYAAMDExsoXwn6Sw+vBj2p7OPazW3r0
MYlBkd2MZVRbX3afTV0bAAAAEzk0X9jpx9fPbh2yP8RHIYOYd/Est/LapRcr
enhcTV0bAAAAE6nNF8Jah3A/uabPwn09+Wii7OdXYn+3NtfzM6lrAwAAYGzR
fGGn/16Rf1rbwzH0ePyqeyJl8Sy/jV736WhPjyK7Y04MAADA0ngiXwh7Su7s
LVm5FiJ/EPamTFs2bTLoZW/Ge3pcfCd1bQAAAIzliXyhYj383vVefm+rWDud
tmTaZqd/aLzHx8bmevd46voAAAA41JPzF6rXRFwNc9nTlktbbfXXXq7ItD5J
XRsAAACHGidfKMP89bRlsgoGRf5ZbD2OOTMAAACLa693Xm2+UPaz25vrl15I
WigrI/QLDWsiIvuffpu6NgAAAJ603eue3Ltmq84Xivz3D290jyUtlJUzWM/f
rdiv5I3UtQEAAPDIZpG9vn+PuBPLF4r8/tZ69lrSIllZYV7NoMi+i6yT+FH/
DwAAgPR++kP3qbKfXxm9ZutE8oWtL7vPJi2UlVcW+dn43qjZR6lrAwAAWGWD
3tqpQZHdOXi91onkC0kLhT1lkfdivR71AwEAAEhjq7j49vC6bDt2P7gjX2BB
7fYIif29za6nrg0AAGCVhLXqsXvA8gWWRdnPL8T+3oYeIqlrAwAAWAWb6/mZ
4bXZD1W5QrgvHOY1dOQLLLCwf8nw7/G9J/7+Dh+ztwkAAMDshN774Z5vWKde
OW8h9GHorZ3af0lkwMLY2+/kyYxs+Pc8dW0AAMBcfNOJX7uOO77ZG+8Nx0tz
rn0phX0fBv3sRt16iLB/RNhHYuRl8gUWXui5EJuDE3o0pK4NAACYuWc6u9nA
6HXr953dzOD7zuHZwueRx+QMFbbWs9cGRX6/JlvYqFizLl9g4YU9I2JzckJ/
kdS1AQAAc3Or8+i69b29x0Zzh2/2HnvuwOOX9h47OA/i1XkVvgzCGvRBkf++
ds5CkX1bc59XvsBSGP49/qiil8jZ1LUBAABzEXKCcfKFTuRrb+099vHIYz93
dudGrLyde7r97HZND8cHw69/GHoy1Hwb+QJLYW8/lB8j/US+O+TvOAAA0A6j
ecE4+cIzncezhH2jayre6qy4QS97c3htVdb0WfhhzPu68gWWxqCfvRH9O7+e
v5u6NgAAYOYmzRc6ncfXRJwZ8zUrIdzDHV5PXT1kPcTXm+vd42N+S/kCSyWs
94n1Fxl81T2RujYAAGCmmuYL+3MVzhzymtbbKtZOl/38Xv16iLXzE35b+QJL
Zed9ENt/tcg/S10bAAAwU03zhf3XrHS+MLx2ej96TfXo2uruoLd26gjfWr7A
0in7+Sex98FWf+3l1LUBAAAzM635C68e8ppWCnO+B/3sev16iPzTn/7QfeqI
P0K+wNIJ63921kQ80Xcku6XXIwAAtNa0+i+M7kOxEv0dh9dLrwyK/H5NtlAO
r6d+1/DHyBdYSmX/4jvR90UvezN1bQAAwExMY/+IZ/b+fSX2pwz3X8si+6h2
zkI/u/VLv/v8NH5cZMDCC++TQZHdiawVuh/6oKauDwAAmLpJ84XRr+3PU/h8
5LFzM643qZAZhOzgkP0hPpriHHD5Aktrcz0/U7E/65XUtQEAAFM3br7wXOfx
NRDh38M8hZXJFsJah7DmoaaHY1gr8cqUf6x8gaUW2691Zy+Va5deTF0bAAAw
VYflCwdHyBPO7T1nf03Erc6jPgytE3ozhr316uYs7PR4/Kp7YgY/Xr7AUtv6
svtsNJcrspupawMAAKZqknzh++F4KfJ4a/s5hj0ld/aWrN4b4kHYm3KGJcgX
WHrD98gHFWuJWj3nCQAAVsw46yPeGvnfYc5CyBhG10Xsr5dolbK/dn4nP6js
4Zjf2yrWTs+4DPkCS+/hje6xWE43fA/90GDvVgAAYLGM239hdE/Kz/ceO9d5
/Lr31fmUPFub693jZZF9Xb8eIr86p+si+QKtsLOfa3yvlQ9T1wYAAEzFuPnC
mc7j17j7/RY+HnksrJ9Y6r0pyyI/Oxw/1uQK5aCXvTnHkuQLtEYstxu+37an
tJcrAACQ1iT7U34ceTzkCT9HvsdSCftJhvuo9eshstub65demHdpkQFLaWd/
1yLfjvRh+Dp1bXuq+tqOM8JxMBwXw/yusKbsuTnXDgAAqU2SLzzXefx8en8O
w+g6iXCOvVRzGLZ73ZPD65tva9dDFNnlsIY8QXnyBVol5HgV77Np7+16FOEY
d7C3TNgfJxwHf+7UZwuf7z139PGQyS7V8RAAABqYJF8IDq6H2Dd6Xr00cxhC
//rhdc1Gda6Q399az15LWKJ8gVYJfUtCX8fIe+1uogzvoJAHxHLU0R40+8e4
0V63IWM4t/f87zuPZw/mMgAAsAomzRcOzmHY31/uYH+GhT6f3rvGuVLfwzG7
sfVl99nEpcoXaJ29XC+W532QurY9o3lpXb7QiXwtZA7PHPgeB4+jAADQRmFf
yUnyhaBqDsPovOLPI69bCIPe2qlBkd2p7LMQejAMr3NCT4bUtXbkC7TU8D14
M9Y/dQEyvWA0LxgnX3i18+Sx72AW+9JsSwYAgORi6xpG84XvI685eN781t7j
B+/ZnYu8Nqmyf/GdWH+5Rz0c8x821/Mzh3+nuZEv0ErltUsvVvRTvZq6ts7k
+UKnE3+PHvYaAABog5AFjOYIdSPMVzi43uHjMV4X1h2/1VkAG73u08NrmV7d
eojw9fC81LUeIF+gtarWKC1Axtc0X9ifqxBbfwYAAG0zeq487hh1cF/KupH0
WiFcq0T7yT3KFba3iotvp6yxhnyB1gp5XuihGtmv5U7i9UlN84X918gXAABg
Oo6SYUwtjwjXJ2U/v1AxB/uP1zFhnvY0ft6MyBdotUEvezO+VuniOwnLmtb8
hVh/GwAAYHLJ8oXQI66if9xor4UrYR+Jpj9rxuQLtNpuDpjdirxHNzbXu8cT
lTWt/guj/Wj0dwQAgKNLki9srWevRedcj163FNnrTX7GHMkXaL2t/trLFRng
J4lKmsb+EaN79tqfEgAAlsjDG91jgyL/fd2chTCnYbvXPZm61gnIF1gJw/fu
Z7G9YreKtdMJypk0Xxj9WpinEPrTfL/3v3/umLsAAABLY2evu352u6aH44Ph
1z9M3DPuKOQLrITBV90TYW7Rk+/d7NsE5YybL7w08njIEc7tPXarI1sAAICl
s9cfrqzps/BDWeRnU9d5RPIFVsZgPX83/j7O3phzKYflC6MjZAhhv95XO4/v
2xvWSRzc1xcAAFhAO3vb9fOrtT0ci/xawh5x0yBfYGWE+UWDIvsu8j7+Mbzf
51jKJPlCePzVzpOZQ9J9eQEAgPGEfnBlP79Xvx5i7XzqOqdAvsBKCXON4u/p
7KM5lnFYvhD2nRydq/DN3vNG94sI49U51gwAAExoUOTvh/yguodjfnfQWzuV
us4pkS+wcobv714sM9xcv/TCnEoYp/9C6OH488hjb+09bzR3CF+3RgIAABbM
bv+37Poh6yE+/ekP3adS1zpF8gVWTtjjZfhe3o70Ybg+pxLG7e/4XufxLOGZ
vTE6j+HzDgAAsDCG1xavDIr8fk22UJZFdi51nTMgX2Allf38Quy9vllkr8/h
x0+yP+X3kcfPdB5/z06jF0OsJgAAYEx7/d4u185Z6Ge3ful3n09d64zIF1hJ
w/f+sViPlfBY+NqMf/wk+cK5zpNzGIKD/RlmURMAADCGkBmE7KB+PUT2Ucgg
Utc6Q/IFVlaYq1Cx5+yFGf/oSfKFYHQOw8d7j4W+C6P9GZpmAvIFAAA4grKf
/S6seajps/BjWDORus45kC+w0mI9V0JvhtCjYYY/dtJ8YXQOQxj7PR1H+zN8
P4OaAACACqE346DIP6ubs7BzvfFV90TqWudEvsBKC3tGxPaLCXtMzPDHjvZn
HCdfCGJzGJ458PhbkdeNS74AAABjCntK7uwtWT1n4UHYmzJ1nXMmX2DlhXVQ
FceEszP4cSETiPVmHL2+/zjyuoNzGF7aezz8c3+dxM8jj9cZnfcw7gAAADph
PcTa+dg9ytGeblvF2unUdSbgOoKVt9HrPr23JurxY0ORfTfl/ithXUPYT3Kc
6/kwF+GZA6//fozXheccNv9AvgAAABPaXO8eL4vs6/r1EPnVsG4ida2JuI6A
zk4fhjeix4f1/N0p/phJr+kP7gtxcF/Ko+YB8gUAAJhAmNscvSf5aJSDXvZm
6joTcx0Be8oi+zZynNhYkX4s+i8AAMABYT5z2c8+rN13sp/dDn3dUte6AOQL
sCeskYquoyryz1LXNgfyBQAAGBH2lKu4Bzm6pvrywxvdY6lrXRDyBRhR9vNP
YseNrf7ay6lrmzH5AgAA7CmL7NzOXObKXCG/P+hnv01d54KRL8CI0LMldhwp
+9mtKfd6XDTyBQAAVl7ozVh1z/HRyG5sfdl9NnWtC0i+AAeU/YvvRI8j7e7X
Il8AAGClDXprpwZFdqeyz0JYS13kH7T8vmMT8gU4IBwvoseVIr8f9rJMXR8A
ADBd4R5jWeTb1T0c83ub67n7cPXkCxARjh0Vx5UrqWsDAACmI6yPLou8V7s/
xPDr7jOORb4AFYbHkquxOVHltUsvpq4NAABoJtxTLPv5DzW5wvZWcfHt1HUu
EfkCVAg9W4bHlTKyB83N1LUBAABHE9ZDl/38QnRv+kfn/HfcV5yYfAFqhP4t
8SwzO5e6NgAAYDI79xCL7Gbteoh+fuXhje6x1LUuIfkC1AjHlUGR340cc34I
e9ekrg8AABjP1nr2Wmwv+pGxsVlkr6euc4nJF+AQw+PMK/FcM/swdW0AAEC9
vXuGv6+bsxDmNGz3uidT17rk5AswhrLIvo71e/ml330+dW0AAEBc6KFQ9rPb
NT0cHwy/noeeDKlrbQH5Aowh5Aix/XBD7pC6NgAA4Elh74dov/aRNc/Dc/yz
qetsEfkCjCmsh6g4Nr2SujYAAGDXRq/7dGyv+QPzFq5trnePp661ZeQLMKbQ
zzG6P26R39VfFgAA0tvqr708PGe/V5MrbJf9tfOp62wp+QJMIOxLGe8Hk3+Q
ujYAAFhVoX/C8Jz8/dBPobqHY3530Fs7lbrWFpMvwIQq9sstw166qWsDAIBV
M/iqe2LQz64fsh7iU/vLz5x8ASa004M2noteTV0bAACskp295Iv8fk22UIY5
yKnrXBHyBTiCsp9fiR2/NtfzM6lrAwCAtttdD5Fdrp2z0M9ubfe6J1PXukLk
C3AEOz1pYzlpkd2xdy4AAMzOzt7x/ex2/XqI7CPn5XMnX4AjGvSyN+M56cV3
UtcGAABtVPaz34U1DzV9Fn60f3wy8gU4opCHhjlXkePahr10AQBgekJvxkGR
f3bInIWvQ6/H1LWuMPkCNBD2143PYcg/SV0bAAC0wVaxdnpnb8nqOQsPwt6U
qetEvgBNxXLUcIwLx8HUtQEAwDIr+2vnK/Zu27+vd89598KQL0BDu/vt5huR
+Vnfpq4NAACWUVhvvLPeoWY9RNgfPqybSF0rfyRfgCkYrOfvxo952RupawMA
gGVSFvnZvT6NVblC6Tx7IckXYAr29t/9Lta/Nuxlmbo+AABYdHv90z+s7eHY
z25vrl96IXWtRMkXYEpCzlq1927q2gAAYJFt97onw/ri2vUQRXb54Y3usdS1
Ukm+AFNUFnkv1utRxgoAAHFlkZ2L9TN7lCvk9wf97Lep6+RQ8gWYot3cNd+O
9GG4nro2AABYJKE3Y9jXvb6HY3Zj68vus6lrZSzyBZiy4THyQuzYuFlkr6eu
DQAAFsGgt3Yq1r9sdA7woMg/CD0ZUtfK2OQLMGVhTVjYhze2N6/1YgAArLqy
f/Gd+JzfR+fNm+v5mdR1MjH5AsxAmKtQcay8kLo2AABIYXO9ezzWr+zAvIWe
/deWlnwBZiT0XIgcL7dDj4bUtQEAwDyVvfw3ZT//oSZX2N4qLr6duk4akS/A
jIQ9I3bWjUUy2dS1AQDAPIT+CWEOb+y8eGTfyTvltUsvpq6VxuQLMENlkX1U
kc+eTV0bAADMUtj3YVBkN2vXQ/TzK3qUtYZ8AWYorB0ri/zHSEb7nV64AAC0
1dZ69trwvHejJlvYCM9JXSdTJV+AGRv0szeix9T1/N3UtQEAwDTt7aV2pW7O
QpjToCdZK8kXYA7KIvs2ltkOvuqeSF0bAABMQ+ihUPaz2zU9HB8Mv56bx9ta
8gWYg61i7XS0p02Rf5a6NgAAaCrs/TA8vy1r+iz8EPaQSF0nMyVfgDkZHlM/
iR1rt/prL6euDQAAjiL0Gxue035R28OxyK9trnePp66VmZMvwJyEY2qsx03Z
z26ZIwYAwLIJ98nKfn6vJlfYLvtr51PXydzIF2COyv7Fd6LH3172ZuraAABg
HOHe2KDI34+u/x3ZL23QWzuVulbmSr4Ac7R7LM7uRPow3A9zy1LXBwAAdba+
7D476GfXD1kP8elPf+g+lbpW5k6+AHO2uZ6fqeh5cyV1bQAAUGV4zvpKuC9W
ky2UZZGdS10nycgXIIHhsfdqdL+ea5deTF0bAACM2puDe7l2zkI/u7Xd655M
XStJyRcggd15ZZH9e4rsZuraAABg3y/97vNlP7t9SLbwoX7ldOQLkMygyD+I
r1czpwwAgPQG/eyN6D2xR/NvfwxrJlLXycKQL0AiD290jw2K/G6kD8MP+uEA
AJBKOBcdnqd+Vt/DMft68FX3ROpaWSjyBUhop0dOxRyz1LUBALB6toq107F7
YKM9wwbr+bup62QhyRcgsZ3s98nj9nZY65a6NgAAVkfIDXbyg8o+C/m9kD+k
rpOFJV+AxHZ65hT5dmzOWeraAABov8317vHYPa8D46o1vBxCvgALIKyHqDiO
65cDAMDMlEV+dq9PY1WuUIY+j6nrZCnIF2ABhCw49HV8cr/K/G7oA5m6PgAA
2iXsJ1lzj2u/J9hta3aZgHwBFkTYlzJ6bC/yD1LXBgBAe2z3uifLfnardj1E
kV12n4sJyRdggQyP4zdjc9K2vuw+m7o2AACW3949rY3qXCG/P+hnv01dJ0tJ
vgALpLx26cWKnr1XU9cGAMDy2luP+0l9D8fsuvtaNCBfgAUzPO5fiR3vN9fz
M6lrAwBg+Qx6a6cGRfZdZZ+FcH+ryD8IPRlS18pSky/AgtnodZ/enZf2xBq4
O475AABMouxffCe2F/qjHo75PfexmBL5AiygQS97M378v/hO6toAAFh8m+vd
42WR9+rXQ+RfhHtbqWulNeQLsID29guK9fTdCJ8VqesDAGBxlb38N9G9zx+t
h9jeKi6+nbpOWke+AAtqq7/2csUctk9S1wYAwOLZu0eVV/QL/+Oa29BTPHWt
tJJ8ARbYoMg/i/Xf2SrWTqeuDQCAxRH2fajY63z0PtWVhze6x1LXSmvJF2CB
Db7qnojtT1wW2bepawMAYDFsrWevxc4ZR9fYhuekrpPWky/Aghus5+9W7E/8
RuraAABIJ8xFqNrbfGQ9xM3tXvdk6lpZCfIFWHBhHV1sv+KyyH/U7xcAYDWF
Hgqhl0JND8cHoReD/c2ZI/kCLIHh58PZ+OdG9lHq2gAAmK+w98PwXLCs6bPw
Q9hDInWdrBz5AiyJ2P7FIZfeXL/0QuraAACYvTB3dXgO+EVtD8fhOaP9zElE
vgBLIqybC3sVR/owXE9dGwAAs7W5np8p+/m9mlxhu+yvnU9dJytNvgBLZPiZ
ciH2ebJZZK+nrg0AgOnb7cWVvx/mrdb0cPxu0Fs7lbpWVp58AZbIXo/gJ3Lr
8Ji9jAEA2mXry+6zYa5q7XqIfv7JT3/oPpW6VujIF2DphLkKFZ8tF1LXBgDA
dAz62W8HRX6/JlsoyyI7l7pOGCFfgCUUy7HDmjt7GwMALLe9vckv189ZyG45
72MByRdgCYU9I2Jr8EK/4NS1AQBwNL/0u8+X/ez2IdnChyGDSF0rRMgXYEmV
RfZRRe/gs6lrAwBgMoN+9kZY81CzP8SPzvNYcPIFWFJh/+PwORPrHyzTBgBY
DqE34/Ac7mrtnIUi+3rwVfdE6lrhEPIFWGJ7OfeTn0Pr+bupawMAoN5WsXZ6
UOR3a+YsPHBexxKRL8CSK4vs28jn0YaMGwBgcYXcINZP69Gc1PxuyB9S1wkT
kC/AkgufO9HPpiL/LHVtAAA8LtwD2lnvULMeIqyXCOsmUtcKE5IvQAuU/fyT
2GfTVn/t5dS1AQCwK/RnjPbPejTKsP41dZ1wRPIFaIHN9e7xnTURkb2R9XoE
AEgrnI+FfSUP2XfydtifMnWt0IB8AVqi7F98J/p51cveTF0bAMCq2u51T4Z7
PrXrIYrssntCtIB8AVoifCYNP5vuRPow3A97WaauDwBg1ZRFdm53zUNlD8f7
g37229R1wpTIF6BFNtfzM/H5dvmV1LUBAKyK0Juxqj/Wo5Fd3/qy+2zqWmGK
5AvQMqHfcGzv5PLapRdT1wYA0HaD3tqpQZF9V9lnIez7VeTvWw9BC8kXoGVC
Dh6dh1dkN1PXBgDQZmV/7XxZ5NvVPRzze2G+aeo6YUbkC9BCgyL/IJ6XZ+dS
1wYA0DZhL6+yyHv16yHyL/TEouXkC9BCD290jw2K/G4kM/8hrAdMXR8AQFuU
vfw34RyrJlcot4qLb6euE+ZAvgAtNfwse6Vib+UPU9cGALDsQv+E4XlVvtNP
oXrfyTt6YLFC5AvQYmWRfR3pKbT9S7/7fOraAACW1U6/qyK7WbceIuzfFeaU
pq4V5ki+AC0WcoRYj6GQO6SuDQBgGW2tZ68Nz6c2arKFjfCc1HVCAvIFaLmw
HqLis++V1LUBACyLMBchzEmo7eFYZDfD3IbUtUIi8gVoudDPMdpzqMjvmrMH
AHC40EMh9FKoXAtR5A9CL4bQkyF1rZCQfAFWQNiXMp6x5x+krg0AYJGFvR9i
601H9+cKe0ikrhMWgHwBVkRFD6LSHD4AgCdt9LpPD8+Vvqjt4Vjkvc317vHU
tcKCkC/Aigjz+ir2T7qaujYAgEWyuZ6fKfv5vZpcYbvsr51PXScsGPkCrJCq
nkThMzR1bQAAqYX+CWH9aMU9mf0ejt8NemunUtcKC0i+ACtkZ55fkd+PfE7e
0Y8IAFhlYc3ooJ9dr10P0c8/Cb2zU9cKC0q+ACtm0MvejH9eXnwndW0AACkM
+tlvo/dgHo2N0C87dZ2w4OQLsGLCPIWyn92KfW7qTwQArJKwV/egyC7Xz1nI
bm33uidT1wpLQL4AK2irv/Zy1Zy/1LUBAMzDL/3u82U/u31ItvChNaQwNvkC
rKhBkX8W6YX8YKtYO526NgBYYB93njx/vpS0IiY26GdvhH26a/aH+HE4zqau
E5aMfAFW1OCr7omwJuLJz9Ps29S1AcACe6nz5Pnzz8PxTMqiGE/ozRj25q6d
s1BkX1szCkciX4AVNljP341/tmZvpK4NABbYrc6T59B6/y24MEez7Of3auYs
PAjnRqnrhCUmX4AVtrvHc/ZdbE5g2MsydX0AsKBClnDwHPr7pBVRK+QGO/lB
1byFIr9rjSg0Jl+AFRfWFlbMDfwodW0AsMDCmoiD59FnklbEE8J60LDeoW49
ROhJFdZNpK4VWkC+AISMoRebI7i5fumF1LUBwIIKPR0Pnkd/nrQiHjM8n3kl
zMmsyRZKa0JhquQLQCfs6Tz8/N2O9GG4nrq2JRWbN3sraUUATNtznfi59HMp
i2J3/WfYV/KQfSdvh/0pU9cKLSNfAHaU/fxC7PN3s8heT13bkjJvFqDdqvKF
91IWtep27pn0s1v16yGyyyGDSF0rtJB8Adgx/Jw9FuupHB4LX0td3xKKzZv9
OGlFAExT7Di/v1clCZRFdm53zUNln4X7Yc1E6jqhxeQLwB+FuQrxOYT5hdS1
LSHzZgHaLTZPzV6VCYTejGWRf1o7Z6GfXd/6svts6lqh5eQLwGPC52+k1+N2
mG+YurYlFPp8mTcL0D6xPjuj45t0pa2WQW/tVGyv7dF+1YMif996CJgL+QLw
mLBnRGx/6LDHROra5mDax8RXI9/PvFmA5Rfyg7p8wXy1OSj7a+fj/akfrfHc
6q+9nLpOWCHyBeAJZZF9VHEP4Gzq2mZsFsfE7yPf07xZgOUVW//2ceSxS6kK
bLvN9e7x4TnJtfr1EPkXG73u06lrhRUjXwCeED6Po/tFF9l3LZ9fOK98wbxZ
gOUV6+sYMoeDx/swX+2ZRDW2VtnLf1P28x9qcoVyq7j4duo6YUXJF4CoQT97
I/q5vZ6/m7q2GZrH+oj98VLD7w1AGgf7Ot7aezyWO5ivNiXh/kbZz/LYGs5H
6yGy2+W1Sy+mrhVWmHwBqFQW2beRz++NwVfdE6lrm5FpHxNj/R1H59ICcLjD
+hwcZRxVrK/jW3tfeynytVuR78GEQo/pQZHdrFsPUfbzK/bThuTkC0ClrWLt
dPQ+QZF/lrq2GZnmMbFqf0rzZgEms0j5Qqyv42gfx9iaOPPVGthaz17bubdR
nS1shOekrhPYIV8AapX9/JPY53lL+zFP85j4XsX3M28WYDKLki/EcuOD8xNi
ayTMVzuCMBchzEmo7eFYZDe3vuw+m7pW4I/kC0Ct0KM5dt+g7Ge3lrTX47zO
Tw/ewwprJarW7AJQbVHyhVh28NaB58TWSJivNqHQQ2FQZHcq10IU+YOyn19Y
0vMQaDP5AnCosn/xnehnfC97M3VtRzCP89NYX8cwVyG2f9mZaf5yAMxEyAcO
ZsQPO/Hc4FbkeQdzCCqEvR/KIt+u6bPwQ9hDInWdQJR8AThUuD8QvY9Q5PeX
cG/peeQLsb6O4Rw0ljuYNwuw+GJ9HT+veO5bked+P4cal1o4nxieW3xR28Ox
yHthXmXqWoFK8gVgLJvr+Zmqfs2pa5vQrPOF2Prc0XPQce9/AbA4YnMSqnro
VPX3NV+tQjjHGJ5P3KvJFbbDXMrUdQKHki8AYxt+xl+NroFsz17T0zgmxvo6
jp6DxtZImDcLsLiqeirUic1jM1/tgN35kfkH0b2qHvVw/G7QWzuVulZgLPIF
YGyhR/Pws76M9W9OXduUTOOYGNubbHR+QmyNhHmzAIsrlgsflhXE1lOYrzZi
95wiu1G7HqKff/LTH7pPpa4VGJt8AZhIuM8Qn7uYtWGvxabHxFh2EFufG1sj
Yd4swOKp6ut42DG76nXvzazSJTLoZ78NPZxqsoWNlpxXwKqRLwATCftRD88J
7sb6ObfgHkPTY+I3kde/GnlebI+zqj5hAKQTm4cw7pyz2LyHlZ6vtnsOkV2u
n7OQ3drudU+mrhU4EvkCMLHh5/8rFecEH6auraEmx8RYP6+q9bmxtbwP974H
AIsj1tfx0pivjc1pq8qdW29z/dILw/OE24dkCx+GngypawWOTL4AHElZZF/H
+jv/0u8+n7q2BpocE2NzEurW58b6NJg3C0DrDPrZG9H+TY/OH34cjrOp6wQa
ky8ARxJyhJAnRPowfJ26tgaaHBNj62xfqnm+/dEBaLWwbjK299TB84bN9e7x
1LUCUyFfAI4szGOsOF94JXVtc3aU9blV+6Ov5LxZANplq1g7XfbzezVzFh6U
/bXzqesEpkq+ABxZuC8R+jo+uV9lfjf0cEpd3xzF+jqOs9Yh9rpvZlQjAMzF
8Dzg/ZAfVM5bGJ4nhPwhdZ3A1MkXgEbC/lEV5w4fpK5tTqrmIYzTq7Fqf3R9
HgFYOoOvuidi/ZkOnB981oL9poA4+QLQ2KDIbkbOIcqtL7vPpq5tDmJ9HW+N
+dpnIq+dpDc5ACyEsDYy9GmsyRbKsp/9LnWdwEzJF4DGymuXXqyYB3k1dW0A
wOyE/STLIvvokH0nby/5/lLAeOQLwFSU/fxK7Jxicz0/k7o2AGD6tnvdk2U/
u1W/HiK7HDKI1LUCcyFfAKZio9d9elDk9yPnFXecVwBAu+z1Xypr+izcX8H9
pGDVyReAqRn0sjfj8yIvvpO6NgCguZ29o4r809o5C/3seuj1mLpWYO7kC8DU
7KzBjM+T3Nhc7x5PXR8AcHSD3tqpsLdkZZ+F0IupyN83bxFWlnwBmKqt/trL
8TkM+SepawMAjqbsr50vi3y7uodjfi+cA6SuE0hKvgBMXdjbOnZPY6tYO526
NgBgfGH+4fAz/Fr9eoj8aujDlLpWIDn5AjB1Yc1lWBPxZMaQfZu6NgBgPGWR
ny37+Q81uUK5VVx8O3WdwMKQLwAzMVjP363o+fRG6toAgGp7/ZTynX4Klesh
stvltUsvpq4VWCjyBWAmwrnJoMi+i6yT+NEcSgBYTNu97snh5/fN2vUQRf77
4ef8sdS1AgtHvgDMTJhXGe8vnX2UujYA4HGbRfZ6bH3j6H5QW+vZa6nrBBaW
fAGYqbLIewfPT/6vzz948B/8O8++N/zyZ8NxZzg29kb49y+G443hMMcBAOYg
zEUo+/mV+jkL2c2tL7vPpq4VWGjyBWCmwjzL0f2s/pd3/4uHf/fpp2LHnoPj
bzq7OQMAMCOhh8KgyO5U9lko8gdlP78Q1j2mrhVYePIFYObCecn//slfPfwH
//7fHydXODhuDMcLKeoGgCVxvLObyV/txOcFvjkcJw6+KOz9MHoP4MkejvkP
m+v5mfn9GsCSky8AM/enJ5/5d/+1f/XX/19n8mxhf5QdGQMAxITsIMz5O+yz
9JfhOD8cvwp9lmPrFw/MW+htrnePp/mVgCUlXwBmLcynDHMQjpot7I/be98L
AOh0Tg/Ht50JP0//9b/96++++R//q/+zJlfYLvsX30nyGwHLTr4AzNq7nebZ
wv74cM61A6sn9Ja90Nm9zwuL6vnhGHSO+Hn667/1q4f//J/+eayH451Bb+1U
gt8HaAf5AjBLJ4fjQWd6+UL4Xi/O8xeABdQbDuf/07efK4Q16w/3/h0W0bHO
7py+Rp+pz/3J33n40z/769FeC5/89IfuU3P/bYA2kS8As/RBZ3rZwv7I5/ob
wOLZfy/IGabjYK6wPy6kKwlqXelM6TP19f/oT0O2sFEW2bl5/xJAK8kXgFm6
0Zl+vnBnrr8BLJ6D7wk5w9FU5QryBRZZ6Lkw1c/V37z49/7RfH8FoMXkC8As
3etMP1/4ca6/ASyeqveGnGE8h+UK8gUW2eXO9D9XP53rbwC0mXwBmKVpnwM5
TsHh7w85Q9y4uYJhGIZhGIZhGIZhGI+GnGGXXMEwDMMwDMMwDMMwmo9VzhlO
dmazTsswDMMwDMMwDMMwVnVc6Kwm8xcMwzAMwzAMwzAMo/m4PRyvdZAzGIZh
GIZhGIZhGMbkQ64QZ/8IltmZzvSPFa/M9TcA2ix2jAGYpl8Nx61O8/OfO8Nx
bM61wyKSK0zHYTnDhVSFwSGudqaXLXw959qBdpMvAPPw/HAMOkc//3nQWd3+
dHCQXGG6qnKGC+lKglpPDcfdTvNs4YfhOD7n2oF2ky8A8/LicHzbmfz8J8x9
OJ2gXlhUcoXZOJgzXEhZDBwiZO7/otMstz8z96qBtpMvAPP2dme8/mrlcJzv
7K6vAB6RK8zWfs5wPnEdcJiQD4S1g5NmC2Huw9kE9QLtJ18AUjjR2c0Zrnd2
96bf3hv39h47v/cc4ElyBWBfyODf74y3BjHMd/igo5cRMDvyBQAAWG4hk3+3
E8/tb3R2M4hnk1UHrAr5AgAAANCUfAEAAABoSr4AAAAANCVfAAAAAJqSLwAA
AABNyRcAAACApuQLAAAAQFPyBQAAAKAp+QIAAADQlHwBAAAAaEq+AAAAADQl
XwAAAACaki8AAAAATckXAAAAgKbkCwAAAEBT8gUAAACgKfkCAAAA0JR8AQAA
AGhKvgAAAAA0JV+A9vB+BgAAUnE9Au3h/QwAAKTiegTaY5rv51eH4+PhuBX5
nuGxz4fjXJNiAQCAVpEvQHtM4/38XCeeKVSN74fjpaaFAwAAS0++AO3R9P38
TGc3Lxg3W9gfP3d2cwkAAGB1yRegPZq+nz+u+B7jjEvNywdmJKxnqnrv1s0/
qnrdz4e8DgBYTfIFaI8m7+fnKl7/Xmd3XkNn759vVTzvm+blAzMS3rshE5jk
vftqxfPDeGvG9QKrJxynQl+nkGvG5lKGY1W4D3ImVYHAWOQLsFyOOr/gsPd6
LDeouu6omucALK5wTj5uXlC3VkqWCExbOD5VZaBVx6Fnot8JSM01AiyXWeUL
Qfh8D9cZ+/cOXq2ooeq+JrDYwjqmqvUOz435POf0wDSFtVZHOYe5laJY4FCu
EWC5zDJfGFfVfVBgsYVsoGp/mP15CXXzHKoyR4CjOkpfacckWFyuEWC5pMoX
wv2FsC4yrI2omsMILL66e4Vh/lJV/vB5imKBVgvnFbF5UudGnhPmVlWty3xv
nsUCY3GNAO0xrffzfo+l8Hn+TcX3deyA5RXOySfJIsP9ResigGmL7VFTlRlU
9XwEFotrBGiPpu/nunsE8gVol0myQ/3agVkIuWU4voRMIRyT6nq8xPrCyBdg
8bhGgPZo8n4Oc6ar1j2EewbhHkP4/A/nAfo7wvILeeI4/dovpSoQYERs3pV8
ARaPawRojybv59i9zJApPBd5rv6O0A6xtc+jQ392YNL1VOOMcfsmjO5rFfs+
8gVYPK4RoD2O+n6u6vdWNUfxrQY/C1gsdeskztW8DlgN88oXwv2M/Syhqs+s
fAEWn2sEaI+jvp+r5iPE8oW6/e2A5XLYGom6tdDAaph1vhDOQSbpByNfgMXm
GgHaY9r5QsgRXtp7zv6eEnX7VAPLZZx7hPalhNU2y3yhbo1WOD6FntNhTsN+
D0j5Aiw+1whAyA7G6fN22HCfE5bHJNcMryaqEWivqnOP9zrx8wn5AiwH+QIQ
THKtEc4HYr2W7GEHy6Gq50rde15+CExTrJdTXU/Z2HmHfAEWj3wB2BfbWzr2
2R+uTWJ7VH48/5KBCdX1UAnv4aq5TM7jgWmK3deoyheq9tB2XILFI18ARoU5
COEaY7TPwv58hdFe8s90njx2uMcJi68qR9x//8ayw/3xVoJ6gXaqmjcZzkH2
98Z+bu95ck9YHvIFAFgNVb1cD/ZYqNprPpzjP9cBaK7ueDTuqFtPAaQhXwCA
9gtzE6r2fzm4R0Rdz1fn88C0TLIv5a1OfG0XsFjkCwDQfmHO8SRzEurWSbwX
eT7ApEKWOU7G8Pnec2Pru8498V2BlOQLANBuR+2pUNfz9aUZ1guslpARhAxh
dN5UmG8VctHRvalixzI9GGCxyBcAoL2arHWoW1Nxq6OfKwDwOPkCAAAA0JR8
AQAAAGhKvgAAAAA0JV8AAAAAmpIvAAAAAE3JFwAAAICm5AsAAABAU/IFAAAA
oCn5AgAAANCUfAEAAABoSr4AAAAANCVfAAAAAJqSLwAAAABNyRcAAACApuQL
AAAAQFPyBQAAAKAp+QIAAADQlHwBAAAAaEq+AAAAADQlXwAAAACaki8AAAAA
TckXAAAAgKbkCwAAAEBT8gUAAACgKfkCAAAA0JR8AQAAAGhKvgAAAAA0JV8A
AAAAmpIvAAAAAE3JFwAAAICm5AsAAABAU/IFAAAAoCn5AgAAANCUfAEAAABo
Sr4AAAAANCVfAAAAAJqSLwAAAABNyRcAAACApuQLAAAAQFPyBQAAAKAp+QIA
AADQlHwBAAAAaEq+AAAAADQlXwAAAACaki8AAAAATckXAAAAgKbkCwAAAEBT
8gUAAACgKfkCAAAA0JR8AQAAAGhKvgAAAAA0JV8AAAAAmpIvAAAAAE3JFwAA
AICm5AsAAABAU/IFAAAAoCn5AgAAANCUfAEAAABoSr4AAAAANCVfAAAAAJqS
LwAAAABNyRcAAACApuQLAAAAQFPyBQAAAKAp+QIAAADQlHwBAAAAaEq+AAAA
ADQlXwAAAACaki8AAAAATckXAAAAgKbkCwAAAEBT8gUAAACgKfkCAAAA0JR8
AQAAAGhKvgAAAAA0JV8AAAAAmpIvAAAAAE3JFwAAAICm5AsAAABAU/IFAAAA
oCn5AgAAANCUfAEAAABoSr4AAAAANCVfAAAAAJqSLwAAAABNyRcAAACApuQL
AAAAQFPyBQAAAKAp+QIAAADQlHwBAAAAmMTbw3HhwIjlCwef8/48iwQAAAAW
2vlOPE84bFxOUSwAAACwkI4Nx4+dybKF7eE4kaJYAAAAYGFNOofB3AUAAADg
oEnmMJi7AAAAAFQZdw6DuQsAAABAlXHmMJi7AAAAABzmsDkM5i4AAAAAh6mb
w2DuAgAAADCuqjkM5i4AAAAA44rNYTB3AQAAAJjUwTkM5i4AAAAAkxqdw2Du
AgAAAHBU+3MYzF0AAAAAjirMYbjXMXcBAAAAaOZk6gIAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAID2+P8BoA/XOQ==
"], {{0, 564}, {1048, 0}}, {0, 255},
ColorFunction->RGBColor],
BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
Selectable->False],
DefaultBaseStyle->"ImageGraphics",
ImageSize->{443.01302083333314`, Automatic},
ImageSizeRaw->{1048, 564},
PlotRange->{{0, 1048}, {0, 564}}]],
TextAlignment->Center,ExpressionUUID->"bf4eac9a-182c-4648-851d-b9368a86bdf8"]
}], "Text",
CellChangeTimes->{
3.728182064304617*^9, {3.747418923365409*^9,
3.747418924159176*^9}},ExpressionUUID->"942894d5-12ac-4e0f-a932-\
e280f4e9c491"],
Cell[TextData[StyleBox["(a) Find the potential at an arbitrary position in \
the x - y plane, that is, at the Point P {x, y, 0}, using the Superposition \
Principle and your previous work on the potential due to an infinitely long, \
linear charge distribution. \n \n [Choose an expression with the zero of \
potential at the origin of the coordinate system, {0, 0, 0}. ] ",
FontSize->12]], "Input",
PageWidth->WindowWidth,
CellChangeTimes->{{3.728167706764145*^9, 3.728167706779728*^9}, {
3.7281678295428185`*^9, 3.7281678751259923`*^9}, {3.728182071446021*^9,
3.7281820756028852`*^9}, {3.74741958631359*^9, 3.7474196136729*^9}},
FontFamily->"Arial",
FontSize->18,
FontWeight->"Plain",
FontColor->GrayLevel[0],
Background->RGBColor[
0.88, 1, 0.88],ExpressionUUID->"31cb6da3-5ceb-4383-bbef-31b7ac756b71"],
Cell[TextData[{
StyleBox[" ",
FontFamily->"Arial",
FontSize->12,
FontWeight->"Regular",
FontColor->RGBColor[0., 0., 0.]],
StyleBox[" \n\n\n\n\n\n",
FontFamily->"Times New Roman",
FontSize->12,
FontWeight->"Bold",
FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]
}], "Text",
CellChangeTimes->{
3.7281679531497974`*^9, {3.728168065864908*^9, 3.728168069584098*^9},
3.728168151280266*^9, 3.728182082697203*^9, 3.7474226049010153`*^9, {
3.7474226520297537`*^9, 3.747422652944179*^9}},
Background->RGBColor[
1, 1, 0.85],ExpressionUUID->"1c473589-77b7-4297-b667-36c49914f755"],
Cell["", "Text",
CellChangeTimes->{
3.728182381416564*^9, {3.747422656403487*^9, 3.7474226763393497`*^9}},
TextAlignment->Center,ExpressionUUID->"22e1d9db-7006-4fd4-a79b-e27cee04eb13"],
Cell[TextData[{
StyleBox["After lots of tap dancing, you should be able to get your \
potential into the form:\n",
FontFamily->"Times New Roman",
FontSize->12,
FontWeight->"Bold",
FontColor->RGBColor[0.5, 0, 0.5]],
StyleBox["\n",
FontFamily->"Times New Roman",
FontSize->12,
FontWeight->"Bold",
FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]],
Cell[BoxData[
FormBox[
RowBox[{
SubscriptBox["V", "Total"], "[",
RowBox[{"x", ",", "y"}], "]"}], TraditionalForm]],
FontFamily->"Times New Roman",
FontSize->12,
FontWeight->"Bold",
FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255],
ExpressionUUID->"3d84b267-cd9c-4027-af65-4ccaa2913d8c"],
StyleBox[" = ",
FontFamily->"Times New Roman",
FontSize->12,
FontWeight->"Bold",
FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]],
Cell[BoxData[
RowBox[{"=", " ",
RowBox[{"k", " ", "\[Lambda]", " ",
RowBox[{"Log", "[",
FormBox[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"a", "+", "x"}], ")"}], "^", "2"}], " ", "+", " ",
RowBox[{"y", "^", "2"}]}],
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"a", "-", "x"}], ")"}], "^", "2"}], " ", "+", " ",
RowBox[{"y", "^", "2"}]}]],
TraditionalForm], "]"}]}]}]],
FontFamily->"Times New Roman",
FontSize->12,
FontWeight->"Bold",
FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255],
ExpressionUUID->"7ed34988-7991-482a-978b-fe825fcb7e40"],
" ",
StyleBox[" I suggest you use this form to go forward.\n\n",
FontFamily->"Times New Roman",
FontSize->12,
FontWeight->"Bold",
FontColor->RGBColor[0.41817349507896545`, 0., 0.4242923628595407]]
}], "Text",
CellChangeTimes->{{3.716763557908621*^9, 3.716763599694217*^9},
3.716763635729313*^9, {3.7167639071022477`*^9, 3.7167639545917315`*^9}, {
3.7167639971900654`*^9, 3.7167640880592165`*^9}, {3.7167641360956264`*^9,
3.716764141596218*^9}, {3.7167642046186543`*^9, 3.7167643180058203`*^9}, {
3.7167644419097958`*^9, 3.7167644626932507`*^9}, 3.7167644937903533`*^9, {
3.7167645522810097`*^9, 3.7167645533592606`*^9}, 3.7167646441190147`*^9, {
3.7168507171251163`*^9, 3.716850884387892*^9}, {3.7168509162977657`*^9,
3.7168510486555643`*^9}, 3.7168518817214136`*^9, {3.723406828490447*^9,
3.7234068597480297`*^9}, {3.723406906761983*^9, 3.723406913573053*^9}, {
3.723406967647094*^9, 3.723407005776573*^9}, {3.723577257718231*^9,
3.7235773640993137`*^9}, {3.7235774480712347`*^9, 3.723577448100752*^9}, {
3.7235775037922487`*^9, 3.723577521031898*^9}, {3.723577570503064*^9,
3.723577587708437*^9}, {3.723577622898273*^9, 3.7235776287639*^9}, {
3.723577757122417*^9, 3.7235777768911343`*^9}, {3.723577869203267*^9,
3.723577937004771*^9}, {3.7235779769508038`*^9, 3.7235783239928493`*^9}, {
3.7235783697327147`*^9, 3.723578420843174*^9}, {3.723578646907113*^9,
3.7235786634528418`*^9}, {3.723579039720911*^9, 3.7235791388863993`*^9}, {
3.723579300869565*^9, 3.723579304799827*^9}, 3.723579394400938*^9, {
3.728157110047154*^9, 3.728157352975609*^9}, {3.728157415912698*^9,
3.728157433379825*^9}, {3.728157471904368*^9, 3.7281574989402027`*^9}, {
3.728181540279978*^9, 3.728181544889843*^9}, {3.728181611803424*^9,
3.728181644900533*^9}, {3.7281822364012814`*^9, 3.728182264685413*^9},
3.72818235694538*^9, {3.7281824223584576`*^9, 3.728182443595261*^9}, {
3.7281824755360217`*^9, 3.728182493834997*^9}, 3.7281832101501045`*^9, {
3.7281834847106404`*^9, 3.728183534309666*^9}, {3.728505523220319*^9,
3.728505524338332*^9}, {3.728505567749007*^9, 3.728505586304653*^9}, {
3.730303853330234*^9, 3.73030389653456*^9}, {3.7474226938967323`*^9,
3.747422758845982*^9}, {3.7474228170474167`*^9, 3.747422897088498*^9}},
Background->RGBColor[
1, 1, 0.85],ExpressionUUID->"4de74f0e-5ef9-4b08-a09d-176b5084ea5b"],
Cell[TextData[{
StyleBox["(b) Use M to produce a 3D plot and a contour plot of the \
potential due to the two wires.\n",
FontFamily->"Arial",
FontSize->12,
FontWeight->"Plain"],
StyleBox["\nYou will have to assume values for k, a, and |\[Lambda]|. (I \
set k = a = |\[Lambda]| = 1.) \n\nYou may find it convenient to define a \
constant (e.g., MM) for the plot range; for instance, {x, MM, MM} and {y, MM, \
MM}. This makes it easy to experiment with the plot range. The contour plot \
will be useful later, so be sure to give it a name. For instance, the \
command \n\ncontour = ContourPlot[V[x,y],{x, -MM, MM}, {y, -MM, MM}, \
ColorFunction\[Rule]\"Rainbow\"]\n\nThis will both draw the ContourPlot and \
give it the name \"contour.\"",
FontFamily->"Arial",
FontSize->12,
FontWeight->"Plain",
FontColor->GrayLevel[0]]
}], "Input",
PageWidth->WindowWidth,
CellChangeTimes->{{3.7167645570315304`*^9, 3.716764565313673*^9}, {
3.7167646129908433`*^9, 3.7167648352489405`*^9}, {3.716764872628147*^9,
3.7167649087101507`*^9}, {3.7167649593874764`*^9,
3.7167649936724052`*^9}, {3.716851055797142*^9, 3.7168511972342234`*^9}, {
3.7168554139100018`*^9, 3.716855500481635*^9}, {3.723407050309696*^9,
3.723407050743615*^9}, 3.723407384303918*^9, {3.723407794936756*^9,
3.72340780051616*^9}, {3.7235784995980253`*^9, 3.723578505088338*^9}, {
3.723578538478148*^9, 3.7235785414781313`*^9}, {3.7235786777713127`*^9,
3.723578700061413*^9}, 3.723579429961478*^9, {3.728157519459113*^9,
3.7281575227290907`*^9}, 3.72816823236722*^9, {3.728181351838001*^9,
3.7281813733561087`*^9}, {3.7281814132978745`*^9, 3.728181416423043*^9},
3.728181485883727*^9, {3.728181883348005*^9, 3.728181896474393*^9}, {
3.72850595172106*^9, 3.72850597135784*^9}, {3.728506015483625*^9,
3.728506020427167*^9}, {3.7474193900363617`*^9, 3.747419415055666*^9}},
Background->RGBColor[
0.88, 1, 0.88],ExpressionUUID->"595b96a9-de5c-4b2b-a573-4a5b1c31051e"],
Cell[BoxData[{
StyleBox[
RowBox[{
RowBox[{"Clear", "[", "\"\\"", "]"}], ";"}],
FontSize->10], "\[IndentingNewLine]",
RowBox[{
StyleBox[
RowBox[{
RowBox[{
RowBox[{"V", "[",
RowBox[{"x_", ",", "y_"}], "]"}], " ", ":=", " ",
RowBox[{"k", " ", "\[Lambda]", " ",
RowBox[{"Log", "[",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "+", "a"}], ")"}], "2"], " ", "+", " ",
SuperscriptBox["y", "2"]}],
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "-", "a"}], ")"}], "2"], " ", "+", " ",
SuperscriptBox["y", "2"]}]], "]"}]}]}], ";"}],
FontSize->10],
StyleBox[" ",
FontSize->10],
RowBox[{
StyleBox[
RowBox[{
StyleBox["(",
FontSize->10],
StyleBox["*",
FontSize->10]}]],
StyleBox[
StyleBox[
RowBox[{" ", " "}]],
FontSize->10],
StyleBox[
RowBox[{"To", " ", "get", " ", "you", " ", "started"}],
FontSize->10],
StyleBox[
StyleBox[
RowBox[{" ", " "}]],
FontSize->10],
StyleBox[
StyleBox[
RowBox[{"*", ")"}]],
FontSize->10]}],
StyleBox["\[IndentingNewLine]",
FontSize->10]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{
3.716763568159548*^9, {3.716853872744259*^9, 3.716853872791109*^9}, {
3.7168539078105307`*^9, 3.7168539102639017`*^9}, {3.716853946017627*^9,
3.7168539700515995`*^9}, 3.723407828702519*^9, {3.7234078615981817`*^9,
3.723407878968561*^9}, {3.72340791517869*^9, 3.723407971849114*^9},
3.723408033471504*^9, {3.723579484784245*^9, 3.723579498494214*^9}, {
3.7235795517159863`*^9, 3.7235796130959997`*^9}, {3.728157554306643*^9,
3.728157555129917*^9}, {3.7281576579892483`*^9, 3.728157682332243*^9}, {
3.730308326278687*^9, 3.730308354954001*^9}, {3.7474234030034037`*^9,
3.7474234370678263`*^9}},ExpressionUUID->"03653b39-2a6a-4403-bc33-\
3160d184014d"],
Cell[TextData[StyleBox["(c) Interpret your results in this text cell. ",
FontFamily->"Arial",
FontSize->12,
FontWeight->"Plain",
FontColor->GrayLevel[0],
Background->RGBColor[0.88, 1, 0.88]]], "Text",
CellChangeTimes->{{3.7285060366596613`*^9, 3.72850605510491*^9},
3.747419443256625*^9, {3.747423456551894*^9, 3.747423457346875*^9}},
Background->RGBColor[
0.88, 1, 0.88],ExpressionUUID->"7eeb20f5-365f-4f8c-b8d4-34480043718e"],
Cell[TextData[{
StyleBox["",
FontFamily->"Courier",
FontWeight->"Bold",
FontColor->RGBColor[0., 0., 0.]],
"\n\n"
}], "Input",
PageWidth->WindowWidth,
CellChangeTimes->{{3.7167657878670244`*^9, 3.716765820651967*^9}, {
3.716765857937235*^9, 3.7167660403785915`*^9}, {3.7168512198304024`*^9,
3.716851268335619*^9}, {3.7168513191848383`*^9, 3.7168513436793594`*^9}, {
3.716851380464568*^9, 3.7168515319806795`*^9}, {3.7168516572754126`*^9,
3.716851816167673*^9}, {3.716851960151909*^9, 3.716852076773825*^9},
3.7168521432497253`*^9, {3.7168521778782673`*^9, 3.7168525085036077`*^9}, {
3.716852541335309*^9, 3.7168527638123617`*^9}, {3.7168528062387533`*^9,
3.7168530284814057`*^9}, {3.716853062860109*^9, 3.7168532338472795`*^9}, {
3.716853361626792*^9, 3.7168533906455383`*^9}, {3.723407400627191*^9,
3.723407415850376*^9}, {3.7234080676448593`*^9, 3.723408232105061*^9}, {
3.723408264565653*^9, 3.7234082680307083`*^9}, {3.7235787554767303`*^9,
3.723578799695044*^9}, {3.723578855496459*^9, 3.7235788844300833`*^9}, {
3.723579636695492*^9, 3.723579788900558*^9}, {3.723579845689802*^9,
3.723579882921719*^9}, {3.723579919105651*^9, 3.723579927098056*^9}, {
3.723579962244418*^9, 3.723579998138279*^9}, {3.723580037051499*^9,
3.723580113474228*^9}, {3.728181724237142*^9, 3.7281817277220287`*^9}, {
3.7281832720783925`*^9, 3.7281832722660885`*^9}, {3.728183314176812*^9,
3.728183329522066*^9}, {3.728506307204627*^9, 3.728506333111484*^9}, {
3.7285063745892982`*^9, 3.7285063974522877`*^9}, {3.728506429321251*^9,
3.728506502311336*^9}, {3.728506817168667*^9, 3.7285068697019157`*^9}, {
3.72851370142834*^9, 3.7285137235449963`*^9}, {3.728513853259902*^9,
3.728513936541732*^9}, {3.7285139798925667`*^9, 3.728514100415765*^9}, {
3.728514154821424*^9, 3.728514194515462*^9}, {3.747423468793294*^9,
3.747423492718081*^9}},
Background->RGBColor[
1, 1, 0.85],ExpressionUUID->"d2447a62-d405-43ca-8e39-5f58c9a2577e"],
Cell[TextData[StyleBox["(d) Now use M to compute the electric field due to \
the pair of parallel \[ImplicitPlus]\[PlusMinus]line charges. Plot the \
resulting field in a 2D vector plot. We expect the field to be perpendicular \
to the equipotentials (countour lines) plotted above. Is it? To check this, \
name your Efield plot when your draw it. For instance, \n\nEfield = \
VectorPlot[EE, {x, -MM, MM}, {y, -MM,MM},VectorPoints\[Rule]{12,12}]\n\nThen \
you can superimpose the Efield plot and the contour plot using the Show[] \
command; for instance.\n\nShow[contour, Efield, PlotRange\[Rule] Automatic]\n\
\nThe relationship between the contour plot and the direction of the electric \
field is more clear if you draw electric field lines rather than the grid of \
vectors. (There are issues with field line plotting, but this geometry is \
pretty safe.) The field lines can be drawn with the StreamPlot command. For \
instance, \n\nStreamlineplot = StreamPlot[EE, {x, -MM, MM}, {y, -MM,MM}]",
FontFamily->"Arial",
FontSize->12,
FontWeight->"Regular",
FontColor->RGBColor[0., 0., 0.]]], "Input",
PageWidth->WindowWidth,
CellChangeTimes->{{3.7168534095225554`*^9, 3.7168535174873066`*^9}, {
3.7168535803688793`*^9, 3.716853612075601*^9}, {3.7168536591431293`*^9,
3.7168536643155956`*^9}, {3.716855227327442*^9, 3.7168553948454437`*^9}, {
3.7168555300161*^9, 3.716855763666193*^9}, {3.716856534921012*^9,
3.7168565498444777`*^9}, {3.723407325158647*^9, 3.723407351168598*^9}, {
3.723580125579035*^9, 3.723580127154111*^9}, {3.7281818256385884`*^9,
3.7281818268731966`*^9}, {3.7281819246336546`*^9, 3.728181924696136*^9}, {
3.728506172797387*^9, 3.728506173724588*^9}, 3.7474194661916857`*^9},
Background->RGBColor[
0.88, 1, 0.88],ExpressionUUID->"cbc27ac5-f361-4c63-9997-a72ec900cd9f"],
Cell[BoxData[{
RowBox[{
StyleBox[
RowBox[{
RowBox[{"Clear", "[",
RowBox[{"a", ",", " ", "k", " ", ",", " ", "\[Lambda]"}], " ", "]"}],
";", " ",
RowBox[{
StyleBox[
RowBox[{"(", "*"}]], " ",
RowBox[{
"some", " ", "code", " ", "to", " ", "get", " ", "you", " ", "started"}],
" ",
StyleBox[
RowBox[{"*", ")"}]]}], "\[IndentingNewLine]",
RowBox[{"EE", "=", " ",
RowBox[{"-",
RowBox[{"{",
RowBox[{
RowBox[{"D", "[",
RowBox[{
RowBox[{"V", "[",
RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], ",",
RowBox[{"D", "[",
RowBox[{
RowBox[{"V", "[",
RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], "}"}]}]}]}],
FontSize->10],
StyleBox[" ",
FontSize->10],
RowBox[{
StyleBox[
RowBox[{
StyleBox["(",
FontSize->10],
StyleBox["*",
FontSize->10]}]],
StyleBox[
StyleBox[
RowBox[{" ", " "}]],
FontSize->10],
StyleBox[
RowBox[{
RowBox[{
RowBox[{"You", " ", "can", " ", "also", " ", "use", " ", "EE"}], " ",
"=", " ",
RowBox[{"-", " ",
RowBox[{"Grad", "[",
RowBox[{
RowBox[{"V", "[",
RowBox[{"x", ",", "y"}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}]}]}], ";", " ",
RowBox[{
"this", " ", "is", " ", "the", " ", "2", "D", " ", "gradient", " ", "of",
" ", "V", " ", "in", " ", "Cartesian", " ", "Coordinates"}]}],
FontSize->10],
StyleBox[" ",
FontSize->10],
StyleBox[
StyleBox[
RowBox[{"*", ")"}]],
FontSize->10]}]}], "\[IndentingNewLine]",
StyleBox[
RowBox[{"Simplify", "[", "EE", "]"}],
FontSize->10], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.7168537085859795`*^9, 3.7168537086328545`*^9}, {
3.716853857523874*^9, 3.7168538575551205`*^9}, {3.728157709020297*^9,
3.728157717282587*^9}, 3.728157751966311*^9, {3.72850619717262*^9,
3.728506222961446*^9}, 3.728506583268415*^9, {3.7474229584563417`*^9,
3.747423005675748*^9}, 3.74742306146362*^9, 3.747423120459218*^9, {
3.747423157343842*^9, 3.747423189083585*^9}, {3.7474232294509983`*^9,
3.747423245769463*^9}, {3.747423505573739*^9,
3.747423520153624*^9}},ExpressionUUID->"e4b1bffc-c866-41a3-82c4-\
771507f2cb8c"],
Cell[TextData[StyleBox["(e) Interpret your results",
FontFamily->"Arial",
FontSize->12,
FontWeight->"Plain",
FontColor->GrayLevel[0],
Background->RGBColor[0.88, 1, 0.88]]], "Text",
CellChangeTimes->{{3.7285060366596613`*^9, 3.72850605510491*^9},
3.747419500272491*^9, {3.747423536429083*^9, 3.7474235385133667`*^9}},
Background->RGBColor[
0.88, 1, 0.88],ExpressionUUID->"e20b7d7e-a128-46d3-be44-f55c615525f4"],
Cell[TextData[{
StyleBox["",
FontFamily->"Consolas",
FontSize->10,
FontWeight->"Bold"],
StyleBox["\n\n",
FontSize->12],
StyleBox["\n\n",
FontFamily->"Times New Roman",
FontSize->12,
FontWeight->"Bold",
FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]
}], "Input",
PageWidth->WindowWidth,
CellChangeTimes->{{3.7168558176565566`*^9, 3.716855893524083*^9}, {
3.716855937731968*^9, 3.7168559720950193`*^9}, {3.716856044040269*^9,
3.7168564330038357`*^9}, {3.7168568367190924`*^9,
3.7168569760623775`*^9}, {3.723407370429268*^9, 3.723407375979129*^9}, {
3.728181864064563*^9, 3.7281818667836003`*^9}, {3.728181971529148*^9,
3.7281819739201612`*^9}, 3.728506653912616*^9, {3.72850673032369*^9,
3.728506764016902*^9}, {3.728506918052299*^9, 3.728507061428124*^9}, {
3.728507197044545*^9, 3.728507197658681*^9}, {3.728507687100382*^9,
3.72850772745051*^9}, 3.7285078005212727`*^9, {3.729468987095726*^9,
3.729469008067895*^9}, {3.747423543643424*^9, 3.747423545158349*^9}},
Background->RGBColor[
1, 1, 0.85],ExpressionUUID->"78ea565f-fd76-437a-848f-f6f533ed4850"]
},
WindowSize->{1490, 825},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1.5 Inherited,
FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1566, 23, 44, "Text",ExpressionUUID->"3fde6ba4-e2e9-4de0-af14-37214b09d30e"],
Cell[2127, 45, 2423, 35, 170, "Text",ExpressionUUID->"d6117274-4263-47f3-ba90-d3427021bfc3"],
Cell[4553, 82, 23137, 387, 381, "Text",ExpressionUUID->"942894d5-12ac-4e0f-a932-e280f4e9c491"],
Cell[27693, 471, 822, 15, 133, "Input",ExpressionUUID->"31cb6da3-5ceb-4383-bbef-31b7ac756b71"],
Cell[28518, 488, 634, 17, 221, "Text",ExpressionUUID->"1c473589-77b7-4297-b667-36c49914f755"],
Cell[29155, 507, 188, 3, 53, "Text",ExpressionUUID->"22e1d9db-7006-4fd4-a79b-e27cee04eb13"],
Cell[29346, 512, 3965, 85, 188, "Text",ExpressionUUID->"4de74f0e-5ef9-4b08-a09d-176b5084ea5b"],
Cell[33314, 599, 1990, 35, 268, "Input",ExpressionUUID->"595b96a9-de5c-4b2b-a573-4a5b1c31051e"],
Cell[35307, 636, 1989, 61, 168, "Input",ExpressionUUID->"03653b39-2a6a-4403-bc33-3160d184014d"],
Cell[37299, 699, 442, 9, 68, "Text",ExpressionUUID->"7eeb20f5-365f-4f8c-b8d4-34480043718e"],
Cell[37744, 710, 2039, 33, 119, "Input",ExpressionUUID->"d2447a62-d405-43ca-8e39-5f58c9a2577e"],
Cell[39786, 745, 1828, 27, 335, "Input",ExpressionUUID->"cbc27ac5-f361-4c63-9997-a72ec900cd9f"],
Cell[41617, 774, 2398, 74, 140, "Input",ExpressionUUID->"e4b1bffc-c866-41a3-82c4-771507f2cb8c"],
Cell[44018, 850, 423, 9, 68, "Text",ExpressionUUID->"e20b7d7e-a128-46d3-be44-f55c615525f4"],
Cell[44444, 861, 1170, 25, 154, "Input",ExpressionUUID->"78ea565f-fd76-437a-848f-f6f533ed4850"]
}
]
*)