(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    593049,      10953]
NotebookOptionsPosition[    586372,      10737]
NotebookOutlinePosition[    586718,      10752]
CellTagsIndexPosition[    586675,      10749]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Start", "Subsubsection",
 CellChangeTimes->{{3.4636791769644737`*^9, 3.4636791776844735`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"phidot", "[", "\[Rho]_", "]"}], ":=", 
  FractionBox["L", 
   RowBox[{"m", " ", 
    RowBox[{"\[Rho]", "^", "2"}]}]]}]], "Input",
 CellChangeTimes->{{3.463414024466*^9, 3.463414035909*^9}, {3.463414144395*^9,
    3.463414157099*^9}, 3.46341427294*^9, {3.46342248045*^9, 
   3.463422499277*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"U", "[", "\[Rho]_", "]"}], ":=", 
  RowBox[{"-", 
   FractionBox["k", "\[Rho]"]}]}]], "Input",
 CellChangeTimes->{{3.4634229113050003`*^9, 3.463422931729*^9}, 
   3.4636791858304734`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Ueff", "[", "\[Rho]_", "]"}], ":=", 
  RowBox[{
   FractionBox[
    RowBox[{"L", "^", "2"}], 
    RowBox[{"2", "m", " ", 
     RowBox[{"\[Rho]", "^", "2"}]}]], "+", 
   RowBox[{"U", "[", "\[Rho]", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.463422855156*^9, 3.46342290637*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Ellipse for k/r potential  (Emin < E < 0)", "Subsubsection",
 CellChangeTimes->{{3.463423507049*^9, 3.4634235166219997`*^9}, {
  3.4634257945039997`*^9, 3.46342579577*^9}, {3.463679239144473*^9, 
  3.4636792488564734`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"CC", "[", 
   RowBox[{"m_", ",", "k_", ",", "L_"}], "]"}], ":=", 
  FractionBox[
   RowBox[{"m", " ", "k"}], 
   RowBox[{"L", "^", "2"}]]}]], "Input",
 CellChangeTimes->{{3.46342356191*^9, 3.4634236189960003`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"eps", "[", 
   RowBox[{"E_", ",", "m_", ",", "k_", ",", "L_"}], "]"}], ":=", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"1", "+", 
    FractionBox[
     RowBox[{"2", " ", "E", " ", 
      RowBox[{"L", "^", "2"}]}], 
     RowBox[{"m", " ", 
      RowBox[{"k", "^", "2"}]}]]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.463423598441*^9, 3.463423674651*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"rho", "[", 
   RowBox[{
   "\[Phi]_", ",", "E_", ",", "m_", ",", "k_", ",", "L_", ",", "\[Phi]0_"}], 
   "]"}], ":=", 
  FractionBox["1", 
   RowBox[{
    RowBox[{"CC", "[", 
     RowBox[{"m", ",", "k", ",", "L"}], "]"}], 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{
       RowBox[{"eps", "[", 
        RowBox[{"E", ",", "m", ",", "k", ",", "L"}], "]"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Phi]", "-", "\[Phi]0"}], "]"}]}]}], ")"}]}]]}]], "Input",
 CellChangeTimes->{{3.463423750743*^9, 3.4634238826280003`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Emin", "[", 
   RowBox[{"m_", ",", "k_", ",", "L_"}], "]"}], ":=", 
  RowBox[{"-", 
   FractionBox[
    RowBox[{"m", " ", 
     RowBox[{"k", "^", "2"}]}], 
    RowBox[{"2", " ", 
     RowBox[{"L", "^", "2"}]}]]}]}]], "Input",
 CellChangeTimes->{{3.463424425516*^9, 3.4634244897200003`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Ellip1", "[", 
   RowBox[{"E_", ",", "m_", ",", "k_", ",", "L_", ",", "\[Phi]0_"}], "]"}], ":=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"rho", "[", 
        RowBox[{
        "\[Phi]", ",", "E", ",", "m", ",", "k", ",", "L", ",", "\[Phi]0"}], 
        "]"}], " ", 
       RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", 
      RowBox[{
       RowBox[{"rho", "[", 
        RowBox[{
        "\[Phi]", ",", "E", ",", "m", ",", "k", ",", "L", ",", "\[Phi]0"}], 
        "]"}], " ", 
       RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Phi]", ",", "0", ",", 
      RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.463424028453*^9, 3.463424050315*^9}, {
  3.4634240979110003`*^9, 3.4634241638450003`*^9}, {3.463424205358*^9, 
  3.4634243305290003`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Emin", "[", 
  RowBox[{"1", ",", "1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.463424499303*^9, 3.4634245025220003`*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["1", "2"]}]], "Output",
 CellChangeTimes->{3.463424505109*^9, 3.463679254347473*^9, 
  3.4637524834222603`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ellip1", "[", 
  RowBox[{
   RowBox[{"-", ".1"}], ",", "1", ",", "1", ",", "1", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.463424334743*^9, 3.463424356193*^9}, {
  3.4634245096029997`*^9, 3.463424563755*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw12nVUlM/3OPB9QEJ66ZJYxUJRVEQBnRFFOqT0DYhIKAIiYNFgIiApikEL
0gpII8yCdHfH0l3S/X0+5/x++wd7XufZszNz5947s+cgavpI24KKQCAk43/+
966zWVNXsEiChP/3GmPjWY/DXd76tYSSFgySihgdzXGzpcz9jE2LAT+FR7TW
FkjwlODhbhP6FOASRnhnjJtdcP+jzF8ZIAiOH/o6T4IONWqmZIMccLdOXjJp
jgT5jybpnaf5A/b7DOb6z5LgPk/BM643yWC94XeV4gwJ1g2PGS4nl4A83erH
bVMk+HLzd9nyXilwl9Stkp4kwbjM+k+2OhWgMiGs33acBMMuv8B0flSBmCT6
audRElw+pHjtw3oNoObljDUcJsEm050kEZV6wFKu4UUcxM1Br/RMvREM6w72
bffg4/mZV1CFN4NVtYjAM10kGNCv0Mlf2gJa9qnXXGonQTOhT5JZU63A2fHp
w7YGEqy2UpbUPd8BFotuHzKtJUGB170pKoadgOoGI1VZJT6f83qC8R5d4Hbs
0ihzMQmas5BonpX3AMclZtXlPyS4k3Eyu3uiF8Tcjw5JzyVB5wMhNd4M/eCh
yd349F8kSLLO5m4XowBDm825um8kGDu4ev6Q6RB4G+bkb/+JBH9E2MKDC0Og
KiBxZDaQBDn9dXVT3YYB/4ZBkf0bEjwtn3lMP3QERBhUo1QbEtRbUXeLKx0D
iv3z0UL3SFDs5pR/vMY4EIi88NTqDgkmdXwpFuwcB/Z+1EdDbpDg9dV7enqT
E0Cnr//jhXP4/J85ifzeNw0u7wbWe58gwYJfGz2YzzSQrD/vm3uIBK16pa1/
ssyAibmrC784STDrUcQ5Hu5Z8OJBnTzbkig8oNmkPSo4D9zFJHsnEkWh0fUT
HAqvF8HnrBZqm0hRaDbbH+hQvgjseDoj6kJEIWPE9/oT9P/Abnn0aQkPUfhv
ORdc9fkH+kWqFx20RWGZ5Vxjz7slEGPm27d2XRQ2erhOa1csgbC0Qo07sqIw
R4CBqEmzDKjU85o7DorCj1U1Ci0ey4BE+3HMbUkE/vSITl21XQGP9ho8xcZF
oMy3n7IvEleAfJZjxe9uEXhh2uaK7/AK+ERrZ/u2WARuGOm/E9BfBayRYYns
/iKwQVkiVFhqDSh1hx6SOSgCtVm3Rc2714H5bdYHPlwiMGzpP7sspg3wPvKY
dxWdCBx76k18cXkDrD2wTj3RKQyviMvTeEVtgP/opH/N3xeGqmLmMurGm0Ce
7aDRF1VheFn24jO795vgPlfiy6OnhCGVGukgS/4msE7n391cEYL8Njy38ji2
gFnqiSCfl0JQU/yYZCt5C9AKJG04WQjBfkev2oapLXBMRfikvpIQnC/T9lDk
3AY/Y48972TG3VN2L8ViGxQJJqYKfj4A+8VOrutR7QDxT4wTRkmC8N+foFtv
Du6Cyo93vjj6C8K/R0OTpK7ugplTUR3+DoKQKrWb6GS6CwJzvG6nygjC1ifK
e/mRu0AlurWjpFoARvmw7Fzg2gMf37y9/venAORqE/ELkNwD/bbX20uCBWDs
Ua7Tbup74Amaci82EID5R6g6hV/vAYcfwx9qpviheKjT5eCZPSB/1TOnpZ4f
Hvfwc+ikIsCPSt+4BzL4YSH1SqAUKwEWH7Szw1z4oR/96B2DIwS4Q+LzfsHI
D1PXiaX6egTIsjU32niSD3qczvpkkkCA8fWHz8uz88HEe9k/FtMJkOOmQEDh
Ki+81m3mo1dAgIGaEg0tiBearTsJhdYRYJj5De132rzwVPPzUoYFAlwBZ5CO
NC/89MYsX3adAA1yx+fFBXmhkmXkSXkCBjNkFbupx3jgTZ6LI42sGDwnlCdm
4MwDeZrPEfZOYDCQp4s15A4P9K3tUh89i8G+7SKWvms80MR9oPq7DAavHrXU
C2flgYRY7ZQkRQymnvlvqy+OG16UkHWevINBfWKBb6gvNyzevpP21QKD63WH
hE3tuWEFh1b5YWsMlupGHhe/xA1/ZFuONz7F4LTOF6/gNi74VGxS7Zk3BnMs
NiYN/nBBFY79Uot+GBTYUjkm9Z0LKrcnrKsEY5B57eGosD0XnCzsUg/7isEC
v8SM07e44E0xD9eQCAyyh2Xs6AAuyNdUQbaJwaD1S+foZmYuuFlvUlyUiK/f
6usViRVOeHTfK96LqRjcdbgxF9bLCeOrxvND0jCoSLFY+J3MCQU9UzkWszFY
k7S9UKPCCTPF5u9eL8GgkJz8zb9nOOEZPj7TllJ8PluyWfX8nPBIDNP+axUY
XKEWKhCd5oBSjHIOTTUY9P/AG/yghQPub10vn6vD4D+6paKyAg548Ij7+EID
BhVWbG0L3nPADs/AlNgWDJrPLPDqPeWA/WcdKPptGFT6y/+A2pgDepv/3Z1r
x+D9y3l25dc5YDw6rPGwE4O3DEphxCkOKP66hbO5C4OiWaaTPrwccNgz5POB
HgwKLs44vcc4YLhwhZBWLwZz2RYJ36fY4YKrwcyDPgy21Ui9r29hh+x+9QrW
/fjzvsKjrIXssETt7CPdAQxKqNUMmf9gh192j6SIUTCoFz9U1hDADjmedIMB
3Gfl63s1ndihgSntwxeDGERm0ZKjpuzwWsnyU6YhDP60K6gLUGOHCbIuYZ64
nzPX5GmeZ4e3vm2J9uMeuNC0c0iEHfbqmCmKDWOQbHwompWBHT6nF1fXx00y
e5zEukyERiT9x/a478RVCov1E2HcI4eNZ7jTtt7TalUS4aHaUKH7uF/88DEL
zCBCs5b7ovK4iXILMmNhRLj0jRnS46Z/rxN4w4sIM1wu5ebh4684Z95rtifC
+NZzFfq4J9o8yJZGROg/lZc4gK+n50BwJKciEXqSBcJ0cR9WlaFplyTC5l3J
7ix8/TXv5P6lCBLhb4pRJDXuX+Ot977QEaHrsTeHL+Pxy9ifb/rtHxs0ExVM
ssDjW1kqPJrRxwZ9vgiYO+Pxby/MmxmoZINLqzT+rvj+eG0VPidlssGb18ZM
bPD9Y7cff+UcyQbTVbS4VLoxKPn8Eqf1MzaofqCQqrEDg5Hb/kHUpmzQ2DIk
yRHPjwJP3Zfp6mzQtzyCyIbnz8OH6cnqYmwwO79vhbEZg9vy0be9Wdng/T6b
a+qNGORfWbX8s8QKaUL4FV3qMag2r3T3RzgrpGZ8/TiiGoMabCvvxhxYYYbv
PtGQSgyOSUVl3lJihY0nJHyel2NQi+dfefMSC7wZJBRIj9fHTfX0l91VLJDl
YXxyNsKgSVXKDEcUC/TuNfbUKcSgsZyrtYA6CxwaZVMzyMXzgSVNwTmRGe4y
a+z/jtfjnPdyEtMLZhjvahtQl4TBfSbSkw23mOHCyJ2UiXgMtrA5PZ+gZ4aO
3ST/xWgMlrcPmRlbM8FH53XodT9ikGbMPBdcZITJ5RmpPk4YXH3cK9bIwQgN
lgO5OvF+c/XxRRgwxwAlNX3u8DlgkPWHXf/nWAaoIKP4n6MV3o8MPW63sTPA
gaxcqlQD/PuuBfA1rNFDx1DNJ7wXMQjWH5Kk2+hhHyvRKO8cBqXl6WRqMugh
3/cXE1qnMXiRpnH4mS09fj9b9Dc/guf34LxMxzgd1DpQpEviwmC/Ra5EyBAt
bD7tYsI7T4B7b8r2V5bSwqrVFAbvKQI0mtWoEY6nhf2Gir5LowSonSpiJWOD
f95t0jm7lwBBDnGOZ50GvlgzWlytIsADTJ0/tblpYI3Z6dOO3wnwX65Gf4E1
NZzuusBxQAd3+kIWSZsav3/1ca6pE6ANUfJ3wgVqGHlmpKhOiQCPWJW/I9JS
w8tuvnr2lwnQOGrSVzuGCh66y/TqwzECDH5dFGyP5/UlwYqMuN09kKbB/k7M
gQDd+9Tc9LT3wA/GMjldAwIMv6bp6X19D7yXmZaOkSfARledY/kye2BU1kbn
GwcBvrE9PkU8uAfKO8NrNh/ugcBvdx0jlnZBQveCew7tLqDKllu+FrILzhzj
WCs23QJwv3uga+sOcPWp29GQ2QIunqfPOVfuAB92dWM29i1ghfp+PP+zA9LK
hPYkSjZBHJ+jokPsDgj6Vf+p5dAm0O175235ZAeU+cUSnZfWgca/2VJLzh2A
GWm+0sxcBVVMmPBRvW1wcJhRwS14FfBqGjA6Km+DLaZW3ja7VbBS8C2x6tI2
+CMtRkslsQoSuL2OOhzeBuxXk5+rJK2AcEWycdfaFjBwKak0TVoGgNAftP/b
Fvgcpu9/vOIf8DE703dqeBPQyF8NLW2YA92lzl08rhtgvMLc41z0HNDJLrFo
st8AxwnXkzoc5oDxzPNhv/sbIK3ZrSCbew78ZCwqZNXZAHir8mo0mQVn6N3O
SR/fAKw5XW0Xd6fBnZFkSZ6udRDneiNcwmgSWBPujB+9uA66zVmpOD+PgIsZ
T2u7qNZAU/WpW672I+Bbqm1XwPoqaDd1VGFTHQE0XVPZynOr4IWqIFf+7jDw
dssbruxaBblVF5pZLIeBzaWefStpqyD8Uluwj/wQ6K5aU9lnsgqSa4sMVLgo
YMNP9tU2eQWwHjom0aveCTo89cvE/ZeBMiJH0SlXgrFFBbfvz/8Bvdluq8zc
OFBwMC5mIHQBOEBvRrnoLCQ/YvDpwtNZ/PdExu3HC+Xog8RxZAangBSlqdm6
pBFtTl+M4aAbB3JjSKdmthVd9vlDTuYYAfUKFZFSXJ2I5k6nKaPrIDAlvHvt
JdqJuOaShfnsB0Gge9qL+pOdaI5j6uqxe4Pg4Nez47LXO5HKBn2BltYg0IhJ
UPn4rBNV25Ml/hwaBB7XKL+U2zrRHTlqL+p6CmChaPUt+HShs7R36RVJFNC7
NHq6u7MbKWH+q04xfWDSf76Ibqgbud9hFGUN6AOauf73T053I88uvax4lz7A
OkQ8cHenG51578k2rNsHrkj6xFuJ9iDP3XyFl3R9IO1+7VcGyx7UfN1B1+Rh
LzgjEDMQOd+DBjbbfd7J9gCv+7zrByZ7EbnleegGpROkjgXycy72IpBMmiur
7QSltJeVqTZ6UUvii7cfczvBw8HR/nL6PkRrxWd3ObATSMeNPV480ocMRk42
ZYNOYO0y+KTRvA9F03gdBJEdYDZRmtTe2Yeky9q5v5i0A3vUOdI+0IckL6rW
V6i1gyYVhuuNY31oxoDGcuNCO4i0X1pOWe5D1aTs8xbEdhD94LUTC1s/SmO/
smBc0gbMjwemP1XoR+K5jTc6D7WBteFd24WkfuSkenenfroFOHwuMFpI60e1
eCb96mwBIadd4iaz+9G3545zQWUtwKnBX6+ypB+VHo8PNY5sAb9MRvzOd/ej
S9dvIU6dFsDSswC66AbQQ+c50r/8ZpD0bLhB3XgAxd4Lt7jzvgmkvIs08jAb
QK+Ayd93Tk3gy/6YhCTLASRc/hRm3msCiecXvOccBtDFzVR/4pUmwMvDUizu
NYC4LvGeH11pBPp29o/cfw4g94ud3nN3GsHJzwFPQ9cHkKFdo8OCVT3wec4r
l789gGqWq/mgUj2In7WctSZQ0OLH59PBYvUgP0+z9cU+CpJ5+WzvCqUOLHdW
9PkzUdDMtpR7mV4dKLD8kSEhSEFhCsjF+EotYLkgned7kYI8fKg7C/mrQQ3b
hQdqshT0ddXpkfV6FdjdW4pmuERBDQMSuQLtVeBoUU+aB6Qgx6dWGq+DqsDg
2x4DNUUKeuS0KfaUvgrQxPIG2OlSkPyLg1ebVyvA8m5B5qQNBSVouDiYtJUB
5j9LQq62FHTaZXrCI60MeGqtFTHaUdC2ANVetG8Z2DtF/k56TEE3tdLXZq+U
Ad3ZYJ5TThQkHCHzNfZnKXDQ7TP6+5qCeAoCot69+wuM80PeHHtLQVdZdaca
zP4Ckn/XwnsvCnrD/8SHD/wFXxVoglV9KOip2ueC3ysloAuacSQEUNC7ldum
1GYlYE/jaHr/FwqS0DWqZbxcDBhyGm/xfaMg8euaRs/4isH7CDmNG2EUpOKp
sTm0TAZHPq0dyougoEE9N42SZDIovdXywfI7BcVGCnZ/5iODYXpWTDEFj2fx
seNXpwvBG+n9grR/8Pjzei3sM84DFnaKbr24t5x5jwnz54FD3M9D0gopqMjA
cU+2PRdw/zk9dgNRUJ8n1QM3jVzwkOwi6lRCQWJ0zPeFQA5ogXcUDSopKFJJ
u7FZJAs0XT1zlqmKgpyda95z9GUCvbbg7gLcqhqrT/S/ZIILDpdvc9ZQEO/i
avIQMRMkH2iSSaqjoM2cyVkO6t+glXYn9EEzBUV/FfdvGU0DqmckTdZwc10f
yDgbkwaopTwnXrZQ0AnnxaCPxmngltNDmQ+tFMSYOlH25+cvoN93ZepzOwUd
i2jhogtOBXdn2fI5O/D4PaZ1HmRIBeHKfar+uJPTRYaKXqWAc49Vs5078fw4
kf3m5dNk4BKsnXKhm4JENFUDxf9LBE3KE0ExuG/3h3oLNieAwhABWYYeCtI5
IMfNppoA7jnxdDXjPntLP31XLh6EM+koKfdRUPFLf4t1kThwn1SjGY2b/oeG
3faXWOChCATXcGs9Zo+g4ogFbl45+8L6KWjJ1+c4F8130Cy4yFMzQEHr2inu
NyajgOjvmXlWCgVdmZYwZrSIAvDt8Vht3HKxXcivOBJo0A9GN+FeFIs9/iYt
HMw8CppmHqSgFd6Tt2kSwsDcmyWiEu5Azmird5HfQEWH5EoWbpbGqpRP/l/A
qOLljEnceWRyiujbz0C4wUhNYAivp/1HhH65hYKQC4d5HXGXhzVMN9p8BOZ1
G8rfcYuPGHBYmIeAiP7T/9XizrUal98y/ABafdnYeIcpaPZshNZJ1SCwY9Cd
I4N7Hz/PZqV8IKBjVrlkiFt4wuh17RN/IDnyMMoJt5sg/wEG8/eA/6zO4Efc
bI653io6PqDSiJaQhtsu3Pejn/w7kNEavF2B+xvvBGOL5FvQKETd0Yf7s9rB
XH7R1yCmwSRgEXe8yQcLc7aX4Mz7TDHqEQqiviOE7ux5gCMMtF/ZcdNa9g5t
9LmAclajGWHcH6bZ6j79eQ5WH/8RFMc9uWDDef7bY6AsdEL8HO4H369F/lyy
BdR0v3hkcTcfrzi+nHYPcEgrDQHcfmcCFp/3GoGDlRs+8rgJRr+7OX8qAf+R
UuJV3IfdmO298k6jhxWJz67glv3lGFj/Wxd5/4nPu4Q7IkQ2KSLMFFmLFHZL
48bO5Y7dHLBCSibjXadw07WKTewPskfETVKOGO7vRyvDHmQ8RWau1g58uMuH
A51rWpzQm7cFjIy484Prp06tuCGrSqZXm3g8GrUtk1UZX6A4qlud4/+Lb80S
Byb4CpnTfmRswc3ulWGWe+INup+VL/gHd+I+jQb7S15oB0OM33H/52bne1LD
Gy3Nfer0+t/z9dLaaWNf9JEuiFEVd5l3ZrqdZwBi8f1sfwz33xN6A98qA5Gt
8eUsGtzrg3+JWFMQ2rwp1paD50vzh77hxsEPeN1cS/fDPfRBJld2KgRpGxVa
3cX9y3k+OuHfR6TcZvuUCrdXQa2QN/Vn9DrWrbwBz9eMkZSxbcYveN1+WP6K
ezZW9+Rjzq+or+LJ+HHcHG2Po+6LhSEGFQ0xSbw+BDcveuYdjEK3D4i9HMfr
S4w6hufC7yi07HbV4Bvuen672Fz5aPQN5rps4fUoyJw4iO7GIJsjQ+7heL06
sSeUTETGoqIB43SA+8t5vT7HU3HIdfjv7YFeCrqfoPuEEcUhDm33gzy4Oxub
DS70/0BfdueNLPH+sfanZChDMBG52y7dWu2iIOuJxdxbKYmolPNE3QvchMqo
YEwuCR30UDkQhPcjq7TjIUaGyei4upZeEN7PSCn/Ei9+TUWZN+omePB+qJTj
5KzJlI5eX95WcmvCz5N6PufLuulor3NbkNJIQfrxh16dCktH4WniwhENFPy+
4NnCcyID2Ulhr7Zq8XwSizekUvuNLr6WcJatoCD/hzYe199nIb7XOnPPyylo
3OASp0FrFuKsDmxML6Og5e4NGTvBbPTmVXbfgVIK2jV3NIlNyUZPB9lZO8h4
vGnDtk7U5aDl0d82dXn4ebL1e7WcJR/tawl7tpBLQUJnPy+c1c5HDw/ZXyLi
fsRaEPH9Yz6abrlGUMumoLtaTWd9BQsQ5a6s5o8M/PkLOlrX438Q/wGqzNkk
vP/bnX4ydb0IFS3mGcwkUlBQ04vdNz5FiOD5JmciAV/f7Z7UQ/VFiPLANaj7
BwUxie2FWushpHE9NS8mBj/fQ/87zXaGjDJ9Eh6W4ufreqLbLteVYuSqES8b
8Rnvr7HKn3ZNixEHa33O01C8P+34b0y8LkaCRx1yD3ykoLquztN/K4tR8sRM
zY1ACtqzaCn30ypBe+f/Finj531412SWu8lfpBCilP4Evz9UuFUtTrwoQ1+9
togj+P1iQcSHZv5HGaJq94zRekhB09UBhWs1ZUiXJkhT1IqCiGShk0TucnTx
143iKDP8PCE7+5knlSOqKjkZHn0K+kftZBfUUoGsuaUGey5QUFdC5uSho9XI
t7jXfv48BR0coE55p16N5Pbhvyal8PvEhG/SvEM14iple8sriffH1W+PKgqr
kSnDE/rDxyiIat4kOkKnBtWWNHln8FLQqIju6LxHLfKAh5LYpwfQLyVpVdhT
jxx2gk8FjA2gn5X80uaEBrSvLaOUZmgA0V1b7vQVa0D3RY9wDnYOIBM+vxtj
jxrQ/B8ClVb5AGq1GVE3p2pEB3Yf9TNFDaAy2VDT76GNyMno6e68xgDaL1f3
Pe5vE9IZSLma/6UfXS5xrL9GakXXE6WGmEP6kfo9H3+ec63o+8GcDEP/flS9
3Pd0RqEVUReb9Y++7Ed6U4UlYQ9a0cq/IbZM63604Pk7kCe9FTG5SBlKyfWj
OpDa/Ry2IT8f+Q/Z+H2+WH6f3D+TdhScuE4g7PUiLsXpbOXETjTbIK0rvtaL
XL8p7yoUdiKz7zr9GvO9qImB/6lCUycS01145T7Qi0xNd7fVNzrRBRpBPw/U
i+irIqveKHchlnqv6/vce9G+IsWN4Kku1OJl5Le83IOsA8q5L57qQU3We0Ny
Vd0o+fBPB/O/fUhL7++fFdSNuLmPmg+296EJztRPP7K7kf6ZqNq7U32ojapL
auF7N3Jde8v8kNiPfsSFvie5d6NHFsZhqXf6keS/o5Td091Irfe4Udd2P7J8
O7VnG9iFeFrt/NfwezSMMa3tP9eJ1NAme8+dQdTfk3Q4h68NnScdM1xeHEYP
Rd5F1S42IjvZcqxpfAxVBB2rWdesRHcKG0z6eyYRv2ds23hrNsq+vMlDrzmL
pi6QND/CcLDgrP+b9v4CsjD8AwZI5cBm456LzLV/aLJzod2yowOwlhcJXXFZ
Rh/NBmN/MXcCrR1Fg/lXy8hk3cTyxLVOkPTXJi/qPe6lzbbK9E7gf7V0jCli
GfFdzPEOCegCX01K+BmLl1HukrtHhl4POGCsWRlJt4Ju2/C7rjIPADaZnh+n
Q1eQqXacXk7kMBAgU9/mJa+iSulajeSyYXDLlvb63epVBMXVX1RPD4MvL+NY
frauItuu5he+F0aAM2y/rDO5igxa6IKFWkcAwbCdr5Z9DbWVZUgjjjHQ97Aj
6Pm9NTT6BMSnZ08Apj/hpAy2dXRRqEd96+sc2Cd89JS93QaqzD/FPFk7BxZ2
phKeuWwgBrcGdva9OVDpVvLS4+0GWlR7eIXHfB7EMQ8pfQvbQHZMTEUuvAuA
/VVs3mblBioPlK87Ob0A6vKT8/VIm8h6/19B3sR/4DG4mm3YsYn8GFR6+Mr/
AX1Rl7rSoU1Em/gGA8P/gKegU8LpuU3kGvlFa/nAEhhPXfdno9lCD6cffmX7
uARs+BQMF85soQR719FLPsvApnHE+ljAFrrRtLE+HbQKhDGePAXlbcR55uSA
S/oq6Pbu9pHQ3UbyzQHhp5tWgfOzkDreO9soWXXFcj9xDZyWOOy5+GQbhbUw
/XYLXgMV/pe8M6K2UR59X0Z42Drg2wg9arW+jU458VNLNGwCpxMqVHcSdtAX
bpbSwqVN0BjanWbyewfdOJPH5MS7BU4QuXRMi3aQxKU+wcemW8Bin/95i9Yd
JFvQF+ayvgUGsyar7hN2Udjv/4TZT+6A2qdKszdu7aJj3wuOUOfvgd9hCkfk
6PbQcVPmMtaJPeCK8dvScOyhale9WycYCdDiwZXJGqE91NWhY9p4kQDlWxZp
tc7vodPvC0K9PxMg+7xMkKTFHrKWvqs1ZohBupYvu5dK9pDdhNa54ScYnGJm
6a+p20Nr7ydWCP4Y3JfmPaHbtYdUIxnLIskYBNZj0zcX9hCtTLvHoyNU8LHD
23IWVgI57majrMcWFdyes7sqL0cgM2h4y0RyU0MN6UMPuq4QyMo3xheHJKmh
z6waxUaRQG6n01Fot6SGFD0xy3faBLKoiVakfSc1bEunvxFgSSDPz5pbxBbt
gyL6YbwVHwjkoCf8tIoJtJAUPWQuOkYg0+cvGvKV08IqsdGJP1MEcpi35zbr
CC0sPHtaUnueQD6o4JdjJUIHqUqLIx+sE8hXsuoVur/SwfcW9d1KDBj5XZ/n
esknesgX6Tb88wRGFtH82TidTQ8tI+wJXacxskXTQ03ZDnoor0be2zyHkRdy
x5s1ePdDA60akcOXMPKXz3LjqmH7YY5biDSXOkambQm8VJjMAIt3FFqkrTFy
hiuT1N16BpgYoFvaYIuR3YQTqCQWGWAd9/X/bjtg5KuDyTHy0oywfNKi6ZYT
RkbKlY8Nyxih4JLdx9q3GJn9hlqY8iQjrIy+fpXZByN/+PHx011mJui4raop
74eRdY3Wn7HqM8GFT+vt7z5g5IkdZqZ7k0zwW/jMwMtIjPw3OmQqjoUZ3i/X
Lrwbg5GrLxx0ZTvHDOv4okPPxmFkloks4XsezLC/q937VxJG/q3y8wA3LwtM
OCclS52FkSUEl9V+XmaBmoeDup7kYOSO0lvz9hYs8L7j99WOPIzcb8U65PKb
BbLTbYzYF2HkIsnwxLAbrLDQ8Sxhvhwj9xZ85alyZIVcXbrX+iox8g+OX53C
UaxQ0/Al059qjJwSJ++vNs8K3ZeljVXq8fFddjWCGNmg9V+ZFxsNGPlQW/i3
IGE2GPD4suHnJoys9kOEv1mRDcY2XDGNbcXIhhRPfXYjNkj8xC9GbMfIJVc/
z9y3Y4NqE3HVNh0Y+d7oZ0rzazZY8CFZMKcTI5fpKZzX+cIGOYfcRua7MLID
mFuYSGWDPPc3prh78PnuPOIIKWGDgy2v18V78fmdEPhyfIYN1nfzKAn3Y2Th
H9F7XBgR2p+M4N3B7bed1crNTYR0yZLMlQMYmRNV8Z4UJ8KMpslpDwpGPspa
U3MLEmFP5n3nQ4MYOW9PdPaLHhFe3G1zy8LdMZ3qsmBFhGsrE/lnhjDyeFnJ
UyNPIvQM7l/5hvuX8eGuvo9E2B7g/m8B94lY5u9Pkolw1J//ieQwRi7t5GsU
KSbCITn/S7dxh5boGQ21EyHxFSA+wW3afOZq3gz++SKh9Ke4ua++9YijYocH
qeP77+J+LvmWMZ6XHdbd7Te4gPt1cjmlUIIdagP9sXV8PK/c8+uT19ihxC/x
K99xP/vvgIq4ITtU6KYTl8at8oK7/oU9O9y2FTHLxNdDoGVzmfVihzkCFxL4
cQ95X1e0jWCHFhyRuQ/weJTflj+6L4sdsoaf1Y7G4yVm2Mr+q4YdzqaaninG
4xmYw75lO8QOJ/yPclf1YeSwRr3WqxvsUNKPmJ+L70fCwrmgk2wcsDVbpjsA
3y8/plcHTxzhgB0x2mc0uvH9d1Z1BZc5YIXCV7clfL83Y+p97+txQJfm0Wce
eD5kx7tfibXhgFnx4Z2LbRiZY/+278orDhisgoxU8HxyvZX5sS2DA8rtP5yR
0oiRzZw2TppXc0Apx/9WsvD8vPKMj5luiAOe+9V2ObYWI9en3VTyJnJCodKD
pRJ4fiPrB88sj3HCOKzAtroMI3+dlAowvMIJLwQc3VH+i5GJd2P53ew5YXLC
dMRSIUYu+Jd+M9mbE368wCB0oADvN5dUOGejOaHS/ZBbx3Lxep4gfkpq5oSJ
mhEtE+n4eElXlRikuKC9Efnz1neMrHzk+p8ZTS5Y8+DIVD9e7yG3dKdGrLig
7rb2Utg3jFzBYJnOFc0F9XreRMUHY2R1TFnuMQs3jG4ccJ5xx8iFyid7d45x
w9byuuiveP/RvtH0JkyBG4YdiTAWeYKRSUpWu5xu3FBy7Rx1uiVGHs3+YDA9
ww0nu9/U9mji+bHFfJx1Pw/Uu9buKKuMkVcWx0euifFA0j6Fd4/kMfJPz8dT
I7d5IF+79DkdvH++7gy1nGvggZy1R5/vcOH9UMDgcnc2L/SSoti+aiSQ8+6h
v8stvDAN091ZLyeQ048yvBRY5IU0ThIv5QoJZLa+rH++4nxwfsqyWzyRQOZ5
Rjo2E8UH/yjqVke5E8g3jpD3GxXxwXHjG6wujwnkz3F+Lq09fNCjLvGECH6e
eCyacvRx80PiaxfrKi0COYkq+ONlP37IoPrAzU+YQHbffBw0ksQP+1jZaDLZ
CWSSXOaQfyU/3D0raRtDQyADHigzRy0Av6vV/0tq20OnlKyOVTgLQBf3i45c
+HkapK7komcpCE+NUdM3PtxFozZcs1uvBGGu1Og2prmLJDT0QXikIFRw+Kta
dWoXNTygOlHfLggZJz5Ici/soNa0+Bud1w7AJWZflXDrHTSxRLLGhIVg8OW9
ZEaNbXQ1fq6GUUYIGjrbb5sd3Ua6Ag/6afWEYJTqsXFVqm00M/xWu9ZHCLJ+
FAmqytxCne3Pcz1XhOCNO2wXnnFuoS2pR6Uz5cLQ8p6mvkPRBlqjVNGmUITh
S84Vg19BG+gBeeOS1qYwfCvY8s/JfANVJNZIx3CLwDPqzhs59BvogN/F5SEl
EUgZ1FbqUl1H1iqM9qp6IvA6X1vSa4F11FHoA7/fFYFEhZd3iqbWkDldrqyw
swgU5+142ee1hlzJ9eqXkkQg59G7l5v+rKLhlG5mrmwRWCtQ+mXl3Spq+aA0
2FksAu9GSd5J0l1F1VGPhQ52icAXUylR5VMrKKpJzT6bVhRaUMWHtBFX0BZ2
zcb1tihM/q+ZXKi6hAxVDp3jfSAKz6kFvVNmWEJBDKJzwU9EYeq5Vwf0Kv8h
HUvVTZKvKJzI8Ryel/+HAkYtRsOzRSHWLfxE58wiynZqSxEtFoXD4aSV7ZkF
9IteeMejRhRqcHImn4pfQLPVvzirB0Th/APdg+f5F9AFyYL7b2hJ8Kdw8t/+
lVmkJCGWU89Kghv+90o5zWfR90BNyzleEqyZVel60jSDelM2V38eJ0Gr+xau
5MRptNdiontEjQSllId1xrQm0Q2fk+e5dUmQ1SD5QF3uBLLy38nsMCTB8Igh
1U3hCSQ+dLum0YoEx/YNq0jPjKGnPwwiA96S4LxLQ2yy6wgC8wmRdH4kWIpx
Tp0bGEYV9xY2ND6Q4Ge7SZLYlWFUIlutqBJJgq/CnbtVqYdQOLD12oklQbdp
qTO+ZoOo4KVSnnsSCc4cLZO4+peC9G5MJ0xmkqDctEiuMdUAGt6QrmzOI8Gc
s/YRXUV9aOtSd9i7IhJMlH/ebuXcizY19ZX+qyDBSnd95dW5LvTo5ufQxzUk
eC0VFVMndKLrvpx+/zWQINuT8zQaJh2oK8rD1asd/77ThQrk+lZ0VnGbtqGL
BLdffBbcft2C0swHbg32kuBJ+1N2YTLN6D9HKF80QII3NxL0k+cbUWmJ+SeL
IRKcoGmatFBqQCJs5eIdI/j6nQW2nNNqkex+vl72cRJsFxi+k8RTjTAGnde8
kyRo9xn+pHevQF4uv/ZNTJFg80ZMUNJwKbJOy4QvZkiQ5J1fGatUgiauXBAe
mSVBRil0ndcAoVszpj5s8yQorjtNmBbNRzZTvx/RLpAgs8On0OmJTPShjppc
hnvofc+8l/EvdKXl7SONRRI0C6+EclOxiDG7/mkU7t7gYPvAqRD0//8/9e+7
3OLA0ZE//wceCGwm
     "]]}},
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-0.5278640124371508, 9.472135954999578}, {-2.236064323187622, 
   2.2360667694137697`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.463424529113*^9, 3.463424564916*^9}, 
   3.4636792555864735`*^9, 3.463752519596573*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ellip1", "[", 
  RowBox[{
   RowBox[{"-", ".1"}], ",", "1", ",", "1", ",", "1", ",", 
   RowBox[{"\[Pi]", "/", "3"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.463424334743*^9, 3.463424356193*^9}, {
  3.4634245096029997`*^9, 3.463424563755*^9}, {3.463424722374*^9, 
  3.463424726102*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw12nc41W/YAHBbyDxONqdQlO1HJJ5HqaRkZKcUGUW0ZGSkCFmJREbIzKyM
jDwkRLL3PsfmnOw9er/vdb2vP7g+1/me77if+76f+3tdDlu7GNrSUFFR/cF+
/e9fk+3ffyqWdgHV//3Y8J52qKPfA8L1oUmvUp0Aw+lru8N8e+A+N9nDtsQL
MJ7a0jl9Zg+sEXamjEdCgXztfXxB1B4w1t9WF5NNBLJ/Vw97qu4Do4Tp26Fd
eaDwK5MjW+Q/wHt4+KG6LAKl8bIJjarUkF3pFOLGt4NRLteev+epYYEMtbP8
vXbwrdXsmIgRNbzVJzjeXdcOquDRkynO1JAx9XpqmXsHAEfSlKXSqKF2SIsZ
/WQneGc2sG3HSQO1paKGPfp6wGaR3lbZKg2c6vvmFyY/DFjeHvx4mEgHvTWW
P/etTIL892E6lxbpYMDChc8v5aZAnJ39wLN/dNB39Qp3+L0p8ESzto1dmB4u
XJ8/kTMzBWpP8U18v0YPnaWP90uPT4O+rFstN/vpYV1Aw5322VkQnkAz93eY
ASaADp94zb8g6ICZ22lWJtglTLhIJ7IKZs2Pk2RFmODbgjcp9DqrwFRO4bus
PBO8qvz2/DnXVYAWSVVGxkzwh4Jt27PmVaAxXV2tmMQE826eclj2XgP0ir+c
zyoww7FzS3EHKesgzumuR5ANCxzaPioXsb8F9lVzg2ncWKAn7z6RXmEbgJtP
rwW9YoEHvP7D1dtug2OEKp7Szyzwe7S+tVjLNhCF57M+UB2EbQ1jZdapO2CM
1+NhZPJBOCDMfE/ZfA8ImG2H+s2wQtNvpZEWflTQ0XPRh/8fK/z+2e12SioV
HJx58b4KzwZL9xh5+H9SwdAe8dpjZ9lg1KLMWgojNfwyXtvnkcQGQz9MPOaM
pIa0fWB9y4QdtuUbiCfm0UB2pv2PrPYcMPLJpeJvbPTQgPNHPvEhB/xiubse
r0wPudnfH/vmwwGv0PeTSm7QQ9dQ5V7HGA6YfUcCRBfQwwqpGvm5Og7Y9uua
++JVBijm0Z1EEOeEy6xmAeczGSHwWdk/Nc4JSas5wcPuzLCwPEhH8y8nVFLw
XCtLY4bfilzTtbY4oWo0q9qvNmaoKj30U5OdC+Keygt5SrLApeVwUQ41Lng6
VtxafpgFjjbwDLZEcsGMFSjbr8sKfeNYksMSuGCa2K50oxcrtA2g4zifyQWh
vI3FbA4rjKhz3E+t5IIcq69DypjZoMu/v9oM01yQtL+wH9XEBt890ylXPYWD
o933XvhKcsCVqDwFVy0cFCPMKjmd4YCi9vL/ZVzBwTy/HbzLNQ5YFfyuYNoa
B+2Trb6VhHHA3XYnh7FXOLiWq5ajvcIBgwbOP7Dtw8HPfCpVl35wQp8Bz85u
Ig7SiLR0+w9xQoebkkPK8ziY8sW3v22dE0omdoc37uFg/O7lD8knuODnC7U4
iSPcUKQ6+QNPDBdM9ypX97Lnhg4mhr8OO+OgG+2Vm773uSEtm2ZGYQgOXnJj
m7jjwQ2rv9FQ6Wfj4L7MD6mVV9wwY6DjUtUEDm4c+3enMZcbxmxTl12y5IYu
98LObBdxwwuSejv6ntxw55Z9Ott3bvjLjb3GOpYbdts5cI01c8Oo7Nns7C5u
qADfZfDMc8OifjmxYl08tDvYtmyyzA1rKdYNbE54+Nld6I/rFjfM+S2rf/8V
Ht4Y6hLXZ8TDV2ULkdoNePha663UncN4qHCqrkpN8xDkH+D+HHMMDzuCVoN/
WB2Cew6Uwg/SeJi44bV2yecQ/EPldOiMKh4yfs3ut6k4BNflnoqWX8HDKuvN
p1FKPNBo1Emm+CoeWulkUAsY8UDViKrEQDM83FUiq394yAM/OhmkFN7CQ68l
sZL3BTxw9raeAoMdHrbY0FlwtPDAdGZwWP4uHrJEW/v7knlgdbIgD/1DPFwo
fHXkgiQvfHfORTjPFbv/oYj5xAu8UC44xl/CA7uedPzknC0v/Pnuyu8nXngo
HV2kJO3PC8uLDri+88VD8sy3fZtUXtjzepPu1XM8nFiwuRVejbn+8D/dADyc
7bDwyhnhhSESr89rY3Eq7Y+8VM7PB5Wf2Cd7h+Lhx3V2xU8qfDBI95v383A8
fMHsrBpswgc/r922N3mNhypWYY9MHvPBQaNH05uRePiS4LfK8YYPll4UCL4T
hcWXPeFPaQEfjBTs7suMxkP5Tz5sOn/44FMGh9tf32LxaxGvq5/jg79+b5aH
xOChcMvWntQBfhhtz3tP7h0eDm8O1z4V54dP6jsOpmB2+QAJX87wQ52w79LD
mH+/PCHQasUPb84x2E5g5mo3qmj34odu9/wvlmDmMZNjKIvjh+qTNY8MMd/2
pKbyL+GHphocPt+w6xFNKTnynfzwuHU03Qx2P3PerAdrFvih+Jrx0iR2v0di
F9NzWQRgqppVXD72PO/MP4l5HBOAMenZHzXfYPkS/Oit+FkBWLvIU5aExePV
ehfd5xsCsCrihX8dFi/Ja+U+/J4CkIG66UsxFs9TqQFst94KQEvcwLIzFu88
nyPoRaEA9OGuWVsMxOJnwR/v91sA8s+UOqth65MUl5VrPiUAbWnlcFew9RuX
at1jphaEjJfG3ktg6/vosWNstIAg9GprR01P8bDo3qWXa0qCcNHRSeM/dzws
PH62XUpfEIbLvui+/RgPwyLOvFC9Kwi5pDqN+LE6odY6dq41URC+cVBpSLLH
w2SkcdekVBCmPQu2m7XGw0MPFwgFbYIQJ3X4ehuWzyTn6YftNEKwRqrxqhOW
77RztcfiBISgSIdSyR+sDoub3qTI/CcEnVxJAmOaeMg8HUtAt4VgNeLpfq2G
h25RRee/eWHfF+SwY1DCQ/ig4tHTaCHItv0lHmD1R/uzS96yVgiW2+j0Th/A
Q09nSsU9YWFo+uZpRSUVHt6ZrwlP/E8Y4k+5jhlvcsPg74Zyr3WEobaI03DX
FDeMfRxqV+4qDEmHporLh7khzpJXa/GVMPwVJN12G+sbhvEmzyc/CMPLYu4L
9DXc8MnNrGbmRmGYFv+Mfa+EG86kb/+nOiwM7W7dyfyG9aexmJwS0SVh+HKU
6r33O27oXpg9JMkrAl+vDtZr3sX6EE+I8qS1CDz6oK3J6gY3pCdfGxh5LAI1
1ROMzxpyQ4s12ejwlyLwxUeVX9dUueGng5UvWbNFYOjVHsFIKW6YOd9tN1gm
ArOSSO2hItxQwGgkx7JJBCoct7Lso+OGLMthQ0/mRKDfRmeZxAYOThM7w9i2
RWBPSVkgnMXBJ3tF73LoCPDVfm92QzMOnljw9vbCEWB/Wq+ieiQOivYat5+U
JUC1Tb7Dw8+xfp5B+KGvRID6/7UrXXmMg0/T3vifUyNAoxlX0XQTHBQZ6/1V
c54AySOK2SEXcHDsq8qq9mUCJHHuFGip4ODZfzZaOQYEeDIm66ssHw72cWSU
UVkSoOz6ZxdrJhxsU30Ws3KTAM3Ldo7f2eKCq4xfGGtsCZCjuVRptY8Ljsln
Hp93JsC7AYXGHr+44EHxptQLjwiw0nwS31XKBckhB077uBGg1ItqmYPYPiNR
zvDIw5cAAwWAw5w/F5w4dXBK/QUBSp99R5v8iAueuVchNvSSAH3tY5Wj9Lng
JJfJz/QwAgxIPVXVrsEFc1nfM7W/JkB5nujAWSkuuFamOt4dRYB8v/M7Mg5w
wRzCQXmnOAL0uaNuqIvte7WgLHYvngAtshnZW7H5QHGp+KlDEgGe3aWESLVz
Qo/rbn25yQS4p3FV164K2yc1jAqaUglwZZ+j3yuHE5YlvqD5kUaA5+IdS+7H
csJP1wV63mQQ4MJZBuczAZyw/wWbnHoWAQr09wQvP+CEF/RO8NZkE2BBLt9b
vxuccIibL1Y4hwDLJc4JLupg1580rjDOJUBTy71cjZOc0GlHMcIujwCLHzD2
3BPFrr/ec8QgnwBT2NWP+bBzQt9BuUB8AQHqZfnK39/hgNYz+y1fMVNKc15q
TXNAK6l6NqlCAny8FlK208EB55dbLX0w+7s1X4+pwuanbfH2T5iJrRRG/CcO
uPw0POAz5h8iKrrubzmg17/At28w9x3Nr61+xgEFGM4JX8FcqUdFs+DIAfOe
Z2pMYNdrq/D9QGvKAUOOneYxxnxFn/O/f5occCFQqSkZu98XDQQzkhQHNGa3
f9qAPc+bhqi0PB4OKN0K9Bux57Wn/v7lFg0H/CFW55KBxWPxS5LKfj873DgZ
RmP1iQA7VFPXDxawwzCjMoUVLJ76wcJdiy/Y4bzw4gmbTAJ8FnmYIceMHfam
mwoUpBMg3ilZPZOaHa6UZMcOphDgDM37/PluNigGjwZVfsDqQ3tCh+UTG3Sv
n5PzTCRAnt8lQ2MGbPDHUsWz0FgC5LV/qh4nzgav0ppHE98SYNTr/g/yW6yw
3cjgFDeWT/LPDpxmTGaFk2WxYjgs/yQcSiR8XVjha2KKalwwAbpGpar3arBC
ppnAxY0AAvzX8HBTevggpESsvYA+BKhanMiZzHsQnms9acJ4jwAjQHjG2WkW
6J0Q8uKaAwF2SR537ixmgTYSDZuvbAhQ6fcn9++GLHD7nPsxb3MC3D+vpzgR
wgw/Fgi0fDtLgMb+xaJcFsywVH3vzpI6ATZ+8G89KcEMJdgCzx5QIcARmUfz
Lj+x9wmp4+odJ7Dv11gHl+0egLfME01InASoYTt/auAeI/zb/M88vlAEVtx/
aSR2mhEmjcaY/JciApMcbRc9mRmh172klphIEaja22llmMkAN9p7wioeiMB3
7IKcTUR6WLr7hBQvi/Wvz4FFLRZ00Cydru9xKtbPk7MItsfp4KEj1GnMr4Xh
pxiaBd5tWtielWbl5i0M1zP2rw7F0UJfzpz1PlNhaBLHUjw3QAO1BJzzO5mF
oRfqlBi0oYZAhS3c8q4QbMk8u1ihQg1VtnzgEVMhyJ/mp1rDSg070vUut54V
goWbP23VvlFB9+iUOaKgEIxgpqbZZaOCkZrgxvYfQdgk7DUvHrQHAlUGTnhL
CcJbOjLpZ5I2QVGPR13BCD+sfkFGxYab4JchecOrkR+Ov5npCWTcBAqb7stn
ivih3eIjQ52HG+D+kQucFcH8MOWhCFn/8jpoj3x1w+E/fpjQtJEax7UKjml8
rMEHY/MTberZ0fYF4EOil7FV4IWxfpM5hcYLQPDGtqi3EC/8sLT3WWPgL5g5
ZxAcd4AXjna4fImYpIAKBafPYyM8MGHx+n/7dGSQkUibUhDCAw2Rm9hPuxmg
2vM1MmDqEHTPO1Ux9oUILhoobQSk4qHmIn1okC4R+A7JOL7H5hIL3aXbIzNj
oPokd2WZJx6eLfwYE3l4DBAXk/z4sH3d2qCvgkF5GPAb5124RYeH2UadgSsW
vWAj7cFTqTvcUFq8nOmiTCPYo9a6f/M0DgbqlzlQtTaAm+pCHm4SOEitkXrG
62E9uMa60pbEjYPwjrnq55pacODJzUJhChe8wXVYTJ36O+BbW+qbSOKC9HOj
1wZWUoDMUgnpLT0X5JtR1qwyr0Dzg1foakexPuBsOUZ58h3R2icsb/zhgNf/
ftN9F4GQgEDtIY1KDrhz87h/RX8N+tXyamcvlgPOUnjtj4zXIeGNn3uXrnJA
Ch9trVPEH+TPJ9+tFsMOz/y+3YAr6kaJeq54UjgrXM7+eZOauwfp2eDrPzxg
hZTlcuujj3qQkro1v6cRK2z95ykjKNuLJJmiHP35WWEd2e7WcGIfUlNyaqNk
HoSKufYME6aDKORraR/tLxY4fOimfqDoGBpXbOz7KsgMaQzJ/mraY2jReyCO
SMMM3RLMRj84jaELR4+9lJxlgscKxI2fFo2h2u2QQMYSJlgK+tTCIBER32qU
b+kzQfBjNytOh4S4novQfww5AK/rG9GzHJ9A51Ny/e1xjLCjIERDVHsCKQYv
0zRsM8B6rhdWS7YT6IWL/YAmiQEepjf89jl5AtG81BAK/swAG4yrjnRyTaLE
jaE8CwMGKHtai5t3bhJNZiZOLrylh5o4i+OODtMI6eHIOAU62BxT0mLgM42+
XCg/mi5IBxlC8Of+RU0jc0UXtiuMdDBI7s+zwqppZPzh2qOpIVr4JunAX3fO
GRSbwuolE0wL317hvUOXN4NK5c5x007RQE8KK5FSNYty/0KrfwXUkOiQf+lU
yywSDhllz0qkhvQWjCqWw7NoQ/Kc3u0Qaih6L/nv4Z1ZhJPf4+Oxp4aPucf4
qv6bQ6994jVtRKihonLvbb/kObT5lVfDL4oKXlSTn72cN4fCp8pqTJ9TQb4M
TbqVsjl0eiHzOnxABVWvyUu3dcyhbw8V/C/oUcHDnD+ce2jmkY/kGt+Jg9jn
5rGjBpbzCGhcM3Lg+geWVN8wzdrNo4L1rcyzy/sgZEIYWj2YR2hP5gHs2Acm
nc+GZgPmUbmBa2Xim32Qfujkhk/ePLI6xvqJxL0PSiddj4ytz6PTreKHH4rs
gTGun69FHpMRpwpzRNSlHdBwz+FurCcZGdoFJynL74CElYqd7WdkxGhzOmT5
0A4o/GA67x1GRt//Sw0sIm2Db3fEnvimk9FXuZ7x60+3AVW+6kZUOxndkdwy
kf68BXQMmvkqeshoG/ekVz92C7jxmju0DJKRd5/9wxDfLeAYfUqwfJKMXiQl
h5y7sgUqtsI7szfJ6MHmnRtN5E2g/EZJk0mAgkZvHA/+J70JmoZnftGKUNCG
BP3loEObQNOrJYt8hIJ+PWcIOvpvA2z+UlkJPk5BJkGhjB/bNkC9NrfiugoF
ZWXOuMQ93gDzDWn7dqcp6KjD9fO/r2+ASnspQgOgIDsb2M55YQMs2T4fNT5P
QT5i6mlDfBvg8m+++EJDCor9eyTdrnodDHr22XwwpiAzey1/tU/roPe9/QMf
Mwp6qVZuIRa9DramJVpYb1DQhSmdSHmHdSDU9TzrsQMFHfm7nXaScx38vhj/
deYuBd3um/uevbMGDulZTOjeoyDvKw95ZafWgBqbhij5AQXdnXil+qhiDaw8
sKV56klB6t+JP0fs1oDvhGFvuhcFMRMtLUT114BjT79MtQ8FDQxdbvBWXQPc
hj3Ttc8piCe1t/zRwTVwl6MoOM+fgo5/ecLCvr4KZgZ3ZQJfUtCb+jcNaHQV
zFnXUbO8oiDFnAmeW19XAX1bwr3iEAqCOG03g8RVcPRXhLl+GAXh9V70mQSu
gpHg4hNmr7HjLzurJF9bBSz4GqqvbymIOPAo8Tj9KsBLbpZMxFAQRX5FtXph
Bax/7xpgjKWg3akGlrsDK6Cornr4yHsK2nJsnd8qWAH6dDfW+OMp6Ol84K/R
9yuA3eL7PF0CBdU0Jbv1B6wAEt/N8fxECqrzc59ntFwBLKs2Ai5JFERIa/E9
fWEFRFbkfDj8gYIUrL4G+CusgCkzlpB6zAt25ydHhVaAg7PI5vVkCpKp/PXy
CtMKKGnVpZ7BTOebYNi2ugy2N+qqb6dgz1ujJW87tgzUff30uzDLm9uysDYv
g9hwrSblVAqyLPrR2FC6DIKuJl0Ixfz8k6bx24/LgOfhLLELc7X+dIxrxDKQ
f3L5C8dHCupp7nNzeLoM+s+WtwPMmRLXiPfsl4Hvy2Uza8wN4p2VAVeXwXmR
5zfdMZ/nrFspAMvA+U0t1XPMxe+6XMgnlkHxo1EDX8xScT/51XiXwZ/2Zsf7
mBP3nozE0y0DcrKBnTHmc8HkNLalJWAqRmsug/niZy2zqOElIGJ6/toOdn8v
738nSTYtgb6r+v6VmN0Fv8p0lCyB5xVH5x9gdj6VfDT04xJ4KJCcIYC500io
2PT1EvAwvP2nDItHYdvYz/+8l8DOKtn1Mmbt2iooencJWBQGlHRi8dxtyMKJ
mi4By7zL6XqYL/bkSfyntQSqlxTMqrH12OHZvmsivwQO1OxOiGN+iXrqgoWX
gOGu5q1n2Hq+H8kWa2FZAsLBP7y5sfXekrmWEDy1CO7SXdW+guWD8b3oUKqu
RXBpi8nUG8uXunkP2aCaRcC3XhVVEUdBAnlK6o0JiyAi6/tcE5Zvg1EXnj1/
tQjA8ERv6zsKOvnF6+hl90WgsT31sxzL146RdV0Oo0UQrKRCVxSN5fNUebD6
2UUwvnrUNS2Kgn7SRze6KyyCDTWhE46RFKR0RJyHj3MR+B/KjY8MpSC+B5yP
9hMXwO+aPcHzWL3UiZk1KXkvAI83zpeWgymoQs78vyDLBeCYfXFePpCC+paq
f3kLLIC/Gywden4UFM3GV5z1/i9YsDhnVuuL9ZNvnDbFnn/B1A16Klmsnuks
eFWGLP4CYcOL5L9Y/c88155wE/gLQl88qOB6TEG5ZwQlJhIpgNo6c3ftNtaf
PJTIbplk0LDhv7NkjeUPHXGQL5gMDvXyLk3dpKChDIpy110ykJYwWa6wpKA4
R466SBky0LArTscZUVCCgZK1dOk8oO7i1/HXxOrJWBfX1jwHYhjfW+Gx/mgl
fzeCXDAH3M7ckkzG+if+YvSwSNQciD6lzPDxJJbvD46GN5nPAffwZzxW0hSU
ZJMfJz0zC+6E7M6V8VBQr+KhV3imWdB9zZCqgJuCTt96aa89PwM2nfXdEzkp
SM3lkWH0nxlA+hn0w46FghbtuoafvJkBlVza/Ln7ZBR+sDLfRmgGBBXPmB+c
IKPmqX+9tSenwd6JXp3EMTJy/mRh6ykwDboWnlpKDJMR7c7QOe1/U8AmUoNN
Gtt/yrUHYiQbpgCVrtLwUgMZ6V/iTfpnOgWc8jldHn4io8EbLaMk70lwcXX8
/qcMMopMHwyhsZkE934IqQ2nYtenWlo9qT0J4lnm9BTjyWiVcCVxnGsSKJDe
B6WGkJFpSWamWvYECFPXtXvrSEbiDQZcA/3jYE6JLYNZgozGxZ8dVNAhAal8
ocIaUTI6E/dgW1eBBIZTbqPHImTkH+V53IufBE4O+DK3HiKjd42Qln2eCN7v
yPEb05ORFxu/z8EwInheKS6dR5xH5jMZQiZdY6Bo7/J0+bt5NDHnwqUzOgK+
ZlMS/72ZRxZsTGNNX0fAH2kooRk+j/ZE3b46Bo0A3daslnL/eeTM+2P6oALm
rNn9IGx+aPqvYbnx5TBQ57bIe6szj0xWhn24lIcA3JCSjd6eQ5NyJ1bocvqB
w4AMe/faHNrBkbhWAvrBqARtGW5pDrEt6X/futkPHsm9d381PYfuJ3wx0efp
BxfCzFhudM0hybouEUJAH6AyWw9KxuYh280XL5Rte4HCBZXV7BtzyKr9rVem
cjewC9nJelwxi8QfbuvJ8rcDedXmV23Fs+g6jNZb2WgD92a4Co4XzqI/k24X
WrrbgNbBvKb+tFlkfNjw16/INsC14JkkGo7Na16heX+Y28APbV5Jh5uz6CSp
P/sATQsIffxQoYEWO9+BCzaSO43A8rgT3c3zMygwm2X2kN0PsCfmxV8PZ5CB
5vngCtkfgFVIV+qE2gxSYFGa892qAZbWI9rLsjMo813TC/uwGgBEe0Mf882g
oKirigUl1YDh1KCLDnkaNY4xxuKEqwDR60u0VuQ0+ivxytMttxQosjGMfO6b
QjfZr+i8m8wARLaQvWd2k8iZXtvGzy0N8VfXR2U2jSPZnf21l91VKAr5P1zW
JKGvji6is6QGdFT+8ubjiDGkyiix6UTThiwYxs0/lgyj19MC9wdCO9GjDnP3
HNcBZFkjX8Po14MGuBa/pXT3oPtlM7nmVv2ohczCMmraifxG86N9fg4ilf0n
WUbvW5HsrW4Oy9FhxDzW6kH1tBX9IvIx7E0PIyYdasbMa62oNbWyPG5xGH2s
KTg3IdiKrpx5b1tPPYKGh5dnhD+0oIjarH6y6AhSCJixiUz9g07Fea4424+g
VVKKn176bxTB6KWhOz+CvKLsiy/GNaDbhsNhb6dGEVed2kCJZwNSXw4fy6aM
IsLYsefClg1omUkvpXx1FF2SD7o8LIwdr0pf6kA9ho5NfrThTatHiqlI6C77
GLLjxhn75dWhJyeLnXhOjCH5TZ3XtJW16DRtUqHgrTHEj9N+0xOGkILLOn1X
wxgSLGd4ra+NUHfWoV2Z32OIR5BOt4IGIf09y8HAljH0VP56n7VbFRImLBop
do8h8QT53U2r72j69KbcA9IY6pn49f6kTAVq6ahwDtodQ+6KzyPyqkpQ+eKz
NlFZIpKo4bsm6VaCzFDYBzUFIsoD7I+iZUvQKeE9AwMlIvKIf2iqklyMaLXW
rJ6oERHvcnF88bMiRMpN5M28QERbatSaTzW+IA7TgxWpVkTEYSjOXWyeg9yO
z7hQhRORu7rubVzbJwRc1hXTXhPRopZpm8H5TwgxcvGcjyIiFx2xdGeFbGTM
e0DVP5aIDuvXDYszZaK97E7ibCoRoXIeVbfCVETl5P7QopSIvnndDWRvjkLK
lKgvf0aIqHSqOsar8A1qPl0S/R+RiFqZLRTSoiPRJu5FUNw4EemV+CZrfQtH
GcxiH6/PEBG1k19/dmsAOmviFtOyRETbxDSzGGErVEknRn2VjoT8vAXYX8m9
Bl2XbehJx0joRWQ92UkvEly/FqX1T5KEhrLr/GKd34AOpwvv+KVISGps5W1T
XjRQHGt+fEmOhGw/XGj+IBsHLM7S/nurQkL3j94+kEhIAeSyoZo/2iR00bHo
bOOVT8D+0Y8rtfYkJF7VSLdB+gRYiT1lKXdI6MffB8aX3XLAseTUIz6OJKTk
s8XhnJwLTpoazMm5kNDJ0bLJ16v5INDF4rTPExI6I+C+odTxGeA+S6uW+pNQ
zrXrzxMjS0Bn58eqhA8k5OmR7NMwUQKiFp3ELFNI6N9To05mlVKwaC/DyvcR
O9+PO+3DI6XAMbLFOiSDhHgUjiuWSpeBizPeuwZ5JHT1c5mpdlsF8Psd3WFb
TkLe1SfaOMQrgVRWUeduBQnxH0jpXvGoBFVOOWcjv5MQMflvD5PYd5Cd0XT3
SzUJlVhLkNw8qkB9K3thdz0Jaa/bTpZEV4OwXAdiUgcJ7bhe1lxF1SDXPv3E
wS4Sev5Q5SWYrwaNF+62POnG1kNyYfWfZg0IXc7i0eojIRcJx1DJxRpg0qMe
UTVMQqceZq5J6NWCal78d/kZEhJ+FD1w8WktCJ2FA49msc9FOq96ZNYCQp/B
ya9zJEQ5bSFLR/UTWP1I+yRJIaG8iwo1TZ9/gvo8Vu21JRIyiw0XE+etBwHU
fpP0OyQEhxarFM7Ug6SK+rYDuyTEJCaUretUDzwcFQDTHgn50ia/yamuB3rK
+R9o/pFQaWvkzwN3G8BNo6Pne2nGkYB3AbsB+gXyuSr7GZjH0cbXNDGVuV+A
+RLNOSJmKzoBMWl8I1BIOS9QxjKOOj5eYdZ0bASam49pbrGOo+4nqyGcvE2A
3z4hPJJjHLGCO/DG49/gc66t3OND48jnoWOpRPJvQKvJGCzGM44SeKoqqJt/
A8lGfYUOzPmRcjGjos2glXbdRZxvHO31KpZd6moGM4Lf7XIExlE2l31NCNUf
UBJDwp0XHEe9dwJyBqT+gMalDNoRzKZ27vrpAX+A4+GBj/TC4ygIjbEsnGwB
g8o0RYqEcaS/02uQebsFcN2/cPYb5vy34W3OkS1AXjOQ4dThcbQvaJB2Yr4F
vFF2Pax0ZBydT+savP6hFTQQlh8xiY0j/g1Z4cjmVkBvQO/shvkHo+Ny51Yr
mB34E0rCbJZB1NA63gaWtHPkCsWxfeb0Y1nTgDawqHpqQOLYOJJ5ftWWL6kN
RN6DUy8x2y0Prk2UtAE9vzh/ImaNKG+t2Jk24NA0ei9UYhy9tn3I+Yy6HQiY
R34dwtxW1GDyANu3O+8L+0lKjqOhFzEO9y+3g0HR49nfMLvlH9HysW0Hje+v
7G9jvlHxX8lbn3ZAufC+TfX4ODr2wL6+5F07+HXHRMgVc1eSpRexsB38M/5F
zMWcKvp9FN/UDhQeywsQMbNvqGxeHW8Hwyqt9ZwnxtGMXOCf+N12wEMYJGpg
NuG0s6fgO4B11qs7DpjpmeL/aMt2ACtd9mvhmLVqlhnztTvAy+cxXwsxq4tp
CgtZd4A/eRfvt2I+aXuLN+ZpB7h85Er4HObuA8r7vG87QCd/HTON1Dh6QMnq
Tc/vAF5Fv0l4zL5Xc3JP/+oAcrOeuKOYWyeVAoaJHUD01XScAmZsILkTtIOd
79SRR2qYBZ/P31THd4JWh5MJEPPLM9KPd2U6wfVLslxnMF/OE8up0+4EkX2s
HQDzNepF1jjrTqDyo6NPFfMTgeK0J16dIMHFQ1QO81+fFLcbMZ2gfmMz/wjm
mzfmwvULO0GygJY7J+bnac3Ll5s6gTy86LWLPc/+bmjO1YlOUOCwXDqO2XjY
reb2fieIlxOXaMDcHEY8/Yy3CzTX/WjMwHxH4ejRDIUu4EzKjHuOeaszO6Dn
chegasiNtsB8/E6fDad9F1D+L71UBvPLUfFGE78usHT75r99bL06xNiqMuKx
4w9kO/zGrCiHv0Rd0gXoT51bjMIcPFiq1zPXBeYrPXT5MK/Mv+jTp+8GXxQD
BXuwfFktbhXoEekGUe4du+GYk31SVqmMMWv2j69i+VeXHxef4dINJK9PjKdg
jmVbFzF91Q2aHZqndTAzhAhM9KFu4D+fSHmN5bN+c5zSp4Fu8Cm+cEYas9H7
qcCXa90gLXm5v/7oOEIJXw1vnugB6jaHI8lYvWQflh6+fr4HHDjKoe+BWWjG
PtTuVg/QPaWwQY05jeGRd9y7HvDee3iBAas3Uy+GTy/pegEjvcHRUax+DUsF
8m6I9AK7dvdnupg1gpOKNE/1AnqzkeZSrN4Zd0xWJe73Av9pU5lnIlj9fzKQ
8x7qBWMmmYWjWP9QWzbVz9/oBXOsfqrSmFcNvCrnuPrA3Rya2CdY/xlMe58Y
cLEPiN+72rCL9Sdz5Sf+WqV9QKPwdmAP1t9yfT0Y2jv6QGXYgDEN5rEVV+E7
f/vAXpvQkCR+HLnPLCpViveDiD8VVE64cTRrceDgQnQ/+PZuVb2SHbvf20UV
Ea4DYLPFGRfMOI4WM6d5BiIHgOyZA0HODFj8cQlpcvkDoCnj82M9+nGky+vq
RjM9AGgqfNNpacfRlPtzwVPmg4Cnrv3vf/skNENvaEADh8BNJ6ZrpSskdLmi
wo37+hBIN1TUM1wmod8jvQ8VPYdA0e9J15lFEgp98o4ztmgIiAjkaDP8JaF3
JyME9ySHQYYHes6I7VdrNOJTgGcE5JOWTggOklCDg+j+YcUREJHrEBLQT0Ld
XLm97HojYOzppadzvSREF727whY4AoLvKO5mYPtlF9dgZ/zGCJD2deOY+0NC
4za7NzYHRoFRgvtYNCKhzfC4Vd/uMcB6b2vqBjYP7HgxXlKeGAPKVhQBhUQS
Svj5n9DK8hjwWUg2poonodlXty8+4yCC/OVzP8NiSOhYt67h7CUi4JwWOeAU
RkIs/prV27VEQDf1myjvSUJi++QZWEYCEeFXNJAeCRUnbGkebiKBVSmFmZzL
2LwwyXuAeZAEhMdjVyMvkpAaOL61uksCH2iu8uqcJaFFtWBsrxgH8kFz1XeU
SShLunn/4u9x0N97WeSmAAntk65TK05NAJdFG66VUSLicmQjy25OAL/zizZ7
g0TUS3saKjNPgqdpXMJUfdj8qTB03kpmEnwSrM/+24rNd2WtFaJuk6DvUv8J
F0REjBnEXm/mKWA+X8yznkBEkcuDDsUq06B0s/HLgAERaVxVN8nWmQamDms3
lHSJiOp45cMMy2mgay/kEKSNzbsuYWaVz6ZBwNZvFx5ARLjilGLTxmkwFke2
6ztBRDP5sTVXLWfAmT0GqxFaItKPUDwdHzwLrjJ3n67IG0MWu5pkY1oy+C11
66T4n1GEUga/POAhA3GXu1llaBQ1yIc/ij1BBgrs596f+jKKvD9/ZmI0IoOz
lscyqN+Nou1Tl2LvpJNBc0fSaIrVKMpI6xq4rEMBOTSarocoI+hg/O/NjoS/
wNu6hv7o5jCSbCsnJ3xdBGr+AiLcjYPo4KWVN7LVi+DspbLam0WDaJaF/XJT
8yKYlLrnFf5hEG0d7DvEO7UI8gNu+4e6DqJld8ZFPN8SiO1jMWMjDCLW96ID
Kc+WANO7dx60LgMoDDxrUTJZBvnOr8zdV/pQSpyf/0WhVXCmrVj8S0g36jEh
HDl2YhVUK5zZanXpRt5MZQ2sqqvg/uG+9oar3ejZgJHuutEq8J3Lb9AS6EZv
GpOVlMJWgYx+6AnnrC50wsn2v4f/VkGr2tyafkUnqijF50nMr4ENY7dLPTXt
yNhsViWDuAFu4VmDrIKb0Nnft5W2VjbAxWSBo4vyTUjLXMzfgmETaBLCInb6
G5H/9VwT7ROb4PpPso+vRCPCC1oEdrhuAnua9Wgx1IB2LKoOFrBuAcVyzxax
jp9ImGZ9d0d7G/A6hjHbc2LvVbm4EpXr20D+1unBLvVKNHTNoDvgwTaomUT9
ew4VqK3ZIczg/TZIE/sm5VFRhrqnvw4UkrfBo6rjCwP6JUhzMWUwKXoHuGYa
9/U9yUeGQWuuc9k7wHQu7YJwei5y+FgUfwHtgP0qvbVo7L1p4r1ut/LcDtib
XPhEK5KJYtv7eObhLnj1z476l8IH9LpsTbTOZBfYFoietr4Vj+IDWYw/O+2C
32nXi3Gv3qGfNWcfV8fuAqPhzZXjURGoLjQteDx/F1yd0dNOqw5EldOeXHx1
uyBG9b7ETq0vYlKPOnJrcBd44lPvhwy5oP///2WdM+kpDhRU+T+Nx3O7
     "]]}},
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-0.9262094511910399, 5.39833219389638}, {-0.599152598874166, 
   8.345104383128248}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.463424727865*^9, 3.4636792579244733`*^9, 
  3.4637525207197084`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ellip1", "[", 
  RowBox[{
   RowBox[{"-", ".2"}], ",", "1", ",", "1", ",", "1", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.463424334743*^9, 3.463424356193*^9}, {
  3.4634245096029997`*^9, 3.463424576724*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw12nc41e//OPBj73Gs3kZJkmREUUZ53speTatQyUqlZSQjGWWkslJCyggV
GSmUW2SEZMt2ZGRmO8f8vj7X9fv5g+txvc65zz2ez+f9dF1Hwu7aSQd6EonU
S/z6399PLafeLZeSEen//QRbd2yZJizEyhGlFXAPhmxizjQRPsbX5SUTEAl7
2He4vyJs/Up8le5oPBy18HG2JRxPfST6494rqJtlOMBKeFuaIReFkgaze/z6
k76S0ekHNbVftLJAgyLgtINwNstW0+OvskHY3vxX1BcyMpIa/6HnnwvuJ1VE
Z0rIaC7wvcmnnHwYusVqqk44+ml+/kzfR2CPCLt8o5iMGHcobk5xfYaXCl2e
sUVkdLz2okrmoWIIvevlmf6ZjOw2ftmIXf4CQ3Sm11I/kZFrsUuA1vNS4BoR
tXH6SEY1I3hF+843+FTcYCtXQEZ/BDbyGp+Ugx+XzPW+PDJqTQ4Jl3lTAaxm
fr1sH8jIVKel6UBLJQz/1dIPzCajIhsH2+G/VbBy+/DA2DtivpPCBmYb1SDA
H1vkl0lGdPcVIq7urgUY/cL5/g0Z7eo6KcR7uA4+OOR/qEkjo5/ip2ycT9TD
MdonvppXZCSzT/+lglcD8NEZXvr7jIwyjflnz9s1QZ+Sp0vAUzKyqlIRuzDR
BJ9sNATZY8gowHrpu6JbMyRIFsYPPiKj6/KBq6rBLZCgLtVfFEhG1PqbJ6pS
26Cs5XBquT8Z3W7YnS8q1w7fGTQCinzJSGzN/plKfjtc056puuFJrLflR3Ru
WQdU1DQf5HYhxit1N0773QmCVJ37oY5kFGwgVUKz6YIHGnw35+3IqPIdvSLr
ny64cIVyKfosGflpzguZTnbDFLvBEJMxGXUbJ1WdWe2F7wMuOlUyZPQxvebB
fiYK/C2TMW/aSUa9+OyFGkMKDH5xdfshTqzXs/Lb7icU6LjEZ3xPkIy43z4/
YiAySPjPCz4SGVl+k6Qsyv6BH9eodu1NvOhY/zDpkvYw2F6PtS2r40UnZC7c
drg/DJ12x8yeV/IitQZvTsmaYfjAwFH0XxEvygtPUe03HIH6RH62Ey95UVrq
WreRySh4dJQtVTrzop2Rv4/f1RkDvZChzJwLvEhOdPm2ceAYtPZ9Cgw7w4se
Thjeai4bg6Xfxw8JGPOiduQqzKIxDkrtuaXeCryInFapzSI3AW871hM8KDzo
5t82ZQ7SFERdfqQb2cSD9vQ9ZFJRm4I1+dGeqG88qIjvw1PyzSmYGexfM3rF
g1JanSsog1OwkCymn3SOB302N9NqL5uGX+SDQky/uVHHzu+2EwdmwGDg/PXf
1dyoyO3RR+NjMxDa6sQU/4kb8Viv54Q5zcCKQlbr36fcaHuHjX5C3Ax8vshY
UHKaGyG6OE2BpRnIey8XdPknF+KofXLH6N0suFyIZIIvXMimMULrevkspBwK
DmF8y4VSCrRHrv+ehRNdPP6OIVyodXHhAxPjHLD2J6c/PMKFNOWba32s5mCA
P/hzTAEniurpOvpyfQ7K/K4WpLzmRPt2ut7zJ89DIf2BYxlPOJHHGkP4Yal5
ILOwaUVf4UTvPZUEjIznoe6MpNSSJCealx5NLHg2D1d0rR6JR3Kg87c8XGv2
LMCp7gbGa47saEO3U0VXeRF0Iw9nLZ9iR9f1gcnp6CI0WTeH+Gixowsdko8d
Ty5C26nAZG8xdjTq2SFOf30R4k4Yzp1qZkP0/7Y4vc9chO9blbojD7OhBHal
w6NCSzCkbjs3u4cNBet991uXXIIzh0q6jv/HhpDSt455xSXYMz5RxDHPiuY0
F5XuGS7B7KB3j1cGKzrVr68t4bMEb1ailiz4WZGcUWRCROcSSLufTiwksaJj
v40tc4eWYMbu0VmhaRYU3mrQWPhvCYqgJLWzhgXRfVx1cGJaBmtZNcZbfiyI
/MzGwG7vMjBMHyrlHGdGM294Q3/7LkPXk76Z8A5mJBmp/VrqwTKsbT+9l7uS
GeXq/HfM/Mky/NnRpCWWzIx+hN3rs3u9DCwt9rUXzJlRe96/A3KVy0Cl52vN
rGBC/ynGHXzBRIUfMRdvduUwIdUJulstXFQwu7j9GW8CE4q3tn48KUgFp9bM
uQg3JnTBZ5C7XIoK6tZKoo1STGhuq2bmxlEqLIpNKCjyMaGfL2IvHzGigljb
ydynG4xob2OUpfNJKsS7WLl6djCiULHTlmfPU4HnJGdmWCgj6tkR7jV4hwrc
P4sEJDwY0ZSapeihe1RI7A7/WmrHiDTcJZW9HlAh0OXrLt5DjKh6WvJGUjQV
WPc3/uH6x4Dop5PSnmdRgUvBWCvEnAGxxNUf92yhAp5UZEo8yoBefD3cI/qb
WJ9EnE2xIgMqPLvPI72HCiqSvwR5OBjQ61cyd1yHqXDs0o64HWX0qBNf1mxY
pMJVn+cLvu/p0afDt4rf0Kgwbc1xczCeHo0NmT50XqdCYeobzmp34nlkRUsy
Iw3WZAxdSXL0KIov0XqGTIMD5Ube6cL0SLKvbo5VkAbVVO7t5iz06EcuvQT7
fzTQO7rXqXmQDmkfah6q2koDywy6nS8b6VCB8c8fAdtpEJt67717KR0KnI0e
lpakge4hR0sUT4cORm05p7CbBl+02KOUQ+iQlYY5x5M9NMhj7qnZ50GH/lTZ
hXfL0WBl+9OzJifpULxF8mtFJRrwGr3RWWOnQwKyVOcOVRpoUEHu+goJrb5I
dr+mToP70bw8U2MklBf//tCiBg2y7vaN0v0goflUE/daTRo4v8iYfP6ZhB62
G+0UQTT4LanDoZFBQo7mQayWWjTQ2hGd++wBCc2Emo8nHaXBRb3XumaeJNTw
MXhnhjYN5sQQr6gTCYmnCHMl69DgqNU7gXFzEmI0+q/8vi4xHseqVbkuCQ0W
X75grUcDJ27BkZQDJNTZTWGV0KeBu/vn0ke7iOcacu2thJ1IXmMBQiSU/Lt/
xNOABgKhZZf9mUmofsLNkt2QBt+Hk2K5pzbBsEhX/yFhv313tuz9uQkVttEt
64Sve8842r3fhPFU7y3njGhQM/4oIiNiE1Sb6ZU+EC6WjY6hc90EuMt9eJaw
1tHJoKumm+B9xdFyhzENKp00nCYVNiHLquDlUcJxHa1H/Xg24U5f4F4zws7Z
ZTskZzZgWPvITgvCl4tKOLobN6DYXjPegLCnoSpzeu4G1PlnvJcjPMR2Tjgo
agNMpaLukAgrV/MYu9/agM8s02KVxOe/0h9M9Tq9Af9GH3+4Q9heWHpPpMoG
VNyUOyFB+Kv5X0qJ0AY0SFmJFBHr6/Aeb6Itr4Ov8kPpI4Tt5d5vGnauQ7Cr
WMwXYr9m1i9fzylehzvSWt67CQshcRnphHUoFuejBhP7a1Dho5Dnuw63XR9I
tRHncTWJGnT83DqwXfXaJkRYJbdDpXrHOmR8jO29SpxnmAUl7iXjOpBPNf0O
Is7b5aPFmfCRNXgl9Y7tEREPE327uRKz1oAumc7dk4iXoHB1hoqHa1BBivhj
QcRTkMxuhzXXNVj59/vfHqBBUruHe+b+NbiveUM/8xANEgsLpbcKrcEbpfrq
00R8isZFmqRSV8G6ltFoXo0Gf8870Sa/rgL/QPU3toM0iB64ey87eRXuVNiM
3lOhwa6Za/cCA1fBjPev29R+Gpye/zbuZLAK/a/C97xUpMGy69PTnnKrsD/y
XeCwAg0KB3cfjOdZhaDDTeni8jTwDVB3EGlfgT9Nv95ekyHyTVj6BKP9ChjV
ypvek6DBvntCQid0VuB7yvB2DXEa9ItbfijYtQJ7/n7zHRWjQeaq29myMRqc
0cgx+o/IfwMDlcNj14nXpfM79XLR4A9HzLnJkzQQPNNXrMBBg0O33DWZiXmv
qPy+e4uVBnUP+CX8iDpkRYn52UFP5M9xVZpvIBUMPyv5cy9TYeFHnv8BRypc
0XzruDFPhTe+i4lMBlQY32MWPzhDhfqN3IBRbioI71w/FTJOBZmdX/SLXixD
yID3nFEvFfi3iDQ9KlqCmzQX29oyKjCG1yS/T1yCZyG1WhxfqSC+HBI7eG8J
lItI7EeKqNDyL6D+EXHvidRuyYzMpUK/qpnPv55FUK1aKyp5RYUGPf7WH0yL
ED154cIxfypUJ0QW6U4swOsLsgE0byqwLW/IdzYuQK/9xmK8JzGe7OpzzYQF
+OrYK/fdlQqVr1nM2JUXQMK8USbPmgqjexRKXjjNw6EHJA/ug1QwvePSRzGd
B4fHr1VN91HhLDfvtkMH5kGx5lXnfXkq2OtUVsoxzQNPgdXmoCQV2H+f91pP
mQOSfUuDPi8VVpSGT5wcngWnBr+SztFluMJ7id3DYwZ2FdWpBEUtg37789nd
52fAXDkkkhSxDM8Xc92mDWZAfU2s1ZO4b7N3T4rmbp0B2/dMehY+y+DJNSYg
/fAfKDPtc+12WAaNA+UugcrTUMI9W8yougzvT+h8a3o5ATotIW9ViH5gOdbA
wfbOBBzvZG570rIEE/WiSaxmE9DOlzTz9+cSvCAleX1knwDLHUo7npQvwY+L
HiGunuMgxfLLqeTtEqxHZEUYmY9B0+w5zgjfJZATNCJvkxmFGwuCvWbiS5D2
6+B9ZZZR0J69Hn5OeAms1uZmHIZHYO2Vt7wT/xK0iqmZCb8eAXJes/N1liUo
dTnyX5nYCEgmtfhd/rcI04WC8atCwxBAVuRix4vwR0/vW8K2P2C7d1NS0GYR
MkKv5Z5eH4RDNVpZ9uaLcNKv46xMzyCsM7EU5B1bhAvc0d674weB4W/3VcMj
i7DFk2Ov95ZBuMYVrXZJehFKmgx+W2+hQIWP5NKl2QWgdz5c9su8D8rcvsql
BC1ACl3caS7oAPaSn6o7MudheE/Q7DxnB9x1TPf7+HoeamQmn9N3t8NXy5CX
+gnzwLG0KzjOsx10yn77uT6eh6w3vXwJeW0wYyvLVuQ+D+27hRvm9rbCw2QX
itGRebAo3Kc2p9sEMvSkYe/uOZD1i7/eUloNjk8PKIdzz4Ebx97nxq7VsJ9X
u9KAdQ66BPXHGLZVQ9t2jgpW+jlIlVjYK+dXBUH8XBwhi7PQsnHvg41WJciE
TC6H98zCrS7P7i0t5bB3w+5JVtYsOMv+jhHW+QJbE2NNjfVmIT/rB0dMQhpE
CUUqXwyYgeXq9r6+zo/Y3bUk70z5FHhm/Hl8+kY1/nT37MRAyzh8FXATdjFp
wj53pze4qkYh0luN61hNG7Z3zN1iODwEUbPvFs1UO/E5ff59zscG4VLiQb5O
nU5s55UWZac9CJx0Rv3HT3Vi3cK8cFu1QTiWkJS5zbUTF9+rOHpWchB+I/WW
/SmdOK3/VL7TMgXMRfXojTi6sLAbW33dSwrcp57wOtfShaVvfCosnh0Antvl
XYnaPZiBWaifXrkf2La6/ak17cEW1tNbJbb3g3T/15B/lj34xdRGmRZnPwQn
7/oifrUH303ukw8b6oMtxi8MxWJ7cBxF1utgbB/8vEz7L+xPD/aUOB5Gv9wL
hv5nxS3v9OKMJ/Eqx7/0AKsej+W7J314XfDhfQ+TLrCZb46Ket6HW7X25wSp
dsFjy3NK11/3YRsxuoOxkl3A8D3sHbmgD3NVBFp/pXWCyRXOrdPtfZgv3bhW
Jr0Tnq1cGuIV7ccm0o5hNzZ/Q3Z/+LhYYj8Oyum6kpPfASdekU2oqf14o+J6
C9PLDtBL0nlZ964fv4ydtLYN64AY45EdZ7704zJhgSbBCx3waBC2bOnux+Ys
yWxJ3B3w8bgKfxjHAL5turmFz6Udah64fY3XHsCp7S7R3jvawC/hjMyq3gCW
j4pvucHdBsnXnCctjAZwnsWZsUsrrcC19ZEf88kB/MbM/9G55lYYOxxDUj03
gIud9zw6H9AKOiLRlKnbAzjJM6rz02ALSNrFD+RkDmAnJRObnNRmYOhS1Eh6
N4A9Sp6M9TxphmTV6q2hOQNYqtKWn9O3GbIFH/uf/jiAFRtSVK+ZNcNbJfs/
38oG8EC62HN95mZ4FzZtSm0fwF0FKXK6zk3g+P71cA+Jgt8qcvmel28EBsWA
3v0MFMy2MPiIR7QR1vxCFx4wUXDLrYDfmLURdF4OB0qzU7CLKI+ofs0vCO1y
PKLNT8FtzNtyFlUIf1/iXtxJwVsOqzp+IzeA+q1UaXVdCtb5IxHLUlcHt7WO
1RzQp+A9v7R0stPrIEjraqqiIQVb1C1wWATUAS9NjU/MlIKD9jA0Z6vVQai8
WVeTGQUrO1vOe2TUwgB9Sm2RPQXbJ57e7nT/B4TuuWXr70/BVmP2XflHq8FG
/7mOQQAFG8KBvAixaqj+E8DCE0TB1v7RTy8tVoEE3+q2yAcUHCOw4iH9pgqE
M1/lX3tEwU/4vimXsFfB6kC1dNwLCiY5OcRB83d4yvlQTCGRgl86+sWqvv0O
NaG11G9JFHyn8qLz/qDvEJue7TLwioK5Rt75KRz4DiSuEH3qGwoeyl/mUI+v
gIRzB8Jj8im4AR1MTrErhyv+cSYrBRS8f+mx4WeNcvAJTqO3KaTg3NwDUQ0C
5SBVf15PuIiCp1aeTmxWfYNP9fImV0spuLSp3sFd9huMK4u3BtZQcKaF4tDx
MQwfngq2uHZRcLyRXrg8bwmETSS32nVTsG5vf0prdTH4hpYcOt1DwX/+ifz0
vVsM5D6pI3v7KFh0RUSjfboI7sbqyFVRKNiLpfxv0s/PwBww/NPzLwVfyfZ5
ExZeCC5irPZHxij4WEK97PGjhcCw66wj+zgFn+h3cNqy+hHEMto+RE1QsMeN
XdNZLh/hNXxyCJqm4FT32sRhgwKQ+/f4yeQ8BSsIpaWlsuZBbcglrkcLFLyV
pZMusCwXSncwr8otUrBi24Evdrdz4YJViMzFJQq23VBQ2fX3A5g88uj6QCXO
XzVD1etxDqipqAwdplHwSqBiguFmNtC1vDhfQ/jXOfLFbdeyYW8+5LWtULCb
j8N0vel7YNIjtm6NmM91qe/a3G9BWOb1RcN1Ct4hrsmx2y8Lwp7/8ikjXPi8
xpprOhM0f1Vzpm1QcOvG97nenxng4imZcYw0iI/fd86PjUgHxhmLhXzCUi9F
toSsp8GU/8FCQbpBXAKX5HyupgFPasyLJsIbjB5wySQVQm63z+xhGMSxao8b
zbheg53sczsvwl0W4rd3+78CHg97+0rCwy0nLq/NJYNiXuh/5oyDWKg8QfB4
7ktY/ShaF0+4R95Oe/NpEjh77OLuJfxysKHwg08iiE5y6J5hGsRpLIz8Ivov
QHfnFo1YwuUipJYm+XhgE18r+0n47if2wHD+5xC5mXn3IPMgbsj8eI6x/ykI
dL/47EzYJC3cruJ7LNTYFwXEEY653k0XlBVD3Pe4dup/z3eYl7N5REHVsxp9
QZZBrH/2c1HD2UhwTUeW6oRpDAwrMVpPwDtShWZNWOdyas9n00cwXF4g60sY
XwxiMBR5CP55tf/iCSvjPs3e4VDgHA3QKSRc8mTS/mbuAziwNCr363/PZUeN
2HyDITOIIX2YsJkoa+0r/UDg0O37QCM8LBn6UUPgHnCv3zXhYB3El131f7zH
vuDi/c9bhPB/lF1nR8y94N+rfYekCbds3/Fz+7Qb+J03faREmH8qu846+DoI
FureVCPcdCOIWVnNGeo/bPurSdjNX/ve+V+20HX19z8twmmd9+8UWhrCc2H3
0COEm/1jlFO7lHDAv4UCRHjrL/F374XN8T51i5uHCO/Pnliy6ruIL56K/6ZC
WOesxpO+nCt4JqXktRxhH6Ow1Lyym7gt5ZOgBOHtGbr2njKeeFdXqAg/4aNj
vV2Ho7wxb69cLj3hOtfus8yrd3HLifjOf8T65a86JP5VCsBfJ2ujuwgrcSc4
HHMMwjI3CvvLCaeWWXz4FH8f38o99TWD8JUe2zcSv0Lw4qNncg8JS896ukUw
hOM1mpf8VcLhdZe0Vg9GYIcgyh9pwvdlV8pcG5/gPw3Gz+kIc9E/2pk5Hok3
17YN/CbiwfdQYvcQYzRmWf8k4U9Y411p3Hm1WCx73VrsOGHPsudVyaeeYgM2
yYythHet3UsYvBqHfZ9U38wl4tFzlivy8uvn2DzGO9eTcIyWT2fel3j8YGzd
X4Ow+sRDsbX2F9jzBE9zCRHvWmryIzEcSfh8QYLaSyJffjoe/3td/RXmc3M7
YUS48diw3rOWV1hkpjdsgZ7YjyZOlW9XXmMh76oLmoRdbD2ntrxMwS3zui9y
iPz1Egw07mJIxyGd3CXahD/E3XrEk5iO4wRZVts3KTiFvrJG98Ab/HSotGuO
qAdsIstnS5wzMHL042cl6oX461c3S39mYa8Sxr33ifriVJA8xej0FhvVMl2i
I5wmM1hnQnqH6fYFHfxH1COTkJTRkX3vsViPz8EMop55ad7mU32Wg720rB48
JuqjiVjpwgelPPxbQvVy/xwFy28Wurr45eF1g92X5Ai/1LAIlqrLwzc853O/
zhD1cptFSrJ9Pj56a+Lq1ykKNuAZsnkbV4C3nXuLlEaJemgUlvXfRiHO3W+Y
cHKEgq/ni/D/M/yEncPVOW8MU3Ct39PA6rhP+NiT69Jpfyj4oYJsnJ/SZ7xs
Fw7j/RRcUdCuzexQhDkGfsaMdlCwDXfui3v1JbjnNhadbKdg2MMmZSHwBX+s
cyZPt1HwC87rjQrWX/AVb0O98RYKPutgmjI08QUvaow0Vfyi4J+v4ptdOErx
s+YJhtUqCt7+xZ58S6oML/4w126vpODDvkp7rxuU4bDopMns7xSsmd0X6nq1
DO8o+XvTspwYv7ONdO1jGZ7Zt9vg4VcKLri1/chdnW94/0pztgdxv9beXfLq
dyjHrAJc+3fnUbC3ZFzObGg5Ho05uKXjAwUvN/1nypRdjt2KD63LZVNw9rHK
RsWlcvyhYlCxKIOCmZ4tqT2/X4FHMrqKThL3/YXt00x5b77jY9uZ990n+oc8
Ue9+oYkqfF61whgT/cXFyMBGB75qfHXkrsYi0X+kjRU3FapVY3f3sEgLXwpW
We7lOxdSjZX3PWRZcqfg/86KztdI1WASOnzquSMFX7sUrcN04Qd+fHCo5aYO
BTvkzPGpddZhmyrSG+2jFOxsGj3eSKrHN9vj9vJrUfAbDkXty7vrcWDYonX6
IQom070Lf+NZj4/uPs6etp+CQz0Hf2kK/cRvPwx/ppcg7uO6lWMTpxrwRJaY
2UHaAPZszc7Kcm7E4hzl7ZlLRD/ZrNSj7dOIy8VcWIUXBjC9if+dgceN2J91
1GNqegCPsloyin1qxPs3lG1dhwZwruewTypTExY96Xf4V8MA5ueLvLf2ugm/
OxW0lfHVANZg5xts7WvGuZNO9hPqxPuvZ1Q/ONuGn93J0i8+OICf/Ikh/oNu
w7Uyl1aDlQfwqpMApde/De97MlrFrzCANx56eaint+FwVZdfrBID+KdJwhGW
2TbslnzrqgXzAN66EJc0c78d5yr0B9AS+rH8UyEbzoIOLPqleWVHZh/uC7Rf
+cTfhblSPmddSO7D/xkl7rq5uwsvWQlPxsX14XMB86kKh7vwZx9O8kRwHw47
afoy27ELR2b128na9eGIBZHS2qIufJRZkZtXuA8zz+4A9/Pd+AeEZer59+Kb
h3bIJOf04P6UYmy6vwdTb3W4FJj149KGo5bMMj1492Tfx7RL/Xj01Oitj9t6
cFBQ9ZXnvv34teDs9hW2HnxiQ3ZnSFo/VuqQrBEb6MYTvrWDAYv9mOp2aKI8
rBvnvohzXzYcwOcbzni5dnbhK9TL2GxyAKtS1Ft5z3biz/LHzzDuH8RlgxL1
I8ttODUtO5NWMYRVpBvEpu824ZgtYSVzb0bxNQuz3umBGrxes7nI6TGOt5RN
tXEIfMKae9SSBJOnMLc1zyE26URQ14i5n285gxX7+IMy9r+EQwMX9zXZzuCF
5t+8k8nJIFyR/eyf/Qx2u6VW7ZH7Gm4X/4hUuDGDrezN/rD3pAP5Pq/Ex9AZ
PG3aqV5ukQPU0dMMQ8Uz+LbN7Xv/eX6G1vuvvpdvncWzJ2LqmnIqITN0asBg
eBZ7C/L7MzNXgfeVjVihyVk8HZRVE2hdBRzzsq1/5mbx5rVxcSv2atDJpBu6
S5rDEfrTqh6XauAAs6VwqegcfqEa6/lRpQ5KK+yYTpycw9Yh7Qf/C2qEKB/S
fBmew06O/+1/3twO9L+rePa/mMeODb6sJxg7YNg2zfX5q3nc12ITpXigA/6Y
X8jcfDOP5bj9DZ3iO2DqCCm9rmAetxhE03+y/w3ON3ddvNAwj2c+4mfrpC7g
RZ3c9+gWcM4z3Q4xq174Kn458bbTAma5u/Mu95NeaIuu7m+5uoBz8+aPylX3
wkXBu+EKbgu4Ukfw86RKH0hXu3MP+i9g88bnVsGC/TBy/rOxVvwCJnn+kXrh
OgA0dsnenvoF/FJRRrBJbxC6L479dlJaxMmL7+i/OA/CXHOOmbzqIt7BFpZZ
EToI6LfHtVnNRWyeXxEiUz8I5MVztu7Gi1i+Icb85Mk/UHE6zP6y0yKuNYjN
VLAfAmvxgHy2xEUcp5/7tSZpBH7szej6zbyENS0jNn0qCNeePHWRawlfdZiF
E39HgKbW5zLBv4SzNJl2n9k3Cqs6/04sbF/C3SumoTPVo6D7emxlVH0Jzxgw
GuvR/oKWraaRqesSLlJCwtbuE5BZMMjwq3kJBze9LAxOnICW34Havb+XcGyT
lXtT5QTYsgYvj/YR1gP8S2gS4gzhwdw4Md4uh3MuxZMQUfqQvZt+GQfQDicr
sE6D8QBZ7Z/SMr5TL3L+9LkZCChjaq57uIzNef2vpbrPQGUS+6PjUcu4ollQ
nuXhDJTnm0o0xi3jLqVTw4xFM8AmtCcav17Gk5zjmYP8s7Aptsho+3kZc17s
dtj3cxasGDOqwgeXcU34lwhP03nwnSLlq+2j4u3vpETCHebhXF/IscwDVExX
fFDlg888tLJXpfNpUHEWH2jsfTsPekcMDZqPUnFaL/tdOrYFEGk5WMBgRsUj
BZpuG9ULIGF2w0vCg/DRXtLegQUYj4/2l7pDxZ8r36TeoC7A8aBdujv8qPj0
ps8JeZlFKG3u+8F0n4r5oheE74YvQm32sa6bsVQsFar2L+rUEoycWKe25VFx
WcEj779XlqBVf6zLppCKb8idijl+fwmmph5f7C2iYiNGnWDLoiXYOHNAvKKM
isPtqwX1ty8D++FkZekGKjZn0vq0T30ZxCSGtVyaqPi7VbqQ4ull6NupcS61
lYpjM3ulLoYsA5NktM96FzG/EoFtb2eXYUguV0xrlIpZ3H7oyXFSYedprvvq
41TsyZVqVbaLCi7nbS/smaLi3I5wfQlrKpwVihKbmqPi4jOMv6qqqbBMdndY
W6di3a0MYymvaeC51te7l4+GexUHWd6V0SD9yo/4zwI0HPLxQ3ptHw12XB0P
U95Cw5x1i9eMRFfAZkIlmkmMho9dk/Y8G7sCXTOHxNmkaFjTVKB3S8EKiLac
Prlbmobnd4W2jjevQJoIU5OaDDHe2D6fVt5VUNXYqb5fnobZxkW+FkaswvHb
wdd9lGn47tVnWPr9KhhmFhfuOUDDClP8Zjn1qxCTymBee5CGNZIeKtNzrsGD
leOSveo0PFAe6/1Tdg126WTwHT9Ew/er8o7lGK3BVf2i3vzDNEyvSve0MHwN
UiR/PTBBNNw100Pf83YNLBJrdwVq0bAYu/jclvo1SJO/KpF5hIZnus3Ou0yu
Ad0HHQt8lIZfniw1aOFcB56ST28qtWk4pvdI1kn5dbiTvzpbokPD78/e8f1r
sg6XBrYJvtal4WKmN6UxrutQcY9hxlOPhu0tPjpbPF4Hqb/nLxzWp+Hbi+oe
ih/W4emjCr05wr5R7hTxpnVgOBBx76kBDXs1GaRKza3De/rFSRlDGubfdeSz
Fv8GHHzB4vyOcFN+hJCb8gb8NXjTuNWIGH/P5qcvZhsQLP6Q0Y/wmWSOWFHP
DbjwnzalnrDClR9pT55twOGj+7XZjWlYaHWaIlq8AUbj0ewHCP9La0Jfuzdg
e6kH+Thh9yD7Irf1DWilr1CxJOyrefDIEfFN2IsPnDYlfKXbrUlKaxO4px0N
9hH++HjQWvziJjTn4lkGwk0hfZ0KwZugGhYkU0F8fluh7eHTbzZB42Fj/TXC
mrH/vB//2AS3hKef2AizzuaFDkxswvO3ryqfEOvLNd/7XpKFhHwWY5oZCYdX
JM5c+I+EzI5MFjkQ+9MwHsn6VoaEgvesmecT++chpTW9oU5CpdZzQVPEfndY
ZsTbGJNQ9UjbNgHCzafDmattSCjV/8HmLuJ8Tii57dG4RkKWXd/odhHnx/A2
b6PIn4SsJ4VJZOJ8b1TrPetIIaEary9nsoj4kDklYOLxkYSe6HtetiTi5wq9
RKR4NQkNyShRZjVpWDhPJyVynITibBbsRjRoWELKs1h2lYSubVOosCHik5yt
ONLAQYe8Lh3NKlelYf0GzrOK8nToVDfb49MqNGx2JCF6+jAduqF71+TefhqO
jX6IP5rSobSLVgIvlIh8KYYG2+t0KHcoRyOWyJflQ11J6B4d2g8y1u6yNLyF
LkhTNooOVf2lYzpC5Nd8h/t3kQI6dC2x0jV5Jw3rbFVqukClQ6/j9YVcRWjY
5DEvfSgbPZo6IDSdTeTzfVm7nM8i9GjntxGDbiLf81ZnTigdpke+og1sS9w0
rPta68r9AHpkki3OqUhPxMvb0oMz0fRoPJvk+GODqLefFrbZpdGjaxI31U1W
qdiwvIbDtoYe9X1eq+dfoOIUvhMDBdwMKMqCfuLZEOEXXpy22xmQ5i6lKwED
VFy4Ej7EvY8B/RK2OGPWQ8URk21nH5gxICVSyWJhCxVbej350JTAgL4Zd1xz
+EbFa5MWDwqzGRDtKnfy0y+Eo/eEvS5jQD9o0XIfPlHxPDPrr8dDDKhML7Lp
xXui3h6Utv8qx4gigjTCTzwj6r1D2ttOTUbE38rY9y2KisM6DR+tHWdEXs/T
7whHUPHkgEWHmTsjotdcZ/G7R8zvyRv906WM6Gvylw//XaLia0oqB1xPMKE7
XCeUPPYT95GLkFPERSZ0Wopy7pocFbt0J6XnujMhaxnZMlMp4v7qerPEGs+E
5C9/i8VCVFzBl2QyM8iE6N8mCTlSl/GE6N87D92ZkczT+A9Zhcv4M5o4OfuA
GW33PCRIfb+MC3H9W6t4ZnSn81KeTNoy1ug0uKmMmZGDC5+oWvQyvs8yBjxs
LMhYK9yYyXUZR+/00keJLMjau6dRddsy3rc5kvUrhwUxxq6HlfAv46ornXnn
y1mQFEX55Xa2ZXyz1l/pwSgLur/l+cXI+SVc+CrEaFCJFZm72emyVy9hedeU
hbwqVpSx1e+KlvMS7lhndv36jw3xvTIXJkcv4h8LDUUNDOzoVku6xo1Aot9p
iHDr2cKOtI96VmbdWsRlV+RtJoEdNW8/mZF5ahEHj3dPdzxmR7SH8fMt5EWM
W1ROv1PgQPKhR15U3V/AIi/Pybkc4UCRZrWyeUT/VhG8v2e7OQeSvV5V4W63
gOVnZxs8fTmQRtieqqDDCzi6XxRV1hHmDLcum53HHdosQm8cOVGMw2GN1yfn
sQR9FXebFyfKGFbIYNEk+kmq1PDyQ070/KbOGW2Zebx38th20XxOZBVw3OPo
JtHPcpW5N25woidKBwUsM+dwBfuB9uJoLlQ6q1bcuTiLldx370vJ5UY/7jD+
uXB9Bl8c39qGv3GjNNrw6hWin9+bsF2irokb7aXynjdDM9jn/M2qd7PcSM6M
6VQpzwy+KRtUHqvIgzTUXYRGrP7hGesLRrVZPOiAtoLA8rcprJag9ehjEQ86
s7Y+VhsxhQUuSZaF1/Cg7oiAY9ZWU3j8MpWeOsyDHKVE8Od/k5hNJKhiiIcX
CXJno3PCk/hUecutR3q8KMG/PSn5/DjWfsqZb2LKi6zyy8Kv7h7HVqsR0SQz
XuTJxhC/9m8MDz00q0R2vGibL/1tO78xLDs5Uyftw4sM2b0lLZ79xcEjXys8
3/OibobBbtVvI/h+BFPbxXxe5HigWPF08Aj2Op9So1XEiwq0FTsPGozgR99X
J5q/8yKk1DRm1TiMI76qI71uXrSxLv1dsGcIUy7sSb7AREZvWZ31O8YGcXB9
nck8Oxltc91RejqF8Pksxxu8ZLQYcPbZU+tBrFIqa7FPlIwuj7l6uTRQMA+7
bH7FXjJiOmVq75wzgOUalVU/KpNR/Vc1+21OA1hB0FIuSo2MysxmN5O2DWCx
SrMJrqNkFH6Xksgs0o+d5UoS2czI6ErMGeX+hh7Mzm5y85QVGd1E525IavTg
Z93Ulgc2ZMTcU2LL/qYbM94Sbc9xICNhDZHj1b5dOCTxssCKGxnpjJLu7pX+
ja+f9o2IvU3Mt/CbYMmTDmz/c8svER8y8k8X+75Ma8e7VuhPDQaQEa+zand4
XRv+Hu7EefExGbmprdecutyCDYNn3QyjyKj16ZXuhOZmvJnfTCcaS0YazV/U
09WaMf3BHOQZT0b/hNdz6FiasDO9UCN9IhmZK+kWWFxtxIP/vdf0fElGLpyL
FRPpv/AeoSt3RFLJKEFA9YKU5k98zOuujEE6GWnfkk3bw1aPxxkSvM9nkFFg
Qis0ttTiWlbRFv13ZHQyZCGL07kGL6qzYOFsYn65ZYlvlarxk2SyaEsOGe2f
jJNdXanEN204lzfyyOh656HALw8r8E4nTbsbBWR06K522AGzcozP8AvUfyQj
VZVb6Te2fsO6m1kMPJ/IKJezb+VPLcac5ni3+mcy8m374up55itekEjzNiki
o5k5j/W0sWLcbW+8qF9MRtM/TEi3b3/Ge1vQY7kSMuKOdG9dZC7E5YezjlIJ
vw4v7pKOzcfBs8Zc774Q8TMn5SkkmYt9uMJG9b6S0XMZHYmYC+9xaMO5hjrC
V24fkXjqk4E1mi6VHvzf96ufelUejUvBsQaUgnDCPSW3m85eTMTvFRNzqgmn
Z/k31cZFYzlnvvcThAeZn8VOxgXi///9bdk7fxsUolu+/B+yDF4a
     "]]}},
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-0.5635082897868414, 4.436491673103709}, {-1.5811388111180138`,
    1.5811377922403207`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.463424577611*^9, 3.4636792592444735`*^9, 
  3.4637525224200106`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ellip1", "[", 
  RowBox[{
   RowBox[{"-", ".4"}], ",", "1", ",", "1", ",", "1", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.463424334743*^9, 3.463424356193*^9}, {
  3.4634245096029997`*^9, 3.463424586326*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw123c4l+/7P3AlDaOSEd5tDSltFcpJKg0lRGZGZSUNRUlLWYkoMzurjJC9
OrPJDNnrNW1etz1e+N6f4/j9/ON4HLyO23Vfz/M8r+sP203uq99ZzsHBAZwc
HP/7rjFXWZ1LsIHj/32pimVZp5NOM5A+jZ5WwO3ppPaV9DYj9+upng4Q76Vq
60jajBkRPG3pBObvlDo1Sct4HP/51vMDdBHhzptI89Jfz8+3eMNBl+xHTSw2
vPsULBdr6QvTwkTEW9Kfc+LDFNgB8M8vX3An6Vk1oQMlHsHA2BxbmTnKBsVb
WVMB68KhjqpcJk96xub8mGJLBJTLqKzOHmHDI3M5vo7wSBD69OjjbtKyZgqV
dyyiwdPG3cBlmA2qkTuTOw/HQsbzZzbtQ2zwqOmBM3PfIKE2295gkA03OmMf
VL5PgJbofdbuA2x4EfhJbFj9B7CTUhIT+tmgO+Dx254vGZayl4Qqetmw3e4/
Fd1/KfDHyE6xmMmGXytx77Hsn8Dz2uTXTwYbEt9YPlgMToVX45k/LWhskHu8
/pzx7XSAJ8ZSR6hs0Bp21plRzgAZZC8N97BBLIeD7rAvEz5/upwGXWzgFiqy
uDyWBd+fcXpdbmHDPf1Vcf0v8yBEzY4jqYkN1wbnu5qN8yG0+lAr1z82zH29
nZB49hecbhyp8vjLhsNDbZ9Wcv2GpcISzlV/2HCy60dgUUUBzKaKsrnK2SCv
mc+okS2EvNP3H86UsGH18kvClfGFIK9U3pVZwIYHB21SfTyKIPlmoGhEFhvU
1q+rMrlWAkJfeq+eymBDnd++vYO/S+DSh4tilalsuDOZ4258uBTSfgq/KfrB
hmUWXyaEN5TB8M3941uj2LDQ/NH0S305/CuZKXz/gQ1bTpr1p6lWgaVm2sNN
bmy4xfsn7Ep5FWSwvjWEObGh4Z7Bpz8K1RA2sKf8+Usyf9FTlvcP10CUwm8R
t/ts2GBpoJOwug5k6If+LF4ln/ez3CaK8RfYcbfcflxiA/2zQMrMtnrQfqpr
fO08G3ZvMAyW06+HV3rddpan2SD8uDrmQ3091PE1rpmVZENl9GK25q8GKPmx
Q9uZk8xTkeqI5qd/8M/bdIve4jxQjzKuO1T9gy9nc+x2zM5DQ2fwbs+VTbCB
WbPCbWQeXKhRijb2TdB6+vGTjJZ5cBqU6jxt3AzE+V71L3HzICk45fddshW4
D8RFl56dh6qQ/FOe8R3wb8XFoEfy8zDif8B/U3cHqBln9wicnAfB4RbK5w2d
8Imr3+H4vnmwOv4+99SzTuDl7elnr5+HrtSpNJtzXdCoU33Ur20OtG13rdZp
7YaxBveXMqZzoH5BlbXWjgJqBugbfnMObm16uOzcRwrotPhsWdSaAzpnm9u9
WAp8N02KD1aeA9/dimW+zRTw7+QtMpeYA7G3bhaKJ6jQJKjy7FzfLChrsK/M
jlNBI38noWU8C5kqfOBtQoceUV6lSu1Z0L7Wuu7DUzrQWPmBJ67Nwn8SttpP
PekQox3qMCM/C/0NghK7cujwzmhCctOmWZjJ2RJbs54BgQfe/xlvnIFLg/Pf
tXMZMIL9qXsVZ6Dkxse93Fy98F5zqDrlxAxM1/wa3y7aCx5L5/cdPTADHdC9
WVKqF5w09Vq2/zcDO+/6POHR7IUNmp+Ekyemwf5b4kP+qF5QX0+bDYiZBoeT
o/Sd0AcLsXkbaVzT4DcsslzRoh/OO3p1lc9NQap+T2qPQz8YnVwn/W10CkRS
rh+459UP/Fe0izVap2DBxt9cJbMfRqjR9YYJU2D2vNlcfMUA6NKYrVpqUzCp
qpN68MsArOFfUBL1n4T3hpY/vmUOgmOqSvhF90mgAZS0lg8C91GrbU9eTYIP
o152unUQmmZf5uebTYLfobpT0/ODoGj6pkj45CRM7/dy4IEhuLP+V/JY8wTw
CHhcelcwBAftqDoxghPgbnYyKTNzGDwUMw13rZmAx2MizKclw3DCQMIuYmEc
tjxz5NnbMAwC+jc5vJnjUFaqKKE1Mgxw7OKbq1nj0DgV3UoTHwHpApb6Zb1x
2Mip0lLjPgJnvimEuIeNgeEG8aSJq6PgbhL64dfnMWCuj+AP0B2F9WpZiaMu
Y2C6Z12GpOkoeFTcjVV5MAY/Iw0bNr8YhdISbbMxhTH4bexeIRc3Cq3GNrYT
FAK2/f6+PpGDBVsfHTnDK05AjnZvaJgaC5ImpLiFhAkoEbhXXKvFAg5+Keam
NQTotflaTOmxgF9DepnkKAsMxAwU9piyQI+1tV42lwUz8hqvN9qzwFL+xRHQ
YEHK8ntm0uEsmFXuyzh9ngVhuc5StVEsOOrpzZSTYUGkDCPB8DsLVinO3z2x
lQXL9zcyb/9kgeC9XGHtplGwZHxL4yhmgehCQ/rulaMQxi44/obBglGx4Vfb
h0Zg3/1zVq79LGgozsreVD8Ce03fBDkPs0BhWTkKho6AzDj/jNkkC3h9M/t4
j4+Ay6br23EFAakiIkv7TIfhY2AqZ9F2AhZj7tz5XDYIxMMURwVNAp6mbmo5
+mMQqEMn6du1CcgKc/Rr8hkE1fO2W+Z1CRiV4dsvbjIIkjqnD/oaEaD2MUeq
jT0AadvbFc3vErAlsqrvz5EBuHZb6pjnKwK8hyRl/EQHoCjo7oXRNwR8DZeL
vM0xAPE8d15deEeA5mPNSe6afpC0tTCnuRIgTbGivSTrwEZELz7Xm4Cx3yYy
ayP6gLtj5/a5CAK2vj2etd61DzphNKg7koBXfdk8G+/3gWXJiFN+NAEWdzkN
Dp7uA9w3kmPynYBB4zVtH1t74fXr4UMayQTQ3JUO/fzdC7W81xPZKQT8i8lO
aYnthV0arRiaSsDdkvNGR2x7QfdDbU5VBgGWTQ89RAV6wcUryLsuj4ARR3/D
m3NMSL+x9QL8ImDCZllSLIUJr1WXcmOQgCnV68PKyUyoiXIeNSwkIFmFPYtX
mPD2aPk6hzICTCJKy/dKM8GnQE4upZyAt/UPTQI2MeHJkPPl7goCpoNG/ns3
yICxb/cP7K4igM9aN87PjQFN1+VcDesIyExbxVv1iAHj/ddCL/8l96vBtoVL
nwEiBgWxh+sJ2C6nU+N8gAEBMbVRgw0EXOfmXVmzkUHmxSEcGwko/btULLqM
ATzDEWEe/8j1KYdO/Gog+2KNbdbGZgLkP4jbiOTTodz4eFsDaQvuMB/bGDpI
sz3XvW8h4LxTVLvCMzqcttpfQm8lgJJrKr12Kx1ufuKo1ugggOH7yMVjNR1O
SD1g95Bmv3NP4R+jQaprjqF5JwG58S6xEiU0MMxf/HuniwCJg1te5/6ggU35
qv520s02Epc0AmigNLTmrEo3AU/y7Su979JghZtQ0389ZF4OCn88qUmDeOP9
Qs9JH1er0qfL02DXqhvfGkmfO/Fd1leCBvssgz5LkHXOfSDxwOUNNGDvXGqz
JU0vrpJfyaZCxxMXRyQd1sJ6UMqgQoyMjOdyKpm3kKk/7rVU0GOKLFcgvTMh
SV0rmwrVTpJUO9LRq6h8uyOpcCX54ZE40jH7Lyyf/0AFfRdiqol0vqi39D9b
KrxKTji6SNpb1ygxzYgKy65FD22lEfB+w9X7gZeo0MLZuesU6Terel+/PUYF
j67rNHXSjxISeh9tocJOE769t0nL7xf6braaChLPV87fJ6332P2P8RgFop6D
gS3pCLivZtxBgQvCmRp2pDdsF1IyLaWAnc5d6iPSAZ6lUQ+SKeAQp8NnQbp5
sOD56y8UyP79skWH9IKPbLXvOwoMhDcpnyPt0a8dmmxNgbsB+ob7SJ+4ITtR
p00B35M84ryk028TDVNnKCCg3uHXS64vIs/pzA4pco6zyn/lk75wcuKsxkYK
rNesCPUk/XngQI/bMgp8GW+U1SVNk9wsWjrYA0FWVL9tpOfDgiZWNfWAv1tv
BoXcDw9v55jguB6wdYlXv05a/ZKd86hPD1iEqzVxkZYp5dh04VUP0IrzpX6S
+71t4pE99/UeuPQ5wWyezMtl/g8qj+V7wH39OvUA0nWdoUyaRA/8OjG99RBp
OUPFNd/nu0HDjM/2Gpm30tdWMjzV3TDs4ppZQ+bzluGn/c9Du+HZpctrlEkf
3d7u8k6xG5KCAohdZJ4b6n9xbRHohjbmxk8f2klv3fqohN4FnxTLtYbbCAhM
i1WQd+2CkmofoxCyPgYxLXOdbhek3A5MGiLrR+rgauXRfV1wvDLs+HHS1KHt
zS21naC8/iFHVhMB9o+iG7REOsFBZRmfHVm/dZwSO78MdMDJx/PRAWR9a3C8
aB/M64Cfby+GppH1X/uOiMwx7oBlZyx+t9eS+XsQH7QyoR0OPV+t0VtJgGHx
FvFfL9vB6M2SdccfMt/7H+m8U2sHviuS/FVkv5n82jNxaroNqIfM5r+Q/WkH
uNYZKrUBiOwcmSb7lxPrRraHcBuYhVoVFhQQ0N7e/OlPfyu80Lqi5PybAN9d
K0489GoFZSGawVI+AT7qESI2XS1QVXXq+c8sMu9rVweqvmiG2K2ettsSCej7
HrvsgVozeA6oX/aPJ2CFc3dV2K5m2D/N2LgmjoA/Hc+jpGqaIDhzKq4zhuw/
NkZcnNuaYGz4t8zlcAJCVL2SAksb4WSBzJzcJwK0CkTUP4Q2wjdG0NBbLwLM
J1ckfrBtBKWRL7llnuTzHtgGZ+xuhG7KssUz7gS4Xnj4N8mlAcJT1tivJudP
Q0pej6xKPbh72z+pf0z223D3Zu5d9fDVm0ptfURAk31RQd/CX2B1a5h2PiCg
5bzMi5qkv3B80CK/xYqAnuEypqLgX7IvfVkbcZvsz24/RPywFi5Kyl94rkHO
F9N82elHtZDIRc86p0bA+HB+yOPdtfBwLY8dryoBm4xdZYo9auCFyeN+z0tk
fWnbKGcaVEOSrjmXuSIBqt1qd1jLK0G6rmi19QECHNba8peZlEL8Hf8LPVzk
/NglY7znv1L4KD909AInOR/FrslHNpSAb8vVqQQOcj6cdYkdPlsCTzQ38N6b
J88noxq3qiWK4criTHUZiwV/9GUSsycLYMFM7ORAGwums0W9/C7kkn35bMxU
Ank+aVSMk/+dA9rNVWuWyPPKaFUhz5aTObBh/Y2wFbEsGFBNinCUyAYZa5W7
qyJY8NLtK5vKkwnCPRr1gz4sGFl2W2Kp4ydwT5w5esSBfF76+Q+SatEgbZnr
WXaBPAe5nzC+cDIKzA7fun/0HAu017eF926NhP6Di7eDFVnQdnr4WBwrHA6Y
pATdkSXPXVQXhsOhQGh2HfP8t48FXpSdW4vZr+BetL3SgbUsOGL7zCDsayCK
jDrtSI4YhX3t+sqn0oJQ0TyN3RI4CkHUH/OtxSG4e+2WArb3KNDDX0l+IMKx
bUlrq7TjKIy+HbWqXxONLs5Hay1MRsFYbNLm445EdPFpa+vdPgoXJXiHE+0z
cJ/WFm/9kBHI06tZaB/JwKs9Kyde+I7A5q+vohpMMjFmvfSrII8RuK+/vG3r
pSz0e9W2pfLFCJhz10zsF87BGvk/k2yDEVh1RvHjjqh8POIf/P7H5hHIUvR3
o1wuxB0a69tvfxkGhue09WZWOboH9cuPug3BvNY2E8qeCnxzwOfDi9dD4L4m
aNbZsALfn2RYrbYbgsd/ZI7Z1ZC2ODwlcHsIOhQmkobi/qDH27dhy+WHoO0/
VY8jN6twAP90KxKDYH9UnG30oxbTsL7hluYgKKh1GjnN16O92AnDlUIDYJiR
QFwUaMBVISmGq3gGoFj+VCvHvgb0/rh5imvZAOSoy+ad023AXNNR1vxQP7wR
FYb9WQ14eF31o8pi8r5SPxt5/2EjvnR9BfM2/XCk7umlwdZ/+DDgucjPuj4I
f+L22OttCz6rcikReNcLvE6HI7/5teD7lE2J5+x7wfCNWnn69xa8yLJeZ/ug
Fzhv3FqeVNuCHwbLLtfr94LiiU8fNv/Xio3NZ5ufSveC73qRxOGkVvRvr6t/
xWSCZFV84P2/bWiqbF70RpkJGRf23oic6MCWwl+lP7kYIChT8fTxyk70Uiu0
Sp+jgzfHtTcyIp3I95WjJGOUDqnWtZphcp0YWWv7Ob2VDua1923a3nSimV9d
W2QiHVBvbSo/bxfyvTUPP6tJBzlVt9chG7tx5fno5ZGRNEi8bWE57dSDJx37
bPafpsKxy7vHBj/0oPIeo65vR6gw1MX0bf/cg/le7S92SlBhvUHB8YSIHrTj
lDUSFaDC5J6W5QL5PfjMqLFuto8CwzyiA9NjPdiRo6Xq50PO4bib83v0KJgd
0Dt6lpyr65rNCdPNVExyCsjWl+qGkLWq+bHiVLzoty/4uHA3rFo6K0HbS8VD
HbaH1i11gUfpfsrF41QM3Whtm1fXBcl7Lq5qvkrF4pt1yased8Gf66K3iZdU
vGd4MNQkpxMuc37ecaidiuLy5RUnznfAZQFl97IeKjoqTiQMHuiA83dNUIdJ
RWIy9mXoxg44xMf/0Zqg4q/tQRMc/e0w8rCbpbOKhpOc3brZ7u1k/R/uPnmE
hvdWVr2frWsD++Omx7a9o+GmFlZ9oW4rlJ9pecZ2pWGHvBO9WKkV6i0uUBo8
aBgUv2Jb6f5WaLDxF3vsT0PLexpipYstMBXH0LSPo+ERdvKZvK8toG/kRgut
pSGf6VMvx4FmENCllaoK0zHklsCx18+awGl6zuiTGB0NR+9usDRpgm+tufJ1
W+goOliupHG5CR7b7a04vYeOTyyUosQ3N8E2fW7pnhN03Ha2wiHv9z8IG5JS
UNKm45vY1+61q/7B93FKrKsvHQME46scfRtAdPDFx6kAOvJ0Rgn2vmoAhxWR
D42C6WjBrUS/ZNkAZXGqEhKRdDTyjd3MDw1guOfpI5dkOv4rtl0X0FcPepIh
/M5/6NirLB7mJVcP2Jq11nWejv6SlXmHKXXAtcTnbbtIx1BqgZ1rZR0svI/e
YbyMgWJ6ZvVd6XXwzHrxieQqBmbuf2fx/n0dpEd2DntsYKD+WfkjnUfrQCSC
iAyQYJDvK8KNxlsLHtoafAVqDCw67sjO0KoCeceFdWbXGbh9ePRg7J4qmDsd
6LT6BgMPNH1P8ZupBHujg1Wn9Rl4UeC/GJsvlWDob9jy0JSBzKyTL3Z1/YGT
vF5POOwZ+DTX95DlnQoQMjxDGDgwcOdF5rzq8Qq4v+TVn/GSgVdsBaWkV1WA
wbYL6npvGXhUOaV04Vs5ZBkVC1h/YKAPbdeiy1AZNA6F1+WGMLD84dufb2xK
Iax07MbfMAZKzM+/uXm2FBwX7W5TIxjoUXmiWlaoFGjxm9ZNRzMwyOJ0B5FR
AsdqP2cNJDJw9xu+ZbpzxfBueVvpfB4Dcy4EOAm8KQLx9w7DZc0MHIyQP3bM
8zeEFswekm4l/97fXTd3mvwGgQMDAaFtDGwcSzkpePw3NJ7Qar7TycDTd2zm
GbkILW6uwqVUBu45fqJWR+8XcAZu7KweYiDX5AGh3V9yQS28z21hmIF1S96H
FhRz4U6/j+HeUQZq3h4pa+jPgeJWB+cnBAPD2ksfvpLJgZfjlyu6Jxno37mR
XteSBRLll7XYCwwMFJetM9iYASbTbQkjiww8Wx7/WgrTQTa782DnEgP1wm9U
sE3T4VTcqrwfy5hY/Om85JeMNOBsUxoT52Iir2q0bp1mKtRQK1OmSW/+K7AQ
vPATglvPhZWtJD1nc84i+ie06+EK/dVMlCHqazgmU6CeabGoxcPE7hU3x/f5
JAPKSxzh5WUiV/3PiUm5ZEjlE/fNJ63xeUj9VVkSWEzc6hdcy8Q1DiyzKNMf
IFW7WOO7nokLSuume6PiIdHm0+v9/Ezc83TYw24iDq5feWaCpMc0IGbl2TjQ
DM/LbN3ARM7z983Fad9A3uFafI8gE12MBD/e2B4DATKFH7WEmDh9/XqY7uNo
MNdVrywn7aawQ9WgLAo6NCUvfBVmYt32tEDje5EAX0Ld1mxkojkzSPbW768Q
LvR+xz3SIqo6LrcFvkLPlY16e0WYKKfz+ZBpdjjset4994b07F6pz6a84SD1
++5YE+lfoj/0qn+Fwk85of4nokx8USN2sIo7GO71q/ch6c1lJq1/kr+AaYgv
rBRjYpTQXt4KrUCQrzOZciE9Zf5GvPirHxhVr9IqIi3BKyNYcMEXVKuZfPOk
OY1zovNHPsP9wzxbDv7HxH0o1JXt8wlWBL9yNiQdHKJblC7rDXKsK8ofSB9S
OphpUvARpNRfGaWTpuil6+jweUD77k31baRd6cb2qjrv4YDg/mA26X/jV3ad
i3aBRY6MX2KbmOj+1NtUlngHPEK/ZaRJf9FSunTwtCNwZavyqfzv56vHs5Q3
vAJnPwsZQ9Jmmp/UD8U9g40B/L+s//dzF49nImcew/7+S0H2pC9RRT5wpN2D
PVMb/zqS/rl0N7yWZgJ6VvaGLv/7PKXg96k914Bb1ua8K2kuF/rmALo0Gngu
d3YinaZyJtNVVA+ftO7Z8op00o1ldpP65qhdRVn7hHSAa/mGz34PkUPngLYZ
aSm/N//FL9ri9Z/cc5qkafbv8gtNHXCPis2EAulqq+ssq97XKNd+S1mCNL+7
yfGnQW8RNJvHeEhzczfvfKvqjJWssqlB8v1cehmU5MHphha7DmqUk17tGPDH
P9Md3eK5VkeQfu2TbhFx1xPdHJSEbEmLvrRS+PfRC5Pru+2VSe9sHH/T2u+N
Yqf4VLvJ/Uz++H0tJcQHbVa75UeTzuDIvkKf9sVdVSffmZPeyvtaslfNHwOf
LBOjkfnhrx6KGuT6giH/LfV9IS1Wc/f4sGEQOsjMrVMlfYV6/cpIdjBO7o67
k0DmcXSBe3zkXhi25J/20STd1tAgO30rHP/T+yA2T+Z7b0nMz6n1EfibY/0B
OdLPjL5mT1h+RdOPDtYfyXrxrperHdoSjSeX2Br8pCOW+wf6t0XjvFzNgCdZ
byVKKixFvxjMyqDveyHAxO9zK4/68n3DT7NHZnaR9dqhIxcmzY5DsRufbjuR
9S0oO2LQkRmPT2sl3/SsY+LFDG03R5sElPA0++NG9oNrHbeFqwcSkTfnWcA3
sp8gd5pKolUy+kRucGRwMzG0bmb3yz/JGJ71XmwLaZNK79irEin4ueDGDUey
H4UNfP88QktBl3/MOWGyfyleDezaq5eKhTyvch6Q/XFFHvXxh4sZeOa5+jNz
NgMpvQ9QKzYDU3Xf0/TmGXjq9qOP27gysd1mZ7b0LNnv11hm/vydibVnU43T
JxjYdll4qO5ENrqHGljSBxj4XSSbe3xXHqo5zP7y62egbpdjYtrbPPT98iTn
bB85n1Y9S31CIX2iIuozg4EPC7f0TAbnI2vrr9ML3Qw0ybjxckQAMV3E7thS
AwM5a5WsujkKUFvfge5cz8C0zicvAvcXoOYp9VLuvwy0f5Yvq6FdgCnph7es
qmFgsEZZeklSAeb79wjVlzFw6N/+zzE3C/GVwP325BwGxizGCNzIK8JGI583
81kMVNshY8PTV4QJcPz6mUwGit6+fR8FitFy5asXxakM3KDoIrP7bjEm5tH+
fUkg18NROzMiWoJZSjoXP5LzdeF7lLyVXSm+lH3wPjiIgdONLcOikaXIdZFB
RAcyMCRIem9ZTSk+uXH+SKIvA3fxSShs212GTi8U7nl4MJCdOFhX1ViG8pP6
Vj7kvBfyWP1+7ZEK3P26yiybPD9M7nzvsH+oEo8+npMR1mRggr6F6sP/qvDC
6b1PrNXJ/XF/cD/9UhWevU+I819h4JLYby+571UYl152besZBjZseLofTKtR
nlp57eY+BsZyGpvs6KnB7MN2c8ZzdDxCifeN6a9Dvhd3/SSn6Zi6RvD0qWV/
8RyH27uRcTr2uMo8+CvyF/0mxK6bD9NR5Iew7ZzyX/Qv0IsT76Hj0xgV5vmY
v5hDyX2RVUzHrZmHnMtN6tHukmHr9fd01N4UNmTW3oBt5w5N+TvT8Zy629lX
Yw0onaVg2+RIx7Cvw3x+axpxD0dE8LnndGxcu54oONGIol8SLIbu0lFpprt9
g08jTnUtyOmp0PF1gqx2gMo/NJYUPZu5ho55l7POSuY34Ys+gvMOFx096o5k
SjU2YYbe5jVrl9Ex26DE7tBgE1I2WHarzdBQ44BR11HRZnwm7x0WzqRh+8y1
rUeeNKPiNmtXnUIa6mxs0uGRasFLfeaBh21peO7Hl+g9wa0ofyaa/uUhDbWO
l2W6pLTiSIXI5JIVDRvSerh7S1uRv2POOP8WDU94yd2PJFpRWb5JjUuNhiJV
zHUCym3INMjPKpekodz7yZgqog13JQURwuT9YPf2cffw8x1Y86SYI/AAFRu2
rpt5PdyFeX885h5IUHEyaa3ZgxXd6Pv73w+lHVS00cj6ePO/brx2/JRiqxB5
fzmwcuWJi93YbRLFKGZTsKy360pLVDfKHP04GFxBwRRvCflhqR4UD6TFnzOk
oJ0g314zeg8a+TzI3Gnfg25mOjtmyXtMtWfan602Pah/5az2Kx0qSmf7sISs
etDVzeTXittUXNIusR436MGtWbnCfM/Ie47H8nU2ij24qXlvi0AkFd94P0t8
u4q0a0vQzBQVdz57dKdgazd2voypFg6loXqCkeXjHZ2YUmauf7OfPKe/GXE+
vKETsxaEN9iQOeM1N3hOX9aJh0t0kp0X6Njc+rpnH6UDJ87Oh8fxM9AsTEhF
IawDPX8MSDJkGPgypn33C9EOlLx0MlT8PQOHR5zijqxsxwc/Nvvk7mXiu6+T
rF5swZ7mS2WLt3sxM65luXl8C+Y69W30u9+L+/3vKbST9+daD3r0PvteXKoQ
Ohh0rwW1uD0eqH3sxZlT6+69FmvBUxFbXrpk92KrTNRix8NmHKq+YhDE14cp
vItDhcJN+GqlwM9raX24Lfk49+2T5H1e7pa+/nw/biKMlu/d0YC/pnfyF64Y
wNOi+8YpPA3Ill2M2bV2AO2C01IOdtdj3QPqXea2AfRWUrgg61SP/4mrCVw9
P4Bt2ipr1tT+RSUeXf9UrwHsbTExstWpQzzh3F0sPog2ojyb8r3/IDtXo9fk
zBC+c0/3rNb9g1p5Z073XR5C7NtLbvoffJftKW+pOYSHN3pzXEqvQFBrOXLb
fAiFj+0yGm8qxxulr60Peg5hjeP60c+CZXisOcF5a+sQmlu8GWl+WoQumVnz
ylbDWBl4PERIvgjn4qSf6z4ZRoPtfaeOcRah+IbvYhYvh3HhxLKjgh6FKOHR
EWPvNYxzpWXSN8MKcOSp1kPrtGEkpOMF9zog6iRaxvjMD2NKsQFklmXiqWe7
dbKdR5CD77B6lHomNn3fEpvuOYLWypsrdTozUCV2lPuH3wjuuVhWtnksHQ+V
8HB+jhnBRNur7atF0zDtaN8pqdIRDCmsFryln4ylr6NXh60Yxcs078G6hxEo
XNJYqP1yFBdSaEnhz8JxGrco1DqNIvE9jm9xWRg+M3+spOgxiuK2sQY1m4LQ
EZUqNgaPYvrG66/KlD+jusWXy57Zo6hCLF/cEHAX3/qdHQ0eH0X94n81W6jB
8CEpaWntERZuNa6NKKKHArVjc7yVNAs1Km5U7ngcDmcPbqeVnWRh6olcf9bT
r3CjZ3HEFlhYF+vxLs8lBuSOXTuUqcLCy2qFOZtyfgBxqnTnL1MW2u903S6c
nQlRq3dUNgSwcGDn81tJClnwo2mnSFcQC+XoxVdfl2eR5/TyUEYoCx038O+u
aMmGpmj+q0NRLLS4kktMzefC6I4Nfc3JLKwPDk013v0bnDYGhu4qZ+FPStK+
tR+K4T7V77rLBAvjBRhbjVqLwUAk5sS9aRZ+82krqt9dAivopXdV51iYUMcr
IFZYAne7hbNWcxDo/r7f69BcKcxcuWx7lYdAJkWi2P5BBfgvJyTFtxMYabzD
owkroLJ7Rr1KnEBLc99W9XV/4Lz/ac+Huwn09p0aTvjxB6Iivx9I3kd+PsDD
lzlSCZTB77EL0gQu/WvhtHpSA15e96b+XSTQb/UPrprSGiib73oor0IgO/iu
4jWRWkjvXPn761UCX/EOqabn1kKR2XzRTQ0CaXMPvDkc68BHyHoqUp/Atx0x
HFeq/4L7jmB9Q2sC45I2nK653wjdyxcMHTwJPBfKNfrVvxGWu+a+OeFF4IHL
SvJO2AgHRMXcRrzJ398kEPVo3T+ICVGWveZLoNcmihAr6R/MNo/+pgQRKOvk
EPNwvAk8vw1IyX4j0BQHN23Z1AxloY0TKd8JDBG36W0+2wz2lrWmu+IJVHxz
7baNXzMwVYRPLyUS+OvjdcuLsi2QEmZ86WUqgeN7p1us3rVCE/fx0Jh8AmM9
eVcPJbYCneva9eZf5Pt/knr4aXMrvO099ozzN4E3bKf1MiXbgO+2EMfVQgK/
+cnp1f1tg1NdjX7xpeR+BMj9yJhvg03pEzcyywgUMXlR/n1XO/h8Fbf4VU7g
XGzxiYxn7XDy4jGrX38IPCOkrGC2owPeTzxxdaohcPJlDm+qSgdc3GZtcLeW
XK+UizmPXQfYjOveUqkj8Omyv8mUyg7Q8bIcW/pLoPy1Bz/FbTtBNuJF0v5/
BLbHOkg0hHdCR6VC6CDp4zzHCM/KTriT6RQa3URgiU6L7r7tXSD6vrCIu4XA
EzdWJUxVdcHtg8uPBLYRuElTrvrrfBc4KBvGnGoncCBnl6iBZDdUij+WbCMt
VWLExXbphr7MB1c4OwnMzXP/2JPRDZcuSVI9SV94uV2kgdENVcbwSLCLzN+k
4zxrew+4rVv3gK+bwNR9O/97JdMDMlYfG16Tpt8Z2SGo1gPHeqc2j5DW5Zrj
TTbvgQM1Oy9p9hAonXitQf11D2zlmVbPIK1+ePg+278HvkpeOspPIe2U25GQ
1AMmJrOMO6SD4gMEbpf1QLB/15000jej1Nfu6O6BlDv1iWzSfvrfSplTPVCz
MyFLnkqgUMjF4z/XUiCEpfjGnvSb2Satd7spwJNkvjyZtDVSthvIU2Dfxonj
3aTNGYNep7QoIJaVIbqaRuDCrFnIDmsKzC+9iZYkPbghW2GdMwXWK+3+d570
irwjj5eHUqC28FGkPulPTJHD7HQKiKdL81iR1msJe8CupkD85VOrnpD+Kja0
j5NJgY256p/sSPtabNBfv0iBD2fOxtqQ1oncOCcuTAWpo+0KFqSVM1mLpw9Q
IWa6R0eb9D5fx1s3z1Oh5r8twwqknTZ93eZ0kwom13Und5Bu5hE8+NOWCpXO
+vcWyfWMjn5wYXhSYbZuQLWB9CWBlB1bY6lww/uPfwRps3uCszeRClXWv8GC
9LFPspzRzVSoNvI6I0n6VYSfDDFKBffMhS908v0+Oe7uo7SaBnt2VioFkJ7S
suQN3kaD9QU5J86RvnXrSeDcSRpoiXk+HCT3k39l51FDNRrsP75y6D1p29JD
D2UdaSB7m+mRTubh4EbJFSlfaJBwpCZOgfRTpS/vpFJpEH5Fd7yYzNevn/JS
J+k0uFSgO5ZF5u/A0PTZUjYNrDlVQiVIt1cf3qsrRIfVdu1G3h0EdtTYSH8+
T4elQ1WCV8k8h0TZqpw0pINl0rf5CDL/pfdH+Wh2dBCjitJHWsn8Dtvdu/id
Do6tSVE2ZL0kik7Nriikw51rqo/imwmMWVvGV9pGB9nxp/s7yPpq2v88VpuX
AQ3VRmoSZP05cExH/rrPgL5H5/9YkvV6xL7i0GFXBhy2tZa0JuvZeYCz8ls4
A7IdN3lZkvVuI+fPGfuXATHiktpXq8nP0yredR1lwsEojmsFZP9wTqQ7PFVh
wmDWZbUPZH/ZdMnu5MY7TCh5Z37oGtl/jvUUNZj4MUHj8YXHhUUEwoSp++FZ
JngW7XS9Rvaz7A27vVj8vcC/22GYkkdgV6sgd5pkLzz4sWmNVS6Bd7z4pC/o
90K7kbOqZRaBbjM3LkRhL9zs1Py49idZb/Dx0A6XPthfmOdNRBKY0fs0Wjy8
D579k1rH+5XM/6gPQyK7DxLWJU1sCSdQxun2F/nBPmAedqVLBRMY7qzh76va
D+tUnOtGP5N5//35W6/IADzdmxS79IbMm+rSrW1HBiA5MvhO6CsCt/ZsO6B/
eQDoy/8D6Rfk+vtq8zpeDADUzh6+/JScdwbJtzhoAyB6fbPPRnLeLKqV+5Um
DsLgxErZA9oEcjsLfH1SMgh3D1pfe6lJ9vex0K+7OwehOeLzhTJ1cv+cjt3w
5B2Cm3pWtUpXyPWlqWja3B2CZNMDf5mKZD9jNMa77R2GMZkKh797Ceze6J2n
rjgMxYJ27ERyvv5UKOLerDMMt+wf7XxLzl/2jfcH012H4W7ZTcONm8n+6XZT
eax3GDpytm7rXUf2d1V7uk/MCBRtE/y7jTwPlJfY81n9GoGKVnFZZxYLkyS2
Jio1jcC/W+eE6EMsPOTguWmCaxRebEsWdGOQ54MT169q3xkFQ+vITrsmFsbc
3XOQfwMLjJa8/zIyWBjZEvLxRx0L7nkkTA0/ZGHozvhjvp0scLv14suMFQvv
8ZiIPR9gQXPPvcFZMxaqnV56c3YFAbsCuF16DFgo2rkls+oEAUcyzJVPX2Th
pufTCnGhBOzPPy9yZAsLdSr7Vl6/Owa3V5z5r+/NKA5taUld93QMMuoHYoOf
jOJNpSXDindjoCRs2XjaYhQ3fTrtfjx0DNxkLObOXRvFD3esOabrxsBXV2HB
avMoFoXIdK88Pg7G1s0nN6SN4OWFOxaCi+PwOu90ZXj9MPK9t5mMXTMB7vLd
RzqLhzFgR8z7k0ITYO++VXd15jD2up6Ku7Z/AlTXOFEkg4Yx2e9Eip7uBCSn
XvgRbjKMJ1H8dmP6BLyNMFW/OjKET79z2PBYTsKk9f4nP2YG8e+PKWmpJ5PQ
ljxkVNA3iMwvoyWXXk/COYOY5UUtgyhZtmvnM79JUPt83epT1iAOrjLOjSic
BBmRiHlju0EszNbQEhWbggH1bVYlxAAKXJf/rFMyBcgrcSuxtR/3PJLkTKid
grvj0cRkWT/aXjSRnG2dgq2Lv6QOZPTjj7J227cjU3DuHTP/3qd+FDv2jaW1
cRpkTPgT917qx6xAn28ss2nYuUrZPSCjD3VX2S59WzED3PHCZ5687cVFx7eT
8mtngLqD9TmPvG89+iBvUrNxBpoM7WQm9HpRVjPCrlVyBtI0I78cO9aLwxTn
Z2HXZuDjyztP52hM7Kpni1C/zMC3eyHcEQpMdLaxEGHvnYXa+tNj3iN0VKjk
OWN5dBbUVg1W/ddMR8q99Uq1p2aBvz7WygfpGBVsFfhCdRburl6QUvei4zLP
cjnLx7PwSPPFjmWH6fizwejD07xZ0Bs5EHjyPg37smuNrpbMwjPunIU0LRry
Cg4pi9XMgrTT0LLt8jRcX03b7NM9C/KxGTvLeWnopvUwYO3yOVh0dX1+/TsV
uSb3GQqem4PN325utummoLijUOm5K3NwIOFGLquEgmHr9jtaac6BAGE1dTOB
gobBaZWBd+bAZH7Rhe8ZBR8k7Ln1yGkOCJ5Mdho/BT3L+vL4i+bgZvnm3FMK
PVjOtjmUJz0PgjnZ3+/s6kSOr3f41p2ah4aXP0xtxzowiD738MaZeTBXCX/6
ADvQWM0wpfzqPJi+8N25XacD+XQCd+83mweFgp+mT93bkRpfND/qOw89h6ef
bR5qxT3hkr7+QfNQJqk13ZDZimvzXE4ei5gHhxc9y23ftqJJhsYrlYR5KBTr
0n4h1op8pkdgpmAe8lRzREKUW7BYxkvx+OA8xFYFHTsT2oS87eNC+1jzIMxI
uFZk3oRdetWOgpOkfwUaHjnahDpXVHlKFuehQr1ooq3sHxZLfdwWzM+Gkep5
PV1WI3Jv56nfJM2GIM6H/tLyDRgm5CKlLcMG0aRjf76takDC9mO+y2k2LKi0
POf9W4+vas/fLjrHhjfuiZwxt+qx2O/rgQRNNvx37vnZ3a5/sXVbxry8DRuK
3+9sXxZSi8tPCK3YYceG8rWaSye31+Lp37tGJ+3ZUN2xSu5adA3q/G1Uf+BI
Pr9Cj7otsRozhmWCf3ixQbIj9Y52biU6mp7nEvFhQ6ijdVaIfCXeveW85ZE/
GygPji+WFvxBoYxzl2ZC2CBFa9AqK6vAEJmhvstxbJAPs5z5UF+GNRK80rKJ
bJjVfhGydL0MnVJUuEST2cA8KrRLt7kUffVFtnxLZ8OvBWZLeXsJqmmujuP5
zYa8R4LVX2hFyNX/9eOLQjbsa739UvdOEfbJMhq6i9lgOcvasLK3EP97FGn2
pIINCpwhAzsGCjBwoVyF/pcNHb2MFZzdiPetYjNbGtiQvN14Qp/yC0M32pnk
/2ODecKPcj9aPnaIBljeaGXDa/kLx3/05qKvq1MBbzsboofS2z36c/Dfy+DL
PzvY4GV89KXaYDZesU4eru5mQwX3kSbXkUy882sPx1kKGwRW3PyyOJqB7Xr5
snFUNoyb9j/VJ9KxxuXuFmUGG3ZbvI1uHE9FSamuwhdMNqxxMFtBTPzEAWNx
56heNqQNqobNTqZgR/Va48J+NuTU/9GNHU1Co22sx9kDbHBMMDW9SiSi9kWx
8PBBNnjmOx5rGovHyrtEj90QG/o2JrUoTHzHoPFJaRhmw9bvdaZek7G4Lbg4
ZIq07pH/xkunovGIrfDG0BE23JLn+cScjsSq4d/h0qNs+C5qpE3MRCB/bbpM
Pultrvsy6sfDkOsyJ+UYiw35hfk3IyaDMGS+wTeYdMuN0//Up/3xXq/1jQnS
elUlZwdnPmPjuxO7ThFssNhil9I58REj8xIXbUj/+frqWdG0C2oO3aMFkdb9
6P1o2+QrLOw91JBKmj+cvePw5H38///fo3wmOsJ8GPP+D+NKYzo=
     "]]}},
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-0.6909829498270608, 
   1.8090169943749472`}, {-1.1180339542149278`, 1.1180337209820141`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.46342458725*^9, 3.463752525321443*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ellip1", "[", 
  RowBox[{
   RowBox[{"-", ".5"}], ",", "1", ",", "1", ",", "1", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.463424334743*^9, 3.463424356193*^9}, {
  3.4634245096029997`*^9, 3.463424592789*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw1m3c41f///42KyChKpaKFFBWl3aOiYWRENLyzUkJmkbJSUih7ZCayZWbz
sHf23hzjHM45rxSlUL/X5/pdX/8ct+vFuc7r+Xw8Hs/77bpeZ6eh5TVjNhYW
lkfsLCz/e/3/P9/g/34zPHBAePkfAS/XNCgE+OuBaFym+TeSn49ceujjbwms
EDA/SLLXZ7+qqTR7WCnoyion+dX6M3yu/i5wMs8lIYrkDw9su14XvQDO0vft
tiQ7raF1NaV5wMRJ6SPnSd4vtEuA+4MXWLsoNq0h2bXwQsgFfx9wqPgdVvWX
AKGbx+VOVPjBhIjah6ckK7c8aFYpCoCi0NuDEiRrRCq9v50TBDsEZNVaVgio
bfwmbJwWAhduzS4+JPluqu2ASfx7MN0R0beK5KFfs7r3osNhWUftnPAyAekm
4oUqftHAnuBZE7ZEQBvHBvWt1R9ATuzQyw0kn8hQkPYsj4Gas+fiZ34TULja
K1e3MBbE+r5zKZNcYVw5WZobB6mfohNiFwlwjnLg2pb9CXaner8584sAnk25
Z2tSEsCMZ0+L808CtHpNOzYkJsJDwuhq/gIB20P/3L8ZlwRPdT7MC8wT0FUq
FN4RkQJaHxt/PPxGQD2+t3n8Nh2Usm+usiYIuNWfm1CtkAFE8WU1cyYBaYa+
H5oqMsDGRD5ImU7AmvMTcs2lmWBfJ0pLnSbgtalHeERuNvzhXNtpPUXAY5cR
t5dHcqC25vmS9CQB5QP3XO5n5cDJSX1W/3ECBNufnNnx+QsURU/M/Rkk4Ffb
3kfKn/LA1O1aw/MBAnC9eQrn7nx4q/FnjKWfgPdUBlvZh3woVrRqne4mQOWZ
Qui2iAJYVk/JudFKgKjRHLunfxEoeJ78WVNOQICz8C5hZ4TvHMG2CUjA0kcU
WGIrgxUTmUHnEgI8J9jZJi6VQXBiovWGAnJ/rP07EprLIPHSE2xKJ2CK//T+
haFy+LDk4/wunAALA74vQUuVUP+g5N9QKAF/3/L3HYIquNMrb78nmIBSu1cy
NW5V4HPbUSXYl4AH91yOj6ytBp296+N53Ml6UvtqWydUAyWxM23K5uT+PqPU
3JOpgybdDmHuBwSImKnLRTyug6u0igflxgSwPCmOb8ivg3Iex40CegQ003LP
bIB6oF68WqukQcDbmGRJJeUGkDP0erTuCAHvwsRPqRg2gdCqHMfR70ygvQ0s
W3uxFQ6U301pYjIhmNad/c2oFepvau7OnGECh3GRb4dbK/yYW/XDcJwJn2Ii
qN5lrXBu35i0aRsTXEx1Tnw91QbyTqs4OT8zQZ4YjXc63A7xBl6ibwyY0P26
W8pkSyfofN0V6qrLBHbaH6eSY51gXmjrZKXDhKPFppU82p1wpV89+MRVJjRs
nuOL9u+E7YL1e6yPM+E/m7ODL7i7QHS7cZ8dDxPU9iilqC13QYzspX1TmQww
v/4vp6ivBxKGZZa4UxnAyLTQaPrZA19vWGVIxjNA3fzhwR6BXmj96NZwLYwB
shIXAgeu9sLZ41MTV90YcLw592xUeS9Ydl359U2dAefkh9esTuyD//aI8S9Q
6XAzqv+QhNUA6JeslTg5TodYbZkoW+8BcOqN1HwyQAfpv3ut8xMH4Em+Jn3k
Kx1Y/qs7ID02AF978zR0s+iQ6fzpTL3GIMwG9+txP6VDbaDlaN7hITi0ye2Z
6io6nKD5a1+hD8Ot2u12gsuzoMQlzb2GawRy/0h4t/+YBUOjz38LxUegcHFU
4BhlFjYGD7lyGY3AW7H3HTHls9B89DcH9I1AoOezfSxOs3Agrcx8yWAUxLVH
VOYYM1AwSKXJKo7BZ4qiEU7MgFSgWpqzzhjctaZT3AdmoDUpxLvKeAwe9MpL
L9fNwAbx7Hfn3cbIegs/9C52Bn6l5h1iKRoDV8rYGSWdGZDZGPDQe/847Iln
czhaQAOC58Wuak4K8PWdPVKZToNq6vInt40U2PpT5INSPA24+685nNpFAa0p
0YBLATTQWhBgjz5FAfMfseI/zGmQFpqlLGVBAWokQ3inCA3Yr9osGbVT4HWk
F/eYMxU6IkuN9oRMgF71umdJj6jwr8J89mLsBFyJCqOamVKhu+2cgWH6BNj0
MWqHr1PBRO8xt3ftBEzwwbDjASqskV7P8fHXBHwyKI2L6J2GO9VnOLq1JyH1
fmWp44FpiDFqaVFcPwUc64+xRotOw5Ug5u6C7VMgJeoeUig4DbdH3m/aJTkF
pl/Mvg4tT4HsFYX60QtTsJ+VUdrZNAV/a7axrH80BbM3r1V6mJHXJcPDT3RN
QZz9d07huEno5W+UDPCfhkoDMT+LkEl4tjL08mDUNIhQ4oaLPCdBT9ePtzpp
GvRHJHvlrSchdqNT7EDZNMjq6KWuPTsJnx3U7XKZ09AQbChk1T0Bjd3JQyKK
VHgRaSlfwTYBKo2FXCmLVNgjPPYgcIECv8XrFo+w02BQxYbdgEqBO6Envufx
0ODntbgo2lcKuJi8X0rcRYMcf6vB/FAK9N9hbjqmQoP8vT+zr0mR607Tn2WJ
okGZZ67Au2vjsPDXXPXY6Rlos9/d+0VhHK6ab987dHEGpJ/zve6VG4dt95+k
PVObgU1X2wt4hceBl+5Y99FwBsr3q7WdpYxBc8StodDXZN3pbTmWaTMG/Rt/
HN3VMQMf0qT++/N2FCjDSikhhrPQFcZNdXEdhV81A0v5prOgX1DxiNV2FB7I
HkrusJkFemfTh0WdUbCQv7p5wW0WbNQXo/J2joLHShc79eMsXL6xXuKnyQi8
ENB94D02C/E3w/fd+TwEIrfuX624SQeuY0xXO/8haHwjm8RtQIcd29wzPOyG
QD5jn7iqCR0sXN9kB54dgrXd79xK7egw+iJ4za3mQXB+aPdKJYAOeeofO0Lo
A2DTverCtkby/20DfvHt6Qfp3x/6nY8yIOyBkTVlVT+Y7BK3sD3NALND+16m
T/ZB9rBWhp48AxSit4YeTuiDtKC64yIa5HVqos3wvj7Yb+y6+6Q5OYdOt5aP
S/VCF8fT7KEPDPic35HSeagbUhtvdzWzM2H/+fyoJv5uMC0QDv+ylglpJS+U
Sr91QU3O9q4APibAaZW5dxldEJd7OlpOmAljHRbPpg52wT3b8v82yjAhwX7N
Kzspcg67Fm+Vu8MEvbPe9Ft72sm5M9n4O50JkV9YFutWt0N/X4Ha0xwmsL6w
95KZbgPli15yP/KZ0P+40mQxqQ30X+VLNJczwevq4za1g23wY2eCq0QHE1Lp
texHTrRCoN8dfot5JizU9Ijc2doK1Te3yj9aZMLFfPdnnL9aoCthsdZmmQmK
aW9OvXnWArJhElU3VhHQytn4RuplM+yf32BWJ0CAu6ViE29gE/waPxN99DAB
h0ymLGeuN0GIpd3zMvIci7CfWodCTfBHcDhe/jgB3q6FVprhjUBpLsuTAQKi
4op9JD82gNObmb5sFTLn+H7PiP5cB7Yh7ffO3yPAzOu4xAarOuiuShdSJ8/V
xAMqvs6H66A6P/uvNnnuKu1hWl3MqQVW7cPmV20I6EybFXtbUANNyg4Zg04E
mKcRLBsqq+BQiMK5lwEEZNirx913r4Kdg6Gia8lznt+w3yj/chU8Stn89BWZ
A3qM5WyUmyqh88iZYNNIAr69pt4/0VUBr14wDXvjyes2Rq8fhFSAqcj9ZdEk
AvIvlZ4MulkBvJ7OXIYpBAhksPuOkDkjx9fY7SuZO1iOhbw/P1UGXm7P2hXz
CTD42DGpllgGKTsusmkXkrlKY+bELdMyEBoM+HirmIBiffMHNYMIklu7Za6W
EaCe2r7Hl14Cv6WpL3tqCdApvlrcyVUIGhpsb127yPULvL/f9V0BWK697SPQ
Q8D0E8cXezcUQPUnvaWoXgKCHUSN72zJh+22C7zRZA5bEdA74C2eCzKs9lsV
xsj1S9HayZXyBRw6L+qHkTlOh/mU7ib9BRrusvLQKATM1K9zND6aA1u9WcMs
yRx4b8IC5y5kgQ7viMPOWQL4tnB9UqzJhEq5MuZJMkce0bmlGqmYCZs7L9Sp
MAjYZvHN8Lh6Brgd25d4k8yh56cuC7AkpAN9hu+zFplT50NaujzSPsMaZqTQ
lTkCOhq5E58XpoJvRr3g5h8E6HMkS8+XpYDbyGLCPMnj505v1q9NBvkz3yPr
ydw71beTbW9nIojdfJqpS+bkK+/MHJz7EyCCK6l5K5mj9zQHnW8fjYe4trGr
bSRbUTyyHjDiYJVztbU4mcPvsR/ntB2OBaFtR1U7Sc4o52i0a/kIfw+qyzz5
Q+bi6qVLj8ti4B9StwuQuX5RemudReYHCNLu4P9E8jhP15FahWhwZ5vmkia9
4LrirECiWCRMaK9wfya56HzjmMZMKEgMxO0KID2Cn6WKZVtTMByqXTi2SPLG
Xz6FI2mBsLqzTlOL9JLlJ8oJkT7+QJNcZZdA8rUngnra1r6Q6uAbNUeySLHg
vGC8NyR8v/FVhvSegeJw0ccPXkOTijKbGck24ayPmg+8hE+VOmfCSPbtEzqj
MOoCt4SsnctIvpfPHjN+zx5yvb2rh0h+ciOdOt//ECQYMRu+k2we9P7O8dab
UPMqxXiF5BbW8ViW/edQ/UB86T+S/9T9uhO+chcPHvXb/ptkUfWqG8cXbdDO
ycKNRvLFnRXpkdbPcNT4AqOV5LCCuSSnhefY0SFwJ53kdRdVbMRlXuHNw/TO
lyT3nU1mabTwxJ0PezQ0SF77vWbP/ZR36PCH0ilIsubIQZ0VWz9Ubtt1p4W8
/0a5MLkL/gG41SKB4Ury08oXoc8zgvBPm8eLfSQf02qZKGwOQS+3QZF6cn09
zQ1eMOjvce5NWYUeyeGWooObuSOwxU7DnEHuz2DDvPbpfVF4Sjd9mw3JN30n
0lJ2f8CCtuUOBrm/GScuJuXIxKD0jzv++iQ/FQ9syz//EXv0V3QayPqQfdrQ
n6ceiwBse/eTHLSxT++TxSdMfjzf1UZ6XfnuFPkAp3jsSrlQKETyJ5UbvU+9
SYPhLYjXIuvRVldp4mhyEm6pXgrNJr1OfELsmOZkGn5OtaWt/k7AKVO9a2vm
PyPDxHvjKrI/ruvd0rvBmoEnXteTGknOj2pXqQW+TFRpHe6pI/stqsBIcv5A
NloYytsvUwl4MVDcJZaTjTxPT61kkV6nd0jgj+apHKRzLvjok/3sHca1KVLx
C1Y0Sw59IPudwlrzeMo4Dx1vxuzMHSIgVmf8xCglD90ERo6eI73ulrW8RKdB
PvJv5narID1OPLCOM/m/AmRpiatMJ+ePx57xZ1zXi3DP8uufB9oI4DLacbS9
vQhbKrs6n7QQoLozY1eAejGu7TrILP5K9mfrHxEWlRJ8YowdUg3/8/qIyy8u
IFpYRttlVRCQs5Z6eX0ZoolZxIkych5KHXerbNxRhsI74VRNKQExFh67L0WU
4bMfxsuF5DwNyTxduDakHAe/Hnl5OYucv8EzQ6Velci6mybCiCbA0UA94VxD
Japf1OR2Iec7R6J2eAlnFc6Y/zuzlvTCc34nahLdq/DA4qtna8jz4exfVccL
LtUoVxZhEudFgE/l64121rVom38n3OIxWW+9JjG2Go043FKieF6egKQXVRsf
BjaiiInSkUDyfLux82f0nZ5G3BiwT3z4FNkPmquT9v3XhOWVeyR1yPPxMZ/j
o/9MviKLk1vl0B6y/mNGpfY7teAd/mk4S563XG+t2SOxBb8SHEfZWMj6t1Me
ZmNtxVURBQolS0xovJJd8598K2o55edv/sGEd+brlQZqW/HtXoFNxmNM6DgX
30hvacNi13U1WsVMmNnqd6f3Wxsmsrcve+YxIV/wUWPp+nZs5Z03zM9iwr4m
PR5HzXYMsu+rWExkwsCvln153e3Iv+fNIl8QE858F/cUH+zAIodS5/dmTFhm
O2OcPt6F48Hmgbs3MOHjYTntq2zduCS4IH1nHROuz48cmtzZjTS5RQffNUyg
Kmm6shl0o4b2oPjgHwYE7X0W8H24G7W2RPHzUxgwK/2O+aGvB9Ntwt/Mkt6o
u63gx+/6Psxl5kg5KTLgx+oJ1SpqHz6vnhfJvMCA2JFQFw+OfuQJtvszeIoB
42vDYFGhHzVut1puk2aAa+MZFTfsx28Cyn4nNzBgq3nrocPZA6hyaafhQi8d
hELab2HgELaXZ1601afDk1jGZ7+MIeRQ9q6TJvNoaFL6sG7TEHpJJjpQNOhw
kd08d4h9GEU0kh8el6eD5ZO/Xq9thlE9Wb/Zdy8d3FV5/jmqjuDLJNlVK9RZ
uH3X3PKm6ygulbjubiXzMrv1/Ez921GMkNCZzyHz9Ink9WZy4aPIuFkgHXBr
FlS+7TRnzx3Fg5UL06eUZmF+2kzo4ewoTgg/iT27bxZuKJooOF4fw0H1LStc
U2Te7z9UaCs2ju+eB7p+vTUDz2ruSNkdGUfJFQbPLo0Z8HpU5GB7geSDzRKW
l2fgb8uBd3fujKPSeZENP2RnIDXN9tjPoHH8G2zA8nHdDAzS3m2TWEXBldSD
JVHFpDeuW8X5bJCC1uMs2eJCNBgyt9nQRqPgJmaXacA6Guy7qvJ05y8KrvJa
u26RlQaa22U0M9dPoBqv76ZUOhX64lLLvC9NYMSl2A9YToUq6dFLB9MnkP1Y
pmwI6YXKuh4n1zpOYtbL/QI78qbh4Gmlv00ekxhAqClZpU7Dk1WnbL0CJrFr
Qj+lOGYamiY3GC8mT2LUo54Fee9psE8YEvLvm8TtUeo/1xlMg851heMVR6fw
6UH6kufaaZhV7YtknZnC6ou+QkraU8B7S3j1poUp5Nh6rWpKaQrGQ50q97BM
o3KJxHcnmAKDT8UnD2+axjx+7cFwiSlg27CvdvWFafw9UHsi+M8kMMyeLYeF
TmNz6d5gj8hJOPW0S9HoPBWFr8qxW49MwPdb6ZFhKlRseOcmb9A+ARJSBLVB
h4qK9ymOytUT8Evj841NFlQMEuCe4UmZgKHi5Qs3wqh4gP/hZmW7CRCX2PfE
fY6Km3/+2pHMPQGihgqOlmE0jNq3bnGjDAVSi15GYRwNv3Mnt6vsocA3t7da
nOk0XDXXt8t5EwXeX9xg9aKShm+YDNnWP6QHFm7aIEqnIUVW9o1M5Tg8Lg6x
+XZqBksO1nj8IL3x0cu4iL6uGbz9StTohcUYKBk0cXGPzOBf+aCDWvpj8OVC
xO8j1Bn095ncJXptDM4tL6na/JnBiIPzb5OOjkHF9kQ//x2zKGctOOm2PAo6
i2wX7xvPYoTCxk2ab0Zh05u8i+qMWQyiX37KDSMQ8CVxxXthFm/e0rjxaucI
2HZ5U8tXZvGcT9mrRfYREDXgUBXkpWOdf/NCRd0wHCMOb74tTUfVwN2r5jSG
ofsMM9viIR1jn17bW2A4BPZXFNuiJuk4yR7Jf8R5AA6/crM0oNNxSezkvy8G
A3DDo5Rj+w86npfPuHz44gA8MMoVcWFhoPblQVbBdQOwsE2pjLmVgbPKLkOe
7/thU271naeqDBQ94qKokN0Hm9uizx/PYOCvkU+sQuM9EGXmu0kol4EyetY5
bVU9cLnodQ6ziIEfC1NjXiX0wEn3yYuvaxn47yb18oh5DzhrrQ65O8zA4nM/
PVV+kV7YpVZaxsXEvzEsB7Zzd0OrtGHfyn9MLHRc2F0v3QlXuzfhf0ZMpHgf
eKjJ2wkf3I4u5pgwcc3ztuUeRgcMaoTdUbRlYpOok2BragfceMZsW/uaiTjz
3z4nyQ6I/XSVi5rOxD2OnrwdpDdKse58XJzDxPHZwq1rVrVD3I09214XMNF+
2ZLtCKUNflXLb1ldyUTb9vE3rjFtoGd2MDmoi4l6W0Ndhra3wfA7BVb+30yc
/aJ0Ln1jK9Qz1X11Vph40FWuV4LWArzpHZeCWQl0b1kRmIlvgWM89/b+Xkug
Jj3uhcauFpBcsPTQ2krgqwXz67mbm6Fncn5Q/wSBXP3Nt6nsTTBevnS+zopA
k8E1x2w7a2EL4/f2ElsCn73ZoZcTVAtXlGzEku0IzJ3sSSS0a8F09UyBuSOB
DzOTR7T6amDcm6cnwIPAxg4n34GhakAJFY0HEQRedWjKmJ6shKP5HTGjUQSG
rlO50h5fCVbPtwiqxxD4xX1xKe9+JfhKP74tFE+gpWjiz0e0CjD+9O3u5XQC
f0lozeXSy0Ev+eXkgTICXftuOLdNIBjFP+cRqyBQIfnRt833EJT57FSFqgh8
Gmvpf2O6FPwO39gyXksgT5TURBmtBD6LL1RvbiFwDd9/MieYRRB2LCCxvZVA
x+RfwRcti6B17vmHl+3k9aCf4srfCoHrYWxzaxeBibbuVy98L4CiDbGbuQYJ
vNHwT3hiIQ/egnHYyyECDxyrv1Filwdl99Skfw0T6NFKLfX9lQs7qg94VY0R
WKhV5i72+wvYSdvwsUyT+7Pj2KP1y9kw19i0+RSVwJ+cvDbomA3ji3GHLWgE
Zvx6E2yykgUlGlG+xbMEqjsdak/9mwlBQ11LZM5EpucXLxbWDDDvfxbx7RuB
N23G2DdzpkP+kaD3I3MEfmp7+lKc9zP4yEFi/A8CZ38cOnx4ayrMrjUqcJ4n
sHzXSOd+0RR44i8qprZA4CW+jiURsWQQORq7vu8ngW0PyyoWDifChq1cvv6/
CFz3Rae/51gCsCmpPlBYJJDzitXdnDPxMHy6Zr/fbwKD/ljif4pxsMUsWfDA
HwJZff5x7FeLhaXCJh0kefVpg6wfWh/hRs45evMSgeaai8JP9D9AhanGGeVl
Asf5Sz+ZNEVBpe4OKpI8FTn/pa8nAkJivegHVsj7Oa40Kk8Jg/YDLkr+JGfZ
2EUkMEPBrHCU9RvJqvdlDFf/CYaS8fcbLv0lsCHqeNJ/q4PAnz/YMZDk8TkF
WgZ/AOx6UQEDJIeZC4b9E/aDbaq8ulv/EXjyXsO9QNV3EH/TtI30HpSto9/c
ZewJxob10c9JPvuTbyXp2Stw/i1Sm0Qy0/QLHPB3g9CXdy83kCzUibu0NJxg
9IyPKIVkn3dilVecHwPHkbBr8yR3Zau7WGmbgbLS8yHS45CXF4b89HXA6viF
ctLjMCjL6SF3OmC15+AK6XG4Nd69hyvCCPd81Aig/+/9g43rhGKskZkd97yH
5OrdXxh7HzkgX0N/XSHJA6Waf4NjXXGp4o9JMMnbebZyC719ickaPIamJFvv
T5byt3uNYSvbcuRIdv/53I5D3xsbd8npLZHrEanDv1S4xxfz5+4Z5ZP8I+zF
HYst/njbEssektyya/Dhdt5A3P1Yw16Y5NPXdTNr2YLxR8Yhj3Jy/ekllzPN
f4Xgtk8230ivw25JygI36XlVk04t7uR+fj+nYHGsKxKHdJ9d5CFZuiMsq6I+
Gh+NyW98S9YDFBpI7x75gN89sioek/WS9GvkeVjHR5yzC/8wTNZXRtT71y1f
Y9GHp6sXSI4fHmj/VxuH4jMdN2bJ+oxO/3RBozgeC6JmPhwlOYrr1Tfr3ARc
3Tsv/4Ss56nPH757ZyRiWntY+BRZ/zyEwqrMuGQ02xoYfJ/sl43nBtuTvUmv
26tco0f2EzQ/FWsKT8fz/qmLqmS/3ZglJ9/1DHx4LO7eBgaBC4NPax3vZmIt
q7mVFNm/GsH67dfdsnEu+UHp0BRB5n+RwtK1pNc1lK53nySwmZ37706/HNzB
/rM+f5wg33eZtSf6C5b1dXjlkPPEuCSv5WdxHnLx5PFtHyDnSe9ZC2mFfJT2
Ohfh2Edgq/eV43qN+cjesL1NtJvAd76ZuSl9BXhOwSZvpZnAGeaMLH2hCK2u
qM+sRQJ3/qj89WhTGXoxeI5Sigl06b95su1mGRLVP3yzC8n1udIwLhFZhhOf
MpxP5JLzt9t0S8Pucmz5Vivfn0rgKbNL3O2HKnCbgBW3VSjZfyyjNtOKVfhJ
e3V+YRCB3IoxsnPeVWioVue67E/g7YmY/QstVbja/tsD47fkfiDxePZ6NVrI
r85sek5g7zG2uz4GNbhtXq1pzoSs/9wuqTj7OtzB4pQ+ZUygfJeEQNeXOqQK
Ph3tMCRQTPg77d+POnRNpEmH6JL9PDsvLW9VjyOyUgHlagQOb7M2dzZpwAIB
2v74I+R8vsVrUqjThIO8EUqihwlstw+RfxHUhHEfeav8pQh8w/dy+8WOJvx+
OKNBX4xAo+Rln2zVr5i/pQRihAjUP81Sd+JiM7K2jwXlLDLxC6e5uOXmVmzm
EfuaM89Esyv/VoSOtaK++O+Had+YeKl400Dx9VYsXXX+mweVidux1vOPfyv2
0mwExnuYeGK1KFOBpw2rH2sU7f/CRMb0g2N8rO14blfIvm2mTMx/2BVzcbID
Lz08fbX8Lvn3he4+U6s7sb8kJuM/PSZGbbpV8FysE392UU47apGsQwmPv9+J
zEDtEPWzTOzyWBWcROtE+4j8Yh1+Jn689+qQN70LBfmy/WfTGCi0sp3uxujB
aj+n0WcJDNyulK12k6cXfaZfxbHHMNA9waZGQqoX9y42Bv8OYODT/ua6LPNe
VH07fsPFgcxPY5w7bWZ70fK0Puv8BQYmwnux4Ok+3MN+o9OnhY4rLklSR/oH
8K/FYO3ROjrec/dY7bU4gBW8SaUdZXS8laW6tX/TIE4Jq5X+yqSjC2OhV19z
EB8l5cFoAB3l7dORr2kQj75w3XlUm4577imMzxYNoa/uztcrnbO49N8eC6Og
EbR6Y8eR2DSL9g5vKjKzRvBs7HiLUtUsLrvxKf9qGcF1b5UuOmTPYpcZK112
9SgK6g+xP/WbxYslOv8sYBS/PNhPWacyiw9fX8nnzh7FjdNiMm+KZtB7PO1Z
ZfAYXs1MejuWNYPOodnTlNgxVPHcZC+bPIN1M07rWTLHcKpp/XJl6Azuepjv
t79xDJfPRK4NfTyD2nz36ar/xvCFtw8/r/QMrv8goVx1bxwFJyK5zpN+wEiZ
pWnKUPCTc5h6iy8N7Xbzsk6dpWBD6mtTHQ8a8moV2dgqU7D+t97u649o6NYR
ctP1LgUlV92krVGlYbdAzahBMAUf2Sk0X2Sh4aLX5iPnf1Mw46eJx3l9Kiq3
yezRLZrAbcqCm2SuU7GtXVZBu24Ck+bFioWVqPhKM8FJqWsC1bOFb/fLUvGM
5mHpncQEPr08fno1BxW3Cp0T8dg1ifQ7cFswdRpNONQ3yLyeRHf/uQrpuSl0
sG7fMas6hUcuXHe6MjmFp3eyWOy8PYWdLkF5t/umkPJV/q7G/SlcsjteYFE+
hRqxx45HuUzhZzZF9ct+U7jlrP722fQpvN0d8rX64BQmx4uPqPJNY7D2JyN+
k0kMPrbqi1j9NDaYTP89rjuJ4pUt3vUd06iSe0VDV30SXUIdXO4NT2Okq7h4
wPFJlGmjJr/7MY0yYp20cs5JvHdxXVvIdtLjJLYaiSVOoG/W3EYvKypyzdTv
E6VQcDdbRCplPQ0r99lZf+qmYFi9w1SVMA1V5mNb9zZQUDGXfyZ6Lw172ihj
QpkUVMhIVpA/QcP4ua74cmcKftNIZgd9Gu6uc3wsvYWCvsM17zjTaMij7nPq
hdI4Uk+t3Oo4P4Pnt8jZZ58Zx8n8apsipRk8KxWmO3KI9HcHBaVIzRns8Gg+
JCk0jn7VPw6qGs+gTY6PljdlDP1Hr4fffT2DzwQ4Tro/G0MHvnlRw68zaKnd
elQvcRTfGoil+V2bxTPPnT9xhY9ii5xuedqtWWwTe7Qr6+0oCv+J1qo0nEWX
tVT1BZtR7Ar7+K3fZhZZHFf3qZwZxQXYU1/kP4utqjaVrz6O4PbA7OsX2mYx
Q21/ZT19COMn+JevK5J9PNjd0N08hEKBjemnNej4/vTlpwMZQ2i2V8RO+CYd
F1y5vzc+GsJ7HJWHy03ouF4575DS8iDacPaJp3nQUc2gVrVy7SAO+JlKra6i
44XmC3GUHf3ofNp2dYIcA1dNGAn8/NeHbqP9373OMMg5L3uKdawPrRnZGSYK
DDxt793DGtuHPno8wWuvkddZL8ulifVhLduedqo5A7PevN+fc6AXc47EPBQm
5xb1b/GNMtluvKBv+l6BnYk+uQ5twpu6UWWgfaCIk4lx1WpU68UuJEKdm/bz
MnGySJaHt6QL79RrZS9sZuJ6++C/ay514ZLbNZvD0kw0VW7vY9XpxGsnxYMv
6zAxaFLuherjdrzcdqR3MpaJinWr+7h12tHcwvuRVSITtf7F51Ydb8eHVadC
f6QycdWlSbF9y21IuXfGmkLO+SGLg8klbm345sBj5Qe1pJeJ6ecK+7Tiv9Hf
2etoTPzTn92Pil+Ra9dHtRTyHBJt55hfx/EVtSQCf/pJkp6QKlWiUdWEGgc9
MyylyXP1olFKxdkm1GcXuskvR+ALRzE+BdlGfPJA686UAoG2MuwFXVvrUWSs
UXVCn8y5Hi318T11+NW3MP7UXQI/XFcosQqsw874faye98ncPif+nuCpQ1xX
UcBtQaDFitK5cJZa/HN6SST2KYEpT79JFU1U4fWbbH9EyXNdWfO27e6YKoyG
FR5qIIEl9aqt7v9VYQLb603xIQQedLi040R3Jbo47WfjiCTw3PuN+3RrKzCE
XV1aN4FAFiFtxZAXFdhg/l9bfxKBL08f2/YVKvB3/x9DdTJn3LrgLr4vvxyz
9wmpiWYSWC92eT4usQyZX8uOaZI55SyXQ33e3TJMtRQ//YbMMdbNVfRq0TI8
Ylu1L7eUQHtutp7Ew4i2p8RK50kP3N1o3vVkfQkmzxYWrmoksK947I9/Sz7K
C152tyRz1DmBkNHT6vloJL9eabGfwJUHa3JGW/Nwk/mjrQ5kDuPXUo7d1J6L
Ly57DBqOkPtzWHEHdOZgZWHfQPcEgVL1UfQiLZKNbvwQIXOed6F8gmxXNjYw
4gUMSK/bnjmiL9idhZdGHz1sJD3OPUPPIKonA+uVvJ3OMQn0KxLj/amTgT3C
RzoUyVz537HLKgEZ6XiFzfCgMpk7c+zeSjdkpmHksvqfo9/J3Jh3T/9WVip2
PA8xESE9bj9H9X1KVgpK/7MYZCFz7FHrsz9Hs5Ow+fNcRwrpcWFR88vXcxLR
54KMzmMy9w6OGPdW5SSgp5/0iByZixd2la/z+/IJr/GHL8eQHvfQ89ok80sc
Wgdk+CmTuVosk+F3OTcWnz9pkmSQPJkUdW8mNwaVV+xNNpM53ULuHu/RvA8Y
RCle95Hk7M9HBX5ZROOqApuc3WSur7ly6JCjZSTKbHfQiyT5hv7jH78tw/Hq
50wePtILvL/joJXVexRZy4JPSH6Z1WQ2ZhWCwvWKtv0kO07fFFWxDsKbr+0k
j5CeMawq/jTTOgATRiwn3Ek2+ruwuN7GDz3u7YxpIfnqS/4TgxPvUC77if56
0mtcFy7Ue0964pdbxruUSca/3B/lpl5h9bfeKUeSK/8tVPRPueEcR21aPMnR
Xlt05pud0PfwXvs6klt9CnP3tz7GmpWZC+Mkj6d0XS76aIavltav/5/HKR3a
YX9ISQeD8oPG/udxZ7d4TsgZngfvctuc/3mcmhVbqIz2XeiISXnzP4/j2GR6
mLbPBlIoZw1mSZY5+fltjsRT2M1/+FQXyav8ezOKBZ6DSLqHUB7J5//u79kq
4A7XLiv99CWZsuZioe2GNwB33HoMSbaIDL1Vs/4tyD45VXSA5JYY1cHXr33h
yuYXMUxyPaITjE0lX/uDbpmJZyLJv/ybdWo9AoFvbuXxLZKdimv36HkEA+7T
vruK5IAqX425V6HgTn11PZ5cfw7R0Ea2VxEgMdN2rp3cv6ITB7WfPosCdxae
6Dskez2ZvPz4+Af4sWVWjULu/xU7zZA+qY/g4cuZ3EV629rEcA13iVgQi3+t
KU+y0b1cmwO746DgoJR6EllPB0xw0WxzPHhpOsjfIetPzPfOJLtAAmwwsjqZ
RtZnlqTMlWCeROBrk3SfJ+tXsXDKJYktGU4vRGwyJ+vbdMfU7hf0NCByKqX/
kd4m3+AqTZ36DIKSm+r5SfbaodN8cSwdPI9W5G8l+0maSGXOz2RA2+6N74XI
/sN6Zc37I1lg8N3n7heyP4tirSee6GZDWpNXxhvS4y5MzLW492XD2RMMTW2y
nyNnf5zx68iB8dy1H3vJ/l9aGJEyq82F1FTpu8/J+SCtmK2opZAHbLEttpuH
CVT/NdFyrDwPTjXpDCWQ82Tgs1MsozAfnpk/x3Ry/pQ2eYqu/1wIqZG3Gow6
CDzJqXqlQbII1nMpZpe0kfV/u37GMaEIttVt/M3XSqBvyWGJ5g/F8OADNSKy
icCee2KwPaAU2g4d1PivmsBjQcs/o/gQcitLDzytJOd9+ZWTW7yRdJr3Jj7l
BJ6xHnv87EIZcLFzsMeWEOi8ZcPAvlPlcP3G9laLL+T9/V5/v3h/JYxED596
H0t65bpV4X8sKsH7274KzhgCLRM5rslmVcLPjYM3LaMIrBLRXgk4XgUb194v
2/me9N7U2aP8F6uBMSrvIvyO/PzPLodTdGvBgw0fG9mR8/fb9Pby6FrofsRn
pWBL4Daz+PmQ8VooMM1+vc2K5MW/1w6b1IHi39ebsx6QHsy1sZLfth4sqMuN
NqT3KR4R+GXt0QjHtVq0lc8RmGvfNzVQ3wg7blTFR50mPc85deXMuiZYDHy2
h3acwEOhztdnfJtArNYozYj0wGPRDjFj77/CpSZuAWIn6Z2rPqidTG6BV+n3
9+qzEtjBz97NOd4GPTK1n7ILmEiNObrgytIOa4Y4gs6R57lsWXX8/I52OHjr
xc/qDCYaSq6Nbb7dDntGAwULE5joJRknrdLVDh1vrQYvBzFxeW4z1/3aDvDZ
70+uIxO179KapxO6oJ895nT1NiZOdUY1VVZ3Qcp5zwJDISamRp6zDKN0QcWH
Fy2L65l4/jnT/ZhIN5w7t9zIy8FEk72V+w8Fd4PsxfID498Y2E+cmRd80QMm
56zKxStJr7O68t7hRh+oXR4+ctyQgTvtt7RzP+mD5d1blO/eZmDhHfv04JA+
CJe9NeWhxUDhoAeywd19ENU3nP3lEgMdDr4zOKXVD8KZXJQUSQY+SJV5sEl1
AFbPp99aNUdHRpCldOupIUgp9nj0yJ6Od/QuOxrfGgLXa0mHgyzpuOaXhdr3
J0Ow04jIS7tPx2OyRobfvwzBF1OefTU6dMwNNlDwOjgMixTB4cBjdORIWFTZ
vHMEOAalolMWZvH8oUCVTOdRePDlgU6L2SyqnqsRE387CiZFG68LGc1icO8h
49DwUWh2isjSIfMvUyT8r3n+KOQV/AkuvzKLHt2OssNzo3DiaI7iyb2zqH34
pfiQ0RhcVet9UT44g7Y/BXwOK4zDppqEHScukR5XoQ3rro3DW9bQRb/TM2jQ
ntc1pjcO5/TuvqTIzGBo6cNPTs/GQYJ6u9hKZAYPFIgb22eNw77Ast+yizTc
tMuD10qEAmHiHfz6iTRU+BAafnuBAu+O56gYstPwWlCVSBLrBPCnsyl7/6ai
0w72xjmeCWConzidQVBR3bTN85HYBBBVTJapASqWmSbogs4E2HMVaq/NoaLP
j8qc6bwJ2P428NphIyoy003bLR5PQtzUmq9CJdP425LiJfx8Evi6L0++zJrG
zuVXfJXek3BfIw3oCdNIhVWmbHGTUKpyoDrJfxq34KbtF9onQTryyO3R+9OY
dKlmbaXUFAhW1Pw+s34aB41cs/JGp+AU9fyzr3pTmF7y1O0TfQpGLkmZBWpO
YaNQdoP34hS8ZJ/7q3V5Cr9ZquVe5p8GDd5FkUrpKcwrLQy3gGmgZYkla65M
Ip9iQqZTxDSkXv29cOX9JE40CLF4alDhEtHiEtk0gdka700/6FKBd09FSzRO
YMxP94n0+1Qo3xwtF5E1gQoXOP8UOFEhRZTQeRE6gfxvFzSfJlGhNXCHBvfd
CXy2c8+6pH9UcPGZurv6DwXPyhw9kxRPg7vpujHFOyl4R072pXQGDc5WScl8
F6Tgm/EHpmkFNGhqFV2zm5OC1l6C3KFNNAjIEHtpxxzHwqd4W/Q7DdSlOWUm
C8dxS0OyzNKpGRjt+rR74to4Cggrf61vmIGMt6q8Li5jGLSO/Y1zxwycTBGV
320zhgkPosMPDM6AXBP/7sq7Y7hRjlr8iDEDcx2BcwuKY/hfZEN2Dt8snP9l
JiYhOIY5rF9D567NgmZxy2B5wiieCEioVe+cheP59meqQkZQ0mKid9XgLDgs
HTrk6ziCVh+vKGRRZqGm2CVay2AEb+Yf2fX7+yzUlw7x1EqOYClnTq3cejoo
fPg3cq1kGJ+Hq4pbqdCBdql8w7qxIdxcK7fSXEIHhjatQ2b3IHJF5kwmV9Eh
L+jkBmGOQfy3uvubSyMdOPaYfVieGcAbNS4mG/vo8N3nQm1K1gCa/Xcog/GD
Dro/eJYKzw9gtab96WsSDHj65tr4xzv9eDCE69moFwPczz8+URfQiyn1te/1
/BnAIrRGw/ZRL4od2WXaHcoAEYPdnkLXe5Gr8eHmlE8MOJF17qXypl58GbzN
4VspAyQ6d/gYhvagccbDMhpB8oBOqVZ4N2ZES/p4KjNhNiqtzyOiE0vZnnsu
qzNhn/hDHRPHTpQ0mWG9p80E1YRtgvK6nYisE3dEDJgg+9fUYlq4EzXWOCTs
t2OCic2fWHpYB4Zcg/1JUUxyPmaxzoW04/ev5qelaUzIut6rsvNdKwq27Te/
wGCC9UW+p96WrdhLBHCrzTGBq+fExx/qrRh62ixI4zcTPkbfZM0VaMU7dKJg
iZOAwXf874VkWtDYRM6GIkbA13XlaqsufcX6npJ9zpIENIVX8RtwfsXjnvPn
10sTUNTJkZ/b0IRdt7/7ih4lICDw44KKWhOmJEr6US4QIL1tuEPsRiN27PDQ
/6NLQL6Xh06kST2eHTlYulWfgEv+S34+kvUocMbMUtaIAEOZqrhn9Do0lQus
v/qAgJ5IPt/zVnVoJTB3WewxAbL6nOKv7GsxM3L9V2MvAtxDl+P/vazGaDNR
Hu53BLjO13kEX6rGw+/dgxJ9CZA46HpEgrMa035VOzYFEcDfUSl92qsKFatT
A/KiCZB6/PiahF8l8n3N/W9rFgEd+tsKdkSUY+ZeSv6LHAJWc3+W26Fdjskr
90wpuQQoWsWbbeYvx39KAV/diwg4O7pPY+VFGa458dNVu4qAwuyWsk09pXi3
+fwzmxoCkvtEh6uVSjGx6mHNyzoC/uvlLDMrLUFWdYqKdxMBKlEFjhGfivFR
rMZa8U4CTnQueQTbFmLZzVCHhS4CMs9cfcIyXYAbj66WK+whIHU+64XhrQKs
vnvAT2yAgI2d+0L4zucjb6hmhecYAXICKgYbeHPxes5Nd24KAZq2X/rPP/+C
/ouvfd0myPv1Uaoxnc9B58IIJ81pApglKdFJ/dmoe6sj3pVOQLt5FM9ofCaW
Hb4Snc0gYKgxpWFkSya+L4sfHGQSYC3pqNHvnYGvPxTs2TBHwEx0bKvr5Gdk
JJVL7/hOwLrUmIgbjaT3DdxyFP1BwA2XdVrimano38g5xrFAgNFH6aFkx2Tk
+ff6F51kzkDilr5hElpctFav+0nAQd1D23ivJKJehHWdwSIBw7p65ZoC8Tgy
tm5a5DcBHIKmGvTFOFSL23T5f89VsppJOTkPx6JSTkSDyBIBV7dKsfglxSBl
MZuRS3LxqyD2DT4f8GOipYbCMgEPebf/FKZFoVxq3EItyefu3nXgyonAgQnJ
/vMrBHwRPn7mm3MYPjgw9DeTZAF6G+OrYijqXX9vtPkvuZ+sFsfiBINxVvIc
52OS1ZqUamxHAvCn1Rd6LckTdYmXziT74YGJEX7S4yAlKLCebeYdrj6Z9Eid
ZJmAqffPXTyxTvSv0CuSDXXbtRcFX2EgNP/JJPnaickbJsnP0Vhu3fbO/z2n
+FN37pPLUxSKSnOm/+85SGnn7bbJ1viAM0VkieR/qz81P042wP/7vhyHrqCs
WHxm8f8DJChnmQ==
     "]]}},
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-0.9999998831351729, 1.}, {-0.9999998592812047, 
   0.9999998782744886}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.463424593415*^9, 3.4636792711084733`*^9, 
  3.4637525265069747`*^9}]
}, Open  ]],

Cell["A circle at E = Emin, \[Epsilon] = 0", "Text",
 CellChangeTimes->{{3.4636792748154736`*^9, 3.4636792882704735`*^9}, {
  3.4637525369895697`*^9, 3.4637525386430745`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CC", "[", 
  RowBox[{"1", ",", "1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.463447607602*^9, 3.463447612619*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.463447614323*^9, 3.4636793380774736`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eps", "[", 
  RowBox[{
   RowBox[{"-", ".1"}], ",", "1", ",", "1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.463447630342*^9, 3.463447637398*^9}}],

Cell[BoxData["0.8944271909999159`"], "Output",
 CellChangeTimes->{3.463447638059*^9, 3.4636793395414734`*^9}]
}, Open  ]],

Cell["\<\
Solve for \[Phi][t] numerically and then use it to plot ellipse (steps must \
be run in order\
\>", "Text",
 CellChangeTimes->{{3.463752554913123*^9, 3.4637525877502813`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NDSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["\[Phi]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"CC", "[", 
         RowBox[{"1", ",", "1", ",", "1"}], "]"}], "^", "2"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{"eps", "[", 
            RowBox[{
             RowBox[{"-", ".1"}], ",", "1", ",", "1", ",", "1"}], "]"}], 
           RowBox[{"Cos", "[", 
            RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}]}], ")"}], "2"]}]}], 
     ",", 
     RowBox[{
      RowBox[{"\[Phi]", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", 
   "\[Phi]", ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "280"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4634421291610003`*^9, 3.4634421625360003`*^9}, {
   3.4634422709630003`*^9, 3.463442271773*^9}, {3.463442312954*^9, 
   3.463442354867*^9}, {3.4634428048389997`*^9, 3.4634428369189997`*^9}, {
   3.463447662479*^9, 3.463447677332*^9}, 3.463448112808*^9, 
   3.4634963091099997`*^9, {3.46349790449*^9, 3.4634979049969997`*^9}, {
   3.4634979936540003`*^9, 3.463497994182*^9}, {3.463498054474*^9, 
   3.463498055005*^9}, {3.463498100718*^9, 3.463498101198*^9}, {
   3.463498245131*^9, 3.463498245559*^9}, {3.463498359343*^9, 
   3.4634983606400003`*^9}, {3.463752625080124*^9, 3.4637526256885085`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"\[Phi]", "\[Rule]", 
    TagBox[
     RowBox[{"InterpolatingFunction", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"0.`", ",", "280.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
      "]"}],
     False,
     Editable->False]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.463497939079*^9, 3.46349799569*^9, 3.463498056934*^9, 
  3.4634981020299997`*^9, 3.463498255205*^9, 3.4634983129300003`*^9, 
  3.463498362262*^9, 3.4634992238*^9, 3.463499497451*^9, 3.463499671078*^9, 
  3.463499934808*^9, 3.463500173892*^9, 3.46350506844*^9, 3.463506490148*^9, 
  3.4636794612704735`*^9, 3.4637525924925594`*^9, 3.463752627061273*^9, 
  3.463752819820676*^9, 3.4637528793253584`*^9, 3.463753168748683*^9, 
  3.4637531987616825`*^9, 3.4637533037115493`*^9, 3.463753689588675*^9, 
  3.4637537265611486`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "Dashed", ",", 
        RowBox[{"Circle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"4.47", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5.0", ",", "2.25"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", 
               RowBox[{"-", "3"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"11", ",", "0"}], "}"}]}], "}"}]}], "}"}], "]"}]}], 
       "}"}], "]"}], ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{"Disk", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", ".3"}], "]"}], "]"}], ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{"Disk", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"rho", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Evaluate", "[", 
               RowBox[{
                RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"-", ".1"}], ",", "1", ",", "1", ",", "1", ",", "0"}], 
            "]"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"Evaluate", "[", 
              RowBox[{
               RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"rho", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Evaluate", "[", 
               RowBox[{
                RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"-", ".1"}], ",", "1", ",", "1", ",", "1", ",", "0"}], 
            "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"Evaluate", "[", 
              RowBox[{
               RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "}"}], ",", ".2"}], 
       "]"}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "280"}], "}"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "1"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwl0FsoQwEABuBDWi5LGrFRc4kWMxwplzKdXIZcthUtncJcEg8scxJeFkKR
W0vJgzR1FFOHGFHswRa2h0UuxYOSCGE8eBD7j4e/7+3v74/Xd2pb/AmCSPAF
XrnnRL+uR+pZMxoB1ROzMdCqyo+Fnz+LBVBGjpfAKftPJczbzNDC3TJhPWy4
t3RAS9d5J3wdWDfAmZdUBgauJvZC+cjdOtTa2jlIBsbtQdHgmwMquB4XDKht
dcMkgeYSOhnrEwzTUe+wIpv0QoHJ7xsuFV8ThPuRWozulsIqvToBlgtT5PAm
MU0BCYImYV2zLAsGX4TkQPVEkxLSk7dFcIw6q4HpNywN+yOYxn+5NigjnbzJ
9LYRGmcXeiF75DDDhvvSefjhoQQSN37xC5LwezyRUDocJYYC03IctEkPeQ+O
V5KhVbXPa/+i06E4IDRDwvcX5kMno6Wgv1ymglvetVKoy7VVQwWnUUORkB0z
+Bwy7vA2Kx8Ys8/MzV9eNnzIDE+nR3mlfV3HUN+3cQL/AAKsHV4=
  "]],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 57.73479747772217, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 280}}, Typeset`size$$ = {360., {85., 89.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`t$4862$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$4862$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Graphics[{Red, Dashed, 
          Circle[{4.47, 0}, {5., 2.25}]}], 
        Graphics[{Thick, 
          Line[{{{0, -3}, {0, 3}}, {{-2, 0}, {11, 0}}}]}], 
        Graphics[
         Disk[{0, 0}, 0.3]], 
        Graphics[
         Disk[{$CellContext`rho[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 280.}}, {
                    3, 11, 1, {760}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwtmAk0FW/8/0l2hZSUr0QLFRIt9vuea4nIlpS5tjDXEnMvlSjKUtq1qCQi
VFQSLUKWlLSQSCVLlhIhKiJF/Of3//3mnDmveWae8/68P+/nOWfmjIoXz5Ga
JiAgIMicY/9z8X9HXeb6cdPRaNb/8jSrsZpNWIYXsNwamyr2G1SyRF6Myd1V
ecNyvTZ9/dKlzaxmQqzUZk4na4taU6O6fyfrndSNoemlnaxNQ3tmdMp8YtU3
WquX+nxi2Zb+Z5pU+Im14XBZmIPnZ5b5Js9ccbEuFrFgWlfF7S7WbCmniWGj
ftbwhKOE3JcfrNbhvfI5K36xqvquqJqH/Ga9yP/QfEFmGrQH3RdL+4mhq/5i
ec7xGaght2te3SqLazbi48N9cogyyXrOjpRH7WndtS9C50HxS3mmHf8/+OvZ
yL73V0aLeSArd5UKYng6ocG5qlC5JhtamLUYj1p/7Jq6vBQecnW7LC6qY9Lq
9q4TCcuREhW/6+1xDRg+CNqlGKeFgdBrBvksbRjNOl/sZLQKnu4Xuc9EdHDg
Ruosg3odZI9mlOUk66KanRWgzF0Nv7EkZyfJNZiee5x9JG8N0r33a5VtXguT
eSHzh/+uxat2JVfpmHVwvfbi0gpxPfQH7mpff0oPe3RVVHzm6mPbtctF0+L0
YTlvoWP6L31oHU/rY3kbYM7Ugti2egNof9cuOKFhCOt2dq/RIUNQr53++9Zp
iKhyrl2ykRE+CDrKyR4ygraZcWNcvREOx6knTygao/O5nEcI1xjOsn2JdzON
Ue3yqO5XhzGIjPPiaxeYoKAvkL2bY4Koxx76YydMsOGio3b4IxPMDjFX+ztk
gjYrvQV7l7AwaucRYmDHwgznuKo/YSwscb01vyiDBWOvt3RYDQsGYhE2c76z
8F+j7JwmMUDxxpdYtfnA/MiioV0rAOVHkyqt+sBiITMHtiWwzOJIVLYzoHWk
9vZMCtCpkWvfuQPQnkfzf+xj7nOfCwYeBTTuqib0nGPmC0Qu9k4H1DY23m/L
Af64Vu2UKwCqA+/rWpYDlyKuDEU8B+jjCfn59QBSYvjdzUDekU+fPD4x9Xez
Nzf1AvE+Gc8cfwKTDtMMasaAIJZXjrkAAevL6uOhIgTUBb9bZUsREPG6f6Fp
FoGux3t7JOYRqFjEXmukTCDtgNjBoCUEIr/UNqSuIEBanFOtW0VAL4sTLKhH
QFrrXNsGEwI992qtz5oRONdhYpZlRcBM6rZRsS2B4XXKa15tIpDhfVKzYyuB
7pJ3dd2uBJbL/7dzwJMAzfOa+8uHwJ3n2cV//QiMqHx3EwwioL93jaBYMFP3
7d4rM3cRuO8f7XQ9jMC3ybjpZhEE3AtU4icYvg4qmXs/kgCxZEt60D5Gp/Xn
8qX7CSw6e/xeG8Nz1momiVEEwopdHcRiCHCWnfEJjyVgcuHZ7r4DBFRE/x3l
xBGYHqqTWnOIgOSsubZJRwjMyh3/Rx0jMH9Dxy2dE8y87kq3qXgmr5jrM2pO
EdBeEF964QyBzPurH5qeIzBnY0vhYCKBw13RBUkXCYzvVb9ndonJ65KpNj+N
QFGZe05yOgGFjnD1Z5kEdgueuzJ0lcB71byFC7IJrDarTrG6QaDBfplDWQ6B
ELdDwrq3CcgGfCnKyieQF2pK/3ePgF1suurpAgKDJ6feCxcRMNRJHhQrYeq+
XSsiVU7gXegbJenHTP/z6DWznhLgPxTfOOc5gVK3qz4K1QQkBIgIxVoC4g3f
a8+8ISB6LVVFopFZ//CNO6NbCAjbTFSNtRMQUr45j99FYNqQS2DPVwKCT8XK
3QcITCU+kH3/k8AJWude+W8mH/Nbztf/EchWVP9zRoiNtUMZyRHibDx5rmTC
lWbDIe1Ch90cNtp3ycXqK7IRaBO/ZJEKG5ItWifqNdi46f/61349NjaM8Vy1
zNjojZOpbLVj4/Cc/BXHOGyoXXFI0Pdl45nO0N+eEDa4FWe8zu9jQ9he96XZ
UTautDWsGj7HhmnQzqT0dDaSJJXWuOex8f3607r55WyYW9KBja/YSO6WFzvb
ysbPA+WZ9v1srF/kx5rxl41LFTItL8RMMexRFBo31xSxxxZM79cwxawHsaft
2KZI//R1wb0tptCeaZujEGSKcv27+pExprClFJ51Jpri46lIJ4tbpggq+dR5
47Ep1tubapR2mkK1KzP0tYAZ/u2eXtGpbIYPkpTkLxMz3El7ulnE3QwndJde
Vog0g9+zuL7lKWYw5fSsNn5ohtOuF/4I9Jqh3c2qrFLeHJoef2MOm5ljj+fN
9TYh5ni+zVVK5rI55L1n1De8MoePT9m5xHFz3KF4JGeZBSyizo/aB1mg+WLp
GYt8CwTd79IyGrGAYJ1k9Sr99TjXp+OrFrkey4RJIaWK9ShRjk6bJWwJe4Ns
QzErSyTVP9p3N9cSn/2aKtxnW0FDYGi6xB4r7EqUsLzfboUyrUXHPM03QKzK
sFby5gY4uDnJPpCxxsVfgU5eodb4+NKSFS5tg4Xpi5efyraB926BOVnERlzb
2DpV2rwRvYsK+97usIXG34R3/VJ24NfxHk27ZgeXhqvvjivb4+qi28uTE+zx
c0fh/uuiDjCprHj7YK8Djs6uXlb13QHvfd7ue+vtCNX7Hxs+NTqCFu5R/2m9
CcWbf0ROlW+C146ad5MeThA/na05OeWEAx+rGnn7NmNq2ZfozonN+G9iOfnE
wxl6tXydq4+d0StSaqAvuwUXWeKmrzy2YF/vG6FjaVuwLSGl0rJ9C/zzRQNe
yG0F/3WI9AbLrSj8plxcvWMrBCRe+WxM2wobmUOWm59sRaI8oeHWsxX+yaZ3
1IRdYLjQQm9I1QWi9Te2Jhq6oCFaOtzIyQWbt76vzPVzQaPWJRmVSBfEGfyt
WhbvgtUWWyJ10lzw2eGermGeC0ROWkU/LHXBspq2WsNqF+wt8Lo9470LXl3u
Ptne4QK+eqtVU68L5PLqhRqGXHB/3bPSmnEXbC0v2V01ncTPmp21JZIkjjZr
LLk7i8Sffa5/aQUSvouOv16+gMT7Zw+vdC8iYRbYH56xjMQdGUU795Ukrnnc
/H5Ll0RSruGpf+tIKLWoyqsZkkgXlUixNyFRuC17ZjNIvH5oEe1tSqJ7zpfh
b+YkJnix3FBLEnIvVZqmNpCwlm4pibYmEet09rKQDYnipI0HDjIcahPxE91I
YvniR9ZHGHr5h6+UtP2fejpyJxiK619tPmVHIuzJ3Iyz9iS+bjzqf8GBxJYP
E9opjiSeefHG0jaRWDvQWZ7pxPjd7XQoazOJ+edfueVsIRF/z2J1vguJmgdl
nms4JCQfrj1R5EpiQ1lukbE7icMVS7srPBidytRZFttICD+XZ730YnKojt9u
60Miz7skb5xi+p7oHcn2JXHk7FxDZ38SoxrmUULbGb9PQ57mBTL9u12WcKdJ
GI6+spPkMz7KfLISQ0jIHBqfXLSLxB67M855u0l8mbss12gPCbuOcuEXESSK
sp3dNu8nsTh44F5nNONX/4AUfYDEmKCiz984Rv9l/sO4IyTa6h5ofjpBIuiU
3pDraSZfu6KCxrPMekob7HW8QGLe62LWq2QS2fGG0y3TSKyzLXn+OIOEpkGc
a+k1Rn+p/Y8HN0gozpp/4E4uCdnJz3Nv3SEh1nfrZlYBial3u1kZxSRGKoiG
lDISd0WUv3pXkuBbT0wsf8nonGqSHXpNou9twdKidySy5p01jGoh4eMebL++
k4RKpi01s4fZF/Uej58MMmOBYOXwUWasFROhNcmM3RKaPgtzkH7sytqkGRws
LL6fYDuHg8tfq34IKXEQ0HWq6L4aB6s7yBhfHQ4mWxZbzzPm4HnjoFz1eg7O
NBS2RjhywHkdc1XLjYMl1TZ0hy8HZ3+UPGwP5UBIXlO8/SAHwYaXnNvOctDh
OePKx0wO7OIif7be4aDs5oBJawUHGvVux1vqONDMvf1avpvhMUE5x3GGfpuc
T8i4Qsv8atLzJQxVf7cKGTKcslzIsnfFytaL3nsoVxjbhEVXxrrCumRz2swM
V7ho6JZufeQK3xSZlow2V4RKDY59m3DFgYhq+XWKbjjzLXt1tL4bYtIe1gtS
bghxrKVjTrlhm3CnpFCJGxwKh7Nje9xAbBexmC7njlUL5n0+YOKOhfUrooQD
GL4Mju7IZvjkQczDHncol/yLPb/UA8r3TQ8GUwxzj8TZXGGY9fqQ2mcPSNcd
NROU9USLsc/2bBNPZN00PmMX6Ikd8+YWjSZ5gnXoR/ulZ56QHHkhYj7iiUav
TM1vqtuQWRfhlGC/DUXDTq/TzmxDnbzmhpy329CjL/y0UN4Lk64fWU+3emFO
1P3i+ote0Mg8saat1QvsKiqvb4E3XHqNV/z29AZfSv6aUKY3vCqX6gm/98am
iHUvRcR9YBhvjDOrfKB62bRAifSBQWqajM1eHzimjAfsSfHB3BsvM/498MHH
B0nNUQ0+oOe5TOf0+WBqj4LWGkEK/jbu5MrZFBqUrsQtU6MQNOKZ83MtBdFX
Sm+KLChkXGn+He1MQbMks7zYi0JhQ+ChYZqC+okbGa/CKCRZfC3NiqGY752l
TdHHKageqvI1O0tBf6bvqEgKhWntrB4yg8LL2wofcrMpJET9fD7tNoXJ1Zov
Ze8x9Xv9qhcWUQhUvW1nX0qBxxlp2F9BIeSs4dbbTylE638ZU3xB4VRbfNLh
GgppsXoGI6+ZefNmXSp/Q4F1u3/qyDsK0uZPvZw+UOhoTn26oIVCHj9Mvfcj
hSgRx2N3OyjYa8jfqfrEPNeVGND+TIFvOKmWzFDAdMhLuIvR39B9icdwoWPz
hyaGeS61cmZfKNT5FRxR6KbwfXfq1DeG0ofidlX0UFh5nu4/95WC3VXnbQG9
jJ97Jo0mfRROPlm6Ua6f8alHWVh9o3D7ViZr/wCFMtVPevcHKdQmLtTp/06h
TcpjhcpPCoPRlxZvGaLwb7RF6cQwhfp5HmXhvyhcNfrkzh2hEO5BTTmOUtgY
8zWN9ZuCytXt0BijMPJssEPhD4UXfcHRwn8ppMwYURliyNcOe9w2TsFs07hX
9QQFhdB9QoX/KPTbvp//ZJJCqZqWTu0U069AnFWTABfeTR89uwS5WHNnTdj3
aVyIHTtx8q8QFy3eX64JC3Nxy8i4TEaEi5N5q8NjRbkIXqyxelSMC8cLi777
SXCxWkrxRoskF/JRsyjbGVz8HhZfWDGTiyZfwRZdGS4etoyduybLxbH9s92m
z+bCdZH2Yi95LjSfWfeXK3DxL8D3jpIiF7UzY8P3KnGReicVTcpc8JyLRdep
cuH7rWH1wGIuPGIGtmWqcbFFQfSky3Iu7HMXlkhrcmFpZtD7dCUXaN4kH6HD
hR4/yFRnDePv550l/XpcBIaMiV4x4iJu2LjPFVxc3hlbM8eMi+KR57m167l4
Gzrz9CFrLgZ/b9oBOy5k3tnn73TiYtWdjd+zXbjYdHKD5kd3LnYFrt8u68NF
opXZdXN/LgqXEj3hNBfNQiZLcndwcXbC66DsXi5sRw592RnD5DiYY/7hCBdP
uuuvGp7mIrJ9VDjtAhfrPihyp13m4mcdqqgsJi+3VJ2pfC4m+sZTL5RwMS3M
RVLnGReiwg92V9dzMePM7C6fVi7klEPsJ7u5UMh5XZL4k4tXKoeODwj4IibR
xNVUxhdrZ4yuSFL2RX/MrfFBLV9cHvOpNjPxhRP9X/LFjb4Q72oI+OHqC8Xi
ojNWO3yhdSqtOOOILwjuwU/jab7YZLRdYnOBL7izHHRya3wR9nUtKfrZF8fK
/ovx/OOL+MG6F2rz/XB6wUHZ7wZ+OGur71LA8cOFfQOXIyP8kJyb/tXskh9S
2zZrS5X5IX2mRFhDmx8GM6eUNKX9YaA/8iSO5Y9DtX3+HTx/NHh3SBtc9sfC
P+/uJ9T5IzC+mjMgEICiRRWC61cFwDCnKn9ZWADKVtdskyoPAFFaL/tdeDue
mDdW1Ntsh0Vta/C9hO144fxJJbF5O6zbe+rDVQJR6zsQ7eoXCO8UMfPpaYH4
XbdILOddICRP7Be9JBCEhVYtIvErgtCSJ1K02DYI5xV0tj/kB2Fwz9iVkeNB
sPhY1rbyehBcD1s8sHkUhBDd2pP+jUEITGXVkX1B8BXPl7H5F4SNR5IDmqVo
rBaPq/T7j8ZQu8BV/WU08gv2HpRYSyNgv8mBTNBYbCkYa2RN4074u1IxJxq4
eX3srSuN2tZI3XSKhpWrz29+II3Klg0PsYOGmpq+d0UYjaMhapLsfTQGSufc
fRxLo5gI9VE9TCPu6fs5Mcdp/B1lGSw4RYOnft29OIHGZ5dZsc6JNC6W9f6y
v0jDYVEF1/oSDdHDFz6YX6ZR9o23AZk0djmsLzG4RmNFwQKtNdeZ8UDupk03
aczIO2flxPBKSARrM0OjNd5rnBm+/W21YgvD7cXaKlsZXmRNSpEMX1ZWj3EY
/rFK6nJjWB95eX4ww+z8LPsDDKO+5MYlMtw6r6DkBsMq5ckPATlMXkstRpbf
opGhES/bz1BG973mzVwa+/QXbNh+m4Z1UcrCTXk0FPQVfxvk0/hSmPRK9Q6T
n57CFYm7jG7h+T1DDDfqzXFovkdjkbRL5YwCGmNfUtYRD2g0WX3uW1LI5HVr
WapEEY1kWb7Dd4YRuwqmvy2m4dY08aDwIQ0TY9Ptl0poKKcfWRBTSkNAuK6e
W0aj00/+oHU5jcc1rnraj2hkamf2z66gceBsb+ofhj5jKx3bHtMwdw0VfvKE
xtJHJYVZlUzOi4UCjz+lUaAuGJ1SxczTnDqX84yGnM6/GyXPGb214+U1L2jm
vfPnbetLpi5+936rZvaB2cjkRA3jz2pYbkYtsy62P9WVXjM+l7hcFKln9PYN
KNu/oSH9IfpqUgMNv1XyKz6/ZfSO3sjTeE9DsctkbWgj07+Bq7hCE413p8Nb
i5pp3P16/janlcYp1r2Yfx9pBJ2v35zWTmPDwKA60UnDU5tzifuZxu4dz2SP
f6FxokA3Lr+H6fdP2t/3vTSKjKR4E/006vaHfVYZpNH9uGvL+h80iKghqQPD
NFKMBR4/GqUx+nfG7n9/mP1WqKhh8I9Gzq5lnaECPIjqrjt/V4gHrx9m1j9E
eGiy5MeTkjw4pCfXV0rz8PxP1eyVs3mA49CWJAUeCm8oJQsp8bBSyKotSIWH
LM5OlQ9LeGALVB9ZrMHDxysqQ3wdHsKswshSPR7kBmsfi7N4yD2zZIWzOQ9W
6yISMqx5+NLyZnzQgQeqo/TodA4P3V3Z8+b78ODbm5C9MoiHrwP71pmH8uA/
5F9F7uehb9RpM/8wDwHjrK6Dp3nYJpVQUZHKwxal7tR/N3mw1dKP0C/iwYx1
3GVXFQ+G9u1r8xt4WLVNZ/ZABw9qIQd/qg/yIMR/6VEjwMfw0jcWByT4+Pyx
SdNoNh9vznbO/qXEx2Pr3vGbanzcmfbzk/cqPtKLxl4oGvKxNftN7V4rPmYm
5jS0bOGj8mDcB0MuH3t3en5M3snHKm+DT+MxfHx1mN3DOc1HKgb7H6bxcU9u
+LnKfT6qu39fPfSSj86iiZiBdj7Gjgt6bhph9DxFjIskgrFEV3K+8sJgGIrI
/D6wJhi/vP/xIjcH42/+5IOygGD8/5/2UcH4f0RcrJA=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwd1QFHIAASBtBur0uSJEmSdEmSJEmSJEmSJEmSJEmSdEmSJEmSJEmSJEmS
JEmSJEmSJEmSJEmSJEnWXpJ7e8MzP+D7xvy74T8Vbf8ICAj476+A/8/fFUgQ
wYQQShjhRBBJFNHEEEsc8SSQSBLJpJBKGulkkEkW2eSQSx75FFBIEcWUUEoZ
5VRQSRXV1FBLHfU00EgTzbTQShvtdNBJF9300Esf/QwwyBDDjDDKGONMMMkU
08wwyxzzLLDIEsussMoa62ywyRbb7LDLHvsccMgRx5xwyhnnXHDJFdfccMsd
9zzwyBPPvPDKG+988Mlv/vDFNz8EKMIvAgkimBBCCSOcCCKJIpoYYokjngQS
SSKZFFJJI50MMskimxxyySOfAgopopgSSimjnAoqqaKaGmqpo54GGmmimRZa
+VvydjropItueuilj34GGGSIYUYYZYxxJphkimlmmGWOeRZYZIllVlhljXU2
2GSLbXbYZY99DjjkiGNOOOWMcy645IprbrjljnseeOSJZ1545Y13PvjkN3/4
4psf/h7/LwIJIpgQQgkjnAgiiSKaGGKJI54EEkkimRRSSSOdDDLJIpsccskj
nwIKKaKYEkopo5wKKqmimhpqqaOeBhppopkWWmmjnQ466aKbHnrpo58BBhli
mBFGGWOcCSaZYpoZZpljngUWWWKZFVZZY50NNtlimx122WOfAw454pgTTjnj
nAsuueKaG265454HHnnimRdeeeOdDz75zR+++OaHgH/Kn0CCCCaEUMIIJ4JI
oogmhljiiCeBRJJIJoVU0kgng0yyyCaHXPLIp4BCiiimhFLKKKeCSqqopoZa
6qingUaaaKaFVtpop4NOuuimh1766GeAQYYYZoRRxhhngkmmmGaGWeaYZ4FF
llhmhVXWWGeDTbbYZodd9tjngEOOOOaEU84454JLrrjmhlvuuOeBR5545oVX
3njng09+84cvvvnh7+P/RSBBBBNCKGGEE0EkUUQTQyxxxJNAIkkkk0IqaaST
QSZZZJNDLnnkU0AhRRRTQilllFNBJVVUU0MtddTTQCNNNNNCK22000EnXXTT
Qy999DPAIEMMM8IoY4wzwSRTTDPDLHPMs8AiSyyzwiprrLPBJltss8Mue+xz
wCFHHHPCKWecc8ElV1xzwy133PPAI08888Irb7zzwSe/+cMX3/wQ8C/5E0gQ
wYQQShjhRBBJFNHEEEsc8SSQSBLJpJBKGulkkEkW2eSQSx75FFBIEcWUUEoZ
5VRQSRXV1FBLHfU00EgTzbTQShvtdNBJF9300Esf/QwwyBDDjDDKGONMMMkU
08wwyxzzLLDIEsussMoa62ywyRbb7LDLHvsccMgRx5xwyhnnXHDJFdfccMsd
9zzwyBPPvPDKG+/8D9gcgFM=
                    "], CompressedData["
1:eJw9mXc4lu/7x41sskf29pD5WA/hPFOyol30UZKotERTEcnKCNmUvcsmI5ER
mSl7ZZc9ki0/339+93+v477u8zyv637fx/F+H7fI5TsnbcjJyMgWqMj+/2p9
fMfT/YcnhDymH2OJ2weftO2T/8eXnICHNU4aunwdKF7s8pbDh5hlmuPAm5Oe
9mqXs0pmLqz0WYBF8p/ujF0mD5rOhsHr4HB+YIK83RP6jz/adzHVAX5y9V55
uctf/+VU1Fg+ghgpovnhDk+g9WTwvtv1CIYe7i87s8tzk1rvBY89hoKMqrtX
d3kth0yp6ctjmJNZf/p4l4Wvs3E66TgBu+23ft9d/pcq9x+hyAmOfjMMervL
FeXpOR7JT8C1j2etZpens2Njx0KeghuDW+7MLv/gmVXVe+EM30cCyjk7PcHu
DUM36Y47PH3uS7ne5QmzsWQFFfzesLxNaL/U6wmqtZJa3xv84AWD9hOTAU+o
DyfrrP0YCJ3twmcqhjwhoNV49HFbJGQ+Fiym/uMJQia+lc8exsOrVwSXw0xe
0CJ20JhVPhmsNGNHPQleUCccSXV/Mg00+YtVDAy9gP8cz5HAjHdw3KJqPveO
F0jNd/dIaeTATl7r47/RXhBJe54281YebKTUJ1Z1esFz6jhL+rQCYAxdEObj
9YbqhpE2rski4FqyfuFk6w2ltxoz3yuVwJVrl8nufvSGyNBjFaXPy4Di6m++
FH4fSNcBkydJnyB0+p2s43sfOFTbPZo3UwkvafTiPp16CYT0VXHx4CrQzpna
5mLzBY7BghHxwzVA8XJ2f+S0LzDw5zI92/MFJj6rl7KP+cE3+1gz6KiDVg5u
V1WyADisRjtSU/wVlgj3tZv0XsHZFIUrHbmN8OtB7zDjxUD4fNLL2tisGfwe
/vJLoQ2CX1sTX1JZWiFFY8ThU30QtL8PI0bf/gbxHs3pc/HBEBHXevn0pTaQ
szSdyYp4DX23Td7JKHwH1kWduaYnIeBe9zM3j+YHTP02pmF3CgXCh+Iuvukf
wCi4SCYUEQbPX1yLbehthxiP5vepfeHwUGVElT29A4z8j9MwUUWCTLlWcYlb
JzCzXH+970QUbN88Nbhh0wX//FmffKiNhsNVav+MznUD+x63IDW7N2ApOHCq
XqoHlC5qt9ybeQspW+3PDCl7QdXamNvbJA7quz484J3uBYsZn7wmnXjITiqx
+jzUB5vFEV/zTRMgOUA/uaiwHw46ilE8M0iEtef7vMzCBiA1tVKp5GISdD90
rqF8MQgUs0dl1MOS4WDxOfKTrj/hLmp/nV1OAba6x1s/5YbAA19oWamnwY3k
DYMv8UOwd06uw/htOlgm33F4zT8MFzUk7nYpZMKc3OyoYOwwOO3/fjjqzztQ
XB4ap2QdAVpXus7Hr7Pgyjnns498RuCizTiBRSkHIuUuftOmG4XjNUeNC5Rz
IYhn7Jh60CiknipIe3o2D+DwEOEA7RgkvTBKj7qcD1Wc9zfUPcfAM5rOq9Sv
AG72TztuMIzD0NMQ2/6eQnBZYT7iEDUOz5vFf4sc/wDSRR9Ug7gnQPzw+QNT
6cVQc3Q0WDBmAgpGuLNVZEph++wpiz+EX7D5m7XhQlcZGDQYnWGq+AX5l3zz
5UrKIfJl4uh/h36DXrxTp+XDCqg8aaf/pvU3DGlflHHLrwRtTrKTxVcmwXR4
KZez/jO41nV6lVJOQXwMp63Fvyp4LhYrdD9wCuT/OnZ6CNbAzrbiZInENJz7
S7Zw92ItfPOevPusZhqoD1xsO1T9BQwlI4TGb82A4DUjyQOn6uHKwVh1LbFZ
YJgcYaHgaoBvBln1d8pnoTCyZEM6rRFcxXf+iVnNQdqc6Zknts3AJa+5dZ15
HvIMgwoozFrhu9SGy7Ov87CVFaiQXPUN9P4rhpsGC6BgfzLZcqsN/M/72OS9
WQC3gfgwD84f8OB0YqDx2gKUG1p6nDJpB5KJckCr2SK8XDNYCknrAI3AiZtz
FYvg3UEvySLXBd16kp735ZeAnlZYona4G3hFzv42DFgCWceftIm3eoGWKESp
srwE08r1ilfE+8G+QXrt56U/YOC4YhbMOAhckZUpHB1/4MjB5Mv/uIbAMXl+
vvjEMgybT5eRGw7DoRgmLuHKZVjqZBqptR4B99NxVaWqf4HNy5+M+80o/Fw3
LjiV/xcI09rCD9bHQDvQbueHxgq0vD8bp+yy+55pjvsYNKzAzqPjC+FKv0H5
XXzkb5tVaN/M8Gbnm4IuqzMZAnvXQCKhYvj+oRk4mnP3rV/NGry6fJ5MpnAO
rrHzPhT2XQeTS4aymp8WwHAjRcT36sbu93Pn3K3zS3BqtXA7yXwT5Aid3J+J
y1B9iXBzj8IWWAxtsNmN/AVh0RZw4dqGaNvJQZraVUi9SftDme0fkBrwufjQ
OlSZHuJ2Ft8BAjmh+SdpC7pHGSxmaMhQ03Gxe8/hf8Dou64l7UmGpgQ25QIt
MvQLMa18y0SOWeYehto3ybFXxm9n/i05Cqx2pmlmU6DLggxjtiYFhkXcU6ik
2IOC0WZppsMUuPfA1MlBKypkcbgpz/KaEr+k6F+Uq6VGb1JTXsKBPWgpNOrt
+48GZWypv/TN7EEHq/tms9J0KNRD5naUlQo7yNyeKVvT4SnNHXpmNSr8EFqW
bxNNhy8imWtE/qPC63JKfDe/06HY6vLUc1cqvKduGyVPS48+sTLRiilUePyF
zu8QLXp0CRBtJjRRYZLyRJLnHXq8Qx3ye56HGrVMoqkzv9Hj1DGFw7W21Bhx
DAN6ZRgwkXtv5etCatwSMZs2c2ZAv7c3CIepaFDd1F3CoY4BG28NnSw/Q4NM
T4/IutAyov2q3XvhMho80mfPxXWUEdfdHn48L0KL0bKc99KeMWKCQY2lojct
3pWJNL+VwIhc6U9Yr8zTolX3g4N9+Yw4nBHZWXR2dx+v/Gzf7fK/+0Hqk+V0
qKIDHsPxjDi7WLclcZYevYQ9n1VdZcS/zTGajTP0SG2s8zeAjhElPgWLC7sx
IGHYqvvMSwZcf+yb4cLGiFVtHLoUc/R4febcA0lPRgx2HZx8ZkGP/PWDLKRV
RnTM3Hx6eLfPlP0zf2cbJrz8TDVrnI0Os2lpuZu+MaG5zL4fvy1pMUUWPCg1
9iJvWqJobgoNshW5pzO93YvhV5ydHCap0Zw4tOHOyIziv20ER1mo0TP34aW2
B8x4oGbQXpVEhUPy69Eb/cxYVDKn4WG1B2dODE95CrHgmZtLl3wDKNGPHawD
TVmwUsWzO6mSAu1Sml6kPmFBUof5YN8aOTYsp4peyWHB/i8hRYd3dXiImjR8
Y4QFGWOWPk3KkuH5lOHrw6ysSGQWUvfJ+QdxDN8Mf+uw4lAn1/yC4DaYriaw
Jl1nxbIShROtSZsQz82epR7Mil4fUyV8D25ARP/SQk0xK6ZeNwWj5TUg2/NZ
4vEcK74duq3yRHYVqvtWk62F2bDtRu5LyVd/weZ9LtNPUzY8K+ZB78qzDMs8
4K/txIZ7pTcUWmuWQEI7WOtrAhvub5yYDwhchH9LBvE19Ww4Uyvv6PJoAQ5Y
yR+/McOG7qL2N479mQO7gLjQJSZ2vGzrslAhOgv5ondcL6uzY3zpdR/W9Sm4
cbZQp+UCO8rGvpd8yjgJN1xW+n3c2HFf57rHp9O/IMCXVXQwgR1no3+1tTWM
w8fRJm36Kna8KM+VVHZtDPgKH6vp/WTHvUxX5q5Ij8L5E3SCFRvsyOJoc+UB
7QhsTjhzJXBwYNddK3FNimFQ8a1ITznEgcMniu6bOg+CWGuc7dItDrRIbx6n
8eqDQu3DsrohHLiQy6OzStkDk/onaeQ+cOCeUOrb4QOdMDH+TlSuiwP3ld8X
iKLoAKIQ6VzK8m69vpCglzY/wGqWxDDNzInU722D2zfb4CxtWB9Ic+LFmsFY
lvJvkN+8aD2InPiXg9aBXK8VeueqrFbPcuKxjQoKS5NmOHPsl0XBDU4MWCGu
H3vZCKIC+cbiLzgx4emSHXXQV3g1N2n2M4oT2/ToKIZ+1EGbio45Tw4nQmI0
8wnDL3BjJUlzo5oT92YejUudrIFYZ48X6Z2cyPpvJD8uqxr+6Li66/3mxJCY
/mSe11VgmrFPdXKNE8erpfa0Bn8GX89hine0XBgewZ9GyqiE+oh9qpKCXBhh
QBUWsP4JHof+spIkcuHdCpfWM78+gv4XE5qew1yoURdsTMZWBu7l4aHWZ7nw
9GBtmpB9CfBrBLeO23Lho5cWCmwbH+C06eNepwdcOCYfuxmdXgQqTwzZND24
0E1+VjTqcSEU39DJVX/NhQtT2yH1NgUQLXfZ63QKF1rPmlEqk+VDgZnbx/3F
XCiqT7tQUZsLjU/+pozWc6GERH6+bXYODL1NcI3p5sKDogObrHey4buDUPTd
X1x4viClSTP/PTAMFR91+suFFjyN5cNi70Dq2O+0BgpuXIu49t9CaQYcZnjA
eo+ZGzsqC2rNHdNhIfJmDp0IN5onbcNATSpcPfa83kWJG088YyqvNEqBT5r2
kX+RG3//9k2/spUEOoL5Qy+PceMdq79O098Tof/z96WzF7hxU+QOeUt9AoRT
VQfftuPGUH8uKv+eeFCtGo8YfcCNdj1iRx6Sx8PVDaoHtc+5MfvG5o6zdhwc
qJK1efiaGyub4wh3772FyPECf6lEbtw/YvRv5X0M5B3d2fM3lxt599Vdm+OP
hjMqsd3rFbvrr0TtnyyOBK8cSbajzdyY/FiXUvRJBGwePuX8r4cbu49cUOe9
GA7WLaSDIhPcKNJ9Zd+JC2HQmM5kVrXIjcfiVvuZ7odCTPn9fccpePCH8avz
VRgCR/79UV9n5cHk4E13IZXXYKP9yKVXmAfXNwK3wgyCgTz4GwejAg/+q1ez
WX8UBGvnvRwStHhw60/CfeHPgdDoE8KdbciDBZt7GXIFAkFGs5r34Fke9GGO
d+jjfgWzV4YibC7zoErZ9Jo0ewAsloq9WnPkQe2mBduij35wM47Vo+UFD/Ko
p2sERvqCa+qjHMpQHhTcTh1siH8JF32rOHOSdvs77FMjtfqApfWW/e98Hrwm
tNW2tZufdF9L/v5UxYNOxQJkh7y8YaFaOuxQGw+ynzNkoWTwBt376usvfvKg
HT15ZG+yFxSKRDFULPPgcHME03MVLxjgcvqQQrcPD2SXf3KZ382XTBIdlwX3
4WcfuSah3Xxsn+oawKO8D+dvf043H/YE0i3m1hn9fbj3dpHme24v4B1kyaK6
sA8Nsoc/Kz/2grWhmGVfh31Y4Fic10bnDWoawRPvvPehn2i6dWSrN9SHTi75
p+1D+mA2DVeDlzC0v2xfQsM+5MtkCCBa+MEJ0reN3F/7kEutMZAUEgCzrV0P
9Gl4Mc9gNNipMhDGaYQ+6oryYqiuh0fBgWB48ekBXwfwYlXCw5m7wiGg6XF/
LtOcF7UprR0yaMPg6Li5r9gDXhzYY7WwdDsCMs65SCW/4sX1D14HLX9GwZKP
GMVgJi/6z7eWcky/gQ4WAm9KLS/KraUb93nEgdp/GueMR3jReW/yUf1HCaAm
B3QlW7zok2sN8k5JUEhfQiLy8qHVyL37l9dTIEovVPiBKh+6Glnvv+ubDlRT
lgeXT/HhjXx9PsnydxD5k+2XvD0f6s2PKBlT5MCbj6dMv73iQ2tFsds0DHng
7hdnTHjPh3uuC1WsCRfACXxax97Ch1xWzEfFiorAxFch8eMMH84OOVPkW5SA
vut8ozQzP/asfsrVT/wIhy/TZ11W4Memn79i58kqQe1a+VD4KX4M6Hxnu8JR
BZr6A1o1T/kxq+FKwvG8GvBg1MlsiefHgXtlqUpGdbBEXkZb1siP+QJOzVXu
DZC68/Zx1iI/Ptr5RBQtagYqqQMZt/gFkLlAok/w+zewjLf0PXdYAKUoqKzT
274DTdZ0gdpdAbyUMUOTotsB8hOP7iolCaC2/omYL0bdcFWT/2b7oAA+wT7Z
H8L98Pv+95VpNkFUSsyYkOz7CUlMinzapoJ4jef3g3taI6DvUNJX7SGIS+bh
8W9ej8HSYo77hxpBzJR2Vrlu/wuqFfJVWhmF8EHXuR3OrSlQrij6dfSSEDZ5
U3RT3JmHfFJpqUKVEJqc7cpofbkEEXaXrb8xCKPN5vNXP+X+wpELPt0NWsJI
X+Li/O7CGgS7J3+ztxFGmku+qcICmyDwUcj+Y7AwCnXFqLTCP+hTeL63v1QY
BU8WGt3yIkPxmMXQwglhpJRNVQ9npsBM59d54VwiyDsoN/m0gBLLLUXKPhuJ
oJ/EmXMfblEhc0ijw1l3EaTaOkmYkqVByhIOKYVXIugsKbxwwoMGdZ+YeqhE
i+DXzb35s/00mCuky22bKoKbBXX7PZVpkcVbw7g6XwRTvY2dhnd9qhbdH3vj
ShEck/lyrLqfFt0bpEu2m0SwsqdLeVaeDpfDbFR6ekTwr8FQk+AzOqyk5L1E
syyC8xN3rgfy0GPTzTPdjXtFcYrpzc/tFHp8enmPBa+MKI7pN9oZEhhQVijL
Z0xPFJ+/OtJzOYoBDRsyVvZdFsWwyCCb85sMGLi9Yp7mIoqpbo1G9wwZMVy3
tOFJtCjKWSjXH3BnRKbh3CmTDlHsk1Sg+lTIiGeLycZlmcWwWILj0cSrXT8d
3XvnoKYYQqOb3YQmI+6MHI/LuyKGh+t4/dVLGPCa/bUADNhdPz1rJMTCgJbE
GGJBkRh2Kb7RpThCj76zvCVDA2KoZM3T3W5FhwaCgguJlOKo10IRGGpHixls
XeQTUuKY/ItDa8iWBof16czlTMXRo/yg7xGkRqVKhpYXDuJIW/ra8S4PFYae
k6KfDxHHvMAln6/LlPhMoy71QaE4njG4TbjSQ4EHmFW4ZNvFcU/5oqvUV3J0
EKqrFlsUR4Ulvqn1WjJUOVIddY9RAv/L1bb9Fb8DTeYJenuUJfAyrwSzzuIW
0FhYnDtxVgLV1R/F33XfgJM7q3uzH0ggWRlrPPeZNWAdKFO/ESKB7//TidC2
WgE1qwPdTdkSqKfz586ZhGW4L/2rlf2rBAooMonXsv2BiOBVssdDEljSUtis
/n4RJAK+18qvSKDiparTX24uQMQYr48VvSQaiZSW7o2ag5ukv1dJApIYu4/C
XSRkBmjLm0LTNSWxgqlWPiZwEgSMP/tvHpNEw6cMiznPfsGYiKTGW2tJrMxb
blTPHodcdeEjtfclcWhR4Nk1zjFwzL8XG+MpiafzyxRkMkbASE+oxjBMEu1N
toxqbYfBdul7/0ySJF5fpLiaoDcEWofSVjwLJDGtou4Ui84gmHbc7mCslsR2
m+eXs4n94NvdUBnzTRLrPe9+irDsBVKFRt7xAUn8RBs69utjNyQtXmSCSUnk
ed9Kz3C4C0JKytSfLEviupX52vP5DkhsPMnBtSOJixymMdml7YBTK2RPmKSQ
z6DyWKvMD2C/m2zSxiuFPI3R6g2NbRD9RPGEhpQUponf1a4K/QYDSk76LUQp
jArPJKve0wp/8nyMU7WlEOgJM3v2NUPTwjnebn0pNIQfVX2WjfDsIe27uyek
UI1sf9mJ71/huaKo2O0LUrt5Itd8Y70OdOjUtkKuSeExNdfoIfMvMDqoyrHj
IIWLQSHy7Lt+Nt+n6Nrnp1LIRc6adiGuGkIYVDtmPaRwLfIpz9jjKlBwpU55
HSCFbjp0G132n4GSZ4yhMkwK784kpYFbJTzpp6K2jpfC5V9Ka425nyCXn1X0
aKYUvjmySc2W9hFa1SkEggqk8BAXZ+NITylsqWcdOVwuhfd0BDvYdErAloVN
9n6tFMpvN+uqNH8AbYsWXqVmKeS+N5Gt7FYEd29se7m3S2HQZXn5vWcK4S7B
TEB6UAprDNiUNwfyoUf7YIf0Lyn82NB/VDQkD8zahbgj56VQV2buj7h9Lmjw
LhK9VqXw4DXZXKGbOUCdLLVNviOFBxytxROos2FK/8YRTmoCdn1LM86xfg9s
bH2kRkYCcnFpJtBMZsJE5nbkR04Cnk5tuVDMkAEajF1B+wQJmPnO4vrza2lA
23Cr8o8EAQtZlCJ//E2BFxVP5s3lCGiac3uJ8V0y3HhwKdFMhYCX6a+GMHgk
wR65HZ8NTQIe33FNbHuSCCPGld8MDhIwIDttTs8vAUqLjnh8MSRgi73+8ysW
8dCebhRQfoKAn/UG+yhOxsFJw0RRHXMCfonX/fS1+S1k6et1nblEwDNjkpEK
sm9g/7SNFMtVAgrE/lbU+xAN4TlK/Q9uEXBxeGAj/FoU8N1ftwh2JKAN96PK
n5qR8J8NT/bIEwIeonxhEFMaDqUfcheK3QmYUnZrie5GGAhWOemI+xJQJOD2
Y5rDofDrsjwoBRPw5qFLYZIQAjEj15KmIggYmlP4/OC51zB81MnPPHZ3/ur8
RTnvYBAIbmr2SCagk4xb4ouWILirkDhFm0XAbNt1cBsJhEH2+sPCRQR8KRpK
l8QVCMHvZ4/2lhNQXM6Z41hjANxZIUodqiUg3euB4aYwf6grPClp00TA9AUf
IWkfPwgtopA2/EFANSOGaO43vpCgNDm80kNAt3+GfSYtL0HJhfLGuVECHkxj
OMS061/nnU+a2cwQ8L1ubEX/tjcE1wxMKPzdPT/bkH/nT3uDG3nDuZptAm6c
IuZ8aPaCjFmT2/LU0qi2dHvQzNYL9lXe//5orzTuK3JVjOHzAtW2Y1bvuaTR
jcnuT+a0J3hCY/Ij0V12MeP/3/8gvd4lej15aczwMRdiWfCEVrKaVTlNafxr
9LE2QtcLwqQqDx4/Io33ph7pnW/1Al1259LGk9KI3C3rP954Q1/BeeFaS2k0
0Yed9hIfaKDW/3ztljR+2u9074CqL+yPtzw290Qav+uwsC3L+MPXBv36t77S
aNYTk6hT8wrETN50fImQRnvGN3uW5YNAXTjpBW+qNDbc3hBK6QyGo+LZFr75
0nhWU8yQ6lkI/JLaGCB8lkYtVRE29qAwmIkLZ7dulkbOruZ/Pu8igNvbsaq9
Vxq9p6dZ1gyiwT+3q0/glzRG7/9rfmnlDZw5l+WStSyNOo0Dz/5LiAN5PT0p
CXIZdMtsTW09lQD3sw85/9krg+UVCax115Og38eSIZNPBvn1BGwu+aYAd/vo
za/SMvjJ8cXqinQ6fCg1bO9Qk8GIWZX12M5M8GPz1jfTk8H1ZU03PcFssFTP
nko/I4Mend40dDG5EPHqb0WXtQx+YXuY5xWSD/GPfVVyHWVwYEEQjpEXgcNO
b9aymwyGLKw0WdoWw6+PGlw9QTKYadjnWHaiDK7ocRp/SpTBUM95SeHFTxDG
1mn1Ol8G1W957e/R/Ay8s+tNxrUyKG4TLdttVQ2MVQJ2Dh0ySPL8cuaaRy2U
+yaqP/i1W39k/3KcQD2oGrpFft6UQUVL2RLX441wL8u8fotpP/YXPyWlObTA
023Voqui+7H0JPUha5E22G58unVUdT9y7+eoWqD/ATPndY1tjPajrJjtvUHz
DqiIfCUmc3k/ahr+vXJLrht0ns1P0Tzaj4GnNU3t/vUCx/V4Yf/A/XjqANtX
7auDwMPYF2j6bj/aK9HbqxkPgz2n2quu2v3ofUvJWMdyFPT0aq8EjexHYfk9
93JGxuHbcBOTHKUs2nj2OTKv/IabRY4egQRZTAnVc7WunYEjI5deTp6SxZ9U
pbHCXxbgTYLaxS+estjP1bnM1PwHHt1kSEnNk8VnUVQtvSEroLJiQZT6KIv5
zHDKSXkVZNRV6iZrZbHIhCVso2sVnP6RDS22yqLR1ZB2v+drYBdhxaDbK4sv
uv6esFJeh1cvNqf7x2RxNpYjNGVqHcSE1dVr52Ux1v5IjHfaBmwYH9XwoZbD
W2k7K5WkLcjNq9tKEpTDaINCDfbxbfAfD+JXJMnhKaNlAk/WDihCgIPuKTm8
uveF/shXMvRnuHH/zx05zPqXyh/SQI7MJzvPmwfIYctjnXXmbgo0qbq37JUl
h95P36m5LFDi/D3H3pahXb7+alw1nAobHZ89EuCWRyotC5fRgzTYe+BO9NUT
8kh4d5ndb4AWjd2oSDdfyaONbm5SwQl61HbKks34tns/RtPo1nMGbEqMvWLB
oYBctYyqFqcZsXmrOM/NXAFr23TcpfMYkT42TNc/QAEv3RJ9UZ3EiIfMt7cO
VCugwXeeJydMGVEmP9uMYVUByZfgglkBA9qyKRpWcygiW1fkBfEheswTJphK
yu3yO7H99gN06M58JMznsCLaUKV1/i6mRdmZPXE/zisiM6t0x4ALDV46Mlz+
944iXnJiDDLRpEZosA+fclfER/3dlhbLezDINtqsIEwRr+kFRRJ28wXh6/Ge
82mKGMtGyh92oUC9whnetVJFtJaOVNZSJse5gu96R5oUUSuHOb90fQe6nDJO
W/Qr4is/bU620m3oEV6aOTGtiMmKI7YZqZsQNb96XmddEe1l/POEP69DcNS7
GXVqpd38PGgnuGcNXPmOBp1iU0L3oKLW+lsrkMXyPj1JQAkbmUYimTaXweuJ
iuJ+WSX0fstOKJD7A/TJ2wsPNZRQ44qhjUD4Iqg6P5nO1lPCev+hci7FBfBz
21L+c1wJo+rtyFzGZiHuIZX/hf+UcFPQt2dvzjQo0tNvUtsoYUPN1fdGJZNQ
l7fXeM9tJTyYGPV9Y/UXWPSG+lx9oITOqYOxvDYTwJ10LnftuRIO/s4acZIa
Ay3JXMkTAbvPH9Mv/I4j4P+v7GBshBIa/v0y8zpuCFqvLmTTJiihrdOXwBTH
QRi4/O/0uwwl/Odsq/l9Tz8ILviUJOYp4czEsuvrsR4ojcsT21OqhF9lPwqy
UHeD3ka5VcdnJVyJemhsLNEJT/1Ulfd+VcIWpcJT3a7tYOOARz+3KmFq4l2j
5r0/YKhc+sK/DiVkN9lLpVbXBtZXi9O+9ynh1tmQlwmJ3yDO6sUjw+Fd9t/J
TtRuBU+Ow49uTuzO33JGc/RaM5xIvSVCNquE2seXE5PlG4Ga7ngW9x8lPBN+
XS7/wFcYJb4/UrWmhKTgQ5HKL+rAts0wmvGfEt629B3O/1cLY1Eq1uSURHSV
ti4JS6wBad29H9NpiGi+kXov42Y1cIVs32NiJGKx1vae3tNVcLHziFADKxFr
85W8FtcroZr1ipYANxHDjzByT4ZUgMdgag47PxET3a6/VnEpB1G9Td1iYSIu
0/jdJyaVQciPVToOCSL+Lg7dCNsuAeYw3Qp5aSISjjg6dj0vBqUgfjJmOSJK
r7by1Ml9gLw3jkfViERUpcqucHEthJhohxkydSI+kFhdNKArANqLQrpOB4hI
ziZjvPYpD8bCjJoygYh29z53GkblgnrqBZ83h4gYSlLJuBWaAw/IHXXP6hPR
0npa6dK5bGj+70BtnxERX9BHbTjmvYfisH73yGNEFEjOZHSKzoSg6buP9pwm
YrZLd8nT+nQoWhAdkzQjoqBzi3SbXBpkqOgep7MgYvMX65HDVSnAVX93Ms+S
iH6Nfy+6uSSD5P2wGmlrIh5JCuaPtkgClqE6dkdbIj7TX5aoOJcI9CwzcTN2
RNQ+GDz9nS4Bur3snvLdIeLm/T9G4xNxkGZWT0XnSMTjQZk91K2xQP5nm7r8
ARG5XuqNpDC8hTVaXzodJyK+vH664D+nGPhT7R8W5EzEG5eYf6SyR8PLW1+v
fnQlIj9z6eF7bZHwOdHfbJ8HEX0l6wuklCOg5vfrEaIPEXv5npmFNoaB8Ipe
Eas/Ef+S+bWoBYVChUY7fXkgERVIjFfDn4aAxNDpOc0QIl69fCKu2es1cFmO
uwWGEzHstoY4X1YwCB7wkKqKIqKNheW51OkgqF0rlSPFElF34lwE01IgBKbx
rTkkEpEvvHd9nC8QyJnONjqlErGgk47y0JcAKJ+S9z+bSUQaonYfm6c/MNvW
sjBmE1Eikca25Y4fBMYUH4vL2+3/wFjSz9kX5G6VhXIXEfHheKONX8ZL6Opj
NaYpI+Iro5Tt20k+0JZw8UJDBRE/KNgquH3b9W/p7MHXa4jIvdHvFivlDU84
SS9m6onoFN6V9yxp1z/mfFsyb97V25j14UOHvCDxwL5/H9p29Q9JTnLkXjDO
YWTO2ElEE1k7PYd+Tzh6qZbfsn9X7+mCX5t7POH4u2f+JSNE1O9+2Ujg8IL8
SdVF2Ukimmm/zxkO8ILnkEfVNE/EC/rtV8+e8Aa244LwboWI8rL6vTtXfSCe
odzx1zYRDbStOFwnXsJ7Zm2Tt1TKOONQMGky7Qf0hacFtpiUEauvHbNKeQUX
JrfyqDmVkbFdaKFMLQgEy4LOfOJXxh2TkmpHytcA/I0CdmLKqFPG+MHiRwgQ
G8jsamWU8YHfs+NPhMMh42ry6VNKyqh3a/Gu5KNIOHjtgkg4SRm5for+6LCL
AcqePUlyoIyRby5kS9nHwvYzDUn3I8poEu3wJCMmHi4Xef9UNVFGXSpdOkX/
RHj89Y9I7mllnBcSoildT4b+++29fv8pY6kX8fyje2lAn/v8qqa1MiaseWrk
+mYCxT6dk8Z2u8+zyVvHFGTBh+a3AeoOykgufUJc8UQuyE5W+7x8rIzMvPeW
35/Kh8uUahzVbspo913kTVNbIbjXrfvY+CjjS8m2URfLYmjwPz6xFqSMz+z2
zJ3zLgMxec2/a5HKOO3g0K715RPUGFbErCQoowx1gpG59WdgUB5/qPheGdXs
xwnWv6th2CzhpkyRMioE/eOyNvsCpjYveY9WKmOObcCbTYuv8M7dbq/HV2X8
vB1QwH+xCeYFPTdHfiijq+e1VHvqb2BQGqmS+VMZn1flLd0/+R2K3gdmG0wp
Y3LX17Opoe1gMBPmrLeijLkPeBbGL3TBo3g+2tvkKnjwU0ZWk1wvRKvMW20z
qSBNucon9egB4NDcc06PXwWDG0JlDWaGoET6jVuytAqGf/xE1GYfhf/m7JIb
SSr4REG0ZF/hODy5XtoibKSCIR0yoiZrvyGHQ+2HwkUV3Ot3lHaZdRZmDpip
591XwbRwE+NsiUVwT+JxiA/arfeBf/av+zJk3HxrNJqmgklG31Ut3FaBLf1U
6NwuO3Xxnet+vgoeHyuG1ndZk7uQ7syLVbhSNCJLla6CYkkn+9s8VoEl5eNj
ll2uHltpMfVahZkokzq+Xf6kkzTc6L0Kb3IHrIm77C1FfeyL7yr8sDSiNNxl
uqi3Wp8DVqFCOCTZcpfZDZ5nfAxahcbbFlG6GSrY8aAoNCN7FerdQ7MlM1WQ
k7V6oaF5FeRVxX4xvFPBz4zfqQRnVuE1YU53aZcZGRiFkujXoORshQmxSAW3
7F3TOfXXYUOXg2K2QgUlXUdGkyM24IMZm7NMgwqCbsOoCdkWdFacU/zTroJr
51P7u1y2wTJWvvnYkAr6Pk/1qePYgTL9iKtdcyqoc2FgYj2ADGWWg9+c/Lc7
/zE3bZ0kcsyP/MDwba8qPp2Mtlipp0Bg0q+wEFZFS69v6d0blMgtosFPqayK
5wSvah1So8KFpAWPr0dUUTQzuGzlPjX+iYsrrbisim5qDzNUeGhxr8+Vz29d
VRHvUNDMxdKh2DK9+Xq4KhopfGhtTqBHjSc6O9I5qpgnlBCp5MyA1Hz/edJ8
VcXrZE0KYuKMuD+pLsdyRBXtcEb7VgAj/oxNw/VNVbQ4fEa/tZARY5+EModz
quFXtgOaY+GM6Nh6rHBTXg0vHdo/6KLGiKKKhaRZfTUs/XNMzjqcAQ/tuaBD
uqSGa6edVu9U06OF5S3jvIdqqDE8UmZfS4c/VuNnNQPU0POhY9tAGi3CT9aO
skQ1zKF6xlv3iAY7lkO5CcW79U/k/2AEavwQpTbp1KiGm2vOB+YpqbCl4SR7
0YAaqueE7Uw2U+Kx9wY2Q3NqyPHCMelLPAWKBV++v0qujvLTQVxMpuR4LWp1
NIddHSWtjnGRWMgwxI1yUFxcHQ/xC4w/+LEN9AaCljeV1ZE6o6feqXAT7LRe
7407qI6CpZ+CWWt39WD1z6PLVB0fqCrf/bKzm4cu4QThP3V8r/xWLvTyCmw4
8yem2apjUEGdvs7UMtQXXHK8flcd2zsiepxf/4G2hlByLnd15BCoIfO/vwj3
NL49mvJXx/HH5Cq16gtAf+Gx5Ha4Ou6c/iqtozoHSenKH63i1fHTTSOTEyoz
4DGk7i+doY6jpw+yddtMgWOAXJd1njpWPRzoqav+Dc4fRab4PqpjVEpo5OXJ
CdhqoH0vUKuOZk61QT2Hx4GzSdDDuVkdCXvzFp+3jIJi1PmFox3quEauIPb3
2QhYnaGji+5XR10mm/bmU8Ng4dc1dm9UHQd+svu46w2Bsdwj455pdZQup2E9
yTYIE4lzNm//qKPJf3OZJuN9oEdGM9S5oY5HCl9/013rgbrQ6sBgchKaO07O
xh/shv5fWpuDNCS8PXZq9VVJJ/jsaH2oYyLhQYJNTcBuPr7A41p7lp2EToVa
cer87TC1nXJSlI+EdONnhy/c/w7Ug51upqIkFH+azZpD3QZMoqbb8wQSvrZe
U//k1wqdOwa/uBVI6H2urNfcvBkORDSGtKuQkLP4GkePbSP8biLjJ2qS8Lxp
RaZB5lcIoBz9rAkk5F0T/RYkWA+/OGZkY/VImCNu91Hj4BdIVRGL8zYmoYO0
/3mz+Bo42aIVQH2ChEp2eiyXVaqhtt/mu8RZEn4t+MNFtvQZtP4+Ii2eJ6Gq
M3OI149K4BB5MXbXkoQaG+TH9qdWQCB9fEK29e588ebtvn3lcIR5ruzMdRKm
PfU/YhpRBj3llo5Bt0nYGXm0USSuBFjeKWnYO5Lw+WBW/Nr4B5g/oKe6/ZCE
g1PMxv6WRSBhyv/54FMSChjYkOftKYR3h+lq9FxJeHEilqetJR+2SQPrzC9I
OB/cN/SqOA/OZ/nsyPrs1lf2jtI8mwtJjIVqM/4k9I8qKZcUzYGRNCF/82AS
suUNWFsTsmC26r8xlzASTojYla8YvwP51UrXK1EkbDuspTiZlAEpk90WrG9J
KPufkBbf/nSQq2O47htPQu7RQeqVrlSwV6C7Y5xCwmbN79Oy4inAeIjO+UPG
bn9z4c3h9CTYdkyx6M0i4dR3V8uBi4mQ//Db2sc8EtLe6+0WP5AAnBM3amyL
SHhpTGPxGikeqqtFaAZLSEiUyTobcyIOWP5WcRPKd89DxbX2OFUsWJN3niv4
TMLEo3ZOUnMxkLDUurZcS0Kq0yq3RgWj4ZZR+NCfr7v7WZh1TnoZCRNO85ol
zSS8UR7nZSsVAS6hdj3GbSQs+BHtc2g2DKi5Zp1y20nYsXBcfLYjFNTze8jn
u0g4Y1/IeLQ/BBrkXms97ifhqYJb7qMRr2FeK2xf5RAJpdYEF6efB4NkQWhv
09iu/m7ZbxgGB8FHGkvJ1N8krA1KIRVVBkKqk631mRkS5iX990qXbpczmTb7
50n4s/xZCM23AOC/+NRP9w8Jv1w1qk3N94eMGKYLvGsk7LW/VUc08AM+K8Go
0i0S7sjd4B3k8QXSpeMOsuQaOPHsVWox30vIGjbajcQamO7gbkA09IGq4ylV
CXQaOGPaK/ws2hvu/B18k8+kgc0LAaMye3f95TWaY9msGshz6qt70xsvGKqY
O+bBrYHCRTMHHkh6Qd6gyrYZnwYmtGU/aFn2hLd5fsaSQhoYnrLO83rXz/4f
koyttQ==
                    "]}, {Automatic}]}}]], 1], -0.1, 1, 1, 1, 0] Cos[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 280.}}, {
                    3, 11, 1, {760}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwtmAk0FW/8/0l2hZSUr0QLFRIt9vuea4nIlpS5tjDXEnMvlSjKUtq1qCQi
VFQSLUKWlLSQSCVLlhIhKiJF/Of3//3mnDmveWae8/68P+/nOWfmjIoXz5Ga
JiAgIMicY/9z8X9HXeb6cdPRaNb/8jSrsZpNWIYXsNwamyr2G1SyRF6Myd1V
ecNyvTZ9/dKlzaxmQqzUZk4na4taU6O6fyfrndSNoemlnaxNQ3tmdMp8YtU3
WquX+nxi2Zb+Z5pU+Im14XBZmIPnZ5b5Js9ccbEuFrFgWlfF7S7WbCmniWGj
ftbwhKOE3JcfrNbhvfI5K36xqvquqJqH/Ga9yP/QfEFmGrQH3RdL+4mhq/5i
ec7xGaght2te3SqLazbi48N9cogyyXrOjpRH7WndtS9C50HxS3mmHf8/+OvZ
yL73V0aLeSArd5UKYng6ocG5qlC5JhtamLUYj1p/7Jq6vBQecnW7LC6qY9Lq
9q4TCcuREhW/6+1xDRg+CNqlGKeFgdBrBvksbRjNOl/sZLQKnu4Xuc9EdHDg
Ruosg3odZI9mlOUk66KanRWgzF0Nv7EkZyfJNZiee5x9JG8N0r33a5VtXguT
eSHzh/+uxat2JVfpmHVwvfbi0gpxPfQH7mpff0oPe3RVVHzm6mPbtctF0+L0
YTlvoWP6L31oHU/rY3kbYM7Ugti2egNof9cuOKFhCOt2dq/RIUNQr53++9Zp
iKhyrl2ykRE+CDrKyR4ygraZcWNcvREOx6knTygao/O5nEcI1xjOsn2JdzON
Ue3yqO5XhzGIjPPiaxeYoKAvkL2bY4Koxx76YydMsOGio3b4IxPMDjFX+ztk
gjYrvQV7l7AwaucRYmDHwgznuKo/YSwscb01vyiDBWOvt3RYDQsGYhE2c76z
8F+j7JwmMUDxxpdYtfnA/MiioV0rAOVHkyqt+sBiITMHtiWwzOJIVLYzoHWk
9vZMCtCpkWvfuQPQnkfzf+xj7nOfCwYeBTTuqib0nGPmC0Qu9k4H1DY23m/L
Af64Vu2UKwCqA+/rWpYDlyKuDEU8B+jjCfn59QBSYvjdzUDekU+fPD4x9Xez
Nzf1AvE+Gc8cfwKTDtMMasaAIJZXjrkAAevL6uOhIgTUBb9bZUsREPG6f6Fp
FoGux3t7JOYRqFjEXmukTCDtgNjBoCUEIr/UNqSuIEBanFOtW0VAL4sTLKhH
QFrrXNsGEwI992qtz5oRONdhYpZlRcBM6rZRsS2B4XXKa15tIpDhfVKzYyuB
7pJ3dd2uBJbL/7dzwJMAzfOa+8uHwJ3n2cV//QiMqHx3EwwioL93jaBYMFP3
7d4rM3cRuO8f7XQ9jMC3ybjpZhEE3AtU4icYvg4qmXs/kgCxZEt60D5Gp/Xn
8qX7CSw6e/xeG8Nz1momiVEEwopdHcRiCHCWnfEJjyVgcuHZ7r4DBFRE/x3l
xBGYHqqTWnOIgOSsubZJRwjMyh3/Rx0jMH9Dxy2dE8y87kq3qXgmr5jrM2pO
EdBeEF964QyBzPurH5qeIzBnY0vhYCKBw13RBUkXCYzvVb9ndonJ65KpNj+N
QFGZe05yOgGFjnD1Z5kEdgueuzJ0lcB71byFC7IJrDarTrG6QaDBfplDWQ6B
ELdDwrq3CcgGfCnKyieQF2pK/3ePgF1suurpAgKDJ6feCxcRMNRJHhQrYeq+
XSsiVU7gXegbJenHTP/z6DWznhLgPxTfOOc5gVK3qz4K1QQkBIgIxVoC4g3f
a8+8ISB6LVVFopFZ//CNO6NbCAjbTFSNtRMQUr45j99FYNqQS2DPVwKCT8XK
3QcITCU+kH3/k8AJWude+W8mH/Nbztf/EchWVP9zRoiNtUMZyRHibDx5rmTC
lWbDIe1Ch90cNtp3ycXqK7IRaBO/ZJEKG5ItWifqNdi46f/61349NjaM8Vy1
zNjojZOpbLVj4/Cc/BXHOGyoXXFI0Pdl45nO0N+eEDa4FWe8zu9jQ9he96XZ
UTautDWsGj7HhmnQzqT0dDaSJJXWuOex8f3607r55WyYW9KBja/YSO6WFzvb
ysbPA+WZ9v1srF/kx5rxl41LFTItL8RMMexRFBo31xSxxxZM79cwxawHsaft
2KZI//R1wb0tptCeaZujEGSKcv27+pExprClFJ51Jpri46lIJ4tbpggq+dR5
47Ep1tubapR2mkK1KzP0tYAZ/u2eXtGpbIYPkpTkLxMz3El7ulnE3QwndJde
Vog0g9+zuL7lKWYw5fSsNn5ohtOuF/4I9Jqh3c2qrFLeHJoef2MOm5ljj+fN
9TYh5ni+zVVK5rI55L1n1De8MoePT9m5xHFz3KF4JGeZBSyizo/aB1mg+WLp
GYt8CwTd79IyGrGAYJ1k9Sr99TjXp+OrFrkey4RJIaWK9ShRjk6bJWwJe4Ns
QzErSyTVP9p3N9cSn/2aKtxnW0FDYGi6xB4r7EqUsLzfboUyrUXHPM03QKzK
sFby5gY4uDnJPpCxxsVfgU5eodb4+NKSFS5tg4Xpi5efyraB926BOVnERlzb
2DpV2rwRvYsK+97usIXG34R3/VJ24NfxHk27ZgeXhqvvjivb4+qi28uTE+zx
c0fh/uuiDjCprHj7YK8Djs6uXlb13QHvfd7ue+vtCNX7Hxs+NTqCFu5R/2m9
CcWbf0ROlW+C146ad5MeThA/na05OeWEAx+rGnn7NmNq2ZfozonN+G9iOfnE
wxl6tXydq4+d0StSaqAvuwUXWeKmrzy2YF/vG6FjaVuwLSGl0rJ9C/zzRQNe
yG0F/3WI9AbLrSj8plxcvWMrBCRe+WxM2wobmUOWm59sRaI8oeHWsxX+yaZ3
1IRdYLjQQm9I1QWi9Te2Jhq6oCFaOtzIyQWbt76vzPVzQaPWJRmVSBfEGfyt
WhbvgtUWWyJ10lzw2eGermGeC0ROWkU/LHXBspq2WsNqF+wt8Lo9470LXl3u
Ptne4QK+eqtVU68L5PLqhRqGXHB/3bPSmnEXbC0v2V01ncTPmp21JZIkjjZr
LLk7i8Sffa5/aQUSvouOv16+gMT7Zw+vdC8iYRbYH56xjMQdGUU795Ukrnnc
/H5Ll0RSruGpf+tIKLWoyqsZkkgXlUixNyFRuC17ZjNIvH5oEe1tSqJ7zpfh
b+YkJnix3FBLEnIvVZqmNpCwlm4pibYmEet09rKQDYnipI0HDjIcahPxE91I
YvniR9ZHGHr5h6+UtP2fejpyJxiK619tPmVHIuzJ3Iyz9iS+bjzqf8GBxJYP
E9opjiSeefHG0jaRWDvQWZ7pxPjd7XQoazOJ+edfueVsIRF/z2J1vguJmgdl
nms4JCQfrj1R5EpiQ1lukbE7icMVS7srPBidytRZFttICD+XZ730YnKojt9u
60Miz7skb5xi+p7oHcn2JXHk7FxDZ38SoxrmUULbGb9PQ57mBTL9u12WcKdJ
GI6+spPkMz7KfLISQ0jIHBqfXLSLxB67M855u0l8mbss12gPCbuOcuEXESSK
sp3dNu8nsTh44F5nNONX/4AUfYDEmKCiz984Rv9l/sO4IyTa6h5ofjpBIuiU
3pDraSZfu6KCxrPMekob7HW8QGLe62LWq2QS2fGG0y3TSKyzLXn+OIOEpkGc
a+k1Rn+p/Y8HN0gozpp/4E4uCdnJz3Nv3SEh1nfrZlYBial3u1kZxSRGKoiG
lDISd0WUv3pXkuBbT0wsf8nonGqSHXpNou9twdKidySy5p01jGoh4eMebL++
k4RKpi01s4fZF/Uej58MMmOBYOXwUWasFROhNcmM3RKaPgtzkH7sytqkGRws
LL6fYDuHg8tfq34IKXEQ0HWq6L4aB6s7yBhfHQ4mWxZbzzPm4HnjoFz1eg7O
NBS2RjhywHkdc1XLjYMl1TZ0hy8HZ3+UPGwP5UBIXlO8/SAHwYaXnNvOctDh
OePKx0wO7OIif7be4aDs5oBJawUHGvVux1vqONDMvf1avpvhMUE5x3GGfpuc
T8i4Qsv8atLzJQxVf7cKGTKcslzIsnfFytaL3nsoVxjbhEVXxrrCumRz2swM
V7ho6JZufeQK3xSZlow2V4RKDY59m3DFgYhq+XWKbjjzLXt1tL4bYtIe1gtS
bghxrKVjTrlhm3CnpFCJGxwKh7Nje9xAbBexmC7njlUL5n0+YOKOhfUrooQD
GL4Mju7IZvjkQczDHncol/yLPb/UA8r3TQ8GUwxzj8TZXGGY9fqQ2mcPSNcd
NROU9USLsc/2bBNPZN00PmMX6Ikd8+YWjSZ5gnXoR/ulZ56QHHkhYj7iiUav
TM1vqtuQWRfhlGC/DUXDTq/TzmxDnbzmhpy329CjL/y0UN4Lk64fWU+3emFO
1P3i+ote0Mg8saat1QvsKiqvb4E3XHqNV/z29AZfSv6aUKY3vCqX6gm/98am
iHUvRcR9YBhvjDOrfKB62bRAifSBQWqajM1eHzimjAfsSfHB3BsvM/498MHH
B0nNUQ0+oOe5TOf0+WBqj4LWGkEK/jbu5MrZFBqUrsQtU6MQNOKZ83MtBdFX
Sm+KLChkXGn+He1MQbMks7zYi0JhQ+ChYZqC+okbGa/CKCRZfC3NiqGY752l
TdHHKageqvI1O0tBf6bvqEgKhWntrB4yg8LL2wofcrMpJET9fD7tNoXJ1Zov
Ze8x9Xv9qhcWUQhUvW1nX0qBxxlp2F9BIeSs4dbbTylE638ZU3xB4VRbfNLh
GgppsXoGI6+ZefNmXSp/Q4F1u3/qyDsK0uZPvZw+UOhoTn26oIVCHj9Mvfcj
hSgRx2N3OyjYa8jfqfrEPNeVGND+TIFvOKmWzFDAdMhLuIvR39B9icdwoWPz
hyaGeS61cmZfKNT5FRxR6KbwfXfq1DeG0ofidlX0UFh5nu4/95WC3VXnbQG9
jJ97Jo0mfRROPlm6Ua6f8alHWVh9o3D7ViZr/wCFMtVPevcHKdQmLtTp/06h
TcpjhcpPCoPRlxZvGaLwb7RF6cQwhfp5HmXhvyhcNfrkzh2hEO5BTTmOUtgY
8zWN9ZuCytXt0BijMPJssEPhD4UXfcHRwn8ppMwYURliyNcOe9w2TsFs07hX
9QQFhdB9QoX/KPTbvp//ZJJCqZqWTu0U069AnFWTABfeTR89uwS5WHNnTdj3
aVyIHTtx8q8QFy3eX64JC3Nxy8i4TEaEi5N5q8NjRbkIXqyxelSMC8cLi777
SXCxWkrxRoskF/JRsyjbGVz8HhZfWDGTiyZfwRZdGS4etoyduybLxbH9s92m
z+bCdZH2Yi95LjSfWfeXK3DxL8D3jpIiF7UzY8P3KnGReicVTcpc8JyLRdep
cuH7rWH1wGIuPGIGtmWqcbFFQfSky3Iu7HMXlkhrcmFpZtD7dCUXaN4kH6HD
hR4/yFRnDePv550l/XpcBIaMiV4x4iJu2LjPFVxc3hlbM8eMi+KR57m167l4
Gzrz9CFrLgZ/b9oBOy5k3tnn73TiYtWdjd+zXbjYdHKD5kd3LnYFrt8u68NF
opXZdXN/LgqXEj3hNBfNQiZLcndwcXbC66DsXi5sRw592RnD5DiYY/7hCBdP
uuuvGp7mIrJ9VDjtAhfrPihyp13m4mcdqqgsJi+3VJ2pfC4m+sZTL5RwMS3M
RVLnGReiwg92V9dzMePM7C6fVi7klEPsJ7u5UMh5XZL4k4tXKoeODwj4IibR
xNVUxhdrZ4yuSFL2RX/MrfFBLV9cHvOpNjPxhRP9X/LFjb4Q72oI+OHqC8Xi
ojNWO3yhdSqtOOOILwjuwU/jab7YZLRdYnOBL7izHHRya3wR9nUtKfrZF8fK
/ovx/OOL+MG6F2rz/XB6wUHZ7wZ+OGur71LA8cOFfQOXIyP8kJyb/tXskh9S
2zZrS5X5IX2mRFhDmx8GM6eUNKX9YaA/8iSO5Y9DtX3+HTx/NHh3SBtc9sfC
P+/uJ9T5IzC+mjMgEICiRRWC61cFwDCnKn9ZWADKVtdskyoPAFFaL/tdeDue
mDdW1Ntsh0Vta/C9hO144fxJJbF5O6zbe+rDVQJR6zsQ7eoXCO8UMfPpaYH4
XbdILOddICRP7Be9JBCEhVYtIvErgtCSJ1K02DYI5xV0tj/kB2Fwz9iVkeNB
sPhY1rbyehBcD1s8sHkUhBDd2pP+jUEITGXVkX1B8BXPl7H5F4SNR5IDmqVo
rBaPq/T7j8ZQu8BV/WU08gv2HpRYSyNgv8mBTNBYbCkYa2RN4074u1IxJxq4
eX3srSuN2tZI3XSKhpWrz29+II3Klg0PsYOGmpq+d0UYjaMhapLsfTQGSufc
fRxLo5gI9VE9TCPu6fs5Mcdp/B1lGSw4RYOnft29OIHGZ5dZsc6JNC6W9f6y
v0jDYVEF1/oSDdHDFz6YX6ZR9o23AZk0djmsLzG4RmNFwQKtNdeZ8UDupk03
aczIO2flxPBKSARrM0OjNd5rnBm+/W21YgvD7cXaKlsZXmRNSpEMX1ZWj3EY
/rFK6nJjWB95eX4ww+z8LPsDDKO+5MYlMtw6r6DkBsMq5ckPATlMXkstRpbf
opGhES/bz1BG973mzVwa+/QXbNh+m4Z1UcrCTXk0FPQVfxvk0/hSmPRK9Q6T
n57CFYm7jG7h+T1DDDfqzXFovkdjkbRL5YwCGmNfUtYRD2g0WX3uW1LI5HVr
WapEEY1kWb7Dd4YRuwqmvy2m4dY08aDwIQ0TY9Ptl0poKKcfWRBTSkNAuK6e
W0aj00/+oHU5jcc1rnraj2hkamf2z66gceBsb+ofhj5jKx3bHtMwdw0VfvKE
xtJHJYVZlUzOi4UCjz+lUaAuGJ1SxczTnDqX84yGnM6/GyXPGb214+U1L2jm
vfPnbetLpi5+936rZvaB2cjkRA3jz2pYbkYtsy62P9WVXjM+l7hcFKln9PYN
KNu/oSH9IfpqUgMNv1XyKz6/ZfSO3sjTeE9DsctkbWgj07+Bq7hCE413p8Nb
i5pp3P16/janlcYp1r2Yfx9pBJ2v35zWTmPDwKA60UnDU5tzifuZxu4dz2SP
f6FxokA3Lr+H6fdP2t/3vTSKjKR4E/006vaHfVYZpNH9uGvL+h80iKghqQPD
NFKMBR4/GqUx+nfG7n9/mP1WqKhh8I9Gzq5lnaECPIjqrjt/V4gHrx9m1j9E
eGiy5MeTkjw4pCfXV0rz8PxP1eyVs3mA49CWJAUeCm8oJQsp8bBSyKotSIWH
LM5OlQ9LeGALVB9ZrMHDxysqQ3wdHsKswshSPR7kBmsfi7N4yD2zZIWzOQ9W
6yISMqx5+NLyZnzQgQeqo/TodA4P3V3Z8+b78ODbm5C9MoiHrwP71pmH8uA/
5F9F7uehb9RpM/8wDwHjrK6Dp3nYJpVQUZHKwxal7tR/N3mw1dKP0C/iwYx1
3GVXFQ+G9u1r8xt4WLVNZ/ZABw9qIQd/qg/yIMR/6VEjwMfw0jcWByT4+Pyx
SdNoNh9vznbO/qXEx2Pr3vGbanzcmfbzk/cqPtKLxl4oGvKxNftN7V4rPmYm
5jS0bOGj8mDcB0MuH3t3en5M3snHKm+DT+MxfHx1mN3DOc1HKgb7H6bxcU9u
+LnKfT6qu39fPfSSj86iiZiBdj7Gjgt6bhph9DxFjIskgrFEV3K+8sJgGIrI
/D6wJhi/vP/xIjcH42/+5IOygGD8/5/2UcH4f0RcrJA=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwd1QFHIAASBtBur0uSJEmSdEmSJEmSJEmSJEmSJEmSdEmSJEmSJEmSJEmS
JEmSJEmSJEmSJEmSJEnWXpJ7e8MzP+D7xvy74T8Vbf8ICAj476+A/8/fFUgQ
wYQQShjhRBBJFNHEEEsc8SSQSBLJpJBKGulkkEkW2eSQSx75FFBIEcWUUEoZ
5VRQSRXV1FBLHfU00EgTzbTQShvtdNBJF9300Esf/QwwyBDDjDDKGONMMMkU
08wwyxzzLLDIEsussMoa62ywyRbb7LDLHvsccMgRx5xwyhnnXHDJFdfccMsd
9zzwyBPPvPDKG+988Mlv/vDFNz8EKMIvAgkimBBCCSOcCCKJIpoYYokjngQS
SSKZFFJJI50MMskimxxyySOfAgopopgSSimjnAoqqaKaGmqpo54GGmmimRZa
+VvydjropItueuilj34GGGSIYUYYZYxxJphkimlmmGWOeRZYZIllVlhljXU2
2GSLbXbYZY99DjjkiGNOOOWMcy645IprbrjljnseeOSJZ1545Y13PvjkN3/4
4psf/h7/LwIJIpgQQgkjnAgiiSKaGGKJI54EEkkimRRSSSOdDDLJIpsccskj
nwIKKaKYEkopo5wKKqmimhpqqaOeBhppopkWWmmjnQ466aKbHnrpo58BBhli
mBFGGWOcCSaZYpoZZpljngUWWWKZFVZZY50NNtlimx122WOfAw454pgTTjnj
nAsuueKaG265454HHnnimRdeeeOdDz75zR+++OaHgH/Kn0CCCCaEUMIIJ4JI
oogmhljiiCeBRJJIJoVU0kgng0yyyCaHXPLIp4BCiiimhFLKKKeCSqqopoZa
6qingUaaaKaFVtpop4NOuuimh1766GeAQYYYZoRRxhhngkmmmGaGWeaYZ4FF
llhmhVXWWGeDTbbYZodd9tjngEOOOOaEU84454JLrrjmhlvuuOeBR5545oVX
3njng09+84cvvvnh7+P/RSBBBBNCKGGEE0EkUUQTQyxxxJNAIkkkk0IqaaST
QSZZZJNDLnnkU0AhRRRTQilllFNBJVVUU0MtddTTQCNNNNNCK22000EnXXTT
Qy999DPAIEMMM8IoY4wzwSRTTDPDLHPMs8AiSyyzwiprrLPBJltss8Mue+xz
wCFHHHPCKWecc8ElV1xzwy133PPAI08888Irb7zzwSe/+cMX3/wQ8C/5E0gQ
wYQQShjhRBBJFNHEEEsc8SSQSBLJpJBKGulkkEkW2eSQSx75FFBIEcWUUEoZ
5VRQSRXV1FBLHfU00EgTzbTQShvtdNBJF9300Esf/QwwyBDDjDDKGONMMMkU
08wwyxzzLLDIEsussMoa62ywyRbb7LDLHvsccMgRx5xwyhnnXHDJFdfccMsd
9zzwyBPPvPDKG+/8D9gcgFM=
                    "], CompressedData["
1:eJw9mXc4lu/7x41sskf29pD5WA/hPFOyol30UZKotERTEcnKCNmUvcsmI5ER
mSl7ZZc9ki0/339+93+v477u8zyv637fx/F+H7fI5TsnbcjJyMgWqMj+/2p9
fMfT/YcnhDymH2OJ2weftO2T/8eXnICHNU4aunwdKF7s8pbDh5hlmuPAm5Oe
9mqXs0pmLqz0WYBF8p/ujF0mD5rOhsHr4HB+YIK83RP6jz/adzHVAX5y9V55
uctf/+VU1Fg+ghgpovnhDk+g9WTwvtv1CIYe7i87s8tzk1rvBY89hoKMqrtX
d3kth0yp6ctjmJNZf/p4l4Wvs3E66TgBu+23ft9d/pcq9x+hyAmOfjMMervL
FeXpOR7JT8C1j2etZpens2Njx0KeghuDW+7MLv/gmVXVe+EM30cCyjk7PcHu
DUM36Y47PH3uS7ne5QmzsWQFFfzesLxNaL/U6wmqtZJa3xv84AWD9hOTAU+o
DyfrrP0YCJ3twmcqhjwhoNV49HFbJGQ+Fiym/uMJQia+lc8exsOrVwSXw0xe
0CJ20JhVPhmsNGNHPQleUCccSXV/Mg00+YtVDAy9gP8cz5HAjHdw3KJqPveO
F0jNd/dIaeTATl7r47/RXhBJe54281YebKTUJ1Z1esFz6jhL+rQCYAxdEObj
9YbqhpE2rski4FqyfuFk6w2ltxoz3yuVwJVrl8nufvSGyNBjFaXPy4Di6m++
FH4fSNcBkydJnyB0+p2s43sfOFTbPZo3UwkvafTiPp16CYT0VXHx4CrQzpna
5mLzBY7BghHxwzVA8XJ2f+S0LzDw5zI92/MFJj6rl7KP+cE3+1gz6KiDVg5u
V1WyADisRjtSU/wVlgj3tZv0XsHZFIUrHbmN8OtB7zDjxUD4fNLL2tisGfwe
/vJLoQ2CX1sTX1JZWiFFY8ThU30QtL8PI0bf/gbxHs3pc/HBEBHXevn0pTaQ
szSdyYp4DX23Td7JKHwH1kWduaYnIeBe9zM3j+YHTP02pmF3CgXCh+Iuvukf
wCi4SCYUEQbPX1yLbehthxiP5vepfeHwUGVElT29A4z8j9MwUUWCTLlWcYlb
JzCzXH+970QUbN88Nbhh0wX//FmffKiNhsNVav+MznUD+x63IDW7N2ApOHCq
XqoHlC5qt9ybeQspW+3PDCl7QdXamNvbJA7quz484J3uBYsZn7wmnXjITiqx
+jzUB5vFEV/zTRMgOUA/uaiwHw46ilE8M0iEtef7vMzCBiA1tVKp5GISdD90
rqF8MQgUs0dl1MOS4WDxOfKTrj/hLmp/nV1OAba6x1s/5YbAA19oWamnwY3k
DYMv8UOwd06uw/htOlgm33F4zT8MFzUk7nYpZMKc3OyoYOwwOO3/fjjqzztQ
XB4ap2QdAVpXus7Hr7Pgyjnns498RuCizTiBRSkHIuUuftOmG4XjNUeNC5Rz
IYhn7Jh60CiknipIe3o2D+DwEOEA7RgkvTBKj7qcD1Wc9zfUPcfAM5rOq9Sv
AG72TztuMIzD0NMQ2/6eQnBZYT7iEDUOz5vFf4sc/wDSRR9Ug7gnQPzw+QNT
6cVQc3Q0WDBmAgpGuLNVZEph++wpiz+EX7D5m7XhQlcZGDQYnWGq+AX5l3zz
5UrKIfJl4uh/h36DXrxTp+XDCqg8aaf/pvU3DGlflHHLrwRtTrKTxVcmwXR4
KZez/jO41nV6lVJOQXwMp63Fvyp4LhYrdD9wCuT/OnZ6CNbAzrbiZInENJz7
S7Zw92ItfPOevPusZhqoD1xsO1T9BQwlI4TGb82A4DUjyQOn6uHKwVh1LbFZ
YJgcYaHgaoBvBln1d8pnoTCyZEM6rRFcxXf+iVnNQdqc6Zknts3AJa+5dZ15
HvIMgwoozFrhu9SGy7Ov87CVFaiQXPUN9P4rhpsGC6BgfzLZcqsN/M/72OS9
WQC3gfgwD84f8OB0YqDx2gKUG1p6nDJpB5KJckCr2SK8XDNYCknrAI3AiZtz
FYvg3UEvySLXBd16kp735ZeAnlZYona4G3hFzv42DFgCWceftIm3eoGWKESp
srwE08r1ilfE+8G+QXrt56U/YOC4YhbMOAhckZUpHB1/4MjB5Mv/uIbAMXl+
vvjEMgybT5eRGw7DoRgmLuHKZVjqZBqptR4B99NxVaWqf4HNy5+M+80o/Fw3
LjiV/xcI09rCD9bHQDvQbueHxgq0vD8bp+yy+55pjvsYNKzAzqPjC+FKv0H5
XXzkb5tVaN/M8Gbnm4IuqzMZAnvXQCKhYvj+oRk4mnP3rV/NGry6fJ5MpnAO
rrHzPhT2XQeTS4aymp8WwHAjRcT36sbu93Pn3K3zS3BqtXA7yXwT5Aid3J+J
y1B9iXBzj8IWWAxtsNmN/AVh0RZw4dqGaNvJQZraVUi9SftDme0fkBrwufjQ
OlSZHuJ2Ft8BAjmh+SdpC7pHGSxmaMhQ03Gxe8/hf8Dou64l7UmGpgQ25QIt
MvQLMa18y0SOWeYehto3ybFXxm9n/i05Cqx2pmlmU6DLggxjtiYFhkXcU6ik
2IOC0WZppsMUuPfA1MlBKypkcbgpz/KaEr+k6F+Uq6VGb1JTXsKBPWgpNOrt
+48GZWypv/TN7EEHq/tms9J0KNRD5naUlQo7yNyeKVvT4SnNHXpmNSr8EFqW
bxNNhy8imWtE/qPC63JKfDe/06HY6vLUc1cqvKduGyVPS48+sTLRiilUePyF
zu8QLXp0CRBtJjRRYZLyRJLnHXq8Qx3ye56HGrVMoqkzv9Hj1DGFw7W21Bhx
DAN6ZRgwkXtv5etCatwSMZs2c2ZAv7c3CIepaFDd1F3CoY4BG28NnSw/Q4NM
T4/IutAyov2q3XvhMho80mfPxXWUEdfdHn48L0KL0bKc99KeMWKCQY2lojct
3pWJNL+VwIhc6U9Yr8zTolX3g4N9+Yw4nBHZWXR2dx+v/Gzf7fK/+0Hqk+V0
qKIDHsPxjDi7WLclcZYevYQ9n1VdZcS/zTGajTP0SG2s8zeAjhElPgWLC7sx
IGHYqvvMSwZcf+yb4cLGiFVtHLoUc/R4febcA0lPRgx2HZx8ZkGP/PWDLKRV
RnTM3Hx6eLfPlP0zf2cbJrz8TDVrnI0Os2lpuZu+MaG5zL4fvy1pMUUWPCg1
9iJvWqJobgoNshW5pzO93YvhV5ydHCap0Zw4tOHOyIziv20ER1mo0TP34aW2
B8x4oGbQXpVEhUPy69Eb/cxYVDKn4WG1B2dODE95CrHgmZtLl3wDKNGPHawD
TVmwUsWzO6mSAu1Sml6kPmFBUof5YN8aOTYsp4peyWHB/i8hRYd3dXiImjR8
Y4QFGWOWPk3KkuH5lOHrw6ysSGQWUvfJ+QdxDN8Mf+uw4lAn1/yC4DaYriaw
Jl1nxbIShROtSZsQz82epR7Mil4fUyV8D25ARP/SQk0xK6ZeNwWj5TUg2/NZ
4vEcK74duq3yRHYVqvtWk62F2bDtRu5LyVd/weZ9LtNPUzY8K+ZB78qzDMs8
4K/txIZ7pTcUWmuWQEI7WOtrAhvub5yYDwhchH9LBvE19Ww4Uyvv6PJoAQ5Y
yR+/McOG7qL2N479mQO7gLjQJSZ2vGzrslAhOgv5ondcL6uzY3zpdR/W9Sm4
cbZQp+UCO8rGvpd8yjgJN1xW+n3c2HFf57rHp9O/IMCXVXQwgR1no3+1tTWM
w8fRJm36Kna8KM+VVHZtDPgKH6vp/WTHvUxX5q5Ij8L5E3SCFRvsyOJoc+UB
7QhsTjhzJXBwYNddK3FNimFQ8a1ITznEgcMniu6bOg+CWGuc7dItDrRIbx6n
8eqDQu3DsrohHLiQy6OzStkDk/onaeQ+cOCeUOrb4QOdMDH+TlSuiwP3ld8X
iKLoAKIQ6VzK8m69vpCglzY/wGqWxDDNzInU722D2zfb4CxtWB9Ic+LFmsFY
lvJvkN+8aD2InPiXg9aBXK8VeueqrFbPcuKxjQoKS5NmOHPsl0XBDU4MWCGu
H3vZCKIC+cbiLzgx4emSHXXQV3g1N2n2M4oT2/ToKIZ+1EGbio45Tw4nQmI0
8wnDL3BjJUlzo5oT92YejUudrIFYZ48X6Z2cyPpvJD8uqxr+6Li66/3mxJCY
/mSe11VgmrFPdXKNE8erpfa0Bn8GX89hine0XBgewZ9GyqiE+oh9qpKCXBhh
QBUWsP4JHof+spIkcuHdCpfWM78+gv4XE5qew1yoURdsTMZWBu7l4aHWZ7nw
9GBtmpB9CfBrBLeO23Lho5cWCmwbH+C06eNepwdcOCYfuxmdXgQqTwzZND24
0E1+VjTqcSEU39DJVX/NhQtT2yH1NgUQLXfZ63QKF1rPmlEqk+VDgZnbx/3F
XCiqT7tQUZsLjU/+pozWc6GERH6+bXYODL1NcI3p5sKDogObrHey4buDUPTd
X1x4viClSTP/PTAMFR91+suFFjyN5cNi70Dq2O+0BgpuXIu49t9CaQYcZnjA
eo+ZGzsqC2rNHdNhIfJmDp0IN5onbcNATSpcPfa83kWJG088YyqvNEqBT5r2
kX+RG3//9k2/spUEOoL5Qy+PceMdq79O098Tof/z96WzF7hxU+QOeUt9AoRT
VQfftuPGUH8uKv+eeFCtGo8YfcCNdj1iRx6Sx8PVDaoHtc+5MfvG5o6zdhwc
qJK1efiaGyub4wh3772FyPECf6lEbtw/YvRv5X0M5B3d2fM3lxt599Vdm+OP
hjMqsd3rFbvrr0TtnyyOBK8cSbajzdyY/FiXUvRJBGwePuX8r4cbu49cUOe9
GA7WLaSDIhPcKNJ9Zd+JC2HQmM5kVrXIjcfiVvuZ7odCTPn9fccpePCH8avz
VRgCR/79UV9n5cHk4E13IZXXYKP9yKVXmAfXNwK3wgyCgTz4GwejAg/+q1ez
WX8UBGvnvRwStHhw60/CfeHPgdDoE8KdbciDBZt7GXIFAkFGs5r34Fke9GGO
d+jjfgWzV4YibC7zoErZ9Jo0ewAsloq9WnPkQe2mBduij35wM47Vo+UFD/Ko
p2sERvqCa+qjHMpQHhTcTh1siH8JF32rOHOSdvs77FMjtfqApfWW/e98Hrwm
tNW2tZufdF9L/v5UxYNOxQJkh7y8YaFaOuxQGw+ynzNkoWTwBt376usvfvKg
HT15ZG+yFxSKRDFULPPgcHME03MVLxjgcvqQQrcPD2SXf3KZ382XTBIdlwX3
4WcfuSah3Xxsn+oawKO8D+dvf043H/YE0i3m1hn9fbj3dpHme24v4B1kyaK6
sA8Nsoc/Kz/2grWhmGVfh31Y4Fic10bnDWoawRPvvPehn2i6dWSrN9SHTi75
p+1D+mA2DVeDlzC0v2xfQsM+5MtkCCBa+MEJ0reN3F/7kEutMZAUEgCzrV0P
9Gl4Mc9gNNipMhDGaYQ+6oryYqiuh0fBgWB48ekBXwfwYlXCw5m7wiGg6XF/
LtOcF7UprR0yaMPg6Li5r9gDXhzYY7WwdDsCMs65SCW/4sX1D14HLX9GwZKP
GMVgJi/6z7eWcky/gQ4WAm9KLS/KraUb93nEgdp/GueMR3jReW/yUf1HCaAm
B3QlW7zok2sN8k5JUEhfQiLy8qHVyL37l9dTIEovVPiBKh+6Glnvv+ubDlRT
lgeXT/HhjXx9PsnydxD5k+2XvD0f6s2PKBlT5MCbj6dMv73iQ2tFsds0DHng
7hdnTHjPh3uuC1WsCRfACXxax97Ch1xWzEfFiorAxFch8eMMH84OOVPkW5SA
vut8ozQzP/asfsrVT/wIhy/TZ11W4Memn79i58kqQe1a+VD4KX4M6Hxnu8JR
BZr6A1o1T/kxq+FKwvG8GvBg1MlsiefHgXtlqUpGdbBEXkZb1siP+QJOzVXu
DZC68/Zx1iI/Ptr5RBQtagYqqQMZt/gFkLlAok/w+zewjLf0PXdYAKUoqKzT
274DTdZ0gdpdAbyUMUOTotsB8hOP7iolCaC2/omYL0bdcFWT/2b7oAA+wT7Z
H8L98Pv+95VpNkFUSsyYkOz7CUlMinzapoJ4jef3g3taI6DvUNJX7SGIS+bh
8W9ej8HSYo77hxpBzJR2Vrlu/wuqFfJVWhmF8EHXuR3OrSlQrij6dfSSEDZ5
U3RT3JmHfFJpqUKVEJqc7cpofbkEEXaXrb8xCKPN5vNXP+X+wpELPt0NWsJI
X+Li/O7CGgS7J3+ztxFGmku+qcICmyDwUcj+Y7AwCnXFqLTCP+hTeL63v1QY
BU8WGt3yIkPxmMXQwglhpJRNVQ9npsBM59d54VwiyDsoN/m0gBLLLUXKPhuJ
oJ/EmXMfblEhc0ijw1l3EaTaOkmYkqVByhIOKYVXIugsKbxwwoMGdZ+YeqhE
i+DXzb35s/00mCuky22bKoKbBXX7PZVpkcVbw7g6XwRTvY2dhnd9qhbdH3vj
ShEck/lyrLqfFt0bpEu2m0SwsqdLeVaeDpfDbFR6ekTwr8FQk+AzOqyk5L1E
syyC8xN3rgfy0GPTzTPdjXtFcYrpzc/tFHp8enmPBa+MKI7pN9oZEhhQVijL
Z0xPFJ+/OtJzOYoBDRsyVvZdFsWwyCCb85sMGLi9Yp7mIoqpbo1G9wwZMVy3
tOFJtCjKWSjXH3BnRKbh3CmTDlHsk1Sg+lTIiGeLycZlmcWwWILj0cSrXT8d
3XvnoKYYQqOb3YQmI+6MHI/LuyKGh+t4/dVLGPCa/bUADNhdPz1rJMTCgJbE
GGJBkRh2Kb7RpThCj76zvCVDA2KoZM3T3W5FhwaCgguJlOKo10IRGGpHixls
XeQTUuKY/ItDa8iWBof16czlTMXRo/yg7xGkRqVKhpYXDuJIW/ra8S4PFYae
k6KfDxHHvMAln6/LlPhMoy71QaE4njG4TbjSQ4EHmFW4ZNvFcU/5oqvUV3J0
EKqrFlsUR4Ulvqn1WjJUOVIddY9RAv/L1bb9Fb8DTeYJenuUJfAyrwSzzuIW
0FhYnDtxVgLV1R/F33XfgJM7q3uzH0ggWRlrPPeZNWAdKFO/ESKB7//TidC2
WgE1qwPdTdkSqKfz586ZhGW4L/2rlf2rBAooMonXsv2BiOBVssdDEljSUtis
/n4RJAK+18qvSKDiparTX24uQMQYr48VvSQaiZSW7o2ag5ukv1dJApIYu4/C
XSRkBmjLm0LTNSWxgqlWPiZwEgSMP/tvHpNEw6cMiznPfsGYiKTGW2tJrMxb
blTPHodcdeEjtfclcWhR4Nk1zjFwzL8XG+MpiafzyxRkMkbASE+oxjBMEu1N
toxqbYfBdul7/0ySJF5fpLiaoDcEWofSVjwLJDGtou4Ui84gmHbc7mCslsR2
m+eXs4n94NvdUBnzTRLrPe9+irDsBVKFRt7xAUn8RBs69utjNyQtXmSCSUnk
ed9Kz3C4C0JKytSfLEviupX52vP5DkhsPMnBtSOJixymMdml7YBTK2RPmKSQ
z6DyWKvMD2C/m2zSxiuFPI3R6g2NbRD9RPGEhpQUponf1a4K/QYDSk76LUQp
jArPJKve0wp/8nyMU7WlEOgJM3v2NUPTwjnebn0pNIQfVX2WjfDsIe27uyek
UI1sf9mJ71/huaKo2O0LUrt5Itd8Y70OdOjUtkKuSeExNdfoIfMvMDqoyrHj
IIWLQSHy7Lt+Nt+n6Nrnp1LIRc6adiGuGkIYVDtmPaRwLfIpz9jjKlBwpU55
HSCFbjp0G132n4GSZ4yhMkwK784kpYFbJTzpp6K2jpfC5V9Ka425nyCXn1X0
aKYUvjmySc2W9hFa1SkEggqk8BAXZ+NITylsqWcdOVwuhfd0BDvYdErAloVN
9n6tFMpvN+uqNH8AbYsWXqVmKeS+N5Gt7FYEd29se7m3S2HQZXn5vWcK4S7B
TEB6UAprDNiUNwfyoUf7YIf0Lyn82NB/VDQkD8zahbgj56VQV2buj7h9Lmjw
LhK9VqXw4DXZXKGbOUCdLLVNviOFBxytxROos2FK/8YRTmoCdn1LM86xfg9s
bH2kRkYCcnFpJtBMZsJE5nbkR04Cnk5tuVDMkAEajF1B+wQJmPnO4vrza2lA
23Cr8o8EAQtZlCJ//E2BFxVP5s3lCGiac3uJ8V0y3HhwKdFMhYCX6a+GMHgk
wR65HZ8NTQIe33FNbHuSCCPGld8MDhIwIDttTs8vAUqLjnh8MSRgi73+8ysW
8dCebhRQfoKAn/UG+yhOxsFJw0RRHXMCfonX/fS1+S1k6et1nblEwDNjkpEK
sm9g/7SNFMtVAgrE/lbU+xAN4TlK/Q9uEXBxeGAj/FoU8N1ftwh2JKAN96PK
n5qR8J8NT/bIEwIeonxhEFMaDqUfcheK3QmYUnZrie5GGAhWOemI+xJQJOD2
Y5rDofDrsjwoBRPw5qFLYZIQAjEj15KmIggYmlP4/OC51zB81MnPPHZ3/ur8
RTnvYBAIbmr2SCagk4xb4ouWILirkDhFm0XAbNt1cBsJhEH2+sPCRQR8KRpK
l8QVCMHvZ4/2lhNQXM6Z41hjANxZIUodqiUg3euB4aYwf6grPClp00TA9AUf
IWkfPwgtopA2/EFANSOGaO43vpCgNDm80kNAt3+GfSYtL0HJhfLGuVECHkxj
OMS061/nnU+a2cwQ8L1ubEX/tjcE1wxMKPzdPT/bkH/nT3uDG3nDuZptAm6c
IuZ8aPaCjFmT2/LU0qi2dHvQzNYL9lXe//5orzTuK3JVjOHzAtW2Y1bvuaTR
jcnuT+a0J3hCY/Ij0V12MeP/3/8gvd4lej15aczwMRdiWfCEVrKaVTlNafxr
9LE2QtcLwqQqDx4/Io33ph7pnW/1Al1259LGk9KI3C3rP954Q1/BeeFaS2k0
0Yed9hIfaKDW/3ztljR+2u9074CqL+yPtzw290Qav+uwsC3L+MPXBv36t77S
aNYTk6hT8wrETN50fImQRnvGN3uW5YNAXTjpBW+qNDbc3hBK6QyGo+LZFr75
0nhWU8yQ6lkI/JLaGCB8lkYtVRE29qAwmIkLZ7dulkbOruZ/Pu8igNvbsaq9
Vxq9p6dZ1gyiwT+3q0/glzRG7/9rfmnlDZw5l+WStSyNOo0Dz/5LiAN5PT0p
CXIZdMtsTW09lQD3sw85/9krg+UVCax115Og38eSIZNPBvn1BGwu+aYAd/vo
za/SMvjJ8cXqinQ6fCg1bO9Qk8GIWZX12M5M8GPz1jfTk8H1ZU03PcFssFTP
nko/I4Mend40dDG5EPHqb0WXtQx+YXuY5xWSD/GPfVVyHWVwYEEQjpEXgcNO
b9aymwyGLKw0WdoWw6+PGlw9QTKYadjnWHaiDK7ocRp/SpTBUM95SeHFTxDG
1mn1Ol8G1W957e/R/Ay8s+tNxrUyKG4TLdttVQ2MVQJ2Dh0ySPL8cuaaRy2U
+yaqP/i1W39k/3KcQD2oGrpFft6UQUVL2RLX441wL8u8fotpP/YXPyWlObTA
023Voqui+7H0JPUha5E22G58unVUdT9y7+eoWqD/ATPndY1tjPajrJjtvUHz
DqiIfCUmc3k/ahr+vXJLrht0ns1P0Tzaj4GnNU3t/vUCx/V4Yf/A/XjqANtX
7auDwMPYF2j6bj/aK9HbqxkPgz2n2quu2v3ofUvJWMdyFPT0aq8EjexHYfk9
93JGxuHbcBOTHKUs2nj2OTKv/IabRY4egQRZTAnVc7WunYEjI5deTp6SxZ9U
pbHCXxbgTYLaxS+estjP1bnM1PwHHt1kSEnNk8VnUVQtvSEroLJiQZT6KIv5
zHDKSXkVZNRV6iZrZbHIhCVso2sVnP6RDS22yqLR1ZB2v+drYBdhxaDbK4sv
uv6esFJeh1cvNqf7x2RxNpYjNGVqHcSE1dVr52Ux1v5IjHfaBmwYH9XwoZbD
W2k7K5WkLcjNq9tKEpTDaINCDfbxbfAfD+JXJMnhKaNlAk/WDihCgIPuKTm8
uveF/shXMvRnuHH/zx05zPqXyh/SQI7MJzvPmwfIYctjnXXmbgo0qbq37JUl
h95P36m5LFDi/D3H3pahXb7+alw1nAobHZ89EuCWRyotC5fRgzTYe+BO9NUT
8kh4d5ndb4AWjd2oSDdfyaONbm5SwQl61HbKks34tns/RtPo1nMGbEqMvWLB
oYBctYyqFqcZsXmrOM/NXAFr23TcpfMYkT42TNc/QAEv3RJ9UZ3EiIfMt7cO
VCugwXeeJydMGVEmP9uMYVUByZfgglkBA9qyKRpWcygiW1fkBfEheswTJphK
yu3yO7H99gN06M58JMznsCLaUKV1/i6mRdmZPXE/zisiM6t0x4ALDV46Mlz+
944iXnJiDDLRpEZosA+fclfER/3dlhbLezDINtqsIEwRr+kFRRJ28wXh6/Ge
82mKGMtGyh92oUC9whnetVJFtJaOVNZSJse5gu96R5oUUSuHOb90fQe6nDJO
W/Qr4is/bU620m3oEV6aOTGtiMmKI7YZqZsQNb96XmddEe1l/POEP69DcNS7
GXVqpd38PGgnuGcNXPmOBp1iU0L3oKLW+lsrkMXyPj1JQAkbmUYimTaXweuJ
iuJ+WSX0fstOKJD7A/TJ2wsPNZRQ44qhjUD4Iqg6P5nO1lPCev+hci7FBfBz
21L+c1wJo+rtyFzGZiHuIZX/hf+UcFPQt2dvzjQo0tNvUtsoYUPN1fdGJZNQ
l7fXeM9tJTyYGPV9Y/UXWPSG+lx9oITOqYOxvDYTwJ10LnftuRIO/s4acZIa
Ay3JXMkTAbvPH9Mv/I4j4P+v7GBshBIa/v0y8zpuCFqvLmTTJiihrdOXwBTH
QRi4/O/0uwwl/Odsq/l9Tz8ILviUJOYp4czEsuvrsR4ojcsT21OqhF9lPwqy
UHeD3ka5VcdnJVyJemhsLNEJT/1Ulfd+VcIWpcJT3a7tYOOARz+3KmFq4l2j
5r0/YKhc+sK/DiVkN9lLpVbXBtZXi9O+9ynh1tmQlwmJ3yDO6sUjw+Fd9t/J
TtRuBU+Ow49uTuzO33JGc/RaM5xIvSVCNquE2seXE5PlG4Ga7ngW9x8lPBN+
XS7/wFcYJb4/UrWmhKTgQ5HKL+rAts0wmvGfEt629B3O/1cLY1Eq1uSURHSV
ti4JS6wBad29H9NpiGi+kXov42Y1cIVs32NiJGKx1vae3tNVcLHziFADKxFr
85W8FtcroZr1ipYANxHDjzByT4ZUgMdgag47PxET3a6/VnEpB1G9Td1iYSIu
0/jdJyaVQciPVToOCSL+Lg7dCNsuAeYw3Qp5aSISjjg6dj0vBqUgfjJmOSJK
r7by1Ml9gLw3jkfViERUpcqucHEthJhohxkydSI+kFhdNKArANqLQrpOB4hI
ziZjvPYpD8bCjJoygYh29z53GkblgnrqBZ83h4gYSlLJuBWaAw/IHXXP6hPR
0npa6dK5bGj+70BtnxERX9BHbTjmvYfisH73yGNEFEjOZHSKzoSg6buP9pwm
YrZLd8nT+nQoWhAdkzQjoqBzi3SbXBpkqOgep7MgYvMX65HDVSnAVX93Ms+S
iH6Nfy+6uSSD5P2wGmlrIh5JCuaPtkgClqE6dkdbIj7TX5aoOJcI9CwzcTN2
RNQ+GDz9nS4Bur3snvLdIeLm/T9G4xNxkGZWT0XnSMTjQZk91K2xQP5nm7r8
ARG5XuqNpDC8hTVaXzodJyK+vH664D+nGPhT7R8W5EzEG5eYf6SyR8PLW1+v
fnQlIj9z6eF7bZHwOdHfbJ8HEX0l6wuklCOg5vfrEaIPEXv5npmFNoaB8Ipe
Eas/Ef+S+bWoBYVChUY7fXkgERVIjFfDn4aAxNDpOc0QIl69fCKu2es1cFmO
uwWGEzHstoY4X1YwCB7wkKqKIqKNheW51OkgqF0rlSPFElF34lwE01IgBKbx
rTkkEpEvvHd9nC8QyJnONjqlErGgk47y0JcAKJ+S9z+bSUQaonYfm6c/MNvW
sjBmE1Eikca25Y4fBMYUH4vL2+3/wFjSz9kX5G6VhXIXEfHheKONX8ZL6Opj
NaYpI+Iro5Tt20k+0JZw8UJDBRE/KNgquH3b9W/p7MHXa4jIvdHvFivlDU84
SS9m6onoFN6V9yxp1z/mfFsyb97V25j14UOHvCDxwL5/H9p29Q9JTnLkXjDO
YWTO2ElEE1k7PYd+Tzh6qZbfsn9X7+mCX5t7POH4u2f+JSNE1O9+2Ujg8IL8
SdVF2Ukimmm/zxkO8ILnkEfVNE/EC/rtV8+e8Aa244LwboWI8rL6vTtXfSCe
odzx1zYRDbStOFwnXsJ7Zm2Tt1TKOONQMGky7Qf0hacFtpiUEauvHbNKeQUX
JrfyqDmVkbFdaKFMLQgEy4LOfOJXxh2TkmpHytcA/I0CdmLKqFPG+MHiRwgQ
G8jsamWU8YHfs+NPhMMh42ry6VNKyqh3a/Gu5KNIOHjtgkg4SRm5for+6LCL
AcqePUlyoIyRby5kS9nHwvYzDUn3I8poEu3wJCMmHi4Xef9UNVFGXSpdOkX/
RHj89Y9I7mllnBcSoildT4b+++29fv8pY6kX8fyje2lAn/v8qqa1MiaseWrk
+mYCxT6dk8Z2u8+zyVvHFGTBh+a3AeoOykgufUJc8UQuyE5W+7x8rIzMvPeW
35/Kh8uUahzVbspo913kTVNbIbjXrfvY+CjjS8m2URfLYmjwPz6xFqSMz+z2
zJ3zLgMxec2/a5HKOO3g0K715RPUGFbErCQoowx1gpG59WdgUB5/qPheGdXs
xwnWv6th2CzhpkyRMioE/eOyNvsCpjYveY9WKmOObcCbTYuv8M7dbq/HV2X8
vB1QwH+xCeYFPTdHfiijq+e1VHvqb2BQGqmS+VMZn1flLd0/+R2K3gdmG0wp
Y3LX17Opoe1gMBPmrLeijLkPeBbGL3TBo3g+2tvkKnjwU0ZWk1wvRKvMW20z
qSBNucon9egB4NDcc06PXwWDG0JlDWaGoET6jVuytAqGf/xE1GYfhf/m7JIb
SSr4REG0ZF/hODy5XtoibKSCIR0yoiZrvyGHQ+2HwkUV3Ot3lHaZdRZmDpip
591XwbRwE+NsiUVwT+JxiA/arfeBf/av+zJk3HxrNJqmgklG31Ut3FaBLf1U
6NwuO3Xxnet+vgoeHyuG1ndZk7uQ7syLVbhSNCJLla6CYkkn+9s8VoEl5eNj
ll2uHltpMfVahZkokzq+Xf6kkzTc6L0Kb3IHrIm77C1FfeyL7yr8sDSiNNxl
uqi3Wp8DVqFCOCTZcpfZDZ5nfAxahcbbFlG6GSrY8aAoNCN7FerdQ7MlM1WQ
k7V6oaF5FeRVxX4xvFPBz4zfqQRnVuE1YU53aZcZGRiFkujXoORshQmxSAW3
7F3TOfXXYUOXg2K2QgUlXUdGkyM24IMZm7NMgwqCbsOoCdkWdFacU/zTroJr
51P7u1y2wTJWvvnYkAr6Pk/1qePYgTL9iKtdcyqoc2FgYj2ADGWWg9+c/Lc7
/zE3bZ0kcsyP/MDwba8qPp2Mtlipp0Bg0q+wEFZFS69v6d0blMgtosFPqayK
5wSvah1So8KFpAWPr0dUUTQzuGzlPjX+iYsrrbisim5qDzNUeGhxr8+Vz29d
VRHvUNDMxdKh2DK9+Xq4KhopfGhtTqBHjSc6O9I5qpgnlBCp5MyA1Hz/edJ8
VcXrZE0KYuKMuD+pLsdyRBXtcEb7VgAj/oxNw/VNVbQ4fEa/tZARY5+EModz
quFXtgOaY+GM6Nh6rHBTXg0vHdo/6KLGiKKKhaRZfTUs/XNMzjqcAQ/tuaBD
uqSGa6edVu9U06OF5S3jvIdqqDE8UmZfS4c/VuNnNQPU0POhY9tAGi3CT9aO
skQ1zKF6xlv3iAY7lkO5CcW79U/k/2AEavwQpTbp1KiGm2vOB+YpqbCl4SR7
0YAaqueE7Uw2U+Kx9wY2Q3NqyPHCMelLPAWKBV++v0qujvLTQVxMpuR4LWp1
NIddHSWtjnGRWMgwxI1yUFxcHQ/xC4w/+LEN9AaCljeV1ZE6o6feqXAT7LRe
7407qI6CpZ+CWWt39WD1z6PLVB0fqCrf/bKzm4cu4QThP3V8r/xWLvTyCmw4
8yem2apjUEGdvs7UMtQXXHK8flcd2zsiepxf/4G2hlByLnd15BCoIfO/vwj3
NL49mvJXx/HH5Cq16gtAf+Gx5Ha4Ou6c/iqtozoHSenKH63i1fHTTSOTEyoz
4DGk7i+doY6jpw+yddtMgWOAXJd1njpWPRzoqav+Dc4fRab4PqpjVEpo5OXJ
CdhqoH0vUKuOZk61QT2Hx4GzSdDDuVkdCXvzFp+3jIJi1PmFox3quEauIPb3
2QhYnaGji+5XR10mm/bmU8Ng4dc1dm9UHQd+svu46w2Bsdwj455pdZQup2E9
yTYIE4lzNm//qKPJf3OZJuN9oEdGM9S5oY5HCl9/013rgbrQ6sBgchKaO07O
xh/shv5fWpuDNCS8PXZq9VVJJ/jsaH2oYyLhQYJNTcBuPr7A41p7lp2EToVa
cer87TC1nXJSlI+EdONnhy/c/w7Ug51upqIkFH+azZpD3QZMoqbb8wQSvrZe
U//k1wqdOwa/uBVI6H2urNfcvBkORDSGtKuQkLP4GkePbSP8biLjJ2qS8Lxp
RaZB5lcIoBz9rAkk5F0T/RYkWA+/OGZkY/VImCNu91Hj4BdIVRGL8zYmoYO0
/3mz+Bo42aIVQH2ChEp2eiyXVaqhtt/mu8RZEn4t+MNFtvQZtP4+Ii2eJ6Gq
M3OI149K4BB5MXbXkoQaG+TH9qdWQCB9fEK29e588ebtvn3lcIR5ruzMdRKm
PfU/YhpRBj3llo5Bt0nYGXm0USSuBFjeKWnYO5Lw+WBW/Nr4B5g/oKe6/ZCE
g1PMxv6WRSBhyv/54FMSChjYkOftKYR3h+lq9FxJeHEilqetJR+2SQPrzC9I
OB/cN/SqOA/OZ/nsyPrs1lf2jtI8mwtJjIVqM/4k9I8qKZcUzYGRNCF/82AS
suUNWFsTsmC26r8xlzASTojYla8YvwP51UrXK1EkbDuspTiZlAEpk90WrG9J
KPufkBbf/nSQq2O47htPQu7RQeqVrlSwV6C7Y5xCwmbN79Oy4inAeIjO+UPG
bn9z4c3h9CTYdkyx6M0i4dR3V8uBi4mQ//Db2sc8EtLe6+0WP5AAnBM3amyL
SHhpTGPxGikeqqtFaAZLSEiUyTobcyIOWP5WcRPKd89DxbX2OFUsWJN3niv4
TMLEo3ZOUnMxkLDUurZcS0Kq0yq3RgWj4ZZR+NCfr7v7WZh1TnoZCRNO85ol
zSS8UR7nZSsVAS6hdj3GbSQs+BHtc2g2DKi5Zp1y20nYsXBcfLYjFNTze8jn
u0g4Y1/IeLQ/BBrkXms97ifhqYJb7qMRr2FeK2xf5RAJpdYEF6efB4NkQWhv
09iu/m7ZbxgGB8FHGkvJ1N8krA1KIRVVBkKqk631mRkS5iX990qXbpczmTb7
50n4s/xZCM23AOC/+NRP9w8Jv1w1qk3N94eMGKYLvGsk7LW/VUc08AM+K8Go
0i0S7sjd4B3k8QXSpeMOsuQaOPHsVWox30vIGjbajcQamO7gbkA09IGq4ylV
CXQaOGPaK/ws2hvu/B18k8+kgc0LAaMye3f95TWaY9msGshz6qt70xsvGKqY
O+bBrYHCRTMHHkh6Qd6gyrYZnwYmtGU/aFn2hLd5fsaSQhoYnrLO83rXz/4f
koyttQ==
                    "]}, {Automatic}]}}]], 1]], $CellContext`rho[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 280.}}, {
                    3, 11, 1, {760}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwtmAk0FW/8/0l2hZSUr0QLFRIt9vuea4nIlpS5tjDXEnMvlSjKUtq1qCQi
VFQSLUKWlLSQSCVLlhIhKiJF/Of3//3mnDmveWae8/68P+/nOWfmjIoXz5Ga
JiAgIMicY/9z8X9HXeb6cdPRaNb/8jSrsZpNWIYXsNwamyr2G1SyRF6Myd1V
ecNyvTZ9/dKlzaxmQqzUZk4na4taU6O6fyfrndSNoemlnaxNQ3tmdMp8YtU3
WquX+nxi2Zb+Z5pU+Im14XBZmIPnZ5b5Js9ccbEuFrFgWlfF7S7WbCmniWGj
ftbwhKOE3JcfrNbhvfI5K36xqvquqJqH/Ga9yP/QfEFmGrQH3RdL+4mhq/5i
ec7xGaght2te3SqLazbi48N9cogyyXrOjpRH7WndtS9C50HxS3mmHf8/+OvZ
yL73V0aLeSArd5UKYng6ocG5qlC5JhtamLUYj1p/7Jq6vBQecnW7LC6qY9Lq
9q4TCcuREhW/6+1xDRg+CNqlGKeFgdBrBvksbRjNOl/sZLQKnu4Xuc9EdHDg
Ruosg3odZI9mlOUk66KanRWgzF0Nv7EkZyfJNZiee5x9JG8N0r33a5VtXguT
eSHzh/+uxat2JVfpmHVwvfbi0gpxPfQH7mpff0oPe3RVVHzm6mPbtctF0+L0
YTlvoWP6L31oHU/rY3kbYM7Ugti2egNof9cuOKFhCOt2dq/RIUNQr53++9Zp
iKhyrl2ykRE+CDrKyR4ygraZcWNcvREOx6knTygao/O5nEcI1xjOsn2JdzON
Ue3yqO5XhzGIjPPiaxeYoKAvkL2bY4Koxx76YydMsOGio3b4IxPMDjFX+ztk
gjYrvQV7l7AwaucRYmDHwgznuKo/YSwscb01vyiDBWOvt3RYDQsGYhE2c76z
8F+j7JwmMUDxxpdYtfnA/MiioV0rAOVHkyqt+sBiITMHtiWwzOJIVLYzoHWk
9vZMCtCpkWvfuQPQnkfzf+xj7nOfCwYeBTTuqib0nGPmC0Qu9k4H1DY23m/L
Af64Vu2UKwCqA+/rWpYDlyKuDEU8B+jjCfn59QBSYvjdzUDekU+fPD4x9Xez
Nzf1AvE+Gc8cfwKTDtMMasaAIJZXjrkAAevL6uOhIgTUBb9bZUsREPG6f6Fp
FoGux3t7JOYRqFjEXmukTCDtgNjBoCUEIr/UNqSuIEBanFOtW0VAL4sTLKhH
QFrrXNsGEwI992qtz5oRONdhYpZlRcBM6rZRsS2B4XXKa15tIpDhfVKzYyuB
7pJ3dd2uBJbL/7dzwJMAzfOa+8uHwJ3n2cV//QiMqHx3EwwioL93jaBYMFP3
7d4rM3cRuO8f7XQ9jMC3ybjpZhEE3AtU4icYvg4qmXs/kgCxZEt60D5Gp/Xn
8qX7CSw6e/xeG8Nz1momiVEEwopdHcRiCHCWnfEJjyVgcuHZ7r4DBFRE/x3l
xBGYHqqTWnOIgOSsubZJRwjMyh3/Rx0jMH9Dxy2dE8y87kq3qXgmr5jrM2pO
EdBeEF964QyBzPurH5qeIzBnY0vhYCKBw13RBUkXCYzvVb9ndonJ65KpNj+N
QFGZe05yOgGFjnD1Z5kEdgueuzJ0lcB71byFC7IJrDarTrG6QaDBfplDWQ6B
ELdDwrq3CcgGfCnKyieQF2pK/3ePgF1suurpAgKDJ6feCxcRMNRJHhQrYeq+
XSsiVU7gXegbJenHTP/z6DWznhLgPxTfOOc5gVK3qz4K1QQkBIgIxVoC4g3f
a8+8ISB6LVVFopFZ//CNO6NbCAjbTFSNtRMQUr45j99FYNqQS2DPVwKCT8XK
3QcITCU+kH3/k8AJWude+W8mH/Nbztf/EchWVP9zRoiNtUMZyRHibDx5rmTC
lWbDIe1Ch90cNtp3ycXqK7IRaBO/ZJEKG5ItWifqNdi46f/61349NjaM8Vy1
zNjojZOpbLVj4/Cc/BXHOGyoXXFI0Pdl45nO0N+eEDa4FWe8zu9jQ9he96XZ
UTautDWsGj7HhmnQzqT0dDaSJJXWuOex8f3607r55WyYW9KBja/YSO6WFzvb
ysbPA+WZ9v1srF/kx5rxl41LFTItL8RMMexRFBo31xSxxxZM79cwxawHsaft
2KZI//R1wb0tptCeaZujEGSKcv27+pExprClFJ51Jpri46lIJ4tbpggq+dR5
47Ep1tubapR2mkK1KzP0tYAZ/u2eXtGpbIYPkpTkLxMz3El7ulnE3QwndJde
Vog0g9+zuL7lKWYw5fSsNn5ohtOuF/4I9Jqh3c2qrFLeHJoef2MOm5ljj+fN
9TYh5ni+zVVK5rI55L1n1De8MoePT9m5xHFz3KF4JGeZBSyizo/aB1mg+WLp
GYt8CwTd79IyGrGAYJ1k9Sr99TjXp+OrFrkey4RJIaWK9ShRjk6bJWwJe4Ns
QzErSyTVP9p3N9cSn/2aKtxnW0FDYGi6xB4r7EqUsLzfboUyrUXHPM03QKzK
sFby5gY4uDnJPpCxxsVfgU5eodb4+NKSFS5tg4Xpi5efyraB926BOVnERlzb
2DpV2rwRvYsK+97usIXG34R3/VJ24NfxHk27ZgeXhqvvjivb4+qi28uTE+zx
c0fh/uuiDjCprHj7YK8Djs6uXlb13QHvfd7ue+vtCNX7Hxs+NTqCFu5R/2m9
CcWbf0ROlW+C146ad5MeThA/na05OeWEAx+rGnn7NmNq2ZfozonN+G9iOfnE
wxl6tXydq4+d0StSaqAvuwUXWeKmrzy2YF/vG6FjaVuwLSGl0rJ9C/zzRQNe
yG0F/3WI9AbLrSj8plxcvWMrBCRe+WxM2wobmUOWm59sRaI8oeHWsxX+yaZ3
1IRdYLjQQm9I1QWi9Te2Jhq6oCFaOtzIyQWbt76vzPVzQaPWJRmVSBfEGfyt
WhbvgtUWWyJ10lzw2eGermGeC0ROWkU/LHXBspq2WsNqF+wt8Lo9470LXl3u
Ptne4QK+eqtVU68L5PLqhRqGXHB/3bPSmnEXbC0v2V01ncTPmp21JZIkjjZr
LLk7i8Sffa5/aQUSvouOv16+gMT7Zw+vdC8iYRbYH56xjMQdGUU795Ukrnnc
/H5Ll0RSruGpf+tIKLWoyqsZkkgXlUixNyFRuC17ZjNIvH5oEe1tSqJ7zpfh
b+YkJnix3FBLEnIvVZqmNpCwlm4pibYmEet09rKQDYnipI0HDjIcahPxE91I
YvniR9ZHGHr5h6+UtP2fejpyJxiK619tPmVHIuzJ3Iyz9iS+bjzqf8GBxJYP
E9opjiSeefHG0jaRWDvQWZ7pxPjd7XQoazOJ+edfueVsIRF/z2J1vguJmgdl
nms4JCQfrj1R5EpiQ1lukbE7icMVS7srPBidytRZFttICD+XZ730YnKojt9u
60Miz7skb5xi+p7oHcn2JXHk7FxDZ38SoxrmUULbGb9PQ57mBTL9u12WcKdJ
GI6+spPkMz7KfLISQ0jIHBqfXLSLxB67M855u0l8mbss12gPCbuOcuEXESSK
sp3dNu8nsTh44F5nNONX/4AUfYDEmKCiz984Rv9l/sO4IyTa6h5ofjpBIuiU
3pDraSZfu6KCxrPMekob7HW8QGLe62LWq2QS2fGG0y3TSKyzLXn+OIOEpkGc
a+k1Rn+p/Y8HN0gozpp/4E4uCdnJz3Nv3SEh1nfrZlYBial3u1kZxSRGKoiG
lDISd0WUv3pXkuBbT0wsf8nonGqSHXpNou9twdKidySy5p01jGoh4eMebL++
k4RKpi01s4fZF/Uej58MMmOBYOXwUWasFROhNcmM3RKaPgtzkH7sytqkGRws
LL6fYDuHg8tfq34IKXEQ0HWq6L4aB6s7yBhfHQ4mWxZbzzPm4HnjoFz1eg7O
NBS2RjhywHkdc1XLjYMl1TZ0hy8HZ3+UPGwP5UBIXlO8/SAHwYaXnNvOctDh
OePKx0wO7OIif7be4aDs5oBJawUHGvVux1vqONDMvf1avpvhMUE5x3GGfpuc
T8i4Qsv8atLzJQxVf7cKGTKcslzIsnfFytaL3nsoVxjbhEVXxrrCumRz2swM
V7ho6JZufeQK3xSZlow2V4RKDY59m3DFgYhq+XWKbjjzLXt1tL4bYtIe1gtS
bghxrKVjTrlhm3CnpFCJGxwKh7Nje9xAbBexmC7njlUL5n0+YOKOhfUrooQD
GL4Mju7IZvjkQczDHncol/yLPb/UA8r3TQ8GUwxzj8TZXGGY9fqQ2mcPSNcd
NROU9USLsc/2bBNPZN00PmMX6Ikd8+YWjSZ5gnXoR/ulZ56QHHkhYj7iiUav
TM1vqtuQWRfhlGC/DUXDTq/TzmxDnbzmhpy329CjL/y0UN4Lk64fWU+3emFO
1P3i+ote0Mg8saat1QvsKiqvb4E3XHqNV/z29AZfSv6aUKY3vCqX6gm/98am
iHUvRcR9YBhvjDOrfKB62bRAifSBQWqajM1eHzimjAfsSfHB3BsvM/498MHH
B0nNUQ0+oOe5TOf0+WBqj4LWGkEK/jbu5MrZFBqUrsQtU6MQNOKZ83MtBdFX
Sm+KLChkXGn+He1MQbMks7zYi0JhQ+ChYZqC+okbGa/CKCRZfC3NiqGY752l
TdHHKageqvI1O0tBf6bvqEgKhWntrB4yg8LL2wofcrMpJET9fD7tNoXJ1Zov
Ze8x9Xv9qhcWUQhUvW1nX0qBxxlp2F9BIeSs4dbbTylE638ZU3xB4VRbfNLh
GgppsXoGI6+ZefNmXSp/Q4F1u3/qyDsK0uZPvZw+UOhoTn26oIVCHj9Mvfcj
hSgRx2N3OyjYa8jfqfrEPNeVGND+TIFvOKmWzFDAdMhLuIvR39B9icdwoWPz
hyaGeS61cmZfKNT5FRxR6KbwfXfq1DeG0ofidlX0UFh5nu4/95WC3VXnbQG9
jJ97Jo0mfRROPlm6Ua6f8alHWVh9o3D7ViZr/wCFMtVPevcHKdQmLtTp/06h
TcpjhcpPCoPRlxZvGaLwb7RF6cQwhfp5HmXhvyhcNfrkzh2hEO5BTTmOUtgY
8zWN9ZuCytXt0BijMPJssEPhD4UXfcHRwn8ppMwYURliyNcOe9w2TsFs07hX
9QQFhdB9QoX/KPTbvp//ZJJCqZqWTu0U069AnFWTABfeTR89uwS5WHNnTdj3
aVyIHTtx8q8QFy3eX64JC3Nxy8i4TEaEi5N5q8NjRbkIXqyxelSMC8cLi777
SXCxWkrxRoskF/JRsyjbGVz8HhZfWDGTiyZfwRZdGS4etoyduybLxbH9s92m
z+bCdZH2Yi95LjSfWfeXK3DxL8D3jpIiF7UzY8P3KnGReicVTcpc8JyLRdep
cuH7rWH1wGIuPGIGtmWqcbFFQfSky3Iu7HMXlkhrcmFpZtD7dCUXaN4kH6HD
hR4/yFRnDePv550l/XpcBIaMiV4x4iJu2LjPFVxc3hlbM8eMi+KR57m167l4
Gzrz9CFrLgZ/b9oBOy5k3tnn73TiYtWdjd+zXbjYdHKD5kd3LnYFrt8u68NF
opXZdXN/LgqXEj3hNBfNQiZLcndwcXbC66DsXi5sRw592RnD5DiYY/7hCBdP
uuuvGp7mIrJ9VDjtAhfrPihyp13m4mcdqqgsJi+3VJ2pfC4m+sZTL5RwMS3M
RVLnGReiwg92V9dzMePM7C6fVi7klEPsJ7u5UMh5XZL4k4tXKoeODwj4IibR
xNVUxhdrZ4yuSFL2RX/MrfFBLV9cHvOpNjPxhRP9X/LFjb4Q72oI+OHqC8Xi
ojNWO3yhdSqtOOOILwjuwU/jab7YZLRdYnOBL7izHHRya3wR9nUtKfrZF8fK
/ovx/OOL+MG6F2rz/XB6wUHZ7wZ+OGur71LA8cOFfQOXIyP8kJyb/tXskh9S
2zZrS5X5IX2mRFhDmx8GM6eUNKX9YaA/8iSO5Y9DtX3+HTx/NHh3SBtc9sfC
P+/uJ9T5IzC+mjMgEICiRRWC61cFwDCnKn9ZWADKVtdskyoPAFFaL/tdeDue
mDdW1Ntsh0Vta/C9hO144fxJJbF5O6zbe+rDVQJR6zsQ7eoXCO8UMfPpaYH4
XbdILOddICRP7Be9JBCEhVYtIvErgtCSJ1K02DYI5xV0tj/kB2Fwz9iVkeNB
sPhY1rbyehBcD1s8sHkUhBDd2pP+jUEITGXVkX1B8BXPl7H5F4SNR5IDmqVo
rBaPq/T7j8ZQu8BV/WU08gv2HpRYSyNgv8mBTNBYbCkYa2RN4074u1IxJxq4
eX3srSuN2tZI3XSKhpWrz29+II3Klg0PsYOGmpq+d0UYjaMhapLsfTQGSufc
fRxLo5gI9VE9TCPu6fs5Mcdp/B1lGSw4RYOnft29OIHGZ5dZsc6JNC6W9f6y
v0jDYVEF1/oSDdHDFz6YX6ZR9o23AZk0djmsLzG4RmNFwQKtNdeZ8UDupk03
aczIO2flxPBKSARrM0OjNd5rnBm+/W21YgvD7cXaKlsZXmRNSpEMX1ZWj3EY
/rFK6nJjWB95eX4ww+z8LPsDDKO+5MYlMtw6r6DkBsMq5ckPATlMXkstRpbf
opGhES/bz1BG973mzVwa+/QXbNh+m4Z1UcrCTXk0FPQVfxvk0/hSmPRK9Q6T
n57CFYm7jG7h+T1DDDfqzXFovkdjkbRL5YwCGmNfUtYRD2g0WX3uW1LI5HVr
WapEEY1kWb7Dd4YRuwqmvy2m4dY08aDwIQ0TY9Ptl0poKKcfWRBTSkNAuK6e
W0aj00/+oHU5jcc1rnraj2hkamf2z66gceBsb+ofhj5jKx3bHtMwdw0VfvKE
xtJHJYVZlUzOi4UCjz+lUaAuGJ1SxczTnDqX84yGnM6/GyXPGb214+U1L2jm
vfPnbetLpi5+936rZvaB2cjkRA3jz2pYbkYtsy62P9WVXjM+l7hcFKln9PYN
KNu/oSH9IfpqUgMNv1XyKz6/ZfSO3sjTeE9DsctkbWgj07+Bq7hCE413p8Nb
i5pp3P16/janlcYp1r2Yfx9pBJ2v35zWTmPDwKA60UnDU5tzifuZxu4dz2SP
f6FxokA3Lr+H6fdP2t/3vTSKjKR4E/006vaHfVYZpNH9uGvL+h80iKghqQPD
NFKMBR4/GqUx+nfG7n9/mP1WqKhh8I9Gzq5lnaECPIjqrjt/V4gHrx9m1j9E
eGiy5MeTkjw4pCfXV0rz8PxP1eyVs3mA49CWJAUeCm8oJQsp8bBSyKotSIWH
LM5OlQ9LeGALVB9ZrMHDxysqQ3wdHsKswshSPR7kBmsfi7N4yD2zZIWzOQ9W
6yISMqx5+NLyZnzQgQeqo/TodA4P3V3Z8+b78ODbm5C9MoiHrwP71pmH8uA/
5F9F7uehb9RpM/8wDwHjrK6Dp3nYJpVQUZHKwxal7tR/N3mw1dKP0C/iwYx1
3GVXFQ+G9u1r8xt4WLVNZ/ZABw9qIQd/qg/yIMR/6VEjwMfw0jcWByT4+Pyx
SdNoNh9vznbO/qXEx2Pr3vGbanzcmfbzk/cqPtKLxl4oGvKxNftN7V4rPmYm
5jS0bOGj8mDcB0MuH3t3en5M3snHKm+DT+MxfHx1mN3DOc1HKgb7H6bxcU9u
+LnKfT6qu39fPfSSj86iiZiBdj7Gjgt6bhph9DxFjIskgrFEV3K+8sJgGIrI
/D6wJhi/vP/xIjcH42/+5IOygGD8/5/2UcH4f0RcrJA=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwd1QFHIAASBtBur0uSJEmSdEmSJEmSJEmSJEmSJEmSdEmSJEmSJEmSJEmS
JEmSJEmSJEmSJEmSJEnWXpJ7e8MzP+D7xvy74T8Vbf8ICAj476+A/8/fFUgQ
wYQQShjhRBBJFNHEEEsc8SSQSBLJpJBKGulkkEkW2eSQSx75FFBIEcWUUEoZ
5VRQSRXV1FBLHfU00EgTzbTQShvtdNBJF9300Esf/QwwyBDDjDDKGONMMMkU
08wwyxzzLLDIEsussMoa62ywyRbb7LDLHvsccMgRx5xwyhnnXHDJFdfccMsd
9zzwyBPPvPDKG+988Mlv/vDFNz8EKMIvAgkimBBCCSOcCCKJIpoYYokjngQS
SSKZFFJJI50MMskimxxyySOfAgopopgSSimjnAoqqaKaGmqpo54GGmmimRZa
+VvydjropItueuilj34GGGSIYUYYZYxxJphkimlmmGWOeRZYZIllVlhljXU2
2GSLbXbYZY99DjjkiGNOOOWMcy645IprbrjljnseeOSJZ1545Y13PvjkN3/4
4psf/h7/LwIJIpgQQgkjnAgiiSKaGGKJI54EEkkimRRSSSOdDDLJIpsccskj
nwIKKaKYEkopo5wKKqmimhpqqaOeBhppopkWWmmjnQ466aKbHnrpo58BBhli
mBFGGWOcCSaZYpoZZpljngUWWWKZFVZZY50NNtlimx122WOfAw454pgTTjnj
nAsuueKaG265454HHnnimRdeeeOdDz75zR+++OaHgH/Kn0CCCCaEUMIIJ4JI
oogmhljiiCeBRJJIJoVU0kgng0yyyCaHXPLIp4BCiiimhFLKKKeCSqqopoZa
6qingUaaaKaFVtpop4NOuuimh1766GeAQYYYZoRRxhhngkmmmGaGWeaYZ4FF
llhmhVXWWGeDTbbYZodd9tjngEOOOOaEU84454JLrrjmhlvuuOeBR5545oVX
3njng09+84cvvvnh7+P/RSBBBBNCKGGEE0EkUUQTQyxxxJNAIkkkk0IqaaST
QSZZZJNDLnnkU0AhRRRTQilllFNBJVVUU0MtddTTQCNNNNNCK22000EnXXTT
Qy999DPAIEMMM8IoY4wzwSRTTDPDLHPMs8AiSyyzwiprrLPBJltss8Mue+xz
wCFHHHPCKWecc8ElV1xzwy133PPAI08888Irb7zzwSe/+cMX3/wQ8C/5E0gQ
wYQQShjhRBBJFNHEEEsc8SSQSBLJpJBKGulkkEkW2eSQSx75FFBIEcWUUEoZ
5VRQSRXV1FBLHfU00EgTzbTQShvtdNBJF9300Esf/QwwyBDDjDDKGONMMMkU
08wwyxzzLLDIEsussMoa62ywyRbb7LDLHvsccMgRx5xwyhnnXHDJFdfccMsd
9zzwyBPPvPDKG+/8D9gcgFM=
                    "], CompressedData["
1:eJw9mXc4lu/7x41sskf29pD5WA/hPFOyol30UZKotERTEcnKCNmUvcsmI5ER
mSl7ZZc9ki0/339+93+v477u8zyv637fx/F+H7fI5TsnbcjJyMgWqMj+/2p9
fMfT/YcnhDymH2OJ2weftO2T/8eXnICHNU4aunwdKF7s8pbDh5hlmuPAm5Oe
9mqXs0pmLqz0WYBF8p/ujF0mD5rOhsHr4HB+YIK83RP6jz/adzHVAX5y9V55
uctf/+VU1Fg+ghgpovnhDk+g9WTwvtv1CIYe7i87s8tzk1rvBY89hoKMqrtX
d3kth0yp6ctjmJNZf/p4l4Wvs3E66TgBu+23ft9d/pcq9x+hyAmOfjMMervL
FeXpOR7JT8C1j2etZpens2Njx0KeghuDW+7MLv/gmVXVe+EM30cCyjk7PcHu
DUM36Y47PH3uS7ne5QmzsWQFFfzesLxNaL/U6wmqtZJa3xv84AWD9hOTAU+o
DyfrrP0YCJ3twmcqhjwhoNV49HFbJGQ+Fiym/uMJQia+lc8exsOrVwSXw0xe
0CJ20JhVPhmsNGNHPQleUCccSXV/Mg00+YtVDAy9gP8cz5HAjHdw3KJqPveO
F0jNd/dIaeTATl7r47/RXhBJe54281YebKTUJ1Z1esFz6jhL+rQCYAxdEObj
9YbqhpE2rski4FqyfuFk6w2ltxoz3yuVwJVrl8nufvSGyNBjFaXPy4Di6m++
FH4fSNcBkydJnyB0+p2s43sfOFTbPZo3UwkvafTiPp16CYT0VXHx4CrQzpna
5mLzBY7BghHxwzVA8XJ2f+S0LzDw5zI92/MFJj6rl7KP+cE3+1gz6KiDVg5u
V1WyADisRjtSU/wVlgj3tZv0XsHZFIUrHbmN8OtB7zDjxUD4fNLL2tisGfwe
/vJLoQ2CX1sTX1JZWiFFY8ThU30QtL8PI0bf/gbxHs3pc/HBEBHXevn0pTaQ
szSdyYp4DX23Td7JKHwH1kWduaYnIeBe9zM3j+YHTP02pmF3CgXCh+Iuvukf
wCi4SCYUEQbPX1yLbehthxiP5vepfeHwUGVElT29A4z8j9MwUUWCTLlWcYlb
JzCzXH+970QUbN88Nbhh0wX//FmffKiNhsNVav+MznUD+x63IDW7N2ApOHCq
XqoHlC5qt9ybeQspW+3PDCl7QdXamNvbJA7quz484J3uBYsZn7wmnXjITiqx
+jzUB5vFEV/zTRMgOUA/uaiwHw46ilE8M0iEtef7vMzCBiA1tVKp5GISdD90
rqF8MQgUs0dl1MOS4WDxOfKTrj/hLmp/nV1OAba6x1s/5YbAA19oWamnwY3k
DYMv8UOwd06uw/htOlgm33F4zT8MFzUk7nYpZMKc3OyoYOwwOO3/fjjqzztQ
XB4ap2QdAVpXus7Hr7Pgyjnns498RuCizTiBRSkHIuUuftOmG4XjNUeNC5Rz
IYhn7Jh60CiknipIe3o2D+DwEOEA7RgkvTBKj7qcD1Wc9zfUPcfAM5rOq9Sv
AG72TztuMIzD0NMQ2/6eQnBZYT7iEDUOz5vFf4sc/wDSRR9Ug7gnQPzw+QNT
6cVQc3Q0WDBmAgpGuLNVZEph++wpiz+EX7D5m7XhQlcZGDQYnWGq+AX5l3zz
5UrKIfJl4uh/h36DXrxTp+XDCqg8aaf/pvU3DGlflHHLrwRtTrKTxVcmwXR4
KZez/jO41nV6lVJOQXwMp63Fvyp4LhYrdD9wCuT/OnZ6CNbAzrbiZInENJz7
S7Zw92ItfPOevPusZhqoD1xsO1T9BQwlI4TGb82A4DUjyQOn6uHKwVh1LbFZ
YJgcYaHgaoBvBln1d8pnoTCyZEM6rRFcxXf+iVnNQdqc6Zknts3AJa+5dZ15
HvIMgwoozFrhu9SGy7Ov87CVFaiQXPUN9P4rhpsGC6BgfzLZcqsN/M/72OS9
WQC3gfgwD84f8OB0YqDx2gKUG1p6nDJpB5KJckCr2SK8XDNYCknrAI3AiZtz
FYvg3UEvySLXBd16kp735ZeAnlZYona4G3hFzv42DFgCWceftIm3eoGWKESp
srwE08r1ilfE+8G+QXrt56U/YOC4YhbMOAhckZUpHB1/4MjB5Mv/uIbAMXl+
vvjEMgybT5eRGw7DoRgmLuHKZVjqZBqptR4B99NxVaWqf4HNy5+M+80o/Fw3
LjiV/xcI09rCD9bHQDvQbueHxgq0vD8bp+yy+55pjvsYNKzAzqPjC+FKv0H5
XXzkb5tVaN/M8Gbnm4IuqzMZAnvXQCKhYvj+oRk4mnP3rV/NGry6fJ5MpnAO
rrHzPhT2XQeTS4aymp8WwHAjRcT36sbu93Pn3K3zS3BqtXA7yXwT5Aid3J+J
y1B9iXBzj8IWWAxtsNmN/AVh0RZw4dqGaNvJQZraVUi9SftDme0fkBrwufjQ
OlSZHuJ2Ft8BAjmh+SdpC7pHGSxmaMhQ03Gxe8/hf8Dou64l7UmGpgQ25QIt
MvQLMa18y0SOWeYehto3ybFXxm9n/i05Cqx2pmlmU6DLggxjtiYFhkXcU6ik
2IOC0WZppsMUuPfA1MlBKypkcbgpz/KaEr+k6F+Uq6VGb1JTXsKBPWgpNOrt
+48GZWypv/TN7EEHq/tms9J0KNRD5naUlQo7yNyeKVvT4SnNHXpmNSr8EFqW
bxNNhy8imWtE/qPC63JKfDe/06HY6vLUc1cqvKduGyVPS48+sTLRiilUePyF
zu8QLXp0CRBtJjRRYZLyRJLnHXq8Qx3ye56HGrVMoqkzv9Hj1DGFw7W21Bhx
DAN6ZRgwkXtv5etCatwSMZs2c2ZAv7c3CIepaFDd1F3CoY4BG28NnSw/Q4NM
T4/IutAyov2q3XvhMho80mfPxXWUEdfdHn48L0KL0bKc99KeMWKCQY2lojct
3pWJNL+VwIhc6U9Yr8zTolX3g4N9+Yw4nBHZWXR2dx+v/Gzf7fK/+0Hqk+V0
qKIDHsPxjDi7WLclcZYevYQ9n1VdZcS/zTGajTP0SG2s8zeAjhElPgWLC7sx
IGHYqvvMSwZcf+yb4cLGiFVtHLoUc/R4febcA0lPRgx2HZx8ZkGP/PWDLKRV
RnTM3Hx6eLfPlP0zf2cbJrz8TDVrnI0Os2lpuZu+MaG5zL4fvy1pMUUWPCg1
9iJvWqJobgoNshW5pzO93YvhV5ydHCap0Zw4tOHOyIziv20ER1mo0TP34aW2
B8x4oGbQXpVEhUPy69Eb/cxYVDKn4WG1B2dODE95CrHgmZtLl3wDKNGPHawD
TVmwUsWzO6mSAu1Sml6kPmFBUof5YN8aOTYsp4peyWHB/i8hRYd3dXiImjR8
Y4QFGWOWPk3KkuH5lOHrw6ysSGQWUvfJ+QdxDN8Mf+uw4lAn1/yC4DaYriaw
Jl1nxbIShROtSZsQz82epR7Mil4fUyV8D25ARP/SQk0xK6ZeNwWj5TUg2/NZ
4vEcK74duq3yRHYVqvtWk62F2bDtRu5LyVd/weZ9LtNPUzY8K+ZB78qzDMs8
4K/txIZ7pTcUWmuWQEI7WOtrAhvub5yYDwhchH9LBvE19Ww4Uyvv6PJoAQ5Y
yR+/McOG7qL2N479mQO7gLjQJSZ2vGzrslAhOgv5ondcL6uzY3zpdR/W9Sm4
cbZQp+UCO8rGvpd8yjgJN1xW+n3c2HFf57rHp9O/IMCXVXQwgR1no3+1tTWM
w8fRJm36Kna8KM+VVHZtDPgKH6vp/WTHvUxX5q5Ij8L5E3SCFRvsyOJoc+UB
7QhsTjhzJXBwYNddK3FNimFQ8a1ITznEgcMniu6bOg+CWGuc7dItDrRIbx6n
8eqDQu3DsrohHLiQy6OzStkDk/onaeQ+cOCeUOrb4QOdMDH+TlSuiwP3ld8X
iKLoAKIQ6VzK8m69vpCglzY/wGqWxDDNzInU722D2zfb4CxtWB9Ic+LFmsFY
lvJvkN+8aD2InPiXg9aBXK8VeueqrFbPcuKxjQoKS5NmOHPsl0XBDU4MWCGu
H3vZCKIC+cbiLzgx4emSHXXQV3g1N2n2M4oT2/ToKIZ+1EGbio45Tw4nQmI0
8wnDL3BjJUlzo5oT92YejUudrIFYZ48X6Z2cyPpvJD8uqxr+6Li66/3mxJCY
/mSe11VgmrFPdXKNE8erpfa0Bn8GX89hine0XBgewZ9GyqiE+oh9qpKCXBhh
QBUWsP4JHof+spIkcuHdCpfWM78+gv4XE5qew1yoURdsTMZWBu7l4aHWZ7nw
9GBtmpB9CfBrBLeO23Lho5cWCmwbH+C06eNepwdcOCYfuxmdXgQqTwzZND24
0E1+VjTqcSEU39DJVX/NhQtT2yH1NgUQLXfZ63QKF1rPmlEqk+VDgZnbx/3F
XCiqT7tQUZsLjU/+pozWc6GERH6+bXYODL1NcI3p5sKDogObrHey4buDUPTd
X1x4viClSTP/PTAMFR91+suFFjyN5cNi70Dq2O+0BgpuXIu49t9CaQYcZnjA
eo+ZGzsqC2rNHdNhIfJmDp0IN5onbcNATSpcPfa83kWJG088YyqvNEqBT5r2
kX+RG3//9k2/spUEOoL5Qy+PceMdq79O098Tof/z96WzF7hxU+QOeUt9AoRT
VQfftuPGUH8uKv+eeFCtGo8YfcCNdj1iRx6Sx8PVDaoHtc+5MfvG5o6zdhwc
qJK1efiaGyub4wh3772FyPECf6lEbtw/YvRv5X0M5B3d2fM3lxt599Vdm+OP
hjMqsd3rFbvrr0TtnyyOBK8cSbajzdyY/FiXUvRJBGwePuX8r4cbu49cUOe9
GA7WLaSDIhPcKNJ9Zd+JC2HQmM5kVrXIjcfiVvuZ7odCTPn9fccpePCH8avz
VRgCR/79UV9n5cHk4E13IZXXYKP9yKVXmAfXNwK3wgyCgTz4GwejAg/+q1ez
WX8UBGvnvRwStHhw60/CfeHPgdDoE8KdbciDBZt7GXIFAkFGs5r34Fke9GGO
d+jjfgWzV4YibC7zoErZ9Jo0ewAsloq9WnPkQe2mBduij35wM47Vo+UFD/Ko
p2sERvqCa+qjHMpQHhTcTh1siH8JF32rOHOSdvs77FMjtfqApfWW/e98Hrwm
tNW2tZufdF9L/v5UxYNOxQJkh7y8YaFaOuxQGw+ynzNkoWTwBt376usvfvKg
HT15ZG+yFxSKRDFULPPgcHME03MVLxjgcvqQQrcPD2SXf3KZ382XTBIdlwX3
4WcfuSah3Xxsn+oawKO8D+dvf043H/YE0i3m1hn9fbj3dpHme24v4B1kyaK6
sA8Nsoc/Kz/2grWhmGVfh31Y4Fic10bnDWoawRPvvPehn2i6dWSrN9SHTi75
p+1D+mA2DVeDlzC0v2xfQsM+5MtkCCBa+MEJ0reN3F/7kEutMZAUEgCzrV0P
9Gl4Mc9gNNipMhDGaYQ+6oryYqiuh0fBgWB48ekBXwfwYlXCw5m7wiGg6XF/
LtOcF7UprR0yaMPg6Li5r9gDXhzYY7WwdDsCMs65SCW/4sX1D14HLX9GwZKP
GMVgJi/6z7eWcky/gQ4WAm9KLS/KraUb93nEgdp/GueMR3jReW/yUf1HCaAm
B3QlW7zok2sN8k5JUEhfQiLy8qHVyL37l9dTIEovVPiBKh+6Glnvv+ubDlRT
lgeXT/HhjXx9PsnydxD5k+2XvD0f6s2PKBlT5MCbj6dMv73iQ2tFsds0DHng
7hdnTHjPh3uuC1WsCRfACXxax97Ch1xWzEfFiorAxFch8eMMH84OOVPkW5SA
vut8ozQzP/asfsrVT/wIhy/TZ11W4Memn79i58kqQe1a+VD4KX4M6Hxnu8JR
BZr6A1o1T/kxq+FKwvG8GvBg1MlsiefHgXtlqUpGdbBEXkZb1siP+QJOzVXu
DZC68/Zx1iI/Ptr5RBQtagYqqQMZt/gFkLlAok/w+zewjLf0PXdYAKUoqKzT
274DTdZ0gdpdAbyUMUOTotsB8hOP7iolCaC2/omYL0bdcFWT/2b7oAA+wT7Z
H8L98Pv+95VpNkFUSsyYkOz7CUlMinzapoJ4jef3g3taI6DvUNJX7SGIS+bh
8W9ej8HSYo77hxpBzJR2Vrlu/wuqFfJVWhmF8EHXuR3OrSlQrij6dfSSEDZ5
U3RT3JmHfFJpqUKVEJqc7cpofbkEEXaXrb8xCKPN5vNXP+X+wpELPt0NWsJI
X+Li/O7CGgS7J3+ztxFGmku+qcICmyDwUcj+Y7AwCnXFqLTCP+hTeL63v1QY
BU8WGt3yIkPxmMXQwglhpJRNVQ9npsBM59d54VwiyDsoN/m0gBLLLUXKPhuJ
oJ/EmXMfblEhc0ijw1l3EaTaOkmYkqVByhIOKYVXIugsKbxwwoMGdZ+YeqhE
i+DXzb35s/00mCuky22bKoKbBXX7PZVpkcVbw7g6XwRTvY2dhnd9qhbdH3vj
ShEck/lyrLqfFt0bpEu2m0SwsqdLeVaeDpfDbFR6ekTwr8FQk+AzOqyk5L1E
syyC8xN3rgfy0GPTzTPdjXtFcYrpzc/tFHp8enmPBa+MKI7pN9oZEhhQVijL
Z0xPFJ+/OtJzOYoBDRsyVvZdFsWwyCCb85sMGLi9Yp7mIoqpbo1G9wwZMVy3
tOFJtCjKWSjXH3BnRKbh3CmTDlHsk1Sg+lTIiGeLycZlmcWwWILj0cSrXT8d
3XvnoKYYQqOb3YQmI+6MHI/LuyKGh+t4/dVLGPCa/bUADNhdPz1rJMTCgJbE
GGJBkRh2Kb7RpThCj76zvCVDA2KoZM3T3W5FhwaCgguJlOKo10IRGGpHixls
XeQTUuKY/ItDa8iWBof16czlTMXRo/yg7xGkRqVKhpYXDuJIW/ra8S4PFYae
k6KfDxHHvMAln6/LlPhMoy71QaE4njG4TbjSQ4EHmFW4ZNvFcU/5oqvUV3J0
EKqrFlsUR4Ulvqn1WjJUOVIddY9RAv/L1bb9Fb8DTeYJenuUJfAyrwSzzuIW
0FhYnDtxVgLV1R/F33XfgJM7q3uzH0ggWRlrPPeZNWAdKFO/ESKB7//TidC2
WgE1qwPdTdkSqKfz586ZhGW4L/2rlf2rBAooMonXsv2BiOBVssdDEljSUtis
/n4RJAK+18qvSKDiparTX24uQMQYr48VvSQaiZSW7o2ag5ukv1dJApIYu4/C
XSRkBmjLm0LTNSWxgqlWPiZwEgSMP/tvHpNEw6cMiznPfsGYiKTGW2tJrMxb
blTPHodcdeEjtfclcWhR4Nk1zjFwzL8XG+MpiafzyxRkMkbASE+oxjBMEu1N
toxqbYfBdul7/0ySJF5fpLiaoDcEWofSVjwLJDGtou4Ui84gmHbc7mCslsR2
m+eXs4n94NvdUBnzTRLrPe9+irDsBVKFRt7xAUn8RBs69utjNyQtXmSCSUnk
ed9Kz3C4C0JKytSfLEviupX52vP5DkhsPMnBtSOJixymMdml7YBTK2RPmKSQ
z6DyWKvMD2C/m2zSxiuFPI3R6g2NbRD9RPGEhpQUponf1a4K/QYDSk76LUQp
jArPJKve0wp/8nyMU7WlEOgJM3v2NUPTwjnebn0pNIQfVX2WjfDsIe27uyek
UI1sf9mJ71/huaKo2O0LUrt5Itd8Y70OdOjUtkKuSeExNdfoIfMvMDqoyrHj
IIWLQSHy7Lt+Nt+n6Nrnp1LIRc6adiGuGkIYVDtmPaRwLfIpz9jjKlBwpU55
HSCFbjp0G132n4GSZ4yhMkwK784kpYFbJTzpp6K2jpfC5V9Ka425nyCXn1X0
aKYUvjmySc2W9hFa1SkEggqk8BAXZ+NITylsqWcdOVwuhfd0BDvYdErAloVN
9n6tFMpvN+uqNH8AbYsWXqVmKeS+N5Gt7FYEd29se7m3S2HQZXn5vWcK4S7B
TEB6UAprDNiUNwfyoUf7YIf0Lyn82NB/VDQkD8zahbgj56VQV2buj7h9Lmjw
LhK9VqXw4DXZXKGbOUCdLLVNviOFBxytxROos2FK/8YRTmoCdn1LM86xfg9s
bH2kRkYCcnFpJtBMZsJE5nbkR04Cnk5tuVDMkAEajF1B+wQJmPnO4vrza2lA
23Cr8o8EAQtZlCJ//E2BFxVP5s3lCGiac3uJ8V0y3HhwKdFMhYCX6a+GMHgk
wR65HZ8NTQIe33FNbHuSCCPGld8MDhIwIDttTs8vAUqLjnh8MSRgi73+8ysW
8dCebhRQfoKAn/UG+yhOxsFJw0RRHXMCfonX/fS1+S1k6et1nblEwDNjkpEK
sm9g/7SNFMtVAgrE/lbU+xAN4TlK/Q9uEXBxeGAj/FoU8N1ftwh2JKAN96PK
n5qR8J8NT/bIEwIeonxhEFMaDqUfcheK3QmYUnZrie5GGAhWOemI+xJQJOD2
Y5rDofDrsjwoBRPw5qFLYZIQAjEj15KmIggYmlP4/OC51zB81MnPPHZ3/ur8
RTnvYBAIbmr2SCagk4xb4ouWILirkDhFm0XAbNt1cBsJhEH2+sPCRQR8KRpK
l8QVCMHvZ4/2lhNQXM6Z41hjANxZIUodqiUg3euB4aYwf6grPClp00TA9AUf
IWkfPwgtopA2/EFANSOGaO43vpCgNDm80kNAt3+GfSYtL0HJhfLGuVECHkxj
OMS061/nnU+a2cwQ8L1ubEX/tjcE1wxMKPzdPT/bkH/nT3uDG3nDuZptAm6c
IuZ8aPaCjFmT2/LU0qi2dHvQzNYL9lXe//5orzTuK3JVjOHzAtW2Y1bvuaTR
jcnuT+a0J3hCY/Ij0V12MeP/3/8gvd4lej15aczwMRdiWfCEVrKaVTlNafxr
9LE2QtcLwqQqDx4/Io33ph7pnW/1Al1259LGk9KI3C3rP954Q1/BeeFaS2k0
0Yed9hIfaKDW/3ztljR+2u9074CqL+yPtzw290Qav+uwsC3L+MPXBv36t77S
aNYTk6hT8wrETN50fImQRnvGN3uW5YNAXTjpBW+qNDbc3hBK6QyGo+LZFr75
0nhWU8yQ6lkI/JLaGCB8lkYtVRE29qAwmIkLZ7dulkbOruZ/Pu8igNvbsaq9
Vxq9p6dZ1gyiwT+3q0/glzRG7/9rfmnlDZw5l+WStSyNOo0Dz/5LiAN5PT0p
CXIZdMtsTW09lQD3sw85/9krg+UVCax115Og38eSIZNPBvn1BGwu+aYAd/vo
za/SMvjJ8cXqinQ6fCg1bO9Qk8GIWZX12M5M8GPz1jfTk8H1ZU03PcFssFTP
nko/I4Mend40dDG5EPHqb0WXtQx+YXuY5xWSD/GPfVVyHWVwYEEQjpEXgcNO
b9aymwyGLKw0WdoWw6+PGlw9QTKYadjnWHaiDK7ocRp/SpTBUM95SeHFTxDG
1mn1Ol8G1W957e/R/Ay8s+tNxrUyKG4TLdttVQ2MVQJ2Dh0ySPL8cuaaRy2U
+yaqP/i1W39k/3KcQD2oGrpFft6UQUVL2RLX441wL8u8fotpP/YXPyWlObTA
023Voqui+7H0JPUha5E22G58unVUdT9y7+eoWqD/ATPndY1tjPajrJjtvUHz
DqiIfCUmc3k/ahr+vXJLrht0ns1P0Tzaj4GnNU3t/vUCx/V4Yf/A/XjqANtX
7auDwMPYF2j6bj/aK9HbqxkPgz2n2quu2v3ofUvJWMdyFPT0aq8EjexHYfk9
93JGxuHbcBOTHKUs2nj2OTKv/IabRY4egQRZTAnVc7WunYEjI5deTp6SxZ9U
pbHCXxbgTYLaxS+estjP1bnM1PwHHt1kSEnNk8VnUVQtvSEroLJiQZT6KIv5
zHDKSXkVZNRV6iZrZbHIhCVso2sVnP6RDS22yqLR1ZB2v+drYBdhxaDbK4sv
uv6esFJeh1cvNqf7x2RxNpYjNGVqHcSE1dVr52Ux1v5IjHfaBmwYH9XwoZbD
W2k7K5WkLcjNq9tKEpTDaINCDfbxbfAfD+JXJMnhKaNlAk/WDihCgIPuKTm8
uveF/shXMvRnuHH/zx05zPqXyh/SQI7MJzvPmwfIYctjnXXmbgo0qbq37JUl
h95P36m5LFDi/D3H3pahXb7+alw1nAobHZ89EuCWRyotC5fRgzTYe+BO9NUT
8kh4d5ndb4AWjd2oSDdfyaONbm5SwQl61HbKks34tns/RtPo1nMGbEqMvWLB
oYBctYyqFqcZsXmrOM/NXAFr23TcpfMYkT42TNc/QAEv3RJ9UZ3EiIfMt7cO
VCugwXeeJydMGVEmP9uMYVUByZfgglkBA9qyKRpWcygiW1fkBfEheswTJphK
yu3yO7H99gN06M58JMznsCLaUKV1/i6mRdmZPXE/zisiM6t0x4ALDV46Mlz+
944iXnJiDDLRpEZosA+fclfER/3dlhbLezDINtqsIEwRr+kFRRJ28wXh6/Ge
82mKGMtGyh92oUC9whnetVJFtJaOVNZSJse5gu96R5oUUSuHOb90fQe6nDJO
W/Qr4is/bU620m3oEV6aOTGtiMmKI7YZqZsQNb96XmddEe1l/POEP69DcNS7
GXVqpd38PGgnuGcNXPmOBp1iU0L3oKLW+lsrkMXyPj1JQAkbmUYimTaXweuJ
iuJ+WSX0fstOKJD7A/TJ2wsPNZRQ44qhjUD4Iqg6P5nO1lPCev+hci7FBfBz
21L+c1wJo+rtyFzGZiHuIZX/hf+UcFPQt2dvzjQo0tNvUtsoYUPN1fdGJZNQ
l7fXeM9tJTyYGPV9Y/UXWPSG+lx9oITOqYOxvDYTwJ10LnftuRIO/s4acZIa
Ay3JXMkTAbvPH9Mv/I4j4P+v7GBshBIa/v0y8zpuCFqvLmTTJiihrdOXwBTH
QRi4/O/0uwwl/Odsq/l9Tz8ILviUJOYp4czEsuvrsR4ojcsT21OqhF9lPwqy
UHeD3ka5VcdnJVyJemhsLNEJT/1Ulfd+VcIWpcJT3a7tYOOARz+3KmFq4l2j
5r0/YKhc+sK/DiVkN9lLpVbXBtZXi9O+9ynh1tmQlwmJ3yDO6sUjw+Fd9t/J
TtRuBU+Ow49uTuzO33JGc/RaM5xIvSVCNquE2seXE5PlG4Ga7ngW9x8lPBN+
XS7/wFcYJb4/UrWmhKTgQ5HKL+rAts0wmvGfEt629B3O/1cLY1Eq1uSURHSV
ti4JS6wBad29H9NpiGi+kXov42Y1cIVs32NiJGKx1vae3tNVcLHziFADKxFr
85W8FtcroZr1ipYANxHDjzByT4ZUgMdgag47PxET3a6/VnEpB1G9Td1iYSIu
0/jdJyaVQciPVToOCSL+Lg7dCNsuAeYw3Qp5aSISjjg6dj0vBqUgfjJmOSJK
r7by1Ml9gLw3jkfViERUpcqucHEthJhohxkydSI+kFhdNKArANqLQrpOB4hI
ziZjvPYpD8bCjJoygYh29z53GkblgnrqBZ83h4gYSlLJuBWaAw/IHXXP6hPR
0npa6dK5bGj+70BtnxERX9BHbTjmvYfisH73yGNEFEjOZHSKzoSg6buP9pwm
YrZLd8nT+nQoWhAdkzQjoqBzi3SbXBpkqOgep7MgYvMX65HDVSnAVX93Ms+S
iH6Nfy+6uSSD5P2wGmlrIh5JCuaPtkgClqE6dkdbIj7TX5aoOJcI9CwzcTN2
RNQ+GDz9nS4Bur3snvLdIeLm/T9G4xNxkGZWT0XnSMTjQZk91K2xQP5nm7r8
ARG5XuqNpDC8hTVaXzodJyK+vH664D+nGPhT7R8W5EzEG5eYf6SyR8PLW1+v
fnQlIj9z6eF7bZHwOdHfbJ8HEX0l6wuklCOg5vfrEaIPEXv5npmFNoaB8Ipe
Eas/Ef+S+bWoBYVChUY7fXkgERVIjFfDn4aAxNDpOc0QIl69fCKu2es1cFmO
uwWGEzHstoY4X1YwCB7wkKqKIqKNheW51OkgqF0rlSPFElF34lwE01IgBKbx
rTkkEpEvvHd9nC8QyJnONjqlErGgk47y0JcAKJ+S9z+bSUQaonYfm6c/MNvW
sjBmE1Eikca25Y4fBMYUH4vL2+3/wFjSz9kX5G6VhXIXEfHheKONX8ZL6Opj
NaYpI+Iro5Tt20k+0JZw8UJDBRE/KNgquH3b9W/p7MHXa4jIvdHvFivlDU84
SS9m6onoFN6V9yxp1z/mfFsyb97V25j14UOHvCDxwL5/H9p29Q9JTnLkXjDO
YWTO2ElEE1k7PYd+Tzh6qZbfsn9X7+mCX5t7POH4u2f+JSNE1O9+2Ujg8IL8
SdVF2Ukimmm/zxkO8ILnkEfVNE/EC/rtV8+e8Aa244LwboWI8rL6vTtXfSCe
odzx1zYRDbStOFwnXsJ7Zm2Tt1TKOONQMGky7Qf0hacFtpiUEauvHbNKeQUX
JrfyqDmVkbFdaKFMLQgEy4LOfOJXxh2TkmpHytcA/I0CdmLKqFPG+MHiRwgQ
G8jsamWU8YHfs+NPhMMh42ry6VNKyqh3a/Gu5KNIOHjtgkg4SRm5for+6LCL
AcqePUlyoIyRby5kS9nHwvYzDUn3I8poEu3wJCMmHi4Xef9UNVFGXSpdOkX/
RHj89Y9I7mllnBcSoildT4b+++29fv8pY6kX8fyje2lAn/v8qqa1MiaseWrk
+mYCxT6dk8Z2u8+zyVvHFGTBh+a3AeoOykgufUJc8UQuyE5W+7x8rIzMvPeW
35/Kh8uUahzVbspo913kTVNbIbjXrfvY+CjjS8m2URfLYmjwPz6xFqSMz+z2
zJ3zLgMxec2/a5HKOO3g0K715RPUGFbErCQoowx1gpG59WdgUB5/qPheGdXs
xwnWv6th2CzhpkyRMioE/eOyNvsCpjYveY9WKmOObcCbTYuv8M7dbq/HV2X8
vB1QwH+xCeYFPTdHfiijq+e1VHvqb2BQGqmS+VMZn1flLd0/+R2K3gdmG0wp
Y3LX17Opoe1gMBPmrLeijLkPeBbGL3TBo3g+2tvkKnjwU0ZWk1wvRKvMW20z
qSBNucon9egB4NDcc06PXwWDG0JlDWaGoET6jVuytAqGf/xE1GYfhf/m7JIb
SSr4REG0ZF/hODy5XtoibKSCIR0yoiZrvyGHQ+2HwkUV3Ot3lHaZdRZmDpip
591XwbRwE+NsiUVwT+JxiA/arfeBf/av+zJk3HxrNJqmgklG31Ut3FaBLf1U
6NwuO3Xxnet+vgoeHyuG1ndZk7uQ7syLVbhSNCJLla6CYkkn+9s8VoEl5eNj
ll2uHltpMfVahZkokzq+Xf6kkzTc6L0Kb3IHrIm77C1FfeyL7yr8sDSiNNxl
uqi3Wp8DVqFCOCTZcpfZDZ5nfAxahcbbFlG6GSrY8aAoNCN7FerdQ7MlM1WQ
k7V6oaF5FeRVxX4xvFPBz4zfqQRnVuE1YU53aZcZGRiFkujXoORshQmxSAW3
7F3TOfXXYUOXg2K2QgUlXUdGkyM24IMZm7NMgwqCbsOoCdkWdFacU/zTroJr
51P7u1y2wTJWvvnYkAr6Pk/1qePYgTL9iKtdcyqoc2FgYj2ADGWWg9+c/Lc7
/zE3bZ0kcsyP/MDwba8qPp2Mtlipp0Bg0q+wEFZFS69v6d0blMgtosFPqayK
5wSvah1So8KFpAWPr0dUUTQzuGzlPjX+iYsrrbisim5qDzNUeGhxr8+Vz29d
VRHvUNDMxdKh2DK9+Xq4KhopfGhtTqBHjSc6O9I5qpgnlBCp5MyA1Hz/edJ8
VcXrZE0KYuKMuD+pLsdyRBXtcEb7VgAj/oxNw/VNVbQ4fEa/tZARY5+EModz
quFXtgOaY+GM6Nh6rHBTXg0vHdo/6KLGiKKKhaRZfTUs/XNMzjqcAQ/tuaBD
uqSGa6edVu9U06OF5S3jvIdqqDE8UmZfS4c/VuNnNQPU0POhY9tAGi3CT9aO
skQ1zKF6xlv3iAY7lkO5CcW79U/k/2AEavwQpTbp1KiGm2vOB+YpqbCl4SR7
0YAaqueE7Uw2U+Kx9wY2Q3NqyPHCMelLPAWKBV++v0qujvLTQVxMpuR4LWp1
NIddHSWtjnGRWMgwxI1yUFxcHQ/xC4w/+LEN9AaCljeV1ZE6o6feqXAT7LRe
7407qI6CpZ+CWWt39WD1z6PLVB0fqCrf/bKzm4cu4QThP3V8r/xWLvTyCmw4
8yem2apjUEGdvs7UMtQXXHK8flcd2zsiepxf/4G2hlByLnd15BCoIfO/vwj3
NL49mvJXx/HH5Cq16gtAf+Gx5Ha4Ou6c/iqtozoHSenKH63i1fHTTSOTEyoz
4DGk7i+doY6jpw+yddtMgWOAXJd1njpWPRzoqav+Dc4fRab4PqpjVEpo5OXJ
CdhqoH0vUKuOZk61QT2Hx4GzSdDDuVkdCXvzFp+3jIJi1PmFox3quEauIPb3
2QhYnaGji+5XR10mm/bmU8Ng4dc1dm9UHQd+svu46w2Bsdwj455pdZQup2E9
yTYIE4lzNm//qKPJf3OZJuN9oEdGM9S5oY5HCl9/013rgbrQ6sBgchKaO07O
xh/shv5fWpuDNCS8PXZq9VVJJ/jsaH2oYyLhQYJNTcBuPr7A41p7lp2EToVa
cer87TC1nXJSlI+EdONnhy/c/w7Ug51upqIkFH+azZpD3QZMoqbb8wQSvrZe
U//k1wqdOwa/uBVI6H2urNfcvBkORDSGtKuQkLP4GkePbSP8biLjJ2qS8Lxp
RaZB5lcIoBz9rAkk5F0T/RYkWA+/OGZkY/VImCNu91Hj4BdIVRGL8zYmoYO0
/3mz+Bo42aIVQH2ChEp2eiyXVaqhtt/mu8RZEn4t+MNFtvQZtP4+Ii2eJ6Gq
M3OI149K4BB5MXbXkoQaG+TH9qdWQCB9fEK29e588ebtvn3lcIR5ruzMdRKm
PfU/YhpRBj3llo5Bt0nYGXm0USSuBFjeKWnYO5Lw+WBW/Nr4B5g/oKe6/ZCE
g1PMxv6WRSBhyv/54FMSChjYkOftKYR3h+lq9FxJeHEilqetJR+2SQPrzC9I
OB/cN/SqOA/OZ/nsyPrs1lf2jtI8mwtJjIVqM/4k9I8qKZcUzYGRNCF/82AS
suUNWFsTsmC26r8xlzASTojYla8YvwP51UrXK1EkbDuspTiZlAEpk90WrG9J
KPufkBbf/nSQq2O47htPQu7RQeqVrlSwV6C7Y5xCwmbN79Oy4inAeIjO+UPG
bn9z4c3h9CTYdkyx6M0i4dR3V8uBi4mQ//Db2sc8EtLe6+0WP5AAnBM3amyL
SHhpTGPxGikeqqtFaAZLSEiUyTobcyIOWP5WcRPKd89DxbX2OFUsWJN3niv4
TMLEo3ZOUnMxkLDUurZcS0Kq0yq3RgWj4ZZR+NCfr7v7WZh1TnoZCRNO85ol
zSS8UR7nZSsVAS6hdj3GbSQs+BHtc2g2DKi5Zp1y20nYsXBcfLYjFNTze8jn
u0g4Y1/IeLQ/BBrkXms97ifhqYJb7qMRr2FeK2xf5RAJpdYEF6efB4NkQWhv
09iu/m7ZbxgGB8FHGkvJ1N8krA1KIRVVBkKqk631mRkS5iX990qXbpczmTb7
50n4s/xZCM23AOC/+NRP9w8Jv1w1qk3N94eMGKYLvGsk7LW/VUc08AM+K8Go
0i0S7sjd4B3k8QXSpeMOsuQaOPHsVWox30vIGjbajcQamO7gbkA09IGq4ylV
CXQaOGPaK/ws2hvu/B18k8+kgc0LAaMye3f95TWaY9msGshz6qt70xsvGKqY
O+bBrYHCRTMHHkh6Qd6gyrYZnwYmtGU/aFn2hLd5fsaSQhoYnrLO83rXz/4f
koyttQ==
                    "]}, {Automatic}]}}]], 1], -0.1, 1, 1, 1, 0] Sin[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 280.}}, {
                    3, 11, 1, {760}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwtmAk0FW/8/0l2hZSUr0QLFRIt9vuea4nIlpS5tjDXEnMvlSjKUtq1qCQi
VFQSLUKWlLSQSCVLlhIhKiJF/Of3//3mnDmveWae8/68P+/nOWfmjIoXz5Ga
JiAgIMicY/9z8X9HXeb6cdPRaNb/8jSrsZpNWIYXsNwamyr2G1SyRF6Myd1V
ecNyvTZ9/dKlzaxmQqzUZk4na4taU6O6fyfrndSNoemlnaxNQ3tmdMp8YtU3
WquX+nxi2Zb+Z5pU+Im14XBZmIPnZ5b5Js9ccbEuFrFgWlfF7S7WbCmniWGj
ftbwhKOE3JcfrNbhvfI5K36xqvquqJqH/Ga9yP/QfEFmGrQH3RdL+4mhq/5i
ec7xGaght2te3SqLazbi48N9cogyyXrOjpRH7WndtS9C50HxS3mmHf8/+OvZ
yL73V0aLeSArd5UKYng6ocG5qlC5JhtamLUYj1p/7Jq6vBQecnW7LC6qY9Lq
9q4TCcuREhW/6+1xDRg+CNqlGKeFgdBrBvksbRjNOl/sZLQKnu4Xuc9EdHDg
Ruosg3odZI9mlOUk66KanRWgzF0Nv7EkZyfJNZiee5x9JG8N0r33a5VtXguT
eSHzh/+uxat2JVfpmHVwvfbi0gpxPfQH7mpff0oPe3RVVHzm6mPbtctF0+L0
YTlvoWP6L31oHU/rY3kbYM7Ugti2egNof9cuOKFhCOt2dq/RIUNQr53++9Zp
iKhyrl2ykRE+CDrKyR4ygraZcWNcvREOx6knTygao/O5nEcI1xjOsn2JdzON
Ue3yqO5XhzGIjPPiaxeYoKAvkL2bY4Koxx76YydMsOGio3b4IxPMDjFX+ztk
gjYrvQV7l7AwaucRYmDHwgznuKo/YSwscb01vyiDBWOvt3RYDQsGYhE2c76z
8F+j7JwmMUDxxpdYtfnA/MiioV0rAOVHkyqt+sBiITMHtiWwzOJIVLYzoHWk
9vZMCtCpkWvfuQPQnkfzf+xj7nOfCwYeBTTuqib0nGPmC0Qu9k4H1DY23m/L
Af64Vu2UKwCqA+/rWpYDlyKuDEU8B+jjCfn59QBSYvjdzUDekU+fPD4x9Xez
Nzf1AvE+Gc8cfwKTDtMMasaAIJZXjrkAAevL6uOhIgTUBb9bZUsREPG6f6Fp
FoGux3t7JOYRqFjEXmukTCDtgNjBoCUEIr/UNqSuIEBanFOtW0VAL4sTLKhH
QFrrXNsGEwI992qtz5oRONdhYpZlRcBM6rZRsS2B4XXKa15tIpDhfVKzYyuB
7pJ3dd2uBJbL/7dzwJMAzfOa+8uHwJ3n2cV//QiMqHx3EwwioL93jaBYMFP3
7d4rM3cRuO8f7XQ9jMC3ybjpZhEE3AtU4icYvg4qmXs/kgCxZEt60D5Gp/Xn
8qX7CSw6e/xeG8Nz1momiVEEwopdHcRiCHCWnfEJjyVgcuHZ7r4DBFRE/x3l
xBGYHqqTWnOIgOSsubZJRwjMyh3/Rx0jMH9Dxy2dE8y87kq3qXgmr5jrM2pO
EdBeEF964QyBzPurH5qeIzBnY0vhYCKBw13RBUkXCYzvVb9ndonJ65KpNj+N
QFGZe05yOgGFjnD1Z5kEdgueuzJ0lcB71byFC7IJrDarTrG6QaDBfplDWQ6B
ELdDwrq3CcgGfCnKyieQF2pK/3ePgF1suurpAgKDJ6feCxcRMNRJHhQrYeq+
XSsiVU7gXegbJenHTP/z6DWznhLgPxTfOOc5gVK3qz4K1QQkBIgIxVoC4g3f
a8+8ISB6LVVFopFZ//CNO6NbCAjbTFSNtRMQUr45j99FYNqQS2DPVwKCT8XK
3QcITCU+kH3/k8AJWude+W8mH/Nbztf/EchWVP9zRoiNtUMZyRHibDx5rmTC
lWbDIe1Ch90cNtp3ycXqK7IRaBO/ZJEKG5ItWifqNdi46f/61349NjaM8Vy1
zNjojZOpbLVj4/Cc/BXHOGyoXXFI0Pdl45nO0N+eEDa4FWe8zu9jQ9he96XZ
UTautDWsGj7HhmnQzqT0dDaSJJXWuOex8f3607r55WyYW9KBja/YSO6WFzvb
ysbPA+WZ9v1srF/kx5rxl41LFTItL8RMMexRFBo31xSxxxZM79cwxawHsaft
2KZI//R1wb0tptCeaZujEGSKcv27+pExprClFJ51Jpri46lIJ4tbpggq+dR5
47Ep1tubapR2mkK1KzP0tYAZ/u2eXtGpbIYPkpTkLxMz3El7ulnE3QwndJde
Vog0g9+zuL7lKWYw5fSsNn5ohtOuF/4I9Jqh3c2qrFLeHJoef2MOm5ljj+fN
9TYh5ni+zVVK5rI55L1n1De8MoePT9m5xHFz3KF4JGeZBSyizo/aB1mg+WLp
GYt8CwTd79IyGrGAYJ1k9Sr99TjXp+OrFrkey4RJIaWK9ShRjk6bJWwJe4Ns
QzErSyTVP9p3N9cSn/2aKtxnW0FDYGi6xB4r7EqUsLzfboUyrUXHPM03QKzK
sFby5gY4uDnJPpCxxsVfgU5eodb4+NKSFS5tg4Xpi5efyraB926BOVnERlzb
2DpV2rwRvYsK+97usIXG34R3/VJ24NfxHk27ZgeXhqvvjivb4+qi28uTE+zx
c0fh/uuiDjCprHj7YK8Djs6uXlb13QHvfd7ue+vtCNX7Hxs+NTqCFu5R/2m9
CcWbf0ROlW+C146ad5MeThA/na05OeWEAx+rGnn7NmNq2ZfozonN+G9iOfnE
wxl6tXydq4+d0StSaqAvuwUXWeKmrzy2YF/vG6FjaVuwLSGl0rJ9C/zzRQNe
yG0F/3WI9AbLrSj8plxcvWMrBCRe+WxM2wobmUOWm59sRaI8oeHWsxX+yaZ3
1IRdYLjQQm9I1QWi9Te2Jhq6oCFaOtzIyQWbt76vzPVzQaPWJRmVSBfEGfyt
WhbvgtUWWyJ10lzw2eGermGeC0ROWkU/LHXBspq2WsNqF+wt8Lo9470LXl3u
Ptne4QK+eqtVU68L5PLqhRqGXHB/3bPSmnEXbC0v2V01ncTPmp21JZIkjjZr
LLk7i8Sffa5/aQUSvouOv16+gMT7Zw+vdC8iYRbYH56xjMQdGUU795Ukrnnc
/H5Ll0RSruGpf+tIKLWoyqsZkkgXlUixNyFRuC17ZjNIvH5oEe1tSqJ7zpfh
b+YkJnix3FBLEnIvVZqmNpCwlm4pibYmEet09rKQDYnipI0HDjIcahPxE91I
YvniR9ZHGHr5h6+UtP2fejpyJxiK619tPmVHIuzJ3Iyz9iS+bjzqf8GBxJYP
E9opjiSeefHG0jaRWDvQWZ7pxPjd7XQoazOJ+edfueVsIRF/z2J1vguJmgdl
nms4JCQfrj1R5EpiQ1lukbE7icMVS7srPBidytRZFttICD+XZ730YnKojt9u
60Miz7skb5xi+p7oHcn2JXHk7FxDZ38SoxrmUULbGb9PQ57mBTL9u12WcKdJ
GI6+spPkMz7KfLISQ0jIHBqfXLSLxB67M855u0l8mbss12gPCbuOcuEXESSK
sp3dNu8nsTh44F5nNONX/4AUfYDEmKCiz984Rv9l/sO4IyTa6h5ofjpBIuiU
3pDraSZfu6KCxrPMekob7HW8QGLe62LWq2QS2fGG0y3TSKyzLXn+OIOEpkGc
a+k1Rn+p/Y8HN0gozpp/4E4uCdnJz3Nv3SEh1nfrZlYBial3u1kZxSRGKoiG
lDISd0WUv3pXkuBbT0wsf8nonGqSHXpNou9twdKidySy5p01jGoh4eMebL++
k4RKpi01s4fZF/Uej58MMmOBYOXwUWasFROhNcmM3RKaPgtzkH7sytqkGRws
LL6fYDuHg8tfq34IKXEQ0HWq6L4aB6s7yBhfHQ4mWxZbzzPm4HnjoFz1eg7O
NBS2RjhywHkdc1XLjYMl1TZ0hy8HZ3+UPGwP5UBIXlO8/SAHwYaXnNvOctDh
OePKx0wO7OIif7be4aDs5oBJawUHGvVux1vqONDMvf1avpvhMUE5x3GGfpuc
T8i4Qsv8atLzJQxVf7cKGTKcslzIsnfFytaL3nsoVxjbhEVXxrrCumRz2swM
V7ho6JZufeQK3xSZlow2V4RKDY59m3DFgYhq+XWKbjjzLXt1tL4bYtIe1gtS
bghxrKVjTrlhm3CnpFCJGxwKh7Nje9xAbBexmC7njlUL5n0+YOKOhfUrooQD
GL4Mju7IZvjkQczDHncol/yLPb/UA8r3TQ8GUwxzj8TZXGGY9fqQ2mcPSNcd
NROU9USLsc/2bBNPZN00PmMX6Ikd8+YWjSZ5gnXoR/ulZ56QHHkhYj7iiUav
TM1vqtuQWRfhlGC/DUXDTq/TzmxDnbzmhpy329CjL/y0UN4Lk64fWU+3emFO
1P3i+ote0Mg8saat1QvsKiqvb4E3XHqNV/z29AZfSv6aUKY3vCqX6gm/98am
iHUvRcR9YBhvjDOrfKB62bRAifSBQWqajM1eHzimjAfsSfHB3BsvM/498MHH
B0nNUQ0+oOe5TOf0+WBqj4LWGkEK/jbu5MrZFBqUrsQtU6MQNOKZ83MtBdFX
Sm+KLChkXGn+He1MQbMks7zYi0JhQ+ChYZqC+okbGa/CKCRZfC3NiqGY752l
TdHHKageqvI1O0tBf6bvqEgKhWntrB4yg8LL2wofcrMpJET9fD7tNoXJ1Zov
Ze8x9Xv9qhcWUQhUvW1nX0qBxxlp2F9BIeSs4dbbTylE638ZU3xB4VRbfNLh
GgppsXoGI6+ZefNmXSp/Q4F1u3/qyDsK0uZPvZw+UOhoTn26oIVCHj9Mvfcj
hSgRx2N3OyjYa8jfqfrEPNeVGND+TIFvOKmWzFDAdMhLuIvR39B9icdwoWPz
hyaGeS61cmZfKNT5FRxR6KbwfXfq1DeG0ofidlX0UFh5nu4/95WC3VXnbQG9
jJ97Jo0mfRROPlm6Ua6f8alHWVh9o3D7ViZr/wCFMtVPevcHKdQmLtTp/06h
TcpjhcpPCoPRlxZvGaLwb7RF6cQwhfp5HmXhvyhcNfrkzh2hEO5BTTmOUtgY
8zWN9ZuCytXt0BijMPJssEPhD4UXfcHRwn8ppMwYURliyNcOe9w2TsFs07hX
9QQFhdB9QoX/KPTbvp//ZJJCqZqWTu0U069AnFWTABfeTR89uwS5WHNnTdj3
aVyIHTtx8q8QFy3eX64JC3Nxy8i4TEaEi5N5q8NjRbkIXqyxelSMC8cLi777
SXCxWkrxRoskF/JRsyjbGVz8HhZfWDGTiyZfwRZdGS4etoyduybLxbH9s92m
z+bCdZH2Yi95LjSfWfeXK3DxL8D3jpIiF7UzY8P3KnGReicVTcpc8JyLRdep
cuH7rWH1wGIuPGIGtmWqcbFFQfSky3Iu7HMXlkhrcmFpZtD7dCUXaN4kH6HD
hR4/yFRnDePv550l/XpcBIaMiV4x4iJu2LjPFVxc3hlbM8eMi+KR57m167l4
Gzrz9CFrLgZ/b9oBOy5k3tnn73TiYtWdjd+zXbjYdHKD5kd3LnYFrt8u68NF
opXZdXN/LgqXEj3hNBfNQiZLcndwcXbC66DsXi5sRw592RnD5DiYY/7hCBdP
uuuvGp7mIrJ9VDjtAhfrPihyp13m4mcdqqgsJi+3VJ2pfC4m+sZTL5RwMS3M
RVLnGReiwg92V9dzMePM7C6fVi7klEPsJ7u5UMh5XZL4k4tXKoeODwj4IibR
xNVUxhdrZ4yuSFL2RX/MrfFBLV9cHvOpNjPxhRP9X/LFjb4Q72oI+OHqC8Xi
ojNWO3yhdSqtOOOILwjuwU/jab7YZLRdYnOBL7izHHRya3wR9nUtKfrZF8fK
/ovx/OOL+MG6F2rz/XB6wUHZ7wZ+OGur71LA8cOFfQOXIyP8kJyb/tXskh9S
2zZrS5X5IX2mRFhDmx8GM6eUNKX9YaA/8iSO5Y9DtX3+HTx/NHh3SBtc9sfC
P+/uJ9T5IzC+mjMgEICiRRWC61cFwDCnKn9ZWADKVtdskyoPAFFaL/tdeDue
mDdW1Ntsh0Vta/C9hO144fxJJbF5O6zbe+rDVQJR6zsQ7eoXCO8UMfPpaYH4
XbdILOddICRP7Be9JBCEhVYtIvErgtCSJ1K02DYI5xV0tj/kB2Fwz9iVkeNB
sPhY1rbyehBcD1s8sHkUhBDd2pP+jUEITGXVkX1B8BXPl7H5F4SNR5IDmqVo
rBaPq/T7j8ZQu8BV/WU08gv2HpRYSyNgv8mBTNBYbCkYa2RN4074u1IxJxq4
eX3srSuN2tZI3XSKhpWrz29+II3Klg0PsYOGmpq+d0UYjaMhapLsfTQGSufc
fRxLo5gI9VE9TCPu6fs5Mcdp/B1lGSw4RYOnft29OIHGZ5dZsc6JNC6W9f6y
v0jDYVEF1/oSDdHDFz6YX6ZR9o23AZk0djmsLzG4RmNFwQKtNdeZ8UDupk03
aczIO2flxPBKSARrM0OjNd5rnBm+/W21YgvD7cXaKlsZXmRNSpEMX1ZWj3EY
/rFK6nJjWB95eX4ww+z8LPsDDKO+5MYlMtw6r6DkBsMq5ckPATlMXkstRpbf
opGhES/bz1BG973mzVwa+/QXbNh+m4Z1UcrCTXk0FPQVfxvk0/hSmPRK9Q6T
n57CFYm7jG7h+T1DDDfqzXFovkdjkbRL5YwCGmNfUtYRD2g0WX3uW1LI5HVr
WapEEY1kWb7Dd4YRuwqmvy2m4dY08aDwIQ0TY9Ptl0poKKcfWRBTSkNAuK6e
W0aj00/+oHU5jcc1rnraj2hkamf2z66gceBsb+ofhj5jKx3bHtMwdw0VfvKE
xtJHJYVZlUzOi4UCjz+lUaAuGJ1SxczTnDqX84yGnM6/GyXPGb214+U1L2jm
vfPnbetLpi5+936rZvaB2cjkRA3jz2pYbkYtsy62P9WVXjM+l7hcFKln9PYN
KNu/oSH9IfpqUgMNv1XyKz6/ZfSO3sjTeE9DsctkbWgj07+Bq7hCE413p8Nb
i5pp3P16/janlcYp1r2Yfx9pBJ2v35zWTmPDwKA60UnDU5tzifuZxu4dz2SP
f6FxokA3Lr+H6fdP2t/3vTSKjKR4E/006vaHfVYZpNH9uGvL+h80iKghqQPD
NFKMBR4/GqUx+nfG7n9/mP1WqKhh8I9Gzq5lnaECPIjqrjt/V4gHrx9m1j9E
eGiy5MeTkjw4pCfXV0rz8PxP1eyVs3mA49CWJAUeCm8oJQsp8bBSyKotSIWH
LM5OlQ9LeGALVB9ZrMHDxysqQ3wdHsKswshSPR7kBmsfi7N4yD2zZIWzOQ9W
6yISMqx5+NLyZnzQgQeqo/TodA4P3V3Z8+b78ODbm5C9MoiHrwP71pmH8uA/
5F9F7uehb9RpM/8wDwHjrK6Dp3nYJpVQUZHKwxal7tR/N3mw1dKP0C/iwYx1
3GVXFQ+G9u1r8xt4WLVNZ/ZABw9qIQd/qg/yIMR/6VEjwMfw0jcWByT4+Pyx
SdNoNh9vznbO/qXEx2Pr3vGbanzcmfbzk/cqPtKLxl4oGvKxNftN7V4rPmYm
5jS0bOGj8mDcB0MuH3t3en5M3snHKm+DT+MxfHx1mN3DOc1HKgb7H6bxcU9u
+LnKfT6qu39fPfSSj86iiZiBdj7Gjgt6bhph9DxFjIskgrFEV3K+8sJgGIrI
/D6wJhi/vP/xIjcH42/+5IOygGD8/5/2UcH4f0RcrJA=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwd1QFHIAASBtBur0uSJEmSdEmSJEmSJEmSJEmSJEmSdEmSJEmSJEmSJEmS
JEmSJEmSJEmSJEmSJEnWXpJ7e8MzP+D7xvy74T8Vbf8ICAj476+A/8/fFUgQ
wYQQShjhRBBJFNHEEEsc8SSQSBLJpJBKGulkkEkW2eSQSx75FFBIEcWUUEoZ
5VRQSRXV1FBLHfU00EgTzbTQShvtdNBJF9300Esf/QwwyBDDjDDKGONMMMkU
08wwyxzzLLDIEsussMoa62ywyRbb7LDLHvsccMgRx5xwyhnnXHDJFdfccMsd
9zzwyBPPvPDKG+988Mlv/vDFNz8EKMIvAgkimBBCCSOcCCKJIpoYYokjngQS
SSKZFFJJI50MMskimxxyySOfAgopopgSSimjnAoqqaKaGmqpo54GGmmimRZa
+VvydjropItueuilj34GGGSIYUYYZYxxJphkimlmmGWOeRZYZIllVlhljXU2
2GSLbXbYZY99DjjkiGNOOOWMcy645IprbrjljnseeOSJZ1545Y13PvjkN3/4
4psf/h7/LwIJIpgQQgkjnAgiiSKaGGKJI54EEkkimRRSSSOdDDLJIpsccskj
nwIKKaKYEkopo5wKKqmimhpqqaOeBhppopkWWmmjnQ466aKbHnrpo58BBhli
mBFGGWOcCSaZYpoZZpljngUWWWKZFVZZY50NNtlimx122WOfAw454pgTTjnj
nAsuueKaG265454HHnnimRdeeeOdDz75zR+++OaHgH/Kn0CCCCaEUMIIJ4JI
oogmhljiiCeBRJJIJoVU0kgng0yyyCaHXPLIp4BCiiimhFLKKKeCSqqopoZa
6qingUaaaKaFVtpop4NOuuimh1766GeAQYYYZoRRxhhngkmmmGaGWeaYZ4FF
llhmhVXWWGeDTbbYZodd9tjngEOOOOaEU84454JLrrjmhlvuuOeBR5545oVX
3njng09+84cvvvnh7+P/RSBBBBNCKGGEE0EkUUQTQyxxxJNAIkkkk0IqaaST
QSZZZJNDLnnkU0AhRRRTQilllFNBJVVUU0MtddTTQCNNNNNCK22000EnXXTT
Qy999DPAIEMMM8IoY4wzwSRTTDPDLHPMs8AiSyyzwiprrLPBJltss8Mue+xz
wCFHHHPCKWecc8ElV1xzwy133PPAI08888Irb7zzwSe/+cMX3/wQ8C/5E0gQ
wYQQShjhRBBJFNHEEEsc8SSQSBLJpJBKGulkkEkW2eSQSx75FFBIEcWUUEoZ
5VRQSRXV1FBLHfU00EgTzbTQShvtdNBJF9300Esf/QwwyBDDjDDKGONMMMkU
08wwyxzzLLDIEsussMoa62ywyRbb7LDLHvsccMgRx5xwyhnnXHDJFdfccMsd
9zzwyBPPvPDKG+/8D9gcgFM=
                    "], CompressedData["
1:eJw9mXc4lu/7x41sskf29pD5WA/hPFOyol30UZKotERTEcnKCNmUvcsmI5ER
mSl7ZZc9ki0/339+93+v477u8zyv637fx/F+H7fI5TsnbcjJyMgWqMj+/2p9
fMfT/YcnhDymH2OJ2weftO2T/8eXnICHNU4aunwdKF7s8pbDh5hlmuPAm5Oe
9mqXs0pmLqz0WYBF8p/ujF0mD5rOhsHr4HB+YIK83RP6jz/adzHVAX5y9V55
uctf/+VU1Fg+ghgpovnhDk+g9WTwvtv1CIYe7i87s8tzk1rvBY89hoKMqrtX
d3kth0yp6ctjmJNZf/p4l4Wvs3E66TgBu+23ft9d/pcq9x+hyAmOfjMMervL
FeXpOR7JT8C1j2etZpens2Njx0KeghuDW+7MLv/gmVXVe+EM30cCyjk7PcHu
DUM36Y47PH3uS7ne5QmzsWQFFfzesLxNaL/U6wmqtZJa3xv84AWD9hOTAU+o
DyfrrP0YCJ3twmcqhjwhoNV49HFbJGQ+Fiym/uMJQia+lc8exsOrVwSXw0xe
0CJ20JhVPhmsNGNHPQleUCccSXV/Mg00+YtVDAy9gP8cz5HAjHdw3KJqPveO
F0jNd/dIaeTATl7r47/RXhBJe54281YebKTUJ1Z1esFz6jhL+rQCYAxdEObj
9YbqhpE2rski4FqyfuFk6w2ltxoz3yuVwJVrl8nufvSGyNBjFaXPy4Di6m++
FH4fSNcBkydJnyB0+p2s43sfOFTbPZo3UwkvafTiPp16CYT0VXHx4CrQzpna
5mLzBY7BghHxwzVA8XJ2f+S0LzDw5zI92/MFJj6rl7KP+cE3+1gz6KiDVg5u
V1WyADisRjtSU/wVlgj3tZv0XsHZFIUrHbmN8OtB7zDjxUD4fNLL2tisGfwe
/vJLoQ2CX1sTX1JZWiFFY8ThU30QtL8PI0bf/gbxHs3pc/HBEBHXevn0pTaQ
szSdyYp4DX23Td7JKHwH1kWduaYnIeBe9zM3j+YHTP02pmF3CgXCh+Iuvukf
wCi4SCYUEQbPX1yLbehthxiP5vepfeHwUGVElT29A4z8j9MwUUWCTLlWcYlb
JzCzXH+970QUbN88Nbhh0wX//FmffKiNhsNVav+MznUD+x63IDW7N2ApOHCq
XqoHlC5qt9ybeQspW+3PDCl7QdXamNvbJA7quz484J3uBYsZn7wmnXjITiqx
+jzUB5vFEV/zTRMgOUA/uaiwHw46ilE8M0iEtef7vMzCBiA1tVKp5GISdD90
rqF8MQgUs0dl1MOS4WDxOfKTrj/hLmp/nV1OAba6x1s/5YbAA19oWamnwY3k
DYMv8UOwd06uw/htOlgm33F4zT8MFzUk7nYpZMKc3OyoYOwwOO3/fjjqzztQ
XB4ap2QdAVpXus7Hr7Pgyjnns498RuCizTiBRSkHIuUuftOmG4XjNUeNC5Rz
IYhn7Jh60CiknipIe3o2D+DwEOEA7RgkvTBKj7qcD1Wc9zfUPcfAM5rOq9Sv
AG72TztuMIzD0NMQ2/6eQnBZYT7iEDUOz5vFf4sc/wDSRR9Ug7gnQPzw+QNT
6cVQc3Q0WDBmAgpGuLNVZEph++wpiz+EX7D5m7XhQlcZGDQYnWGq+AX5l3zz
5UrKIfJl4uh/h36DXrxTp+XDCqg8aaf/pvU3DGlflHHLrwRtTrKTxVcmwXR4
KZez/jO41nV6lVJOQXwMp63Fvyp4LhYrdD9wCuT/OnZ6CNbAzrbiZInENJz7
S7Zw92ItfPOevPusZhqoD1xsO1T9BQwlI4TGb82A4DUjyQOn6uHKwVh1LbFZ
YJgcYaHgaoBvBln1d8pnoTCyZEM6rRFcxXf+iVnNQdqc6Zknts3AJa+5dZ15
HvIMgwoozFrhu9SGy7Ov87CVFaiQXPUN9P4rhpsGC6BgfzLZcqsN/M/72OS9
WQC3gfgwD84f8OB0YqDx2gKUG1p6nDJpB5KJckCr2SK8XDNYCknrAI3AiZtz
FYvg3UEvySLXBd16kp735ZeAnlZYona4G3hFzv42DFgCWceftIm3eoGWKESp
srwE08r1ilfE+8G+QXrt56U/YOC4YhbMOAhckZUpHB1/4MjB5Mv/uIbAMXl+
vvjEMgybT5eRGw7DoRgmLuHKZVjqZBqptR4B99NxVaWqf4HNy5+M+80o/Fw3
LjiV/xcI09rCD9bHQDvQbueHxgq0vD8bp+yy+55pjvsYNKzAzqPjC+FKv0H5
XXzkb5tVaN/M8Gbnm4IuqzMZAnvXQCKhYvj+oRk4mnP3rV/NGry6fJ5MpnAO
rrHzPhT2XQeTS4aymp8WwHAjRcT36sbu93Pn3K3zS3BqtXA7yXwT5Aid3J+J
y1B9iXBzj8IWWAxtsNmN/AVh0RZw4dqGaNvJQZraVUi9SftDme0fkBrwufjQ
OlSZHuJ2Ft8BAjmh+SdpC7pHGSxmaMhQ03Gxe8/hf8Dou64l7UmGpgQ25QIt
MvQLMa18y0SOWeYehto3ybFXxm9n/i05Cqx2pmlmU6DLggxjtiYFhkXcU6ik
2IOC0WZppsMUuPfA1MlBKypkcbgpz/KaEr+k6F+Uq6VGb1JTXsKBPWgpNOrt
+48GZWypv/TN7EEHq/tms9J0KNRD5naUlQo7yNyeKVvT4SnNHXpmNSr8EFqW
bxNNhy8imWtE/qPC63JKfDe/06HY6vLUc1cqvKduGyVPS48+sTLRiilUePyF
zu8QLXp0CRBtJjRRYZLyRJLnHXq8Qx3ye56HGrVMoqkzv9Hj1DGFw7W21Bhx
DAN6ZRgwkXtv5etCatwSMZs2c2ZAv7c3CIepaFDd1F3CoY4BG28NnSw/Q4NM
T4/IutAyov2q3XvhMho80mfPxXWUEdfdHn48L0KL0bKc99KeMWKCQY2lojct
3pWJNL+VwIhc6U9Yr8zTolX3g4N9+Yw4nBHZWXR2dx+v/Gzf7fK/+0Hqk+V0
qKIDHsPxjDi7WLclcZYevYQ9n1VdZcS/zTGajTP0SG2s8zeAjhElPgWLC7sx
IGHYqvvMSwZcf+yb4cLGiFVtHLoUc/R4febcA0lPRgx2HZx8ZkGP/PWDLKRV
RnTM3Hx6eLfPlP0zf2cbJrz8TDVrnI0Os2lpuZu+MaG5zL4fvy1pMUUWPCg1
9iJvWqJobgoNshW5pzO93YvhV5ydHCap0Zw4tOHOyIziv20ER1mo0TP34aW2
B8x4oGbQXpVEhUPy69Eb/cxYVDKn4WG1B2dODE95CrHgmZtLl3wDKNGPHawD
TVmwUsWzO6mSAu1Sml6kPmFBUof5YN8aOTYsp4peyWHB/i8hRYd3dXiImjR8
Y4QFGWOWPk3KkuH5lOHrw6ysSGQWUvfJ+QdxDN8Mf+uw4lAn1/yC4DaYriaw
Jl1nxbIShROtSZsQz82epR7Mil4fUyV8D25ARP/SQk0xK6ZeNwWj5TUg2/NZ
4vEcK74duq3yRHYVqvtWk62F2bDtRu5LyVd/weZ9LtNPUzY8K+ZB78qzDMs8
4K/txIZ7pTcUWmuWQEI7WOtrAhvub5yYDwhchH9LBvE19Ww4Uyvv6PJoAQ5Y
yR+/McOG7qL2N479mQO7gLjQJSZ2vGzrslAhOgv5ondcL6uzY3zpdR/W9Sm4
cbZQp+UCO8rGvpd8yjgJN1xW+n3c2HFf57rHp9O/IMCXVXQwgR1no3+1tTWM
w8fRJm36Kna8KM+VVHZtDPgKH6vp/WTHvUxX5q5Ij8L5E3SCFRvsyOJoc+UB
7QhsTjhzJXBwYNddK3FNimFQ8a1ITznEgcMniu6bOg+CWGuc7dItDrRIbx6n
8eqDQu3DsrohHLiQy6OzStkDk/onaeQ+cOCeUOrb4QOdMDH+TlSuiwP3ld8X
iKLoAKIQ6VzK8m69vpCglzY/wGqWxDDNzInU722D2zfb4CxtWB9Ic+LFmsFY
lvJvkN+8aD2InPiXg9aBXK8VeueqrFbPcuKxjQoKS5NmOHPsl0XBDU4MWCGu
H3vZCKIC+cbiLzgx4emSHXXQV3g1N2n2M4oT2/ToKIZ+1EGbio45Tw4nQmI0
8wnDL3BjJUlzo5oT92YejUudrIFYZ48X6Z2cyPpvJD8uqxr+6Li66/3mxJCY
/mSe11VgmrFPdXKNE8erpfa0Bn8GX89hine0XBgewZ9GyqiE+oh9qpKCXBhh
QBUWsP4JHof+spIkcuHdCpfWM78+gv4XE5qew1yoURdsTMZWBu7l4aHWZ7nw
9GBtmpB9CfBrBLeO23Lho5cWCmwbH+C06eNepwdcOCYfuxmdXgQqTwzZND24
0E1+VjTqcSEU39DJVX/NhQtT2yH1NgUQLXfZ63QKF1rPmlEqk+VDgZnbx/3F
XCiqT7tQUZsLjU/+pozWc6GERH6+bXYODL1NcI3p5sKDogObrHey4buDUPTd
X1x4viClSTP/PTAMFR91+suFFjyN5cNi70Dq2O+0BgpuXIu49t9CaQYcZnjA
eo+ZGzsqC2rNHdNhIfJmDp0IN5onbcNATSpcPfa83kWJG088YyqvNEqBT5r2
kX+RG3//9k2/spUEOoL5Qy+PceMdq79O098Tof/z96WzF7hxU+QOeUt9AoRT
VQfftuPGUH8uKv+eeFCtGo8YfcCNdj1iRx6Sx8PVDaoHtc+5MfvG5o6zdhwc
qJK1efiaGyub4wh3772FyPECf6lEbtw/YvRv5X0M5B3d2fM3lxt599Vdm+OP
hjMqsd3rFbvrr0TtnyyOBK8cSbajzdyY/FiXUvRJBGwePuX8r4cbu49cUOe9
GA7WLaSDIhPcKNJ9Zd+JC2HQmM5kVrXIjcfiVvuZ7odCTPn9fccpePCH8avz
VRgCR/79UV9n5cHk4E13IZXXYKP9yKVXmAfXNwK3wgyCgTz4GwejAg/+q1ez
WX8UBGvnvRwStHhw60/CfeHPgdDoE8KdbciDBZt7GXIFAkFGs5r34Fke9GGO
d+jjfgWzV4YibC7zoErZ9Jo0ewAsloq9WnPkQe2mBduij35wM47Vo+UFD/Ko
p2sERvqCa+qjHMpQHhTcTh1siH8JF32rOHOSdvs77FMjtfqApfWW/e98Hrwm
tNW2tZufdF9L/v5UxYNOxQJkh7y8YaFaOuxQGw+ynzNkoWTwBt376usvfvKg
HT15ZG+yFxSKRDFULPPgcHME03MVLxjgcvqQQrcPD2SXf3KZ382XTBIdlwX3
4WcfuSah3Xxsn+oawKO8D+dvf043H/YE0i3m1hn9fbj3dpHme24v4B1kyaK6
sA8Nsoc/Kz/2grWhmGVfh31Y4Fic10bnDWoawRPvvPehn2i6dWSrN9SHTi75
p+1D+mA2DVeDlzC0v2xfQsM+5MtkCCBa+MEJ0reN3F/7kEutMZAUEgCzrV0P
9Gl4Mc9gNNipMhDGaYQ+6oryYqiuh0fBgWB48ekBXwfwYlXCw5m7wiGg6XF/
LtOcF7UprR0yaMPg6Li5r9gDXhzYY7WwdDsCMs65SCW/4sX1D14HLX9GwZKP
GMVgJi/6z7eWcky/gQ4WAm9KLS/KraUb93nEgdp/GueMR3jReW/yUf1HCaAm
B3QlW7zok2sN8k5JUEhfQiLy8qHVyL37l9dTIEovVPiBKh+6Glnvv+ubDlRT
lgeXT/HhjXx9PsnydxD5k+2XvD0f6s2PKBlT5MCbj6dMv73iQ2tFsds0DHng
7hdnTHjPh3uuC1WsCRfACXxax97Ch1xWzEfFiorAxFch8eMMH84OOVPkW5SA
vut8ozQzP/asfsrVT/wIhy/TZ11W4Memn79i58kqQe1a+VD4KX4M6Hxnu8JR
BZr6A1o1T/kxq+FKwvG8GvBg1MlsiefHgXtlqUpGdbBEXkZb1siP+QJOzVXu
DZC68/Zx1iI/Ptr5RBQtagYqqQMZt/gFkLlAok/w+zewjLf0PXdYAKUoqKzT
274DTdZ0gdpdAbyUMUOTotsB8hOP7iolCaC2/omYL0bdcFWT/2b7oAA+wT7Z
H8L98Pv+95VpNkFUSsyYkOz7CUlMinzapoJ4jef3g3taI6DvUNJX7SGIS+bh
8W9ej8HSYo77hxpBzJR2Vrlu/wuqFfJVWhmF8EHXuR3OrSlQrij6dfSSEDZ5
U3RT3JmHfFJpqUKVEJqc7cpofbkEEXaXrb8xCKPN5vNXP+X+wpELPt0NWsJI
X+Li/O7CGgS7J3+ztxFGmku+qcICmyDwUcj+Y7AwCnXFqLTCP+hTeL63v1QY
BU8WGt3yIkPxmMXQwglhpJRNVQ9npsBM59d54VwiyDsoN/m0gBLLLUXKPhuJ
oJ/EmXMfblEhc0ijw1l3EaTaOkmYkqVByhIOKYVXIugsKbxwwoMGdZ+YeqhE
i+DXzb35s/00mCuky22bKoKbBXX7PZVpkcVbw7g6XwRTvY2dhnd9qhbdH3vj
ShEck/lyrLqfFt0bpEu2m0SwsqdLeVaeDpfDbFR6ekTwr8FQk+AzOqyk5L1E
syyC8xN3rgfy0GPTzTPdjXtFcYrpzc/tFHp8enmPBa+MKI7pN9oZEhhQVijL
Z0xPFJ+/OtJzOYoBDRsyVvZdFsWwyCCb85sMGLi9Yp7mIoqpbo1G9wwZMVy3
tOFJtCjKWSjXH3BnRKbh3CmTDlHsk1Sg+lTIiGeLycZlmcWwWILj0cSrXT8d
3XvnoKYYQqOb3YQmI+6MHI/LuyKGh+t4/dVLGPCa/bUADNhdPz1rJMTCgJbE
GGJBkRh2Kb7RpThCj76zvCVDA2KoZM3T3W5FhwaCgguJlOKo10IRGGpHixls
XeQTUuKY/ItDa8iWBof16czlTMXRo/yg7xGkRqVKhpYXDuJIW/ra8S4PFYae
k6KfDxHHvMAln6/LlPhMoy71QaE4njG4TbjSQ4EHmFW4ZNvFcU/5oqvUV3J0
EKqrFlsUR4Ulvqn1WjJUOVIddY9RAv/L1bb9Fb8DTeYJenuUJfAyrwSzzuIW
0FhYnDtxVgLV1R/F33XfgJM7q3uzH0ggWRlrPPeZNWAdKFO/ESKB7//TidC2
WgE1qwPdTdkSqKfz586ZhGW4L/2rlf2rBAooMonXsv2BiOBVssdDEljSUtis
/n4RJAK+18qvSKDiparTX24uQMQYr48VvSQaiZSW7o2ag5ukv1dJApIYu4/C
XSRkBmjLm0LTNSWxgqlWPiZwEgSMP/tvHpNEw6cMiznPfsGYiKTGW2tJrMxb
blTPHodcdeEjtfclcWhR4Nk1zjFwzL8XG+MpiafzyxRkMkbASE+oxjBMEu1N
toxqbYfBdul7/0ySJF5fpLiaoDcEWofSVjwLJDGtou4Ui84gmHbc7mCslsR2
m+eXs4n94NvdUBnzTRLrPe9+irDsBVKFRt7xAUn8RBs69utjNyQtXmSCSUnk
ed9Kz3C4C0JKytSfLEviupX52vP5DkhsPMnBtSOJixymMdml7YBTK2RPmKSQ
z6DyWKvMD2C/m2zSxiuFPI3R6g2NbRD9RPGEhpQUponf1a4K/QYDSk76LUQp
jArPJKve0wp/8nyMU7WlEOgJM3v2NUPTwjnebn0pNIQfVX2WjfDsIe27uyek
UI1sf9mJ71/huaKo2O0LUrt5Itd8Y70OdOjUtkKuSeExNdfoIfMvMDqoyrHj
IIWLQSHy7Lt+Nt+n6Nrnp1LIRc6adiGuGkIYVDtmPaRwLfIpz9jjKlBwpU55
HSCFbjp0G132n4GSZ4yhMkwK784kpYFbJTzpp6K2jpfC5V9Ka425nyCXn1X0
aKYUvjmySc2W9hFa1SkEggqk8BAXZ+NITylsqWcdOVwuhfd0BDvYdErAloVN
9n6tFMpvN+uqNH8AbYsWXqVmKeS+N5Gt7FYEd29se7m3S2HQZXn5vWcK4S7B
TEB6UAprDNiUNwfyoUf7YIf0Lyn82NB/VDQkD8zahbgj56VQV2buj7h9Lmjw
LhK9VqXw4DXZXKGbOUCdLLVNviOFBxytxROos2FK/8YRTmoCdn1LM86xfg9s
bH2kRkYCcnFpJtBMZsJE5nbkR04Cnk5tuVDMkAEajF1B+wQJmPnO4vrza2lA
23Cr8o8EAQtZlCJ//E2BFxVP5s3lCGiac3uJ8V0y3HhwKdFMhYCX6a+GMHgk
wR65HZ8NTQIe33FNbHuSCCPGld8MDhIwIDttTs8vAUqLjnh8MSRgi73+8ysW
8dCebhRQfoKAn/UG+yhOxsFJw0RRHXMCfonX/fS1+S1k6et1nblEwDNjkpEK
sm9g/7SNFMtVAgrE/lbU+xAN4TlK/Q9uEXBxeGAj/FoU8N1ftwh2JKAN96PK
n5qR8J8NT/bIEwIeonxhEFMaDqUfcheK3QmYUnZrie5GGAhWOemI+xJQJOD2
Y5rDofDrsjwoBRPw5qFLYZIQAjEj15KmIggYmlP4/OC51zB81MnPPHZ3/ur8
RTnvYBAIbmr2SCagk4xb4ouWILirkDhFm0XAbNt1cBsJhEH2+sPCRQR8KRpK
l8QVCMHvZ4/2lhNQXM6Z41hjANxZIUodqiUg3euB4aYwf6grPClp00TA9AUf
IWkfPwgtopA2/EFANSOGaO43vpCgNDm80kNAt3+GfSYtL0HJhfLGuVECHkxj
OMS061/nnU+a2cwQ8L1ubEX/tjcE1wxMKPzdPT/bkH/nT3uDG3nDuZptAm6c
IuZ8aPaCjFmT2/LU0qi2dHvQzNYL9lXe//5orzTuK3JVjOHzAtW2Y1bvuaTR
jcnuT+a0J3hCY/Ij0V12MeP/3/8gvd4lej15aczwMRdiWfCEVrKaVTlNafxr
9LE2QtcLwqQqDx4/Io33ph7pnW/1Al1259LGk9KI3C3rP954Q1/BeeFaS2k0
0Yed9hIfaKDW/3ztljR+2u9074CqL+yPtzw290Qav+uwsC3L+MPXBv36t77S
aNYTk6hT8wrETN50fImQRnvGN3uW5YNAXTjpBW+qNDbc3hBK6QyGo+LZFr75
0nhWU8yQ6lkI/JLaGCB8lkYtVRE29qAwmIkLZ7dulkbOruZ/Pu8igNvbsaq9
Vxq9p6dZ1gyiwT+3q0/glzRG7/9rfmnlDZw5l+WStSyNOo0Dz/5LiAN5PT0p
CXIZdMtsTW09lQD3sw85/9krg+UVCax115Og38eSIZNPBvn1BGwu+aYAd/vo
za/SMvjJ8cXqinQ6fCg1bO9Qk8GIWZX12M5M8GPz1jfTk8H1ZU03PcFssFTP
nko/I4Mend40dDG5EPHqb0WXtQx+YXuY5xWSD/GPfVVyHWVwYEEQjpEXgcNO
b9aymwyGLKw0WdoWw6+PGlw9QTKYadjnWHaiDK7ocRp/SpTBUM95SeHFTxDG
1mn1Ol8G1W957e/R/Ay8s+tNxrUyKG4TLdttVQ2MVQJ2Dh0ySPL8cuaaRy2U
+yaqP/i1W39k/3KcQD2oGrpFft6UQUVL2RLX441wL8u8fotpP/YXPyWlObTA
023Voqui+7H0JPUha5E22G58unVUdT9y7+eoWqD/ATPndY1tjPajrJjtvUHz
DqiIfCUmc3k/ahr+vXJLrht0ns1P0Tzaj4GnNU3t/vUCx/V4Yf/A/XjqANtX
7auDwMPYF2j6bj/aK9HbqxkPgz2n2quu2v3ofUvJWMdyFPT0aq8EjexHYfk9
93JGxuHbcBOTHKUs2nj2OTKv/IabRY4egQRZTAnVc7WunYEjI5deTp6SxZ9U
pbHCXxbgTYLaxS+estjP1bnM1PwHHt1kSEnNk8VnUVQtvSEroLJiQZT6KIv5
zHDKSXkVZNRV6iZrZbHIhCVso2sVnP6RDS22yqLR1ZB2v+drYBdhxaDbK4sv
uv6esFJeh1cvNqf7x2RxNpYjNGVqHcSE1dVr52Ux1v5IjHfaBmwYH9XwoZbD
W2k7K5WkLcjNq9tKEpTDaINCDfbxbfAfD+JXJMnhKaNlAk/WDihCgIPuKTm8
uveF/shXMvRnuHH/zx05zPqXyh/SQI7MJzvPmwfIYctjnXXmbgo0qbq37JUl
h95P36m5LFDi/D3H3pahXb7+alw1nAobHZ89EuCWRyotC5fRgzTYe+BO9NUT
8kh4d5ndb4AWjd2oSDdfyaONbm5SwQl61HbKks34tns/RtPo1nMGbEqMvWLB
oYBctYyqFqcZsXmrOM/NXAFr23TcpfMYkT42TNc/QAEv3RJ9UZ3EiIfMt7cO
VCugwXeeJydMGVEmP9uMYVUByZfgglkBA9qyKRpWcygiW1fkBfEheswTJphK
yu3yO7H99gN06M58JMznsCLaUKV1/i6mRdmZPXE/zisiM6t0x4ALDV46Mlz+
944iXnJiDDLRpEZosA+fclfER/3dlhbLezDINtqsIEwRr+kFRRJ28wXh6/Ge
82mKGMtGyh92oUC9whnetVJFtJaOVNZSJse5gu96R5oUUSuHOb90fQe6nDJO
W/Qr4is/bU620m3oEV6aOTGtiMmKI7YZqZsQNb96XmddEe1l/POEP69DcNS7
GXVqpd38PGgnuGcNXPmOBp1iU0L3oKLW+lsrkMXyPj1JQAkbmUYimTaXweuJ
iuJ+WSX0fstOKJD7A/TJ2wsPNZRQ44qhjUD4Iqg6P5nO1lPCev+hci7FBfBz
21L+c1wJo+rtyFzGZiHuIZX/hf+UcFPQt2dvzjQo0tNvUtsoYUPN1fdGJZNQ
l7fXeM9tJTyYGPV9Y/UXWPSG+lx9oITOqYOxvDYTwJ10LnftuRIO/s4acZIa
Ay3JXMkTAbvPH9Mv/I4j4P+v7GBshBIa/v0y8zpuCFqvLmTTJiihrdOXwBTH
QRi4/O/0uwwl/Odsq/l9Tz8ILviUJOYp4czEsuvrsR4ojcsT21OqhF9lPwqy
UHeD3ka5VcdnJVyJemhsLNEJT/1Ulfd+VcIWpcJT3a7tYOOARz+3KmFq4l2j
5r0/YKhc+sK/DiVkN9lLpVbXBtZXi9O+9ynh1tmQlwmJ3yDO6sUjw+Fd9t/J
TtRuBU+Ow49uTuzO33JGc/RaM5xIvSVCNquE2seXE5PlG4Ga7ngW9x8lPBN+
XS7/wFcYJb4/UrWmhKTgQ5HKL+rAts0wmvGfEt629B3O/1cLY1Eq1uSURHSV
ti4JS6wBad29H9NpiGi+kXov42Y1cIVs32NiJGKx1vae3tNVcLHziFADKxFr
85W8FtcroZr1ipYANxHDjzByT4ZUgMdgag47PxET3a6/VnEpB1G9Td1iYSIu
0/jdJyaVQciPVToOCSL+Lg7dCNsuAeYw3Qp5aSISjjg6dj0vBqUgfjJmOSJK
r7by1Ml9gLw3jkfViERUpcqucHEthJhohxkydSI+kFhdNKArANqLQrpOB4hI
ziZjvPYpD8bCjJoygYh29z53GkblgnrqBZ83h4gYSlLJuBWaAw/IHXXP6hPR
0npa6dK5bGj+70BtnxERX9BHbTjmvYfisH73yGNEFEjOZHSKzoSg6buP9pwm
YrZLd8nT+nQoWhAdkzQjoqBzi3SbXBpkqOgep7MgYvMX65HDVSnAVX93Ms+S
iH6Nfy+6uSSD5P2wGmlrIh5JCuaPtkgClqE6dkdbIj7TX5aoOJcI9CwzcTN2
RNQ+GDz9nS4Bur3snvLdIeLm/T9G4xNxkGZWT0XnSMTjQZk91K2xQP5nm7r8
ARG5XuqNpDC8hTVaXzodJyK+vH664D+nGPhT7R8W5EzEG5eYf6SyR8PLW1+v
fnQlIj9z6eF7bZHwOdHfbJ8HEX0l6wuklCOg5vfrEaIPEXv5npmFNoaB8Ipe
Eas/Ef+S+bWoBYVChUY7fXkgERVIjFfDn4aAxNDpOc0QIl69fCKu2es1cFmO
uwWGEzHstoY4X1YwCB7wkKqKIqKNheW51OkgqF0rlSPFElF34lwE01IgBKbx
rTkkEpEvvHd9nC8QyJnONjqlErGgk47y0JcAKJ+S9z+bSUQaonYfm6c/MNvW
sjBmE1Eikca25Y4fBMYUH4vL2+3/wFjSz9kX5G6VhXIXEfHheKONX8ZL6Opj
NaYpI+Iro5Tt20k+0JZw8UJDBRE/KNgquH3b9W/p7MHXa4jIvdHvFivlDU84
SS9m6onoFN6V9yxp1z/mfFsyb97V25j14UOHvCDxwL5/H9p29Q9JTnLkXjDO
YWTO2ElEE1k7PYd+Tzh6qZbfsn9X7+mCX5t7POH4u2f+JSNE1O9+2Ujg8IL8
SdVF2Ukimmm/zxkO8ILnkEfVNE/EC/rtV8+e8Aa244LwboWI8rL6vTtXfSCe
odzx1zYRDbStOFwnXsJ7Zm2Tt1TKOONQMGky7Qf0hacFtpiUEauvHbNKeQUX
JrfyqDmVkbFdaKFMLQgEy4LOfOJXxh2TkmpHytcA/I0CdmLKqFPG+MHiRwgQ
G8jsamWU8YHfs+NPhMMh42ry6VNKyqh3a/Gu5KNIOHjtgkg4SRm5for+6LCL
AcqePUlyoIyRby5kS9nHwvYzDUn3I8poEu3wJCMmHi4Xef9UNVFGXSpdOkX/
RHj89Y9I7mllnBcSoildT4b+++29fv8pY6kX8fyje2lAn/v8qqa1MiaseWrk
+mYCxT6dk8Z2u8+zyVvHFGTBh+a3AeoOykgufUJc8UQuyE5W+7x8rIzMvPeW
35/Kh8uUahzVbspo913kTVNbIbjXrfvY+CjjS8m2URfLYmjwPz6xFqSMz+z2
zJ3zLgMxec2/a5HKOO3g0K715RPUGFbErCQoowx1gpG59WdgUB5/qPheGdXs
xwnWv6th2CzhpkyRMioE/eOyNvsCpjYveY9WKmOObcCbTYuv8M7dbq/HV2X8
vB1QwH+xCeYFPTdHfiijq+e1VHvqb2BQGqmS+VMZn1flLd0/+R2K3gdmG0wp
Y3LX17Opoe1gMBPmrLeijLkPeBbGL3TBo3g+2tvkKnjwU0ZWk1wvRKvMW20z
qSBNucon9egB4NDcc06PXwWDG0JlDWaGoET6jVuytAqGf/xE1GYfhf/m7JIb
SSr4REG0ZF/hODy5XtoibKSCIR0yoiZrvyGHQ+2HwkUV3Ot3lHaZdRZmDpip
591XwbRwE+NsiUVwT+JxiA/arfeBf/av+zJk3HxrNJqmgklG31Ut3FaBLf1U
6NwuO3Xxnet+vgoeHyuG1ndZk7uQ7syLVbhSNCJLla6CYkkn+9s8VoEl5eNj
ll2uHltpMfVahZkokzq+Xf6kkzTc6L0Kb3IHrIm77C1FfeyL7yr8sDSiNNxl
uqi3Wp8DVqFCOCTZcpfZDZ5nfAxahcbbFlG6GSrY8aAoNCN7FerdQ7MlM1WQ
k7V6oaF5FeRVxX4xvFPBz4zfqQRnVuE1YU53aZcZGRiFkujXoORshQmxSAW3
7F3TOfXXYUOXg2K2QgUlXUdGkyM24IMZm7NMgwqCbsOoCdkWdFacU/zTroJr
51P7u1y2wTJWvvnYkAr6Pk/1qePYgTL9iKtdcyqoc2FgYj2ADGWWg9+c/Lc7
/zE3bZ0kcsyP/MDwba8qPp2Mtlipp0Bg0q+wEFZFS69v6d0blMgtosFPqayK
5wSvah1So8KFpAWPr0dUUTQzuGzlPjX+iYsrrbisim5qDzNUeGhxr8+Vz29d
VRHvUNDMxdKh2DK9+Xq4KhopfGhtTqBHjSc6O9I5qpgnlBCp5MyA1Hz/edJ8
VcXrZE0KYuKMuD+pLsdyRBXtcEb7VgAj/oxNw/VNVbQ4fEa/tZARY5+EModz
quFXtgOaY+GM6Nh6rHBTXg0vHdo/6KLGiKKKhaRZfTUs/XNMzjqcAQ/tuaBD
uqSGa6edVu9U06OF5S3jvIdqqDE8UmZfS4c/VuNnNQPU0POhY9tAGi3CT9aO
skQ1zKF6xlv3iAY7lkO5CcW79U/k/2AEavwQpTbp1KiGm2vOB+YpqbCl4SR7
0YAaqueE7Uw2U+Kx9wY2Q3NqyPHCMelLPAWKBV++v0qujvLTQVxMpuR4LWp1
NIddHSWtjnGRWMgwxI1yUFxcHQ/xC4w/+LEN9AaCljeV1ZE6o6feqXAT7LRe
7407qI6CpZ+CWWt39WD1z6PLVB0fqCrf/bKzm4cu4QThP3V8r/xWLvTyCmw4
8yem2apjUEGdvs7UMtQXXHK8flcd2zsiepxf/4G2hlByLnd15BCoIfO/vwj3
NL49mvJXx/HH5Cq16gtAf+Gx5Ha4Ou6c/iqtozoHSenKH63i1fHTTSOTEyoz
4DGk7i+doY6jpw+yddtMgWOAXJd1njpWPRzoqav+Dc4fRab4PqpjVEpo5OXJ
CdhqoH0vUKuOZk61QT2Hx4GzSdDDuVkdCXvzFp+3jIJi1PmFox3quEauIPb3
2QhYnaGji+5XR10mm/bmU8Ng4dc1dm9UHQd+svu46w2Bsdwj455pdZQup2E9
yTYIE4lzNm//qKPJf3OZJuN9oEdGM9S5oY5HCl9/013rgbrQ6sBgchKaO07O
xh/shv5fWpuDNCS8PXZq9VVJJ/jsaH2oYyLhQYJNTcBuPr7A41p7lp2EToVa
cer87TC1nXJSlI+EdONnhy/c/w7Ug51upqIkFH+azZpD3QZMoqbb8wQSvrZe
U//k1wqdOwa/uBVI6H2urNfcvBkORDSGtKuQkLP4GkePbSP8biLjJ2qS8Lxp
RaZB5lcIoBz9rAkk5F0T/RYkWA+/OGZkY/VImCNu91Hj4BdIVRGL8zYmoYO0
/3mz+Bo42aIVQH2ChEp2eiyXVaqhtt/mu8RZEn4t+MNFtvQZtP4+Ii2eJ6Gq
M3OI149K4BB5MXbXkoQaG+TH9qdWQCB9fEK29e588ebtvn3lcIR5ruzMdRKm
PfU/YhpRBj3llo5Bt0nYGXm0USSuBFjeKWnYO5Lw+WBW/Nr4B5g/oKe6/ZCE
g1PMxv6WRSBhyv/54FMSChjYkOftKYR3h+lq9FxJeHEilqetJR+2SQPrzC9I
OB/cN/SqOA/OZ/nsyPrs1lf2jtI8mwtJjIVqM/4k9I8qKZcUzYGRNCF/82AS
suUNWFsTsmC26r8xlzASTojYla8YvwP51UrXK1EkbDuspTiZlAEpk90WrG9J
KPufkBbf/nSQq2O47htPQu7RQeqVrlSwV6C7Y5xCwmbN79Oy4inAeIjO+UPG
bn9z4c3h9CTYdkyx6M0i4dR3V8uBi4mQ//Db2sc8EtLe6+0WP5AAnBM3amyL
SHhpTGPxGikeqqtFaAZLSEiUyTobcyIOWP5WcRPKd89DxbX2OFUsWJN3niv4
TMLEo3ZOUnMxkLDUurZcS0Kq0yq3RgWj4ZZR+NCfr7v7WZh1TnoZCRNO85ol
zSS8UR7nZSsVAS6hdj3GbSQs+BHtc2g2DKi5Zp1y20nYsXBcfLYjFNTze8jn
u0g4Y1/IeLQ/BBrkXms97ifhqYJb7qMRr2FeK2xf5RAJpdYEF6efB4NkQWhv
09iu/m7ZbxgGB8FHGkvJ1N8krA1KIRVVBkKqk631mRkS5iX990qXbpczmTb7
50n4s/xZCM23AOC/+NRP9w8Jv1w1qk3N94eMGKYLvGsk7LW/VUc08AM+K8Go
0i0S7sjd4B3k8QXSpeMOsuQaOPHsVWox30vIGjbajcQamO7gbkA09IGq4ylV
CXQaOGPaK/ws2hvu/B18k8+kgc0LAaMye3f95TWaY9msGshz6qt70xsvGKqY
O+bBrYHCRTMHHkh6Qd6gyrYZnwYmtGU/aFn2hLd5fsaSQhoYnrLO83rXz/4f
koyttQ==
                    "]}, {Automatic}]}}]], 1]]}, 0.2]]], 
      "Specifications" :> {{$CellContext`t$$, 0, 280, AnimationRate -> 1, 
         AnimationRunning -> False, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{409., {123., 128.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.4634963132060003`*^9, {3.463497811273*^9, 3.463497871776*^9}, {
   3.4634979119379997`*^9, 3.463498009999*^9}, {3.463498051234*^9, 
   3.4634981137469997`*^9}, 3.4634981534560003`*^9, {3.4634982581359997`*^9, 
   3.463498264778*^9}, 3.463498316164*^9, {3.463498356289*^9, 
   3.4634983722650003`*^9}, 3.463498436349*^9, {3.463498477288*^9, 
   3.463498498034*^9}, 3.463499155757*^9, {3.4634992191470003`*^9, 
   3.463499227793*^9}, 3.463499316363*^9, {3.463499493917*^9, 
   3.463499499934*^9}, 3.463499534792*^9, {3.463499673192*^9, 
   3.463499693418*^9}, 3.463499937139*^9, {3.463500176849*^9, 
   3.463500200523*^9}, 3.4635050701470003`*^9, {3.463505323049*^9, 
   3.463505342198*^9}, {3.463506449791*^9, 3.463506457756*^9}, {
   3.4635064902860003`*^9, 3.463506495974*^9}, 3.4636788466354733`*^9, {
   3.4636794649194736`*^9, 3.4636794879824734`*^9}, {3.4637525943333125`*^9, 
   3.4637526366082287`*^9}, {3.463752697649463*^9, 3.463752701315369*^9}, {
   3.463752797622445*^9, 3.463752826622102*^9}, {3.4637528807293406`*^9, 
   3.4637528850348854`*^9}, 3.4637529452516828`*^9}]
}, Open  ]],

Cell["Define the general result in terms of the azimuthal angle", "Text",
 CellChangeTimes->{{3.463679524248473*^9, 3.4636795430474734`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Ellip1", "[", 
   RowBox[{"E_", ",", "m_", ",", "k_", ",", "L_", ",", "\[Phi]0_"}], "]"}], ":=", 
  RowBox[{"Animate", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Graphics", "[", 
       RowBox[{"Rotate", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Red", ",", "Dashed", ",", 
           RowBox[{"Circle", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "0", ",", "E", ",", "m", ",", "k", ",", "L", ",", "0"}], 
                   "]"}], "-", 
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "\[Pi]", ",", "E", ",", "m", ",", "k", ",", "L", ",", 
                    "0"}], "]"}]}], ")"}], "/", "2"}], ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "0", ",", "E", ",", "m", ",", "k", ",", "L", ",", "0"}], 
                   "]"}], "+", 
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "\[Pi]", ",", "E", ",", "m", ",", "k", ",", "L", ",", 
                    "0"}], "]"}]}], ")"}], "/", "2"}], ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "0", ",", "E", ",", "m", ",", "k", ",", "L", ",", "0"}], 
                   "]"}], "+", 
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "\[Pi]", ",", "E", ",", "m", ",", "k", ",", "L", ",", 
                    "0"}], "]"}]}], ")"}], 
                RowBox[{
                 SqrtBox[
                  RowBox[{"1", "-", 
                   RowBox[{
                    RowBox[{"eps", "[", 
                    RowBox[{"E", ",", "m", ",", "k", ",", "L"}], "]"}], "^", 
                    "2"}]}]], "/", "2"}]}]}], "}"}]}], "]"}]}], "}"}], ",", 
         "\[Phi]0", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{"Thick", ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "3"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"11", ",", "0"}], "}"}]}], "}"}]}], "}"}], "]"}]}], 
        "}"}], "]"}], ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"Disk", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", ".3"}], "]"}], "]"}], ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"Disk", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"rho", "[", 
             RowBox[{
             "\[Phi]", ",", "E", ",", "m", ",", "k", ",", "L", ",", 
              "\[Phi]0"}], "]"}], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", 
           RowBox[{
            RowBox[{"rho", "[", 
             RowBox[{
             "\[Phi]", ",", "E", ",", "m", ",", "k", ",", "L", ",", 
              "\[Phi]0"}], "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], "}"}], ",", ".2"}], 
        "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Phi]", ",", "0", ",", 
      RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
    RowBox[{"AnimationRate", "\[Rule]", "0.1"}], ",", 
    RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.463495399355*^9, 3.463495531008*^9}, {3.463495604291*^9,
    3.463495605242*^9}, {3.463495988574*^9, 3.463496042132*^9}, {
   3.4636790706794734`*^9, 3.4636790711914735`*^9}, {3.4636795494674735`*^9, 
   3.4636795496274734`*^9}, {3.4636803066084733`*^9, 
   3.4636803785944734`*^9}, {3.4636804594334736`*^9, 
   3.4636804801414733`*^9}, {3.4636805941384735`*^9, 
   3.4636806382394733`*^9}, {3.4636807368254733`*^9, 3.4636807530734735`*^9}, 
   3.463680805524473*^9, {3.4636809305094733`*^9, 3.4636809400924735`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ellip1", "[", 
  RowBox[{
   RowBox[{"-", ".1"}], ",", "1", ",", "1", ",", "1", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.463495551863*^9, 3.463495563296*^9}, {
  3.4636795566884737`*^9, 3.463679557064473*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Phi]$$ = 0.562973645604634, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`\[Phi]$$], 0, 2 Pi}}, Typeset`size$$ = {
    360., {85., 89.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Phi]$2043$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Phi]$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Phi]$$, $CellContext`\[Phi]$2043$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Graphics[
         Rotate[{Red, Dashed, 
           
           Circle[{($CellContext`rho[0, -0.1, 1, 1, 1, 0] - $CellContext`rho[
              Pi, -0.1, 1, 1, 1, 0])/2, 
             0}, {($CellContext`rho[0, -0.1, 1, 1, 1, 0] + $CellContext`rho[
               Pi, -0.1, 1, 1, 1, 0])/
             2, ($CellContext`rho[0, -0.1, 1, 1, 1, 0] + $CellContext`rho[
               Pi, -0.1, 1, 1, 1, 0]) ((
                1 - $CellContext`eps[-0.1, 1, 1, 1]^2)^Rational[1, 2]/2)}]}, 
          0, {0, 0}]], 
        Graphics[
         Rotate[{Thick, 
           Line[{{{0, -3}, {0, 3}}, {{-2, 0}, {11, 0}}}]}, 0, {0, 0}]], 
        Graphics[
         Disk[{0, 0}, 0.3]], 
        Graphics[
         Disk[{$CellContext`rho[$CellContext`\[Phi]$$, -0.1, 1, 1, 1, 0] 
           Cos[$CellContext`\[Phi]$$], \
$CellContext`rho[$CellContext`\[Phi]$$, -0.1, 1, 1, 1, 0] 
           Sin[$CellContext`\[Phi]$$]}, 0.2]]], 
      "Specifications" :> {{$CellContext`\[Phi]$$, 0, 2 Pi, AnimationRate -> 
         0.1, AnimationRunning -> False, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{409., {123., 128.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.463495564769*^9, {3.46349560035*^9, 3.463495625113*^9}, {
   3.463496045349*^9, 3.463496069762*^9}, 3.4636788515874734`*^9, {
   3.4636795580874734`*^9, 3.4636795685704737`*^9}, {3.4636808091994734`*^9, 
   3.4636808222904735`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ellip1", "[", 
  RowBox[{
   RowBox[{"-", ".2"}], ",", "1", ",", "1", ",", "1", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.463495551863*^9, 3.463495563296*^9}, {3.463495636674*^9,
   3.46349563726*^9}, {3.4636795790394735`*^9, 3.4636795792304735`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Phi]$$ = 1.201345143384451, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`\[Phi]$$], 0, 2 Pi}}, Typeset`size$$ = {
    360., {85., 89.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Phi]$2063$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Phi]$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Phi]$$, $CellContext`\[Phi]$2063$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Graphics[
         Rotate[{Red, Dashed, 
           
           Circle[{($CellContext`rho[0, -0.2, 1, 1, 1, 0] - $CellContext`rho[
              Pi, -0.2, 1, 1, 1, 0])/2, 
             0}, {($CellContext`rho[0, -0.2, 1, 1, 1, 0] + $CellContext`rho[
               Pi, -0.2, 1, 1, 1, 0])/
             2, ($CellContext`rho[0, -0.2, 1, 1, 1, 0] + $CellContext`rho[
               Pi, -0.2, 1, 1, 1, 0]) ((
                1 - $CellContext`eps[-0.2, 1, 1, 1]^2)^Rational[1, 2]/2)}]}, 
          0, {0, 0}]], 
        Graphics[
         Rotate[{Thick, 
           Line[{{{0, -3}, {0, 3}}, {{-2, 0}, {11, 0}}}]}, 0, {0, 0}]], 
        Graphics[
         Disk[{0, 0}, 0.3]], 
        Graphics[
         Disk[{$CellContext`rho[$CellContext`\[Phi]$$, -0.2, 1, 1, 1, 0] 
           Cos[$CellContext`\[Phi]$$], \
$CellContext`rho[$CellContext`\[Phi]$$, -0.2, 1, 1, 1, 0] 
           Sin[$CellContext`\[Phi]$$]}, 0.2]]], 
      "Specifications" :> {{$CellContext`\[Phi]$$, 0, 2 Pi, AnimationRate -> 
         0.1, AnimationRunning -> False, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{409., {123., 128.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.463495638473*^9, 3.463495668236*^9}, 
   3.4636788529474735`*^9, {3.4636795706584735`*^9, 3.4636795867054734`*^9}, {
   3.4636808343914733`*^9, 3.4636808494574738`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ellip1", "[", 
  RowBox[{
   RowBox[{"-", ".5"}], ",", "1", ",", "1", ",", "1", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.463495551863*^9, 3.463495563296*^9}, {3.463495704201*^9,
   3.463495704717*^9}, {3.4636795893984737`*^9, 3.4636795895344734`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Phi]$$ = 5.833309488457406, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`\[Phi]$$], 0, 2 Pi}}, Typeset`size$$ = {
    360., {85., 89.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Phi]$2083$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Phi]$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Phi]$$, $CellContext`\[Phi]$2083$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Graphics[
         Rotate[{Red, Dashed, 
           
           Circle[{($CellContext`rho[0, -0.5, 1, 1, 1, 0] - $CellContext`rho[
              Pi, -0.5, 1, 1, 1, 0])/2, 
             0}, {($CellContext`rho[0, -0.5, 1, 1, 1, 0] + $CellContext`rho[
               Pi, -0.5, 1, 1, 1, 0])/
             2, ($CellContext`rho[0, -0.5, 1, 1, 1, 0] + $CellContext`rho[
               Pi, -0.5, 1, 1, 1, 0]) ((
                1 - $CellContext`eps[-0.5, 1, 1, 1]^2)^Rational[1, 2]/2)}]}, 
          0, {0, 0}]], 
        Graphics[
         Rotate[{Thick, 
           Line[{{{0, -3}, {0, 3}}, {{-2, 0}, {11, 0}}}]}, 0, {0, 0}]], 
        Graphics[
         Disk[{0, 0}, 0.3]], 
        Graphics[
         Disk[{$CellContext`rho[$CellContext`\[Phi]$$, -0.5, 1, 1, 1, 0] 
           Cos[$CellContext`\[Phi]$$], \
$CellContext`rho[$CellContext`\[Phi]$$, -0.5, 1, 1, 1, 0] 
           Sin[$CellContext`\[Phi]$$]}, 0.2]]], 
      "Specifications" :> {{$CellContext`\[Phi]$$, 0, 2 Pi, AnimationRate -> 
         0.1, AnimationRunning -> False, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{409., {123., 128.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.4634957053900003`*^9, 3.463495722297*^9}, 
   3.4636788557304735`*^9, {3.463679590274473*^9, 3.4636795991604733`*^9}, {
   3.4636808542204733`*^9, 3.4636808654804735`*^9}}]
}, Open  ]],

Cell["Incorrect time behavior", "Text",
 CellChangeTimes->{{3.4636796065964737`*^9, 3.463679610979473*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ellip1", "[", 
  RowBox[{
   RowBox[{"-", ".1"}], ",", "1", ",", "1", ",", "1", ",", 
   RowBox[{"\[Pi]", "/", "4"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.463495551863*^9, 3.463495563296*^9}, {3.463495859402*^9,
    3.463495876328*^9}, {3.4636796152284737`*^9, 3.4636796156054735`*^9}, 
   3.4636806662404737`*^9, 3.4636808694374733`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Phi]$$ = 3.4255924185519517`, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`\[Phi]$$], 0, 2 Pi}}, Typeset`size$$ = {
    360., {138., 143.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Phi]$2124$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Phi]$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Phi]$$, $CellContext`\[Phi]$2124$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Graphics[
         Rotate[{Red, Dashed, 
           
           Circle[{($CellContext`rho[0, -0.1, 1, 1, 1, 0] - $CellContext`rho[
              Pi, -0.1, 1, 1, 1, 0])/2, 
             0}, {($CellContext`rho[0, -0.1, 1, 1, 1, 0] + $CellContext`rho[
               Pi, -0.1, 1, 1, 1, 0])/
             2, ($CellContext`rho[0, -0.1, 1, 1, 1, 0] + $CellContext`rho[
               Pi, -0.1, 1, 1, 1, 0]) ((
                1 - $CellContext`eps[-0.1, 1, 1, 1]^2)^Rational[1, 2]/2)}]}, 
          Rational[1, 4] Pi, {0, 0}]], 
        Graphics[{Thick, 
          Line[{{{0, -3}, {0, 3}}, {{-2, 0}, {11, 0}}}]}], 
        Graphics[
         Disk[{0, 0}, 0.3]], 
        Graphics[
         Disk[{$CellContext`rho[$CellContext`\[Phi]$$, -0.1, 1, 1, 1, 
             Rational[1, 4] Pi] 
           Cos[$CellContext`\[Phi]$$], \
$CellContext`rho[$CellContext`\[Phi]$$, -0.1, 1, 1, 1, Rational[1, 4] Pi] 
           Sin[$CellContext`\[Phi]$$]}, 0.2]]], 
      "Specifications" :> {{$CellContext`\[Phi]$$, 0, 2 Pi, AnimationRate -> 
         0.1, AnimationRunning -> False, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{409., {176., 181.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.4634958648570004`*^9, 3.463495880337*^9}, 
   3.4634959121549997`*^9, 3.4636788578344736`*^9, {3.4636796170034733`*^9, 
   3.4636796324784737`*^9}, {3.4636806695684733`*^9, 
   3.4636806915224733`*^9}, {3.4636807718114734`*^9, 3.463680797972473*^9}, {
   3.4636808706224737`*^9, 3.4636808731354733`*^9}, 3.463680904677473*^9, {
   3.4636809466504736`*^9, 3.463680964394473*^9}}]
}, Open  ]],

Cell["\<\
Now do with correct time dependence via an integration of the phi equation\
\>", "Text",
 CellChangeTimes->{{3.4636809689184732`*^9, 3.463680998564473*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"findphi2", "[", 
   RowBox[{
   "E_", ",", "m_", ",", "k_", ",", "L_", ",", "\[Phi]0_", ",", "N_"}], "]"}],
   ":=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Phi]", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"(", 
         FractionBox["L", "m"], ")"}], 
        RowBox[{
         RowBox[{"CC", "[", 
          RowBox[{"m", ",", "k", ",", "L"}], "]"}], "^", "2"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"eps", "[", 
             RowBox[{"E", ",", "m", ",", "k", ",", "L"}], "]"}], 
            RowBox[{"Cos", "[", 
             RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}]}], ")"}], "2"]}]}], 
      ",", 
      RowBox[{
       RowBox[{"\[Phi]", "[", "0", "]"}], "\[Equal]", "\[Phi]0"}]}], "}"}], 
    ",", "\[Phi]", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "N"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4634421291610003`*^9, 3.4634421625360003`*^9}, {
   3.4634422709630003`*^9, 3.463442271773*^9}, {3.463442312954*^9, 
   3.463442354867*^9}, {3.4634428048389997`*^9, 3.4634428369189997`*^9}, {
   3.463447662479*^9, 3.463447677332*^9}, 3.463448112808*^9, 
   3.4634963091099997`*^9, {3.46349790449*^9, 3.4634979049969997`*^9}, {
   3.4634979936540003`*^9, 3.463497994182*^9}, {3.463498054474*^9, 
   3.463498055005*^9}, {3.463498100718*^9, 3.463498101198*^9}, {
   3.463498245131*^9, 3.463498245559*^9}, {3.463498359343*^9, 
   3.4634983606400003`*^9}, {3.463509030203*^9, 3.46350912163*^9}, {
   3.463509236092*^9, 3.463509248469*^9}, {3.463509351389*^9, 
   3.4635093628389997`*^9}, {3.463509691361*^9, 3.4635096926210003`*^9}, {
   3.463513222231*^9, 3.463513228801*^9}, {3.4636810924544735`*^9, 
   3.463681092637473*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Ellip2", "[", 
   RowBox[{
   "E_", ",", "m_", ",", "k_", ",", "L_", ",", "\[Phi]0_", ",", "N_"}], "]"}],
   ":=", 
  RowBox[{"Animate", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Graphics", "[", 
       RowBox[{"Rotate", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Red", ",", "Dashed", ",", 
           RowBox[{"Circle", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "0", ",", "E", ",", "m", ",", "k", ",", "L", ",", "0"}], 
                   "]"}], "-", 
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "\[Pi]", ",", "E", ",", "m", ",", "k", ",", "L", ",", 
                    "0"}], "]"}]}], ")"}], "/", "2"}], ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "0", ",", "E", ",", "m", ",", "k", ",", "L", ",", "0"}], 
                   "]"}], "+", 
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "\[Pi]", ",", "E", ",", "m", ",", "k", ",", "L", ",", 
                    "0"}], "]"}]}], ")"}], "/", "2"}], ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "0", ",", "E", ",", "m", ",", "k", ",", "L", ",", "0"}], 
                   "]"}], "+", 
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "\[Pi]", ",", "E", ",", "m", ",", "k", ",", "L", ",", 
                    "0"}], "]"}]}], ")"}], 
                RowBox[{
                 SqrtBox[
                  RowBox[{"1", "-", 
                   RowBox[{
                    RowBox[{"eps", "[", 
                    RowBox[{"E", ",", "m", ",", "k", ",", "L"}], "]"}], "^", 
                    "2"}]}]], "/", "2"}]}]}], "}"}]}], "]"}]}], "}"}], ",", 
         "\[Phi]0", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{"Thick", ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "3"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"11", ",", "0"}], "}"}]}], "}"}]}], "}"}], "]"}]}], 
        "}"}], "]"}], ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"Disk", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", ".3"}], "]"}], "]"}], ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"Disk", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"rho", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Evaluate", "[", 
                RowBox[{
                 RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", "E", ",", "m", ",", "k", 
              ",", "L", ",", "\[Phi]0"}], "]"}], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"Evaluate", "[", 
               RowBox[{
                RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"rho", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Evaluate", "[", 
                RowBox[{
                 RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", "E", ",", "m", ",", "k", 
              ",", "L", ",", "\[Phi]0"}], "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"Evaluate", "[", 
               RowBox[{
                RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "}"}], ",", ".2"}], 
        "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "N"}], "}"}], ",", 
    RowBox[{"AnimationRate", "\[Rule]", "4"}], ",", 
    RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.463495399355*^9, 3.463495531008*^9}, {3.463495604291*^9,
    3.463495605242*^9}, {3.463495988574*^9, 3.463496042132*^9}, {
   3.463509501468*^9, 3.463509553584*^9}, {3.463509601965*^9, 
   3.463509637682*^9}, {3.463509797358*^9, 3.463509812043*^9}, {
   3.463513234167*^9, 3.463513242917*^9}, {3.463678924170473*^9, 
   3.4636789247394733`*^9}, {3.4636810437444735`*^9, 3.4636810439684734`*^9}, 
   3.4636810761604733`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"findphi2", "[", 
  RowBox[{
   RowBox[{"-", ".1"}], ",", "1", ",", "1", ",", "1", ",", "0", ",", "70"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.46350965363*^9, 3.463509665266*^9}, {
   3.4635098999110003`*^9, 3.463509900642*^9}, {3.463509937046*^9, 
   3.463509957946*^9}, {3.463510342525*^9, 3.463510343946*^9}, {
   3.463510570568*^9, 3.463510570817*^9}, {3.463513146352*^9, 
   3.463513147738*^9}, {3.463513254311*^9, 3.463513256888*^9}, 
   3.4635133085*^9, {3.463513362593*^9, 3.4635133636870003`*^9}, {
   3.463513675052*^9, 3.463513675356*^9}, {3.4636811315344734`*^9, 
   3.463681160788473*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"\[Phi]", "\[Rule]", 
    TagBox[
     RowBox[{"InterpolatingFunction", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"0.`", ",", "70.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
      "]"}],
     False,
     Editable->False]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.4635131489969997`*^9, 3.463513258227*^9, 
  3.463513316434*^9, 3.463513365653*^9, 3.463513586551*^9, 
  3.4635136246809998`*^9, 3.463513677367*^9, 3.4636811327984734`*^9, 
  3.4636811674614735`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ellip2", "[", 
  RowBox[{
   RowBox[{"-", "0.1"}], ",", "1", ",", "1", ",", "1", ",", "0", ",", "70"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.463509715639*^9, 3.463509728209*^9}, {3.463509892509*^9,
    3.4635098937060003`*^9}, {3.463509944641*^9, 3.46350996501*^9}, 
   3.463513155785*^9, {3.463513263572*^9, 3.4635132649300003`*^9}, 
   3.463513321049*^9, {3.4635133694560003`*^9, 3.463513370059*^9}, {
   3.463513668389*^9, 3.463513670288*^9}, {3.463681138637473*^9, 
   3.4636811390614734`*^9}, {3.4636811729164734`*^9, 3.463681178019473*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 10.539999008178711`, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 70}}, Typeset`size$$ = {360., {85., 89.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`t$2188$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$2188$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Graphics[
         Rotate[{Red, Dashed, 
           
           Circle[{($CellContext`rho[0, -0.1, 1, 1, 1, 0] - $CellContext`rho[
              Pi, -0.1, 1, 1, 1, 0])/2, 
             0}, {($CellContext`rho[0, -0.1, 1, 1, 1, 0] + $CellContext`rho[
               Pi, -0.1, 1, 1, 1, 0])/
             2, ($CellContext`rho[0, -0.1, 1, 1, 1, 0] + $CellContext`rho[
               Pi, -0.1, 1, 1, 1, 0]) ((
                1 - $CellContext`eps[-0.1, 1, 1, 1]^2)^Rational[1, 2]/2)}]}, 
          0, {0, 0}]], 
        Graphics[{Thick, 
          Line[{{{0, -3}, {0, 3}}, {{-2, 0}, {11, 0}}}]}], 
        Graphics[
         Disk[{0, 0}, 0.3]], 
        Graphics[
         Disk[{$CellContext`rho[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 70.}}, {
                    3, 11, 1, {250}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJxFlXk01XsXxpEQboZIpsjlRIaoHAnn93x/x3QSDrqKVMiQUinD1b3GonSR
SuMpKS69IWlSXUmpV0Q4SCgyZSgNQsdUvWe97x/vXmuvz3/Pfvbea+29xH+P
e6CYiIiIqDCnRf4fwdvMzXxW/U79j4epFFcVl9TTtyj3qTmpdr9WUuKPtdPF
FvIp3+SK9f5q7VSX7vL5fhndlEHlsfsP+7qpiK1fAzRW91AVsx7yf6T1UNK8
O2Wvunuo3yxUgs3Ne6kPezvKv3T2UolFWUpFh/oolUHfncHL+6kxU9GGe1Xv
qe3lXNW5179Qnr3atdemxyhbydEYT3sBZbrN95TCT1E8pB1HBN5S0GFalKQm
/IInSgv+kfNQQMRR6Qvt7xaAISUWlxu9ECn8plbWPlW85+Uu79ipgXUBESmR
gVp4dTonLGX5EqTMSGt6FungxXCi5+08XSi2TWYoZjOwoWpPTdhZfVy4PSDW
cHwZenI2WxunGkHveEtkapIJ7lTkvRpnmaKN6Teea2WGpdoJ/MUSKxA1L7v4
XOMK/PtrearS+ZVQevNme0bgKhRf6R18Lm0Ox/ChIIkSc/SyPr0jvzERIz0e
EDvNxA7u2Z8XEy2w8bQ175HUati/6V7Vm7Eaq3SSG+aoWEL3fmxlfrIllLhR
dzjjlpgzuPtfI/5rMBYbfD6DvwbasqletJEV1vGKVSYOWSFav+nllR4r5JVO
ZHpbWyMoR3VN8yFr6B+16XbiW2N4v9+hp+o2KAxMNrIJskFrhMPDhFwbiCbN
4z7ttoFRZm2P5GIWNuSkhzttYoGaeelRn87C0vWLV7k9YkHuWpBSy1cWBHOv
j3vqUWhPjH6l4kqh7Dv5py2aQtZ+maxzORTiJ1rivesoPAnZkDP5icKcz6H+
tVKAnkFxuJoa4LDtc1KIIbDAPHN1oyXwVsJihOkIFLR1ZGd5AlEFcR7igQAd
oyO5MxzI7kv7MRAHzK4VTPj/BXjf9PvYdQq4q1rX730ZUEpkvmktAh7v0hyW
KQV2eYt/QwWg5vBBLKoaqFrZJFfIB8K172t0dwACU36NVy/wBxmOah4GfriJ
6jqPAgf8VflVk8DccLM4iBAsSmII9koQLDulHpYrS2CTLz/cokjAvTvXX0KV
wL96usNCiyCy/bNHiB7B4ff9dTxDAt5Mu12dGcE12YaH3y0Ivudc2GfHInC2
3MFItyUw4xsHXuIQKIeM5t5yIZgSudNb5UHQeTZ6ScdGAhmjLIkeHwLLiscf
Bn0JgtwHGj8FEJx8J106sZ3gcfTy87OhBJ9l1ifM2UugmR0dKB1J0MLa9zo/
miCta6cbO4Yg7kej+ayQexYz1e7EEvixzv/YFUfgsUWkjxFPYBsX+OytkMyL
zwvPJhCodp2MkD5AMKu51SbmIMHbzQYSn5IIKrPG6rceIsjvLD/DP0xgtTbP
8eIRgsbStKkdqUJ/v0YUWKQTzGRs2iSeQXBslpblHyNghCwrzzpBENp9XMA5
RXBrw5TZtzME0/W+oTk8grEr0/PeXCD4mHDyinI2wYCXiZ3rZWHdFdW9KbkE
7TL+CZV5BE39M5qzV4Rz8p46H1lAoMX/pvq5iMDOYfzM9utC/fJR5d4bBCdW
fs7cdJvg3tURhZelQh2t9xku9wm2/Zxqfv2AYKhr3qKQRwS7Hqr6fHtC8DXL
4NLBZwS/x1r2y9cK+/bh6F+sJ0i09go1bCLwGW/VP9tKYFG0/p34awLFgKbL
e98K/apzt3T1EdQ0v1BzGiL4O9Xp1d0Rgnh2TabuKIH3jD33+IRwL3Orb96b
EfqYz1HuFqVxedHz3yWlaAToOHWYzKfBMKqz9lSiMWzunB2rRqOQqhfN06ax
m+MaUMegkfiX5IsMMxqnaivMPaxpXJWNvrjQgcYDZ1PJDjcajUeH9mT50Ohv
uNTmG0xDIO9FdPfRkHFXKBiMoSHrmiT3+AiNX9YJIninaczn7OgIzxXSvpNy
LqEhx+bmMcppyOOJtMhzGgo2zLD2VhqKa66+vNlHY8p8a7XNNxo9Zspl1VJs
VBvXXvNQZ6PEIPFSlzEbZ/QsMkPARvySj8nj7mwEaeZGxwey4aLqtVM6mo2j
DHlB/Qk2GlY+O5B5jQ05Ejd/YzUbXBdznkYfG8c2jej1fGeDvz33Rt4iWyhE
edvsWGkL94MKNSYutoirYLyPiLRFwYyVTNkFW7RauBmJPrWFWESQs8MHWxiX
/Lk7XdEOXiPHMpot7ZCsn1+i6meHGwFl/K0pdjAVPPmSWGmH4iN1cn/P2sFY
46VJFdMehcWdzkNh9lhGBkKlC+1xtflTqtE7eywNEhS4aDkgf/JnTZiXA7QU
Js8ZljjgnMGXkAEJRyjSQ5aXNzsi1bt7ns9tR+GdaGtfKMNBXGrjVb4fB5O5
1fvT7nGw98EjjoPcWnQqv76VdnwtOHsmNJsWOKG0Wi5F5bQTdHSWffVZtA5H
/7T1yeGtw3TLlqpBDWcEmew3Nc52RtPhTN6+JS4YDRY39B5wgZxjZBkpdIWK
0lie0mouGEmGu1N4XDDHtzFnZ7lQnzZTj2O54b9PPMEN/wHMxm+9
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwl0oFGHQAAQNG3JEmSJEnSkiRJkiRJMpMkSZIkSZKkJUmSJEmSySRJkiRJ
kiRJkiRJkiRJkiRJkmRmm9mZXc4f3I8NXyraPgQCgV+B/wURTAihhBFOBJFE
EU0MscQRTwKJJJFMCqmkkU4GmWSRTQ655JFPAYUU8YnPFFNCKWWUU0ElVVRT
Qy111NNAI00000IrbbTTQSdddNNDL330M8AgQwwzwihfGeMb40wwyRTTzDDL
HPMssMgSy6ywyhrrbLDJFtvssMse+xxwyBHHnHDKGedccMkV19xwyx33PPDI
E8+88Mob73znBz/5zR8CRggimBBCCSOcCCKJIpoYYokjngQSSSKZFFJJI50M
MskimxxyySOfAgop4hOfKaaEUsoop4JKqqimhlrqqKeBRppopoVW/k3eTged
dNFND7300c8AgwwxzAijfGWMb4wzwSRTTDPDLHPMs8AiSyyzwiprrLPBJlts
s8Mue+xzwCFHHHPCKWecc8ElV1xzwy133PPAI08888Irb7zzF675fUg=
                    "], CompressedData["
1:eJwt13dUDv73APDSXtrP80RpaJHGB6Wi7kUfNKVF0laIBpWWj1J6GkqD9qAh
FElp0NJe2lOS0vSkoZ2k3/M95/f+457zOud9z33/cc897ytq42xgR0tDQ7P8
v/D/p93LmRzQTYYvq/OsVuFcYLxo8eh/ThynFbAKF4Fbl2Q//M9/GVP9Nn9p
gzrtgYowqoeYLGTMRkxh3ClqbwbVqgnXp/StroK5SkrFEtVe0mG+RtM3YalG
otG9hww/3XzOPX/qAWziUqf29ZJB2lXKmV3AE+QE9I6qUs2kQzt9M8oTercJ
ZG2qXR9+Ku9n8QIf9QBJc6rrOnQW1fy9wEb9saAz1T/z/g3K/O0Fw87aV+9R
7Wzo6nFrxhvO5qbTPKe6LUhq8/iQD+gtp8+3Um2730+Et/UOZGdfUFyl2rCl
ldC1KwCO86kkdfWT4bPL15eh7UFwTfSjqOIgGZqXBrrb7ocB8RE9/56vZIiX
Y5UyT4kE6RcMXeEjZHg/KRprXJIAJ1TRpmmRDEo7bOO4ndLgtOlbdkaOIPA0
6RPRkngGKS9Nj6F0EBTG9kUZjb6AF73iHJtnguCPXWA+IeMVPFy3pLNyDgLd
ml3tFYp50Bje9fBpUhDYW2nyazrkw+Y59QCbviBQarn4NDfzHURc4I95IxAM
A6kGNh8nikDFQU2Dzj4YNDKPZJnJvYc7wma5s6XBYDxZqXrDtxQSNeg0CIIh
kP0tZEs9rQKGBknFPa9CIKfE21xo5iMo1Z/cz20YCn6yTh2xkdVQbpm6bcr9
ANZDTpk+OVEL9Xe/LLdQHkBSsvMvGrp6sM3IvKE4FgaaFD+jxu4GEJqnY/t3
OxyOHdHNNipugjcfZo0aNSIgU0u2+HpeC4h33L/uZx4J2hMtjuMmrWAS8Z6G
izkKNnu/KZ3kbIct5oIhwcYoYAy1Wfrh2AFzp4ymMS0agn6+o8m07IQ/hPWs
pbhHwLYvtsRbrgsOcG1pMvg8hoUSLhY6pm5gtc55r+YVAwt+S4Y3KN3wxfpm
oGpcLBwpmSPuHuyBSUUf5fzBOBA02Lxr+6IXrhw5xMZMnwBq7hN5LPf6gE1s
1ZpOPxHuWOTZaNn1wxvppd0Pa5MAGninEkwG4OS7pLdrV1Ogb49SFEHqM4Dt
xEGxmVSIKBtdiN0xCO47ZPq6dZ5Cjzt5zZ4yCAfPnVdhV0+Di24vm9lHvoDZ
5b2JE7rpILV+bZ2mcAhU71oeyjydAZFyl9PTYr6CXM0jiw7zTEhxcfbXDhiG
OgbWfPWYZ8D/w1E53vcbVMupVI8tZYG9mvclf9kRaDrDSXNa6QUMt8GXK2kj
oO9YFC+c8hIMacbFDguOgkeDy544uRwQ9dVJrkgdhaPxstdOLr6C5baAgnSu
78ARe0doZ3QuKCRHSRBCvoNVRH+xnkIeGGhuhQ4yj4HoDZH5iYNvIYa29mtX
5Bjcfh3W8cQ4H05hTVIv0zjcr+k0z7MuAK+/Lsc6A8fBIf2iXtWDdxCU33Qj
mm0ChDpHQ7oGCiEpfnWQOXECQiaf2DOcLQYTsWkfSeIkWD2+dbHsRQm87u26
mZ80CZzv1EKWpD/A398TJYHSU0BU8znA1FcKL5Ruc6dWTEH0yTmOyuJy8Go6
QJw5MQ1ZT0mFg+6V0D7g2be/fRoYFW335ud/BNbyHiGNyz/guLJBi3JDFRiA
nZMGHQUKmhw3nbeqodVwQmUrggL7n0r3hgrVgtjz3USUmIGBCr46e/M6KHDk
jqSrnQH19fIcyep6cNNoZ7zi+BN039pRWAwageuuY1mp2CxEnTuh+YGvGQKH
tnhny2bBtUDrVWtWC0xnq/xItZqDG0It2sx2reCzL8/0+855eGVQZ3/bpB38
yy8KrzTOg/ai+XxHVQdwcsfHSpxZgJWmw/E+m53wrq3e0CFlAUrSgtai+bqh
aKD6D+36AjS7Stbr6/TAkhLfpfsXfsGIZK+W3/Ne4Hrj9F9a5S9o8tsKmZLp
Bwmb8SJJuUU4qJd4hDwyAAwDhKMb4Yvg63p3W+/GIAxavzIaXaK6XaZlXWwI
PpXHiz6wWoK2Q4aMHGzDUGtG8195zxKUTo1qyxJG4IK13knLc8vw5gXhgciZ
UTBgEiqqqVyGdbojBT0230HoqoinmeIK3BL9QORLHoPuw4vHf+WvgJd+N9ly
fRxsFeRFnVRWIUpkSIjpv0lQaylYGm5ahTOhZ+kMFabB9fXqurfdGqwuhFkV
CFDgN82e9ByOdeAgHTZbO/4TJPVWG/lr16HScC4rpGAOzP1v2GWGbsDN8UXl
8+ULkBQ3O1hj/xscOtQbFy4swrcgCsf9C5vgS7m2eU9hGYae5dv0y/6BoYX9
5dvfVqD4zayxBv8W5M6/Pu1SvQbxe8vP/uT6C12VJwosvm7AJ69YK6m923BT
djjmp+IfcDzrRDnGRIMWzjv+XcG/UH9W4oJ7IA2ejlQoFDlKg3dcxnIn2WnR
wdjnU5oDLdqzn1A6nEqLlCZei+TXO9DTMUVlQWUHvjl7dVOClh6/D8hVhY/s
QF31+DF9Kwb89k3RUy+aDq2lpxiLaxgxwrsvS+YoPTajvk/xFhNKuInsK/lJ
j8cOTKS+28eCQpudj1W5GdBJU7OQaMuC81lDIpxKDMiY8brHLokFRZ7M7T9s
xoD/JC1sk7tY8IT6/vnnfgzonzuxZsPMivKS4uSrWQzYQnE+O3qMFdVcxCZc
PzFgWkum/w9nVvxDNhe2EWDEhY8ZwYqdrPj79A6y5RVG9BXXrbwvw4axMSf6
TIoYcdchcovAXTbcWxBSqMDIhJ91O6qgkQ0lBYjt3SZM2GFAqdBlYcdnke60
qmVMKK/d3/dBhx3VPRc1b4sx46Sy5GdhP3bMOS/tpxvCjDJvN3wK09lxrT6A
5L/AjP4N3HOLBezI5DvG13ueBXlKPfY/orqQ0WyLsZIFyf6i+XFp7OgS41Uf
dJ4VZRvOm3BeYcewVoZPjnOsSLN9jf48MzsaFr132PZnw47Cds/7wWxo/l4q
xOkPGy5XGsrnMrFh6D0dAU9Xdkys/FCp7M6KwzM99d1T7Dg+mvp+rJsFK7O5
4/415cCDrhsyXpIs+LW0ZySlgQO7tJKk3zkz49qDzYGSgztxJsmB4UA+E+qc
keugPNuJS4HJl0wHGXHzWMzlH3ycWGRVKcRBw4hSLF01ub6c2NnbKd8hwYC5
FyeycJIT+VrMLKt16dEq95zkeXEu3JFwmCHVi9oX8qpaQYZcWFt3J6Ayewc2
fk4Wq/TjQrWyMQb577So7JZpblLBhbZHHq7WtNHg6N0BpSPrXHjdY13FMnYb
ZJxfSyTJcaPTltZnxrwtkNyoiiyz5sbvwdPTXpRNeJvJx9sbxY1zcs6nJjR+
Q8tKt55gJTfmLUn1zJavQ/9rD9mGH9wo32NQMGG4BhK/6FKid/Pg9cf9XQ+L
VuDxoPWbVU0evCL91PshLIOx1mVpDXce7DXjvHNiZhHGA0aXalJ4cNbm6NyR
ol9gtsGUXlzDg5K0BUrHqHNuT63LX9MpHpS6e2+wUXUeIlf6874x82Lid6YW
wauz8DE944uHNC/aivHtKSufgS8VHbn+53hRXycmd/r5DzjD5RAd5MGLSb7k
KsG2KWjata01lMiLar0UG3rpSfg3jr6ruZQXU7v3JMfkjsMIUKQfDfLisV0J
GUNmY6AS4jd6Y40XI0yLvrTt/w4BF2/bB/PwodKewRRx4ijc95zj4DrAh/+c
8zqgIjQCFgc6z5sa86H07QWfNpWvcLi1w3zSmw8Dq+UM/rwYhPexMK2ewocB
0buIvK4DIBJqONJZxoefteI4m4P6YDvPreT3Zz5cbtbXOUf9l8DspC/DCh8+
ccl7623VDcz+U1v/7OTH0vta4oI8XZDEZ8JfJMGPu3V/ByZOd8DPhuyIIeDH
hN5TccGX2iH8Y4HUvgv8GJggp9lzsBUYmTpEu52oDjxcp3qmBTZyyAos9/lR
bLLBU+pRExTy+vEsxfHjN5GrEp/YGoFu/HFffjY/rvwTpVCZUw8bYTu/2JXx
43xYdMBbxzqI+fohXqKVH02zJzsVdWth6ElncccYP4Ze2UjM+FwNw5i2NrXO
j3xzBSWj0VVwLfrKz0R2AqZl1uq8vfkRyo31MriFCdja0XyaPFIBw8JFJCcF
AoZv73Ou4y2HkQfvTFuRgEwiwf1O7qVwpcjR/ow+AXUD7Iky2++BeX1wfNmC
gJs+ISaFOSXg4jO+PnSLgOzStMtaq0WgYSI/4BhIQA//LaMg90JQiJ/oa48l
oILUrZ4hkXdQoqI8Kv6cmj9YIOT2Kx+8J5vKQooI6C0Ucbtu9C2UDZjSEOsI
OBVx2Ux3Ng8eUdp6RrsI6Cp+VNeIKw8C6XTD/3wjIORE9AVH5IL/ocYG0iIB
VSk80tr+r0BGzrebkY6Ics7RfiXvsmHzi7gThYeIG0rrSRaCL2H3ce/EUVEi
Vrkb1v/Iew7j/4TVMCgQMWlbsCzjehYc3MmTfEONiDdc93vyn34GtRHDLdJa
RPQZPmRZpZ4Jec84PbVMiJj3W6FtTi8DbgUNGh+/QkTi6s5jN3nSwUuLYWK/
BxF3RImWVf95Cvj8uIUUmYhuL6XGPJieQrPlcN25x0TUP2RiN3sxFQIELNY+
plHfGzZzW6s3GY4Zjd4MziViv+4dMXOPJPAXNVkt+UCtJ8J+M/doIogzGtBZ
1xPRRGXfnvdCCXDrN7v09z5qPVtaoUvpcSDSF7lwa5KIhqrKkrUmsbAgpL2g
sELEX/eEL9IfioGaIvKvw3QkPPtNhtyr8Bi66d3mHnGRMCyBoCOv/Qg000vb
LIVIePwQT//Wf9FQKlWz8XwfCce+i5yaqYuCy8U/G70USRhXp/xXSSQKtg1r
7N1PkfB1crjVjEYkGDwdSkkzIaFmZ7mJO2cECLDfurvLnoSfSGyeEQ3h8Kmo
L3/NjXq/bJ/ef9lh4MuT4KAbQMLPDgwJUvkPoKrdlkM2ioTqDXk22Z9DwXiX
cN2zVBLmXMF+LqFQWM4Wp9TmkHCI8WOTmFcIaNLaqLFWkjDev7faKzsY/JcX
XlV1krD+uiDlAFMw3ORYd2MdJ6EwvaIKbWgQGInVWtKsknDYOnKXnHwQuNTc
qy1jEkBTC4zkXSZDoE/aS3deARTSynnoRd0vBy09jSSFBXBX8zWPcer+/H97
sk3q
                    "]}, {Automatic}]}}]], 1], -0.1, 1, 1, 1, 0] Cos[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 70.}}, {
                    3, 11, 1, {250}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJxFlXk01XsXxpEQboZIpsjlRIaoHAnn93x/x3QSDrqKVMiQUinD1b3GonSR
SuMpKS69IWlSXUmpV0Q4SCgyZSgNQsdUvWe97x/vXmuvz3/Pfvbea+29xH+P
e6CYiIiIqDCnRf4fwdvMzXxW/U79j4epFFcVl9TTtyj3qTmpdr9WUuKPtdPF
FvIp3+SK9f5q7VSX7vL5fhndlEHlsfsP+7qpiK1fAzRW91AVsx7yf6T1UNK8
O2Wvunuo3yxUgs3Ne6kPezvKv3T2UolFWUpFh/oolUHfncHL+6kxU9GGe1Xv
qe3lXNW5179Qnr3atdemxyhbydEYT3sBZbrN95TCT1E8pB1HBN5S0GFalKQm
/IInSgv+kfNQQMRR6Qvt7xaAISUWlxu9ECn8plbWPlW85+Uu79ipgXUBESmR
gVp4dTonLGX5EqTMSGt6FungxXCi5+08XSi2TWYoZjOwoWpPTdhZfVy4PSDW
cHwZenI2WxunGkHveEtkapIJ7lTkvRpnmaKN6Teea2WGpdoJ/MUSKxA1L7v4
XOMK/PtrearS+ZVQevNme0bgKhRf6R18Lm0Ox/ChIIkSc/SyPr0jvzERIz0e
EDvNxA7u2Z8XEy2w8bQ175HUati/6V7Vm7Eaq3SSG+aoWEL3fmxlfrIllLhR
dzjjlpgzuPtfI/5rMBYbfD6DvwbasqletJEV1vGKVSYOWSFav+nllR4r5JVO
ZHpbWyMoR3VN8yFr6B+16XbiW2N4v9+hp+o2KAxMNrIJskFrhMPDhFwbiCbN
4z7ttoFRZm2P5GIWNuSkhzttYoGaeelRn87C0vWLV7k9YkHuWpBSy1cWBHOv
j3vqUWhPjH6l4kqh7Dv5py2aQtZ+maxzORTiJ1rivesoPAnZkDP5icKcz6H+
tVKAnkFxuJoa4LDtc1KIIbDAPHN1oyXwVsJihOkIFLR1ZGd5AlEFcR7igQAd
oyO5MxzI7kv7MRAHzK4VTPj/BXjf9PvYdQq4q1rX730ZUEpkvmktAh7v0hyW
KQV2eYt/QwWg5vBBLKoaqFrZJFfIB8K172t0dwACU36NVy/wBxmOah4GfriJ
6jqPAgf8VflVk8DccLM4iBAsSmII9koQLDulHpYrS2CTLz/cokjAvTvXX0KV
wL96usNCiyCy/bNHiB7B4ff9dTxDAt5Mu12dGcE12YaH3y0Ivudc2GfHInC2
3MFItyUw4xsHXuIQKIeM5t5yIZgSudNb5UHQeTZ6ScdGAhmjLIkeHwLLiscf
Bn0JgtwHGj8FEJx8J106sZ3gcfTy87OhBJ9l1ifM2UugmR0dKB1J0MLa9zo/
miCta6cbO4Yg7kej+ayQexYz1e7EEvixzv/YFUfgsUWkjxFPYBsX+OytkMyL
zwvPJhCodp2MkD5AMKu51SbmIMHbzQYSn5IIKrPG6rceIsjvLD/DP0xgtTbP
8eIRgsbStKkdqUJ/v0YUWKQTzGRs2iSeQXBslpblHyNghCwrzzpBENp9XMA5
RXBrw5TZtzME0/W+oTk8grEr0/PeXCD4mHDyinI2wYCXiZ3rZWHdFdW9KbkE
7TL+CZV5BE39M5qzV4Rz8p46H1lAoMX/pvq5iMDOYfzM9utC/fJR5d4bBCdW
fs7cdJvg3tURhZelQh2t9xku9wm2/Zxqfv2AYKhr3qKQRwS7Hqr6fHtC8DXL
4NLBZwS/x1r2y9cK+/bh6F+sJ0i09go1bCLwGW/VP9tKYFG0/p34awLFgKbL
e98K/apzt3T1EdQ0v1BzGiL4O9Xp1d0Rgnh2TabuKIH3jD33+IRwL3Orb96b
EfqYz1HuFqVxedHz3yWlaAToOHWYzKfBMKqz9lSiMWzunB2rRqOQqhfN06ax
m+MaUMegkfiX5IsMMxqnaivMPaxpXJWNvrjQgcYDZ1PJDjcajUeH9mT50Ohv
uNTmG0xDIO9FdPfRkHFXKBiMoSHrmiT3+AiNX9YJIninaczn7OgIzxXSvpNy
LqEhx+bmMcppyOOJtMhzGgo2zLD2VhqKa66+vNlHY8p8a7XNNxo9Zspl1VJs
VBvXXvNQZ6PEIPFSlzEbZ/QsMkPARvySj8nj7mwEaeZGxwey4aLqtVM6mo2j
DHlB/Qk2GlY+O5B5jQ05Ejd/YzUbXBdznkYfG8c2jej1fGeDvz33Rt4iWyhE
edvsWGkL94MKNSYutoirYLyPiLRFwYyVTNkFW7RauBmJPrWFWESQs8MHWxiX
/Lk7XdEOXiPHMpot7ZCsn1+i6meHGwFl/K0pdjAVPPmSWGmH4iN1cn/P2sFY
46VJFdMehcWdzkNh9lhGBkKlC+1xtflTqtE7eywNEhS4aDkgf/JnTZiXA7QU
Js8ZljjgnMGXkAEJRyjSQ5aXNzsi1bt7ns9tR+GdaGtfKMNBXGrjVb4fB5O5
1fvT7nGw98EjjoPcWnQqv76VdnwtOHsmNJsWOKG0Wi5F5bQTdHSWffVZtA5H
/7T1yeGtw3TLlqpBDWcEmew3Nc52RtPhTN6+JS4YDRY39B5wgZxjZBkpdIWK
0lie0mouGEmGu1N4XDDHtzFnZ7lQnzZTj2O54b9PPMEN/wHMxm+9
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwl0oFGHQAAQNG3JEmSJEnSkiRJkiRJMpMkSZIkSZKkJUmSJEmSySRJkiRJ
kiRJkiRJkiRJkiRJkmRmm9mZXc4f3I8NXyraPgQCgV+B/wURTAihhBFOBJFE
EU0MscQRTwKJJJFMCqmkkU4GmWSRTQ655JFPAYUU8YnPFFNCKWWUU0ElVVRT
Qy111NNAI00000IrbbTTQSdddNNDL330M8AgQwwzwihfGeMb40wwyRTTzDDL
HPMssMgSy6ywyhrrbLDJFtvssMse+xxwyBHHnHDKGedccMkV19xwyx33PPDI
E8+88Mob73znBz/5zR8CRggimBBCCSOcCCKJIpoYYokjngQSSSKZFFJJI50M
MskimxxyySOfAgop4hOfKaaEUsoop4JKqqimhlrqqKeBRppopoVW/k3eTged
dNFND7300c8AgwwxzAijfGWMb4wzwSRTTDPDLHPMs8AiSyyzwiprrLPBJlts
s8Mue+xzwCFHHHPCKWecc8ElV1xzwy133PPAI08888Irb7zzF675fUg=
                    "], CompressedData["
1:eJwt13dUDv73APDSXtrP80RpaJHGB6Wi7kUfNKVF0laIBpWWj1J6GkqD9qAh
FElp0NJe2lOS0vSkoZ2k3/M95/f+457zOud9z33/cc897ytq42xgR0tDQ7P8
v/D/p93LmRzQTYYvq/OsVuFcYLxo8eh/ThynFbAKF4Fbl2Q//M9/GVP9Nn9p
gzrtgYowqoeYLGTMRkxh3ClqbwbVqgnXp/StroK5SkrFEtVe0mG+RtM3YalG
otG9hww/3XzOPX/qAWziUqf29ZJB2lXKmV3AE+QE9I6qUs2kQzt9M8oTercJ
ZG2qXR9+Ku9n8QIf9QBJc6rrOnQW1fy9wEb9saAz1T/z/g3K/O0Fw87aV+9R
7Wzo6nFrxhvO5qbTPKe6LUhq8/iQD+gtp8+3Um2730+Et/UOZGdfUFyl2rCl
ldC1KwCO86kkdfWT4bPL15eh7UFwTfSjqOIgGZqXBrrb7ocB8RE9/56vZIiX
Y5UyT4kE6RcMXeEjZHg/KRprXJIAJ1TRpmmRDEo7bOO4ndLgtOlbdkaOIPA0
6RPRkngGKS9Nj6F0EBTG9kUZjb6AF73iHJtnguCPXWA+IeMVPFy3pLNyDgLd
ml3tFYp50Bje9fBpUhDYW2nyazrkw+Y59QCbviBQarn4NDfzHURc4I95IxAM
A6kGNh8nikDFQU2Dzj4YNDKPZJnJvYc7wma5s6XBYDxZqXrDtxQSNeg0CIIh
kP0tZEs9rQKGBknFPa9CIKfE21xo5iMo1Z/cz20YCn6yTh2xkdVQbpm6bcr9
ANZDTpk+OVEL9Xe/LLdQHkBSsvMvGrp6sM3IvKE4FgaaFD+jxu4GEJqnY/t3
OxyOHdHNNipugjcfZo0aNSIgU0u2+HpeC4h33L/uZx4J2hMtjuMmrWAS8Z6G
izkKNnu/KZ3kbIct5oIhwcYoYAy1Wfrh2AFzp4ymMS0agn6+o8m07IQ/hPWs
pbhHwLYvtsRbrgsOcG1pMvg8hoUSLhY6pm5gtc55r+YVAwt+S4Y3KN3wxfpm
oGpcLBwpmSPuHuyBSUUf5fzBOBA02Lxr+6IXrhw5xMZMnwBq7hN5LPf6gE1s
1ZpOPxHuWOTZaNn1wxvppd0Pa5MAGninEkwG4OS7pLdrV1Ogb49SFEHqM4Dt
xEGxmVSIKBtdiN0xCO47ZPq6dZ5Cjzt5zZ4yCAfPnVdhV0+Di24vm9lHvoDZ
5b2JE7rpILV+bZ2mcAhU71oeyjydAZFyl9PTYr6CXM0jiw7zTEhxcfbXDhiG
OgbWfPWYZ8D/w1E53vcbVMupVI8tZYG9mvclf9kRaDrDSXNa6QUMt8GXK2kj
oO9YFC+c8hIMacbFDguOgkeDy544uRwQ9dVJrkgdhaPxstdOLr6C5baAgnSu
78ARe0doZ3QuKCRHSRBCvoNVRH+xnkIeGGhuhQ4yj4HoDZH5iYNvIYa29mtX
5Bjcfh3W8cQ4H05hTVIv0zjcr+k0z7MuAK+/Lsc6A8fBIf2iXtWDdxCU33Qj
mm0ChDpHQ7oGCiEpfnWQOXECQiaf2DOcLQYTsWkfSeIkWD2+dbHsRQm87u26
mZ80CZzv1EKWpD/A398TJYHSU0BU8znA1FcKL5Ruc6dWTEH0yTmOyuJy8Go6
QJw5MQ1ZT0mFg+6V0D7g2be/fRoYFW335ud/BNbyHiGNyz/guLJBi3JDFRiA
nZMGHQUKmhw3nbeqodVwQmUrggL7n0r3hgrVgtjz3USUmIGBCr46e/M6KHDk
jqSrnQH19fIcyep6cNNoZ7zi+BN039pRWAwageuuY1mp2CxEnTuh+YGvGQKH
tnhny2bBtUDrVWtWC0xnq/xItZqDG0It2sx2reCzL8/0+855eGVQZ3/bpB38
yy8KrzTOg/ai+XxHVQdwcsfHSpxZgJWmw/E+m53wrq3e0CFlAUrSgtai+bqh
aKD6D+36AjS7Stbr6/TAkhLfpfsXfsGIZK+W3/Ne4Hrj9F9a5S9o8tsKmZLp
Bwmb8SJJuUU4qJd4hDwyAAwDhKMb4Yvg63p3W+/GIAxavzIaXaK6XaZlXWwI
PpXHiz6wWoK2Q4aMHGzDUGtG8195zxKUTo1qyxJG4IK13knLc8vw5gXhgciZ
UTBgEiqqqVyGdbojBT0230HoqoinmeIK3BL9QORLHoPuw4vHf+WvgJd+N9ly
fRxsFeRFnVRWIUpkSIjpv0lQaylYGm5ahTOhZ+kMFabB9fXqurfdGqwuhFkV
CFDgN82e9ByOdeAgHTZbO/4TJPVWG/lr16HScC4rpGAOzP1v2GWGbsDN8UXl
8+ULkBQ3O1hj/xscOtQbFy4swrcgCsf9C5vgS7m2eU9hGYae5dv0y/6BoYX9
5dvfVqD4zayxBv8W5M6/Pu1SvQbxe8vP/uT6C12VJwosvm7AJ69YK6m923BT
djjmp+IfcDzrRDnGRIMWzjv+XcG/UH9W4oJ7IA2ejlQoFDlKg3dcxnIn2WnR
wdjnU5oDLdqzn1A6nEqLlCZei+TXO9DTMUVlQWUHvjl7dVOClh6/D8hVhY/s
QF31+DF9Kwb89k3RUy+aDq2lpxiLaxgxwrsvS+YoPTajvk/xFhNKuInsK/lJ
j8cOTKS+28eCQpudj1W5GdBJU7OQaMuC81lDIpxKDMiY8brHLokFRZ7M7T9s
xoD/JC1sk7tY8IT6/vnnfgzonzuxZsPMivKS4uSrWQzYQnE+O3qMFdVcxCZc
PzFgWkum/w9nVvxDNhe2EWDEhY8ZwYqdrPj79A6y5RVG9BXXrbwvw4axMSf6
TIoYcdchcovAXTbcWxBSqMDIhJ91O6qgkQ0lBYjt3SZM2GFAqdBlYcdnke60
qmVMKK/d3/dBhx3VPRc1b4sx46Sy5GdhP3bMOS/tpxvCjDJvN3wK09lxrT6A
5L/AjP4N3HOLBezI5DvG13ueBXlKPfY/orqQ0WyLsZIFyf6i+XFp7OgS41Uf
dJ4VZRvOm3BeYcewVoZPjnOsSLN9jf48MzsaFr132PZnw47Cds/7wWxo/l4q
xOkPGy5XGsrnMrFh6D0dAU9Xdkys/FCp7M6KwzM99d1T7Dg+mvp+rJsFK7O5
4/415cCDrhsyXpIs+LW0ZySlgQO7tJKk3zkz49qDzYGSgztxJsmB4UA+E+qc
keugPNuJS4HJl0wHGXHzWMzlH3ycWGRVKcRBw4hSLF01ub6c2NnbKd8hwYC5
FyeycJIT+VrMLKt16dEq95zkeXEu3JFwmCHVi9oX8qpaQYZcWFt3J6Ayewc2
fk4Wq/TjQrWyMQb577So7JZpblLBhbZHHq7WtNHg6N0BpSPrXHjdY13FMnYb
ZJxfSyTJcaPTltZnxrwtkNyoiiyz5sbvwdPTXpRNeJvJx9sbxY1zcs6nJjR+
Q8tKt55gJTfmLUn1zJavQ/9rD9mGH9wo32NQMGG4BhK/6FKid/Pg9cf9XQ+L
VuDxoPWbVU0evCL91PshLIOx1mVpDXce7DXjvHNiZhHGA0aXalJ4cNbm6NyR
ol9gtsGUXlzDg5K0BUrHqHNuT63LX9MpHpS6e2+wUXUeIlf6874x82Lid6YW
wauz8DE944uHNC/aivHtKSufgS8VHbn+53hRXycmd/r5DzjD5RAd5MGLSb7k
KsG2KWjata01lMiLar0UG3rpSfg3jr6ruZQXU7v3JMfkjsMIUKQfDfLisV0J
GUNmY6AS4jd6Y40XI0yLvrTt/w4BF2/bB/PwodKewRRx4ijc95zj4DrAh/+c
8zqgIjQCFgc6z5sa86H07QWfNpWvcLi1w3zSmw8Dq+UM/rwYhPexMK2ewocB
0buIvK4DIBJqONJZxoefteI4m4P6YDvPreT3Zz5cbtbXOUf9l8DspC/DCh8+
ccl7623VDcz+U1v/7OTH0vta4oI8XZDEZ8JfJMGPu3V/ByZOd8DPhuyIIeDH
hN5TccGX2iH8Y4HUvgv8GJggp9lzsBUYmTpEu52oDjxcp3qmBTZyyAos9/lR
bLLBU+pRExTy+vEsxfHjN5GrEp/YGoFu/HFffjY/rvwTpVCZUw8bYTu/2JXx
43xYdMBbxzqI+fohXqKVH02zJzsVdWth6ElncccYP4Ze2UjM+FwNw5i2NrXO
j3xzBSWj0VVwLfrKz0R2AqZl1uq8vfkRyo31MriFCdja0XyaPFIBw8JFJCcF
AoZv73Ou4y2HkQfvTFuRgEwiwf1O7qVwpcjR/ow+AXUD7Iky2++BeX1wfNmC
gJs+ISaFOSXg4jO+PnSLgOzStMtaq0WgYSI/4BhIQA//LaMg90JQiJ/oa48l
oILUrZ4hkXdQoqI8Kv6cmj9YIOT2Kx+8J5vKQooI6C0Ucbtu9C2UDZjSEOsI
OBVx2Ux3Ng8eUdp6RrsI6Cp+VNeIKw8C6XTD/3wjIORE9AVH5IL/ocYG0iIB
VSk80tr+r0BGzrebkY6Ics7RfiXvsmHzi7gThYeIG0rrSRaCL2H3ce/EUVEi
Vrkb1v/Iew7j/4TVMCgQMWlbsCzjehYc3MmTfEONiDdc93vyn34GtRHDLdJa
RPQZPmRZpZ4Jec84PbVMiJj3W6FtTi8DbgUNGh+/QkTi6s5jN3nSwUuLYWK/
BxF3RImWVf95Cvj8uIUUmYhuL6XGPJieQrPlcN25x0TUP2RiN3sxFQIELNY+
plHfGzZzW6s3GY4Zjd4MziViv+4dMXOPJPAXNVkt+UCtJ8J+M/doIogzGtBZ
1xPRRGXfnvdCCXDrN7v09z5qPVtaoUvpcSDSF7lwa5KIhqrKkrUmsbAgpL2g
sELEX/eEL9IfioGaIvKvw3QkPPtNhtyr8Bi66d3mHnGRMCyBoCOv/Qg000vb
LIVIePwQT//Wf9FQKlWz8XwfCce+i5yaqYuCy8U/G70USRhXp/xXSSQKtg1r
7N1PkfB1crjVjEYkGDwdSkkzIaFmZ7mJO2cECLDfurvLnoSfSGyeEQ3h8Kmo
L3/NjXq/bJ/ef9lh4MuT4KAbQMLPDgwJUvkPoKrdlkM2ioTqDXk22Z9DwXiX
cN2zVBLmXMF+LqFQWM4Wp9TmkHCI8WOTmFcIaNLaqLFWkjDev7faKzsY/JcX
XlV1krD+uiDlAFMw3ORYd2MdJ6EwvaIKbWgQGInVWtKsknDYOnKXnHwQuNTc
qy1jEkBTC4zkXSZDoE/aS3deARTSynnoRd0vBy09jSSFBXBX8zWPcer+/H97
sk3q
                    "]}, {Automatic}]}}]], 1]], $CellContext`rho[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 70.}}, {
                    3, 11, 1, {250}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJxFlXk01XsXxpEQboZIpsjlRIaoHAnn93x/x3QSDrqKVMiQUinD1b3GonSR
SuMpKS69IWlSXUmpV0Q4SCgyZSgNQsdUvWe97x/vXmuvz3/Pfvbea+29xH+P
e6CYiIiIqDCnRf4fwdvMzXxW/U79j4epFFcVl9TTtyj3qTmpdr9WUuKPtdPF
FvIp3+SK9f5q7VSX7vL5fhndlEHlsfsP+7qpiK1fAzRW91AVsx7yf6T1UNK8
O2Wvunuo3yxUgs3Ne6kPezvKv3T2UolFWUpFh/oolUHfncHL+6kxU9GGe1Xv
qe3lXNW5179Qnr3atdemxyhbydEYT3sBZbrN95TCT1E8pB1HBN5S0GFalKQm
/IInSgv+kfNQQMRR6Qvt7xaAISUWlxu9ECn8plbWPlW85+Uu79ipgXUBESmR
gVp4dTonLGX5EqTMSGt6FungxXCi5+08XSi2TWYoZjOwoWpPTdhZfVy4PSDW
cHwZenI2WxunGkHveEtkapIJ7lTkvRpnmaKN6Teea2WGpdoJ/MUSKxA1L7v4
XOMK/PtrearS+ZVQevNme0bgKhRf6R18Lm0Ox/ChIIkSc/SyPr0jvzERIz0e
EDvNxA7u2Z8XEy2w8bQ175HUati/6V7Vm7Eaq3SSG+aoWEL3fmxlfrIllLhR
dzjjlpgzuPtfI/5rMBYbfD6DvwbasqletJEV1vGKVSYOWSFav+nllR4r5JVO
ZHpbWyMoR3VN8yFr6B+16XbiW2N4v9+hp+o2KAxMNrIJskFrhMPDhFwbiCbN
4z7ttoFRZm2P5GIWNuSkhzttYoGaeelRn87C0vWLV7k9YkHuWpBSy1cWBHOv
j3vqUWhPjH6l4kqh7Dv5py2aQtZ+maxzORTiJ1rivesoPAnZkDP5icKcz6H+
tVKAnkFxuJoa4LDtc1KIIbDAPHN1oyXwVsJihOkIFLR1ZGd5AlEFcR7igQAd
oyO5MxzI7kv7MRAHzK4VTPj/BXjf9PvYdQq4q1rX730ZUEpkvmktAh7v0hyW
KQV2eYt/QwWg5vBBLKoaqFrZJFfIB8K172t0dwACU36NVy/wBxmOah4GfriJ
6jqPAgf8VflVk8DccLM4iBAsSmII9koQLDulHpYrS2CTLz/cokjAvTvXX0KV
wL96usNCiyCy/bNHiB7B4ff9dTxDAt5Mu12dGcE12YaH3y0Ivudc2GfHInC2
3MFItyUw4xsHXuIQKIeM5t5yIZgSudNb5UHQeTZ6ScdGAhmjLIkeHwLLiscf
Bn0JgtwHGj8FEJx8J106sZ3gcfTy87OhBJ9l1ifM2UugmR0dKB1J0MLa9zo/
miCta6cbO4Yg7kej+ayQexYz1e7EEvixzv/YFUfgsUWkjxFPYBsX+OytkMyL
zwvPJhCodp2MkD5AMKu51SbmIMHbzQYSn5IIKrPG6rceIsjvLD/DP0xgtTbP
8eIRgsbStKkdqUJ/v0YUWKQTzGRs2iSeQXBslpblHyNghCwrzzpBENp9XMA5
RXBrw5TZtzME0/W+oTk8grEr0/PeXCD4mHDyinI2wYCXiZ3rZWHdFdW9KbkE
7TL+CZV5BE39M5qzV4Rz8p46H1lAoMX/pvq5iMDOYfzM9utC/fJR5d4bBCdW
fs7cdJvg3tURhZelQh2t9xku9wm2/Zxqfv2AYKhr3qKQRwS7Hqr6fHtC8DXL
4NLBZwS/x1r2y9cK+/bh6F+sJ0i09go1bCLwGW/VP9tKYFG0/p34awLFgKbL
e98K/apzt3T1EdQ0v1BzGiL4O9Xp1d0Rgnh2TabuKIH3jD33+IRwL3Orb96b
EfqYz1HuFqVxedHz3yWlaAToOHWYzKfBMKqz9lSiMWzunB2rRqOQqhfN06ax
m+MaUMegkfiX5IsMMxqnaivMPaxpXJWNvrjQgcYDZ1PJDjcajUeH9mT50Ohv
uNTmG0xDIO9FdPfRkHFXKBiMoSHrmiT3+AiNX9YJIninaczn7OgIzxXSvpNy
LqEhx+bmMcppyOOJtMhzGgo2zLD2VhqKa66+vNlHY8p8a7XNNxo9Zspl1VJs
VBvXXvNQZ6PEIPFSlzEbZ/QsMkPARvySj8nj7mwEaeZGxwey4aLqtVM6mo2j
DHlB/Qk2GlY+O5B5jQ05Ejd/YzUbXBdznkYfG8c2jej1fGeDvz33Rt4iWyhE
edvsWGkL94MKNSYutoirYLyPiLRFwYyVTNkFW7RauBmJPrWFWESQs8MHWxiX
/Lk7XdEOXiPHMpot7ZCsn1+i6meHGwFl/K0pdjAVPPmSWGmH4iN1cn/P2sFY
46VJFdMehcWdzkNh9lhGBkKlC+1xtflTqtE7eywNEhS4aDkgf/JnTZiXA7QU
Js8ZljjgnMGXkAEJRyjSQ5aXNzsi1bt7ns9tR+GdaGtfKMNBXGrjVb4fB5O5
1fvT7nGw98EjjoPcWnQqv76VdnwtOHsmNJsWOKG0Wi5F5bQTdHSWffVZtA5H
/7T1yeGtw3TLlqpBDWcEmew3Nc52RtPhTN6+JS4YDRY39B5wgZxjZBkpdIWK
0lie0mouGEmGu1N4XDDHtzFnZ7lQnzZTj2O54b9PPMEN/wHMxm+9
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwl0oFGHQAAQNG3JEmSJEnSkiRJkiRJMpMkSZIkSZKkJUmSJEmSySRJkiRJ
kiRJkiRJkiRJkiRJkmRmm9mZXc4f3I8NXyraPgQCgV+B/wURTAihhBFOBJFE
EU0MscQRTwKJJJFMCqmkkU4GmWSRTQ655JFPAYUU8YnPFFNCKWWUU0ElVVRT
Qy111NNAI00000IrbbTTQSdddNNDL330M8AgQwwzwihfGeMb40wwyRTTzDDL
HPMssMgSy6ywyhrrbLDJFtvssMse+xxwyBHHnHDKGedccMkV19xwyx33PPDI
E8+88Mob73znBz/5zR8CRggimBBCCSOcCCKJIpoYYokjngQSSSKZFFJJI50M
MskimxxyySOfAgop4hOfKaaEUsoop4JKqqimhlrqqKeBRppopoVW/k3eTged
dNFND7300c8AgwwxzAijfGWMb4wzwSRTTDPDLHPMs8AiSyyzwiprrLPBJlts
s8Mue+xzwCFHHHPCKWecc8ElV1xzwy133PPAI08888Irb7zzF675fUg=
                    "], CompressedData["
1:eJwt13dUDv73APDSXtrP80RpaJHGB6Wi7kUfNKVF0laIBpWWj1J6GkqD9qAh
FElp0NJe2lOS0vSkoZ2k3/M95/f+457zOud9z33/cc897ytq42xgR0tDQ7P8
v/D/p93LmRzQTYYvq/OsVuFcYLxo8eh/ThynFbAKF4Fbl2Q//M9/GVP9Nn9p
gzrtgYowqoeYLGTMRkxh3ClqbwbVqgnXp/StroK5SkrFEtVe0mG+RtM3YalG
otG9hww/3XzOPX/qAWziUqf29ZJB2lXKmV3AE+QE9I6qUs2kQzt9M8oTercJ
ZG2qXR9+Ku9n8QIf9QBJc6rrOnQW1fy9wEb9saAz1T/z/g3K/O0Fw87aV+9R
7Wzo6nFrxhvO5qbTPKe6LUhq8/iQD+gtp8+3Um2730+Et/UOZGdfUFyl2rCl
ldC1KwCO86kkdfWT4bPL15eh7UFwTfSjqOIgGZqXBrrb7ocB8RE9/56vZIiX
Y5UyT4kE6RcMXeEjZHg/KRprXJIAJ1TRpmmRDEo7bOO4ndLgtOlbdkaOIPA0
6RPRkngGKS9Nj6F0EBTG9kUZjb6AF73iHJtnguCPXWA+IeMVPFy3pLNyDgLd
ml3tFYp50Bje9fBpUhDYW2nyazrkw+Y59QCbviBQarn4NDfzHURc4I95IxAM
A6kGNh8nikDFQU2Dzj4YNDKPZJnJvYc7wma5s6XBYDxZqXrDtxQSNeg0CIIh
kP0tZEs9rQKGBknFPa9CIKfE21xo5iMo1Z/cz20YCn6yTh2xkdVQbpm6bcr9
ANZDTpk+OVEL9Xe/LLdQHkBSsvMvGrp6sM3IvKE4FgaaFD+jxu4GEJqnY/t3
OxyOHdHNNipugjcfZo0aNSIgU0u2+HpeC4h33L/uZx4J2hMtjuMmrWAS8Z6G
izkKNnu/KZ3kbIct5oIhwcYoYAy1Wfrh2AFzp4ymMS0agn6+o8m07IQ/hPWs
pbhHwLYvtsRbrgsOcG1pMvg8hoUSLhY6pm5gtc55r+YVAwt+S4Y3KN3wxfpm
oGpcLBwpmSPuHuyBSUUf5fzBOBA02Lxr+6IXrhw5xMZMnwBq7hN5LPf6gE1s
1ZpOPxHuWOTZaNn1wxvppd0Pa5MAGninEkwG4OS7pLdrV1Ogb49SFEHqM4Dt
xEGxmVSIKBtdiN0xCO47ZPq6dZ5Cjzt5zZ4yCAfPnVdhV0+Di24vm9lHvoDZ
5b2JE7rpILV+bZ2mcAhU71oeyjydAZFyl9PTYr6CXM0jiw7zTEhxcfbXDhiG
OgbWfPWYZ8D/w1E53vcbVMupVI8tZYG9mvclf9kRaDrDSXNa6QUMt8GXK2kj
oO9YFC+c8hIMacbFDguOgkeDy544uRwQ9dVJrkgdhaPxstdOLr6C5baAgnSu
78ARe0doZ3QuKCRHSRBCvoNVRH+xnkIeGGhuhQ4yj4HoDZH5iYNvIYa29mtX
5Bjcfh3W8cQ4H05hTVIv0zjcr+k0z7MuAK+/Lsc6A8fBIf2iXtWDdxCU33Qj
mm0ChDpHQ7oGCiEpfnWQOXECQiaf2DOcLQYTsWkfSeIkWD2+dbHsRQm87u26
mZ80CZzv1EKWpD/A398TJYHSU0BU8znA1FcKL5Ruc6dWTEH0yTmOyuJy8Go6
QJw5MQ1ZT0mFg+6V0D7g2be/fRoYFW335ud/BNbyHiGNyz/guLJBi3JDFRiA
nZMGHQUKmhw3nbeqodVwQmUrggL7n0r3hgrVgtjz3USUmIGBCr46e/M6KHDk
jqSrnQH19fIcyep6cNNoZ7zi+BN039pRWAwageuuY1mp2CxEnTuh+YGvGQKH
tnhny2bBtUDrVWtWC0xnq/xItZqDG0It2sx2reCzL8/0+855eGVQZ3/bpB38
yy8KrzTOg/ai+XxHVQdwcsfHSpxZgJWmw/E+m53wrq3e0CFlAUrSgtai+bqh
aKD6D+36AjS7Stbr6/TAkhLfpfsXfsGIZK+W3/Ne4Hrj9F9a5S9o8tsKmZLp
Bwmb8SJJuUU4qJd4hDwyAAwDhKMb4Yvg63p3W+/GIAxavzIaXaK6XaZlXWwI
PpXHiz6wWoK2Q4aMHGzDUGtG8195zxKUTo1qyxJG4IK13knLc8vw5gXhgciZ
UTBgEiqqqVyGdbojBT0230HoqoinmeIK3BL9QORLHoPuw4vHf+WvgJd+N9ly
fRxsFeRFnVRWIUpkSIjpv0lQaylYGm5ahTOhZ+kMFabB9fXqurfdGqwuhFkV
CFDgN82e9ByOdeAgHTZbO/4TJPVWG/lr16HScC4rpGAOzP1v2GWGbsDN8UXl
8+ULkBQ3O1hj/xscOtQbFy4swrcgCsf9C5vgS7m2eU9hGYae5dv0y/6BoYX9
5dvfVqD4zayxBv8W5M6/Pu1SvQbxe8vP/uT6C12VJwosvm7AJ69YK6m923BT
djjmp+IfcDzrRDnGRIMWzjv+XcG/UH9W4oJ7IA2ejlQoFDlKg3dcxnIn2WnR
wdjnU5oDLdqzn1A6nEqLlCZei+TXO9DTMUVlQWUHvjl7dVOClh6/D8hVhY/s
QF31+DF9Kwb89k3RUy+aDq2lpxiLaxgxwrsvS+YoPTajvk/xFhNKuInsK/lJ
j8cOTKS+28eCQpudj1W5GdBJU7OQaMuC81lDIpxKDMiY8brHLokFRZ7M7T9s
xoD/JC1sk7tY8IT6/vnnfgzonzuxZsPMivKS4uSrWQzYQnE+O3qMFdVcxCZc
PzFgWkum/w9nVvxDNhe2EWDEhY8ZwYqdrPj79A6y5RVG9BXXrbwvw4axMSf6
TIoYcdchcovAXTbcWxBSqMDIhJ91O6qgkQ0lBYjt3SZM2GFAqdBlYcdnke60
qmVMKK/d3/dBhx3VPRc1b4sx46Sy5GdhP3bMOS/tpxvCjDJvN3wK09lxrT6A
5L/AjP4N3HOLBezI5DvG13ueBXlKPfY/orqQ0WyLsZIFyf6i+XFp7OgS41Uf
dJ4VZRvOm3BeYcewVoZPjnOsSLN9jf48MzsaFr132PZnw47Cds/7wWxo/l4q
xOkPGy5XGsrnMrFh6D0dAU9Xdkys/FCp7M6KwzM99d1T7Dg+mvp+rJsFK7O5
4/415cCDrhsyXpIs+LW0ZySlgQO7tJKk3zkz49qDzYGSgztxJsmB4UA+E+qc
keugPNuJS4HJl0wHGXHzWMzlH3ycWGRVKcRBw4hSLF01ub6c2NnbKd8hwYC5
FyeycJIT+VrMLKt16dEq95zkeXEu3JFwmCHVi9oX8qpaQYZcWFt3J6Ayewc2
fk4Wq/TjQrWyMQb577So7JZpblLBhbZHHq7WtNHg6N0BpSPrXHjdY13FMnYb
ZJxfSyTJcaPTltZnxrwtkNyoiiyz5sbvwdPTXpRNeJvJx9sbxY1zcs6nJjR+
Q8tKt55gJTfmLUn1zJavQ/9rD9mGH9wo32NQMGG4BhK/6FKid/Pg9cf9XQ+L
VuDxoPWbVU0evCL91PshLIOx1mVpDXce7DXjvHNiZhHGA0aXalJ4cNbm6NyR
ol9gtsGUXlzDg5K0BUrHqHNuT63LX9MpHpS6e2+wUXUeIlf6874x82Lid6YW
wauz8DE944uHNC/aivHtKSufgS8VHbn+53hRXycmd/r5DzjD5RAd5MGLSb7k
KsG2KWjata01lMiLar0UG3rpSfg3jr6ruZQXU7v3JMfkjsMIUKQfDfLisV0J
GUNmY6AS4jd6Y40XI0yLvrTt/w4BF2/bB/PwodKewRRx4ijc95zj4DrAh/+c
8zqgIjQCFgc6z5sa86H07QWfNpWvcLi1w3zSmw8Dq+UM/rwYhPexMK2ewocB
0buIvK4DIBJqONJZxoefteI4m4P6YDvPreT3Zz5cbtbXOUf9l8DspC/DCh8+
ccl7623VDcz+U1v/7OTH0vta4oI8XZDEZ8JfJMGPu3V/ByZOd8DPhuyIIeDH
hN5TccGX2iH8Y4HUvgv8GJggp9lzsBUYmTpEu52oDjxcp3qmBTZyyAos9/lR
bLLBU+pRExTy+vEsxfHjN5GrEp/YGoFu/HFffjY/rvwTpVCZUw8bYTu/2JXx
43xYdMBbxzqI+fohXqKVH02zJzsVdWth6ElncccYP4Ze2UjM+FwNw5i2NrXO
j3xzBSWj0VVwLfrKz0R2AqZl1uq8vfkRyo31MriFCdja0XyaPFIBw8JFJCcF
AoZv73Ou4y2HkQfvTFuRgEwiwf1O7qVwpcjR/ow+AXUD7Iky2++BeX1wfNmC
gJs+ISaFOSXg4jO+PnSLgOzStMtaq0WgYSI/4BhIQA//LaMg90JQiJ/oa48l
oILUrZ4hkXdQoqI8Kv6cmj9YIOT2Kx+8J5vKQooI6C0Ucbtu9C2UDZjSEOsI
OBVx2Ux3Ng8eUdp6RrsI6Cp+VNeIKw8C6XTD/3wjIORE9AVH5IL/ocYG0iIB
VSk80tr+r0BGzrebkY6Ics7RfiXvsmHzi7gThYeIG0rrSRaCL2H3ce/EUVEi
Vrkb1v/Iew7j/4TVMCgQMWlbsCzjehYc3MmTfEONiDdc93vyn34GtRHDLdJa
RPQZPmRZpZ4Jec84PbVMiJj3W6FtTi8DbgUNGh+/QkTi6s5jN3nSwUuLYWK/
BxF3RImWVf95Cvj8uIUUmYhuL6XGPJieQrPlcN25x0TUP2RiN3sxFQIELNY+
plHfGzZzW6s3GY4Zjd4MziViv+4dMXOPJPAXNVkt+UCtJ8J+M/doIogzGtBZ
1xPRRGXfnvdCCXDrN7v09z5qPVtaoUvpcSDSF7lwa5KIhqrKkrUmsbAgpL2g
sELEX/eEL9IfioGaIvKvw3QkPPtNhtyr8Bi66d3mHnGRMCyBoCOv/Qg000vb
LIVIePwQT//Wf9FQKlWz8XwfCce+i5yaqYuCy8U/G70USRhXp/xXSSQKtg1r
7N1PkfB1crjVjEYkGDwdSkkzIaFmZ7mJO2cECLDfurvLnoSfSGyeEQ3h8Kmo
L3/NjXq/bJ/ef9lh4MuT4KAbQMLPDgwJUvkPoKrdlkM2ioTqDXk22Z9DwXiX
cN2zVBLmXMF+LqFQWM4Wp9TmkHCI8WOTmFcIaNLaqLFWkjDev7faKzsY/JcX
XlV1krD+uiDlAFMw3ORYd2MdJ6EwvaIKbWgQGInVWtKsknDYOnKXnHwQuNTc
qy1jEkBTC4zkXSZDoE/aS3deARTSynnoRd0vBy09jSSFBXBX8zWPcer+/H97
sk3q
                    "]}, {Automatic}]}}]], 1], -0.1, 1, 1, 1, 0] Sin[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 70.}}, {
                    3, 11, 1, {250}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJxFlXk01XsXxpEQboZIpsjlRIaoHAnn93x/x3QSDrqKVMiQUinD1b3GonSR
SuMpKS69IWlSXUmpV0Q4SCgyZSgNQsdUvWe97x/vXmuvz3/Pfvbea+29xH+P
e6CYiIiIqDCnRf4fwdvMzXxW/U79j4epFFcVl9TTtyj3qTmpdr9WUuKPtdPF
FvIp3+SK9f5q7VSX7vL5fhndlEHlsfsP+7qpiK1fAzRW91AVsx7yf6T1UNK8
O2Wvunuo3yxUgs3Ne6kPezvKv3T2UolFWUpFh/oolUHfncHL+6kxU9GGe1Xv
qe3lXNW5179Qnr3atdemxyhbydEYT3sBZbrN95TCT1E8pB1HBN5S0GFalKQm
/IInSgv+kfNQQMRR6Qvt7xaAISUWlxu9ECn8plbWPlW85+Uu79ipgXUBESmR
gVp4dTonLGX5EqTMSGt6FungxXCi5+08XSi2TWYoZjOwoWpPTdhZfVy4PSDW
cHwZenI2WxunGkHveEtkapIJ7lTkvRpnmaKN6Teea2WGpdoJ/MUSKxA1L7v4
XOMK/PtrearS+ZVQevNme0bgKhRf6R18Lm0Ox/ChIIkSc/SyPr0jvzERIz0e
EDvNxA7u2Z8XEy2w8bQ175HUati/6V7Vm7Eaq3SSG+aoWEL3fmxlfrIllLhR
dzjjlpgzuPtfI/5rMBYbfD6DvwbasqletJEV1vGKVSYOWSFav+nllR4r5JVO
ZHpbWyMoR3VN8yFr6B+16XbiW2N4v9+hp+o2KAxMNrIJskFrhMPDhFwbiCbN
4z7ttoFRZm2P5GIWNuSkhzttYoGaeelRn87C0vWLV7k9YkHuWpBSy1cWBHOv
j3vqUWhPjH6l4kqh7Dv5py2aQtZ+maxzORTiJ1rivesoPAnZkDP5icKcz6H+
tVKAnkFxuJoa4LDtc1KIIbDAPHN1oyXwVsJihOkIFLR1ZGd5AlEFcR7igQAd
oyO5MxzI7kv7MRAHzK4VTPj/BXjf9PvYdQq4q1rX730ZUEpkvmktAh7v0hyW
KQV2eYt/QwWg5vBBLKoaqFrZJFfIB8K172t0dwACU36NVy/wBxmOah4GfriJ
6jqPAgf8VflVk8DccLM4iBAsSmII9koQLDulHpYrS2CTLz/cokjAvTvXX0KV
wL96usNCiyCy/bNHiB7B4ff9dTxDAt5Mu12dGcE12YaH3y0Ivudc2GfHInC2
3MFItyUw4xsHXuIQKIeM5t5yIZgSudNb5UHQeTZ6ScdGAhmjLIkeHwLLiscf
Bn0JgtwHGj8FEJx8J106sZ3gcfTy87OhBJ9l1ifM2UugmR0dKB1J0MLa9zo/
miCta6cbO4Yg7kej+ayQexYz1e7EEvixzv/YFUfgsUWkjxFPYBsX+OytkMyL
zwvPJhCodp2MkD5AMKu51SbmIMHbzQYSn5IIKrPG6rceIsjvLD/DP0xgtTbP
8eIRgsbStKkdqUJ/v0YUWKQTzGRs2iSeQXBslpblHyNghCwrzzpBENp9XMA5
RXBrw5TZtzME0/W+oTk8grEr0/PeXCD4mHDyinI2wYCXiZ3rZWHdFdW9KbkE
7TL+CZV5BE39M5qzV4Rz8p46H1lAoMX/pvq5iMDOYfzM9utC/fJR5d4bBCdW
fs7cdJvg3tURhZelQh2t9xku9wm2/Zxqfv2AYKhr3qKQRwS7Hqr6fHtC8DXL
4NLBZwS/x1r2y9cK+/bh6F+sJ0i09go1bCLwGW/VP9tKYFG0/p34awLFgKbL
e98K/apzt3T1EdQ0v1BzGiL4O9Xp1d0Rgnh2TabuKIH3jD33+IRwL3Orb96b
EfqYz1HuFqVxedHz3yWlaAToOHWYzKfBMKqz9lSiMWzunB2rRqOQqhfN06ax
m+MaUMegkfiX5IsMMxqnaivMPaxpXJWNvrjQgcYDZ1PJDjcajUeH9mT50Ohv
uNTmG0xDIO9FdPfRkHFXKBiMoSHrmiT3+AiNX9YJIninaczn7OgIzxXSvpNy
LqEhx+bmMcppyOOJtMhzGgo2zLD2VhqKa66+vNlHY8p8a7XNNxo9Zspl1VJs
VBvXXvNQZ6PEIPFSlzEbZ/QsMkPARvySj8nj7mwEaeZGxwey4aLqtVM6mo2j
DHlB/Qk2GlY+O5B5jQ05Ejd/YzUbXBdznkYfG8c2jej1fGeDvz33Rt4iWyhE
edvsWGkL94MKNSYutoirYLyPiLRFwYyVTNkFW7RauBmJPrWFWESQs8MHWxiX
/Lk7XdEOXiPHMpot7ZCsn1+i6meHGwFl/K0pdjAVPPmSWGmH4iN1cn/P2sFY
46VJFdMehcWdzkNh9lhGBkKlC+1xtflTqtE7eywNEhS4aDkgf/JnTZiXA7QU
Js8ZljjgnMGXkAEJRyjSQ5aXNzsi1bt7ns9tR+GdaGtfKMNBXGrjVb4fB5O5
1fvT7nGw98EjjoPcWnQqv76VdnwtOHsmNJsWOKG0Wi5F5bQTdHSWffVZtA5H
/7T1yeGtw3TLlqpBDWcEmew3Nc52RtPhTN6+JS4YDRY39B5wgZxjZBkpdIWK
0lie0mouGEmGu1N4XDDHtzFnZ7lQnzZTj2O54b9PPMEN/wHMxm+9
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwl0oFGHQAAQNG3JEmSJEnSkiRJkiRJMpMkSZIkSZKkJUmSJEmSySRJkiRJ
kiRJkiRJkiRJkiRJkmRmm9mZXc4f3I8NXyraPgQCgV+B/wURTAihhBFOBJFE
EU0MscQRTwKJJJFMCqmkkU4GmWSRTQ655JFPAYUU8YnPFFNCKWWUU0ElVVRT
Qy111NNAI00000IrbbTTQSdddNNDL330M8AgQwwzwihfGeMb40wwyRTTzDDL
HPMssMgSy6ywyhrrbLDJFtvssMse+xxwyBHHnHDKGedccMkV19xwyx33PPDI
E8+88Mob73znBz/5zR8CRggimBBCCSOcCCKJIpoYYokjngQSSSKZFFJJI50M
MskimxxyySOfAgop4hOfKaaEUsoop4JKqqimhlrqqKeBRppopoVW/k3eTged
dNFND7300c8AgwwxzAijfGWMb4wzwSRTTDPDLHPMs8AiSyyzwiprrLPBJlts
s8Mue+xzwCFHHHPCKWecc8ElV1xzwy133PPAI08888Irb7zzF675fUg=
                    "], CompressedData["
1:eJwt13dUDv73APDSXtrP80RpaJHGB6Wi7kUfNKVF0laIBpWWj1J6GkqD9qAh
FElp0NJe2lOS0vSkoZ2k3/M95/f+457zOud9z33/cc897ytq42xgR0tDQ7P8
v/D/p93LmRzQTYYvq/OsVuFcYLxo8eh/ThynFbAKF4Fbl2Q//M9/GVP9Nn9p
gzrtgYowqoeYLGTMRkxh3ClqbwbVqgnXp/StroK5SkrFEtVe0mG+RtM3YalG
otG9hww/3XzOPX/qAWziUqf29ZJB2lXKmV3AE+QE9I6qUs2kQzt9M8oTercJ
ZG2qXR9+Ku9n8QIf9QBJc6rrOnQW1fy9wEb9saAz1T/z/g3K/O0Fw87aV+9R
7Wzo6nFrxhvO5qbTPKe6LUhq8/iQD+gtp8+3Um2730+Et/UOZGdfUFyl2rCl
ldC1KwCO86kkdfWT4bPL15eh7UFwTfSjqOIgGZqXBrrb7ocB8RE9/56vZIiX
Y5UyT4kE6RcMXeEjZHg/KRprXJIAJ1TRpmmRDEo7bOO4ndLgtOlbdkaOIPA0
6RPRkngGKS9Nj6F0EBTG9kUZjb6AF73iHJtnguCPXWA+IeMVPFy3pLNyDgLd
ml3tFYp50Bje9fBpUhDYW2nyazrkw+Y59QCbviBQarn4NDfzHURc4I95IxAM
A6kGNh8nikDFQU2Dzj4YNDKPZJnJvYc7wma5s6XBYDxZqXrDtxQSNeg0CIIh
kP0tZEs9rQKGBknFPa9CIKfE21xo5iMo1Z/cz20YCn6yTh2xkdVQbpm6bcr9
ANZDTpk+OVEL9Xe/LLdQHkBSsvMvGrp6sM3IvKE4FgaaFD+jxu4GEJqnY/t3
OxyOHdHNNipugjcfZo0aNSIgU0u2+HpeC4h33L/uZx4J2hMtjuMmrWAS8Z6G
izkKNnu/KZ3kbIct5oIhwcYoYAy1Wfrh2AFzp4ymMS0agn6+o8m07IQ/hPWs
pbhHwLYvtsRbrgsOcG1pMvg8hoUSLhY6pm5gtc55r+YVAwt+S4Y3KN3wxfpm
oGpcLBwpmSPuHuyBSUUf5fzBOBA02Lxr+6IXrhw5xMZMnwBq7hN5LPf6gE1s
1ZpOPxHuWOTZaNn1wxvppd0Pa5MAGninEkwG4OS7pLdrV1Ogb49SFEHqM4Dt
xEGxmVSIKBtdiN0xCO47ZPq6dZ5Cjzt5zZ4yCAfPnVdhV0+Di24vm9lHvoDZ
5b2JE7rpILV+bZ2mcAhU71oeyjydAZFyl9PTYr6CXM0jiw7zTEhxcfbXDhiG
OgbWfPWYZ8D/w1E53vcbVMupVI8tZYG9mvclf9kRaDrDSXNa6QUMt8GXK2kj
oO9YFC+c8hIMacbFDguOgkeDy544uRwQ9dVJrkgdhaPxstdOLr6C5baAgnSu
78ARe0doZ3QuKCRHSRBCvoNVRH+xnkIeGGhuhQ4yj4HoDZH5iYNvIYa29mtX
5Bjcfh3W8cQ4H05hTVIv0zjcr+k0z7MuAK+/Lsc6A8fBIf2iXtWDdxCU33Qj
mm0ChDpHQ7oGCiEpfnWQOXECQiaf2DOcLQYTsWkfSeIkWD2+dbHsRQm87u26
mZ80CZzv1EKWpD/A398TJYHSU0BU8znA1FcKL5Ruc6dWTEH0yTmOyuJy8Go6
QJw5MQ1ZT0mFg+6V0D7g2be/fRoYFW335ud/BNbyHiGNyz/guLJBi3JDFRiA
nZMGHQUKmhw3nbeqodVwQmUrggL7n0r3hgrVgtjz3USUmIGBCr46e/M6KHDk
jqSrnQH19fIcyep6cNNoZ7zi+BN039pRWAwageuuY1mp2CxEnTuh+YGvGQKH
tnhny2bBtUDrVWtWC0xnq/xItZqDG0It2sx2reCzL8/0+855eGVQZ3/bpB38
yy8KrzTOg/ai+XxHVQdwcsfHSpxZgJWmw/E+m53wrq3e0CFlAUrSgtai+bqh
aKD6D+36AjS7Stbr6/TAkhLfpfsXfsGIZK+W3/Ne4Hrj9F9a5S9o8tsKmZLp
Bwmb8SJJuUU4qJd4hDwyAAwDhKMb4Yvg63p3W+/GIAxavzIaXaK6XaZlXWwI
PpXHiz6wWoK2Q4aMHGzDUGtG8195zxKUTo1qyxJG4IK13knLc8vw5gXhgciZ
UTBgEiqqqVyGdbojBT0230HoqoinmeIK3BL9QORLHoPuw4vHf+WvgJd+N9ly
fRxsFeRFnVRWIUpkSIjpv0lQaylYGm5ahTOhZ+kMFabB9fXqurfdGqwuhFkV
CFDgN82e9ByOdeAgHTZbO/4TJPVWG/lr16HScC4rpGAOzP1v2GWGbsDN8UXl
8+ULkBQ3O1hj/xscOtQbFy4swrcgCsf9C5vgS7m2eU9hGYae5dv0y/6BoYX9
5dvfVqD4zayxBv8W5M6/Pu1SvQbxe8vP/uT6C12VJwosvm7AJ69YK6m923BT
djjmp+IfcDzrRDnGRIMWzjv+XcG/UH9W4oJ7IA2ejlQoFDlKg3dcxnIn2WnR
wdjnU5oDLdqzn1A6nEqLlCZei+TXO9DTMUVlQWUHvjl7dVOClh6/D8hVhY/s
QF31+DF9Kwb89k3RUy+aDq2lpxiLaxgxwrsvS+YoPTajvk/xFhNKuInsK/lJ
j8cOTKS+28eCQpudj1W5GdBJU7OQaMuC81lDIpxKDMiY8brHLokFRZ7M7T9s
xoD/JC1sk7tY8IT6/vnnfgzonzuxZsPMivKS4uSrWQzYQnE+O3qMFdVcxCZc
PzFgWkum/w9nVvxDNhe2EWDEhY8ZwYqdrPj79A6y5RVG9BXXrbwvw4axMSf6
TIoYcdchcovAXTbcWxBSqMDIhJ91O6qgkQ0lBYjt3SZM2GFAqdBlYcdnke60
qmVMKK/d3/dBhx3VPRc1b4sx46Sy5GdhP3bMOS/tpxvCjDJvN3wK09lxrT6A
5L/AjP4N3HOLBezI5DvG13ueBXlKPfY/orqQ0WyLsZIFyf6i+XFp7OgS41Uf
dJ4VZRvOm3BeYcewVoZPjnOsSLN9jf48MzsaFr132PZnw47Cds/7wWxo/l4q
xOkPGy5XGsrnMrFh6D0dAU9Xdkys/FCp7M6KwzM99d1T7Dg+mvp+rJsFK7O5
4/415cCDrhsyXpIs+LW0ZySlgQO7tJKk3zkz49qDzYGSgztxJsmB4UA+E+qc
keugPNuJS4HJl0wHGXHzWMzlH3ycWGRVKcRBw4hSLF01ub6c2NnbKd8hwYC5
FyeycJIT+VrMLKt16dEq95zkeXEu3JFwmCHVi9oX8qpaQYZcWFt3J6Ayewc2
fk4Wq/TjQrWyMQb577So7JZpblLBhbZHHq7WtNHg6N0BpSPrXHjdY13FMnYb
ZJxfSyTJcaPTltZnxrwtkNyoiiyz5sbvwdPTXpRNeJvJx9sbxY1zcs6nJjR+
Q8tKt55gJTfmLUn1zJavQ/9rD9mGH9wo32NQMGG4BhK/6FKid/Pg9cf9XQ+L
VuDxoPWbVU0evCL91PshLIOx1mVpDXce7DXjvHNiZhHGA0aXalJ4cNbm6NyR
ol9gtsGUXlzDg5K0BUrHqHNuT63LX9MpHpS6e2+wUXUeIlf6874x82Lid6YW
wauz8DE944uHNC/aivHtKSufgS8VHbn+53hRXycmd/r5DzjD5RAd5MGLSb7k
KsG2KWjata01lMiLar0UG3rpSfg3jr6ruZQXU7v3JMfkjsMIUKQfDfLisV0J
GUNmY6AS4jd6Y40XI0yLvrTt/w4BF2/bB/PwodKewRRx4ijc95zj4DrAh/+c
8zqgIjQCFgc6z5sa86H07QWfNpWvcLi1w3zSmw8Dq+UM/rwYhPexMK2ewocB
0buIvK4DIBJqONJZxoefteI4m4P6YDvPreT3Zz5cbtbXOUf9l8DspC/DCh8+
ccl7623VDcz+U1v/7OTH0vta4oI8XZDEZ8JfJMGPu3V/ByZOd8DPhuyIIeDH
hN5TccGX2iH8Y4HUvgv8GJggp9lzsBUYmTpEu52oDjxcp3qmBTZyyAos9/lR
bLLBU+pRExTy+vEsxfHjN5GrEp/YGoFu/HFffjY/rvwTpVCZUw8bYTu/2JXx
43xYdMBbxzqI+fohXqKVH02zJzsVdWth6ElncccYP4Ze2UjM+FwNw5i2NrXO
j3xzBSWj0VVwLfrKz0R2AqZl1uq8vfkRyo31MriFCdja0XyaPFIBw8JFJCcF
AoZv73Ou4y2HkQfvTFuRgEwiwf1O7qVwpcjR/ow+AXUD7Iky2++BeX1wfNmC
gJs+ISaFOSXg4jO+PnSLgOzStMtaq0WgYSI/4BhIQA//LaMg90JQiJ/oa48l
oILUrZ4hkXdQoqI8Kv6cmj9YIOT2Kx+8J5vKQooI6C0Ucbtu9C2UDZjSEOsI
OBVx2Ux3Ng8eUdp6RrsI6Cp+VNeIKw8C6XTD/3wjIORE9AVH5IL/ocYG0iIB
VSk80tr+r0BGzrebkY6Ics7RfiXvsmHzi7gThYeIG0rrSRaCL2H3ce/EUVEi
Vrkb1v/Iew7j/4TVMCgQMWlbsCzjehYc3MmTfEONiDdc93vyn34GtRHDLdJa
RPQZPmRZpZ4Jec84PbVMiJj3W6FtTi8DbgUNGh+/QkTi6s5jN3nSwUuLYWK/
BxF3RImWVf95Cvj8uIUUmYhuL6XGPJieQrPlcN25x0TUP2RiN3sxFQIELNY+
plHfGzZzW6s3GY4Zjd4MziViv+4dMXOPJPAXNVkt+UCtJ8J+M/doIogzGtBZ
1xPRRGXfnvdCCXDrN7v09z5qPVtaoUvpcSDSF7lwa5KIhqrKkrUmsbAgpL2g
sELEX/eEL9IfioGaIvKvw3QkPPtNhtyr8Bi66d3mHnGRMCyBoCOv/Qg000vb
LIVIePwQT//Wf9FQKlWz8XwfCce+i5yaqYuCy8U/G70USRhXp/xXSSQKtg1r
7N1PkfB1crjVjEYkGDwdSkkzIaFmZ7mJO2cECLDfurvLnoSfSGyeEQ3h8Kmo
L3/NjXq/bJ/ef9lh4MuT4KAbQMLPDgwJUvkPoKrdlkM2ioTqDXk22Z9DwXiX
cN2zVBLmXMF+LqFQWM4Wp9TmkHCI8WOTmFcIaNLaqLFWkjDev7faKzsY/JcX
XlV1krD+uiDlAFMw3ORYd2MdJ6EwvaIKbWgQGInVWtKsknDYOnKXnHwQuNTc
qy1jEkBTC4zkXSZDoE/aS3deARTSynnoRd0vBy09jSSFBXBX8zWPcer+/H97
sk3q
                    "]}, {Automatic}]}}]], 1]]}, 0.2]]], 
      "Specifications" :> {{$CellContext`t$$, 0, 70, AnimationRate -> 4, 
         AnimationRunning -> False, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{409., {123., 128.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.463509730852*^9, 3.4635098179370003`*^9}, {
   3.463509886597*^9, 3.463509904557*^9}, {3.4635099457460003`*^9, 
   3.463509986615*^9}, 3.463513157066*^9, 3.463513192764*^9, {
   3.4635132661070004`*^9, 3.463513371981*^9}, 3.4635135481800003`*^9, 
   3.4636789313104734`*^9, 3.463681140887473*^9, {3.463681179118473*^9, 
   3.4636811848934736`*^9}, 3.4636812401624737`*^9}]
}, Open  ]],

Cell["\<\
Now the time behavior is correct: fast near origin, slow far away.\
\>", "Text",
 CellChangeTimes->{{3.4636812730204735`*^9, 3.4636812936274734`*^9}}],

Cell["select time widow", "Text",
 CellChangeTimes->{{3.4636813762464733`*^9, 3.4636813805744734`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Ellip3", "[", 
   RowBox[{
   "E_", ",", "m_", ",", "k_", ",", "L_", ",", "\[Phi]0_", ",", "N1_", ",", 
    "N2_"}], "]"}], ":=", 
  RowBox[{"Animate", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Graphics", "[", 
       RowBox[{"Rotate", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Red", ",", "Dashed", ",", 
           RowBox[{"Circle", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "0", ",", "E", ",", "m", ",", "k", ",", "L", ",", "0"}], 
                   "]"}], "-", 
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "\[Pi]", ",", "E", ",", "m", ",", "k", ",", "L", ",", 
                    "0"}], "]"}]}], ")"}], "/", "2"}], ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "0", ",", "E", ",", "m", ",", "k", ",", "L", ",", "0"}], 
                   "]"}], "+", 
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "\[Pi]", ",", "E", ",", "m", ",", "k", ",", "L", ",", 
                    "0"}], "]"}]}], ")"}], "/", "2"}], ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "0", ",", "E", ",", "m", ",", "k", ",", "L", ",", "0"}], 
                   "]"}], "+", 
                  RowBox[{"rho", "[", 
                   RowBox[{
                   "\[Pi]", ",", "E", ",", "m", ",", "k", ",", "L", ",", 
                    "0"}], "]"}]}], ")"}], 
                RowBox[{
                 SqrtBox[
                  RowBox[{"1", "-", 
                   RowBox[{
                    RowBox[{"eps", "[", 
                    RowBox[{"E", ",", "m", ",", "k", ",", "L"}], "]"}], "^", 
                    "2"}]}]], "/", "2"}]}]}], "}"}]}], "]"}]}], "}"}], ",", 
         "\[Phi]0", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{"Thick", ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "3"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"11", ",", "0"}], "}"}]}], "}"}]}], "}"}], "]"}]}], 
        "}"}], "]"}], ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"Disk", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", ".3"}], "]"}], "]"}], ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"Disk", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"rho", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Evaluate", "[", 
                RowBox[{
                 RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", "E", ",", "m", ",", "k", 
              ",", "L", ",", "\[Phi]0"}], "]"}], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"Evaluate", "[", 
               RowBox[{
                RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"rho", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Evaluate", "[", 
                RowBox[{
                 RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", "E", ",", "m", ",", "k", 
              ",", "L", ",", "\[Phi]0"}], "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"Evaluate", "[", 
               RowBox[{
                RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "}"}], ",", 
         "\[IndentingNewLine]", "2"}], "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "N1", ",", "N2"}], "}"}], ",", 
    RowBox[{"AnimationRate", "\[Rule]", "10"}], ",", 
    RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.463495399355*^9, 3.463495531008*^9}, {3.463495604291*^9,
    3.463495605242*^9}, {3.463495988574*^9, 3.463496042132*^9}, {
   3.463509501468*^9, 3.463509553584*^9}, {3.463509601965*^9, 
   3.463509637682*^9}, {3.463509797358*^9, 3.463509812043*^9}, {
   3.463513234167*^9, 3.463513242917*^9}, {3.463678924170473*^9, 
   3.4636789247394733`*^9}, {3.4636810437444735`*^9, 3.4636810439684734`*^9}, 
   3.4636810761604733`*^9, {3.4636813418714733`*^9, 3.4636813634624734`*^9}, {
   3.4636814609044733`*^9, 3.4636814615114737`*^9}, 3.4636817665434732`*^9, 
   3.4636818021654735`*^9, {3.4636818329404736`*^9, 3.4636818346344733`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"findphi2", "[", 
  RowBox[{
   RowBox[{"-", ".01"}], ",", "1", ",", "1", ",", "1", ",", "0", ",", 
   "2000"}], "]"}]], "Input",
 CellChangeTimes->{{3.46350965363*^9, 3.463509665266*^9}, {
   3.4635098999110003`*^9, 3.463509900642*^9}, {3.463509937046*^9, 
   3.463509957946*^9}, {3.463510342525*^9, 3.463510343946*^9}, {
   3.463510570568*^9, 3.463510570817*^9}, {3.463513146352*^9, 
   3.463513147738*^9}, {3.463513254311*^9, 3.463513256888*^9}, 
   3.4635133085*^9, {3.463513362593*^9, 3.4635133636870003`*^9}, {
   3.463513675052*^9, 3.463513675356*^9}, 3.463513748396*^9, 
   3.463513894495*^9, {3.4636813906394734`*^9, 3.4636813912634735`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"\[Phi]", "\[Rule]", 
    TagBox[
     RowBox[{"InterpolatingFunction", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"0.`", ",", "2000.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
      "]"}],
     False,
     Editable->False]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.463513749224*^9, 3.4635138957139997`*^9, 
  3.4636813920094733`*^9, 3.463681465781473*^9, 3.4636814957874737`*^9, 
  3.4636816150994735`*^9, 3.4636816619854736`*^9, 3.4636817381334734`*^9, 
  3.4636817702584734`*^9, 3.4636818799334736`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ellip3", "[", 
  RowBox[{
   RowBox[{"-", "0.01"}], ",", "1", ",", "1", ",", "1", ",", "0", ",", "700", 
   ",", "2000"}], "]"}]], "Input",
 CellChangeTimes->{{3.463509715639*^9, 3.463509728209*^9}, {3.463509892509*^9,
    3.4635098937060003`*^9}, {3.463509944641*^9, 3.46350996501*^9}, 
   3.463513155785*^9, {3.463513263572*^9, 3.4635132649300003`*^9}, 
   3.463513321049*^9, {3.4635133694560003`*^9, 3.463513370059*^9}, {
   3.463513574693*^9, 3.463513582459*^9}, {3.463513683976*^9, 
   3.463513684125*^9}, 3.463513735269*^9, 3.463513889118*^9, {
   3.4636813961994734`*^9, 3.4636813969024734`*^9}, {3.4636814993454733`*^9, 
   3.4636814999054737`*^9}, {3.4636817346194735`*^9, 3.4636817351394734`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 1166.943214366911, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 700, 2000}}, Typeset`size$$ = {
    360., {31., 35.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$2447$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 700}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$2447$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Graphics[
         Rotate[{Red, Dashed, 
           
           Circle[{($CellContext`rho[0, -0.01, 1, 1, 1, 0] - $CellContext`rho[
              Pi, -0.01, 1, 1, 1, 0])/2, 
             0}, {($CellContext`rho[0, -0.01, 1, 1, 1, 0] + $CellContext`rho[
               Pi, -0.01, 1, 1, 1, 0])/
             2, ($CellContext`rho[0, -0.01, 1, 1, 1, 0] + $CellContext`rho[
               Pi, -0.01, 1, 1, 1, 0]) ((
                1 - $CellContext`eps[-0.01, 1, 1, 1]^2)^Rational[1, 2]/2)}]}, 
          0, {0, 0}]], 
        Graphics[{Thick, 
          Line[{{{0, -3}, {0, 3}}, {{-2, 0}, {11, 0}}}]}], 
        Graphics[
         Disk[{0, 0}, 0.3]], 
        Graphics[
         Disk[{$CellContext`rho[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 2000.}}, {
                    3, 11, 1, {380}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwt1gk01F8bB3Ai0YQWFVoUUbYkydjyCNWgiJI9ki2EIiWDsWWJmTtjS6RU
0ipRWaPUv4QkaVD6y06UUMrW+3jfd875zeec53fP3N89z/1976w/4mvhOo+H
h4cXr5C5r/9/pI50LB1/WqP3P1v1Ck/ayRkKUYD4KPds8JGA8GOphsuzN8Fq
URNKncFW+N1vHCBMpUJHRffn4jtUeMUOpR1drwkF7uJFoqmacEHnwdqyhVoQ
scQ0zi1MCyzKwhwrPLRBxrVQTcxCB8ZF+gS9tHUhqSXwnruSAeTIn26RKNsN
j4KD59XRTKHHdccKPW9zMJ0Vajd1twbb2sH9yqpOoO5c6tvt5wKLJ+ISL953
g6HzNrctRjzhpbR8jdAWH9jBaV1q5OcH4ilr9aP3nIDRVBffF+sCoC49L2v+
n0DIzRiuNWoMAnOFdqNUgWCYKqmr7NUOgeu0ck0N/1DIG2puNbAMB3pR/Yoh
HwZYhLywTI6NABp7fYX28UiAPLpcl2UUaDxpZcZrRsO6hC/tvhPRIGg9oHjw
YQyMbPhxRuvkOTDprXwfuTgWcm8kqdTfjQVeT4f4FSZxUPbFWIRdHwenbKls
YfN4UG2SXRH3Lh5mR5I/fd+RAHUi/FetbidAhtJJz4qV58FUTiNg2P88zEpN
ha6pOw8FEpVxe+US4ZyKZM4J/0RwNAosTStPBHW7t+/KFyQBxV/x6xeLJPhH
NuJJdWISRLS1kOuvkkCXqeJ6jo8Jk8UdQVHbmPC4k8QzXJkQsMggKzSVCarb
x/PPvmRCZ4qQAN83JtQEi242WsiCKwqSrbFrWHCmbUNU3RYW7DTm/zSkx4KF
pV1qwmYseCdfnaDsyIKLF3K69vqwQMJAo1b9DAvShmofrIlmwfJUp4z5hAUc
vZ+M4UwWFDoGXbLMZUET/U9pST4LxjPPcqVKWCBWPjMW/YwFO8rGZCZqWOBe
OmDp0cgCUvJvZGsLC0qLmwuNO1hAq7d/qdbLgpYvXW2rh3Dcr2Pf5o+yYGLh
KO/3CRZseaSgf22aBZ7OLuE2vARyFmVWiggQ+PT4/Wz1QgLfujd1xogQ+LuE
/oK2lMASvca8RSsIyHjLnm+QIHD4E2V502oCGaajWR+kCDSXt8i1SeM45cr8
dlkCebq0YtomAnr7mqoeKhDgOjrUrFcmcNy3rzFRhYD2EsFkhioBocJNVoFq
eP8ATdxTncC1X55t9hoEShff/HeESqBRob87SotAn+HGQXEdAjOObt/v6BK4
tZGTOL6DwKGRSkUdIMBfMlQTqU+ggCHhUbsT13Gf0dtsQGBBx8DRDkMCqqIW
XYNGBOx3lDr/3EXgdcrNj292E6AOpx/M20Mg1zC2gUEjIJYZRLMzJjDeX+Qg
bEKgSX3UvxItjFCJ8TclwG7wzpDZS+CM3uWxh+jh/CbTPfsIGEktyG1DFZla
f73NCLx0snzSgx7d6k13NCfAwx+tw0WzmrOmzPYTiJXaQilCT3o+kxS3IOBY
eEAhBDWe6dXsQD0shplqlgRiboz1xKDXp/9ot6HV+3nYygcIdOYK9Ieje6dm
LlWjJWY/DwocJCB7bWgRDWX97qpOQKdNPwa/QUcGv3jyWxHoiu231kK5ct93
+6Gvn//cnos+OTIt+wm1VjfKFTxEYHRBkpw6er7tQ64zuvGu1MYk9GmYx41S
1M6iYGMf+nPD5I1l1gQ+fPRjUNFH7D5bBzSN5rgtAg3iaRa+gR56bNJXi1KP
P6saQcVlNTOW22C/bH7tUkVpSYVjpqhhmvusC6p3eZXQWVTrZsMyNqr+IHLt
TXRLmYZ8Far4/KsaF135wUN+EJ3X37N2Bv3254jYYlsCrZQOIRn0xRqHv+po
gUrb+B70vfdnpgvKzuS5MKd5nXTOnCLThrfnrFN0L5oz3i6uYk6BsvqGORmS
SzvnnDljNT5n07Z5t4+ied/vOruiobdsxN3QA67zG+a8U1D6wwfln/UVC0Tt
jWU1QtCi1DabSFS4ixkSj7qekw+4gFYoVnvlofK7zPWL0GSn9hVV6N/gY0O1
qFfKxFMu+iE/Kq0LnR28SBlF5eQKw3jsCOxzfj0mgp7K/OK+Bs3m/v6oiL5c
uthcC72tP2lpgrL8ug/ZowHZb+x8UJs3xYdDUd2ZHBcmKq2U6H4ZFbAL8ipA
nWTb3tSiJd91tvaiS0uzU3jsCXhHzfsjib7Y52qvjq6VeFVphp7uUpA5hjbe
TYyJQhN7rKxzUdqadQqvUP6DA1MDaNX5B/UUBwIhz89mK6PUaUN/M3RMTcTA
H8334opx0Hd5Vf7l6M+em296UHEZjqKoI+aHU0gsFXXMcu1xRhlt+3YmoNdW
UrOL0JcH1k+3o/dW25psPUwgtZudEYPS79QOtKFHA/g1VZwImOroxkaiavyn
uFxUsu6enJIz7qfkvsBwdMBu3Yv36FsZGzH5IwSKvxIXOnqf5PP2ojc16rP3
uRC40j6o+xjNiBT8JHWUAEdeLjgWTWgwEP+BRgU6P7JxxfWuCjvwDOWxfnfb
1g3rybJ8Y6hg42nbBHd834TrCmQ8CCw2lhIqR5NjTjgd8MR1V794PIRm/hUX
jT5GwIy+2fSIFz7nlEGcnjeBh6dt/lntg7nx6zjfJLoqIAq4xwnU/7hAL/Il
EO6bX0r8cJ3DzyeO++M+4puWengC+yWptmfqJI5XPeanH4g5sPtK+rlT2HfH
lqr6IAJ8gaIDy85gPibsWmIbTGBPDl3z8lnsF6dCLJpOYFPUzHfPMHy+QN3a
fQzMWzd6rlokgQmrCoZ4NOb27hn7mRjMG6outTMW+yJPX/YyHvtaYs3MSiTQ
TttGCWAR6G8VPWfMwf57fp23PhX3959/QifS8XyIz5msv4i5LBl66tolAlK3
bEaDrxDQFJReX32dgKXboBnlFp4rzx+EWt7DXJU+e/fiAzzPwg0+dT0iUP6Z
QlEqw/l13msGVBL4kZHpUV5NQD/24UHd1/g+BL7Z+eQtgY4jfSp6XMwXc541
Ve0EwnQlFup3E2hQ2DrxdBDnFTfp3vkD55l/tLF6gkDNt1MBRbxskGmJW3md
wobQp5mlKcvZ0HIr3yFGig1bk5/xBMmzIZHefNVdjQ19bv27rHXZsNN8amDP
bjYM+dfcIVZsSOOk+ba5Yv2h61aZQDYMf1D76RWF9d+8xUUcrEu+DZ7Jwbr2
Jd1dD7Du4M3DfMoGh5VNvGqtbJBu1OTjjuDvx1/mPyvIgbuGCwSk1nHgxKzP
gmoNDmgUvxd0N+PAjL/2Qoo7B54p5lDyQzmQ4rhh/qmrHPAkubM6rzig83zT
b75hDohO3PrxekkydMorfyXbk+GRfX63tV0yxDFVP0uFJ4P9s0Ju77VkiJ9Q
jfD7nAyPle4rTa5MgR7nzdzI/SmwNO0OQzghBaBOQSnteQr48N78sG42BS5u
38i4pZEKr7yuK27zT4Wdm9NOFtemQvlIbJmOXBpsLwzmexqeBvcDvU2MPqaB
AtWRU6OeDtcmzT7uZaXD2gp9mXeD6ZAepuZlZXQBID2umvH+Agzc/3fVXZcM
IDXqAS2jGaDVmVDHF3EROie/bFBZkgnxy6h028uZoKaU1BytkgUfDbuVC55k
wXHp0VTrsEvw3z/1kA3/AQ6jhSA=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwV04FGIAgABNAuSZIkSZJ0SZIkSZIkSZIkSZIkSZJ0SZJ0yVpJkiRJkiRJ
kiRJkiRJkiRJkiRJkiTJWmtfw5svmPm38b/K9n8CAgL+/y4JJIhgQggljHAi
iCSKaGKIJY54EkgkiWRSSCWNdDLIJItscsglj3wKKKSIYkoopYxyKqikimpq
qKWOehpopIlmWmiljXY66KSLbnropY9+BvjBTwYZYpgRRhljnAkmmWKaGWaZ
Y54FFllimRVWWWOdDTbZYpsddtljnwMOOeKYE04545wLLrnimhtuueOeBx55
4pkXXnnjnQ8++eIXv/lDgA0EEkQwIYQSRjgRRBJFNDHEEkc8CSSSRDIppJJG
OhlkkkU2OeSSRz4FFFJEMSWUUkY5FVRSRTU11FJHPQ000kQzLbTSxvfIO+ik
i2566KWPfgb4wU8GGWKYEUYZY5wJJplimhlmmWOeBRZZYpkVVlljnQ022WKb
HXbZY58DDjnimBNOOeOcCy654pobbrnjngceeeKZF155450PPvniF7/5w/f5
AwkimBBCCSOcCCKJIpoYYokjngQSSSKZFFJJI50MMskimxxyySOfAgopopgS
SimjnAoqqaKaGmqpo54GGmmimRZaaaOdDjrpopseeumjnwF+8JNBhhhmhFHG
GGeCSaaYZoZZ5phngUWWWGaFVdZYZ4NNtthmh1322OeAQ4445oRTzjjngkuu
uOaGW+6454FHnnjmhVfeeOeDT774C897vzg=
                    "], CompressedData["
1:eJw91Xc8Fd77AHDkmte8uNdWRBQfISt5jrIpREalJBSRPSIzK8oeobKiUKTI
iuy9uiIys0pmyB6/+/3nd/57v87rPM85z1lHLR0vW5OTkZFtUZD9f2PhT04a
9OaCgjNEYS/9f8oB+QVv/ufBvFwlL30M/NWdG/ufrzh+Cbe4KQtULaJBCyS7
iWv036NTAxGzHGZ+Hy74MUaIZrcwAvF/busTJAfJqlsanb0BvI87X/D5csHF
k3lKMfRWEDb8+NSgHxe8jTwbLmZvBau36tgOSb6ffcmqqdMK+KlxZcL+XJCL
fdxnIW4NLf+CcXokF3jGDu49tQZJLV4xL5IDChg9UpasIUZhcieTZB6T2bm+
Ihu4qNfUvklyYS7bD2bnOxDJkvlIP4AL1BOJ1/Sl7sLdf/nH35L8427KE7sv
jiBhndA0EcwFNIGBBSu5rqCd9SpBIYK0Pifq6SOOnuDfOdxfFsMFknYj/QR5
HwhSj2E1f8YF82smf+TOB4Ofco+l8WcuEDD+8EJ8LQLm9GfV/y1xgc/HhZnT
8jEwh2wqrQS5waFuPu71XhwIu2B3jS254VhNjQVTayJIeFS2XXzLDRUqly2j
057B2HqU0ww5D2BknKjDRtLAfOmOCr8LDzRHKH2zPZkOxoNlXVFrPPC0mmVQ
SC0TAiTjM6rCeKHiPuFnyX4WCPWH0/lI8oGLzZurr2pfgcdzA+fDZT64mKfT
T7OQC3M/yImLG/wQ9Y1ydFcsD+qpbCUW4wWAU8qIIT2gAEzXbsb+VD0Kb/dx
31+uvAPcidCsBtZjsJ1+0P0W3gPui5Od6hFBcP5wrZo2pRgmHDVOtfMKwWHf
rjS+7gNEautIzp84DmTrOqlntz/C8M1/ufvXhUHYUn3i4EIphLdfFO2oFwFx
H/vJautPcKFm95guQRSUau83uTwrg72CP+5UGWKgncLNWDRWDi9nl3q6rE5B
Y//F8V/7FdB56Rhg2CSgfMvVZkCiClzpwnDRZJLw2aw8itPtM+TNjGeV8JwG
rQcjolnx1XBcYFyKcFIKKHlYnsc11cBX29mw/JvS8D7ncY0uVS0cGidrp9TL
gJhHvb5hci3g4AXnBTZZiE6K1pk+XQeav6z1GBLloPDKeMDN73VQUfPpGpme
ArRwfzsdY1cPFyQbyYPWFIHyUcxeJnUDVHukCIsQlQC/2N+wX9QAidjlPMVN
ZSgK6D/Dp94IfmSFi4sBCEL2VS28ZhshRVToElu+ChxtvvnRL64JzM/MjSce
nIfXa0G86zrNkCmTzXQqXBXuXj/nyvC7GSRnadK/zqmBj4fGkYOoFji7Ua71
xUcDUuYZy3TPt8JCuOETek0tWLUWsVecbIUJsVtr1XvaYNBEpar1tA3eOKB4
8wVdMK/pq8eotUO0xuhxVkE9SHS6QWNA3wEmTOMqaFAfboib6u196IB3CxqS
SgcGoBx3odjRphNSeIYfF+kYghB8fKMr0gUabp8oiluNIJpRXfrpZhc4xSyK
5/gbw1dZZRq7193A7Ml8Po3WFJKzhdvyb/dAsElf4XaLGRy1zzxFju+FF10U
jhZN14DDZ8ESgntBV2OmzZ7pBhyXvx1aPtELybMbFoeMFpCauCZdeuEr8Enh
Vjblb4FqPfELvvAr9DlMZcU/sYR64bwbfwWIIMMejkpYrWBzQXjvfhAR3tcs
t/Y4W8O0Rh1vyx8iyBWxalQc2IBVxEfvmat9YBFt+uRR/V1YCo/CzPb1gckv
FXxNqx2Q8z0NmVb8BsdV8/0W0+yBwzX1EVfeN7jiIDDrUXAfmBVEC335+2G+
lr84MdAJbqlXmZ9J74d27lUp6iFn+E3pTn0GOwCabxjfiTG5gpuEU15PwAA0
BeHVduzdoCGlJwJzMADcjwoiBHfcQavd7ShdyHcwR14/LWo9oXPUBBO79R0e
XtcNP3/tAQQb4mx53Qbh0hI/j6SYD7y3lh6p3BqExMumoXxyvjCllVeRFzYE
nGUEl6wof/iiyV2mRvEDXM2FzOYHAuDdFVkHs5AfsCFFdyeZJgi6mpXc9liG
gV12tqrZ8hEY8eXPPswbhrOF4ZXJi8HARFHS33RyBDJ/8hsuGYbCV7aPJ8jL
RmC6PUC2bTYMpo49NDLUHYVbe5bV3oWPoc09R5BzcRSGuEakvEoj4ZrJIvro
OQYen14c6j99Cr4bSs0N9OOgOKB5Wz49Ghp3eVce5o/DfwGrNus7MfD1InlW
jtgEtGUIa9vpxYGACVC4u03Aat+ZFN+QeBgIcu9Rb5iA5aDu09d+JkDfhG50
Ff4nXHZTUvhjmwTdZjsbsS4/YUP8T0GHyDPA5sSVqNf9hIXSo6vPa1Kgy+Hu
pjb7JLAK8dlHhqaBiju1iobjJHClIkX38BdwM/nErSO9k3C1UcLzbk86eKtm
bdELTQG4v1sRXM0AzEe2kTLfKdhnXLR25skC5hZVqfLRKWhXaTLQtc8GuXM1
r8ZUp8Gp1SS2+fcr2M4aKS97OQ2cmlRlSC0XWl95x0QfTAODs9AIpuM1mLiu
VApYzwBGQ+LAPDAPuhznkjX6ZoD52IqIvnMBiE8mPPSXnoVp7fVtf/l38NHE
N4ErdRbet/wjHD1TBMyEjapR6l9AbfLjukr5exCKH6Yt9v0F5loLKbjdYkAL
8cEL079g8cWYBZ3QR2g44qSyc/k3hP6NDnjqWALGynQP8lt/Q6bknxtRU6Vw
uCootqo+Bz1JDuoWYWUwNrZ3sFo6B43SaZQRdBVQ7D25qnLqD+AobdiMKyuB
ypVtqir/DxSKZLmZvvwMS9VywlZS87C5yj828aUGOpqr7rLmz4NIRamN9PVa
qNNev5cqugC9IW/sNN3rIMLIRvNX8QJgK5T3Kd7XQ52elitWdRGO+1Gz6rI2
wsnjAarBTYtw9DNFBtW1JmCFZ9buekvAMJGH22lthpEhXcnhySVYTJ+p0bZs
BcUJLe/hgGWwjXs46CHRDnSFGrx1VCuwuuZ/nW+4A3xFJJbeGazAlNxL18my
LiCECxlWZa7Ay6lrDPGdPaBW1jcVurkCaOz5jDHLV+AJVX3WZvgXPr4/3fLb
kgivBsOlJrL+wtmztcOFsX2wq/tsSnTzL9QavlSRmPwG4+s6/MoGq1B9OYml
yWwAEhTu7XYWr8JC+o/hpYPvcOm21e1XnGsQGTL25OnQEKT1zt2Ocl0DI3Kz
5eHQYTgf/szToW8N6rGHj0NujwJ1MlZxUWEdnlvcdBzzIN0b9mLTb6/XIVpb
InxgegI45ZT3aPn+AZf5hxQkPQnmpqlP4kL/QfQYWfTjO1Pg/qF6THTjH7D8
5r2SUT0NB+NbGSkOGxAqcosrVnEWimlKce2LG0AWUJ1jSDonn799y27x3ATl
+kGPnbo5eLJwkNuG3YIpwbDUP8PzkFIsbqNYuAWLw704HqUlGKE3ueWrvA0v
amaw2fIrkLQgvuwztA1e7ol/lF3/Qnu2o4xzwA44Eu/JmBJXQZbtj0SjzC4k
uWAb96+uQzmZ91mGrV3omafnH2TdgNrnlfbcnXvAcuTTVW6yLSDO9M1vfdiH
5JRkH3PRHbj3sVwCf/8ALse6WV9ZJ8U5+iBZWPYQVr8b64b+2ofzI30Z1r8O
wYjlOo3760MQdMJgwg3IkHrVI+x4PRlK91TBzpeQIZpPa0KWdeTo5HoVrwwf
OSLA7jpbDwX6iyZ3y5+So9UYsFCbP4LML96PbDtCgSrwV2oS2DDIZGeohMaO
Anne/7oYxEKFvh/PH6Tsp0CBFdeL2dio0T2/9Qd9qkcQZ72S5z4nDdLLR72+
FUdQ8iUzoqkALVo9tjW7L0WJVl+XRGQL0qHJmNJ3Z4spURmRDVfDT4/M/GzU
aewwyMauU9TCHoto5AUltEh+IPJfdSfJSt3fOSJIZt3e1lJwwKI+2WCyDpJJ
8yPmkPz2zol5+nsYNDoHxqz3sSjTuHFAl+Tt/op+P5Kzo+aLuklOGahsMnHE
ojOX/z7Rt8cgK6+/2ZJOWMSg3+9AJHln3dSJ1hmLxAXl6GedMWhAsinB9wEW
/UulEtv1wKBo4ayiP4FYJIKhaGN5iEEiKicL9SOwKGJnclY0EINKxBJ9i+JI
8c5NStmXYFCi7wmN1mks2r61I6P8G4NCHkel1EkzoOTNEEIqDxUKiLOrMfBn
QMcmy0MfGFAhlu9uYf+1MCDRtanc/lAqlDo2PstKz4hsIl10ZLeo0EMq6mCT
SEYUpq59Uv8eNUqexx4J32BEj2SaeYxaqNGNxXCDLUUm9PMblgIrRIM6hK9m
0DsxIcwwrZFWIA1y8OaZZU5kQvTB7zuGx2jQ98RWvYg8JtTtXHAQq0SLRHOr
nU+/Y0Ij1fxdi4W0SGg72aE1lQnphP/F/xCgQ12pVyWTHZmQhnJoy0EsHeJt
6E33OsWE7IX8Uqkp6NFzOjKpCiIjsi4Qqcpxokd0/MurVFaMyNtedTtmlB65
93aOmE8yoPakr2Nq17AomYYq/Z4MA8It2kgt9GORlWLXbxZXLMpxkC5QuMiA
tmbea8tk0aPLJV/s12sZkHzPW8r0JjrEVGtotCrJiMQ1N7dmJkjzrB0h4l8w
Iq/QD026mzSIfnDfzRjDhOopr3wuo6dBwskPN9XSmZDhTaUmoQwqtMt3o2ET
z4xGzhBHcecwqC/pxUT3NWZkUh6r2frrCPr6vPTntTRm5D38vKY4mwKdDU06
NjzAjIwpvETbXMjR55te8U8ZWVBgzunNuStk6M554+jS8yyoYrKMWyX1AHSr
LqQnuLKgTLklo/6iPThakX2m+x0LcorXFfnkvAPBfnjRsCkWhE/VOnXLfgvu
B5afkGJnRbPB56s+p25Aop7kEbkLrOiM3tZMzuY6nKY+N77qwIoiUZ6tlN8a
fJr+PFKeyIo2Ir/F94mukv6zod/ESlbUrSN/03pjBTa2zV4FjbKiEjcF7tu1
y/BjVHFphxKHRhV1+ZrNF0GoW/R6hCgO+QW9Kr+gPA/80kwlgTo4pNIZ6Thq
Ogdn2NJ3he/h0BNNG59fOb/AZ72dsSwch7abYwUG+WbB+kvats0rHCJi1le5
a6ahxOsOr3UNDl1gduxY9puCin3nEz8GcOiVlLAsMp8EkywKu0eUbGidSfsv
3fUJ+GR9KtZUnA11Gm1t0twchabeViWBy2zoRuNc/EjkD7hTqmfm5cqGohOM
JDoFB+FQ6dPf8Vg2JPdRftiadQDUXSJMat6xodLpE7hhjW+gkVFgd7eFDV3a
Pi3cU0YExfWNCKFxNuTi/1bkoelXQOO88eL/2NCnshxKtmO90DVSzl9Ky46+
fBrpTObphrKJVIMZHnaURBFwkV6yE3Z0Cw6x0uxovDVB/z5rO6jpGlkkarCj
Xpcq7bEzrZBU161QdJUdeaS+CNiPboaNsMjSR/bsaM7xzDNnQhPEH9shnvFl
Rz/OSho6tjZAANdw+NQTdrTMzrxwO7UeZoLT3+SmsaPQgzfJHx/XwT3ZP3GJ
eezoZy9dTFhcLWD3Vj5FfmZHQrjpUJfsGvgR48PH082Oqg2vM15z+gxsGtJP
nMfYUfzsPGHVrxJWqd/OFy2yI/9KF/O1xnJYeUuW92+XHQ10O7LgFMuguaC6
4jotB5LiJO948r0UROYf3Ntl50D8WzJMPcklcCwijWrmKAda9bR6fNbjI7zk
ogIWKQ60NO0y+uqwGJJOCCkwqnCgHAuKeNqy9zC2CDpkehzI+yy5UoFoEcxt
561grnOgljLmw93j72AgFLMmf5cDxbW9UdEwK4BnnUmXilw5kOdClc/LqjwY
ai+d8vEj5WtQy/ZVfwOnO2QoisI50Ep6O95/PRemwz9T1CRxIPdjYjIb8jkw
Wb36uDGbA9GtPM91LMmGjy9wzyaLOFBCTr9TlXkWdAyarktVcSCfoLQbT8Uz
IYyIU+xs4kBbJ3Qe0PBlgH++Vm5dDwdqfH+15ZvRS3DJGPwkOMSBqrLS36S8
eA7EdMxrskkO5NURlLDIlAapYtYFBkscKArXXatKkQKNL+mnKrY5ENm6QlOg
bDKoqvE1XKHEI1te+na/zESQtGBmOMeIR0qFvXK2igkQnHSm8REej6iIWtKS
O3GQNhX+W1EAjypfu0RyD8fCmHExlfMJPHrNpBvgNxgDPFFGb6Qk8Yh+Yclx
byQa9m1EhJjO4hEt594zyftPYbPp7QleNTzpHWcnN78UCfhz/Qoel/BI0Svk
xrbjY3jO2JP0nwkezbRrD5m1hkH+7BL3tZt4ND4/4r19KRQCFL4sUt8h9S9X
d27uBcOCge3e+fukfGPB3hWdj4CaZ8gW745HRPGGqMyKIAhRunK53A+P0uXX
vjhoBQLfh0PpzDA8svc4wuhGEwBSdPcY5qLx6MNRkRTKUV+Q2VfcykrGoyFb
uRC9Pz5wtmN6e+wlHjUyMkWES3jDRBhrZn4OHgUQBo85ZnoBLR2PH8tbPGIJ
+XDqopInKBGvBvB+wKO55aN8GdvucFJIqr+4klQfvkr9+xpuENrjGZBZj0fO
uFrLmC4XUNEh6JG345E8bfQbgSBnkFW76DvZi0d0oSO8N82dIJyX18vwOx6t
XHEQ1PlwH+QqMu5bjOLRub8LkTQ/7UHNnViLm8Ijfyu3rjXle7AEfFc8fuOR
+TYDrW+TLahG/3ggvEIaj3cMOtJyB/IDbnWd38QjDfYSMX96Gzhxp0pibB+P
fkqH1FOHWUGizWk5GkoC4lbsfXBZ8jaMWzAuddESULNjSiSGzBL85Sn1FJkI
aD2h01B5xQJuphu9N2YjIIdl6lyXrZsgGOjKcpKTgAZqTxkJohtAbP2kwy1A
QNrrMaotc9eArtXkXqgwAf1ca+v5PGkG5MKNqb6nCEg1g2unhscU0is6yJmk
CChZbj6q5IkxKL7/Za8uR0Anr9anjYheAYGVtjZxJQK6rRcXp7BoCA53KkO6
EAFVsyvoCX+9DC85yAZOqRHQ6RfhK9RfDWD+naWDvw4BjRp+eW3oqg+eC6rt
ZgYEZISm8mbDLwHr0OuEDmMC+sLCxd7kqQvcZjKFP6+R8k+zf2fI1YaiZOHu
XAsCCs3qYLhBqwVsmqvrgtYEFIVXrXNM0QDLkIQGC1sC8hcis32mpw7c327V
3HYgIDO76bd2wmrg14+3OetKQCHMMsYtURcgb3FfINeLgBQZc79qSpwHYqT4
+Q++BHS8ecKgawdBqozbk3tBBGSiHJdLNgTQujzXMBxKQOTua+o+O+egJSOQ
kz6SgFaKjfs19JUA03XgQxZNQG1SPJeeEhWBar68vy6OgOwYWE7NeysAtfyz
62rPCIjPZ+hkbKYcnCymoLd5QUBvFzp1GGllIYutkO50FgFVCtw5fiNHBg6P
ah4vziWgdJola2UHacif+6C7nE9Aprd/9ziZSYEY7tLhaiEBaV4duChndRom
bGXj6z+Q6js0qbkRLgnj3aGOtz8RkOjDlN8/w/4DR+4vXE1VBNTeoi2cekcc
jpU9i+iqJZ2nLYXK0viTkLNxaiW8iYAY6rjT9/dFIfRigQZ5O6k+FxVTQ9NO
AG5aflC5m4BUJoI5O2+LgIl/fawmkdQffbqSRV8YxI0lDIUGCOjEhSdSa1eP
A8e7XP7vQwT0n++LaFyAEFDxUF+9M05Al2M7j1AYCoLG4j9M/jQBvWag7Gky
PAa2RoGf8+dI+y0qWEXrfRSkvbyxrksE9PCkRZnzFwF4HPVwjW6NVM9X05os
/ALQVvpO9sEmAbmLcBVxivGD3n8yOQ27BGRbNMpdqMQHUtED2suHBBQ9nn2B
wpkX9tLect3GcKL+qaUIj6c88LxsJPU9HSdSmBzJKRrkhv8DUo/fHA==
                    "]}, {Automatic}]}}]], 1], -0.01, 1, 1, 1, 0] Cos[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 2000.}}, {
                    3, 11, 1, {380}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwt1gk01F8bB3Ai0YQWFVoUUbYkydjyCNWgiJI9ki2EIiWDsWWJmTtjS6RU
0ipRWaPUv4QkaVD6y06UUMrW+3jfd875zeec53fP3N89z/1976w/4mvhOo+H
h4cXr5C5r/9/pI50LB1/WqP3P1v1Ck/ayRkKUYD4KPds8JGA8GOphsuzN8Fq
URNKncFW+N1vHCBMpUJHRffn4jtUeMUOpR1drwkF7uJFoqmacEHnwdqyhVoQ
scQ0zi1MCyzKwhwrPLRBxrVQTcxCB8ZF+gS9tHUhqSXwnruSAeTIn26RKNsN
j4KD59XRTKHHdccKPW9zMJ0Vajd1twbb2sH9yqpOoO5c6tvt5wKLJ+ISL953
g6HzNrctRjzhpbR8jdAWH9jBaV1q5OcH4ilr9aP3nIDRVBffF+sCoC49L2v+
n0DIzRiuNWoMAnOFdqNUgWCYKqmr7NUOgeu0ck0N/1DIG2puNbAMB3pR/Yoh
HwZYhLywTI6NABp7fYX28UiAPLpcl2UUaDxpZcZrRsO6hC/tvhPRIGg9oHjw
YQyMbPhxRuvkOTDprXwfuTgWcm8kqdTfjQVeT4f4FSZxUPbFWIRdHwenbKls
YfN4UG2SXRH3Lh5mR5I/fd+RAHUi/FetbidAhtJJz4qV58FUTiNg2P88zEpN
ha6pOw8FEpVxe+US4ZyKZM4J/0RwNAosTStPBHW7t+/KFyQBxV/x6xeLJPhH
NuJJdWISRLS1kOuvkkCXqeJ6jo8Jk8UdQVHbmPC4k8QzXJkQsMggKzSVCarb
x/PPvmRCZ4qQAN83JtQEi242WsiCKwqSrbFrWHCmbUNU3RYW7DTm/zSkx4KF
pV1qwmYseCdfnaDsyIKLF3K69vqwQMJAo1b9DAvShmofrIlmwfJUp4z5hAUc
vZ+M4UwWFDoGXbLMZUET/U9pST4LxjPPcqVKWCBWPjMW/YwFO8rGZCZqWOBe
OmDp0cgCUvJvZGsLC0qLmwuNO1hAq7d/qdbLgpYvXW2rh3Dcr2Pf5o+yYGLh
KO/3CRZseaSgf22aBZ7OLuE2vARyFmVWiggQ+PT4/Wz1QgLfujd1xogQ+LuE
/oK2lMASvca8RSsIyHjLnm+QIHD4E2V502oCGaajWR+kCDSXt8i1SeM45cr8
dlkCebq0YtomAnr7mqoeKhDgOjrUrFcmcNy3rzFRhYD2EsFkhioBocJNVoFq
eP8ATdxTncC1X55t9hoEShff/HeESqBRob87SotAn+HGQXEdAjOObt/v6BK4
tZGTOL6DwKGRSkUdIMBfMlQTqU+ggCHhUbsT13Gf0dtsQGBBx8DRDkMCqqIW
XYNGBOx3lDr/3EXgdcrNj292E6AOpx/M20Mg1zC2gUEjIJYZRLMzJjDeX+Qg
bEKgSX3UvxItjFCJ8TclwG7wzpDZS+CM3uWxh+jh/CbTPfsIGEktyG1DFZla
f73NCLx0snzSgx7d6k13NCfAwx+tw0WzmrOmzPYTiJXaQilCT3o+kxS3IOBY
eEAhBDWe6dXsQD0shplqlgRiboz1xKDXp/9ot6HV+3nYygcIdOYK9Ieje6dm
LlWjJWY/DwocJCB7bWgRDWX97qpOQKdNPwa/QUcGv3jyWxHoiu231kK5ct93
+6Gvn//cnos+OTIt+wm1VjfKFTxEYHRBkpw6er7tQ64zuvGu1MYk9GmYx41S
1M6iYGMf+nPD5I1l1gQ+fPRjUNFH7D5bBzSN5rgtAg3iaRa+gR56bNJXi1KP
P6saQcVlNTOW22C/bH7tUkVpSYVjpqhhmvusC6p3eZXQWVTrZsMyNqr+IHLt
TXRLmYZ8Far4/KsaF135wUN+EJ3X37N2Bv3254jYYlsCrZQOIRn0xRqHv+po
gUrb+B70vfdnpgvKzuS5MKd5nXTOnCLThrfnrFN0L5oz3i6uYk6BsvqGORmS
SzvnnDljNT5n07Z5t4+ied/vOruiobdsxN3QA67zG+a8U1D6wwfln/UVC0Tt
jWU1QtCi1DabSFS4ixkSj7qekw+4gFYoVnvlofK7zPWL0GSn9hVV6N/gY0O1
qFfKxFMu+iE/Kq0LnR28SBlF5eQKw3jsCOxzfj0mgp7K/OK+Bs3m/v6oiL5c
uthcC72tP2lpgrL8ug/ZowHZb+x8UJs3xYdDUd2ZHBcmKq2U6H4ZFbAL8ipA
nWTb3tSiJd91tvaiS0uzU3jsCXhHzfsjib7Y52qvjq6VeFVphp7uUpA5hjbe
TYyJQhN7rKxzUdqadQqvUP6DA1MDaNX5B/UUBwIhz89mK6PUaUN/M3RMTcTA
H8334opx0Hd5Vf7l6M+em296UHEZjqKoI+aHU0gsFXXMcu1xRhlt+3YmoNdW
UrOL0JcH1k+3o/dW25psPUwgtZudEYPS79QOtKFHA/g1VZwImOroxkaiavyn
uFxUsu6enJIz7qfkvsBwdMBu3Yv36FsZGzH5IwSKvxIXOnqf5PP2ojc16rP3
uRC40j6o+xjNiBT8JHWUAEdeLjgWTWgwEP+BRgU6P7JxxfWuCjvwDOWxfnfb
1g3rybJ8Y6hg42nbBHd834TrCmQ8CCw2lhIqR5NjTjgd8MR1V794PIRm/hUX
jT5GwIy+2fSIFz7nlEGcnjeBh6dt/lntg7nx6zjfJLoqIAq4xwnU/7hAL/Il
EO6bX0r8cJ3DzyeO++M+4puWengC+yWptmfqJI5XPeanH4g5sPtK+rlT2HfH
lqr6IAJ8gaIDy85gPibsWmIbTGBPDl3z8lnsF6dCLJpOYFPUzHfPMHy+QN3a
fQzMWzd6rlokgQmrCoZ4NOb27hn7mRjMG6outTMW+yJPX/YyHvtaYs3MSiTQ
TttGCWAR6G8VPWfMwf57fp23PhX3959/QifS8XyIz5msv4i5LBl66tolAlK3
bEaDrxDQFJReX32dgKXboBnlFp4rzx+EWt7DXJU+e/fiAzzPwg0+dT0iUP6Z
QlEqw/l13msGVBL4kZHpUV5NQD/24UHd1/g+BL7Z+eQtgY4jfSp6XMwXc541
Ve0EwnQlFup3E2hQ2DrxdBDnFTfp3vkD55l/tLF6gkDNt1MBRbxskGmJW3md
wobQp5mlKcvZ0HIr3yFGig1bk5/xBMmzIZHefNVdjQ19bv27rHXZsNN8amDP
bjYM+dfcIVZsSOOk+ba5Yv2h61aZQDYMf1D76RWF9d+8xUUcrEu+DZ7Jwbr2
Jd1dD7Du4M3DfMoGh5VNvGqtbJBu1OTjjuDvx1/mPyvIgbuGCwSk1nHgxKzP
gmoNDmgUvxd0N+PAjL/2Qoo7B54p5lDyQzmQ4rhh/qmrHPAkubM6rzig83zT
b75hDohO3PrxekkydMorfyXbk+GRfX63tV0yxDFVP0uFJ4P9s0Ju77VkiJ9Q
jfD7nAyPle4rTa5MgR7nzdzI/SmwNO0OQzghBaBOQSnteQr48N78sG42BS5u
38i4pZEKr7yuK27zT4Wdm9NOFtemQvlIbJmOXBpsLwzmexqeBvcDvU2MPqaB
AtWRU6OeDtcmzT7uZaXD2gp9mXeD6ZAepuZlZXQBID2umvH+Agzc/3fVXZcM
IDXqAS2jGaDVmVDHF3EROie/bFBZkgnxy6h028uZoKaU1BytkgUfDbuVC55k
wXHp0VTrsEvw3z/1kA3/AQ6jhSA=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwV04FGIAgABNAuSZIkSZJ0SZIkSZIkSZIkSZIkSZJ0SZJ0yVpJkiRJkiRJ
kiRJkiRJkiRJkiRJkiTJWmtfw5svmPm38b/K9n8CAgL+/y4JJIhgQggljHAi
iCSKaGKIJY54EkgkiWRSSCWNdDLIJItscsglj3wKKKSIYkoopYxyKqikimpq
qKWOehpopIlmWmiljXY66KSLbnropY9+BvjBTwYZYpgRRhljnAkmmWKaGWaZ
Y54FFllimRVWWWOdDTbZYpsddtljnwMOOeKYE04545wLLrnimhtuueOeBx55
4pkXXnnjnQ8++eIXv/lDgA0EEkQwIYQSRjgRRBJFNDHEEkc8CSSSRDIppJJG
OhlkkkU2OeSSRz4FFFJEMSWUUkY5FVRSRTU11FJHPQ000kQzLbTSxvfIO+ik
i2566KWPfgb4wU8GGWKYEUYZY5wJJplimhlmmWOeBRZZYpkVVlljnQ022WKb
HXbZY58DDjnimBNOOeOcCy654pobbrnjngceeeKZF155450PPvniF7/5w/f5
AwkimBBCCSOcCCKJIpoYYokjngQSSSKZFFJJI50MMskimxxyySOfAgopopgS
SimjnAoqqaKaGmqpo54GGmmimRZaaaOdDjrpopseeumjnwF+8JNBhhhmhFHG
GGeCSaaYZoZZ5phngUWWWGaFVdZYZ4NNtthmh1322OeAQ4445oRTzjjngkuu
uOaGW+6454FHnnjmhVfeeOeDT774C897vzg=
                    "], CompressedData["
1:eJw91Xc8Fd77AHDkmte8uNdWRBQfISt5jrIpREalJBSRPSIzK8oeobKiUKTI
iuy9uiIys0pmyB6/+/3nd/57v87rPM85z1lHLR0vW5OTkZFtUZD9f2PhT04a
9OaCgjNEYS/9f8oB+QVv/ufBvFwlL30M/NWdG/ufrzh+Cbe4KQtULaJBCyS7
iWv036NTAxGzHGZ+Hy74MUaIZrcwAvF/busTJAfJqlsanb0BvI87X/D5csHF
k3lKMfRWEDb8+NSgHxe8jTwbLmZvBau36tgOSb6ffcmqqdMK+KlxZcL+XJCL
fdxnIW4NLf+CcXokF3jGDu49tQZJLV4xL5IDChg9UpasIUZhcieTZB6T2bm+
Ihu4qNfUvklyYS7bD2bnOxDJkvlIP4AL1BOJ1/Sl7sLdf/nH35L8427KE7sv
jiBhndA0EcwFNIGBBSu5rqCd9SpBIYK0Pifq6SOOnuDfOdxfFsMFknYj/QR5
HwhSj2E1f8YF82smf+TOB4Ofco+l8WcuEDD+8EJ8LQLm9GfV/y1xgc/HhZnT
8jEwh2wqrQS5waFuPu71XhwIu2B3jS254VhNjQVTayJIeFS2XXzLDRUqly2j
057B2HqU0ww5D2BknKjDRtLAfOmOCr8LDzRHKH2zPZkOxoNlXVFrPPC0mmVQ
SC0TAiTjM6rCeKHiPuFnyX4WCPWH0/lI8oGLzZurr2pfgcdzA+fDZT64mKfT
T7OQC3M/yImLG/wQ9Y1ydFcsD+qpbCUW4wWAU8qIIT2gAEzXbsb+VD0Kb/dx
31+uvAPcidCsBtZjsJ1+0P0W3gPui5Od6hFBcP5wrZo2pRgmHDVOtfMKwWHf
rjS+7gNEautIzp84DmTrOqlntz/C8M1/ufvXhUHYUn3i4EIphLdfFO2oFwFx
H/vJautPcKFm95guQRSUau83uTwrg72CP+5UGWKgncLNWDRWDi9nl3q6rE5B
Y//F8V/7FdB56Rhg2CSgfMvVZkCiClzpwnDRZJLw2aw8itPtM+TNjGeV8JwG
rQcjolnx1XBcYFyKcFIKKHlYnsc11cBX29mw/JvS8D7ncY0uVS0cGidrp9TL
gJhHvb5hci3g4AXnBTZZiE6K1pk+XQeav6z1GBLloPDKeMDN73VQUfPpGpme
ArRwfzsdY1cPFyQbyYPWFIHyUcxeJnUDVHukCIsQlQC/2N+wX9QAidjlPMVN
ZSgK6D/Dp94IfmSFi4sBCEL2VS28ZhshRVToElu+ChxtvvnRL64JzM/MjSce
nIfXa0G86zrNkCmTzXQqXBXuXj/nyvC7GSRnadK/zqmBj4fGkYOoFji7Ua71
xUcDUuYZy3TPt8JCuOETek0tWLUWsVecbIUJsVtr1XvaYNBEpar1tA3eOKB4
8wVdMK/pq8eotUO0xuhxVkE9SHS6QWNA3wEmTOMqaFAfboib6u196IB3CxqS
SgcGoBx3odjRphNSeIYfF+kYghB8fKMr0gUabp8oiluNIJpRXfrpZhc4xSyK
5/gbw1dZZRq7193A7Ml8Po3WFJKzhdvyb/dAsElf4XaLGRy1zzxFju+FF10U
jhZN14DDZ8ESgntBV2OmzZ7pBhyXvx1aPtELybMbFoeMFpCauCZdeuEr8Enh
Vjblb4FqPfELvvAr9DlMZcU/sYR64bwbfwWIIMMejkpYrWBzQXjvfhAR3tcs
t/Y4W8O0Rh1vyx8iyBWxalQc2IBVxEfvmat9YBFt+uRR/V1YCo/CzPb1gckv
FXxNqx2Q8z0NmVb8BsdV8/0W0+yBwzX1EVfeN7jiIDDrUXAfmBVEC335+2G+
lr84MdAJbqlXmZ9J74d27lUp6iFn+E3pTn0GOwCabxjfiTG5gpuEU15PwAA0
BeHVduzdoCGlJwJzMADcjwoiBHfcQavd7ShdyHcwR14/LWo9oXPUBBO79R0e
XtcNP3/tAQQb4mx53Qbh0hI/j6SYD7y3lh6p3BqExMumoXxyvjCllVeRFzYE
nGUEl6wof/iiyV2mRvEDXM2FzOYHAuDdFVkHs5AfsCFFdyeZJgi6mpXc9liG
gV12tqrZ8hEY8eXPPswbhrOF4ZXJi8HARFHS33RyBDJ/8hsuGYbCV7aPJ8jL
RmC6PUC2bTYMpo49NDLUHYVbe5bV3oWPoc09R5BzcRSGuEakvEoj4ZrJIvro
OQYen14c6j99Cr4bSs0N9OOgOKB5Wz49Ghp3eVce5o/DfwGrNus7MfD1InlW
jtgEtGUIa9vpxYGACVC4u03Aat+ZFN+QeBgIcu9Rb5iA5aDu09d+JkDfhG50
Ff4nXHZTUvhjmwTdZjsbsS4/YUP8T0GHyDPA5sSVqNf9hIXSo6vPa1Kgy+Hu
pjb7JLAK8dlHhqaBiju1iobjJHClIkX38BdwM/nErSO9k3C1UcLzbk86eKtm
bdELTQG4v1sRXM0AzEe2kTLfKdhnXLR25skC5hZVqfLRKWhXaTLQtc8GuXM1
r8ZUp8Gp1SS2+fcr2M4aKS97OQ2cmlRlSC0XWl95x0QfTAODs9AIpuM1mLiu
VApYzwBGQ+LAPDAPuhznkjX6ZoD52IqIvnMBiE8mPPSXnoVp7fVtf/l38NHE
N4ErdRbet/wjHD1TBMyEjapR6l9AbfLjukr5exCKH6Yt9v0F5loLKbjdYkAL
8cEL079g8cWYBZ3QR2g44qSyc/k3hP6NDnjqWALGynQP8lt/Q6bknxtRU6Vw
uCootqo+Bz1JDuoWYWUwNrZ3sFo6B43SaZQRdBVQ7D25qnLqD+AobdiMKyuB
ypVtqir/DxSKZLmZvvwMS9VywlZS87C5yj828aUGOpqr7rLmz4NIRamN9PVa
qNNev5cqugC9IW/sNN3rIMLIRvNX8QJgK5T3Kd7XQ52elitWdRGO+1Gz6rI2
wsnjAarBTYtw9DNFBtW1JmCFZ9buekvAMJGH22lthpEhXcnhySVYTJ+p0bZs
BcUJLe/hgGWwjXs46CHRDnSFGrx1VCuwuuZ/nW+4A3xFJJbeGazAlNxL18my
LiCECxlWZa7Ay6lrDPGdPaBW1jcVurkCaOz5jDHLV+AJVX3WZvgXPr4/3fLb
kgivBsOlJrL+wtmztcOFsX2wq/tsSnTzL9QavlSRmPwG4+s6/MoGq1B9OYml
yWwAEhTu7XYWr8JC+o/hpYPvcOm21e1XnGsQGTL25OnQEKT1zt2Ocl0DI3Kz
5eHQYTgf/szToW8N6rGHj0NujwJ1MlZxUWEdnlvcdBzzIN0b9mLTb6/XIVpb
InxgegI45ZT3aPn+AZf5hxQkPQnmpqlP4kL/QfQYWfTjO1Pg/qF6THTjH7D8
5r2SUT0NB+NbGSkOGxAqcosrVnEWimlKce2LG0AWUJ1jSDonn799y27x3ATl
+kGPnbo5eLJwkNuG3YIpwbDUP8PzkFIsbqNYuAWLw704HqUlGKE3ueWrvA0v
amaw2fIrkLQgvuwztA1e7ol/lF3/Qnu2o4xzwA44Eu/JmBJXQZbtj0SjzC4k
uWAb96+uQzmZ91mGrV3omafnH2TdgNrnlfbcnXvAcuTTVW6yLSDO9M1vfdiH
5JRkH3PRHbj3sVwCf/8ALse6WV9ZJ8U5+iBZWPYQVr8b64b+2ofzI30Z1r8O
wYjlOo3760MQdMJgwg3IkHrVI+x4PRlK91TBzpeQIZpPa0KWdeTo5HoVrwwf
OSLA7jpbDwX6iyZ3y5+So9UYsFCbP4LML96PbDtCgSrwV2oS2DDIZGeohMaO
Anne/7oYxEKFvh/PH6Tsp0CBFdeL2dio0T2/9Qd9qkcQZ72S5z4nDdLLR72+
FUdQ8iUzoqkALVo9tjW7L0WJVl+XRGQL0qHJmNJ3Z4spURmRDVfDT4/M/GzU
aewwyMauU9TCHoto5AUltEh+IPJfdSfJSt3fOSJIZt3e1lJwwKI+2WCyDpJJ
8yPmkPz2zol5+nsYNDoHxqz3sSjTuHFAl+Tt/op+P5Kzo+aLuklOGahsMnHE
ojOX/z7Rt8cgK6+/2ZJOWMSg3+9AJHln3dSJ1hmLxAXl6GedMWhAsinB9wEW
/UulEtv1wKBo4ayiP4FYJIKhaGN5iEEiKicL9SOwKGJnclY0EINKxBJ9i+JI
8c5NStmXYFCi7wmN1mks2r61I6P8G4NCHkel1EkzoOTNEEIqDxUKiLOrMfBn
QMcmy0MfGFAhlu9uYf+1MCDRtanc/lAqlDo2PstKz4hsIl10ZLeo0EMq6mCT
SEYUpq59Uv8eNUqexx4J32BEj2SaeYxaqNGNxXCDLUUm9PMblgIrRIM6hK9m
0DsxIcwwrZFWIA1y8OaZZU5kQvTB7zuGx2jQ98RWvYg8JtTtXHAQq0SLRHOr
nU+/Y0Ij1fxdi4W0SGg72aE1lQnphP/F/xCgQ12pVyWTHZmQhnJoy0EsHeJt
6E33OsWE7IX8Uqkp6NFzOjKpCiIjsi4Qqcpxokd0/MurVFaMyNtedTtmlB65
93aOmE8yoPakr2Nq17AomYYq/Z4MA8It2kgt9GORlWLXbxZXLMpxkC5QuMiA
tmbea8tk0aPLJV/s12sZkHzPW8r0JjrEVGtotCrJiMQ1N7dmJkjzrB0h4l8w
Iq/QD026mzSIfnDfzRjDhOopr3wuo6dBwskPN9XSmZDhTaUmoQwqtMt3o2ET
z4xGzhBHcecwqC/pxUT3NWZkUh6r2frrCPr6vPTntTRm5D38vKY4mwKdDU06
NjzAjIwpvETbXMjR55te8U8ZWVBgzunNuStk6M554+jS8yyoYrKMWyX1AHSr
LqQnuLKgTLklo/6iPThakX2m+x0LcorXFfnkvAPBfnjRsCkWhE/VOnXLfgvu
B5afkGJnRbPB56s+p25Aop7kEbkLrOiM3tZMzuY6nKY+N77qwIoiUZ6tlN8a
fJr+PFKeyIo2Ir/F94mukv6zod/ESlbUrSN/03pjBTa2zV4FjbKiEjcF7tu1
y/BjVHFphxKHRhV1+ZrNF0GoW/R6hCgO+QW9Kr+gPA/80kwlgTo4pNIZ6Thq
Ogdn2NJ3he/h0BNNG59fOb/AZ72dsSwch7abYwUG+WbB+kvats0rHCJi1le5
a6ahxOsOr3UNDl1gduxY9puCin3nEz8GcOiVlLAsMp8EkywKu0eUbGidSfsv
3fUJ+GR9KtZUnA11Gm1t0twchabeViWBy2zoRuNc/EjkD7hTqmfm5cqGohOM
JDoFB+FQ6dPf8Vg2JPdRftiadQDUXSJMat6xodLpE7hhjW+gkVFgd7eFDV3a
Pi3cU0YExfWNCKFxNuTi/1bkoelXQOO88eL/2NCnshxKtmO90DVSzl9Ky46+
fBrpTObphrKJVIMZHnaURBFwkV6yE3Z0Cw6x0uxovDVB/z5rO6jpGlkkarCj
Xpcq7bEzrZBU161QdJUdeaS+CNiPboaNsMjSR/bsaM7xzDNnQhPEH9shnvFl
Rz/OSho6tjZAANdw+NQTdrTMzrxwO7UeZoLT3+SmsaPQgzfJHx/XwT3ZP3GJ
eezoZy9dTFhcLWD3Vj5FfmZHQrjpUJfsGvgR48PH082Oqg2vM15z+gxsGtJP
nMfYUfzsPGHVrxJWqd/OFy2yI/9KF/O1xnJYeUuW92+XHQ10O7LgFMuguaC6
4jotB5LiJO948r0UROYf3Ntl50D8WzJMPcklcCwijWrmKAda9bR6fNbjI7zk
ogIWKQ60NO0y+uqwGJJOCCkwqnCgHAuKeNqy9zC2CDpkehzI+yy5UoFoEcxt
561grnOgljLmw93j72AgFLMmf5cDxbW9UdEwK4BnnUmXilw5kOdClc/LqjwY
ai+d8vEj5WtQy/ZVfwOnO2QoisI50Ep6O95/PRemwz9T1CRxIPdjYjIb8jkw
Wb36uDGbA9GtPM91LMmGjy9wzyaLOFBCTr9TlXkWdAyarktVcSCfoLQbT8Uz
IYyIU+xs4kBbJ3Qe0PBlgH++Vm5dDwdqfH+15ZvRS3DJGPwkOMSBqrLS36S8
eA7EdMxrskkO5NURlLDIlAapYtYFBkscKArXXatKkQKNL+mnKrY5ENm6QlOg
bDKoqvE1XKHEI1te+na/zESQtGBmOMeIR0qFvXK2igkQnHSm8REej6iIWtKS
O3GQNhX+W1EAjypfu0RyD8fCmHExlfMJPHrNpBvgNxgDPFFGb6Qk8Yh+Yclx
byQa9m1EhJjO4hEt594zyftPYbPp7QleNTzpHWcnN78UCfhz/Qoel/BI0Svk
xrbjY3jO2JP0nwkezbRrD5m1hkH+7BL3tZt4ND4/4r19KRQCFL4sUt8h9S9X
d27uBcOCge3e+fukfGPB3hWdj4CaZ8gW745HRPGGqMyKIAhRunK53A+P0uXX
vjhoBQLfh0PpzDA8svc4wuhGEwBSdPcY5qLx6MNRkRTKUV+Q2VfcykrGoyFb
uRC9Pz5wtmN6e+wlHjUyMkWES3jDRBhrZn4OHgUQBo85ZnoBLR2PH8tbPGIJ
+XDqopInKBGvBvB+wKO55aN8GdvucFJIqr+4klQfvkr9+xpuENrjGZBZj0fO
uFrLmC4XUNEh6JG345E8bfQbgSBnkFW76DvZi0d0oSO8N82dIJyX18vwOx6t
XHEQ1PlwH+QqMu5bjOLRub8LkTQ/7UHNnViLm8Ijfyu3rjXle7AEfFc8fuOR
+TYDrW+TLahG/3ggvEIaj3cMOtJyB/IDbnWd38QjDfYSMX96Gzhxp0pibB+P
fkqH1FOHWUGizWk5GkoC4lbsfXBZ8jaMWzAuddESULNjSiSGzBL85Sn1FJkI
aD2h01B5xQJuphu9N2YjIIdl6lyXrZsgGOjKcpKTgAZqTxkJohtAbP2kwy1A
QNrrMaotc9eArtXkXqgwAf1ca+v5PGkG5MKNqb6nCEg1g2unhscU0is6yJmk
CChZbj6q5IkxKL7/Za8uR0Anr9anjYheAYGVtjZxJQK6rRcXp7BoCA53KkO6
EAFVsyvoCX+9DC85yAZOqRHQ6RfhK9RfDWD+naWDvw4BjRp+eW3oqg+eC6rt
ZgYEZISm8mbDLwHr0OuEDmMC+sLCxd7kqQvcZjKFP6+R8k+zf2fI1YaiZOHu
XAsCCs3qYLhBqwVsmqvrgtYEFIVXrXNM0QDLkIQGC1sC8hcis32mpw7c327V
3HYgIDO76bd2wmrg14+3OetKQCHMMsYtURcgb3FfINeLgBQZc79qSpwHYqT4
+Q++BHS8ecKgawdBqozbk3tBBGSiHJdLNgTQujzXMBxKQOTua+o+O+egJSOQ
kz6SgFaKjfs19JUA03XgQxZNQG1SPJeeEhWBar68vy6OgOwYWE7NeysAtfyz
62rPCIjPZ+hkbKYcnCymoLd5QUBvFzp1GGllIYutkO50FgFVCtw5fiNHBg6P
ah4vziWgdJola2UHacif+6C7nE9Aprd/9ziZSYEY7tLhaiEBaV4duChndRom
bGXj6z+Q6js0qbkRLgnj3aGOtz8RkOjDlN8/w/4DR+4vXE1VBNTeoi2cekcc
jpU9i+iqJZ2nLYXK0viTkLNxaiW8iYAY6rjT9/dFIfRigQZ5O6k+FxVTQ9NO
AG5aflC5m4BUJoI5O2+LgIl/fawmkdQffbqSRV8YxI0lDIUGCOjEhSdSa1eP
A8e7XP7vQwT0n++LaFyAEFDxUF+9M05Al2M7j1AYCoLG4j9M/jQBvWag7Gky
PAa2RoGf8+dI+y0qWEXrfRSkvbyxrksE9PCkRZnzFwF4HPVwjW6NVM9X05os
/ALQVvpO9sEmAbmLcBVxivGD3n8yOQ27BGRbNMpdqMQHUtED2suHBBQ9nn2B
wpkX9tLect3GcKL+qaUIj6c88LxsJPU9HSdSmBzJKRrkhv8DUo/fHA==
                    "]}, {Automatic}]}}]], 1]], $CellContext`rho[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 2000.}}, {
                    3, 11, 1, {380}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwt1gk01F8bB3Ai0YQWFVoUUbYkydjyCNWgiJI9ki2EIiWDsWWJmTtjS6RU
0ipRWaPUv4QkaVD6y06UUMrW+3jfd875zeec53fP3N89z/1976w/4mvhOo+H
h4cXr5C5r/9/pI50LB1/WqP3P1v1Ck/ayRkKUYD4KPds8JGA8GOphsuzN8Fq
URNKncFW+N1vHCBMpUJHRffn4jtUeMUOpR1drwkF7uJFoqmacEHnwdqyhVoQ
scQ0zi1MCyzKwhwrPLRBxrVQTcxCB8ZF+gS9tHUhqSXwnruSAeTIn26RKNsN
j4KD59XRTKHHdccKPW9zMJ0Vajd1twbb2sH9yqpOoO5c6tvt5wKLJ+ISL953
g6HzNrctRjzhpbR8jdAWH9jBaV1q5OcH4ilr9aP3nIDRVBffF+sCoC49L2v+
n0DIzRiuNWoMAnOFdqNUgWCYKqmr7NUOgeu0ck0N/1DIG2puNbAMB3pR/Yoh
HwZYhLywTI6NABp7fYX28UiAPLpcl2UUaDxpZcZrRsO6hC/tvhPRIGg9oHjw
YQyMbPhxRuvkOTDprXwfuTgWcm8kqdTfjQVeT4f4FSZxUPbFWIRdHwenbKls
YfN4UG2SXRH3Lh5mR5I/fd+RAHUi/FetbidAhtJJz4qV58FUTiNg2P88zEpN
ha6pOw8FEpVxe+US4ZyKZM4J/0RwNAosTStPBHW7t+/KFyQBxV/x6xeLJPhH
NuJJdWISRLS1kOuvkkCXqeJ6jo8Jk8UdQVHbmPC4k8QzXJkQsMggKzSVCarb
x/PPvmRCZ4qQAN83JtQEi242WsiCKwqSrbFrWHCmbUNU3RYW7DTm/zSkx4KF
pV1qwmYseCdfnaDsyIKLF3K69vqwQMJAo1b9DAvShmofrIlmwfJUp4z5hAUc
vZ+M4UwWFDoGXbLMZUET/U9pST4LxjPPcqVKWCBWPjMW/YwFO8rGZCZqWOBe
OmDp0cgCUvJvZGsLC0qLmwuNO1hAq7d/qdbLgpYvXW2rh3Dcr2Pf5o+yYGLh
KO/3CRZseaSgf22aBZ7OLuE2vARyFmVWiggQ+PT4/Wz1QgLfujd1xogQ+LuE
/oK2lMASvca8RSsIyHjLnm+QIHD4E2V502oCGaajWR+kCDSXt8i1SeM45cr8
dlkCebq0YtomAnr7mqoeKhDgOjrUrFcmcNy3rzFRhYD2EsFkhioBocJNVoFq
eP8ATdxTncC1X55t9hoEShff/HeESqBRob87SotAn+HGQXEdAjOObt/v6BK4
tZGTOL6DwKGRSkUdIMBfMlQTqU+ggCHhUbsT13Gf0dtsQGBBx8DRDkMCqqIW
XYNGBOx3lDr/3EXgdcrNj292E6AOpx/M20Mg1zC2gUEjIJYZRLMzJjDeX+Qg
bEKgSX3UvxItjFCJ8TclwG7wzpDZS+CM3uWxh+jh/CbTPfsIGEktyG1DFZla
f73NCLx0snzSgx7d6k13NCfAwx+tw0WzmrOmzPYTiJXaQilCT3o+kxS3IOBY
eEAhBDWe6dXsQD0shplqlgRiboz1xKDXp/9ot6HV+3nYygcIdOYK9Ieje6dm
LlWjJWY/DwocJCB7bWgRDWX97qpOQKdNPwa/QUcGv3jyWxHoiu231kK5ct93
+6Gvn//cnos+OTIt+wm1VjfKFTxEYHRBkpw6er7tQ64zuvGu1MYk9GmYx41S
1M6iYGMf+nPD5I1l1gQ+fPRjUNFH7D5bBzSN5rgtAg3iaRa+gR56bNJXi1KP
P6saQcVlNTOW22C/bH7tUkVpSYVjpqhhmvusC6p3eZXQWVTrZsMyNqr+IHLt
TXRLmYZ8Far4/KsaF135wUN+EJ3X37N2Bv3254jYYlsCrZQOIRn0xRqHv+po
gUrb+B70vfdnpgvKzuS5MKd5nXTOnCLThrfnrFN0L5oz3i6uYk6BsvqGORmS
SzvnnDljNT5n07Z5t4+ied/vOruiobdsxN3QA67zG+a8U1D6wwfln/UVC0Tt
jWU1QtCi1DabSFS4ixkSj7qekw+4gFYoVnvlofK7zPWL0GSn9hVV6N/gY0O1
qFfKxFMu+iE/Kq0LnR28SBlF5eQKw3jsCOxzfj0mgp7K/OK+Bs3m/v6oiL5c
uthcC72tP2lpgrL8ug/ZowHZb+x8UJs3xYdDUd2ZHBcmKq2U6H4ZFbAL8ipA
nWTb3tSiJd91tvaiS0uzU3jsCXhHzfsjib7Y52qvjq6VeFVphp7uUpA5hjbe
TYyJQhN7rKxzUdqadQqvUP6DA1MDaNX5B/UUBwIhz89mK6PUaUN/M3RMTcTA
H8334opx0Hd5Vf7l6M+em296UHEZjqKoI+aHU0gsFXXMcu1xRhlt+3YmoNdW
UrOL0JcH1k+3o/dW25psPUwgtZudEYPS79QOtKFHA/g1VZwImOroxkaiavyn
uFxUsu6enJIz7qfkvsBwdMBu3Yv36FsZGzH5IwSKvxIXOnqf5PP2ojc16rP3
uRC40j6o+xjNiBT8JHWUAEdeLjgWTWgwEP+BRgU6P7JxxfWuCjvwDOWxfnfb
1g3rybJ8Y6hg42nbBHd834TrCmQ8CCw2lhIqR5NjTjgd8MR1V794PIRm/hUX
jT5GwIy+2fSIFz7nlEGcnjeBh6dt/lntg7nx6zjfJLoqIAq4xwnU/7hAL/Il
EO6bX0r8cJ3DzyeO++M+4puWengC+yWptmfqJI5XPeanH4g5sPtK+rlT2HfH
lqr6IAJ8gaIDy85gPibsWmIbTGBPDl3z8lnsF6dCLJpOYFPUzHfPMHy+QN3a
fQzMWzd6rlokgQmrCoZ4NOb27hn7mRjMG6outTMW+yJPX/YyHvtaYs3MSiTQ
TttGCWAR6G8VPWfMwf57fp23PhX3959/QifS8XyIz5msv4i5LBl66tolAlK3
bEaDrxDQFJReX32dgKXboBnlFp4rzx+EWt7DXJU+e/fiAzzPwg0+dT0iUP6Z
QlEqw/l13msGVBL4kZHpUV5NQD/24UHd1/g+BL7Z+eQtgY4jfSp6XMwXc541
Ve0EwnQlFup3E2hQ2DrxdBDnFTfp3vkD55l/tLF6gkDNt1MBRbxskGmJW3md
wobQp5mlKcvZ0HIr3yFGig1bk5/xBMmzIZHefNVdjQ19bv27rHXZsNN8amDP
bjYM+dfcIVZsSOOk+ba5Yv2h61aZQDYMf1D76RWF9d+8xUUcrEu+DZ7Jwbr2
Jd1dD7Du4M3DfMoGh5VNvGqtbJBu1OTjjuDvx1/mPyvIgbuGCwSk1nHgxKzP
gmoNDmgUvxd0N+PAjL/2Qoo7B54p5lDyQzmQ4rhh/qmrHPAkubM6rzig83zT
b75hDohO3PrxekkydMorfyXbk+GRfX63tV0yxDFVP0uFJ4P9s0Ju77VkiJ9Q
jfD7nAyPle4rTa5MgR7nzdzI/SmwNO0OQzghBaBOQSnteQr48N78sG42BS5u
38i4pZEKr7yuK27zT4Wdm9NOFtemQvlIbJmOXBpsLwzmexqeBvcDvU2MPqaB
AtWRU6OeDtcmzT7uZaXD2gp9mXeD6ZAepuZlZXQBID2umvH+Agzc/3fVXZcM
IDXqAS2jGaDVmVDHF3EROie/bFBZkgnxy6h028uZoKaU1BytkgUfDbuVC55k
wXHp0VTrsEvw3z/1kA3/AQ6jhSA=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwV04FGIAgABNAuSZIkSZJ0SZIkSZIkSZIkSZIkSZJ0SZJ0yVpJkiRJkiRJ
kiRJkiRJkiRJkiRJkiTJWmtfw5svmPm38b/K9n8CAgL+/y4JJIhgQggljHAi
iCSKaGKIJY54EkgkiWRSSCWNdDLIJItscsglj3wKKKSIYkoopYxyKqikimpq
qKWOehpopIlmWmiljXY66KSLbnropY9+BvjBTwYZYpgRRhljnAkmmWKaGWaZ
Y54FFllimRVWWWOdDTbZYpsddtljnwMOOeKYE04545wLLrnimhtuueOeBx55
4pkXXnnjnQ8++eIXv/lDgA0EEkQwIYQSRjgRRBJFNDHEEkc8CSSSRDIppJJG
OhlkkkU2OeSSRz4FFFJEMSWUUkY5FVRSRTU11FJHPQ000kQzLbTSxvfIO+ik
i2566KWPfgb4wU8GGWKYEUYZY5wJJplimhlmmWOeBRZZYpkVVlljnQ022WKb
HXbZY58DDjnimBNOOeOcCy654pobbrnjngceeeKZF155450PPvniF7/5w/f5
AwkimBBCCSOcCCKJIpoYYokjngQSSSKZFFJJI50MMskimxxyySOfAgopopgS
SimjnAoqqaKaGmqpo54GGmmimRZaaaOdDjrpopseeumjnwF+8JNBhhhmhFHG
GGeCSaaYZoZZ5phngUWWWGaFVdZYZ4NNtthmh1322OeAQ4445oRTzjjngkuu
uOaGW+6454FHnnjmhVfeeOeDT774C897vzg=
                    "], CompressedData["
1:eJw91Xc8Fd77AHDkmte8uNdWRBQfISt5jrIpREalJBSRPSIzK8oeobKiUKTI
iuy9uiIys0pmyB6/+/3nd/57v87rPM85z1lHLR0vW5OTkZFtUZD9f2PhT04a
9OaCgjNEYS/9f8oB+QVv/ufBvFwlL30M/NWdG/ufrzh+Cbe4KQtULaJBCyS7
iWv036NTAxGzHGZ+Hy74MUaIZrcwAvF/busTJAfJqlsanb0BvI87X/D5csHF
k3lKMfRWEDb8+NSgHxe8jTwbLmZvBau36tgOSb6ffcmqqdMK+KlxZcL+XJCL
fdxnIW4NLf+CcXokF3jGDu49tQZJLV4xL5IDChg9UpasIUZhcieTZB6T2bm+
Ihu4qNfUvklyYS7bD2bnOxDJkvlIP4AL1BOJ1/Sl7sLdf/nH35L8427KE7sv
jiBhndA0EcwFNIGBBSu5rqCd9SpBIYK0Pifq6SOOnuDfOdxfFsMFknYj/QR5
HwhSj2E1f8YF82smf+TOB4Ofco+l8WcuEDD+8EJ8LQLm9GfV/y1xgc/HhZnT
8jEwh2wqrQS5waFuPu71XhwIu2B3jS254VhNjQVTayJIeFS2XXzLDRUqly2j
057B2HqU0ww5D2BknKjDRtLAfOmOCr8LDzRHKH2zPZkOxoNlXVFrPPC0mmVQ
SC0TAiTjM6rCeKHiPuFnyX4WCPWH0/lI8oGLzZurr2pfgcdzA+fDZT64mKfT
T7OQC3M/yImLG/wQ9Y1ydFcsD+qpbCUW4wWAU8qIIT2gAEzXbsb+VD0Kb/dx
31+uvAPcidCsBtZjsJ1+0P0W3gPui5Od6hFBcP5wrZo2pRgmHDVOtfMKwWHf
rjS+7gNEautIzp84DmTrOqlntz/C8M1/ufvXhUHYUn3i4EIphLdfFO2oFwFx
H/vJautPcKFm95guQRSUau83uTwrg72CP+5UGWKgncLNWDRWDi9nl3q6rE5B
Y//F8V/7FdB56Rhg2CSgfMvVZkCiClzpwnDRZJLw2aw8itPtM+TNjGeV8JwG
rQcjolnx1XBcYFyKcFIKKHlYnsc11cBX29mw/JvS8D7ncY0uVS0cGidrp9TL
gJhHvb5hci3g4AXnBTZZiE6K1pk+XQeav6z1GBLloPDKeMDN73VQUfPpGpme
ArRwfzsdY1cPFyQbyYPWFIHyUcxeJnUDVHukCIsQlQC/2N+wX9QAidjlPMVN
ZSgK6D/Dp94IfmSFi4sBCEL2VS28ZhshRVToElu+ChxtvvnRL64JzM/MjSce
nIfXa0G86zrNkCmTzXQqXBXuXj/nyvC7GSRnadK/zqmBj4fGkYOoFji7Ua71
xUcDUuYZy3TPt8JCuOETek0tWLUWsVecbIUJsVtr1XvaYNBEpar1tA3eOKB4
8wVdMK/pq8eotUO0xuhxVkE9SHS6QWNA3wEmTOMqaFAfboib6u196IB3CxqS
SgcGoBx3odjRphNSeIYfF+kYghB8fKMr0gUabp8oiluNIJpRXfrpZhc4xSyK
5/gbw1dZZRq7193A7Ml8Po3WFJKzhdvyb/dAsElf4XaLGRy1zzxFju+FF10U
jhZN14DDZ8ESgntBV2OmzZ7pBhyXvx1aPtELybMbFoeMFpCauCZdeuEr8Enh
Vjblb4FqPfELvvAr9DlMZcU/sYR64bwbfwWIIMMejkpYrWBzQXjvfhAR3tcs
t/Y4W8O0Rh1vyx8iyBWxalQc2IBVxEfvmat9YBFt+uRR/V1YCo/CzPb1gckv
FXxNqx2Q8z0NmVb8BsdV8/0W0+yBwzX1EVfeN7jiIDDrUXAfmBVEC335+2G+
lr84MdAJbqlXmZ9J74d27lUp6iFn+E3pTn0GOwCabxjfiTG5gpuEU15PwAA0
BeHVduzdoCGlJwJzMADcjwoiBHfcQavd7ShdyHcwR14/LWo9oXPUBBO79R0e
XtcNP3/tAQQb4mx53Qbh0hI/j6SYD7y3lh6p3BqExMumoXxyvjCllVeRFzYE
nGUEl6wof/iiyV2mRvEDXM2FzOYHAuDdFVkHs5AfsCFFdyeZJgi6mpXc9liG
gV12tqrZ8hEY8eXPPswbhrOF4ZXJi8HARFHS33RyBDJ/8hsuGYbCV7aPJ8jL
RmC6PUC2bTYMpo49NDLUHYVbe5bV3oWPoc09R5BzcRSGuEakvEoj4ZrJIvro
OQYen14c6j99Cr4bSs0N9OOgOKB5Wz49Ghp3eVce5o/DfwGrNus7MfD1InlW
jtgEtGUIa9vpxYGACVC4u03Aat+ZFN+QeBgIcu9Rb5iA5aDu09d+JkDfhG50
Ff4nXHZTUvhjmwTdZjsbsS4/YUP8T0GHyDPA5sSVqNf9hIXSo6vPa1Kgy+Hu
pjb7JLAK8dlHhqaBiju1iobjJHClIkX38BdwM/nErSO9k3C1UcLzbk86eKtm
bdELTQG4v1sRXM0AzEe2kTLfKdhnXLR25skC5hZVqfLRKWhXaTLQtc8GuXM1
r8ZUp8Gp1SS2+fcr2M4aKS97OQ2cmlRlSC0XWl95x0QfTAODs9AIpuM1mLiu
VApYzwBGQ+LAPDAPuhznkjX6ZoD52IqIvnMBiE8mPPSXnoVp7fVtf/l38NHE
N4ErdRbet/wjHD1TBMyEjapR6l9AbfLjukr5exCKH6Yt9v0F5loLKbjdYkAL
8cEL079g8cWYBZ3QR2g44qSyc/k3hP6NDnjqWALGynQP8lt/Q6bknxtRU6Vw
uCootqo+Bz1JDuoWYWUwNrZ3sFo6B43SaZQRdBVQ7D25qnLqD+AobdiMKyuB
ypVtqir/DxSKZLmZvvwMS9VywlZS87C5yj828aUGOpqr7rLmz4NIRamN9PVa
qNNev5cqugC9IW/sNN3rIMLIRvNX8QJgK5T3Kd7XQ52elitWdRGO+1Gz6rI2
wsnjAarBTYtw9DNFBtW1JmCFZ9buekvAMJGH22lthpEhXcnhySVYTJ+p0bZs
BcUJLe/hgGWwjXs46CHRDnSFGrx1VCuwuuZ/nW+4A3xFJJbeGazAlNxL18my
LiCECxlWZa7Ay6lrDPGdPaBW1jcVurkCaOz5jDHLV+AJVX3WZvgXPr4/3fLb
kgivBsOlJrL+wtmztcOFsX2wq/tsSnTzL9QavlSRmPwG4+s6/MoGq1B9OYml
yWwAEhTu7XYWr8JC+o/hpYPvcOm21e1XnGsQGTL25OnQEKT1zt2Ocl0DI3Kz
5eHQYTgf/szToW8N6rGHj0NujwJ1MlZxUWEdnlvcdBzzIN0b9mLTb6/XIVpb
InxgegI45ZT3aPn+AZf5hxQkPQnmpqlP4kL/QfQYWfTjO1Pg/qF6THTjH7D8
5r2SUT0NB+NbGSkOGxAqcosrVnEWimlKce2LG0AWUJ1jSDonn799y27x3ATl
+kGPnbo5eLJwkNuG3YIpwbDUP8PzkFIsbqNYuAWLw704HqUlGKE3ueWrvA0v
amaw2fIrkLQgvuwztA1e7ol/lF3/Qnu2o4xzwA44Eu/JmBJXQZbtj0SjzC4k
uWAb96+uQzmZ91mGrV3omafnH2TdgNrnlfbcnXvAcuTTVW6yLSDO9M1vfdiH
5JRkH3PRHbj3sVwCf/8ALse6WV9ZJ8U5+iBZWPYQVr8b64b+2ofzI30Z1r8O
wYjlOo3760MQdMJgwg3IkHrVI+x4PRlK91TBzpeQIZpPa0KWdeTo5HoVrwwf
OSLA7jpbDwX6iyZ3y5+So9UYsFCbP4LML96PbDtCgSrwV2oS2DDIZGeohMaO
Anne/7oYxEKFvh/PH6Tsp0CBFdeL2dio0T2/9Qd9qkcQZ72S5z4nDdLLR72+
FUdQ8iUzoqkALVo9tjW7L0WJVl+XRGQL0qHJmNJ3Z4spURmRDVfDT4/M/GzU
aewwyMauU9TCHoto5AUltEh+IPJfdSfJSt3fOSJIZt3e1lJwwKI+2WCyDpJJ
8yPmkPz2zol5+nsYNDoHxqz3sSjTuHFAl+Tt/op+P5Kzo+aLuklOGahsMnHE
ojOX/z7Rt8cgK6+/2ZJOWMSg3+9AJHln3dSJ1hmLxAXl6GedMWhAsinB9wEW
/UulEtv1wKBo4ayiP4FYJIKhaGN5iEEiKicL9SOwKGJnclY0EINKxBJ9i+JI
8c5NStmXYFCi7wmN1mks2r61I6P8G4NCHkel1EkzoOTNEEIqDxUKiLOrMfBn
QMcmy0MfGFAhlu9uYf+1MCDRtanc/lAqlDo2PstKz4hsIl10ZLeo0EMq6mCT
SEYUpq59Uv8eNUqexx4J32BEj2SaeYxaqNGNxXCDLUUm9PMblgIrRIM6hK9m
0DsxIcwwrZFWIA1y8OaZZU5kQvTB7zuGx2jQ98RWvYg8JtTtXHAQq0SLRHOr
nU+/Y0Ij1fxdi4W0SGg72aE1lQnphP/F/xCgQ12pVyWTHZmQhnJoy0EsHeJt
6E33OsWE7IX8Uqkp6NFzOjKpCiIjsi4Qqcpxokd0/MurVFaMyNtedTtmlB65
93aOmE8yoPakr2Nq17AomYYq/Z4MA8It2kgt9GORlWLXbxZXLMpxkC5QuMiA
tmbea8tk0aPLJV/s12sZkHzPW8r0JjrEVGtotCrJiMQ1N7dmJkjzrB0h4l8w
Iq/QD026mzSIfnDfzRjDhOopr3wuo6dBwskPN9XSmZDhTaUmoQwqtMt3o2ET
z4xGzhBHcecwqC/pxUT3NWZkUh6r2frrCPr6vPTntTRm5D38vKY4mwKdDU06
NjzAjIwpvETbXMjR55te8U8ZWVBgzunNuStk6M554+jS8yyoYrKMWyX1AHSr
LqQnuLKgTLklo/6iPThakX2m+x0LcorXFfnkvAPBfnjRsCkWhE/VOnXLfgvu
B5afkGJnRbPB56s+p25Aop7kEbkLrOiM3tZMzuY6nKY+N77qwIoiUZ6tlN8a
fJr+PFKeyIo2Ir/F94mukv6zod/ESlbUrSN/03pjBTa2zV4FjbKiEjcF7tu1
y/BjVHFphxKHRhV1+ZrNF0GoW/R6hCgO+QW9Kr+gPA/80kwlgTo4pNIZ6Thq
Ogdn2NJ3he/h0BNNG59fOb/AZ72dsSwch7abYwUG+WbB+kvats0rHCJi1le5
a6ahxOsOr3UNDl1gduxY9puCin3nEz8GcOiVlLAsMp8EkywKu0eUbGidSfsv
3fUJ+GR9KtZUnA11Gm1t0twchabeViWBy2zoRuNc/EjkD7hTqmfm5cqGohOM
JDoFB+FQ6dPf8Vg2JPdRftiadQDUXSJMat6xodLpE7hhjW+gkVFgd7eFDV3a
Pi3cU0YExfWNCKFxNuTi/1bkoelXQOO88eL/2NCnshxKtmO90DVSzl9Ky46+
fBrpTObphrKJVIMZHnaURBFwkV6yE3Z0Cw6x0uxovDVB/z5rO6jpGlkkarCj
Xpcq7bEzrZBU161QdJUdeaS+CNiPboaNsMjSR/bsaM7xzDNnQhPEH9shnvFl
Rz/OSho6tjZAANdw+NQTdrTMzrxwO7UeZoLT3+SmsaPQgzfJHx/XwT3ZP3GJ
eezoZy9dTFhcLWD3Vj5FfmZHQrjpUJfsGvgR48PH082Oqg2vM15z+gxsGtJP
nMfYUfzsPGHVrxJWqd/OFy2yI/9KF/O1xnJYeUuW92+XHQ10O7LgFMuguaC6
4jotB5LiJO948r0UROYf3Ntl50D8WzJMPcklcCwijWrmKAda9bR6fNbjI7zk
ogIWKQ60NO0y+uqwGJJOCCkwqnCgHAuKeNqy9zC2CDpkehzI+yy5UoFoEcxt
561grnOgljLmw93j72AgFLMmf5cDxbW9UdEwK4BnnUmXilw5kOdClc/LqjwY
ai+d8vEj5WtQy/ZVfwOnO2QoisI50Ep6O95/PRemwz9T1CRxIPdjYjIb8jkw
Wb36uDGbA9GtPM91LMmGjy9wzyaLOFBCTr9TlXkWdAyarktVcSCfoLQbT8Uz
IYyIU+xs4kBbJ3Qe0PBlgH++Vm5dDwdqfH+15ZvRS3DJGPwkOMSBqrLS36S8
eA7EdMxrskkO5NURlLDIlAapYtYFBkscKArXXatKkQKNL+mnKrY5ENm6QlOg
bDKoqvE1XKHEI1te+na/zESQtGBmOMeIR0qFvXK2igkQnHSm8REej6iIWtKS
O3GQNhX+W1EAjypfu0RyD8fCmHExlfMJPHrNpBvgNxgDPFFGb6Qk8Yh+Yclx
byQa9m1EhJjO4hEt594zyftPYbPp7QleNTzpHWcnN78UCfhz/Qoel/BI0Svk
xrbjY3jO2JP0nwkezbRrD5m1hkH+7BL3tZt4ND4/4r19KRQCFL4sUt8h9S9X
d27uBcOCge3e+fukfGPB3hWdj4CaZ8gW745HRPGGqMyKIAhRunK53A+P0uXX
vjhoBQLfh0PpzDA8svc4wuhGEwBSdPcY5qLx6MNRkRTKUV+Q2VfcykrGoyFb
uRC9Pz5wtmN6e+wlHjUyMkWES3jDRBhrZn4OHgUQBo85ZnoBLR2PH8tbPGIJ
+XDqopInKBGvBvB+wKO55aN8GdvucFJIqr+4klQfvkr9+xpuENrjGZBZj0fO
uFrLmC4XUNEh6JG345E8bfQbgSBnkFW76DvZi0d0oSO8N82dIJyX18vwOx6t
XHEQ1PlwH+QqMu5bjOLRub8LkTQ/7UHNnViLm8Ijfyu3rjXle7AEfFc8fuOR
+TYDrW+TLahG/3ggvEIaj3cMOtJyB/IDbnWd38QjDfYSMX96Gzhxp0pibB+P
fkqH1FOHWUGizWk5GkoC4lbsfXBZ8jaMWzAuddESULNjSiSGzBL85Sn1FJkI
aD2h01B5xQJuphu9N2YjIIdl6lyXrZsgGOjKcpKTgAZqTxkJohtAbP2kwy1A
QNrrMaotc9eArtXkXqgwAf1ca+v5PGkG5MKNqb6nCEg1g2unhscU0is6yJmk
CChZbj6q5IkxKL7/Za8uR0Anr9anjYheAYGVtjZxJQK6rRcXp7BoCA53KkO6
EAFVsyvoCX+9DC85yAZOqRHQ6RfhK9RfDWD+naWDvw4BjRp+eW3oqg+eC6rt
ZgYEZISm8mbDLwHr0OuEDmMC+sLCxd7kqQvcZjKFP6+R8k+zf2fI1YaiZOHu
XAsCCs3qYLhBqwVsmqvrgtYEFIVXrXNM0QDLkIQGC1sC8hcis32mpw7c327V
3HYgIDO76bd2wmrg14+3OetKQCHMMsYtURcgb3FfINeLgBQZc79qSpwHYqT4
+Q++BHS8ecKgawdBqozbk3tBBGSiHJdLNgTQujzXMBxKQOTua+o+O+egJSOQ
kz6SgFaKjfs19JUA03XgQxZNQG1SPJeeEhWBar68vy6OgOwYWE7NeysAtfyz
62rPCIjPZ+hkbKYcnCymoLd5QUBvFzp1GGllIYutkO50FgFVCtw5fiNHBg6P
ah4vziWgdJola2UHacif+6C7nE9Aprd/9ziZSYEY7tLhaiEBaV4duChndRom
bGXj6z+Q6js0qbkRLgnj3aGOtz8RkOjDlN8/w/4DR+4vXE1VBNTeoi2cekcc
jpU9i+iqJZ2nLYXK0viTkLNxaiW8iYAY6rjT9/dFIfRigQZ5O6k+FxVTQ9NO
AG5aflC5m4BUJoI5O2+LgIl/fawmkdQffbqSRV8YxI0lDIUGCOjEhSdSa1eP
A8e7XP7vQwT0n++LaFyAEFDxUF+9M05Al2M7j1AYCoLG4j9M/jQBvWag7Gky
PAa2RoGf8+dI+y0qWEXrfRSkvbyxrksE9PCkRZnzFwF4HPVwjW6NVM9X05os
/ALQVvpO9sEmAbmLcBVxivGD3n8yOQ27BGRbNMpdqMQHUtED2suHBBQ9nn2B
wpkX9tLect3GcKL+qaUIj6c88LxsJPU9HSdSmBzJKRrkhv8DUo/fHA==
                    "]}, {Automatic}]}}]], 1], -0.01, 1, 1, 1, 0] Sin[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 2000.}}, {
                    3, 11, 1, {380}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwt1gk01F8bB3Ai0YQWFVoUUbYkydjyCNWgiJI9ki2EIiWDsWWJmTtjS6RU
0ipRWaPUv4QkaVD6y06UUMrW+3jfd875zeec53fP3N89z/1976w/4mvhOo+H
h4cXr5C5r/9/pI50LB1/WqP3P1v1Ck/ayRkKUYD4KPds8JGA8GOphsuzN8Fq
URNKncFW+N1vHCBMpUJHRffn4jtUeMUOpR1drwkF7uJFoqmacEHnwdqyhVoQ
scQ0zi1MCyzKwhwrPLRBxrVQTcxCB8ZF+gS9tHUhqSXwnruSAeTIn26RKNsN
j4KD59XRTKHHdccKPW9zMJ0Vajd1twbb2sH9yqpOoO5c6tvt5wKLJ+ISL953
g6HzNrctRjzhpbR8jdAWH9jBaV1q5OcH4ilr9aP3nIDRVBffF+sCoC49L2v+
n0DIzRiuNWoMAnOFdqNUgWCYKqmr7NUOgeu0ck0N/1DIG2puNbAMB3pR/Yoh
HwZYhLywTI6NABp7fYX28UiAPLpcl2UUaDxpZcZrRsO6hC/tvhPRIGg9oHjw
YQyMbPhxRuvkOTDprXwfuTgWcm8kqdTfjQVeT4f4FSZxUPbFWIRdHwenbKls
YfN4UG2SXRH3Lh5mR5I/fd+RAHUi/FetbidAhtJJz4qV58FUTiNg2P88zEpN
ha6pOw8FEpVxe+US4ZyKZM4J/0RwNAosTStPBHW7t+/KFyQBxV/x6xeLJPhH
NuJJdWISRLS1kOuvkkCXqeJ6jo8Jk8UdQVHbmPC4k8QzXJkQsMggKzSVCarb
x/PPvmRCZ4qQAN83JtQEi242WsiCKwqSrbFrWHCmbUNU3RYW7DTm/zSkx4KF
pV1qwmYseCdfnaDsyIKLF3K69vqwQMJAo1b9DAvShmofrIlmwfJUp4z5hAUc
vZ+M4UwWFDoGXbLMZUET/U9pST4LxjPPcqVKWCBWPjMW/YwFO8rGZCZqWOBe
OmDp0cgCUvJvZGsLC0qLmwuNO1hAq7d/qdbLgpYvXW2rh3Dcr2Pf5o+yYGLh
KO/3CRZseaSgf22aBZ7OLuE2vARyFmVWiggQ+PT4/Wz1QgLfujd1xogQ+LuE
/oK2lMASvca8RSsIyHjLnm+QIHD4E2V502oCGaajWR+kCDSXt8i1SeM45cr8
dlkCebq0YtomAnr7mqoeKhDgOjrUrFcmcNy3rzFRhYD2EsFkhioBocJNVoFq
eP8ATdxTncC1X55t9hoEShff/HeESqBRob87SotAn+HGQXEdAjOObt/v6BK4
tZGTOL6DwKGRSkUdIMBfMlQTqU+ggCHhUbsT13Gf0dtsQGBBx8DRDkMCqqIW
XYNGBOx3lDr/3EXgdcrNj292E6AOpx/M20Mg1zC2gUEjIJYZRLMzJjDeX+Qg
bEKgSX3UvxItjFCJ8TclwG7wzpDZS+CM3uWxh+jh/CbTPfsIGEktyG1DFZla
f73NCLx0snzSgx7d6k13NCfAwx+tw0WzmrOmzPYTiJXaQilCT3o+kxS3IOBY
eEAhBDWe6dXsQD0shplqlgRiboz1xKDXp/9ot6HV+3nYygcIdOYK9Ieje6dm
LlWjJWY/DwocJCB7bWgRDWX97qpOQKdNPwa/QUcGv3jyWxHoiu231kK5ct93
+6Gvn//cnos+OTIt+wm1VjfKFTxEYHRBkpw6er7tQ64zuvGu1MYk9GmYx41S
1M6iYGMf+nPD5I1l1gQ+fPRjUNFH7D5bBzSN5rgtAg3iaRa+gR56bNJXi1KP
P6saQcVlNTOW22C/bH7tUkVpSYVjpqhhmvusC6p3eZXQWVTrZsMyNqr+IHLt
TXRLmYZ8Far4/KsaF135wUN+EJ3X37N2Bv3254jYYlsCrZQOIRn0xRqHv+po
gUrb+B70vfdnpgvKzuS5MKd5nXTOnCLThrfnrFN0L5oz3i6uYk6BsvqGORmS
SzvnnDljNT5n07Z5t4+ied/vOruiobdsxN3QA67zG+a8U1D6wwfln/UVC0Tt
jWU1QtCi1DabSFS4ixkSj7qekw+4gFYoVnvlofK7zPWL0GSn9hVV6N/gY0O1
qFfKxFMu+iE/Kq0LnR28SBlF5eQKw3jsCOxzfj0mgp7K/OK+Bs3m/v6oiL5c
uthcC72tP2lpgrL8ug/ZowHZb+x8UJs3xYdDUd2ZHBcmKq2U6H4ZFbAL8ipA
nWTb3tSiJd91tvaiS0uzU3jsCXhHzfsjib7Y52qvjq6VeFVphp7uUpA5hjbe
TYyJQhN7rKxzUdqadQqvUP6DA1MDaNX5B/UUBwIhz89mK6PUaUN/M3RMTcTA
H8334opx0Hd5Vf7l6M+em296UHEZjqKoI+aHU0gsFXXMcu1xRhlt+3YmoNdW
UrOL0JcH1k+3o/dW25psPUwgtZudEYPS79QOtKFHA/g1VZwImOroxkaiavyn
uFxUsu6enJIz7qfkvsBwdMBu3Yv36FsZGzH5IwSKvxIXOnqf5PP2ojc16rP3
uRC40j6o+xjNiBT8JHWUAEdeLjgWTWgwEP+BRgU6P7JxxfWuCjvwDOWxfnfb
1g3rybJ8Y6hg42nbBHd834TrCmQ8CCw2lhIqR5NjTjgd8MR1V794PIRm/hUX
jT5GwIy+2fSIFz7nlEGcnjeBh6dt/lntg7nx6zjfJLoqIAq4xwnU/7hAL/Il
EO6bX0r8cJ3DzyeO++M+4puWengC+yWptmfqJI5XPeanH4g5sPtK+rlT2HfH
lqr6IAJ8gaIDy85gPibsWmIbTGBPDl3z8lnsF6dCLJpOYFPUzHfPMHy+QN3a
fQzMWzd6rlokgQmrCoZ4NOb27hn7mRjMG6outTMW+yJPX/YyHvtaYs3MSiTQ
TttGCWAR6G8VPWfMwf57fp23PhX3959/QifS8XyIz5msv4i5LBl66tolAlK3
bEaDrxDQFJReX32dgKXboBnlFp4rzx+EWt7DXJU+e/fiAzzPwg0+dT0iUP6Z
QlEqw/l13msGVBL4kZHpUV5NQD/24UHd1/g+BL7Z+eQtgY4jfSp6XMwXc541
Ve0EwnQlFup3E2hQ2DrxdBDnFTfp3vkD55l/tLF6gkDNt1MBRbxskGmJW3md
wobQp5mlKcvZ0HIr3yFGig1bk5/xBMmzIZHefNVdjQ19bv27rHXZsNN8amDP
bjYM+dfcIVZsSOOk+ba5Yv2h61aZQDYMf1D76RWF9d+8xUUcrEu+DZ7Jwbr2
Jd1dD7Du4M3DfMoGh5VNvGqtbJBu1OTjjuDvx1/mPyvIgbuGCwSk1nHgxKzP
gmoNDmgUvxd0N+PAjL/2Qoo7B54p5lDyQzmQ4rhh/qmrHPAkubM6rzig83zT
b75hDohO3PrxekkydMorfyXbk+GRfX63tV0yxDFVP0uFJ4P9s0Ju77VkiJ9Q
jfD7nAyPle4rTa5MgR7nzdzI/SmwNO0OQzghBaBOQSnteQr48N78sG42BS5u
38i4pZEKr7yuK27zT4Wdm9NOFtemQvlIbJmOXBpsLwzmexqeBvcDvU2MPqaB
AtWRU6OeDtcmzT7uZaXD2gp9mXeD6ZAepuZlZXQBID2umvH+Agzc/3fVXZcM
IDXqAS2jGaDVmVDHF3EROie/bFBZkgnxy6h028uZoKaU1BytkgUfDbuVC55k
wXHp0VTrsEvw3z/1kA3/AQ6jhSA=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwV04FGIAgABNAuSZIkSZJ0SZIkSZIkSZIkSZIkSZJ0SZJ0yVpJkiRJkiRJ
kiRJkiRJkiRJkiRJkiTJWmtfw5svmPm38b/K9n8CAgL+/y4JJIhgQggljHAi
iCSKaGKIJY54EkgkiWRSSCWNdDLIJItscsglj3wKKKSIYkoopYxyKqikimpq
qKWOehpopIlmWmiljXY66KSLbnropY9+BvjBTwYZYpgRRhljnAkmmWKaGWaZ
Y54FFllimRVWWWOdDTbZYpsddtljnwMOOeKYE04545wLLrnimhtuueOeBx55
4pkXXnnjnQ8++eIXv/lDgA0EEkQwIYQSRjgRRBJFNDHEEkc8CSSSRDIppJJG
OhlkkkU2OeSSRz4FFFJEMSWUUkY5FVRSRTU11FJHPQ000kQzLbTSxvfIO+ik
i2566KWPfgb4wU8GGWKYEUYZY5wJJplimhlmmWOeBRZZYpkVVlljnQ022WKb
HXbZY58DDjnimBNOOeOcCy654pobbrnjngceeeKZF155450PPvniF7/5w/f5
AwkimBBCCSOcCCKJIpoYYokjngQSSSKZFFJJI50MMskimxxyySOfAgopopgS
SimjnAoqqaKaGmqpo54GGmmimRZaaaOdDjrpopseeumjnwF+8JNBhhhmhFHG
GGeCSaaYZoZZ5phngUWWWGaFVdZYZ4NNtthmh1322OeAQ4445oRTzjjngkuu
uOaGW+6454FHnnjmhVfeeOeDT774C897vzg=
                    "], CompressedData["
1:eJw91Xc8Fd77AHDkmte8uNdWRBQfISt5jrIpREalJBSRPSIzK8oeobKiUKTI
iuy9uiIys0pmyB6/+/3nd/57v87rPM85z1lHLR0vW5OTkZFtUZD9f2PhT04a
9OaCgjNEYS/9f8oB+QVv/ufBvFwlL30M/NWdG/ufrzh+Cbe4KQtULaJBCyS7
iWv036NTAxGzHGZ+Hy74MUaIZrcwAvF/busTJAfJqlsanb0BvI87X/D5csHF
k3lKMfRWEDb8+NSgHxe8jTwbLmZvBau36tgOSb6ffcmqqdMK+KlxZcL+XJCL
fdxnIW4NLf+CcXokF3jGDu49tQZJLV4xL5IDChg9UpasIUZhcieTZB6T2bm+
Ihu4qNfUvklyYS7bD2bnOxDJkvlIP4AL1BOJ1/Sl7sLdf/nH35L8427KE7sv
jiBhndA0EcwFNIGBBSu5rqCd9SpBIYK0Pifq6SOOnuDfOdxfFsMFknYj/QR5
HwhSj2E1f8YF82smf+TOB4Ofco+l8WcuEDD+8EJ8LQLm9GfV/y1xgc/HhZnT
8jEwh2wqrQS5waFuPu71XhwIu2B3jS254VhNjQVTayJIeFS2XXzLDRUqly2j
057B2HqU0ww5D2BknKjDRtLAfOmOCr8LDzRHKH2zPZkOxoNlXVFrPPC0mmVQ
SC0TAiTjM6rCeKHiPuFnyX4WCPWH0/lI8oGLzZurr2pfgcdzA+fDZT64mKfT
T7OQC3M/yImLG/wQ9Y1ydFcsD+qpbCUW4wWAU8qIIT2gAEzXbsb+VD0Kb/dx
31+uvAPcidCsBtZjsJ1+0P0W3gPui5Od6hFBcP5wrZo2pRgmHDVOtfMKwWHf
rjS+7gNEautIzp84DmTrOqlntz/C8M1/ufvXhUHYUn3i4EIphLdfFO2oFwFx
H/vJautPcKFm95guQRSUau83uTwrg72CP+5UGWKgncLNWDRWDi9nl3q6rE5B
Y//F8V/7FdB56Rhg2CSgfMvVZkCiClzpwnDRZJLw2aw8itPtM+TNjGeV8JwG
rQcjolnx1XBcYFyKcFIKKHlYnsc11cBX29mw/JvS8D7ncY0uVS0cGidrp9TL
gJhHvb5hci3g4AXnBTZZiE6K1pk+XQeav6z1GBLloPDKeMDN73VQUfPpGpme
ArRwfzsdY1cPFyQbyYPWFIHyUcxeJnUDVHukCIsQlQC/2N+wX9QAidjlPMVN
ZSgK6D/Dp94IfmSFi4sBCEL2VS28ZhshRVToElu+ChxtvvnRL64JzM/MjSce
nIfXa0G86zrNkCmTzXQqXBXuXj/nyvC7GSRnadK/zqmBj4fGkYOoFji7Ua71
xUcDUuYZy3TPt8JCuOETek0tWLUWsVecbIUJsVtr1XvaYNBEpar1tA3eOKB4
8wVdMK/pq8eotUO0xuhxVkE9SHS6QWNA3wEmTOMqaFAfboib6u196IB3CxqS
SgcGoBx3odjRphNSeIYfF+kYghB8fKMr0gUabp8oiluNIJpRXfrpZhc4xSyK
5/gbw1dZZRq7193A7Ml8Po3WFJKzhdvyb/dAsElf4XaLGRy1zzxFju+FF10U
jhZN14DDZ8ESgntBV2OmzZ7pBhyXvx1aPtELybMbFoeMFpCauCZdeuEr8Enh
Vjblb4FqPfELvvAr9DlMZcU/sYR64bwbfwWIIMMejkpYrWBzQXjvfhAR3tcs
t/Y4W8O0Rh1vyx8iyBWxalQc2IBVxEfvmat9YBFt+uRR/V1YCo/CzPb1gckv
FXxNqx2Q8z0NmVb8BsdV8/0W0+yBwzX1EVfeN7jiIDDrUXAfmBVEC335+2G+
lr84MdAJbqlXmZ9J74d27lUp6iFn+E3pTn0GOwCabxjfiTG5gpuEU15PwAA0
BeHVduzdoCGlJwJzMADcjwoiBHfcQavd7ShdyHcwR14/LWo9oXPUBBO79R0e
XtcNP3/tAQQb4mx53Qbh0hI/j6SYD7y3lh6p3BqExMumoXxyvjCllVeRFzYE
nGUEl6wof/iiyV2mRvEDXM2FzOYHAuDdFVkHs5AfsCFFdyeZJgi6mpXc9liG
gV12tqrZ8hEY8eXPPswbhrOF4ZXJi8HARFHS33RyBDJ/8hsuGYbCV7aPJ8jL
RmC6PUC2bTYMpo49NDLUHYVbe5bV3oWPoc09R5BzcRSGuEakvEoj4ZrJIvro
OQYen14c6j99Cr4bSs0N9OOgOKB5Wz49Ghp3eVce5o/DfwGrNus7MfD1InlW
jtgEtGUIa9vpxYGACVC4u03Aat+ZFN+QeBgIcu9Rb5iA5aDu09d+JkDfhG50
Ff4nXHZTUvhjmwTdZjsbsS4/YUP8T0GHyDPA5sSVqNf9hIXSo6vPa1Kgy+Hu
pjb7JLAK8dlHhqaBiju1iobjJHClIkX38BdwM/nErSO9k3C1UcLzbk86eKtm
bdELTQG4v1sRXM0AzEe2kTLfKdhnXLR25skC5hZVqfLRKWhXaTLQtc8GuXM1
r8ZUp8Gp1SS2+fcr2M4aKS97OQ2cmlRlSC0XWl95x0QfTAODs9AIpuM1mLiu
VApYzwBGQ+LAPDAPuhznkjX6ZoD52IqIvnMBiE8mPPSXnoVp7fVtf/l38NHE
N4ErdRbet/wjHD1TBMyEjapR6l9AbfLjukr5exCKH6Yt9v0F5loLKbjdYkAL
8cEL079g8cWYBZ3QR2g44qSyc/k3hP6NDnjqWALGynQP8lt/Q6bknxtRU6Vw
uCootqo+Bz1JDuoWYWUwNrZ3sFo6B43SaZQRdBVQ7D25qnLqD+AobdiMKyuB
ypVtqir/DxSKZLmZvvwMS9VywlZS87C5yj828aUGOpqr7rLmz4NIRamN9PVa
qNNev5cqugC9IW/sNN3rIMLIRvNX8QJgK5T3Kd7XQ52elitWdRGO+1Gz6rI2
wsnjAarBTYtw9DNFBtW1JmCFZ9buekvAMJGH22lthpEhXcnhySVYTJ+p0bZs
BcUJLe/hgGWwjXs46CHRDnSFGrx1VCuwuuZ/nW+4A3xFJJbeGazAlNxL18my
LiCECxlWZa7Ay6lrDPGdPaBW1jcVurkCaOz5jDHLV+AJVX3WZvgXPr4/3fLb
kgivBsOlJrL+wtmztcOFsX2wq/tsSnTzL9QavlSRmPwG4+s6/MoGq1B9OYml
yWwAEhTu7XYWr8JC+o/hpYPvcOm21e1XnGsQGTL25OnQEKT1zt2Ocl0DI3Kz
5eHQYTgf/szToW8N6rGHj0NujwJ1MlZxUWEdnlvcdBzzIN0b9mLTb6/XIVpb
InxgegI45ZT3aPn+AZf5hxQkPQnmpqlP4kL/QfQYWfTjO1Pg/qF6THTjH7D8
5r2SUT0NB+NbGSkOGxAqcosrVnEWimlKce2LG0AWUJ1jSDonn799y27x3ATl
+kGPnbo5eLJwkNuG3YIpwbDUP8PzkFIsbqNYuAWLw704HqUlGKE3ueWrvA0v
amaw2fIrkLQgvuwztA1e7ol/lF3/Qnu2o4xzwA44Eu/JmBJXQZbtj0SjzC4k
uWAb96+uQzmZ91mGrV3omafnH2TdgNrnlfbcnXvAcuTTVW6yLSDO9M1vfdiH
5JRkH3PRHbj3sVwCf/8ALse6WV9ZJ8U5+iBZWPYQVr8b64b+2ofzI30Z1r8O
wYjlOo3760MQdMJgwg3IkHrVI+x4PRlK91TBzpeQIZpPa0KWdeTo5HoVrwwf
OSLA7jpbDwX6iyZ3y5+So9UYsFCbP4LML96PbDtCgSrwV2oS2DDIZGeohMaO
Anne/7oYxEKFvh/PH6Tsp0CBFdeL2dio0T2/9Qd9qkcQZ72S5z4nDdLLR72+
FUdQ8iUzoqkALVo9tjW7L0WJVl+XRGQL0qHJmNJ3Z4spURmRDVfDT4/M/GzU
aewwyMauU9TCHoto5AUltEh+IPJfdSfJSt3fOSJIZt3e1lJwwKI+2WCyDpJJ
8yPmkPz2zol5+nsYNDoHxqz3sSjTuHFAl+Tt/op+P5Kzo+aLuklOGahsMnHE
ojOX/z7Rt8cgK6+/2ZJOWMSg3+9AJHln3dSJ1hmLxAXl6GedMWhAsinB9wEW
/UulEtv1wKBo4ayiP4FYJIKhaGN5iEEiKicL9SOwKGJnclY0EINKxBJ9i+JI
8c5NStmXYFCi7wmN1mks2r61I6P8G4NCHkel1EkzoOTNEEIqDxUKiLOrMfBn
QMcmy0MfGFAhlu9uYf+1MCDRtanc/lAqlDo2PstKz4hsIl10ZLeo0EMq6mCT
SEYUpq59Uv8eNUqexx4J32BEj2SaeYxaqNGNxXCDLUUm9PMblgIrRIM6hK9m
0DsxIcwwrZFWIA1y8OaZZU5kQvTB7zuGx2jQ98RWvYg8JtTtXHAQq0SLRHOr
nU+/Y0Ij1fxdi4W0SGg72aE1lQnphP/F/xCgQ12pVyWTHZmQhnJoy0EsHeJt
6E33OsWE7IX8Uqkp6NFzOjKpCiIjsi4Qqcpxokd0/MurVFaMyNtedTtmlB65
93aOmE8yoPakr2Nq17AomYYq/Z4MA8It2kgt9GORlWLXbxZXLMpxkC5QuMiA
tmbea8tk0aPLJV/s12sZkHzPW8r0JjrEVGtotCrJiMQ1N7dmJkjzrB0h4l8w
Iq/QD026mzSIfnDfzRjDhOopr3wuo6dBwskPN9XSmZDhTaUmoQwqtMt3o2ET
z4xGzhBHcecwqC/pxUT3NWZkUh6r2frrCPr6vPTntTRm5D38vKY4mwKdDU06
NjzAjIwpvETbXMjR55te8U8ZWVBgzunNuStk6M554+jS8yyoYrKMWyX1AHSr
LqQnuLKgTLklo/6iPThakX2m+x0LcorXFfnkvAPBfnjRsCkWhE/VOnXLfgvu
B5afkGJnRbPB56s+p25Aop7kEbkLrOiM3tZMzuY6nKY+N77qwIoiUZ6tlN8a
fJr+PFKeyIo2Ir/F94mukv6zod/ESlbUrSN/03pjBTa2zV4FjbKiEjcF7tu1
y/BjVHFphxKHRhV1+ZrNF0GoW/R6hCgO+QW9Kr+gPA/80kwlgTo4pNIZ6Thq
Ogdn2NJ3he/h0BNNG59fOb/AZ72dsSwch7abYwUG+WbB+kvats0rHCJi1le5
a6ahxOsOr3UNDl1gduxY9puCin3nEz8GcOiVlLAsMp8EkywKu0eUbGidSfsv
3fUJ+GR9KtZUnA11Gm1t0twchabeViWBy2zoRuNc/EjkD7hTqmfm5cqGohOM
JDoFB+FQ6dPf8Vg2JPdRftiadQDUXSJMat6xodLpE7hhjW+gkVFgd7eFDV3a
Pi3cU0YExfWNCKFxNuTi/1bkoelXQOO88eL/2NCnshxKtmO90DVSzl9Ky46+
fBrpTObphrKJVIMZHnaURBFwkV6yE3Z0Cw6x0uxovDVB/z5rO6jpGlkkarCj
Xpcq7bEzrZBU161QdJUdeaS+CNiPboaNsMjSR/bsaM7xzDNnQhPEH9shnvFl
Rz/OSho6tjZAANdw+NQTdrTMzrxwO7UeZoLT3+SmsaPQgzfJHx/XwT3ZP3GJ
eezoZy9dTFhcLWD3Vj5FfmZHQrjpUJfsGvgR48PH082Oqg2vM15z+gxsGtJP
nMfYUfzsPGHVrxJWqd/OFy2yI/9KF/O1xnJYeUuW92+XHQ10O7LgFMuguaC6
4jotB5LiJO948r0UROYf3Ntl50D8WzJMPcklcCwijWrmKAda9bR6fNbjI7zk
ogIWKQ60NO0y+uqwGJJOCCkwqnCgHAuKeNqy9zC2CDpkehzI+yy5UoFoEcxt
561grnOgljLmw93j72AgFLMmf5cDxbW9UdEwK4BnnUmXilw5kOdClc/LqjwY
ai+d8vEj5WtQy/ZVfwOnO2QoisI50Ep6O95/PRemwz9T1CRxIPdjYjIb8jkw
Wb36uDGbA9GtPM91LMmGjy9wzyaLOFBCTr9TlXkWdAyarktVcSCfoLQbT8Uz
IYyIU+xs4kBbJ3Qe0PBlgH++Vm5dDwdqfH+15ZvRS3DJGPwkOMSBqrLS36S8
eA7EdMxrskkO5NURlLDIlAapYtYFBkscKArXXatKkQKNL+mnKrY5ENm6QlOg
bDKoqvE1XKHEI1te+na/zESQtGBmOMeIR0qFvXK2igkQnHSm8REej6iIWtKS
O3GQNhX+W1EAjypfu0RyD8fCmHExlfMJPHrNpBvgNxgDPFFGb6Qk8Yh+Yclx
byQa9m1EhJjO4hEt594zyftPYbPp7QleNTzpHWcnN78UCfhz/Qoel/BI0Svk
xrbjY3jO2JP0nwkezbRrD5m1hkH+7BL3tZt4ND4/4r19KRQCFL4sUt8h9S9X
d27uBcOCge3e+fukfGPB3hWdj4CaZ8gW745HRPGGqMyKIAhRunK53A+P0uXX
vjhoBQLfh0PpzDA8svc4wuhGEwBSdPcY5qLx6MNRkRTKUV+Q2VfcykrGoyFb
uRC9Pz5wtmN6e+wlHjUyMkWES3jDRBhrZn4OHgUQBo85ZnoBLR2PH8tbPGIJ
+XDqopInKBGvBvB+wKO55aN8GdvucFJIqr+4klQfvkr9+xpuENrjGZBZj0fO
uFrLmC4XUNEh6JG345E8bfQbgSBnkFW76DvZi0d0oSO8N82dIJyX18vwOx6t
XHEQ1PlwH+QqMu5bjOLRub8LkTQ/7UHNnViLm8Ijfyu3rjXle7AEfFc8fuOR
+TYDrW+TLahG/3ggvEIaj3cMOtJyB/IDbnWd38QjDfYSMX96Gzhxp0pibB+P
fkqH1FOHWUGizWk5GkoC4lbsfXBZ8jaMWzAuddESULNjSiSGzBL85Sn1FJkI
aD2h01B5xQJuphu9N2YjIIdl6lyXrZsgGOjKcpKTgAZqTxkJohtAbP2kwy1A
QNrrMaotc9eArtXkXqgwAf1ca+v5PGkG5MKNqb6nCEg1g2unhscU0is6yJmk
CChZbj6q5IkxKL7/Za8uR0Anr9anjYheAYGVtjZxJQK6rRcXp7BoCA53KkO6
EAFVsyvoCX+9DC85yAZOqRHQ6RfhK9RfDWD+naWDvw4BjRp+eW3oqg+eC6rt
ZgYEZISm8mbDLwHr0OuEDmMC+sLCxd7kqQvcZjKFP6+R8k+zf2fI1YaiZOHu
XAsCCs3qYLhBqwVsmqvrgtYEFIVXrXNM0QDLkIQGC1sC8hcis32mpw7c327V
3HYgIDO76bd2wmrg14+3OetKQCHMMsYtURcgb3FfINeLgBQZc79qSpwHYqT4
+Q++BHS8ecKgawdBqozbk3tBBGSiHJdLNgTQujzXMBxKQOTua+o+O+egJSOQ
kz6SgFaKjfs19JUA03XgQxZNQG1SPJeeEhWBar68vy6OgOwYWE7NeysAtfyz
62rPCIjPZ+hkbKYcnCymoLd5QUBvFzp1GGllIYutkO50FgFVCtw5fiNHBg6P
ah4vziWgdJola2UHacif+6C7nE9Aprd/9ziZSYEY7tLhaiEBaV4duChndRom
bGXj6z+Q6js0qbkRLgnj3aGOtz8RkOjDlN8/w/4DR+4vXE1VBNTeoi2cekcc
jpU9i+iqJZ2nLYXK0viTkLNxaiW8iYAY6rjT9/dFIfRigQZ5O6k+FxVTQ9NO
AG5aflC5m4BUJoI5O2+LgIl/fawmkdQffbqSRV8YxI0lDIUGCOjEhSdSa1eP
A8e7XP7vQwT0n++LaFyAEFDxUF+9M05Al2M7j1AYCoLG4j9M/jQBvWag7Gky
PAa2RoGf8+dI+y0qWEXrfRSkvbyxrksE9PCkRZnzFwF4HPVwjW6NVM9X05os
/ALQVvpO9sEmAbmLcBVxivGD3n8yOQ27BGRbNMpdqMQHUtED2suHBBQ9nn2B
wpkX9tLect3GcKL+qaUIj6c88LxsJPU9HSdSmBzJKRrkhv8DUo/fHA==
                    "]}, {Automatic}]}}]], 1]]}, 2]]], 
      "Specifications" :> {{$CellContext`t$$, 700, 2000, AnimationRate -> 10, 
         AnimationRunning -> False, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{409., {69., 74.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.463681739170473*^9, 3.463681774892473*^9}, {
  3.463681881267473*^9, 3.463681899748473*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Scattering in 1/r potential - parabola, E = 0, \[Epsilon] = 1\
\>", "Subsubsection",
 CellChangeTimes->{{3.4636789676484737`*^9, 3.4636789788954735`*^9}, {
  3.4636819211924734`*^9, 3.4636819275754733`*^9}, {3.4636820216014733`*^9, 
  3.4636820270414734`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"CC", "[", 
   RowBox[{"m_", ",", "k_", ",", "L_"}], "]"}], ":=", 
  FractionBox[
   RowBox[{"m", " ", "k"}], 
   RowBox[{"L", "^", "2"}]]}]], "Input",
 CellChangeTimes->{{3.46342356191*^9, 3.4634236189960003`*^9}}],

Cell["Choose to be symmetric about + x axis", "Text",
 CellChangeTimes->{{3.463682064703473*^9, 3.4636820747984734`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"rho4", "[", 
   RowBox[{"\[Phi]_", ",", "m_", ",", "k_", ",", "L_"}], "]"}], ":=", 
  FractionBox["1", 
   RowBox[{
    RowBox[{"CC", "[", 
     RowBox[{"m", ",", "k", ",", "L"}], "]"}], 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ")"}]}]]}]], "Input",
 CellChangeTimes->{{3.463423750743*^9, 3.4634238826280003`*^9}, {
  3.463682105656473*^9, 3.463682116623473*^9}, {3.463682774762473*^9, 
  3.4636827813454733`*^9}}],

Cell["\<\
Define initial conditions in terms of the starting long distance \[Rho]\
\[Infinity]\
\>", "Text",
 CellChangeTimes->{{3.4636821471944733`*^9, 3.4636821814184732`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Phi]\[Infinity]", "[", 
   RowBox[{"m_", ",", "k_", ",", "L_", ",", "\[Rho]\[Infinity]_"}], "]"}], ":=", 
  RowBox[{"ArcCos", "[", 
   RowBox[{"1", "-", 
    FractionBox["1", 
     RowBox[{
      RowBox[{"CC", "[", 
       RowBox[{"m", ",", "k", ",", "L"}], "]"}], " ", 
      "\[Rho]\[Infinity]"}]]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4636822943844733`*^9, 3.4636823571004734`*^9}, {
  3.463682399887473*^9, 3.4636824129374733`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b\[Infinity]", "[", 
   RowBox[{"m_", ",", "k_", ",", "L_", ",", "\[Rho]\[Infinity]_"}], "]"}], ":=", 
  RowBox[{"\[Rho]\[Infinity]", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"ArcCos", "[", 
     RowBox[{"1", "-", 
      FractionBox["1", 
       RowBox[{
        RowBox[{"CC", "[", 
         RowBox[{"m", ",", "k", ",", "L"}], "]"}], " ", 
        "\[Rho]\[Infinity]"}]]}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4636838316654735`*^9, 3.4636838955214734`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"findphi4", "[", 
   RowBox[{"m_", ",", "k_", ",", "L_", ",", "\[Rho]\[Infinity]_", ",", "N_"}],
    "]"}], ":=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Phi]", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"(", 
         FractionBox["L", "m"], ")"}], 
        RowBox[{
         RowBox[{"CC", "[", 
          RowBox[{"m", ",", "k", ",", "L"}], "]"}], "^", "2"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"Cos", "[", 
            RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], ")"}], "2"]}]}], ",", 
      RowBox[{
       RowBox[{"\[Phi]", "[", "0", "]"}], "\[Equal]", 
       RowBox[{"ArcCos", "[", 
        RowBox[{"1", "-", 
         FractionBox["1", 
          RowBox[{
           RowBox[{"CC", "[", 
            RowBox[{"m", ",", "k", ",", "L"}], "]"}], " ", 
           "\[Rho]\[Infinity]"}]]}], "]"}]}]}], "}"}], ",", "\[Phi]", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "N"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4634421291610003`*^9, 3.4634421625360003`*^9}, {
   3.4634422709630003`*^9, 3.463442271773*^9}, {3.463442312954*^9, 
   3.463442354867*^9}, {3.4634428048389997`*^9, 3.4634428369189997`*^9}, {
   3.463447662479*^9, 3.463447677332*^9}, 3.463448112808*^9, 
   3.4634963091099997`*^9, {3.46349790449*^9, 3.4634979049969997`*^9}, {
   3.4634979936540003`*^9, 3.463497994182*^9}, {3.463498054474*^9, 
   3.463498055005*^9}, {3.463498100718*^9, 3.463498101198*^9}, {
   3.463498245131*^9, 3.463498245559*^9}, {3.463498359343*^9, 
   3.4634983606400003`*^9}, {3.463509030203*^9, 3.46350912163*^9}, {
   3.463509236092*^9, 3.463509248469*^9}, {3.463509351389*^9, 
   3.4635093628389997`*^9}, {3.463509691361*^9, 3.4635096926210003`*^9}, {
   3.463513222231*^9, 3.463513228801*^9}, {3.4636810924544735`*^9, 
   3.463681092637473*^9}, {3.4636824740944734`*^9, 3.4636825160924735`*^9}, 
   3.4636825638824735`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Scatter0", "[", 
   RowBox[{
   "m_", ",", "k_", ",", "L_", ",", "\[Rho]\[Infinity]_", ",", "N1_", ",", 
    "N2_"}], "]"}], ":=", 
  RowBox[{"Animate", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Graphics", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Thick", ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", 
                 RowBox[{"-", "3"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"\[Rho]\[Infinity]", ",", "0"}], "}"}]}], "}"}]}], 
            "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "4"}], ",", "\[Rho]\[Infinity]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               RowBox[{"b\[Infinity]", "[", 
                RowBox[{"m", ",", "k", ",", "L", ",", "\[Rho]\[Infinity]"}], 
                "]"}]}], "-", "2"}], ",", 
             RowBox[{
              RowBox[{"b\[Infinity]", "[", 
               RowBox[{"m", ",", "k", ",", "L", ",", "\[Rho]\[Infinity]"}], 
               "]"}], "+", "2"}]}], "}"}]}], "}"}]}]}], "]"}], ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{"Red", ",", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}], "]"}],
       ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"Disk", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"rho4", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Evaluate", "[", 
                RowBox[{
                 RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", "m", ",", "k", ",", "L"}],
              "]"}], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"Evaluate", "[", 
               RowBox[{
                RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"rho4", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Evaluate", "[", 
                RowBox[{
                 RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", "m", ",", "k", ",", "L"}],
              "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"Evaluate", "[", 
               RowBox[{
                RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "}"}], ",", "1"}], 
        "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "N1", ",", "N2"}], "}"}], ",", 
    RowBox[{"AnimationRate", "\[Rule]", "10"}], ",", 
    RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.463495399355*^9, 3.463495531008*^9}, {3.463495604291*^9,
    3.463495605242*^9}, {3.463495988574*^9, 3.463496042132*^9}, {
   3.463509501468*^9, 3.463509553584*^9}, {3.463509601965*^9, 
   3.463509637682*^9}, {3.463509797358*^9, 3.463509812043*^9}, {
   3.463513234167*^9, 3.463513242917*^9}, {3.46351351865*^9, 
   3.46351354306*^9}, 3.4635136184370003`*^9, {3.463514131031*^9, 
   3.4635141521940002`*^9}, {3.4636789452894735`*^9, 3.463678945788473*^9}, {
   3.463682725729473*^9, 3.4636827302254734`*^9}, {3.4636827977174735`*^9, 
   3.463682829267473*^9}, {3.4636828698974733`*^9, 3.4636828774174733`*^9}, {
   3.463683053767473*^9, 3.4636830739634733`*^9}, {3.463683200734473*^9, 
   3.4636832116934733`*^9}, {3.4636832852174735`*^9, 
   3.4636833065354733`*^9}, {3.4636839129814734`*^9, 
   3.4636841204284735`*^9}, {3.4636842529474735`*^9, 3.463684253109473*^9}, {
   3.4636843800374737`*^9, 3.4636844248584733`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Phi]\[Infinity]", "[", 
  RowBox[{"1", ",", "1", ",", "1", ",", "100"}], "]"}]], "Input",
 CellChangeTimes->{{3.463682641800473*^9, 3.463682648111473*^9}}],

Cell[BoxData[
 RowBox[{"ArcCos", "[", 
  FractionBox["99", "100"], "]"}]], "Output",
 CellChangeTimes->{{3.4636826492724733`*^9, 3.4636826557134733`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.463682658670473*^9, 3.4636826603104734`*^9}}],

Cell[BoxData["0.1415394733244273`"], "Output",
 CellChangeTimes->{3.4636826610954733`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"b\[Infinity]", "[", 
  RowBox[{"1", ",", "1", ",", "1", ",", "100"}], "]"}]], "Input",
 CellChangeTimes->{{3.4636841747204733`*^9, 3.463684184991473*^9}, {
  3.463684296177473*^9, 3.4636842962734737`*^9}}],

Cell[BoxData[
 SqrtBox["199"]], "Output",
 CellChangeTimes->{3.4636841860414734`*^9, 3.463684297427473*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.4636841891534734`*^9, 3.4636841920624733`*^9}}],

Cell[BoxData["14.106735979665885`"], "Output",
 CellChangeTimes->{3.4636841927524734`*^9, 3.4636842999634733`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"findphi4", "[", 
  RowBox[{"1", ",", "1", ",", "3", ",", "200", ",", "3000"}], "]"}]], "Input",
 CellChangeTimes->{{3.46350965363*^9, 3.463509665266*^9}, {
   3.4635098999110003`*^9, 3.463509900642*^9}, {3.463509937046*^9, 
   3.463509957946*^9}, {3.463510342525*^9, 3.463510343946*^9}, {
   3.463510570568*^9, 3.463510570817*^9}, {3.463513146352*^9, 
   3.463513147738*^9}, {3.463513254311*^9, 3.463513256888*^9}, 
   3.4635133085*^9, {3.463513362593*^9, 3.4635133636870003`*^9}, {
   3.463513675052*^9, 3.463513675356*^9}, 3.463513748396*^9, 
   3.463513894495*^9, 3.46351421396*^9, {3.463514476745*^9, 
   3.463514503795*^9}, {3.4636825840274734`*^9, 3.4636825954024734`*^9}, 
   3.4636826669024734`*^9, {3.4636833589114733`*^9, 3.4636833955564737`*^9}, {
   3.4636843041934733`*^9, 3.463684304248473*^9}, {3.4636855292354736`*^9, 
   3.4636855294114733`*^9}, {3.4636856012394733`*^9, 
   3.4636856159814734`*^9}, {3.4636856662514734`*^9, 3.4636856668824735`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"\[Phi]", "\[Rule]", 
    TagBox[
     RowBox[{"InterpolatingFunction", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"0.`", ",", "3000.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
      "]"}],
     False,
     Editable->False]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.463514214679*^9, 3.463514284731*^9, 3.4635143894189997`*^9, 
   3.4635144212939997`*^9, {3.463514477715*^9, 3.4635145244820004`*^9}, {
   3.4635145596070004`*^9, 3.463514580374*^9}, 3.463682602347473*^9, 
   3.4636826690654736`*^9, 3.4636829246914735`*^9, 3.4636830023324738`*^9, 
   3.4636830806504736`*^9, 3.4636832212804737`*^9, 3.4636833126744733`*^9, {
   3.463683360288473*^9, 3.4636834662024736`*^9}, 3.4636841324614735`*^9, 
   3.4636842706524734`*^9, {3.4636843055464735`*^9, 3.4636843147874737`*^9}, {
   3.4636844013494735`*^9, 3.463684430531473*^9}, {3.4636855316204734`*^9, 
   3.4636855400204735`*^9}, {3.463685605368473*^9, 3.4636856272464733`*^9}, {
   3.463685658262473*^9, 3.463685690019473*^9}, 3.4636857546954737`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "1", ",", "3000"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.463510285675*^9, 3.463510331601*^9}, {3.463513434994*^9,
    3.463513466825*^9}, {3.4635144160480003`*^9, 3.463514473591*^9}, {
   3.463514563072*^9, 3.463514575417*^9}, {3.4636826076504736`*^9, 
   3.4636826080744734`*^9}, 3.4636826741104736`*^9, {3.4636856240544734`*^9, 
   3.4636856243814735`*^9}, {3.4636856712194734`*^9, 3.4636856717864733`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV12k8lF0bAHCEZCmMmVsJpWQLoaTIuSgJaUUiaygKpSg81ZOeJNlmuWfG
TpZBUigqlS3JUpF9J8vY96Uk3nk/nd//w7mW87s+XGe7s/cZVx4uLq5z3Fxc
/z/L/KxVgWsaqQgGrgobN6DrB1NDcgtXkc/z9hK1Yw1IdG3pOrmQH9pyt1ae
MmlADn3JbvcLxWF9t3EibtaAHv1YdPQv3Abd5Qfvyp1qQNp0w/ejXurgkjJJ
MDnfgKo3er4d8tIHPqWB89VXGpCEGc+bgUlzEOEeq08hN6ACV/WzVWP2cO8v
/us7uwGpedU4FA27QYX2wS/thxqRxJ/C+8raXjAZYrdHktmItvZX6/CL3YDU
Py1j17ibkDlJ4Nvxcj8gZJ2dKLrShOKHD1XXfgoAWWqL3fxwEyrYcWqFmX8X
Mj4U9OR5NyNtq1ZXO/X7UCGzv+nz72a0fZSX+8nuB+B5RfErObEFdaS2evSv
fwgG8uKifsdb0TI1ZqqvLRjiNsU0pgi2ocwfrQp3GkKgoqJS+P1CG1LQ+ah2
+FkoCNstDprOtaOVj6y3kB8KB7uaqeNL7ajOiHxEvygUas9Mu5JX2tHtsy42
B2pCYRf7afAAXwf64iUYrD4WCj1arYq5kh3II82qS0rlCSxabbrE1u9AOeJT
T+aznkC4SGJGf3gH2jshO5KWFQbPttmWYPs7UftuX+G7eWGgpTrkEarXif69
Wq1u9S4MNmz6rctt2Ilqxm768VeHwWTQb7c/xzuR82jVuksjYdB8R9dX7mIn
imLfkFFUDIf6yBgLiOpEE32VZ7PSwqE3OW98aKITpTd7f8xJigAlEbdIuzdd
iJ23FrbGioCF24p60R+7kGJkpO2pFxEg2nN/U/unLpRl/OLXzIcIyJwuNb5S
34Vy3kxq7uuIAO/gmW+1o12oIMaTVUSMhFPao+UUmW5UaX8l6ktoJPS8qwp0
Ce1GArp/7DdTIuF24pVrFuRuZIo9UfWIjoQl6iXclNmNar9nVQtlRMJYya5o
k/RuVAejvCcrIsFe4/xzalk3apVz929ai4TcxWP7nFa60c0bWhrXD0aBfuaG
gt2+PWivzc/6y/pR4PQuHE+604PmgOzjaBgFrMfjLtLBPchn41T+SdMoOFKY
TtBk9KDrmVnaajZRoJu47mbV2x7k1bNdb8w/Ch4x4iMcuHrRZTNRY9e3UXD8
ZwbXLrNepKhZzL7wIQrkWxj+XKd6EVvSK8SiNAr4D31O6rXoRW5DNVWHq6Kg
c8shhTz7XuR6/9FxubYoUC+XPBPr04ucC1dP9/yKguvmfZ1Rsb3owo6JC+d1
yJAVd1Ps8mwvcrc+cFZEjwwzfDHRL5d6kV/4Q5NSRIZPX0MZayu9iLwkra1k
TAYiFqKUu74Pfa45sem3JRlQosMWF+k+tOfmy1LmDTI873AyJ5n2Id6KG7ta
c8ig0G3jLJ3Zh8SWi7eG5ZFBNrCTduZFH5JRFyZAARkU2y6ciHrdhw5Ep66x
PpCh0bLuuXxZH/LybGq9VUsGlpXTw3cdfaiVuP8JNkoGmbGa5kTRnyjbbXnK
Sp4CYxueuPAG/UTWtOeyNkoUSD4oaS0Z+hPxlTmetFOlwMHKRcJByk9kL12Z
c3EfBdaaFh6wnv5EmxqpnteMKGCPPy9W+/QT+Riojj12pcBLo4svSIL9SMa7
d0u4OwU6Tr58LkXoRzVxVNMoTwqU3MatNbb2o52/fmfSfSkwy5wnR6r1o6ac
z5dTHlJgQDM+RdqiH+lsdRx6n0aBeL0DRflP+9GACYFUkkkBxr6M9u7sfkS+
9dmo/DkF5g+3+8sU9qPRH7vTql5ToC7n4anOmn4U+/j3xeYKCvyOvDBus9iP
VhcpfVODFLjJ6PTKOjmAPtVXdMrtosKZrqfrlUiDqK0jx5qgTAUvT2WuMzsG
0eQgo3GdGhU+2snXx+wZRJLL7rUD+6jww/SiWITZIPKU2/g+3YgKc9C8KPhg
EJFuWMUqu1Jh4Pu/6QO/BpHKHYRJuVPhJd/WF6cFhhA8UqQKeVIBLY6yhrEh
dCV2OXT8JhUcs+XIjP1DqKQ8ISDnPypkVjyL3+Q/hNwl2Oc1U6nwoOd2qxYf
G92VqWuSy6DCRfemugyMjWiKb08TsqmQHbq900qZjT7qPTGZz6eC0Pm8VedT
bCTuqn6goJwKn2edcx0S2ej961uSB/upUPlHhK1sOozqix1pymwqaPA+/qfF
cRgNVZmISo1RIRc6HZtuDSPRbimBlVkqiLFExL+mDyNX/pKlDzw0WDC3PDws
MII2nhNoMZCjwbXPt8WmekbQ9RcRGZPyNOhXkPRsXh5BjeuJAbFKNBCIUylT
JI2i6DfbpRf20MC7TiVt84lRtHOL7sUMRIOlp1SFB+Wj6JFP6V7LwzRg1fSL
Sf4cRaPVxvw8xjS4pVuhpMk9hl4EWmTanqDB/fbrznwGY+hgl+fURjsa2Ob9
oSVWjqH4ffMlRY40qO54t9IwOoa4IgIol11osKfhYV3uxnFUof9oX9kVGnxo
zbK9Zz2OTiUlBfoG0MDOMqFRaGEc5f/aZS53l9OPF7lCU2YCkU4/l/l+nwY6
sy4PtI9NoE7ud6WKj2kwrPJ0aD5hAl262LC+k0GD2u0dT45aT6LqovNtIbE0
2PXxV6DZ40m0W6I3a18iDSxKK2f8iybR7Kdx88h0GqxaNVU/2DGF7u7ipxm+
pgElXWHDEPc06rsb5jr1hga9XpvEamWn0ZEW8f1x72mQ9rjSLUh/Gm0IkW1f
KKfBOWWtvOC704g2orMt8wen3g+rrxQEZ9CSQfGMZTMNlG3jRz+pzyCbGKNy
nnYajNhLBNGsZpCs2Rm3C3006NoyGbIxYwYFpbTu3zBIgzKr4cGuHzNo4I/9
hoJhGjRd3cVWWptBWdlXsjdN00C3MF6IemEWifDN3nk/R4MNzcIhP8Nn0TW7
2yfdl2jQor+rjlA6i/ZtfDhbtkoD1ePSrjGqc4jpJvTJmweHJqEUXe1Lc2j5
Ixnfyo/DY7P62wYpc6jEO0HHTwQH9ewAedsd86is5MlhHzEcCNvcnhV6zqNP
Yv4nvIg4FDz2SmAXzaMv+Wdd3KRxuCmnGrfFdQFV8xp4O2/HQSn30lB/yQKq
tVQLsJfH4Xzbkqeo3CL6viQQZaWKw/RmA/vCxUVUd2wx5owGDjk3yvZfv7KE
fkT3p53Yh4MvvdqVMLyEGkfrXpoewOG+HMnR3/MXatb9WHT0EA5Wb69R41d+
odawZ58NDXDozo9FCfTfqL2LWa9vhIMgtzlXud4y6r53g61tjkPLEQItNP8P
6q1znNU8jcNFxf43FY9W0M/tJ/6qWeIQaXd5xN77Lxrw0RVQOY/D0JHNsVVX
V9FQuSJBwY5zf6Uq+GPQGhqWIMnscMIhWGNubbMNF4y6rlOSdcXBJfWLwE4e
bhgvmNaScsfh4bWvvYJF3DC5vlsf88QhKO6TonYwD0xb15gQruNwSC/z9QuX
dTCb+cZiky8O3H9Ms5qteGHRjOqx/g4OW36VpO324Ye/kcfoS2E4yNwUC6iX
FILV3n3Jc1E4dDhMnhPUEQYuzR3ZUzQc6vDGAddjIsDzQLRwjInDrklRYsfR
jcDb+LeUHYcDT390x4jGJuCXH6vtT8JhIilVPotXFAT8Wlt6Ujn9OpUl97qJ
gmBlxc+ODByKVa/LaZaIgrBk/kRLNg4rLrQVWzEx2Oie9KvhJQ7fuLpad9mK
gei78HV1r3AoP29KO5cgBuJCgRtr3+CwDlIS0jvEQOLC5c1f3uNwh7drqogg
DqTnljs/leAwMuPboWosDpKrhuoln3DQR0/N7/uJw9YkaaM3tZz5S71ykVwt
DjIzgqde1eEg7vKBIjItDtsMf9m8bMRBN6oueUKcAHLUQdfsVs48ZDtn+WoR
YOfAj2sZnThIvfzHve80AXbtKwlM7cWhc6fsQVcvAigGPw9OGsAhYrxfWv0x
AVQUQ+KY4zjccg7CNd8RYLe/L4s2jcOr3Q5lL+oIoFbtnBc1jwNFQsLxzyAB
NK8e+hKywunPUq3FQUQC9n5QbviPiw5Hz8RCiqwEaG+U7P6Xlw4/eElsQQ0J
OPhydu62MB367bk8g09LQOjJOxYaonSwkJx+/NZBAtom178eIdDhRN442c5T
Am6rSvvZSNFhS7mjh9QjCfhSy2oWl6XD6gEjUSOqBGBXNffXyNHhu+esy1qC
BBRkGf/SVaZD8fvxnei1BPCb/rCeV6VDqYfy7+/FEmA5cuFttgYdPsgdthOo
loB5BZ8A6QN0MDXiIwV1SYBmWtzKqjEd3njwJ27gJkLQEQW7QjM6aB36fthk
AxHq+3M/eJ+kQ/6HPZInxIhwTa7ybq8VHdTO363M3UaEnMQZrjJXOkyIFs/I
HSLCqv4/TgHudEiwnMr+dpgI5t38ZZqedHjy7IXYaVMijG/d+iDlJh3CucdO
9loRQTnmKN/DB3Ro99d+e9qLCAEH6l0PPaLDBkbp+c4bRKhqtf28EEoH1hye
fcyfCJex64/cKHQ4FeEXWv2ACOm02A3Hkjn14633IxhEWNTa5cGVRoe36uar
BnFEMGp4Wf0mgw48qOqf7iQiDIh9fqL0kg5Tv/XONmUSQS5yWkSomA5Jeon6
X98RwUct0Ku8jA6HD5/COz4SofQr3/fAz3RYrxr6t6WMCI7CUlHjX+nQ2BzN
H19NhITHRuLfOulQt/zoqmsbEaT+iyGRl+lw4PvtLLN5IjSu2ZRrr9Kh68WD
UoclIoQFSl3r5GbADYfkrMvLRFjxiatS2MAA2SoHLhsuEnQ7JfzzEWNAxN6r
n0qFSJCEnv4c28sAXt2N7c3bSGBd5BxJ1mGAxtevTWd3kEB0/w69/XoMMNkc
LlglT4L7aql40GEGMMIzi+KUSeAsnX5s8xkG+D38cm9CiwTyfzJzjnozQIVH
b8dZI04+Pw/bcR8GcJ28H+9iTAL6rLIAxY8BBqaT7tdMSMA/+syp6w4Djuwf
dbtlToLh1ucSN8MYYJe+KcnIkgRZBbkByZkM+LIqJb50kQTqPm+PrvQzIE2P
8lfrLgmCh3p3z7AZsL30pnvbPU4+GwHC0BgDvP5cHQq4T4Kww+d6vs8xYKgI
rPL+I8GoxMKtlHVMqCoQLZ8PJUF64Z5M0x1MYJdZshvoJFhVsY5ECkwomjlh
YMAkgWXSPd+9KkxwHdF/9CyaBLyPvxnIaDHBzpjMeyuOBE42V9tnDJmQ/Lpp
bTSZBFv/soSinZmw0TCn4GQ2CW5e/z4T7sYEixnBwqjnJKgZXGwJ8mBCfOkw
fM8hQcA3o9SrPkxoMwsSM8olQWtivx4EMcFb91GIRAEJqIayXuxkJhzPsrI2
KSaBYAi9bl8fE06o8Mro1JHghamtMHuACVc2cDXuqieBhci2Y8xhJhyS6SBJ
/CBBAiWzeHmKCY2LgWdGG0igGf8+p3iVCSiylT+4hcTZo36GmWyNhi6v7SF3
ukmQ3almYncuGmxfPjR6MEaC04lz/220jYZ1l45JmY6TYNHpTUmxfTSU3a3p
2zRBAmAb6Mi5RcPMYaIZc5IEjTMWCuyb0cB/9Etj3AwJVvgD+a5ToqHNWrvB
b4kE5hqVpf99jQbVqJfcd3gwoIzPaj+sj4aztWaOe9dh0MySyX7YFA0av4W+
jXJsL+NHD+6KBqG8xh4LPgy8hOSvhExEw0ke5c0yAhhEDQZJhInEAL8BlRIs
gsGPaP1LVPMYoN6aMnmPYUCy9Oikno4Bf/Yz3fOSGNiI0k/TLGPA5Z8M3wWO
+4MndHG7GJh42lKpsgWD+RtxogzPGIjTMRaK2ooB8cTy25jwGLD6wUY62zGw
5ikQfvo1BhK1juwVVcaALwb7FlkfA40T2F46x3ka/pF3mmKg7ndShpQKBsJO
euLnu2LAVC1/buduDEqKyzDRCc59qd+7NdQwULjzXe6ucCzE8Clxa2hisLg0
rGNjFguDzgcIjQcwwCekXMWrYkHsoG5PvTGn34Yt/7yvjYVYkwHrvccwCH27
mepWFwtC4WeC6Bz/+xArfdfCiRd7bOi8CQYe0gTpi0OxYGK2ba3TFAN9c8Gm
/HVxMFt+taXRHIPh7F9HLPXjYMlapzf8LAYHrzbtZObHQcXO8uMH7DFoNNX1
JRfGQV2SDpPMsZdSckVoURxAAztxhOPkoatud8rj4JLo6UGmAwYCTrwZzg1x
nP9L9+l5RwyaLLVUVOfi4JbXpdWEixhcQ2SNMs148H1zZKTiMgYscXP98dx4
2CN9hODhg0Hgccliy8QE+Jw2pHQ5CIOgJBtz8ZBEcGyWrxGIwkAx4nnMCcMk
2LDc38wTj0E5fq5M5k0S2DR5vy5mYWCY20tq3p8M+elK6Sp5GGfPI8hKvkiG
FPJfsbl3GJQK8OSs2/kUnIdjk76WYTAT8d29+elTOJk6ohlTzam3+2ib1uYU
MFyZdD5ej0G8Ybzv7egUwNteCXG3YnBX6wXTDUuFx/IS5Zu7MSBMenj3hKWC
Tc+xhEv9GDx5z3cDCadBLrLaUTWMQaGFqbLygzTw2+GaeG8CgxV/08sfl9LA
LfqPTccMBvL5Sg0H/NKhtl1S5swiBjwFeTNoPB2KXz0uNlzm5GusmTkxmQ6S
lLe9Zzlenh2YsZtOBynh339dOJ5Rx2YD59Oh5tzz3Y847s0MnC1cSYf7bZK2
NRx/jD8ypy7CAqzu0t8zfzAIeNg8L6vGAr7IDGeHFc68pUzNq+1hgS/eJHCN
Y58ygYVDmiy4Nm747F+O3dcOLthqs+DN2YGBZI6t/RMXGPos8LjjoTLAsbbn
5cVNJ1mgNV7Jf/kvZ/6f3F+UOc2Cbc6s67c5VsuKWVQ9ywJ74+7WEI7l2bWL
ZudY8K+CdVwmxxJOGkuPHFiw/1Xq0ijHUfdMl+hOLAjdctnoD8dCCReX0i6y
gHwvIlJolfM+HfhS+SVOfSKCm3dzfPd3ztIPd06+Lc7WehwvY1+W+q5w4k3I
0Y5z7KfdtzTtyYKkX+a1FziesVheWvNmwbGcAS5Pjv8HnQ4wrA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{1, 3000}, {0., 5.998462690312927}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.4635143932320004`*^9, 3.463514423068*^9}, {
   3.4635144543*^9, 3.463514506743*^9}, {3.463514563821*^9, 
   3.463514582454*^9}, 3.4636826089894733`*^9, 3.4636826749174733`*^9, {
   3.463683361564473*^9, 3.463683398175473*^9}, 3.4636843115984735`*^9, 
   3.4636855353814735`*^9, {3.4636856070864735`*^9, 3.4636856287514734`*^9}, 
   3.4636856725334735`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Scatter0", "[", 
  RowBox[{"1", ",", "1", ",", "3", ",", "200", ",", "2", ",", "3000"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.463509715639*^9, 3.463509728209*^9}, {3.463509892509*^9,
    3.4635098937060003`*^9}, {3.463509944641*^9, 3.46350996501*^9}, 
   3.463513155785*^9, {3.463513263572*^9, 3.4635132649300003`*^9}, 
   3.463513321049*^9, {3.4635133694560003`*^9, 3.463513370059*^9}, {
   3.463513574693*^9, 3.463513582459*^9}, {3.463513683976*^9, 
   3.463513684125*^9}, 3.463513735269*^9, 3.463513889118*^9, {
   3.463514203708*^9, 3.4635142084890003`*^9}, {3.46351424124*^9, 
   3.463514241362*^9}, {3.4635142818929996`*^9, 3.463514282407*^9}, {
   3.4635145171070004`*^9, 3.463514519178*^9}, {3.4636829047044735`*^9, 
   3.4636829323194733`*^9}, {3.463682984076473*^9, 3.463682997451473*^9}, {
   3.4636830861744733`*^9, 3.4636830879744735`*^9}, {3.463683317689473*^9, 
   3.4636833202254734`*^9}, {3.463683441762473*^9, 3.4636834425134735`*^9}, {
   3.4636834796884737`*^9, 3.4636834850154734`*^9}, {3.4636843182724733`*^9, 
   3.4636843183674736`*^9}, {3.4636855452424736`*^9, 3.463685545729473*^9}, {
   3.4636856425324736`*^9, 3.4636856857534733`*^9}, {3.4636857383114734`*^9, 
   3.4636857500704737`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 2709.663319883665, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 2, 3000}}, Typeset`size$$ = {
    360., {106., 110.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$3536$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$3536$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Graphics[{Thick, 
          Line[{{{0, -3}, {0, 3}}, {{-2, 0}, {200, 0}}}]}, 
         PlotRange -> {{-4, 
           200}, {-$CellContext`b\[Infinity][1, 1, 3, 200] - 
            2, $CellContext`b\[Infinity][1, 1, 3, 200] + 2}}], 
        Graphics[{Red, 
          Disk[{0, 0}, 1]}], 
        Graphics[
         Disk[{$CellContext`rho4[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 3000.}}, {
                    3, 11, 1, {270}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwtlnk4lWsXxit1UJqJEk7Gxi+5ynRRN4ljaKAUJyISpQEVMkSxDRW2vd/n
3XsbYmOnFNFk2KYmGpwQUipDJUrE2SJx8r3f8FzXen7X+ude91rr+eNZ5nHc
wWvalClTpjIx5z/X/88X74UFPN+mTf/jh03nIuLOB1b+js0fFf9arKGLh3F9
u358MoD0m7L9pzdb4eWPCDuxtT2WR6v3lg7tRujcR1ElAhekZ7y1Cf/ogbDi
lztVw7yxt77BpWrhEaSf6NYrdPRDQoRHcaQwAB69dWp2gadgYG8Qp2gbDLky
4eB7tVB0qcs5FwyH480WcWf5gUhYhgxS6vVnUVigZR1nFIWBe8/mObhFY3WL
/ytlFguHehUzu/NikDte4X2jIRYHhZuMZonjoG11b6a3KB6fvpq/vZ90HiLO
w3zVkAuoy/RVMttwEZKCBVGegxexpKK0n3UtAXjm7nTlYCJ+6R9ex5pIhDjr
xEwPThJMYiv91eTZUDbd3D7bjY0wW5U3m1LZeOs82urfyoaJT2Nz9sJkpAde
a2zZnowUdpCdU2QyeHmba9sKk8F9ONfctSsZ7PY35R3zOWg4vWmVohEH8xSy
BdvcOdhR+JtMTCwHSbaHAysKOCjqVbp24TkHzazaDucBDkbUA+WXz+FCqVrT
emQNF8aWK8+0WnGxt27trZL9XIQ5bOgVhHJx6ZWxSijhQqyyzC4tj4vXHtKh
FVVcjOT2X21v5kK+v+nV5GcuYjrdx7ePczHW1K+SKUfBtzYEgyoU2sukPbGW
wphM8otwUwrye5aYi20p6Iqyi344U7CVrF6m70NBLcVm8scJChL4vBNHUKjt
YYnPXKCQmpgtMONRMH1/9buUkELHhkL7mjwKZ+Pv5sfdpqD+rlzWtpLCQ90H
XrMfU/gUnG3xop6CzL0oDV4rhRWyB6a5dDB17C26fu+hcESgWd09QOHkUIvz
su8UwqxjJS7jFKKEhgn8qQQXxj5rN0sTcO1Tq+fOIbCyG2rXXEjw09LqHyMl
ggKzdOXtKgQeJhKjA+oEiwysnU7rEDxdlxGYuJpA0TBTtVCXwHOjsKZxPUGh
RdYxiSHBhE32IgVTAmv7nEp9MwJ6j+ig0xaCSdOD35faEvho6kR37SB4/Kjk
5AeGy71tvLoZxsq8dexh2HP1qOVnhla2k/p9DKUT1ZW+Maxp2DL2N8OYhYfa
RhhOu/FEpGJPcMZmpb8Fw/Hu8ya+DIPO9klzGNpTRWMKOwlW5Qb1CXYRzCgz
faeym6CjTqpeuIegtONJtZYzgUFW9P7Lewm8Q2bU3XUl4DvE6Ne6Mf5WSgtb
9xOw5HTNgz0JzAecPih5MX3Un40uPUhQXpSn9acPQQi3qebnIYKk/tx2B1+C
HKuwkbwjjL5wxxypYwTPxzW19x4n+OA4ZnrLj8A1/OJEYADByxw1sfFJgh11
N0//OsXMVbLF8H4QwWbl1yOs0wQV5kfuWIcy/g5PnpgdTlCUzNFrPEOwslRr
iIpk6nSW3HA6R6AqY3dsaTQBb23H6k4Wwfw9AX3Zscx+z8zI844nmH6Z77Pq
AsHw2IKqcwkETqzp+gZJBOJ5I9f72ARqaT0amRyCKJ3XKbsogk83n86XpQls
NpbHVfAI8p/kT/oLGF3HjEDtVIKTnez+tjSC+DZTF8klgvTmL09nCRl/z3lG
mtnMnh5bXDEREbTdH1rkmEswUH6JdfQqwXGVEZVV1wm+hW+921vA5O052y4X
EQxunPjkeZvAL2NnxLJiJp/MU+woJfB3n1aYVk5wkyt6XVdFIKn5Q+qf+wTr
f/atXlNDcGpN0m7XJwR33fUiE+oIRrktVyvqCQxrg5v6XxD8y7XSNa+VQEsi
1XvwLYFyvHWARhfTh1rSREc3867uNMekfSH4ZbNkvvM3Zj6dbqkKwwSVxRtT
dMYJ4hJVBEbTaOz0muDZytJQMXlDu86j0bOgjBxXpHHzM586q0ojrDqIy9Wi
YcnbzRGtprHRb0VQoj4NfeuJvUGgsUa9Hu42NLTGhVrWuxid5pMz9fbRUMi3
+rbEh4ZczJJmqQAa0936S76G0pgwqE5vYdHQaTZOOkHRcPC7Ezk/m0a4nG7A
jSIaV67keW6tptFkoeXY95zGr84My/h3NFaELzHU+Upj12Ky4tFPGhF35ip7
yvKwtHpqYZEaDyVPJRZT9HlwbOl+vc2Oh6GO1mPpHjwkfnki9TWYh5XfxXzj
JB5qJ/PXxIt48JyZeb9VzMOkPGeP9gsednTOlaoZ5iHzWkKBlyIfQ4Gz/pxh
zIeZefwMkQsfybOliywi+Hj/Ktrlo5APvZxpMtEP+Th3PPKWRg8fTca/9j2Q
FeCZWlOLNAR4MP2KnV2gAGWfwx6wrwtw87m9cct7AfJuaRctXpyCLP64zr7t
KUgJb7iUxUoBx0Ok0CNOwXmrkIur/k5B6KjZtel/pOJIruzTd+mp2Lensfeu
JBXbpQXSbOs0oNhd+1BGGvS8l28x/54GDcVBT2XbdMjXFp8bzkzHb0ERwr9G
0nHUt8ujNOISWtw2a4pkMmC6S9TNTs6AQ07Uzo2zMxFzaf362/aZKON3y6+k
MzHAob9ntGVCPcHqpYKaELtjf9y94CnEGed1N9iNQlxedTiXbMpC/T9ZGSn5
WRitf8PLUM6GWpY8Oyc+G1Ynt8ZdHc2Gn2VMZIFXDvhKVcG3mnJQ/WXUr8RM
hKrpRk8bJCJUqoZofBZdhtvciuThmbn47yfDLxf/BksJE9Q=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwV0wFHHgAABNBvSZK0JEmSlkySJJkkSZIkSTKZSZIkaUlmkiRJkiRJkiRJ
kiRJMpkkSZIkSZIkSZIkSbLX8e4X3H2p/VXR/CkQCHz+KAkimBBCCSOcCCKJ
IpoYYokjngQSSSKZr6SQShrpZJBJFt/IJodc8singEKKKKaEUsoop4JKvlPF
D35STQ211FFPA4000UwLrbTxmz+000EnXXTTQy999DPAIEMMM8IoY4wzwSRT
TDPDLHPMs8AiSyyzwiprrPOXDf6xyRbb7LDLHvsccMgRx5xwyhnnXHDJFdfc
cMsd9zzwyBPPvPDKG+8EbCCIYEIIJYxwIogkimhiiCWOeBJIJIlkvpJCKmmk
k0EmWXwjmxxyySOfAgopopgSSimjnAoq+U4VP/hJNTXUUkc9DTTSxMfIW2il
jd/8oZ0OOumimx566aOfAQYZYpgRRhljnAkmmWKaGWaZY54FFllimRVWWWOd
v2zwj0222GaHXfbY54BDjjjmhFPOOOeCS6645oZb7rjngUeeeOaFV9545+P8
QQQTQihhhBNBJFFEE0MsccTzH2aogjQ=
                    "], CompressedData["
1:eJwN0Xc01X8YB/BrFtnXvd9IQyTSzyoy0vOxIyuZGWVG1r3ZK6vMlJWdLTNE
9lZpaAhZIVSUvcn89efrvM953ue8H24LZx1rChwOx0WJw1UzVVzoVuoBBzE9
kTOFeFgot6kUVe4Bk1Ga3yVFeLAZJEvE/POXy9E9wiV4cGF82s2n3QOzBXWc
3D14WM1ddfts1AME/Yz05C08fJHJsYi07AH5iS1c2kl2yOr+qG0Y0ANsxOoO
oxR2uHMt+lj3kx5AoY0fD2AEYD1h9nO/4V//3GWJpSQCRHjwyv0Z6oGV8MOF
t04QgfD+YnILUy/UcrIaYHQYBFsOPWlR7IW0V6Pqm5SHYfrQ2Vk2v14wM/si
8IeZA7SNFYqmanohKOUUYhLjBEnnwivktV4Q9LtSP2p/BKTf6P80V/oKTp+U
2ovwR0G4wPSVfMpX2OHwouObPgY+KmFl2atfQYThu0eAzwngb+Ii8ev1QUeC
6OfuLG4Q0Z8JSmrsg/m85dfDcydhktSuNSzYD1/HIq0mbXjhXZNx+aHcfqBS
ytzjI/LBkjz10izDAGzfG8iLzTkNZ31O/bnpNwCmG6a0V6wE4IlNJd5ufQBc
H4qYqFoIgg0PV4y01yAcfBTgKFb0H1Tih1Zj/gyC/lwcT2WDMBzcvP1q1XwI
Kim/gOtBUWDUcesn/xiCCB0VZQdjMSh4ndSm4fwNJlRwjbuj5+BAsn0Jeeob
DL+4vH/tkjj0q15357QdhuiR/XDsvQSotV3Ot1wehtLEiaHaCEko6Y3WyAwd
gWxNedHhCGnQej20ynFwFMQElO52GV8EEjz3So4ZhaEdTeZpm0sQzX+6UeXU
d5AgC8SGGSMYjlTcC3n1HcqP2orvlciBdmRK11++MZgIP1Dw87s81HWGXfAk
jUFBL2i1SyqCR8NZpestYxA6RV+T0awERC9ZKSP2cfDPZpPU9FaBoI8PxsdM
x4FwfNotjEkVvm6Q2XxKxuGNvBOLbK8acNnr0XTiJkDVJSzdq1cdOEu6n8ca
T4DJ017yI04tcNQKltAsmgDvXeGR+QRtuETqanLYm4AUGrLgq9arkNKIf5ls
+APOBVmTkliugcw6S25m3Q8Q3TNKLY7Shdc1vjb7jD+hffnesbPTelBbs/fo
sO1PELxe+MCdZACmb/wfZr79CU99JPVx/EbgisuZcxD5Bbri77aZOI2ho6qD
ZT7iF/wxPevrOWECi9g6TfjML3C/dm2fZdwMOkV7trZ1JiFfJ7iy4tFNeD53
Pfp0+yQM8Gxs5vWag+65oT5TninQZ4nOw+9bwEc7rvfEyCk4OuT2X4K6Fdw3
PaJ6ZGsKjhgnmF9+aQ3Eh/ychuTf8Pnyebeq27fgA1+l4MLgbxDV9szxX7SF
mMkPdH6qf+DZYvFYUc5tSGE+ZNPX+gd0tXxUKR84AMFwhrSGpqF27Ufc8Uon
iD5zUbru+TR8GjCc+mVAApbcv3lrAjPwvjX5zyMXMuiNPk5+UDQDZ3pKS+4/
vwOiL3xlQs/PAiVFUccY5gqTKULxTqWzkEVjQ5dl6QZ2sqGu5iJzcOSWn43y
V3dIHZoo026YA6YUrXJeF0+I2i7R1teeh0LVmxl/Fb0hDp1eje2dh/d5WtGN
az7w+xdjf7D5Avh+eGzg1e8HaVvzq2c2F0DgzayS7LI/PBbFDw+pL4KwoPDJ
2dOB//bt1nuZswjx6pR2Z+8GAWEhwn9sbhE0GbtsWsuCYbjArmz84hJMFMaz
ZFHdh08PpcP1Y5aA4JHoaeAfAvc5G2wmZ5ag996ic7JAGGQ21bjraSxD+EOR
xiT6CDhSH3Ian7UMwssJy+/rI2F9IL3ZZGsZuPbm0FZKFMyVHxTqMVoBMt+T
soqKR+Ad1C8r2roCx62dHe7RxEAV0/Z3baFVcBzg0fAziIULL+bdIh+uQurm
cYWSyDhIn+5LkFxbBfmPb707xuMhaDXUmtVyDYI+y2SsmyVAvl5U9czAGhya
wios6ZKAPkggscVgHbLENuNsfycDY9IIW+nYOpx3xCUMUKeB8r41pYHhBqSk
b0iVLT4BVyGfItOBDVh+saRqT5cJC/3LyhXmm6DYH9GaIJUFM80kadu1TWC4
IvrLOSobrBKjPzfE/4WtfN3fV+hzIdw/++NhuS1orf3GaVidBydHW+VL1LZh
PuO9oo9tASC3QS4+9x3gWp3kpU8thq6VOKmYf1byvz8inlYM1yIGr+/8s/OP
FyXmT4rBxLco4JbHDvCUakVFpRdDMOOB4u5/FpzU96/LKAbrwIVBWc8dsIzt
DPqVWQzH3g4gdq8d4DdSfi6bUww631bqpv+ZwtT/VEJeMSgMyCu1ee9Ak5n/
9/n8YhgNVMniC94BrS9i/G4txRBrWHcyLnIHvjYw9RH7i0FtbPwLbfwOxEaf
pOudLwYxdLQmMG0H2MNyxktoS2A8ojR+YnkHUkYzC0W3S2ArKytJSn0XPuW6
KjBtPwOBZabJwoJd4Pl9y7aNtgwuF9UcMTy4ByfIbBJWzOXQJ+6kfdt+DzY5
Vp9+yioH1WNZ44PEfbDyDMw/l/0ceCbgAkPJPvy6Wy++EFwBV/a175nx4pC0
n7Ti9p1KGHxZV/3MHYeY7uRfTXJ+AXV/adOC63FolFY5+AaqAgfqG/VMFBTo
YuSZkRCOaiAHUlDdVqNAuTZ+fl+3qmH5ZJVjWQIFohc6fGv6Rw2MkSTtN35R
IO5Bh8XzvbVA3VTZ0CFAiaZVGrsfZNTBis7iSpMzJfpoKpdd7VQPlJTJ5Mka
SmQokM6Mk2sAQaeGIBVKKvRKgZM2jtAIVcKcVJOaVIhZrUjCZaYRTHSSH0xW
UyG6Ih45FepmSGbkMGg/SY3eRWGOJpwtUEVUyreLpUZ4wZleLkIrRHB/etdC
Q4NimBjatxNbwS37aGKyLw0SKvHULcS3ganfd4vGdRqEnfJI+nm/DYa2xi1G
XGiR7Amu8+azbcC8uFmRtUKLnsQSD44ptgNX4Ct8htsBxHFuR/hKVDuwfqV2
M/17ALFsZyr3vGwHRw/RK0Z3DyL2ObOLh6bagRQwnEpLTYeuFuM+7a+1w814
rqTecDrUKJowobLYDiZ3xSJFmelRuDZd56G+drjlyjj4MI4esafPulMWtIOv
fH50HTqExDNviIRotoPl0w2au42HkETzYj/9dhvEDSrYD4kzIL/H6hbCKW0Q
yjFn5F3CgLTcTMTW/2sDb+uo69gJRuQa8T2ZXNsKstXZLF7RjGg2jNKqVKYV
WJ697nHdZUTON/oIii4tgM+UG5u1YUKPpFUspW2boWyOXfrzByZk3hfz/Z5R
E+B1GG6wCzOj8d4YCUq1RvhdasY7k82MuORMEz/s1cOiifNA+UEWxPeYvPum
rg6cuI4fU5dlQYSfnV8++9VCb1p5oYkzC6Lq/mO6rV4Dr2ntnLbTWdB8cgdf
PX81OLw436nwgQU109e2LbJWgea0oyAfNSsizmo0GNdXgv+k5RsfSVZ05Z3H
eIN3BSRWV9Xet2NFhOKptAid5/BJ/vhyUCIrUsu+rPkBlUOlEv+VsnZWtHbJ
zNgvrBR6xkkL8jOsiJ7lrdpqdQmcacRx3mFlQ5bv7c/g6YuhuU87m1OGDbkF
MabfkSsEMm/USwYLNlTqYm/EnZ0PUo8oDoaGsCHe2moKWv6ncOnI0RdtBWxo
/hVbj/HnXDBoz9JeeMuGVjh97arjc6B2nfaC7BQbSs6zU8a5ZQPuQsbhXio8
2pIxk3Z3zILH37RlSYJ4dF56d9yQMROugq/CjhYeycTfZ7AueQIMoqVU3WQ8
kkq+yqxwLxWE20nRl2LwSMhXz8UxKRmoGjMU7pXikXjic7WUsURoUIh2GX6H
Rz+66mM+6yXAsVPdI54/8KgplvBBYDkeTkg1RfXRsiMb9vsjgUfjQEy1n1L0
NDsaWv9vIiQ0BhgzjwjMKbKjZ0USgh6noiH9kt6M2U12xKdGivMfiYKc5JNJ
H7zY0W1lt7Ct2kjoHaQNIcewI1PHNAuJ7nAwO7J0PCCfHVkZoKvYiTCwUvIN
4mlkR81fn4ucSA0Bn4csoit97ChqKp+sU38PPqSNBCUusCPeXybd9oeD4VvQ
aUcDWgIKpX2qm14UCOrmFzccjxBQmCzu7HXbAJi0Di5gECag9DeBimGP74LQ
yUpLUzkC+vllWz87yRdqTXn7gnUIaIREV7zR5Q0Z+LTEdAsCOsStG3D4ghdU
tqcwviUTUKXxDve3Vx5gfcrJLy2EgDo26t87jLmB5qxGYE8yAS0Y337UJeUK
Vz/LJ2UWE5BvZjMpvOMOjKwZVAs1/sud0vSU75Lhy9tDuOxOAlrle6Njcp0E
MmPYUY4hAkqtHpJ/X+QEEXlul0qnCKhWgJth/qsDjNzWmPFYJSCJgrWcESF7
YBXrzA7HEVGAJ/9aVJkdONAnstWyEpE8v4fHXv4tUNZqkI7nJqJMA6OMsQnr
f/c9NC6LENEix/KXPl0r+Hv9vfOGLBGFZnIE/lq1gNH2XMEWNSJKYalnGG0w
h3mLzPBafSKKqKh4vZxzEyT/LP/ZNCciE/L0sc/aN6CO6vGzWAcicpHbuvss
whTyBjwbHrsTkfPnNEq6BWMQlgs0JtwnopeWUb+Ga4ygZTgm2T2WiHxlNF7M
vjOA1GWFwJF0IhIOrEoKPawPcdrUNLZFRNRw3kq7PFkXPi1/kxeuIiLedF1V
stI18LY39b7cQkTnugQozQk6YNB8/t3rt0Q0sKBYrUJ9FSK7UpuqvxBRYRDO
aZhRGxQn1d/xDxFR2QsKl1OmmlAkr5kYOElE6S16xaTFK+DZ+/zvzyUiOm9/
JrS+VxUyCOU8d3aIiHR5qfTDtgpovp9blKfFkPfRkcXA68pw6nYdjSMzhhSy
xFVxvxWhmcmkgPIwhqomW/QEnygAaZ7pFv4EhnYrrZxkXeXh71NSUslpDF0Q
Pt7kYysHK7cOtA4KYSi4ZtR91w3B7JzgVWcpDGnZb7wiKV6CnZKIhyIKGBLf
06HLW5eBzt9eHZLqGArp7xHNWZaChBKZyHRdDE10eMqsCkpCytmuKlcTDJ2T
HZCuT5IAg1Al/k5LDC2f1FliFBUH18l75mW3MZSKC1APnz8H2fF6C2fJGOJ7
cYlrqVMMmsdU32h4YKguUeft6itRsJOqOmYXgKGyLcqejasiUKOh+7IzDEP0
uhOPJbiF4L9Ij7aoaAxpKGQ4Dy8IwpM53tn2RAypuZYpr1OcASWh3Q6fdAxV
7/NfCFfnB+8FDvGOXAzp/H7k2NXBBx0hEbvPijAkVyB5qcbuFNAShURlyzGU
aZd60UOYF1KCf3r5VmHIbtolWgvPA9PS9Ff1mzA0p+8RSh3ADaOfcnYfvsIQ
K95G3ZrnBKykSrXJdGLo73wImp08ClljbASnLxhaeKlGtdJ1BK7LGd09348h
mde4HxWbHOC5cOhs6jCGKHfuDXnrHoaacjGnknEMsRsET/gOE+GlvSgreRJD
Ya626jciCHB9Ijp3cfrfv4wDV6YN2SE2Rfx19RKG4nRxnXO5bMBkkXtgcQND
D85Zhn07ywo/CohFaBtDupgzxwdHFlj9yEPhuIehl9vmE2FezPA/8Y/ZzQ==

                    "]}, {Automatic}]}}]], 1], 1, 1, 3] Cos[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 3000.}}, {
                    3, 11, 1, {270}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwtlnk4lWsXxit1UJqJEk7Gxi+5ynRRN4ljaKAUJyISpQEVMkSxDRW2vd/n
3XsbYmOnFNFk2KYmGpwQUipDJUrE2SJx8r3f8FzXen7X+ude91rr+eNZ5nHc
wWvalClTpjIx5z/X/88X74UFPN+mTf/jh03nIuLOB1b+js0fFf9arKGLh3F9
u358MoD0m7L9pzdb4eWPCDuxtT2WR6v3lg7tRujcR1ElAhekZ7y1Cf/ogbDi
lztVw7yxt77BpWrhEaSf6NYrdPRDQoRHcaQwAB69dWp2gadgYG8Qp2gbDLky
4eB7tVB0qcs5FwyH480WcWf5gUhYhgxS6vVnUVigZR1nFIWBe8/mObhFY3WL
/ytlFguHehUzu/NikDte4X2jIRYHhZuMZonjoG11b6a3KB6fvpq/vZ90HiLO
w3zVkAuoy/RVMttwEZKCBVGegxexpKK0n3UtAXjm7nTlYCJ+6R9ex5pIhDjr
xEwPThJMYiv91eTZUDbd3D7bjY0wW5U3m1LZeOs82urfyoaJT2Nz9sJkpAde
a2zZnowUdpCdU2QyeHmba9sKk8F9ONfctSsZ7PY35R3zOWg4vWmVohEH8xSy
BdvcOdhR+JtMTCwHSbaHAysKOCjqVbp24TkHzazaDucBDkbUA+WXz+FCqVrT
emQNF8aWK8+0WnGxt27trZL9XIQ5bOgVhHJx6ZWxSijhQqyyzC4tj4vXHtKh
FVVcjOT2X21v5kK+v+nV5GcuYjrdx7ePczHW1K+SKUfBtzYEgyoU2sukPbGW
wphM8otwUwrye5aYi20p6Iqyi344U7CVrF6m70NBLcVm8scJChL4vBNHUKjt
YYnPXKCQmpgtMONRMH1/9buUkELHhkL7mjwKZ+Pv5sfdpqD+rlzWtpLCQ90H
XrMfU/gUnG3xop6CzL0oDV4rhRWyB6a5dDB17C26fu+hcESgWd09QOHkUIvz
su8UwqxjJS7jFKKEhgn8qQQXxj5rN0sTcO1Tq+fOIbCyG2rXXEjw09LqHyMl
ggKzdOXtKgQeJhKjA+oEiwysnU7rEDxdlxGYuJpA0TBTtVCXwHOjsKZxPUGh
RdYxiSHBhE32IgVTAmv7nEp9MwJ6j+ig0xaCSdOD35faEvho6kR37SB4/Kjk
5AeGy71tvLoZxsq8dexh2HP1qOVnhla2k/p9DKUT1ZW+Maxp2DL2N8OYhYfa
RhhOu/FEpGJPcMZmpb8Fw/Hu8ya+DIPO9klzGNpTRWMKOwlW5Qb1CXYRzCgz
faeym6CjTqpeuIegtONJtZYzgUFW9P7Lewm8Q2bU3XUl4DvE6Ne6Mf5WSgtb
9xOw5HTNgz0JzAecPih5MX3Un40uPUhQXpSn9acPQQi3qebnIYKk/tx2B1+C
HKuwkbwjjL5wxxypYwTPxzW19x4n+OA4ZnrLj8A1/OJEYADByxw1sfFJgh11
N0//OsXMVbLF8H4QwWbl1yOs0wQV5kfuWIcy/g5PnpgdTlCUzNFrPEOwslRr
iIpk6nSW3HA6R6AqY3dsaTQBb23H6k4Wwfw9AX3Zscx+z8zI844nmH6Z77Pq
AsHw2IKqcwkETqzp+gZJBOJ5I9f72ARqaT0amRyCKJ3XKbsogk83n86XpQls
NpbHVfAI8p/kT/oLGF3HjEDtVIKTnez+tjSC+DZTF8klgvTmL09nCRl/z3lG
mtnMnh5bXDEREbTdH1rkmEswUH6JdfQqwXGVEZVV1wm+hW+921vA5O052y4X
EQxunPjkeZvAL2NnxLJiJp/MU+woJfB3n1aYVk5wkyt6XVdFIKn5Q+qf+wTr
f/atXlNDcGpN0m7XJwR33fUiE+oIRrktVyvqCQxrg5v6XxD8y7XSNa+VQEsi
1XvwLYFyvHWARhfTh1rSREc3867uNMekfSH4ZbNkvvM3Zj6dbqkKwwSVxRtT
dMYJ4hJVBEbTaOz0muDZytJQMXlDu86j0bOgjBxXpHHzM586q0ojrDqIy9Wi
YcnbzRGtprHRb0VQoj4NfeuJvUGgsUa9Hu42NLTGhVrWuxid5pMz9fbRUMi3
+rbEh4ZczJJmqQAa0936S76G0pgwqE5vYdHQaTZOOkHRcPC7Ezk/m0a4nG7A
jSIaV67keW6tptFkoeXY95zGr84My/h3NFaELzHU+Upj12Ky4tFPGhF35ip7
yvKwtHpqYZEaDyVPJRZT9HlwbOl+vc2Oh6GO1mPpHjwkfnki9TWYh5XfxXzj
JB5qJ/PXxIt48JyZeb9VzMOkPGeP9gsednTOlaoZ5iHzWkKBlyIfQ4Gz/pxh
zIeZefwMkQsfybOliywi+Hj/Ktrlo5APvZxpMtEP+Th3PPKWRg8fTca/9j2Q
FeCZWlOLNAR4MP2KnV2gAGWfwx6wrwtw87m9cct7AfJuaRctXpyCLP64zr7t
KUgJb7iUxUoBx0Ok0CNOwXmrkIur/k5B6KjZtel/pOJIruzTd+mp2Lensfeu
JBXbpQXSbOs0oNhd+1BGGvS8l28x/54GDcVBT2XbdMjXFp8bzkzHb0ERwr9G
0nHUt8ujNOISWtw2a4pkMmC6S9TNTs6AQ07Uzo2zMxFzaf362/aZKON3y6+k
MzHAob9ntGVCPcHqpYKaELtjf9y94CnEGed1N9iNQlxedTiXbMpC/T9ZGSn5
WRitf8PLUM6GWpY8Oyc+G1Ynt8ZdHc2Gn2VMZIFXDvhKVcG3mnJQ/WXUr8RM
hKrpRk8bJCJUqoZofBZdhtvciuThmbn47yfDLxf/BksJE9Q=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwV0wFHHgAABNBvSZK0JEmSlkySJJkkSZIkSTKZSZIkaUlmkiRJkiRJkiRJ
kiRJMpkkSZIkSZIkSZIkSbLX8e4X3H2p/VXR/CkQCHz+KAkimBBCCSOcCCKJ
IpoYYokjngQSSSKZr6SQShrpZJBJFt/IJodc8singEKKKKaEUsoop4JKvlPF
D35STQ211FFPA4000UwLrbTxmz+000EnXXTTQy999DPAIEMMM8IoY4wzwSRT
TDPDLHPMs8AiSyyzwiprrPOXDf6xyRbb7LDLHvsccMgRx5xwyhnnXHDJFdfc
cMsd9zzwyBPPvPDKG+8EbCCIYEIIJYxwIogkimhiiCWOeBJIJIlkvpJCKmmk
k0EmWXwjmxxyySOfAgopopgSSimjnAoq+U4VP/hJNTXUUkc9DTTSxMfIW2il
jd/8oZ0OOumimx566aOfAQYZYpgRRhljnAkmmWKaGWaZY54FFllimRVWWWOd
v2zwj0222GaHXfbY54BDjjjmhFPOOOeCS6645oZb7rjngUeeeOaFV9545+P8
QQQTQihhhBNBJFFEE0MsccTzH2aogjQ=
                    "], CompressedData["
1:eJwN0Xc01X8YB/BrFtnXvd9IQyTSzyoy0vOxIyuZGWVG1r3ZK6vMlJWdLTNE
9lZpaAhZIVSUvcn89efrvM953ue8H24LZx1rChwOx0WJw1UzVVzoVuoBBzE9
kTOFeFgot6kUVe4Bk1Ga3yVFeLAZJEvE/POXy9E9wiV4cGF82s2n3QOzBXWc
3D14WM1ddfts1AME/Yz05C08fJHJsYi07AH5iS1c2kl2yOr+qG0Y0ANsxOoO
oxR2uHMt+lj3kx5AoY0fD2AEYD1h9nO/4V//3GWJpSQCRHjwyv0Z6oGV8MOF
t04QgfD+YnILUy/UcrIaYHQYBFsOPWlR7IW0V6Pqm5SHYfrQ2Vk2v14wM/si
8IeZA7SNFYqmanohKOUUYhLjBEnnwivktV4Q9LtSP2p/BKTf6P80V/oKTp+U
2ovwR0G4wPSVfMpX2OHwouObPgY+KmFl2atfQYThu0eAzwngb+Ii8ev1QUeC
6OfuLG4Q0Z8JSmrsg/m85dfDcydhktSuNSzYD1/HIq0mbXjhXZNx+aHcfqBS
ytzjI/LBkjz10izDAGzfG8iLzTkNZ31O/bnpNwCmG6a0V6wE4IlNJd5ufQBc
H4qYqFoIgg0PV4y01yAcfBTgKFb0H1Tih1Zj/gyC/lwcT2WDMBzcvP1q1XwI
Kim/gOtBUWDUcesn/xiCCB0VZQdjMSh4ndSm4fwNJlRwjbuj5+BAsn0Jeeob
DL+4vH/tkjj0q15357QdhuiR/XDsvQSotV3Ot1wehtLEiaHaCEko6Y3WyAwd
gWxNedHhCGnQej20ynFwFMQElO52GV8EEjz3So4ZhaEdTeZpm0sQzX+6UeXU
d5AgC8SGGSMYjlTcC3n1HcqP2orvlciBdmRK11++MZgIP1Dw87s81HWGXfAk
jUFBL2i1SyqCR8NZpestYxA6RV+T0awERC9ZKSP2cfDPZpPU9FaBoI8PxsdM
x4FwfNotjEkVvm6Q2XxKxuGNvBOLbK8acNnr0XTiJkDVJSzdq1cdOEu6n8ca
T4DJ017yI04tcNQKltAsmgDvXeGR+QRtuETqanLYm4AUGrLgq9arkNKIf5ls
+APOBVmTkliugcw6S25m3Q8Q3TNKLY7Shdc1vjb7jD+hffnesbPTelBbs/fo
sO1PELxe+MCdZACmb/wfZr79CU99JPVx/EbgisuZcxD5Bbri77aZOI2ho6qD
ZT7iF/wxPevrOWECi9g6TfjML3C/dm2fZdwMOkV7trZ1JiFfJ7iy4tFNeD53
Pfp0+yQM8Gxs5vWag+65oT5TninQZ4nOw+9bwEc7rvfEyCk4OuT2X4K6Fdw3
PaJ6ZGsKjhgnmF9+aQ3Eh/ychuTf8Pnyebeq27fgA1+l4MLgbxDV9szxX7SF
mMkPdH6qf+DZYvFYUc5tSGE+ZNPX+gd0tXxUKR84AMFwhrSGpqF27Ufc8Uon
iD5zUbru+TR8GjCc+mVAApbcv3lrAjPwvjX5zyMXMuiNPk5+UDQDZ3pKS+4/
vwOiL3xlQs/PAiVFUccY5gqTKULxTqWzkEVjQ5dl6QZ2sqGu5iJzcOSWn43y
V3dIHZoo026YA6YUrXJeF0+I2i7R1teeh0LVmxl/Fb0hDp1eje2dh/d5WtGN
az7w+xdjf7D5Avh+eGzg1e8HaVvzq2c2F0DgzayS7LI/PBbFDw+pL4KwoPDJ
2dOB//bt1nuZswjx6pR2Z+8GAWEhwn9sbhE0GbtsWsuCYbjArmz84hJMFMaz
ZFHdh08PpcP1Y5aA4JHoaeAfAvc5G2wmZ5ag996ic7JAGGQ21bjraSxD+EOR
xiT6CDhSH3Ian7UMwssJy+/rI2F9IL3ZZGsZuPbm0FZKFMyVHxTqMVoBMt+T
soqKR+Ad1C8r2roCx62dHe7RxEAV0/Z3baFVcBzg0fAziIULL+bdIh+uQurm
cYWSyDhIn+5LkFxbBfmPb707xuMhaDXUmtVyDYI+y2SsmyVAvl5U9czAGhya
wios6ZKAPkggscVgHbLENuNsfycDY9IIW+nYOpx3xCUMUKeB8r41pYHhBqSk
b0iVLT4BVyGfItOBDVh+saRqT5cJC/3LyhXmm6DYH9GaIJUFM80kadu1TWC4
IvrLOSobrBKjPzfE/4WtfN3fV+hzIdw/++NhuS1orf3GaVidBydHW+VL1LZh
PuO9oo9tASC3QS4+9x3gWp3kpU8thq6VOKmYf1byvz8inlYM1yIGr+/8s/OP
FyXmT4rBxLco4JbHDvCUakVFpRdDMOOB4u5/FpzU96/LKAbrwIVBWc8dsIzt
DPqVWQzH3g4gdq8d4DdSfi6bUww631bqpv+ZwtT/VEJeMSgMyCu1ee9Ak5n/
9/n8YhgNVMniC94BrS9i/G4txRBrWHcyLnIHvjYw9RH7i0FtbPwLbfwOxEaf
pOudLwYxdLQmMG0H2MNyxktoS2A8ojR+YnkHUkYzC0W3S2ArKytJSn0XPuW6
KjBtPwOBZabJwoJd4Pl9y7aNtgwuF9UcMTy4ByfIbBJWzOXQJ+6kfdt+DzY5
Vp9+yioH1WNZ44PEfbDyDMw/l/0ceCbgAkPJPvy6Wy++EFwBV/a175nx4pC0
n7Ti9p1KGHxZV/3MHYeY7uRfTXJ+AXV/adOC63FolFY5+AaqAgfqG/VMFBTo
YuSZkRCOaiAHUlDdVqNAuTZ+fl+3qmH5ZJVjWQIFohc6fGv6Rw2MkSTtN35R
IO5Bh8XzvbVA3VTZ0CFAiaZVGrsfZNTBis7iSpMzJfpoKpdd7VQPlJTJ5Mka
SmQokM6Mk2sAQaeGIBVKKvRKgZM2jtAIVcKcVJOaVIhZrUjCZaYRTHSSH0xW
UyG6Ih45FepmSGbkMGg/SY3eRWGOJpwtUEVUyreLpUZ4wZleLkIrRHB/etdC
Q4NimBjatxNbwS37aGKyLw0SKvHULcS3ganfd4vGdRqEnfJI+nm/DYa2xi1G
XGiR7Amu8+azbcC8uFmRtUKLnsQSD44ptgNX4Ct8htsBxHFuR/hKVDuwfqV2
M/17ALFsZyr3vGwHRw/RK0Z3DyL2ObOLh6bagRQwnEpLTYeuFuM+7a+1w814
rqTecDrUKJowobLYDiZ3xSJFmelRuDZd56G+drjlyjj4MI4esafPulMWtIOv
fH50HTqExDNviIRotoPl0w2au42HkETzYj/9dhvEDSrYD4kzIL/H6hbCKW0Q
yjFn5F3CgLTcTMTW/2sDb+uo69gJRuQa8T2ZXNsKstXZLF7RjGg2jNKqVKYV
WJ697nHdZUTON/oIii4tgM+UG5u1YUKPpFUspW2boWyOXfrzByZk3hfz/Z5R
E+B1GG6wCzOj8d4YCUq1RvhdasY7k82MuORMEz/s1cOiifNA+UEWxPeYvPum
rg6cuI4fU5dlQYSfnV8++9VCb1p5oYkzC6Lq/mO6rV4Dr2ntnLbTWdB8cgdf
PX81OLw436nwgQU109e2LbJWgea0oyAfNSsizmo0GNdXgv+k5RsfSVZ05Z3H
eIN3BSRWV9Xet2NFhOKptAid5/BJ/vhyUCIrUsu+rPkBlUOlEv+VsnZWtHbJ
zNgvrBR6xkkL8jOsiJ7lrdpqdQmcacRx3mFlQ5bv7c/g6YuhuU87m1OGDbkF
MabfkSsEMm/USwYLNlTqYm/EnZ0PUo8oDoaGsCHe2moKWv6ncOnI0RdtBWxo
/hVbj/HnXDBoz9JeeMuGVjh97arjc6B2nfaC7BQbSs6zU8a5ZQPuQsbhXio8
2pIxk3Z3zILH37RlSYJ4dF56d9yQMROugq/CjhYeycTfZ7AueQIMoqVU3WQ8
kkq+yqxwLxWE20nRl2LwSMhXz8UxKRmoGjMU7pXikXjic7WUsURoUIh2GX6H
Rz+66mM+6yXAsVPdI54/8KgplvBBYDkeTkg1RfXRsiMb9vsjgUfjQEy1n1L0
NDsaWv9vIiQ0BhgzjwjMKbKjZ0USgh6noiH9kt6M2U12xKdGivMfiYKc5JNJ
H7zY0W1lt7Ct2kjoHaQNIcewI1PHNAuJ7nAwO7J0PCCfHVkZoKvYiTCwUvIN
4mlkR81fn4ucSA0Bn4csoit97ChqKp+sU38PPqSNBCUusCPeXybd9oeD4VvQ
aUcDWgIKpX2qm14UCOrmFzccjxBQmCzu7HXbAJi0Di5gECag9DeBimGP74LQ
yUpLUzkC+vllWz87yRdqTXn7gnUIaIREV7zR5Q0Z+LTEdAsCOsStG3D4ghdU
tqcwviUTUKXxDve3Vx5gfcrJLy2EgDo26t87jLmB5qxGYE8yAS0Y337UJeUK
Vz/LJ2UWE5BvZjMpvOMOjKwZVAs1/sud0vSU75Lhy9tDuOxOAlrle6Njcp0E
MmPYUY4hAkqtHpJ/X+QEEXlul0qnCKhWgJth/qsDjNzWmPFYJSCJgrWcESF7
YBXrzA7HEVGAJ/9aVJkdONAnstWyEpE8v4fHXv4tUNZqkI7nJqJMA6OMsQnr
f/c9NC6LENEix/KXPl0r+Hv9vfOGLBGFZnIE/lq1gNH2XMEWNSJKYalnGG0w
h3mLzPBafSKKqKh4vZxzEyT/LP/ZNCciE/L0sc/aN6CO6vGzWAcicpHbuvss
whTyBjwbHrsTkfPnNEq6BWMQlgs0JtwnopeWUb+Ga4ygZTgm2T2WiHxlNF7M
vjOA1GWFwJF0IhIOrEoKPawPcdrUNLZFRNRw3kq7PFkXPi1/kxeuIiLedF1V
stI18LY39b7cQkTnugQozQk6YNB8/t3rt0Q0sKBYrUJ9FSK7UpuqvxBRYRDO
aZhRGxQn1d/xDxFR2QsKl1OmmlAkr5kYOElE6S16xaTFK+DZ+/zvzyUiOm9/
JrS+VxUyCOU8d3aIiHR5qfTDtgpovp9blKfFkPfRkcXA68pw6nYdjSMzhhSy
xFVxvxWhmcmkgPIwhqomW/QEnygAaZ7pFv4EhnYrrZxkXeXh71NSUslpDF0Q
Pt7kYysHK7cOtA4KYSi4ZtR91w3B7JzgVWcpDGnZb7wiKV6CnZKIhyIKGBLf
06HLW5eBzt9eHZLqGArp7xHNWZaChBKZyHRdDE10eMqsCkpCytmuKlcTDJ2T
HZCuT5IAg1Al/k5LDC2f1FliFBUH18l75mW3MZSKC1APnz8H2fF6C2fJGOJ7
cYlrqVMMmsdU32h4YKguUeft6itRsJOqOmYXgKGyLcqejasiUKOh+7IzDEP0
uhOPJbiF4L9Ij7aoaAxpKGQ4Dy8IwpM53tn2RAypuZYpr1OcASWh3Q6fdAxV
7/NfCFfnB+8FDvGOXAzp/H7k2NXBBx0hEbvPijAkVyB5qcbuFNAShURlyzGU
aZd60UOYF1KCf3r5VmHIbtolWgvPA9PS9Ff1mzA0p+8RSh3ADaOfcnYfvsIQ
K95G3ZrnBKykSrXJdGLo73wImp08ClljbASnLxhaeKlGtdJ1BK7LGd09348h
mde4HxWbHOC5cOhs6jCGKHfuDXnrHoaacjGnknEMsRsET/gOE+GlvSgreRJD
Ya626jciCHB9Ijp3cfrfv4wDV6YN2SE2Rfx19RKG4nRxnXO5bMBkkXtgcQND
D85Zhn07ywo/CohFaBtDupgzxwdHFlj9yEPhuIehl9vmE2FezPA/8Y/ZzQ==

                    "]}, {Automatic}]}}]], 1]], $CellContext`rho4[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 3000.}}, {
                    3, 11, 1, {270}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwtlnk4lWsXxit1UJqJEk7Gxi+5ynRRN4ljaKAUJyISpQEVMkSxDRW2vd/n
3XsbYmOnFNFk2KYmGpwQUipDJUrE2SJx8r3f8FzXen7X+ude91rr+eNZ5nHc
wWvalClTpjIx5z/X/88X74UFPN+mTf/jh03nIuLOB1b+js0fFf9arKGLh3F9
u358MoD0m7L9pzdb4eWPCDuxtT2WR6v3lg7tRujcR1ElAhekZ7y1Cf/ogbDi
lztVw7yxt77BpWrhEaSf6NYrdPRDQoRHcaQwAB69dWp2gadgYG8Qp2gbDLky
4eB7tVB0qcs5FwyH480WcWf5gUhYhgxS6vVnUVigZR1nFIWBe8/mObhFY3WL
/ytlFguHehUzu/NikDte4X2jIRYHhZuMZonjoG11b6a3KB6fvpq/vZ90HiLO
w3zVkAuoy/RVMttwEZKCBVGegxexpKK0n3UtAXjm7nTlYCJ+6R9ex5pIhDjr
xEwPThJMYiv91eTZUDbd3D7bjY0wW5U3m1LZeOs82urfyoaJT2Nz9sJkpAde
a2zZnowUdpCdU2QyeHmba9sKk8F9ONfctSsZ7PY35R3zOWg4vWmVohEH8xSy
BdvcOdhR+JtMTCwHSbaHAysKOCjqVbp24TkHzazaDucBDkbUA+WXz+FCqVrT
emQNF8aWK8+0WnGxt27trZL9XIQ5bOgVhHJx6ZWxSijhQqyyzC4tj4vXHtKh
FVVcjOT2X21v5kK+v+nV5GcuYjrdx7ePczHW1K+SKUfBtzYEgyoU2sukPbGW
wphM8otwUwrye5aYi20p6Iqyi344U7CVrF6m70NBLcVm8scJChL4vBNHUKjt
YYnPXKCQmpgtMONRMH1/9buUkELHhkL7mjwKZ+Pv5sfdpqD+rlzWtpLCQ90H
XrMfU/gUnG3xop6CzL0oDV4rhRWyB6a5dDB17C26fu+hcESgWd09QOHkUIvz
su8UwqxjJS7jFKKEhgn8qQQXxj5rN0sTcO1Tq+fOIbCyG2rXXEjw09LqHyMl
ggKzdOXtKgQeJhKjA+oEiwysnU7rEDxdlxGYuJpA0TBTtVCXwHOjsKZxPUGh
RdYxiSHBhE32IgVTAmv7nEp9MwJ6j+ig0xaCSdOD35faEvho6kR37SB4/Kjk
5AeGy71tvLoZxsq8dexh2HP1qOVnhla2k/p9DKUT1ZW+Maxp2DL2N8OYhYfa
RhhOu/FEpGJPcMZmpb8Fw/Hu8ya+DIPO9klzGNpTRWMKOwlW5Qb1CXYRzCgz
faeym6CjTqpeuIegtONJtZYzgUFW9P7Lewm8Q2bU3XUl4DvE6Ne6Mf5WSgtb
9xOw5HTNgz0JzAecPih5MX3Un40uPUhQXpSn9acPQQi3qebnIYKk/tx2B1+C
HKuwkbwjjL5wxxypYwTPxzW19x4n+OA4ZnrLj8A1/OJEYADByxw1sfFJgh11
N0//OsXMVbLF8H4QwWbl1yOs0wQV5kfuWIcy/g5PnpgdTlCUzNFrPEOwslRr
iIpk6nSW3HA6R6AqY3dsaTQBb23H6k4Wwfw9AX3Zscx+z8zI844nmH6Z77Pq
AsHw2IKqcwkETqzp+gZJBOJ5I9f72ARqaT0amRyCKJ3XKbsogk83n86XpQls
NpbHVfAI8p/kT/oLGF3HjEDtVIKTnez+tjSC+DZTF8klgvTmL09nCRl/z3lG
mtnMnh5bXDEREbTdH1rkmEswUH6JdfQqwXGVEZVV1wm+hW+921vA5O052y4X
EQxunPjkeZvAL2NnxLJiJp/MU+woJfB3n1aYVk5wkyt6XVdFIKn5Q+qf+wTr
f/atXlNDcGpN0m7XJwR33fUiE+oIRrktVyvqCQxrg5v6XxD8y7XSNa+VQEsi
1XvwLYFyvHWARhfTh1rSREc3867uNMekfSH4ZbNkvvM3Zj6dbqkKwwSVxRtT
dMYJ4hJVBEbTaOz0muDZytJQMXlDu86j0bOgjBxXpHHzM586q0ojrDqIy9Wi
YcnbzRGtprHRb0VQoj4NfeuJvUGgsUa9Hu42NLTGhVrWuxid5pMz9fbRUMi3
+rbEh4ZczJJmqQAa0936S76G0pgwqE5vYdHQaTZOOkHRcPC7Ezk/m0a4nG7A
jSIaV67keW6tptFkoeXY95zGr84My/h3NFaELzHU+Upj12Ky4tFPGhF35ip7
yvKwtHpqYZEaDyVPJRZT9HlwbOl+vc2Oh6GO1mPpHjwkfnki9TWYh5XfxXzj
JB5qJ/PXxIt48JyZeb9VzMOkPGeP9gsednTOlaoZ5iHzWkKBlyIfQ4Gz/pxh
zIeZefwMkQsfybOliywi+Hj/Ktrlo5APvZxpMtEP+Th3PPKWRg8fTca/9j2Q
FeCZWlOLNAR4MP2KnV2gAGWfwx6wrwtw87m9cct7AfJuaRctXpyCLP64zr7t
KUgJb7iUxUoBx0Ok0CNOwXmrkIur/k5B6KjZtel/pOJIruzTd+mp2Lensfeu
JBXbpQXSbOs0oNhd+1BGGvS8l28x/54GDcVBT2XbdMjXFp8bzkzHb0ERwr9G
0nHUt8ujNOISWtw2a4pkMmC6S9TNTs6AQ07Uzo2zMxFzaf362/aZKON3y6+k
MzHAob9ntGVCPcHqpYKaELtjf9y94CnEGed1N9iNQlxedTiXbMpC/T9ZGSn5
WRitf8PLUM6GWpY8Oyc+G1Ynt8ZdHc2Gn2VMZIFXDvhKVcG3mnJQ/WXUr8RM
hKrpRk8bJCJUqoZofBZdhtvciuThmbn47yfDLxf/BksJE9Q=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwV0wFHHgAABNBvSZK0JEmSlkySJJkkSZIkSTKZSZIkaUlmkiRJkiRJkiRJ
kiRJMpkkSZIkSZIkSZIkSbLX8e4X3H2p/VXR/CkQCHz+KAkimBBCCSOcCCKJ
IpoYYokjngQSSSKZr6SQShrpZJBJFt/IJodc8singEKKKKaEUsoop4JKvlPF
D35STQ211FFPA4000UwLrbTxmz+000EnXXTTQy999DPAIEMMM8IoY4wzwSRT
TDPDLHPMs8AiSyyzwiprrPOXDf6xyRbb7LDLHvsccMgRx5xwyhnnXHDJFdfc
cMsd9zzwyBPPvPDKG+8EbCCIYEIIJYxwIogkimhiiCWOeBJIJIlkvpJCKmmk
k0EmWXwjmxxyySOfAgopopgSSimjnAoq+U4VP/hJNTXUUkc9DTTSxMfIW2il
jd/8oZ0OOumimx566aOfAQYZYpgRRhljnAkmmWKaGWaZY54FFllimRVWWWOd
v2zwj0222GaHXfbY54BDjjjmhFPOOOeCS6645oZb7rjngUeeeOaFV9545+P8
QQQTQihhhBNBJFFEE0MsccTzH2aogjQ=
                    "], CompressedData["
1:eJwN0Xc01X8YB/BrFtnXvd9IQyTSzyoy0vOxIyuZGWVG1r3ZK6vMlJWdLTNE
9lZpaAhZIVSUvcn89efrvM953ue8H24LZx1rChwOx0WJw1UzVVzoVuoBBzE9
kTOFeFgot6kUVe4Bk1Ga3yVFeLAZJEvE/POXy9E9wiV4cGF82s2n3QOzBXWc
3D14WM1ddfts1AME/Yz05C08fJHJsYi07AH5iS1c2kl2yOr+qG0Y0ANsxOoO
oxR2uHMt+lj3kx5AoY0fD2AEYD1h9nO/4V//3GWJpSQCRHjwyv0Z6oGV8MOF
t04QgfD+YnILUy/UcrIaYHQYBFsOPWlR7IW0V6Pqm5SHYfrQ2Vk2v14wM/si
8IeZA7SNFYqmanohKOUUYhLjBEnnwivktV4Q9LtSP2p/BKTf6P80V/oKTp+U
2ovwR0G4wPSVfMpX2OHwouObPgY+KmFl2atfQYThu0eAzwngb+Ii8ev1QUeC
6OfuLG4Q0Z8JSmrsg/m85dfDcydhktSuNSzYD1/HIq0mbXjhXZNx+aHcfqBS
ytzjI/LBkjz10izDAGzfG8iLzTkNZ31O/bnpNwCmG6a0V6wE4IlNJd5ufQBc
H4qYqFoIgg0PV4y01yAcfBTgKFb0H1Tih1Zj/gyC/lwcT2WDMBzcvP1q1XwI
Kim/gOtBUWDUcesn/xiCCB0VZQdjMSh4ndSm4fwNJlRwjbuj5+BAsn0Jeeob
DL+4vH/tkjj0q15357QdhuiR/XDsvQSotV3Ot1wehtLEiaHaCEko6Y3WyAwd
gWxNedHhCGnQej20ynFwFMQElO52GV8EEjz3So4ZhaEdTeZpm0sQzX+6UeXU
d5AgC8SGGSMYjlTcC3n1HcqP2orvlciBdmRK11++MZgIP1Dw87s81HWGXfAk
jUFBL2i1SyqCR8NZpestYxA6RV+T0awERC9ZKSP2cfDPZpPU9FaBoI8PxsdM
x4FwfNotjEkVvm6Q2XxKxuGNvBOLbK8acNnr0XTiJkDVJSzdq1cdOEu6n8ca
T4DJ017yI04tcNQKltAsmgDvXeGR+QRtuETqanLYm4AUGrLgq9arkNKIf5ls
+APOBVmTkliugcw6S25m3Q8Q3TNKLY7Shdc1vjb7jD+hffnesbPTelBbs/fo
sO1PELxe+MCdZACmb/wfZr79CU99JPVx/EbgisuZcxD5Bbri77aZOI2ho6qD
ZT7iF/wxPevrOWECi9g6TfjML3C/dm2fZdwMOkV7trZ1JiFfJ7iy4tFNeD53
Pfp0+yQM8Gxs5vWag+65oT5TninQZ4nOw+9bwEc7rvfEyCk4OuT2X4K6Fdw3
PaJ6ZGsKjhgnmF9+aQ3Eh/ychuTf8Pnyebeq27fgA1+l4MLgbxDV9szxX7SF
mMkPdH6qf+DZYvFYUc5tSGE+ZNPX+gd0tXxUKR84AMFwhrSGpqF27Ufc8Uon
iD5zUbru+TR8GjCc+mVAApbcv3lrAjPwvjX5zyMXMuiNPk5+UDQDZ3pKS+4/
vwOiL3xlQs/PAiVFUccY5gqTKULxTqWzkEVjQ5dl6QZ2sqGu5iJzcOSWn43y
V3dIHZoo026YA6YUrXJeF0+I2i7R1teeh0LVmxl/Fb0hDp1eje2dh/d5WtGN
az7w+xdjf7D5Avh+eGzg1e8HaVvzq2c2F0DgzayS7LI/PBbFDw+pL4KwoPDJ
2dOB//bt1nuZswjx6pR2Z+8GAWEhwn9sbhE0GbtsWsuCYbjArmz84hJMFMaz
ZFHdh08PpcP1Y5aA4JHoaeAfAvc5G2wmZ5ag996ic7JAGGQ21bjraSxD+EOR
xiT6CDhSH3Ian7UMwssJy+/rI2F9IL3ZZGsZuPbm0FZKFMyVHxTqMVoBMt+T
soqKR+Ad1C8r2roCx62dHe7RxEAV0/Z3baFVcBzg0fAziIULL+bdIh+uQurm
cYWSyDhIn+5LkFxbBfmPb707xuMhaDXUmtVyDYI+y2SsmyVAvl5U9czAGhya
wios6ZKAPkggscVgHbLENuNsfycDY9IIW+nYOpx3xCUMUKeB8r41pYHhBqSk
b0iVLT4BVyGfItOBDVh+saRqT5cJC/3LyhXmm6DYH9GaIJUFM80kadu1TWC4
IvrLOSobrBKjPzfE/4WtfN3fV+hzIdw/++NhuS1orf3GaVidBydHW+VL1LZh
PuO9oo9tASC3QS4+9x3gWp3kpU8thq6VOKmYf1byvz8inlYM1yIGr+/8s/OP
FyXmT4rBxLco4JbHDvCUakVFpRdDMOOB4u5/FpzU96/LKAbrwIVBWc8dsIzt
DPqVWQzH3g4gdq8d4DdSfi6bUww631bqpv+ZwtT/VEJeMSgMyCu1ee9Ak5n/
9/n8YhgNVMniC94BrS9i/G4txRBrWHcyLnIHvjYw9RH7i0FtbPwLbfwOxEaf
pOudLwYxdLQmMG0H2MNyxktoS2A8ojR+YnkHUkYzC0W3S2ArKytJSn0XPuW6
KjBtPwOBZabJwoJd4Pl9y7aNtgwuF9UcMTy4ByfIbBJWzOXQJ+6kfdt+DzY5
Vp9+yioH1WNZ44PEfbDyDMw/l/0ceCbgAkPJPvy6Wy++EFwBV/a175nx4pC0
n7Ti9p1KGHxZV/3MHYeY7uRfTXJ+AXV/adOC63FolFY5+AaqAgfqG/VMFBTo
YuSZkRCOaiAHUlDdVqNAuTZ+fl+3qmH5ZJVjWQIFohc6fGv6Rw2MkSTtN35R
IO5Bh8XzvbVA3VTZ0CFAiaZVGrsfZNTBis7iSpMzJfpoKpdd7VQPlJTJ5Mka
SmQokM6Mk2sAQaeGIBVKKvRKgZM2jtAIVcKcVJOaVIhZrUjCZaYRTHSSH0xW
UyG6Ih45FepmSGbkMGg/SY3eRWGOJpwtUEVUyreLpUZ4wZleLkIrRHB/etdC
Q4NimBjatxNbwS37aGKyLw0SKvHULcS3ganfd4vGdRqEnfJI+nm/DYa2xi1G
XGiR7Amu8+azbcC8uFmRtUKLnsQSD44ptgNX4Ct8htsBxHFuR/hKVDuwfqV2
M/17ALFsZyr3vGwHRw/RK0Z3DyL2ObOLh6bagRQwnEpLTYeuFuM+7a+1w814
rqTecDrUKJowobLYDiZ3xSJFmelRuDZd56G+drjlyjj4MI4esafPulMWtIOv
fH50HTqExDNviIRotoPl0w2au42HkETzYj/9dhvEDSrYD4kzIL/H6hbCKW0Q
yjFn5F3CgLTcTMTW/2sDb+uo69gJRuQa8T2ZXNsKstXZLF7RjGg2jNKqVKYV
WJ697nHdZUTON/oIii4tgM+UG5u1YUKPpFUspW2boWyOXfrzByZk3hfz/Z5R
E+B1GG6wCzOj8d4YCUq1RvhdasY7k82MuORMEz/s1cOiifNA+UEWxPeYvPum
rg6cuI4fU5dlQYSfnV8++9VCb1p5oYkzC6Lq/mO6rV4Dr2ntnLbTWdB8cgdf
PX81OLw436nwgQU109e2LbJWgea0oyAfNSsizmo0GNdXgv+k5RsfSVZ05Z3H
eIN3BSRWV9Xet2NFhOKptAid5/BJ/vhyUCIrUsu+rPkBlUOlEv+VsnZWtHbJ
zNgvrBR6xkkL8jOsiJ7lrdpqdQmcacRx3mFlQ5bv7c/g6YuhuU87m1OGDbkF
MabfkSsEMm/USwYLNlTqYm/EnZ0PUo8oDoaGsCHe2moKWv6ncOnI0RdtBWxo
/hVbj/HnXDBoz9JeeMuGVjh97arjc6B2nfaC7BQbSs6zU8a5ZQPuQsbhXio8
2pIxk3Z3zILH37RlSYJ4dF56d9yQMROugq/CjhYeycTfZ7AueQIMoqVU3WQ8
kkq+yqxwLxWE20nRl2LwSMhXz8UxKRmoGjMU7pXikXjic7WUsURoUIh2GX6H
Rz+66mM+6yXAsVPdI54/8KgplvBBYDkeTkg1RfXRsiMb9vsjgUfjQEy1n1L0
NDsaWv9vIiQ0BhgzjwjMKbKjZ0USgh6noiH9kt6M2U12xKdGivMfiYKc5JNJ
H7zY0W1lt7Ct2kjoHaQNIcewI1PHNAuJ7nAwO7J0PCCfHVkZoKvYiTCwUvIN
4mlkR81fn4ucSA0Bn4csoit97ChqKp+sU38PPqSNBCUusCPeXybd9oeD4VvQ
aUcDWgIKpX2qm14UCOrmFzccjxBQmCzu7HXbAJi0Di5gECag9DeBimGP74LQ
yUpLUzkC+vllWz87yRdqTXn7gnUIaIREV7zR5Q0Z+LTEdAsCOsStG3D4ghdU
tqcwviUTUKXxDve3Vx5gfcrJLy2EgDo26t87jLmB5qxGYE8yAS0Y337UJeUK
Vz/LJ2UWE5BvZjMpvOMOjKwZVAs1/sud0vSU75Lhy9tDuOxOAlrle6Njcp0E
MmPYUY4hAkqtHpJ/X+QEEXlul0qnCKhWgJth/qsDjNzWmPFYJSCJgrWcESF7
YBXrzA7HEVGAJ/9aVJkdONAnstWyEpE8v4fHXv4tUNZqkI7nJqJMA6OMsQnr
f/c9NC6LENEix/KXPl0r+Hv9vfOGLBGFZnIE/lq1gNH2XMEWNSJKYalnGG0w
h3mLzPBafSKKqKh4vZxzEyT/LP/ZNCciE/L0sc/aN6CO6vGzWAcicpHbuvss
whTyBjwbHrsTkfPnNEq6BWMQlgs0JtwnopeWUb+Ga4ygZTgm2T2WiHxlNF7M
vjOA1GWFwJF0IhIOrEoKPawPcdrUNLZFRNRw3kq7PFkXPi1/kxeuIiLedF1V
stI18LY39b7cQkTnugQozQk6YNB8/t3rt0Q0sKBYrUJ9FSK7UpuqvxBRYRDO
aZhRGxQn1d/xDxFR2QsKl1OmmlAkr5kYOElE6S16xaTFK+DZ+/zvzyUiOm9/
JrS+VxUyCOU8d3aIiHR5qfTDtgpovp9blKfFkPfRkcXA68pw6nYdjSMzhhSy
xFVxvxWhmcmkgPIwhqomW/QEnygAaZ7pFv4EhnYrrZxkXeXh71NSUslpDF0Q
Pt7kYysHK7cOtA4KYSi4ZtR91w3B7JzgVWcpDGnZb7wiKV6CnZKIhyIKGBLf
06HLW5eBzt9eHZLqGArp7xHNWZaChBKZyHRdDE10eMqsCkpCytmuKlcTDJ2T
HZCuT5IAg1Al/k5LDC2f1FliFBUH18l75mW3MZSKC1APnz8H2fF6C2fJGOJ7
cYlrqVMMmsdU32h4YKguUeft6itRsJOqOmYXgKGyLcqejasiUKOh+7IzDEP0
uhOPJbiF4L9Ij7aoaAxpKGQ4Dy8IwpM53tn2RAypuZYpr1OcASWh3Q6fdAxV
7/NfCFfnB+8FDvGOXAzp/H7k2NXBBx0hEbvPijAkVyB5qcbuFNAShURlyzGU
aZd60UOYF1KCf3r5VmHIbtolWgvPA9PS9Ff1mzA0p+8RSh3ADaOfcnYfvsIQ
K95G3ZrnBKykSrXJdGLo73wImp08ClljbASnLxhaeKlGtdJ1BK7LGd09348h
mde4HxWbHOC5cOhs6jCGKHfuDXnrHoaacjGnknEMsRsET/gOE+GlvSgreRJD
Ya626jciCHB9Ijp3cfrfv4wDV6YN2SE2Rfx19RKG4nRxnXO5bMBkkXtgcQND
D85Zhn07ywo/CohFaBtDupgzxwdHFlj9yEPhuIehl9vmE2FezPA/8Y/ZzQ==

                    "]}, {Automatic}]}}]], 1], 1, 1, 3] Sin[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 3000.}}, {
                    3, 11, 1, {270}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwtlnk4lWsXxit1UJqJEk7Gxi+5ynRRN4ljaKAUJyISpQEVMkSxDRW2vd/n
3XsbYmOnFNFk2KYmGpwQUipDJUrE2SJx8r3f8FzXen7X+ude91rr+eNZ5nHc
wWvalClTpjIx5z/X/88X74UFPN+mTf/jh03nIuLOB1b+js0fFf9arKGLh3F9
u358MoD0m7L9pzdb4eWPCDuxtT2WR6v3lg7tRujcR1ElAhekZ7y1Cf/ogbDi
lztVw7yxt77BpWrhEaSf6NYrdPRDQoRHcaQwAB69dWp2gadgYG8Qp2gbDLky
4eB7tVB0qcs5FwyH480WcWf5gUhYhgxS6vVnUVigZR1nFIWBe8/mObhFY3WL
/ytlFguHehUzu/NikDte4X2jIRYHhZuMZonjoG11b6a3KB6fvpq/vZ90HiLO
w3zVkAuoy/RVMttwEZKCBVGegxexpKK0n3UtAXjm7nTlYCJ+6R9ex5pIhDjr
xEwPThJMYiv91eTZUDbd3D7bjY0wW5U3m1LZeOs82urfyoaJT2Nz9sJkpAde
a2zZnowUdpCdU2QyeHmba9sKk8F9ONfctSsZ7PY35R3zOWg4vWmVohEH8xSy
BdvcOdhR+JtMTCwHSbaHAysKOCjqVbp24TkHzazaDucBDkbUA+WXz+FCqVrT
emQNF8aWK8+0WnGxt27trZL9XIQ5bOgVhHJx6ZWxSijhQqyyzC4tj4vXHtKh
FVVcjOT2X21v5kK+v+nV5GcuYjrdx7ePczHW1K+SKUfBtzYEgyoU2sukPbGW
wphM8otwUwrye5aYi20p6Iqyi344U7CVrF6m70NBLcVm8scJChL4vBNHUKjt
YYnPXKCQmpgtMONRMH1/9buUkELHhkL7mjwKZ+Pv5sfdpqD+rlzWtpLCQ90H
XrMfU/gUnG3xop6CzL0oDV4rhRWyB6a5dDB17C26fu+hcESgWd09QOHkUIvz
su8UwqxjJS7jFKKEhgn8qQQXxj5rN0sTcO1Tq+fOIbCyG2rXXEjw09LqHyMl
ggKzdOXtKgQeJhKjA+oEiwysnU7rEDxdlxGYuJpA0TBTtVCXwHOjsKZxPUGh
RdYxiSHBhE32IgVTAmv7nEp9MwJ6j+ig0xaCSdOD35faEvho6kR37SB4/Kjk
5AeGy71tvLoZxsq8dexh2HP1qOVnhla2k/p9DKUT1ZW+Maxp2DL2N8OYhYfa
RhhOu/FEpGJPcMZmpb8Fw/Hu8ya+DIPO9klzGNpTRWMKOwlW5Qb1CXYRzCgz
faeym6CjTqpeuIegtONJtZYzgUFW9P7Lewm8Q2bU3XUl4DvE6Ne6Mf5WSgtb
9xOw5HTNgz0JzAecPih5MX3Un40uPUhQXpSn9acPQQi3qebnIYKk/tx2B1+C
HKuwkbwjjL5wxxypYwTPxzW19x4n+OA4ZnrLj8A1/OJEYADByxw1sfFJgh11
N0//OsXMVbLF8H4QwWbl1yOs0wQV5kfuWIcy/g5PnpgdTlCUzNFrPEOwslRr
iIpk6nSW3HA6R6AqY3dsaTQBb23H6k4Wwfw9AX3Zscx+z8zI844nmH6Z77Pq
AsHw2IKqcwkETqzp+gZJBOJ5I9f72ARqaT0amRyCKJ3XKbsogk83n86XpQls
NpbHVfAI8p/kT/oLGF3HjEDtVIKTnez+tjSC+DZTF8klgvTmL09nCRl/z3lG
mtnMnh5bXDEREbTdH1rkmEswUH6JdfQqwXGVEZVV1wm+hW+921vA5O052y4X
EQxunPjkeZvAL2NnxLJiJp/MU+woJfB3n1aYVk5wkyt6XVdFIKn5Q+qf+wTr
f/atXlNDcGpN0m7XJwR33fUiE+oIRrktVyvqCQxrg5v6XxD8y7XSNa+VQEsi
1XvwLYFyvHWARhfTh1rSREc3867uNMekfSH4ZbNkvvM3Zj6dbqkKwwSVxRtT
dMYJ4hJVBEbTaOz0muDZytJQMXlDu86j0bOgjBxXpHHzM586q0ojrDqIy9Wi
YcnbzRGtprHRb0VQoj4NfeuJvUGgsUa9Hu42NLTGhVrWuxid5pMz9fbRUMi3
+rbEh4ZczJJmqQAa0936S76G0pgwqE5vYdHQaTZOOkHRcPC7Ezk/m0a4nG7A
jSIaV67keW6tptFkoeXY95zGr84My/h3NFaELzHU+Upj12Ky4tFPGhF35ip7
yvKwtHpqYZEaDyVPJRZT9HlwbOl+vc2Oh6GO1mPpHjwkfnki9TWYh5XfxXzj
JB5qJ/PXxIt48JyZeb9VzMOkPGeP9gsednTOlaoZ5iHzWkKBlyIfQ4Gz/pxh
zIeZefwMkQsfybOliywi+Hj/Ktrlo5APvZxpMtEP+Th3PPKWRg8fTca/9j2Q
FeCZWlOLNAR4MP2KnV2gAGWfwx6wrwtw87m9cct7AfJuaRctXpyCLP64zr7t
KUgJb7iUxUoBx0Ok0CNOwXmrkIur/k5B6KjZtel/pOJIruzTd+mp2Lensfeu
JBXbpQXSbOs0oNhd+1BGGvS8l28x/54GDcVBT2XbdMjXFp8bzkzHb0ERwr9G
0nHUt8ujNOISWtw2a4pkMmC6S9TNTs6AQ07Uzo2zMxFzaf362/aZKON3y6+k
MzHAob9ntGVCPcHqpYKaELtjf9y94CnEGed1N9iNQlxedTiXbMpC/T9ZGSn5
WRitf8PLUM6GWpY8Oyc+G1Ynt8ZdHc2Gn2VMZIFXDvhKVcG3mnJQ/WXUr8RM
hKrpRk8bJCJUqoZofBZdhtvciuThmbn47yfDLxf/BksJE9Q=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwV0wFHHgAABNBvSZK0JEmSlkySJJkkSZIkSTKZSZIkaUlmkiRJkiRJkiRJ
kiRJMpkkSZIkSZIkSZIkSbLX8e4X3H2p/VXR/CkQCHz+KAkimBBCCSOcCCKJ
IpoYYokjngQSSSKZr6SQShrpZJBJFt/IJodc8singEKKKKaEUsoop4JKvlPF
D35STQ211FFPA4000UwLrbTxmz+000EnXXTTQy999DPAIEMMM8IoY4wzwSRT
TDPDLHPMs8AiSyyzwiprrPOXDf6xyRbb7LDLHvsccMgRx5xwyhnnXHDJFdfc
cMsd9zzwyBPPvPDKG+8EbCCIYEIIJYxwIogkimhiiCWOeBJIJIlkvpJCKmmk
k0EmWXwjmxxyySOfAgopopgSSimjnAoq+U4VP/hJNTXUUkc9DTTSxMfIW2il
jd/8oZ0OOumimx566aOfAQYZYpgRRhljnAkmmWKaGWaZY54FFllimRVWWWOd
v2zwj0222GaHXfbY54BDjjjmhFPOOOeCS6645oZb7rjngUeeeOaFV9545+P8
QQQTQihhhBNBJFFEE0MsccTzH2aogjQ=
                    "], CompressedData["
1:eJwN0Xc01X8YB/BrFtnXvd9IQyTSzyoy0vOxIyuZGWVG1r3ZK6vMlJWdLTNE
9lZpaAhZIVSUvcn89efrvM953ue8H24LZx1rChwOx0WJw1UzVVzoVuoBBzE9
kTOFeFgot6kUVe4Bk1Ga3yVFeLAZJEvE/POXy9E9wiV4cGF82s2n3QOzBXWc
3D14WM1ddfts1AME/Yz05C08fJHJsYi07AH5iS1c2kl2yOr+qG0Y0ANsxOoO
oxR2uHMt+lj3kx5AoY0fD2AEYD1h9nO/4V//3GWJpSQCRHjwyv0Z6oGV8MOF
t04QgfD+YnILUy/UcrIaYHQYBFsOPWlR7IW0V6Pqm5SHYfrQ2Vk2v14wM/si
8IeZA7SNFYqmanohKOUUYhLjBEnnwivktV4Q9LtSP2p/BKTf6P80V/oKTp+U
2ovwR0G4wPSVfMpX2OHwouObPgY+KmFl2atfQYThu0eAzwngb+Ii8ev1QUeC
6OfuLG4Q0Z8JSmrsg/m85dfDcydhktSuNSzYD1/HIq0mbXjhXZNx+aHcfqBS
ytzjI/LBkjz10izDAGzfG8iLzTkNZ31O/bnpNwCmG6a0V6wE4IlNJd5ufQBc
H4qYqFoIgg0PV4y01yAcfBTgKFb0H1Tih1Zj/gyC/lwcT2WDMBzcvP1q1XwI
Kim/gOtBUWDUcesn/xiCCB0VZQdjMSh4ndSm4fwNJlRwjbuj5+BAsn0Jeeob
DL+4vH/tkjj0q15357QdhuiR/XDsvQSotV3Ot1wehtLEiaHaCEko6Y3WyAwd
gWxNedHhCGnQej20ynFwFMQElO52GV8EEjz3So4ZhaEdTeZpm0sQzX+6UeXU
d5AgC8SGGSMYjlTcC3n1HcqP2orvlciBdmRK11++MZgIP1Dw87s81HWGXfAk
jUFBL2i1SyqCR8NZpestYxA6RV+T0awERC9ZKSP2cfDPZpPU9FaBoI8PxsdM
x4FwfNotjEkVvm6Q2XxKxuGNvBOLbK8acNnr0XTiJkDVJSzdq1cdOEu6n8ca
T4DJ017yI04tcNQKltAsmgDvXeGR+QRtuETqanLYm4AUGrLgq9arkNKIf5ls
+APOBVmTkliugcw6S25m3Q8Q3TNKLY7Shdc1vjb7jD+hffnesbPTelBbs/fo
sO1PELxe+MCdZACmb/wfZr79CU99JPVx/EbgisuZcxD5Bbri77aZOI2ho6qD
ZT7iF/wxPevrOWECi9g6TfjML3C/dm2fZdwMOkV7trZ1JiFfJ7iy4tFNeD53
Pfp0+yQM8Gxs5vWag+65oT5TninQZ4nOw+9bwEc7rvfEyCk4OuT2X4K6Fdw3
PaJ6ZGsKjhgnmF9+aQ3Eh/ychuTf8Pnyebeq27fgA1+l4MLgbxDV9szxX7SF
mMkPdH6qf+DZYvFYUc5tSGE+ZNPX+gd0tXxUKR84AMFwhrSGpqF27Ufc8Uon
iD5zUbru+TR8GjCc+mVAApbcv3lrAjPwvjX5zyMXMuiNPk5+UDQDZ3pKS+4/
vwOiL3xlQs/PAiVFUccY5gqTKULxTqWzkEVjQ5dl6QZ2sqGu5iJzcOSWn43y
V3dIHZoo026YA6YUrXJeF0+I2i7R1teeh0LVmxl/Fb0hDp1eje2dh/d5WtGN
az7w+xdjf7D5Avh+eGzg1e8HaVvzq2c2F0DgzayS7LI/PBbFDw+pL4KwoPDJ
2dOB//bt1nuZswjx6pR2Z+8GAWEhwn9sbhE0GbtsWsuCYbjArmz84hJMFMaz
ZFHdh08PpcP1Y5aA4JHoaeAfAvc5G2wmZ5ag996ic7JAGGQ21bjraSxD+EOR
xiT6CDhSH3Ian7UMwssJy+/rI2F9IL3ZZGsZuPbm0FZKFMyVHxTqMVoBMt+T
soqKR+Ad1C8r2roCx62dHe7RxEAV0/Z3baFVcBzg0fAziIULL+bdIh+uQurm
cYWSyDhIn+5LkFxbBfmPb707xuMhaDXUmtVyDYI+y2SsmyVAvl5U9czAGhya
wios6ZKAPkggscVgHbLENuNsfycDY9IIW+nYOpx3xCUMUKeB8r41pYHhBqSk
b0iVLT4BVyGfItOBDVh+saRqT5cJC/3LyhXmm6DYH9GaIJUFM80kadu1TWC4
IvrLOSobrBKjPzfE/4WtfN3fV+hzIdw/++NhuS1orf3GaVidBydHW+VL1LZh
PuO9oo9tASC3QS4+9x3gWp3kpU8thq6VOKmYf1byvz8inlYM1yIGr+/8s/OP
FyXmT4rBxLco4JbHDvCUakVFpRdDMOOB4u5/FpzU96/LKAbrwIVBWc8dsIzt
DPqVWQzH3g4gdq8d4DdSfi6bUww631bqpv+ZwtT/VEJeMSgMyCu1ee9Ak5n/
9/n8YhgNVMniC94BrS9i/G4txRBrWHcyLnIHvjYw9RH7i0FtbPwLbfwOxEaf
pOudLwYxdLQmMG0H2MNyxktoS2A8ojR+YnkHUkYzC0W3S2ArKytJSn0XPuW6
KjBtPwOBZabJwoJd4Pl9y7aNtgwuF9UcMTy4ByfIbBJWzOXQJ+6kfdt+DzY5
Vp9+yioH1WNZ44PEfbDyDMw/l/0ceCbgAkPJPvy6Wy++EFwBV/a175nx4pC0
n7Ti9p1KGHxZV/3MHYeY7uRfTXJ+AXV/adOC63FolFY5+AaqAgfqG/VMFBTo
YuSZkRCOaiAHUlDdVqNAuTZ+fl+3qmH5ZJVjWQIFohc6fGv6Rw2MkSTtN35R
IO5Bh8XzvbVA3VTZ0CFAiaZVGrsfZNTBis7iSpMzJfpoKpdd7VQPlJTJ5Mka
SmQokM6Mk2sAQaeGIBVKKvRKgZM2jtAIVcKcVJOaVIhZrUjCZaYRTHSSH0xW
UyG6Ih45FepmSGbkMGg/SY3eRWGOJpwtUEVUyreLpUZ4wZleLkIrRHB/etdC
Q4NimBjatxNbwS37aGKyLw0SKvHULcS3ganfd4vGdRqEnfJI+nm/DYa2xi1G
XGiR7Amu8+azbcC8uFmRtUKLnsQSD44ptgNX4Ct8htsBxHFuR/hKVDuwfqV2
M/17ALFsZyr3vGwHRw/RK0Z3DyL2ObOLh6bagRQwnEpLTYeuFuM+7a+1w814
rqTecDrUKJowobLYDiZ3xSJFmelRuDZd56G+drjlyjj4MI4esafPulMWtIOv
fH50HTqExDNviIRotoPl0w2au42HkETzYj/9dhvEDSrYD4kzIL/H6hbCKW0Q
yjFn5F3CgLTcTMTW/2sDb+uo69gJRuQa8T2ZXNsKstXZLF7RjGg2jNKqVKYV
WJ697nHdZUTON/oIii4tgM+UG5u1YUKPpFUspW2boWyOXfrzByZk3hfz/Z5R
E+B1GG6wCzOj8d4YCUq1RvhdasY7k82MuORMEz/s1cOiifNA+UEWxPeYvPum
rg6cuI4fU5dlQYSfnV8++9VCb1p5oYkzC6Lq/mO6rV4Dr2ntnLbTWdB8cgdf
PX81OLw436nwgQU109e2LbJWgea0oyAfNSsizmo0GNdXgv+k5RsfSVZ05Z3H
eIN3BSRWV9Xet2NFhOKptAid5/BJ/vhyUCIrUsu+rPkBlUOlEv+VsnZWtHbJ
zNgvrBR6xkkL8jOsiJ7lrdpqdQmcacRx3mFlQ5bv7c/g6YuhuU87m1OGDbkF
MabfkSsEMm/USwYLNlTqYm/EnZ0PUo8oDoaGsCHe2moKWv6ncOnI0RdtBWxo
/hVbj/HnXDBoz9JeeMuGVjh97arjc6B2nfaC7BQbSs6zU8a5ZQPuQsbhXio8
2pIxk3Z3zILH37RlSYJ4dF56d9yQMROugq/CjhYeycTfZ7AueQIMoqVU3WQ8
kkq+yqxwLxWE20nRl2LwSMhXz8UxKRmoGjMU7pXikXjic7WUsURoUIh2GX6H
Rz+66mM+6yXAsVPdI54/8KgplvBBYDkeTkg1RfXRsiMb9vsjgUfjQEy1n1L0
NDsaWv9vIiQ0BhgzjwjMKbKjZ0USgh6noiH9kt6M2U12xKdGivMfiYKc5JNJ
H7zY0W1lt7Ct2kjoHaQNIcewI1PHNAuJ7nAwO7J0PCCfHVkZoKvYiTCwUvIN
4mlkR81fn4ucSA0Bn4csoit97ChqKp+sU38PPqSNBCUusCPeXybd9oeD4VvQ
aUcDWgIKpX2qm14UCOrmFzccjxBQmCzu7HXbAJi0Di5gECag9DeBimGP74LQ
yUpLUzkC+vllWz87yRdqTXn7gnUIaIREV7zR5Q0Z+LTEdAsCOsStG3D4ghdU
tqcwviUTUKXxDve3Vx5gfcrJLy2EgDo26t87jLmB5qxGYE8yAS0Y337UJeUK
Vz/LJ2UWE5BvZjMpvOMOjKwZVAs1/sud0vSU75Lhy9tDuOxOAlrle6Njcp0E
MmPYUY4hAkqtHpJ/X+QEEXlul0qnCKhWgJth/qsDjNzWmPFYJSCJgrWcESF7
YBXrzA7HEVGAJ/9aVJkdONAnstWyEpE8v4fHXv4tUNZqkI7nJqJMA6OMsQnr
f/c9NC6LENEix/KXPl0r+Hv9vfOGLBGFZnIE/lq1gNH2XMEWNSJKYalnGG0w
h3mLzPBafSKKqKh4vZxzEyT/LP/ZNCciE/L0sc/aN6CO6vGzWAcicpHbuvss
whTyBjwbHrsTkfPnNEq6BWMQlgs0JtwnopeWUb+Ga4ygZTgm2T2WiHxlNF7M
vjOA1GWFwJF0IhIOrEoKPawPcdrUNLZFRNRw3kq7PFkXPi1/kxeuIiLedF1V
stI18LY39b7cQkTnugQozQk6YNB8/t3rt0Q0sKBYrUJ9FSK7UpuqvxBRYRDO
aZhRGxQn1d/xDxFR2QsKl1OmmlAkr5kYOElE6S16xaTFK+DZ+/zvzyUiOm9/
JrS+VxUyCOU8d3aIiHR5qfTDtgpovp9blKfFkPfRkcXA68pw6nYdjSMzhhSy
xFVxvxWhmcmkgPIwhqomW/QEnygAaZ7pFv4EhnYrrZxkXeXh71NSUslpDF0Q
Pt7kYysHK7cOtA4KYSi4ZtR91w3B7JzgVWcpDGnZb7wiKV6CnZKIhyIKGBLf
06HLW5eBzt9eHZLqGArp7xHNWZaChBKZyHRdDE10eMqsCkpCytmuKlcTDJ2T
HZCuT5IAg1Al/k5LDC2f1FliFBUH18l75mW3MZSKC1APnz8H2fF6C2fJGOJ7
cYlrqVMMmsdU32h4YKguUeft6itRsJOqOmYXgKGyLcqejasiUKOh+7IzDEP0
uhOPJbiF4L9Ij7aoaAxpKGQ4Dy8IwpM53tn2RAypuZYpr1OcASWh3Q6fdAxV
7/NfCFfnB+8FDvGOXAzp/H7k2NXBBx0hEbvPijAkVyB5qcbuFNAShURlyzGU
aZd60UOYF1KCf3r5VmHIbtolWgvPA9PS9Ff1mzA0p+8RSh3ADaOfcnYfvsIQ
K95G3ZrnBKykSrXJdGLo73wImp08ClljbASnLxhaeKlGtdJ1BK7LGd09348h
mde4HxWbHOC5cOhs6jCGKHfuDXnrHoaacjGnknEMsRsET/gOE+GlvSgreRJD
Ya626jciCHB9Ijp3cfrfv4wDV6YN2SE2Rfx19RKG4nRxnXO5bMBkkXtgcQND
D85Zhn07ywo/CohFaBtDupgzxwdHFlj9yEPhuIehl9vmE2FezPA/8Y/ZzQ==

                    "]}, {Automatic}]}}]], 1]]}, 1]]], 
      "Specifications" :> {{$CellContext`t$$, 2, 3000, AnimationRate -> 10, 
         AnimationRunning -> False, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{409., {144., 149.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.463682933399473*^9, 3.4636829630004735`*^9}, {
   3.463683013715473*^9, 3.4636830367964735`*^9}, {3.4636830891484737`*^9, 
   3.4636831285984735`*^9}, 3.4636831815154734`*^9, {3.4636832257254734`*^9, 
   3.4636832286174736`*^9}, 3.4636832696544733`*^9, {3.463683321939473*^9, 
   3.4636833515864735`*^9}, {3.463683414472473*^9, 3.463683526696473*^9}, {
   3.4636841368454733`*^9, 3.4636841471004734`*^9}, 3.4636842742634735`*^9, 
   3.463684319767473*^9, {3.4636844048834734`*^9, 3.4636844399554734`*^9}, 
   3.4636844740254736`*^9, {3.4636854905284734`*^9, 3.4636855946414733`*^9}, {
   3.4636856946324735`*^9, 3.4636857046194735`*^9}, {3.4636857362254734`*^9, 
   3.4636857666404734`*^9}, {3.463685862307473*^9, 3.4636858920004735`*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Scattering in 1/r potential - hyperbola, E > 0, \[Epsilon] > 1\
\>", "Subsubsection",
 CellChangeTimes->{{3.4636789676484737`*^9, 3.4636789788954735`*^9}, {
  3.4636819211924734`*^9, 3.4636819275754733`*^9}, {3.4636820216014733`*^9, 
  3.4636820270414734`*^9}, {3.4636859229784737`*^9, 3.4636859404414735`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"CC", "[", 
   RowBox[{"m_", ",", "k_", ",", "L_"}], "]"}], ":=", 
  FractionBox[
   RowBox[{"m", " ", "k"}], 
   RowBox[{"L", "^", "2"}]]}]], "Input",
 CellChangeTimes->{{3.46342356191*^9, 3.4634236189960003`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"eps", "[", 
   RowBox[{"E_", ",", "m_", ",", "k_", ",", "L_"}], "]"}], ":=", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"1", "+", 
    FractionBox[
     RowBox[{"2", " ", "E", " ", 
      RowBox[{"L", "^", "2"}]}], 
     RowBox[{"m", " ", 
      RowBox[{"k", "^", "2"}]}]]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.463423598441*^9, 3.463423674651*^9}}],

Cell["\<\
Choose first to be symmetric about + x axis (here will rotate)\
\>", "Text",
 CellChangeTimes->{{3.463682064703473*^9, 3.4636820747984734`*^9}, {
  3.4636865682064734`*^9, 3.4636865812134733`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"rho5", "[", 
   RowBox[{"\[Phi]_", ",", "E_", ",", "m_", ",", "k_", ",", "L_"}], "]"}], ":=", 
  FractionBox["1", 
   RowBox[{
    RowBox[{"CC", "[", 
     RowBox[{"m", ",", "k", ",", "L"}], "]"}], 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{
       RowBox[{"eps", "[", 
        RowBox[{"E", ",", "m", ",", "k", ",", "L"}], "]"}], " ", 
       RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], ")"}]}]]}]], "Input",
 CellChangeTimes->{{3.463423750743*^9, 3.4634238826280003`*^9}, {
  3.463682105656473*^9, 3.463682116623473*^9}, {3.463682774762473*^9, 
  3.4636827813454733`*^9}, {3.4636865434834733`*^9, 3.4636865582514734`*^9}, {
  3.4636868181314735`*^9, 3.4636868190034733`*^9}}],

Cell["\<\
Define initial conditions in terms of the starting long distance \[Rho]\
\[Infinity]\
\>", "Text",
 CellChangeTimes->{{3.4636821471944733`*^9, 3.4636821814184732`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Phi]\[Infinity]5", "[", 
   RowBox[{"E_", ",", "m_", ",", "k_", ",", "L_", ",", "\[Rho]\[Infinity]_"}],
    "]"}], ":=", 
  RowBox[{
   RowBox[{"Sign", "[", "k", "]"}], 
   RowBox[{"ArcCos", "[", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"eps", "[", 
       RowBox[{"E", ",", "m", ",", "k", ",", "L"}], "]"}]], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"CC", "[", 
          RowBox[{"m", ",", "k", ",", "L"}], "]"}], " ", 
         "\[Rho]\[Infinity]"}]]}], ")"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4636822943844733`*^9, 3.4636823571004734`*^9}, {
  3.463682399887473*^9, 3.4636824129374733`*^9}, {3.4636867645024734`*^9, 
  3.463686796887473*^9}, {3.4636868307094736`*^9, 3.4636868318044734`*^9}, {
  3.4637032554294734`*^9, 3.4637032584824734`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b\[Infinity]5", "[", 
   RowBox[{"E_", ",", "m_", ",", "k_", ",", "L_", ",", "\[Rho]\[Infinity]_"}],
    "]"}], ":=", 
  RowBox[{"\[Rho]\[Infinity]", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"ArcCos", "[", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"eps", "[", 
        RowBox[{"E", ",", "m", ",", "k", ",", "L"}], "]"}]], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox["1", 
         RowBox[{
          RowBox[{"CC", "[", 
           RowBox[{"m", ",", "k", ",", "L"}], "]"}], " ", 
          "\[Rho]\[Infinity]"}]]}], ")"}]}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4636838316654735`*^9, 3.4636838955214734`*^9}, {
   3.4636868634334736`*^9, 3.463686879611473*^9}, 3.4636870493934736`*^9, 
   3.4637035236694736`*^9, 3.4637037432634735`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"findphi5", "[", 
   RowBox[{
   "E_", ",", "m_", ",", "k_", ",", "L_", ",", "\[Rho]\[Infinity]_", ",", 
    "N_"}], "]"}], ":=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Phi]", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"(", 
         FractionBox["L", "m"], ")"}], 
        RowBox[{
         RowBox[{"CC", "[", 
          RowBox[{"m", ",", "k", ",", "L"}], "]"}], "^", "2"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"eps", "[", 
             RowBox[{"E", ",", "m", ",", "k", ",", "L"}], "]"}], 
            RowBox[{"Cos", "[", 
             RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}]}], ")"}], "2"]}]}], 
      ",", 
      RowBox[{
       RowBox[{"\[Phi]", "[", "0", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"Sign", "[", "k", "]"}], 
        RowBox[{"ArcCos", "[", 
         RowBox[{
          FractionBox["1", 
           RowBox[{"eps", "[", 
            RowBox[{"E", ",", "m", ",", "k", ",", "L"}], "]"}]], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            FractionBox["1", 
             RowBox[{
              RowBox[{"CC", "[", 
               RowBox[{"m", ",", "k", ",", "L"}], "]"}], " ", 
              "\[Rho]\[Infinity]"}]]}], ")"}]}], "]"}]}]}]}], "}"}], ",", 
    "\[Phi]", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "N"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4634421291610003`*^9, 3.4634421625360003`*^9}, {
   3.4634422709630003`*^9, 3.463442271773*^9}, {3.463442312954*^9, 
   3.463442354867*^9}, {3.4634428048389997`*^9, 3.4634428369189997`*^9}, {
   3.463447662479*^9, 3.463447677332*^9}, 3.463448112808*^9, 
   3.4634963091099997`*^9, {3.46349790449*^9, 3.4634979049969997`*^9}, {
   3.4634979936540003`*^9, 3.463497994182*^9}, {3.463498054474*^9, 
   3.463498055005*^9}, {3.463498100718*^9, 3.463498101198*^9}, {
   3.463498245131*^9, 3.463498245559*^9}, {3.463498359343*^9, 
   3.4634983606400003`*^9}, {3.463509030203*^9, 3.46350912163*^9}, {
   3.463509236092*^9, 3.463509248469*^9}, {3.463509351389*^9, 
   3.4635093628389997`*^9}, {3.463509691361*^9, 3.4635096926210003`*^9}, {
   3.463513222231*^9, 3.463513228801*^9}, {3.4636810924544735`*^9, 
   3.463681092637473*^9}, {3.4636824740944734`*^9, 3.4636825160924735`*^9}, 
   3.4636825638824735`*^9, {3.4636868876364737`*^9, 3.4636869277654734`*^9}, 
   3.463703551163473*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Scatter5", "[", 
   RowBox[{
   "E_", ",", "m_", ",", "k_", ",", "L_", ",", "\[Rho]\[Infinity]_", ",", 
    "N1_", ",", "N2_"}], "]"}], ":=", 
  RowBox[{"Animate", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Graphics", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Thick", ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", 
                 RowBox[{"-", "3"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"\[Rho]\[Infinity]", ",", "0"}], "}"}]}], "}"}]}], 
            "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "4"}], ",", "\[Rho]\[Infinity]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               RowBox[{"b\[Infinity]5", "[", 
                RowBox[{
                "E", ",", "m", ",", "k", ",", "L", ",", "\[Rho]\[Infinity]"}],
                 "]"}]}], "-", "2"}], ",", 
             RowBox[{
              RowBox[{"b\[Infinity]5", "[", 
               RowBox[{
               "E", ",", "m", ",", "k", ",", "L", ",", "\[Rho]\[Infinity]"}], 
               "]"}], "+", "2"}]}], "}"}]}], "}"}]}]}], "]"}], ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{"Red", ",", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}], "]"}],
       ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"Disk", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"rho5", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Evaluate", "[", 
                RowBox[{
                 RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", "E", ",", "m", ",", "k", 
              ",", "L"}], "]"}], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"Evaluate", "[", 
               RowBox[{
                RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"rho5", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Evaluate", "[", 
                RowBox[{
                 RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", "E", ",", "m", ",", "k", 
              ",", "L"}], "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"Evaluate", "[", 
               RowBox[{
                RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "}"}], ",", "1"}], 
        "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "N1", ",", "N2"}], "}"}], ",", 
    RowBox[{"AnimationRate", "\[Rule]", "10"}], ",", 
    RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.463495399355*^9, 3.463495531008*^9}, {3.463495604291*^9,
    3.463495605242*^9}, {3.463495988574*^9, 3.463496042132*^9}, {
   3.463509501468*^9, 3.463509553584*^9}, {3.463509601965*^9, 
   3.463509637682*^9}, {3.463509797358*^9, 3.463509812043*^9}, {
   3.463513234167*^9, 3.463513242917*^9}, {3.46351351865*^9, 
   3.46351354306*^9}, 3.4635136184370003`*^9, {3.463514131031*^9, 
   3.4635141521940002`*^9}, {3.4636789452894735`*^9, 3.463678945788473*^9}, {
   3.463682725729473*^9, 3.4636827302254734`*^9}, {3.4636827977174735`*^9, 
   3.463682829267473*^9}, {3.4636828698974733`*^9, 3.4636828774174733`*^9}, {
   3.463683053767473*^9, 3.4636830739634733`*^9}, {3.463683200734473*^9, 
   3.4636832116934733`*^9}, {3.4636832852174735`*^9, 
   3.4636833065354733`*^9}, {3.4636839129814734`*^9, 
   3.4636841204284735`*^9}, {3.4636842529474735`*^9, 3.463684253109473*^9}, {
   3.4636843800374737`*^9, 3.4636844248584733`*^9}, {3.4636869436584735`*^9, 
   3.463686978840473*^9}, {3.463687291550473*^9, 3.463687320236473*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Phi]\[Infinity]5", "[", 
  RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "100"}], "]"}]], "Input",
 CellChangeTimes->{{3.463682641800473*^9, 3.463682648111473*^9}, {
  3.4636870084624734`*^9, 3.4636870171174736`*^9}, {3.4636870660114737`*^9, 
  3.463687081826473*^9}, {3.4636871448784733`*^9, 3.4636872002834735`*^9}}],

Cell[BoxData[
 RowBox[{"ArcCos", "[", 
  FractionBox[
   RowBox[{"33", " ", 
    SqrtBox["3"]}], "100"], "]"}]], "Output",
 CellChangeTimes->{{3.4636826492724733`*^9, 3.4636826557134733`*^9}, 
   3.4636870228554735`*^9, {3.4636870677494736`*^9, 3.4636870826124735`*^9}, {
   3.4636871463124733`*^9, 3.463687200821473*^9}, 3.463703560241473*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.463682658670473*^9, 3.4636826603104734`*^9}}],

Cell[BoxData["0.9623701543771203`"], "Output",
 CellChangeTimes->{
  3.4636826610954733`*^9, 3.4636870243744736`*^9, {3.4636870689634733`*^9, 
   3.4636870837714734`*^9}, {3.4636871481274734`*^9, 3.4636872017974734`*^9}, 
   3.463703561142473*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"b\[Infinity]5", "[", 
  RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "100"}], "]"}]], "Input",
 CellChangeTimes->{{3.4636841747204733`*^9, 3.463684184991473*^9}, {
  3.463684296177473*^9, 3.4636842962734737`*^9}, {3.4636870354364734`*^9, 
  3.4636870374764733`*^9}}],

Cell[BoxData[
 SqrtBox["6733"]], "Output",
 CellChangeTimes->{
  3.4636841860414734`*^9, 3.463684297427473*^9, {3.4636870386144733`*^9, 
   3.4636870539414735`*^9}, 3.4636870928434734`*^9, 3.4636872081084733`*^9, 
   3.4637035622144737`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.4636841891534734`*^9, 3.4636841920624733`*^9}}],

Cell[BoxData["82.05485969764375`"], "Output",
 CellChangeTimes->{3.4636841927524734`*^9, 3.4636842999634733`*^9, 
  3.4636870551524734`*^9, 3.4636870938744736`*^9, 3.463687209340473*^9, 
  3.4637035632374735`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"findphi5", "[", 
  RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "100", ",", "500"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.46350965363*^9, 3.463509665266*^9}, {
   3.4635098999110003`*^9, 3.463509900642*^9}, {3.463509937046*^9, 
   3.463509957946*^9}, {3.463510342525*^9, 3.463510343946*^9}, {
   3.463510570568*^9, 3.463510570817*^9}, {3.463513146352*^9, 
   3.463513147738*^9}, {3.463513254311*^9, 3.463513256888*^9}, 
   3.4635133085*^9, {3.463513362593*^9, 3.4635133636870003`*^9}, {
   3.463513675052*^9, 3.463513675356*^9}, 3.463513748396*^9, 
   3.463513894495*^9, 3.46351421396*^9, {3.463514476745*^9, 
   3.463514503795*^9}, {3.4636825840274734`*^9, 3.4636825954024734`*^9}, 
   3.4636826669024734`*^9, {3.4636833589114733`*^9, 3.4636833955564737`*^9}, {
   3.4636843041934733`*^9, 3.463684304248473*^9}, {3.4636855292354736`*^9, 
   3.4636855294114733`*^9}, {3.4636856012394733`*^9, 
   3.4636856159814734`*^9}, {3.4636856662514734`*^9, 
   3.4636856668824735`*^9}, {3.4636871006974735`*^9, 
   3.4636871183524733`*^9}, {3.463687475899473*^9, 3.4636874765074735`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"\[Phi]", "\[Rule]", 
    TagBox[
     RowBox[{"InterpolatingFunction", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"0.`", ",", "500.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
      "]"}],
     False,
     Editable->False]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.463514214679*^9, 3.463514284731*^9, 3.4635143894189997`*^9, 
   3.4635144212939997`*^9, {3.463514477715*^9, 3.4635145244820004`*^9}, {
   3.4635145596070004`*^9, 3.463514580374*^9}, 3.463682602347473*^9, 
   3.4636826690654736`*^9, 3.4636829246914735`*^9, 3.4636830023324738`*^9, 
   3.4636830806504736`*^9, 3.4636832212804737`*^9, 3.4636833126744733`*^9, {
   3.463683360288473*^9, 3.4636834662024736`*^9}, 3.4636841324614735`*^9, 
   3.4636842706524734`*^9, {3.4636843055464735`*^9, 3.4636843147874737`*^9}, {
   3.4636844013494735`*^9, 3.463684430531473*^9}, {3.4636855316204734`*^9, 
   3.4636855400204735`*^9}, {3.463685605368473*^9, 3.4636856272464733`*^9}, {
   3.463685658262473*^9, 3.463685690019473*^9}, 3.4636857546954737`*^9, {
   3.4636871111464734`*^9, 3.4636871193384733`*^9}, 3.4636872250594735`*^9, 
   3.4636873267334733`*^9, 3.4636873908344736`*^9, {3.4636874616944733`*^9, 
   3.4636874997634735`*^9}, {3.4637035647544737`*^9, 3.4637035700634737`*^9}, 
   3.4637539779805307`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "1", ",", "500"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.463510285675*^9, 3.463510331601*^9}, {3.463513434994*^9,
    3.463513466825*^9}, {3.4635144160480003`*^9, 3.463514473591*^9}, {
   3.463514563072*^9, 3.463514575417*^9}, {3.4636826076504736`*^9, 
   3.4636826080744734`*^9}, 3.4636826741104736`*^9, {3.4636856240544734`*^9, 
   3.4636856243814735`*^9}, {3.4636856712194734`*^9, 
   3.4636856717864733`*^9}, {3.4636874539974737`*^9, 3.463687484019473*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk4lc0bB3CSNYmcI6QoUmT3K0uYm7JznMWx7ztZisgWKakU4RVFi7KU
XlQoFSFZKkuilOWNJLQ4z7FXpN/467k+1zPLd+6Za67Z5hVG913DwcFxlpOD
Y/Vr8fB2uQAHG3GlJh7I7GAhAc3oyfHwGXQ6P82tEvvVXVPZ51/m0GOpimu9
2Jal45fi2n+hoKc7M8U6WUiestEoqp0TmiM0ja6t2pCqPJGzDmLmVkQfdLHQ
P6LjSWM5myDM42j0mjcs1DxzOSNfUxyKP2zp3IU998b6Or1bHEoZl6k22LYZ
D+oa+SVB6g7lyxVs0vpTi1fipaCMMUDR7WEhC66sh4r3ZeBwekR0Qi/Ot6ym
9DlnB/DrcHaq9LHQUI4ER9/3HdCbQktwx55SW/P2BchDX7hrZAa2sG9vXMU3
eSiesNSaxbbrjGyPMdgFWr4npOres9Cnq0+ChMcVIfkhZdm5n4XipW++vSap
BroB4QMfhljoVHCOgbixGuQ8zsgS/Y+F0h+n3s4MUwN3ZcVbFOzrjIj45GY1
IMme/dqC3XT6gFxQqDq0hFOmHn1kIT72eMSeJg3g0U1+fn+EhbIbd4t2BO6B
IJHR+vkxFnKqFpk6krkHJrwL5XW+sJDM7cXWLY/3wFSbxXI8dtmF57FhfHsh
qOfpPPc4rqeb8+jGW3vB1+Gz0ZYJXM/l1PuOY1rg828jxesrrqfON5sJN13o
u2o+RWGxkKRyt0JGii4cun4k+ib2iMxDLp0KXfg80ZG/gB3Md6Im9Y8umNZz
3C8gWCj5vYS0ypV9EMm1c/8ym4WqI81ZR/r14He4W0XPLAuJVt4+v8YWgb/n
cLbAb9xffUZ/LBZBtF3Is3Ds5nv7iJYbCMZuPWkYxD5yt4t2lkDwdNeo3r0l
FjpoF7vujDHAf2d3p3j/YaFORkG30CcAwcpttfMcBIoVNS5NnANwX/fWJpiT
QPK9X5PYvIawYr597DN2Al1Ts0fFEP55YSzRt4ZAKrTWixfjDUGLO4PctpZA
GZQfTlLiRnD/9ujBj3wE0hPK1EzbbQQ8yVWFfvwEmuzcI7hiYAQa//4RY2Mb
Wic+HfY1gjK72kaedQSasdwoU1hlBFO5lNz96wlka679RcFmP8jKtV35K0Kg
TQeSw7RSDkBHDhdxS4pAXhVWmyn5B+CsEP+5w1sIVCZObvO5dwBonjej9bcS
yGiqeGvWwAHYJO93aEiaQME5bZ0/VIzhwZjYLy1ZAjVOCijdfG8M3UxTnkOK
BBJg9L5/9MMYdP0iNvvsJhDzaf7J15wmEBQ4b+asRKBvmUqDy7tNoPqztgJD
hUCkfZRU++MmUCfbUh2kQaDAtMxJQQVTeLxTocJsH4GqFx2zZQ1MYS5GmRGl
R6AVz+2gyzCFkdey+27rEyh7b1Wu/zFT6K5uVpIAAtUPvzVpemMKE/LuthrG
BOKzuDrzYdwUDF7MNSabEIhR7XuNWDKF/dnCaMgU1/PMwryUvBkUzaoM51kQ
aKOGePHRWDNISIzQd6ISyOXKCDX9ghkYg2bBBxqBbvGULhcVmUHKsacSrgy8
P4M6tj1dZqDM9Xw62o5AfsnOXMqy5nBOPayIw5VAtX3XPEfbzeHlRa5j0QcJ
5EPyaMkYNodCn7hsyxACCdG3KaBZc1hZ6SiSDyOQR2chO1/SAth7hhLmwwm0
tvl2IjPQAnL2P05bjiVQOWfQZ65jFjCo2HWbfIxAdmi3aWWGBSxc976hnUig
0iflQhseWYB3u5bx1ZMEotyvvPqCxxJCkg/f+nqeQIusCM6jkpZAsa9YdLxA
oAKlPb47VCzBkSuguC+TQLO3apROMC3hXXvevYUcAl26Vle7r8gSXl/xmBu6
gc/b0DHpbzWWUL/4vr62CO+nBDp5qd0SLHNSfe7cwvW4+Mxifga3N+B2e1xO
oE/nWvsrDK3gyKMmWsUTAqW+PK3vyrSC/Mz89VL1BPofr/mNdYFWUPtCKO3a
MwKlnGgPCMiwgs0oYWrsBYEUY7oXtw1bwSbHidfpHwjU+zDTuXvGCtzL08Sf
DBEofo7ekMBjDX02Ok6cnwj0OuxdyqCyNTCVMoImvxLoiN8A+WK8NXzhKlLT
+0OgLUX5MfszrGG7kAR1DycbtX5y+W+60BreuhTzjHCxkYTrcBGl3RqKlnWj
IvjZqCmvgO/PR2vgXzq4zU2QjYI/eAb/O2MNGhu45D02sFE9Y0yTT5ICI999
eivIbOSfWZz7UJkCFUNmC3/E2Uj4td+SjyEF7njpHAyUYiMvi69NzwIoUE36
rJ8vy0a8hixaXA0Fyl3bQvM02Yii0HvmdQcFos+SrJ212ShH5FGD7CgF3MN5
T9ros5H8aJJyh6AN1DgW3ho2ZaPQV34+MtttoFDG0eCkNRs9qLTMP6JlA1m9
Z7ICGWx04CSZf4uXDdybOiO+0YONzh/8jQ4ftQHzhHf+w35s1MsYjmo5bwPX
a241cofifHKlYyE1NnBaYHk49hgb3RFM39zUYQMrAvmOA6fYaHounC42agNl
cQ1nqtPZqNFrq4c7DxXecLdn8Nxko7G+jDh+ESocnEt9famMjfgsuXKrNlMh
tPi25GANGyk1RFa6ylPB7NKulOHnbGSjOdnJq06FFel3DU+62Sj8ltPX+/uo
YONQfy75I17/5s61LiZUOBTyzsVhio0+clXuu+dMBXWjH/yFQtNoTbScvZMf
FVScSMIHt00j+R854WsPU+GFwC+V0T3TyMKDP70ijgo/9oycNLGaRiFv40od
Uqhw7MZa1qjPNMowYzWvyaTC3ihSzsbj06i6zmOkLJ8Kf7ytY42vTaMPar1L
diVUcDLv3srbOI2Wi4w3cd6nglZRdCTv+DSSkXik8W8tFVq6BZ7tFJlBB9IU
KcxWKiwUnLmZZjSDAjivBv7tpsJuLi1GQ9wMOhe54VTpIBXOzqTde10/gyq+
JhUwxqkgatL8rUhoFvW4ztX+YVPhb0KsaFjYLFp44/f+1hIVzMuI5JiJWSRp
0j9D46GB+VT0ierjc8jgiaXQsjANRE/n33xnOY+8VOoVSjbT4K6bY7ur/wJK
ualmTJWnQWPt1LoskZ+oVKzQ47caDVQWlZclh3+jjlRyfNE+GvAb7T2XZMQB
7JXTuRQTGmzS/qChz8ULpIjflT+pNFh8cfd2U+sG0J4I7rrpTIO/pWM9u9gi
4OI8/NXKjwYRVIPC60Mb4fhrGvfiIRq4tDwweO8uCkX7m2VuxNHA7WnQ85gq
UWir2atnmUKDjC1tn6unROHb7lL7+Qw8no7NYKM4CYQKNkdcz6fBhwBl5V86
JNAgpaebl9DAIMSHFmFLArszHHdm79GAqZbzXiyIBLHL4S1Xa2nQM2P4YFs8
Ca4d+jJi2kqDQcue+OBzJGgas1+e7qZBr5eUcMYlEow7vNp0ZZAGGjs+nlsq
JIFAp56myTgN5K5L1nNWkEDF8C6FzaZBF+9UwaeHJKA/2BaUt0SDAnV7sY56
EkQqZJ86wEOHP1eOXZloIUHC8eG+OmE6rO9y9tnbQYKU94q79mymw8MKJfbM
GxKkq0TFlO+gg4iv4RW19yTIOfXs1Q41OsxU9B79O4jzDglKXdOlwz/RI9+C
R0hwS9MhRMyYDsXfWkySx0jw6BNrA68THTLfmb18950Ejdq6nok+dHiSU6Mj
TZDg5YVTlYuhdJhk7spRnyFBz3g316EYOhDfB1U3zpNgQF+KOXmSDkw/yfKW
RRKMZvuXeKTTYbF1lyz1Nwm+fa9c/HCJDpKl48oPlkmwdNk872U5Herp/zE3
c5Jh7XT2d8NHdBAN0uvexkUGQbMRvSdNdJDpL/93PTcZpBaihu+8p0NUG9nn
Kh8Z5Kyb1GRH8Xq5VGsPCJBBuWj9ifwfdDhtPRDyYR0ZDOhFcuc5GVArsk79
lRAZTEqJyLWCDOhZO5+vKEwGG459bfFiDKAl8ErFi5DBo+JNYMhuBvAsTQsu
iJIhSeBvBYXJAB+Ns1HO4mRI9bTgaHNnQE1Xy7KTBBmyHl2koSAGONtKUmmS
ZLjppzSnmsiAsLQ31nJSZLjz9Kjx7bMMOFwrOcC5hQxVpOc5Mtl4vkvyv99j
Nzc56oiUMoDatOAXJk2GDoni1LNVDLD3nfBQlyHDu0PsQc56Buzf//3AFPb4
1tMJMz0M+OckJ8HYTgbeuOrnvcsM8ND/Vf5ZjgzCPX9JVry20MXaKhK/gwzi
CpZ+zSK2MN9hoy0sT4Zd7z/xPZC3BUboeIrSTjJYaG6g5FBtQd/AKEJHgQz0
VKfrQs62oJB+2rca2/lTMTvF1xa+zq4zUVIkQ/AFvX+OxtrCZ+FeU9HdZEj7
HvjBocgWbA/tUHmmRIYDZfe5t1TYgqB8ZbO0MhmWg39pfKqxhWG3IOd47GDW
mbTAdls4w7/UpqqC55++ZRQ7Ywu+MdKGSapkWFNJhBks28KSypWYN9hPwrWu
ruFhQuf0r+0yamRQmGtdTJVgAn4szT/C5lv8UpYPTEiuq2nsVydDY43ygLsF
E9JftN7ZqkGGaHxtytkygXkhx84Le+LXWq8yfyZwZd8VG8duXZbd9DSdCVmB
k6IjmmQ4ucYr6eMQE6aN68WL9pBB93lpxc1xJng3kbI+YM+cnB70YzNBaa20
tuBeMnhxJ+0luOxAoTNly2Fs4Cv4/lfRDr6/UOtV1yLDyvqPzG0xdsDHJXcm
S5sMD7t2nPxywg5aT7a+q8UOvRByr/S8HTy37L8whv2f8B8BjQI7oFaVMP+n
Q4Y6UalGozY7MHWpj+vEjpFwUvQh28PtfN3ISV0yHL+rabgkbQ+7FvyuCe4j
Q4rxeocsRXtw5hg3V8POPtx4qhHZg7ZEsEYU9r2X8p+kguzh93HBtGXsiZjZ
3Hf19nA5XMNqXo8MrA2dFcEv7SF/c8y/G/XJMFdc0sL11h4eVKy5q4q9psdx
Vv2rPVRuzygNwN6q2EhJF3UA62nznD5s5sB5btMAB2AoUHMLDcjgcshP6mO4
A+gN+U7VYnvxgGbkMQdoXxBd6cU+pDHrUZjlAFdL+hlciAznUx3r/tY5gNFG
x2k37Oe68hGPRByhq+NvnwCQQT2/YUSh1hFUH9o47jMkw2TexV7BFkdw6Rm4
Z4l9Le9gK9GF/2ue+uyMLZC3qezBqCP0hcgOxWGPXgo7aijgBP5HFnc+wc7O
kRZydHSC3x/q0tSM8HnMmefQ83YCOe/LnQbYHDnts1tDnOBJz1HCCjvk4tH+
seNOQEvsGAjANsl+XXTothMwq147XsdezEzcd2bRCW7t1zbi3U+GikymykFO
Z2DNnWoXxfbJ3L2Nss4ZuHkl9GSwuzPe85CknaHtgNxbbezbF1R7rps4Q+6k
50QAtlPacEDNRWfIPhje14z99AzKGdd0gQWHusiQA2RwOMiqz9V3gQ9p2mpH
sWesr06YmbpA64nF/uPYu0SXtP91coHErx+X/sHOvvpwMCzJBaiMumOPsYMq
lbf96nKBxeGFK5zGZBAb2ly2LsgVhDexLU9j369/9bYuwhU4ZXZpX8C2uhHz
J+SYK/A9FhPPxU7ye0/pznCFYJOLVSXYP9hZ09k1rhC/WdClBbuJW0BrK7cb
3BV+dobDhAxhqj+fqRW4QV+WyZ9QbIcJ7bfVd9wgOZ9HJgrb6HrMuPYDN3By
6dY6hi22YUnA8JUbTN+dMDmHXc/6w6DNuUErzH0pwRaq4Bo/bOYOA9XFekPY
FUobBKrY7lDXqTiCTMmQO2YjpbXkDt8XZLuNsYFilvvfGg8YCOioscRW5Dlb
6rneAxRqw0LtsVciBboCt3vAtPxIbCh2CXP9plgrDxixNJDOx14giZbmFXiA
bv+bFRZ2U7F6wYliD+isvFk+i31hLzU36I4H1Av02f3E3uWQdkq3Go+vffYS
pxm+T/N5vQbaPMA2T25AFLtx27KkJOEBu7nN3LSwU1W+nL+s7wkNP/PvxGLb
NXAlJxl5QgIpvCYBW5a6PS7Q1BPe7m9qOIFdd9g9UIfmCapRU02p2ER1v3G/
jydsddDKzsO23de1In7eE5qTBwIeY0ub1Ry6NOAJT3Xi1s1hZz+/NvR12BOc
5JZGFrH5UIrZvi+eMKItV7mEzd7DlPlIeMKN0HRTLnOcV3b2tSy3F7TPp6KN
2F5/VVTvqnpB+GPvIFXskoclUy3JXpCV9GbAD1tSI91xU6oXyG8s1wjCTi+P
bAm44AU5P/+mhGAfLTpwdV2eF1gkbN9xBNssa9SKdtcLXob90krC/haytWyo
3wtEN43U5WEr78gJmlXxBp3uvX7t2KSNQdO7/+cNL595m3dh/17Rj/bR8Yad
Qk0Kb7BffPhy6t1+b+DjlhvtW817fs+NGgdvsDm3oD6KnTP79n3cCW8YbbOi
/cReeSZqvLbPGyqXM29ttyDDa7dMafIxH3hsXhJyCDv9uHf2bJIPPAxLyQzH
trq5h78nxQdY1LKqI9gvvvTPpGf4gCz5zUw0dmPw9la+Ih8wYz5wScKujK0K
Xn7lAxE610YysS/mvHv8WdwXPKavPbyP7dwlYVtZ7QsfbeVWfqz2H6jW//3Y
F+p+rJtkYctP2Ow0avCFzRyh3Wzsmb+nfr956Qsos/TKHHaq+kzB9Edf8JXb
K7uM/Sj71ZQavx/kJel9E7DE9XKOO33X1Q82yDQE7cTumBh6UsbjD3+576a6
YAsoRGXlrfMH+R0Ta92wTYM2BJ0R9gfrUukEd+ymH4YSPpLYjy+GeGE/mi45
ulnFH/6M3YMA7MKlQ/9LZfqDfk/sowjs2A3cFf5F/uCgLz5/FnuXlvKN7UYB
EBp1+W0VdpDao8fzuYGgdOdfvbVWZEAp7mkXJoJAse7+gCn2H5HskSKZYJjT
LX+dgH3DlMtv05EQ0K0IUqjCVq36G8R9PxSWpQ77f8SmxYnvfjIRBk+vVLiu
tSZD2cIDIb8rh0DxzJC9AnaxRUlbmc5huMgkx5hhZ85WSWwfOwyFHQ7r/bHb
Xtm8jD0XDheDGignsGf0KrUzd0aAzTv/7MvYwms1DPu6I0B0crLpHrasXzR/
f+gReCtTe78ZO3HBSrWBPxJMk0u6+7C7Bg1YvfcjYeXdZ6Gv2BtdFoNLKFFQ
faFg9Ce2uXpn8q2fUVC+l3uEj0KGyBuBLn65R2Fb0mK3GPZ3lJ3JpxkNa+R4
i2WxbTWH3PsHo0HVOqlaDbvy2bcp/5gYmBpYUtDD5ioWI++QiwXm+PcBU+yr
D7svt7THwkzb4VI6tpI37aNsQBwI7zNRd8Gu8CFq74nEg+LLL798sXdw2jou
3Y2HA597b4Rij7eb2CpYHgMBOqsqCjvvu93kqdlj0BX0iDcRe3+Jsl5BRgLU
XvsZnILNp7Ox1vWfBCio3JO26o72BZ3NOQkwvCG4fNW20w1aOfkJIHi3eWrV
Pnp0zfMlCXCubkfoaezknijF6LoEoCzeDjmD3brSIE6dTIB87uf+qdipmUW5
67/j+cKVT6+aIndWrH0qAfRCM0tW3WdOJ5nMJgCPhMmXVU9kj23QW0kA8Vgv
r3Or+Xbz8+4iJUKEdaDz+dV8T6dOfRFLhPOFIbGrzqD2rC2USIRzdw5eXrV4
VP6ardKJMNBr+37VCs+UV0QVE0G+e5Cehs1ibDz2RikRer6WH1515fjCUrpq
IpS0xGSsWlew8Rf/nkTw61jpXPXKtaLoNq1EuLlU82PVTepnF5N1cfv5oHXp
2CnNIVFG+olwpW6T4qot7Onzf1Ei3KHXm636/+DvCY0=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 1.},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.4635143932320004`*^9, 3.463514423068*^9}, {
   3.4635144543*^9, 3.463514506743*^9}, {3.463514563821*^9, 
   3.463514582454*^9}, 3.4636826089894733`*^9, 3.4636826749174733`*^9, {
   3.463683361564473*^9, 3.463683398175473*^9}, 3.4636843115984735`*^9, 
   3.4636855353814735`*^9, {3.4636856070864735`*^9, 3.4636856287514734`*^9}, 
   3.4636856725334735`*^9, 3.4636871226954737`*^9, 3.4636872261404734`*^9, {
   3.4636874655584736`*^9, 3.463687484616473*^9}, 3.4637035660534735`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Scatter5", "[", 
  RowBox[{
  "1", ",", "1", ",", "1", ",", "1", ",", "100", ",", "1", ",", "200"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.463509715639*^9, 3.463509728209*^9}, {3.463509892509*^9,
    3.4635098937060003`*^9}, {3.463509944641*^9, 3.46350996501*^9}, 
   3.463513155785*^9, {3.463513263572*^9, 3.4635132649300003`*^9}, 
   3.463513321049*^9, {3.4635133694560003`*^9, 3.463513370059*^9}, {
   3.463513574693*^9, 3.463513582459*^9}, {3.463513683976*^9, 
   3.463513684125*^9}, 3.463513735269*^9, 3.463513889118*^9, {
   3.463514203708*^9, 3.4635142084890003`*^9}, {3.46351424124*^9, 
   3.463514241362*^9}, {3.4635142818929996`*^9, 3.463514282407*^9}, {
   3.4635145171070004`*^9, 3.463514519178*^9}, {3.4636829047044735`*^9, 
   3.4636829323194733`*^9}, {3.463682984076473*^9, 3.463682997451473*^9}, {
   3.4636830861744733`*^9, 3.4636830879744735`*^9}, {3.463683317689473*^9, 
   3.4636833202254734`*^9}, {3.463683441762473*^9, 3.4636834425134735`*^9}, {
   3.4636834796884737`*^9, 3.4636834850154734`*^9}, {3.4636843182724733`*^9, 
   3.4636843183674736`*^9}, {3.4636855452424736`*^9, 3.463685545729473*^9}, {
   3.4636856425324736`*^9, 3.4636856857534733`*^9}, {3.4636857383114734`*^9, 
   3.4636857500704737`*^9}, {3.4636872455294733`*^9, 
   3.4636872588724737`*^9}, {3.4636874014964733`*^9, 3.463687401583473*^9}, {
   3.4636874937384734`*^9, 3.4636874944344735`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 86.48800468444824, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 1, 200}}, Typeset`size$$ = {267., {214., 218.}},
     Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`t$15675$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$15675$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Graphics[{Thick, 
          Line[{{{0, -3}, {0, 3}}, {{-2, 0}, {100, 0}}}]}, 
         PlotRange -> {{-4, 
           100}, {-$CellContext`b\[Infinity]5[1, 1, 1, 1, 100] - 
            2, $CellContext`b\[Infinity]5[1, 1, 1, 1, 100] + 2}}], 
        Graphics[{Red, 
          Disk[{0, 0}, 1]}], 
        Graphics[
         Disk[{$CellContext`rho5[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 500.}}, {
                    3, 11, 1, {333}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwt1nk8VXkfB/DcVEYhhmzRMJVCCS1k+1QuynLP71wXXVuWIoqSZGk1nkim
KMtVUt1SUTL2MsKobJNQIuvUFInuoyyNMlfPmed5zut1zvuf7/ktn9fve15H
yzeU3smaNWuWBHM7/vP4/5WQdVxTbJ1n9T8rrC4I0p/Ya360CtJh19sKZqw0
e7680jo1F88eFMv5enyPRWeGVxuHq2NVwUIdVp0WnJTvlA23LUOf7IWyHjM9
rJ9t7T5Ir4F4ZmNP/zxjPPpq6N5ZuQ6nP6/oadlvAnpsiXvDcjOIYsYrnSgL
JMyp13wRZYUUW8ea/Dbgeb+R3dfiTVCMUGm1Sd8MF5kZ1/ORW2BoYa+82dga
C/YKOj6KrPEuayDt8i02QmFxM3+LDabepN77td8Gx+M/NDZG2eI7PeueTkU7
SF43WnjxjB2+LdZie0ltxdc0uWit2K2YlJ25+3Z6K04lhLbIe2yDBuv1qGXl
NhTG0Av3LLYHe/LhmszD9kgfcJJzaLTH0Isu0YySAzbW+T8p9HXA6bLRPP8C
B+SxK5MWixzQ2J4Q0q7riCE/HpUU6Ih541pG1jccUbhGaOXy0hH8EG3HQGkn
zL4j5EebOyH/vXZgUogTgt1QGpnhBN16T9bOGie8XxfDIe+dcOu6IMtCgQOb
Qj2ZYWMO3j6oOpLO4+BEE/n35kMcLOl86zUq4KDQxbKxtYSDLR0ZxkWtHLTz
Pl06/4GD4qBlcRslKRTE1+t3yFHIu777xX51Cjd+m39URofC1f785blGFC5N
c1qsLSloGwidE20p3PSd6GqhKOin23gr8SkUNQre8v0obBAP776yh0KKql2a
QjiFkXU5NXExFGxo1ofPsRSuhHgr706k8DWxcnNPClPn4Bb8OoPCStmJ8+8u
UahpOVspukbBNUVvYDyXwihdL/O1gIKxn0/gnyUUIg9M1zbdp/DgpzSN4ioK
rFSDyIsPKdheb3z2UwOFzlzu3MQnFAIL+kyTWylMlQTsTW+nkFDx6UrWSwqq
NTHtwl4KyR5nn0/8QWHeF+EzmzcUjqSVtQkGKUwYNrUOv6cQ/LSvxVxEoXJ0
FT0zSkFG/mh79RgFT6OnLicmKdzlanZtnqIwEx7iLjlNgZNe1fdYTGFp7bfe
v79R+CJCrzGL4KlqbE+QJMF19sPuq3MJovZLdr+UInC6xO6Sm0/wXCKhpXsB
wfZdTY9zZAn6mxZU7ltI4GfAKTJTIBg6n3JrriJByNTz7DYlgu9UKnLtlJnx
NlwpqVYhsHI9Wb1ejaA7Yk9TvjpBRDr9YqkGgXyZyauLmgQ5XSrpbUsITMVT
9vO0CJp/6JKw0Cbwsb5fHvYjwWRA5t5bSwlGpubafltG8PpU+A8uOgQdan9+
ubOC4MltzvPZugS15g/u8PUIypt1TxbqE+R7CbylVhNcG51j6m1AIDh+QKFs
DcEZ+dcjC4wI4oROj/2MCaKNK7Mr1hKEPloZKb+eYCcvgwRuIHAflNSrNiGg
DoVJLtpIoH1M44S0GcH4yQbxDCPFi3tjYM7M8yMadzBKj03fTWEMqClPrWV8
dOZA9DjjUb0RNs+CwKTBV76ccdy/u1fFknlPgr4VzRiQ3Xigl1HLbJOVpRWT
u8D39xHGw5M/uWaCIJfOeWOzidlvQV3oBKOkzND01c0EhkHfJXC2EHjX6yqK
GZOWOlzJsya4f2Kvvhub4F3/mXtzbAgUzX+xLmbclNnWusOW2efnMQ9ZO4K0
iIlr7YzT+gNVwVsJfN+86GJtI2jIrJvIZFxNlcsZ2jN1c2/pNjBOVwrY3g5M
3YFTOz4zqviwkmscCVYqDpX6OBGY1Tf3sDgEjtHFEtcZvVdl6rApgn2vjjoO
Msae9z8QTwhSbbZlrqCZnK0khNOM603u5T3lEkgZhhZfdSboWrm8MpxHkKfd
98jWhSBGPbVZzZXAQdG+Q8Qo3dTj3+nGrPPYnvGa7QQn14lP5PEJrEd+Xpjq
TsC6qnn5iAdBjUvBqgBPJv8FqKS8CMxrW7dt9Gbq+GvFl3cQ2I9lFMzxJaAT
p32C/Qj42t6Kbf7MuauorVu/iyCQXh6VFcDkNXxKj7Wb4FCsqC8giEBnGQnI
3kPwsr7kY3sIQUKQSvT8/cz5lTk8e/MBguGCP5IiDxJcoLcsKjjEzDN54/JA
FJNfhvTKxYeZvigqsRg+yuTU7EXfO0Hw+Z1UwMk4gsus4hjneAI7Dc9k7USC
Txvm5XxM+mecwvtVZwm27HV/mnSOwCDi/tmMdAL1Y8pEeIFgXsJBhfxsgonk
58/LhQSvMg3Tam8wfSE869KcR3Dvtkj55V2mz0rsu/4sYtY/IJCrucfkqzTI
vlRFsMrG+HD0I4JfIo4XuTYRGN9sHlrbSlDaqbZEoYM5t1KBvNEegl9NSk8/
eU0woDD0NHyYQE6kpqAxzuy73pH3eJr5Hlw9LtgrSePnmOIeJRka5bxBzSol
Gq8NVH13adKYL+2QI6tDY0xubN7fxjS6lQRB70HjN3XL5g5HGrlabw0e8Wkk
6ySeKwygEblqzWR2OI0dxh2uSSdo2Joerog6Q6PG42zMLCENk+NC8/hSGoXX
SsUyjTRW1jdUpfbSEA73HFP/SENddhTC2VycN2SxVipzsYCn9LBAl4sEVX/b
f9lxMbu/6Hf+Li6OCSWoNXFcTO+i2ucIuTikd9mtp5qL8VFR7y99XISWmPuc
nOZiJPL0gLuqM77nx9w4ZusMM7PggGsHneG32H1F/TVnnBZvez/c5oyS/o15
srN46K3WDTZazYPkVTV9Fw8e9GOlRVGJPFgs/FD9+BkPTtnN5+TVXeClX7DT
088FoRXJJrm3XXDcLmz+5LgLUjq4/TB3hdB/XWFSnCuKxhbFvXziigd/1alV
W7mh4e+IwpwiNzyT0LFLWrYdfXM7+8ME2zE0P/7g9vl8jC3csABH+RArvRMu
/8SHlHqGqYy/O5aueSlvt9gDYKsOx7Z7wIPPr32Q5InI0IsXpqy9kBbXG2Ys
9kJhpoZ9SKk3AlwLUtrX78Dk6xbxp3M7EL7/zeDYDz4Yn/VXy/hdH4QlS9+f
MPfFpyWawskmX+wvMDz92c0PHy3Z4X8N+iH0qZvnVLg//u25x+YLayeS5SRm
Bw3uhNFvadXdjbvQHqZ72D4/ABFLq00qkwOh2sGd1A/fjV/jhwovuQbB0/RI
iKxZMDLP73NvrNiDDpGfXdzGECjYua6zqgiFDlkmL87aB/ZMdny3x37431aZ
KV8chli3c+FpvWG4MjCQo6Ecjqow084cchC935KkVidF4GvSK9OyukNQUVsb
bCkRhfU347PqzKLhvLan2SkiBroXRLt03I/gvz+XOIb/AJEpojI=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwl02FEGAAQgNGWJEmSJElakiRJkiRJkiRJkiRJkiQtSZIkSZIkSZKZSZIk
SZIkSZIkyUySJMlMkiRJspcd737fj+++Nn6rbP8SEBBQ/rlMIEEEE0IoYYQT
QSRRRBNDLHHEk0AiSSSTQipppJNBJllkk0MueeRTQCFFFFNCKWWf91FBJVVU
U0MtddTTQCNNNNNCK22000EnXXTTQy999DPAIEMMM8IoY4wzwSRTTDPDLN/5
wU/mmGeBRZZYZoVV1lhng0222GaHXfbY54BDjjjmhFPO+MVvzrngkiuuueGW
O/7wl3seeOSJZ1545Y13PgjQQCBBBBNCKGGEE0EkUUQTQyxxxJNAIkkkk0Iq
aaSTQSZZZJNDLnnkU0AhRRRTQillX/73WUElVVRTQy111NNAI00000IrbXxG
3kEnXXTTQy999DPAIEMMM8IoY4wzwSRTTDPDLN/5wU/mmGeBRZZYZoVV1lhn
g0222GaHXfbY54BDjjjmhFPO+MVvzrngkiuuueGWO/7wl3seeOSJZ1545Y13
Pvh8/kCCCCaEUMIIJ4JIoogmhljiiCeBRJJIJoVU0kgng0yyyCaHXPLIp4BC
iiimhFLKKKeCSqqopoZa6qingUaaaKaFVtpop4NOuuimh1766GeAQYYYZoRR
xhhngkmmmGaGWf4B6TSZlQ==
                    "], CompressedData["
1:eJwN1nc01X8YB/BrZO97v2QmIklFIhn3+dg7KVtllDITKSOFSsqe2WSm/BqU
ENmjkFUZSVZG5N5rZ//un69zPs/5nPN5nvO8P/sdPc860eBwuDRaHM5Q99bd
6nYS/NIUmhtXFAC1OhbtVqrPR0TSlCABkP70jLOX6tQV08wHBgKgn5zxM76D
BDVio68MNwWgmba8weoLCewy2tMOvBUEQXi4Kt5JAhv/vAAvbyFojzdI3eki
gSSH1Uuiigg03HYKX+shAflkn57eXlFY+737kfsbCZpL2w8dlNkPvM/S0s/0
kWAPp8N87XkxCA45MhI3SILswC2DAKkDcOPyqWrJYRLcv94doKsiCQ1uCXeE
xkigfTSMLz1fCjbsduzvT5KgvddU2NHvMGBF/vc9Z0mA+7JyJ6f7KFQVX+fd
IJOgja/q9txVOdBa4jtAWiZB/jjebNhQHiLD1Wc8N0ggYHCDxeO+AlAyg7NT
cGRwUL1rwyuuBErBM2XyDGQ4/0OizrxIGUq+n/7mzEaGrlsmYykpajAhra57
Fk+GcCKX292HCHQ9tVLy+cnAR//ne5isBrixRmpkiZJhxOw+KVNECxqrFRpt
pMgQX11/XtBeBwQqF3/fOEaGspGWVaMoPfjwdvKCxkky2BXImZ/nMgT6Wrrf
40CGMRr1kqVNY+Crjs7w0ydD+o+v+7nenYFYekWtVlMy4I6fZlDQPAsFg5t2
YzZkEBL31D7DbgbGt3+2TF4mw7pilH6hiAV4iN74u+5JBqa6pcrhh1agtJy4
nexPBspM1y++ChvQyH1tz/eADMkhQgy5ShfgJr1lZUoMGS7TaU7tY7OHHn8J
K80MMojrHxP0KHOAnUbbCdNnZJB/N+d/VPkS7Iu/XWn1lgwrmbX7M5YugzVj
rXFAHRm0hwe6queugBKuonukkwwxJ/68FTrmAk8GzZjvDZFB9twKZ4qGG9jG
1TSe+EMGi6ZvmzrpHiARE2Us9I8MuXm8hdNi16H3IOu4HD0FOOptGxeKvECw
PEbZjpUC/bQjklOcN8Bsaix2P54C/H2/xIbzfOBvYOpOhCAFTN8wJtS736LO
tx1n2QEKqL91Fjfz8YOXI/3tPTIUyCy/FT1xLgAUrFsnYxUo0PS+QMvfIxDa
8uQ8GYACH0wb7sy33YXaHv01fX0KCMV1vJSoDobR54W7LmcpUH7f2UZ3PQSM
mO64KJ+nwMAX+clg2/uw2U/W6r5CgaGJQ+emZx5ARof+YS1vCkTwOAWNFD0E
0ZV9hwIDKcDCeanIS+8RFFxllb8RRoFHn+noMb5wyKaTvQAJFHAncLhpCEXC
5rUc041sCqwLH5yhcYiGXdyXMrtiCtSdPyYVQIwFO+WwgIRyCtQSk5YFXOPA
4ZtYzX9NFFjreHdwuTwelCJuarT0UsCFo3Lj3pFE8H8sJ7M7RoECCbdV954k
OJG2x56DTIHOXPnIu7rJIHHlbBLNNgVUOua+ECdTQN+40nuBdQG4WL2dE9+k
wdAozcUNwQUYO13DG/UmAxy+vzyldmQBSm8ppBXMZ4Fom842r+oCRCoL3gy9
9RRoLIaKZw0XoL2K18clNgd01qetes8vANucc6X6p1zINt6Ynbu2ALfPqJQ+
FMsHOV3zPut7CyDTP/kvNr8AGlMdBCUTFsDF7FKz7U4heGLiTnQFC0ATfJbd
PaAIojsSgL1iAabMNgcfCL8A9/MvRC51LIBIyKmzuvPFwFMSz3tonHr/ZOQx
J8pLiApdbeRZWYC8qkON92tfw0+VyFkJ5kWI+jvkHTv8BlS0GbKDRBbhgDiP
fuZyCbyzTl5GCovw76dFyTWpt9Avrv02xngRtA5N08reeQf5SJm92XERMp8q
zOS8KYP/uCN+qPkvQhNYjjbgymH2o07H3rhFqFt16j3rVQHFQwYv/F4sgviA
U2cZwwdo6xFnCm1ehCk/4ipvSxVEWmoVKQ0vQsEnOx4x24/w6nnfTcPVRYBy
p/9IhFpYG1bvG+Zagh4nbwIhsA681TntCUeW4OmR9X2iofUwYFsVvdeQamu7
P+1FDUCZv9d0z2kJzB9zWrSWNIKXuMeCS8gS+O6kfjna2wRZ/tNGlKwloK8v
0Jpma4FrSlLnVWuWgBld2jRyaoXIDI0C/5ElsNaW0jQc+QTDanyPBmmXwdag
+HhAUBuEl9f5rYsuQ5BtOqfWfDtUN5bE1aJlsF451eAb8AVu0G/nnXFchoMX
3p4YkO6CQJ+/W99Dl6EwPWTrYkg31KRG898tXoaZ4/SLqfd7wFr9eNCdr8uw
xZOqzZ7dC5fuNVh9XFmGqz387KdTv0JWNS2xm38FSneZbK8XfYP59y1Vw7AC
my/yHEY6vwPPUTpGHucVEDr/ecyRsx+CQlZfZ8WvgCGjDLesxwD4GQX6VdWu
wLtMOduduUHID3tmUzy1ArlTpuzGaAjG0q1e5XCuwlBojI7qm59g+4VX/LPy
KtSHe/yYIP6Cg6WZGqbOq/Dz+BbjF/II3JJMFfdMWaXm0ymO+xOjYNGVqHax
fRUstazEM3+PgW/F72/Va6twzaPjIFP7OPw+wP30ouQaJDpGWf3XOAEfc3JY
vC3XgPT80c2Q7t/AMaqcJB2xBtVdvPONS5OgZp0YVl+/BhXEZxu7x6bhq1VC
zneaf3CCflj4w6sZ8GxvLhDW+QfK1o8webNZqLHTtGCK+QcRzpzyNRJ/IVg3
8Cd++B+cQUZHUg6RQPdne2i37DooXI/iiZCn7qlpk/WJ8HXgaV7k97yxAALR
znzsf9chr1mSuqsXgda9qEDKfAPUH3Lq492XAfuUTlZs3YBChiev9x1fBV/x
hAhHzU3oUIursDjxD4IGf/gwtW9CZ+VM9XrgBkxwjxbV222B87W9P1X2bkOh
w47jNbptkPrkOqPLgkNLtkOTGhXb4CM2NX6zngblMGw7fA/egd2tizo3q+iQ
Y+R812H7XZD4tL/PmI4B3XzY9e4pIw7pHg31qhpkRG9iOpOir+BQfumQF2Gc
GWk0afEHBeDQRPpAXtAZFjR8+3ZnUzQOheV99BOoZ0HBP/kuO+ThEG9Ix8Cc
PCuqV3CMsqjAIckqNdWNIlbE9ugmbeEXHBJVIKYYirKhgztezTbrODRLl8fT
gbEjYV3W6ihJGlT8uWU7hsCBsPT1fcbmNGg5S5bupRAn0vEpQ89CaZB9+ZPr
BD4uFK0u6/yinAbpbYpy387nQipKXR8uz9Gg0I6nqn6K3EgWx+2baEiLPhh/
veamxYOati/XZZfQomgUVHPCDo8+GJVqtQrTIStJy4ZfDwioCXcyixhLh/hv
vtN5UIohpa9unZLM9MhHD12S+s2LesfW/4U9oke9/yQVUwl7EY3Fq3cGHHtQ
T2nM4BU1fkSXmRAgl7YH0Z8I+rRuIYD4D2lu9R6mvutlPe2vVoJI7na09ZMG
BvSx3Ut555QQirb0VS29wIi+dv2YfLUghGy3WKuObTEirWwPVno/YbS3ZtZn
IYMJ+ZxUPtrdIowih7Pou82ZkYs2cIgPCKOz+ElrL2pfRhq8Gx6/EUavCu57
kDxYkHHybl7NeWHUsLFz9M4a1WnBQ59HhNAnJS2c011WxHxK89yOmhDyji1l
o6dlQ1Wu+Y8zAwURztugqjeEDemJhnz3yhFAh5vMDJy22dDzmHYJ91J+pLvH
I/1JOjviniz6e//CXiT0R+VJGJ4DHbD7iBfW4kNsOmkVU6EcyDWrtYJTihfZ
QI5d6SIHSvrIPTLMjiHlXe1z29ac6KoWLlVkHY8efXuiPFvFiZhoNXyi/vKg
virD5nNsXMh85cEF8VluxDTYsaWgxIXYRbDX8ktciKyjXyV8jQvxrMemTz3g
RNpjKraqT7mQpk1D5q/T7Egvqy5wsJMLCfBSpmi1WJGpxM2TKhtcCI3Hs/1w
ZEZzV2yj8sW4UWai6dax54zoHm9FkJkeN+qSXfdyITCgdBHLlFA3buSf9vJ5
TQ49Ulx679gdw42+S4xaTR+mQw/O7Z6KK+FGHU3aZh8HaBA/h+tx+h5udIT/
M2dHPg7dqQg7Y0fiRo+/eau28u9C+1VG1q/MPKi7Kfe5stA2aJ473R0uzoN2
LTT2lBtugiRp6tFLFR60/8NH+ci8dZDt1eO5eJYHCWb+FxSx7x8QF1bePvHm
QWd+HClgZ12FVyrp5VgsD3rtGueqdnIZbo1XxR8t5kGOQ5VlwWmLMGHb4SvV
xIP2WeZe6pdZAGPRF3ZoiAcpKebPHewiQ3/Mx/IXFB70/uhkHITPw2bJamMi
PR4xUuKvJ4TMQbiiUYMEHx79MfllrfLyD1jaTRYKH8ejUnkJlnCxaZBjc+wL
MMAjE1yLPe3Kb7Cp2HyTZo9HG7M6WS34CUiW0aFt88EjuWi1vfFeY6BcU3lb
LwyPdiMHw4boRuGaZomtYQoenekTjbv0YBjahW39dp/h0YmnaRyhhkPUPFn/
Hv4ej+idjKN2TAeh807bnnuteFSVgw+VFumHT1++/WXsxyOsKlQs+vh3YNXv
HTCYxKO+R2tMave/QoAcLtVrEY+YFfvNixh6IZX59FLGDh4lLb/SJ5R1w7XB
cy0zzARUdEdizZGrC97/sv/rTiAgaNFLz1rpgLoZEklNhIBirqj8UeduB7Qj
72d4mIDa/fRbG4s+UXNEKUXxJAERHE/x7YtrAbvmz9EHNKj1P0k1GdVNMNqR
6nbCiIB+GWI6ZqKNwHIFbxRsTkC92s+LQ97Wg1DlZRORiwSk6FRdyuRZB2pM
XGb7rxCQwdhdTtm0GhjlSIpM9SCgvwvOb1riqoEcviCb5EtAN9POP777rxJM
+Z2/vwwmIHLI67jDFeVwrvWHBM1jAgpIrF51rS8D9r0en57FEpCHZEghF9M7
YBTKuPw+mYCSV9Tk7O+VwjvhBTdiFgFFr54+GChVAkLm7GWn8wmoI+nqxdXp
1/CaJXd56TkBDeYfFJCtfQn/gl3rMkoISIBDutV58QWISbW6x1UQkAX6Vnv6
URGMm/ySn60hICJPspiNZyHQ53IIVDURUNBbmGtKzYfct6LdhDYC+qNnKJux
lQtLHB4X93QR0K3F41cIMTnAtixblPKVgMK11O+yGjyFq5dsewb6Cch25+i0
hUkWvNTzv/t8mIA+x+nQNFqlg+7hCsW/4wTUmDQeydCZAjenuF6/myYg0fqe
EJf0J5DyKZUX/5eAvPuP7o0oSYTxlV8DBAoBuUhnfNGhT4DSrTfHmpcIaH2Q
d2z2cRw06BDjj6wRUKxp80iBciy0HElhsdggINVlhjAF0Wjg935OU7JDQPMB
it5kjgiY6owyyaTFkJ9RcrG61yN4hpf9Ic2AIU8TBY2Lcg9hZlYr9Qozhl7/
1iq+SnwAd+RSVG3ZMNR2YGZbIuIefN9+9oybE0PxLMJkYfYQqJ4UNInjxpCt
ZhFnr28QXOw5FDyKxxBPx7z4rf13YN8rmv28fBg61FtTHMIcAKtrXs2r/Bh6
8BGd83f1hcfHErAYIQz9uU7ZbZO5CZF9GWf+iGDIXNcdnIg3QCa+fZB9P4Z8
21qPqMZ5gaIZ41M6cQyxSuSHqgtcB3aNbLfuAxi6cURu/kyOB9RwS/P7S2Jo
Rmj36wcbNzikvyXRIYUhZ+Or0mFnnWGtuIh2RBpD/0ViOa7NTmBtwJheJYMh
K/Wt4ti0S+A11DrlchRDl8HJUbTWAbrLzO0oxzA0FufQmXDAHljEEs3N5DB0
OsJcQCroAsx+S5NLO06tH2rYseCwhTLS49xmeQzFhWU7X56xgpLx8hV3BQyB
4Bm4xGABT7knCn4rYmg+5GENa9Y5WE5ktD6hhKHcujUlSpIpZPkOSzieop7f
HZCnlJnAvYf8K97KGGKT41AR/WgE7y5otLqqYEicdltyVNoAODj2zRipYmjH
fs9I0LwuGJfPEYTUMHTBq6Xt36o2COcmDmsSMZSi8PKIookmdKjfmtMDDGn2
SB9iElIHb0trFjmEoW/Zvf1nHxGhLse1A6eOodIZBunXLiqQ4qs9WEV1oIzI
ni+1SmAaPCPhpIGhk5EEXbKPItBXhwrvUr0ZV7l4zO8ECDjfrY3QpP473D2+
alQfB61KF39zLQwJi1kYsznKArJIymbQxtDtV3sfBE/KQFCOxPU8ql81H/Yd
++8QLDtYqR7TwdDiBn0fYU0S2NQ5Cv+jmiWrLbD9+QHQamhpE9alzpNwERdd
iRhMa793fED1naTSDcNtUXA4Yd8/RvUrQhCjzJ59kMw5+MxRD0M+9jH5NNKC
cO2UwvxXqntpWQ6bb/EBZSLXREkfQ8M+B96WmWPAOOn5O47q+HLb7i/8eBCJ
+nRunOqVbaKtpTw3HBVWWZI2wFACl8m14wc4QfH5yoA71e9+Hb7IeY4N2JPa
/xRRLS9R8T5rhBmGNcZadqhOCa5YPhjLANp7pbb0Dan9nUt2KBykg3x3c+dI
qm04nLqsU2lA9vpQUCvVzLons+rcdolPpexctqguIP0OzlTaIg5FT3LJGGEo
lrFGNz1wnVh3pFTBkuqnlgzFr/evEQtttK4lU82+0yjg07dErHGx6uqkulD3
SZOj/AKR67IHxy7Vyac+cMoIk4huLMq+h4wx9EHLeLk1cZZoGRzHbEL1X/En
T+pyp4mMOezR16kusWXzDT44SdwQEc+PprpL51TJWdYJ4tkrVj2VVPvdbXet
UxglZr9RbftFNfm5TfbA/BBxzMGkc4dqa+rSeWEyQHTe+NEhcBpDMsmSBSE2
34l9UR6B8lT7ODTFp073El+iUVd9qhVro1ff/OgmDm7jmC5QbVTpRZuk1kns
2HPivi/VktbGw25Dn4lMbTV60VTb3grgrzzfQvwf7x58iw==
                    "]}, {Automatic}]}}]], 1], 1, 1, 1, 1] Cos[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 500.}}, {
                    3, 11, 1, {333}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwt1nk8VXkfB/DcVEYhhmzRMJVCCS1k+1QuynLP71wXXVuWIoqSZGk1nkim
KMtVUt1SUTL2MsKobJNQIuvUFInuoyyNMlfPmed5zut1zvuf7/ktn9fve15H
yzeU3smaNWuWBHM7/vP4/5WQdVxTbJ1n9T8rrC4I0p/Ya360CtJh19sKZqw0
e7680jo1F88eFMv5enyPRWeGVxuHq2NVwUIdVp0WnJTvlA23LUOf7IWyHjM9
rJ9t7T5Ir4F4ZmNP/zxjPPpq6N5ZuQ6nP6/oadlvAnpsiXvDcjOIYsYrnSgL
JMyp13wRZYUUW8ea/Dbgeb+R3dfiTVCMUGm1Sd8MF5kZ1/ORW2BoYa+82dga
C/YKOj6KrPEuayDt8i02QmFxM3+LDabepN77td8Gx+M/NDZG2eI7PeueTkU7
SF43WnjxjB2+LdZie0ltxdc0uWit2K2YlJ25+3Z6K04lhLbIe2yDBuv1qGXl
NhTG0Av3LLYHe/LhmszD9kgfcJJzaLTH0Isu0YySAzbW+T8p9HXA6bLRPP8C
B+SxK5MWixzQ2J4Q0q7riCE/HpUU6Ih541pG1jccUbhGaOXy0hH8EG3HQGkn
zL4j5EebOyH/vXZgUogTgt1QGpnhBN16T9bOGie8XxfDIe+dcOu6IMtCgQOb
Qj2ZYWMO3j6oOpLO4+BEE/n35kMcLOl86zUq4KDQxbKxtYSDLR0ZxkWtHLTz
Pl06/4GD4qBlcRslKRTE1+t3yFHIu777xX51Cjd+m39URofC1f785blGFC5N
c1qsLSloGwidE20p3PSd6GqhKOin23gr8SkUNQre8v0obBAP776yh0KKql2a
QjiFkXU5NXExFGxo1ofPsRSuhHgr706k8DWxcnNPClPn4Bb8OoPCStmJ8+8u
UahpOVspukbBNUVvYDyXwihdL/O1gIKxn0/gnyUUIg9M1zbdp/DgpzSN4ioK
rFSDyIsPKdheb3z2UwOFzlzu3MQnFAIL+kyTWylMlQTsTW+nkFDx6UrWSwqq
NTHtwl4KyR5nn0/8QWHeF+EzmzcUjqSVtQkGKUwYNrUOv6cQ/LSvxVxEoXJ0
FT0zSkFG/mh79RgFT6OnLicmKdzlanZtnqIwEx7iLjlNgZNe1fdYTGFp7bfe
v79R+CJCrzGL4KlqbE+QJMF19sPuq3MJovZLdr+UInC6xO6Sm0/wXCKhpXsB
wfZdTY9zZAn6mxZU7ltI4GfAKTJTIBg6n3JrriJByNTz7DYlgu9UKnLtlJnx
NlwpqVYhsHI9Wb1ejaA7Yk9TvjpBRDr9YqkGgXyZyauLmgQ5XSrpbUsITMVT
9vO0CJp/6JKw0Cbwsb5fHvYjwWRA5t5bSwlGpubafltG8PpU+A8uOgQdan9+
ubOC4MltzvPZugS15g/u8PUIypt1TxbqE+R7CbylVhNcG51j6m1AIDh+QKFs
DcEZ+dcjC4wI4oROj/2MCaKNK7Mr1hKEPloZKb+eYCcvgwRuIHAflNSrNiGg
DoVJLtpIoH1M44S0GcH4yQbxDCPFi3tjYM7M8yMadzBKj03fTWEMqClPrWV8
dOZA9DjjUb0RNs+CwKTBV76ccdy/u1fFknlPgr4VzRiQ3Xigl1HLbJOVpRWT
u8D39xHGw5M/uWaCIJfOeWOzidlvQV3oBKOkzND01c0EhkHfJXC2EHjX6yqK
GZOWOlzJsya4f2Kvvhub4F3/mXtzbAgUzX+xLmbclNnWusOW2efnMQ9ZO4K0
iIlr7YzT+gNVwVsJfN+86GJtI2jIrJvIZFxNlcsZ2jN1c2/pNjBOVwrY3g5M
3YFTOz4zqviwkmscCVYqDpX6OBGY1Tf3sDgEjtHFEtcZvVdl6rApgn2vjjoO
Msae9z8QTwhSbbZlrqCZnK0khNOM603u5T3lEkgZhhZfdSboWrm8MpxHkKfd
98jWhSBGPbVZzZXAQdG+Q8Qo3dTj3+nGrPPYnvGa7QQn14lP5PEJrEd+Xpjq
TsC6qnn5iAdBjUvBqgBPJv8FqKS8CMxrW7dt9Gbq+GvFl3cQ2I9lFMzxJaAT
p32C/Qj42t6Kbf7MuauorVu/iyCQXh6VFcDkNXxKj7Wb4FCsqC8giEBnGQnI
3kPwsr7kY3sIQUKQSvT8/cz5lTk8e/MBguGCP5IiDxJcoLcsKjjEzDN54/JA
FJNfhvTKxYeZvigqsRg+yuTU7EXfO0Hw+Z1UwMk4gsus4hjneAI7Dc9k7USC
Txvm5XxM+mecwvtVZwm27HV/mnSOwCDi/tmMdAL1Y8pEeIFgXsJBhfxsgonk
58/LhQSvMg3Tam8wfSE869KcR3Dvtkj55V2mz0rsu/4sYtY/IJCrucfkqzTI
vlRFsMrG+HD0I4JfIo4XuTYRGN9sHlrbSlDaqbZEoYM5t1KBvNEegl9NSk8/
eU0woDD0NHyYQE6kpqAxzuy73pH3eJr5Hlw9LtgrSePnmOIeJRka5bxBzSol
Gq8NVH13adKYL+2QI6tDY0xubN7fxjS6lQRB70HjN3XL5g5HGrlabw0e8Wkk
6ySeKwygEblqzWR2OI0dxh2uSSdo2Joerog6Q6PG42zMLCENk+NC8/hSGoXX
SsUyjTRW1jdUpfbSEA73HFP/SENddhTC2VycN2SxVipzsYCn9LBAl4sEVX/b
f9lxMbu/6Hf+Li6OCSWoNXFcTO+i2ucIuTikd9mtp5qL8VFR7y99XISWmPuc
nOZiJPL0gLuqM77nx9w4ZusMM7PggGsHneG32H1F/TVnnBZvez/c5oyS/o15
srN46K3WDTZazYPkVTV9Fw8e9GOlRVGJPFgs/FD9+BkPTtnN5+TVXeClX7DT
088FoRXJJrm3XXDcLmz+5LgLUjq4/TB3hdB/XWFSnCuKxhbFvXziigd/1alV
W7mh4e+IwpwiNzyT0LFLWrYdfXM7+8ME2zE0P/7g9vl8jC3csABH+RArvRMu
/8SHlHqGqYy/O5aueSlvt9gDYKsOx7Z7wIPPr32Q5InI0IsXpqy9kBbXG2Ys
9kJhpoZ9SKk3AlwLUtrX78Dk6xbxp3M7EL7/zeDYDz4Yn/VXy/hdH4QlS9+f
MPfFpyWawskmX+wvMDz92c0PHy3Z4X8N+iH0qZvnVLg//u25x+YLayeS5SRm
Bw3uhNFvadXdjbvQHqZ72D4/ABFLq00qkwOh2sGd1A/fjV/jhwovuQbB0/RI
iKxZMDLP73NvrNiDDpGfXdzGECjYua6zqgiFDlkmL87aB/ZMdny3x37431aZ
KV8chli3c+FpvWG4MjCQo6Ecjqow084cchC935KkVidF4GvSK9OyukNQUVsb
bCkRhfU347PqzKLhvLan2SkiBroXRLt03I/gvz+XOIb/AJEpojI=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwl02FEGAAQgNGWJEmSJElakiRJkiRJkiRJkiRJkiQtSZIkSZIkSZKZSZIk
SZIkSZIkyUySJMlMkiRJspcd737fj+++Nn6rbP8SEBBQ/rlMIEEEE0IoYYQT
QSRRRBNDLHHEk0AiSSSTQipppJNBJllkk0MueeRTQCFFFFNCKWWf91FBJVVU
U0MtddTTQCNNNNNCK22000EnXXTTQy999DPAIEMMM8IoY4wzwSRTTDPDLN/5
wU/mmGeBRZZYZoVV1lhng0222GaHXfbY54BDjjjmhFPO+MVvzrngkiuuueGW
O/7wl3seeOSJZ1545Y13PgjQQCBBBBNCKGGEE0EkUUQTQyxxxJNAIkkkk0Iq
aaSTQSZZZJNDLnnkU0AhRRRTQillX/73WUElVVRTQy111NNAI00000IrbXxG
3kEnXXTTQy999DPAIEMMM8IoY4wzwSRTTDPDLN/5wU/mmGeBRZZYZoVV1lhn
g0222GaHXfbY54BDjjjmhFPO+MVvzrngkiuuueGWO/7wl3seeOSJZ1545Y13
Pvh8/kCCCCaEUMIIJ4JIoogmhljiiCeBRJJIJoVU0kgng0yyyCaHXPLIp4BC
iiimhFLKKKeCSqqopoZa6qingUaaaKaFVtpop4NOuuimh1766GeAQYYYZoRR
xhhngkmmmGaGWf4B6TSZlQ==
                    "], CompressedData["
1:eJwN1nc01X8YB/BrZO97v2QmIklFIhn3+dg7KVtllDITKSOFSsqe2WSm/BqU
ENmjkFUZSVZG5N5rZ//un69zPs/5nPN5nvO8P/sdPc860eBwuDRaHM5Q99bd
6nYS/NIUmhtXFAC1OhbtVqrPR0TSlCABkP70jLOX6tQV08wHBgKgn5zxM76D
BDVio68MNwWgmba8weoLCewy2tMOvBUEQXi4Kt5JAhv/vAAvbyFojzdI3eki
gSSH1Uuiigg03HYKX+shAflkn57eXlFY+737kfsbCZpL2w8dlNkPvM/S0s/0
kWAPp8N87XkxCA45MhI3SILswC2DAKkDcOPyqWrJYRLcv94doKsiCQ1uCXeE
xkigfTSMLz1fCjbsduzvT5KgvddU2NHvMGBF/vc9Z0mA+7JyJ6f7KFQVX+fd
IJOgja/q9txVOdBa4jtAWiZB/jjebNhQHiLD1Wc8N0ggYHCDxeO+AlAyg7NT
cGRwUL1rwyuuBErBM2XyDGQ4/0OizrxIGUq+n/7mzEaGrlsmYykpajAhra57
Fk+GcCKX292HCHQ9tVLy+cnAR//ne5isBrixRmpkiZJhxOw+KVNECxqrFRpt
pMgQX11/XtBeBwQqF3/fOEaGspGWVaMoPfjwdvKCxkky2BXImZ/nMgT6Wrrf
40CGMRr1kqVNY+Crjs7w0ydD+o+v+7nenYFYekWtVlMy4I6fZlDQPAsFg5t2
YzZkEBL31D7DbgbGt3+2TF4mw7pilH6hiAV4iN74u+5JBqa6pcrhh1agtJy4
nexPBspM1y++ChvQyH1tz/eADMkhQgy5ShfgJr1lZUoMGS7TaU7tY7OHHn8J
K80MMojrHxP0KHOAnUbbCdNnZJB/N+d/VPkS7Iu/XWn1lgwrmbX7M5YugzVj
rXFAHRm0hwe6queugBKuonukkwwxJ/68FTrmAk8GzZjvDZFB9twKZ4qGG9jG
1TSe+EMGi6ZvmzrpHiARE2Us9I8MuXm8hdNi16H3IOu4HD0FOOptGxeKvECw
PEbZjpUC/bQjklOcN8Bsaix2P54C/H2/xIbzfOBvYOpOhCAFTN8wJtS736LO
tx1n2QEKqL91Fjfz8YOXI/3tPTIUyCy/FT1xLgAUrFsnYxUo0PS+QMvfIxDa
8uQ8GYACH0wb7sy33YXaHv01fX0KCMV1vJSoDobR54W7LmcpUH7f2UZ3PQSM
mO64KJ+nwMAX+clg2/uw2U/W6r5CgaGJQ+emZx5ARof+YS1vCkTwOAWNFD0E
0ZV9hwIDKcDCeanIS+8RFFxllb8RRoFHn+noMb5wyKaTvQAJFHAncLhpCEXC
5rUc041sCqwLH5yhcYiGXdyXMrtiCtSdPyYVQIwFO+WwgIRyCtQSk5YFXOPA
4ZtYzX9NFFjreHdwuTwelCJuarT0UsCFo3Lj3pFE8H8sJ7M7RoECCbdV954k
OJG2x56DTIHOXPnIu7rJIHHlbBLNNgVUOua+ECdTQN+40nuBdQG4WL2dE9+k
wdAozcUNwQUYO13DG/UmAxy+vzyldmQBSm8ppBXMZ4Fom842r+oCRCoL3gy9
9RRoLIaKZw0XoL2K18clNgd01qetes8vANucc6X6p1zINt6Ynbu2ALfPqJQ+
FMsHOV3zPut7CyDTP/kvNr8AGlMdBCUTFsDF7FKz7U4heGLiTnQFC0ATfJbd
PaAIojsSgL1iAabMNgcfCL8A9/MvRC51LIBIyKmzuvPFwFMSz3tonHr/ZOQx
J8pLiApdbeRZWYC8qkON92tfw0+VyFkJ5kWI+jvkHTv8BlS0GbKDRBbhgDiP
fuZyCbyzTl5GCovw76dFyTWpt9Avrv02xngRtA5N08reeQf5SJm92XERMp8q
zOS8KYP/uCN+qPkvQhNYjjbgymH2o07H3rhFqFt16j3rVQHFQwYv/F4sgviA
U2cZwwdo6xFnCm1ehCk/4ipvSxVEWmoVKQ0vQsEnOx4x24/w6nnfTcPVRYBy
p/9IhFpYG1bvG+Zagh4nbwIhsA681TntCUeW4OmR9X2iofUwYFsVvdeQamu7
P+1FDUCZv9d0z2kJzB9zWrSWNIKXuMeCS8gS+O6kfjna2wRZ/tNGlKwloK8v
0Jpma4FrSlLnVWuWgBld2jRyaoXIDI0C/5ElsNaW0jQc+QTDanyPBmmXwdag
+HhAUBuEl9f5rYsuQ5BtOqfWfDtUN5bE1aJlsF451eAb8AVu0G/nnXFchoMX
3p4YkO6CQJ+/W99Dl6EwPWTrYkg31KRG898tXoaZ4/SLqfd7wFr9eNCdr8uw
xZOqzZ7dC5fuNVh9XFmGqz387KdTv0JWNS2xm38FSneZbK8XfYP59y1Vw7AC
my/yHEY6vwPPUTpGHucVEDr/ecyRsx+CQlZfZ8WvgCGjDLesxwD4GQX6VdWu
wLtMOduduUHID3tmUzy1ArlTpuzGaAjG0q1e5XCuwlBojI7qm59g+4VX/LPy
KtSHe/yYIP6Cg6WZGqbOq/Dz+BbjF/II3JJMFfdMWaXm0ymO+xOjYNGVqHax
fRUstazEM3+PgW/F72/Va6twzaPjIFP7OPw+wP30ouQaJDpGWf3XOAEfc3JY
vC3XgPT80c2Q7t/AMaqcJB2xBtVdvPONS5OgZp0YVl+/BhXEZxu7x6bhq1VC
zneaf3CCflj4w6sZ8GxvLhDW+QfK1o8webNZqLHTtGCK+QcRzpzyNRJ/IVg3
8Cd++B+cQUZHUg6RQPdne2i37DooXI/iiZCn7qlpk/WJ8HXgaV7k97yxAALR
znzsf9chr1mSuqsXgda9qEDKfAPUH3Lq492XAfuUTlZs3YBChiev9x1fBV/x
hAhHzU3oUIursDjxD4IGf/gwtW9CZ+VM9XrgBkxwjxbV222B87W9P1X2bkOh
w47jNbptkPrkOqPLgkNLtkOTGhXb4CM2NX6zngblMGw7fA/egd2tizo3q+iQ
Y+R812H7XZD4tL/PmI4B3XzY9e4pIw7pHg31qhpkRG9iOpOir+BQfumQF2Gc
GWk0afEHBeDQRPpAXtAZFjR8+3ZnUzQOheV99BOoZ0HBP/kuO+ThEG9Ix8Cc
PCuqV3CMsqjAIckqNdWNIlbE9ugmbeEXHBJVIKYYirKhgztezTbrODRLl8fT
gbEjYV3W6ihJGlT8uWU7hsCBsPT1fcbmNGg5S5bupRAn0vEpQ89CaZB9+ZPr
BD4uFK0u6/yinAbpbYpy387nQipKXR8uz9Gg0I6nqn6K3EgWx+2baEiLPhh/
veamxYOati/XZZfQomgUVHPCDo8+GJVqtQrTIStJy4ZfDwioCXcyixhLh/hv
vtN5UIohpa9unZLM9MhHD12S+s2LesfW/4U9oke9/yQVUwl7EY3Fq3cGHHtQ
T2nM4BU1fkSXmRAgl7YH0Z8I+rRuIYD4D2lu9R6mvutlPe2vVoJI7na09ZMG
BvSx3Ut555QQirb0VS29wIi+dv2YfLUghGy3WKuObTEirWwPVno/YbS3ZtZn
IYMJ+ZxUPtrdIowih7Pou82ZkYs2cIgPCKOz+ElrL2pfRhq8Gx6/EUavCu57
kDxYkHHybl7NeWHUsLFz9M4a1WnBQ59HhNAnJS2c011WxHxK89yOmhDyji1l
o6dlQ1Wu+Y8zAwURztugqjeEDemJhnz3yhFAh5vMDJy22dDzmHYJ91J+pLvH
I/1JOjviniz6e//CXiT0R+VJGJ4DHbD7iBfW4kNsOmkVU6EcyDWrtYJTihfZ
QI5d6SIHSvrIPTLMjiHlXe1z29ac6KoWLlVkHY8efXuiPFvFiZhoNXyi/vKg
virD5nNsXMh85cEF8VluxDTYsaWgxIXYRbDX8ktciKyjXyV8jQvxrMemTz3g
RNpjKraqT7mQpk1D5q/T7Egvqy5wsJMLCfBSpmi1WJGpxM2TKhtcCI3Hs/1w
ZEZzV2yj8sW4UWai6dax54zoHm9FkJkeN+qSXfdyITCgdBHLlFA3buSf9vJ5
TQ49Ulx679gdw42+S4xaTR+mQw/O7Z6KK+FGHU3aZh8HaBA/h+tx+h5udIT/
M2dHPg7dqQg7Y0fiRo+/eau28u9C+1VG1q/MPKi7Kfe5stA2aJ473R0uzoN2
LTT2lBtugiRp6tFLFR60/8NH+ci8dZDt1eO5eJYHCWb+FxSx7x8QF1bePvHm
QWd+HClgZ12FVyrp5VgsD3rtGueqdnIZbo1XxR8t5kGOQ5VlwWmLMGHb4SvV
xIP2WeZe6pdZAGPRF3ZoiAcpKebPHewiQ3/Mx/IXFB70/uhkHITPw2bJamMi
PR4xUuKvJ4TMQbiiUYMEHx79MfllrfLyD1jaTRYKH8ejUnkJlnCxaZBjc+wL
MMAjE1yLPe3Kb7Cp2HyTZo9HG7M6WS34CUiW0aFt88EjuWi1vfFeY6BcU3lb
LwyPdiMHw4boRuGaZomtYQoenekTjbv0YBjahW39dp/h0YmnaRyhhkPUPFn/
Hv4ej+idjKN2TAeh807bnnuteFSVgw+VFumHT1++/WXsxyOsKlQs+vh3YNXv
HTCYxKO+R2tMave/QoAcLtVrEY+YFfvNixh6IZX59FLGDh4lLb/SJ5R1w7XB
cy0zzARUdEdizZGrC97/sv/rTiAgaNFLz1rpgLoZEklNhIBirqj8UeduB7Qj
72d4mIDa/fRbG4s+UXNEKUXxJAERHE/x7YtrAbvmz9EHNKj1P0k1GdVNMNqR
6nbCiIB+GWI6ZqKNwHIFbxRsTkC92s+LQ97Wg1DlZRORiwSk6FRdyuRZB2pM
XGb7rxCQwdhdTtm0GhjlSIpM9SCgvwvOb1riqoEcviCb5EtAN9POP777rxJM
+Z2/vwwmIHLI67jDFeVwrvWHBM1jAgpIrF51rS8D9r0en57FEpCHZEghF9M7
YBTKuPw+mYCSV9Tk7O+VwjvhBTdiFgFFr54+GChVAkLm7GWn8wmoI+nqxdXp
1/CaJXd56TkBDeYfFJCtfQn/gl3rMkoISIBDutV58QWISbW6x1UQkAX6Vnv6
URGMm/ySn60hICJPspiNZyHQ53IIVDURUNBbmGtKzYfct6LdhDYC+qNnKJux
lQtLHB4X93QR0K3F41cIMTnAtixblPKVgMK11O+yGjyFq5dsewb6Cch25+i0
hUkWvNTzv/t8mIA+x+nQNFqlg+7hCsW/4wTUmDQeydCZAjenuF6/myYg0fqe
EJf0J5DyKZUX/5eAvPuP7o0oSYTxlV8DBAoBuUhnfNGhT4DSrTfHmpcIaH2Q
d2z2cRw06BDjj6wRUKxp80iBciy0HElhsdggINVlhjAF0Wjg935OU7JDQPMB
it5kjgiY6owyyaTFkJ9RcrG61yN4hpf9Ic2AIU8TBY2Lcg9hZlYr9Qozhl7/
1iq+SnwAd+RSVG3ZMNR2YGZbIuIefN9+9oybE0PxLMJkYfYQqJ4UNInjxpCt
ZhFnr28QXOw5FDyKxxBPx7z4rf13YN8rmv28fBg61FtTHMIcAKtrXs2r/Bh6
8BGd83f1hcfHErAYIQz9uU7ZbZO5CZF9GWf+iGDIXNcdnIg3QCa+fZB9P4Z8
21qPqMZ5gaIZ41M6cQyxSuSHqgtcB3aNbLfuAxi6cURu/kyOB9RwS/P7S2Jo
Rmj36wcbNzikvyXRIYUhZ+Or0mFnnWGtuIh2RBpD/0ViOa7NTmBtwJheJYMh
K/Wt4ti0S+A11DrlchRDl8HJUbTWAbrLzO0oxzA0FufQmXDAHljEEs3N5DB0
OsJcQCroAsx+S5NLO06tH2rYseCwhTLS49xmeQzFhWU7X56xgpLx8hV3BQyB
4Bm4xGABT7knCn4rYmg+5GENa9Y5WE5ktD6hhKHcujUlSpIpZPkOSzieop7f
HZCnlJnAvYf8K97KGGKT41AR/WgE7y5otLqqYEicdltyVNoAODj2zRipYmjH
fs9I0LwuGJfPEYTUMHTBq6Xt36o2COcmDmsSMZSi8PKIookmdKjfmtMDDGn2
SB9iElIHb0trFjmEoW/Zvf1nHxGhLse1A6eOodIZBunXLiqQ4qs9WEV1oIzI
ni+1SmAaPCPhpIGhk5EEXbKPItBXhwrvUr0ZV7l4zO8ECDjfrY3QpP473D2+
alQfB61KF39zLQwJi1kYsznKArJIymbQxtDtV3sfBE/KQFCOxPU8ql81H/Yd
++8QLDtYqR7TwdDiBn0fYU0S2NQ5Cv+jmiWrLbD9+QHQamhpE9alzpNwERdd
iRhMa793fED1naTSDcNtUXA4Yd8/RvUrQhCjzJ59kMw5+MxRD0M+9jH5NNKC
cO2UwvxXqntpWQ6bb/EBZSLXREkfQ8M+B96WmWPAOOn5O47q+HLb7i/8eBCJ
+nRunOqVbaKtpTw3HBVWWZI2wFACl8m14wc4QfH5yoA71e9+Hb7IeY4N2JPa
/xRRLS9R8T5rhBmGNcZadqhOCa5YPhjLANp7pbb0Dan9nUt2KBykg3x3c+dI
qm04nLqsU2lA9vpQUCvVzLons+rcdolPpexctqguIP0OzlTaIg5FT3LJGGEo
lrFGNz1wnVh3pFTBkuqnlgzFr/evEQtttK4lU82+0yjg07dErHGx6uqkulD3
SZOj/AKR67IHxy7Vyac+cMoIk4huLMq+h4wx9EHLeLk1cZZoGRzHbEL1X/En
T+pyp4mMOezR16kusWXzDT44SdwQEc+PprpL51TJWdYJ4tkrVj2VVPvdbXet
UxglZr9RbftFNfm5TfbA/BBxzMGkc4dqa+rSeWEyQHTe+NEhcBpDMsmSBSE2
34l9UR6B8lT7ODTFp073El+iUVd9qhVro1ff/OgmDm7jmC5QbVTpRZuk1kns
2HPivi/VktbGw25Dn4lMbTV60VTb3grgrzzfQvwf7x58iw==
                    "]}, {Automatic}]}}]], 1]], $CellContext`rho5[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 500.}}, {
                    3, 11, 1, {333}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwt1nk8VXkfB/DcVEYhhmzRMJVCCS1k+1QuynLP71wXXVuWIoqSZGk1nkim
KMtVUt1SUTL2MsKobJNQIuvUFInuoyyNMlfPmed5zut1zvuf7/ktn9fve15H
yzeU3smaNWuWBHM7/vP4/5WQdVxTbJ1n9T8rrC4I0p/Ya360CtJh19sKZqw0
e7680jo1F88eFMv5enyPRWeGVxuHq2NVwUIdVp0WnJTvlA23LUOf7IWyHjM9
rJ9t7T5Ir4F4ZmNP/zxjPPpq6N5ZuQ6nP6/oadlvAnpsiXvDcjOIYsYrnSgL
JMyp13wRZYUUW8ea/Dbgeb+R3dfiTVCMUGm1Sd8MF5kZ1/ORW2BoYa+82dga
C/YKOj6KrPEuayDt8i02QmFxM3+LDabepN77td8Gx+M/NDZG2eI7PeueTkU7
SF43WnjxjB2+LdZie0ltxdc0uWit2K2YlJ25+3Z6K04lhLbIe2yDBuv1qGXl
NhTG0Av3LLYHe/LhmszD9kgfcJJzaLTH0Isu0YySAzbW+T8p9HXA6bLRPP8C
B+SxK5MWixzQ2J4Q0q7riCE/HpUU6Ih541pG1jccUbhGaOXy0hH8EG3HQGkn
zL4j5EebOyH/vXZgUogTgt1QGpnhBN16T9bOGie8XxfDIe+dcOu6IMtCgQOb
Qj2ZYWMO3j6oOpLO4+BEE/n35kMcLOl86zUq4KDQxbKxtYSDLR0ZxkWtHLTz
Pl06/4GD4qBlcRslKRTE1+t3yFHIu777xX51Cjd+m39URofC1f785blGFC5N
c1qsLSloGwidE20p3PSd6GqhKOin23gr8SkUNQre8v0obBAP776yh0KKql2a
QjiFkXU5NXExFGxo1ofPsRSuhHgr706k8DWxcnNPClPn4Bb8OoPCStmJ8+8u
UahpOVspukbBNUVvYDyXwihdL/O1gIKxn0/gnyUUIg9M1zbdp/DgpzSN4ioK
rFSDyIsPKdheb3z2UwOFzlzu3MQnFAIL+kyTWylMlQTsTW+nkFDx6UrWSwqq
NTHtwl4KyR5nn0/8QWHeF+EzmzcUjqSVtQkGKUwYNrUOv6cQ/LSvxVxEoXJ0
FT0zSkFG/mh79RgFT6OnLicmKdzlanZtnqIwEx7iLjlNgZNe1fdYTGFp7bfe
v79R+CJCrzGL4KlqbE+QJMF19sPuq3MJovZLdr+UInC6xO6Sm0/wXCKhpXsB
wfZdTY9zZAn6mxZU7ltI4GfAKTJTIBg6n3JrriJByNTz7DYlgu9UKnLtlJnx
NlwpqVYhsHI9Wb1ejaA7Yk9TvjpBRDr9YqkGgXyZyauLmgQ5XSrpbUsITMVT
9vO0CJp/6JKw0Cbwsb5fHvYjwWRA5t5bSwlGpubafltG8PpU+A8uOgQdan9+
ubOC4MltzvPZugS15g/u8PUIypt1TxbqE+R7CbylVhNcG51j6m1AIDh+QKFs
DcEZ+dcjC4wI4oROj/2MCaKNK7Mr1hKEPloZKb+eYCcvgwRuIHAflNSrNiGg
DoVJLtpIoH1M44S0GcH4yQbxDCPFi3tjYM7M8yMadzBKj03fTWEMqClPrWV8
dOZA9DjjUb0RNs+CwKTBV76ccdy/u1fFknlPgr4VzRiQ3Xigl1HLbJOVpRWT
u8D39xHGw5M/uWaCIJfOeWOzidlvQV3oBKOkzND01c0EhkHfJXC2EHjX6yqK
GZOWOlzJsya4f2Kvvhub4F3/mXtzbAgUzX+xLmbclNnWusOW2efnMQ9ZO4K0
iIlr7YzT+gNVwVsJfN+86GJtI2jIrJvIZFxNlcsZ2jN1c2/pNjBOVwrY3g5M
3YFTOz4zqviwkmscCVYqDpX6OBGY1Tf3sDgEjtHFEtcZvVdl6rApgn2vjjoO
Msae9z8QTwhSbbZlrqCZnK0khNOM603u5T3lEkgZhhZfdSboWrm8MpxHkKfd
98jWhSBGPbVZzZXAQdG+Q8Qo3dTj3+nGrPPYnvGa7QQn14lP5PEJrEd+Xpjq
TsC6qnn5iAdBjUvBqgBPJv8FqKS8CMxrW7dt9Gbq+GvFl3cQ2I9lFMzxJaAT
p32C/Qj42t6Kbf7MuauorVu/iyCQXh6VFcDkNXxKj7Wb4FCsqC8giEBnGQnI
3kPwsr7kY3sIQUKQSvT8/cz5lTk8e/MBguGCP5IiDxJcoLcsKjjEzDN54/JA
FJNfhvTKxYeZvigqsRg+yuTU7EXfO0Hw+Z1UwMk4gsus4hjneAI7Dc9k7USC
Txvm5XxM+mecwvtVZwm27HV/mnSOwCDi/tmMdAL1Y8pEeIFgXsJBhfxsgonk
58/LhQSvMg3Tam8wfSE869KcR3Dvtkj55V2mz0rsu/4sYtY/IJCrucfkqzTI
vlRFsMrG+HD0I4JfIo4XuTYRGN9sHlrbSlDaqbZEoYM5t1KBvNEegl9NSk8/
eU0woDD0NHyYQE6kpqAxzuy73pH3eJr5Hlw9LtgrSePnmOIeJRka5bxBzSol
Gq8NVH13adKYL+2QI6tDY0xubN7fxjS6lQRB70HjN3XL5g5HGrlabw0e8Wkk
6ySeKwygEblqzWR2OI0dxh2uSSdo2Joerog6Q6PG42zMLCENk+NC8/hSGoXX
SsUyjTRW1jdUpfbSEA73HFP/SENddhTC2VycN2SxVipzsYCn9LBAl4sEVX/b
f9lxMbu/6Hf+Li6OCSWoNXFcTO+i2ucIuTikd9mtp5qL8VFR7y99XISWmPuc
nOZiJPL0gLuqM77nx9w4ZusMM7PggGsHneG32H1F/TVnnBZvez/c5oyS/o15
srN46K3WDTZazYPkVTV9Fw8e9GOlRVGJPFgs/FD9+BkPTtnN5+TVXeClX7DT
088FoRXJJrm3XXDcLmz+5LgLUjq4/TB3hdB/XWFSnCuKxhbFvXziigd/1alV
W7mh4e+IwpwiNzyT0LFLWrYdfXM7+8ME2zE0P/7g9vl8jC3csABH+RArvRMu
/8SHlHqGqYy/O5aueSlvt9gDYKsOx7Z7wIPPr32Q5InI0IsXpqy9kBbXG2Ys
9kJhpoZ9SKk3AlwLUtrX78Dk6xbxp3M7EL7/zeDYDz4Yn/VXy/hdH4QlS9+f
MPfFpyWawskmX+wvMDz92c0PHy3Z4X8N+iH0qZvnVLg//u25x+YLayeS5SRm
Bw3uhNFvadXdjbvQHqZ72D4/ABFLq00qkwOh2sGd1A/fjV/jhwovuQbB0/RI
iKxZMDLP73NvrNiDDpGfXdzGECjYua6zqgiFDlkmL87aB/ZMdny3x37431aZ
KV8chli3c+FpvWG4MjCQo6Ecjqow084cchC935KkVidF4GvSK9OyukNQUVsb
bCkRhfU347PqzKLhvLan2SkiBroXRLt03I/gvz+XOIb/AJEpojI=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwl02FEGAAQgNGWJEmSJElakiRJkiRJkiRJkiRJkiQtSZIkSZIkSZKZSZIk
SZIkSZIkyUySJMlMkiRJspcd737fj+++Nn6rbP8SEBBQ/rlMIEEEE0IoYYQT
QSRRRBNDLHHEk0AiSSSTQipppJNBJllkk0MueeRTQCFFFFNCKWWf91FBJVVU
U0MtddTTQCNNNNNCK22000EnXXTTQy999DPAIEMMM8IoY4wzwSRTTDPDLN/5
wU/mmGeBRZZYZoVV1lhng0222GaHXfbY54BDjjjmhFPO+MVvzrngkiuuueGW
O/7wl3seeOSJZ1545Y13PgjQQCBBBBNCKGGEE0EkUUQTQyxxxJNAIkkkk0Iq
aaSTQSZZZJNDLnnkU0AhRRRTQillX/73WUElVVRTQy111NNAI00000IrbXxG
3kEnXXTTQy999DPAIEMMM8IoY4wzwSRTTDPDLN/5wU/mmGeBRZZYZoVV1lhn
g0222GaHXfbY54BDjjjmhFPO+MVvzrngkiuuueGWO/7wl3seeOSJZ1545Y13
Pvh8/kCCCCaEUMIIJ4JIoogmhljiiCeBRJJIJoVU0kgng0yyyCaHXPLIp4BC
iiimhFLKKKeCSqqopoZa6qingUaaaKaFVtpop4NOuuimh1766GeAQYYYZoRR
xhhngkmmmGaGWf4B6TSZlQ==
                    "], CompressedData["
1:eJwN1nc01X8YB/BrZO97v2QmIklFIhn3+dg7KVtllDITKSOFSsqe2WSm/BqU
ENmjkFUZSVZG5N5rZ//un69zPs/5nPN5nvO8P/sdPc860eBwuDRaHM5Q99bd
6nYS/NIUmhtXFAC1OhbtVqrPR0TSlCABkP70jLOX6tQV08wHBgKgn5zxM76D
BDVio68MNwWgmba8weoLCewy2tMOvBUEQXi4Kt5JAhv/vAAvbyFojzdI3eki
gSSH1Uuiigg03HYKX+shAflkn57eXlFY+737kfsbCZpL2w8dlNkPvM/S0s/0
kWAPp8N87XkxCA45MhI3SILswC2DAKkDcOPyqWrJYRLcv94doKsiCQ1uCXeE
xkigfTSMLz1fCjbsduzvT5KgvddU2NHvMGBF/vc9Z0mA+7JyJ6f7KFQVX+fd
IJOgja/q9txVOdBa4jtAWiZB/jjebNhQHiLD1Wc8N0ggYHCDxeO+AlAyg7NT
cGRwUL1rwyuuBErBM2XyDGQ4/0OizrxIGUq+n/7mzEaGrlsmYykpajAhra57
Fk+GcCKX292HCHQ9tVLy+cnAR//ne5isBrixRmpkiZJhxOw+KVNECxqrFRpt
pMgQX11/XtBeBwQqF3/fOEaGspGWVaMoPfjwdvKCxkky2BXImZ/nMgT6Wrrf
40CGMRr1kqVNY+Crjs7w0ydD+o+v+7nenYFYekWtVlMy4I6fZlDQPAsFg5t2
YzZkEBL31D7DbgbGt3+2TF4mw7pilH6hiAV4iN74u+5JBqa6pcrhh1agtJy4
nexPBspM1y++ChvQyH1tz/eADMkhQgy5ShfgJr1lZUoMGS7TaU7tY7OHHn8J
K80MMojrHxP0KHOAnUbbCdNnZJB/N+d/VPkS7Iu/XWn1lgwrmbX7M5YugzVj
rXFAHRm0hwe6queugBKuonukkwwxJ/68FTrmAk8GzZjvDZFB9twKZ4qGG9jG
1TSe+EMGi6ZvmzrpHiARE2Us9I8MuXm8hdNi16H3IOu4HD0FOOptGxeKvECw
PEbZjpUC/bQjklOcN8Bsaix2P54C/H2/xIbzfOBvYOpOhCAFTN8wJtS736LO
tx1n2QEKqL91Fjfz8YOXI/3tPTIUyCy/FT1xLgAUrFsnYxUo0PS+QMvfIxDa
8uQ8GYACH0wb7sy33YXaHv01fX0KCMV1vJSoDobR54W7LmcpUH7f2UZ3PQSM
mO64KJ+nwMAX+clg2/uw2U/W6r5CgaGJQ+emZx5ARof+YS1vCkTwOAWNFD0E
0ZV9hwIDKcDCeanIS+8RFFxllb8RRoFHn+noMb5wyKaTvQAJFHAncLhpCEXC
5rUc041sCqwLH5yhcYiGXdyXMrtiCtSdPyYVQIwFO+WwgIRyCtQSk5YFXOPA
4ZtYzX9NFFjreHdwuTwelCJuarT0UsCFo3Lj3pFE8H8sJ7M7RoECCbdV954k
OJG2x56DTIHOXPnIu7rJIHHlbBLNNgVUOua+ECdTQN+40nuBdQG4WL2dE9+k
wdAozcUNwQUYO13DG/UmAxy+vzyldmQBSm8ppBXMZ4Fom842r+oCRCoL3gy9
9RRoLIaKZw0XoL2K18clNgd01qetes8vANucc6X6p1zINt6Ynbu2ALfPqJQ+
FMsHOV3zPut7CyDTP/kvNr8AGlMdBCUTFsDF7FKz7U4heGLiTnQFC0ATfJbd
PaAIojsSgL1iAabMNgcfCL8A9/MvRC51LIBIyKmzuvPFwFMSz3tonHr/ZOQx
J8pLiApdbeRZWYC8qkON92tfw0+VyFkJ5kWI+jvkHTv8BlS0GbKDRBbhgDiP
fuZyCbyzTl5GCovw76dFyTWpt9Avrv02xngRtA5N08reeQf5SJm92XERMp8q
zOS8KYP/uCN+qPkvQhNYjjbgymH2o07H3rhFqFt16j3rVQHFQwYv/F4sgviA
U2cZwwdo6xFnCm1ehCk/4ipvSxVEWmoVKQ0vQsEnOx4x24/w6nnfTcPVRYBy
p/9IhFpYG1bvG+Zagh4nbwIhsA681TntCUeW4OmR9X2iofUwYFsVvdeQamu7
P+1FDUCZv9d0z2kJzB9zWrSWNIKXuMeCS8gS+O6kfjna2wRZ/tNGlKwloK8v
0Jpma4FrSlLnVWuWgBld2jRyaoXIDI0C/5ElsNaW0jQc+QTDanyPBmmXwdag
+HhAUBuEl9f5rYsuQ5BtOqfWfDtUN5bE1aJlsF451eAb8AVu0G/nnXFchoMX
3p4YkO6CQJ+/W99Dl6EwPWTrYkg31KRG898tXoaZ4/SLqfd7wFr9eNCdr8uw
xZOqzZ7dC5fuNVh9XFmGqz387KdTv0JWNS2xm38FSneZbK8XfYP59y1Vw7AC
my/yHEY6vwPPUTpGHucVEDr/ecyRsx+CQlZfZ8WvgCGjDLesxwD4GQX6VdWu
wLtMOduduUHID3tmUzy1ArlTpuzGaAjG0q1e5XCuwlBojI7qm59g+4VX/LPy
KtSHe/yYIP6Cg6WZGqbOq/Dz+BbjF/II3JJMFfdMWaXm0ymO+xOjYNGVqHax
fRUstazEM3+PgW/F72/Va6twzaPjIFP7OPw+wP30ouQaJDpGWf3XOAEfc3JY
vC3XgPT80c2Q7t/AMaqcJB2xBtVdvPONS5OgZp0YVl+/BhXEZxu7x6bhq1VC
zneaf3CCflj4w6sZ8GxvLhDW+QfK1o8webNZqLHTtGCK+QcRzpzyNRJ/IVg3
8Cd++B+cQUZHUg6RQPdne2i37DooXI/iiZCn7qlpk/WJ8HXgaV7k97yxAALR
znzsf9chr1mSuqsXgda9qEDKfAPUH3Lq492XAfuUTlZs3YBChiev9x1fBV/x
hAhHzU3oUIursDjxD4IGf/gwtW9CZ+VM9XrgBkxwjxbV222B87W9P1X2bkOh
w47jNbptkPrkOqPLgkNLtkOTGhXb4CM2NX6zngblMGw7fA/egd2tizo3q+iQ
Y+R812H7XZD4tL/PmI4B3XzY9e4pIw7pHg31qhpkRG9iOpOir+BQfumQF2Gc
GWk0afEHBeDQRPpAXtAZFjR8+3ZnUzQOheV99BOoZ0HBP/kuO+ThEG9Ix8Cc
PCuqV3CMsqjAIckqNdWNIlbE9ugmbeEXHBJVIKYYirKhgztezTbrODRLl8fT
gbEjYV3W6ihJGlT8uWU7hsCBsPT1fcbmNGg5S5bupRAn0vEpQ89CaZB9+ZPr
BD4uFK0u6/yinAbpbYpy387nQipKXR8uz9Gg0I6nqn6K3EgWx+2baEiLPhh/
veamxYOati/XZZfQomgUVHPCDo8+GJVqtQrTIStJy4ZfDwioCXcyixhLh/hv
vtN5UIohpa9unZLM9MhHD12S+s2LesfW/4U9oke9/yQVUwl7EY3Fq3cGHHtQ
T2nM4BU1fkSXmRAgl7YH0Z8I+rRuIYD4D2lu9R6mvutlPe2vVoJI7na09ZMG
BvSx3Ut555QQirb0VS29wIi+dv2YfLUghGy3WKuObTEirWwPVno/YbS3ZtZn
IYMJ+ZxUPtrdIowih7Pou82ZkYs2cIgPCKOz+ElrL2pfRhq8Gx6/EUavCu57
kDxYkHHybl7NeWHUsLFz9M4a1WnBQ59HhNAnJS2c011WxHxK89yOmhDyji1l
o6dlQ1Wu+Y8zAwURztugqjeEDemJhnz3yhFAh5vMDJy22dDzmHYJ91J+pLvH
I/1JOjviniz6e//CXiT0R+VJGJ4DHbD7iBfW4kNsOmkVU6EcyDWrtYJTihfZ
QI5d6SIHSvrIPTLMjiHlXe1z29ac6KoWLlVkHY8efXuiPFvFiZhoNXyi/vKg
virD5nNsXMh85cEF8VluxDTYsaWgxIXYRbDX8ktciKyjXyV8jQvxrMemTz3g
RNpjKraqT7mQpk1D5q/T7Egvqy5wsJMLCfBSpmi1WJGpxM2TKhtcCI3Hs/1w
ZEZzV2yj8sW4UWai6dax54zoHm9FkJkeN+qSXfdyITCgdBHLlFA3buSf9vJ5
TQ49Ulx679gdw42+S4xaTR+mQw/O7Z6KK+FGHU3aZh8HaBA/h+tx+h5udIT/
M2dHPg7dqQg7Y0fiRo+/eau28u9C+1VG1q/MPKi7Kfe5stA2aJ473R0uzoN2
LTT2lBtugiRp6tFLFR60/8NH+ci8dZDt1eO5eJYHCWb+FxSx7x8QF1bePvHm
QWd+HClgZ12FVyrp5VgsD3rtGueqdnIZbo1XxR8t5kGOQ5VlwWmLMGHb4SvV
xIP2WeZe6pdZAGPRF3ZoiAcpKebPHewiQ3/Mx/IXFB70/uhkHITPw2bJamMi
PR4xUuKvJ4TMQbiiUYMEHx79MfllrfLyD1jaTRYKH8ejUnkJlnCxaZBjc+wL
MMAjE1yLPe3Kb7Cp2HyTZo9HG7M6WS34CUiW0aFt88EjuWi1vfFeY6BcU3lb
LwyPdiMHw4boRuGaZomtYQoenekTjbv0YBjahW39dp/h0YmnaRyhhkPUPFn/
Hv4ej+idjKN2TAeh807bnnuteFSVgw+VFumHT1++/WXsxyOsKlQs+vh3YNXv
HTCYxKO+R2tMave/QoAcLtVrEY+YFfvNixh6IZX59FLGDh4lLb/SJ5R1w7XB
cy0zzARUdEdizZGrC97/sv/rTiAgaNFLz1rpgLoZEklNhIBirqj8UeduB7Qj
72d4mIDa/fRbG4s+UXNEKUXxJAERHE/x7YtrAbvmz9EHNKj1P0k1GdVNMNqR
6nbCiIB+GWI6ZqKNwHIFbxRsTkC92s+LQ97Wg1DlZRORiwSk6FRdyuRZB2pM
XGb7rxCQwdhdTtm0GhjlSIpM9SCgvwvOb1riqoEcviCb5EtAN9POP777rxJM
+Z2/vwwmIHLI67jDFeVwrvWHBM1jAgpIrF51rS8D9r0en57FEpCHZEghF9M7
YBTKuPw+mYCSV9Tk7O+VwjvhBTdiFgFFr54+GChVAkLm7GWn8wmoI+nqxdXp
1/CaJXd56TkBDeYfFJCtfQn/gl3rMkoISIBDutV58QWISbW6x1UQkAX6Vnv6
URGMm/ySn60hICJPspiNZyHQ53IIVDURUNBbmGtKzYfct6LdhDYC+qNnKJux
lQtLHB4X93QR0K3F41cIMTnAtixblPKVgMK11O+yGjyFq5dsewb6Cch25+i0
hUkWvNTzv/t8mIA+x+nQNFqlg+7hCsW/4wTUmDQeydCZAjenuF6/myYg0fqe
EJf0J5DyKZUX/5eAvPuP7o0oSYTxlV8DBAoBuUhnfNGhT4DSrTfHmpcIaH2Q
d2z2cRw06BDjj6wRUKxp80iBciy0HElhsdggINVlhjAF0Wjg935OU7JDQPMB
it5kjgiY6owyyaTFkJ9RcrG61yN4hpf9Ic2AIU8TBY2Lcg9hZlYr9Qozhl7/
1iq+SnwAd+RSVG3ZMNR2YGZbIuIefN9+9oybE0PxLMJkYfYQqJ4UNInjxpCt
ZhFnr28QXOw5FDyKxxBPx7z4rf13YN8rmv28fBg61FtTHMIcAKtrXs2r/Bh6
8BGd83f1hcfHErAYIQz9uU7ZbZO5CZF9GWf+iGDIXNcdnIg3QCa+fZB9P4Z8
21qPqMZ5gaIZ41M6cQyxSuSHqgtcB3aNbLfuAxi6cURu/kyOB9RwS/P7S2Jo
Rmj36wcbNzikvyXRIYUhZ+Or0mFnnWGtuIh2RBpD/0ViOa7NTmBtwJheJYMh
K/Wt4ti0S+A11DrlchRDl8HJUbTWAbrLzO0oxzA0FufQmXDAHljEEs3N5DB0
OsJcQCroAsx+S5NLO06tH2rYseCwhTLS49xmeQzFhWU7X56xgpLx8hV3BQyB
4Bm4xGABT7knCn4rYmg+5GENa9Y5WE5ktD6hhKHcujUlSpIpZPkOSzieop7f
HZCnlJnAvYf8K97KGGKT41AR/WgE7y5otLqqYEicdltyVNoAODj2zRipYmjH
fs9I0LwuGJfPEYTUMHTBq6Xt36o2COcmDmsSMZSi8PKIookmdKjfmtMDDGn2
SB9iElIHb0trFjmEoW/Zvf1nHxGhLse1A6eOodIZBunXLiqQ4qs9WEV1oIzI
ni+1SmAaPCPhpIGhk5EEXbKPItBXhwrvUr0ZV7l4zO8ECDjfrY3QpP473D2+
alQfB61KF39zLQwJi1kYsznKArJIymbQxtDtV3sfBE/KQFCOxPU8ql81H/Yd
++8QLDtYqR7TwdDiBn0fYU0S2NQ5Cv+jmiWrLbD9+QHQamhpE9alzpNwERdd
iRhMa793fED1naTSDcNtUXA4Yd8/RvUrQhCjzJ59kMw5+MxRD0M+9jH5NNKC
cO2UwvxXqntpWQ6bb/EBZSLXREkfQ8M+B96WmWPAOOn5O47q+HLb7i/8eBCJ
+nRunOqVbaKtpTw3HBVWWZI2wFACl8m14wc4QfH5yoA71e9+Hb7IeY4N2JPa
/xRRLS9R8T5rhBmGNcZadqhOCa5YPhjLANp7pbb0Dan9nUt2KBykg3x3c+dI
qm04nLqsU2lA9vpQUCvVzLons+rcdolPpexctqguIP0OzlTaIg5FT3LJGGEo
lrFGNz1wnVh3pFTBkuqnlgzFr/evEQtttK4lU82+0yjg07dErHGx6uqkulD3
SZOj/AKR67IHxy7Vyac+cMoIk4huLMq+h4wx9EHLeLk1cZZoGRzHbEL1X/En
T+pyp4mMOezR16kusWXzDT44SdwQEc+PprpL51TJWdYJ4tkrVj2VVPvdbXet
UxglZr9RbftFNfm5TfbA/BBxzMGkc4dqa+rSeWEyQHTe+NEhcBpDMsmSBSE2
34l9UR6B8lT7ODTFp073El+iUVd9qhVro1ff/OgmDm7jmC5QbVTpRZuk1kns
2HPivi/VktbGw25Dn4lMbTV60VTb3grgrzzfQvwf7x58iw==
                    "]}, {Automatic}]}}]], 1], 1, 1, 1, 1] Sin[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 500.}}, {
                    3, 11, 1, {333}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwt1nk8VXkfB/DcVEYhhmzRMJVCCS1k+1QuynLP71wXXVuWIoqSZGk1nkim
KMtVUt1SUTL2MsKobJNQIuvUFInuoyyNMlfPmed5zut1zvuf7/ktn9fve15H
yzeU3smaNWuWBHM7/vP4/5WQdVxTbJ1n9T8rrC4I0p/Ya360CtJh19sKZqw0
e7680jo1F88eFMv5enyPRWeGVxuHq2NVwUIdVp0WnJTvlA23LUOf7IWyHjM9
rJ9t7T5Ir4F4ZmNP/zxjPPpq6N5ZuQ6nP6/oadlvAnpsiXvDcjOIYsYrnSgL
JMyp13wRZYUUW8ea/Dbgeb+R3dfiTVCMUGm1Sd8MF5kZ1/ORW2BoYa+82dga
C/YKOj6KrPEuayDt8i02QmFxM3+LDabepN77td8Gx+M/NDZG2eI7PeueTkU7
SF43WnjxjB2+LdZie0ltxdc0uWit2K2YlJ25+3Z6K04lhLbIe2yDBuv1qGXl
NhTG0Av3LLYHe/LhmszD9kgfcJJzaLTH0Isu0YySAzbW+T8p9HXA6bLRPP8C
B+SxK5MWixzQ2J4Q0q7riCE/HpUU6Ih541pG1jccUbhGaOXy0hH8EG3HQGkn
zL4j5EebOyH/vXZgUogTgt1QGpnhBN16T9bOGie8XxfDIe+dcOu6IMtCgQOb
Qj2ZYWMO3j6oOpLO4+BEE/n35kMcLOl86zUq4KDQxbKxtYSDLR0ZxkWtHLTz
Pl06/4GD4qBlcRslKRTE1+t3yFHIu777xX51Cjd+m39URofC1f785blGFC5N
c1qsLSloGwidE20p3PSd6GqhKOin23gr8SkUNQre8v0obBAP776yh0KKql2a
QjiFkXU5NXExFGxo1ofPsRSuhHgr706k8DWxcnNPClPn4Bb8OoPCStmJ8+8u
UahpOVspukbBNUVvYDyXwihdL/O1gIKxn0/gnyUUIg9M1zbdp/DgpzSN4ioK
rFSDyIsPKdheb3z2UwOFzlzu3MQnFAIL+kyTWylMlQTsTW+nkFDx6UrWSwqq
NTHtwl4KyR5nn0/8QWHeF+EzmzcUjqSVtQkGKUwYNrUOv6cQ/LSvxVxEoXJ0
FT0zSkFG/mh79RgFT6OnLicmKdzlanZtnqIwEx7iLjlNgZNe1fdYTGFp7bfe
v79R+CJCrzGL4KlqbE+QJMF19sPuq3MJovZLdr+UInC6xO6Sm0/wXCKhpXsB
wfZdTY9zZAn6mxZU7ltI4GfAKTJTIBg6n3JrriJByNTz7DYlgu9UKnLtlJnx
NlwpqVYhsHI9Wb1ejaA7Yk9TvjpBRDr9YqkGgXyZyauLmgQ5XSrpbUsITMVT
9vO0CJp/6JKw0Cbwsb5fHvYjwWRA5t5bSwlGpubafltG8PpU+A8uOgQdan9+
ubOC4MltzvPZugS15g/u8PUIypt1TxbqE+R7CbylVhNcG51j6m1AIDh+QKFs
DcEZ+dcjC4wI4oROj/2MCaKNK7Mr1hKEPloZKb+eYCcvgwRuIHAflNSrNiGg
DoVJLtpIoH1M44S0GcH4yQbxDCPFi3tjYM7M8yMadzBKj03fTWEMqClPrWV8
dOZA9DjjUb0RNs+CwKTBV76ccdy/u1fFknlPgr4VzRiQ3Xigl1HLbJOVpRWT
u8D39xHGw5M/uWaCIJfOeWOzidlvQV3oBKOkzND01c0EhkHfJXC2EHjX6yqK
GZOWOlzJsya4f2Kvvhub4F3/mXtzbAgUzX+xLmbclNnWusOW2efnMQ9ZO4K0
iIlr7YzT+gNVwVsJfN+86GJtI2jIrJvIZFxNlcsZ2jN1c2/pNjBOVwrY3g5M
3YFTOz4zqviwkmscCVYqDpX6OBGY1Tf3sDgEjtHFEtcZvVdl6rApgn2vjjoO
Msae9z8QTwhSbbZlrqCZnK0khNOM603u5T3lEkgZhhZfdSboWrm8MpxHkKfd
98jWhSBGPbVZzZXAQdG+Q8Qo3dTj3+nGrPPYnvGa7QQn14lP5PEJrEd+Xpjq
TsC6qnn5iAdBjUvBqgBPJv8FqKS8CMxrW7dt9Gbq+GvFl3cQ2I9lFMzxJaAT
p32C/Qj42t6Kbf7MuauorVu/iyCQXh6VFcDkNXxKj7Wb4FCsqC8giEBnGQnI
3kPwsr7kY3sIQUKQSvT8/cz5lTk8e/MBguGCP5IiDxJcoLcsKjjEzDN54/JA
FJNfhvTKxYeZvigqsRg+yuTU7EXfO0Hw+Z1UwMk4gsus4hjneAI7Dc9k7USC
Txvm5XxM+mecwvtVZwm27HV/mnSOwCDi/tmMdAL1Y8pEeIFgXsJBhfxsgonk
58/LhQSvMg3Tam8wfSE869KcR3Dvtkj55V2mz0rsu/4sYtY/IJCrucfkqzTI
vlRFsMrG+HD0I4JfIo4XuTYRGN9sHlrbSlDaqbZEoYM5t1KBvNEegl9NSk8/
eU0woDD0NHyYQE6kpqAxzuy73pH3eJr5Hlw9LtgrSePnmOIeJRka5bxBzSol
Gq8NVH13adKYL+2QI6tDY0xubN7fxjS6lQRB70HjN3XL5g5HGrlabw0e8Wkk
6ySeKwygEblqzWR2OI0dxh2uSSdo2Joerog6Q6PG42zMLCENk+NC8/hSGoXX
SsUyjTRW1jdUpfbSEA73HFP/SENddhTC2VycN2SxVipzsYCn9LBAl4sEVX/b
f9lxMbu/6Hf+Li6OCSWoNXFcTO+i2ucIuTikd9mtp5qL8VFR7y99XISWmPuc
nOZiJPL0gLuqM77nx9w4ZusMM7PggGsHneG32H1F/TVnnBZvez/c5oyS/o15
srN46K3WDTZazYPkVTV9Fw8e9GOlRVGJPFgs/FD9+BkPTtnN5+TVXeClX7DT
088FoRXJJrm3XXDcLmz+5LgLUjq4/TB3hdB/XWFSnCuKxhbFvXziigd/1alV
W7mh4e+IwpwiNzyT0LFLWrYdfXM7+8ME2zE0P/7g9vl8jC3csABH+RArvRMu
/8SHlHqGqYy/O5aueSlvt9gDYKsOx7Z7wIPPr32Q5InI0IsXpqy9kBbXG2Ys
9kJhpoZ9SKk3AlwLUtrX78Dk6xbxp3M7EL7/zeDYDz4Yn/VXy/hdH4QlS9+f
MPfFpyWawskmX+wvMDz92c0PHy3Z4X8N+iH0qZvnVLg//u25x+YLayeS5SRm
Bw3uhNFvadXdjbvQHqZ72D4/ABFLq00qkwOh2sGd1A/fjV/jhwovuQbB0/RI
iKxZMDLP73NvrNiDDpGfXdzGECjYua6zqgiFDlkmL87aB/ZMdny3x37431aZ
KV8chli3c+FpvWG4MjCQo6Ecjqow084cchC935KkVidF4GvSK9OyukNQUVsb
bCkRhfU347PqzKLhvLan2SkiBroXRLt03I/gvz+XOIb/AJEpojI=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwl02FEGAAQgNGWJEmSJElakiRJkiRJkiRJkiRJkiQtSZIkSZIkSZKZSZIk
SZIkSZIkyUySJMlMkiRJspcd737fj+++Nn6rbP8SEBBQ/rlMIEEEE0IoYYQT
QSRRRBNDLHHEk0AiSSSTQipppJNBJllkk0MueeRTQCFFFFNCKWWf91FBJVVU
U0MtddTTQCNNNNNCK22000EnXXTTQy999DPAIEMMM8IoY4wzwSRTTDPDLN/5
wU/mmGeBRZZYZoVV1lhng0222GaHXfbY54BDjjjmhFPO+MVvzrngkiuuueGW
O/7wl3seeOSJZ1545Y13PgjQQCBBBBNCKGGEE0EkUUQTQyxxxJNAIkkkk0Iq
aaSTQSZZZJNDLnnkU0AhRRRTQillX/73WUElVVRTQy111NNAI00000IrbXxG
3kEnXXTTQy999DPAIEMMM8IoY4wzwSRTTDPDLN/5wU/mmGeBRZZYZoVV1lhn
g0222GaHXfbY54BDjjjmhFPO+MVvzrngkiuuueGWO/7wl3seeOSJZ1545Y13
Pvh8/kCCCCaEUMIIJ4JIoogmhljiiCeBRJJIJoVU0kgng0yyyCaHXPLIp4BC
iiimhFLKKKeCSqqopoZa6qingUaaaKaFVtpop4NOuuimh1766GeAQYYYZoRR
xhhngkmmmGaGWf4B6TSZlQ==
                    "], CompressedData["
1:eJwN1nc01X8YB/BrZO97v2QmIklFIhn3+dg7KVtllDITKSOFSsqe2WSm/BqU
ENmjkFUZSVZG5N5rZ//un69zPs/5nPN5nvO8P/sdPc860eBwuDRaHM5Q99bd
6nYS/NIUmhtXFAC1OhbtVqrPR0TSlCABkP70jLOX6tQV08wHBgKgn5zxM76D
BDVio68MNwWgmba8weoLCewy2tMOvBUEQXi4Kt5JAhv/vAAvbyFojzdI3eki
gSSH1Uuiigg03HYKX+shAflkn57eXlFY+737kfsbCZpL2w8dlNkPvM/S0s/0
kWAPp8N87XkxCA45MhI3SILswC2DAKkDcOPyqWrJYRLcv94doKsiCQ1uCXeE
xkigfTSMLz1fCjbsduzvT5KgvddU2NHvMGBF/vc9Z0mA+7JyJ6f7KFQVX+fd
IJOgja/q9txVOdBa4jtAWiZB/jjebNhQHiLD1Wc8N0ggYHCDxeO+AlAyg7NT
cGRwUL1rwyuuBErBM2XyDGQ4/0OizrxIGUq+n/7mzEaGrlsmYykpajAhra57
Fk+GcCKX292HCHQ9tVLy+cnAR//ne5isBrixRmpkiZJhxOw+KVNECxqrFRpt
pMgQX11/XtBeBwQqF3/fOEaGspGWVaMoPfjwdvKCxkky2BXImZ/nMgT6Wrrf
40CGMRr1kqVNY+Crjs7w0ydD+o+v+7nenYFYekWtVlMy4I6fZlDQPAsFg5t2
YzZkEBL31D7DbgbGt3+2TF4mw7pilH6hiAV4iN74u+5JBqa6pcrhh1agtJy4
nexPBspM1y++ChvQyH1tz/eADMkhQgy5ShfgJr1lZUoMGS7TaU7tY7OHHn8J
K80MMojrHxP0KHOAnUbbCdNnZJB/N+d/VPkS7Iu/XWn1lgwrmbX7M5YugzVj
rXFAHRm0hwe6queugBKuonukkwwxJ/68FTrmAk8GzZjvDZFB9twKZ4qGG9jG
1TSe+EMGi6ZvmzrpHiARE2Us9I8MuXm8hdNi16H3IOu4HD0FOOptGxeKvECw
PEbZjpUC/bQjklOcN8Bsaix2P54C/H2/xIbzfOBvYOpOhCAFTN8wJtS736LO
tx1n2QEKqL91Fjfz8YOXI/3tPTIUyCy/FT1xLgAUrFsnYxUo0PS+QMvfIxDa
8uQ8GYACH0wb7sy33YXaHv01fX0KCMV1vJSoDobR54W7LmcpUH7f2UZ3PQSM
mO64KJ+nwMAX+clg2/uw2U/W6r5CgaGJQ+emZx5ARof+YS1vCkTwOAWNFD0E
0ZV9hwIDKcDCeanIS+8RFFxllb8RRoFHn+noMb5wyKaTvQAJFHAncLhpCEXC
5rUc041sCqwLH5yhcYiGXdyXMrtiCtSdPyYVQIwFO+WwgIRyCtQSk5YFXOPA
4ZtYzX9NFFjreHdwuTwelCJuarT0UsCFo3Lj3pFE8H8sJ7M7RoECCbdV954k
OJG2x56DTIHOXPnIu7rJIHHlbBLNNgVUOua+ECdTQN+40nuBdQG4WL2dE9+k
wdAozcUNwQUYO13DG/UmAxy+vzyldmQBSm8ppBXMZ4Fom842r+oCRCoL3gy9
9RRoLIaKZw0XoL2K18clNgd01qetes8vANucc6X6p1zINt6Ynbu2ALfPqJQ+
FMsHOV3zPut7CyDTP/kvNr8AGlMdBCUTFsDF7FKz7U4heGLiTnQFC0ATfJbd
PaAIojsSgL1iAabMNgcfCL8A9/MvRC51LIBIyKmzuvPFwFMSz3tonHr/ZOQx
J8pLiApdbeRZWYC8qkON92tfw0+VyFkJ5kWI+jvkHTv8BlS0GbKDRBbhgDiP
fuZyCbyzTl5GCovw76dFyTWpt9Avrv02xngRtA5N08reeQf5SJm92XERMp8q
zOS8KYP/uCN+qPkvQhNYjjbgymH2o07H3rhFqFt16j3rVQHFQwYv/F4sgviA
U2cZwwdo6xFnCm1ehCk/4ipvSxVEWmoVKQ0vQsEnOx4x24/w6nnfTcPVRYBy
p/9IhFpYG1bvG+Zagh4nbwIhsA681TntCUeW4OmR9X2iofUwYFsVvdeQamu7
P+1FDUCZv9d0z2kJzB9zWrSWNIKXuMeCS8gS+O6kfjna2wRZ/tNGlKwloK8v
0Jpma4FrSlLnVWuWgBld2jRyaoXIDI0C/5ElsNaW0jQc+QTDanyPBmmXwdag
+HhAUBuEl9f5rYsuQ5BtOqfWfDtUN5bE1aJlsF451eAb8AVu0G/nnXFchoMX
3p4YkO6CQJ+/W99Dl6EwPWTrYkg31KRG898tXoaZ4/SLqfd7wFr9eNCdr8uw
xZOqzZ7dC5fuNVh9XFmGqz387KdTv0JWNS2xm38FSneZbK8XfYP59y1Vw7AC
my/yHEY6vwPPUTpGHucVEDr/ecyRsx+CQlZfZ8WvgCGjDLesxwD4GQX6VdWu
wLtMOduduUHID3tmUzy1ArlTpuzGaAjG0q1e5XCuwlBojI7qm59g+4VX/LPy
KtSHe/yYIP6Cg6WZGqbOq/Dz+BbjF/II3JJMFfdMWaXm0ymO+xOjYNGVqHax
fRUstazEM3+PgW/F72/Va6twzaPjIFP7OPw+wP30ouQaJDpGWf3XOAEfc3JY
vC3XgPT80c2Q7t/AMaqcJB2xBtVdvPONS5OgZp0YVl+/BhXEZxu7x6bhq1VC
zneaf3CCflj4w6sZ8GxvLhDW+QfK1o8webNZqLHTtGCK+QcRzpzyNRJ/IVg3
8Cd++B+cQUZHUg6RQPdne2i37DooXI/iiZCn7qlpk/WJ8HXgaV7k97yxAALR
znzsf9chr1mSuqsXgda9qEDKfAPUH3Lq492XAfuUTlZs3YBChiev9x1fBV/x
hAhHzU3oUIursDjxD4IGf/gwtW9CZ+VM9XrgBkxwjxbV222B87W9P1X2bkOh
w47jNbptkPrkOqPLgkNLtkOTGhXb4CM2NX6zngblMGw7fA/egd2tizo3q+iQ
Y+R812H7XZD4tL/PmI4B3XzY9e4pIw7pHg31qhpkRG9iOpOir+BQfumQF2Gc
GWk0afEHBeDQRPpAXtAZFjR8+3ZnUzQOheV99BOoZ0HBP/kuO+ThEG9Ix8Cc
PCuqV3CMsqjAIckqNdWNIlbE9ugmbeEXHBJVIKYYirKhgztezTbrODRLl8fT
gbEjYV3W6ihJGlT8uWU7hsCBsPT1fcbmNGg5S5bupRAn0vEpQ89CaZB9+ZPr
BD4uFK0u6/yinAbpbYpy387nQipKXR8uz9Gg0I6nqn6K3EgWx+2baEiLPhh/
veamxYOati/XZZfQomgUVHPCDo8+GJVqtQrTIStJy4ZfDwioCXcyixhLh/hv
vtN5UIohpa9unZLM9MhHD12S+s2LesfW/4U9oke9/yQVUwl7EY3Fq3cGHHtQ
T2nM4BU1fkSXmRAgl7YH0Z8I+rRuIYD4D2lu9R6mvutlPe2vVoJI7na09ZMG
BvSx3Ut555QQirb0VS29wIi+dv2YfLUghGy3WKuObTEirWwPVno/YbS3ZtZn
IYMJ+ZxUPtrdIowih7Pou82ZkYs2cIgPCKOz+ElrL2pfRhq8Gx6/EUavCu57
kDxYkHHybl7NeWHUsLFz9M4a1WnBQ59HhNAnJS2c011WxHxK89yOmhDyji1l
o6dlQ1Wu+Y8zAwURztugqjeEDemJhnz3yhFAh5vMDJy22dDzmHYJ91J+pLvH
I/1JOjviniz6e//CXiT0R+VJGJ4DHbD7iBfW4kNsOmkVU6EcyDWrtYJTihfZ
QI5d6SIHSvrIPTLMjiHlXe1z29ac6KoWLlVkHY8efXuiPFvFiZhoNXyi/vKg
virD5nNsXMh85cEF8VluxDTYsaWgxIXYRbDX8ktciKyjXyV8jQvxrMemTz3g
RNpjKraqT7mQpk1D5q/T7Egvqy5wsJMLCfBSpmi1WJGpxM2TKhtcCI3Hs/1w
ZEZzV2yj8sW4UWai6dax54zoHm9FkJkeN+qSXfdyITCgdBHLlFA3buSf9vJ5
TQ49Ulx679gdw42+S4xaTR+mQw/O7Z6KK+FGHU3aZh8HaBA/h+tx+h5udIT/
M2dHPg7dqQg7Y0fiRo+/eau28u9C+1VG1q/MPKi7Kfe5stA2aJ473R0uzoN2
LTT2lBtugiRp6tFLFR60/8NH+ci8dZDt1eO5eJYHCWb+FxSx7x8QF1bePvHm
QWd+HClgZ12FVyrp5VgsD3rtGueqdnIZbo1XxR8t5kGOQ5VlwWmLMGHb4SvV
xIP2WeZe6pdZAGPRF3ZoiAcpKebPHewiQ3/Mx/IXFB70/uhkHITPw2bJamMi
PR4xUuKvJ4TMQbiiUYMEHx79MfllrfLyD1jaTRYKH8ejUnkJlnCxaZBjc+wL
MMAjE1yLPe3Kb7Cp2HyTZo9HG7M6WS34CUiW0aFt88EjuWi1vfFeY6BcU3lb
LwyPdiMHw4boRuGaZomtYQoenekTjbv0YBjahW39dp/h0YmnaRyhhkPUPFn/
Hv4ej+idjKN2TAeh807bnnuteFSVgw+VFumHT1++/WXsxyOsKlQs+vh3YNXv
HTCYxKO+R2tMave/QoAcLtVrEY+YFfvNixh6IZX59FLGDh4lLb/SJ5R1w7XB
cy0zzARUdEdizZGrC97/sv/rTiAgaNFLz1rpgLoZEklNhIBirqj8UeduB7Qj
72d4mIDa/fRbG4s+UXNEKUXxJAERHE/x7YtrAbvmz9EHNKj1P0k1GdVNMNqR
6nbCiIB+GWI6ZqKNwHIFbxRsTkC92s+LQ97Wg1DlZRORiwSk6FRdyuRZB2pM
XGb7rxCQwdhdTtm0GhjlSIpM9SCgvwvOb1riqoEcviCb5EtAN9POP777rxJM
+Z2/vwwmIHLI67jDFeVwrvWHBM1jAgpIrF51rS8D9r0en57FEpCHZEghF9M7
YBTKuPw+mYCSV9Tk7O+VwjvhBTdiFgFFr54+GChVAkLm7GWn8wmoI+nqxdXp
1/CaJXd56TkBDeYfFJCtfQn/gl3rMkoISIBDutV58QWISbW6x1UQkAX6Vnv6
URGMm/ySn60hICJPspiNZyHQ53IIVDURUNBbmGtKzYfct6LdhDYC+qNnKJux
lQtLHB4X93QR0K3F41cIMTnAtixblPKVgMK11O+yGjyFq5dsewb6Cch25+i0
hUkWvNTzv/t8mIA+x+nQNFqlg+7hCsW/4wTUmDQeydCZAjenuF6/myYg0fqe
EJf0J5DyKZUX/5eAvPuP7o0oSYTxlV8DBAoBuUhnfNGhT4DSrTfHmpcIaH2Q
d2z2cRw06BDjj6wRUKxp80iBciy0HElhsdggINVlhjAF0Wjg935OU7JDQPMB
it5kjgiY6owyyaTFkJ9RcrG61yN4hpf9Ic2AIU8TBY2Lcg9hZlYr9Qozhl7/
1iq+SnwAd+RSVG3ZMNR2YGZbIuIefN9+9oybE0PxLMJkYfYQqJ4UNInjxpCt
ZhFnr28QXOw5FDyKxxBPx7z4rf13YN8rmv28fBg61FtTHMIcAKtrXs2r/Bh6
8BGd83f1hcfHErAYIQz9uU7ZbZO5CZF9GWf+iGDIXNcdnIg3QCa+fZB9P4Z8
21qPqMZ5gaIZ41M6cQyxSuSHqgtcB3aNbLfuAxi6cURu/kyOB9RwS/P7S2Jo
Rmj36wcbNzikvyXRIYUhZ+Or0mFnnWGtuIh2RBpD/0ViOa7NTmBtwJheJYMh
K/Wt4ti0S+A11DrlchRDl8HJUbTWAbrLzO0oxzA0FufQmXDAHljEEs3N5DB0
OsJcQCroAsx+S5NLO06tH2rYseCwhTLS49xmeQzFhWU7X56xgpLx8hV3BQyB
4Bm4xGABT7knCn4rYmg+5GENa9Y5WE5ktD6hhKHcujUlSpIpZPkOSzieop7f
HZCnlJnAvYf8K97KGGKT41AR/WgE7y5otLqqYEicdltyVNoAODj2zRipYmjH
fs9I0LwuGJfPEYTUMHTBq6Xt36o2COcmDmsSMZSi8PKIookmdKjfmtMDDGn2
SB9iElIHb0trFjmEoW/Zvf1nHxGhLse1A6eOodIZBunXLiqQ4qs9WEV1oIzI
ni+1SmAaPCPhpIGhk5EEXbKPItBXhwrvUr0ZV7l4zO8ECDjfrY3QpP473D2+
alQfB61KF39zLQwJi1kYsznKArJIymbQxtDtV3sfBE/KQFCOxPU8ql81H/Yd
++8QLDtYqR7TwdDiBn0fYU0S2NQ5Cv+jmiWrLbD9+QHQamhpE9alzpNwERdd
iRhMa793fED1naTSDcNtUXA4Yd8/RvUrQhCjzJ59kMw5+MxRD0M+9jH5NNKC
cO2UwvxXqntpWQ6bb/EBZSLXREkfQ8M+B96WmWPAOOn5O47q+HLb7i/8eBCJ
+nRunOqVbaKtpTw3HBVWWZI2wFACl8m14wc4QfH5yoA71e9+Hb7IeY4N2JPa
/xRRLS9R8T5rhBmGNcZadqhOCa5YPhjLANp7pbb0Dan9nUt2KBykg3x3c+dI
qm04nLqsU2lA9vpQUCvVzLons+rcdolPpexctqguIP0OzlTaIg5FT3LJGGEo
lrFGNz1wnVh3pFTBkuqnlgzFr/evEQtttK4lU82+0yjg07dErHGx6uqkulD3
SZOj/AKR67IHxy7Vyac+cMoIk4huLMq+h4wx9EHLeLk1cZZoGRzHbEL1X/En
T+pyp4mMOezR16kusWXzDT44SdwQEc+PprpL51TJWdYJ4tkrVj2VVPvdbXet
UxglZr9RbftFNfm5TfbA/BBxzMGkc4dqa+rSeWEyQHTe+NEhcBpDMsmSBSE2
34l9UR6B8lT7ODTFp073El+iUVd9qhVro1ff/OgmDm7jmC5QbVTpRZuk1kns
2HPivi/VktbGw25Dn4lMbTV60VTb3grgrzzfQvwf7x58iw==
                    "]}, {Automatic}]}}]], 1]]}, 1]]], 
      "Specifications" :> {{$CellContext`t$$, 1, 200, AnimationRate -> 10, 
         AnimationRunning -> False, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{331., {252., 257.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.463682933399473*^9, 3.4636829630004735`*^9}, {
   3.463683013715473*^9, 3.4636830367964735`*^9}, {3.4636830891484737`*^9, 
   3.4636831285984735`*^9}, 3.4636831815154734`*^9, {3.4636832257254734`*^9, 
   3.4636832286174736`*^9}, 3.4636832696544733`*^9, {3.463683321939473*^9, 
   3.4636833515864735`*^9}, {3.463683414472473*^9, 3.463683526696473*^9}, {
   3.4636841368454733`*^9, 3.4636841471004734`*^9}, 3.4636842742634735`*^9, 
   3.463684319767473*^9, {3.4636844048834734`*^9, 3.4636844399554734`*^9}, 
   3.4636844740254736`*^9, {3.4636854905284734`*^9, 3.4636855946414733`*^9}, {
   3.4636856946324735`*^9, 3.4636857046194735`*^9}, {3.4636857362254734`*^9, 
   3.4636857666404734`*^9}, {3.463685862307473*^9, 3.4636858920004735`*^9}, 
   3.4636872644734735`*^9, {3.4636873299414735`*^9, 3.4636873343584733`*^9}, {
   3.463687366972473*^9, 3.4636873688164735`*^9}, {3.4636874024404736`*^9, 
   3.4636874255294733`*^9}, {3.4636874952654734`*^9, 3.463687528427473*^9}, {
   3.4637035729154735`*^9, 3.4637035887094736`*^9}, {3.4637539817713304`*^9, 
   3.4637539933933306`*^9}}]
}, Open  ]],

Cell["Now rotate to be incoming along x-axis", "Text",
 CellChangeTimes->{{3.4636898904244733`*^9, 3.4636898928164735`*^9}, {
  3.4637539955773306`*^9, 3.4637540034865303`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Scatter6", "[", 
   RowBox[{
   "E_", ",", "m_", ",", "k_", ",", "L_", ",", "\[Rho]\[Infinity]_", ",", 
    "N1_", ",", "N2_"}], "]"}], ":=", 
  RowBox[{"Animate", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Graphics", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Thick", ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", 
                 RowBox[{"-", "3"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"\[Rho]\[Infinity]", ",", "0"}], "}"}]}], "}"}]}], 
            "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "\[Rho]\[Infinity]"}], ",", "\[Rho]\[Infinity]"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               RowBox[{"b\[Infinity]5", "[", 
                RowBox[{
                "E", ",", "m", ",", "k", ",", "L", ",", "\[Rho]\[Infinity]"}],
                 "]"}]}], "-", "2"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}], 
      ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{"Red", ",", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}], "]"}],
       ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"Disk", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"rho5", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Evaluate", "[", 
                RowBox[{
                 RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", "E", ",", "m", ",", "k", 
              ",", "L"}], "]"}], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Evaluate", "[", 
                RowBox[{
                 RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "-", 
              RowBox[{"\[Phi]\[Infinity]5", "[", 
               RowBox[{
               "E", ",", "m", ",", "k", ",", "L", ",", "\[Rho]\[Infinity]"}], 
               "]"}]}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"rho5", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Evaluate", "[", 
                RowBox[{
                 RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", "E", ",", "m", ",", "k", 
              ",", "L"}], "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Evaluate", "[", 
                RowBox[{
                 RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "-", 
              RowBox[{"\[Phi]\[Infinity]5", "[", 
               RowBox[{
               "E", ",", "m", ",", "k", ",", "L", ",", "\[Rho]\[Infinity]"}], 
               "]"}]}], "]"}]}]}], "}"}], ",", "2"}], "]"}], "]"}]}], "]"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "N1", ",", "N2"}], "}"}], ",", 
    RowBox[{"AnimationRate", "\[Rule]", "10"}], ",", 
    RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.463495399355*^9, 3.463495531008*^9}, {3.463495604291*^9,
    3.463495605242*^9}, {3.463495988574*^9, 3.463496042132*^9}, {
   3.463509501468*^9, 3.463509553584*^9}, {3.463509601965*^9, 
   3.463509637682*^9}, {3.463509797358*^9, 3.463509812043*^9}, {
   3.463513234167*^9, 3.463513242917*^9}, {3.46351351865*^9, 
   3.46351354306*^9}, 3.4635136184370003`*^9, {3.463514131031*^9, 
   3.4635141521940002`*^9}, {3.4636789452894735`*^9, 3.463678945788473*^9}, {
   3.463682725729473*^9, 3.4636827302254734`*^9}, {3.4636827977174735`*^9, 
   3.463682829267473*^9}, {3.4636828698974733`*^9, 3.4636828774174733`*^9}, {
   3.463683053767473*^9, 3.4636830739634733`*^9}, {3.463683200734473*^9, 
   3.4636832116934733`*^9}, {3.4636832852174735`*^9, 
   3.4636833065354733`*^9}, {3.4636839129814734`*^9, 
   3.4636841204284735`*^9}, {3.4636842529474735`*^9, 3.463684253109473*^9}, {
   3.4636843800374737`*^9, 3.4636844248584733`*^9}, {3.4636869436584735`*^9, 
   3.463686978840473*^9}, {3.463687291550473*^9, 3.463687320236473*^9}, {
   3.4636875454874735`*^9, 3.463687546241473*^9}, {3.4636875997254734`*^9, 
   3.463687636387473*^9}, {3.4636876678184733`*^9, 3.4636876752974734`*^9}, {
   3.4636878227864733`*^9, 3.4636878620964737`*^9}, {3.4636879211794734`*^9, 
   3.463687934835473*^9}, 3.4636879667774734`*^9, {3.463688073170473*^9, 
   3.4636880732664733`*^9}, {3.463703808295473*^9, 3.4637038195514736`*^9}, {
   3.4637039167544737`*^9, 3.4637039256254735`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"findphi5", "[", 
  RowBox[{"5", ",", "1", ",", "1", ",", "2", ",", "100", ",", "200"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.46350965363*^9, 3.463509665266*^9}, {
   3.4635098999110003`*^9, 3.463509900642*^9}, {3.463509937046*^9, 
   3.463509957946*^9}, {3.463510342525*^9, 3.463510343946*^9}, {
   3.463510570568*^9, 3.463510570817*^9}, {3.463513146352*^9, 
   3.463513147738*^9}, {3.463513254311*^9, 3.463513256888*^9}, 
   3.4635133085*^9, {3.463513362593*^9, 3.4635133636870003`*^9}, {
   3.463513675052*^9, 3.463513675356*^9}, 3.463513748396*^9, 
   3.463513894495*^9, 3.46351421396*^9, {3.463514476745*^9, 
   3.463514503795*^9}, {3.4636825840274734`*^9, 3.4636825954024734`*^9}, 
   3.4636826669024734`*^9, {3.4636833589114733`*^9, 3.4636833955564737`*^9}, {
   3.4636843041934733`*^9, 3.463684304248473*^9}, {3.4636855292354736`*^9, 
   3.4636855294114733`*^9}, {3.4636856012394733`*^9, 
   3.4636856159814734`*^9}, {3.4636856662514734`*^9, 
   3.4636856668824735`*^9}, {3.4636871006974735`*^9, 
   3.4636871183524733`*^9}, {3.463687475899473*^9, 3.4636874765074735`*^9}, {
   3.4636880168444734`*^9, 3.463688017116473*^9}, {3.4636882833814735`*^9, 
   3.4636883117234735`*^9}, {3.4636883557934732`*^9, 3.4636883560814734`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"\[Phi]", "\[Rule]", 
    TagBox[
     RowBox[{"InterpolatingFunction", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"0.`", ",", "200.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
      "]"}],
     False,
     Editable->False]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.4636877161034737`*^9, 3.4636878668064737`*^9, 3.463687974368473*^9, {
   3.4636880124624734`*^9, 3.4636880178064737`*^9}, 3.4636881454314737`*^9, 
   3.4636882230104733`*^9, 3.4636882550484734`*^9, {3.4636882857184734`*^9, 
   3.4636883125104733`*^9}, 3.463688357538473*^9, 3.4636896710654736`*^9, {
   3.463703298189473*^9, 3.4637033074614735`*^9}, 3.463703597741473*^9, 
   3.4637038253604736`*^9, 3.4637540097889304`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "1", ",", "500"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.463510285675*^9, 3.463510331601*^9}, {3.463513434994*^9,
    3.463513466825*^9}, {3.4635144160480003`*^9, 3.463514473591*^9}, {
   3.463514563072*^9, 3.463514575417*^9}, {3.4636826076504736`*^9, 
   3.4636826080744734`*^9}, 3.4636826741104736`*^9, {3.4636856240544734`*^9, 
   3.4636856243814735`*^9}, {3.4636856712194734`*^9, 
   3.4636856717864733`*^9}, {3.4636874539974737`*^9, 3.463687484019473*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nc8Vl8cB3ArKyMuWQkZmRlPZN/vY5O9SVbZEomsPBGKKMooSiRKSRmh
KCujzCQVSrYIIc+jH/E7/XVf79e955zPOa/v63uPiOdpay8aKiqq49RUVP+e
JjUPnzBT/cKN6eQMfF6ScWZCxNzMmVXcZrP7STLyu6eGoq3Tv/GrvblBZchH
S2duRnf9wb2yG/+uIkuYc+qEd1FDE0N2fEI9MtFSbjZ7NzwYTsh82UDGk3Zq
Tez6WaD5liA+iTzzSsi3lYkNavgDXVhekXGbO+feW2jvAW1SMNkNGeM3ZJGt
4IQD/OlfWV6T8RvYTNxUNg8w2WWcIDWS8Tert9LzCLwQ3ldIeIb8+73ZXet+
XjiSci13HNk2/XlDExM/5J2vO2LQRMa5WBMpt2P2QWzNx797m8m4Ce31GukK
YaBKeZ36pYWMT6wuaCXtCAPNPj4N7lYyHjWh3zZuJgIt1TXPrZAfNf/5cHNe
BK7+GBDqQWa+4LFCLyYKjlT9mr1v0PlsKchOZotDpOWTH3/byfhoNh/V0II4
PIfMb+YdZHxRgWawEyRg8GyAWCHyHq8P0eXzErBRVd1q3EnG7XvCuiK1JSGm
Ski77C0Z9/VxvRt4QxIaphvLGN+R8Uhqw1C3OUkI8l+p8Ua+rcwroH9dCpxZ
T3Ue7CLj43de+u+ZkQbfe4Y8jd1kfPVIkTathgwQlH3vSvWQcbqBK5zkazLg
FPZULBtZgv74yxE1WeCSrD4e1kvGA4N2mB6kyYFq/pCBeT8ZjxG6N5jPrwD2
HMGfIwfJeGJgtjavvgJI9dBYsHwk41dfpDzMOK0Al5KLtgqR79qExiS8UYA9
s5X+n4bIeMslPTH/IEUQ9732+dQXMt41qHp18qYiJKpxmggOk/FBEbkNl1ZF
EJFWXulHnq7n7rbgVYL12MfJ+qNknPHXTKhyixLY+smX+I6RcQ6tka/lP5XA
U52Yp/2djPOn9BlK8hBA6oUR8I+TcRmxOgGBQAKo3Z2+MjlBxg+HlCVmZhPg
A6PM8/eTZFzzdcEyazMBStbvp7VPkXFzx+RWqr2HYV+ne3TbDBl3KD4vFwWH
QfVHDqF/loy7r4bkrPkfhqpHu4Yn5sh4SKpzwEzjYSDRpQeLLJDxzCYZrNtP
GWxJS+7sv8i4czXH4tkMZXA/2cxtvkLGhR9S2gVfKIMyo/Gn7FUyXnatNeo0
owq4jkidMVon42cultryKqhAXWKtQyWZjKueu3ao2UEFLLKuBkhuoPp2PTbB
+UAFhAdz7mhskvEUa2JDfa8KKIeliw5vkXFLg4PZJ8kqIPH8yM1L26je5NaM
a/SPAMum2ytOGgr+eyulwmnqCNiD68FdzBT85a/gKzQsqjD19ZyOCgsFvzBl
7/WYoAo/k4VpSWwUnKX7AN/feFVwCY1oO45R8IFGxrXiR6qg42wBFG4KfrNq
qdt8QBXS3x868ZSXgovlvbxQIKIG10UrEhP2U/D5qwXOxsZqUBfsTyoRoeDP
4pMOrwargcTlbworYhRc0996TrdJDSK0vdtZZSk4jatqy89ZNVitWN4/K0/B
O632385iVwftfknRDQIFt1Wbt5h1VYdjozLWHzUpOL9cv1R6kjq8Fy9nekKk
4N+Fa2jVytXBnvdh3wcDCl7Cdfvr+Ec0nv1PiJUpBQ9kjK9N+asOHPGKHw5Z
U3ClLZ8MgrgGbFaYCoc7UvCNZbOAUVMNWEyLWFNyo+AJn/iEDt3WgOPS9H/1
gii4SdfOxlCrBkQx3+ivD6fgexqnB0gL6H3EF5+fJAo+VNlVJolpQoGTQ+dy
MgW/XVKR9F5dEx4/O/JoMpOCe+bmuEd5aoLobePihQIKLnn1vLpoiiYEpAtW
KJVT8KW4E1zdFZrgzxaqs9hAwavDjJfOftEERYanM8d6KHiUn3ynILUWzA8+
4+kbo+BwnPteu6QWSIwVnSv7TcHprTajT1tqgdsdfrVwlg28W2/cjjdCC64k
609+PLiBX1ftkG++qwXSvuHnyww3cEfZJ0z+HVqQHy8jKnNqA98vfGOSc1kL
HieRvf+7tYFPYZGv6vdqg5PddG5U/wb+iMEt56S2NjB+zL1L4PqDB2/qhbB6
a4N3soB6gf8fXGVZ+mhNmjYUyjN71o/+wbcm9oi7PdcG+8A7FNOo//CWIfI2
w1dtQE1984XHJn753ejnZ3Q4UIc9iXL8uIWbv26pdJLFoZmb65Rh3A6OVT5M
pbHFoXArVOduKw0EKq5qTUXh0JbwqJk6jwnePNNYbivE4fI9xR3BbXbYp5BY
8KATh6/ReUv/2XPA2ae9VsnLOKRsKsXIr3OAN09qnPJuAL5LWjd0zDiB85OC
c8l+APfhoYaVBE54nf1RiUcJ4JzFf0VajzkhwD5q92V9gKktcTrZDk7g3Ss0
teEIQDfqezJ4lBPefGxt8AsE0F0LY5Vd5ITgLN+sYRIAsZghtfw/Tthnxxp0
9AaAZ/ndpPe7MOjkqjRoKAGgulJlLsmOwdlBeyG5lwDfFy4d4OfBQDhzk3Kn
ByCpzzJ+RRCDHpuCfrZxlKeOLmlaFIMoTL+U9Btgbk17SEgKA4kPP+J+MRAh
dFdfdJMcBgPXrzp7CBBhyGz9yndFDGKtCYSBQ0TgYo/5cUMZA2nOz7t1dYjA
ccgiY14Vg6H3MVNVdkTgLw2LX9HAID5D5JWYHxFUX7r4VWljcMiqPSsrhgiP
XJmF1IgYDO8JCKJPJwI2UcicootBUj+74bkiItzjcDpRpo+BUnq10FwNETaZ
AsOKDTEYs3DacHxHhIViYlukMQap7Nv9b78SQaJXUUnuKAaqffdK1VeIEObJ
vrfVFIN085/O+3h1IPXCUEqhBQaabBmENBkdePLg+diSJQZzPcos29o64DOu
ZyFpjQHRjPRqzEsHzhZNqXnbYrDEIpZtGakDAfX6t0/ZYZDb3RnUnKoD/Syc
6972GKwe5RQuqtKBwfiJHoIjBvm7azewDh3A5zRkmZwwMOk69j5hWAccRx7q
DyIXmRTHe1PrQnvHYrT5MQwsmU2OfeLShTWf/uFt5K23SwQjSV2Yb7KNeeCC
ga2x6rSUhS581hyNnDyOARXT11e5nrqw63j283OuGJR1xmXvDtcF7O/i+i43
DHYZdRku3tYFFtnSBQ53DCoZgoVdn+nCJ39nYjqyawfXn95WXSi6lPydyQOD
GgPXR8/mdeE3iebvMrInPe1FkW1d4E8xWnXxxICt/cGx6xx60PzdfH87srf+
CstZVT2QkDYcTzuBAY9ewukjSXpAHz1RQzmJxpebCpjn6YGJtIKItRfKx8vd
cfKZHnTwNl4rRdZZLN5/fVgPCpm02S29MQjM7uj5eUgfNHr4MZIPykOVHkmr
pw8qjQ3qbcjUAY7i/E76MH9Vx4HJF4Ns/EeM4UV98FXyensFuWmOWfbeJ31I
ComoifbDgNnmw6e6n/owKrG7vgrZ7lXexT5qAwiY/GE8jzyfITuyJWMAbOHM
uI0/Blwa5ikOFwzgxYnlRe4AdD7Fe1WCsgzg+kmVCl3kUvax8YRHBnDeTt49
GFl76rRa5aABHAj2L2lH9kvLmGORMoQpbZt3PoEYVFOcMkW1DWGFvup7GvK2
xwFQtzGEd58ui1UhZ6pU5ficN4Q+pxnLTeTXY4MGLe8Noe37xcn4UxgwmtxZ
/TxjCJqWitxFyDbVXvnLm4Ygw5NQ1II8d5m8vk/CCJ5NYnM7yJxKvMXnoowg
aDUqLTQIA5fb3y2vXjOCtw5JQteQH9CXbt2/bwQkn1vyj5A1R9RsB3qNIKJW
6/M3ZO+EY7RyosYwp1H6UOc0BvVD+R4TXcbQsJrRRkY+yeXelj5mDHF3VPSY
g1E9WItI4WvGcCJMIEIQ2b2n6FcevwmYPxGk10Wme/OQZOdnAg2f6edSkM0r
Ku900h+FZaL5f2whGFCWQqnP8R+F57YtMfuRC2SVvcQPHYWIcLF3cshrD2pl
4+2OgkjF47dHkW/mN9Rr3D8K2ik3ziUij19p/1JONAXBxzyuv5BT3l7SOm5n
CvsSa3e2kA8zGBfu9jOFXDrHKKYzqJ/Ed/n6ppuCTnjUXxFk6ch+isiYKYQJ
95taIZ/1HubOijGDeIf3N0uRBe/nReqmm8FCfjx3NXL7uMvXlSIzeCGce/Y1
Mt/xsfvmXWaQ0rE1MoD82maKwMhvDhmsbMf/Q2YgLllF15pDVaRckl4o2r/U
h8t93eYQfNBMwBw5m6OuUXTCHIxWLmU5IEtMxMl1s1iARSWdhj+y3kVuJkFP
C+Av47W/itzkud/djd4S/vSGiA0gTw2lRzNxWELoz8Maw8iMR2lzqgQs4cEI
l9YEsgVhrodB0RKeCFykXUX+Rlup8eyYJeoLLPf3nEX95b4+D3WFJbQuep02
QRbmq1N6XG8JDH2dzlbIemnS5nbtlrD79FNlR+QrYeyJpSNovWaaei9kfoMv
q1b0VuCSFcd0AVl1NrD33jEreEqbPlGBHCaVmahHbw1XfhZ27w5D/4sLY0MN
e6xhId1jeQ9y0idpSWUBa2gofsCwFzk7sfmduII1vOAn8gkj140vsTM4W0Ms
404rAXnzlnHu2yfWwHlm0soJOY55p9zczgZ6XWTo8pFTPEyoOtxs4IIJF+s9
5Ot1WVa4vw2EWDxlK0G+5y37W56EvgfTrSfIb1qc1DhKbaBeyeniK2SG6OrW
D1s2EHiHw2oEOW3B77PjfVtYzmxx4gxH51FWsUuw3BZSs2Y8uZG3Av8ojdfa
wpszIT68yIFLl9P8umzhLsuE535kk5UHOlGrtmDVrC4mjcxImS7LAztgN5b+
AsgXaTzjvo3agUrAU9MAZPXW0vJ7M3ZQzJ81eAp59eLKiPcvOxjtpjgGI3vu
ilNZprUHpTIrhzBkYCxY2JG2h6wIcRkS8jbrNzuRSHug8nuofB05ks9Z+iS3
A9yy8KWuQb7wlEDcFHKAdWWKTR1ykj6r43VpB+CRtC56iZwZ0pTYhDsA9/5k
1UbkZ28lxvf5O8CRhw+1OpFnI9dyPr52gK1XbbVfkO2GU3cZ+jrCW/rPN/5D
dgn23vftjCMIMLtc2fqXlx4IYecdgY3f7cI2crDSmnvRdUf4RL/uSXMO/a9T
nBp2GhyBuniCmRm5VV0itI7DCQYuff7Bi6yY1/hdqt4JmFmyqZWR53KzPrC0
OcGoQm+mCnJ+bkD7cq8TuAoelVBFZs7lKXs+4QTf8oX0NJAnbp4+R2R2BkWu
9AAicma2EJuTkzNsvO4OMEOmZJA0LlOcISLziM5J5FeX8ewZggukR823pyE7
Biy9ztFyAb19hI2ryKtmd2aNDF1A/a6TZDqyJLap+tjZBYImDRKv/5v/Ts3I
6TgX8MnvV8xB9q+UE/nT6wJZZZwOBch7RwXKdvsfh7T4r6MVyKflN5oVClyB
U6x338C/9WZVB6sfuQKttpf4B2Sdu5Ezqs9dYWGdUW7w33j2TWbiO1f4SYhW
G0J+vfTXxuq3K2RkyxkOI7OV086EGLnBLa8xlQnkcll25qpfbrDGwB+8gkzm
wkpzC9zB44diEmsEBi3FigXxxe7w0qHWlA35mopljv8jd/hBvM/JjizpmJao
Xu0OXay1t/cgH8tj8BzucId2oYFSDLlJZIuff9kdilgDHvIhpxyaTr2l5QEO
fNc0xJGFjGqDbw57QMKvmWF15MzW/NEfYx4QZz2RpoHMiCcZaUx7wPfLdqCJ
/EvZTvjbsgdcZCgp0vo3v+han+guTyg6Tn0SkD13Dsk/lfeE6By1bn3kkpqS
xbYET0icdta2RJYTz/ZfO3QCwg/ef3MCuc81Q4j7/ElQEzBMTfyXv5fPtrLa
C27YlWQVIHfPjr4so/cBttZV2pf/9ntErvCAji+Etuxt70X2V6h7sZ7jByHp
H3MnkPEkt7Rrs/4Qxh89vob8lyPz+33hQJC+JRRFE4lBoSGtN8/ZU9BnqCfE
gSxfteO/qyIIlFOrhfcjW0XzyrycPQ2zIfOl0shl5Ods3reDgT2zL1oVudik
pKNMLQS6KzPpDJAz1qr4DkyFgMmh2q92yB3vLN5GXTkDNB+vCPggr2pWqmYc
DAX2kBLhSOQ9dErEof5QqH+xR+casqh3BNOXoLMwUt7WWYJMIpvKNzKFQeZG
1EoTcu+I9tKHijAIPn0PxpE5XSiBJebh6L75O442CgNjxZ6EBxvhUHGxP1cO
OazQz8U75xzQCmXSOSMv4JkZjIQIcDGLbUlBtiWMun0ZiYCAlPIfbciVzfOL
PpGRQOP6KZQ2GgPa4r3c4mJREJCWe8kM+U5N/622rijQTc1Sy0eWPWH1TdQ3
GnaqD7OtIJefXK5/xhEDEMqWbRODgTi1rdPm0xjY072PUIc802VgK3X0PMgK
v7UVPY/u4wv2c4lr58Hf90ByIbJuiZxmQXos1C7o8ojEonpT46w/fiMWRDh/
eYsid3eR1QSyY2FawKNWHNl2pfFIdl4s6Ptfd5ZGPqlpTUgtiYW3s8qPCMgJ
A+HSEQ2xoMJREGSA3L7dyGs5FwtYxHZqIHJKxv0c1oVYaJJKWw9CNhdL3tu1
GAsbetOuIchDxtZcBmux0Gu0SghHns2cYtfcjoXz0RdnSf/yyTAxSHKR4Ijq
vbM3/uV7tZg4vZcEbyI//8hCTrccoCviI8Fvn2G3m8i84Xk0+4VIQD1CNL+D
LNUst41Jk0Cbo+jwA+QlG87z72VJYPJE/VkpcuUMefOqPAkSee7KliGrszT9
YVImgdls78EK5O38+xEdR0iglZVbUoXcophMSVAnwYF7BIka5KQ3p8J1tEgg
q5RbUods4mC9voOT4Jpf78F65P8B6++Uzg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 1.5},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.4636896730424733`*^9, 3.4637033030884733`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Scatter6", "[", 
  RowBox[{
  "5", ",", "1", ",", "1", ",", "2", ",", "100", ",", "1", ",", "150"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.463509715639*^9, 3.463509728209*^9}, {3.463509892509*^9,
    3.4635098937060003`*^9}, {3.463509944641*^9, 3.46350996501*^9}, 
   3.463513155785*^9, {3.463513263572*^9, 3.4635132649300003`*^9}, 
   3.463513321049*^9, {3.4635133694560003`*^9, 3.463513370059*^9}, {
   3.463513574693*^9, 3.463513582459*^9}, {3.463513683976*^9, 
   3.463513684125*^9}, 3.463513735269*^9, 3.463513889118*^9, {
   3.463514203708*^9, 3.4635142084890003`*^9}, {3.46351424124*^9, 
   3.463514241362*^9}, {3.4635142818929996`*^9, 3.463514282407*^9}, {
   3.4635145171070004`*^9, 3.463514519178*^9}, {3.4636829047044735`*^9, 
   3.4636829323194733`*^9}, {3.463682984076473*^9, 3.463682997451473*^9}, {
   3.4636830861744733`*^9, 3.4636830879744735`*^9}, {3.463683317689473*^9, 
   3.4636833202254734`*^9}, {3.463683441762473*^9, 3.4636834425134735`*^9}, {
   3.4636834796884737`*^9, 3.4636834850154734`*^9}, {3.4636843182724733`*^9, 
   3.4636843183674736`*^9}, {3.4636855452424736`*^9, 3.463685545729473*^9}, {
   3.4636856425324736`*^9, 3.4636856857534733`*^9}, {3.4636857383114734`*^9, 
   3.4636857500704737`*^9}, {3.4636872455294733`*^9, 
   3.4636872588724737`*^9}, {3.4636874014964733`*^9, 3.463687401583473*^9}, {
   3.4636874937384734`*^9, 3.4636874944344735`*^9}, {3.4636877117024736`*^9, 
   3.4636877121814737`*^9}, {3.4636880077094736`*^9, 3.463688008189473*^9}, 
   3.4636882198974733`*^9, 3.463688252743473*^9, {3.4636882888454733`*^9, 
   3.4636883167234735`*^9}, {3.4636883614734735`*^9, 3.4636883621764736`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 91.57599830627439, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 1, 150}}, Typeset`size$$ = {360., {91., 94.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`t$15709$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$15709$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Graphics[{Thick, 
          Line[{{{0, -3}, {0, 3}}, {{-2, 0}, {100, 0}}}]}, 
         PlotRange -> {{-100, 
            100}, {-$CellContext`b\[Infinity]5[5, 1, 1, 2, 100] - 2, 2}}], 
        Graphics[{Red, 
          Disk[{0, 0}, 1]}], 
        Graphics[
         Disk[{$CellContext`rho5[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 200.}}, {
                    3, 11, 1, {311}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwt1gk01lkfB/BkJxkkaqxFGcZDKOvzv9/nsWbLlkjksYeEwYSsEYWSJWrs
RNOCSpN9aYQphCahhBZLzZSXqIn0Pu+Z955z7+ece+7v/O65v3vPufIex+y8
169bt46D3bX/N/y/PR41ylrHnUv+9TIpjKNlDqVNkHUaAimJ+u/Jlqy1lxlO
y4S1Vim0wMOJ3273/1A4JYBkrZVtCm4iUBMWvhlpIY7C7wRH5wO3QlCUl8Pv
rCyaTyfkfDiwDT+diVO6NqsA5bSYZp/InZhKi7bZJqAMw23lmf9w/4jK+gcD
Axw08O1b+O7KVzU0TwW9SH6ojo+/eNVp5++CquPBM3NeGqjLz7CcFNSEwbP2
jU9vaaJT+uNAn7MWrryTLpd8pYX0BtNwz8DdOJYSYlq9tBv5IQVZ3r570OHS
PS41ugdvjReU/jTXhpi6dFhaszYcf1YIzRLXwcVWleCLQTp4zq0ZVNKtA1kr
vcAqOV0McNOyH/noIrFVvvHTdV1o/iw+Jbuoi9dq/Hxmunp4krtrVjFED10r
zj2cv+rhN1bilalJPVR1X01tk9SHTSGz67qxPj6HjnFeCtVHqVkoI6VYH+Yy
AnFhvfr4yGS8mZ3XR6HvcQtXcQOYptfcHNQ1wH9qpyVM3AywQ2av/JYTBnBJ
u6b810UDnPsspNV21wCd3sH0rCcGmFTfIKP03gArK1VrLTx0SHQbTtjL0qGZ
NdE2p01HA/NjmZ0lHWSR71STOx33y6WPKITTYeGgYZlxmo5BLlO15UI6+DzP
dehV00F1PLWPa6UjXFZu+vd+Oq7F+B3nm6Dj5bNaAasPdOjaeha4rtKR2SVO
C+KnMKPf0xa7mQK5GWV7bjuFCztUXxWrU/BYSGnS1qeg1voy+5ExhZXT9EBf
Gwo9+/ONvh2kkCO/KJXnTYEm6ezKDGLPb2wr/DuCHcet+CI/jsLqyhkZo1QK
eQvzbh8yKax/mf5RIp/C0UGlMyimMNLeKXukkoJhrfud8zcoVBevmjfWUaD6
M/bdbKTwaFXG4Uo7BXeVWqfiLgr/cWa4XuilkJA6xMoYoiB619MnaYS9boB+
ymWcQsZbiUqNlxTMuRbu889Q4JPpfTP5jsJ97Uru+nkKJ23jFc8tUZhKuCuW
9g8F3HrPkfKVQvFLxflEDoKvoq4vYrkJDhnm9EbxEwg+XjB6J0TQ5GHb4iJK
ELBQs7t3M8HWxI3VBt8TPBA5uuOGLEFU6cMiaQWC1vOjxawfCNYnzpRcphGY
hC6VzmkSpHlwlqvqEjyyE6kIoQg2/FHPCGO7l7hPRLBNvsMbE8n2nkrN1hNs
v5U61seyjTx7efEk28Woj7TTbI/6GvqfZatW4dR0j+385NENn9jekj7pqkII
wg7mVx9my9cYOOrPIPhlC4MrwpCAFimulmBM0DEy55xuSuCg05qUt5cg9L0w
nVgSzCm3aAdYExz29dfIsyF4Ui6h+rsdgTPfXFWqA8F4YOM2a0cCj8G0QjEn
gundrpKjzgT+l2jZRS4E79e+CXm5suN5bb6MuBEMCJdMW7kTMCXnh+6xCG7L
oU3bk0Dhh8xr170ITn/67FXuw467z5K55Edgn/PgaaY/Qb2H5vmUQALpXQXm
sUEECd+4uMKD2fn6jrYEhBJYFAxHeIQR1PoTdecIguiQtMjW4+xzPv703vZo
ArrQTBVXDIFW2XL6m1iCH7V5QrviCbb3ih+oSmTXjaVokJpEILqsJX/kFAF/
mhGPeSpBBBe/lG4awauYvl1KZ9n7PeemmZJJkFT6QWs6i31et+P3GOcSKN4X
0anII1geLtPlvETQNaup71FAkPel06CjiCDrlGRwUhlBhmhguWklQWpR27DA
VYKTymIC/TcIYn/zoZ+/ya4rszHY4Q5BeL9QhUQDQfBB1tOxZvb9mq4TKGon
8Anlo1idBL1K3ReHewh2TSQvWfSx8+Qa2XYMEqxacN7YM8yux/p7fNfHCHrq
473kJwg0Fqs1Od4QFKiOr596S8DjJzjUPk8QUqZbWrJM8Oy5b3D8KkG54ENZ
dQ5gRMmDV44LGMhZKZvhBXrW5VI1gkBHIG0sQhhoGOkOp8TYz8SIJcIjAVyt
/XK9bytQLpVjlisDRAu3Gh7fDtivn6VclACVJRE9ShXgmtXfLa8BPB/zVufS
Bur6zqnM6APp7Q07HgDQ+0RofqbArGrXbh5r4IKXJb3CATD6ZciI6QIsDDpZ
TrKAEr4J+1g/wJp4u0gdA4al60e0jgNuqwKOVgnA9JjrY+8zQFBDrU1sNrCc
x9l/oQCIjXC0qLkM8Oz/tae7GjiT0JkQ1gQIVU/oyfcA58e+LPb9CWzi3Xwj
agrI19zls/M98L27peyfX4DidN+ReF4G/DWLv/fcwsCesWE3YxUGOBI2lu2k
M9C30+QN/z4GLvbHKP3lzoBX+J2A/lAG1KX+rq5NYgBmly0MihiwCXOd7b7L
gHuJeLL9IAMhvX3yE28ZSPic3OrPxcR5BcplWZqJUpvlTwnaTGxbneEKP8RE
edWoiF8CEwr2D2VcKpmoWGtWsX7IhOLVah3GPBOV+0uMtcQNsZMjy26nniFy
W0QDrYINwRWVnfxTpSFC92wqvvjcEJMLOfVtokbYVyM+9MbMCC0BF94Jxhnh
RyUJbo07Rvin2eJVFbcxum3jO6QdjZEzXVecXWkMj+i5GP5PxlD7TuZQnKkJ
vlbY6S3lmeCBbopkwKwJ9l5KkGhnmeKPL9GbxZ+ZwswlQtzfwQw9TcGb2vrM
YCoVILbJdC+6T3iLHmnfC5PxwyKtuuZICo8uKVg0R4dQnlr0DQt8u3yr1dnX
EnSq30pH3gpRw3PPNz+zQn0Qd+BSjjWWeeRXHlvvA9ectrCWjg3OWk/IrfXY
QKLulEaPsy1Kt9CMst7aQjnuyf5D0Xa4/fqE744N9qCbK0TOF9gjQ/qmbHmi
A17M07v2++2HWueDQD5rR8TlHRBr0jyAAf/XDUe3OEGOCnGX++aEEJE1nsev
nbEmrT7FcnJBmrJH0/zDQ5DUzsmNI26oNOw6tvH2YWxVWq2wznaHO01cdLMV
C1VatLhxHg80urYXteh6oveUXWthoBcmal6PxxR7Y2Ek4qvrkA8iA5vWaHO+
+Pe3dgT/BQCmIY0=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwl01FEHQAUgOFbkiRJkiRpSZIkSZIkSZIkV5IkuZIkLUmSJEmSZCZJkiSZ
mUmSJElmkmQmSZKZZCaTJJNk37XDd17Py3/ehN4GeyMCgUBJeJlIoogmhlji
iCeBRJJIJoVU0kgng0yyyCaHXPLIp4BCiigO36SUMsqpoJIqqqmhljrqaSBI
I00000IrbbQTooNOuuimh1766GeAQYYYZoRRxhhngkmmmGaGWd7xnjnmWWCR
JZZZYZU11vnARz7xmQ022WKbHXbZY58DDvnCV4445oRTvvGdM8654JIrrvnB
T2645Re/ueMP9zzwyBN/eeaFVwIaiCSKaGKIJY54EkgkiWRSSCWNdDLIJIts
csglj3wKKKSI4oj/zZVSRjkVVFJFNTXUUkc9DQRppIlmWmiljXZCdNBJF930
EI68j34GGGSIYUYYZYxxJphkimlmmOUd75ljngUWWWKZFVZZY50PfOQTn9lg
ky222WGXPfY54JAvfOWIY0445RvfOeOcCy654pof/OSGW37xmzv+cM8Djzzx
l2deeCX8/JFEEU0MscQRTwKJJJFMCqmkkU4GmWSRTQ655JFPAYUUUUwJpZRR
TgWVVFFNDbXUUU8DQRppopkWWmmjnRAddNJFNz308g+yg43l
                    "], CompressedData["
1:eJwN1nc81V8YB/BrC8m9X5vKJhWKqIzniWhIRkZSqeyZShn9MkoqJSMaMlNK
iBCyI0VmyqiQ7CKjuPda+X3/fL/O66zPeZ3nHOlTpy2cWCgUijcrhfIm2Cv7
9ms6OBhIjg9oKkOA+tBiLGnDDnuhFFAG744PB+6Rjg9OTrHfqwyOLk35DNIv
51xMrVdvBL6O59NHSumgukztFPy2EdxtxRTfkL6o7S4pm78JmgbsRJ6X0eF8
+/0ClWcqsFP7sX56OR1auxTYW93UgEfnpMOLCjrE0uO9hJO3gGiL8aXmSjo4
lsvwJcxtBWuxrbHO1XT4+lNhfe+sBrz6GDezsYYOcdK+2T77tCApymaH/Fs6
JPhb+ztz7YSNios9du/okFMTc1x6ny78Vi19+62eDmudo9R+3ke4M3hTrrCR
Dq/fiPKlMPWh3Vr0oFoLHXIvcXW+2GQIvj2p6cw2Oty9udAr0bAHGMOMfInP
dHA6Gltm9XM/pMh9jpzppIPCX81irVETEM+bvSj+lQ47j4YIqxeZQfe7lylP
eulQ4ZVlad9sAUvdNYe/99MBsi+7/Gu1hFxDh6/nhugwR1Oe7dlgA7ozz/6d
HaPDjRdiwYNTtvBvmm1BbIIO2sF+jZMPj8Jeo5ZR2Wk6RB99WXK52B7KXvSd
SJulw5gG3yeZFyfhz9iQTxWTDlzPZ6KUfBxA/Od3/n3L5PiX82e/+zsBi3fx
PVNWBlzZ/WL2V5cL/Nm86vgYFwMqzirfDUlzhzRdQa43fAxIrgvVPLXRCzI7
8n/TaAw4avBnKoDXB4aoo3XTIgzg3EO7615+BiScA6zOrGOAxPXX/IWvzoHH
5rJGITkGjO/UdukLPQ+nrnUr7lImx4tRZReK9oOct0/0ubYwYGjp1afU3wHQ
wpokELKdAUHrzHaYZ/0HmTdljDiBAZkpeq4Lm4LBW7m2R9qIATEDX9kc2EJh
O/+XzlETBiSUUKU+Pr4M6Tucj56xZkBiWO3ZU1fDwKKIVXrmGAPYT3OWp+mF
Q0eBVIGQMwMicz9tYNt6HUT5C/bOeTPgcPxsi5Z7BLCv/773uT/Z//Pcq6uz
t0C87JGgbigDAjnoc1+Mo0Cg/Ibo1QgGlM1wiEQwooHtiGTDgzgGWApuLWg6
HwuOKtJf7qYw4B9Aw1+lONBVSRiyySTz5fiQZF8WD8I1TsnfCxjw1dOV+T3o
HvTvsagzqmJAe93QYP3FB+B15Ifj80YGxBUYBO8pfwi/3+R+LOpkQE6yH0p+
SoLqI1ZBiQNkfu1WiacFU+E2W3DI+SkGPDjzs2HCIQ0EDx3df2KZ3F+ckohB
3yOY2iJg27WKCbfveC+b6D2GNv5CF20RJjhV5fTZv3sCj84lTj+VZ4Jle8+t
+v+eghrP+28625hgF8NeKuuWCQcWlTzWGzEhcsPzjJy4LIiSUX+RasmEtbXH
t6mF5cA2ipXJRkcm9E10XvuWmQu/7mzv6PFlwpCY25lpzpew5rWHQ1c4E/gl
V09wHsuHExkvbusnMMFc3VhXtLcAPDRvv2PPYsLdsm7xUo1XIPW5iDJZzgSv
x9qXfPOKoP4Qs35tGxNaBwXOXbEqAeYrDeuSISYI3fj2dZ1yKVSubPcaXWCC
3iG1osJt5cARVb5RhX8evm2TXZXHVwlsf+M3l8vMw5yXJe3pqmoInj60rmD7
PBx7Z3lRVOkNtLZ+99lhNg/WNvZd8U41MPQ0TPei2zw0SkgRte9qIeNKcN2d
4Hlgf1gWuImzDgzLPRjC9+ZB0ssktsrxHTz0cP+glDcPKSoebM9G3oPsX0vJ
Px/mQb+xRrkhugGiz4ffTBudhw2Ho8qHXBvB40dVyjBlAbSuDZ7QEG6G36MG
iWUSC+BoHCS8NN4C/WFyS/u2L8BWddeXJX5t8OOezu5y6wW4ZBqYbHHnI/i9
lf5i4LcAsm+16TZN7cCVEXB7XdwCWN+hHkv99Ql4OOr3FOcvQOuMVziHbAdk
OHUf1Pq0AAfkVVdq/DuhJWd4XfPcAviatZjfneqCkReDmjniixDJV5vQdfML
+LsMCRH6i2CpcKblnsU32Ptxyk7QcRG+O3XKDI/0wPAVpSXi+iKMDf7sL0vu
g6lqpg+8WASB9gpWRegHofWnnzZ0LkLltKq8puEP8C+caB5nWQI+L/lfZo4D
kPQ6dN+I6hLoq8z1Pk8ZBEH7IiXBw0tg9mV3BFfZECxUm7DcvrwE67VHS5wn
h6F83sowPHcJNpXWV/nrjIJvzub1274vAePOH9MDz8Zgat5g5xfqMqQty249
tu0XdKj43hc9uAybc9SGOiQm4PJd3c/1t5chI9A4pl9zEoLWymc4f16Gpifd
n6eNpsHrTeb5kPX/oODJpFF53AzoBj489drnH/TmmlJ7Vv2F+nnb6qb6f3At
yt1DPXsWfqmPXLPQXgG5wXrtOLJurxkZC7IoXYFLm8LLRz3mQfrDF5Z+WQre
p7ouuBxfAqriWMncWQoGhuXG7WxcgdWifbP1jRSsiml0NBhiwTDtgbcM0q3C
9authllQPyL/nkITBQ9nL3Y4j7Dgz52mXlakRZuoBf6jLLg2rMQwjHQwH9+T
iDEWjEiclCogzck+kZX4kwVXDc/2CDRTsPMsy1j1OAs+0FJ77E1acm+p3/Bv
Fpze9+hCE+krW+XseKZZ0KR7v1jARwo6T/IbRHKw4p+eCjnlDgruKV+kbZFg
RWplfsr3bgr2mEcszamxYtjuP9EPeihYcCdtS48RK3LtOWTbzUquM+JY4qYN
bCiU3fvkrzILbr6bWWgtxo5XxxujuK1Y0CdyYe16UQ48p6RWvi2UBX1Ngu8b
KXCirGCIxcNcFhy8KvIxbDcXji5L+HhMseCMtpjTlY/c6NeRl/1OgRWN3/ZW
CW7iwel0Nkelk6xYl1b3qyGBF2E8NaY8mRV1pOPDW9auxnv1c+vOfWLF6F2e
Y06u/Lh9y96JIB42bGPKTa+pXoNVq0Kz6AZsqF+pZLE2VgBfd5l/mApmQ7cl
uif7fiq2P+gfuFTJhpWnTzTJcNEwDqsE81fY0BuFErLqaVjs/VjMRosdZZLS
xz3cCSytkxnp8GHHduf13vWrBXFIw4xzazY7RqbZO/x5KYjZNXmXPH+yY+jx
yLZFKyFUlrvueUWJA3Xcp5W6mEJ4tynE0z+EA49nTtt6tgmjSnxq1ItvHBg4
LXowLFUEz+tYR7Ps5MT3KoVvHzqJos4TL7reQ060/bvvKENCDNXdHR3lVzhx
V2Ll7NsqMbz02DPG0YnMMZZ4ZWgijoSB35+kZi5MeGjK8q9aHNetcMo7a3Hj
avfrbaMiEpho1CS55xE37nu4OemRqQRK5m619ZZfhVR2n0oVFwnkDkreE/Vs
FfoVnI7hNpFAKRmVpFp+HqwJ7PvhLiyBmbv702fP8aC05r+2A7Xi6GAywVXW
xYOfao9r1FqJ48rShQMlO3jxxOHv3t5tYshl1px2/wEvslc6SFlqimFqb56A
IIMXh33f1xVFiOLMJ4rwlDkfZsvfaplsE8Fm3in7DV/5sClPflgjQRgvjNkY
E3arMbn+b3WspRDafHUPf1OxGi+fb0r02SeIHlf5TIMk+NEz91D6NSCwRb9U
8LAvP4pLpvPb7aShRsA4h2c9P0qNRf+XrENFiRzOIwMia3By6ayW8V4BTAhZ
s3781Bo0d1m74FvBj6pB7FfKMtfgnmzf1lCW1fggoV1vmVsAy9/+6fI4y4Od
Nhpnrm4XQE7dZJ629dwo+J/qlhEHARwVOJ12gIsTWRfOm9+4KYDztvZZ7PLs
qFd6P7EtVwAZWVfVnH1ZMZCblU3oowBGMBdmn09T0Nzt1I2MKQGMVMu/f1CZ
rCsBbJlNvFT8ei3U5nfpEpw/uen3O3kq3ir7ECJ7cwFU3r7Iatalol3TcFn2
HSac5H1+j+0wFR96ar2RC6bDRHhrOI8PFQf2iwZteToLAg077KTDqZhn43Wr
kO0vRDvZxwUlUHFZuSz8deQMZOjmh5nnUHF1HHSZwDSwBg3Y1VZS0VbhS26x
wiR8CDOz6f9ExWMX1c4KeozD1wCeb5KjVAy9zdt3iesn+Ec+tStkUjFJddTU
dHIEahaadb5w05Dj0P0IC8FhsJRKdiwSoSGq4Q1Dn0FwSFYI95GnYUfYe9WL
Cz9ArUdCRXErDTd/a2qPzO6HspqDmlt20bCC//Cr0ZN9oJ+i0zx+kIZ9n3uW
bT58A/+gYq8QOxraz9jU7bryBUZs7MVpLjQspLlsMQ/pApmikKjKM2R7nvr2
08UdMBPtoZFykYZhKpu3Gkt9htgP6d8awmg4OD2WtVLQDos3WY4VRtHQ2op4
ZEh8BI1Tqql5D2goa57I032gFdpm2su/PaKhl3GPUuCHJjBNSt19MIuGMbtW
QtfHfgBvrXTxtQU0NNswuzR4vx6C2g5KHimloeKVKEprxzuIccl/KviGhtqj
mVWnd9UBh59WkX8DDcf3Trs6HasFuQGRCumPNEzup2vJFL+B740m0ord5HqH
r9ve210N2bemIhL7aPjnYImpzWIFmF2KSYwdoqHvzYneu8VlYCHMcVnkF1m3
PP4xFQteg7l49gmtKRoqy3sWKA4Xw/lHmbl5czSs1sjelvjqFST++Focv0hD
rsQNbjdbCyCy8FPEPIVAds+5E+kK+VCJ0SITHAQqhqtn8L7Mgzv1P+oDeQjU
2HSMP6P5BRAyuSt5/AT2604GcFzJhip3+7P3aQQGtehJJvg9B9d/q6ziRQg0
rlO3Oc54CkqXfYwlJQlsdzt55VfzE+g+0DWvI0XgYE55qvZEOmSvenuMXY5A
ykafSnejR4CnaIcvKRLYnPs2aao9FUYCY4VfKhN4+LChurJgCrxPfOf0dDOB
muf0amQbE8FtMfpOwBbS746KZ88/gJeyp3ZNahDoa7u8YhN5D1aruCNtO4Ex
11KHBH3jod+6WHZ6J4GJfP1yOSl3wMnoaUm0LoERGyaSOthjQaR066lFso68
4sms+i8hGjr9545r6hN461GtYGz+bfK/eO7ZWkMCi1/HF1rE3YSGTE2jsj3k
/i+2PFj4eR0yvBeyxPYTeFV4Vmp9cjj83PbcbdcBAsUFYnLWpIaB1oh43I6D
BKbbcv9NH7gMWd4vCG4zMv+Gu8L2dqGwTlWo/6U5+c7QK5paWUIAhzh1fxwi
UIqretz10X+wSUmfu8uKwI1nk/MDagNAS8e15KENgZfCY+dHTPygxvKHiqYt
gZNHRC/6qpwHoxBvWvYRAgOvuuaKWZ+DW0UhNNajZD7H7w3+KTkDSy/7xXSO
ETggKeYabOIDh/LZI3qOE/jlozMrhdMLqCxmHmYnCPyPSv90hOIO/XTjG8kn
CXS3f8X21MsFmmayjzedIrDuQ4WK6nYnYHZIOPQ5EHjBkMIqZ+oAida+u7sd
CXxaQdhZPzkJ/iNHqRVOBNp02/Gaq50A4Rbf0ClnAl+/3Jc7kXUU1PtMP664
EGjZZtV3JMYWJjNsXP+6kvPxHVKCGWsovHrifosbgR8E3DieFlgCm/XM9zjy
XS5LThDUfGcBGuVh4vs8CDxTVGibIW4OtFb2x79J100oeAYYm0KHaaxNkyeB
+8xqTWZvG0PHnTz1GC8Cf/gnDUj57oUusz0B6E2gQnKqdUi3IbzPSwvvJZ1W
2Ztt/MgAKuPc1nicJnCb2elXsxW7IOEgffc4ac7EYWtPSQSFott/7X0IbP10
n3PEQRc8E9Kfr5AOiapVLni9A7IOBvLdOkPgssj26PxCTfDYXu3KfZZAptCz
i4ZqGhDcQjnsR9r+wuCQI3UrxHUG/vpK2tOZotlooAYt+/waNM4R+KxSypXb
ZzPsnpIzDSdd8l4tfudbZcDKFGCQrj627W6WkSIcor8bs/UlUPgmuqp6yYGO
Rk1nHunqlWGvGaoMPNOyZPtHeuxvmYOjmBRcVkpb0j9P4DVfs1qdPknwOeVP
CSVt49Bi58slDhK/b615TfpCQeGqnrsicOBacBnXBfJ+FkbqbDwuCA3foykH
SCf9PqcTX0uFmZcaLddINx+ye71ffw2oyGqklpMWfcR3Q7OYFxyCPJLHSd8y
2pZEVHJDSHF/vpAfeV5nXcY37uCE0XreB9qkXdvXDy5Q2YErpST8DOnBhnI6
sZUFfvnVLqWQ1vr9O8+qcVnP/dp173rSx95ojeWuWdCr3iE/N056VKxZj3OZ
rreqV9qN159APxNT1lKvWT3eH5K+iqTdw3c/EDH6o9dtVZeIpE+HNoYcOTOt
p/Lr5x9H0oGmBffWTI/rGa5SZA0jrXI1lKHMNaa35+HnnmTSBlUVXBkDQ3py
GztMi0h3TPVZ6FkM6OXKjGxuIO1w6uOi8cl+vXUoLPaV9BGBAtacC716/wNH
6PtI
                    "]}, {Automatic}]}}]], 1], 5, 1, 1, 2] Cos[Part[
               Evaluate[
                ReplaceAll[
                 $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                   InterpolatingFunction[{{0., 200.}}, {
                    3, 11, 1, {311}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwt1gk01lkfB/BkJxkkaqxFGcZDKOvzv9/nsWbLlkjksYeEwYSsEYWSJWrs
RNOCSpN9aYQphCahhBZLzZSXqIn0Pu+Z955z7+ece+7v/O65v3vPufIex+y8
169bt46D3bX/N/y/PR41ylrHnUv+9TIpjKNlDqVNkHUaAimJ+u/Jlqy1lxlO
y4S1Vim0wMOJ3273/1A4JYBkrZVtCm4iUBMWvhlpIY7C7wRH5wO3QlCUl8Pv
rCyaTyfkfDiwDT+diVO6NqsA5bSYZp/InZhKi7bZJqAMw23lmf9w/4jK+gcD
Axw08O1b+O7KVzU0TwW9SH6ojo+/eNVp5++CquPBM3NeGqjLz7CcFNSEwbP2
jU9vaaJT+uNAn7MWrryTLpd8pYX0BtNwz8DdOJYSYlq9tBv5IQVZ3r570OHS
PS41ugdvjReU/jTXhpi6dFhaszYcf1YIzRLXwcVWleCLQTp4zq0ZVNKtA1kr
vcAqOV0McNOyH/noIrFVvvHTdV1o/iw+Jbuoi9dq/Hxmunp4krtrVjFED10r
zj2cv+rhN1bilalJPVR1X01tk9SHTSGz67qxPj6HjnFeCtVHqVkoI6VYH+Yy
AnFhvfr4yGS8mZ3XR6HvcQtXcQOYptfcHNQ1wH9qpyVM3AywQ2av/JYTBnBJ
u6b810UDnPsspNV21wCd3sH0rCcGmFTfIKP03gArK1VrLTx0SHQbTtjL0qGZ
NdE2p01HA/NjmZ0lHWSR71STOx33y6WPKITTYeGgYZlxmo5BLlO15UI6+DzP
dehV00F1PLWPa6UjXFZu+vd+Oq7F+B3nm6Dj5bNaAasPdOjaeha4rtKR2SVO
C+KnMKPf0xa7mQK5GWV7bjuFCztUXxWrU/BYSGnS1qeg1voy+5ExhZXT9EBf
Gwo9+/ONvh2kkCO/KJXnTYEm6ezKDGLPb2wr/DuCHcet+CI/jsLqyhkZo1QK
eQvzbh8yKax/mf5RIp/C0UGlMyimMNLeKXukkoJhrfud8zcoVBevmjfWUaD6
M/bdbKTwaFXG4Uo7BXeVWqfiLgr/cWa4XuilkJA6xMoYoiB619MnaYS9boB+
ymWcQsZbiUqNlxTMuRbu889Q4JPpfTP5jsJ97Uru+nkKJ23jFc8tUZhKuCuW
9g8F3HrPkfKVQvFLxflEDoKvoq4vYrkJDhnm9EbxEwg+XjB6J0TQ5GHb4iJK
ELBQs7t3M8HWxI3VBt8TPBA5uuOGLEFU6cMiaQWC1vOjxawfCNYnzpRcphGY
hC6VzmkSpHlwlqvqEjyyE6kIoQg2/FHPCGO7l7hPRLBNvsMbE8n2nkrN1hNs
v5U61seyjTx7efEk28Woj7TTbI/6GvqfZatW4dR0j+385NENn9jekj7pqkII
wg7mVx9my9cYOOrPIPhlC4MrwpCAFimulmBM0DEy55xuSuCg05qUt5cg9L0w
nVgSzCm3aAdYExz29dfIsyF4Ui6h+rsdgTPfXFWqA8F4YOM2a0cCj8G0QjEn
gundrpKjzgT+l2jZRS4E79e+CXm5suN5bb6MuBEMCJdMW7kTMCXnh+6xCG7L
oU3bk0Dhh8xr170ITn/67FXuw467z5K55Edgn/PgaaY/Qb2H5vmUQALpXQXm
sUEECd+4uMKD2fn6jrYEhBJYFAxHeIQR1PoTdecIguiQtMjW4+xzPv703vZo
ArrQTBVXDIFW2XL6m1iCH7V5QrviCbb3ih+oSmTXjaVokJpEILqsJX/kFAF/
mhGPeSpBBBe/lG4awauYvl1KZ9n7PeemmZJJkFT6QWs6i31et+P3GOcSKN4X
0anII1geLtPlvETQNaup71FAkPel06CjiCDrlGRwUhlBhmhguWklQWpR27DA
VYKTymIC/TcIYn/zoZ+/ya4rszHY4Q5BeL9QhUQDQfBB1tOxZvb9mq4TKGon
8Anlo1idBL1K3ReHewh2TSQvWfSx8+Qa2XYMEqxacN7YM8yux/p7fNfHCHrq
473kJwg0Fqs1Od4QFKiOr596S8DjJzjUPk8QUqZbWrJM8Oy5b3D8KkG54ENZ
dQ5gRMmDV44LGMhZKZvhBXrW5VI1gkBHIG0sQhhoGOkOp8TYz8SIJcIjAVyt
/XK9bytQLpVjlisDRAu3Gh7fDtivn6VclACVJRE9ShXgmtXfLa8BPB/zVufS
Bur6zqnM6APp7Q07HgDQ+0RofqbArGrXbh5r4IKXJb3CATD6ZciI6QIsDDpZ
TrKAEr4J+1g/wJp4u0gdA4al60e0jgNuqwKOVgnA9JjrY+8zQFBDrU1sNrCc
x9l/oQCIjXC0qLkM8Oz/tae7GjiT0JkQ1gQIVU/oyfcA58e+LPb9CWzi3Xwj
agrI19zls/M98L27peyfX4DidN+ReF4G/DWLv/fcwsCesWE3YxUGOBI2lu2k
M9C30+QN/z4GLvbHKP3lzoBX+J2A/lAG1KX+rq5NYgBmly0MihiwCXOd7b7L
gHuJeLL9IAMhvX3yE28ZSPic3OrPxcR5BcplWZqJUpvlTwnaTGxbneEKP8RE
edWoiF8CEwr2D2VcKpmoWGtWsX7IhOLVah3GPBOV+0uMtcQNsZMjy26nniFy
W0QDrYINwRWVnfxTpSFC92wqvvjcEJMLOfVtokbYVyM+9MbMCC0BF94Jxhnh
RyUJbo07Rvin2eJVFbcxum3jO6QdjZEzXVecXWkMj+i5GP5PxlD7TuZQnKkJ
vlbY6S3lmeCBbopkwKwJ9l5KkGhnmeKPL9GbxZ+ZwswlQtzfwQw9TcGb2vrM
YCoVILbJdC+6T3iLHmnfC5PxwyKtuuZICo8uKVg0R4dQnlr0DQt8u3yr1dnX
EnSq30pH3gpRw3PPNz+zQn0Qd+BSjjWWeeRXHlvvA9ectrCWjg3OWk/IrfXY
QKLulEaPsy1Kt9CMst7aQjnuyf5D0Xa4/fqE744N9qCbK0TOF9gjQ/qmbHmi
A17M07v2++2HWueDQD5rR8TlHRBr0jyAAf/XDUe3OEGOCnGX++aEEJE1nsev
nbEmrT7FcnJBmrJH0/zDQ5DUzsmNI26oNOw6tvH2YWxVWq2wznaHO01cdLMV
C1VatLhxHg80urYXteh6oveUXWthoBcmal6PxxR7Y2Ek4qvrkA8iA5vWaHO+
+Pe3dgT/BQCmIY0=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwl01FEHQAUgOFbkiRJkiRpSZIkSZIkSZIkV5IkuZIkLUmSJEmSZCZJkiSZ
mUmSJElmkmQmSZKZZCaTJJNk37XDd17Py3/ehN4GeyMCgUBJeJlIoogmhlji
iCeBRJJIJoVU0kgng0yyyCaHXPLIp4BCiigO36SUMsqpoJIqqqmhljrqaSBI
I00000IrbbQTooNOuuimh1766GeAQYYYZoRRxhhngkmmmGaGWd7xnjnmWWCR
JZZZYZU11vnARz7xmQ022WKbHXbZY58DDvnCV4445oRTvvGdM8654JIrrvnB
T2645Re/ueMP9zzwyBN/eeaFVwIaiCSKaGKIJY54EkgkiWRSSCWNdDLIJIts
csglj3wKKKSI4oj/zZVSRjkVVFJFNTXUUkc9DQRppIlmWmiljXZCdNBJF930
EI68j34GGGSIYUYYZYxxJphkimlmmOUd75ljngUWWWKZFVZZY50PfOQTn9lg
ky222WGXPfY54JAvfOWIY0445RvfOeOcCy654pof/OSGW37xmzv+cM8Djzzx
l2deeCX8/JFEEU0MscQRTwKJJJFMCqmkkU4GmWSRTQ655JFPAYUUUUwJpZRR
TgWVVFFNDbXUUU8DQRppopkWWmmjnRAddNJFNz308g+yg43l
                    "], CompressedData["
1:eJwN1nc81V8YB/BrC8m9X5vKJhWKqIzniWhIRkZSqeyZShn9MkoqJSMaMlNK
iBCyI0VmyqiQ7CKjuPda+X3/fL/O66zPeZ3nHOlTpy2cWCgUijcrhfIm2Cv7
9ms6OBhIjg9oKkOA+tBiLGnDDnuhFFAG744PB+6Rjg9OTrHfqwyOLk35DNIv
51xMrVdvBL6O59NHSumgukztFPy2EdxtxRTfkL6o7S4pm78JmgbsRJ6X0eF8
+/0ClWcqsFP7sX56OR1auxTYW93UgEfnpMOLCjrE0uO9hJO3gGiL8aXmSjo4
lsvwJcxtBWuxrbHO1XT4+lNhfe+sBrz6GDezsYYOcdK+2T77tCApymaH/Fs6
JPhb+ztz7YSNios9du/okFMTc1x6ny78Vi19+62eDmudo9R+3ke4M3hTrrCR
Dq/fiPKlMPWh3Vr0oFoLHXIvcXW+2GQIvj2p6cw2Oty9udAr0bAHGMOMfInP
dHA6Gltm9XM/pMh9jpzppIPCX81irVETEM+bvSj+lQ47j4YIqxeZQfe7lylP
eulQ4ZVlad9sAUvdNYe/99MBsi+7/Gu1hFxDh6/nhugwR1Oe7dlgA7ozz/6d
HaPDjRdiwYNTtvBvmm1BbIIO2sF+jZMPj8Jeo5ZR2Wk6RB99WXK52B7KXvSd
SJulw5gG3yeZFyfhz9iQTxWTDlzPZ6KUfBxA/Od3/n3L5PiX82e/+zsBi3fx
PVNWBlzZ/WL2V5cL/Nm86vgYFwMqzirfDUlzhzRdQa43fAxIrgvVPLXRCzI7
8n/TaAw4avBnKoDXB4aoo3XTIgzg3EO7615+BiScA6zOrGOAxPXX/IWvzoHH
5rJGITkGjO/UdukLPQ+nrnUr7lImx4tRZReK9oOct0/0ubYwYGjp1afU3wHQ
wpokELKdAUHrzHaYZ/0HmTdljDiBAZkpeq4Lm4LBW7m2R9qIATEDX9kc2EJh
O/+XzlETBiSUUKU+Pr4M6Tucj56xZkBiWO3ZU1fDwKKIVXrmGAPYT3OWp+mF
Q0eBVIGQMwMicz9tYNt6HUT5C/bOeTPgcPxsi5Z7BLCv/773uT/Z//Pcq6uz
t0C87JGgbigDAjnoc1+Mo0Cg/Ibo1QgGlM1wiEQwooHtiGTDgzgGWApuLWg6
HwuOKtJf7qYw4B9Aw1+lONBVSRiyySTz5fiQZF8WD8I1TsnfCxjw1dOV+T3o
HvTvsagzqmJAe93QYP3FB+B15Ifj80YGxBUYBO8pfwi/3+R+LOpkQE6yH0p+
SoLqI1ZBiQNkfu1WiacFU+E2W3DI+SkGPDjzs2HCIQ0EDx3df2KZ3F+ckohB
3yOY2iJg27WKCbfveC+b6D2GNv5CF20RJjhV5fTZv3sCj84lTj+VZ4Jle8+t
+v+eghrP+28625hgF8NeKuuWCQcWlTzWGzEhcsPzjJy4LIiSUX+RasmEtbXH
t6mF5cA2ipXJRkcm9E10XvuWmQu/7mzv6PFlwpCY25lpzpew5rWHQ1c4E/gl
V09wHsuHExkvbusnMMFc3VhXtLcAPDRvv2PPYsLdsm7xUo1XIPW5iDJZzgSv
x9qXfPOKoP4Qs35tGxNaBwXOXbEqAeYrDeuSISYI3fj2dZ1yKVSubPcaXWCC
3iG1osJt5cARVb5RhX8evm2TXZXHVwlsf+M3l8vMw5yXJe3pqmoInj60rmD7
PBx7Z3lRVOkNtLZ+99lhNg/WNvZd8U41MPQ0TPei2zw0SkgRte9qIeNKcN2d
4Hlgf1gWuImzDgzLPRjC9+ZB0ssktsrxHTz0cP+glDcPKSoebM9G3oPsX0vJ
Px/mQb+xRrkhugGiz4ffTBudhw2Ho8qHXBvB40dVyjBlAbSuDZ7QEG6G36MG
iWUSC+BoHCS8NN4C/WFyS/u2L8BWddeXJX5t8OOezu5y6wW4ZBqYbHHnI/i9
lf5i4LcAsm+16TZN7cCVEXB7XdwCWN+hHkv99Ql4OOr3FOcvQOuMVziHbAdk
OHUf1Pq0AAfkVVdq/DuhJWd4XfPcAviatZjfneqCkReDmjniixDJV5vQdfML
+LsMCRH6i2CpcKblnsU32Ptxyk7QcRG+O3XKDI/0wPAVpSXi+iKMDf7sL0vu
g6lqpg+8WASB9gpWRegHofWnnzZ0LkLltKq8puEP8C+caB5nWQI+L/lfZo4D
kPQ6dN+I6hLoq8z1Pk8ZBEH7IiXBw0tg9mV3BFfZECxUm7DcvrwE67VHS5wn
h6F83sowPHcJNpXWV/nrjIJvzub1274vAePOH9MDz8Zgat5g5xfqMqQty249
tu0XdKj43hc9uAybc9SGOiQm4PJd3c/1t5chI9A4pl9zEoLWymc4f16Gpifd
n6eNpsHrTeb5kPX/oODJpFF53AzoBj489drnH/TmmlJ7Vv2F+nnb6qb6f3At
yt1DPXsWfqmPXLPQXgG5wXrtOLJurxkZC7IoXYFLm8LLRz3mQfrDF5Z+WQre
p7ouuBxfAqriWMncWQoGhuXG7WxcgdWifbP1jRSsiml0NBhiwTDtgbcM0q3C
9authllQPyL/nkITBQ9nL3Y4j7Dgz52mXlakRZuoBf6jLLg2rMQwjHQwH9+T
iDEWjEiclCogzck+kZX4kwVXDc/2CDRTsPMsy1j1OAs+0FJ77E1acm+p3/Bv
Fpze9+hCE+krW+XseKZZ0KR7v1jARwo6T/IbRHKw4p+eCjnlDgruKV+kbZFg
RWplfsr3bgr2mEcszamxYtjuP9EPeihYcCdtS48RK3LtOWTbzUquM+JY4qYN
bCiU3fvkrzILbr6bWWgtxo5XxxujuK1Y0CdyYe16UQ48p6RWvi2UBX1Ngu8b
KXCirGCIxcNcFhy8KvIxbDcXji5L+HhMseCMtpjTlY/c6NeRl/1OgRWN3/ZW
CW7iwel0Nkelk6xYl1b3qyGBF2E8NaY8mRV1pOPDW9auxnv1c+vOfWLF6F2e
Y06u/Lh9y96JIB42bGPKTa+pXoNVq0Kz6AZsqF+pZLE2VgBfd5l/mApmQ7cl
uif7fiq2P+gfuFTJhpWnTzTJcNEwDqsE81fY0BuFErLqaVjs/VjMRosdZZLS
xz3cCSytkxnp8GHHduf13vWrBXFIw4xzazY7RqbZO/x5KYjZNXmXPH+yY+jx
yLZFKyFUlrvueUWJA3Xcp5W6mEJ4tynE0z+EA49nTtt6tgmjSnxq1ItvHBg4
LXowLFUEz+tYR7Ps5MT3KoVvHzqJos4TL7reQ060/bvvKENCDNXdHR3lVzhx
V2Ll7NsqMbz02DPG0YnMMZZ4ZWgijoSB35+kZi5MeGjK8q9aHNetcMo7a3Hj
avfrbaMiEpho1CS55xE37nu4OemRqQRK5m619ZZfhVR2n0oVFwnkDkreE/Vs
FfoVnI7hNpFAKRmVpFp+HqwJ7PvhLiyBmbv702fP8aC05r+2A7Xi6GAywVXW
xYOfao9r1FqJ48rShQMlO3jxxOHv3t5tYshl1px2/wEvslc6SFlqimFqb56A
IIMXh33f1xVFiOLMJ4rwlDkfZsvfaplsE8Fm3in7DV/5sClPflgjQRgvjNkY
E3arMbn+b3WspRDafHUPf1OxGi+fb0r02SeIHlf5TIMk+NEz91D6NSCwRb9U
8LAvP4pLpvPb7aShRsA4h2c9P0qNRf+XrENFiRzOIwMia3By6ayW8V4BTAhZ
s3781Bo0d1m74FvBj6pB7FfKMtfgnmzf1lCW1fggoV1vmVsAy9/+6fI4y4Od
Nhpnrm4XQE7dZJ629dwo+J/qlhEHARwVOJ12gIsTWRfOm9+4KYDztvZZ7PLs
qFd6P7EtVwAZWVfVnH1ZMZCblU3oowBGMBdmn09T0Nzt1I2MKQGMVMu/f1CZ
rCsBbJlNvFT8ei3U5nfpEpw/uen3O3kq3ir7ECJ7cwFU3r7Iatalol3TcFn2
HSac5H1+j+0wFR96ar2RC6bDRHhrOI8PFQf2iwZteToLAg077KTDqZhn43Wr
kO0vRDvZxwUlUHFZuSz8deQMZOjmh5nnUHF1HHSZwDSwBg3Y1VZS0VbhS26x
wiR8CDOz6f9ExWMX1c4KeozD1wCeb5KjVAy9zdt3iesn+Ec+tStkUjFJddTU
dHIEahaadb5w05Dj0P0IC8FhsJRKdiwSoSGq4Q1Dn0FwSFYI95GnYUfYe9WL
Cz9ArUdCRXErDTd/a2qPzO6HspqDmlt20bCC//Cr0ZN9oJ+i0zx+kIZ9n3uW
bT58A/+gYq8QOxraz9jU7bryBUZs7MVpLjQspLlsMQ/pApmikKjKM2R7nvr2
08UdMBPtoZFykYZhKpu3Gkt9htgP6d8awmg4OD2WtVLQDos3WY4VRtHQ2op4
ZEh8BI1Tqql5D2goa57I032gFdpm2su/PaKhl3GPUuCHJjBNSt19MIuGMbtW
QtfHfgBvrXTxtQU0NNswuzR4vx6C2g5KHimloeKVKEprxzuIccl/KviGhtqj
mVWnd9UBh59WkX8DDcf3Trs6HasFuQGRCumPNEzup2vJFL+B740m0ord5HqH
r9ve210N2bemIhL7aPjnYImpzWIFmF2KSYwdoqHvzYneu8VlYCHMcVnkF1m3
PP4xFQteg7l49gmtKRoqy3sWKA4Xw/lHmbl5czSs1sjelvjqFST++Focv0hD
rsQNbjdbCyCy8FPEPIVAds+5E+kK+VCJ0SITHAQqhqtn8L7Mgzv1P+oDeQjU
2HSMP6P5BRAyuSt5/AT2604GcFzJhip3+7P3aQQGtehJJvg9B9d/q6ziRQg0
rlO3Oc54CkqXfYwlJQlsdzt55VfzE+g+0DWvI0XgYE55qvZEOmSvenuMXY5A
ykafSnejR4CnaIcvKRLYnPs2aao9FUYCY4VfKhN4+LChurJgCrxPfOf0dDOB
muf0amQbE8FtMfpOwBbS746KZ88/gJeyp3ZNahDoa7u8YhN5D1aruCNtO4Ex
11KHBH3jod+6WHZ6J4GJfP1yOSl3wMnoaUm0LoERGyaSOthjQaR066lFso68
4sms+i8hGjr9545r6hN461GtYGz+bfK/eO7ZWkMCi1/HF1rE3YSGTE2jsj3k
/i+2PFj4eR0yvBeyxPYTeFV4Vmp9cjj83PbcbdcBAsUFYnLWpIaB1oh43I6D
BKbbcv9NH7gMWd4vCG4zMv+Gu8L2dqGwTlWo/6U5+c7QK5paWUIAhzh1fxwi
UIqretz10X+wSUmfu8uKwI1nk/MDagNAS8e15KENgZfCY+dHTPygxvKHiqYt
gZNHRC/6qpwHoxBvWvYRAgOvuuaKWZ+DW0UhNNajZD7H7w3+KTkDSy/7xXSO
ETggKeYabOIDh/LZI3qOE/jlozMrhdMLqCxmHmYnCPyPSv90hOIO/XTjG8kn
CXS3f8X21MsFmmayjzedIrDuQ4WK6nYnYHZIOPQ5EHjBkMIqZ+oAida+u7sd
CXxaQdhZPzkJ/iNHqRVOBNp02/Gaq50A4Rbf0ClnAl+/3Jc7kXUU1PtMP664
EGjZZtV3JMYWJjNsXP+6kvPxHVKCGWsovHrifosbgR8E3DieFlgCm/XM9zjy
XS5LThDUfGcBGuVh4vs8CDxTVGibIW4OtFb2x79J100oeAYYm0KHaaxNkyeB
+8xqTWZvG0PHnTz1GC8Cf/gnDUj57oUusz0B6E2gQnKqdUi3IbzPSwvvJZ1W
2Ztt/MgAKuPc1nicJnCb2elXsxW7IOEgffc4ac7EYWtPSQSFott/7X0IbP10
n3PEQRc8E9Kfr5AOiapVLni9A7IOBvLdOkPgssj26PxCTfDYXu3KfZZAptCz
i4ZqGhDcQjnsR9r+wuCQI3UrxHUG/vpK2tOZotlooAYt+/waNM4R+KxSypXb
ZzPsnpIzDSdd8l4tfudbZcDKFGCQrj627W6WkSIcor8bs/UlUPgmuqp6yYGO
Rk1nHunqlWGvGaoMPNOyZPtHeuxvmYOjmBRcVkpb0j9P4DVfs1qdPknwOeVP
CSVt49Bi58slDhK/b615TfpCQeGqnrsicOBacBnXBfJ+FkbqbDwuCA3foykH
SCf9PqcTX0uFmZcaLddINx+ye71ffw2oyGqklpMWfcR3Q7OYFxyCPJLHSd8y
2pZEVHJDSHF/vpAfeV5nXcY37uCE0XreB9qkXdvXDy5Q2YErpST8DOnBhnI6
sZUFfvnVLqWQ1vr9O8+qcVnP/dp173rSx95ojeWuWdCr3iE/N056VKxZj3OZ
rreqV9qN159APxNT1lKvWT3eH5K+iqTdw3c/EDH6o9dtVZeIpE+HNoYcOTOt
p/Lr5x9H0oGmBffWTI/rGa5SZA0jrXI1lKHMNaa35+HnnmTSBlUVXBkDQ3py
GztMi0h3TPVZ6FkM6OXKjGxuIO1w6uOi8cl+vXUoLPaV9BGBAtacC716/wNH
6PtI
                    "]}, {Automatic}]}}]], 
               1] - $CellContext`\[Phi]\[Infinity]5[
             5, 1, 1, 2, 100]], $CellContext`rho5[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 200.}}, {
                    3, 11, 1, {311}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwt1gk01lkfB/BkJxkkaqxFGcZDKOvzv9/nsWbLlkjksYeEwYSsEYWSJWrs
RNOCSpN9aYQphCahhBZLzZSXqIn0Pu+Z955z7+ece+7v/O65v3vPufIex+y8
169bt46D3bX/N/y/PR41ylrHnUv+9TIpjKNlDqVNkHUaAimJ+u/Jlqy1lxlO
y4S1Vim0wMOJ3273/1A4JYBkrZVtCm4iUBMWvhlpIY7C7wRH5wO3QlCUl8Pv
rCyaTyfkfDiwDT+diVO6NqsA5bSYZp/InZhKi7bZJqAMw23lmf9w/4jK+gcD
Axw08O1b+O7KVzU0TwW9SH6ojo+/eNVp5++CquPBM3NeGqjLz7CcFNSEwbP2
jU9vaaJT+uNAn7MWrryTLpd8pYX0BtNwz8DdOJYSYlq9tBv5IQVZ3r570OHS
PS41ugdvjReU/jTXhpi6dFhaszYcf1YIzRLXwcVWleCLQTp4zq0ZVNKtA1kr
vcAqOV0McNOyH/noIrFVvvHTdV1o/iw+Jbuoi9dq/Hxmunp4krtrVjFED10r
zj2cv+rhN1bilalJPVR1X01tk9SHTSGz67qxPj6HjnFeCtVHqVkoI6VYH+Yy
AnFhvfr4yGS8mZ3XR6HvcQtXcQOYptfcHNQ1wH9qpyVM3AywQ2av/JYTBnBJ
u6b810UDnPsspNV21wCd3sH0rCcGmFTfIKP03gArK1VrLTx0SHQbTtjL0qGZ
NdE2p01HA/NjmZ0lHWSR71STOx33y6WPKITTYeGgYZlxmo5BLlO15UI6+DzP
dehV00F1PLWPa6UjXFZu+vd+Oq7F+B3nm6Dj5bNaAasPdOjaeha4rtKR2SVO
C+KnMKPf0xa7mQK5GWV7bjuFCztUXxWrU/BYSGnS1qeg1voy+5ExhZXT9EBf
Gwo9+/ONvh2kkCO/KJXnTYEm6ezKDGLPb2wr/DuCHcet+CI/jsLqyhkZo1QK
eQvzbh8yKax/mf5RIp/C0UGlMyimMNLeKXukkoJhrfud8zcoVBevmjfWUaD6
M/bdbKTwaFXG4Uo7BXeVWqfiLgr/cWa4XuilkJA6xMoYoiB619MnaYS9boB+
ymWcQsZbiUqNlxTMuRbu889Q4JPpfTP5jsJ97Uru+nkKJ23jFc8tUZhKuCuW
9g8F3HrPkfKVQvFLxflEDoKvoq4vYrkJDhnm9EbxEwg+XjB6J0TQ5GHb4iJK
ELBQs7t3M8HWxI3VBt8TPBA5uuOGLEFU6cMiaQWC1vOjxawfCNYnzpRcphGY
hC6VzmkSpHlwlqvqEjyyE6kIoQg2/FHPCGO7l7hPRLBNvsMbE8n2nkrN1hNs
v5U61seyjTx7efEk28Woj7TTbI/6GvqfZatW4dR0j+385NENn9jekj7pqkII
wg7mVx9my9cYOOrPIPhlC4MrwpCAFimulmBM0DEy55xuSuCg05qUt5cg9L0w
nVgSzCm3aAdYExz29dfIsyF4Ui6h+rsdgTPfXFWqA8F4YOM2a0cCj8G0QjEn
gundrpKjzgT+l2jZRS4E79e+CXm5suN5bb6MuBEMCJdMW7kTMCXnh+6xCG7L
oU3bk0Dhh8xr170ITn/67FXuw467z5K55Edgn/PgaaY/Qb2H5vmUQALpXQXm
sUEECd+4uMKD2fn6jrYEhBJYFAxHeIQR1PoTdecIguiQtMjW4+xzPv703vZo
ArrQTBVXDIFW2XL6m1iCH7V5QrviCbb3ih+oSmTXjaVokJpEILqsJX/kFAF/
mhGPeSpBBBe/lG4awauYvl1KZ9n7PeemmZJJkFT6QWs6i31et+P3GOcSKN4X
0anII1geLtPlvETQNaup71FAkPel06CjiCDrlGRwUhlBhmhguWklQWpR27DA
VYKTymIC/TcIYn/zoZ+/ya4rszHY4Q5BeL9QhUQDQfBB1tOxZvb9mq4TKGon
8Anlo1idBL1K3ReHewh2TSQvWfSx8+Qa2XYMEqxacN7YM8yux/p7fNfHCHrq
473kJwg0Fqs1Od4QFKiOr596S8DjJzjUPk8QUqZbWrJM8Oy5b3D8KkG54ENZ
dQ5gRMmDV44LGMhZKZvhBXrW5VI1gkBHIG0sQhhoGOkOp8TYz8SIJcIjAVyt
/XK9bytQLpVjlisDRAu3Gh7fDtivn6VclACVJRE9ShXgmtXfLa8BPB/zVufS
Bur6zqnM6APp7Q07HgDQ+0RofqbArGrXbh5r4IKXJb3CATD6ZciI6QIsDDpZ
TrKAEr4J+1g/wJp4u0gdA4al60e0jgNuqwKOVgnA9JjrY+8zQFBDrU1sNrCc
x9l/oQCIjXC0qLkM8Oz/tae7GjiT0JkQ1gQIVU/oyfcA58e+LPb9CWzi3Xwj
agrI19zls/M98L27peyfX4DidN+ReF4G/DWLv/fcwsCesWE3YxUGOBI2lu2k
M9C30+QN/z4GLvbHKP3lzoBX+J2A/lAG1KX+rq5NYgBmly0MihiwCXOd7b7L
gHuJeLL9IAMhvX3yE28ZSPic3OrPxcR5BcplWZqJUpvlTwnaTGxbneEKP8RE
edWoiF8CEwr2D2VcKpmoWGtWsX7IhOLVah3GPBOV+0uMtcQNsZMjy26nniFy
W0QDrYINwRWVnfxTpSFC92wqvvjcEJMLOfVtokbYVyM+9MbMCC0BF94Jxhnh
RyUJbo07Rvin2eJVFbcxum3jO6QdjZEzXVecXWkMj+i5GP5PxlD7TuZQnKkJ
vlbY6S3lmeCBbopkwKwJ9l5KkGhnmeKPL9GbxZ+ZwswlQtzfwQw9TcGb2vrM
YCoVILbJdC+6T3iLHmnfC5PxwyKtuuZICo8uKVg0R4dQnlr0DQt8u3yr1dnX
EnSq30pH3gpRw3PPNz+zQn0Qd+BSjjWWeeRXHlvvA9ectrCWjg3OWk/IrfXY
QKLulEaPsy1Kt9CMst7aQjnuyf5D0Xa4/fqE744N9qCbK0TOF9gjQ/qmbHmi
A17M07v2++2HWueDQD5rR8TlHRBr0jyAAf/XDUe3OEGOCnGX++aEEJE1nsev
nbEmrT7FcnJBmrJH0/zDQ5DUzsmNI26oNOw6tvH2YWxVWq2wznaHO01cdLMV
C1VatLhxHg80urYXteh6oveUXWthoBcmal6PxxR7Y2Ek4qvrkA8iA5vWaHO+
+Pe3dgT/BQCmIY0=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwl01FEHQAUgOFbkiRJkiRpSZIkSZIkSZIkV5IkuZIkLUmSJEmSZCZJkiSZ
mUmSJElmkmQmSZKZZCaTJJNk37XDd17Py3/ehN4GeyMCgUBJeJlIoogmhlji
iCeBRJJIJoVU0kgng0yyyCaHXPLIp4BCiigO36SUMsqpoJIqqqmhljrqaSBI
I00000IrbbQTooNOuuimh1766GeAQYYYZoRRxhhngkmmmGaGWd7xnjnmWWCR
JZZZYZU11vnARz7xmQ022WKbHXbZY58DDvnCV4445oRTvvGdM8654JIrrvnB
T2645Re/ueMP9zzwyBN/eeaFVwIaiCSKaGKIJY54EkgkiWRSSCWNdDLIJIts
csglj3wKKKSI4oj/zZVSRjkVVFJFNTXUUkc9DQRppIlmWmiljXZCdNBJF930
EI68j34GGGSIYUYYZYxxJphkimlmmOUd75ljngUWWWKZFVZZY50PfOQTn9lg
ky222WGXPfY54JAvfOWIY0445RvfOeOcCy654pof/OSGW37xmzv+cM8Djzzx
l2deeCX8/JFEEU0MscQRTwKJJJFMCqmkkU4GmWSRTQ655JFPAYUUUUwJpZRR
TgWVVFFNDbXUUU8DQRppopkWWmmjnRAddNJFNz308g+yg43l
                    "], CompressedData["
1:eJwN1nc81V8YB/BrC8m9X5vKJhWKqIzniWhIRkZSqeyZShn9MkoqJSMaMlNK
iBCyI0VmyqiQ7CKjuPda+X3/fL/O66zPeZ3nHOlTpy2cWCgUijcrhfIm2Cv7
9ms6OBhIjg9oKkOA+tBiLGnDDnuhFFAG744PB+6Rjg9OTrHfqwyOLk35DNIv
51xMrVdvBL6O59NHSumgukztFPy2EdxtxRTfkL6o7S4pm78JmgbsRJ6X0eF8
+/0ClWcqsFP7sX56OR1auxTYW93UgEfnpMOLCjrE0uO9hJO3gGiL8aXmSjo4
lsvwJcxtBWuxrbHO1XT4+lNhfe+sBrz6GDezsYYOcdK+2T77tCApymaH/Fs6
JPhb+ztz7YSNios9du/okFMTc1x6ny78Vi19+62eDmudo9R+3ke4M3hTrrCR
Dq/fiPKlMPWh3Vr0oFoLHXIvcXW+2GQIvj2p6cw2Oty9udAr0bAHGMOMfInP
dHA6Gltm9XM/pMh9jpzppIPCX81irVETEM+bvSj+lQ47j4YIqxeZQfe7lylP
eulQ4ZVlad9sAUvdNYe/99MBsi+7/Gu1hFxDh6/nhugwR1Oe7dlgA7ozz/6d
HaPDjRdiwYNTtvBvmm1BbIIO2sF+jZMPj8Jeo5ZR2Wk6RB99WXK52B7KXvSd
SJulw5gG3yeZFyfhz9iQTxWTDlzPZ6KUfBxA/Od3/n3L5PiX82e/+zsBi3fx
PVNWBlzZ/WL2V5cL/Nm86vgYFwMqzirfDUlzhzRdQa43fAxIrgvVPLXRCzI7
8n/TaAw4avBnKoDXB4aoo3XTIgzg3EO7615+BiScA6zOrGOAxPXX/IWvzoHH
5rJGITkGjO/UdukLPQ+nrnUr7lImx4tRZReK9oOct0/0ubYwYGjp1afU3wHQ
wpokELKdAUHrzHaYZ/0HmTdljDiBAZkpeq4Lm4LBW7m2R9qIATEDX9kc2EJh
O/+XzlETBiSUUKU+Pr4M6Tucj56xZkBiWO3ZU1fDwKKIVXrmGAPYT3OWp+mF
Q0eBVIGQMwMicz9tYNt6HUT5C/bOeTPgcPxsi5Z7BLCv/773uT/Z//Pcq6uz
t0C87JGgbigDAjnoc1+Mo0Cg/Ibo1QgGlM1wiEQwooHtiGTDgzgGWApuLWg6
HwuOKtJf7qYw4B9Aw1+lONBVSRiyySTz5fiQZF8WD8I1TsnfCxjw1dOV+T3o
HvTvsagzqmJAe93QYP3FB+B15Ifj80YGxBUYBO8pfwi/3+R+LOpkQE6yH0p+
SoLqI1ZBiQNkfu1WiacFU+E2W3DI+SkGPDjzs2HCIQ0EDx3df2KZ3F+ckohB
3yOY2iJg27WKCbfveC+b6D2GNv5CF20RJjhV5fTZv3sCj84lTj+VZ4Jle8+t
+v+eghrP+28625hgF8NeKuuWCQcWlTzWGzEhcsPzjJy4LIiSUX+RasmEtbXH
t6mF5cA2ipXJRkcm9E10XvuWmQu/7mzv6PFlwpCY25lpzpew5rWHQ1c4E/gl
V09wHsuHExkvbusnMMFc3VhXtLcAPDRvv2PPYsLdsm7xUo1XIPW5iDJZzgSv
x9qXfPOKoP4Qs35tGxNaBwXOXbEqAeYrDeuSISYI3fj2dZ1yKVSubPcaXWCC
3iG1osJt5cARVb5RhX8evm2TXZXHVwlsf+M3l8vMw5yXJe3pqmoInj60rmD7
PBx7Z3lRVOkNtLZ+99lhNg/WNvZd8U41MPQ0TPei2zw0SkgRte9qIeNKcN2d
4Hlgf1gWuImzDgzLPRjC9+ZB0ssktsrxHTz0cP+glDcPKSoebM9G3oPsX0vJ
Px/mQb+xRrkhugGiz4ffTBudhw2Ho8qHXBvB40dVyjBlAbSuDZ7QEG6G36MG
iWUSC+BoHCS8NN4C/WFyS/u2L8BWddeXJX5t8OOezu5y6wW4ZBqYbHHnI/i9
lf5i4LcAsm+16TZN7cCVEXB7XdwCWN+hHkv99Ql4OOr3FOcvQOuMVziHbAdk
OHUf1Pq0AAfkVVdq/DuhJWd4XfPcAviatZjfneqCkReDmjniixDJV5vQdfML
+LsMCRH6i2CpcKblnsU32Ptxyk7QcRG+O3XKDI/0wPAVpSXi+iKMDf7sL0vu
g6lqpg+8WASB9gpWRegHofWnnzZ0LkLltKq8puEP8C+caB5nWQI+L/lfZo4D
kPQ6dN+I6hLoq8z1Pk8ZBEH7IiXBw0tg9mV3BFfZECxUm7DcvrwE67VHS5wn
h6F83sowPHcJNpXWV/nrjIJvzub1274vAePOH9MDz8Zgat5g5xfqMqQty249
tu0XdKj43hc9uAybc9SGOiQm4PJd3c/1t5chI9A4pl9zEoLWymc4f16Gpifd
n6eNpsHrTeb5kPX/oODJpFF53AzoBj489drnH/TmmlJ7Vv2F+nnb6qb6f3At
yt1DPXsWfqmPXLPQXgG5wXrtOLJurxkZC7IoXYFLm8LLRz3mQfrDF5Z+WQre
p7ouuBxfAqriWMncWQoGhuXG7WxcgdWifbP1jRSsiml0NBhiwTDtgbcM0q3C
9authllQPyL/nkITBQ9nL3Y4j7Dgz52mXlakRZuoBf6jLLg2rMQwjHQwH9+T
iDEWjEiclCogzck+kZX4kwVXDc/2CDRTsPMsy1j1OAs+0FJ77E1acm+p3/Bv
Fpze9+hCE+krW+XseKZZ0KR7v1jARwo6T/IbRHKw4p+eCjnlDgruKV+kbZFg
RWplfsr3bgr2mEcszamxYtjuP9EPeihYcCdtS48RK3LtOWTbzUquM+JY4qYN
bCiU3fvkrzILbr6bWWgtxo5XxxujuK1Y0CdyYe16UQ48p6RWvi2UBX1Ngu8b
KXCirGCIxcNcFhy8KvIxbDcXji5L+HhMseCMtpjTlY/c6NeRl/1OgRWN3/ZW
CW7iwel0Nkelk6xYl1b3qyGBF2E8NaY8mRV1pOPDW9auxnv1c+vOfWLF6F2e
Y06u/Lh9y96JIB42bGPKTa+pXoNVq0Kz6AZsqF+pZLE2VgBfd5l/mApmQ7cl
uif7fiq2P+gfuFTJhpWnTzTJcNEwDqsE81fY0BuFErLqaVjs/VjMRosdZZLS
xz3cCSytkxnp8GHHduf13vWrBXFIw4xzazY7RqbZO/x5KYjZNXmXPH+yY+jx
yLZFKyFUlrvueUWJA3Xcp5W6mEJ4tynE0z+EA49nTtt6tgmjSnxq1ItvHBg4
LXowLFUEz+tYR7Ps5MT3KoVvHzqJos4TL7reQ060/bvvKENCDNXdHR3lVzhx
V2Ll7NsqMbz02DPG0YnMMZZ4ZWgijoSB35+kZi5MeGjK8q9aHNetcMo7a3Hj
avfrbaMiEpho1CS55xE37nu4OemRqQRK5m619ZZfhVR2n0oVFwnkDkreE/Vs
FfoVnI7hNpFAKRmVpFp+HqwJ7PvhLiyBmbv702fP8aC05r+2A7Xi6GAywVXW
xYOfao9r1FqJ48rShQMlO3jxxOHv3t5tYshl1px2/wEvslc6SFlqimFqb56A
IIMXh33f1xVFiOLMJ4rwlDkfZsvfaplsE8Fm3in7DV/5sClPflgjQRgvjNkY
E3arMbn+b3WspRDafHUPf1OxGi+fb0r02SeIHlf5TIMk+NEz91D6NSCwRb9U
8LAvP4pLpvPb7aShRsA4h2c9P0qNRf+XrENFiRzOIwMia3By6ayW8V4BTAhZ
s3781Bo0d1m74FvBj6pB7FfKMtfgnmzf1lCW1fggoV1vmVsAy9/+6fI4y4Od
Nhpnrm4XQE7dZJ629dwo+J/qlhEHARwVOJ12gIsTWRfOm9+4KYDztvZZ7PLs
qFd6P7EtVwAZWVfVnH1ZMZCblU3oowBGMBdmn09T0Nzt1I2MKQGMVMu/f1CZ
rCsBbJlNvFT8ei3U5nfpEpw/uen3O3kq3ir7ECJ7cwFU3r7Iatalol3TcFn2
HSac5H1+j+0wFR96ar2RC6bDRHhrOI8PFQf2iwZteToLAg077KTDqZhn43Wr
kO0vRDvZxwUlUHFZuSz8deQMZOjmh5nnUHF1HHSZwDSwBg3Y1VZS0VbhS26x
wiR8CDOz6f9ExWMX1c4KeozD1wCeb5KjVAy9zdt3iesn+Ec+tStkUjFJddTU
dHIEahaadb5w05Dj0P0IC8FhsJRKdiwSoSGq4Q1Dn0FwSFYI95GnYUfYe9WL
Cz9ArUdCRXErDTd/a2qPzO6HspqDmlt20bCC//Cr0ZN9oJ+i0zx+kIZ9n3uW
bT58A/+gYq8QOxraz9jU7bryBUZs7MVpLjQspLlsMQ/pApmikKjKM2R7nvr2
08UdMBPtoZFykYZhKpu3Gkt9htgP6d8awmg4OD2WtVLQDos3WY4VRtHQ2op4
ZEh8BI1Tqql5D2goa57I032gFdpm2su/PaKhl3GPUuCHJjBNSt19MIuGMbtW
QtfHfgBvrXTxtQU0NNswuzR4vx6C2g5KHimloeKVKEprxzuIccl/KviGhtqj
mVWnd9UBh59WkX8DDcf3Trs6HasFuQGRCumPNEzup2vJFL+B740m0ord5HqH
r9ve210N2bemIhL7aPjnYImpzWIFmF2KSYwdoqHvzYneu8VlYCHMcVnkF1m3
PP4xFQteg7l49gmtKRoqy3sWKA4Xw/lHmbl5czSs1sjelvjqFST++Focv0hD
rsQNbjdbCyCy8FPEPIVAds+5E+kK+VCJ0SITHAQqhqtn8L7Mgzv1P+oDeQjU
2HSMP6P5BRAyuSt5/AT2604GcFzJhip3+7P3aQQGtehJJvg9B9d/q6ziRQg0
rlO3Oc54CkqXfYwlJQlsdzt55VfzE+g+0DWvI0XgYE55qvZEOmSvenuMXY5A
ykafSnejR4CnaIcvKRLYnPs2aao9FUYCY4VfKhN4+LChurJgCrxPfOf0dDOB
muf0amQbE8FtMfpOwBbS746KZ88/gJeyp3ZNahDoa7u8YhN5D1aruCNtO4Ex
11KHBH3jod+6WHZ6J4GJfP1yOSl3wMnoaUm0LoERGyaSOthjQaR066lFso68
4sms+i8hGjr9545r6hN461GtYGz+bfK/eO7ZWkMCi1/HF1rE3YSGTE2jsj3k
/i+2PFj4eR0yvBeyxPYTeFV4Vmp9cjj83PbcbdcBAsUFYnLWpIaB1oh43I6D
BKbbcv9NH7gMWd4vCG4zMv+Gu8L2dqGwTlWo/6U5+c7QK5paWUIAhzh1fxwi
UIqretz10X+wSUmfu8uKwI1nk/MDagNAS8e15KENgZfCY+dHTPygxvKHiqYt
gZNHRC/6qpwHoxBvWvYRAgOvuuaKWZ+DW0UhNNajZD7H7w3+KTkDSy/7xXSO
ETggKeYabOIDh/LZI3qOE/jlozMrhdMLqCxmHmYnCPyPSv90hOIO/XTjG8kn
CXS3f8X21MsFmmayjzedIrDuQ4WK6nYnYHZIOPQ5EHjBkMIqZ+oAida+u7sd
CXxaQdhZPzkJ/iNHqRVOBNp02/Gaq50A4Rbf0ClnAl+/3Jc7kXUU1PtMP664
EGjZZtV3JMYWJjNsXP+6kvPxHVKCGWsovHrifosbgR8E3DieFlgCm/XM9zjy
XS5LThDUfGcBGuVh4vs8CDxTVGibIW4OtFb2x79J100oeAYYm0KHaaxNkyeB
+8xqTWZvG0PHnTz1GC8Cf/gnDUj57oUusz0B6E2gQnKqdUi3IbzPSwvvJZ1W
2Ztt/MgAKuPc1nicJnCb2elXsxW7IOEgffc4ac7EYWtPSQSFott/7X0IbP10
n3PEQRc8E9Kfr5AOiapVLni9A7IOBvLdOkPgssj26PxCTfDYXu3KfZZAptCz
i4ZqGhDcQjnsR9r+wuCQI3UrxHUG/vpK2tOZotlooAYt+/waNM4R+KxSypXb
ZzPsnpIzDSdd8l4tfudbZcDKFGCQrj627W6WkSIcor8bs/UlUPgmuqp6yYGO
Rk1nHunqlWGvGaoMPNOyZPtHeuxvmYOjmBRcVkpb0j9P4DVfs1qdPknwOeVP
CSVt49Bi58slDhK/b615TfpCQeGqnrsicOBacBnXBfJ+FkbqbDwuCA3foykH
SCf9PqcTX0uFmZcaLddINx+ye71ffw2oyGqklpMWfcR3Q7OYFxyCPJLHSd8y
2pZEVHJDSHF/vpAfeV5nXcY37uCE0XreB9qkXdvXDy5Q2YErpST8DOnBhnI6
sZUFfvnVLqWQ1vr9O8+qcVnP/dp173rSx95ojeWuWdCr3iE/N056VKxZj3OZ
rreqV9qN159APxNT1lKvWT3eH5K+iqTdw3c/EDH6o9dtVZeIpE+HNoYcOTOt
p/Lr5x9H0oGmBffWTI/rGa5SZA0jrXI1lKHMNaa35+HnnmTSBlUVXBkDQ3py
GztMi0h3TPVZ6FkM6OXKjGxuIO1w6uOi8cl+vXUoLPaV9BGBAtacC716/wNH
6PtI
                    "]}, {Automatic}]}}]], 1], 5, 1, 1, 2] Sin[Part[
               Evaluate[
                ReplaceAll[
                 $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                   InterpolatingFunction[{{0., 200.}}, {
                    3, 11, 1, {311}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJwt1gk01lkfB/BkJxkkaqxFGcZDKOvzv9/nsWbLlkjksYeEwYSsEYWSJWrs
RNOCSpN9aYQphCahhBZLzZSXqIn0Pu+Z955z7+ece+7v/O65v3vPufIex+y8
169bt46D3bX/N/y/PR41ylrHnUv+9TIpjKNlDqVNkHUaAimJ+u/Jlqy1lxlO
y4S1Vim0wMOJ3273/1A4JYBkrZVtCm4iUBMWvhlpIY7C7wRH5wO3QlCUl8Pv
rCyaTyfkfDiwDT+diVO6NqsA5bSYZp/InZhKi7bZJqAMw23lmf9w/4jK+gcD
Axw08O1b+O7KVzU0TwW9SH6ojo+/eNVp5++CquPBM3NeGqjLz7CcFNSEwbP2
jU9vaaJT+uNAn7MWrryTLpd8pYX0BtNwz8DdOJYSYlq9tBv5IQVZ3r570OHS
PS41ugdvjReU/jTXhpi6dFhaszYcf1YIzRLXwcVWleCLQTp4zq0ZVNKtA1kr
vcAqOV0McNOyH/noIrFVvvHTdV1o/iw+Jbuoi9dq/Hxmunp4krtrVjFED10r
zj2cv+rhN1bilalJPVR1X01tk9SHTSGz67qxPj6HjnFeCtVHqVkoI6VYH+Yy
AnFhvfr4yGS8mZ3XR6HvcQtXcQOYptfcHNQ1wH9qpyVM3AywQ2av/JYTBnBJ
u6b810UDnPsspNV21wCd3sH0rCcGmFTfIKP03gArK1VrLTx0SHQbTtjL0qGZ
NdE2p01HA/NjmZ0lHWSR71STOx33y6WPKITTYeGgYZlxmo5BLlO15UI6+DzP
dehV00F1PLWPa6UjXFZu+vd+Oq7F+B3nm6Dj5bNaAasPdOjaeha4rtKR2SVO
C+KnMKPf0xa7mQK5GWV7bjuFCztUXxWrU/BYSGnS1qeg1voy+5ExhZXT9EBf
Gwo9+/ONvh2kkCO/KJXnTYEm6ezKDGLPb2wr/DuCHcet+CI/jsLqyhkZo1QK
eQvzbh8yKax/mf5RIp/C0UGlMyimMNLeKXukkoJhrfud8zcoVBevmjfWUaD6
M/bdbKTwaFXG4Uo7BXeVWqfiLgr/cWa4XuilkJA6xMoYoiB619MnaYS9boB+
ymWcQsZbiUqNlxTMuRbu889Q4JPpfTP5jsJ97Uru+nkKJ23jFc8tUZhKuCuW
9g8F3HrPkfKVQvFLxflEDoKvoq4vYrkJDhnm9EbxEwg+XjB6J0TQ5GHb4iJK
ELBQs7t3M8HWxI3VBt8TPBA5uuOGLEFU6cMiaQWC1vOjxawfCNYnzpRcphGY
hC6VzmkSpHlwlqvqEjyyE6kIoQg2/FHPCGO7l7hPRLBNvsMbE8n2nkrN1hNs
v5U61seyjTx7efEk28Woj7TTbI/6GvqfZatW4dR0j+385NENn9jekj7pqkII
wg7mVx9my9cYOOrPIPhlC4MrwpCAFimulmBM0DEy55xuSuCg05qUt5cg9L0w
nVgSzCm3aAdYExz29dfIsyF4Ui6h+rsdgTPfXFWqA8F4YOM2a0cCj8G0QjEn
gundrpKjzgT+l2jZRS4E79e+CXm5suN5bb6MuBEMCJdMW7kTMCXnh+6xCG7L
oU3bk0Dhh8xr170ITn/67FXuw467z5K55Edgn/PgaaY/Qb2H5vmUQALpXQXm
sUEECd+4uMKD2fn6jrYEhBJYFAxHeIQR1PoTdecIguiQtMjW4+xzPv703vZo
ArrQTBVXDIFW2XL6m1iCH7V5QrviCbb3ih+oSmTXjaVokJpEILqsJX/kFAF/
mhGPeSpBBBe/lG4awauYvl1KZ9n7PeemmZJJkFT6QWs6i31et+P3GOcSKN4X
0anII1geLtPlvETQNaup71FAkPel06CjiCDrlGRwUhlBhmhguWklQWpR27DA
VYKTymIC/TcIYn/zoZ+/ya4rszHY4Q5BeL9QhUQDQfBB1tOxZvb9mq4TKGon
8Anlo1idBL1K3ReHewh2TSQvWfSx8+Qa2XYMEqxacN7YM8yux/p7fNfHCHrq
473kJwg0Fqs1Od4QFKiOr596S8DjJzjUPk8QUqZbWrJM8Oy5b3D8KkG54ENZ
dQ5gRMmDV44LGMhZKZvhBXrW5VI1gkBHIG0sQhhoGOkOp8TYz8SIJcIjAVyt
/XK9bytQLpVjlisDRAu3Gh7fDtivn6VclACVJRE9ShXgmtXfLa8BPB/zVufS
Bur6zqnM6APp7Q07HgDQ+0RofqbArGrXbh5r4IKXJb3CATD6ZciI6QIsDDpZ
TrKAEr4J+1g/wJp4u0gdA4al60e0jgNuqwKOVgnA9JjrY+8zQFBDrU1sNrCc
x9l/oQCIjXC0qLkM8Oz/tae7GjiT0JkQ1gQIVU/oyfcA58e+LPb9CWzi3Xwj
agrI19zls/M98L27peyfX4DidN+ReF4G/DWLv/fcwsCesWE3YxUGOBI2lu2k
M9C30+QN/z4GLvbHKP3lzoBX+J2A/lAG1KX+rq5NYgBmly0MihiwCXOd7b7L
gHuJeLL9IAMhvX3yE28ZSPic3OrPxcR5BcplWZqJUpvlTwnaTGxbneEKP8RE
edWoiF8CEwr2D2VcKpmoWGtWsX7IhOLVah3GPBOV+0uMtcQNsZMjy26nniFy
W0QDrYINwRWVnfxTpSFC92wqvvjcEJMLOfVtokbYVyM+9MbMCC0BF94Jxhnh
RyUJbo07Rvin2eJVFbcxum3jO6QdjZEzXVecXWkMj+i5GP5PxlD7TuZQnKkJ
vlbY6S3lmeCBbopkwKwJ9l5KkGhnmeKPL9GbxZ+ZwswlQtzfwQw9TcGb2vrM
YCoVILbJdC+6T3iLHmnfC5PxwyKtuuZICo8uKVg0R4dQnlr0DQt8u3yr1dnX
EnSq30pH3gpRw3PPNz+zQn0Qd+BSjjWWeeRXHlvvA9ectrCWjg3OWk/IrfXY
QKLulEaPsy1Kt9CMst7aQjnuyf5D0Xa4/fqE744N9qCbK0TOF9gjQ/qmbHmi
A17M07v2++2HWueDQD5rR8TlHRBr0jyAAf/XDUe3OEGOCnGX++aEEJE1nsev
nbEmrT7FcnJBmrJH0/zDQ5DUzsmNI26oNOw6tvH2YWxVWq2wznaHO01cdLMV
C1VatLhxHg80urYXteh6oveUXWthoBcmal6PxxR7Y2Ek4qvrkA8iA5vWaHO+
+Pe3dgT/BQCmIY0=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwl01FEHQAUgOFbkiRJkiRpSZIkSZIkSZIkV5IkuZIkLUmSJEmSZCZJkiSZ
mUmSJElmkmQmSZKZZCaTJJNk37XDd17Py3/ehN4GeyMCgUBJeJlIoogmhlji
iCeBRJJIJoVU0kgng0yyyCaHXPLIp4BCiigO36SUMsqpoJIqqqmhljrqaSBI
I00000IrbbQTooNOuuimh1766GeAQYYYZoRRxhhngkmmmGaGWd7xnjnmWWCR
JZZZYZU11vnARz7xmQ022WKbHXbZY58DDvnCV4445oRTvvGdM8654JIrrvnB
T2645Re/ueMP9zzwyBN/eeaFVwIaiCSKaGKIJY54EkgkiWRSSCWNdDLIJIts
csglj3wKKKSI4oj/zZVSRjkVVFJFNTXUUkc9DQRppIlmWmiljXZCdNBJF930
EI68j34GGGSIYUYYZYxxJphkimlmmOUd75ljngUWWWKZFVZZY50PfOQTn9lg
ky222WGXPfY54JAvfOWIY0445RvfOeOcCy654pof/OSGW37xmzv+cM8Djzzx
l2deeCX8/JFEEU0MscQRTwKJJJFMCqmkkU4GmWSRTQ655JFPAYUUUUwJpZRR
TgWVVFFNDbXUUU8DQRppopkWWmmjnRAddNJFNz308g+yg43l
                    "], CompressedData["
1:eJwN1nc81V8YB/BrC8m9X5vKJhWKqIzniWhIRkZSqeyZShn9MkoqJSMaMlNK
iBCyI0VmyqiQ7CKjuPda+X3/fL/O66zPeZ3nHOlTpy2cWCgUijcrhfIm2Cv7
9ms6OBhIjg9oKkOA+tBiLGnDDnuhFFAG744PB+6Rjg9OTrHfqwyOLk35DNIv
51xMrVdvBL6O59NHSumgukztFPy2EdxtxRTfkL6o7S4pm78JmgbsRJ6X0eF8
+/0ClWcqsFP7sX56OR1auxTYW93UgEfnpMOLCjrE0uO9hJO3gGiL8aXmSjo4
lsvwJcxtBWuxrbHO1XT4+lNhfe+sBrz6GDezsYYOcdK+2T77tCApymaH/Fs6
JPhb+ztz7YSNios9du/okFMTc1x6ny78Vi19+62eDmudo9R+3ke4M3hTrrCR
Dq/fiPKlMPWh3Vr0oFoLHXIvcXW+2GQIvj2p6cw2Oty9udAr0bAHGMOMfInP
dHA6Gltm9XM/pMh9jpzppIPCX81irVETEM+bvSj+lQ47j4YIqxeZQfe7lylP
eulQ4ZVlad9sAUvdNYe/99MBsi+7/Gu1hFxDh6/nhugwR1Oe7dlgA7ozz/6d
HaPDjRdiwYNTtvBvmm1BbIIO2sF+jZMPj8Jeo5ZR2Wk6RB99WXK52B7KXvSd
SJulw5gG3yeZFyfhz9iQTxWTDlzPZ6KUfBxA/Od3/n3L5PiX82e/+zsBi3fx
PVNWBlzZ/WL2V5cL/Nm86vgYFwMqzirfDUlzhzRdQa43fAxIrgvVPLXRCzI7
8n/TaAw4avBnKoDXB4aoo3XTIgzg3EO7615+BiScA6zOrGOAxPXX/IWvzoHH
5rJGITkGjO/UdukLPQ+nrnUr7lImx4tRZReK9oOct0/0ubYwYGjp1afU3wHQ
wpokELKdAUHrzHaYZ/0HmTdljDiBAZkpeq4Lm4LBW7m2R9qIATEDX9kc2EJh
O/+XzlETBiSUUKU+Pr4M6Tucj56xZkBiWO3ZU1fDwKKIVXrmGAPYT3OWp+mF
Q0eBVIGQMwMicz9tYNt6HUT5C/bOeTPgcPxsi5Z7BLCv/773uT/Z//Pcq6uz
t0C87JGgbigDAjnoc1+Mo0Cg/Ibo1QgGlM1wiEQwooHtiGTDgzgGWApuLWg6
HwuOKtJf7qYw4B9Aw1+lONBVSRiyySTz5fiQZF8WD8I1TsnfCxjw1dOV+T3o
HvTvsagzqmJAe93QYP3FB+B15Ifj80YGxBUYBO8pfwi/3+R+LOpkQE6yH0p+
SoLqI1ZBiQNkfu1WiacFU+E2W3DI+SkGPDjzs2HCIQ0EDx3df2KZ3F+ckohB
3yOY2iJg27WKCbfveC+b6D2GNv5CF20RJjhV5fTZv3sCj84lTj+VZ4Jle8+t
+v+eghrP+28625hgF8NeKuuWCQcWlTzWGzEhcsPzjJy4LIiSUX+RasmEtbXH
t6mF5cA2ipXJRkcm9E10XvuWmQu/7mzv6PFlwpCY25lpzpew5rWHQ1c4E/gl
V09wHsuHExkvbusnMMFc3VhXtLcAPDRvv2PPYsLdsm7xUo1XIPW5iDJZzgSv
x9qXfPOKoP4Qs35tGxNaBwXOXbEqAeYrDeuSISYI3fj2dZ1yKVSubPcaXWCC
3iG1osJt5cARVb5RhX8evm2TXZXHVwlsf+M3l8vMw5yXJe3pqmoInj60rmD7
PBx7Z3lRVOkNtLZ+99lhNg/WNvZd8U41MPQ0TPei2zw0SkgRte9qIeNKcN2d
4Hlgf1gWuImzDgzLPRjC9+ZB0ssktsrxHTz0cP+glDcPKSoebM9G3oPsX0vJ
Px/mQb+xRrkhugGiz4ffTBudhw2Ho8qHXBvB40dVyjBlAbSuDZ7QEG6G36MG
iWUSC+BoHCS8NN4C/WFyS/u2L8BWddeXJX5t8OOezu5y6wW4ZBqYbHHnI/i9
lf5i4LcAsm+16TZN7cCVEXB7XdwCWN+hHkv99Ql4OOr3FOcvQOuMVziHbAdk
OHUf1Pq0AAfkVVdq/DuhJWd4XfPcAviatZjfneqCkReDmjniixDJV5vQdfML
+LsMCRH6i2CpcKblnsU32Ptxyk7QcRG+O3XKDI/0wPAVpSXi+iKMDf7sL0vu
g6lqpg+8WASB9gpWRegHofWnnzZ0LkLltKq8puEP8C+caB5nWQI+L/lfZo4D
kPQ6dN+I6hLoq8z1Pk8ZBEH7IiXBw0tg9mV3BFfZECxUm7DcvrwE67VHS5wn
h6F83sowPHcJNpXWV/nrjIJvzub1274vAePOH9MDz8Zgat5g5xfqMqQty249
tu0XdKj43hc9uAybc9SGOiQm4PJd3c/1t5chI9A4pl9zEoLWymc4f16Gpifd
n6eNpsHrTeb5kPX/oODJpFF53AzoBj489drnH/TmmlJ7Vv2F+nnb6qb6f3At
yt1DPXsWfqmPXLPQXgG5wXrtOLJurxkZC7IoXYFLm8LLRz3mQfrDF5Z+WQre
p7ouuBxfAqriWMncWQoGhuXG7WxcgdWifbP1jRSsiml0NBhiwTDtgbcM0q3C
9authllQPyL/nkITBQ9nL3Y4j7Dgz52mXlakRZuoBf6jLLg2rMQwjHQwH9+T
iDEWjEiclCogzck+kZX4kwVXDc/2CDRTsPMsy1j1OAs+0FJ77E1acm+p3/Bv
Fpze9+hCE+krW+XseKZZ0KR7v1jARwo6T/IbRHKw4p+eCjnlDgruKV+kbZFg
RWplfsr3bgr2mEcszamxYtjuP9EPeihYcCdtS48RK3LtOWTbzUquM+JY4qYN
bCiU3fvkrzILbr6bWWgtxo5XxxujuK1Y0CdyYe16UQ48p6RWvi2UBX1Ngu8b
KXCirGCIxcNcFhy8KvIxbDcXji5L+HhMseCMtpjTlY/c6NeRl/1OgRWN3/ZW
CW7iwel0Nkelk6xYl1b3qyGBF2E8NaY8mRV1pOPDW9auxnv1c+vOfWLF6F2e
Y06u/Lh9y96JIB42bGPKTa+pXoNVq0Kz6AZsqF+pZLE2VgBfd5l/mApmQ7cl
uif7fiq2P+gfuFTJhpWnTzTJcNEwDqsE81fY0BuFErLqaVjs/VjMRosdZZLS
xz3cCSytkxnp8GHHduf13vWrBXFIw4xzazY7RqbZO/x5KYjZNXmXPH+yY+jx
yLZFKyFUlrvueUWJA3Xcp5W6mEJ4tynE0z+EA49nTtt6tgmjSnxq1ItvHBg4
LXowLFUEz+tYR7Ps5MT3KoVvHzqJos4TL7reQ060/bvvKENCDNXdHR3lVzhx
V2Ll7NsqMbz02DPG0YnMMZZ4ZWgijoSB35+kZi5MeGjK8q9aHNetcMo7a3Hj
avfrbaMiEpho1CS55xE37nu4OemRqQRK5m619ZZfhVR2n0oVFwnkDkreE/Vs
FfoVnI7hNpFAKRmVpFp+HqwJ7PvhLiyBmbv702fP8aC05r+2A7Xi6GAywVXW
xYOfao9r1FqJ48rShQMlO3jxxOHv3t5tYshl1px2/wEvslc6SFlqimFqb56A
IIMXh33f1xVFiOLMJ4rwlDkfZsvfaplsE8Fm3in7DV/5sClPflgjQRgvjNkY
E3arMbn+b3WspRDafHUPf1OxGi+fb0r02SeIHlf5TIMk+NEz91D6NSCwRb9U
8LAvP4pLpvPb7aShRsA4h2c9P0qNRf+XrENFiRzOIwMia3By6ayW8V4BTAhZ
s3781Bo0d1m74FvBj6pB7FfKMtfgnmzf1lCW1fggoV1vmVsAy9/+6fI4y4Od
Nhpnrm4XQE7dZJ629dwo+J/qlhEHARwVOJ12gIsTWRfOm9+4KYDztvZZ7PLs
qFd6P7EtVwAZWVfVnH1ZMZCblU3oowBGMBdmn09T0Nzt1I2MKQGMVMu/f1CZ
rCsBbJlNvFT8ei3U5nfpEpw/uen3O3kq3ir7ECJ7cwFU3r7Iatalol3TcFn2
HSac5H1+j+0wFR96ar2RC6bDRHhrOI8PFQf2iwZteToLAg077KTDqZhn43Wr
kO0vRDvZxwUlUHFZuSz8deQMZOjmh5nnUHF1HHSZwDSwBg3Y1VZS0VbhS26x
wiR8CDOz6f9ExWMX1c4KeozD1wCeb5KjVAy9zdt3iesn+Ec+tStkUjFJddTU
dHIEahaadb5w05Dj0P0IC8FhsJRKdiwSoSGq4Q1Dn0FwSFYI95GnYUfYe9WL
Cz9ArUdCRXErDTd/a2qPzO6HspqDmlt20bCC//Cr0ZN9oJ+i0zx+kIZ9n3uW
bT58A/+gYq8QOxraz9jU7bryBUZs7MVpLjQspLlsMQ/pApmikKjKM2R7nvr2
08UdMBPtoZFykYZhKpu3Gkt9htgP6d8awmg4OD2WtVLQDos3WY4VRtHQ2op4
ZEh8BI1Tqql5D2goa57I032gFdpm2su/PaKhl3GPUuCHJjBNSt19MIuGMbtW
QtfHfgBvrXTxtQU0NNswuzR4vx6C2g5KHimloeKVKEprxzuIccl/KviGhtqj
mVWnd9UBh59WkX8DDcf3Trs6HasFuQGRCumPNEzup2vJFL+B740m0ord5HqH
r9ve210N2bemIhL7aPjnYImpzWIFmF2KSYwdoqHvzYneu8VlYCHMcVnkF1m3
PP4xFQteg7l49gmtKRoqy3sWKA4Xw/lHmbl5czSs1sjelvjqFST++Focv0hD
rsQNbjdbCyCy8FPEPIVAds+5E+kK+VCJ0SITHAQqhqtn8L7Mgzv1P+oDeQjU
2HSMP6P5BRAyuSt5/AT2604GcFzJhip3+7P3aQQGtehJJvg9B9d/q6ziRQg0
rlO3Oc54CkqXfYwlJQlsdzt55VfzE+g+0DWvI0XgYE55qvZEOmSvenuMXY5A
ykafSnejR4CnaIcvKRLYnPs2aao9FUYCY4VfKhN4+LChurJgCrxPfOf0dDOB
muf0amQbE8FtMfpOwBbS746KZ88/gJeyp3ZNahDoa7u8YhN5D1aruCNtO4Ex
11KHBH3jod+6WHZ6J4GJfP1yOSl3wMnoaUm0LoERGyaSOthjQaR066lFso68
4sms+i8hGjr9545r6hN461GtYGz+bfK/eO7ZWkMCi1/HF1rE3YSGTE2jsj3k
/i+2PFj4eR0yvBeyxPYTeFV4Vmp9cjj83PbcbdcBAsUFYnLWpIaB1oh43I6D
BKbbcv9NH7gMWd4vCG4zMv+Gu8L2dqGwTlWo/6U5+c7QK5paWUIAhzh1fxwi
UIqretz10X+wSUmfu8uKwI1nk/MDagNAS8e15KENgZfCY+dHTPygxvKHiqYt
gZNHRC/6qpwHoxBvWvYRAgOvuuaKWZ+DW0UhNNajZD7H7w3+KTkDSy/7xXSO
ETggKeYabOIDh/LZI3qOE/jlozMrhdMLqCxmHmYnCPyPSv90hOIO/XTjG8kn
CXS3f8X21MsFmmayjzedIrDuQ4WK6nYnYHZIOPQ5EHjBkMIqZ+oAida+u7sd
CXxaQdhZPzkJ/iNHqRVOBNp02/Gaq50A4Rbf0ClnAl+/3Jc7kXUU1PtMP664
EGjZZtV3JMYWJjNsXP+6kvPxHVKCGWsovHrifosbgR8E3DieFlgCm/XM9zjy
XS5LThDUfGcBGuVh4vs8CDxTVGibIW4OtFb2x79J100oeAYYm0KHaaxNkyeB
+8xqTWZvG0PHnTz1GC8Cf/gnDUj57oUusz0B6E2gQnKqdUi3IbzPSwvvJZ1W
2Ztt/MgAKuPc1nicJnCb2elXsxW7IOEgffc4ac7EYWtPSQSFott/7X0IbP10
n3PEQRc8E9Kfr5AOiapVLni9A7IOBvLdOkPgssj26PxCTfDYXu3KfZZAptCz
i4ZqGhDcQjnsR9r+wuCQI3UrxHUG/vpK2tOZotlooAYt+/waNM4R+KxSypXb
ZzPsnpIzDSdd8l4tfudbZcDKFGCQrj627W6WkSIcor8bs/UlUPgmuqp6yYGO
Rk1nHunqlWGvGaoMPNOyZPtHeuxvmYOjmBRcVkpb0j9P4DVfs1qdPknwOeVP
CSVt49Bi58slDhK/b615TfpCQeGqnrsicOBacBnXBfJ+FkbqbDwuCA3foykH
SCf9PqcTX0uFmZcaLddINx+ye71ffw2oyGqklpMWfcR3Q7OYFxyCPJLHSd8y
2pZEVHJDSHF/vpAfeV5nXcY37uCE0XreB9qkXdvXDy5Q2YErpST8DOnBhnI6
sZUFfvnVLqWQ1vr9O8+qcVnP/dp173rSx95ojeWuWdCr3iE/N056VKxZj3OZ
rreqV9qN159APxNT1lKvWT3eH5K+iqTdw3c/EDH6o9dtVZeIpE+HNoYcOTOt
p/Lr5x9H0oGmBffWTI/rGa5SZA0jrXI1lKHMNaa35+HnnmTSBlUVXBkDQ3py
GztMi0h3TPVZ6FkM6OXKjGxuIO1w6uOi8cl+vXUoLPaV9BGBAtacC716/wNH
6PtI
                    "]}, {Automatic}]}}]], 
               1] - $CellContext`\[Phi]\[Infinity]5[5, 1, 1, 2, 100]]}, 2]]], 
      "Specifications" :> {{$CellContext`t$$, 1, 150, AnimationRate -> 10, 
         AnimationRunning -> False, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{409., {128., 133.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.4636877181324735`*^9, 3.4636877336874733`*^9}, {
   3.4636878684284735`*^9, 3.4636878830474734`*^9}, {3.4636879759594736`*^9, 
   3.4636880250464735`*^9}, 3.4636880577894735`*^9, {3.4636881463954735`*^9, 
   3.4636881508554735`*^9}, 3.4636881819344735`*^9, {3.463688224380473*^9, 
   3.4636883207424736`*^9}, {3.463688352932473*^9, 3.4636883796264734`*^9}, 
   3.4636888380404735`*^9, {3.4637033135944734`*^9, 3.4637033264524736`*^9}, {
   3.4637036057454734`*^9, 3.4637036198274736`*^9}, {3.4637038294614735`*^9, 
   3.463703837847473*^9}, {3.4637540144377303`*^9, 3.4637540172457304`*^9}}]
}, Open  ]],

Cell["\<\
Now consider the repulsive case, again rotating to be incoming along x-axis\
\>", "Text",
 CellChangeTimes->{{3.4637033357044735`*^9, 3.4637033563744736`*^9}, {
  3.4637540526421304`*^9, 3.4637540656681304`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Scatter7", "[", 
   RowBox[{
   "E_", ",", "m_", ",", "k_", ",", "L_", ",", "\[Rho]\[Infinity]_", ",", 
    "N1_", ",", "N2_"}], "]"}], ":=", 
  RowBox[{"Animate", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Graphics", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Thick", ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", 
                 RowBox[{"-", "3"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"\[Rho]\[Infinity]", ",", "0"}], "}"}]}], "}"}]}], 
            "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "\[Rho]\[Infinity]"}], ",", "\[Rho]\[Infinity]"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "2"}], ",", 
             RowBox[{"2", "+", 
              RowBox[{"b\[Infinity]5", "[", 
               RowBox[{
               "E", ",", "m", ",", "k", ",", "L", ",", "\[Rho]\[Infinity]"}], 
               "]"}]}]}], "}"}]}], "}"}]}]}], "]"}], ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{"Red", ",", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}], "]"}],
       ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"Disk", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"rho5", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Evaluate", "[", 
                RowBox[{
                 RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", "E", ",", "m", ",", "k", 
              ",", "L"}], "]"}], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Evaluate", "[", 
                RowBox[{
                 RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "-", 
              RowBox[{"\[Phi]\[Infinity]5", "[", 
               RowBox[{
               "E", ",", "m", ",", "k", ",", "L", ",", "\[Rho]\[Infinity]"}], 
               "]"}]}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"rho5", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Evaluate", "[", 
                RowBox[{
                 RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", "E", ",", "m", ",", "k", 
              ",", "L"}], "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Evaluate", "[", 
                RowBox[{
                 RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "-", 
              RowBox[{"\[Phi]\[Infinity]5", "[", 
               RowBox[{
               "E", ",", "m", ",", "k", ",", "L", ",", "\[Rho]\[Infinity]"}], 
               "]"}]}], "]"}]}]}], "}"}], ",", "2"}], "]"}], "]"}]}], "]"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "N1", ",", "N2"}], "}"}], ",", 
    RowBox[{"AnimationRate", "\[Rule]", "10"}], ",", 
    RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.463495399355*^9, 3.463495531008*^9}, {3.463495604291*^9,
    3.463495605242*^9}, {3.463495988574*^9, 3.463496042132*^9}, {
   3.463509501468*^9, 3.463509553584*^9}, {3.463509601965*^9, 
   3.463509637682*^9}, {3.463509797358*^9, 3.463509812043*^9}, {
   3.463513234167*^9, 3.463513242917*^9}, {3.46351351865*^9, 
   3.46351354306*^9}, 3.4635136184370003`*^9, {3.463514131031*^9, 
   3.4635141521940002`*^9}, {3.4636789452894735`*^9, 3.463678945788473*^9}, {
   3.463682725729473*^9, 3.4636827302254734`*^9}, {3.4636827977174735`*^9, 
   3.463682829267473*^9}, {3.4636828698974733`*^9, 3.4636828774174733`*^9}, {
   3.463683053767473*^9, 3.4636830739634733`*^9}, {3.463683200734473*^9, 
   3.4636832116934733`*^9}, {3.4636832852174735`*^9, 
   3.4636833065354733`*^9}, {3.4636839129814734`*^9, 
   3.4636841204284735`*^9}, {3.4636842529474735`*^9, 3.463684253109473*^9}, {
   3.4636843800374737`*^9, 3.4636844248584733`*^9}, {3.4636869436584735`*^9, 
   3.463686978840473*^9}, {3.463687291550473*^9, 3.463687320236473*^9}, {
   3.4636875454874735`*^9, 3.463687546241473*^9}, {3.4636875997254734`*^9, 
   3.463687636387473*^9}, {3.4636876678184733`*^9, 3.4636876752974734`*^9}, {
   3.4636878227864733`*^9, 3.4636878620964737`*^9}, {3.4636879211794734`*^9, 
   3.463687934835473*^9}, 3.4636879667774734`*^9, {3.463688073170473*^9, 
   3.4636880732664733`*^9}, {3.463703808295473*^9, 3.4637038195514736`*^9}, {
   3.4637039167544737`*^9, 3.4637039712464733`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"findphi5", "[", 
  RowBox[{"1", ",", "1", ",", 
   RowBox[{"-", "1"}], ",", "1", ",", "100", ",", "200"}], "]"}]], "Input",
 CellChangeTimes->{{3.46350965363*^9, 3.463509665266*^9}, {
   3.4635098999110003`*^9, 3.463509900642*^9}, {3.463509937046*^9, 
   3.463509957946*^9}, {3.463510342525*^9, 3.463510343946*^9}, {
   3.463510570568*^9, 3.463510570817*^9}, {3.463513146352*^9, 
   3.463513147738*^9}, {3.463513254311*^9, 3.463513256888*^9}, 
   3.4635133085*^9, {3.463513362593*^9, 3.4635133636870003`*^9}, {
   3.463513675052*^9, 3.463513675356*^9}, 3.463513748396*^9, 
   3.463513894495*^9, 3.46351421396*^9, {3.463514476745*^9, 
   3.463514503795*^9}, {3.4636825840274734`*^9, 3.4636825954024734`*^9}, 
   3.4636826669024734`*^9, {3.4636833589114733`*^9, 3.4636833955564737`*^9}, {
   3.4636843041934733`*^9, 3.463684304248473*^9}, {3.4636855292354736`*^9, 
   3.4636855294114733`*^9}, {3.4636856012394733`*^9, 
   3.4636856159814734`*^9}, {3.4636856662514734`*^9, 
   3.4636856668824735`*^9}, {3.4636871006974735`*^9, 
   3.4636871183524733`*^9}, {3.463687475899473*^9, 3.4636874765074735`*^9}, {
   3.4636880168444734`*^9, 3.463688017116473*^9}, {3.4636882833814735`*^9, 
   3.4636883117234735`*^9}, {3.4636883557934732`*^9, 3.4636883560814734`*^9}, 
   3.4636895814834733`*^9, {3.4636896976844735`*^9, 3.4636897138754735`*^9}, {
   3.4636897444504733`*^9, 3.4636897485544734`*^9}, {3.4636899605344734`*^9, 
   3.4636899845964737`*^9}, 3.463690046552473*^9, {3.4637034068694735`*^9, 
   3.4637034126614733`*^9}, {3.4637040243304734`*^9, 3.4637040246664734`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"\[Phi]", "\[Rule]", 
    TagBox[
     RowBox[{"InterpolatingFunction", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"0.`", ",", "200.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
      "]"}],
     False,
     Editable->False]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.463689714663473*^9, 3.4636897495794735`*^9, {3.463689915505473*^9, 
   3.4636899320254736`*^9}, {3.4636899627844734`*^9, 
   3.4636900086924734`*^9}, {3.4636900487384734`*^9, 3.4636900593014736`*^9}, 
   3.4637034154474735`*^9, 3.4637036391224737`*^9, 3.4637036860394735`*^9, {
   3.4637037531474733`*^9, 3.463703756868473*^9}, 3.4637038404784737`*^9, 
   3.4637039805274734`*^9, {3.4637040201364737`*^9, 3.4637040257724733`*^9}, 
   3.4637540320969305`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{"\[Phi]", "[", "t", "]"}], "/.", "%"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "1", ",", "500"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.463510285675*^9, 3.463510331601*^9}, {3.463513434994*^9,
    3.463513466825*^9}, {3.4635144160480003`*^9, 3.463514473591*^9}, {
   3.463514563072*^9, 3.463514575417*^9}, {3.4636826076504736`*^9, 
   3.4636826080744734`*^9}, 3.4636826741104736`*^9, {3.4636856240544734`*^9, 
   3.4636856243814735`*^9}, {3.4636856712194734`*^9, 
   3.4636856717864733`*^9}, {3.4636874539974737`*^9, 3.463687484019473*^9}, {
   3.463689646064473*^9, 3.4636896466884737`*^9}, {3.4636897035414734`*^9, 
   3.4636897041244736`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1mk4VV0bB3BChpQKkTwh8USZEjJk3WYZz+CYM4UQUWaJlKGQIaI5lbEk
mdOwpKKQOZUGDWZnbyJ5ivTu99O5fh/WPv/1X/de15bxCmb4rODg4Mjh5OD4
/69FXekdAY4ZpB45wRZ0ILGAetT46JFZZKmb9HrKnsRtd81kn478QMeOhp9v
o2xZNnr+aPsvZPPN9k4KZXmb9YYR7ZwQemtBiOP/NqApjeWtAtNJ/qMTdiTO
ER5NGM4TA2ON/35cZpD42eyFrEvq4tCvpFcdQflHj/U1Rrc48D61MaJRtsuq
fdjELwEJlaVvVlAWWZ20cDlWEsTu+b/woZPYgutsneI9aWjx7IzYQqPyLanu
+JYnB673doWFWZP4Q95GjoEpOWhnj84ZUSZUV/S/AHnYECGnIkx5rU/f0YpJ
eRAbKH5daUVi+1fh7dH62yDznFHPuCWJv1xpDFg7qghDLKsFCwsSx0rd6L8q
oQo5gs3efaYkTgrM0xc3UYU7k5nrLlDOuJ9amh2sCjdGf+53o3yNGRqb+EwV
Gnssfo6ZkLg5xXhrwCE12Mx/uf6nMYn5ZkZDNZp3gm5n6BdOIxLnNm0X7vDX
gPpSOZEX+iR2rllHhGVrgPjokFsSZenShZZ/7mtA0t7X+oaUyzOfxgTzacLV
E08aG/dQfbq5fF1foglpioUni/WoPpdS7zkNa0F6abSznw7Vp/ak7ZibDkjx
H3+brkFiCaVuhaxkHZh010vTofxZuo5Lu0IHru7yvD22i8SBfCfqU//oQK6p
gjJQTnyzUUr5si7kXdgkOrmTxDXhe8mwd3rwMtRnVEqVxMJVpekr7BD0NGok
rlSk1qvN7hmOQSDkbp1YoEDlq9Sdfn4dgVj2jYfalMPudtJPTyN42nb8lf82
Eh+0j1l1ygQgY6R5W5M8iV8xC7rXfAGYTViONZIlcYywSVn8D4Ancqf6urZQ
89U3kTDDawBXml20XSjHMdTVe5UN4CpRIxcsQ2Jlesu5c7EGIHEuUS5NisRZ
NmxnSXFDKNLKHc/aRGK9NdnqZ7YbgvTHpFJByuOvNASX9Q3h0I8ZSJEgsYF1
/KMhH0NIcfWZitpI4lnL9dI3qw2hwmZrg7UY1efe3SMKtkZgoqSQeH89icWM
E4O1ko3hdJGeXCQfib0qrDbZXDIGlzKv57W81HmJi7Z6VxpDz+9qk9mVJDYk
ijafHTSGIHzhiTcP1Vde6yu2sgl8dG28rryCxE3jAjtuvDGBG9VVMtaLBBZg
9r1pYJvAqukScZ/fBGY9unSyi9OUmmhVs5hfBJ7M3vF+absp5Eh9WX95gcAi
ujapDsdNwStQ9u2DOQL7n8keF1Qwg7FALV33KQLXLDjlyuqbwWe/uGajSQIv
e24BHaYZNBoapGydIHCuZnX+gWNmsOnlt6jBUQI/Huo3be4xA8cZ+yrRrwTm
s7gy+3bUDE7Rt3x795nAzBqfq9OLZmAeKlZ6YYjA46d+zkvKm8O27OBTqz4S
eP1O8aLIGHOwKOodrH1DYNfLn2kZmeYgodn6mTlA4JKVZUuFhebQbCFfzO4n
sN57bbveTnNw3OE9u7qXwL6JLlxKsnvB1fK+rGAHgR8MXPX82r4XygPNEt88
JrC3iMfzrKG9cEk07pXKIwKvYcgooLm9ULF5MTzhAYE9Xt2cuSRhAZWZw6Zr
GwjM/aw0nuVvAU76KqJvKgl8hzPgG9cxC2iv7L4zX0Fge7TdrCrLAmw/jCPB
OwQua7yzRqjBAvZGikVLlxHY5l7VlRcrLaH471eLoQICL5ChnJESlsCholNY
f5XABTs0fOSULWH8yautyZcJPFdSv+MEyxJ2uJzO5T5P4PNXHz7QLbSE1bc9
xOIzCPwlreVdhYEVJJhVyMlEEzj1ZcqefSwreOR7TkczgsC7ePdeX+VvBSpl
Q4O6oQROPtHu55dlBTQnn/sbggisGN29IDNkBQvmOZuX3AncV5ft0j1rBW5d
6dXJrgSO/cHAcSutIbZipdMfRwJ3Bb9Ofq9kDcfc0laU0wkc5jsoei7WGoS3
aXP8NiDwP4WXoo2yrOFRootK9x4Ct3xx/fj9pjXcePxtXbo2gTfuGyq0abeG
+o4P3ypVqflgDqvzSdiAS6wkK+sfAh/ILsqvU7IB7pfeleHiBF7b5bvobWAD
HVG7XLSECexlMdH8xM8GBu4e79jLR2BeA5J+tN4GynepZcTOsLGNQt+prg4b
2P5zr0vaBBvnrWvAsl9twCT2hp77VzaW/5qg1CFoC611PEEWfWx8qM3XW3qL
LRTqrtRzaWfj2irLS2FatnDl4L+7tj5lY+OTovz/eFEOfjbXeY+N0w/+Rocj
bWEUvTQuLWXjPuZQxPN0W8jvv9u47Robe20tGw6qtwVhws9OII2Nm7w2e7iv
pIH/Euf3kn1sPDyQdZR/HQ2yAog+YTob81ly5VdvooHX47ubvxuxsa36+Cte
NRooJxpMvv2XjY+UOE/c06WB1W73wVfi1H42veJ2NaXBnKRuNR8/G3/iqtKt
dKFBoPV5ro1jU3hF1FYHZ18aGA4a7uvqn8Ly7Lwj3IdpcEpQ2/DMkykc1H+0
zDGZBh/6xJid+VM4y5x8tiKbBprc/K6yCVO45qHH5/JLNJDjWeaT9Z/CS4Um
Ypz3aFAXcyuneNcUlt7YsPP2Axq0fXbT+yY2hY3PKNqwWmig+BAWdX5NYj/O
K/5/u2mQ1BsoH/d2EqeFCyWVvaeBWIDMm4jaSVwxkVDAHKXBkeiqkbHMSdy7
78eDPzM02MfKeJx2YBJLmL6bpa+kw1oL42GZ1ZNYv9FyzdJaOiQ3N3PQBiew
l/JjheJNdODlcnole3MCJ99QNaHJ06Hzw3TU2gMTuGzDTY/fqnTYrDjYelhu
AnekisYW6tKhbmr19ZSP43hmOSXfxpQOtDt7uEMyxrFI6O+q/2h04LkpIyGt
NY53jwV23nChg3zSvL/LwBh2dRmasPKlw6WJxPHSgDF8vIvOsxBCh7uJ1Z9M
ZkdxodEz6etH6XBC59aaDQdHcWu9pp5lMh28TE2ks3pH8OT2Mof5LDrcX/XC
p0RuBK8p2BR67RId/PZVSlZ7DOOdIhkZe4vp4K8ssYsV/w3bn+K4NVdJh8o9
Jdq+sV9xzNKR51ce0GHQYzBkmv4FXw0Z+WzWQoecQ2fj0maHcPOww9L3bjq4
e25YejbwAY86toldfk+Hf9f9PWpq9A4LvNJTNx2lg9IL8xc6yq+xssFdm5kZ
OtQ6aW1QOteNGbUyARcX6eCcPmQYytWKwxVyk4xXMmAxgFm8TaMBxx0fGni4
lgGFNPdz5YtxOPmN4jaNTQzYHrS6OeBADcpQjoi+I8eAE+6ntfi4n6O8pCdt
cqoMCO6Z1xeV70JXPwhKXtVhwGvXLb+fqfWjEnXHoA0mDAhr8HGWYbxFlak3
H2fYMoDb9dYn9R/vUcMXUojXmQEHhsx/z0oNoabdOp7x3gzQs5VUrJj5jF5m
JlUtHGJAdPHYrfdbvqLe0W6ukGgG3F4jNf/fjm9ocI8ka/wkA1paVzuPiQyj
r7kHij0yGLBn1TvB9qFhNDlVtfD2PAPqa38s8p0dQbOGy+b0mwxonLmwwFIZ
RYsX9l58eYcBDg+Dd3Y0jiLu77lTBg0MeJL2WIlLawwJmn/Wa2xmwO9TThZb
i8eQyLXtGTtfMaAPzKuW+ceR5M+IoVtvKMd/ERP1HkdbrZtVZb8ywOCMysuK
2nGkVLj6xCU2A3odzrV//DuONBcd+4QXqOcNCoykGU0gfUbh1nROJtBUu/zi
EyaQadl0OLcgE+JXuZKejRPIlkO3NXYDE+xf86x6Tk4gR4dk8XlpJqy7cl5d
XmoSeVT0+AdtZ8IPEdH575aTyI/nnwcjGkwonYq+nBw+iUJc/QTdgAl/fD4d
1rw8iRIE/lbYsJhwq627dPnLJEr1tOBodWcCM0hPLoNzCp1tOEdHAUx4YDS3
RkFqCt3w3fFDJZ4JOlN/lbazptCtR5EmpaeZ8K83Y+2HoClULfI0TzqXCeXp
ce07kqbQs2Yn7XVlTPiVc9NfonIKdWwsSj1dzaS+l+u4x55OodchM+85HzNB
plvWuXpgCo1uTomb7WUCP3GiO+fXFCLDe7sCPjLhoVbHfCs/G/3s+Efm2xgT
1uvrBuptZCPeozVP+5aYsC3TnEtck43W9v4VseK1A7MVn0LOGbGRuIKl77N1
diB2snY5nsZG29584auVt4PBI+JPsB8bqSorOSup2YHSRM6HrWFspJ0UdbtI
1w6U1S5sFYtnIwt1IZs8mh3USrnWPcxhI0aq87U1LnYQJBRaefQKG7l8KZpJ
9rEDD19/06FiNgrM1MuJjLGDNOal3SUNbHRmyv+tY6Ed1H1yGqh4y0bG5fd4
/qmwg1t/7L6nD7HRUuCvnV/q7cC6pFFNc5RaT546499uByVC31znZqn//15i
GDNrB/V4ehNdgEArqqaD9Zfs4HpcaEqzEIEaj2hdWbGSBeq/CkPWiBJI4UfL
QupGFjA1ag7pShGIb2Gk/BKwwGV/toLQTgI11SsNuluwgK/I/HG0JoGiosJ5
t9qxYM1p3/oXOgQa+8XtVX6ABVsi+9vEjAjUsiQr9iiDBSenPOxyGASKe3TQ
OOE8C253sb107AmkEVd92OQGCzwW4i90OBGo8K9hx6taFjQ9C9Co9SDQyRVe
CZ8+sEBUlW1fGkQgnadlFTdGWdB6sFi1MYRAsye/v/edYcHwzenRB6EE8uJJ
0JzmsoeV9s4TWdEEAr6Cqb+K9vDAqzfvTCKB/nsxJv5slz0scYqt3Z5CoMrT
Kqan9O1BX+1W54PTBJJahQvWMuxB/GzgqYYMAi2v/sSSibaHQZPratvOE6iu
U+7kyAl7SMMOSv4XCXQoM6iyLN0eRMoC569dJtDHtX8EdhbYg9HTg9+nCwj0
UFiyybDVHiyvPsmlvt9Q9EZnRW9RB1gy0TebryfQ8bvqBotSDrBrHjv13SdQ
sslqx7OKDrDf1ciz7AGBcg83JTUhBxgb5BbRx1Tel/JfJAMcYLEnjCXUQvUd
PZf/+rEDqKp/VI/oJRAp9Koi8KUDbPvznDneR6AfRcXPufodQCeHa97uNXX+
vU5zahMOENfhqL75LYE2KzbZZAg7QppKIA79SCDWYDqPmZ8jTH/ZJmQ4RiDX
EF/JT0ccgV27esZvnOp3JaiHH3OE9J4Vw2kTBArZOedx86wjjNKLHVqmCJSe
6vTw70NHCCsKOSI0Q6CnOvKhDeucQCcxB3H+R6C27r+nbSWd4FoKcfk75W7f
dwWj8k7gMfxAZOgXgT6dTe8U0XOCmpKQtHuLBPo9Oatw2NcJ7ldK/tD4SyC1
S/izwgMncBDXvtXCQ6Lxi+f6BJ87gUtYnUTCShJdvXiwZbrTCZiRAQXavCQS
uChWXvvVCULfBQoU8ZHo6/ngSAMBZ5COMJP3XUWi3DypNU5OzpDiMaORv5ZE
FnnzHHr7nUFoxlFDcx2JOPLa5zYHOcO182X3+igHnYt8N3zcGVaM92sKCJPI
NLerMKTUGTb9GRPwFSXRQna87qkFZ7AemJL8uJFEFdks5YOcLvDphLqlrwSJ
vLO3y9iscgFxFs2IpNyd9WaliJQLbPWxLvi9iUSlmSq910xdQHqNWhTPZhI5
nxnyqz/nArfM2qdGZUj06BTKG1V3hUBt1o3pbSRyPEg+zt/jCgNFMeX2CiSa
tb4yZm7mCr6Rc8RDytuEF3ffdnaFFdKO0imK1H6v1L0PTnCFwdKUk+t3kCig
SknmV6crbH96h5dXhUQbPmwqXxWwD5K3MDeF7SLRvcdt/Q9D94FwicLYc8pW
16P/BB3bB59O8sqJaZAowfeNTXfWPhhuNF+qp8yeOfs9t34f1NgS+nOaJGrm
EdDazOMGGhuGDenaJApW+e+JaoEb0M4y66v3UPnHdvfX3HIDx2jvN4uUDa9F
j+6udYNT50tijfSpPEKLAgZtbqC5M8ulh/Jj8g+T/sMNiuti08cQidZUcI0e
NneHl2m7mpcNqL53CAlUz7hDh+z7zCETEuUP20pqLbpDVOLtYAlTEoGNef7H
FR7QFj7xw46y4srTZZ6rPaBJ5uXsC8rL4QKd/ls84Izh655yMxIVs1aLxVh5
wAh/a5v3XhL9FBEuu1hAuefC6YtW1P6K1ApOFHlA+PUynReUMzVp+QG3PEDP
b/LuPOVtjmeSdGo8QMKoetzWmkQul3i9Bls9oIOLfo3ThkRNMksSEtMekOKm
ftzZlkSpyiPpF/Z4gniMy8QwnUT2mCsxwdATLCo2sFcxSCRL23LU38wT+vMz
8E7KDw+7+2vTPeEVr/RgPOXpmncm77w9AQXCmBiTRHa6ncvi6Z4gLSdfhOxI
JGVeH3J+0BOsjAWbg+2peXh69cPEkCe4Juab5lLmQ8nmuiOeINJ57GoD5RkN
lvSnaU+gz+a95HCg8srOdcnyeMGT0kuimZS9/iqr3FXxgiLZmZc3Ham+6oqJ
54le8Cz1culdZxJJ7MxwEkv1gpzrTxS6KGfcCX/ul+kFNY4bU0jKkYXGV1Zd
9IKyO85vdriQyPzsVyv6XS/wkljsL6E8GbS5/MM7L2DilTH5riRSkssLmFPe
Dy7vxQbd3Egksj7g+/Zd+2HT7Xud0ZR/L++J8tbeD3acJiW5lF+8HUl6bbQf
bv+zgaeNsle6xvV6x/3gE7Y9St2dRHlz/W+OntgPrbX/unF6UOf/RNiEe2A/
rB0Q1kr1JFGXW7aU6DFv6OyZ63XwpvIf3587l+ANotOb4w9Strqhwd+b7A38
zm4S8ZRfjLybzcjyBqs/hzYXU24K3NLCV+gN5fUK7nOUq2KqA5favIFrOu91
qg+JzuW9vv9N3Aek7Q/JVfhS89G50a6qxgc0OORRmx+1frBmz+/7PuADcjfe
U5Yfs/3XEPuA/JWYn2zKs3+Tfve89AE+v5BQIX9qftRmC75/8gF+n6QmJuWG
3DZCld8XJvj1699RFnE5mnJ3ny8EEy9z3geQqGPsQ2P5ygOw333MqTGQui8V
Is5eXHUARoySr7dSNgsQCji19gDkGNYN9VNuZhts9JY4AEqR1KxRbvheHLlJ
mVov0ZwlG0Sim4shu1JZB0BDjT82lXKMEE/FgcIDYPjtzn36Iep90FK6vsXQ
D7wKPHFrMHX/qDbcn8/3h5McYc3ZR0iEkt3PZI4FwJ5PXydHwkj0Z13u50Lp
QJCZJDNbI0h03YzLVywsCDKHHv3OjCKRSvXfAJ57hyDwzXNt3hgS0Y+Kb28c
C4Y+XsyyPUqi8p+1a3wvh4AktsFnYklUZFHcWq59GO7/WDN6/hiJsueqN24Z
PgwfTfKTrsaRqLXN9mVM2hFYrhXjS4mn+tWr2p39byjs2c+zxvo4idZy7zQY
6KYcdOP1ugTqffSN4n93KAxMG73KGynH/7RSwfzhgHagT8wTJOp8r0/23QuH
3Aqyi6C83nUhsNgmAlZZlm8JPUmivWqvEkv+i4CQa7GXf1EOv+7v6psfCRaN
N+8cSiTRFMrN5lOPAnOoRYOU7dQ/uL97HwVNXJ7XzZKoeXoySRyIjgbjP2KR
JZS5ijaIym2NgWgttgx/Momu1HVfeN4eA+rSA1b7Ke/YT/8k63cU1M0eP6yi
XOE9/aByXSwIjsypcaeQSI7Tzmnxbix83iKlZkV5tN3UTsHyGLy+k2+SSfni
lP140twxGDuoENBP2ahYSa8gKw7m+/4+X3eKuj+01z/YlxMHwUc8e9ZT7mj/
qb0pLw7cT6V+EKZs9x1r5V2Kg0lP9VlRyt56DPX04jjoefxFQoJyYm+EYtTD
OLjb0OS5hXLLMhanjceBQyh3y07KqdmF+aun4qD5dGSbOmWbrac3tBNxsIpR
07mL8sBehojpXBzEo7QBTcpjucNCestxsD6h8pvO//Nt5+fdJhIPNVrjc4b/
z/eISBrZEA9zLcs/jChn0Xq5b26MByO5z/PGlMUjLq3YLBUPXnlcC6aUFZ4o
LQsrxkPdnq6fFpRJ5vpjPTvi4dxu/Z+WlKtGfy5mqMSDVHbUvBVlHcGmX/wa
8XD8hu2cDeXlq4VRrVrx8CeO/d2WcrPa6YVEnXg4wsGaoVFOfhYUYbgnHqp2
nybplC0cGPN/UTxkaZ9mMyj/D9qyZwU=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.4636896521144733`*^9, {3.4636897003644733`*^9, 3.4636897165964737`*^9}, 
   3.463689750913473*^9, {3.463689964340473*^9, 3.4636899872754736`*^9}, 
   3.4636900503764734`*^9, 3.4637034168774734`*^9, 3.463703642531473*^9, 
   3.4637037541984735`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Scatter7", "[", 
  RowBox[{"1", ",", "1", ",", 
   RowBox[{"-", "1"}], ",", "1", ",", "100", ",", "1", ",", "200"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.463509715639*^9, 3.463509728209*^9}, {3.463509892509*^9,
    3.4635098937060003`*^9}, {3.463509944641*^9, 3.46350996501*^9}, 
   3.463513155785*^9, {3.463513263572*^9, 3.4635132649300003`*^9}, 
   3.463513321049*^9, {3.4635133694560003`*^9, 3.463513370059*^9}, {
   3.463513574693*^9, 3.463513582459*^9}, {3.463513683976*^9, 
   3.463513684125*^9}, 3.463513735269*^9, 3.463513889118*^9, {
   3.463514203708*^9, 3.4635142084890003`*^9}, {3.46351424124*^9, 
   3.463514241362*^9}, {3.4635142818929996`*^9, 3.463514282407*^9}, {
   3.4635145171070004`*^9, 3.463514519178*^9}, {3.4636829047044735`*^9, 
   3.4636829323194733`*^9}, {3.463682984076473*^9, 3.463682997451473*^9}, {
   3.4636830861744733`*^9, 3.4636830879744735`*^9}, {3.463683317689473*^9, 
   3.4636833202254734`*^9}, {3.463683441762473*^9, 3.4636834425134735`*^9}, {
   3.4636834796884737`*^9, 3.4636834850154734`*^9}, {3.4636843182724733`*^9, 
   3.4636843183674736`*^9}, {3.4636855452424736`*^9, 3.463685545729473*^9}, {
   3.4636856425324736`*^9, 3.4636856857534733`*^9}, {3.4636857383114734`*^9, 
   3.4636857500704737`*^9}, {3.4636872455294733`*^9, 
   3.4636872588724737`*^9}, {3.4636874014964733`*^9, 3.463687401583473*^9}, {
   3.4636874937384734`*^9, 3.4636874944344735`*^9}, {3.4636877117024736`*^9, 
   3.4636877121814737`*^9}, {3.4636880077094736`*^9, 3.463688008189473*^9}, 
   3.4636882198974733`*^9, 3.463688252743473*^9, {3.4636882888454733`*^9, 
   3.4636883167234735`*^9}, {3.4636883614734735`*^9, 3.4636883621764736`*^9}, 
   3.4636895886034737`*^9, {3.4636899216324735`*^9, 3.4636899288314734`*^9}, {
   3.4636899976914735`*^9, 3.463690005979473*^9}, 3.4636900639924736`*^9, {
   3.4637034269004736`*^9, 3.4637034454834733`*^9}, {3.4637039869084735`*^9, 
   3.4637040307304735`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 65.48400115966798, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 1, 200}}, Typeset`size$$ = {360., {75., 78.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`t$15742$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$15742$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Graphics[{Thick, 
          Line[{{{0, -3}, {0, 3}}, {{-2, 0}, {100, 0}}}]}, 
         PlotRange -> {{-100, 100}, {-2, 
            2 + $CellContext`b\[Infinity]5[1, 1, -1, 1, 100]}}], 
        Graphics[{Red, 
          Disk[{0, 0}, 1]}], 
        Graphics[
         Disk[{$CellContext`rho5[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 200.}}, {
                    3, 11, 1, {247}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJxF1Ws01fkaB3CJskNup8hBaYqkGyIq7W+EXPf///tv23WPXMptGrI5jctW
MrmlKEeUUqZ2ZGeoDE5MNeR+KSU6RRNHJtdRSkk0e615cZ61nvV586z1fZ5X
j65fGNkvLSUltUDSH6X+X2cNyjQiZbPZfytiy6cK07iRE+y7i6uG17XNseNE
Go1qmxdh5cPo60+t1HDUMTBM9/t/YtK/+HxFmy50VxcIvQfWYm7vhfOEb4ix
ylavNd9tgaejfcglAxM0vWz4QfMPU5hF7EnOvmqOq7K12cp+O5C8ZPkZUbYl
QpRCTm1vZkN/iU994Dzw72Ojyedf74b07GGH9jYrhAlkFKXKrZHbVq0fJNiD
+2sFVo+MbTAcv55v/s4Gqs/6D1++aYu8x7/5JtrZYU17geOBPjuUNCaY2gv2
Ylut78oNLHtcDhyYOnjEHixF/6bSD/aIuPW/C29DHfDCLeCQyYADdrKkK7Lg
iIt3Ln2eynfE11BLNnfOEfu0XySWezlhUdxC+lmhE248N9T5MuUExoI7uhLO
mMmJq7JOd8aaEjMZqsUZnNpJjrecC2J6ivOCbF0gGgv4I/JHF1RuLDQ6UumC
lu+HY1NHXNBbatiQpc3Bn5MHlfMpDkTXFCJnYjjw8hb3cEUcqKg67Ch7yEFj
45t8+c8c3L1rnWCiSuGhSUiUzjcUXhVlBrO2UpjUruS/30NhQVYf/bsrBVU5
GduWAxROT4lPCiIpKP/OPNU6RiGzZVarIYOCUsWVgLCLFE4VON7QEFM4kBun
aVtBwTKjJEXwG4VlSS+nL7dRGI9T2t/RQ+GBAE9mByiYNYTGYoxCkUbON8c/
UNAMrW1tnqeQ/uu4YKkcjXmlFVqMCo1wvz0PcjRp+N4Tt2ivpkFrqXVeMaCx
Ozqmx8CIhlF3f1+pOQ1dE/tBU9BQJUZOaXtpSB9aUf6SojGVsUDLxIPG4M/D
icm+NLraO0dfBNOoH/sPsyWChvYqiwb/OBpRTJV5ThKNjqRt4pZMGnp3KrTn
z9OIHzfNNBLRIDVWb0wl6p/gYLvELx7eubskdq4LnrSSKPoYtddOIic74xNH
4ifj60XuEgse1br7SmTP1FpUSezVrdNUukYjxqFudr9EdUFdb41ES1b9Nd1i
GgGXGsKTSmikmTZtHy2jcbO1WYYqp9Hj29pRXknjrkPot6o1kjwT+Ymw+zTS
tcTC9gc0BLKOiobNNLwmRi6ktNOw6knbMNRJY8hul6irm8aJqrfadS9obDEQ
nb35isbTc+5Kl19L9liikHJqhIZO7D0p4Z806kYjokPf0wjy1nvnMSPJGfRa
EzVHo/+707zMBQQ6HxpSxLIEnsIvdxpYBDmyxuP9igRPTgaunFMhUF5+kdZY
TuCU/zjRRJMgVU+uwkWHoP5nyzfBqwmktwk0j+sR7LpX5HR5PUGs3cv46k0E
Vw+rLq43IWgvtM3oMCeY7olRf2ZJwFJvVpOxItDiqStvsSXYkr1fwduBwLrr
tlyKCwFPTVq2nBAEE2rBKx5B3On8OXkvgvQoxygjX4I8j09jvEACsaUoIO4g
QbUu6S0QELTIfmUaowmeD4tbx44QjLS7W6smEXy+KVu9LV2Se/aWMf8MwYoY
n+JjuQRvROJQ4SWCqs6PG364RpAyZz0RUULgZpBZerCcQN+1NzyoWrL30XXG
/rUEDTcip/jNBOu63ps87yFIm42M5A1J7ggfNFv/jqBkkJmZmyNge9RVd7IY
PGo3jhctY+Bn9ROidRlMVagsdN7I4LhhQv0qCwZVulkxT20ZjKqLNqdxGegs
rRzc5ceAlmk+NxXG4MfPz12KhJK5ybGF/BOSuaH5KpVzDGztLJmBYgYFhbHj
t2oYzC2+k5zYwcA96JMu9xWD201mNWveMVAyiOJ9WMhFSOrtyfplXESmry9O
2shFfEaBv50NFylnNLTl+Fycyc7oborkIi93UWZqOheiPKG9w1UuSvPfS8vX
cOGgtfO+dS8XQ+cShXFfuEhQb93+i5YrtLJVP43vdEWlqucvenxXkMyCCB+h
K8YVhzfnXnSFvL6j3odmV6xDiRaZdoWth5Ja6Woe/CMOsRQ4PCScePI1KJaH
/Kum0/WFPFT/mjO2uosHxrYrW1nVDSMdyux5jhsS3JzfjJ50g8ar1NP/bXVD
aVDD9kaWO2zfSg+W27mjL5p98qfj7jCoeTq/u88dUfOh4f1bPVAL6YGj6R5Y
mpjLrBr0gGf9pvp7OzxxbXG9mU+WJ97ZexXNj3hiq/rWTeIgL/xrUKHcbcgL
VTdfW8gEeONz/N17Zf3e2OmUY8P34SN+RXgrq4+P+0N76QrPb2FTKz4tVPFB
88Wlj/c0+aCwxpyVxN6H4PUh14fP74Nhbp698/Q+TMi2D5fRvigTzKf+o8QX
CmuFTRMmfgjsnl3UfMcPdckxNld2+0PHYiZR2OSPmJHDtW6cAHTnTUsZdwfA
yDmKrcDfj9iAMwvV9A/gQWxp44q3B6CY1XZiVXUgku2HbDL5Qfj7WwfjL2j+
bAc=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwl0oFGHgAAhdF/SZIkSZKkJUmSJEmSJEmSJEmSJEnSkmSSJEmSJEmSJEmS
JEmSJEmSJEmSJEmSzMzMzOxMl/ME9/vc9KWq41MgEPgV+FgQwYQQShjhRBBJ
FNHEEEsc8SSQSBLJpJBKGulkkEkW2eSQSx75FFBIEcWUUEoZ5VRQSRXV1FBL
HfU00EgTzbTQShvtdNBJF9308JVe+uhngEGGGGaEUcYYZ4JJpphmhlnmmGeB
RZZYZoVV1lhng0222GaHXfbY54BDjjjmhFPOOOeCS6645oZb7rjngUeeeOaF
V9545xvf+cHPwMfnv/nDXwJCCCKYEEIJI5wIIokimhhiiSOeBBJJIpkUUkkj
nQwyySKbHHLJI58CCimimBJKKaOcCiqpopoaaqmjngYaaaKZFlppo53/kXfS
RTc9fKWXPvoZYJAhhhlhlDHGmWCSKaaZYZY55llgkSWWWWGVNdbZYJMtttlh
lz32OeCQI4454ZQzzrngkiuuueGWO+554JEnnnnhlTfe+QfPCnps
                    "], CompressedData["
1:eJwN1nc41f0fBnDKbFDSEA37hMqWxC2EpDJCkQaJSlGiiERW0pAVCqFtk1l9
6MeRpGXvcTLP+X4lenrioZ9/3tf1+ue+3vd/t6STh5ULNxcXFz1/lIt4X/bb
0WS7oQR7QHMtrnoaHu6ed5xpi1T19rVQYHcvaZ+3SnSH5hO9eUvn2K+et9WK
8pR99FrU+p65Y2FLk5HB0jo6UxyRqf/4hNjQpPKG/aEhJwl8d6DPPLGmieCa
8JKMTethtM5g/LklTeJ7hGbVhTYiw8xFKGo/TbzuaOVe2yiJ3e3kxO69NFn8
+MqwzH4pHFUPcOYyo4mr99xA3xoZaJ6iGM7GNPkRbCc8zpCDpZG42wkDmuxc
Y2XseZuBXSuVRid1aXI9wqig5bAiHEN702e30SRywbKr57K3wMJ37rabGk0O
748wbLBQgUm+nt6JLTTRDPSpvqOihrUTP7O+MGjy1elJ16sTGkiVKbgXK0UT
d/+WONk5LXwt/GTAkqCJz79RaXlXt2PEf6YpbhVNosKUPwa46UL7gcxQtDBN
uk8cfkqd0sfutcdpSUGa2Bu9zru0zABUasAo/wKaNLwssnr/xxD2xp46jGmK
uPPI2j5XN0bzVMT0sQmKvEqX3afVZIpgiSdPq0cpEqk1s9Jq2x7MzTznd+un
yITMwEzlv3sRYbfh0OY2iqgOXnK6EmuBo63jLj8aKHKhVUh80NMKviXES7CG
IgcDUu4ekj6AXkPGlz0VFNli+GWPhqgtPsU8ZSXkzedHaqhO7D+IJ8of7tdm
UsSgfTzSbMgeDza0OXskUeQS8+6/Mrsc4Z7x8RbjDkW4ywQ+K/w+iikbtbSv
wRSpr51liYYdhwL/m4cG3hQZd6+5T+1xhmN1juO+UxQJzZZaW0idgOBOhyrL
wxRxPH2bT4t5Ens9HI9v2keRGS8/TadeN5h6Nhu91KPIksqEhxd2nYHnh71L
OMoUOXcxrEU54CzCGWm1AlIUGYt/slT1Pw/wh5sv6lpOkbqq8WIn1/Pw+8P4
oM1FEa0A9rVZbi9U8YZPXvnBIQ711qVqgRdx+M6zHf69HBJou7rJUsEHNkPp
61Y0cEjptJE/e9FlvCpxchYp45A2n2JpFQU/DO99VinxlEOay2LuxMv4I+F0
i2BNDIf8t8HgTfShq8j3cgjuv8ohfw+qqaqcugZGbkfhTjcOmUpdOb2iIQhc
Hg1LsvdzyO2DJVA6eh17tYvO+GznkOBL/r8X1IYggmvnhxxpDpkU7z59yzYM
KmYPpDYt5pCnxjd1Xq+IwCX+qLv5P9jkTbK3bDpvJCRHGH8XN7HJdGa2cIl6
FAQ+nLsuXcEmYtF2OuWKt6H9WefCpTQ24ftpyPtF8S529/XcaL3OJjv6/YR/
Ho3GXnmNuCUubKLYYeueVXwPN5iLFVsN2eSMsr3/No1YnFti8zJLjk2+n/A0
kbkbhwVZlzJC+dkknpMh0b00Ae7j8mZbhsbIxWr5+4sK7+O0+PqPZ96Nkdfv
PpSJhyYh5ESvxEzyGEl3EfE+F/kA1jlCvl2+Y6SRa8vHGOcUyHMNcAJtxohr
8NIqfo00rDw3UJy9ZYyMe49farB8hB+1FRNyvGOEtnlRfepmOvgtH/pkto2S
sEKe1QWDGTAwr49ofjZKlnDpF4i7PIZbr2GSfeAo8Tf81a9e8QQKV9eFwnqU
+ImUPnZSfobIP5SfscwoOWuX6m72/jm+HZi1Vfg5QhLnooRXhr+EdejZ+Iev
R4iE+vGT189nY0PewKZh/xFSXhAT9LcuF/pOlgcFto2QTR+e3UhUy0e/6L/f
XalhIm/14EzE8wJs2FajZ/tgmKhO3RxLNC+C8ovHWYJGw+Rlu7lZrHQxrpRH
/UxkDREFoyb6iGYpErXa+HuPDZGptP1XrmyowHKoNIt9GiQiglqpSiFvEdlC
xBMZg6RD0sVgjV4VbKZnnRlnv5P1U4FnM6L/Bw2u/s8zCSzyx9P2np85E+u8
1lBJ807Itgl9vZeJ5uttPNvn/Tvx8Yu5fUwENm5c3R7PIjWV9YP6FkzoLJyQ
vjxvtl+d5nVLJiSLTBVXz1tWMu1hjRUT18z4ttrEschQ/MskMxsmtD/1SMTE
sohvuMz4Zzsmbph8nvoSwyLryKpkG3smVup3ZGlGsUjOuSy5R15MLHQ/VRcT
wiI2y0WXCN9iQutru96IP4v80FX1Tn3CBF16llvdm0X0B0SjrCqZ6HWVpvXl
WCSybUnTyPtayLGY44WNA0RXNUL3be971DWEJDkEDJDZnpfD53k/4IDupDeP
9ABpShl+kry9Hku0j672re4n1dy547WBHyE0tCje2qifiLbPDBzb/gnFzXZt
J173kcubzldHCHxBt9zzVSpKfSRSp9iJseArFtQ7jvjI9RKF3VOKwou+wfV3
R/mygW5SsaSrkt7QiAupruI7I7tIS1yM7ErDJghIPJpypzrIjdEjGReTmmFg
0ZGdqtFOGsNVB5/OteAkfyPX3+OtxCHrkNHvM22QmHbQ5rvQTAY9Kmtdutth
+U7MNc2lkSQMfEeieSfsVBo9DXW/Eko2/UBnfhd4CxG8YqqBRNRr9Ory9MBI
aBX3HZ06coYvNZqt3Qu/6CP29Qo1hNW3Og3CfVg89kzp7Vwl+cK6mS99vg/P
CzRKOZfKiM00X+Yv0ofxooQB8895xGjIItv9Tx80OToCa9ankRRvtki9eD+s
xkLjEuJcEVUSfWBOth+scJ4/uUIZ6Byeaixc3Q+jjKyey0YF8Bc1UDo60Ydg
aYrxd7gcNQscbFWK+qAr4n7PsrAK8lPVzdxOfZhIzj0t1lmDzWoiAvbTveg+
8mt2cKgOc/usI1qX9SLcI+0IV2MD3C7tjrJa2gPpF74h97W/IkLDvGR9URdy
Yw3cs8824qPebDnDpBNUzbv4eyHNUBt8pTn5uR1ZSms56za1IoNLwPNAQhuc
e+KOHSxrwzo7WVr1eCtMlGqGwzQ6kNH94m2FcgueP+ntXZfSiUOhyUmeAs2Y
sJQyLp7sAl/kJkGtsUbMDrQweLR64Hzk5pozrd/QNelg+8mtFxK9Pk6TX75C
ajpZJTasDynJz1xeu3yBtGp/wJxJP05eZpTlbf6Exjbu3r9/+nGDz+hKUG09
OmPNtIYfDsBQ/t+QkPg6FHd3jE2os1D6rqonOKEWu47oSZtWsnC+rF2unVkD
Xq85sRn972DlaqW/2VgNvZzMWp7S7zjBHaLt8egdjoqL+5vKDWIwfLu99a4q
XGTU8sVGDSK6XPsuv2AliF7Izrnfg8iLy947FfEGNm1HJXkchvDgp+ZQ0M4K
OHg2hgYUD+F7ZpaYkXoZ3tPvajYtHob51lr9B/YlUOxZ7ldwaBiNOhN6eTmv
8Ko8f3FO+jB+OGZSdopFWOga8/fR0DAWD+SrLvpYAOVrBd/uuIygY/SKL2zy
oGH7UF6/aQRPS4Ps3ROykJCtOBoqM4rbDiscJJjPMWLLchc8OwrFKdEaHpun
qOUzNP+cMwpLKVnGTfXH0B4pDCgYG8Veu28Hp+0ysCzp28gZyTHoen/jYRc9
gnVXYdh96zHkCR4X+mSQhtngNOO3QWPgNpc/tf7XQ6w/lBtQUzCGyUX5Ovk2
yRDYsUo3vncMOVuazXr5EzH5KNE1X4ANnIz9Z9/feIRqmzwP2cKG5NznlW0q
cWhYGNRy1pKNbLNJpxUJMThnoZPy5jwb1NNFUQsY93DFUrik7A4bltIXTtb3
3IVAYJB+ciEberuYqaPM27DQME12aWJjZs1WrXebozCcqBZ9+ScbBgVqJJ11
A41yxVayQhwcmasVKu4Kh6DHj7X58hyYlr4+sVM4DBt3HjOxAwfs5SO9ml4h
qO8x5Nljw4FdUu2PPu7rkONPGtby5GC0iqvCZF8QLFt8NN5HcPDlZLJscEYg
nIa2UsapHESahWMBfwCeMdR3TxZyYPU+OfxzqR96jsb+XFDLQdUrs9Mm2Zex
2pFRkdHGgaKp9JvWDh8Uu/6a+W+Eg25u8MVoe6P4xd9J+9n5fydU6nyNvaC/
8OLK78IUzlXm+x6OPQ99G12tpo0U4mt2OF5f44mkMZNrjsoUFt7ymMyIPQuT
XB6TF3oUTiZsvZA8v98MKnnDevZQaL2i7B667RRcIh9ziR2k8FvHZmrW2RVC
vkpBYa4UWAPnvthtdsFJKbOLYd4U5MVGZToNnGFvLfHHNJhC7BZ506iE4zim
vFn6n1sUggLj9VZIHsOKUt743PsUJH2eftuR44hUA7oqOp3CNc0srU4XB1CV
Xh1FLyn4HPEf/eV4CCmnpPUcSyj8FNTgXseyxaNF+8NHqigsu93fGVA5v48V
8q4E1FOot1p2LHLICkJNwlt2NM3nbeAp+GNqCQUrj2PoovCf0KzHbMV+rM2c
jH7IoiBS7DnnqrMXFrFcn0+NUfAtX6TkuHAPTi1Kbdo8ScHSvdngqokp3Pav
3Cg6Q0Fj+dg/Fj924X996gM6C2j8KFbL9GYbwj1FtuytAI0G53shNxUMYDUx
2JcvROOjn6STaro+hKOFxeRFaeSXn3bLuKeH9t8GBzaL0XgRIsCRVtkB/eNP
zcs20NjN82D7Yx1tmMnn5CfK0lBc6i8tUaKJbX86g4YVaGhYm4kq31aHWlOe
RMlWGjtUVw3Y5KnCvDnLREydxgYNlRWxy1QQk2wwIb6NxhpZESZ2b8WvXJnq
Dzo0vDqqWF7vlVDyPwO9TH0adUQ1eOPjTVDgtDb/MaLB8/1vudicHN5OJ3v3
mtL45CFZwl8hg4rQ1dtczGlcU47N1K2TwhtbR+P7+2lI3lvXtG2tJHIt0/2v
W9HgfvjGeP2uDTj4UW9wqw2NG4S5/1CBBJZ+XN/+9iCN0pyZFKXzYjj2JnDH
qAONjapTIaOvVuERS+Tb2yPz/bkk0w67iGJlmsAO8+M0iu4EH+8/LYKki9xl
yc40ds3v+PjiZZCyUMh55UIjZVZgVPmyEGQ7dyx95ErjjchNDRPWYmwOXeym
eXq+T/3UrsoEAYwLtr0PdKdx08P4oUY7L1Qou9s3ztE4bEaUqRsLkc93NovX
k4bcdueUoXFuLDc8qed8nobl4HP/nWFc+D/JQrj7
                    "]}, {Automatic}]}}]], 1], 1, 1, -1, 1] Cos[Part[
               Evaluate[
                ReplaceAll[
                 $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                   InterpolatingFunction[{{0., 200.}}, {
                    3, 11, 1, {247}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJxF1Ws01fkaB3CJskNup8hBaYqkGyIq7W+EXPf///tv23WPXMptGrI5jctW
MrmlKEeUUqZ2ZGeoDE5MNeR+KSU6RRNHJtdRSkk0e615cZ61nvV586z1fZ5X
j65fGNkvLSUltUDSH6X+X2cNyjQiZbPZfytiy6cK07iRE+y7i6uG17XNseNE
Go1qmxdh5cPo60+t1HDUMTBM9/t/YtK/+HxFmy50VxcIvQfWYm7vhfOEb4ix
ylavNd9tgaejfcglAxM0vWz4QfMPU5hF7EnOvmqOq7K12cp+O5C8ZPkZUbYl
QpRCTm1vZkN/iU994Dzw72Ojyedf74b07GGH9jYrhAlkFKXKrZHbVq0fJNiD
+2sFVo+MbTAcv55v/s4Gqs/6D1++aYu8x7/5JtrZYU17geOBPjuUNCaY2gv2
Ylut78oNLHtcDhyYOnjEHixF/6bSD/aIuPW/C29DHfDCLeCQyYADdrKkK7Lg
iIt3Ln2eynfE11BLNnfOEfu0XySWezlhUdxC+lmhE248N9T5MuUExoI7uhLO
mMmJq7JOd8aaEjMZqsUZnNpJjrecC2J6ivOCbF0gGgv4I/JHF1RuLDQ6UumC
lu+HY1NHXNBbatiQpc3Bn5MHlfMpDkTXFCJnYjjw8hb3cEUcqKg67Ch7yEFj
45t8+c8c3L1rnWCiSuGhSUiUzjcUXhVlBrO2UpjUruS/30NhQVYf/bsrBVU5
GduWAxROT4lPCiIpKP/OPNU6RiGzZVarIYOCUsWVgLCLFE4VON7QEFM4kBun
aVtBwTKjJEXwG4VlSS+nL7dRGI9T2t/RQ+GBAE9mByiYNYTGYoxCkUbON8c/
UNAMrW1tnqeQ/uu4YKkcjXmlFVqMCo1wvz0PcjRp+N4Tt2ivpkFrqXVeMaCx
Ozqmx8CIhlF3f1+pOQ1dE/tBU9BQJUZOaXtpSB9aUf6SojGVsUDLxIPG4M/D
icm+NLraO0dfBNOoH/sPsyWChvYqiwb/OBpRTJV5ThKNjqRt4pZMGnp3KrTn
z9OIHzfNNBLRIDVWb0wl6p/gYLvELx7eubskdq4LnrSSKPoYtddOIic74xNH
4ifj60XuEgse1br7SmTP1FpUSezVrdNUukYjxqFudr9EdUFdb41ES1b9Nd1i
GgGXGsKTSmikmTZtHy2jcbO1WYYqp9Hj29pRXknjrkPot6o1kjwT+Ymw+zTS
tcTC9gc0BLKOiobNNLwmRi6ktNOw6knbMNRJY8hul6irm8aJqrfadS9obDEQ
nb35isbTc+5Kl19L9liikHJqhIZO7D0p4Z806kYjokPf0wjy1nvnMSPJGfRa
EzVHo/+707zMBQQ6HxpSxLIEnsIvdxpYBDmyxuP9igRPTgaunFMhUF5+kdZY
TuCU/zjRRJMgVU+uwkWHoP5nyzfBqwmktwk0j+sR7LpX5HR5PUGs3cv46k0E
Vw+rLq43IWgvtM3oMCeY7olRf2ZJwFJvVpOxItDiqStvsSXYkr1fwduBwLrr
tlyKCwFPTVq2nBAEE2rBKx5B3On8OXkvgvQoxygjX4I8j09jvEACsaUoIO4g
QbUu6S0QELTIfmUaowmeD4tbx44QjLS7W6smEXy+KVu9LV2Se/aWMf8MwYoY
n+JjuQRvROJQ4SWCqs6PG364RpAyZz0RUULgZpBZerCcQN+1NzyoWrL30XXG
/rUEDTcip/jNBOu63ps87yFIm42M5A1J7ggfNFv/jqBkkJmZmyNge9RVd7IY
PGo3jhctY+Bn9ROidRlMVagsdN7I4LhhQv0qCwZVulkxT20ZjKqLNqdxGegs
rRzc5ceAlmk+NxXG4MfPz12KhJK5ybGF/BOSuaH5KpVzDGztLJmBYgYFhbHj
t2oYzC2+k5zYwcA96JMu9xWD201mNWveMVAyiOJ9WMhFSOrtyfplXESmry9O
2shFfEaBv50NFylnNLTl+Fycyc7oborkIi93UWZqOheiPKG9w1UuSvPfS8vX
cOGgtfO+dS8XQ+cShXFfuEhQb93+i5YrtLJVP43vdEWlqucvenxXkMyCCB+h
K8YVhzfnXnSFvL6j3odmV6xDiRaZdoWth5Ja6Woe/CMOsRQ4PCScePI1KJaH
/Kum0/WFPFT/mjO2uosHxrYrW1nVDSMdyux5jhsS3JzfjJ50g8ar1NP/bXVD
aVDD9kaWO2zfSg+W27mjL5p98qfj7jCoeTq/u88dUfOh4f1bPVAL6YGj6R5Y
mpjLrBr0gGf9pvp7OzxxbXG9mU+WJ97ZexXNj3hiq/rWTeIgL/xrUKHcbcgL
VTdfW8gEeONz/N17Zf3e2OmUY8P34SN+RXgrq4+P+0N76QrPb2FTKz4tVPFB
88Wlj/c0+aCwxpyVxN6H4PUh14fP74Nhbp698/Q+TMi2D5fRvigTzKf+o8QX
CmuFTRMmfgjsnl3UfMcPdckxNld2+0PHYiZR2OSPmJHDtW6cAHTnTUsZdwfA
yDmKrcDfj9iAMwvV9A/gQWxp44q3B6CY1XZiVXUgku2HbDL5Qfj7WwfjL2j+
bAc=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwl0oFGHgAAhdF/SZIkSZKkJUmSJEmSJEmSJEmSJEnSkmSSJEmSJEmSJEmS
JEmSJEmSJEmSJEmSzMzMzOxMl/ME9/vc9KWq41MgEPgV+FgQwYQQShjhRBBJ
FNHEEEsc8SSQSBLJpJBKGulkkEkW2eSQSx75FFBIEcWUUEoZ5VRQSRXV1FBL
HfU00EgTzbTQShvtdNBJF9308JVe+uhngEGGGGaEUcYYZ4JJpphmhlnmmGeB
RZZYZoVV1lhng0222GaHXfbY54BDjjjmhFPOOOeCS6645oZb7rjngUeeeOaF
V9545xvf+cHPwMfnv/nDXwJCCCKYEEIJI5wIIokimhhiiSOeBBJJIpkUUkkj
nQwyySKbHHLJI58CCimimBJKKaOcCiqpopoaaqmjngYaaaKZFlppo53/kXfS
RTc9fKWXPvoZYJAhhhlhlDHGmWCSKaaZYZY55llgkSWWWWGVNdbZYJMtttlh
lz32OeCQI4454ZQzzrngkiuuueGWO+554JEnnnnhlTfe+QfPCnps
                    "], CompressedData["
1:eJwN1nc41f0fBnDKbFDSEA37hMqWxC2EpDJCkQaJSlGiiERW0pAVCqFtk1l9
6MeRpGXvcTLP+X4lenrioZ9/3tf1+ue+3vd/t6STh5ULNxcXFz1/lIt4X/bb
0WS7oQR7QHMtrnoaHu6ed5xpi1T19rVQYHcvaZ+3SnSH5hO9eUvn2K+et9WK
8pR99FrU+p65Y2FLk5HB0jo6UxyRqf/4hNjQpPKG/aEhJwl8d6DPPLGmieCa
8JKMTethtM5g/LklTeJ7hGbVhTYiw8xFKGo/TbzuaOVe2yiJ3e3kxO69NFn8
+MqwzH4pHFUPcOYyo4mr99xA3xoZaJ6iGM7GNPkRbCc8zpCDpZG42wkDmuxc
Y2XseZuBXSuVRid1aXI9wqig5bAiHEN702e30SRywbKr57K3wMJ37rabGk0O
748wbLBQgUm+nt6JLTTRDPSpvqOihrUTP7O+MGjy1elJ16sTGkiVKbgXK0UT
d/+WONk5LXwt/GTAkqCJz79RaXlXt2PEf6YpbhVNosKUPwa46UL7gcxQtDBN
uk8cfkqd0sfutcdpSUGa2Bu9zru0zABUasAo/wKaNLwssnr/xxD2xp46jGmK
uPPI2j5XN0bzVMT0sQmKvEqX3afVZIpgiSdPq0cpEqk1s9Jq2x7MzTznd+un
yITMwEzlv3sRYbfh0OY2iqgOXnK6EmuBo63jLj8aKHKhVUh80NMKviXES7CG
IgcDUu4ekj6AXkPGlz0VFNli+GWPhqgtPsU8ZSXkzedHaqhO7D+IJ8of7tdm
UsSgfTzSbMgeDza0OXskUeQS8+6/Mrsc4Z7x8RbjDkW4ywQ+K/w+iikbtbSv
wRSpr51liYYdhwL/m4cG3hQZd6+5T+1xhmN1juO+UxQJzZZaW0idgOBOhyrL
wxRxPH2bT4t5Ens9HI9v2keRGS8/TadeN5h6Nhu91KPIksqEhxd2nYHnh71L
OMoUOXcxrEU54CzCGWm1AlIUGYt/slT1Pw/wh5sv6lpOkbqq8WIn1/Pw+8P4
oM1FEa0A9rVZbi9U8YZPXvnBIQ711qVqgRdx+M6zHf69HBJou7rJUsEHNkPp
61Y0cEjptJE/e9FlvCpxchYp45A2n2JpFQU/DO99VinxlEOay2LuxMv4I+F0
i2BNDIf8t8HgTfShq8j3cgjuv8ohfw+qqaqcugZGbkfhTjcOmUpdOb2iIQhc
Hg1LsvdzyO2DJVA6eh17tYvO+GznkOBL/r8X1IYggmvnhxxpDpkU7z59yzYM
KmYPpDYt5pCnxjd1Xq+IwCX+qLv5P9jkTbK3bDpvJCRHGH8XN7HJdGa2cIl6
FAQ+nLsuXcEmYtF2OuWKt6H9WefCpTQ24ftpyPtF8S529/XcaL3OJjv6/YR/
Ho3GXnmNuCUubKLYYeueVXwPN5iLFVsN2eSMsr3/No1YnFti8zJLjk2+n/A0
kbkbhwVZlzJC+dkknpMh0b00Ae7j8mZbhsbIxWr5+4sK7+O0+PqPZ96Nkdfv
PpSJhyYh5ESvxEzyGEl3EfE+F/kA1jlCvl2+Y6SRa8vHGOcUyHMNcAJtxohr
8NIqfo00rDw3UJy9ZYyMe49farB8hB+1FRNyvGOEtnlRfepmOvgtH/pkto2S
sEKe1QWDGTAwr49ofjZKlnDpF4i7PIZbr2GSfeAo8Tf81a9e8QQKV9eFwnqU
+ImUPnZSfobIP5SfscwoOWuX6m72/jm+HZi1Vfg5QhLnooRXhr+EdejZ+Iev
R4iE+vGT189nY0PewKZh/xFSXhAT9LcuF/pOlgcFto2QTR+e3UhUy0e/6L/f
XalhIm/14EzE8wJs2FajZ/tgmKhO3RxLNC+C8ovHWYJGw+Rlu7lZrHQxrpRH
/UxkDREFoyb6iGYpErXa+HuPDZGptP1XrmyowHKoNIt9GiQiglqpSiFvEdlC
xBMZg6RD0sVgjV4VbKZnnRlnv5P1U4FnM6L/Bw2u/s8zCSzyx9P2np85E+u8
1lBJ807Itgl9vZeJ5uttPNvn/Tvx8Yu5fUwENm5c3R7PIjWV9YP6FkzoLJyQ
vjxvtl+d5nVLJiSLTBVXz1tWMu1hjRUT18z4ttrEschQ/MskMxsmtD/1SMTE
sohvuMz4Zzsmbph8nvoSwyLryKpkG3smVup3ZGlGsUjOuSy5R15MLHQ/VRcT
wiI2y0WXCN9iQutru96IP4v80FX1Tn3CBF16llvdm0X0B0SjrCqZ6HWVpvXl
WCSybUnTyPtayLGY44WNA0RXNUL3be971DWEJDkEDJDZnpfD53k/4IDupDeP
9ABpShl+kry9Hku0j672re4n1dy547WBHyE0tCje2qifiLbPDBzb/gnFzXZt
J173kcubzldHCHxBt9zzVSpKfSRSp9iJseArFtQ7jvjI9RKF3VOKwou+wfV3
R/mygW5SsaSrkt7QiAupruI7I7tIS1yM7ErDJghIPJpypzrIjdEjGReTmmFg
0ZGdqtFOGsNVB5/OteAkfyPX3+OtxCHrkNHvM22QmHbQ5rvQTAY9Kmtdutth
+U7MNc2lkSQMfEeieSfsVBo9DXW/Eko2/UBnfhd4CxG8YqqBRNRr9Ory9MBI
aBX3HZ06coYvNZqt3Qu/6CP29Qo1hNW3Og3CfVg89kzp7Vwl+cK6mS99vg/P
CzRKOZfKiM00X+Yv0ofxooQB8895xGjIItv9Tx80OToCa9ankRRvtki9eD+s
xkLjEuJcEVUSfWBOth+scJ4/uUIZ6Byeaixc3Q+jjKyey0YF8Bc1UDo60Ydg
aYrxd7gcNQscbFWK+qAr4n7PsrAK8lPVzdxOfZhIzj0t1lmDzWoiAvbTveg+
8mt2cKgOc/usI1qX9SLcI+0IV2MD3C7tjrJa2gPpF74h97W/IkLDvGR9URdy
Yw3cs8824qPebDnDpBNUzbv4eyHNUBt8pTn5uR1ZSms56za1IoNLwPNAQhuc
e+KOHSxrwzo7WVr1eCtMlGqGwzQ6kNH94m2FcgueP+ntXZfSiUOhyUmeAs2Y
sJQyLp7sAl/kJkGtsUbMDrQweLR64Hzk5pozrd/QNelg+8mtFxK9Pk6TX75C
ajpZJTasDynJz1xeu3yBtGp/wJxJP05eZpTlbf6Exjbu3r9/+nGDz+hKUG09
OmPNtIYfDsBQ/t+QkPg6FHd3jE2os1D6rqonOKEWu47oSZtWsnC+rF2unVkD
Xq85sRn972DlaqW/2VgNvZzMWp7S7zjBHaLt8egdjoqL+5vKDWIwfLu99a4q
XGTU8sVGDSK6XPsuv2AliF7Izrnfg8iLy947FfEGNm1HJXkchvDgp+ZQ0M4K
OHg2hgYUD+F7ZpaYkXoZ3tPvajYtHob51lr9B/YlUOxZ7ldwaBiNOhN6eTmv
8Ko8f3FO+jB+OGZSdopFWOga8/fR0DAWD+SrLvpYAOVrBd/uuIygY/SKL2zy
oGH7UF6/aQRPS4Ps3ROykJCtOBoqM4rbDiscJJjPMWLLchc8OwrFKdEaHpun
qOUzNP+cMwpLKVnGTfXH0B4pDCgYG8Veu28Hp+0ysCzp28gZyTHoen/jYRc9
gnVXYdh96zHkCR4X+mSQhtngNOO3QWPgNpc/tf7XQ6w/lBtQUzCGyUX5Ovk2
yRDYsUo3vncMOVuazXr5EzH5KNE1X4ANnIz9Z9/feIRqmzwP2cKG5NznlW0q
cWhYGNRy1pKNbLNJpxUJMThnoZPy5jwb1NNFUQsY93DFUrik7A4bltIXTtb3
3IVAYJB+ciEberuYqaPM27DQME12aWJjZs1WrXebozCcqBZ9+ScbBgVqJJ11
A41yxVayQhwcmasVKu4Kh6DHj7X58hyYlr4+sVM4DBt3HjOxAwfs5SO9ml4h
qO8x5Nljw4FdUu2PPu7rkONPGtby5GC0iqvCZF8QLFt8NN5HcPDlZLJscEYg
nIa2UsapHESahWMBfwCeMdR3TxZyYPU+OfxzqR96jsb+XFDLQdUrs9Mm2Zex
2pFRkdHGgaKp9JvWDh8Uu/6a+W+Eg25u8MVoe6P4xd9J+9n5fydU6nyNvaC/
8OLK78IUzlXm+x6OPQ99G12tpo0U4mt2OF5f44mkMZNrjsoUFt7ymMyIPQuT
XB6TF3oUTiZsvZA8v98MKnnDevZQaL2i7B667RRcIh9ziR2k8FvHZmrW2RVC
vkpBYa4UWAPnvthtdsFJKbOLYd4U5MVGZToNnGFvLfHHNJhC7BZ506iE4zim
vFn6n1sUggLj9VZIHsOKUt743PsUJH2eftuR44hUA7oqOp3CNc0srU4XB1CV
Xh1FLyn4HPEf/eV4CCmnpPUcSyj8FNTgXseyxaNF+8NHqigsu93fGVA5v48V
8q4E1FOot1p2LHLICkJNwlt2NM3nbeAp+GNqCQUrj2PoovCf0KzHbMV+rM2c
jH7IoiBS7DnnqrMXFrFcn0+NUfAtX6TkuHAPTi1Kbdo8ScHSvdngqokp3Pav
3Cg6Q0Fj+dg/Fj924X996gM6C2j8KFbL9GYbwj1FtuytAI0G53shNxUMYDUx
2JcvROOjn6STaro+hKOFxeRFaeSXn3bLuKeH9t8GBzaL0XgRIsCRVtkB/eNP
zcs20NjN82D7Yx1tmMnn5CfK0lBc6i8tUaKJbX86g4YVaGhYm4kq31aHWlOe
RMlWGjtUVw3Y5KnCvDnLREydxgYNlRWxy1QQk2wwIb6NxhpZESZ2b8WvXJnq
Dzo0vDqqWF7vlVDyPwO9TH0adUQ1eOPjTVDgtDb/MaLB8/1vudicHN5OJ3v3
mtL45CFZwl8hg4rQ1dtczGlcU47N1K2TwhtbR+P7+2lI3lvXtG2tJHIt0/2v
W9HgfvjGeP2uDTj4UW9wqw2NG4S5/1CBBJZ+XN/+9iCN0pyZFKXzYjj2JnDH
qAONjapTIaOvVuERS+Tb2yPz/bkk0w67iGJlmsAO8+M0iu4EH+8/LYKki9xl
yc40ds3v+PjiZZCyUMh55UIjZVZgVPmyEGQ7dyx95ErjjchNDRPWYmwOXeym
eXq+T/3UrsoEAYwLtr0PdKdx08P4oUY7L1Qou9s3ztE4bEaUqRsLkc93NovX
k4bcdueUoXFuLDc8qed8nobl4HP/nWFc+D/JQrj7
                    "]}, {Automatic}]}}]], 
               1] - $CellContext`\[Phi]\[Infinity]5[
             1, 1, -1, 1, 100]], $CellContext`rho5[
             Part[
              Evaluate[
               ReplaceAll[
                $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                  InterpolatingFunction[{{0., 200.}}, {
                    3, 11, 1, {247}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJxF1Ws01fkaB3CJskNup8hBaYqkGyIq7W+EXPf///tv23WPXMptGrI5jctW
MrmlKEeUUqZ2ZGeoDE5MNeR+KSU6RRNHJtdRSkk0e615cZ61nvV586z1fZ5X
j65fGNkvLSUltUDSH6X+X2cNyjQiZbPZfytiy6cK07iRE+y7i6uG17XNseNE
Go1qmxdh5cPo60+t1HDUMTBM9/t/YtK/+HxFmy50VxcIvQfWYm7vhfOEb4ix
ylavNd9tgaejfcglAxM0vWz4QfMPU5hF7EnOvmqOq7K12cp+O5C8ZPkZUbYl
QpRCTm1vZkN/iU994Dzw72Ojyedf74b07GGH9jYrhAlkFKXKrZHbVq0fJNiD
+2sFVo+MbTAcv55v/s4Gqs/6D1++aYu8x7/5JtrZYU17geOBPjuUNCaY2gv2
Ylut78oNLHtcDhyYOnjEHixF/6bSD/aIuPW/C29DHfDCLeCQyYADdrKkK7Lg
iIt3Ln2eynfE11BLNnfOEfu0XySWezlhUdxC+lmhE248N9T5MuUExoI7uhLO
mMmJq7JOd8aaEjMZqsUZnNpJjrecC2J6ivOCbF0gGgv4I/JHF1RuLDQ6UumC
lu+HY1NHXNBbatiQpc3Bn5MHlfMpDkTXFCJnYjjw8hb3cEUcqKg67Ch7yEFj
45t8+c8c3L1rnWCiSuGhSUiUzjcUXhVlBrO2UpjUruS/30NhQVYf/bsrBVU5
GduWAxROT4lPCiIpKP/OPNU6RiGzZVarIYOCUsWVgLCLFE4VON7QEFM4kBun
aVtBwTKjJEXwG4VlSS+nL7dRGI9T2t/RQ+GBAE9mByiYNYTGYoxCkUbON8c/
UNAMrW1tnqeQ/uu4YKkcjXmlFVqMCo1wvz0PcjRp+N4Tt2ivpkFrqXVeMaCx
Ozqmx8CIhlF3f1+pOQ1dE/tBU9BQJUZOaXtpSB9aUf6SojGVsUDLxIPG4M/D
icm+NLraO0dfBNOoH/sPsyWChvYqiwb/OBpRTJV5ThKNjqRt4pZMGnp3KrTn
z9OIHzfNNBLRIDVWb0wl6p/gYLvELx7eubskdq4LnrSSKPoYtddOIic74xNH
4ifj60XuEgse1br7SmTP1FpUSezVrdNUukYjxqFudr9EdUFdb41ES1b9Nd1i
GgGXGsKTSmikmTZtHy2jcbO1WYYqp9Hj29pRXknjrkPot6o1kjwT+Ymw+zTS
tcTC9gc0BLKOiobNNLwmRi6ktNOw6knbMNRJY8hul6irm8aJqrfadS9obDEQ
nb35isbTc+5Kl19L9liikHJqhIZO7D0p4Z806kYjokPf0wjy1nvnMSPJGfRa
EzVHo/+707zMBQQ6HxpSxLIEnsIvdxpYBDmyxuP9igRPTgaunFMhUF5+kdZY
TuCU/zjRRJMgVU+uwkWHoP5nyzfBqwmktwk0j+sR7LpX5HR5PUGs3cv46k0E
Vw+rLq43IWgvtM3oMCeY7olRf2ZJwFJvVpOxItDiqStvsSXYkr1fwduBwLrr
tlyKCwFPTVq2nBAEE2rBKx5B3On8OXkvgvQoxygjX4I8j09jvEACsaUoIO4g
QbUu6S0QELTIfmUaowmeD4tbx44QjLS7W6smEXy+KVu9LV2Se/aWMf8MwYoY
n+JjuQRvROJQ4SWCqs6PG364RpAyZz0RUULgZpBZerCcQN+1NzyoWrL30XXG
/rUEDTcip/jNBOu63ps87yFIm42M5A1J7ggfNFv/jqBkkJmZmyNge9RVd7IY
PGo3jhctY+Bn9ROidRlMVagsdN7I4LhhQv0qCwZVulkxT20ZjKqLNqdxGegs
rRzc5ceAlmk+NxXG4MfPz12KhJK5ybGF/BOSuaH5KpVzDGztLJmBYgYFhbHj
t2oYzC2+k5zYwcA96JMu9xWD201mNWveMVAyiOJ9WMhFSOrtyfplXESmry9O
2shFfEaBv50NFylnNLTl+Fycyc7oborkIi93UWZqOheiPKG9w1UuSvPfS8vX
cOGgtfO+dS8XQ+cShXFfuEhQb93+i5YrtLJVP43vdEWlqucvenxXkMyCCB+h
K8YVhzfnXnSFvL6j3odmV6xDiRaZdoWth5Ja6Woe/CMOsRQ4PCScePI1KJaH
/Kum0/WFPFT/mjO2uosHxrYrW1nVDSMdyux5jhsS3JzfjJ50g8ar1NP/bXVD
aVDD9kaWO2zfSg+W27mjL5p98qfj7jCoeTq/u88dUfOh4f1bPVAL6YGj6R5Y
mpjLrBr0gGf9pvp7OzxxbXG9mU+WJ97ZexXNj3hiq/rWTeIgL/xrUKHcbcgL
VTdfW8gEeONz/N17Zf3e2OmUY8P34SN+RXgrq4+P+0N76QrPb2FTKz4tVPFB
88Wlj/c0+aCwxpyVxN6H4PUh14fP74Nhbp698/Q+TMi2D5fRvigTzKf+o8QX
CmuFTRMmfgjsnl3UfMcPdckxNld2+0PHYiZR2OSPmJHDtW6cAHTnTUsZdwfA
yDmKrcDfj9iAMwvV9A/gQWxp44q3B6CY1XZiVXUgku2HbDL5Qfj7WwfjL2j+
bAc=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwl0oFGHgAAhdF/SZIkSZKkJUmSJEmSJEmSJEmSJEnSkmSSJEmSJEmSJEmS
JEmSJEmSJEmSJEmSzMzMzOxMl/ME9/vc9KWq41MgEPgV+FgQwYQQShjhRBBJ
FNHEEEsc8SSQSBLJpJBKGulkkEkW2eSQSx75FFBIEcWUUEoZ5VRQSRXV1FBL
HfU00EgTzbTQShvtdNBJF9308JVe+uhngEGGGGaEUcYYZ4JJpphmhlnmmGeB
RZZYZoVV1lhng0222GaHXfbY54BDjjjmhFPOOOeCS6645oZb7rjngUeeeOaF
V9545xvf+cHPwMfnv/nDXwJCCCKYEEIJI5wIIokimhhiiSOeBBJJIpkUUkkj
nQwyySKbHHLJI58CCimimBJKKaOcCiqpopoaaqmjngYaaaKZFlppo53/kXfS
RTc9fKWXPvoZYJAhhhlhlDHGmWCSKaaZYZY55llgkSWWWWGVNdbZYJMtttlh
lz32OeCQI4454ZQzzrngkiuuueGWO+554JEnnnnhlTfe+QfPCnps
                    "], CompressedData["
1:eJwN1nc41f0fBnDKbFDSEA37hMqWxC2EpDJCkQaJSlGiiERW0pAVCqFtk1l9
6MeRpGXvcTLP+X4lenrioZ9/3tf1+ue+3vd/t6STh5ULNxcXFz1/lIt4X/bb
0WS7oQR7QHMtrnoaHu6ed5xpi1T19rVQYHcvaZ+3SnSH5hO9eUvn2K+et9WK
8pR99FrU+p65Y2FLk5HB0jo6UxyRqf/4hNjQpPKG/aEhJwl8d6DPPLGmieCa
8JKMTethtM5g/LklTeJ7hGbVhTYiw8xFKGo/TbzuaOVe2yiJ3e3kxO69NFn8
+MqwzH4pHFUPcOYyo4mr99xA3xoZaJ6iGM7GNPkRbCc8zpCDpZG42wkDmuxc
Y2XseZuBXSuVRid1aXI9wqig5bAiHEN702e30SRywbKr57K3wMJ37rabGk0O
748wbLBQgUm+nt6JLTTRDPSpvqOihrUTP7O+MGjy1elJ16sTGkiVKbgXK0UT
d/+WONk5LXwt/GTAkqCJz79RaXlXt2PEf6YpbhVNosKUPwa46UL7gcxQtDBN
uk8cfkqd0sfutcdpSUGa2Bu9zru0zABUasAo/wKaNLwssnr/xxD2xp46jGmK
uPPI2j5XN0bzVMT0sQmKvEqX3afVZIpgiSdPq0cpEqk1s9Jq2x7MzTznd+un
yITMwEzlv3sRYbfh0OY2iqgOXnK6EmuBo63jLj8aKHKhVUh80NMKviXES7CG
IgcDUu4ekj6AXkPGlz0VFNli+GWPhqgtPsU8ZSXkzedHaqhO7D+IJ8of7tdm
UsSgfTzSbMgeDza0OXskUeQS8+6/Mrsc4Z7x8RbjDkW4ywQ+K/w+iikbtbSv
wRSpr51liYYdhwL/m4cG3hQZd6+5T+1xhmN1juO+UxQJzZZaW0idgOBOhyrL
wxRxPH2bT4t5Ens9HI9v2keRGS8/TadeN5h6Nhu91KPIksqEhxd2nYHnh71L
OMoUOXcxrEU54CzCGWm1AlIUGYt/slT1Pw/wh5sv6lpOkbqq8WIn1/Pw+8P4
oM1FEa0A9rVZbi9U8YZPXvnBIQ711qVqgRdx+M6zHf69HBJou7rJUsEHNkPp
61Y0cEjptJE/e9FlvCpxchYp45A2n2JpFQU/DO99VinxlEOay2LuxMv4I+F0
i2BNDIf8t8HgTfShq8j3cgjuv8ohfw+qqaqcugZGbkfhTjcOmUpdOb2iIQhc
Hg1LsvdzyO2DJVA6eh17tYvO+GznkOBL/r8X1IYggmvnhxxpDpkU7z59yzYM
KmYPpDYt5pCnxjd1Xq+IwCX+qLv5P9jkTbK3bDpvJCRHGH8XN7HJdGa2cIl6
FAQ+nLsuXcEmYtF2OuWKt6H9WefCpTQ24ftpyPtF8S529/XcaL3OJjv6/YR/
Ho3GXnmNuCUubKLYYeueVXwPN5iLFVsN2eSMsr3/No1YnFti8zJLjk2+n/A0
kbkbhwVZlzJC+dkknpMh0b00Ae7j8mZbhsbIxWr5+4sK7+O0+PqPZ96Nkdfv
PpSJhyYh5ESvxEzyGEl3EfE+F/kA1jlCvl2+Y6SRa8vHGOcUyHMNcAJtxohr
8NIqfo00rDw3UJy9ZYyMe49farB8hB+1FRNyvGOEtnlRfepmOvgtH/pkto2S
sEKe1QWDGTAwr49ofjZKlnDpF4i7PIZbr2GSfeAo8Tf81a9e8QQKV9eFwnqU
+ImUPnZSfobIP5SfscwoOWuX6m72/jm+HZi1Vfg5QhLnooRXhr+EdejZ+Iev
R4iE+vGT189nY0PewKZh/xFSXhAT9LcuF/pOlgcFto2QTR+e3UhUy0e/6L/f
XalhIm/14EzE8wJs2FajZ/tgmKhO3RxLNC+C8ovHWYJGw+Rlu7lZrHQxrpRH
/UxkDREFoyb6iGYpErXa+HuPDZGptP1XrmyowHKoNIt9GiQiglqpSiFvEdlC
xBMZg6RD0sVgjV4VbKZnnRlnv5P1U4FnM6L/Bw2u/s8zCSzyx9P2np85E+u8
1lBJ807Itgl9vZeJ5uttPNvn/Tvx8Yu5fUwENm5c3R7PIjWV9YP6FkzoLJyQ
vjxvtl+d5nVLJiSLTBVXz1tWMu1hjRUT18z4ttrEschQ/MskMxsmtD/1SMTE
sohvuMz4Zzsmbph8nvoSwyLryKpkG3smVup3ZGlGsUjOuSy5R15MLHQ/VRcT
wiI2y0WXCN9iQutru96IP4v80FX1Tn3CBF16llvdm0X0B0SjrCqZ6HWVpvXl
WCSybUnTyPtayLGY44WNA0RXNUL3be971DWEJDkEDJDZnpfD53k/4IDupDeP
9ABpShl+kry9Hku0j672re4n1dy547WBHyE0tCje2qifiLbPDBzb/gnFzXZt
J173kcubzldHCHxBt9zzVSpKfSRSp9iJseArFtQ7jvjI9RKF3VOKwou+wfV3
R/mygW5SsaSrkt7QiAupruI7I7tIS1yM7ErDJghIPJpypzrIjdEjGReTmmFg
0ZGdqtFOGsNVB5/OteAkfyPX3+OtxCHrkNHvM22QmHbQ5rvQTAY9Kmtdutth
+U7MNc2lkSQMfEeieSfsVBo9DXW/Eko2/UBnfhd4CxG8YqqBRNRr9Ory9MBI
aBX3HZ06coYvNZqt3Qu/6CP29Qo1hNW3Og3CfVg89kzp7Vwl+cK6mS99vg/P
CzRKOZfKiM00X+Yv0ofxooQB8895xGjIItv9Tx80OToCa9ankRRvtki9eD+s
xkLjEuJcEVUSfWBOth+scJ4/uUIZ6Byeaixc3Q+jjKyey0YF8Bc1UDo60Ydg
aYrxd7gcNQscbFWK+qAr4n7PsrAK8lPVzdxOfZhIzj0t1lmDzWoiAvbTveg+
8mt2cKgOc/usI1qX9SLcI+0IV2MD3C7tjrJa2gPpF74h97W/IkLDvGR9URdy
Yw3cs8824qPebDnDpBNUzbv4eyHNUBt8pTn5uR1ZSms56za1IoNLwPNAQhuc
e+KOHSxrwzo7WVr1eCtMlGqGwzQ6kNH94m2FcgueP+ntXZfSiUOhyUmeAs2Y
sJQyLp7sAl/kJkGtsUbMDrQweLR64Hzk5pozrd/QNelg+8mtFxK9Pk6TX75C
ajpZJTasDynJz1xeu3yBtGp/wJxJP05eZpTlbf6Exjbu3r9/+nGDz+hKUG09
OmPNtIYfDsBQ/t+QkPg6FHd3jE2os1D6rqonOKEWu47oSZtWsnC+rF2unVkD
Xq85sRn972DlaqW/2VgNvZzMWp7S7zjBHaLt8egdjoqL+5vKDWIwfLu99a4q
XGTU8sVGDSK6XPsuv2AliF7Izrnfg8iLy947FfEGNm1HJXkchvDgp+ZQ0M4K
OHg2hgYUD+F7ZpaYkXoZ3tPvajYtHob51lr9B/YlUOxZ7ldwaBiNOhN6eTmv
8Ko8f3FO+jB+OGZSdopFWOga8/fR0DAWD+SrLvpYAOVrBd/uuIygY/SKL2zy
oGH7UF6/aQRPS4Ps3ROykJCtOBoqM4rbDiscJJjPMWLLchc8OwrFKdEaHpun
qOUzNP+cMwpLKVnGTfXH0B4pDCgYG8Veu28Hp+0ysCzp28gZyTHoen/jYRc9
gnVXYdh96zHkCR4X+mSQhtngNOO3QWPgNpc/tf7XQ6w/lBtQUzCGyUX5Ovk2
yRDYsUo3vncMOVuazXr5EzH5KNE1X4ANnIz9Z9/feIRqmzwP2cKG5NznlW0q
cWhYGNRy1pKNbLNJpxUJMThnoZPy5jwb1NNFUQsY93DFUrik7A4bltIXTtb3
3IVAYJB+ciEberuYqaPM27DQME12aWJjZs1WrXebozCcqBZ9+ScbBgVqJJ11
A41yxVayQhwcmasVKu4Kh6DHj7X58hyYlr4+sVM4DBt3HjOxAwfs5SO9ml4h
qO8x5Nljw4FdUu2PPu7rkONPGtby5GC0iqvCZF8QLFt8NN5HcPDlZLJscEYg
nIa2UsapHESahWMBfwCeMdR3TxZyYPU+OfxzqR96jsb+XFDLQdUrs9Mm2Zex
2pFRkdHGgaKp9JvWDh8Uu/6a+W+Eg25u8MVoe6P4xd9J+9n5fydU6nyNvaC/
8OLK78IUzlXm+x6OPQ99G12tpo0U4mt2OF5f44mkMZNrjsoUFt7ymMyIPQuT
XB6TF3oUTiZsvZA8v98MKnnDevZQaL2i7B667RRcIh9ziR2k8FvHZmrW2RVC
vkpBYa4UWAPnvthtdsFJKbOLYd4U5MVGZToNnGFvLfHHNJhC7BZ506iE4zim
vFn6n1sUggLj9VZIHsOKUt743PsUJH2eftuR44hUA7oqOp3CNc0srU4XB1CV
Xh1FLyn4HPEf/eV4CCmnpPUcSyj8FNTgXseyxaNF+8NHqigsu93fGVA5v48V
8q4E1FOot1p2LHLICkJNwlt2NM3nbeAp+GNqCQUrj2PoovCf0KzHbMV+rM2c
jH7IoiBS7DnnqrMXFrFcn0+NUfAtX6TkuHAPTi1Kbdo8ScHSvdngqokp3Pav
3Cg6Q0Fj+dg/Fj924X996gM6C2j8KFbL9GYbwj1FtuytAI0G53shNxUMYDUx
2JcvROOjn6STaro+hKOFxeRFaeSXn3bLuKeH9t8GBzaL0XgRIsCRVtkB/eNP
zcs20NjN82D7Yx1tmMnn5CfK0lBc6i8tUaKJbX86g4YVaGhYm4kq31aHWlOe
RMlWGjtUVw3Y5KnCvDnLREydxgYNlRWxy1QQk2wwIb6NxhpZESZ2b8WvXJnq
Dzo0vDqqWF7vlVDyPwO9TH0adUQ1eOPjTVDgtDb/MaLB8/1vudicHN5OJ3v3
mtL45CFZwl8hg4rQ1dtczGlcU47N1K2TwhtbR+P7+2lI3lvXtG2tJHIt0/2v
W9HgfvjGeP2uDTj4UW9wqw2NG4S5/1CBBJZ+XN/+9iCN0pyZFKXzYjj2JnDH
qAONjapTIaOvVuERS+Tb2yPz/bkk0w67iGJlmsAO8+M0iu4EH+8/LYKki9xl
yc40ds3v+PjiZZCyUMh55UIjZVZgVPmyEGQ7dyx95ErjjchNDRPWYmwOXeym
eXq+T/3UrsoEAYwLtr0PdKdx08P4oUY7L1Qou9s3ztE4bEaUqRsLkc93NovX
k4bcdueUoXFuLDc8qed8nobl4HP/nWFc+D/JQrj7
                    "]}, {Automatic}]}}]], 1], 1, 1, -1, 1] Sin[Part[
               Evaluate[
                ReplaceAll[
                 $CellContext`\[Phi][$CellContext`t$$], {{$CellContext`\[Phi] -> 
                   InterpolatingFunction[{{0., 200.}}, {
                    3, 11, 1, {247}, {4}, 0, 0, 0, 0}, CompressedData["
1:eJxF1Ws01fkaB3CJskNup8hBaYqkGyIq7W+EXPf///tv23WPXMptGrI5jctW
MrmlKEeUUqZ2ZGeoDE5MNeR+KSU6RRNHJtdRSkk0e615cZ61nvV586z1fZ5X
j65fGNkvLSUltUDSH6X+X2cNyjQiZbPZfytiy6cK07iRE+y7i6uG17XNseNE
Go1qmxdh5cPo60+t1HDUMTBM9/t/YtK/+HxFmy50VxcIvQfWYm7vhfOEb4ix
ylavNd9tgaejfcglAxM0vWz4QfMPU5hF7EnOvmqOq7K12cp+O5C8ZPkZUbYl
QpRCTm1vZkN/iU994Dzw72Ojyedf74b07GGH9jYrhAlkFKXKrZHbVq0fJNiD
+2sFVo+MbTAcv55v/s4Gqs/6D1++aYu8x7/5JtrZYU17geOBPjuUNCaY2gv2
Ylut78oNLHtcDhyYOnjEHixF/6bSD/aIuPW/C29DHfDCLeCQyYADdrKkK7Lg
iIt3Ln2eynfE11BLNnfOEfu0XySWezlhUdxC+lmhE248N9T5MuUExoI7uhLO
mMmJq7JOd8aaEjMZqsUZnNpJjrecC2J6ivOCbF0gGgv4I/JHF1RuLDQ6UumC
lu+HY1NHXNBbatiQpc3Bn5MHlfMpDkTXFCJnYjjw8hb3cEUcqKg67Ch7yEFj
45t8+c8c3L1rnWCiSuGhSUiUzjcUXhVlBrO2UpjUruS/30NhQVYf/bsrBVU5
GduWAxROT4lPCiIpKP/OPNU6RiGzZVarIYOCUsWVgLCLFE4VON7QEFM4kBun
aVtBwTKjJEXwG4VlSS+nL7dRGI9T2t/RQ+GBAE9mByiYNYTGYoxCkUbON8c/
UNAMrW1tnqeQ/uu4YKkcjXmlFVqMCo1wvz0PcjRp+N4Tt2ivpkFrqXVeMaCx
Ozqmx8CIhlF3f1+pOQ1dE/tBU9BQJUZOaXtpSB9aUf6SojGVsUDLxIPG4M/D
icm+NLraO0dfBNOoH/sPsyWChvYqiwb/OBpRTJV5ThKNjqRt4pZMGnp3KrTn
z9OIHzfNNBLRIDVWb0wl6p/gYLvELx7eubskdq4LnrSSKPoYtddOIic74xNH
4ifj60XuEgse1br7SmTP1FpUSezVrdNUukYjxqFudr9EdUFdb41ES1b9Nd1i
GgGXGsKTSmikmTZtHy2jcbO1WYYqp9Hj29pRXknjrkPot6o1kjwT+Ymw+zTS
tcTC9gc0BLKOiobNNLwmRi6ktNOw6knbMNRJY8hul6irm8aJqrfadS9obDEQ
nb35isbTc+5Kl19L9liikHJqhIZO7D0p4Z806kYjokPf0wjy1nvnMSPJGfRa
EzVHo/+707zMBQQ6HxpSxLIEnsIvdxpYBDmyxuP9igRPTgaunFMhUF5+kdZY
TuCU/zjRRJMgVU+uwkWHoP5nyzfBqwmktwk0j+sR7LpX5HR5PUGs3cv46k0E
Vw+rLq43IWgvtM3oMCeY7olRf2ZJwFJvVpOxItDiqStvsSXYkr1fwduBwLrr
tlyKCwFPTVq2nBAEE2rBKx5B3On8OXkvgvQoxygjX4I8j09jvEACsaUoIO4g
QbUu6S0QELTIfmUaowmeD4tbx44QjLS7W6smEXy+KVu9LV2Se/aWMf8MwYoY
n+JjuQRvROJQ4SWCqs6PG364RpAyZz0RUULgZpBZerCcQN+1NzyoWrL30XXG
/rUEDTcip/jNBOu63ps87yFIm42M5A1J7ggfNFv/jqBkkJmZmyNge9RVd7IY
PGo3jhctY+Bn9ROidRlMVagsdN7I4LhhQv0qCwZVulkxT20ZjKqLNqdxGegs
rRzc5ceAlmk+NxXG4MfPz12KhJK5ybGF/BOSuaH5KpVzDGztLJmBYgYFhbHj
t2oYzC2+k5zYwcA96JMu9xWD201mNWveMVAyiOJ9WMhFSOrtyfplXESmry9O
2shFfEaBv50NFylnNLTl+Fycyc7oborkIi93UWZqOheiPKG9w1UuSvPfS8vX
cOGgtfO+dS8XQ+cShXFfuEhQb93+i5YrtLJVP43vdEWlqucvenxXkMyCCB+h
K8YVhzfnXnSFvL6j3odmV6xDiRaZdoWth5Ja6Woe/CMOsRQ4PCScePI1KJaH
/Kum0/WFPFT/mjO2uosHxrYrW1nVDSMdyux5jhsS3JzfjJ50g8ar1NP/bXVD
aVDD9kaWO2zfSg+W27mjL5p98qfj7jCoeTq/u88dUfOh4f1bPVAL6YGj6R5Y
mpjLrBr0gGf9pvp7OzxxbXG9mU+WJ97ZexXNj3hiq/rWTeIgL/xrUKHcbcgL
VTdfW8gEeONz/N17Zf3e2OmUY8P34SN+RXgrq4+P+0N76QrPb2FTKz4tVPFB
88Wlj/c0+aCwxpyVxN6H4PUh14fP74Nhbp698/Q+TMi2D5fRvigTzKf+o8QX
CmuFTRMmfgjsnl3UfMcPdckxNld2+0PHYiZR2OSPmJHDtW6cAHTnTUsZdwfA
yDmKrcDfj9iAMwvV9A/gQWxp44q3B6CY1XZiVXUgku2HbDL5Qfj7WwfjL2j+
bAc=
                    "], {Developer`PackedArrayForm, CompressedData["
1:eJwl0oFGHgAAhdF/SZIkSZKkJUmSJEmSJEmSJEmSJEnSkmSSJEmSJEmSJEmS
JEmSJEmSJEmSJEmSzMzMzOxMl/ME9/vc9KWq41MgEPgV+FgQwYQQShjhRBBJ
FNHEEEsc8SSQSBLJpJBKGulkkEkW2eSQSx75FFBIEcWUUEoZ5VRQSRXV1FBL
HfU00EgTzbTQShvtdNBJF9308JVe+uhngEGGGGaEUcYYZ4JJpphmhlnmmGeB
RZZYZoVV1lhng0222GaHXfbY54BDjjjmhFPOOOeCS6645oZb7rjngUeeeOaF
V9545xvf+cHPwMfnv/nDXwJCCCKYEEIJI5wIIokimhhiiSOeBBJJIpkUUkkj
nQwyySKbHHLJI58CCimimBJKKaOcCiqpopoaaqmjngYaaaKZFlppo53/kXfS
RTc9fKWXPvoZYJAhhhlhlDHGmWCSKaaZYZY55llgkSWWWWGVNdbZYJMtttlh
lz32OeCQI4454ZQzzrngkiuuueGWO+554JEnnnnhlTfe+QfPCnps
                    "], CompressedData["
1:eJwN1nc41f0fBnDKbFDSEA37hMqWxC2EpDJCkQaJSlGiiERW0pAVCqFtk1l9
6MeRpGXvcTLP+X4lenrioZ9/3tf1+ue+3vd/t6STh5ULNxcXFz1/lIt4X/bb
0WS7oQR7QHMtrnoaHu6ed5xpi1T19rVQYHcvaZ+3SnSH5hO9eUvn2K+et9WK
8pR99FrU+p65Y2FLk5HB0jo6UxyRqf/4hNjQpPKG/aEhJwl8d6DPPLGmieCa
8JKMTethtM5g/LklTeJ7hGbVhTYiw8xFKGo/TbzuaOVe2yiJ3e3kxO69NFn8
+MqwzH4pHFUPcOYyo4mr99xA3xoZaJ6iGM7GNPkRbCc8zpCDpZG42wkDmuxc
Y2XseZuBXSuVRid1aXI9wqig5bAiHEN702e30SRywbKr57K3wMJ37rabGk0O
748wbLBQgUm+nt6JLTTRDPSpvqOihrUTP7O+MGjy1elJ16sTGkiVKbgXK0UT
d/+WONk5LXwt/GTAkqCJz79RaXlXt2PEf6YpbhVNosKUPwa46UL7gcxQtDBN
uk8cfkqd0sfutcdpSUGa2Bu9zru0zABUasAo/wKaNLwssnr/xxD2xp46jGmK
uPPI2j5XN0bzVMT0sQmKvEqX3afVZIpgiSdPq0cpEqk1s9Jq2x7MzTznd+un
yITMwEzlv3sRYbfh0OY2iqgOXnK6EmuBo63jLj8aKHKhVUh80NMKviXES7CG
IgcDUu4ekj6AXkPGlz0VFNli+GWPhqgtPsU8ZSXkzedHaqhO7D+IJ8of7tdm
UsSgfTzSbMgeDza0OXskUeQS8+6/Mrsc4Z7x8RbjDkW4ywQ+K/w+iikbtbSv
wRSpr51liYYdhwL/m4cG3hQZd6+5T+1xhmN1juO+UxQJzZZaW0idgOBOhyrL
wxRxPH2bT4t5Ens9HI9v2keRGS8/TadeN5h6Nhu91KPIksqEhxd2nYHnh71L
OMoUOXcxrEU54CzCGWm1AlIUGYt/slT1Pw/wh5sv6lpOkbqq8WIn1/Pw+8P4
oM1FEa0A9rVZbi9U8YZPXvnBIQ711qVqgRdx+M6zHf69HBJou7rJUsEHNkPp
61Y0cEjptJE/e9FlvCpxchYp45A2n2JpFQU/DO99VinxlEOay2LuxMv4I+F0
i2BNDIf8t8HgTfShq8j3cgjuv8ohfw+qqaqcugZGbkfhTjcOmUpdOb2iIQhc
Hg1LsvdzyO2DJVA6eh17tYvO+GznkOBL/r8X1IYggmvnhxxpDpkU7z59yzYM
KmYPpDYt5pCnxjd1Xq+IwCX+qLv5P9jkTbK3bDpvJCRHGH8XN7HJdGa2cIl6
FAQ+nLsuXcEmYtF2OuWKt6H9WefCpTQ24ftpyPtF8S529/XcaL3OJjv6/YR/
Ho3GXnmNuCUubKLYYeueVXwPN5iLFVsN2eSMsr3/No1YnFti8zJLjk2+n/A0
kbkbhwVZlzJC+dkknpMh0b00Ae7j8mZbhsbIxWr5+4sK7+O0+PqPZ96Nkdfv
PpSJhyYh5ESvxEzyGEl3EfE+F/kA1jlCvl2+Y6SRa8vHGOcUyHMNcAJtxohr
8NIqfo00rDw3UJy9ZYyMe49farB8hB+1FRNyvGOEtnlRfepmOvgtH/pkto2S
sEKe1QWDGTAwr49ofjZKlnDpF4i7PIZbr2GSfeAo8Tf81a9e8QQKV9eFwnqU
+ImUPnZSfobIP5SfscwoOWuX6m72/jm+HZi1Vfg5QhLnooRXhr+EdejZ+Iev
R4iE+vGT189nY0PewKZh/xFSXhAT9LcuF/pOlgcFto2QTR+e3UhUy0e/6L/f
XalhIm/14EzE8wJs2FajZ/tgmKhO3RxLNC+C8ovHWYJGw+Rlu7lZrHQxrpRH
/UxkDREFoyb6iGYpErXa+HuPDZGptP1XrmyowHKoNIt9GiQiglqpSiFvEdlC
xBMZg6RD0sVgjV4VbKZnnRlnv5P1U4FnM6L/Bw2u/s8zCSzyx9P2np85E+u8
1lBJ807Itgl9vZeJ5uttPNvn/Tvx8Yu5fUwENm5c3R7PIjWV9YP6FkzoLJyQ
vjxvtl+d5nVLJiSLTBVXz1tWMu1hjRUT18z4ttrEschQ/MskMxsmtD/1SMTE
sohvuMz4Zzsmbph8nvoSwyLryKpkG3smVup3ZGlGsUjOuSy5R15MLHQ/VRcT
wiI2y0WXCN9iQutru96IP4v80FX1Tn3CBF16llvdm0X0B0SjrCqZ6HWVpvXl
WCSybUnTyPtayLGY44WNA0RXNUL3be971DWEJDkEDJDZnpfD53k/4IDupDeP
9ABpShl+kry9Hku0j672re4n1dy547WBHyE0tCje2qifiLbPDBzb/gnFzXZt
J173kcubzldHCHxBt9zzVSpKfSRSp9iJseArFtQ7jvjI9RKF3VOKwou+wfV3
R/mygW5SsaSrkt7QiAupruI7I7tIS1yM7ErDJghIPJpypzrIjdEjGReTmmFg
0ZGdqtFOGsNVB5/OteAkfyPX3+OtxCHrkNHvM22QmHbQ5rvQTAY9Kmtdutth
+U7MNc2lkSQMfEeieSfsVBo9DXW/Eko2/UBnfhd4CxG8YqqBRNRr9Ory9MBI
aBX3HZ06coYvNZqt3Qu/6CP29Qo1hNW3Og3CfVg89kzp7Vwl+cK6mS99vg/P
CzRKOZfKiM00X+Yv0ofxooQB8895xGjIItv9Tx80OToCa9ankRRvtki9eD+s
xkLjEuJcEVUSfWBOth+scJ4/uUIZ6Byeaixc3Q+jjKyey0YF8Bc1UDo60Ydg
aYrxd7gcNQscbFWK+qAr4n7PsrAK8lPVzdxOfZhIzj0t1lmDzWoiAvbTveg+
8mt2cKgOc/usI1qX9SLcI+0IV2MD3C7tjrJa2gPpF74h97W/IkLDvGR9URdy
Yw3cs8824qPebDnDpBNUzbv4eyHNUBt8pTn5uR1ZSms56za1IoNLwPNAQhuc
e+KOHSxrwzo7WVr1eCtMlGqGwzQ6kNH94m2FcgueP+ntXZfSiUOhyUmeAs2Y
sJQyLp7sAl/kJkGtsUbMDrQweLR64Hzk5pozrd/QNelg+8mtFxK9Pk6TX75C
ajpZJTasDynJz1xeu3yBtGp/wJxJP05eZpTlbf6Exjbu3r9/+nGDz+hKUG09
OmPNtIYfDsBQ/t+QkPg6FHd3jE2os1D6rqonOKEWu47oSZtWsnC+rF2unVkD
Xq85sRn972DlaqW/2VgNvZzMWp7S7zjBHaLt8egdjoqL+5vKDWIwfLu99a4q
XGTU8sVGDSK6XPsuv2AliF7Izrnfg8iLy947FfEGNm1HJXkchvDgp+ZQ0M4K
OHg2hgYUD+F7ZpaYkXoZ3tPvajYtHob51lr9B/YlUOxZ7ldwaBiNOhN6eTmv
8Ko8f3FO+jB+OGZSdopFWOga8/fR0DAWD+SrLvpYAOVrBd/uuIygY/SKL2zy
oGH7UF6/aQRPS4Ps3ROykJCtOBoqM4rbDiscJJjPMWLLchc8OwrFKdEaHpun
qOUzNP+cMwpLKVnGTfXH0B4pDCgYG8Veu28Hp+0ysCzp28gZyTHoen/jYRc9
gnVXYdh96zHkCR4X+mSQhtngNOO3QWPgNpc/tf7XQ6w/lBtQUzCGyUX5Ovk2
yRDYsUo3vncMOVuazXr5EzH5KNE1X4ANnIz9Z9/feIRqmzwP2cKG5NznlW0q
cWhYGNRy1pKNbLNJpxUJMThnoZPy5jwb1NNFUQsY93DFUrik7A4bltIXTtb3
3IVAYJB+ciEberuYqaPM27DQME12aWJjZs1WrXebozCcqBZ9+ScbBgVqJJ11
A41yxVayQhwcmasVKu4Kh6DHj7X58hyYlr4+sVM4DBt3HjOxAwfs5SO9ml4h
qO8x5Nljw4FdUu2PPu7rkONPGtby5GC0iqvCZF8QLFt8NN5HcPDlZLJscEYg
nIa2UsapHESahWMBfwCeMdR3TxZyYPU+OfxzqR96jsb+XFDLQdUrs9Mm2Zex
2pFRkdHGgaKp9JvWDh8Uu/6a+W+Eg25u8MVoe6P4xd9J+9n5fydU6nyNvaC/
8OLK78IUzlXm+x6OPQ99G12tpo0U4mt2OF5f44mkMZNrjsoUFt7ymMyIPQuT
XB6TF3oUTiZsvZA8v98MKnnDevZQaL2i7B667RRcIh9ziR2k8FvHZmrW2RVC
vkpBYa4UWAPnvthtdsFJKbOLYd4U5MVGZToNnGFvLfHHNJhC7BZ506iE4zim
vFn6n1sUggLj9VZIHsOKUt743PsUJH2eftuR44hUA7oqOp3CNc0srU4XB1CV
Xh1FLyn4HPEf/eV4CCmnpPUcSyj8FNTgXseyxaNF+8NHqigsu93fGVA5v48V
8q4E1FOot1p2LHLICkJNwlt2NM3nbeAp+GNqCQUrj2PoovCf0KzHbMV+rM2c
jH7IoiBS7DnnqrMXFrFcn0+NUfAtX6TkuHAPTi1Kbdo8ScHSvdngqokp3Pav
3Cg6Q0Fj+dg/Fj924X996gM6C2j8KFbL9GYbwj1FtuytAI0G53shNxUMYDUx
2JcvROOjn6STaro+hKOFxeRFaeSXn3bLuKeH9t8GBzaL0XgRIsCRVtkB/eNP
zcs20NjN82D7Yx1tmMnn5CfK0lBc6i8tUaKJbX86g4YVaGhYm4kq31aHWlOe
RMlWGjtUVw3Y5KnCvDnLREydxgYNlRWxy1QQk2wwIb6NxhpZESZ2b8WvXJnq
Dzo0vDqqWF7vlVDyPwO9TH0adUQ1eOPjTVDgtDb/MaLB8/1vudicHN5OJ3v3
mtL45CFZwl8hg4rQ1dtczGlcU47N1K2TwhtbR+P7+2lI3lvXtG2tJHIt0/2v
W9HgfvjGeP2uDTj4UW9wqw2NG4S5/1CBBJZ+XN/+9iCN0pyZFKXzYjj2JnDH
qAONjapTIaOvVuERS+Tb2yPz/bkk0w67iGJlmsAO8+M0iu4EH+8/LYKki9xl
yc40ds3v+PjiZZCyUMh55UIjZVZgVPmyEGQ7dyx95ErjjchNDRPWYmwOXeym
eXq+T/3UrsoEAYwLtr0PdKdx08P4oUY7L1Qou9s3ztE4bEaUqRsLkc93NovX
k4bcdueUoXFuLDc8qed8nobl4HP/nWFc+D/JQrj7
                    "]}, {Automatic}]}}]], 
               1] - $CellContext`\[Phi]\[Infinity]5[1, 1, -1, 1, 100]]}, 2]]],
       "Specifications" :> {{$CellContext`t$$, 1, 200, AnimationRate -> 10, 
         AnimationRunning -> False, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{409., {112., 117.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.4636895904224734`*^9, 3.463689598493473*^9}, {
   3.4636899354714737`*^9, 3.4636899471854734`*^9}, {3.463690011050473*^9, 
   3.4636900222684736`*^9}, {3.4636900648554735`*^9, 
   3.4636900796254735`*^9}, {3.463703434078473*^9, 3.463703446281473*^9}, 
   3.4637036897984734`*^9, {3.4637037602004733`*^9, 3.4637037765864735`*^9}, {
   3.4637038435944734`*^9, 3.463703866677473*^9}, {3.4637039886024733`*^9, 
   3.4637040657384734`*^9}, {3.4637540358721304`*^9, 3.4637540393197303`*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1017, 643},
WindowMargins->{{43, Automatic}, {Automatic, 75}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 100, 1, 27, "Subsubsection"],
Cell[670, 25, 329, 8, 49, "Input"],
Cell[1002, 35, 222, 6, 49, "Input"],
Cell[1227, 43, 311, 9, 49, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[1575, 57, 229, 3, 21, "Subsubsection"],
Cell[1807, 62, 249, 7, 47, "Input"],
Cell[2059, 71, 382, 11, 48, "Input"],
Cell[2444, 84, 578, 17, 49, "Input"],
Cell[3025, 103, 325, 10, 48, "Input"],
Cell[3353, 115, 917, 25, 31, "Input"],
Cell[CellGroupData[{
Cell[4295, 144, 155, 3, 31, "Input"],
Cell[4453, 149, 154, 4, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4644, 158, 243, 6, 31, "Input"],
Cell[4890, 166, 14618, 246, 177, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19545, 417, 311, 7, 31, "Input"],
Cell[19859, 426, 15306, 257, 447, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35202, 688, 243, 6, 31, "Input"],
Cell[35448, 696, 15612, 262, 243, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51097, 963, 243, 6, 31, "Input"],
Cell[51343, 971, 17414, 291, 337, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68794, 1267, 243, 6, 31, "Input"],
Cell[69040, 1275, 18548, 311, 372, "Output"]
}, Open  ]],
Cell[87603, 1589, 175, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[87803, 1595, 148, 3, 31, "Input"],
Cell[87954, 1600, 91, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88082, 1606, 179, 4, 31, "Input"],
Cell[88264, 1612, 109, 1, 30, "Output"]
}, Open  ]],
Cell[88388, 1616, 185, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[88598, 1624, 1497, 36, 33, "Input"],
Cell[90098, 1662, 887, 20, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[91022, 1687, 3491, 92, 112, "Input"],
Cell[94516, 1781, 104838, 1742, 268, "Output"]
}, Open  ]],
Cell[199369, 3526, 141, 1, 29, "Text"],
Cell[199513, 3529, 4624, 118, 248, "Input"],
Cell[CellGroupData[{
Cell[204162, 3651, 246, 6, 31, "Input"],
Cell[204411, 3659, 2971, 63, 268, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[207419, 3727, 287, 6, 31, "Input"],
Cell[207709, 3735, 2906, 61, 268, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[210652, 3801, 288, 6, 31, "Input"],
Cell[210943, 3809, 2909, 61, 268, "Output"]
}, Open  ]],
Cell[213867, 3873, 107, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[213999, 3878, 366, 7, 31, "Input"],
Cell[214368, 3887, 3151, 64, 374, "Output"]
}, Open  ]],
Cell[217534, 3954, 166, 3, 29, "Text"],
Cell[217703, 3959, 1925, 46, 47, "Input"],
Cell[219631, 4007, 5297, 136, 268, "Input"],
Cell[CellGroupData[{
Cell[224953, 4147, 630, 12, 31, "Input"],
Cell[225586, 4161, 561, 16, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[226184, 4182, 575, 10, 31, "Input"],
Cell[226762, 4194, 38334, 652, 268, "Output"]
}, Open  ]],
Cell[265111, 4849, 160, 3, 29, "Text"],
Cell[265274, 4854, 103, 1, 29, "Text"],
Cell[265380, 4857, 5544, 138, 261, "Input"],
Cell[CellGroupData[{
Cell[270949, 4999, 674, 12, 31, "Input"],
Cell[271626, 5013, 605, 16, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[272268, 5034, 731, 12, 31, "Input"],
Cell[273002, 5048, 53968, 908, 160, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[327019, 5962, 270, 5, 21, "Subsubsection"],
Cell[327292, 5969, 249, 7, 47, "Input"],
Cell[327544, 5978, 121, 1, 29, "Text"],
Cell[327668, 5981, 496, 13, 49, "Input"],
Cell[328167, 5996, 178, 4, 29, "Text"],
Cell[328348, 6002, 479, 12, 49, "Input"],
Cell[328830, 6016, 507, 13, 49, "Input"],
Cell[329340, 6031, 2093, 48, 49, "Input"],
Cell[331436, 6081, 4455, 110, 132, "Input"],
Cell[CellGroupData[{
Cell[335916, 6195, 181, 3, 31, "Input"],
Cell[336100, 6200, 154, 3, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[336291, 6208, 122, 2, 31, "Input"],
Cell[336416, 6212, 90, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[336543, 6218, 229, 4, 31, "Input"],
Cell[336775, 6224, 107, 2, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[336919, 6231, 124, 2, 31, "Input"],
Cell[337046, 6235, 114, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[337197, 6241, 991, 15, 31, "Input"],
Cell[338191, 6258, 1106, 23, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[339334, 6286, 615, 12, 31, "Input"],
Cell[339952, 6300, 7855, 134, 248, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[347844, 6439, 1246, 19, 31, "Input"],
Cell[349093, 6460, 40899, 692, 310, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[390041, 7158, 321, 5, 21, "Subsubsection"],
Cell[390365, 7165, 249, 7, 47, "Input"],
Cell[390617, 7174, 382, 11, 48, "Input"],
Cell[391002, 7187, 207, 4, 29, "Text"],
Cell[391212, 7193, 722, 17, 49, "Input"],
Cell[391937, 7212, 178, 4, 29, "Text"],
Cell[392118, 7218, 870, 22, 49, "Input"],
Cell[392991, 7242, 820, 21, 49, "Input"],
Cell[393814, 7265, 2576, 62, 96, "Input"],
Cell[396393, 7329, 4641, 113, 132, "Input"],
Cell[CellGroupData[{
Cell[401059, 7446, 346, 5, 31, "Input"],
Cell[401408, 7453, 344, 7, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[401789, 7465, 122, 2, 31, "Input"],
Cell[401914, 7469, 247, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[402198, 7478, 293, 5, 31, "Input"],
Cell[402494, 7485, 241, 5, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[402772, 7495, 124, 2, 31, "Input"],
Cell[402899, 7499, 213, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[403149, 7507, 1109, 18, 31, "Input"],
Cell[404261, 7527, 1367, 27, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[405665, 7559, 716, 14, 31, "Input"],
Cell[406384, 7575, 8662, 145, 244, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[415083, 7725, 1414, 22, 31, "Input"],
Cell[416500, 7749, 49233, 825, 526, "Output"]
}, Open  ]],
Cell[465748, 8577, 177, 2, 29, "Text"],
Cell[465928, 8581, 5331, 126, 132, "Input"],
Cell[CellGroupData[{
Cell[471284, 8711, 1265, 20, 31, "Input"],
Cell[472552, 8733, 791, 19, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[473380, 8757, 716, 14, 31, "Input"],
Cell[474099, 8773, 7305, 124, 236, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[481441, 8902, 1670, 25, 31, "Input"],
Cell[483114, 8929, 45907, 774, 278, "Output"]
}, Open  ]],
Cell[529036, 9706, 222, 4, 29, "Text"],
Cell[529261, 9712, 5319, 125, 132, "Input"],
Cell[CellGroupData[{
Cell[534605, 9841, 1593, 24, 31, "Input"],
Cell[536201, 9867, 825, 20, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[537063, 9892, 822, 16, 31, "Input"],
Cell[537888, 9910, 8846, 150, 237, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[546771, 10065, 1948, 29, 31, "Input"],
Cell[548722, 10096, 37622, 637, 246, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)