(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 35177, 797] NotebookOptionsPosition[ 33916, 752] NotebookOutlinePosition[ 34474, 774] CellTagsIndexPosition[ 34431, 771] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ StyleBox["\:56f38", FontSize->18], StyleBox[".3", FontSize->18], " "}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"RevolutionPlot3D", "[", RowBox[{ RowBox[{"0.5`", "\[InvisibleSpace]", "+", RowBox[{"0.5`", " ", SuperscriptBox["r", "2"], " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.4092259533872004`*^9, 3.4092259659821997`*^9}}, CellLabel->"In[1]:="], Cell[BoxData[ RowBox[{ RowBox[{"z1", "=", RowBox[{"SphericalPlot3D", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{"phi", ",", "0", ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4092259792992*^9, 3.4092259952312*^9}}, CellLabel->"In[2]:="], Cell["\:7403\:9762\:306b\:4e0e\:3048\:3089\:308c\:308b\:6e29\:5ea6", "Input"], Cell[BoxData[ RowBox[{ RowBox[{"z2", "=", RowBox[{"SphericalPlot3D", "[", RowBox[{ SuperscriptBox[ RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{"phi", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4092260017732*^9, 3.4092260054832*^9}}, CellLabel->"In[3]:="], Cell[BoxData[""], "Input", CellFrame->{{0, 0}, {0.5, 0}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"kai", "=", RowBox[{ RowBox[{ FractionBox["2", "3"], RowBox[{"LegendreP", "[", RowBox[{"0", ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}]}], "-", RowBox[{ FractionBox["2", "3"], RowBox[{"LegendreP", "[", RowBox[{"2", ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}]}]}]}]], "Input", CellLabel->"In[4]:="], Cell[BoxData[ RowBox[{ FractionBox["2", "3"], "+", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.4090545881912737`*^9, 3.4092260099312*^9, 3.41422345522733*^9}, CellLabel->"Out[4]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"r", "=."}], ";", RowBox[{"siki", "=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "2"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", "n"}], "+", "1"}], "2"], RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}], "^", "3"}], " ", RowBox[{"LegendreP", "[", RowBox[{"n", ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}], ")"}], SuperscriptBox["r", "n"], " ", RowBox[{"LegendreP", "[", RowBox[{"n", ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}]}]}]}]}]], "Input", CellLabel->"In[5]:="], Cell[BoxData[ RowBox[{ FractionBox["2", "3"], "-", RowBox[{ FractionBox["1", "3"], " ", SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.4090546355512733`*^9, 3.4092260625512*^9, 3.410167663049*^9, 3.4101681166036*^9, 3.41422345930333*^9}, CellLabel->"Out[5]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"Table", "[", RowBox[{"siki", ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]", ",", FractionBox["\[Pi]", "6"]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1.12"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1`"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"1.1", ",", RowBox[{"-", "0.05"}]}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"0.1", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<\[Theta]=0, \[Theta]=\[Pi]\>\"", ",", RowBox[{"{", RowBox[{"0.8`", ",", "0.12`"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\[Theta]=\\!\\(\\*FractionBox[\\(\[Pi]\\), \\(6\\)]\\), \[Theta]=\ \\!\\(\\*FractionBox[\\(5 \[Pi]\\), \\(6\\)]\\)\>\"", ",", RowBox[{"{", RowBox[{"0.85`", ",", "0.4`"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\[Theta]=\\!\\(\\*FractionBox[\\(\[Pi]\\), \ \\(3\\)]\\),\[Theta]=\\!\\(\\*FractionBox[\\(2 \[Pi]\\), \\(3\\)]\\)\>\"", ",", RowBox[{"{", RowBox[{"0.84`", ",", "0.63`"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\[Theta]=\\!\\(\\*FractionBox[\\(\[Pi]\\), \\(2\\)]\\)\>\"", ",", RowBox[{"{", RowBox[{"0.8`", ",", "0.9"}], "}"}]}], "]"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.409054800053273*^9, 3.4090548039582734`*^9}, { 3.4092260545861998`*^9, 3.4092260571472*^9}, {3.410167594033*^9, 3.4101676585369997`*^9}, {3.410167727932*^9, 3.410167731718*^9}, { 3.410167800244*^9, 3.4101678358789997`*^9}, {3.4101680860576*^9, 3.4101682125836*^9}}, CellLabel->"In[6]:="], Cell[BoxData[ GraphicsBox[{{}, {}, {GrayLevel[0], LineBox[CompressedData[" 1:eJwd1Hk81Nsfx3EpNaWIWz/ZkrWFRISmeBe5hBZruTFxiagst03a8KMkSuWO YshaloYMElJTtl+LNZFtMOYroeh3CSXdM53H4zzO4/l4nL/O63E+yn/62x0S FRERSSZbeFodGmzifnQ0sXMULgrzzOQCemT1IROVrSe03t3brELZHbh/PKve gVigoBZ6WmM35krbaQhtXdfGSZJ1gOahe3R7YrVoxcyfSs5YeSxT3I54xsoj 3l2DAd7aPXf2Eg+Ft1S5M93hk5jev5t4n+dkxU1ZT3Cfpw3ZEFeZyZVUsrzQ z7LJsyLWUTV+OK7kg2atVG1LYpaoW7Z6+hHEBKYcMSem8cPSnDT8sOyI1SFT 4rLe5rpKhwB4yd6VB3HAXk8rF2YgIs4lX9tC3L3hslmM7Amouyfl6BHH3V3B VT9wEvf5LPsNxFaSOVufsk5hfIVF6TriR5/fbBpVOoN/0hPLVhEfZTA4l92D kTll7iRPrFI/qr0q/SxURBPzlhNfY0uvsdW4gBA9878XEpsrZmR89L4ItwMJ qnOJL9QkLH3uEIIlRgl+Mw4U9A20YpyZoXglmUD/TJyyfM+lKNlwNBkl5NQT n62Lr3IqC4fUAvOVNcROEb2iqgcioBCVsLuCePFE4MVy1iUw88ypHOKglrig EaUrkA1kDYUR20d3P3rMvYISimUWRKy9Q2Mi3D0KypKWzseIBYUlgYrpV+Ec klzmRGx7q8N3t8Y17OuydtQg1rJWzZarvQbHydRbssS0uUc/DHhfx8ratGuL iQ+WzhY8c4jFbxEZZV/sKSxfG6u9n3kD0cFZQ4+JQ2mFq6/IxuGxNSeHTrzO 4kYkJyAOniw7szXEzRH+Hztr45DV2RC9nFhtrlau9qm/8VXdfeOoHYWaHxna Lc1M5H7k1SYTL/6HuUkp+g5Or7dQGLWlUKx7kmnZfwcJ3o9etBEzAuwnA+kJ cIgVleMS53+SLK0aTCBddDuvE9sNRm71NWdBQWb4vibx7e5gs+LZZCTce+Xr sJfCdgXnDJ7jXei9oikZEQ/9YShGY9+FR5dquDzxypEzHuz1KYh6M+bWt4eC v4+BukhXCr50Up4+xNKe+VmZRmlQLtnK9N1NYb9zav7YlwwsOZiUrGtDYbTT YVGaXCYiLaqnlhBfYtAO2Ztlwtvo85IhawqFHv5yj+IyYatn5pNKLOFnHHHW 8B6aY6b7FxNXh7X/Mf/8fVx5F/+xdSeFjQ+k5ivQclCXn7DJ0ILCS+1qtzqd HLzI6B9dROxWEFR+wTkHcmnrD/F+pxDzqCegLycHX4urQsKJB7nsznu7cnHA 9OfZOnMKye92FujeeoDOT5lhdjsoiP8MdbFYmY+C66WNa7aT9/LZx9D6PR9/ G/tPjG8jvVq03KT88uGk0NLGJTbJbvPorMiH39Hcd/uIS7OZxSXaDzHhFFsc Bgqf7EeeWNc/hI+j3vw3xhQcs+JfH1/CQfdk95AWnfxv1zAbL2UOnJ+fqR7b TIEvfaxu/yYOCsqrXIuI/c+bNhi7cjBleriWTnzF7lPzAjYHvETqwg4jChUz ph2JNoWQOF16wdqAgrrt58HKq0WYaa5+vnojBbmLFnTv1CJ0/rAL69alsJSd cnVRSRFab7SN3yT+RrPXtuUXQXWiZnRGh0Ijt+Q4z6gYMtkmxnUbKATrhM5O UcXwrrlhcHA9hXrJZcu0t5Ugq7UmzXINhdP1m3F7vBScXUfddRVJP+1i6iWt DF4qooJ2BQoZMTrR3xXKQCtIUQkjbrJZ3c4wL8Pymcm3TfIUNF8vO67OLIP9 TskFfnIUempH73EMy/EHtzfvjgwFi+eZEnXBT5C4SlLsqRQFmSIp3pw5z0Bl 33lNFyPzim/2pmHrC9SISteeGhDghW+SvPNIFazWyEx4VwowoWEsyT5WC3nn 4HRGsgCi07lL5dVfoex1/KKzgQIY/HR7ZJ/3Bu0XvOxVzAR4E65fX7OuAbOH D9+4IiWAUuzwdPbnRtKvwHFpWz+GJ3t473Sa4ZzLbljF6kfGUPkriWtvoXcy y+bMvn5IKN4fFQha4OZqeQyS/Yj2KfZKUWvFY2Ol7XG1fHzdlis4fLENK84L ZtRO8nFiY1XRfyrfo9pX1O+lKh89eVVXm5Q7wP4RY9VU04fvvi2Ja4M7sS3K 9EOuVx80ty+Y9Srvwp5gafcUWh8s0pS9C2R4iOxOmRpK6sVpxYMqfS494M4/ vvDdpl5ojTiKt+3qhW33eXV6fA9+kxyjVX3rhaiGv5rPfR7mPUvMV2X14ZxH Zeq7p904ol/evtCaj9nZc7/rlnYhd+efKU+/8iFi5jiWnteJiWG5pQPMfjTn +00y2B0otreYG7dDgMg/Y8XGottx0TLibhHp8HVe39DbU++h3G31Pj2CAqdb 82W/axvohuFxshsH0NHh0lGh2gqXlQ3Tc94OYOO3se4PEy2YeBXDDwj9AN7Z 8P+uz3yL2/MYJ+zUBuGOUy/r3ZvxG684TbRqEMyiy9c9FZogdj7UYXPgR9x2 Czgn6dkAkWxGPl96CNyO/0+Lk65/JeTHSL8YwtQGMdMXOS9RoRlJk/IbxvvJ LcoyaTWQsvpLK0xiBLT3s5mbn1Sia33j2zNPRqB/SbG3L5yLh8lQEzA+IVLp i3GnoAyu+QZSirOfYKRW4HW5ogghEamhXTmfoSPuPGdFay7Yg4qJEjaj6F1o GGqSnQRbKQmj2m+jEIlkz6G3WSNKTFS+S2jWw4kBb2tUTU/8GBM6aDbl1pQV DPjdlXLfhfeDFUdkrSBXyN7jJzRtnH3HxRJ8h13ey2eIz41ofejbgRO3o5ke P4iNBszj328BOzrkTJDQe5NFeqbpGAg54RIj9NTwWg15Ovb7uKiU/LLF/ziu RjCma+UtmiVOEdWv5utjftfr6gKhuWLXk9o1gcZnWTVCN65uk1NYh6Cqwqud Qi89OcNkrMHQg0RbsZ/EY7G8q/1qqD9/pHu/0KtYcxo75LHgr4PcY7980/Px wRXY5mWfHiZ0Ci80WbAMnN1bfB4IvW28tbZLHMOmG2yeCx1y0//SwDyoGapu aP3lsumQ3u8mDE0Z6WGhRfZ+b/swbBKvJD7x85dFnuYaupr8C7ZF2fo= "]]}, {GrayLevel[0], LineBox[CompressedData[" 1:eJwV1Hk41fkXB3BLy01laxlEdpPtkkQZetuyR7Ymk5RI0WRLE5qyDEpomcxN kl3Zbjf7z5JUN/2mLJeUZLuu+5X9Ngulhfl0nuc853n9c/445zlH+UiI21ER ISGhbJLfqsPR8a6WCc9d7p7fgsIyK7nQYVlDOM/bm3/ztpyMrCpZa9jZaQp/ M19eLe6MhjMsHf+54UHs2N5beVvWAz8s3V32zWqpCkVLil7Y5m9r6078xcHv hq+GD7Siuw65EU8m9LB9Gb5QsbBxdiX+0f/Dg99l/SFTXyS9l5htJVf3JCsA 4jxBuTOxvqrZ/X8VAyHapKawhzhL5HCJesEJfLSx9nMkpvHi8/dpBGM63jnG nriB293+xCMU3BCrMFvi0L3+Dt6MMLxcq7pzN/Gg3gWrNNkI1HnnO5gTp+fI tKgfOI3itZbpZsQOEqWmzVm/4GZIW5UJce1s23aBYhQibfIiDIl/9vGpvOAb jWONUxu2Eqt0COhKBWfhOaKUpkt8mSm9xVXjPPTNHb+qE+9WKCycOBYD+Sjz eWXi862Zko88YkHzU3qqQGxopJPmxYjDkH0ufz1x7gaXpEuyCfjNL1dLmPhs +w32voYEBKlNdX/2oLAvkSuieiARrgwl13niNXNhMY1ZSdic5tg5SRzZkx45 rZgMVmtedxexe+pg7f9akvG7hKXWC2K6tcZcgu8lnF7V/iObmF9VF6ZQkIId kgWGtcSu198GOWtcRl2gy9wNYh1H1RK5Z5fxh8nuL1eIaaI/vxs7dgXhTep9 F4gP1S9WPPS4Cp2Xd9afId6geZW+n3ENGU4lv7sTx9Gqvk+WTYd7CKt0GbGW 7bWLlaHpeJi3TmvBnUJ3YshE/7N02E8IR84Qq4nqlNF/+QMNdb/GvCJu/VpI 7+lmYLXblGkB8Zp/GNsVU28i6NfysO3ENVtPM+xGb6JFqLJPg9gn1P1DmEkm DDMtJGWIWTMS9ezxTEStWRpfcKPgNn7RNGh3FsJm/7ZrJM4YjLaqWcyGUnHz Y0NiC3mvwiHPHBw+f3SdKvHkT8bLacwcNAcyDKSIN09H+TF1c/E6hjEw7Uoh JNBIXWggF2dKJIbziKX9WcVFO/Jx+m/qtgjxfq881vu/CnH8gIpojgsFQb+H WL5cEWqczjZeJE7yoR11tyqC+Wi1XThxlV+IXG16EdYJPR+xJhYPNks8a3wH BR/Pio87U3ga3/fTinN3cZpadNUgNiiXWiFPKwWXGRsX70ThT/rTw+36pViw mX0VQHy4IrLxvFcp9iaaLjkQp9UOh46UlqLhr2iONPF4C7P/zp4yRCXHnMx1 pJD9yr5i6/VylFTfvVblQGH1Upy37WYWOhdOxdfbkXkF/uijY8PCuaSjsjeJ 1Xp0DksFs1B7jZ8USbyrpNev/wELbNUUyoi4voRRU0e/Dy+j6IoKWwoz7tNN jh334buB+1uODQXP4hsvTq2txGTDc2lva3LfB+OdApQr0Svz81kjYp70yfb9 2yvhPJfZIEkccs6y0+xgJfo185rYVhSS3Wa6VzIrcSLOpVOL+MEXy7e3nKoQ OLlNT2BBQd11dvxJSjWGCjb17QcFuRhbk2N51SgeOhWmRSzJzE0Rq6uGeuOK vs+7KHyiudNdedUw8hrYkE3Maak7NbSjBvc0bW24ZhSi9eMWP1I1EJLfFH/A lEKHxPr1dPM6aNo0HdXdSeFMx05k/FuPK/dHB3YZkP3Ra6g/aQ2I9Yyj04gL 0/RTP8s3oCi40LNrK4Uup+/7fHY3IO1rtJofsfaL9afUGQ3oSQtkJ+hTGH4m uFNp3IgdkU5rW+gUbB8VibdHN8E3QvPJRm0K31VLDQkLP4SemPlDa1Xyr3hW bZ2mj9FkccJUTJLC46Dbm7ym2aBH0ReUPvExp2EmwTz5DBVndDQ+8/gQWSiT 3KT+HB7D2WPTrXwYLR2udb/XBjsJpYi5Ej7aEgw7WrU6kWMx8mnuEh+KV6cW SmY5OPLq8vagAD6mPgwPvdLvhkxKW1y6BR+Fk43PxS+/hLn9RGfZRj7EFe4K +PweeJvsKbwwMYrUwJqAXLXXuJ5UVdzUNIp58zL+8Zhe6HWIbzZOHkWEAbt6 45M3aIx/xD+4bxTD99gpXcpvkdqc0WEpP4rPQT23NKP7cZyRHKrN5UHbYuVi QOMAwlLLTP2LeLDNVz5W8d0QTl/y7688wsMZhUMqI97D2MF/p16kzIPOtOfq 3j1caHrWaVsOj2CdxHsa+xMX3MYj/XvTR7Ds4S2WatYINkqkPc53HMEJw8a+ VY48sCRWBgwvcFFmfyS3eZ6H94VyP1y/w8XclJzkGGMUfzPcmLr7uKhxtxVN t+Yj3SxadOPHYcTYJeZUj/EhW9AWbu0wDOVBhzcFiRSuBDUevJc5BBPjhHRZ gzH8nxZdvO/1ILw3dy4IvxzDoazayfuyg5h7nsYLjXuHoHaDcFPbAWQs84lw UxtH1rsJM+Vz/Vg3VJMvwh7HEKe6r7niLZafi/PYGTYBvc2jr607+yBU4sPi SU/iAH9Ts9/8G4RnstKkH0/ia3ZetffyN3igfZEmFTyFUw+OmNyV7oWUQ7hO vPg04guGRbu1XmNAl/Myqmka73euYiRpvsL9bKjxfWYwXc60eLytBwdZRlIK izMoZq7ectvsJWIT8+IGSmcx9K8ct16nG8xxhVviTgL4aqwJy9rSBVcp8R3P PglgkqRkWUXj4NJykU0DxPrPdCKvErMX5r6+J050Ubl3ktiIN/hE7rMADkZ/ ym4hlqtiugQTW3qveJ+1kgOex55jG74IQK3alZG0goOIjFSG31cBPkzl93ot 44CZGhsVSdwk80bMmHgsNsI7jXgwdd5sPfH+QG+VOmIzR0FBhygHZiY698QW BTiuxAm2Il4x8OJpBXG4jouQrggH4DwsbiWW75QxECOOZFel9BOr17/weyfM wWT5LdflSwK4+s205hF3nDsxuJ9YRlIpdSPxyvBDLSeJa2a2PfhHiAPzAPeC eOIK6a2zHOJK5x8Cy4nZBu9cUoinLPWcHhEP6ObGHidWM1bVe/2tf6hlxW5i H+3vpKeIVT+1j6gQ31BcPbdE7PnCUlqI+D9ieM+9 "]]}, {GrayLevel[0], LineBox[CompressedData[" 1:eJwd1Hk0lO0bB3DJ1moplbFlrZcJSWh7L4m8SYslW4ytSIstrd5s0ZtmlCIp ayIxM2hsRYWMSJlEUdknz4waNVomKfG75nef85z7fP55zv39Xve5tfxDnfZL SkhI5OAn3u33j75s+LDn7z3/XwRIbSGFDaqYwUPOBQ+x1+RmZFWo2AD1i0Gg 2CNqunEn9HdC/cO1UWJvb+9hZau4gOcaeobYujT1whlND/Byoj4Se8o+4Jqf PgXYpO4xsT8mvGL7pfvBFRpVxxXttm/i4RWVfdBaRPcXm72FVNOUFQgBh81L xDbR2VT+XTMY9r8z/CV2lqRvsd6tQ8D5QnVyQ8tx4/Nd9UMgm+VaIXbtUGd7 k0sYdKnR1NzRYbv32Xulh0OoCfmi2P3G/21JVomEXmcGBiQgLXdZg97eY0AP oCl7ou3lSzY+yjoOw2o9d8Su/vx8rVDzFMRRGaN70YcpFNZ/fqdBYGVx1Qut zREaLb8VBXW5ZHtv9EWm0kpH/WhI8XBrp6Bt1QsKPgTFQFolLdMHHf3khkKj SyxM3yNH+KLNzMnJHulxIPOIYemPzlPede6CSgIQ9xhYOAFR7dfYrrUJoOFj sTEI7Zo4JKmzNxEelJJdD6Dni8Jj6rLOwSp7t1sH0SdfpZ0c00yC/nBGfija mdZffa8hCbYF0CbC0EY2+qIEvwugOt3tEiGeZ0VNuPotKnw3Zqw8hnZMfXdw p/5FOJbgigMmgLxdp5jUchGUG6nt/4r7nn2Yzwu6BGpFhiHRaJ/703frXVLA O5TeGodW/ivFyD39MpSOl3DPo+PkKlYkqaRBUnVxSQbawO7yeVZYGhxlXJ24 ge5MDP3Q25IGVKnAndni+zObTDc6fhU291ao5KOf/CkwetWZDm3aUisY4rzf 0tdq0q6DI+mE2mN01epj6f+8vw7z1xTLNqMpYc4T4etvgIhZP9WCLvskf589 egN2tl2X4qCdRs9vPGibBWrZktR36Iz+01uqpnOATL8dIUJvVvMoGNiTC/d5 GlM/xffV00JajpkLRxOiLk2hNcZOBTBX5UEIb7hrtisBocHmehJ9eRBnE9Cl hFbaV3an0DIfVIMtmaZod4+bZeNfCkDDhfz8FFrY6zI3n1QI8m58q2j0OYrc fucthfDN0vpRPLoiIJRUnVYIV6/3dFLRC0M2JUZZ3AZbTmxADro5/q2nzJki 2CXdrt2MNmUoyqjJlYBMiYOKihsBT42afdtNSiCIOjtfA+1792RdtEcJPNju uUYXnVw9GDZcUgKbg/mhxujRBmbv7R10qFwau3srOuf1trurUxlgY00vO4ae NxPnZadRBnM4o8Q7dEawG4W8tQx2LHPyG0brviL7KoaUwbF/pQk++u/inoDe h2UQccVeWoS+X5xeVWNUDlqiHcXy7gR8ch57sJ1TDs5X18VsRe+5c+3Z0QUs kNpc4F+LzvKOdwjUYsHrlt38RjRX6Ui7+1oWXDhgF/kUHXrG+sUmbxbcnFAq eoNOcvrUKctkQYKDTtgE+uGU9btMhwrQeLkyxdyDAD3Hz6NN1ErIs22RrUOT YuzWB92sBJu8ql1stAIzjzq3phKaF+y/2Y7+Jeds5MithL1asv5D6I6GmqMD llXQb+DuLuNJwGmTuOmfRBWsaVml4oLmyC9ebGRVA4Z6RYIf6BOcdZDx/T5s O97Z5eGF8zOqIp7K1UJFXUzTPnRBsgntt1otDH6g14WiXzqseEuxrYUzEnHN iWjDZ4uP6qXXwuslGsBCD7YIb7Ms6uA7X6dtvjcBdo2FC9tPP4AxVQq0opdW Kg7MmlUPTW202+4++F5xtzx/sfExFNWrr1gdQMDjg9mqHmNs+EHynpUaRIBI f5M880gL9FWmGJodJkBykq6gqtcG52WYOR3hBJjP+FY7lz4HXZPUqswTBDxP MOM8MXgBQ1872zlnCNBMEUwWf+4Ap9fbROqJBAgmBgdem3RCmv1cXhQN832s a1t4sQs8vhzsVriK+dWLhCMjr8Dlu6vSshwCaMFVgXm63bBtWd+JBUUE/LCi jxyI6QHvsADfvXcJiDRlVy5pegNFLOg8V4f5S9nUl1rvwN6qtFuvhYDfB19l /nW6F+6VLj1r0IV9bZadDqzrg+ry/m+CAewnXyvo7tIB2DUiyLMew3mo+2gP ew3CytyXFNtJfM/G9szr2TEEhtp3vGkyPFgkPy7H/jUEeQvuH0lS5oFUfWaZ TtYwtD59X6iky4NDZnVv52zngoJJhuCwGQ/o2/zzHv3gQgf9V4OyLQ9EApIC L/09SConKRjs4UGVs93sNJsR6Jm8PWMSxIOYfxJzK3kjUC50bLxykgda/fZv bmFvutZHmrQu8GC9RUKaiikPnEw9tdnZPPDSeDE5qwv38eXxN8vx/23J3LA4 Pljfa1nBbOZBhhQl0kl3FOZmHVj0/i2ef6AqX5I9CtUJsjXrPvNA+kycy7rw D/D7X7WEQSk+SBRTyrhKH8Eg2CTvEokPETfKkpUef4TYbuGnYlM+PDQ8L6cY IoDNy39sFdrzQdE+ghy/cAxgToephj8f+lZ1dJ16MAacRTPjb6L4UJ4DuiOU TxC/QS71cBofvMvMFdWnP0Hohv3cOUw+xCbejOsr+Qwfdvx54dzKB+aoeuZC ByH8aI1udOXywVFxoWXLLyGkfjXeqjXDhwvSkqp96Cin1gZdNHtS9GccPf+n /4aVaHNufxPptxAMF+eaGKNJFcxdIWifFFPVTWiuy44g5SkhZGU8GXdHR2bQ 0gP+CCFoND87Bc2kxZ46iT735+yyNDQvNtIrGb3bPSj1Gto92Eu7Bj00YJaU g960nlw6d1oIImNBJAMt0/es+S76+zDboRUNHfV3nqDLHdtanqFPsiuovegl sp3WL9AfGZmO0jNCGLAetexGc84c6ndH75s21htBy0b4NBxBh2Ta5fHRVoHO t+LRWtF+qgI0a+eGYAb63OIsxa9ogbWxQyPavPUBTYTWtdAx7kZfbhyUnURT DJcqCdDpEtJnp9DXNOeJZtA2ieTpGfT/AIuT+uM= "]]}, {GrayLevel[0], LineBox[CompressedData[" 1:eJwV1Hk0lPsfwHFZMrfFFnVNmGRQEVKhRR+XSpaS7Ntki3DtQtwwXVP26pcf rkZkKdmGQW5K1nITKqSyFp4xGKZbqbTofuY553ve5/X94/uc8/2c51H2DD5x SlhISOg6LkHNT3Gft8zYHbC3EzwEiJqQQ8bld8HHvRo+Au/Mz2HWyh8EzUfl OQJPKVDpUWrHYPnTIE9gi56X7Dx5W/DvqfC0R1PTFEt+UpwgxGz7V4G/m3tl e6jRQDrAsdYBPZs40OGR5QEWuloZjmgH789N/5P3Bkp+VYoTusOE3NDO9IGM mtelzmgdFcPqjxQ/yPJjcV3QTGH326pFAbCnU9vcDU2aOF9orxYEkV3OPTR0 45u+nnbbELAM1wlzR4cc9zZ3zQqFptZqA0/0qPZFk3T5CAi0qtnmg87M/7VF 1eUMVGTssD+NNpcs2/+AGQmMcNcif/Sdhe7dfMpZWKnFLgxG/06jsS96xECl yKhtGHpzL19rU1Es8OPYW86gMypltlirxYGRj9vuWPQhxeLiGd94sOrTDYpD xz3KlWq1TYClSfY/dPQuPc10pyw6bPzCnkhCF8hZXUiRT4TsSXZZDjq2J7vD vjERov4YfcdE2zPeCKu4MOB9I9vxBnrNYmj8PeYFqNvill6Gjh7IjOZRkiG8 syblAdombfTO3y3JQE3fMdaO1jqotpjokQLBX1xsHgvmWdsQqliUCv3N1YUD aOurQ/7H1DJgQNr5BQ+taaFym9yZAXai2nofBPct8vs0x/cShDKr/l5Cn7y7 XNNsexkimyo3i9sTILf1spZj1hW421aeooKmk2rVk+UzgTp0s8wTvc30ShI7 JBN6auzHAtB9jOCZ4c5M0JDJ2XMGTRXRLNeK/D+IBj71SUI/+lGsNdCXBdtS pZjV6DUfsnZT0v6Cg34joSQHAup3nMk6MvkX7OwuVpJF00JsPofuzYXBhuX3 FDRrXvJuBzcXDLb6yhigT3CT9vsfYkJYxCpNf3TOaIxJ/fJ1YFfkdr1A/6bg VDxmlw+c3Nh3k+hZZ30xUmU+9EovGL5HK/HOelVuL4DGvy5aSToSEOynpyo0 UgDiMulHLdAy3qzSEoNCCC5+W9eFdnS6wXr3bzGcPV6jM+1EAH/YdlUhuQT2 ueaJLKEv0EinbExKoHuStLTKmYBar2DyncwScPChWWijJYIMGbH6N2HDHpGM s+iH5187rzx3C/bJ7UqVdSFAt0J6pQKpDORLdU95uxLwWOuhe49OGeRvl0iK QbvXRN+LcyqD91p+PZfR6XfGQ96WlYFoSV5zE5rbUjl882g59NGEjOXdCLj+ wqxmx9UKkPml8sEgevVPuqupEgvUDYqyA07iffk50DQPs2C3xxEGA00d0HSX DmLBi3/lMvPRB26/9BpuYsFjs21yA+i7t7PqG7SqgTGgX3LAnYB5G959i95q sLDjfJf3IMCuNPtJ+Fo2SIteSZnxxO/b7byljzIbbCgmeeJeBEzIBPY47maD eqHic1V08Dnjp4ZubEgcs2B6opNPzPeJV7JBSje9ZRTd9N146JplLUQfLDIa 8iZA1XqB255aB/T1ihSeDwHkeNO9vjfqQIY+eEDalwCpyoLUVQ11IKefydBD fyXZaFlP1EEQQyGJjn7W0hA+ZlAPEeXuHvKnCYjRoS9/IeqhW6HB+7gfAb2S srJaRg1QnsmsGg4gIKp3D+R8vAvqr82sfENxflr1xGNSI3QvLK+9ii5O10n7 ptAIsbdYCw/Qzy3VX9MONcLiCtH1G8II0HgiG66a1Qj2LtHf/0GPd/JvsvXv QV/+pS07IwgwbS2R6Im5D+zg6B+bogjYUCc9tmJFM6zV2JnreQ7/VxMm3U/3 twFzOZLZkUZAm3/eRideBwwHRIhZXidgUc1QsjKwE8L6jaueVRMgvFQutVG1 CzaT62KMOwnQ++l+x6aqG662WA4GjRHQnbir99G2p5DwxEJ/32cCKJfnlm4v PMP5qb+IkuXA3OfxsRc6fWCzbWsOfwcHimfvdUlk9IPPw3InE1sOSCje4k9N DcDx5y5m7tEcSPOr9ymgDgLVI2R8N5MDn4zKp07Hv4SI1nR64EMOROh21K1v fwV5XctHNi5wYLyqI/W58hBsXXHXOVthGr75D1zbGjMMbxppa8osp0HjN/Fl n3sj8Kot8ikrdhpMC5V9azaMwf4rrD9X1UxDlOLJzW9dx6Hgj8OxcsQ0aPLs Vr88+gbKkwoid5C5sE7yHanj6xuI15u6o2rPBdHmaywV5ltQVr+UbX6ZCwG7 7r3+xWICjFrcq2qfc6HczLPgwSc0a1bEQXYGFufIUpysSVhtSzUutZ2BehtT kcyDU0CbvrbczpyB+COM/DrOFLQ9MBWzmJgB5VHzV0UMAq6S6tde3DILe/UT M+V1OWD2+HSyVNQsuCo9XVrRz4Hw1j9JF9pmYbErfSKEPg2kt0r5devnIEeU FnGCygX1kMKjab5zsG6svlC4gwtDMkojnL/nQOwc3XZP6AzwPoRKxa3jgdBt GmtCZhZKi1sTDvjzICyXlS6D5wo5Nzfc6uJBk0YSSTpoDkTprzY2acyDtHmY 5nkJHixTjZ5EJ83DyPZn/Wfv82CP1fd2L/48VF8H6hRtHsQXNlmyrRfAjaUn rbg8D/fnM5PV6xYggXGDPlK2ADf1F8FKmQ+VXMVrEpZ8eKXyTcwlmQ/W0hIG nV/5cKyr+VfGdz6kiAlvHEHzzJRFrqI7lhZ/vEPrvEmdL0DrTYy2k7/xoer4 H2330eTaSqsgdNxvXb9/RE/YHvWVw4Z4ktu9fvAhIictS1DmjdRI42V8f1rC 2Wg0+ZOk53E0JyHCNR1t5JF3lIZ29HPd3IBOiO2nxqAN92pWrcIONlf012BX jjx5KGjfxXU7lX/yAZ41lz5Ctx7eStFGR3fUpg6jHRSOrDZEz1ZcsxYT7K++ MemI7T0XMCropaXmzMtY8bCTLYHYhkAl+nWskY9N0Xks4wsjsALLPrbPT9AN J0IO/4OdM9a2bMUObfqgO4il6qtoC3poZTxlCkvT2CAzh3UUll3zHptNWb34 Eyslx/4i6H+19e9p "]]}, {GrayLevel[0], LineBox[CompressedData[" 1:eJwd1Hk0lO0bB3DJ1moplbFlrZcJSWh7L4m8SYslW4ytSIstrd5s0ZtmlCIp ayIxM2hsRYWMSJlEUdknz4waNVomKfG75nef85z7fP55zv39Xve5tfxDnfZL SkhI5OAn3u33j75s+LDn7z3/XwRIbSGFDaqYwUPOBQ+x1+RmZFWo2AD1i0Gg 2CNqunEn9HdC/cO1UWJvb+9hZau4gOcaeobYujT1whlND/Byoj4Se8o+4Jqf PgXYpO4xsT8mvGL7pfvBFRpVxxXttm/i4RWVfdBaRPcXm72FVNOUFQgBh81L xDbR2VT+XTMY9r8z/CV2lqRvsd6tQ8D5QnVyQ8tx4/Nd9UMgm+VaIXbtUGd7 k0sYdKnR1NzRYbv32Xulh0OoCfmi2P3G/21JVomEXmcGBiQgLXdZg97eY0AP oCl7ou3lSzY+yjoOw2o9d8Su/vx8rVDzFMRRGaN70YcpFNZ/fqdBYGVx1Qut zREaLb8VBXW5ZHtv9EWm0kpH/WhI8XBrp6Bt1QsKPgTFQFolLdMHHf3khkKj SyxM3yNH+KLNzMnJHulxIPOIYemPzlPede6CSgIQ9xhYOAFR7dfYrrUJoOFj sTEI7Zo4JKmzNxEelJJdD6Dni8Jj6rLOwSp7t1sH0SdfpZ0c00yC/nBGfija mdZffa8hCbYF0CbC0EY2+qIEvwugOt3tEiGeZ0VNuPotKnw3Zqw8hnZMfXdw p/5FOJbgigMmgLxdp5jUchGUG6nt/4r7nn2Yzwu6BGpFhiHRaJ/703frXVLA O5TeGodW/ivFyD39MpSOl3DPo+PkKlYkqaRBUnVxSQbawO7yeVZYGhxlXJ24 ge5MDP3Q25IGVKnAndni+zObTDc6fhU291ao5KOf/CkwetWZDm3aUisY4rzf 0tdq0q6DI+mE2mN01epj6f+8vw7z1xTLNqMpYc4T4etvgIhZP9WCLvskf589 egN2tl2X4qCdRs9vPGibBWrZktR36Iz+01uqpnOATL8dIUJvVvMoGNiTC/d5 GlM/xffV00JajpkLRxOiLk2hNcZOBTBX5UEIb7hrtisBocHmehJ9eRBnE9Cl hFbaV3an0DIfVIMtmaZod4+bZeNfCkDDhfz8FFrY6zI3n1QI8m58q2j0OYrc fucthfDN0vpRPLoiIJRUnVYIV6/3dFLRC0M2JUZZ3AZbTmxADro5/q2nzJki 2CXdrt2MNmUoyqjJlYBMiYOKihsBT42afdtNSiCIOjtfA+1792RdtEcJPNju uUYXnVw9GDZcUgKbg/mhxujRBmbv7R10qFwau3srOuf1trurUxlgY00vO4ae NxPnZadRBnM4o8Q7dEawG4W8tQx2LHPyG0brviL7KoaUwbF/pQk++u/inoDe h2UQccVeWoS+X5xeVWNUDlqiHcXy7gR8ch57sJ1TDs5X18VsRe+5c+3Z0QUs kNpc4F+LzvKOdwjUYsHrlt38RjRX6Ui7+1oWXDhgF/kUHXrG+sUmbxbcnFAq eoNOcvrUKctkQYKDTtgE+uGU9btMhwrQeLkyxdyDAD3Hz6NN1ErIs22RrUOT YuzWB92sBJu8ql1stAIzjzq3phKaF+y/2Y7+Jeds5MithL1asv5D6I6GmqMD llXQb+DuLuNJwGmTuOmfRBWsaVml4oLmyC9ebGRVA4Z6RYIf6BOcdZDx/T5s O97Z5eGF8zOqIp7K1UJFXUzTPnRBsgntt1otDH6g14WiXzqseEuxrYUzEnHN iWjDZ4uP6qXXwuslGsBCD7YIb7Ms6uA7X6dtvjcBdo2FC9tPP4AxVQq0opdW Kg7MmlUPTW202+4++F5xtzx/sfExFNWrr1gdQMDjg9mqHmNs+EHynpUaRIBI f5M880gL9FWmGJodJkBykq6gqtcG52WYOR3hBJjP+FY7lz4HXZPUqswTBDxP MOM8MXgBQ1872zlnCNBMEUwWf+4Ap9fbROqJBAgmBgdem3RCmv1cXhQN832s a1t4sQs8vhzsVriK+dWLhCMjr8Dlu6vSshwCaMFVgXm63bBtWd+JBUUE/LCi jxyI6QHvsADfvXcJiDRlVy5pegNFLOg8V4f5S9nUl1rvwN6qtFuvhYDfB19l /nW6F+6VLj1r0IV9bZadDqzrg+ry/m+CAewnXyvo7tIB2DUiyLMew3mo+2gP ew3CytyXFNtJfM/G9szr2TEEhtp3vGkyPFgkPy7H/jUEeQvuH0lS5oFUfWaZ TtYwtD59X6iky4NDZnVv52zngoJJhuCwGQ/o2/zzHv3gQgf9V4OyLQ9EApIC L/09SConKRjs4UGVs93sNJsR6Jm8PWMSxIOYfxJzK3kjUC50bLxykgda/fZv bmFvutZHmrQu8GC9RUKaiikPnEw9tdnZPPDSeDE5qwv38eXxN8vx/23J3LA4 Pljfa1nBbOZBhhQl0kl3FOZmHVj0/i2ef6AqX5I9CtUJsjXrPvNA+kycy7rw D/D7X7WEQSk+SBRTyrhKH8Eg2CTvEokPETfKkpUef4TYbuGnYlM+PDQ8L6cY IoDNy39sFdrzQdE+ghy/cAxgToephj8f+lZ1dJ16MAacRTPjb6L4UJ4DuiOU TxC/QS71cBofvMvMFdWnP0Hohv3cOUw+xCbejOsr+Qwfdvx54dzKB+aoeuZC ByH8aI1udOXywVFxoWXLLyGkfjXeqjXDhwvSkqp96Cin1gZdNHtS9GccPf+n /4aVaHNufxPptxAMF+eaGKNJFcxdIWifFFPVTWiuy44g5SkhZGU8GXdHR2bQ 0gP+CCFoND87Bc2kxZ46iT735+yyNDQvNtIrGb3bPSj1Gto92Eu7Bj00YJaU g960nlw6d1oIImNBJAMt0/es+S76+zDboRUNHfV3nqDLHdtanqFPsiuovegl sp3WL9AfGZmO0jNCGLAetexGc84c6ndH75s21htBy0b4NBxBh2Ta5fHRVoHO t+LRWtF+qgI0a+eGYAb63OIsxa9ogbWxQyPavPUBTYTWtdAx7kZfbhyUnURT DJcqCdDpEtJnp9DXNOeJZtA2ieTpGfT/AIuT+uM= "]]}, {GrayLevel[0], LineBox[CompressedData[" 1:eJwV1Hk41fkXB3BLy01laxlEdpPtkkQZetuyR7Ymk5RI0WRLE5qyDEpomcxN kl3Zbjf7z5JUN/2mLJeUZLuu+5X9Ngulhfl0nuc853n9c/445zlH+UiI21ER ISGhbJLfqsPR8a6WCc9d7p7fgsIyK7nQYVlDOM/bm3/ztpyMrCpZa9jZaQp/ M19eLe6MhjMsHf+54UHs2N5beVvWAz8s3V32zWqpCkVLil7Y5m9r6078xcHv hq+GD7Siuw65EU8m9LB9Gb5QsbBxdiX+0f/Dg99l/SFTXyS9l5htJVf3JCsA 4jxBuTOxvqrZ/X8VAyHapKawhzhL5HCJesEJfLSx9nMkpvHi8/dpBGM63jnG nriB293+xCMU3BCrMFvi0L3+Dt6MMLxcq7pzN/Gg3gWrNNkI1HnnO5gTp+fI tKgfOI3itZbpZsQOEqWmzVm/4GZIW5UJce1s23aBYhQibfIiDIl/9vGpvOAb jWONUxu2Eqt0COhKBWfhOaKUpkt8mSm9xVXjPPTNHb+qE+9WKCycOBYD+Sjz eWXi862Zko88YkHzU3qqQGxopJPmxYjDkH0ufz1x7gaXpEuyCfjNL1dLmPhs +w32voYEBKlNdX/2oLAvkSuieiARrgwl13niNXNhMY1ZSdic5tg5SRzZkx45 rZgMVmtedxexe+pg7f9akvG7hKXWC2K6tcZcgu8lnF7V/iObmF9VF6ZQkIId kgWGtcSu198GOWtcRl2gy9wNYh1H1RK5Z5fxh8nuL1eIaaI/vxs7dgXhTep9 F4gP1S9WPPS4Cp2Xd9afId6geZW+n3ENGU4lv7sTx9Gqvk+WTYd7CKt0GbGW 7bWLlaHpeJi3TmvBnUJ3YshE/7N02E8IR84Qq4nqlNF/+QMNdb/GvCJu/VpI 7+lmYLXblGkB8Zp/GNsVU28i6NfysO3ENVtPM+xGb6JFqLJPg9gn1P1DmEkm DDMtJGWIWTMS9ezxTEStWRpfcKPgNn7RNGh3FsJm/7ZrJM4YjLaqWcyGUnHz Y0NiC3mvwiHPHBw+f3SdKvHkT8bLacwcNAcyDKSIN09H+TF1c/E6hjEw7Uoh JNBIXWggF2dKJIbziKX9WcVFO/Jx+m/qtgjxfq881vu/CnH8gIpojgsFQb+H WL5cEWqczjZeJE7yoR11tyqC+Wi1XThxlV+IXG16EdYJPR+xJhYPNks8a3wH BR/Pio87U3ga3/fTinN3cZpadNUgNiiXWiFPKwWXGRsX70ThT/rTw+36pViw mX0VQHy4IrLxvFcp9iaaLjkQp9UOh46UlqLhr2iONPF4C7P/zp4yRCXHnMx1 pJD9yr5i6/VylFTfvVblQGH1Upy37WYWOhdOxdfbkXkF/uijY8PCuaSjsjeJ 1Xp0DksFs1B7jZ8USbyrpNev/wELbNUUyoi4voRRU0e/Dy+j6IoKWwoz7tNN jh334buB+1uODQXP4hsvTq2txGTDc2lva3LfB+OdApQr0Svz81kjYp70yfb9 2yvhPJfZIEkccs6y0+xgJfo185rYVhSS3Wa6VzIrcSLOpVOL+MEXy7e3nKoQ OLlNT2BBQd11dvxJSjWGCjb17QcFuRhbk2N51SgeOhWmRSzJzE0Rq6uGeuOK vs+7KHyiudNdedUw8hrYkE3Maak7NbSjBvc0bW24ZhSi9eMWP1I1EJLfFH/A lEKHxPr1dPM6aNo0HdXdSeFMx05k/FuPK/dHB3YZkP3Ra6g/aQ2I9Yyj04gL 0/RTP8s3oCi40LNrK4Uup+/7fHY3IO1rtJofsfaL9afUGQ3oSQtkJ+hTGH4m uFNp3IgdkU5rW+gUbB8VibdHN8E3QvPJRm0K31VLDQkLP4SemPlDa1Xyr3hW bZ2mj9FkccJUTJLC46Dbm7ym2aBH0ReUPvExp2EmwTz5DBVndDQ+8/gQWSiT 3KT+HB7D2WPTrXwYLR2udb/XBjsJpYi5Ej7aEgw7WrU6kWMx8mnuEh+KV6cW SmY5OPLq8vagAD6mPgwPvdLvhkxKW1y6BR+Fk43PxS+/hLn9RGfZRj7EFe4K +PweeJvsKbwwMYrUwJqAXLXXuJ5UVdzUNIp58zL+8Zhe6HWIbzZOHkWEAbt6 45M3aIx/xD+4bxTD99gpXcpvkdqc0WEpP4rPQT23NKP7cZyRHKrN5UHbYuVi QOMAwlLLTP2LeLDNVz5W8d0QTl/y7688wsMZhUMqI97D2MF/p16kzIPOtOfq 3j1caHrWaVsOj2CdxHsa+xMX3MYj/XvTR7Ds4S2WatYINkqkPc53HMEJw8a+ VY48sCRWBgwvcFFmfyS3eZ6H94VyP1y/w8XclJzkGGMUfzPcmLr7uKhxtxVN t+Yj3SxadOPHYcTYJeZUj/EhW9AWbu0wDOVBhzcFiRSuBDUevJc5BBPjhHRZ gzH8nxZdvO/1ILw3dy4IvxzDoazayfuyg5h7nsYLjXuHoHaDcFPbAWQs84lw UxtH1rsJM+Vz/Vg3VJMvwh7HEKe6r7niLZafi/PYGTYBvc2jr607+yBU4sPi SU/iAH9Ts9/8G4RnstKkH0/ia3ZetffyN3igfZEmFTyFUw+OmNyV7oWUQ7hO vPg04guGRbu1XmNAl/Myqmka73euYiRpvsL9bKjxfWYwXc60eLytBwdZRlIK izMoZq7ectvsJWIT8+IGSmcx9K8ct16nG8xxhVviTgL4aqwJy9rSBVcp8R3P PglgkqRkWUXj4NJykU0DxPrPdCKvErMX5r6+J050Ubl3ktiIN/hE7rMADkZ/ ym4hlqtiugQTW3qveJ+1kgOex55jG74IQK3alZG0goOIjFSG31cBPkzl93ot 44CZGhsVSdwk80bMmHgsNsI7jXgwdd5sPfH+QG+VOmIzR0FBhygHZiY698QW BTiuxAm2Il4x8OJpBXG4jouQrggH4DwsbiWW75QxECOOZFel9BOr17/weyfM wWT5LdflSwK4+s205hF3nDsxuJ9YRlIpdSPxyvBDLSeJa2a2PfhHiAPzAPeC eOIK6a2zHOJK5x8Cy4nZBu9cUoinLPWcHhEP6ObGHidWM1bVe/2tf6hlxW5i H+3vpKeIVT+1j6gQ31BcPbdE7PnCUlqI+D9ieM+9 "]]}, {GrayLevel[0], LineBox[CompressedData[" 1:eJwd1Hk81Nsfx3EpNaWIWz/ZkrWFRISmeBe5hBZruTFxiagst03a8KMkSuWO YshaloYMElJTtl+LNZFtMOYroeh3CSXdM53H4zzO4/l4nL/O63E+yn/62x0S FRERSSZbeFodGmzifnQ0sXMULgrzzOQCemT1IROVrSe03t3brELZHbh/PKve gVigoBZ6WmM35krbaQhtXdfGSZJ1gOahe3R7YrVoxcyfSs5YeSxT3I54xsoj 3l2DAd7aPXf2Eg+Ft1S5M93hk5jev5t4n+dkxU1ZT3Cfpw3ZEFeZyZVUsrzQ z7LJsyLWUTV+OK7kg2atVG1LYpaoW7Z6+hHEBKYcMSem8cPSnDT8sOyI1SFT 4rLe5rpKhwB4yd6VB3HAXk8rF2YgIs4lX9tC3L3hslmM7Amouyfl6BHH3V3B VT9wEvf5LPsNxFaSOVufsk5hfIVF6TriR5/fbBpVOoN/0hPLVhEfZTA4l92D kTll7iRPrFI/qr0q/SxURBPzlhNfY0uvsdW4gBA9878XEpsrZmR89L4ItwMJ qnOJL9QkLH3uEIIlRgl+Mw4U9A20YpyZoXglmUD/TJyyfM+lKNlwNBkl5NQT n62Lr3IqC4fUAvOVNcROEb2iqgcioBCVsLuCePFE4MVy1iUw88ypHOKglrig EaUrkA1kDYUR20d3P3rMvYISimUWRKy9Q2Mi3D0KypKWzseIBYUlgYrpV+Ec klzmRGx7q8N3t8Y17OuydtQg1rJWzZarvQbHydRbssS0uUc/DHhfx8ratGuL iQ+WzhY8c4jFbxEZZV/sKSxfG6u9n3kD0cFZQ4+JQ2mFq6/IxuGxNSeHTrzO 4kYkJyAOniw7szXEzRH+Hztr45DV2RC9nFhtrlau9qm/8VXdfeOoHYWaHxna Lc1M5H7k1SYTL/6HuUkp+g5Or7dQGLWlUKx7kmnZfwcJ3o9etBEzAuwnA+kJ cIgVleMS53+SLK0aTCBddDuvE9sNRm71NWdBQWb4vibx7e5gs+LZZCTce+Xr sJfCdgXnDJ7jXei9oikZEQ/9YShGY9+FR5dquDzxypEzHuz1KYh6M+bWt4eC v4+BukhXCr50Up4+xNKe+VmZRmlQLtnK9N1NYb9zav7YlwwsOZiUrGtDYbTT YVGaXCYiLaqnlhBfYtAO2Ztlwtvo85IhawqFHv5yj+IyYatn5pNKLOFnHHHW 8B6aY6b7FxNXh7X/Mf/8fVx5F/+xdSeFjQ+k5ivQclCXn7DJ0ILCS+1qtzqd HLzI6B9dROxWEFR+wTkHcmnrD/F+pxDzqCegLycHX4urQsKJB7nsznu7cnHA 9OfZOnMKye92FujeeoDOT5lhdjsoiP8MdbFYmY+C66WNa7aT9/LZx9D6PR9/ G/tPjG8jvVq03KT88uGk0NLGJTbJbvPorMiH39Hcd/uIS7OZxSXaDzHhFFsc Bgqf7EeeWNc/hI+j3vw3xhQcs+JfH1/CQfdk95AWnfxv1zAbL2UOnJ+fqR7b TIEvfaxu/yYOCsqrXIuI/c+bNhi7cjBleriWTnzF7lPzAjYHvETqwg4jChUz ph2JNoWQOF16wdqAgrrt58HKq0WYaa5+vnojBbmLFnTv1CJ0/rAL69alsJSd cnVRSRFab7SN3yT+RrPXtuUXQXWiZnRGh0Ijt+Q4z6gYMtkmxnUbKATrhM5O UcXwrrlhcHA9hXrJZcu0t5Ugq7UmzXINhdP1m3F7vBScXUfddRVJP+1i6iWt DF4qooJ2BQoZMTrR3xXKQCtIUQkjbrJZ3c4wL8Pymcm3TfIUNF8vO67OLIP9 TskFfnIUempH73EMy/EHtzfvjgwFi+eZEnXBT5C4SlLsqRQFmSIp3pw5z0Bl 33lNFyPzim/2pmHrC9SISteeGhDghW+SvPNIFazWyEx4VwowoWEsyT5WC3nn 4HRGsgCi07lL5dVfoex1/KKzgQIY/HR7ZJ/3Bu0XvOxVzAR4E65fX7OuAbOH D9+4IiWAUuzwdPbnRtKvwHFpWz+GJ3t473Sa4ZzLbljF6kfGUPkriWtvoXcy y+bMvn5IKN4fFQha4OZqeQyS/Yj2KfZKUWvFY2Ol7XG1fHzdlis4fLENK84L ZtRO8nFiY1XRfyrfo9pX1O+lKh89eVVXm5Q7wP4RY9VU04fvvi2Ja4M7sS3K 9EOuVx80ty+Y9Srvwp5gafcUWh8s0pS9C2R4iOxOmRpK6sVpxYMqfS494M4/ vvDdpl5ojTiKt+3qhW33eXV6fA9+kxyjVX3rhaiGv5rPfR7mPUvMV2X14ZxH Zeq7p904ol/evtCaj9nZc7/rlnYhd+efKU+/8iFi5jiWnteJiWG5pQPMfjTn +00y2B0otreYG7dDgMg/Y8XGottx0TLibhHp8HVe39DbU++h3G31Pj2CAqdb 82W/axvohuFxshsH0NHh0lGh2gqXlQ3Tc94OYOO3se4PEy2YeBXDDwj9AN7Z 8P+uz3yL2/MYJ+zUBuGOUy/r3ZvxG684TbRqEMyiy9c9FZogdj7UYXPgR9x2 Czgn6dkAkWxGPl96CNyO/0+Lk65/JeTHSL8YwtQGMdMXOS9RoRlJk/IbxvvJ LcoyaTWQsvpLK0xiBLT3s5mbn1Sia33j2zNPRqB/SbG3L5yLh8lQEzA+IVLp i3GnoAyu+QZSirOfYKRW4HW5ogghEamhXTmfoSPuPGdFay7Yg4qJEjaj6F1o GGqSnQRbKQmj2m+jEIlkz6G3WSNKTFS+S2jWw4kBb2tUTU/8GBM6aDbl1pQV DPjdlXLfhfeDFUdkrSBXyN7jJzRtnH3HxRJ8h13ey2eIz41ofejbgRO3o5ke P4iNBszj328BOzrkTJDQe5NFeqbpGAg54RIj9NTwWg15Ovb7uKiU/LLF/ziu RjCma+UtmiVOEdWv5utjftfr6gKhuWLXk9o1gcZnWTVCN65uk1NYh6Cqwqud Qi89OcNkrMHQg0RbsZ/EY7G8q/1qqD9/pHu/0KtYcxo75LHgr4PcY7980/Px wRXY5mWfHiZ0Ci80WbAMnN1bfB4IvW28tbZLHMOmG2yeCx1y0//SwDyoGapu aP3lsumQ3u8mDE0Z6WGhRfZ+b/swbBKvJD7x85dFnuYaupr8C7ZF2fo= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, Epilog->{ InsetBox[ FormBox["\"r\"", TraditionalForm], {1.1, -0.05}], InsetBox[ FormBox["\"u(r,\[Theta])\"", TraditionalForm], {0.1, 1}], InsetBox[ FormBox["\"\[Theta]=0, \[Theta]=\[Pi]\"", TraditionalForm], {0.8, 0.12}], InsetBox[ FormBox[ "\"\[Theta]=\\!\\(\\*FractionBox[\\(\[Pi]\\), \\(6\\)]\\), \ \[Theta]=\\!\\(\\*FractionBox[\\(5 \[Pi]\\), \\(6\\)]\\)\"", TraditionalForm], {0.85, 0.4}], InsetBox[ FormBox[ "\"\[Theta]=\\!\\(\\*FractionBox[\\(\[Pi]\\), \ \\(3\\)]\\),\[Theta]=\\!\\(\\*FractionBox[\\(2 \[Pi]\\), \\(3\\)]\\)\"", TraditionalForm], {0.84, 0.63}], InsetBox[ FormBox[ "\"\[Theta]=\\!\\(\\*FractionBox[\\(\[Pi]\\), \\(2\\)]\\)\"", TraditionalForm], {0.8, 0.9}]}, ImageSize->{240., Automatic}, PlotRange->{{0, 1.12}, {-0.1, 1.1}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.409054646015273*^9, 3.409054804770273*^9, 3.4092260685922003`*^9, { 3.4101678064700003`*^9, 3.410167837087*^9}, {3.4101681200285997`*^9, 3.4101681749866*^9}, {3.4101682069606*^9, 3.4101682135875998`*^9}, 3.41422346711033*^9}, CellLabel->"Out[6]="] }, Open ]], Cell[BoxData[""], "Input"], Cell[BoxData["\:53c2\:8003\:ff1a"], "Input"], Cell[CellGroupData[{ Cell["Table[LegendreP[n,x],{n,0,5}]", "Input", CellLabel->"In[7]:="], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "x"}], "+", RowBox[{"5", " ", SuperscriptBox["x", "3"]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"30", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"35", " ", SuperscriptBox["x", "4"]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{ RowBox[{"15", " ", "x"}], "-", RowBox[{"70", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"63", " ", SuperscriptBox["x", "5"]}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.41422347384233*^9}, CellLabel->"Out[7]="] }, Open ]], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{"n", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "5"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.2`"}], ",", "1.2`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"0.7`", ",", "0.7`"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"0.75`", ",", "0.5`"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"0.84`", ",", "0.15`"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"0.85`", ",", RowBox[{"-", "0.3`"}]}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"0.9`", ",", RowBox[{"-", "0.5`"}]}], "}"}]}], "]"}]}], "}"}]}]}], "]"}]], "Input", CellLabel->"In[8]:="], Cell[BoxData[ RowBox[{"a", "=", RowBox[{"ContourPlot", "[", RowBox[{"siki", ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "40"}], ",", RowBox[{"Contours", "\[Rule]", "60"}]}], "]"}]}]], "Input", CellLabel->"In[9]:="] }, WindowToolbars->"RulerBar", WindowSize->{783, 664}, WindowMargins->{{251, Automatic}, {Automatic, -72}}, DockedCells->(FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, Placeholder]}]& ), PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (2007\:5e746\:670819\ \:65e5)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 116, 5, 34, "Input"], Cell[687, 28, 612, 16, 33, "Input"], Cell[1302, 46, 456, 12, 31, "Input"], Cell[1761, 60, 77, 0, 31, "Input"], Cell[1841, 62, 496, 13, 33, "Input"], Cell[2340, 77, 58, 1, 39, "Input"], Cell[CellGroupData[{ Cell[2423, 82, 391, 13, 45, "Input"], Cell[2817, 97, 372, 12, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3226, 114, 814, 25, 54, "Input"], Cell[4043, 141, 467, 14, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4547, 160, 2307, 61, 170, "Input"], Cell[6857, 223, 23705, 412, 157, "Output"] }, Open ]], Cell[30577, 638, 26, 0, 31, "Input"], Cell[30606, 640, 44, 0, 31, "Input"], Cell[CellGroupData[{ Cell[30675, 644, 69, 1, 31, "Input"], Cell[30747, 647, 1029, 36, 45, "Output"] }, Open ]], Cell[31791, 686, 1738, 52, 92, "Input"], Cell[33532, 740, 380, 10, 31, "Input"] } ] *) (* End of internal cache information *)