(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 191165, 7414]*) (*NotebookOutlinePosition[ 192536, 7457]*) (* CellTagsIndexPosition[ 192492, 7453]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Symbolic Vector Analysis Using ", StyleBox["Mathematica", FontSlant->"Italic"], " \[MathematicaIcon] (Demo) \nHong Qin, Plasma Physics Laboratory, \ Princeton University\n 1997 ", StyleBox["Mathematica", FontSlant->"Italic"], " Visiting Scholar" }], "Subsection", PageWidth->PaperWidth, CellFrame->{{0, 0}, {0.5, 0}}, FontSize->18, FontColor->RGBColor[1, 0, 0]], Cell[CellGroupData[{ Cell[BoxData[ \(<< GeneralVectorAnalysis.m\)], "Input", CellLabel->"In[1]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ \("The Vector Calculus on General Coordinate is loaded in"\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("Use SetCoordinateSystem[ ] to set up a coordinate system"\)], "Print",\ FontFamily->"Times", FontSize->16], Cell[BoxData[ \("The default CoordinateSystem is None "\)], "Print", FontFamily->"Times", FontSize->16] }, Closed]], Cell[TextData[ "\[MathematicaIcon] Conventional vector analysis notation is built in."], "2ColumnSmallBox", PageWidth->PaperWidth, FontSize->16, FontWeight->"Bold", FontColor->GrayLevel[0]], Cell[CellGroupData[{ Cell[BoxData[ \(FullForm/@{\ a\[CenterDot]\((b + c)\), \((a + d)\)\[Cross]\((b\[Cross]c)\)}\)], "Input", CellLabel->"In[2]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ StyleBox[\(DotProduct[a, Plus[b, c]]\), ShowSpecialCharacters->False, ShowStringCharacters->True], FullForm], ",", TagBox[ StyleBox[\(CrossProduct[Plus[a, d], CrossProduct[b, c]]\), ShowSpecialCharacters->False, ShowStringCharacters->True], FullForm]}], "}"}]], "Output", CellLabel->"Out[2]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(FullForm/@{\[Del]\(\[Cross]\((a + a\[Cross]\((b\[Cross]c)\))\)\), \[Del]\(\[CenterDot]\((a + b\[Cross]d)\)\)}\)], "Input", CellLabel->"In[3]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ StyleBox[\(Curl[Plus[a, CrossProduct[a, CrossProduct[b, c]]]]\), ShowSpecialCharacters->False, ShowStringCharacters->True], FullForm], ",", TagBox[ StyleBox[\(Div[Plus[a, CrossProduct[b, d]]]\), ShowSpecialCharacters->False, ShowStringCharacters->True], FullForm]}], "}"}]], "Output", CellLabel->"Out[3]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(FullForm/@{\[Del]\^2\((f\ g)\), A\&^, \ \(|B | \), \[ScriptCapitalJ][r]} \)], "Input", CellLabel->"In[4]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ StyleBox[\(Laplacian[Times[f, g]]\), ShowSpecialCharacters->False, ShowStringCharacters->True], FullForm], ",", TagBox[ StyleBox[\(UnitVector[A]\), ShowSpecialCharacters->False, ShowStringCharacters->True], FullForm], ",", TagBox[ StyleBox[\(AbsoluteValue[B]\), ShowSpecialCharacters->False, ShowStringCharacters->True], FullForm], ",", TagBox[ StyleBox[\(Jacobian[r]\), ShowSpecialCharacters->False, ShowStringCharacters->True], FullForm]}], "}"}]], "Output", CellLabel->"Out[4]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[TextData[ "\[MathematicaIcon] Vector calculations independent of coordinate system."], "3ColumnSmallBox", PageWidth->PaperWidth, FontSize->16, FontWeight->"Bold", FontColor->GrayLevel[0]], Cell[CellGroupData[{ Cell[BoxData[ \(DeclareVector[A, B\_0, B, C, D, E, F, G, H, J, \[Xi], Q]; DeclareScalar[a, b, c, d, e, f, g, h]\)], "Input", CellLabel->"In[5]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ InterpretationBox[ \({A, B\_0, B, C, D, E, F, G, H, J, \[Xi], Q} \[InvisibleSpace]" are Vectors now."\), SequenceForm[ {A, Subscript[ B, 0], B, C, D, E, F, G, H, J, \[Xi], Q}, " are Vectors now."], Editable->False]], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ InterpretationBox[ \({a, b, c, d, e, f, g, h}\[InvisibleSpace]" are Scalars now."\), SequenceForm[ {a, b, c, d, e, f, g, h}, " are Scalars now."], Editable->False]], "Print", FontFamily->"Times", FontSize->16] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \({A\[Cross]A, \ A\[CenterDot]\((A\[Cross]C)\), \[Del]\(\[Cross]\((\[Del]f)\)\), \ \[Del]\(\[CenterDot]\((\[Del]\(\[Cross]A\))\)\), \ VectorExpand[A\[Cross]\((B\[Cross]C)\)]}\)], "Input", CellLabel->"In[6]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ \({0, 0, 0, 0, \(-C\)\ A\[CenterDot]B + B\ A\[CenterDot]C}\)], "Output", CellLabel->"Out[6]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(VectorExpand/@{ A\[Cross]\((B\[Cross]C)\) + B\[Cross]\((C\[Cross]A)\) + C\[Cross]\((A\[Cross]B)\), \((A\[Cross]B)\)\[Cross]\((C\[Cross]D)\), \[Del]\(\[CenterDot]\((f\ \((A\[Cross]B + \[Del]\(\[Cross]C\))\))\)\)} \)], "Input", CellLabel->"In[7]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ \({0, \(-D\)\ A\[CenterDot](B\[Cross]C) + C\ A\[CenterDot](B\[Cross]D), \(-f\)\ A\[CenterDot](\[Del]\[Cross]B) + f\ B\[CenterDot](\[Del]\[Cross]A) + \((A\[Cross]B)\[CenterDot](\[Del]f)\) + \((\[Del]\[Cross]C)\[CenterDot](\[Del]f)\)}\)], "Output", CellLabel->"Out[7]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[TextData[ "\[MathematicaIcon] An example from ideal megnetohydrodynamics."], "1ColumnBox", PageWidth->PaperWidth, FontSize->16, FontWeight->"Bold", FontColor->GrayLevel[0]], Cell[CellGroupData[{ Cell[BoxData[ \(\[Del]\(\[CenterDot]\((B\_0)\)\) = 0; \ \ Q = \[Del]\(\[Cross]\((\[Xi]\[Cross]B\_0)\)\); \ \ J = \[Del]\(\[Cross]Q\)\)], "Input", CellLabel->"In[8]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ \(\[Del]\[Cross](\(\[Del]\[Cross](\(\[Xi]\[Cross](B\_0)\))\))\)], "Output",\ CellLabel->"Out[8]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(VectorExpand[J]\)], "Input", CellLabel->"In[9]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ \(\(-\((\[Del](\(\[Del]\[CenterDot]\[Xi]\)))\[Cross](B\_0)\)\) - \[Del]\[Cross](\((\[Xi]\[CenterDot]\[Del]) (B\_0)\)) + \[Del]\[Cross](\(((B\_0)\[CenterDot]\[Del]) \[Xi]\)) - \[Del]\[Cross](B\_0)\ \[Del]\[CenterDot]\[Xi]\)], "Output", CellLabel->"Out[9]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[TextData[ "\[MathematicaIcon] Vector analysis in any well-defined coordinate system."], "1ColumnBox", PageWidth->PaperWidth, FontSize->16, FontWeight->"Bold", FontColor->GrayLevel[0]], Cell[CellGroupData[{ Cell[BoxData[ \(\(SetCoordinateSystem["\"]\)[x, y, z]; A = DefineVector[1, \ y\ z, \ \(-x\), x\^2]; B = \((\[Del]\(\[Cross]A\))\)\[LeftDoubleBracket]1\[RightDoubleBracket]; \nSetCoordinateSystem["\"]; Needs["\"]\)], "Input", CellLabel->"In[10]:=", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("============The coordinate system is set up============="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(" The Metric Matrix g^{i,j} is:"\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \({{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("======================================================="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(" The Metric Matrix g_{i,j} is:"\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \({{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("======================================================="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(" The 1st kind Christoffel symbol matrix is:"\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \({{{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}, {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}, {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}}\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("======================================================="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(" The 2st kind Christoffel symbol matrix is:"\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \({{{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}, {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}, {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}}\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("======================================================="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ InterpretationBox[\({"Cartesian"}\[InvisibleSpace]" is set up."\), SequenceForm[ {"Cartesian"}, " is set up."], Editable->False]], "Print", FontFamily->"Times", FontSize->16] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(\(PlotVectorField3D[ B, {x, \(-10\), 10}, {y, \(-1\), 1}, {z, \(-1\), 1}, ColorFunction\ -> \ Hue\ ]; \)\)], "Input", CellLabel->"In[11]:=", FontFamily->"Times", FontSize->16], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .4545 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics3D /Courier findfont 10 scalefont setfont % Scaling calculations - -0.0431877 1.04319 -0.280255 1.04319 [ [ 0 0 0 0 ] [ 1 .4545 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .00795 .30703 m 0 .39001 L s 0 .39001 m .07526 .4545 L s .07526 .4545 m .08179 .37263 L s .08179 .37263 m .00795 .30703 L s .93484 0 m .99057 .08218 L s .99057 .08218 m 1 .16851 L s 1 .16851 m .9435 .08739 L s .9435 .08739 m .93484 0 L s .00795 .30703 m 0 .39001 L s 0 .39001 m .9435 .08739 L s .9435 .08739 m .93484 0 L s .93484 0 m .00795 .30703 L s .08179 .37263 m .99057 .08218 L s .99057 .08218 m 1 .16851 L s 1 .16851 m .07526 .4545 L s .07526 .4545 m .08179 .37263 L s 0 0 m 1 0 L 1 .4545 L 0 .4545 L closepath clip newpath 1 0 .027 r .5 Mabswid .09081 .35916 m .09935 .36681 L s 1 0 .026 r .0898 .37203 m .09838 .37946 L s 1 0 .122 r .08218 .35143 m .09063 .35901 L s 1 0 .024 r .08879 .38497 m .09741 .39217 L s 1 0 .121 r .08115 .36432 m .08964 .37167 L s 1 0 .217 r .0735 .34365 m .08187 .35115 L s 1 0 .02 r .08778 .39797 m .09644 .40494 L s 1 0 .119 r .08011 .37728 m .08865 .3844 L s 1 0 .216 r .07244 .35656 m .08085 .36384 L s 1 0 .311 r .06476 .33582 m .07305 .34325 L s 1 0 .015 r .08676 .41104 m .09546 .41778 L s 1 0 .115 r .07907 .3903 m .08765 .3972 L s 1 0 .214 r .07138 .36954 m .07983 .37659 L s 1 0 .311 r .06368 .34875 m .07201 .35595 L s 1 0 .406 r .05597 .32794 m .06417 .33529 L s 1 0 .008 r .08573 .42418 m .09448 .43069 L s 1 0 .11 r .07803 .40339 m .08665 .41006 L s 1 0 .21 r .07031 .38258 m .07881 .3894 L s 1 0 .308 r .06259 .36175 m .07096 .36872 L s 1 0 .405 r .05486 .34089 m .0631 .34802 L s 1 0 0 r .0847 .43739 m .09349 .44366 L s 1 0 .501 r .04712 .32002 m .05523 .32728 L s 1 0 .103 r .07697 .41655 m .08564 .42299 L s 1 0 .204 r .06924 .3957 m .07778 .40229 L s 1 0 .304 r .0615 .37481 m .06991 .38156 L s 1 0 .403 r .05375 .35391 m .06203 .36081 L s .077 0 1 r .22312 .3167 m .22877 .3221 L s 1 0 .5 r .04599 .33299 m .05414 .34003 L s 1 0 .094 r .07592 .42978 m .08462 .43598 L s 1 0 .596 r .03822 .31204 m .04624 .31923 L s 1 0 .197 r .06816 .40888 m .07674 .41524 L s 1 0 .299 r .0604 .38795 m .06885 .39446 L s 1 0 .399 r .05263 .367 m .06095 .37367 L s .078 0 1 r .22244 .32968 m .22812 .33486 L s 1 0 .498 r .04485 .34602 m .05304 .35284 L s 0 .018 1 r .21476 .3087 m .22031 .31401 L s 1 0 .595 r .03706 .32503 m .04512 .33199 L s 1 0 .189 r .06708 .42213 m .0757 .42825 L s 1 0 .292 r .05929 .40115 m .06779 .40743 L s 1 0 .393 r .0515 .38015 m .05987 .38659 L s .081 0 1 r .22177 .34272 m .22747 .34769 L s 1 0 .494 r .0437 .35913 m .05194 .36572 L s 0 .017 1 r .21406 .3217 m .21964 .32679 L s 1 0 .593 r .03589 .33809 m .044 .34482 L s 0 .113 1 r .20635 .30065 m .2118 .30587 L s 1 0 .283 r .05818 .41443 m .06672 .42047 L s 1 0 .386 r .05037 .39338 m .05878 .39958 L s .087 0 1 r .22109 .35584 m .22682 .36058 L s 1 0 .488 r .04254 .37231 m .05083 .37867 L s 0 .014 1 r .21336 .33476 m .21897 .33964 L s 1 0 .588 r .03471 .35121 m .04286 .35772 L s 0 .112 1 r .20563 .31367 m .21111 .31867 L s 0 .208 1 r .19788 .29255 m .20324 .29767 L s 1 0 .377 r .04923 .40667 m .05768 .41264 L s .094 0 1 r .2204 .36902 m .22616 .37354 L s 1 0 .481 r .04138 .38555 m .04971 .39168 L s 0 .008 1 r .21266 .3479 m .21829 .35255 L s 1 0 .583 r .03353 .36441 m .04173 .37069 L s 0 .108 1 r .2049 .32675 m .21041 .33153 L s 0 .206 1 r .19714 .30559 m .20252 .31049 L s 0 .302 1 r .18937 .2844 m .19462 .28943 L s .104 0 1 r .21972 .38228 m .2255 .38657 L s 1 0 .472 r .04022 .39887 m .04859 .40476 L s 0 0 1 r .21195 .36111 m .21761 .36553 L s 1 0 .575 r .03234 .37768 m .04058 .38372 L s 0 .102 1 r .20417 .33991 m .20971 .34447 L s 0 .203 1 r .19639 .31869 m .2018 .32338 L s 0 .301 1 r .18859 .29745 m .19388 .30226 L s .116 0 1 r .21902 .3956 m .22484 .39966 L s 0 .397 1 r .18079 .27619 m .18595 .28112 L s .01 0 1 r .21124 .37438 m .21692 .37858 L s 1 0 .566 r .03115 .39102 m .03943 .39683 L s 0 .094 1 r .20344 .35314 m .209 .35747 L s 0 .197 1 r .19563 .33187 m .20107 .33633 L s 0 .298 1 r .18782 .31058 m .19313 .31517 L s 0 1 .181 r .36003 .27276 m .36294 .27575 L s 0 .396 1 r .18 .28927 m .18518 .29398 L s .022 0 1 r .21052 .38773 m .21624 .39169 L s 0 .492 1 r .17217 .26793 m .17722 .27277 L s 0 .084 1 r .2027 .36644 m .20829 .37054 L s 0 .189 1 r .19487 .34512 m .20034 .34935 L s 0 .292 1 r .18704 .32378 m .19238 .32814 L s 0 1 .183 r .35971 .28584 m .36264 .28862 L s 0 .392 1 r .17919 .30242 m .1844 .30691 L s 0 1 .086 r .35196 .26448 m .35477 .26736 L s 0 .491 1 r .17134 .28103 m .17642 .28564 L s 0 .071 1 r .20196 .3798 m .20758 .38368 L s 0 .178 1 r .19411 .35844 m .19961 .36244 L s 0 .283 1 r .18625 .33705 m .19162 .34119 L s 0 1 .189 r .35939 .299 m .36233 .30156 L s 0 .386 1 r .17839 .31563 m .18363 .3199 L s 0 1 .088 r .35162 .27758 m .35445 .28025 L s 0 .487 1 r .17051 .2942 m .17562 .29859 L s .009 1 0 r .34385 .25614 m .34655 .25891 L s 0 .165 1 r .19334 .37183 m .19887 .3756 L s 0 .272 1 r .18547 .35039 m .19086 .3543 L s 0 1 .199 r .35907 .31222 m .36203 .31457 L s 0 .377 1 r .17758 .32892 m .18284 .33297 L s 0 1 .094 r .35128 .29076 m .35412 .29321 L s 0 .481 1 r .16968 .30744 m .17482 .31161 L s .007 1 0 r .34349 .26927 m .3462 .27182 L s .104 1 0 r .33568 .24775 m .33827 .25041 L s 0 .259 1 r .18467 .3638 m .1901 .36748 L s 0 1 .213 r .35875 .32552 m .36172 .32765 L s 0 .366 1 r .17676 .34229 m .18206 .3461 L s 0 1 .105 r .35094 .30401 m .35379 .30624 L s 0 .472 1 r .16885 .32075 m .17401 .32469 L s 0 1 0 r .34312 .28246 m .34585 .2848 L s .101 1 0 r .3353 .2609 m .3379 .26334 L s .199 1 0 r .32746 .23931 m .32994 .24185 L s 0 1 .232 r .35842 .33889 m .36141 .34079 L s 0 .353 1 r .17594 .35572 m .18127 .3593 L s 0 1 .12 r .35059 .31733 m .35345 .31934 L s 0 .46 1 r .16801 .33413 m .1732 .33785 L s 0 1 .011 r .34275 .29573 m .34549 .29785 L s .094 1 0 r .33491 .27412 m .33752 .27634 L s .196 1 0 r .32705 .25248 m .32954 .2548 L s 0 1 .254 r .3581 .35234 m .36109 .35401 L s .293 1 0 r .31919 .23081 m .32155 .23324 L s 0 1 .139 r .35024 .33072 m .35312 .33251 L s 0 .446 1 r .16716 .34759 m .17238 .35107 L s 0 1 .027 r .34238 .30907 m .34514 .31097 L s .083 1 0 r .33452 .28741 m .33714 .28941 L s .189 1 0 r .32664 .26571 m .32914 .26782 L s 1 .284 0 r .50178 .22726 m .50215 .22766 L s .291 1 0 r .31875 .244 m .32113 .24621 L s 0 1 .162 r .34989 .34418 m .35278 .34575 L s .388 1 0 r .31086 .22226 m .3131 .22456 L s 0 1 .047 r .34201 .32249 m .34478 .32416 L s .066 1 0 r .33412 .30077 m .33676 .30255 L s .176 1 0 r .32622 .27902 m .32874 .28091 L s 1 .3 0 r .50185 .24045 m .50221 .24065 L s .283 1 0 r .31832 .25726 m .3207 .25925 L s 1 .19 0 r .49404 .21868 m .49429 .21895 L s .385 1 0 r .3104 .23547 m .31266 .23755 L s 0 1 .071 r .34164 .33597 m .34442 .33742 L s .045 1 0 r .33373 .3142 m .33638 .31576 L s .159 1 0 r .32581 .29241 m .32834 .29408 L s 1 .342 0 r .50191 .25372 m .50228 .2537 L s .27 1 0 r .31788 .27059 m .32028 .27236 L s 1 .212 0 r .49408 .23189 m .49433 .23196 L s .377 1 0 r .30994 .24874 m .31221 .25062 L s 1 .095 0 r .48625 .21005 m .48637 .21018 L s .02 1 0 r .33333 .32771 m .336 .32905 L s .137 1 0 r .32539 .30586 m .32793 .30731 L s 1 .402 0 r .50197 .26706 m .50234 .26682 L s .252 1 0 r .31744 .28399 m .31985 .28554 L s 1 .268 0 r .49413 .24518 m .49437 .24503 L s .363 1 0 r .30948 .2621 m .31176 .26375 L s 1 .134 0 r .48627 .22328 m .48639 .22321 L s 1 0 0 r .47841 .20136 m .47841 .20136 L s .111 1 0 r .32497 .31939 m .32752 .32061 L s 1 .474 0 r .50204 .28047 m .5024 .28002 L s .229 1 0 r .31699 .29747 m .31942 .2988 L s 1 .342 0 r .49417 .25854 m .49442 .25818 L s .344 1 0 r .30901 .27552 m .31131 .27695 L s 1 .212 0 r .48629 .23659 m .48642 .2363 L s 1 .095 0 r .47841 .21461 m .47841 .2144 L s .47051 .19261 m .47039 .19247 L s 1 .553 0 r .5021 .29396 m .50247 .29329 L s .201 1 0 r .31655 .31102 m .31899 .31212 L s 1 .424 0 r .49421 .27197 m .49446 .27139 L s .32 1 0 r .30854 .28902 m .31086 .29023 L s 1 .3 0 r .48631 .24997 m .48644 .24947 L s 1 .19 0 r .47841 .22794 m .47841 .22752 L s 1 .134 0 r .47049 .20588 m .47036 .20554 L s 1 .636 0 r .50217 .30752 m .50254 .30663 L s 1 .19 0 r .46256 .18381 m .46231 .18353 L s 1 .511 0 r .49426 .28548 m .4945 .28468 L s .291 1 0 r .30807 .30259 m .3104 .30357 L s 1 .391 0 r .48634 .26342 m .48646 .26271 L s .388 1 0 r .64865 .18012 m .64666 .17774 L s 1 .284 0 r .47841 .24134 m .47841 .2407 L s 1 .212 0 r .47047 .21923 m .47034 .21867 L s .46252 .1971 m .46227 .19661 L s 1 .6 0 r .4943 .29906 m .49455 .29804 L s 1 .284 0 r .45456 .17494 m .45418 .17452 L s 1 .483 0 r .48636 .27695 m .48648 .27602 L s .385 1 0 r .64912 .19342 m .64713 .19083 L s 1 .379 0 r .47841 .25481 m .47841 .25396 L s .293 1 0 r .64125 .17123 m .63914 .16869 L s 1 .3 0 r .47045 .23265 m .47032 .23188 L s 1 .268 0 r .46248 .21047 m .46222 .20976 L s 1 .3 0 r .4545 .18825 m .45412 .18762 L s 1 .577 0 r .48638 .29056 m .4865 .2894 L s .377 1 0 r .64959 .2068 m .64759 .204 L s 1 .474 0 r .47841 .26836 m .47841 .26729 L s .291 1 0 r .64171 .18455 m .63959 .18181 L s 1 .391 0 r .47042 .24615 m .4703 .24516 L s .199 1 0 r .63381 .16228 m .63157 .15958 L s 1 .342 0 r .46243 .22391 m .46218 .22299 L s .45443 .20164 m .45405 .2008 L s .363 1 0 r .65007 .22025 m .64805 .21724 L s 1 .569 0 r .47841 .28199 m .47841 .2807 L s .283 1 0 r .64217 .19795 m .64003 .19499 L s 1 .483 0 r .4704 .25972 m .47028 .25851 L s .196 1 0 r .63425 .17562 m .63199 .17272 L s 1 .424 0 r .46239 .23742 m .46213 .23629 L s .104 1 0 r .62632 .15327 m .62395 .15041 L s 1 .402 0 r .45436 .2151 m .45398 .21404 L s .344 1 0 r .65055 .23377 m .64852 .23055 L s .27 1 0 r .64262 .21142 m .64048 .20826 L s 1 .577 0 r .47038 .27337 m .47025 .27193 L s .189 1 0 r .63469 .18904 m .63242 .18593 L s 1 .511 0 r .46234 .25102 m .46209 .24966 L s .101 1 0 r .62674 .16663 m .62435 .16357 L s 1 .474 0 r .4543 .22864 m .45391 .22737 L s .009 1 0 r .61878 .1442 m .61627 .14118 L s .32 1 0 r .65104 .24737 m .64899 .24394 L s .252 1 0 r .64309 .22496 m .64092 .22159 L s .176 1 0 r .63513 .20253 m .63284 .19921 L s 1 .6 0 r .4623 .26469 m .46204 .26311 L s .094 1 0 r .62716 .18007 m .62475 .1768 L s 1 .553 0 r .45423 .24226 m .45385 .24076 L s .007 1 0 r .61918 .15758 m .61665 .15436 L s 0 1 .086 r .61119 .13507 m .60854 .13189 L s .291 1 0 r .65152 .26105 m .64947 .2574 L s .229 1 0 r .64355 .23859 m .64138 .235 L s .159 1 0 r .63557 .2161 m .63327 .21256 L s 0 .492 1 r .8009 .13125 m .79681 .12587 L s .083 1 0 r .62758 .19358 m .62516 .1901 L s 1 .636 0 r .45416 .25595 m .45378 .25423 L s 0 1 0 r .61958 .17104 m .61704 .1676 L s 0 1 .088 r .61157 .14847 m .6089 .14508 L s 0 1 .181 r .60355 .12588 m .60076 .12253 L s .201 1 0 r .64402 .25229 m .64183 .24848 L s .137 1 0 r .63601 .22974 m .63371 .22599 L s 0 .491 1 r .80181 .14466 m .79769 .13908 L s .066 1 0 r .628 .20717 m .62557 .20347 L s 0 .397 1 r .79389 .12203 m .78966 .11647 L s 0 1 .011 r .61998 .18457 m .61742 .18093 L s 0 1 .094 r .61195 .16195 m .60927 .15835 L s 0 1 .183 r .6039 .1393 m .6011 .13574 L s .111 1 0 r .63646 .24346 m .63414 .2395 L s 0 .487 1 r .80273 .15814 m .79859 .15236 L s .045 1 0 r .62842 .22083 m .62598 .21692 L s 0 .396 1 r .79478 .13546 m .79053 .12969 L s 0 1 .027 r .62038 .19818 m .61781 .19432 L s 0 .302 1 r .78683 .11275 m .78246 .107 L s 0 1 .105 r .61232 .1755 m .60963 .17169 L s 0 1 .189 r .60426 .1528 m .60144 .14903 L s 0 .481 1 r .80365 .1717 m .79949 .16571 L s .02 1 0 r .62885 .23458 m .6264 .23045 L s 0 .392 1 r .79569 .14896 m .79141 .14299 L s 0 1 .047 r .62078 .21187 m .61821 .20779 L s 0 .301 1 r .78771 .1262 m .78331 .12025 L s 0 1 .12 r .61271 .18913 m .61 .18511 L s 0 .208 1 r .77973 .10341 m .77521 .09747 L s 0 1 .199 r .60462 .16637 m .60179 .16239 L s 0 .472 1 r .80458 .18534 m .80039 .17914 L s 0 .386 1 r .79659 .16254 m .79229 .15637 L s 0 1 .071 r .62119 .22563 m .6186 .22134 L s 0 .298 1 r .78859 .13972 m .78417 .13357 L s 0 1 .139 r .61309 .20284 m .61037 .1986 L s 0 .206 1 r .78059 .11687 m .77605 .11073 L s 0 1 .213 r .60498 .18002 m .60214 .17583 L s 0 .113 1 r .77257 .094 m .76791 .08787 L s 0 .46 1 r .80551 .19906 m .8013 .19265 L s 0 .377 1 r .7975 .1762 m .79317 .16982 L s 0 .292 1 r .78948 .15332 m .78504 .14696 L s 0 1 .162 r .61348 .21662 m .61075 .21217 L s 0 .203 1 r .78145 .13042 m .77689 .12407 L s 0 1 .232 r .60534 .19375 m .60249 .18934 L s 0 .112 1 r .77342 .10748 m .76873 .10115 L s 0 .018 1 r .76537 .08452 m .76056 .0782 L s 0 .446 1 r .80645 .21285 m .80221 .20623 L s 0 .366 1 r .79842 .18994 m .79407 .18335 L s 0 .283 1 r .79038 .167 m .78591 .16043 L s 1 0 .596 r .95884 .08056 m .95291 .07194 L s 0 .197 1 r .78233 .14404 m .77774 .13749 L s 0 1 .254 r .60571 .20755 m .60284 .20293 L s 0 .108 1 r .77427 .12105 m .76955 .11451 L s 0 .017 1 r .7662 .09803 m .76136 .0915 L s .077 0 1 r .75812 .07498 m .75316 .06847 L s 0 .353 1 r .79934 .20376 m .79496 .19695 L s 0 .272 1 r .79128 .18076 m .78678 .17398 L s 1 0 .595 r .96023 .09407 m .95426 .08526 L s 0 .189 1 r .7832 .15774 m .77859 .15098 L s 1 0 .501 r .95225 .07099 m .94616 .06216 L s 0 .102 1 r .77512 .13469 m .77038 .12795 L s 0 .014 1 r .76703 .11161 m .76217 .10488 L s .078 0 1 r .75892 .08851 m .75394 .08179 L s 0 .259 1 r .79218 .1946 m .78766 .18761 L s 1 0 .593 r .96162 .10766 m .95561 .09865 L s 0 .178 1 r .78408 .17152 m .77944 .16455 L s 1 0 .5 r .95362 .08452 m .9475 .0755 L s 0 .094 1 r .77598 .14841 m .77122 .14146 L s 1 0 .406 r .94561 .06136 m .93938 .05232 L s 0 .008 1 r .76786 .12527 m .76298 .11834 L s .081 0 1 r .75974 .10211 m .75473 .09519 L s 1 0 .588 r .96302 .12133 m .95698 .11212 L s 0 .165 1 r .78497 .18538 m .78031 .17819 L s 1 0 .498 r .955 .09813 m .94885 .08891 L s 0 .084 1 r .77684 .16221 m .77206 .15505 L s 1 0 .405 r .94697 .07491 m .9407 .06567 L s 0 0 1 r .7687 .13901 m .76379 .13187 L s 1 0 .311 r .93892 .05166 m .93254 .0424 L s .087 0 1 r .76055 .11579 m .75552 .10866 L s 1 0 .583 r .96443 .13508 m .95836 .12567 L s 1 0 .494 r .95639 .11182 m .9502 .1024 L s 0 .071 1 r .77771 .17609 m .7729 .16872 L s 1 0 .403 r .94833 .08854 m .94203 .0791 L s .01 0 1 r .76955 .15283 m .76461 .14548 L s 1 0 .311 r .94026 .06523 m .93385 .05577 L s .094 0 1 r .76138 .12955 m .75632 .12222 L s 1 0 .217 r .93219 .04189 m .92566 .03241 L s 1 0 .575 r .96585 .14891 m .95974 .13929 L s 1 0 .488 r .95778 .12559 m .95156 .11596 L s 1 0 .399 r .9497 .10225 m .94336 .09261 L s .022 0 1 r .7704 .16674 m .76544 .15917 L s 1 0 .308 r .94161 .07888 m .93516 .06922 L s .104 0 1 r .7622 .1434 m .75712 .13585 L s 1 0 .216 r .93352 .05548 m .92695 .0458 L s 1 0 .122 r .92541 .03205 m .91872 .02235 L s 1 0 .566 r .96728 .16282 m .96113 .15299 L s 1 0 .481 r .95918 .13944 m .95292 .12961 L s 1 0 .393 r .95108 .11604 m .94471 .1062 L s 1 0 .304 r .94297 .09261 m .93648 .08275 L s .116 0 1 r .76304 .15732 m .75793 .14956 L s 1 0 .214 r .93485 .06915 m .92825 .05927 L s 1 0 .121 r .92672 .04566 m .92 .03576 L s 1 0 .027 r .91858 .02214 m .91174 .01221 L s 1 0 .472 r .9606 .15337 m .9543 .14333 L s 1 0 .386 r .95247 .12991 m .94606 .11986 L s 1 0 .299 r .94434 .10642 m .93781 .09635 L s 1 0 .21 r .93619 .0829 m .92955 .07282 L s 1 0 .119 r .92804 .05935 m .92128 .04925 L s 1 0 .026 r .91988 .03577 m .913 .02564 L s 1 0 .377 r .95387 .14386 m .94742 .13361 L s 1 0 .292 r .94571 .12031 m .93915 .11004 L s 1 0 .204 r .93754 .09673 m .93087 .08644 L s 1 0 .115 r .92937 .07312 m .92257 .06281 L s 1 0 .024 r .92118 .04948 m .91427 .03915 L s 1 0 .283 r .94709 .13428 m .9405 .12381 L s 1 0 .197 r .9389 .11064 m .93219 .10015 L s 1 0 .11 r .9307 .08697 m .92387 .07646 L s 1 0 .02 r .92249 .06327 m .91554 .05274 L s 1 0 .189 r .94027 .12463 m .93352 .11394 L s 1 0 .103 r .93205 .1009 m .92518 .09019 L s 1 0 .015 r .92381 .07714 m .91682 .06641 L s 1 0 .094 r .9334 .11492 m .92649 .104 L s 1 0 .008 r .92514 .09109 m .91811 .08015 L s 1 0 0 r .92648 .10513 m .91941 .09398 L s 0 g .25 Mabswid .93484 0 m .99057 .08218 L s .99057 .08218 m 1 .16851 L s 1 .16851 m .9435 .08739 L s .9435 .08739 m .93484 0 L s .00795 .30703 m 0 .39001 L s 0 .39001 m .9435 .08739 L s .9435 .08739 m .93484 0 L s .93484 0 m .00795 .30703 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", CellLabel->"From In[11]:=", ImageSize->{286.375, 130.125}, ImageMargins->{{234, 0}, {0, 3}}, ImageRegion->{{0, 1}, {0, 1}}, FontSize->16, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgon6Yooo0?lDTaTIL02JcK8R 8]:d S;jn_UmOGkC^]:JVYZf][Jo^k/Rl[8Z1M[no_de=CB:;8YJ=PNKViW=cLiVIVNGUiFIVIWQhNFQX JJJZ mEQHFDQ8B@T92e9FeiRLjSHjc499d;JjnHJ:jjRXZIRHVF9V fhR8 RKVi^F=SHd92@]kNg_l009BDU;fm_GmoOlC4a000?`00O`00_`0o000o?`0oO`0o_`0oo`1o001o ?`1o O`1o_`1oo`2o002o?`2oO`2o_`2oo`3o?`3oO`3o_`3oocl003l0?cl0Ocl0_cl0oclo03lo?clo Oclo _cloocmo03mo?cmoOcmo_cmoocno03no?cnoOcno_cnoocoo03oo?cooOcoo_cooogl007l0?gl0 Ogl0 _gl0oglo07lo?gloOglo_gloogmo07mo?gmo_gmoogno07no?gnoOgno_gnoogoo07oo?gooOgoo _goo okl00;l0?kl0Okl0_kl0oklo0;lo?kloOklo_klookmo0;mo?kmoOkmo_kmookno0;no?knoOkno okoo 0;oo?kooOkoo_kooool0?ol0Ool0_ol0oolo0?lo?oloOolo_olooomo0?mo?omoOomo_omooono 0?no ?onoOono_onooooo?oooOooo_n[ZjWAdM:NWYj0Pl=WIfJj^[WMgM`H60<30`020P80008200820 P6IV c30003IP00 00<0 00D100000@0>0000l@030A0000=V06H010001@40000100h0003^00<14`0014P006H300030@00 0080 00<100002`000>/00`4G0003IP1V00<000<100000`000`40000:0000j0030AT000E8ITP0B002 0003 0@0000<000<100002P000>D00`4M0007IP1V06H00@0600030@0000T0003R00<180000fH0IP02 0003 B04000H000<1000020000=l00`4T0006IP1V06H11`000`4000080000g0030BD000E8001VB002 0003 0@0000H000<100001`000=T00`4Y0008IP1V06H00FH800030@0000H0003F00<1;00026H004P0 B058 20000`4000060000d`030C0000=V00000VH00`40IP0800030@0000D0003@00<100030@0002`000MV06H0IP5V 0080 00=V00001P000`4000020000a0030A4000=V0@00:P001FH004QV008000<104P00P000fH00005 0003 0@000080003100<14P001@40000102/000YV06H0IP01IP182@020@<0002n00<15P00104006H[ 0005 B000IP000P400fH0IP0600<100<00@000P000;/00`4J00040@00IR/000YV0@41IP01IP1V0P03 0@@0 00<100000@000;P00`4L00030@01008000=V00009P030@0;B01804P106H1IP401`000`400001 0000 ]@030B0000D100400@0U00<100D0IP1V0002IP050FH1B6H02@000`4000010000/P030B<000IV 0001 06HP00@110001TP006H1IP8000=80DP02@000`4000010000[`030BL000IV0001004L00<12000 1`5V 0@1V06H00P000`40B00900410@010000[0030BP000L1001V06H0009V60030@P00`42000:B018 04QV 06H1IPT00@410040002Y00<1;0000`400@020004IP00IQ@00`4800<11@0016H006H20004IP1V 0@T0 0@410040002V00<1;`0016H000420003IP1801400`4700@12@001VH004P0B08000=V0@001`01 0@40 0@000:<00`4c00060@000@010P000fH0000;00<11`030@h000UV06IV04P0B04020010@400@00 0:00 0`480003B00002T000H1001V06H20004IP00B0T00`4700<14@001TP006I8IP8000=80@001P01 0@40 0@0009d00`4<0003B00002T000<100400P0016H006H20003B00000<00`4700<15@001VH006H0 IP<0 00<1000010010@400@0009X00`4k0004IP000@8000AV001V0P000dP00@020@L00`4I0006B000 IP1V 0P000`40000400410@010000U`030A<00000<17`000b40000V00<10P0026H006H00DP1:@00 16H0 04P400050@0000400P0008/00`4O00038@0002H0104200040@00IP8100=V0000:`000fH0IP05 0005 0@0000400@0008P00`4P0004B0008@8000=800007`030@05004006H00P030@03IP1802d000A8 001V 1@00104000410000Q@030B@000A8000Q0P000dP0000K00<11@000`400@020@040040IP8000=8 0000 :`000fH0000500040@000@40002200<1:00014P0024L00<11`030@8000IV001V06H20003B000 02/0 00=800001@000`400@010000O`030B`000=800000`000dP0000B00@11P040@<000H1001V06H2 0003 IP0002d000=V00001P020@40001l00<1;0000dP0000400038@0001400`4700<120002@4006H0 IP18 IP0_0003IP0000D00P410000N@030C0000A8000Q0P001DP0001800`00`4700<12`020@8000=V 06H0 0P000fH0000d00810@0007H00`4d0004B0008@<000P030B40000000;P030BX000@Q000Q0`000b40000@00<11P030@038@0000@000=80000?`03 0E40 000[00<1;@001B40000Q00<000"], ImageRangeCache->{{{310, 595.375}, {379.875, 250.75}} -> {-1.00674, 1.11472, 0.00337415, 0.00337415}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(SetCoordinateSystem["\"]\)[r, \[Theta], z]; \)\)], "Input", CellLabel->"In[12]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ \("============The coordinate system is set up============="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(" The Metric Matrix g^{i,j} is:"\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \({{1, 0, 0}, {0, 1\/r\^2, 0}, {0, 0, 1}}\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("======================================================="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(" The Metric Matrix g_{i,j} is:"\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \({{1, 0, 0}, {0, r\^2, 0}, {0, 0, 1}}\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("======================================================="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(" The 1st kind Christoffel symbol matrix is:"\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \({{{0, 0, 0}, {0, \(-r\), 0}, {0, 0, 0}}, {{0, r, 0}, {r, 0, 0}, {0, 0, 0}}, {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}}\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("======================================================="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(" The 2st kind Christoffel symbol matrix is:"\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \({{{0, 0, 0}, {0, \(-r\), 0}, {0, 0, 0}}, {{0, 1\/r, 0}, {1\/r, 0, 0}, { 0, 0, 0}}, {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}}\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("======================================================="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ InterpretationBox[\({"Cylindrical"}\[InvisibleSpace]" is set up."\), SequenceForm[ {"Cylindrical"}, " is set up."], Editable->False]], "Print", FontFamily->"Times", FontSize->16] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(A = DefineVector[1, Ar[r, \[Theta], z], \ A\[Theta][r, \[Theta], z], Az[r, \[Theta], z]]; B = DefineVector[1, Br[r, \[Theta], z], \ B\[Theta][r, \[Theta], z], Bz[r, \[Theta], z]]; \)], "Input", CellLabel->"In[13]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ \(General::"spell1" \( : \ \) "Possible spelling error: new symbol name \"\!\(B\\[Theta]\)\" is \ similar to existing symbol \"\!\(A\\[Theta]\)\"."\)], "Message", FontFamily->"Times", FontSize->16] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(A\[CenterDot]B\)], "Input", CellLabel->"In[14]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ \(Ar[r, \[Theta], z]\ Br[r, \[Theta], z] + Az[r, \[Theta], z]\ Bz[r, \[Theta], z] + \(A\[Theta][r, \[Theta], z]\ B\[Theta][r, \[Theta], z]\)\/r\^2\)], "Output", CellLabel->"Out[14]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(A\[Cross]B\)], "Input", CellLabel->"In[15]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ \(Vector[{ r\ \((\(A\[Theta][r, \[Theta], z]\ Bz[r, \[Theta], z]\)\/r\^2 - \(Az[r, \[Theta], z]\ B\[Theta][r, \[Theta], z]\)\/r\^2)\), r\ \((Az[r, \[Theta], z]\ Br[r, \[Theta], z] - Ar[r, \[Theta], z]\ Bz[r, \[Theta], z])\), r\ \((\(- \(\(A\[Theta][r, \[Theta], z]\ Br[r, \[Theta], z]\)\/r\^2\)\) + \(Ar[r, \[Theta], z]\ B\[Theta][r, \[Theta], z]\)\/r\^2)\)}, { \(A\[Theta][r, \[Theta], z]\ Bz[r, \[Theta], z] - Az[r, \[Theta], z]\ B\[Theta][r, \[Theta], z]\)\/r, \(Az[r, \[Theta], z]\ Br[r, \[Theta], z] - Ar[r, \[Theta], z]\ Bz[r, \[Theta], z]\)\/r, \(\(-A\[Theta][r, \[Theta], z]\)\ Br[r, \[Theta], z] + Ar[r, \[Theta], z]\ B\[Theta][r, \[Theta], z]\)\/r}]\)], "Output",\ CellLabel->"Out[15]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\[Del]\(\[CenterDot]A\)\)], "Input", CellLabel->"In[16]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ RowBox[{\(1\/r\), RowBox[{"(", RowBox[{\(Ar[r, \[Theta], z]\), "+", RowBox[{"r", " ", RowBox[{ SuperscriptBox["Az", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(r, \[Theta], z\), "]"}]}], "+", FractionBox[ RowBox[{ SuperscriptBox["A\[Theta]", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(r, \[Theta], z\), "]"}], "r"], "+", RowBox[{"r", " ", RowBox[{ SuperscriptBox["Ar", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(r, \[Theta], z\), "]"}]}]}], ")"}]}]], "Output", CellLabel->"Out[16]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\[Del]\(\[Cross]A\)\)], "Input", CellLabel->"In[17]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ RowBox[{"Vector", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["A\[Theta]", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(r, \[Theta], z\), "]"}]}], "+", RowBox[{ SuperscriptBox["Az", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(r, \[Theta], z\), "]"}]}], "r"], ",", RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Ar", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(r, \[Theta], z\), "]"}], "-", RowBox[{ SuperscriptBox["Az", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(r, \[Theta], z\), "]"}]}], ")"}]}], ",", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["Ar", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(r, \[Theta], z\), "]"}]}], "+", RowBox[{ SuperscriptBox["A\[Theta]", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(r, \[Theta], z\), "]"}]}], "r"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["A\[Theta]", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(r, \[Theta], z\), "]"}]}], "+", RowBox[{ SuperscriptBox["Az", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(r, \[Theta], z\), "]"}]}], "r"], ",", FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["Ar", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(r, \[Theta], z\), "]"}], "-", RowBox[{ SuperscriptBox["Az", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(r, \[Theta], z\), "]"}]}], "r"], ",", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["Ar", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(r, \[Theta], z\), "]"}]}], "+", RowBox[{ SuperscriptBox["A\[Theta]", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(r, \[Theta], z\), "]"}]}], "r"]}], "}"}]}], "]"}]], "Output", CellLabel->"Out[17]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \({{A\^1, A\^2, A\^3}, {B\_1, B\_2, B\_3}}\)], "Input", CellLabel->"In[18]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ \({{Ar[r, \[Theta], z], A\[Theta][r, \[Theta], z]\/r\^2, Az[r, \[Theta], z]}, {Br[r, \[Theta], z], B\[Theta][r, \[Theta], z], Bz[r, \[Theta], z]}}\)], "Output", CellLabel->"Out[18]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(|A | \)\)], "Input", CellLabel->"In[19]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ \(\@\(Ar[r, \[Theta], z]\^2 + Az[r, \[Theta], z]\^2 + A\[Theta][r, \[Theta], z]\^2\/r\^2\)\)], "Output", CellLabel->"Out[19]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(A\&^\ \)\)], "Input", CellLabel->"In[20]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ \(Vector[{ Ar[r, \[Theta], z] \/\@\(Ar[r, \[Theta], z]\^2 + Az[r, \[Theta], z]\^2 + A\[Theta][r, \[Theta], z]\^2\/r\^2\), A\[Theta][r, \[Theta], z] \/\@\(Ar[r, \[Theta], z]\^2 + Az[r, \[Theta], z]\^2 + A\[Theta][r, \[Theta], z]\^2\/r\^2\), Az[r, \[Theta], z] \/\@\(Ar[r, \[Theta], z]\^2 + Az[r, \[Theta], z]\^2 + A\[Theta][r, \[Theta], z]\^2\/r\^2\)}, { Ar[r, \[Theta], z] \/\@\(Ar[r, \[Theta], z]\^2 + Az[r, \[Theta], z]\^2 + A\[Theta][r, \[Theta], z]\^2\/r\^2\), A\[Theta][r, \[Theta], z]\/\(r\^2\ \@\(Ar[r, \[Theta], z]\^2 + Az[r, \[Theta], z]\^2 + A\[Theta][r, \[Theta], z]\^2\/r\^2\)\), Az[r, \[Theta], z] \/\@\(Ar[r, \[Theta], z]\^2 + Az[r, \[Theta], z]\^2 + A\[Theta][r, \[Theta], z]\^2\/r\^2\)}]\)], "Output", CellLabel->"Out[20]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[TextData[ "\[MathematicaIcon] Ideal MHD waves in a magnetized plasma (H. Alfven, \ Nobel Prize in Physics, 1970)."], "3ColumnSmallBox", FontSize->16, FontWeight->"Bold"], Cell[BoxData[ \(\(Needs["\"]\ \)\)], "Input", CellLabel->"In[21]:=", FontFamily->"Times", FontSize->16], Cell[CellGroupData[{ Cell[BoxData[ \(Symbolize[B\_0]; \ \nClear[B]; \n \(SetCoordinateSystem["\"]\)[x, y, z]; \)], "Input", CellLabel->"In[22]:=", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("============The coordinate system is set up============="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(" The Metric Matrix g^{i,j} is:"\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \({{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("======================================================="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(" The Metric Matrix g_{i,j} is:"\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \({{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("======================================================="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(" The 1st kind Christoffel symbol matrix is:"\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \({{{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}, {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}, {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}}\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("======================================================="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(" The 2st kind Christoffel symbol matrix is:"\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \({{{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}, {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}, {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}}\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("======================================================="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ InterpretationBox[\({"Cartesian"}\[InvisibleSpace]" is set up."\), SequenceForm[ {"Cartesian"}, " is set up."], Editable->False]], "Print", FontFamily->"Times", FontSize->16] }, Closed]], Cell[BoxData[ \(\(B\_0 = DefineVector[1, B\_X, B\_Y, B\_Z]; \)\)], "Input", CellLabel->"In[23]:=", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(\(\[Xi][x, y, z] = Exp[I\ \((\ K\_X\ x + \ K\_Y\ y\ + \ K\_Z\ z\ )\)] DefineVector[1, \ \[Xi]\_X, \ \ \[Xi]\_Y\ , \ \[Xi]\_Z\ ]; \)\)], "Input", CellLabel->"In[24]:=", FontFamily->"Times", FontSize->16], Cell[TextData[ "\[MathematicaIcon] Define the linear force operator:"], "3ColumnSmallBox", FontSize->16, FontWeight->"Bold"], Cell[BoxData[ \(F[\[Xi]_] := \((Q = \[Del]\(\[Cross]\((\[Xi]\[Cross]B\_0)\)\); \ \ \((\[Del]\(\[Cross]Q\))\)\[Cross]\ \((B\_0)\)\/\(4\ \[Pi]\) + \((\[Del]\(\[Cross]\((B\_0)\)\))\)\[Cross]Q\/\(4\ \[Pi]\) + \[Del]\(( \[Xi]\[CenterDot]\[Del]p\ + \ \[Gamma]\ p\ \[Del]\(\[CenterDot]\[Xi]\))\)\ \ )\)\)], "Input",\ CellLabel->"In[25]:=", FontFamily->"Times", FontSize->16], Cell[TextData[ "\[MathematicaIcon] Create the matrix for the force operator, solve for the \ eigenvalues :"], "3ColumnSmallBox", FontSize->16, FontWeight->"Bold"], Cell[BoxData[ \(\(force = Expand[\(- \(F[\[Xi][x, y, z]]\/\(\[Rho]\ Exp[I\ \((K\_X\ x + K\_Y\ y + K\_Z\ z)\)]\)\)\)]; \)\)], "Input", CellLabel->"In[26]:=", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(\(matrix = Table[Coefficient[force\[LeftDoubleBracket]1, i\[RightDoubleBracket], Switch[j, 1, \[Xi]\_X, 2, \[Xi]\_Y, 3, \[Xi]\_Z]], {i, 3}, {j, 3}]; \)\)], "Input", CellLabel->"In[27]:=", FontFamily->"Times", FontSize->16], Cell[CellGroupData[{ Cell[BoxData[ \(eigenfreq = FullSimplify[Expand[Eigenvalues[matrix]]]\)], "Input", CellLabel->"In[28]:=", FontFamily->"Times", FontSize->16], Cell[BoxData[ \({\((B\_X\ K\_X + B\_Y\ K\_Y + B\_Z\ K\_Z)\)\^2\/\(4\ \[Pi]\ \[Rho]\), \(1\/\(8\ \[Pi]\ \[Rho]\^2\)\(( \[Rho]\ \((4\ p\ \[Pi]\ \[Gamma] + B\_X\%2 + B\_Y\%2 + B\_Z\%2)\)\ \((K\_X\%2 + K\_Y\%2 + K\_Z\%2)\) - \[Sqrt]\(( \[Rho]\^2\ \((K\_X\%2 + K\_Y\%2 + K\_Z\%2)\)\ \((\(-16\)\ p\ \[Pi]\ \[Gamma]\ \((B\_X\ K\_X + B\_Y\ K\_Y + B\_Z\ K\_Z)\)\^2 + \((4\ p\ \[Pi]\ \[Gamma] + B\_X\%2 + B\_Y\%2 + B\_Z\%2) \)\^2\ \((K\_X\%2 + K\_Y\%2 + K\_Z\%2)\))\))\)) \)\), \(1\/\(8\ \[Pi]\ \[Rho]\^2\)\(( \[Rho]\ \((4\ p\ \[Pi]\ \[Gamma] + B\_X\%2 + B\_Y\%2 + B\_Z\%2)\)\ \((K\_X\%2 + K\_Y\%2 + K\_Z\%2)\) + \[Sqrt]\(( \[Rho]\^2\ \((K\_X\%2 + K\_Y\%2 + K\_Z\%2)\)\ \((\(-16\)\ p\ \[Pi]\ \[Gamma]\ \((B\_X\ K\_X + B\_Y\ K\_Y + B\_Z\ K\_Z)\)\^2 + \((4\ p\ \[Pi]\ \[Gamma] + B\_X\%2 + B\_Y\%2 + B\_Z\%2) \)\^2\ \((K\_X\%2 + K\_Y\%2 + K\_Z\%2)\))\))\))\)\)} \)], "Output", CellLabel->"Out[28]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[TextData[ "\[MathematicaIcon] Define your own coordinate systems through a simple \ interface. Asymptotic vector analysis is available."], "3ColumnSmallBox", PageWidth->PaperWidth, FontSize->16, FontWeight->"Bold", FontColor->GrayLevel[0]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ \(\(AddCoordinateSystem["\", R\_0, \ \[Epsilon]]\)[r, \[Theta], \[CurlyPhi]]\), "[", RowBox[{"{", RowBox[{\({1, 0, 0}\), ",", \({0, 1\/r\^2, 0}\), ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", InterpretationBox[ RowBox[{ \(1\/R\_0\%2\), "-", \(\(2\ \((r\ Cos[\[Theta]])\)\ \[Epsilon]\)\/R\_0\%3\), "+", \(\(3\ r\^2\ Cos[\[Theta]]\^2\ \[Epsilon]\^2\)\/R\_0\%4\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 0, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Power[ Subscript[ R, 0], -2], Times[ -2, r, Cos[ \[Theta]], Power[ Subscript[ R, 0], -3]], Times[ 3, Power[ r, 2], Power[ Cos[ \[Theta]], 2], Power[ Subscript[ R, 0], -4]]}, 0, 3, 1]]}], "}"}]}], "}"}], "]"}]], "Input", CellLabel->"In[29]:=", FontFamily->"Times", FontSize->16], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .7364 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics3D /Courier findfont 10 scalefont setfont % Scaling calculations 0 1.04911 -0.10491 1.04911 [ [ 0 0 0 0 ] [ 1 .7364 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .7364 L 0 .7364 L closepath clip newpath .5 Mabswid [ ] 0 setdash .47458 .57664 m .54946 .57829 L .54843 .5531 L p .713 .561 .681 r F P 0 g s .54843 .5531 m .47662 .55149 L .47458 .57664 L p .713 .561 .681 r F P 0 g s .61917 .54499 m .54843 .5531 L .54946 .57829 L p .672 .529 .682 r F P 0 g s .47662 .55149 m .54843 .5531 L .54693 .52861 L p .711 .611 .743 r F P 0 g s .54843 .5531 m .61917 .54499 L .61326 .52089 L p .678 .585 .744 r F P 0 g s .61326 .52089 m .54693 .52861 L .54843 .5531 L p .678 .585 .744 r F P 0 g s .40185 .56504 m .47458 .57664 L .47662 .55149 L p .753 .597 .683 r F P 0 g s .47662 .55149 m .40692 .5402 L .40185 .56504 L p .753 .597 .683 r F P 0 g s .40692 .5402 m .47662 .55149 L .47959 .52708 L p .743 .639 .745 r F P 0 g s .54693 .52861 m .47959 .52708 L .47662 .55149 L p .711 .611 .743 r F P 0 g s .47365 .60003 m .54992 .60168 L .54946 .57829 L p .709 .505 .611 r F P 0 g s .54946 .57829 m .47458 .57664 L .47365 .60003 L p .709 .505 .611 r F P 0 g s .62326 .56996 m .54946 .57829 L .54992 .60168 L p .659 .465 .611 r F P 0 g s .54946 .57829 m .62326 .56996 L .61917 .54499 L p .672 .529 .682 r F P 0 g s .47959 .52708 m .54693 .52861 L .54512 .50724 L p .702 .663 .808 r F P 0 g s .54693 .52861 m .61326 .52089 L .6061 .50005 L p .68 .646 .809 r F P 0 g s .6061 .50005 m .54512 .50724 L .54693 .52861 L p .68 .646 .809 r F P 0 g s .39956 .58838 m .47365 .60003 L .47458 .57664 L p .757 .546 .611 r F P 0 g s .47458 .57664 m .40185 .56504 L .39956 .58838 L p .757 .546 .611 r F P 0 g s .47959 .52708 m .41426 .51634 L .40692 .5402 L p .743 .639 .745 r F P 0 g s .41426 .51634 m .47959 .52708 L .48318 .50582 L p .723 .682 .81 r F P 0 g s .54512 .50724 m .48318 .50582 L .47959 .52708 L p .702 .663 .808 r F P 0 g s .68569 .52737 m .61917 .54499 L .62326 .56996 L p .626 .497 .686 r F P 0 g s .61917 .54499 m .68569 .52737 L .67553 .50414 L p .643 .563 .749 r F P 0 g s .67553 .50414 m .61326 .52089 L .61917 .54499 L p .643 .563 .749 r F P 0 g s .54992 .60168 m .62509 .59332 L .62326 .56996 L p .659 .465 .611 r F P 0 g s .47396 .61928 m .54976 .62091 L .54992 .60168 L p .695 .427 .513 r F P 0 g s .54992 .60168 m .47365 .60003 L .47396 .61928 L p .695 .427 .513 r F P 0 g s .62509 .59332 m .54992 .60168 L .54976 .62091 L p .634 .376 .511 r F P 0 g s .69272 .55185 m .62326 .56996 L .62509 .59332 L p .602 .422 .611 r F P 0 g s .62326 .56996 m .69272 .55185 L .68569 .52737 L p .626 .497 .686 r F P 0 g s .61326 .52089 m .67553 .50414 L .66324 .48448 L p .656 .632 .814 r F P 0 g s .66324 .48448 m .6061 .50005 L .61326 .52089 L p .656 .632 .814 r F P 0 g s .40033 .60785 m .47396 .61928 L .47365 .60003 L p .752 .473 .509 r F P 0 g s .47365 .60003 m .39956 .58838 L .40033 .60785 L p .752 .473 .509 r F P 0 g s .48318 .50582 m .54512 .50724 L .54316 .4912 L p .675 .726 .888 r F P 0 g s .54512 .50724 m .6061 .50005 L .59838 .48463 L p .669 .722 .889 r F P 0 g s .59838 .48463 m .54316 .4912 L .54512 .50724 L p .669 .722 .889 r F P 0 g s .33454 .5438 m .40185 .56504 L .40692 .5402 L p .793 .636 .688 r F P 0 g s .40692 .5402 m .34249 .51954 L .33454 .5438 L p .793 .636 .688 r F P 0 g s .34249 .51954 m .40692 .5402 L .41426 .51634 L p .773 .672 .752 r F P 0 g s .48318 .50582 m .42315 .49582 L .41426 .51634 L p .723 .682 .81 r F P 0 g s .42315 .49582 m .48318 .50582 L .48705 .48989 L p .68 .732 .889 r F P 0 g s .54316 .4912 m .48705 .48989 L .48318 .50582 L p .675 .726 .888 r F P 0 g s .45599 .50182 m .46848 .50275 L s .41426 .51634 m .35399 .49671 L .34249 .51954 L p .773 .672 .752 r F P 0 g s .35399 .49671 m .41426 .51634 L .42315 .49582 L p .742 .705 .817 r F P 0 g s .33095 .56705 m .39956 .58838 L .40185 .56504 L p .806 .591 .611 r F P 0 g s .40185 .56504 m .33454 .5438 L .33095 .56705 L p .806 .591 .611 r F P 0 g s .62509 .59332 m .69588 .57513 L .69272 .55185 L p .602 .422 .611 r F P 0 g s .54976 .62091 m .62447 .6127 L .62509 .59332 L p .634 .376 .511 r F P 0 g s .69588 .57513 m .62509 .59332 L .62447 .6127 L p .561 .317 .503 r F P 0 g s .6061 .50005 m .66324 .48448 L .65003 .4704 L p .662 .719 .891 r F P 0 g s .65003 .4704 m .59838 .48463 L .6061 .50005 L p .662 .719 .891 r F P 0 g s .4755 .63235 m .54899 .63391 L .54976 .62091 L p .65 .282 .333 r F P 0 g s .54976 .62091 m .47396 .61928 L .4755 .63235 L p .65 .282 .333 r F P 0 g s .62447 .6127 m .54976 .62091 L .54899 .63391 L p .571 .215 .326 r F P 0 g s .42315 .49582 m .3679 .47757 L .35399 .49671 L p .742 .705 .817 r F P 0 g s .3679 .47757 m .42315 .49582 L .43271 .48076 L p .684 .738 .891 r F P 0 g s .48705 .48989 m .43271 .48076 L .42315 .49582 L p .68 .732 .889 r F P 0 g s .33216 .58691 m .40033 .60785 L .39956 .58838 L p .81 .52 .498 r F P 0 g s .39956 .58838 m .33095 .56705 L .33216 .58691 L p .81 .52 .498 r F P 0 g s .40414 .62136 m .4755 .63235 L .47396 .61928 L p .718 .333 .32 r F P 0 g s .47396 .61928 m .40033 .60785 L .40414 .62136 L p .718 .333 .32 r F P 0 g s .48705 .48989 m .54316 .4912 L .54127 .48226 L p .57 .802 .987 r F P 0 g s .54316 .4912 m .59838 .48463 L .5909 .47632 L p .599 .823 .985 r F P 0 g s .5909 .47632 m .54127 .48226 L .54316 .4912 L p .599 .823 .985 r F P 0 g s .74477 .50076 m .68569 .52737 L .69272 .55185 L p .573 .465 .693 r F P 0 g s .68569 .52737 m .74477 .50076 L .73069 .47889 L p .603 .543 .759 r F P 0 g s .73069 .47889 m .67553 .50414 L .68569 .52737 L p .603 .543 .759 r F P 0 g s .43271 .48076 m .48705 .48989 L .4908 .48108 L p .548 .778 .984 r F P 0 g s .54127 .48226 m .4908 .48108 L .48705 .48989 L p .57 .802 .987 r F P 0 g s .67553 .50414 m .73069 .47889 L .71368 .46104 L p .63 .622 .823 r F P 0 g s .71368 .46104 m .66324 .48448 L .67553 .50414 L p .63 .622 .823 r F P 0 g s .75453 .52447 m .69272 .55185 L .69588 .57513 L p .532 .373 .611 r F P 0 g s .69272 .55185 m .75453 .52447 L .74477 .50076 L p .573 .465 .693 r F P 0 g s .54899 .63391 m .6214 .62602 L .62447 .6127 L p .571 .215 .326 r F P 0 g s .69481 .59484 m .62447 .6127 L .6214 .62602 L p .47 .124 .297 r F P 0 g s .62447 .6127 m .69481 .59484 L .69588 .57513 L p .561 .317 .503 r F P 0 g s .59838 .48463 m .65003 .4704 L .63724 .46348 L p .633 .838 .979 r F P 0 g s .63724 .46348 m .5909 .47632 L .59838 .48463 L p .633 .838 .979 r F P 0 g s .27598 .51352 m .33454 .5438 L .34249 .51954 L p .833 .683 .696 r F P 0 g s .34249 .51954 m .28657 .49014 L .27598 .51352 L p .833 .683 .696 r F P 0 g s .28657 .49014 m .34249 .51954 L .35399 .49671 L p .802 .711 .764 r F P 0 g s .66324 .48448 m .71368 .46104 L .69545 .44905 L p .655 .717 .893 r F P 0 g s .69545 .44905 m .65003 .4704 L .66324 .48448 L p .655 .717 .893 r F P 0 g s .35399 .49671 m .30186 .46882 L .28657 .49014 L p .802 .711 .764 r F P 0 g s .30186 .46882 m .35399 .49671 L .3679 .47757 L p .759 .731 .827 r F P 0 g s .43271 .48076 m .38283 .46411 L .3679 .47757 L p .684 .738 .891 r F P 0 g s .38283 .46411 m .43271 .48076 L .44198 .47282 L p .536 .753 .976 r F P 0 g s .4908 .48108 m .44198 .47282 L .43271 .48076 L p .548 .778 .984 r F P 0 g s .33815 .60123 m .40414 .62136 L .40033 .60785 L p .78 .373 .281 r F P 0 g s .40033 .60785 m .33216 .58691 L .33815 .60123 L p .78 .373 .281 r F P 0 g s .27121 .53662 m .33095 .56705 L .33454 .5438 L p .857 .642 .61 r F P 0 g s .33454 .5438 m .27598 .51352 L .27121 .53662 L p .857 .642 .61 r F P 0 g s .69588 .57513 m .75892 .54762 L .75453 .52447 L p .532 .373 .611 r F P 0 g s .75892 .54762 m .69588 .57513 L .69481 .59484 L p .467 .24 .485 r F P 0 g s .47814 .63766 m .54765 .63914 L .54899 .63391 L p .441 0 0 r F P 0 g s .54899 .63391 m .4755 .63235 L .47814 .63766 L p .441 0 0 r F P 0 g s .6214 .62602 m .54899 .63391 L .54765 .63914 L p .33 0 0 r F P 0 g s .54142 .6339 m .57446 .63008 L s .41068 .6273 m .47814 .63766 L .4755 .63235 L p .51 0 0 r F P 0 g s .47339 .63345 m .49026 .63385 L s .4755 .63235 m .40414 .62136 L .41068 .6273 L p .51 0 0 r F P 0 g s .3679 .47757 m .32029 .45171 L .30186 .46882 L p .759 .731 .827 r F P 0 g s .32029 .45171 m .3679 .47757 L .38283 .46411 L p .688 .744 .895 r F P 0 g s .61907 .62335 m .63358 .61949 L s .4908 .48108 m .54127 .48226 L .53963 .48157 L p .049 .615 .769 r F P 0 g s .54127 .48226 m .5909 .47632 L .58446 .4762 L p .166 .705 .784 r F P 0 g s .58446 .4762 m .53963 .48157 L .54127 .48226 L p .166 .705 .784 r F P 0 g s .44198 .47282 m .4908 .48108 L .49404 .48051 L p 0 .562 .798 r F P 0 g s .49404 .48051 m .4908 .48108 L p .51451 .48132 L .049 .615 .769 r F P 0 g s .49404 .48051 m .49639 .48849 L p .46945 .47953 L .625 .122 .036 r F P 0 g s .44997 .47305 m .44198 .47282 L p .46731 .47656 L 0 .562 .798 r F P 0 g s .49404 .48051 m .44997 .47305 L p .46731 .47656 L 0 .562 .798 r F P 0 g s .44198 .47282 m .39727 .4578 L .38283 .46411 L p .536 .753 .976 r F P 0 g s .39727 .4578 m .44198 .47282 L .44997 .47305 L p .014 .541 .855 r F P 0 g s .44997 .47305 m .45576 .48165 L p .42907 .46881 L .672 .141 0 r F P 0 g s .40969 .4595 m .39727 .4578 L p .42297 .46524 L .014 .541 .855 r F P 0 g s .44997 .47305 m .40969 .4595 L p .42297 .46524 L .014 .541 .855 r F P 0 g s .35907 .43662 m .39727 .4578 L .40969 .4595 L p .09 .54 .907 r F P 0 g s .40969 .4595 m .41868 .46922 L p .39364 .45256 L .661 .108 0 r F P 0 g s .3754 .44042 m .35907 .43662 L p .3838 .4478 L .09 .54 .907 r F P 0 g s .40969 .4595 m .3754 .44042 L p .3838 .4478 L .09 .54 .907 r F P 0 g s .32965 .41017 m .35907 .43662 L .3754 .44042 L p .196 .543 .928 r F P 0 g s .34915 .41668 m .32965 .41017 L p .35205 .42498 L .196 .543 .928 r F P 0 g s .3754 .44042 m .34915 .41668 L p .35205 .42498 L .196 .543 .928 r F P 0 g s .34915 .41668 m .3754 .44042 L p .36522 .43149 L .515 0 0 r F P 0 g s .3632 .43006 m .34915 .41668 L p .36691 .43305 L .515 0 0 r F P 0 g s .3872 .45176 m .3632 .43006 L p .36691 .43305 L .515 0 0 r F P 0 g s .39727 .4578 m .35907 .43662 L .34003 .44056 L p .534 .729 .964 r F P 0 g s .3632 .43006 m .37017 .44901 L p .35905 .4267 L .824 .441 0 r F P 0 g s .34915 .41668 m .3632 .43006 L p .34563 .4066 L 0 .166 .7 r F P 0 g s .34833 .4052 m .33274 .38941 L p .34698 .40841 L 0 .166 .7 r F P 0 g s .3632 .43006 m .34833 .4052 L p .34698 .40841 L 0 .166 .7 r F P 0 g s .34833 .4052 m .3632 .43006 L p .35905 .4267 L .824 .441 0 r F P 0 g s .35605 .42549 m .34833 .4052 L p .35851 .42562 L .824 .441 0 r F P 0 g s .37017 .44901 m .35605 .42549 L p .35851 .42562 L .824 .441 0 r F P 0 g s .34003 .44056 m .38283 .46411 L .39727 .4578 L p .534 .729 .964 r F P 0 g s .30685 .41108 m .34003 .44056 L .35907 .43662 L p .54 .709 .949 r F P 0 g s .35907 .43662 m .32965 .41017 L .30685 .41108 L p .54 .709 .949 r F P 0 g s .35605 .42549 m .3549 .44819 L p .35346 .42537 L .902 .723 .219 r F P 0 g s .34833 .4052 m .35605 .42549 L p .34984 .4016 L 0 0 .41 r F P 0 g s .35187 .4003 m .34385 .37853 L p .34954 .40044 L 0 0 .41 r F P 0 g s .35605 .42549 m .35187 .4003 L p .34954 .40044 L 0 0 .41 r F P 0 g s .35187 .4003 m .35605 .42549 L p .35346 .42537 L .902 .723 .219 r F P 0 g s .35068 .42314 m .35187 .4003 L p .35333 .42329 L .902 .723 .219 r F P 0 g s .3549 .44819 m .35068 .42314 L p .35333 .42329 L .902 .723 .219 r F P 0 g s .38283 .46411 m .34003 .44056 L .32029 .45171 L p .688 .744 .895 r F P 0 g s .35068 .42314 m .34021 .44459 L p .34806 .42299 L .846 .896 .476 r F P 0 g s .35187 .4003 m .35068 .42314 L p .35433 .40016 L 0 0 .136 r F P 0 g s .35717 .3979 m .35834 .37492 L p .35466 .39807 L 0 0 .136 r F P 0 g s .35068 .42314 m .35717 .3979 L p .35466 .39807 L 0 0 .136 r F P 0 g s .35717 .3979 m .35068 .42314 L p .34806 .42299 L .846 .896 .476 r F P 0 g s .33274 .38941 m .34915 .41668 L p .34563 .4066 L 0 .166 .7 r F P 0 g s .31106 .37971 m .32965 .41017 L .34915 .41668 L p .302 .544 .916 r F P 0 g s .34915 .41668 m .33274 .38941 L .31106 .37971 L p .302 .544 .916 r F P 0 g s .34694 .41813 m .35717 .3979 L p .34848 .42183 L .846 .896 .476 r F P 0 g s .34021 .44459 m .34694 .41813 L p .34848 .42183 L .846 .896 .476 r F P 0 g s .34003 .44056 m .30685 .41108 L .28312 .41922 L p .689 .751 .899 r F P 0 g s .34694 .41813 m .32856 .43333 L p .34551 .41468 L .746 .98 .738 r F P 0 g s .35717 .3979 m .34694 .41813 L p .35966 .39774 L 0 0 0 r F P 0 g s .3651 .39313 m .3744 .37409 L p .36034 .39664 L 0 0 0 r F P 0 g s .34694 .41813 m .3651 .39313 L p .36034 .39664 L 0 0 0 r F P 0 g s .3651 .39313 m .34694 .41813 L p .34551 .41468 L .746 .98 .738 r F P 0 g s .3744 .37409 m .35717 .3979 L p .35966 .39774 L 0 0 0 r F P 0 g s .34834 .40594 m .3651 .39313 L p .34389 .41647 L .746 .98 .738 r F P 0 g s .32856 .43333 m .34834 .40594 L p .34389 .41647 L .746 .98 .738 r F P 0 g s .34385 .37853 m .34833 .4052 L p .34984 .4016 L 0 0 .41 r F P 0 g s .28561 .37701 m .30685 .41108 L .32965 .41017 L p .552 .692 .932 r F P 0 g s .32965 .41017 m .31106 .37971 L .28561 .37701 L p .552 .692 .932 r F P 0 g s .32761 .36009 m .33274 .38941 L .34833 .4052 L p .093 .295 .775 r F P 0 g s .34833 .4052 m .34385 .37853 L .32761 .36009 L p .093 .295 .775 r F P 0 g s .3505 .35163 m .34385 .37853 L .35187 .4003 L p .015 .075 .581 r F P 0 g s .35187 .4003 m .35834 .37492 L .3505 .35163 L p .015 .075 .581 r F P 0 g s .34834 .40594 m .32578 .41095 L p .35219 .39685 L .678 .961 .94 r F P 0 g s .3651 .39313 m .34834 .40594 L p .36953 .38986 L 0 0 0 r F P 0 g s .39393 .37133 m .3651 .39313 L p .36953 .38986 L 0 0 0 r F P 0 g s .35834 .37492 m .35187 .4003 L p .35433 .40016 L 0 0 .136 r F P 0 g s .37546 .35097 m .35834 .37492 L .35717 .3979 L p .032 0 .37 r F P 0 g s .35717 .3979 m .3744 .37409 L .37546 .35097 L p .032 0 .37 r F P 0 g s .40164 .35337 m .3744 .37409 L .3651 .39313 L p .047 0 .104 r F P 0 g s .3651 .39313 m .39393 .37133 L .40164 .35337 L p .047 0 .104 r F P 0 g s .38003 .38199 m .39393 .37133 L p .36751 .39139 L 0 0 0 r F P 0 g s .34834 .40594 m .38003 .38199 L p .36751 .39139 L 0 0 0 r F P 0 g s .43181 .35438 m .39393 .37133 L .38003 .38199 L p 0 0 0 r F P 0 g s .38003 .38199 m .36125 .38396 L p .39082 .37389 L .533 .918 .923 r F P 0 g s .38003 .38199 m .42184 .36332 L .43181 .35438 L p 0 0 0 r F P 0 g s .42184 .36332 m .38003 .38199 L p .39082 .37389 L .533 .918 .923 r F P 0 g s .38003 .38199 m .34834 .40594 L p .35219 .39685 L .678 .961 .94 r F P 0 g s .3754 .44042 m .3872 .45176 L p .36522 .43149 L .515 0 0 r F P 0 g s .3754 .44042 m .40969 .4595 L p .39364 .45256 L .661 .108 0 r F P 0 g s .40969 .4595 m .44997 .47305 L p .42907 .46881 L .672 .141 0 r F P 0 g s .44997 .47305 m .49404 .48051 L p .46945 .47953 L .625 .122 .036 r F P 0 g s .53963 .48157 m .49404 .48051 L p .51451 .48132 L .049 .615 .769 r F P 0 g s .65003 .4704 m .69545 .44905 L .67784 .44425 L p .666 .845 .968 r F P 0 g s .67784 .44425 m .63724 .46348 L .65003 .4704 L p .666 .845 .968 r F P 0 g s .27282 .55704 m .33216 .58691 L .33095 .56705 L p .87 .57 .476 r F P 0 g s .33095 .56705 m .27121 .53662 L .27282 .55704 L p .87 .57 .476 r F P 0 g s .54765 .63914 m .61613 .63169 L .6214 .62602 L p .33 0 0 r F P 0 g s .68952 .60886 m .6214 .62602 L .61613 .63169 L p .161 0 0 r F P 0 g s .6214 .62602 m .68952 .60886 L .69481 .59484 L p .47 .124 .297 r F P 0 g s .67686 .45809 m .67973 .45629 L s .5909 .47632 m .63724 .46348 L .62623 .46462 L p .335 .818 .835 r F P 0 g s .62623 .46462 m .58446 .4762 L .5909 .47632 L p .335 .818 .835 r F P 0 g s .75743 .56784 m .69481 .59484 L .68952 .60886 L p .324 0 .234 r F P 0 g s .69481 .59484 m .75743 .56784 L .75892 .54762 L p .467 .24 .485 r F P 0 g s .34839 .60836 m .41068 .6273 L .40414 .62136 L p .532 0 0 r F P 0 g s .40414 .62136 m .33815 .60123 L .34839 .60836 L p .532 0 0 r F P 0 g s .38959 .62132 m .39281 .62187 L s .79317 .46604 m .74477 .50076 L .75453 .52447 L p .507 .43 .704 r F P 0 g s .74477 .50076 m .79317 .46604 L .77566 .44601 L p .558 .525 .775 r F P 0 g s .77566 .44601 m .73069 .47889 L .74477 .50076 L p .558 .525 .775 r F P 0 g s .73069 .47889 m .77566 .44601 L .75459 .4306 L p .603 .615 .836 r F P 0 g s .75459 .4306 m .71368 .46104 L .73069 .47889 L p .603 .615 .836 r F P 0 g s .69143 .60231 m .69549 .60049 L s .48162 .6344 m .54589 .63577 L .54765 .63914 L p .293 .761 .942 r F P 0 g s .54765 .63914 m .47814 .63766 L .48162 .6344 L p .293 .761 .942 r F P 0 g s .61613 .63169 m .54765 .63914 L .54589 .63577 L p .37 .817 .946 r F P 0 g s .80532 .48868 m .75453 .52447 L .75892 .54762 L p .44 .311 .609 r F P 0 g s .75453 .52447 m .80532 .48868 L .79317 .46604 L p .507 .43 .704 r F P 0 g s .71368 .46104 m .75459 .4306 L .73207 .4214 L p .649 .716 .897 r F P 0 g s .73207 .4214 m .69545 .44905 L .71368 .46104 L p .649 .716 .897 r F P 0 g s .4193 .62481 m .48162 .6344 L .47814 .63766 L p .254 .715 .95 r F P 0 g s .47814 .63766 m .41068 .6273 L .4193 .62481 L p .254 .715 .95 r F P 0 g s .40621 .62415 m .41266 .62525 L s .2808 .57258 m .33815 .60123 L .33216 .58691 L p .833 .398 .201 r F P 0 g s .33216 .58691 m .27282 .55704 L .2808 .57258 L p .833 .398 .201 r F P 0 g s .49404 .48051 m .53963 .48157 L .53844 .48947 L p .548 .068 .068 r F P 0 g s .53963 .48157 m .58446 .4762 L .57978 .48454 L p .442 0 .052 r F P 0 g s .57978 .48454 m .53844 .48947 L .53963 .48157 L p .442 0 .052 r F P 0 g s .63724 .46348 m .67784 .44425 L .66273 .44729 L p .523 .918 .893 r F P 0 g s .66273 .44729 m .62623 .46462 L .63724 .46348 L p .523 .918 .893 r F P 0 g s .53844 .48947 m .49639 .48849 L .49404 .48051 L p .548 .068 .068 r F P 0 g s .2424 .453 m .28657 .49014 L .30186 .46882 L p .83 .755 .781 r F P 0 g s .30186 .46882 m .26089 .43368 L .2424 .453 L p .83 .755 .781 r F P 0 g s .26089 .43368 m .30186 .46882 L .32029 .45171 L p .773 .76 .842 r F P 0 g s .22956 .47522 m .27598 .51352 L .28657 .49014 L p .875 .739 .708 r F P 0 g s .28657 .49014 m .2424 .453 L .22956 .47522 L p .875 .739 .708 r F P 0 g s .54589 .63577 m .60918 .62887 L .61613 .63169 L p .37 .817 .946 r F P 0 g s .61613 .63169 m .68047 .61553 L .68952 .60886 L p .161 0 0 r F P 0 g s .68047 .61553 m .61613 .63169 L .60918 .62887 L p .473 .874 .959 r F P 0 g s .58446 .4762 m .62623 .46462 L .61825 .47391 L p .287 0 0 r F P 0 g s .61825 .47391 m .57978 .48454 L .58446 .4762 L p .287 0 0 r F P 0 g s .75009 .58293 m .68952 .60886 L .68047 .61553 L p 0 0 0 r F P 0 g s .68952 .60886 m .75009 .58293 L .75743 .56784 L p .324 0 .234 r F P 0 g s .75892 .54762 m .8108 .51164 L .80532 .48868 L p .44 .311 .609 r F P 0 g s .8108 .51164 m .75892 .54762 L .75743 .56784 L p .328 .128 .449 r F P 0 g s .69545 .44905 m .73207 .4214 L .71039 .41942 L p .694 .843 .954 r F P 0 g s .71039 .41942 m .67784 .44425 L .69545 .44905 L p .694 .843 .954 r F P 0 g s .32029 .45171 m .28312 .41922 L .26089 .43368 L p .773 .76 .842 r F P 0 g s .28312 .41922 m .32029 .45171 L .34003 .44056 L p .689 .751 .899 r F P 0 g s .49639 .48849 m .45576 .48165 L .44997 .47305 L p .625 .122 .036 r F P 0 g s .22376 .4981 m .27121 .53662 L .27598 .51352 L p .913 .705 .607 r F P 0 g s .27598 .51352 m .22956 .47522 L .22376 .4981 L p .913 .705 .607 r F P 0 g s .36189 .60729 m .4193 .62481 L .41068 .6273 L p .254 .682 .963 r F P 0 g s .41068 .6273 m .34839 .60836 L .36189 .60729 L p .254 .682 .963 r F P 0 g s .37923 .61774 m .38959 .62132 L s .29442 .58142 m .34839 .60836 L .33815 .60123 L p .476 0 0 r F P 0 g s .34268 .6051 m .35142 .60812 L s .33815 .60123 m .2808 .57258 L .29442 .58142 L p .476 0 0 r F P 0 g s .48558 .62268 m .54389 .62393 L .54589 .63577 L p .624 .779 .955 r F P 0 g s .54589 .63577 m .48162 .6344 L .48558 .62268 L p .624 .779 .955 r F P 0 g s .60918 .62887 m .54589 .63577 L .54389 .62393 L p .633 .785 .955 r F P 0 g s .4291 .61392 m .48558 .62268 L .48162 .6344 L p .617 .772 .954 r F P 0 g s .48162 .6344 m .4193 .62481 L .4291 .61392 L p .617 .772 .954 r F P 0 g s .62623 .46462 m .66273 .44729 L .6518 .45804 L p .048 0 0 r F P 0 g s .6518 .45804 m .61825 .47391 L .62623 .46462 L p .048 0 0 r F P 0 g s .49639 .48849 m .53844 .48947 L .53785 .50533 L p .673 .344 .41 r F P 0 g s .53844 .48947 m .57978 .48454 L .57745 .50065 L p .597 .281 .405 r F P 0 g s .57745 .50065 m .53785 .50533 L .53844 .48947 L p .597 .281 .405 r F P 0 g s .22572 .51924 m .27282 .55704 L .27121 .53662 L p .934 .624 .43 r F P 0 g s .27121 .53662 m .22376 .4981 L .22572 .51924 L p .934 .624 .43 r F P 0 g s .45576 .48165 m .49639 .48849 L .49756 .5044 L p .74 .397 .4 r F P 0 g s .53785 .50533 m .49756 .5044 L .49639 .48849 L p .673 .344 .41 r F P 0 g s .80895 .53252 m .75743 .56784 L .75009 .58293 L p .087 0 .105 r F P 0 g s .75743 .56784 m .80895 .53252 L .8108 .51164 L p .328 .128 .449 r F P 0 g s .7545 .5723 m .76499 .56484 L s .67784 .44425 m .71039 .41942 L .69185 .42497 L p .683 .969 .925 r F P 0 g s .69185 .42497 m .66273 .44729 L .67784 .44425 L p .683 .969 .925 r F P 0 g s .45576 .48165 m .41868 .46922 L .40969 .4595 L p .672 .141 0 r F P 0 g s .54389 .62393 m .60128 .61763 L .60918 .62887 L p .633 .785 .955 r F P 0 g s .66854 .61392 m .60918 .62887 L .60128 .61763 L p .642 .789 .953 r F P 0 g s .60918 .62887 m .66854 .61392 L .68047 .61553 L p .473 .874 .959 r F P 0 g s .68047 .61553 m .73753 .59115 L .75009 .58293 L p 0 0 0 r F P 0 g s .73753 .59115 m .68047 .61553 L .66854 .61392 L p .582 .917 .969 r F P 0 g s .57978 .48454 m .61825 .47391 L .61428 .49057 L p .502 .199 .384 r F P 0 g s .61428 .49057 m .57745 .50065 L .57978 .48454 L p .502 .199 .384 r F P 0 g s .8075 .4068 m .77566 .44601 L .79317 .46604 L p .504 .51 .796 r F P 0 g s .77566 .44601 m .8075 .4068 L .78327 .39444 L p .575 .614 .854 r F P 0 g s .78327 .39444 m .75459 .4306 L .77566 .44601 L p .575 .614 .854 r F P 0 g s .41868 .46922 m .45576 .48165 L .45864 .4979 L p .805 .444 .373 r F P 0 g s .49756 .5044 m .45864 .4979 L .45576 .48165 L p .74 .397 .4 r F P 0 g s .3772 .59794 m .4291 .61392 L .4193 .62481 L p .613 .764 .952 r F P 0 g s .4193 .62481 m .36189 .60729 L .3772 .59794 L p .613 .764 .952 r F P 0 g s .75459 .4306 m .78327 .39444 L .75748 .38867 L p .643 .717 .902 r F P 0 g s .75748 .38867 m .73207 .4214 L .75459 .4306 L p .643 .717 .902 r F P 0 g s .8277 .42452 m .79317 .46604 L .80532 .48868 L p .42 .39 .719 r F P 0 g s .79317 .46604 m .8277 .42452 L .8075 .4068 L p .504 .51 .796 r F P 0 g s .2354 .53634 m .2808 .57258 L .27282 .55704 L p .849 .388 .039 r F P 0 g s .27282 .55704 m .22572 .51924 L .2354 .53634 L p .849 .388 .039 r F P 0 g s .31233 .58244 m .36189 .60729 L .34839 .60836 L p .287 .659 .97 r F P 0 g s .34839 .60836 m .29442 .58142 L .31233 .58244 L p .287 .659 .97 r F P 0 g s .32906 .60039 m .34001 .60417 L s .48958 .60362 m .54187 .60476 L .54389 .62393 L p .689 .701 .856 r F P 0 g s .54389 .62393 m .48558 .62268 L .48958 .60362 L p .689 .701 .856 r F P 0 g s .60128 .61763 m .54389 .62393 L .54187 .60476 L p .673 .688 .857 r F P 0 g s .43898 .59567 m .48958 .60362 L .48558 .62268 L p .704 .716 .858 r F P 0 g s .48558 .62268 m .4291 .61392 L .43898 .59567 L p .704 .716 .858 r F P 0 g s .49756 .5044 m .53785 .50533 L .53794 .52751 L p .703 .461 .555 r F P 0 g s .53785 .50533 m .57745 .50065 L .57779 .52287 L p .643 .413 .554 r F P 0 g s .57779 .52287 m .53794 .52751 L .53785 .50533 L p .643 .413 .554 r F P 0 g s .61825 .47391 m .6518 .45804 L .64636 .47551 L p .367 .079 .338 r F P 0 g s .64636 .47551 m .61428 .49057 L .61825 .47391 L p .367 .079 .338 r F P 0 g s .73207 .4214 m .75748 .38867 L .73276 .39012 L p .716 .835 .938 r F P 0 g s .73276 .39012 m .71039 .41942 L .73207 .4214 L p .716 .835 .938 r F P 0 g s .75009 .58293 m .79979 .54907 L .80895 .53252 L p .087 0 .105 r F P 0 g s .79979 .54907 m .75009 .58293 L .73753 .59115 L p .415 .818 .608 r F P 0 g s .84175 .4458 m .80532 .48868 L .8108 .51164 L p .302 .223 .599 r F P 0 g s .80532 .48868 m .84175 .4458 L .8277 .42452 L p .42 .39 .719 r F P 0 g s .66864 .44276 m .69185 .42497 L .67846 .43763 L p 0 0 0 r F P 0 g s .71167 .39872 m .69185 .42497 L .71039 .41942 L p .783 .963 .923 r F P 0 g s .69185 .42497 m .71167 .39872 L .6965 .41368 L p .695 .94 .644 r F P 0 g s .6965 .41368 m .67846 .43763 L .69185 .42497 L p .695 .94 .644 r F P 0 g s .67846 .43763 m .6965 .41368 L .68963 .4318 L p 0 0 .031 r F P 0 g s .68963 .4318 m .68898 .43351 L p .67846 .43763 L 0 0 .031 r F P 0 g s .66273 .44729 m .66864 .44276 L p .67846 .43763 L 0 0 0 r F P 0 g s .67846 .43763 m .6518 .45804 L .66273 .44729 L p 0 0 0 r F P 0 g s .45864 .4979 m .49756 .5044 L .49738 .52659 L p .759 .508 .553 r F P 0 g s .53794 .52751 m .49738 .52659 L .49756 .5044 L p .703 .461 .555 r F P 0 g s .21311 .40961 m .2424 .453 L .26089 .43368 L p .854 .808 .804 r F P 0 g s .26089 .43368 m .23399 .39276 L .21311 .40961 L p .854 .808 .804 r F P 0 g s .23399 .39276 m .26089 .43368 L .28312 .41922 L p .782 .791 .86 r F P 0 g s .54187 .60476 m .59331 .59904 L .60128 .61763 L p .673 .688 .857 r F P 0 g s .65499 .60399 m .60128 .61763 L .59331 .59904 L p .654 .679 .861 r F P 0 g s .60128 .61763 m .65499 .60399 L .66854 .61392 L p .642 .789 .953 r F P 0 g s .57745 .50065 m .61428 .49057 L .61487 .51285 L p .573 .358 .55 r F P 0 g s .61487 .51285 m .57779 .52287 L .57745 .50065 L p .573 .358 .55 r F P 0 g s .41868 .46922 m .3872 .45176 L .3754 .44042 L p .661 .108 0 r F P 0 g s .3872 .45176 m .41868 .46922 L .42316 .48611 L p .868 .485 .313 r F P 0 g s .45864 .4979 m .42316 .48611 L .41868 .46922 L p .805 .444 .373 r F P 0 g s .28312 .41922 m .25901 .38152 L .23399 .39276 L p .782 .791 .86 r F P 0 g s .24772 .41512 m .25396 .42234 L s .25901 .38152 m .28312 .41922 L .30685 .41108 L p .689 .757 .904 r F P 0 g s .721 .59141 m .66854 .61392 L .65499 .60399 L p .652 .791 .949 r F P 0 g s .66854 .61392 m .721 .59141 L .73753 .59115 L p .582 .917 .969 r F P 0 g s .19857 .43038 m .22956 .47522 L .2424 .453 L p .917 .809 .724 r F P 0 g s .2424 .453 m .21311 .40961 L .19857 .43038 L p .917 .809 .724 r F P 0 g s .42316 .48611 m .45864 .4979 L .45821 .52014 L p .816 .557 .547 r F P 0 g s .49738 .52659 m .45821 .52014 L .45864 .4979 L p .759 .508 .553 r F P 0 g s .3926 .58121 m .43898 .59567 L .4291 .61392 L p .718 .733 .863 r F P 0 g s .4291 .61392 m .3772 .59794 L .3926 .58121 L p .718 .733 .863 r F P 0 g s .49315 .57931 m .54007 .58034 L .54187 .60476 L p .708 .64 .779 r F P 0 g s .54187 .60476 m .48958 .60362 L .49315 .57931 L p .708 .64 .779 r F P 0 g s .59331 .59904 m .54187 .60476 L .54007 .58034 L p .678 .617 .78 r F P 0 g s .71039 .41942 m .73276 .39012 L .71167 .39872 L p .783 .963 .923 r F P 0 g s .30685 .41108 m .28561 .37701 L .25901 .38152 L p .689 .757 .904 r F P 0 g s .8108 .51164 m .8481 .46848 L .84175 .4458 L p .302 .223 .599 r F P 0 g s .8481 .46848 m .8108 .51164 L .80895 .53252 L p .095 0 .368 r F P 0 g s .44778 .57207 m .49315 .57931 L .48958 .60362 L p .736 .666 .781 r F P 0 g s .48958 .60362 m .43898 .59567 L .44778 .57207 L p .736 .666 .781 r F P 0 g s .49738 .52659 m .53794 .52751 L .53871 .55354 L p .712 .532 .643 r F P 0 g s .53794 .52751 m .57779 .52287 L .58082 .5487 L p .663 .493 .644 r F P 0 g s .58082 .5487 m .53871 .55354 L .53794 .52751 L p .663 .493 .644 r F P 0 g s .25191 .54745 m .29442 .58142 L .2808 .57258 L p 0 .213 .674 r F P 0 g s .2808 .57258 m .2354 .53634 L .25191 .54745 L p 0 .213 .674 r F P 0 g s .45821 .52014 m .49738 .52659 L .49585 .55258 L p .759 .572 .644 r F P 0 g s .53871 .55354 m .49585 .55258 L .49738 .52659 L p .712 .532 .643 r F P 0 g s .3326 .57534 m .3772 .59794 L .36189 .60729 L p .611 .756 .948 r F P 0 g s .36189 .60729 m .31233 .58244 L .3326 .57534 L p .611 .756 .948 r F P 0 g s .31162 .59 m .32906 .60039 L s .19198 .45296 m .22376 .4981 L .22956 .47522 L p .971 .782 .592 r F P 0 g s .22956 .47522 m .19857 .43038 L .19198 .45296 L p .971 .782 .592 r F P 0 g s .47637 .53094 m .51425 .54091 L s .51605 .54123 m .55453 .54578 L s .61428 .49057 m .64636 .47551 L .64717 .49789 L p .483 .288 .539 r F P 0 g s .64717 .49789 m .61487 .51285 L .61428 .49057 L p .483 .288 .539 r F P 0 g s .78416 .55937 m .73753 .59115 L .721 .59141 L p .674 .935 .968 r F P 0 g s .73753 .59115 m .78416 .55937 L .79979 .54907 L p .415 .818 .608 r F P 0 g s .54007 .58034 m .58621 .57514 L .59331 .59904 L p .678 .617 .78 r F P 0 g s .64136 .58668 m .59331 .59904 L .58621 .57514 L p .645 .597 .786 r F P 0 g s .59331 .59904 m .64136 .58668 L .65499 .60399 L p .654 .679 .861 r F P 0 g s .6518 .45804 m .67846 .43763 L .67182 .45618 L p .149 0 .24 r F P 0 g s .67182 .45618 m .64636 .47551 L .6518 .45804 L p .149 0 .24 r F P 0 g s .57779 .52287 m .61487 .51285 L .62004 .53828 L p .608 .453 .646 r F P 0 g s .62004 .53828 m .58082 .5487 L .57779 .52287 L p .608 .453 .646 r F P 0 g s .49585 .55258 m .53871 .55354 L .54007 .58034 L p .714 .587 .712 r F P 0 g s .54007 .58034 m .49315 .57931 L .49585 .55258 L p .714 .587 .712 r F P 0 g s .58621 .57514 m .54007 .58034 L .53871 .55354 L p .673 .556 .713 r F P 0 g s .53871 .55354 m .58082 .5487 L .58621 .57514 L p .673 .556 .713 r F P 0 g s .45446 .54586 m .49585 .55258 L .49315 .57931 L p .752 .621 .715 r F P 0 g s .49315 .57931 m .44778 .57207 L .45446 .54586 L p .752 .621 .715 r F P 0 g s .49585 .55258 m .45446 .54586 L .45821 .52014 L p .759 .572 .644 r F P 0 g s .46006 .52437 m .47139 .52926 L s .45821 .52014 m .42249 .50843 L .42316 .48611 L p .816 .557 .547 r F P 0 g s .42249 .50843 m .45821 .52014 L .45446 .54586 L p .806 .618 .647 r F P 0 g s .44433 .51759 m .45329 .52145 L s .45329 .52145 m .46006 .52437 L s .7023 .58349 m .65499 .60399 L .64136 .58668 L p .635 .672 .868 r F P 0 g s .65499 .60399 m .7023 .58349 L .721 .59141 L p .652 .791 .949 r F P 0 g s .42316 .48611 m .39306 .46956 L .3872 .45176 L p .868 .485 .313 r F P 0 g s .39306 .46956 m .42316 .48611 L .42249 .50843 L p .877 .612 .534 r F P 0 g s .4063 .55892 m .44778 .57207 L .43898 .59567 L p .763 .697 .789 r F P 0 g s .43898 .59567 m .3926 .58121 L .4063 .55892 L p .763 .697 .789 r F P 0 g s .62923 .56389 m .58621 .57514 L .58082 .5487 L p .63 .527 .719 r F P 0 g s .58621 .57514 m .62923 .56389 L .64136 .58668 L p .645 .597 .786 r F P 0 g s .58082 .5487 m .62004 .53828 L .62923 .56389 L p .63 .527 .719 r F P 0 g s .56328 .54609 m .58865 .54555 L s .58865 .54555 m .59096 .5455 L s .3632 .43006 m .3872 .45176 L .39306 .46956 L p .91 .506 .187 r F P 0 g s .84595 .49019 m .80895 .53252 L .79979 .54907 L p 0 0 0 r F P 0 g s .80895 .53252 m .84595 .49019 L .8481 .46848 L p .095 0 .368 r F P 0 g s .19421 .47496 m .22572 .51924 L .22376 .4981 L p .975 .668 .321 r F P 0 g s .22376 .4981 m .19198 .45296 L .19421 .47496 L p .975 .668 .321 r F P 0 g s .45446 .54586 m .41666 .53367 L .42249 .50843 L p .806 .618 .647 r F P 0 g s .41666 .53367 m .45446 .54586 L .44778 .57207 L p .789 .66 .721 r F P 0 g s .44778 .57207 m .4063 .55892 L .41666 .53367 L p .789 .66 .721 r F P 0 g s .42833 .50905 m .43017 .51025 L s .35292 .56078 m .3926 .58121 L .3772 .59794 L p .728 .752 .871 r F P 0 g s .3772 .59794 m .3326 .57534 L .35292 .56078 L p .728 .752 .871 r F P 0 g s .27354 .55118 m .31233 .58244 L .29442 .58142 L p .339 .641 .964 r F P 0 g s .29442 .58142 m .25191 .54745 L .27354 .55118 L p .339 .641 .964 r F P 0 g s .28669 .57517 m .28927 .5767 L s .28064 .57156 m .28669 .57517 L s .61487 .51285 m .64717 .49789 L .65425 .5227 L p .541 .409 .649 r F P 0 g s .65425 .5227 m .62004 .53828 L .61487 .51285 L p .541 .409 .649 r F P 0 g s .60779 .54412 m .61622 .54267 L s .79734 .35426 m .78327 .39444 L .8075 .4068 L p .544 .617 .875 r F P 0 g s .78327 .39444 m .79734 .35426 L .76961 .35246 L p .638 .72 .907 r F P 0 g s .76961 .35246 m .75748 .38867 L .78327 .39444 L p .638 .72 .907 r F P 0 g s .68351 .56814 m .64136 .58668 L .62923 .56389 L p .609 .581 .797 r F P 0 g s .64136 .58668 m .68351 .56814 L .7023 .58349 L p .635 .672 .868 r F P 0 g s .76366 .56214 m .721 .59141 L .7023 .58349 L p .661 .792 .944 r F P 0 g s .721 .59141 m .76366 .56214 L .78416 .55937 L p .674 .935 .968 r F P 0 g s .64636 .47551 m .67182 .45618 L .6728 .47868 L p .352 .19 .517 r F P 0 g s .6728 .47868 m .64717 .49789 L .64636 .47551 L p .352 .19 .517 r F P 0 g s .82351 .36308 m .8075 .4068 L .8277 .42452 L p .437 .498 .824 r F P 0 g s .8075 .4068 m .82351 .36308 L .79734 .35426 L p .544 .617 .875 r F P 0 g s .42249 .50843 m .39219 .49198 L .39306 .46956 L p .877 .612 .534 r F P 0 g s .39219 .49198 m .42249 .50843 L .41666 .53367 L p .856 .671 .651 r F P 0 g s .41889 .5029 m .42833 .50905 L s .40693 .49511 m .41889 .5029 L s .75748 .38867 m .76961 .35246 L .74314 .35785 L p .73 .82 .921 r F P 0 g s .74314 .35785 m .73276 .39012 L .75748 .38867 L p .73 .82 .921 r F P 0 g s .62004 .53828 m .65425 .5227 L .66684 .54706 L p .579 .498 .728 r F P 0 g s .66684 .54706 m .62923 .56389 L .62004 .53828 L p .579 .498 .728 r F P 0 g s .61622 .54267 m .63975 .53862 L s .62923 .56389 m .66684 .54706 L .68351 .56814 L p .609 .581 .797 r F P 0 g s .37094 .54039 m .4063 .55892 L .3926 .58121 L p .788 .732 .801 r F P 0 g s .3926 .58121 m .35292 .56078 L .37094 .54039 L p .788 .732 .801 r F P 0 g s .84541 .37805 m .8277 .42452 L .84175 .4458 L p .295 .337 .735 r F P 0 g s .8277 .42452 m .84541 .37805 L .82351 .36308 L p .437 .498 .824 r F P 0 g s .39306 .46956 m .37017 .44901 L .3632 .43006 L p .91 .506 .187 r F P 0 g s .37017 .44901 m .39306 .46956 L .39219 .49198 L p .942 .676 .504 r F P 0 g s .68898 .43351 m .67182 .45618 L .67846 .43763 L p 0 0 .031 r F P 0 g s .79979 .54907 m .83535 .50853 L .84595 .49019 L p 0 0 0 r F P 0 g s .83535 .50853 m .79979 .54907 L .78416 .55937 L p .709 .979 .778 r F P 0 g s .80605 .53465 m .82247 .51536 L s .20518 .49397 m .2354 .53634 L .22572 .51924 L p .71 .277 0 r F P 0 g s .22572 .51924 m .19421 .47496 L .20518 .49397 L p .71 .277 0 r F P 0 g s .41666 .53367 m .38455 .51653 L .39219 .49198 L p .856 .671 .651 r F P 0 g s .38455 .51653 m .41666 .53367 L .4063 .55892 L p .826 .706 .732 r F P 0 g s .73276 .39012 m .74314 .35785 L .72065 .3699 L p .827 .922 .898 r F P 0 g s .72065 .3699 m .71167 .39872 L .73276 .39012 L p .827 .922 .898 r F P 0 g s .4063 .55892 m .37094 .54039 L .38455 .51653 L p .826 .706 .732 r F P 0 g s .29793 .54699 m .3326 .57534 L .31233 .58244 L p .611 .748 .943 r F P 0 g s .31233 .58244 m .27354 .55118 L .29793 .54699 L p .611 .748 .943 r F P 0 g s .27534 .56598 m .28064 .57156 L s .22371 .34803 m .23399 .39276 L .25901 .38152 L p .783 .823 .883 r F P 0 g s .25901 .38152 m .2502 .34047 L .22371 .34803 L p .783 .823 .883 r F P 0 g s .2502 .34047 m .25901 .38152 L .28561 .37701 L p .688 .763 .909 r F P 0 g s .74052 .55692 m .7023 .58349 L .68351 .56814 L p .615 .669 .879 r F P 0 g s .7023 .58349 m .74052 .55692 L .76366 .56214 L p .661 .792 .944 r F P 0 g s .64717 .49789 m .6728 .47868 L .68146 .50266 L p .453 .355 .654 r F P 0 g s .68146 .50266 m .65425 .5227 L .64717 .49789 L p .453 .355 .654 r F P 0 g s .28561 .37701 m .27823 .34007 L .2502 .34047 L p .688 .763 .909 r F P 0 g s .27823 .34007 m .28561 .37701 L .31106 .37971 L p .568 .679 .915 r F P 0 g s .86068 .39771 m .84175 .4458 L .8481 .46848 L p .069 .08 .561 r F P 0 g s .84175 .4458 m .86068 .39771 L .84541 .37805 L p .295 .337 .735 r F P 0 g s .20151 .36202 m .21311 .40961 L .23399 .39276 L p .869 .868 .834 r F P 0 g s .23399 .39276 m .22371 .34803 L .20151 .36202 L p .869 .868 .834 r F P 0 g s .39219 .49198 m .36913 .47156 L .37017 .44901 L p .942 .676 .504 r F P 0 g s .36913 .47156 m .39219 .49198 L .38455 .51653 L p .909 .736 .655 r F P 0 g s .39839 .48793 m .40188 .49139 L s .71167 .39872 m .72065 .3699 L .70452 .38744 L p .897 .988 .763 r F P 0 g s .70452 .38744 m .6965 .41368 L .71167 .39872 L p .897 .988 .763 r F P 0 g s .31106 .37971 m .30494 .34683 L .27823 .34007 L p .568 .679 .915 r F P 0 g s .30494 .34683 m .31106 .37971 L .33274 .38941 L p .393 .546 .888 r F P 0 g s .71737 .54419 m .68351 .56814 L .66684 .54706 L p .569 .568 .813 r F P 0 g s .68351 .56814 m .71737 .54419 L .74052 .55692 L p .615 .669 .879 r F P 0 g s .65425 .5227 m .68146 .50266 L .69689 .52538 L p .518 .47 .742 r F P 0 g s .69689 .52538 m .66684 .54706 L .65425 .5227 L p .518 .47 .742 r F P 0 g s .67182 .45618 m .68898 .43351 L .6901 .45616 L p .135 .031 .461 r F P 0 g s .6901 .45616 m .6728 .47868 L .67182 .45618 L p .135 .031 .461 r F P 0 g s .18601 .38109 m .19857 .43038 L .21311 .40961 L p .949 .893 .739 r F P 0 g s .21311 .40961 m .20151 .36202 L .18601 .38109 L p .949 .893 .739 r F P 0 g s .8173 .52142 m .78416 .55937 L .76366 .56214 L p .739 .925 .953 r F P 0 g s .78416 .55937 m .8173 .52142 L .83535 .50853 L p .709 .979 .778 r F P 0 g s .22385 .50782 m .25191 .54745 L .2354 .53634 L p 0 .325 .809 r F P 0 g s .2354 .53634 m .20518 .49397 L .22385 .50782 L p 0 .325 .809 r F P 0 g s .3223 .53527 m .35292 .56078 L .3326 .57534 L p .735 .772 .883 r F P 0 g s .3326 .57534 m .29793 .54699 L .3223 .53527 L p .735 .772 .883 r F P 0 g s .66684 .54706 m .69689 .52538 L .71737 .54419 L p .569 .568 .813 r F P 0 g s .67053 .52795 m .67739 .52549 L s .64256 .53794 m .67053 .52795 L s .8481 .46848 m .86761 .42004 L .86068 .39771 L p .069 .08 .561 r F P 0 g s .86761 .42004 m .8481 .46848 L .84595 .49019 L p 0 0 .172 r F P 0 g s .38455 .51653 m .36005 .49522 L .36913 .47156 L p .909 .736 .655 r F P 0 g s .37746 .46722 m .39839 .48793 L s .36005 .49522 m .38455 .51653 L .37094 .54039 L p .864 .762 .748 r F P 0 g s .35605 .42549 m .37017 .44901 L .36913 .47156 L p .992 .741 .427 r F P 0 g s .36857 .45258 m .37736 .4671 L s .34383 .51731 m .37094 .54039 L .35292 .56078 L p .81 .773 .819 r F P 0 g s .35292 .56078 m .3223 .53527 L .34383 .51731 L p .81 .773 .819 r F P 0 g s .33274 .38941 m .32761 .36009 L .30494 .34683 L p .393 .546 .888 r F P 0 g s .17898 .40328 m .19198 .45296 L .19857 .43038 L p .996 .859 .534 r F P 0 g s .19857 .43038 m .18601 .38109 L .17898 .40328 L p .996 .859 .534 r F P 0 g s .37094 .54039 m .34383 .51731 L .36005 .49522 L p .864 .762 .748 r F P 0 g s .6948 .40616 m .69505 .40829 L p .69654 .40872 L .773 .589 .019 r F P 0 g s .6965 .41368 m .6979 .40911 L p .69654 .40872 L .739 .793 .308 r F P 0 g s .69654 .40872 m .68898 .43351 L .6965 .41368 L p .739 .793 .308 r F P 0 g s .68898 .43351 m .69654 .40872 L .69772 .43151 L p 0 0 .309 r F P 0 g s .69505 .40829 m .69772 .43151 L .69654 .40872 L p .773 .589 .019 r F P 0 g s .6979 .40911 m .70452 .38744 L .69654 .40872 L p .739 .793 .308 r F P 0 g s .6728 .47868 m .6901 .45616 L .69989 .47914 L p .324 .281 .655 r F P 0 g s .69989 .47914 m .68146 .50266 L .6728 .47868 L p .324 .281 .655 r F P 0 g s .79369 .52731 m .76366 .56214 L .74052 .55692 L p .669 .79 .939 r F P 0 g s .76366 .56214 m .79369 .52731 L .8173 .52142 L p .739 .925 .953 r F P 0 g s .24824 .51485 m .27354 .55118 L .25191 .54745 L p .398 .627 .946 r F P 0 g s .25998 .54978 m .27534 .56598 L s .25191 .54745 m .22385 .50782 L .24824 .51485 L p .398 .627 .946 r F P 0 g s .84595 .49019 m .86526 .44267 L .86761 .42004 L p 0 0 .172 r F P 0 g s .86526 .44267 m .84595 .49019 L .83535 .50853 L p .769 .884 .468 r F P 0 g s .76691 .31478 m .76961 .35246 L .79734 .35426 L p .634 .724 .913 r F P 0 g s .76961 .35246 m .76691 .31478 L .74026 .3244 L p .737 .802 .904 r F P 0 g s .74026 .3244 m .74314 .35785 L .76961 .35246 L p .737 .802 .904 r F P 0 g s .79496 .31227 m .79734 .35426 L .82351 .36308 L p .514 .627 .9 r F P 0 g s .79734 .35426 m .79496 .31227 L .76691 .31478 L p .634 .724 .913 r F P 0 g s .36913 .47156 m .3549 .44819 L .35605 .42549 L p .992 .741 .427 r F P 0 g s .3549 .44819 m .36913 .47156 L .36005 .49522 L p .962 .817 .653 r F P 0 g s .36116 .44035 m .36857 .45258 L s .74314 .35785 m .74026 .3244 L .71771 .34015 L p .836 .869 .868 r F P 0 g s .71771 .34015 m .72065 .3699 L .74314 .35785 L p .836 .869 .868 r F P 0 g s .18136 .42624 m .19421 .47496 L .19198 .45296 L p .851 .607 .067 r F P 0 g s .19198 .45296 m .17898 .40328 L .18136 .42624 L p .851 .607 .067 r F P 0 g s .68146 .50266 m .69989 .47914 L .7174 .49985 L p .438 .438 .762 r F P 0 g s .7174 .49985 m .69689 .52538 L .68146 .50266 L p .438 .438 .762 r F P 0 g s .67739 .52549 m .69644 .51347 L s .76715 .52542 m .74052 .55692 L .71737 .54419 L p .595 .67 .892 r F P 0 g s .74052 .55692 m .76715 .52542 L .79369 .52731 L p .669 .79 .939 r F P 0 g s .69772 .43151 m .6901 .45616 L .68898 .43351 L p 0 0 .309 r F P 0 g s .82155 .31718 m .82351 .36308 L .84541 .37805 L p .352 .488 .856 r F P 0 g s .82351 .36308 m .82155 .31718 L .79496 .31227 L p .514 .627 .9 r F P 0 g s .27562 .51418 m .29793 .54699 L .27354 .55118 L p .613 .742 .937 r F P 0 g s .27354 .55118 m .24824 .51485 L .27562 .51418 L p .613 .742 .937 r F P 0 g s .24744 .53657 m .25848 .5482 L s .69689 .52538 m .7174 .49985 L .74071 .51591 L p .522 .559 .834 r F P 0 g s .69644 .51347 m .7035 .50902 L s .74071 .51591 m .71737 .54419 L .69689 .52538 L p .522 .559 .834 r F P 0 g s .71737 .54419 m .74071 .51591 L .76715 .52542 L p .595 .67 .892 r F P 0 g s .35565 .42163 m .35686 .42637 L s .35416 .41582 m .35565 .42163 L s .35688 .42644 m .35767 .42955 L s .35686 .42637 m .35688 .42644 L s .35767 .42955 m .35959 .43706 L s .72065 .3699 m .71771 .34015 L .70158 .36043 L p .932 .918 .778 r F P 0 g s .70158 .36043 m .70452 .38744 L .72065 .3699 L p .932 .918 .778 r F P 0 g s .36005 .49522 m .34484 .4708 L .3549 .44819 L p .962 .817 .653 r F P 0 g s .34484 .4708 m .36005 .49522 L .34383 .51731 L p .899 .83 .769 r F P 0 g s .74116 .33602 m .74338 .34111 L s .25826 .29844 m .2502 .34047 L .27823 .34007 L p .684 .768 .915 r F P 0 g s .27823 .34007 m .28602 .30241 L .25826 .29844 L p .684 .768 .915 r F P 0 g s .28602 .30241 m .27823 .34007 L .30494 .34683 L p .586 .671 .898 r F P 0 g s .85372 .46312 m .83535 .50853 L .8173 .52142 L p .858 .99 .839 r F P 0 g s .83535 .50853 m .85372 .46312 L .86526 .44267 L p .769 .884 .468 r F P 0 g s .30494 .34683 m .31235 .31346 L .28602 .30241 L p .586 .671 .898 r F P 0 g s .31235 .31346 m .30494 .34683 L .32761 .36009 L p .466 .55 .858 r F P 0 g s .84389 .3291 m .84541 .37805 L .86068 .39771 L p .098 .257 .739 r F P 0 g s .84541 .37805 m .84389 .3291 L .82155 .31718 L p .352 .488 .856 r F P 0 g s .23191 .30201 m .22371 .34803 L .2502 .34047 L p .775 .853 .909 r F P 0 g s .2502 .34047 m .25826 .29844 L .23191 .30201 L p .775 .853 .909 r F P 0 g s .30286 .50584 m .3223 .53527 L .29793 .54699 L p .738 .793 .897 r F P 0 g s .29793 .54699 m .27562 .51418 L .30286 .50584 L p .738 .793 .897 r F P 0 g s .19307 .44743 m .20518 .49397 L .19421 .47496 L p 0 0 .55 r F P 0 g s .19421 .47496 m .18136 .42624 L .19307 .44743 L p 0 0 .55 r F P 0 g s .34383 .51731 m .32684 .49079 L .34484 .4708 L p .899 .83 .769 r F P 0 g s .32684 .49079 m .34383 .51731 L .3223 .53527 L p .826 .82 .843 r F P 0 g s .3223 .53527 m .30286 .50584 L .32684 .49079 L p .826 .82 .843 r F P 0 g s .6901 .45616 m .69772 .43151 L .70812 .45335 L p .113 .165 .638 r F P 0 g s .70812 .45335 m .69989 .47914 L .6901 .45616 L p .113 .165 .638 r F P 0 g s .32761 .36009 m .3346 .33043 L .31235 .31346 L p .466 .55 .858 r F P 0 g s .3346 .33043 m .32761 .36009 L .34385 .37853 L p .296 .374 .774 r F P 0 g s .70452 .38744 m .70158 .36043 L .69362 .38322 L p .981 .892 .546 r F P 0 g s .69362 .38322 m .69654 .40872 L .70452 .38744 L p .981 .892 .546 r F P 0 g s .20975 .31289 m .20151 .36202 L .22371 .34803 L p .864 .93 .867 r F P 0 g s .22371 .34803 m .23191 .30201 L .20975 .31289 L p .864 .93 .867 r F P 0 g s .83412 .47903 m .8173 .52142 L .79369 .52731 L p .775 .897 .929 r F P 0 g s .8173 .52142 m .83412 .47903 L .85372 .46312 L p .858 .99 .839 r F P 0 g s .85952 .34692 m .86068 .39771 L .86761 .42004 L p 0 0 .426 r F P 0 g s .86068 .39771 m .85952 .34692 L .84389 .3291 L p .098 .257 .739 r F P 0 g s .35068 .42314 m .3549 .44819 L .34484 .4708 L p .985 .904 .621 r F P 0 g s .21294 .46443 m .22385 .50782 L .20518 .49397 L p .18 .402 .842 r F P 0 g s .20518 .49397 m .19307 .44743 L .21294 .46443 L p .18 .402 .842 r F P 0 g s .34385 .37853 m .3505 .35163 L .3346 .33043 L p .296 .374 .774 r F P 0 g s .69989 .47914 m .70812 .45335 L .72675 .4718 L p .326 .4 .785 r F P 0 g s .72675 .4718 m .7174 .49985 L .69989 .47914 L p .326 .4 .785 r F P 0 g s .70813 .50513 m .71298 .49945 L s .19422 .33007 m .18601 .38109 L .20151 .36202 L p .93 .972 .731 r F P 0 g s .20151 .36202 m .20975 .31289 L .19422 .33007 L p .93 .972 .731 r F P 0 g s .69654 .40872 m .69362 .38322 L .6948 .40616 L p .773 .589 .019 r F P 0 g s .35437 .37563 m .35442 .37495 L s .80858 .48855 m .79369 .52731 L .76715 .52542 L p .675 .786 .933 r F P 0 g s .79369 .52731 m .80858 .48855 L .83412 .47903 L p .775 .897 .929 r F P 0 g s .72359 .29189 m .74026 .3244 L .76691 .31478 L p .738 .782 .888 r F P 0 g s .74026 .3244 m .72359 .29189 L .70246 .31132 L p .826 .816 .84 r F P 0 g s .70246 .31132 m .71771 .34015 L .74026 .3244 L p .826 .816 .84 r F P 0 g s .73254 .31633 m .73307 .31753 L s .7174 .49985 m .72675 .4718 L .75164 .4847 L p .466 .554 .862 r F P 0 g s .75164 .4847 m .74071 .51591 L .7174 .49985 L p .466 .554 .862 r F P 0 g s .71889 .49254 m .72007 .49116 L s .71298 .49945 m .71889 .49254 L s .74866 .27799 m .76691 .31478 L .79496 .31227 L p .632 .73 .918 r F P 0 g s .76691 .31478 m .74866 .27799 L .72359 .29189 L p .738 .782 .888 r F P 0 g s .34484 .4708 m .34021 .44459 L .35068 .42314 L p .985 .904 .621 r F P 0 g s .34021 .44459 m .34484 .4708 L .32684 .49079 L p .921 .909 .792 r F P 0 g s .86761 .42004 m .86662 .36881 L .85952 .34692 L p 0 0 .426 r F P 0 g s .86662 .36881 m .86761 .42004 L .86526 .44267 L p .83 .712 .179 r F P 0 g s .86645 .43589 m .86703 .43448 L s .8658 .43751 m .86645 .43589 L s .78 .49052 m .76715 .52542 L .74071 .51591 L p .575 .675 .907 r F P 0 g s .76715 .52542 m .78 .49052 L .80858 .48855 L p .675 .786 .933 r F P 0 g s .2388 .47523 m .24824 .51485 L .22385 .50782 L p .454 .618 .921 r F P 0 g s .23642 .5088 m .23838 .51375 L s .23838 .51375 m .24744 .53657 L s .22385 .50782 m .21294 .46443 L .2388 .47523 L p .454 .618 .921 r F P 0 g s .23197 .4976 m .23642 .5088 L s .71771 .34015 m .70246 .31132 L .68739 .33433 L p .907 .833 .762 r F P 0 g s .68739 .33433 m .70158 .36043 L .71771 .34015 L p .907 .833 .762 r F P 0 g s .74071 .51591 m .75164 .4847 L .78 .49052 L p .575 .675 .907 r F P 0 g s .86705 .4298 m .86723 .37621 L s .86703 .43448 m .86705 .4298 L s .18716 .35181 m .17898 .40328 L .18601 .38109 L p .832 .82 .34 r F P 0 g s .18601 .38109 m .19422 .33007 L .18716 .35181 L p .832 .82 .34 r F P 0 g s .77517 .27107 m .79496 .31227 L .82155 .31718 L p .484 .644 .927 r F P 0 g s .79496 .31227 m .77517 .27107 L .74866 .27799 L p .632 .73 .918 r F P 0 g s .69772 .43151 m .6948 .40616 L .70518 .42679 L p 0 0 .544 r F P 0 g s .70518 .42679 m .70812 .45335 L .69772 .43151 L p 0 0 .544 r F P 0 g s .32684 .49079 m .32145 .46224 L .34021 .44459 L p .921 .909 .792 r F P 0 g s .32145 .46224 m .32684 .49079 L .30286 .50584 L p .833 .87 .872 r F P 0 g s .73107 .31486 m .73254 .31633 L s .70566 .28949 m .71551 .29932 L s .30938 .26647 m .28602 .30241 L .31235 .31346 L p .605 .668 .884 r F P 0 g s .31235 .31346 m .33353 .28174 L .30938 .26647 L p .605 .668 .884 r F P 0 g s .33353 .28174 m .31235 .31346 L .3346 .33043 L p .525 .559 .832 r F P 0 g s .70158 .36043 m .68739 .33433 L .67997 .35862 L p .977 .818 .618 r F P 0 g s .67997 .35862 m .69362 .38322 L .70158 .36043 L p .977 .818 .618 r F P 0 g s .26772 .47856 m .27562 .51418 L .24824 .51485 L p .618 .736 .931 r F P 0 g s .24824 .51485 m .2388 .47523 L .26772 .47856 L p .618 .736 .931 r F P 0 g s .3346 .33043 m .35386 .30235 L .33353 .28174 L p .525 .559 .832 r F P 0 g s .35386 .30235 m .3346 .33043 L .3505 .35163 L p .426 .426 .755 r F P 0 g s .28381 .25814 m .25826 .29844 L .28602 .30241 L p .679 .771 .92 r F P 0 g s .28602 .30241 m .30938 .26647 L .28381 .25814 L p .679 .771 .92 r F P 0 g s .86421 .39245 m .86526 .44267 L .85372 .46312 L p .966 .937 .647 r F P 0 g s .86526 .44267 m .86421 .39245 L .86662 .36881 L p .83 .712 .179 r F P 0 g s .30286 .50584 m .29635 .47404 L .32145 .46224 L p .833 .87 .872 r F P 0 g s .29635 .47404 m .30286 .50584 L .27562 .51418 L p .735 .813 .913 r F P 0 g s .27562 .51418 m .26772 .47856 L .29635 .47404 L p .735 .813 .913 r F P 0 g s .8004 .27196 m .82155 .31718 L .84389 .3291 L p .242 .481 .886 r F P 0 g s .82155 .31718 m .8004 .27196 L .77517 .27107 L p .484 .644 .927 r F P 0 g s .72675 .48163 m .72851 .47579 L s .18955 .37578 m .18136 .42624 L .17898 .40328 L p 0 0 .285 r F P 0 g s .17898 .40328 m .18716 .35181 L .18955 .37578 L p 0 0 .285 r F P 0 g s .3505 .35163 m .36833 .32622 L .35386 .30235 L p .426 .426 .755 r F P 0 g s .36833 .32622 m .3505 .35163 L .35834 .37492 L p .282 .235 .627 r F P 0 g s .25944 .25772 m .23191 .30201 L .25826 .29844 L p .753 .878 .936 r F P 0 g s .25826 .29844 m .28381 .25814 L .25944 .25772 L p .753 .878 .936 r F P 0 g s .70812 .45335 m .70518 .42679 L .72382 .44281 L p .16 .346 .801 r F P 0 g s .72382 .44281 m .72675 .4718 L .70812 .45335 L p .16 .346 .801 r F P 0 g s .35442 .37495 m .35448 .3748 L s .69362 .38322 m .67997 .35862 L .68107 .3817 L p .979 .697 .314 r F P 0 g s .68107 .3817 m .6948 .40616 L .69362 .38322 L p .979 .697 .314 r F P 0 g s .85239 .4152 m .85372 .46312 L .83412 .47903 L p .893 .926 .834 r F P 0 g s .85372 .46312 m .85239 .4152 L .86421 .39245 L p .966 .937 .647 r F P 0 g s .82168 .28071 m .84389 .3291 L .85952 .34692 L p 0 .13 .678 r F P 0 g s .84389 .3291 m .82168 .28071 L .8004 .27196 L p .242 .481 .886 r F P 0 g s .34694 .41813 m .34021 .44459 L .32145 .46224 L p .896 .983 .8 r F P 0 g s .35834 .37492 m .37546 .35097 L .36833 .32622 L p .282 .235 .627 r F P 0 g s .23886 .26543 m .20975 .31289 L .23191 .30201 L p .814 .979 .893 r F P 0 g s .23191 .30201 m .25944 .25772 L .23886 .26543 L p .814 .979 .893 r F P 0 g s .72675 .4718 m .72382 .44281 L .7488 .45232 L p .399 .554 .893 r F P 0 g s .7488 .45232 m .75164 .4847 L .72675 .4718 L p .399 .554 .893 r F P 0 g s .72851 .47579 m .73395 .45776 L s .20129 .39932 m .19307 .44743 L .18136 .42624 L p .077 .18 .67 r F P 0 g s .18136 .42624 m .18955 .37578 L .20129 .39932 L p .077 .18 .67 r F P 0 g s .83236 .43446 m .83412 .47903 L .80858 .48855 L p .788 .86 .903 r F P 0 g s .83412 .47903 m .83236 .43446 L .85239 .4152 L p .893 .926 .834 r F P 0 g s .6948 .40616 m .68107 .3817 L .69075 .40112 L p .678 .286 0 r F P 0 g s .69075 .40112 m .70518 .42679 L .6948 .40616 L p .678 .286 0 r F P 0 g s .75164 .4847 m .7488 .45232 L .7774 .45414 L p .556 .684 .925 r F P 0 g s .7774 .45414 m .78 .49052 L .75164 .4847 L p .556 .684 .925 r F P 0 g s .80637 .44796 m .80858 .48855 L .78 .49052 L p .679 .78 .927 r F P 0 g s .80858 .48855 m .80637 .44796 L .83236 .43446 L p .788 .86 .903 r F P 0 g s .32145 .46224 m .32856 .43333 L .34694 .41813 L p .896 .983 .8 r F P 0 g s .32856 .43333 m .32145 .46224 L .29635 .47404 L p .82 .92 .904 r F P 0 g s .36771 .25395 m .33353 .28174 L .35386 .30235 L p .574 .571 .811 r F P 0 g s .35386 .30235 m .38461 .27782 L .36771 .25395 L p .574 .571 .811 r F P 0 g s .38461 .27782 m .35386 .30235 L .36833 .32622 L p .516 .465 .738 r F P 0 g s .78 .49052 m .7774 .45414 L .80637 .44796 L p .679 .78 .927 r F P 0 g s .85952 .34692 m .83663 .29657 L .82168 .28071 L p 0 .13 .678 r F P 0 g s .83663 .29657 m .85952 .34692 L .86662 .36881 L p .783 .44 0 r F P 0 g s .66756 .2688 m .70566 .28949 L s .34756 .23486 m .30938 .26647 L .33353 .28174 L p .625 .668 .872 r F P 0 g s .33353 .28174 m .36771 .25395 L .34756 .23486 L p .625 .668 .872 r F P 0 g s .22117 .41972 m .21294 .46443 L .19307 .44743 L p .34 .45 .827 r F P 0 g s .19307 .44743 m .20129 .39932 L .22117 .41972 L p .34 .45 .827 r F P 0 g s .22439 .28065 m .19422 .33007 L .20975 .31289 L p .749 .947 .627 r F P 0 g s .20975 .31289 m .23886 .26543 L .22439 .28065 L p .749 .947 .627 r F P 0 g s .36833 .32622 m .39661 .30408 L .38461 .27782 L p .516 .465 .738 r F P 0 g s .39661 .30408 m .36833 .32622 L .37546 .35097 L p .437 .331 .635 r F P 0 g s .32615 .22254 m .28381 .25814 L .30938 .26647 L p .673 .772 .925 r F P 0 g s .30938 .26647 m .34756 .23486 L .32615 .22254 L p .673 .772 .925 r F P 0 g s .70518 .42679 m .69075 .40112 L .70818 .4147 L p 0 .262 .771 r F P 0 g s .70818 .4147 m .72382 .44281 L .70518 .42679 L p 0 .262 .771 r F P 0 g s .29635 .47404 m .3039 .44171 L .32856 .43333 L p .82 .92 .904 r F P 0 g s .3039 .44171 m .29635 .47404 L .26772 .47856 L p .725 .831 .93 r F P 0 g s .24694 .43457 m .2388 .47523 L .21294 .46443 L p .504 .614 .895 r F P 0 g s .23197 .4976 m .23418 .47429 L s .21294 .46443 m .22117 .41972 L .24694 .43457 L p .504 .614 .895 r F P 0 g s .23436 .47236 m .23578 .45733 L s .26772 .47856 m .27562 .44218 L .3039 .44171 L p .725 .831 .93 r F P 0 g s .27562 .44218 m .26772 .47856 L .2388 .47523 L p .624 .732 .925 r F P 0 g s .2388 .47523 m .24694 .43457 L .27562 .44218 L p .624 .732 .925 r F P 0 g s .37546 .35097 m .40251 .33014 L .39661 .30408 L p .437 .331 .635 r F P 0 g s .39177 .31426 m .39215 .3138 L s .40251 .33014 m .37546 .35097 L .3744 .37409 L p .308 .126 .463 r F P 0 g s .86662 .36881 m .84342 .31797 L .83663 .29657 L p .783 .44 0 r F P 0 g s .84342 .31797 m .86662 .36881 L .86421 .39245 L p .997 .777 .431 r F P 0 g s .866 .37318 m .86723 .37621 L s .21781 .30189 m .18716 .35181 L .19422 .33007 L p 0 0 0 r F P 0 g s .19422 .33007 m .22439 .28065 L .21781 .30189 L p 0 0 0 r F P 0 g s .30566 .21843 m .25944 .25772 L .28381 .25814 L p .714 .891 .961 r F P 0 g s .28381 .25814 m .32615 .22254 L .30566 .21843 L p .714 .891 .961 r F P 0 g s .72382 .44281 m .70818 .4147 L .73162 .4208 L p .319 .56 .923 r F P 0 g s .73162 .4208 m .7488 .45232 L .72382 .44281 L p .319 .56 .923 r F P 0 g s .39215 .3138 m .39233 .31367 L s .413 .23224 m .36771 .25395 L .38461 .27782 L p .616 .586 .796 r F P 0 g s .38461 .27782 m .42513 .25871 L .413 .23224 L p .616 .586 .796 r F P 0 g s .42513 .25871 m .38461 .27782 L .39661 .30408 L p .583 .499 .725 r F P 0 g s .62122 .2558 m .66756 .2688 L s .84112 .34263 m .86421 .39245 L .85239 .4152 L p .961 .853 .688 r F P 0 g s .86421 .39245 m .84112 .34263 L .84342 .31797 L p .997 .777 .431 r F P 0 g s .39661 .30408 m .43373 .28687 L .42513 .25871 L p .583 .499 .725 r F P 0 g s .43373 .28687 m .39661 .30408 L .40251 .33014 L p .539 .397 .636 r F P 0 g s .3744 .37409 m .40164 .35337 L .40251 .33014 L p .308 .126 .463 r F P 0 g s .3985 .21008 m .34756 .23486 L .36771 .25395 L p .644 .672 .863 r F P 0 g s .36771 .25395 m .413 .23224 L .3985 .21008 L p .644 .672 .863 r F P 0 g s .34834 .40594 m .32856 .43333 L .3039 .44171 L p .773 .957 .93 r F P 0 g s .22004 .32687 m .18955 .37578 L .18716 .35181 L p .08 .013 .472 r F P 0 g s .18716 .35181 m .21781 .30189 L .22004 .32687 L p .08 .013 .472 r F P 0 g s .23578 .45733 m .24381 .44402 L s .7488 .45232 m .73162 .4208 L .75856 .41855 L p .54 .698 .942 r F P 0 g s .72839 .42927 m .73395 .45776 L s .75856 .41855 m .7774 .45414 L .7488 .45232 L p .54 .698 .942 r F P 0 g s .2883 .22319 m .23886 .26543 L .25944 .25772 L p .688 .979 .887 r F P 0 g s .23653 .27304 m .24233 .26332 L s .25944 .25772 m .30566 .21843 L .2883 .22319 L p .688 .979 .887 r F P 0 g s .40251 .33014 m .43795 .31395 L .43373 .28687 L p .539 .397 .636 r F P 0 g s .41551 .29647 m .42656 .28827 L s .43795 .31395 m .40251 .33014 L .40164 .35337 L p .467 .251 .501 r F P 0 g s .82981 .36777 m .85239 .4152 L .83236 .43446 L p .879 .85 .811 r F P 0 g s .85239 .4152 m .82981 .36777 L .84112 .34263 L p .961 .853 .688 r F P 0 g s .84342 .31797 m .866 .37318 L s .38304 .19454 m .32615 .22254 L .34756 .23486 L p .665 .772 .929 r F P 0 g s .34756 .23486 m .3985 .21008 L .38304 .19454 L p .665 .772 .929 r F P 0 g s .7774 .45414 m .75856 .41855 L .78598 .40807 L p .681 .773 .921 r F P 0 g s .78598 .40807 m .80637 .44796 L .7774 .45414 L p .681 .773 .921 r F P 0 g s .42656 .28827 m .42879 .28724 L s .43322 .28519 m .46945 .26843 L s .8107 .39047 m .83236 .43446 L .80637 .44796 L p .787 .821 .879 r F P 0 g s .83236 .43446 m .8107 .39047 L .82981 .36777 L p .879 .85 .811 r F P 0 g s .80637 .44796 m .78598 .40807 L .8107 .39047 L p .787 .821 .879 r F P 0 g s .3039 .44171 m .32578 .41095 L .34834 .40594 L p .773 .957 .93 r F P 0 g s .32578 .41095 m .3039 .44171 L .27562 .44218 L p .707 .844 .948 r F P 0 g s .23099 .35278 m .20129 .39932 L .18955 .37578 L p .312 .305 .69 r F P 0 g s .18955 .37578 m .22004 .32687 L .23099 .35278 L p .312 .305 .69 r F P 0 g s .57021 .25139 m .62122 .2558 L s .40164 .35337 m .43732 .33727 L .43795 .31395 L p .467 .251 .501 r F P 0 g s .43732 .33727 m .40164 .35337 L .39393 .37133 L p .318 0 .241 r F P 0 g s .70797 .4008 m .72839 .42927 L s .27606 .23658 m .22439 .28065 L .23886 .26543 L p 0 0 0 r F P 0 g s .23886 .26543 m .2883 .22319 L .27606 .23658 L p 0 0 0 r F P 0 g s .24338 .26157 m .24357 .26124 L s .24357 .26124 m .24459 .25954 L s .46945 .26843 m .5184 .25577 L s .27562 .44218 m .29982 .4074 L .32578 .41095 L p .707 .844 .948 r F P 0 g s .29982 .4074 m .27562 .44218 L .24694 .43457 L p .63 .73 .919 r F P 0 g s .36821 .18743 m .30566 .21843 L .32615 .22254 L p .659 .889 .981 r F P 0 g s .32615 .22254 m .38304 .19454 L .36821 .18743 L p .659 .889 .981 r F P 0 g s .24947 .3766 m .22117 .41972 L .20129 .39932 L p .45 .484 .803 r F P 0 g s .20129 .39932 m .23099 .35278 L .24947 .3766 L p .45 .484 .803 r F P 0 g s .5184 .25577 m .57021 .25139 L s .24694 .43457 m .27335 .39553 L .29982 .4074 L p .63 .73 .919 r F P 0 g s .27335 .39553 m .24694 .43457 L .22117 .41972 L p .548 .615 .872 r F P 0 g s .25684 .42242 m .25846 .41974 L s .25204 .43037 m .25684 .42242 L s .22117 .41972 m .24947 .3766 L .27335 .39553 L p .548 .615 .872 r F P 0 g s .25846 .41974 m .25907 .41872 L s .39393 .37133 m .43181 .35438 L .43732 .33727 L p .318 0 .241 r F P 0 g s .79552 .26412 m .84342 .31797 L s .27049 .25732 m .21781 .30189 L .22439 .28065 L p .104 0 .236 r F P 0 g s .22439 .28065 m .27606 .23658 L .27049 .25732 L p .104 0 .236 r F P 0 g s .24459 .25954 m .25886 .24807 L s .25886 .24807 m .26779 .2409 L s .3556 .18977 m .2883 .22319 L .30566 .21843 L p .479 .897 .832 r F P 0 g s .30566 .21843 m .36821 .18743 L .3556 .18977 L p .479 .897 .832 r F P 0 g s .25907 .41872 m .26144 .41678 L s .32578 .41095 m .36125 .38396 L .38003 .38199 L p .678 .961 .94 r F P 0 g s .36125 .38396 m .32578 .41095 L .29982 .4074 L p .681 .85 .963 r F P 0 g s .27238 .28322 m .22004 .32687 L .21781 .30189 L p .335 .195 .537 r F P 0 g s .21781 .30189 m .27049 .25732 L .27238 .28322 L p .335 .195 .537 r F P 0 g s .67238 .37471 m .70797 .4008 L s .29982 .4074 m .33956 .37676 L .36125 .38396 L p .681 .85 .963 r F P 0 g s .33956 .37676 m .29982 .4074 L .27335 .39553 L p .638 .729 .914 r F P 0 g s .26144 .41678 m .26397 .4147 L s .3467 .20163 m .27606 .23658 L .2883 .22319 L p .044 0 0 r F P 0 g s .2883 .22319 m .3556 .18977 L .3467 .20163 L p .044 0 0 r F P 0 g s .28848 .22427 m .29413 .21973 L s .28164 .31131 m .23099 .35278 L .22004 .32687 L p .454 .383 .687 r F P 0 g s .22004 .32687 m .27238 .28322 L .28164 .31131 L p .454 .383 .687 r F P 0 g s .27335 .39553 m .31736 .36098 L .33956 .37676 L p .638 .729 .914 r F P 0 g s .31736 .36098 m .27335 .39553 L .24947 .3766 L p .587 .621 .853 r F P 0 g s .26397 .4147 m .30039 .38484 L s .35186 .19475 m .36434 .18936 L s .29726 .3383 m .24947 .3766 L .23099 .35278 L p .529 .512 .781 r F P 0 g s .23099 .35278 m .28164 .31131 L .29726 .3383 L p .529 .512 .781 r F P 0 g s .24947 .3766 m .29726 .3383 L .31736 .36098 L p .587 .621 .853 r F P 0 g s .36125 .38396 m .40835 .36285 L .42184 .36332 L p .533 .918 .923 r F P 0 g s .40835 .36285 m .36125 .38396 L .33956 .37676 L p .649 .848 .976 r F P 0 g s .34264 .22195 m .27049 .25732 L .27606 .23658 L p .358 .077 .344 r F P 0 g s .27606 .23658 m .3467 .20163 L .34264 .22195 L p .358 .077 .344 r F P 0 g s .29413 .21973 m .34595 .19731 L s .72599 .21919 m .79552 .26412 L s .62266 .35356 m .67238 .37471 L s .33956 .37676 m .39272 .35271 L .40835 .36285 L p .649 .848 .976 r F P 0 g s .39272 .35271 m .33956 .37676 L .31736 .36098 L p .646 .731 .911 r F P 0 g s .34401 .24858 m .27238 .28322 L .27049 .25732 L p .484 .304 .56 r F P 0 g s .27049 .25732 m .34264 .22195 L .34401 .24858 L p .484 .304 .56 r F P 0 g s .31736 .36098 m .37668 .33377 L .39272 .35271 L p .646 .731 .911 r F P 0 g s .37668 .33377 m .31736 .36098 L .29726 .3383 L p .622 .632 .839 r F P 0 g s .30039 .38484 m .35652 .35845 L s .36434 .18936 m .45044 .17231 L s .35076 .27846 m .28164 .31131 L .27238 .28322 L p .549 .439 .681 r F P 0 g s .27238 .28322 m .34401 .24858 L .35076 .27846 L p .549 .439 .681 r F P 0 g s .56146 .3398 m .62266 .35356 L s .40757 .34546 m .42265 .34162 L s .35652 .35845 m .40757 .34546 L s .29726 .3383 m .36211 .30803 L .37668 .33377 L p .622 .632 .839 r F P 0 g s .36211 .30803 m .29726 .3383 L .28164 .31131 L p .591 .54 .766 r F P 0 g s .28164 .31131 m .35076 .27846 L .36211 .30803 L p .591 .54 .766 r F P 0 g s .64005 .18729 m .72599 .21919 L s .49297 .33543 m .56146 .3398 L s .42265 .34162 m .49297 .33543 L s .45044 .17231 m .54525 .1713 L s .54525 .1713 m .64005 .18729 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{441, 324.5}, ImageMargins->{{70, 0}, {0, 18}}, ImageRegion->{{0, 1}, {0, 1}}, FontSize->16, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgon6Yooo0?lDTaTIL02JcK8R 8]:d S;jn_UmOGkC^]:JVYZf][Jo^k/Rl[8Z1M[no_de=CB:;8YJ=PNKViW=cLiVIVNGUiFIVIWQhNFQX JJJZ mEQHFDQ8B@T92e9FeiRLjSHjc499d;JjnHJ:jjRXZIRHVF9V fhR8 RKVi^F=SHd92@]kNg_l009BDU;fm_GmoOlC4a000?`00O`00_`0o000o?`0oO`0o_`0oo`1o001o ?`1o O`1o_`1oo`2o002o?`2oO`2o_`2oo`3o?`3oO`3o_`3oocl003l0?cl0Ocl0_cl0oclo03lo?clo Oclo _cloocmo03mo?cmoOcmo_cmoocno03no?cnoOcno_cnoocoo03oo?cooOcoo_cooogl007l0?gl0 Ogl0 _gl0oglo07lo?gloOglo_gloogmo07mo?gmo_gmoogno07no?gnoOgno_gnoogoo07oo?gooOgoo _goo okl00;l0?kl0Okl0_kl0oklo0;lo?kloOklo_klookmo0;mo?kmoOkmo_kmookno0;no?knoOkno okoo 0;oo?kooOkoo_kooool0?ol0Ool0_ol0oolo0?lo?oloOolo_olooomo0?mo?omoOomo_omooono 0?no ?onoOono_onooooo?oooOooo_n[ZjWAdM:NWYj0Pl=WIfJj^[WMgM`H60<30`020P80008200820 P6IV c3IP8100=V0B4022420A4Q00<10000S@020G@0001m00H100eV 0FH1 IP5V0FH1IP5V00<100A8ITP11b420@0EB2588DPQB2588DPQB2588DPQB241090000<10000L@00 07/0 1P4>IP8100IVB6I8IP458@815R400`40002?0081L@0007X01@403FH1IP5V0FH1IP5V0FH00`40 1dQV B6I8ITP00`406b410DPQB2588DPQB2588DPQB2588DPQB2588@020I8000<10000KP0007T0104> IP81 00YVB6I8ITQVB6H10R400`4Q8@0F8@8100`0;0E@000<10000HP0006l02@43IP8101EV B6I8 ITQVB6I8ITQVB6I8ITQVB6H00P43B0030B4Q00HQ01/18@418DPQB2588DPQB2588DPQB2588DPQ B040 ;`0;0@/030590081HP0006h03@405DQVB6I8ITQVB6I8ITQVB6I8ITQVB0020@I802<18DPQB258 8DP1 B2588DPQB2588DPQB2588DPQB2588DPQ0@0X00L18P070D@000<10000G`0006`03@405FI8ITQV B6I8 ITQVB6I8ITQVB6I8IP020@Q800<18B401B4070580DPQB2588DPQB2588DPQB2588DPQB2588@4S 00@1 <0040D400P5O0000J`0=0@0DITQVB6I8ITQVB6I8ITQVB6I8ITP20@Y800H18DPQB2420@0JB258 0DPQ B2588DPQB2588DPQB2588DPQB2420Al0104h00<1@0000`40001L0000J`0;0@0DIP58ITQVB6I8 ITQV B6I8ITQVB6H20@a800<18B400R406`4QB2588@4QB2588DPQB2588DPQB2588DPQB0020@038@40 01/0 0`4o00<1?P020E`0001Z00/10VH04@5VB6I8ITQVB6I8ITQVB6I800813dP07@588@4QB2588DPQ 0B58 8DPQB2588DPQB2588DPQ008114P00`40000E00@1A@040C`000<10000F@0006T02P44IP0?0DQV B6I8 ITQVB6I8ITQV00814DP06`4Q0B588DPQB2588@4QB2588DPQB2588DPQB0020@078DPQB2580@0C 00@1 C@030CX000<10000F00006P02P45IP0=0FI8ITQVB6I8ITQVB0020A=80P405R588DPQB2588DPQ 0B58 8DPQB2588DP30@Q800<100003P030E@00P4i00030@0005L0001W00X11fH02P5VB6I8ITQVB6H2 0AE8 01H18DPQB2588DPQB2588@4QB2588DPQ0P4034PQB2588DPQB2580@h00P5I0081:`0>0EP0001U 00/1 26H02058ITQVB6I80P4HB00C0B588DPQB2588DPQB0588DPQB0020@i800<100002@020Ed00P4U 00@1 0R4030588DPQB2588DPQIP81EP0006@02`49IP060FI8ITQV0P4JB00A0DPQB2588DPQB2588DP1 B240 0P404DPQB2588DPQB2588DPQB24100P00`5Q00817`040@HQ00/18DPQB2588DPQB0020@04B041 0E<0 001S00/12VH01058ITP20A]80P403R588DPQB2588DPQB2580P4BB0030@0000@00P5V00816`02 0@/Q 00/18DPQB2588DPQB0020@03B6I80081D@0006802`4;IP040FH10A]80P403dP1B2588DPQB258 8DPQ B0020@0D8DPQB2588DPQB2588DPQB2588@440081JP020AL00P400b418@0:8@0>0DPQB2588DPQ B241 B044B081C`0006402P4=IP816dP20@A800/1B2588DPQB2588@020@9800<1B4P04DP010400@5^ 0081 4`020@B08101A88DPQB2588DPQB2588DPQ0B580@]800/1B2588DPQB2588@020@I800<10000MP00 0`40 0002008100lQ02408@0Q02408@0Q00402b40304QB2588DPQB2580@=800@1B4Q80`5:0000GP07 0@aV 00X1ITQVB6I8ITP13TP20A9800<1B04034P00`58B006B08100U8ITQVB6I8IP40N@0010400042 8@03 0B4Q00/Q00<18B402R40504QB2588DPQB2580FI8IP5VB05V0P590000G@060@eV00<1B4P01dP0 0`58 B00:B08101A88DPQB2588DPQB2588DPQB2588@813TP01P4QB2588@812TP00`40001h008101<0 8@01 02408@0Q02408@0Q024100/Q00`1B2588DPQB2588@44B0060DQ80FH1B@0005d01@4=IP0<0FI8 ITQV B6I8ITP12TP20AM800<1B4P034P01058B4P20@0=B6I8ITQVB6I8ITQV0@1i00811B400`4Q8@0; 8@03 0B4Q00XQ0181B2588DPQB2588@58ITQV0FH20@03IP4004L0001L00D13FH00`58B00:B0030DQ8 00E8 0P406TPQB2588DPQB2588DPQB2588DPQB2588DP13dP30@i800<10000MP00604Q02408@0Q0B40 8@0Q 02408@0Q02400@/Q00`18DPQB2588DPQB045B0030DP10081B00005`01@4;IP8100iVB6I8ITQV B6I8 ITQV0@E80P4LB0030DQ800a80181B6I8ITQVB6I8ITQVB6I8IP5g00030B4Q00LQ00<18B402b40 0`4Q 8@0:8@0A0B588DPQB2588DP1ITQVB6H00P400fH10@170000F`060@YV00<1B4P03DP01058B4P2 0@0O B2588DPQB2588DPQB2588DPQB2588DPQB2588DPQ0@0ITQVB6I8ITQVB6I8IP5^000B0@0Q 0240 8@0Q00408@0Q02400P403b400@0Q02408@0Q02400@0;8@0=0B588DPQB2588DPQ0@08B0030B41 0081 @P0005D030403fH1B6I8ITQVB6I8ITQVB0020@m800<1B4P014P20@0UB2588DPQB2588DPQB258 8DPQ B2588DPQB2580FI8ITQVB6I8IP030@iV00<10000K0002`4Q02408@0Q024100HQ00H102408@4; 8@03 0B4Q00TQ00d1B2588DPQB2588DP100M800@18B4Q0P520000E0040@0;IP5V0FH1IP58IP4034P0 5`4Q B2588DPQB2588DPQB2588@4QB25800817B402P58ITQVB6I8IP42IP0@0DQVB6I8ITQVB6I8ITQV 0A80 3@5>000@0B408@0Q02408@0Q0B408@8101<08@0Q00408@0Q02408@0Q024100/Q00`1B2588DPQ B258 8@47B0040@0Q00<1@@0005@02`43IP0=0DQVB6I8ITQVB6I80@0CB00P0DP10DPQB2588DPQB258 8DPQ B2588DPQB2588DPQB2420@8Q00L1B6I8ITQV008100=V0@403FH20@P02P4=0101?P020@0<8@0Q 0240 8@0Q004Q0P4022408@0Q024132400`4Q8@098@0<0B588DPQB2588DP11dP0104Q8B430D40001D 00@1 00EV0FH1IP020@05ITQVB0402DP05@4QB2588DPQB2588DPQB2588DPQB0020A`Q0P458@040DQV B081 16H03058ITQVB6I8ITQVB0`19`0:0C<001P100408@0Q02408@0Q00408@0Q02408@020@0<8@0Q 0240 8@0Q02412b403@588DPQB2588DPQB0401TP01@408@0Q00<1@00005@02P45IP080FI8ITQVB6H2 0AA8 01d1B0588DPQB2588DPQB2588DPQB2588DPQB2588@020@PQ00P1B05V0FH1IP811fH60@03IP40 03P0 104_000=0B400@0Q02408@0Q00020@0;8@0Q02408@0Q00402b400`4Q8@098@0=0B588DPQB258 8DPQ 0@06B0030B4Q008Q0`500000D`030@05IP5V0FH00P4026I8ITQVB6H11DP05@588DPQB2588DPQ B258 8DPQB2588@020@04B2580ALQ0P4;8@030FIV00AV00D1ITQVB0070@04IP5V0Ch0104[000V0@0Q 0B40 8@0Q02400@0102408@0Q02408@4Q02408@0Q02408@4;8@0=0DPQB2588DPQB2580@06B0060@0Q 0240 0`4o0000D`0:0@MV00H1B6I8IP4DB00L0B588DPQB0588DPQB2588DPQB2588DPQB2588@813B42 0@05 IP5V0FH01@402FH10@5V0FH1IP020D801@4V000J0B408@4Q02408@0Q0B418@0Q02408@0Q004; 8@03 0B4Q00TQ00d18DPQB2588DPQB24100I800<18B400b430Cl0001C000B0FH1IP5V0FH1B6I8ITQV B6H1 0TP20@0NB2588DPQB2588DPQB2588DPQB2418DPQB2588DP142430A0Q00<1IVH010400fI8IP02 0@0: IP5V0FH1IP5V0DL0104Q000=0B408@0102408@0Q0@02000H0@0Q02408@0Q02418@0Q02408@0Q 0241 2b403@588DPQB2588DPQB0401DP02P4Q0B408@01004o0000DP090@YV0P4DB08101PQB2588DPQ B258 0DPQB2588DPQB2588DP20A4Q1@401FH1IP5V00<100UV0FH1IP5V0FH00P5;00@17@006`408@0Q 0040 8@0Q0B408@4Q02408@0Q02400@0;8@030B4Q00TQ00d18DPQB2588DPQB24100E800<100401B43 0Ch0 001B008100EV0FH1IP020@0]ITQVB6I8ITQVB04QB2588DPQB2588DPQB2588DPQB0588DPQB258 8DPQ B24100/Q0P4>8@D11240105VIVH20@0;IP5V0FH1IP5V0FH00P5@00@16@002`4Q02408@4Q0241 00@0 01@102408@0Q02408@4Q02408@0Q00X11B403@588DPQB2588DPQB04014P030408@0102408@4Q 0Ch0 001B00P12VH00`580@0BB00H0DPQB2588DPQB2588DPQ0B588DPQB2580P4<8@@11R420@8Q1040 2fH1 IP5V0FH1IP5V00<1E0020AL001/102408@0Q0B400@0Q02400@0Q02408@0Q00400R460@IP41ITQVB6I8ITQVB048B00N0DPQB2588DP1B2588DPQB2588DPQB2588DPQB2580P44 8@03 0B4Q008Q0P4:8@8100dQ02408@0Q02408@0Q008100P08@0Q02400FH00P4;00080B4102408@02 0@L0 0`46000<0@0Q02408@0Q02412b403P588DPQB2588DPQB2410TP04P4Q02408@0Q02418@0Q0040 0C/0 001A00D12VH00`58B008B0030DQ800=801L1B2588DPQB2588DPQB2588DPQB2580@078@@12R42 0@dQ 0P468@81JP020@T000P18@4Q02408@8101408@0Q02400@0Q02408@0Q0@0:8@030B4Q00TQ00h1 8DPQ B2588DPQB2580@9800/102408@0Q02400@048@030B4103/0001A00@100aVB6I8ITQVB6I8IP4: B004 0B588@8101I88DPQB2588DPQB2588DPQB2588DP122430@TQ0P403B408@0Q02408@0Q02400P40 1P0Q 02408@81KP020@L000P18B418@0Q00811P020@L000d18@0Q02408@0Q024100/Q0201B2588DPQ B258 8DPQ0DP100408@0Q02408@0102408@81>`0005001@4:IP030DQ800Y801X1B04QB2588DPQB258 8DPQ B2588DPQB2580@LQ0P438@030B4Q00@Q0P4=8@811B430G800P45000?0B4Q8@4Q00408@4Q0240 0081 00TQ02408@0Q00402R400`4Q8@098@0M0DPQB2588DPQB2588@580@0Q0B408@0Q02408@401242 0C/0 001@00@100a8ITQVB6I8ITQVB04=B00F0B588DPQB2588DPQB2588DPQB2588@811R420@HQ0P42 8@81 00dQ02408@0Q02408@0Q008100D08@0Q00020GL00P43000;0B4Q8@408@4Q00400`000`400@08 000< 0B408@0Q02408@012b408@4QB2588DPQB2588DP1B04Q02418@0Q02408@0Q0B408@020C/0001@ 00D1 2FH00`58B00;B00G0B418DPQB2588DPQB2588DPQB2588@401R420@XQ0P4=8@811B420G/00P40 0`01 8@038@0D0@0102418@0Q0B418@0Q02408@4;8@030B4Q00PQ00h18DPQB2588DPQB2588@8100lQ 0240 0@0Q02408@0Q00400b420C/0001@00D100UVB6I8ITQVB0403TP00`588@020@0AB2588DPQB258 8DPQ B2588@401B420@/Q00<18@0010401b408@0Q02400P401@0Q02400081O`020@@Q0P40100Q0042 0003 0@0100P000`102408@0Q02408@4;8@0=0DPQB2588DPQB2588@020@0C8@0Q02400@0Q02408@0Q 0040 8@020C/0001@00H11fH00`58B00;B00D0DPQB2580DPQB2588DPQB2588DP20@@Q0P4;8@811b43 0@8Q 0P400b410@040H800P448@0C0B408@4Q0B400@0Q02408@0Q0@0:8@030B4Q00TQ02018DPQB258 8DPQ B2580B408@0Q02418@0Q02408@0Q0@8Q0P4k0000C`040@9V00P1B6I8ITQV0@e801D1B2588DPQ B058 8DPQB2588DPQB0401B400`4Q8@0:8@0=0@0Q02408@0Q02408@050@048@0Q0HD00P438@040@0Q 0081 0`000`400006000<0@0Q02408@0Q02412R408`4QB2588DPQB2588DP18@0Q02408@0Q0B408@0Q 0240 8@4Q0081>`0004l0104016H1IP44IP030DQ800a801@18DPQB2588DP1B2588DPQB2580@DQ00<1 8B40 2R400`4Q8@0:8@8100H08@0Q0067000G0B410B418@0Q0B408@0102408@0Q00402R400`4Q8@09 8@0Q 0DPQB2588DPQB2588@408@0Q02408@0102408@0Q0240008100=80@00>P0004l01043IP060FI8 ITP1 3DP0504QB2588DPQB2580DPQB2588DP112420@/Q0P40500Q02408@0Q02408@4Q02408@01R@00 0`4Q 8@020@0402400@<000<100001@0?0@TQ02D18DPQB2588DPQB24102408@0Q02408@0102408@0Q 0240 0B4103/0001?00@100=V0FH00P42IP030DQ800a800`1B2588DPQB2588DP20@038DPQ00811240 0`4Q 8@0:8@030B4Q00/Q00H18@0Q02420HX000L18B4Q0B40008100TQ02418@0Q02400`4:8@040B4Q 8@H1 0R409P4QB2588DPQB2588@408@0Q02408@0Q02418@0Q02408@0Q0DP1>`0004l01044IP030DP1 00i8 0181B2588DPQB2588DPQB2418@458@030B4Q00XQ00d18@0Q02408@0Q0240008100HQ02408@6= 0003 0B4Q00@110000`4000030@0=004Q02408@0Q02400@0:8@<100U88DPQB2588DP00P406P010240 8@0Q 02408@0Q0B408@0Q02400B41>`0004l010401FH1IP5V00813DP04@588DPQB2588DPQB2588DPQ 0081 12400`4Q8@098@8132401P408@0Q0081SP020@0:8@4100408@01008100DQ02400@098@030B4Q 00XQ 00/1B0418DPQB2580@038@0E0B408@0Q02408@0Q00408@0Q0240008100=80@00>P0004h01@45 IP03 0DQ800a801418DPQB2588DPQB2588DPQ0@028@@12b405`408@0Q02408@0Q02400@0Q02400@01 08l0 00D18@418@030@03004100D000`102408@0Q02408@4;8@050DPQB2400P407DPQ0@4Q02408@4Q 0240 8@0Q02408@0102408@0Q008100P0004h01@401FH1IP5V008134P04P4QB2588DPQB258 8DPQ B2580@`0004h01046IP030DP100Y80181 8DPQ B2588DPQB2588DPQB0438@030B4Q008Q0P458@8101808@0Q02408@0Q02418@0Q02420@030040 0940 104200<1100030408@0Q02408@0Q0@`Q02T18DPQB2580B408@0Q02408@0102408@0Q02408@0Q 0B40 8@01004Q0@0k0000CP050@09IP5V0FH1B6H100U80141B2588DPQB2588DPQB2580@038@030B4Q 00DQ 0P428@030B4Q00/Q00D18@0Q00020@038@0109<000D1IP418@020@0700408@0Q0@098@030B4Q 00XQ 00H18DPQB2420@/Q01L18@0Q02408@0Q02400@0Q00408@580@0k0000CP040@EV00<1B4P00TP0 0`58 B005B00A0DPQB2588DPQB2588DPQB0400b400`4Q8@088@@100XQ02408@0Q02400P400b410@03 0@<0 00<10000TP001@5V0@0100<000h100018@0Q02408@0Q0@`Q00D18DPQB0020@0O02408@0Q0240 8@0Q 02418@0Q02408@0Q02400@0Q0@0200030B4103/0001?00@100=V0FH00P401VI8ITQV0@I80181 8DPQ B2588DPQB2588DPQ0B420@/Q00@18B4Q1P438@@100LQ02400@0Q0081U0020@07IP418@0Q0002 0@TQ 00<18B402R40104QB2420@8Q00<18B402b405P408@0Q02408@0Q02418@4Q0241B04k0000C`03 0@EV 00<1B4P014P00`58B002B00C0B588DPQB2588DPQB2588@4Q0@0=8@0:0@0Q02408@0Q00@11P00 0`40 00020ID00P43IP0?0@00004Q02408@0Q024100dQ10448@0L0B408@0Q02408@0Q02400@0Q0240 8@0Q 02408@810`000`4Q0@0k0000C`040@03IP5V008100QVB6I8ITQV0@9801<18DPQB2588DPQB258 8DPQ 0B4100dQ00<18B402B403P408@0Q02400@0Q0B41U@030@=V0P400`010@088@030B4Q00XQ0P48 8@03 0B4Q00/Q01D18@0Q02408@0Q02400@0Q0241B040>`0004l00`45IP030DQ800I80181B0588DPQ B258 8DPQB2588DP20@dQ00d102408@0Q02408@0100L000@10000106D00030FH100AV1@401b408@0Q 0040 2b420@XQ01X102408@0Q02408@0Q02418@0Q02408@0Q00811@020C/0001?008100EV0FH1IP02 0@0I ITQVB6I8ITQV0DPQB2588DPQB2588DPQB0020@dQ00<18B402R403P4Q02408@0Q0B400@0Q0P6C 00D1 0fH00`58B002B0<10R400`4Q8@028@P13B400`4Q8@0;8@0B0@0Q02408@0Q00400@0Q02400P4k 0000 D0000`5VIP04IP030DQ800M80`4032588DPQB2588DPQB0813R403@4Q02408@0Q02408@401`00 0`40 0@020@03B04Q0081TP040@03IP5V009V00D1B4Q80@02B0L11b400`4Q8@0;8@0H0B408@0Q0240 8@0Q 02400@0Q02408@010P000`4000030081>`00050000H1IP5V0FH20@0HITQVB6I8ITQV0DPQ0B58 8DPQ B2588DPQ0P4=8@030B4Q00TQ01418@0Q02408@4Q0B418@018@020I401`43IP030DQ800980141 B4Q8 0B588DPQB2588DPQ0@0>8@030B4Q00/Q01418@0Q02400@0Q00408@0Q00020C/0001@00030FIV 00=V 00<1B4P01dP01@588DPQ008100Q88DPQB2588@813B403@4Q02408@0Q02408@401`000`400@02 0005 0@010B400`6?00H100=V0@400fH00`58B002B0040DQ80@`Q00<18B402b405P408@0Q02408@0Q 0240 8@4Q02408@4300030@0000<00P4k0000D0030@0DIP5V0DQVB6I8ITQVB04QB2588DP20@088DPQ B241 8@4<8@030B4Q00XQ00P102408@0Q008100DQ0241B0020@038@410081S@0;0@9V00<1B4P00TP0 4@58 B4P1B2588DPQB2588DP100hQ00<18B402b4040408@0Q0B408@0102408@020C/0001@008116H0 0`58 B007B00@0DPQB2588DPQ0B588@4Q0@dQ00d102408@0Q02408@0100L000<100000`020@800`40 0dP1 0@2;00P100EV0@5V0@02IP030DQ8009800@1B4P132400`4Q8@0;8@0C0B408@0Q02408@0Q0240 0@0Q 0@0500030@0000<00P4k0000D@020@0GIP5V0DQVB6I8ITQVB04QB2588DPQB2400P400dP18@0= 8@03 0B4Q00TQ00L102408@0Q008100X08@0Q004Q0@0Q206800`10VH00`5V0@04B00A0DQ8B04QB258 8DPQ B2588@403R400`4Q8@0;8@0?0B418@0Q02400@0Q02400081>`0005400P43IP030DQ800M800`1 B258 8DPQB2588DP30@`Q00d102408@0Q02408@0100@00`400`01000400810`020@038@5800@1QP0: 0@09 IP41ITQV0FH100=800D1B4Q80@0<8@030B4Q00/Q00h102408@0Q02408@0Q00811`000`400003 0081 >`000540104066H1B6I8ITQVB6H1B2588DPQB2588DPQ0@8Q10478@030B4Q00XQ00<18@000P40 2R40 8@0102408@020@038@0Q008100HQ0@418DP20H@03P44IP8114P04@58B4P1B2588DPQB2588DP1 00hQ 00<18B4022420@0@00408@0Q02400@0Q02400C`0001A00030FH1009V00<1B4P01TP03P4QB258 8DPQ B2588DP11R440@8@<101L0 8@0Q 02408@0102408@0Q02418@0Q0@0m0000DP020@03IP5800M800`1B2588DPQB2588DP20@`Q00d1 8@0Q 02408@0Q024100T000<100000P000`400@0600050B408@000P4024PQB2588@5V0P5c00@100=V 0FH0 0`401FH1IP5V00811FH20@0;B6I8ITQV0DPQ0B400P43B0030B4Q00TQ00<18B402B430@0<8@0Q 0240 8@0Q024120000`4000020Cd0001C00@101E8ITQVB6I80B588DPQB2588DP1B04032400`4Q8@09 8@0H 0@0Q02408@0Q00408@0102400@0Q02400P448@8100M88DPQB241009V0P5_01<100EV0FH1IP02 0@IV 00D1B4Q80@02B0@100`QB2588DPQB2588@478@@10R406@408@0Q02408@0Q00408@0Q02408@4Q 0040 ?P0005<000<1IP400P46B00>0DPQB2588DPQB0588@4<8@0=0B408@0Q02408@0Q0@0900040@00 0@@0 00<100000P002@400@0Q02418@020@048DPQB0<10VH00`40001Z00H100EV0FH1IP030@06IP5V 0FH1 1fH04@58ITQVB6H1B2580DPQB25800P11B400`4Q8@040@0C02408@0Q0B408@0Q02408@0Q0@08 0004 0@010Ch0001C00@101E80@5VB6I80B588DPQB2588@4QB04032400`4Q8@098@0K0@0Q02408@0Q 0040 0@0Q02400@0Q02418@01000@0Q02408@0Q02408@4800030@0100H000`100000B40 8@4Q 02420@0FI8ITQVB6I8ITP1B043 B081 14P03@4QB2588DPQB2588@4032402P4Q02408@0Q02420@0502408@000P530000EP020@0BIP58 ITQV B04QB2588DPQ0B412b406P408@0Q02408@0Q02400@0Q02408@0Q024110004`408@0Q02418@0Q 0240 0@0Q02400P448@811b40404QB2418DPQB2588DPQB2420@03IP5V00aV3P4=00L100MV0FH1IP5V 00<1 00=V0@400P402FI8ITQVB6I80@07IP8100AVB6H12FH20@0=B6I8ITQVB6I8IP580@09B08100HQ B258 8DP20@038DP100/Q01D18@0Q02408@0Q02400@0Q02408@000P400b4100040081@`0005L00`40 4FI8 ITQV0DPQB2588DP1B24100/Q00<18B402R407P4Q02408@0Q02400@0Q02418@0Q02400@0Q0240 0@LQ 00@18B4Q0P4024PQB2588DPQ0P42B0030DQ800Y81@4=IP8100UV0FH1IP5V0FH03@403fH1IP5V 0FH1 IP5V0FH1IP040@]V0P400fH1IP030@06B6I8ITP11fH20@03ITP100UV00h1B4P1ITQVB6I8IP58 0@Q8 0`403B588DPQB2588DPQB0402b401P4Q02408@8100P08@4Q02408@81A00005P00P404DQVB6I8 0B58 8DPQB2418DP100/Q01X18@0Q02408@0Q02400@0Q02408@0Q02400@8001P18@0Q02408@010240 8@4Q 02408@0Q00428@030B4100TQ0`403TPQB2588DPQB2588DP10dP60@QV00<1IVH046H03P5V0FH1 IP5V 0FH1IP5V1P403VI8ITQVB6I8ITQVB6H116H20@08ITQVB6I8IP46IP030DQ8009800X1ITQVB6I8 ITP1 0dP00`58B005B00=0B588DPQB2588DPQB0040@TQ010102408@0Q02408@0102400P401B408@01 00D0 0P540000F0020@0AITQVB6I80B588DPQ0B588@402b400`4Q8@0:8@0M0B408@0Q02408@0Q0B41 8@0Q 02408@0Q0B408@402R40404Q0B580DPQB2588DPQB2420@a800<1B4P01dP60@9V01H1IP5V0FH1 IP5V 0FH1IP5V0FH1IP5V2`401DQVB6H100iV00<1IP400P402TQVB6I8ITQVB045IP070DQVB6I80@07 IP03 0DQ800=800P1B6I8ITQV0@a800@18DPQ1P4014PQB04;8@0A0B410@0Q02408@4Q02408@40A@00 05T0 0P4046I8ITQV0DPQB2580DPQB04;8@0I0B408@0Q02408@0Q02418@0Q02408@0Q00020@0J8@0Q 0240 8@0Q02418@0102408@0Q02408@020@B6I8ITQVB6I8ITQVB043IP0:0DQVB6I8ITQV0@EV00<1B4P01TP0 1@58 ITP100a800l1B2588DPQB2588DPQB0402b403`4Q02408@0Q00408@0Q00020DD0001J000B0FI8 ITQV 0DPQB2580DPQB2412b405P408@0Q02408@0Q02418@0Q02408@020@0>8@4Q02408@0Q02408@02 0@0= 8@0Q02408@0Q02408@030@@Q00<18B40124020588DPQB2580`401DPQB241011800<1B4P03dP0 705V B6I8ITQVB6I8ITQVB6I8IP5VB6I8ITQVB6H40@980101ITQVB6I8ITQVB6I8IP5V0P4:B0050FI8 IP40 2TP04@580@588DPQB2588DPQB24100`Q01H18@0Q02408@0Q02418@0Q02408@011@020DH0001K 0081 00m8ITQV0DPQB2418DPQB0402b400`4Q8@0:8@070@0Q02408@020@0B02400@0Q02408@0Q0240 8@01 3240104Q8B420@0D8DPQ0B588DPQ0B588DPQB2588DP30@03B05800m802D1B6I8ITQVB6I8ITQV B6I8 ITP1B6I8ITQVB6I8ITQVB6I8ITP100EV104056I8ITQVB058ITQVB6I8ITQVB6I80P403FI8ITQV B6I8 ITQVB0400VH00`58B009B08100=80DP02TP03`4QB2588DPQB2588DPQ0@0;8@0?0@0Q02408@0Q 0B40 8@0Q0081AP0005/00141IP58ITP18DPQB0588DPQ0@0;8@0e0@0Q02408@0Q02408@4Q02408@4Q 0240 8@0102408@0Q02408@0100408@0Q02408@0Q00401B420@8Q0P428@0?0B588DPQB2588DPQB258 00@1 3TP00`58B00?B00D0FI8ITQVB6I8ITQVB6I8ITQV0FH40@Y800d1ITQVB6I8ITQVB6I800813DP0 0`5V 0@08@0Q02408@0Q02408@448@812B400`4Q8@0<8@<1000FIVIP588DP1B2588@4;8@030B4Q00/Q00X102408@0Q02411b400`4Q8@098@030B4Q 00DQ 0P478@0A0B588DPQB2588DPQB2588DP00P401b588DPQB2401P400dPQ0@0AB0030DQ800]81P4? B003 0DQ800a80P4:B0811DP00`580@0?B00:0DPQB2588DPQB0<100=80B402b4010408@050@030241 04l0 001T000=0FIVIP588@4QB2580@0<8@0[0@0Q02408@0Q02408@0102408@0Q0B408@0Q02408@4Q 0240 8@0Q02400@098@811B400`4Q8@0>8@0?0B410DPQB2588DPQB25800`100TQB2588DPQB04014P9 0@05 8DPQB04044P00`58B00:B08100 8@0H 0B408@0Q02408@0Q0B408@0Q02418@01E`0006`000<1IP400`401TPQB2580@TQ0`4?8@812b40 0`4Q 8@058@030B4Q00XQ0141B2588DPQB2588DPQB2588@050@0S8DPQB2588DPQB2588DPQ0B588DPQ B258 8DPQB2588DPQB0400TP40@=83P4 8@03 0B4Q01@Q0P40CDPQB2588DPQB2588DPQB2588@4QB2588DPQB2588DPQB2588DP1B2588DPQB258 8DPQ B2588DPQB0588DPQB2588DPQB2588DPQB241019800<1B4P00TP20@0GB2588DPQB2588DPQB258 0DPQ B2588DP00P4042588DPQB2588DPQB2588DP20@8@030B4Q00TQ10458@030B4Q014Q03H18DPQB258 8DPQ B2588DPQB2588@4QB2588DPQB2588DPQB2588DP1B2588DPQB2588DPQB2440@0JB2418DPQB258 8DPQ B2588DPQB2588DPQ0B420A0Q01@102408@0Q02408@0Q0B408@0Q0081I00007P01046B0030B4Q 00TQ 0P468@030B4Q00TQ0P4;8@030B4Q00hQ1040?TP1B2588DPQB2588DPQB2588DPQB0588DPQB258 8DPQ B2588DPQB2580DPQB2588DPQB2588DPQB2588DP12DP40@0L8DPQB2580DPQB2588DPQB2588DPQ B258 8DPQB081010QB2588DPQB2588DPQB2580P4<8@080B408@0Q005V0000NP030@07B2588DPQ0@0< 8@04 0B408@813R420@TQ00<18B404R450A0Q02h18DPQB2588DPQB2588DPQB2588@4QB2588DPQB258 8DPQ B2588DPQ0B588DPQ10407TPQB2588DPQB2580DPQB2588DPQB2588DPQB2588@810R420@`Q0P40 3240 8@0Q02408@0Q008100LQ02408@0106L0001k00@11DP00`4Q8@0:8@030B41018Q0P468@030B4Q 01@Q 00@1B2581P40=2588DPQB2588@4QB2588DPQB2588DPQB2588DPQB0588DPQB2588DPQB2588DPQ B258 0DP40@0P8DPQB2588DPQB2588DPQ0B588DPQB2588DPQB2588DP20@0B8DPQB2580DPQB2588DPQ B241 3B401`408@0Q02400P5X0000O@030@068DPQB2412b430A@Q0P438@030B4Q01@Q00<18B402246 0@8@030B4Q00PQ0P40400Q02408@0Q02408@0Q02420@050240 8@00 0P5f0000S@0010400@44B0813B420@038@4Q01LQ1@40@R588DPQB2588DPQB2588DPQB0588DPQ B258 8DPQB2588DPQB2588DPQ0B588DPQB2588DPQB2588DPQB2588@4QB0@101/QB2588DPQB2588DPQ B258 8DP1B2588DPQB2400P4@8@8112430GP0002>008100L00@588DPQ00813B420APQ00<18B400R48 0@XQ 00<18B4052400`4Q8@0@8@H15b400`4Q8@038@8100l08@0Q02408@0Q02408@000`40100Q0242 0G/0 002@00D114P20@TQ0P428@<15B400`4Q8@0:8@L102E88DP1B2588DPQB2588DPQB2588DPQB258 8@4Q B2588DPQB25800P1024QB2580DPQB2588DPQB2588DPQB2588DPQB2588DP1B2400P4?8@811243 0Gd0 002C00@100A88DPQ0P458@811b430A4Q00<18B404R4?0@/Q00@18B4Q1`4<8@030B4Q01HQ1040 3`0Q 02408@0Q02408@0Q00020@048@0Q0081P00009H00`44B081008@030B4Q008@030B4Q01PQ00<18B405B470@"], ImageRangeCache->{{{146, 586}, {468, 144.5}} -> {-0.317558, 0.413534, 0.00216982, 0.00216982}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(SetCoordinateSystem["\", R\_0, \[Epsilon]]\)[r, \[Theta], \[CurlyPhi]]; \)\)], "Input", CellLabel->"In[30]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ \("============The coordinate system is set up============="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(" The Metric Matrix g^{i,j} is:"\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ RowBox[{"{", RowBox[{\({1, 0, 0}\), ",", \({0, 1\/r\^2, 0}\), ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", InterpretationBox[ RowBox[{ \(1\/R\_0\%2\), "-", \(\(2\ \((r\ Cos[\[Theta]])\)\ \[Epsilon]\)\/R\_0\%3\), "+", \(\(3\ r\^2\ Cos[\[Theta]]\^2\ \[Epsilon]\^2\)\/R\_0\%4\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 0, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Power[ Subscript[ R, 0], -2], Times[ -2, r, Cos[ \[Theta]], Power[ Subscript[ R, 0], -3]], Times[ 3, Power[ r, 2], Power[ Cos[ \[Theta]], 2], Power[ Subscript[ R, 0], -4]]}, 0, 3, 1]]}], "}"}]}], "}"}]], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("======================================================="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(" The Metric Matrix g_{i,j} is:"\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ RowBox[{"{", RowBox[{\({1, 0, 0}\), ",", RowBox[{"{", RowBox[{"0", ",", InterpretationBox[ RowBox[{\(r\^2\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 0, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Power[ r, 2]}, 0, 3, 1]], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", InterpretationBox[ RowBox[{ \(R\_0\%2\), "+", \(2\ r\ Cos[\[Theta]]\ R\_0\ \[Epsilon]\), "+", \(r\^2\ Cos[\[Theta]]\^2\ \[Epsilon]\^2\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 0, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Power[ Subscript[ R, 0], 2], Times[ 2, r, Cos[ \[Theta]], Subscript[ R, 0]], Times[ Power[ r, 2], Power[ Cos[ \[Theta]], 2]]}, 0, 3, 1]]}], "}"}]}], "}"}]], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("======================================================="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(" The 1st kind Christoffel symbol matrix is:"\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{\({0, 0, 0}\), ",", RowBox[{"{", RowBox[{"0", ",", InterpretationBox[ RowBox[{\(-r\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 0, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ -1, r]}, 0, 3, 1]], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", InterpretationBox[ RowBox[{ \(-\(Cos[\[Theta]]\ R\_0\ \[Epsilon]\)\), "-", \(r\ Cos[\[Theta]]\^2\ \[Epsilon]\^2\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ -1, Cos[ \[Theta]], Subscript[ R, 0]], Times[ -1, r, Power[ Cos[ \[Theta]], 2]]}, 1, 3, 1]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", InterpretationBox[ RowBox[{"r", "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 0, 3, 1]]}], SeriesData[ \[Epsilon], 0, {r}, 0, 3, 1]], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ RowBox[{"r", "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 0, 3, 1]]}], SeriesData[ \[Epsilon], 0, {r}, 0, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[ RowBox[{ \(r\ Sin[\[Theta]]\ R\_0\ \[Epsilon]\), "+", \(r\^2\ Cos[\[Theta]]\ Sin[\[Theta]]\ \[Epsilon]\^2\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ r, Sin[ \[Theta]], Subscript[ R, 0]], Times[ Power[ r, 2], Cos[ \[Theta]], Sin[ \[Theta]]]}, 1, 3, 1]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", InterpretationBox[ RowBox[{ \(Cos[\[Theta]]\ R\_0\ \[Epsilon]\), "+", \(r\ Cos[\[Theta]]\^2\ \[Epsilon]\^2\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ Cos[ \[Theta]], Subscript[ R, 0]], Times[ r, Power[ Cos[ \[Theta]], 2]]}, 1, 3, 1]]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[ RowBox[{ \(-\(r\ Sin[\[Theta]]\ R\_0\ \[Epsilon]\)\), "-", \(r\^2\ Cos[\[Theta]]\ Sin[\[Theta]]\ \[Epsilon]\^2\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ -1, r, Sin[ \[Theta]], Subscript[ R, 0]], Times[ -1, Power[ r, 2], Cos[ \[Theta]], Sin[ \[Theta]]]}, 1, 3, 1]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ RowBox[{ \(Cos[\[Theta]]\ R\_0\ \[Epsilon]\), "+", \(r\ Cos[\[Theta]]\^2\ \[Epsilon]\^2\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ Cos[ \[Theta]], Subscript[ R, 0]], Times[ r, Power[ Cos[ \[Theta]], 2]]}, 1, 3, 1]], ",", InterpretationBox[ RowBox[{ \(-\(r\ Sin[\[Theta]]\ R\_0\ \[Epsilon]\)\), "-", \(r\^2\ Cos[\[Theta]]\ Sin[\[Theta]]\ \[Epsilon]\^2\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ -1, r, Sin[ \[Theta]], Subscript[ R, 0]], Times[ -1, Power[ r, 2], Cos[ \[Theta]], Sin[ \[Theta]]]}, 1, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]]}], "}"}]}], "}"}]}], "}"}]], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("======================================================="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \(" The 2st kind Christoffel symbol matrix is:"\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[ RowBox[{\(-r\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 0, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ -1, r]}, 0, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[ RowBox[{ \(-\(Cos[\[Theta]]\ R\_0\ \[Epsilon]\)\), "-", \(r\ Cos[\[Theta]]\^2\ \[Epsilon]\^2\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ -1, Cos[ \[Theta]], Subscript[ R, 0]], Times[ -1, r, Power[ Cos[ \[Theta]], 2]]}, 1, 3, 1]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", InterpretationBox[ RowBox[{\(1\/r\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 0, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Power[ r, -1]}, 0, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ RowBox[{\(1\/r\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 0, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Power[ r, -1]}, 0, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[ RowBox[{ \(\(Sin[\[Theta]]\ R\_0\ \[Epsilon]\)\/r\), "+", \(Cos[\[Theta]]\ Sin[\[Theta]]\ \[Epsilon]\^2\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ Power[ r, -1], Sin[ \[Theta]], Subscript[ R, 0]], Times[ Cos[ \[Theta]], Sin[ \[Theta]]]}, 1, 3, 1]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[ RowBox[{ \(\(Cos[\[Theta]]\ \[Epsilon]\)\/R\_0\), "-", \(\(r\ Cos[\[Theta]]\^2\ \[Epsilon]\^2\)\/R\_0\%2\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ Cos[ \[Theta]], Power[ Subscript[ R, 0], -1]], Times[ -1, r, Power[ Cos[ \[Theta]], 2], Power[ Subscript[ R, 0], -2]]}, 1, 3, 1]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[ RowBox[{ \(-\(\(r\ Sin[\[Theta]]\ \[Epsilon]\)\/R\_0\)\), "+", \(\(r\^2\ Cos[\[Theta]]\ Sin[\[Theta]]\ \[Epsilon]\^2\)\/R \_0\%2\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ -1, r, Sin[ \[Theta]], Power[ Subscript[ R, 0], -1]], Times[ Power[ r, 2], Cos[ \[Theta]], Sin[ \[Theta]], Power[ Subscript[ R, 0], -2]]}, 1, 3, 1]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ RowBox[{ \(\(Cos[\[Theta]]\ \[Epsilon]\)\/R\_0\), "-", \(\(r\ Cos[\[Theta]]\^2\ \[Epsilon]\^2\)\/R\_0\%2\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ Cos[ \[Theta]], Power[ Subscript[ R, 0], -1]], Times[ -1, r, Power[ Cos[ \[Theta]], 2], Power[ Subscript[ R, 0], -2]]}, 1, 3, 1]], ",", InterpretationBox[ RowBox[{ \(-\(\(r\ Sin[\[Theta]]\ \[Epsilon]\)\/R\_0\)\), "+", \(\(r\^2\ Cos[\[Theta]]\ Sin[\[Theta]]\ \[Epsilon]\^2\)\/R \_0\%2\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ -1, r, Sin[ \[Theta]], Power[ Subscript[ R, 0], -1]], Times[ Power[ r, 2], Cos[ \[Theta]], Sin[ \[Theta]], Power[ Subscript[ R, 0], -2]]}, 1, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]]}], "}"}]}], "}"}]}], "}"}]], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ \("======================================================="\)], "Print", FontFamily->"Times", FontSize->16], Cell[BoxData[ InterpretationBox[ \({"Tokamak", R\_0, \[Epsilon]}\[InvisibleSpace]" is set up."\), SequenceForm[ {"Tokamak", Subscript[ R, 0], \[Epsilon]}, " is set up."], Editable->False]], "Print", FontFamily->"Times", FontSize->16] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(Clear[B, \ B\_0]; B[r, \[Theta], \[CurlyPhi]] = DefineVector[1, 0, Series[\(\[Epsilon]\ \(r\^\(2\ \)\) B\_0\)\/\(R\_0\ \ q[r] \((1 + \(\(\[Epsilon]\ r\)\/R\_0\) Cos[\[Theta]])\)\), { \[Epsilon], 0, 2}], B\_0\ R\_0]\)], "Input", CellLabel->"In[31]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ RowBox[{"Vector", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", InterpretationBox[ RowBox[{ \(\(B\_0\ r\^2\ \[Epsilon]\)\/\(q[r]\ R\_0\)\), "-", \(\(B\_0\ r\^3\ Cos[\[Theta]]\ \[Epsilon]\^2\)\/\(q[r]\ R\_0\%2\)\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ B\[UnderBracket]Subscript, Power[ r, 2], Power[ q[ r], -1], Power[ Subscript[ R, 0], -1]], Times[ -1, B\[UnderBracket]Subscript, Power[ r, 3], Cos[ \[Theta]], Power[ q[ r], -1], Power[ Subscript[ R, 0], -2]]}, 1, 3, 1]], ",", \(B\_0\ R\_0\)}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", InterpretationBox[ RowBox[{ \(\(B\_0\ \[Epsilon]\)\/\(q[r]\ R\_0\)\), "-", \(\(B\_0\ r\ Cos[\[Theta]]\ \[Epsilon]\^2\)\/\(q[r]\ R\_0\%2\)\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ B\[UnderBracket]Subscript, Power[ q[ r], -1], Power[ Subscript[ R, 0], -1]], Times[ -1, B\[UnderBracket]Subscript, r, Cos[ \[Theta]], Power[ q[ r], -1], Power[ Subscript[ R, 0], -2]]}, 1, 3, 1]], ",", InterpretationBox[ RowBox[{ \(B\_0\/R\_0\), "-", \(\(2\ \((B\_0\ r\ Cos[\[Theta]])\)\ \[Epsilon]\)\/R\_0\%2\), "+", \(\(3\ B\_0\ r\^2\ Cos[\[Theta]]\^2\ \[Epsilon]\^2\)\/R\_0\%3 \), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 0, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ B\[UnderBracket]Subscript, Power[ Subscript[ R, 0], -1]], Times[ -2, B\[UnderBracket]Subscript, r, Cos[ \[Theta]], Power[ Subscript[ R, 0], -2]], Times[ 3, B\[UnderBracket]Subscript, Power[ r, 2], Power[ Cos[ \[Theta]], 2], Power[ Subscript[ R, 0], -3]]}, 0, 3, 1]]}], "}"}]}], "]"}]], "Output", CellLabel->"Out[31]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(J = Simplify[\[Del]\(\[Cross]B[r, \[Theta], \[CurlyPhi]]\)]\)], "Input",\ CellLabel->"In[32]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ RowBox[{"Vector", "[", RowBox[{ RowBox[{"{", RowBox[{ InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[ RowBox[{ FractionBox[ RowBox[{\(B\_0\), " ", RowBox[{"(", RowBox[{\(2\ q[r]\), "-", RowBox[{"r", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], " ", "\[Epsilon]"}], \(q[r]\^2\)], "-", \(\(B\_0\ r\ Cos[\[Theta]]\ \[Epsilon]\^2\)\/\(q[r]\ R\_0\)\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ B\[UnderBracket]Subscript, Power[ q[ r], -2], Plus[ Times[ 2, q[ r]], Times[ -1, r, Derivative[ 1][ q][ r]]]], Times[ -1, B\[UnderBracket]Subscript, r, Cos[ \[Theta]], Power[ q[ r], -1], Power[ Subscript[ R, 0], -1]]}, 1, 3, 1]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[ RowBox[{ FractionBox[ RowBox[{\(B\_0\), " ", RowBox[{"(", RowBox[{\(2\ q[r]\), "-", RowBox[{"r", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], " ", "\[Epsilon]"}], \(q[r]\^2\ R\_0\%2\)], "+", FractionBox[ RowBox[{\(B\_0\), " ", "r", " ", \(Cos[\[Theta]]\), " ", RowBox[{"(", RowBox[{\(\(-5\)\ q[r]\), "+", RowBox[{"2", " ", "r", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], " ", \(\[Epsilon]\^2\)}], \(q[r]\^2\ R\_0\%3\)], "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ B\[UnderBracket]Subscript, Power[ q[ r], -2], Power[ Subscript[ R, 0], -2], Plus[ Times[ 2, q[ r]], Times[ -1, r, Derivative[ 1][ q][ r]]]], Times[ B\[UnderBracket]Subscript, r, Cos[ \[Theta]], Power[ q[ r], -2], Power[ Subscript[ R, 0], -3], Plus[ Times[ -5, q[ r]], Times[ 2, r, Derivative[ 1][ q][ r]]]]}, 1, 3, 1]]}], "}"}]}], "]"}]], "Output", CellLabel->"Out[32]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[\(|B[r, \[Theta], \[CurlyPhi]] | \)\ ]\)], "Input", CellLabel->"In[33]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ InterpretationBox[ RowBox[{ \(B\_0\), "-", \(\(B\_0\ r\ Cos[\[Theta]]\ \[Epsilon]\)\/R\_0\), "+", \(\(B\_0\ r\^2\ \((1 + 2\ Cos[\[Theta]]\^2\ q[r]\^2)\)\ \[Epsilon]\^2\)\/\(2\ q[r]\^2\ R\_0\%2\)\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 0, 3, 1]]}], SeriesData[ \[Epsilon], 0, {B\[UnderBracket]Subscript, Times[ -1, B\[UnderBracket]Subscript, r, Cos[ \[Theta]], Power[ Subscript[ R, 0], -1]], Times[ Rational[ 1, 2], B\[UnderBracket]Subscript, Power[ r, 2], Power[ q[ r], -2], Plus[ 1, Times[ 2, Power[ Cos[ \[Theta]], 2], Power[ q[ r], 2]]], Power[ Subscript[ R, 0], -2]]}, 0, 3, 1]]], "Output", CellLabel->"Out[33]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(b = Simplify[\(B[r, \[Theta], \[CurlyPhi]]\)\&^]\)], "Input", CellLabel->"In[34]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ RowBox[{"Vector", "[", RowBox[{ RowBox[{"{", RowBox[{ InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[ RowBox[{\(\(r\^2\ \[Epsilon]\)\/\(q[r]\ R\_0\)\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ Power[ r, 2], Power[ q[ r], -1], Power[ Subscript[ R, 0], -1]]}, 1, 3, 1]], ",", InterpretationBox[ RowBox[{ \(R\_0\), "+", \(r\ Cos[\[Theta]]\ \[Epsilon]\), "-", \(\(r\^2\ \[Epsilon]\^2\)\/\(2\ \((q[r]\^2\ R\_0)\)\)\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 0, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Subscript[ R, 0], Times[ r, Cos[ \[Theta]]], Times[ Rational[ -1, 2], Power[ r, 2], Power[ q[ r], -2], Power[ Subscript[ R, 0], -1]]}, 0, 3, 1]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[ RowBox[{\(\[Epsilon]\/\(q[r]\ R\_0\)\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 1, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ Power[ q[ r], -1], Power[ Subscript[ R, 0], -1]]}, 1, 3, 1]], ",", InterpretationBox[ RowBox[{ \(1\/R\_0\), "-", \(\(r\ Cos[\[Theta]]\ \[Epsilon]\)\/R\_0\%2\), "+", \(\(r\^2\ \((\(-1\) + 2\ Cos[\[Theta]]\^2\ q[r]\^2)\)\ \[Epsilon]\^2\)\/\(2\ q[r]\^2\ R\_0\%3\)\), "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 0, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Power[ Subscript[ R, 0], -1], Times[ -1, r, Cos[ \[Theta]], Power[ Subscript[ R, 0], -2]], Times[ Rational[ 1, 2], Power[ r, 2], Power[ q[ r], -2], Plus[ -1, Times[ 2, Power[ Cos[ \[Theta]], 2], Power[ q[ r], 2]]], Power[ Subscript[ R, 0], -3]]}, 0, 3, 1]]}], "}"}]}], "]"}]], "Output", CellLabel->"Out[34]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[J\[Cross]B[r, \[Theta], \[CurlyPhi]]]\)], "Input", CellLabel->"In[35]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ RowBox[{"Vector", "[", RowBox[{ RowBox[{"{", RowBox[{ InterpretationBox[ RowBox[{ FractionBox[ RowBox[{\(B\_0\%2\), " ", "r", " ", RowBox[{"(", RowBox[{\(\(-2\)\ q[r]\), "+", RowBox[{"r", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], " ", \(\[Epsilon]\^2\)}], \(q[r]\^3\ R\_0\%2\)], "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 2, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ Power[ B\[UnderBracket]Subscript, 2], r, Power[ q[ r], -3], Power[ Subscript[ R, 0], -2], Plus[ Times[ -2, q[ r]], Times[ r, Derivative[ 1][ q][ r]]]]}, 2, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ RowBox[{ FractionBox[ RowBox[{\(B\_0\%2\), " ", "r", " ", RowBox[{"(", RowBox[{\(\(-2\)\ q[r]\), "+", RowBox[{"r", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "r", "]"}]}]}], ")"}], " ", \(\[Epsilon]\^2\)}], \(q[r]\^3\ R\_0\%2\)], "+", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 2, 3, 1]]}], SeriesData[ \[Epsilon], 0, { Times[ Power[ B\[UnderBracket]Subscript, 2], r, Power[ q[ r], -3], Power[ Subscript[ R, 0], -2], Plus[ Times[ -2, q[ r]], Times[ r, Derivative[ 1][ q][ r]]]]}, 2, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]], ",", InterpretationBox[\(O[\[Epsilon]]\^3\), SeriesData[ \[Epsilon], 0, {}, 3, 3, 1]]}], "}"}]}], "]"}]], "Output", CellLabel->"Out[35]=", FontFamily->"Times", FontSize->16] }, Open ]], Cell[BoxData[ \(Symbolize[\ \(T\_ \[DoubleVerticalBar] \)\ ]\ \ ; \ Symbolize[\(T\_ \[UpTee] \)]\)], "Input", CellLabel->"In[36]:=", FontFamily->"Times", FontSize->16], Cell[TextData[ "\[MathematicaIcon] Define the particle drift velocities."], "3ColumnSmallBox",\ FontSize->16, FontWeight->"Bold"], Cell[BoxData[ \(\(\ \ Vg = \(c\ \ \(T\_ \[UpTee] \)\)\/\(e \((\(|\ B[r, \[Theta], \[CurlyPhi]] | \))\)\^2\)\ \ \ \ b\[Cross]\ \[Del]\ \((\(|B[r, \[Theta], \[CurlyPhi]] | \))\); Vc = \(\(c\ 2\ \ \(T\_ \[DoubleVerticalBar] \)\)\/\(e\ \((\(|B[r, \[Theta], \[CurlyPhi]] | \))\)\)\) b\ \[Cross]\ \((\ \((b\[CenterDot]\[Del])\) b)\); \ Vd = FullSimplify[Vg + Vc]; \ \)\)], "Input", CellLabel->"In[37]:=", PageWidth->PaperWidth, FontFamily->"Times", FontSize->16], Cell[BoxData[ \(Vd\[LeftDoubleBracket]1\[RightDoubleBracket]\)], "Input", CellLabel->"In[38]:=", FontFamily->"Times", FontSize->16] }, Open ]] }, FrontEndVersion->"X 3.0", ScreenRectangle->{{0, 1280}, {0, 1024}}, ScreenStyleEnvironment->"Working", WindowSize->{927, 770}, WindowMargins->{{Automatic, 21}, {36, Automatic}}, PrintingPageRange->{Automatic, Automatic}, PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], Inherited, Cell[ TextData[ { OptionValueBox[ "FileName"]}], "Header"]}, {Cell[ TextData[ { OptionValueBox[ "FileName"]}], "Header"], Inherited, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, PrintingOptions->{"PrintingMargins"->{{36, 36}, {36, 36}}, "PaperSize"->{612, 792}, "PaperOrientation"->"Landscape", "PrintCellBrackets"->False, "PrintRegistrationMarks"->False, "PrintMultipleHorizontalPages"->False, "FirstPageHeader"->False, "Magnification"->1}, StyleDefinitions -> "MySlideColorStyle.nb" ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1731, 51, 423, 13, 91, "Subsection"], Cell[CellGroupData[{ Cell[2179, 68, 147, 5, 32, "Input"], Cell[2329, 75, 128, 3, 47, "Print"], Cell[2460, 80, 133, 4, 47, "Print"], Cell[2596, 86, 112, 3, 28, "Print"] }, Closed]], Cell[2723, 92, 200, 6, 40, "2ColumnSmallBox"], Cell[CellGroupData[{ Cell[2948, 102, 205, 6, 32, "Input"], Cell[3156, 110, 494, 15, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3687, 130, 239, 6, 32, "Input"], Cell[3929, 138, 507, 15, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4473, 158, 202, 6, 39, "Input"], Cell[4678, 166, 789, 25, 50, "Output"] }, Open ]], Cell[5482, 194, 204, 6, 44, "3ColumnSmallBox"], Cell[CellGroupData[{ Cell[5711, 204, 221, 6, 55, "Input"], Cell[5935, 212, 328, 9, 28, "Print"], Cell[6266, 223, 249, 6, 28, "Print"] }, Closed]], Cell[CellGroupData[{ Cell[6552, 234, 314, 8, 50, "Input"], Cell[6869, 244, 153, 4, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7059, 253, 378, 10, 55, "Input"], Cell[7440, 265, 361, 8, 50, "Output"] }, Open ]], Cell[7816, 276, 188, 6, 44, "1ColumnBox"], Cell[CellGroupData[{ Cell[8029, 286, 247, 7, 32, "Input"], Cell[8279, 295, 158, 5, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8474, 305, 136, 5, 32, "Input"], Cell[8613, 312, 336, 7, 50, "Output"] }, Open ]], Cell[8964, 322, 199, 6, 44, "1ColumnBox"], Cell[CellGroupData[{ Cell[9188, 332, 353, 8, 101, "Input"], Cell[9544, 342, 130, 3, 47, "Print"], Cell[9677, 347, 104, 3, 28, "Print"], Cell[9784, 352, 105, 3, 28, "Print"], Cell[9892, 357, 129, 3, 28, "Print"], Cell[10024, 362, 104, 3, 28, "Print"], Cell[10131, 367, 105, 3, 28, "Print"], Cell[10239, 372, 129, 3, 28, "Print"], Cell[10371, 377, 117, 3, 28, "Print"], Cell[10491, 382, 188, 4, 66, "Print"], Cell[10682, 388, 129, 3, 28, "Print"], Cell[10814, 393, 117, 3, 28, "Print"], Cell[10934, 398, 188, 4, 66, "Print"], Cell[11125, 404, 129, 3, 28, "Print"], Cell[11257, 409, 208, 5, 28, "Print"] }, Closed]], Cell[CellGroupData[{ Cell[11502, 419, 215, 6, 50, "Input"], Cell[11720, 427, 26307, 1608, 142, 16484, 1481, "GraphicsData", "PostScript", "Graphics"] }, Open ]], Cell[CellGroupData[{ Cell[38064, 2040, 189, 6, 32, "Input"], Cell[38256, 2048, 130, 3, 47, "Print"], Cell[38389, 2053, 104, 3, 28, "Print"], Cell[38496, 2058, 111, 3, 45, "Print"], Cell[38610, 2063, 129, 3, 28, "Print"], Cell[38742, 2068, 104, 3, 28, "Print"], Cell[38849, 2073, 108, 3, 30, "Print"], Cell[38960, 2078, 129, 3, 28, "Print"], Cell[39092, 2083, 117, 3, 28, "Print"], Cell[39212, 2088, 193, 4, 66, "Print"], Cell[39408, 2094, 129, 3, 28, "Print"], Cell[39540, 2099, 117, 3, 28, "Print"], Cell[39660, 2104, 199, 4, 106, "Print"], Cell[39862, 2110, 129, 3, 28, "Print"], Cell[39994, 2115, 212, 5, 28, "Print"] }, Closed]], Cell[CellGroupData[{ Cell[40243, 2125, 332, 9, 50, "Input"], Cell[40578, 2136, 226, 5, 66, "Message"] }, Closed]], Cell[CellGroupData[{ Cell[40841, 2146, 136, 5, 27, "Input"], Cell[40980, 2153, 259, 7, 68, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41276, 2165, 132, 5, 32, "Input"], Cell[41411, 2172, 901, 18, 238, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42349, 2195, 145, 5, 32, "Input"], Cell[42497, 2202, 931, 27, 112, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43465, 2234, 141, 5, 32, "Input"], Cell[43609, 2241, 3775, 98, 264, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47421, 2344, 162, 5, 33, "Input"], Cell[47586, 2351, 260, 6, 73, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47883, 2362, 131, 5, 32, "Input"], Cell[48017, 2369, 195, 5, 58, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48249, 2379, 132, 5, 36, "Input"], Cell[48384, 2386, 1016, 22, 381, "Output"] }, Open ]], Cell[49415, 2411, 180, 4, 64, "3ColumnSmallBox"], Cell[49598, 2417, 135, 4, 32, "Input"], Cell[CellGroupData[{ Cell[49758, 2425, 186, 5, 78, "Input"], Cell[49947, 2432, 130, 3, 47, "Print"], Cell[50080, 2437, 104, 3, 28, "Print"], Cell[50187, 2442, 105, 3, 28, "Print"], Cell[50295, 2447, 129, 3, 28, "Print"], Cell[50427, 2452, 104, 3, 28, "Print"], Cell[50534, 2457, 105, 3, 28, "Print"], Cell[50642, 2462, 129, 3, 28, "Print"], Cell[50774, 2467, 117, 3, 28, "Print"], Cell[50894, 2472, 188, 4, 66, "Print"], Cell[51085, 2478, 129, 3, 28, "Print"], Cell[51217, 2483, 117, 3, 28, "Print"], Cell[51337, 2488, 188, 4, 66, "Print"], Cell[51528, 2494, 129, 3, 28, "Print"], Cell[51660, 2499, 208, 5, 28, "Print"] }, Closed]], Cell[51883, 2507, 143, 4, 27, "Input"], Cell[52029, 2513, 248, 7, 55, "Input"], Cell[52280, 2522, 128, 3, 44, "3ColumnSmallBox"], Cell[52411, 2527, 448, 11, 84, "Input"], Cell[52862, 2540, 167, 4, 44, "3ColumnSmallBox"], Cell[53032, 2546, 238, 8, 54, "Input"], Cell[53273, 2556, 271, 7, 78, "Input"], Cell[CellGroupData[{ Cell[53569, 2567, 150, 4, 32, "Input"], Cell[53722, 2573, 1218, 23, 262, "Output"] }, Open ]], Cell[54955, 2599, 253, 6, 64, "3ColumnSmallBox"], Cell[CellGroupData[{ Cell[55233, 2609, 1270, 32, 127, "Input"], Cell[56506, 2643, 100255, 3874, 351, 61019, 3384, "GraphicsData", "PostScript", "Graphics"] }, Open ]], Cell[CellGroupData[{ Cell[156798, 6522, 217, 6, 32, "Input"], Cell[157018, 6530, 130, 3, 47, "Print"], Cell[157151, 6535, 104, 3, 28, "Print"], Cell[157258, 6540, 1062, 28, 93, "Print"], Cell[158323, 6570, 129, 3, 28, "Print"], Cell[158455, 6575, 104, 3, 28, "Print"], Cell[158562, 6580, 1210, 31, 50, "Print"], Cell[159775, 6613, 129, 3, 28, "Print"], Cell[159907, 6618, 117, 3, 28, "Print"], Cell[160027, 6623, 6154, 139, 170, "Print"], Cell[166184, 6764, 129, 3, 28, "Print"], Cell[166316, 6769, 117, 3, 28, "Print"], Cell[166436, 6774, 8072, 177, 357, "Print"], Cell[174511, 6953, 129, 3, 28, "Print"], Cell[174643, 6958, 268, 7, 28, "Print"] }, Closed]], Cell[CellGroupData[{ Cell[174948, 6970, 384, 10, 88, "Input"], Cell[175335, 6982, 2969, 74, 156, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[178341, 7061, 183, 6, 32, "Input"], Cell[178527, 7069, 3936, 94, 186, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[182500, 7168, 169, 5, 32, "Input"], Cell[182672, 7175, 987, 28, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[183696, 7208, 170, 5, 38, "Input"], Cell[183869, 7215, 3163, 80, 200, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[187069, 7300, 168, 5, 32, "Input"], Cell[187240, 7307, 2899, 70, 106, "Output"] }, Open ]], Cell[190154, 7380, 182, 5, 32, "Input"], Cell[190339, 7387, 134, 4, 44, "3ColumnSmallBox"], Cell[190476, 7393, 529, 12, 127, "Input"], Cell[191008, 7407, 141, 4, 32, "Input"] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)