(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    324576,       6134]
NotebookOptionsPosition[    317949,       5914]
NotebookOutlinePosition[    318934,       5949]
CellTagsIndexPosition[    318761,       5942]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Plotting Commands", "Subtitle",
 CellChangeTimes->{{3.4199910321613007`*^9, 3.419991038907156*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"Cos", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], PointSize[Large], Thickness[Large], 
    LineBox[CompressedData["
1:eJwt2Xk0lO37APCRJUpJKoWKiiiVSsuLusZLIrKlUolIooSk0l5eLaSylEqW
QinKviVcg4RCtpCo7NvMPNbZDH7375zvX3M+58z2XOv9nEfFydP6xAwajZYq
QqP9/+sek7kGEypSjKBnRtWdW24V6mZdHZJcJsVIyG4aVQpzQE2VwahFClKM
kCeZhg2hnjiXX8bbOF+Kof6u6HJs6A2sfXsr2XWGFCPw1svKfaGP0FZyfElj
hyTDf9ccm/0hMXiy7NdQapwkYwsKCi49SEH/Xe+iXVQlGVoL3xkuvY54tkEw
P0xuJsM/v2DXrF01+PWoQl+XnATj48US7fyfTThZmJiqs0ScoZa07Lsx8zd2
pg+HWEmJMbp6fh4qlezEra8kGh7MFmWozEwU2SPbg3or6tbf54kwBOfKtiTx
+vCl3GztfWMiDK8LuSu3iPajqLjhP4pDIozUm3OW5s7px6+9WQZJvSKMumPa
au9W9KPth+e23xpFGP/2L9LfZtaPPtsd/WZniTCcTsYuEInux/fmQz/unxVh
mP9sOr9NbwCVrsy9FjRAYyQu6qt+6jSIbvFf5aN6aIy86SPLP54axOyqO+kf
OmiMUOewqnrvQbRSnu6tbqExck0v6I77DeKdUspa9huNoW0eqNYXO4iUTK16
eBKNkXpc9X5Q+yAWx4c1xLjTGIvDbc4UH2KiTLWFZ6orjRFfNKNitiMT7biz
ZxU50ximrS1G5q5M5Jr4Q4cdjeFdLxpbeIGJmpRP4qq9NMaDdO/XZmFMfPLP
gZvv1tEYXw3nHlP6xsSayI22Lm3TeHs/cq5vYSEt3jO8rWEaz3JWBp7TY6FW
0ocGm8pp9F2hVelgwMLgjxpWBp+mUfPVMZvlViy0bFTZo/x8GrfGhuzUcWdh
jcx8vRabaSzcfrWq7SWx38hy88oplDmtw6oWZSMtUMu+tGQK7bqa0rOk2KgV
4hGp92kK7zrnMMNk2BgcM7B4beIU9h0Jyd6qyEbL/A5ZyXtTeDDzvs/CTWys
Ga8TLTaYwr8lXlpb7dn43TWjd8unSXT1c/vDT2Fj3R+u5c6MSWxLVzp+OZON
jQf08oySJvH8tiqT0Vw2thqWBh18MYkPInN1q4vYOKDctPHSlUn8vXtlmHo9
G8V+Cq7k606i5GStiscYGyUtofvz5klUinC38eGxcXbZf+ZVayexJFfjp7eQ
jfOzpFV+K05iEMj/sBWjcHnIsi/TE0LcGXz1SrkchTom/84zyBfi1qTI5C0b
KdzJuHPJNFOIv79lBDO0KdTf9q1j33sh+okIsgy2U2isapPlHCnE3JrnXzYB
hftFXA7fuSokcdvRl2FGodfHgPgKPSGymYt99F0o9NGqnlOnLcTy8w2rLN0o
vJgw/2KLphBZRdmzD7pTeP3JC5NBJfJ+8WHfvd4U3j/7gS09OYHPVqbnt16j
8I1G7XbLggk8ssHT1D+MQtfVaUU3syZw2CR2rVQ4hWtUQ/akfZhAYybt9p1n
FCYrW9nNj55Allzny1NRFObI195ouD6BYzdlzjS/ofDywjRJ8YsTaP3bRULl
HYV6ciEhWzwnUFry6AKnJAoZc63iwh0msOW2SFBVCoXl4rVfbOkT+GVP6C+T
XAoDRdMsArZP4LpwndkH8ig0Ewlp/qg1gQU016TD+RTWCi0HFFQmsC70pO5e
BoUtozVz2kQm0HnbWFBTGYWD7TU2jiUC1F4u+vjmD/J//6S2hXwS4BpXnXC5
JhK/tmCX4gwBZoctnRHTTOFYs6XvyngBpl72Whjzi0Lh95oX3f4CRA13ZcN2
CgurUlctuibA17eWuER0UHjzW/AHo/MC1HqSMb+/k0LxMktMOCFAZqFXjGcP
hXMLazrcjASYubX8usoghTWfUk9H7BTgfz/vjuowKQz9GDz2dasAFw71VZqx
KFyUZSmhuVqAaf8GvT9EUdicrvXIbrkAld2t0m2GKIxInbf4gbwAdboKFI2H
SX29r9FgzxTgzwdvFi8epbDjXWr6MpoAh9ZnJo0RxycE61rw+Dg6ef9VxRiF
6nGWe1P7+FjFr8m041A48FKr8e9fPs5W+F2rwKXwffQ8B9mffFxoMW5ZS6wV
UePlXcFHyx9PfFbzKbxndmEGn8HHILF2ywbiv1OKj2/k8rHtbZO2r4DC7WlF
qhKpfAwuN1WWm6Dw0fGTOUEJfNzAlpV7TdyzcI6JXAwfb6uLzFkvJPVfnt7y
PJyPWbNG5yQTszWnJt/c5uPkW6tVYZMUGv2Je7TuGh/3qlz/h0ccHWKikunD
R+FHzf02UxRyDKh0HXc+How0uJhAvJfz2LDoOB+3XkiKGSaOf6vTuPsIH6cv
WVRvmib5PPz3ZLU1Hz/YLxU9TWwz5w7fZg8f6x3Ed0YQv8e193/p8/H1DsF1
BrGYd62S0z985OoNl7YR2626mNynxUeD1R3zR4gzG5Xonup8TNxTdmKSeHZA
ce34cj6OXYoqnCZ20nU9flWej0+knZfyifNYc8ZnyPAx6beSXz/x/JcZdwIk
yPVYVjJriE9ZH1o8b4qHHONLR1OIi8Wm34WP8zBFa12DP7FCTrzuUhYP/3BG
La2Ivd32VMV1Ec9trV9AXKE4ZL+mlYdxXhy77+T6laufDKXW8/DjswPMm8S+
N3X9tn3j4c578/00iGs2tcsVFvOw9fO/yypIfNW777w2zONhie2MIgfim081
t31L42F0nccpFslPs0ldudU7Hj7a9VbBm1hLePFw80serjKprWWR/N5NXsq0
f8ZDU/7c4GPEv4+VXOt+xCN5ubf/K6mPrXJuMu53eVjg7LZiLXHPxcxNly7w
8HzB/PpaHqmHNYc/T58h139bL0eeOLx1ev+dEzzUv/owzobU4y5900thNjy8
eeTek4xxkt9ZHfhhEw/XvfLoFh8h+c2/a6W9hofvuU6yYqQ/bDzXdeap8NAx
/cpuPukn0QZfifJ5PBzSNq4vJ/3mFCWzt4PNxWpTRW9hH8mPRdZv1x4uqkhS
3PRekp8ZR7yoNi5u2OEfeIz0c7HLmzBhJRdFbc42vST9rqK1o2VREhctHx9Q
zG4j88m6P3x9HBcHz3hvoLeSePs82Wf0gosxYVevFLdQWJ3Lqjx/n4vpIXX5
KWT+XNaPxobTXDziuIHSrKXw9fE9V5nHuSh74HCV73eSn9uc7WJ2XFwdHtqT
X0Xh6q/m6ZvNuMgO+P1t3VcKG6yn40M1ucg8u80jvZjCaZ8kx8RVXLyQOH8j
g8zDNU8PLitWItcXHbbpSyHJ56+Up8PSXGwduzCaR+bpOudjgZYsDs4cLry8
O53CO+eLPOcmc/Cj4MRCVgyFaU/PaKq94WDt9WTaDTLfWz8u6d8RzcHqWf9s
lnpB4aaps05nHnKwxOWalwTZD3/urNhf6cHByiHpo/H3yTx49p9O4AYOvuQU
P/Q4T+ZN3i5xibRxLLsnratvQGFSSM7Xc2/HMVfxvOpjst/cXTWC22PG8eUu
rcW/dSlkLZyjWPBwHJVvdSocJPtxyKtBy8d9HH/7p2W0rSL9r3bcrmP1OL4P
4K7fSfbtjLCbGYXRY+gX3pluk8/GErcRX83wMaSn3u4PzGGjP915Z8SDMSw9
6G+Rm85GcfbuivNXx3DWrJUpvLdkv5vI/NE8PIbZD3Z1yTxh49zpqFkvFo6h
e5Kj2/PTbFQ8/cnxYtAoloh3XF05n40R5eVGc/xH8dEtY3l7aTYqqDWujbsy
ivkJGk7BEsTtQ+PVp0bRvbNCplXAwsUH1QLVTEZx/QYxnkwnCxcYhKT/EB9F
Tseo52AaC6UVT4pq3xjBBF+u7DUTFk59nf966Oww2i34q3ruGBOtnqllyZ8a
RqfUyLfryfkv/oRO6U6nYTyZGHGo04qJe2hO3UHWw6i21HHvdgMmhm9JU9XY
PIzy7i8/BKsycd1LizeOY0OYV3enQ9g3iHbngxLqLgzhtSYarYacT8+BtI0b
l421d+8dqjo8gIYGePt4Dxtb/pT0qFgN4KLd3jlHf7DRjn9bxHP3AOaaNytY
Z7Dx70TEwMjmARQejW/X8STnstwTza+kB9D/qp6ndC8LrxUaPY7O78fwj+6B
KY1MDAw1urdavh9zN1cxxrMG8Mi20a6lOb2YIvslVb6gB+dwZn73+tOF53Se
i+707MA/1ic0/vNoR53bDsZ9p1rxas3ux5uv/0LKVfjoxr0GbOoxe1W+vgH/
+/xCB3hlqCR9Sd27oQwbP+l9ThRNxcJGaZcpWio6aBpN2oQkg1uN/bKUoGRo
N7bd7xFdDt1yynqvL5bDWAqkLNZtAMfV6auMuuuh5fUyj+GaVpD5GvNOu+UX
XPH4ZLw/pgNeXNLKKglvB9uXGw5GPuiBTcFxtnafusDlbsWMPzUDsPWBbKda
RS/YyZzOqfg7AOYxJXkV9b1g9VTaPXNoAL5R+z64/O4FvQSLHwHzBqFK+Kj5
4WgvzC/7kaBtOQj6oWZTT5f2QYFEh1ng90FQX+P0732vPlhwRxC+pZoJplHO
TZ2y/VDiv3Zt0Dc2zKs44FevPwA6009eqv1iw45s0YhPewYg/RJtUdEAGzb/
djkbtW8AYj1+0DhSFET++n3A/MQA+NneaHQwpuDCYG2R870B+Fez/tbmUgr8
zIONnKoG4K/bDvczDkPg7SisCbEeBKWEkTc6J4dga8DC7g+HB8G2K6F9pucQ
+Ifr+ZY4DUKN/fyDsdeHoDtNfMEv70Fg7OvVb4oagtBeOean0EGI2REir986
BE3f8y7+WzsI9rLdxQsODcO2XfpKB0yYIBbRMHbfcRhiC35917NiQuKKz2qi
p4ZhbK5MuOIhJnA3xwUOXx4GlQPeVkWuTAg+4GhdHTkMHjkSuz/cZULJi7b2
u3+H4cOxMFPxz0xQV2ukTZwcgQOSQSoJW1lQnVy6ydtrBIpP1s0N2sGC89uy
nPt9R8BUPbDS1ZAFxcaPy5sCRmDnwMs0KWsWHDltHZyZNAJfajay+txZ8DC1
erkHNQJqyrF3FV+xYFSnbGf7hVHoWWmWZijKhi/7UneVXR8Fk/zHo58k2fDM
/bnZhzujcC1EuWvtXDbsjD59+FL4KFT8yf46vpgNgSLzLshmjwItRDtg43o2
rCi3/aA/PgoN6yTf7z7IBqv9A4qx58agOkaG2R3HhlUe9SvuXRmDzalG97ze
soFzJ1/D478xeOPzI2n0PRsicx9u0wkbg+TuJ/6dWWzoU9y8ry59DDTnmdq7
lbHhZseVwBkjY8DPqCiV7mdDiuccvpPXOOyLdXJIUqOAWa/FHfEdB3qFlkTo
GgrWbLcZ97s1Di7MGQzP9RTE014Mx4aOQ8Dgbtd5WymICFEf6Mgch85z4+49
hhT4Zxj8cuKPQ6CbmV3XMQqK5U/+HBHhgCp3UaauMwXTVwKb/GZxwKjXcW7g
SQouG9bWxypyYD4n7ctsDwo8f9hXduzgAMv0sGbcZQoOcy8VOPlxQEYaxFVC
KXh6JOrTSCAH+p8uXNL3mIIGZHz0C+OAzeQVlTdPKbC4NzM7Np4DYRmN0jOj
KDBc8iS54wsHVgS5bbdLIHV9Lfe993cOxPhZ/2p5RwG2/0qc0cwB3Svf3C3f
U6CTuCJhRT8HPBqjbZXTKNigmxrjNJsL689l0/flUeAeUx81IseFgCCeYUA+
BYmi3Bd+SlxQFz+7KbuQglWVO57FruPCmtSAL2PFFCgc/RbcYcEFV6mgYrFv
FIjd6Lnl9JgL/yiO3vf8SYHHOdH9jpFc0Jd+YclroaD5pLL6sXgu6I7/Ur7U
SsF7y8PVRzO54G2W2OH0hwKbFdUKhxq4oPr6XHtjFwWFiwZZB1u5wBKt4S3v
oUB9tmTRgS4uOPwrXOzYS4FwVP+kzRgX8p7f9v7WT0FcaVaGxQIeyKGcH51N
gTRZBOZKPGDpPm8yocgcSKYO7V3FA9mq+M2mQxTseapBM9XmQfwSi6ktIxRk
3jeqN9HjwXmjc+7LRylYdvP4G2ND4lPqf2ljFIy4RpkZ2fAgytmlKWmcAruj
ect32fHAJtL/8HkOBV+smkYMnHng8dC+YyuX1I+O7HN9Hx4oWd2ZfsUj8dmw
3p1+lfz++UuPTfkkPitNAfx5sFvgvY5F/K/07W69xzw4WfDz1OIJEh9abK5u
JA9G9IVzY4kXjRfe14nnwYKsR9krhRTc7P9l/897HpzJPucYRTzQxtu4PZMH
2l0BMjKTJJ51C8W35fNg568shi9x4ZdNzVs+80B0W5tPC7H6J4sk7UoeJIT0
rtWeoiA0xf365gYeTP5X2H2bWBgXYLWplQehr/fGkvM2uDx7s2pjFw/eB/k5
yk5TUBNUwt3A5IF1tdlKU2KdW3+/rh/jgeVUVO9V4vjzk1HrhDz4J8Ut+Q3x
3FMKZzXF+HDGm2wjYl/7bYZrpfmwqNnYoIO4w9pGfs0CPmz23Cs7Rmy2++yA
uhIfgkuT28n9B2TrPixYvYoP1SdPZZL7D1DWSgpW0+TDsfYbAeT+AwJXlR9X
1eZDUP7QsUHiscXdW1fpkd/zY+j8ILafM2PWSkM+sPLGFuUQl4ssb1Mx40MF
8/F4MPEmjm6qsg35fFRioxNx5IDtf8vt+PDASj9Pk1jiz/kDy5zJ5++7vGST
eHjVh2osdedDWLVGwFvilrIUoaIPH1ZHRPocJjbMr/yucJUPsh51TmLEyan9
sUv8+XC2/O++NyT+t56vNJF/zIeHM3p31pH8ac58LWS94IO7Ey3KnrjZRy31
cxwfmkrz93aS/K+31JD3zuADrS484YeAgp8FiV+NP/HBePO4pQGx/1rN68tL
+LBCynfvO1JPLRIbuivr+HCl7CbdntTfbZ/UZ3EtfLBRPbDtA6lPrY6NZpc7
+ODYwb41Rur3boF2xuoRPsxOWCrnTupb20fnlp+sAKTTC9ZMD1Pwp/2T9qEl
Ajh8lf15HnGgxY6+DSoC4LX5ZiqQfvq7hm7RpiWA5Cv3HsuT/nvQvmvpdksB
+GZfdcgi/bndoqxmrq0AKtgHkgL6KOjKN/bvdhDAy7xw8wOkn3WemQ6Gegog
ReAZ2Uz6v8fc6iProQDSbs+1v0XmQ0h+nfvncAFQXQ/OLP5Ngd4aG+UX0QII
9h1rTCDzJFT84F3jZAHASEtuCpk/kG+3P65KAB/715Ucryf9ofFb8vIPAQx8
EyQV1FIQ/tQh37JNAH4ib4Zlash+8HZaOcUUwN7qLU+iKil4puE6bCs9AUr2
HOOj5Nxg8LQ/fsOCCcg+77zqcgkFbLHTthJKE3DAcumxR0UU7Pp7BjPWToCF
hbEgtoDMi/BzD+aaTsCa7uYvHlkUmIrd0PgcMAHPFB5tfB5HwbECnQbD0AmY
pGfnSL4i8+kC53ppxATMA0MLz2gKYvvONHxJmoC7zDtZKs8p4FXa3aiomgA9
+/pzig9Jfz3R+VEtKwRNq/Vuxy9QkGfOuWGhIATtqsPHDc9R8H1m+pqaFUJw
rmm5ouRFgeCSxs3azUK4HuA6O92NAkv7xWsb9gvh1qBZobcd6Xc1zs2fz4Ww
RFTE2JROwfy/aWsPxwrhr3nd02g9ClY/P9PYkiiE+qYTC/u3U2A9u3tt6ych
iKdIRB/fSMFbqr7xd5sQ7m9SFqVUKNifm6bZpTIJg0yHBcdESP2bnGlmv5uE
pqrA0IyPbBgKXWH7O20SytISb9HJPt/U2tRU9XESzp4R7yxNZUO2x79N7ysm
ofn6D1peAhswTL7xVP8kDF9bX777CRtq2orqe9SnIDPF9I7Agw2jZxd9/50w
BRXv96uWKrFh66dv5tUpU2BSuSzWSZ4NvmK3qgtypuDHfF4OT5YNwvDBqsiy
KYgN1cqcO5MNYvmMysO9U5ASfX5BxxALFkmc/tqoNg1Uuerb1SUs2B6BpdWv
p2G4N2LJdicWdK1P0XNNngZmdcYG5yMsCCmJzhDJmYbiobqvd21YMMC89kq7
fBqW1Ms9yzJiQSToXYsYmIbe/3K/JK1hwU1vO4UMeRr9oZjVDrFhJnTL/6y9
bkej9+Qu3O9zkQnJTnX0RT00uqsDa/P304Pw2u0q03yAvN/k8kb544MQ6aX2
7C6bRpcUtD88SM6rgdcvUzwOjT6yYca5IuNBOBGxIvrXTBH6mDxdVUeVnG/r
vCdeaojQj4552Be1DkCgvlz22jMi9OSaI9ztRgPgomyzVn9MhD5w/LOKk2g/
pHfOzDIamkEP3TVrT5VDD+xZIK52X0SMrlmw7lS+Sidc2KO9NZEmTu/2zist
efoHKt6OWJcKxOmROTZ5ZWHN4OojOLB81kz6hT/NZcoPa+DFLm3BvpmS9PiL
dm+XRhaBgn+Of9kSKfrOoNv/RJ70gg1/Uvf1Ef86W+I6peoFhuTAIqUgRV90
vXNdUbknnBmKZOwh5rx0/GtS7AEMOz9hFfH4qNO6I1nu4LJlr0+DohTdVVXc
89oLV0jv6TjevlSK3kCpVDFOHoMy/dZNM5ZJ0RNnNw9JVThAa+QPkZXEW17t
3xVabA/i+8pjnImPzLLui82yA1v88KuXeOmNTYs/v7CFqae++9jLyffHv10v
4WoJcqNnV8goS9Hfm9Q2KZWYg7r56eENxPv6TS3XZZuBlZj9o7PEgpmfdM0j
jSHey+DbGLG9vBEt2JUOH7/pRSxUkaI/cylqpefoQbXaVretxN0JcjmOUduB
26o+05c412zlyTg3LZDevqLxGbGHxI/L92LUQTlM8fVHYtXQUtWvp5VhC3uB
TwuxioNBjLzXPPjf8y76/5537fw/FdDkDw==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], PointSize[Large], Thickness[Large], 
    LineBox[CompressedData["
1:eJw12Xk4VF/cAHDbzNyJKJRSiaJfIkSpJOe2lyKthCyVJZWSpWxFIWXJlqRk
TYgosiTOJbLva7ZQBmNmjl0I7533ed/5Z57Pc5/nnnO+3+85M+f5yly5fdaC
j4eHJ5OXh4f7rX1C+NC8DJ3IXuJ+ENz3xW0Uk6ITAurL1v0jrSgzErVakk7k
5Ny6OUp6Q8Clk7Kr6USU8fbJLtLCs2V/d4jSidw+nc9FpJeuqScCYTqhNtyS
+Jb0aH3COZ1ldMJmrqbBnnSvphivEZVO9HriagdINyR5frTmoxMHGvZWUUkX
i48aOS1ihOnG8lcliwh+9jChe81hhILv/FsX0vGs6uzgaYz4IsTo2Eo6zGDf
tehxjNgS+lqnbgFB75LklWkcjPjK2DFzi7STyhr4lYkRMIdoEyBtgE2tbe3H
CFshFa11/xA84XC17HcPRpRcP1ESOY+gRm+Dw1gHRrTMVHuKkl6f+7FOqAkj
BpRfxTNnEVwuu8Fdsg4jZjvksZOkF5/7bdtahRG9uVkJ8X/J9VlZex/6jhGH
/1z22T9Drq+pVfUMxIj/LjVVPZgm1weO9JrkY0TY6bETuVMIJkhs2ueSiRG8
v4dHxSYRtCrrHM2Ix4js5wHo1ig5XzXtt4XRGJGQP7t0ByF4PDr3ZPVrjDjd
V6p9k4PgtnsvEgdDMWJnuXvQSRaCnC2njaW8MEI5rel36iCCv0IK6IoeGCEu
Gllrx0CwflEhZ68bRoRPjU4pDZDxbcVELzhghP9V//ngfjJePsVlftcwwrDW
d2Sui5zPuIrjKzOMYPQ2f/fsJOdjEr3pvTFGuPQZdvJ0kPFSd3MvPo8RNgcC
KgZbEVwY2KU2exgj/BQPpBnUI+h1JPmtpRxGaPkUs38UIUj4uehtlCHf7zpr
8x4i+K/hJF/7eozQvmjX9KAAQXsTjsUJcYzYE/zWWjQPwSv31LYr8mPEmSNd
X6rTEQTJBfljvTSiJ7XePvA1gi4o8FZKF40gCn9OdkcgmL3LbOPVdhqh1Lzv
pmw4gkrFfI+b62hE8EeFA+FBZD47j2nnFNKIAR3lyOXeCM4JNba7vaERGzcM
lpy8iaD6ufhnuyJoxJuMD8KC1xG8+8pBkxNKI3TX3TMuskBwWE4ixtSPRryk
DdHETBFs1zK2OuhCIy4ubs3TPkOOf4cxRTOgEUHGxyyEdiJo1zwnGipGIzZ0
q93oHefA8LOnDcNEaES+8fdX1RwO/FYfH/tCkEYc+xa08hOTA6k1p1Qi+GlE
FFrqvdLPgW9K3+pETVAJx1D99TYNHFiefdD3fROVeBxzd5L2kQOlXj1byA+l
EsYZrGVPzTnwsMSvwwXPqYSW69VHHsYceP2Fmn+hH5VA1aFWd/Q5MCu4S7Lo
MZWw+aHssVeHA088U9rzw55KTE/JCdvt4UAH18a79eeohOV8YZHTcg6svCw5
9EeMSkg+eSvC+MSGp6M1wZwIlXjBudEnmMqGzb0m4SJCVMJE4Vn4tkQ27L4a
f1hDgEqcWm6ScTaSDUevK8Y+n6QQPFJHKnUesaGEk5ahRguFmBtI7xzVY8Nr
gVeqn4dTiL3P48Ynh1hwoTAlQ2MthZDq1zLUFWDB6g5loXlxCvHsxdfz4v9G
4JvpLKv8FRQivPmdTePECNRUglKaGIUwoUqNq/8egS5RTf77ZwQIXFj/U2zR
CJx2/WeNtwgQ1n81qTzuI3B0j67M0WABwuJi+n9jbCb8/Xks+AxdgOirFNHb
lTcM1WOpzQGC/MRnfu3nboqDUHNTo5LfX17CZD57eTHfH7jeVdjdn8lD7Pp8
aNNcQC+sf7PDwLJ7CTqHMpxFZDtgnXXm4K78Bbhv+JG1oWwjTJRv2KNXMA8v
zaiPrfheAlUi6+/crZiFqWFzFhbsBCijsr9j9YcZ+N1oZ+SQRQ5gfj1CoX6a
grR+248OZ6rAuhv55vf8J+AfjWhGen8LWKwUfTdqNwa/1zKbYVg3sAdC56/P
cKCZ/u9x+y39IFethpj6woROmv636G4DIH3ljwyJAgZs/PPN6eqBIXDWZKV2
7wcGlEh1qYw8NQSmU4x/J0Uy4C/9t6uq9IeA5uGJVRr3GVCcLue92nYIlDtJ
uxqrMWD4OO9tg8gh0NvpciQ2eQD6zB6P9x4bAisTlTu2hf+BvBuD3t2OHAb2
Gq/4tW73Q1QmW/yzhQnCwtZ1XTTph0xpJRXBX0yQxYnKuq3TD4UcfkntGmKC
6bg4i1iFftg7xutwd44J7gumlgkM9UFcWi07RGoEPOgq9Ksy64N628OtrSxG
gO+DP2KXzvZCWHzOSo89ApLaLVl2B3qhoZLcxoCpEVChOlzyTKUX8ngN04sX
RsCyQbbjN+FeqG8qe1tcmAUkoznpIPwXlJeq22OkxAJyB8T31DzpgZnrnjXZ
3mIBDW/T40M2XZB/tpPzdoAFKv66vzM52QUbg6b9zVksYHDzDV+LQhckN4Xc
hgkWcDz381sRqxN6nqnVfMjDBhky53a8tu2EIW2MLo4kG/xXeFRS924HXF9o
4+KiywbiM9tZmc7tUNNFz2hPBhvE25w6sc2wHT6LkFGRyGYD1R6bxBiNdlhq
MVfDyWcDvdL3ZgHzbdB4zRpT3zI28AuVabF0b4PZt/PSr/WwAZ/KqsK1nq2w
pp/SSizjAGT97/lD32YY3iOBFi5zQPPHHSt0LZth6uvk5stXOeDrpGXQ+sPN
0E7/3fIv1hzg5dEQlLfUBLXUSuxP2HOAZERi8IRTE0zb7s+g+3LA4TK9UCuL
Rsjsa9gwlM4B8st9xNQPNcI9U56+37I4QPhcfqiADPl80VzZN48DfvbIhcV2
NcBDhIYi5TsH2E7PhXWea4CiNRHfXrRwQITcu/DTB+thfGmw6IpZDnC/0bFa
Sroe+j91idVf4IDSKxuVfs7XwaGkn/rhvAgYukwqidnXwdxsWfVZOgLeyW9V
npjXQlQS/fK8JAIdtAm121rVcHgLlWW2F4HHJa81wN8yeJao1i2/g8BQ7d5Q
i9wy6KqYvK3AHgHdn20jfvfLoGPZkmqKEwKSHLGo9r8/YOuk2o+bbghkSPgv
2c2WQmPN+v7QJwh027iVJMx9h/M1S0bX3yBw0FFyQ9XX77D5tkVq71sEkh7m
Oo65fIeNx59K6cUi4BA2uUVrvhhmL4+1kEhEYFnhzadt80Vw6kWY7bF0BGw3
fX0jPgchcWoNR5FAYO/uaR1zFwjpuyZWbSlGQOCU6lLaXCGU8i29KFGCwGvH
FPNj8wUw5P5Vmf4yBMrLI7e4/MuHxyfu1aypQyC0u7Xth1s+jPw1kd5Yj4DJ
uOhTsYWv0NSBeO/ViMDUOr+R1IU8qB8d1VLfgsCm264ZvxZz4MRz8Y3LuhBg
P84xV3yYA6/7ZcV4dSOQGzEh6ryUDdMeuu2c6UHgdPENR1GebBhpvyq4pA8B
t1XGGkd4s2DGdIM4zyACx7ZFjAR7ZsLt+suk9g0hIAqa3/TwZsKmI4S67TAC
ydanlu7xfYZ6Uo4vvo0g0JqvWZLCnwE1X2/mmUMIrHe+0jMulA4ZC+9jRkcR
8Hc5uTNI9COkFURH/RpD4Ib7ht7KDakwxZuamjhB5vsBVd168we4PB8reDCJ
gLYH8qPIp8CihAT501MIbHtctBvfmQT30P6I/5xGINIrJaB773s4oC0fGjJD
5sMn9LcLSIR17SdvHv6LANPX4vkX7QTo5e2hFDxL1tsz3YGzevHwg8ghCcU5
BCr9du8bvRAHu74eMoSkkwPpg9vMY+Da6w6c2nkEVKUHnINq3kJZ56vg5D9y
/Ztz5Kra38ATJcJMSHpc7mkD5U8krLhqyFFcQKBhq5E7jiLgwSOKp0JIZyhs
l3edC4eft93kHyUdpLTU/IXyArqn8IsfXUTgzo4Gj9EVodBBucc9jLTeznhF
hfXBsO3vEN5J2tSWmVGlGwhNJMUuSy4hIOUQiB2weAbV3XQaz5DucVY1y3b1
gcKdz2I8SUc9bM1RCHkEV5bDsmTSucumpA6ecYcoqf9YJendq/fXKj5whF05
I9K/Sd84tGxe6eINGMrfcnaSdH3WzkzMTB9euh3ZvUC62SFVS/UTALOf9xYt
cd9/78iw3puroNrw88Isab0Mw9L9sXbgcxkllEW6IUF09TkHZ7BaebdnG+nk
UxZqWfEeYCTyZPlX0syjRZ1aAV4gbfiEdTjpbQc2eFU4+YLLtRrmNtz57HNW
PG/mDzzqt2aqk26NtLFBskFA6pS0yTwZj+mXEYVZa0NAvp3ylVzSq1/8EHUR
DgMGRy3hLdK7QyYtAX84uBnf6riOtMHzTfkCf1+CP+ph3kVk/O/764lUsl6B
1Y+zOKakc31Sc863RoF1jm413mQ+2x93CEpWRYPwIwaHlpN2wwUy0K8YICq7
JBpA1kPUflWBL81xgN9jG+FI1ouS5omPEnXxIKZyLKqHrK9CDTMDl4oE8LCA
3gpI9+wOTAWFiSDufOmFEbI+bdXfXYzLfQ8Crb5G7SK9uPMbDyUzCfxdisPv
k/Uspco8X/k+BRzOp0QwyPo3VTy6cD74I2gKvB9iRe4XzYjEwOmYdFAsJ1hs
Su4noUf8K04ZZIAvUscndcn9Nsy+Gsu2+gR6eqfNRdkIxJXKlqg8yQRnphRv
bCf3b9B8sz+vSBaI2EnN62Yg8GCH94XG8CygzlIX8h5AwChqgGGf+AWYG8iV
5PYjIO6YSM8pzQEjKXbeWeR5wvfhYuMTnVwQ5qlC39CJwGgv9bVBSy5gJ7x4
4fYTgZpTVopzf/JAm9q2SulWBHxkt57eL/ANCFqy0xdqEfg3fL7SXIYA2geT
++gQgQmBNCVtCwKMph5U/P2NrI+NlFDVZAIY6Qj4Zn4l83HhixH/jiIwVnLf
cW82Al+KVrET8GIQZrK0tyOVjOerVpEh0xJAe+fDcycCAYssJYf6+BLg3jGT
+vUFAsZ1Pu25gyXgYHm4478QBE5Sdsc+vV0KHH47mVgEILDV7qWqwsMfQLhw
PqHaE4G+4wYXbN+Wg8Mq/8ExawS0BtzMa7rLwfMK1TiGBXneeMbeUtxQARi2
wk1NVxA4+5XpzXxdAR5s3yfz0hiBYgX3bMtXlcB496xX0Wky/sJxEqZh1UC/
IGV94k7yPGFOsf47Ug+83gV7Zf3lALM9mH3btXqQxMjKz5rkgEAfyVkfr3rw
k25lnDbKAcxNgML4Xg+u0271PBnigDgj3w0JBxtAuPk63v42DhCrkdSVxhvB
/U8T7xW+cMBkOkhfs68Z4N4q4uttOKBaYZ/oncvN4FrO591F1zgg/r26Y9nD
ZnB8ajLysikHnI3evs+ppBlUzo1ucTvPAZ8C15U16bSAzN42Dz0t8vf91kxP
oFkr8Lq9+Z3+Cg4Y3JYuTPFpB4fWT98fSWOTpZ1iZ5zUDkZN3/5wfc8G4ZsS
mzMr28F/D7yf8ceywVHJqMgrIj/BGnUft9lQNkig+20hIn4CYUdxrYfObGA2
ZKnl+qEDpLIeDUwcZIOOd1K2Y/VdQMz4SvbzOhbIpqaeTRrvAvflfiTvKmeB
UKu9u03Fu4G0wt2YJoIFTsmf56nR7wb7N7RFz3xigcLUpyFJPd1k/guke0NZ
IDZzMtuU1QNcPnvx7rrIAllmA0uMx71A5uBWy4XmEeBqm3/8QnQ/KBbUE3qa
zwQHwdQ14fR+kBiRbdX3mQmWrVD2LCvsB+77aWfUUpgg4lNc3t6efmCiVtny
PYIJsiefbpPa8BtIuQz0v3RkgnEXA6HByN9AV312aLkSE9g8maq7H/4H2Mee
6cPJ/88GMcr6bwIYAFOoMzxgNgQsn1Tw/apnAsUUZ5UV1gPgu5eCgn8VB4wG
ivI/1ibHWTlQLH5pDGj5OZ2oYHWDCY0yrT6nCeBXHNkG1VpB+u3ls1fuTIEP
NfG1hSdqgMBDhueVsBlwb/Zba1BdLvB8tfmERNgs2L4j3ULQ5w08KfBQvuTp
PKgSvXCvQOE7/HjiVjsneQHc0FI3pPc3wD2RsLT23RKwK/gi4WLwE3680oiv
ZvDgWUvBTz496IWW0ucVDkzy4kGnrRuMpn7Dz79pX46O8uG8GXH9Ob0MqC1O
2eLHK4DTv1+2TE4chpsbjsQ9oQjgrQfxNKWMYfgvwEfKiy6A3zczCk0j72Np
NEzCfaUA3lZTqxZRPQxXzC/DbssI4JPVy7ykx4dhS98K5tkDArjL5dWG8/uY
0Cx9/UdJTwE8YRCNV1SS9yDtneopPBR8eF/8sF7zCESH3seFCFBwZlPxnEDX
CLTeLyniilFwlQK65Wfy/mikwjN0cgUF58jmH5odH4H46upX7I0UfH9eyZD6
ShYU7L+6oAIo+E/Du8funGLBGOfQkhx3Cj415rKuroAF19pTd8R4UnChoA7+
DyUsGHLTOcrXm4KP53ULe1SxoLepqdOlAAqey9D2WfWTBW2OKGydf0PB/Xgf
1bAnWHDnyu9+Wt8o+PVPzQZnt7JhRdL42dI5Ck656vKi148N/5bx5fMtUfDS
vlVZpiFsuGVQdDPOT8XXBet6tUaw4SM5tYmvglQ85/VF1Q/v2FAzzj40Yz0V
fzXjHjJayIYZryebXmtRcbeewvZhxIYRgdPn7z6i4u+MLr57dpIDf6RRC9J9
qDi241nMPz0OnKpeLcd+RsXD+RokLC9y4FnB3VNWoVScdsXbYaM5Bwr53ntx
OYGK5yY//6bgxIEenn9bjv+g4peuAJD8lgOtHeYublxGwz1C9+kqDXNgmtET
eXFhGu756af7QTYHjh8U/4eJ0vBGhvSG02Mc6LpSKXZ8LQ1vOZedeGaWAwM/
mo+UytPwNytzKucxBL8MlT+8eYKGf2FMev7eguBc3YWz5jo0PFTZaO+DbQhq
5fTLXjxDw5Ny7pxZqYRgufe/CnCJhuPyijHSuxDs2qQiLnadhkc//RX9+yCC
fJdfJuX50vB9bjts54wRPHZY1vWjPzl+V26VpBmC/gqfdOKDaPjTtkY3tasI
rpqrHPePoOH1PHmtOtcR3PpyUdMsiYZbSgSd3+KIoG6DRQO1nBz/UUK7hR+C
obnj8fNVNDweBq8RDESwPfqh02gdDXe81BKTFISgue2rdR1tNFzJt/FJ9QsE
HQRrLNIGabhEq+rbnGgEXx/ZOXeOhuFL15StJD8jGHbWpDxKEMObQdycXRaC
gaa+4YMiGG6Yy7EjshF85Nyl6roGw71c7tAP5iNok+Z1I04ew0eyt1e2fUfw
2tePe1nbMfx8rJ0NoxRBk7J2mroqhifv9hseKUPwbJ9iQoUGhvsD5NlZhaDG
qpau0ZMY/vNVl6BOE4I7Ny2laOhhuK3FhlDRFgSVlOWdvc5juF9N22RtK4Kb
TrivWnMZw0vPFxxR7EBwmbucLrDFcLHEWRHnXgQFnp1e//Quhk/rx1+e6kNw
MdyZ2eiE4b4Voo+sfyM4nlHjY/kQwyPnI3XUGAh2/HGEAUEYbuVx6o/hCILN
Y9EBbWEYfilpeXcAC8HaxQojmVcYXiL/NDmHjWDxGqm/WbEYXvfC6BtCCH6T
O/5j8R2GCxwV4VscRTBb9W7Y8RQMX96pLsk/jmDKqR8qXZ8x3ATPJcYmEEy4
NLool4Pha9Fj3c5JBN9aStbczsfwbPA+LX8KwRAP2+v8JRie4TvVYzZD1kdA
xG6dcgxnurzPkPuLoE9kMeVlNYYz+MhQknbJWh23rQXDN9WfoO2fI/NbhN9x
+InhbYqX1naTtq210SrsxvCLutR5+3kErTvDhLB+DBfpkEvl/YfglaHCjjMM
DLdZ+1zRh7Tx1FDSayaGt8+uc+NdQPAin9i9AQ6GtwolR9qT1hPZf0R5AsMX
nqzy7SKtvd5KzHkGw+lHDh3WXETwsHxwX/E8hv8pWl0XQlpLPT9diIeOf5C+
t7WX9J5DA+4XBeh41n+6erJLCKrqiZyKweh45AHfo6bcfsDlvZJMIToO3MUF
g0lvsbk6pLaSjtcF/InKIy19LyDbfRUdr6hkLbaTlvTK8SpbS8cXlGWVEGnl
Xxnnhkg/rEvI5PqwRsomuiQd19wvuJvbX7g1+obQJn3s8dPdY6QJ40f/akhn
557cOEG6Jce1ikNaoWIulGumqGOkyDpyfu+fU8n7CRSrsNpzhrR2rc0A15a7
dByaScsWM55Ok3YNOnpoinTsgRI210EjQHT1ejreG/jk9AzpvFjVDH3Sz0Kg
0F/SQsJrWB2kB/dP3SLvM1Dm+sr8edIV23iLuFYvWfZs/QY6vn9gfOUcaVOX
hf9MSJcVP0nj+jOj/2of6Y6N96rmSZcd6FLlk6Ljxfc/Lef2V7retPBuJi0R
3aDDNeVcefQ10hPnvpdxLfmxyNab9N3+MF7yvgWV6Pn7E0nraJ3ay7UBTOsc
JE03uRnH9S3J9ynYRjreL9PSxPUjxxhnedLLMjfzL5L+oBAqcYO0+v67RlwT
Pv4MP67V73px3dzn/SWV9P1/+h+4Xnx5/xyHdN5o8zjXYhN2m0Sk6Xim1E0x
br9oq+6NMWXSg2uHd3CtmXyN0CN9pv+kLtdnBEye25EeuxdmzbWlqb5JCOmS
jmIPrl2+6m3PJF2xrC2c6+ertP81kV6kNaRwnXDnUNUk6auNGd+4zqvSjFwl
Q8enrjtVc127Rf26OumsWpkOrvs9lffok47hyRzgeqZrK+0+6ewlecS10J5N
rRGkZ6p8prmWDl33Lo/0FYuKea53ccQdOv73+dgi1//XH8P/vz/2P5kxlZk=

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  AxesStyle->Thickness[Large],
  BaseStyle->{15, FontFamily -> "Times", Bold},
  FrameStyle->Thickness[Large],
  PlotRange->
   NCache[{{-Pi, Pi}, {-0.9999999999999918, 
     0.9999998830731719}}, {{-3.141592653589793, 
    3.141592653589793}, {-0.9999999999999918, 0.9999998830731719}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.419291872687881*^9, 3.419292140351719*^9, 
  3.419292244274002*^9, 3.4192923069830112`*^9, 3.419292995097774*^9, 
  3.419297121521201*^9, 3.419990668903923*^9, 3.451315525491206*^9, 
  3.451741577436681*^9, 3.4827108766058083`*^9, 3.4827109453714647`*^9, 
  3.482711009458008*^9, 3.482711052757278*^9, 3.482711213398449*^9, 
  3.482711348525674*^9, 3.482712484389135*^9, 3.482712555646521*^9, 
  3.482712642198201*^9, 3.482712804203805*^9, 3.4827128678615303`*^9, 
  3.4827129226432753`*^9, 3.4827130205121*^9, 3.482713079143097*^9, 
  3.4827131847132397`*^9, 3.482713290584442*^9, 3.4827133365418453`*^9, 
  3.482713384456709*^9, 3.4827134227010317`*^9, 3.482714371907256*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"n_", ",", " ", "l_", ",", " ", "x_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"x", "^", "l"}], " ", 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"-", "x"}], "/", "2"}], "]"}], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"n", "+", "l"}], ")"}], "!"}], "  ", 
   RowBox[{"LaguerreL", "[", 
    RowBox[{
     RowBox[{"n", "-", "l", "-", "1"}], ",", " ", 
     RowBox[{
      RowBox[{"2", "l"}], "+", "1"}], ",", "x"}], " ", "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"radialFunction", "[", 
   RowBox[{"n_", ",", " ", "l_", ",", " ", "r_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", "/", 
     RowBox[{"n", "^", "2"}]}], ")"}], " ", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "-", "l", "-", "1"}], ")"}], "!"}], " ", "/", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"n", "+", "l"}], ")"}], "!"}], "^", "3"}]}], "]"}], "  ", 
   RowBox[{"f", "[", 
    RowBox[{"n", ",", " ", "l", ",", " ", 
     RowBox[{"2", 
      RowBox[{"r", "/", "n"}]}]}], "]"}]}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"psi10", " ", "=", " ", 
  RowBox[{"radialFunction", "[", 
   RowBox[{"1", ",", " ", "0", ",", " ", "r"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"2", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", "r"}]]}]], "Output",
 CellChangeTimes->{3.419291872915292*^9, 3.4192921404968557`*^9, 
  3.419292244403434*^9, 3.419292307126892*^9, 3.419292995254314*^9, 
  3.4192971217125177`*^9, 3.419990669048338*^9, 3.451313067599326*^9, 
  3.451315525578467*^9, 3.451322265594606*^9, 3.451741577559669*^9, 
  3.482691968670556*^9, 3.482710876657283*^9, 3.482710945443863*^9, 
  3.482711009547365*^9, 3.4827110528706083`*^9, 3.482711213444462*^9, 
  3.482711348633008*^9, 3.482712484478073*^9, 3.4827125557471724`*^9, 
  3.482712642302593*^9, 3.482712804266108*^9, 3.4827128679180517`*^9, 
  3.4827129226984053`*^9, 3.482713020579678*^9, 3.482713079246821*^9, 
  3.482713184761841*^9, 3.482713290653924*^9, 3.482713336603302*^9, 
  3.482713384506791*^9, 3.482713422855834*^9, 3.4827143721220703`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"psi106", " ", "=", " ", 
  RowBox[{"radialFunction", "[", 
   RowBox[{"10", ",", " ", "6", ",", " ", "r"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4826919855535097`*^9, 3.482692009849958*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "r"}], "/", "10"}]], " ", 
   SuperscriptBox["r", "6"], " ", 
   RowBox[{"(", 
    RowBox[{"420000", "-", 
     RowBox[{"18000", " ", "r"}], "+", 
     RowBox[{"240", " ", 
      SuperscriptBox["r", "2"]}], "-", 
     SuperscriptBox["r", "3"]}], ")"}]}], 
  RowBox[{"23625000000000", " ", 
   SqrtBox["2145"]}]]], "Output",
 CellChangeTimes->{3.482692010933441*^9, 3.482710876688045*^9, 
  3.482710945484849*^9, 3.4827110096010103`*^9, 3.4827110529120398`*^9, 
  3.482711213486188*^9, 3.482711348672914*^9, 3.482712484518217*^9, 
  3.4827125557879066`*^9, 3.482712642342984*^9, 3.48271280430437*^9, 
  3.482712867959105*^9, 3.48271292275075*^9, 3.4827130206243973`*^9, 
  3.482713079288216*^9, 3.482713184794733*^9, 3.482713290702824*^9, 
  3.482713336641548*^9, 3.482713384540997*^9, 3.48271342291648*^9, 
  3.482714372175764*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"psi10", "^", "2"}], " ", 
    RowBox[{"r", "^", "2"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"r", ",", " ", "0", ",", " ", "Infinity"}], "}"}]}], 
  "]"}]], "Input"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.419291873160089*^9, 3.419292140570848*^9, 
  3.419292244460108*^9, 3.4192923072995157`*^9, 3.419292995305193*^9, 
  3.419297121933755*^9, 3.41999066930155*^9, 3.451313070942622*^9, 
  3.451315525739794*^9, 3.4513222869120817`*^9, 3.451741579257914*^9, 
  3.482692072301674*^9, 3.482710877014867*^9, 3.482710945532872*^9, 
  3.482711009685375*^9, 3.482711053074494*^9, 3.482711213526792*^9, 
  3.482711348836895*^9, 3.482712484680706*^9, 3.482712555953905*^9, 
  3.48271264250218*^9, 3.482712804357065*^9, 3.482712868002604*^9, 
  3.482712922821439*^9, 3.482713020674344*^9, 3.48271307945354*^9, 
  3.482713184837063*^9, 3.482713290759267*^9, 3.482713336684708*^9, 
  3.4827133845813847`*^9, 3.482713423079431*^9, 3.482714372385622*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"psi106", "^", "2"}], " ", 
    RowBox[{"r", "^", "2"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"r", ",", " ", "0", ",", " ", "Infinity"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4826920887001657`*^9, 3.48269209090451*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.482692094352273*^9, 3.4827108779673853`*^9, 
  3.48271094565084*^9, 3.482711009829588*^9, 3.482711053967781*^9, 
  3.4827112136291*^9, 3.4827113497198677`*^9, 3.482712485523926*^9, 
  3.4827125568720303`*^9, 3.4827126434712954`*^9, 3.4827128044649057`*^9, 
  3.482712868113799*^9, 3.4827129229606323`*^9, 3.482713020780682*^9, 
  3.482713080322625*^9, 3.482713184944111*^9, 3.4827132908663282`*^9, 
  3.482713336795776*^9, 3.482713384682926*^9, 3.482713424094468*^9, 
  3.4827143735214987`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["r", "2"], " ", 
    SuperscriptBox[
     RowBox[{"radialFunction", "[", 
      RowBox[{"3", ",", "1", ",", "r"}], "]"}], "2"]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "20"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], PointSize[Large], Thickness[Large], 
    LineBox[CompressedData["
1:eJwV13c41e8bB3B773WOEbLOMTLS0jj3jTTQUFbLSigSyipfKbNS2VS2U0ko
21EJSbJDQrTslYxU5u/z++ec63Vdn+t67ud53899zme9w4UjZ1iYmJhciY//
f6cEOnDoOD6gyQ67d9lJ4PbaDnlTK3l/eL1aqWBOL921VlcZLC9/A6SENutI
Bi3sEogpfc7THQP9oZoHtQ7I0FKqbsuxy9+DVtNOx3N6W2ga04531pzT4Hvj
xwrvBWNav0Dq6vKnTLBavPPlbv0JmtIj7i2LSw9hZM7bjTPuLM1tl/f5P3JP
4G/ECK/AM29aUec3+rxhLizL+VrGGlyjLbqa9s04P4Or17VXdyvfpKUz9934
Y1QApvgsjsEeS9vdHK288KkQlj97Hk+tu08bTdpbPX+2GNKm/+x4dDSTFum4
cnJuqQTu0kKSKq5m07S1i/7O3C6DVhKHlwjvc1rHkkvcLzkG2FbMlArTi2k+
72S1pwsqYCZ0r1aVUgVNKrazccrwJWhsNCfJmlfRKm1uOk9+fAVoSXd1Ua6l
Oagh64Tza0jnOT07H1dPY1m63DofUAXju8e6WQubaZ3fLNbNG1WDw/XFfo26
D7RHddqucwI14LMkMisj9ZHml8vLmP1UA20RJw9p93fTjGOGOWbT34BStVDP
KqmfJuNXbT5zthakEsJfPB37Rvt5Kjnz18a30HnsRYls5ACtytD31/TSW2DT
a+2d9R2mxageoU3X1oF1nJx+b8EYzVFwQ+TP2+9gKfaQeQptirblN2fvlGU9
DL9Sao6M/kXj/PyDMiX3Hr6f3g/yhbO07qpX3pOj72Hq80/hW6y/aTmPkt5M
FDTAfsnv66wj/tACIi8KT1xuBE6R3V5Shou0g14HbccNm6Dqi0+d25YVmry1
at4YXzNk83v7+m1kgtldbEujH5vhx5ULOY9HmSGBuyJhxLkV1K5cUtpQxg7F
vsZeF8lt8GDH/T967ZyQPL5Vci6gDVK+mQWnC/NA6CnlKq/vbTBA6suq9uED
9zYR51mjD/Cs+QYbE6sgWBkyCXjlfICfN1Nmv34WAiydKp4RaIcy2XgPXRMR
EEmuZ5n51A59M4Lcwa7isCRQ+sRjZwdoeD5SG1lHgsFrWYd/pXdAgu7GIoFR
MpQ6B6ZOn+0ElQqrS5frZCCt19XoQksnRDKv/0vpk4WIA8cmf278CDk/E+mb
w+ThuO6m7T+XPoLcbSuRmq8KYPho/ffzdl0grxGX+m29EmhICkZM1XbBzfeF
Nwq8lGF1dezj5O1PMGwopt+qT4WMhjTPCbkeUHpeHPo4TRPmk0rUvkb2gLFw
R0SroTbscW4caP/XA7Wfi4oEDXRgkvWPRUVHLwR8FJ7dYqML0M4nmI+f4Yvt
xtYbAZsgJl2hPiPvM3xiqkz6+3AzbNt1cPuN8D5Qs180WZbaBrd4HecC5vvA
ITCQ9M9JD770+Od62PfDy8yKiO+V2yHE56Gs9Y4vUGa6tEqL3QVtz5ZZKNNf
IWjy39e6MX0QAW4bfs1vcDPSLEqlxgB2qMRtD3f8Bsa91+J3ZRjCnfknc5c/
fANXZjeOyYtGsCn64xmHp99h1/jmv/nn94ONn51B3/fv4Lvnq5Z2oDGE207I
WpJ/gO7dW8OiCSbQu4G5e3/oDzCZushv1ncArjZoGOvYDkCRrtMNKwczyC4o
U3kaPwB49OOEKvcRaE8yYFVuGoB767nPLxQdASVn65dkvUHQKnbfkipuDg2s
IZpMokPg8VAvfo3bCubHBXgv7x8C44Htslc+WMG69nsjc1eHIJyiOqieYg0e
6c/SRyaHIPZCj/8e/eMgseuzSGvdMMj9zXFge3UKUMlpet/KMEQ7sy23PrKB
s7wzjTW6I3ClIC5qJc4WXvZwhJamj8BCPNPxfa/twMFn45+Uy6PAVEFVDnnj
APnPbnx20xwHdi/lD6zbnGFcZDzS2H4c9pPvutyrcwaKjzGNGjcO+ubvFtSt
XCB9J2/GwL9xqPh86vz+wLMQ8z7S6fjbCXAZua7vOugKPgN3Z/aenILYsxq7
yREeULjnV6by3Sk4a/XlpvFXD5h+ctictWYKeOuvu/hv9QQXD+GySspPCGZ7
y9447gnHV2ICNs/9hI/eKS6apy5CGm9jsLDRL9AOWmE94eEDtF1XTgbZ/AKW
izIL3J98oM9dffO07y/YVbAW94TmC+T2W8NNOb9A8JjSg1IhP4hOMt0fITQD
Jx5Vao++9odg5RaBtc8z8KxQRyl6/3/gDB/uTXrNQZqG6dHmq9eBKXOh4vOt
OTjTlmQU9/o6JLHJ9DXQ58DgpYx92dp1qH/vJPukaw5cBBasBa4FA9V8OfPM
9nnQfd/7YDA8BEZdKLlfmH/DfS/zIvOHYXAu5r/KtqgFOPW6u/sr6Ra4D6kO
FOf/g/EdXC4+B2Lgm00PV/X7f2DykC773TcGjnZHaDYP/oP2XSceWGbGwLbG
Ef8hqUXo6NfKtvkTA6wFD4UkwhdhqqLEvCkjFpIC1tN8bZfgLlu/vsufOKgW
lbynJ7QCF87G2K+mJcKm2/WVRuorMCL38LpOQyI84vAbNNuzApWNYvUW84kQ
+a9L61zAChxSDXjsvi8JLL/G1d0fXYHAHj+dpukkGM8Rml+qWgXJGM34yO33
gWd9COXrNiZcRxtqWa1Ihvqd0VqBRkzYk5r06sDXZAizTt267ggTXo6PjLzC
mgIsUeV7T7gyYUzoQpanSQosrk46f0phwlbzrV3lPSkw0WeR3crCjOy346Rg
OhWakiiqVU3MaGGTte3Uf+lws3iTjm0PM/7MD6/5HZkO+9r09VaHmHGtRJbZ
JzkdajlP7t+5xoyqA3J1Gi/S4aVP1NlyHRZM9vzz/PyfdMgz//fkeQILpgVF
dQq5ZsAdoUa1DDtWHM4NEUjclQmMretKDrqzYo5ZzdUm40wYtLkAy1dYcaBm
56svVpmwI0/U3CqRFTO3xA8leWbC6P6T//G3sKL/s2+itlmZYBg81eq/gw3f
lmQWCDBlgXsOHKfsZ8NfHersKzxZcP9D9GCnJRuu9/bIeCueBb/ktvzT8mJD
vixbzSG1LEh9GagwnM2GwSQXmeNHs+Dvb0HvIxLs2Ks8/YM5JQsU1zmsrSmy
I1kt7WnYwyw4uLv4Rp4OOx581rM6kJcFD2OsU7kOsKM7C+cvSmUWHNHKeFcZ
zI7ZJ7g+tvdlQaDlnJlbNDt+rA6tlRzMgif/GfVJprFjjPyu7G0TWcDUNPbr
UgU7MnlZC67+zYI8l41S6jPsGH/kcu9DETp03w2hd6+yo0dt02AOmQ5sZV2a
YXwceI3HPSBclg7H2a8YfqdwoIf76oZ3qnQI02huvrOZA9soE1vUtOhQcFTO
eqchBzLlyT913EQHrsw3bok2HHi8DV7Y0ujEvRH/s9uNA4929JnIG9LB5pfz
tVl/DtwtQdUp30uHEhpfwoF4DvyUNDN+/jAdvp2xkV/K5EDr528Yt8zpwHf7
eU72cw6UPDD+IciaDg6fzV+zNnHg+ZNXe3/Z0oHnwffznj0c+K8+cvTEaToU
HneX+TrMgXIlluVpTnRg7Q33r2DmRO6uwawCNzrk3hOjUgU5Mag4pfbqBTqY
H8voipfhxPa/i89VvOhA767Q9dzKidQQp5VVHzqYJu398WU3J254Ye+s7U+H
eavOKNMjnOj+ouf59it0SCbZQ4UtJz7NNv227j86GH2amqKc58Tn8x3LPYF0
+JlwOTn+MicW3VcUuBBEhwRLThPWCE7st74h03+NDjSJuH8e8ZyoOjqhrRRM
h+GP8tlfMjkxYWOD+e4QOtyJz7M0fc6JyeHbY3aF0mGLxXb2ilecCK1jc4Jh
dPgi9q6I0siJG19Ihb4gHN551CG+mxPfLtDNMJwO2nHfhFiHOZHfYv5MKuHu
o+dfe8wR9axwtn4kHCS6eP4LExdqJHneHyZM7QiTMRXgwnxv8642wm0xoo0M
aS68xnCMjiPsdyTdn6LKhdSg4V4dwvIiG6jxW7iQxJ5Xk02s//4Do4tlNxeK
v5M89o+o1yt6T6iHGRfaPZV+pkhYyqxD94sNF16V0+yiEPurEbL7YeLGhZN6
1t/Yif2fa5uMYvhzoW+P+rdXxPmIRPkDJZwL772pHT1EnF/FIY6fcXFc6FT9
jv8lcb4OgrHJLJlcWPXC/jQLcf68rXImHs+4cPnjnlUFIp/iO7n/+l9y4Wx4
wdw6Ir+TB/WyTRq4MLnU/tgckW9u8xF2yhDhZkrrBiJ/89tfi+JmuXDN6zB/
LNEfy6ZuDixM3PhL7wepg+ifA02hr/uluDHwysLcANFfC7dE3E2o3Ch4PeZP
MdF/qSZpMozN3PhqqF7d3o7Iv6HcP+4wNzZ+Tr1rcozI/6YRlcWGG1PY9X/f
sCDyN27vuuDKjVw9QX+yzOhw9/2ErkkYNzIbyxi67ifyq5f9yfySG22bylSN
txL5hT9NvvCeG+U8BrNcNhL57d1m0t/FjQVP9J6c3kDkVWeWXT7DjVPKOz5O
K9DB822IwwUKD2bukDJ25KOD7OAejgVdHnwfUB/bzkGHRhbunADkQfLirzEF
Zjoo4+2ZG8d4kHfSTvPc7yzoqYgPot/iwQe3WkwSiHmj//xRas80Dw5Fj1y6
Ssyrny0uBnbLPPjyMz1BJjULHkypDQ9z8aLsI6XClIQs+K32bMP8el6MfP7o
hGk4MZ8elr0UMOdFu/frNWyds0D4QX2vYTkvBnMbbvZXyIJKxs3AhlpeVJd8
Q3aSzALXblMFsw+8aPXXlaonlAVvxT+ctRnnRcXwTfYxK5ngH9Xz10+GDz8r
j1mJE+9930PHJfKD+NBfLJnjamgmFHjwHSXv50dMryD9a8uApvui/nmW/Gib
nLx37k0GDNdKpRk48uMoJHF+LM0AKUnVCber/Fitfl/0cHIGhFQbBVeX8GOu
VrCLmlMGWIpcLTqnIIB2+5+vpf9Oh8WiGdFXSwLos1m+Qpk9HTKuuI5rWwlh
jlKxZ8vwA7ietmw2PymM+VPaPBHBsXBYu9xTfU4YZw/2MrwdYkG2+mK0wz9h
HMthjz+rHwsVP8bb2thF0GdrruSZtRiYVe45lCcrghHSL+yLr8SAQ27JAafD
IpgzU3doyTsa9Bnu+7uLRHA198PU8+E7IGCsdlawQgSfVjw1OfT4DvT1DkXs
qRLB9SP27/hd7oDf8sn64iYR9OfLdZsauw3PwWRv9JAIrrMufbB3OhLk6yhG
xiRRZJ8ZWhpmugVMHd/w5WVRvE3m/JhrGA4hY5UZl6+JYobdcV0vtnDgZkph
0YsQxTMtukueb8NAZMOx2pJ4UdxlaHlMcV8YKId/2PvsuSh+ERcg2x4OBeMd
NQczh0Wxjj7a+NYtGGKzsk5GHBHDv+jM/7PwKpArrr3ac0wME9hIQW5GVyG5
zVaW3U4M+wO7doR2B8KjFelv186LYa5qEuMGUyCUW8WdvhIhhica9W4tWQVA
H2/oOfdKMRwJVmm3V/YHlUtOfuZq4vgmRaG9Hi/Chu1fj6Zpi+Pe8fz2Iz+9
YBOTtdb4FnEs8xN7F5DsBQaR+4evGoqjeV+xdNGiJ9jQNcyfnhRHw9RgwReV
HpDQOavFclcc2yf2Nl1tdIOU+668B+LFkeNr3zPlHW5AtxscTnwgjqk9egmy
ua5QOPkxZUO2OO5hGnzLH3MOWtgYvMeqxfH3j+zAtfMuwL756sizOXFUvuKZ
L+bsCHxLf2oW/xH1aTKvOU2eBpFqj1QjJgncPhRiLXPxNMgfcLD4zCeB49WL
L4tCHGDnGaM3HCoSWD6Q+zqv3A4M1StTzTQksO/sju/a++3AeGbL5eSNEph/
cUPnjlJbsP6PqrMRJNBg+W+LJ4cNXIrnTTtlLYEFW5JqhN4fhysnQi5n20ig
2EtTo+9Mx+H6+hWLOUcJTIlv+RC94xhE5f3ku+EpgRPV5sVJDCvIffvhcvFN
CXT90cTp2G0Og78TLXlfSRD/Tz7fX7/7EGTq617sfyOBiXFbX17+cwBsb7fc
fdYggSVnDtXVFphCrxL7+6PdErhCWTLYssMYPhz12pE8J4Hi9grUrgwjuJPG
b+2+KIFDHwz3r0buBtOJ7EvITMIfEeGi6lcNof7617xBARI2qthYP/DTh8oC
U/kNaiS0Hf5rLR+0AwJWRnauaZOQVapKWuudHujtDz72YSsJ2+P4+5xktkHx
N0aMtxEJew/u/WYzswm8NCye7TUlYYjOvhRlT13Q8vvVKHmUhKZmSsYKazqQ
I0hhr7QjoWa1tmbMLU1wOVGzPsqZhE/W/bg8s6wOyo9P0RzcSXhM/3FV+01V
SKfF+XIEkPA2qr3QXFYCm5tacd3XSVjS6JRcSLy/y3Q1PM+5QcKnGcJtDV/l
IfE88/jBRBIeuF8zf9dVCswZyRzrU0noZpUd5kIigQj7NsU5Ogn5/B04w5dF
oe1wB7x9SsI0+76sGSlhuJPsfjKxkISfZZ9STw7xgekot/9ZBgk3O4frBXNy
Afemh/E7qoh6Gs9JOSSzQt1VLOR/R8KC/o9crPvWaCGNn1u+NpMw6uaLuPad
f2kGJN+Jgk4SOu43KkLSLG3NQYQr5DMJ/YQKJwrzx2gv8/OULH+QkHJns+nB
xW+0y4v79KljJJxYkpB9r9BJ27Zn8NTiNAmzj9Lq+dre0H5HX73ctEBCFtvv
HQaKObTCfqnE1BUS5h67Nfd7xZXmoVpa5MFGxuvPt0Z+s46gaXqbtRnwknGk
fZ2tQmwRbaJqclJMhIzbspoOz+x4T8vmi+AeIZORuTb9wL6fn2hO1ooqDDky
bi8z6W87N0BTolca3FIhY3PYeYX5J5O0H9PHbE9tIBPn+16K1jtHS9/x+4rW
JjJW8XH9UTVapJ0Kj0pi3kHGP7fpz7obmECqQ72kQ5+MJxgKmgNDbNAt++7D
w31ktHo3nJV7kRsSzjn89D1ERvev6KxxSQDMS1d4jC3JeJLldEDunDCIsNyj
yJwi44NpCZa4YTFoPbBp98/TZLQvT9J+J0IG46Fz/8V4Evs5LUX9KyEHe/5T
zN3tR8Zly4osXff1YCDe17sQSMaFDSv3L7spwnajA9tORJJRN7uWmv2CAlv6
2Z35Y8n43JWxFManBhu9K+Nf3yOjpUfksyE/DVB7qDWn+JiMg2LzsVzt2qCy
a3R9Vx4ZZVj6Lc8Rk0DhY/rhiGIyKnMXNV5P1QUpdpH8yWoy5t6Pu9WcsQV4
z8y7lPSR0Zw0cf8/013AtZKb6DxARi3vknf7JAHY4s/USY6T0Xdq21iPP8Jy
bZdi4B8y/t3+36Z8FwOYVGJ82SMiibb+E+GNiXtg9KUn/z+yJAqrt6QFFe+F
QXO1nU/lJPGcta/7n0/7oC/kwT3BDZK4Kli6W0HXBJoG/zPv3iuJH5kPhUuu
Owz1AVuCbx6UxB8jWjo2dYehVmy6YKeFJB5qnsYlLzN4udtOMMNBEnnkq+b0
uo5ALt2g4ex/kigtGUYcmQXcduTEpUJJbM04vqSOJ+Hm8mv3PIYkftDWX7GX
PQVhcX4ptlWSaHku5OHntVMQWDu2+KaZWD+EIRDXZAvuSk0lkaOS6F9+NtO3
zh4ODkapy8pKYdLGLKm/HWegSX2w86SSFK5bUBq6fdQJTC5uDXygJoXN8mGC
IZ1OsI/lSxt5qxSWjJx6fqfXGQzk1X1ED0uh60jXGtefs7D55NsqrutSmJ/H
c2/Cwx1kOv9ZzA1JIS+T5OuLOpfgvvSBNZ1JKfRvufQ5LOwSSJ5Oz/aYlcIh
/wsuu/ougcTsnqWpVSl8ekOLP/aGNwgJxaWPkqSRZHlgsmPCB1hNNSf690vj
De43u41a/GH8jUNQfZ40npcVvVnPGgRy0d3n7hRL45+t2/eE7gwCc5uDFuYv
pJFHwlnsnncQVP7VU/tWL417RaLja0eDIGaDcOefAWnkanb9ur7jGuxIfE2h
SMlgqU+afE5ZMESek2kNDSOczPw+9FU4aAp3rTO0XYd1t1p+kcyjYPj28PX4
M+swkF/6trtvFKTw/BkZcV2Hmpsd177djwI+NnJhpN86lGh1rCX/iILxhWN7
uqLXYY3bE4dWz2h42NfvfrZ2HcrR19tsTogBmeyh13dVZfFL+rP8tzNxwAO/
7fvmZDFxsW9iYvwe7J06/kfBQh4Fx1s942ozobvGkfm4xnoMOSX86V1pNpRE
1NrI/16P1bLz4VXq+eDE7v2tpUUBhyw2LV3qLYDTXldK+O4rorT7LVSiFsOW
jV9KVFMU0XhLU0S4djHwzGLpnnRFdD1de21oWzE89+QoC3qkiGe4Uv2i9xfD
skd0+XyhIt4ozJJ9cq4YEi48ftHXqIiy58+Hdj4thvduHdW5K4pIpVa841Ar
gWSNLTXvmZTQP/2gdoVOCXhMJtUMsyqhrB9OOOuVgISbzRt5HiWUm2I6WLiv
BBxcx2rjJJRwOioliMW5BJbPrr0L0FLClL1PLt/JLAEtZ/UWU3slzOmondst
XgpfzspdyHNUwgRhR/OPMqUQ6SYqJOCihPZeWYU2SqUw5rlk1uquhP+0Htic
1C2FrIDGj2YBSpibsmcTq1kpkGJc+y0TlXBXzsafyzdLYe3l00m7ZiUMmlP4
EfOvFPJfp92ublPCHX8nFmhMZXCyJlZToVMJz/mebBrgKAPGuyseA71KuEfy
vyKSWBlcbDeZPzOqhF21+0ypmmUwMjKxdI5VGZO32t2asCuDVhENXm89ZXzc
4fRmtqoMaOfPjz3YqYxefMweR+rKIP9d/rsa4i1m8Xjo86eNZXAnQCdEaI8y
unmemTDuKgPT4S0rT48ooxzVaOfOiTJoYOhP/3BVRuMLZ/+OiZbDWzurjsOp
yhggddTAw64cNr1IKvDNUMY+Sk0v85lyoIv33k2lK2N/9jTT7bPlENJw0nQy
RxknO+YW7nqVg8Emh7fhZco4oZx0e19IOVRxni+rbFNG7nqr2JBH5fAi//oD
DVYVbNdqOaw2XA4cphZSiRwqOC/a+pA2Xg5mY5R7zDwqSDVa8jb5WQ4jis0J
XUIqeFFC4NbBhXIQvUeKCZIlnhfuTltkZ4BrcG5Ep54KbtazMJxQZECp/FVO
2KWCvVeqSsMpDGCuNAt7giponJBZLKPOgMS/C8GBe1Vw015zc+2NDHhzXv8q
1UIFjy7u2b0KDJC27vIO8FDBa+ERK5uPM8Dpd/b88EUV5LCrzTlxigEFMVcu
mvmq4DG/3gV/OwbsbZb3VAlUwTcMK890JwZcNHB1a7tF1GcyRY73YkCjBtNp
pccqiM/sI2VvMECiof37nRwVlLBO62+5xQB754d2//JU8GZY17DvHQb8yTC2
aSlWwUM7JKjFsQxQJMUf86tRwax1gokfUxhwhVntcFO/CrqphFS+es6A4d28
3SrfVXBUk8r6q5ABhyMmba8NqmDS3Qe20iUMUBJ8dmHLhAraqV10PsVgQJPM
prvpf1WwuXzf6J1qBmyxEyctLakgXfG5/M03DEjPWki1WFPBNYppUOBbBnir
MfJ5OCjoHyD56sh7Bshuo7VcEqXgzk1xZ560MSDiipxlqwQFBcRFhNzbGTBb
yfRFVYqCGmKCs+qdDHhn9GbqizwFt8ZMOcZ+YoDH0X38+zUpOLmpSV/4CwNq
3I+YrttPQf4F79cNYwzQKNTt9DWloPLvoUHFCQYk/BY72X6IgqEjM44+k0Te
AZ9cwy0pGLlRPJBzmgFiN0/emjlNwUvZFRa9cwwIbN4laupMwU9xytGr8wwY
FZJ78OgcBW15J/RkFhjwKvF7zglPCiayyPYb/iXyfejU8DaQgjbcc3m7lxnQ
Nrr3iPx1CgYfmUzctMKA7RqqvZdDKWgR/ZJFdpUBgkUTY1qRFNQ/3+XYv8aA
ywtNnjfvUnDOYL19EVMFDOrl/xuMoaC2j9HodeYKKK/y4L5/j4KqRdszBFgr
QIHtSPR8MgWbhxW6GwhH7tWVPJROwZM1IvQgtgqwb/lNZXtMwSUDC/Ye9grg
6bu8z72Ygkfv8W7ZxVUBW3yf8N8toyDnlLvlK8L2It3tzyooyLXn8txWbmK9
fZtPzVRRMH9eOVeGh6hn4LSCSC0F3wZINoURFrwaM7LxHQWDXE54ThB2Kpn2
vNRMwQ82oeZ03gqIOSy7Nb6NgtJXWxP+En41Ybpc0kHsj6LhvJevAkbDrlR3
dVEwYqbtXRRhMYWcsD89FDTB3xWdhOFVtwm5n4KD+u0GovwVcM6aU1jvGwWn
xjLtTQknzG3uOjZAwaafWZJBhKvvOD64PEzB23Wi5/MJT6rG2j0Yo+DDrI02
nwiT31Yrv5wk8vQ0mF4kbGj3a7xvmoISHWEKkgIV4L4k+3xlloJ7ZIwWdQjf
TzjgLbtAQcqRWj8jwm91ArbDP6L/VA6kHyX8qylnzXaZ2P+c6sWThGVcemqD
1igY9+LRnC3hfaxcNzNYqGisKKxkQ/hi6pZDNexUbLpQzmFFOFXvjNgAFxVt
gqdSjAk3dMb2sPJR0aiXZXIb4YULNalKgsTz4aZz6wmv5505bSRCRSld+VJ2
wqaP5FSdxKmoIPZxyyCxHz/9gz/DyFS8++uN7yvC9L6AosfSVHxK3nslmnCr
71O/elkq+jpWGNoRXhTp3TW2nooXtK90qBJWyedi5VGmYuLxUY2fxPmb7d9a
r0aloh84HMkjHDB45raJOhW5y4z3OBPukHpDuq1DxQ3iC5mNRL6rJTN9eZuI
ev8FC/kQVjOTz2zZSkWKs4SlNOGg8P80hGhUzIn/6WVJ9EuuQu6Mtj4Vtct5
Dk0S/fbpVW+p2W4qbpXv5vuPsOb8Vv1YYyoOvDLYepfoz+N3nTiKD1BxzLo6
W4hwqFp8Y+dhKtqtFrHf5qyAPrtZCwkrKtZM1N3y4agArmV56a3HqVhK62AM
EP2vm3jom9UpKjrnqvebEL7ZnHvu3mkqeik/5ucn7kupy2etCicqcoVUyTkR
9+k7K8/v3rNU/JEiolPBUgHbtjtflfGg4gv7EyeOEvdx6NH6uLQAIt+pB2LG
xH2eDPn+jzWIiizuZ8rPEvd91iHD1iWYWL+2OTqYmAdMcuvVdW5SUX/5zOzD
RQZIJcrX1CRSUZjN/+1DYp6s9/5GoTygoqTTrEfibwZQj6bfvpVKRd5nXG7B
xPzZLCh/zPwhFS0dKTbGs8R8Dpf7NVRIRemju+7ETTHA6sxXC+NSKubfyRI5
Rsw3G8O0F/kMKrprszCTifnnuiYb7ltF9MPxX9TQUQaE+crKcrcQ9XK1sqwb
YMBL53WmGmNUPMn2qMmImK9vjPoLoiap6NmScK3wIwMaFFNIv6ep6FCp2SVJ
zONPX2UGXi1QscB01LWbmN+zVjKXD7GpotVAQ7Z4A1H/PulsLzlV9Lf6cSb2
BQPiqJJsDAtVrIhS5Cm+z4CTNiqPB6xVkTJKN89IIn5f4nSNBU6qYkBa46Gb
CQwoXjsQddpBFekmbqcPxTCgs+u6jMAFVZwlNxx6RPz+iYZObjodoYoDVp9f
3vBlQMz312f4X6ii962Jxe2HGXCc1My1rVIVHfsyh7IOMEDhQO9Th2pi/eaW
Pi4TBhSWz8+UvVNFAx7h5TojBrTfVQ106FTF8Ddyh8R2MECYFptQNqWKAiFD
Lb+VGBB13+mdvbwaRrUMeo/+Lgdfn+sXAxTV8NzueJbR2XKwOZIql6iihpIO
4jKD0+WgwdPl26ShhtHtrkztY+Xw3t+IulVPDVvaX/eG9JcDyzGlG3xH1PBQ
gcK2/bXl4E36YVwWrIap/xzSbO+Ww/G4Uy18I2pIWXUpPi5TDjJFPNKu42po
n3DPDMnl8PVDmfP7KTW05cvLURArB0dBEeaweTUM0hZJ7ectB/ebdbprzOqo
yfV+VGOpDK4Had2bkVHHuI0nWDf1lMETN2bHriPqmM19q2Mppgz+7n74L61S
HffVqV1WXy2FgSEDv5pwDayZq3F2by2BzF060s32G/BOUbqamFsx5IV6Cztv
0MTeN2d8rgsVQbjFaRPW35rYeCDUbLW4ADb3ZTwJb9ZCl/ng72I7n0OS6oO8
ZhNtFDxFkbtemwdXq24nmTC0sdL6XlrSzxw4IG3xsEFJB59uaF3h2ZMN+u7v
Tgjf0EGn8Ts8RlMPIU3GQanptw7esv2mMHczC5TePE44eGIjpuY3+Iz6Z0DU
hhq19sqNmJNfYV+4KQ2c5tg+vFfTxdoE1RtBVx6AQ8Gs/I27ukjeHt504UgS
1DdwBb9c1sW5sbyxSb14cDP8HvWesJE31TCWsNBLRmoX4Vs+nSl6hK3zzlX8
InyhvcoybFs8jNxtmlFa0cVrheNdclvjgcMiyu424asbrgkd3RQPhl9JNJtV
XVzteeJSoRkPw1a/TFwJR00fHLUjfLOt/pgf4ejNymc5CbdX+3vHEAbjM+7m
G+LBgf45t46w3THd8J/q8RB0Nk1aa00X1Sjsswqq8aD0w1d1J+E+2suQ99R4
qD9+eOt+wjsc6WQPwkKmzEdPE5Zt5dz9ihIPaZqnbyYSzh+VemKlEg8Gj3ck
0QkHah83WlUm6pMTe1RAOPhSww86YU3ht9WNhF1Hd62fVSLqu5HS2k34r6h+
TRJhHxaf/iHCLLrejkBY6srBiVnC5oa9nMOK8VA5p/JvjXCrgUduJOH/Afpn
uCA=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  AxesStyle->Thickness[Large],
  BaseStyle->{15, FontFamily -> "Times", Bold},
  FrameStyle->Thickness[Large],
  PlotRange->{{0, 20}, {0., 0.1017818422176176}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.419291873232169*^9, 3.419292140640239*^9, 
  3.419292244545444*^9, 3.4192923073652983`*^9, 3.419292995377808*^9, 
  3.419297121999257*^9, 3.4199906693672943`*^9, 3.4513130747073107`*^9, 
  3.4513155258057833`*^9, 3.451322357336035*^9, 3.4517415794576597`*^9, 
  3.482692134849984*^9, 3.482710878095231*^9, 3.4827109457191277`*^9, 
  3.4827110099262238`*^9, 3.482711054112327*^9, 3.482711213696535*^9, 
  3.4827113498717203`*^9, 3.482712485669729*^9, 3.4827125570220222`*^9, 
  3.482712643612486*^9, 3.482712804532526*^9, 3.4827128681797037`*^9, 
  3.48271292306651*^9, 3.482713020848639*^9, 3.482713080470189*^9, 
  3.482713185010625*^9, 3.482713290936933*^9, 3.482713336871435*^9, 
  3.4827133847492657`*^9, 3.482713424219049*^9, 3.482714373701311*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", "Plot"}]], "Input",
 CellChangeTimes->{{3.451313222927219*^9, 3.451313227749381*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\!\(\*RowBox[{\\\"Plot\\\", \\\"[\\\", RowBox[{StyleBox[\\\"f\
\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"x\\\", \
\\\"TI\\\"], \\\",\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \
StyleBox[\\\"min\\\", \\\"TI\\\"]], \\\",\\\", \
SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"max\\\", \
\\\"TI\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\) generates a plot of \
\!\(\*StyleBox[\\\"f\\\", \\\"TI\\\"]\) as a function of \!\(\*StyleBox[\\\"x\
\\\", \\\"TI\\\"]\) from \!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \
StyleBox[\\\"min\\\", \\\"TI\\\"]]\) to \
\!\(\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"max\\\", \
\\\"TI\\\"]]\). \\n\!\(\*RowBox[{\\\"Plot\\\", \\\"[\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"f\\\", \
\\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", \
SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \
\\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\
\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \
\\\",\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \
StyleBox[\\\"min\\\", \\\"TI\\\"]], \\\",\\\", \
SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"max\\\", \
\\\"TI\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\) plots several functions \
\!\(\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \
\\\"TI\\\"]]\). \"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Plot"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.482714374768632*^9},
 CellTags->"Info3482689173-4612982"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     RowBox[{
      RowBox[{"Attributes", "[", "Plot", "]"}], "=", 
      RowBox[{"{", 
       RowBox[{"HoldAll", ",", "Protected"}], "}"}]}]},
    {" "},
    {GridBox[{
       {
        RowBox[{
         RowBox[{"Options", "[", "Plot", "]"}], ":=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"AlignmentPoint", "\[Rule]", "Center"}], ",", 
           RowBox[{"AspectRatio", "\[Rule]", 
            FractionBox["1", "GoldenRatio"]}], ",", 
           RowBox[{"Axes", "\[Rule]", "True"}], ",", 
           RowBox[{"AxesLabel", "\[Rule]", "None"}], ",", 
           RowBox[{"AxesOrigin", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"AxesStyle", "\[Rule]", 
            RowBox[{"Thickness", "[", "Large", "]"}]}], ",", 
           RowBox[{"Background", "\[Rule]", "None"}], ",", 
           RowBox[{"BaselinePosition", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"BaseStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"15", ",", 
              RowBox[{"FontFamily", "\[Rule]", "\<\"Times\"\>"}], ",", 
              "Bold"}], "}"}]}], ",", 
           RowBox[{"ClippingStyle", "\[Rule]", "None"}], ",", 
           RowBox[{"ColorFunction", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"ColorFunctionScaling", "\[Rule]", "True"}], ",", 
           RowBox[{"ColorOutput", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"ContentSelectable", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"DisplayFunction", "\[RuleDelayed]", "$DisplayFunction"}], 
           ",", 
           RowBox[{"Epilog", "\[Rule]", 
            RowBox[{"{", "}"}]}], ",", 
           RowBox[{"Evaluated", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"EvaluationMonitor", "\[Rule]", "None"}], ",", 
           RowBox[{"Exclusions", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"ExclusionsStyle", "\[Rule]", "None"}], ",", 
           RowBox[{"Filling", "\[Rule]", "None"}], ",", 
           RowBox[{"FillingStyle", "\[Rule]", "Automatic"}], ",", 
           RowBox[{
           "FormatType", "\[RuleDelayed]", "\<\"TraditionalForm\"\>"}], ",", 
           RowBox[{"Frame", "\[Rule]", "False"}], ",", 
           RowBox[{"FrameLabel", "\[Rule]", "None"}], ",", 
           RowBox[{"FrameStyle", "\[Rule]", 
            RowBox[{"Thickness", "[", "Large", "]"}]}], ",", 
           RowBox[{"FrameTicks", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"FrameTicksStyle", "\[Rule]", 
            RowBox[{"{", "}"}]}], ",", 
           RowBox[{"GridLines", "\[Rule]", "None"}], ",", 
           RowBox[{"GridLinesStyle", "\[Rule]", 
            RowBox[{"{", "}"}]}], ",", 
           RowBox[{"ImageMargins", "\[Rule]", "0.`"}], ",", 
           RowBox[{"ImagePadding", "\[Rule]", "All"}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
            RowBox[{"{", "}"}]}], ",", 
           RowBox[{"MaxRecursion", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
           RowBox[{"MeshFunctions", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"#1", "&"}], "}"}]}], ",", 
           RowBox[{"MeshShading", "\[Rule]", "None"}], ",", 
           RowBox[{"MeshStyle", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"Method", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"PerformanceGoal", "\[RuleDelayed]", "$PerformanceGoal"}], 
           ",", 
           RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
           RowBox[{"PlotPoints", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Full", ",", "Automatic"}], "}"}]}], ",", 
           RowBox[{"PlotRangeClipping", "\[Rule]", "True"}], ",", 
           RowBox[{"PlotRangePadding", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"PlotRegion", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"Directive", "[", 
             RowBox[{
              RowBox[{"Thickness", "[", "Large", "]"}], ",", 
              RowBox[{"PointSize", "[", "Large", "]"}]}], "]"}]}], ",", 
           RowBox[{"PreserveImageOptions", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"Prolog", "\[Rule]", 
            RowBox[{"{", "}"}]}], ",", 
           RowBox[{"RegionFunction", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{"True", "&"}], ")"}]}], ",", 
           RowBox[{"RotateLabel", "\[Rule]", "True"}], ",", 
           RowBox[{"Ticks", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"TicksStyle", "\[Rule]", 
            RowBox[{"{", "}"}]}], ",", 
           RowBox[{"WorkingPrecision", "\[Rule]", "MachinePrecision"}]}], 
          "}"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition["Plot"],
  Editable->False]], "Print",
 CellChangeTimes->{3.482714375190811*^9},
 CellTags->"Info3482689173-4612982"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox["r", "12"]], "-", 
      FractionBox["1", 
       SuperscriptBox["r", "6"]]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0.001", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.419296962686017*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], PointSize[Large], Thickness[Large], 
    LineBox[CompressedData["
1:eJwV13c8ld8fAHCrVJRRRqVCISIqK+RzRPJtyCpCSGapVDLLTlHZRCE7Kisz
yrFnKURIua51rbvs/bu/f+7zer8+5/l8znOez7nn9YhY3zWwZWFiYuJl/Pz/
Kq/Hy005MADy4TseRrF3I1cHnpUW2QE4K1ziRPfpQvu/3DFVcR4AiXuuCY/8
OxHJuGmrhs8AfHkRu1NiZycqmBH5fDaUEbfvoT/O7EBaR7oELn8cAE41pd6J
X+3o1mvVrrukAbifLKJG0/2J5BVjAl0XBsDc3Db7yugPtOGwEK/OSoBrw4si
B0/8QM1s+v+d4SUAwTr6vVHvd2SuxpZlIEeA6GLinuOXW5HGtoKNLiUCENvH
Bzy/tiDxnmvGV4EAo5X6MrqSLYjyoHSzlS4BXMpEj6pwNCP/DzdtbzsRoIBk
db99rgHZewh8pT4ggPnOXe93ujegC2frdrl4EWDZ7TpBZa0e8Q3tq/MMIYC+
20IkhaseZe1pF32WRYDPPZeuc12uRS9Jjz058gnA/ExYL2qqBt0vkeoILSWA
zyXxdNegGqRqEOgX00CA3qHUAuHqatQWrERIHSaAnoJFp5deFSo0HlYSnyLA
7ebJ7UN0jOLEIsKyZwigfLtitkgHI+vqCfV8lkFg2jIy9nHjK5pbTEz8KjwI
s47zfg/iKlBfw7k5dHgQXs5qe+1ir0CV0QsX6mQHIUKSZDblXo6eyemvtqgP
wvO83Toztp+RkAObWY/5ICQZnCFfvVGKmBULPpnZDELhrtyU9+MlaJTVYtvA
rUEYprRrp90vQXlvSz+PeA7Cgpid5MUXxej075uCM3GDcMlt2fBffyHSfmif
L5gyCGc99vVo3ilE53ba6KhnD0KFRYOROksh0r90zT348yBMfnEMyj/2CVk1
Xuo50Mdw/PPVro/5yMb2gvMZ4iBAYpa8tH4+cmD9b8utiUFQtzuVeoqSh+7C
aeWS5UEozzL20onJRd6l8nEX9hKB90q1bTLXR+R/+Zjc/YNE0KrPCNZ1+4CC
ZmSaXh0hwlKbX+194nv0UlZikahKhDKjwMbGmmyU8G63iYc5EZ7uLCy/mf0O
JZ/hpybZECGYbUPghdQ7lD7E+6zOiQhh4cJDT3Iz0ccDnGVcj4mg02oFXysz
UMWrdYHMRCKY/SkdcVpPQ5UKK3mtGUSYFOhS8Y1OQzWdC2dpOURQL6ucm5RO
Qy1cNDe1SiIcsfDmjrZJRX1Ph353/CPC1FfV5NzpZPRPjHB3cZQI2j/ztLbF
JCNibT/7fgoRTJxFOa6oJ6NxRnc7bhBBKeZA+QGZt2jRrenVxoEh+JLTPvup
LAGt8tXLih0egpBR/lHmQwmIqai68ZzcEORXlHUERb5B7NTyhRg0BCV098Nj
7q8Rv0OOsfT1IfhOeMXL4RiH5E0iBa6mDoFY+64bIU3RKGu33t7Z7CFQ2a+q
eMwuGu39s/1AWMEQtDyLJzVuikYsFsHi9VWM+Eydw5tzUaj9hq/CsYEhSH+Z
zF8/HoG0xNRPfhsdgoCXD5w6YyJQ2eiKmj15CK7VvrcL1IxAyY5uWolrjHrP
5FM/pIWjO3fvGG4VGoaOfcpeulOhiCgnbZx+cBgalfZm15iHosv0cVM4MgzN
1jV8Kz9eIrWHttYPVYbhqDFLkXflC8ThZX5v0GQY5tq7v14oD0FZQefCPscM
w8vM91ZdIk+RkM6WKKPEYcg8P73XsiwIhW1tiKWkD4PMswnnUb0g5PpCI0ms
aBjcRV/urn/6BJ2JVM6J6BgGMWpBSz5HICoznM+X7hsGW8d3+3YVBCBpvqKi
xsFh2HG9b+CwSQDaFSf7ZY06DE5bj5ppffBHxETxVkeuERiyvPXL3MYPXbEc
bmMTGIEGo1naDX4/1CKc2vF2/wiQdG1M+5t9UUHavr4umRFAAvcE2RR8kW/2
rnGNCyOwIyduuVfRG+0rZmHfEzwCd4I8q7dre6LwTrOvoeEjQJcwO3P5lwdi
oxc9YI0bgU1rdn2pNh5o4qg9YSpzBDwKjp2QfO6OSrJaP+O6ETj3yEG/n+yK
JBsPOct/GwGH0zzJF164ooSRx+LZnYz82rS/HkdcUYCoXFQkcQSYxF4vjt95
iPQSop1smUYhV/qLj8ZWF1RbPi3axz4KTtMGpLLCB0ixV7tXl2sU2gN42fIs
H6B9/EtnlPePgsAXMvdKxX00EXbtAIfaKIQeP2to9OQeCggQ78h3GwVy5RKB
48MdNJ/i80zMZxQeCStFVEjeQTeretRfB42C3kurlbT3t5HeWsiHgJhRaBaz
r5/75ISE3CiBVwpHwYKokfm0/yYKi9FRbS0fhRfSaeKjt24ilqIUGtSMwlZz
6WnZNUc0TjW0kGwfhahH1zdZizmikptlSqvkUXj/dK7K4Lk9kgzmITvPM+a/
czlaSNKe8f9wM31kbRTyVepNw5rsUMCwEM8PzjF42K3hrc9ph/Qs/CZSpMZg
ULTT6lGmDRrXP5d41m4MaiT7mh4fsEaP0EyUxR1G/BiPo2bbdbRDNiHkoesY
fDgSoObrfR0d5yS7pQWNAfH3Xm7NISvk2RBhsJE5Bo8mruWae1oizmKV//jz
xuBgii+xb9oCJaUNgUzpGGRG8s/037BAtb4KMmaNY/AqquSymvE1xKnay146
NgY6OmuHDpqaoSRJ//XvlDF4uar+yINgiuQEj8wNL4zBDWTIveRgiozmHhF5
t5DA/95K0znfqygxT/jrncMkAI3ZDwcbjdHRQw73xR1JwCu8Wy41xwhV8fI4
nrpHgsXYTNp+AyNkwFxuaeRBAjnL1B6FRUPk+o/jon8wCUQbbPbv+s8Q4bg8
iX/ZJGh+b1vbtKqPDJ6a7J8rIEES2bDvfI4+Gn7IzMdZTgLjZ7zNcpb6aIuh
IYtKCwm2uUk839yoh/S2L/THTJDATuDPrOOFS4i48rbzI50EqyE1AcdrdJHL
hE5L7TIJCF9YrC1UdFF84+tS2rZxKBL4Jlx07CIi+qlHXjwyDsMGz6pkVc+j
B/NPzm5yGofTe70ZG/osct1CzY54MA48Uzxf1nXPIvc9ppz7vcYhnmutu5qs
jR6pH21XDBmHquXfQ33HtVFgULepQ9Y4yO6hQeY3LRQUh77O5o3DM++e/reu
WujZ+/cH/ErHQYFbs3xeRAu9aPMejm8YB5k9pvoZjzRRNL/EndbhcTi8xC5x
S+M0ij0c8dN4ahyyW4LOFM5poDiVlePDM+NwqITdROaDBkqw+LGwyjIBWk+S
76Tt1kDpmW5+R0UmQHUGFXGzIVSk2BQdcW0CXFi3GS7zqaESneML+2wnwK7I
7t+DZFVUZppw9b3TBMRZzl+sk1ZFX7yd99d6TYBZd3hC6zkVVNcgmDUbPwGJ
/7wt3r1RRg09/tv8UiZAcR8pYJu8MmqamHLanj0ByHvoHEebEvq2o/qYeNkE
qGV3XW3drIR+XXGsMO6egKMBrYORIQqo26Fz3/DfCRBNCP0gK6uAejxP+TqP
TIDlBZKgcpc86k/iORM8y8g36vrTRUweDY9+bivnnYQi/cgU5u7jaNZ1G3Hf
pUkw2nY9tvO+HOK7Whd4wXgSPDVnj5eLySFFVW8JL8tJaNzv3tRdKIvcN2hO
PXcngSdX49jRF0fR6tPehchwxv2lru8Xr0qjfTejXlfHTcKbt8md6p1HkPqF
i6eoyZMwwbLkWq97BPlyV/tfLJiE2+7o0u0LUogtPmv7lo5JiPN9Wyx8/TAS
87LOV+ybhC77/AHrSQmkfU3I0JY4CRf/+yyY4CaBnomEx9XQJ6FFLpypI0Yc
cb53O/h45xSMtSe22ZMOoV0V2ifpRlPAEhDCET4gghQSmfqFr00B159P8fFP
RNAVn3LvS7ZT0KwRL3JQRgTFaR6t+/hwCu4itvcJvsJI6BvfJfvYKfC9yc20
4rwfncr9QYtJmgKNipWhws59yCI8OLoucwqiNyTucp7ch5KN1npFSqcgKNxQ
xplDCB36O2zT/3sKBs9Kvuv+vhudwUnsHIQp+G/FstpSazeySzF5f5I0BTMT
1jnyXwVRlu03SuziFMgS9954UyyApMmFnvq7p+Fg7hYF4yo+JL/hH95gOg1R
JVfeERR4kZF6z0ib9TRsqJXH9rXxoIePZVR/35yGP07jZk8deVDJyu+RMc9p
iLxx483fNG6kvCituvXNNOgWfrruZ7wDmSj5h/OkTYPVhp/r4bTtyMP198ju
D9MQd+H0t1YaJyqf9QuXqpiGXcthL7pfcaBTtO6R838Y+QyZsj9t2oos5KRV
jYamwVs/4TXVfgvyvusXbj45DcLLzO5t39hR1fQR1dsr0yA9FnoRkjaj0xO+
4aF7yVCVsN3ulwUb0h6SUm03I8PmZLGtF3WZkJ2ob3jvDTI4qTV8rfmwAU+v
d40M3iLDYpSV5UrlOjQN+ITTvcjQX1jba0pbhXP9v0Z2JpDBXbk6hS9wCW7u
lVIVSifDrH/xlo2CRXhu6hN+6CMZkv9UlHsNLcC3HklVhS9kOBxFNZjTm4dL
Xd7hV/rJYPTnyw1roxlw3vVrxGKYDEhV/8m1RDqEG0qq2k+R4Zn5u1ve4zTo
aO8ccVslQ4JHQdd6CBWM2g6rxgtR4Gd4Nk1raBJMGjtG/phTIF+JTMwJIgJJ
cjzzqg0FTPZ6DODAQfB4sWH/+xYFmHLfdvM8JcBrfemJDk8KVFXfG7wl9xf+
/HlCbo6jAHr4fOl1Vxc4qSfknU2mgN6FhCAT3l+wmvzJuf4do96eX72pVzpA
yG6AXlXCGG/Te6B34jtYUJUXSn8x8gf/9zedpxrIBpfKFPoZcSMDz/qVCvAu
tvUoHGLEmSiauyjF8NYzciWXTgHfwr0dcv+lgzPL/IbBFipUnd35dsI7C396
cYntnDiV8XyfB+6ca8HLX/uGt0gx3PmyvjzxGz5Nsa1vlKGCb3Ppw/ujbbhT
/1HQGQUqoJA+SeuP7XiWP3uLhhYVsm52k2OIXVhNR3584ywVCFKe27cNd+NA
D9xceZ4KzypKiK2E35ivvytEzZAK+cpxHj7ferFiCst2ZWsqCMsrZzy98xd7
d7ycnrelQk/oXNKFC/9wA+vutmJHxny3ltqNig1gYzvZsBP3qMDZuin/lh0B
ux8x55H1pYIeb15+ztwg/lxczCeeRIVD9QJm3yuGMfcPB37FVCq4nxD8Eb1z
BDuQ9gpoZzLqRZgO33EcwYJ7/QXtcqmwWuCOPblGsauv7t7MSioka2kvNZ0Z
w23xzEIlNVRIODa9bz10DIsXFgk1NDDyzTyw8O8ew10je/aPtlHBpGIBRVuR
sPz5MWHxASp87JUcfXN9HL+weS2iOMTId4t5x9akcTz8+KKo9hgVHhXx5C73
jOOo/MKDdhQqmDe7Cwaem8B0Pl/xzA0qcC8fiPotNInPyZ6QKGGlgUv8qSM8
upM4RWdUooGdBjpmBobrjyexntcFyVEuGrToG8ps7ZvEeQRBaXFhGhClRfUf
Bkzhzcut0oqHaDBcwaZLeD+FLXb6yGgfpoHwvh9Oh9un8A7tkaN2cjTwtI42
vbFnGttZxsm6ytNgPUvlreWpafzV/bxckDINnJlKaectp7HTh4JjmYgG3yKi
CJuTp3Fdnc3xEi0aGK26Wf2rnMZC/wRONOjQIKGtqbi0fxq3cnvLj+rR4Kii
wLgvHxlLuZ5TEr9Og/CT1K2DXmTsH7ampGhLg5uPg7VVo8i4LytfWduRBqvD
r6tKs8k4+A+/it09GuzqdHcT/0XGhNlmFdeHNLgSZbNLmETGyjseqwZ50IA6
7JV3boWMSWhILdOPMb//jFk0DlAwMo09VfKEBnXq1lk75Sj41YP/1BuCafDs
VLSkGKJg7cw8GI2gwYuY25t4LSg4CVuj+RgaBFpaDs3couD5Hj6Nza9pQF59
kCbiQcEZHI9Oi6fSQDl/Vet2BAUXlXAtUTNo8PP0c/+eNxRcdz0tryKbBuJf
fxsWZFDwL04lu6AcGmyjBuxfzqXg4dIWIf0CGpSJXIXiUgqetbbo3FtMgyQv
h20jmIJZd9CDR8tokLwm1fq8kYJFbXYveFXR4Av/vWNnuyj4OFdOjnYdY32H
NmtZ/aFgjXJkw9NEg3lqvvgSgYL1bH/t6W+lQbp35crOUQq24nZoz/xBg7jS
hL+fJijYuWLl6b1ORn7fmX+/yRTsaxemrvabBr/6qrc9oVNwOM/Buc1/GP30
x8PmyxwFv/1S8qH9Hw3oakIkn0UKzrU/Z51ApEFWgGFI+zIFV/L+E7QfZYyv
DVUuXKXgtq/3fhyboAH/+t5e8XUK/uewKWh1mgY7hE6fP7pBweSd8WqNNBq0
hZjatzK8Vik9EzFHAyHXifUNhjlvVmWbL9HgdUZF/3eGhfiMrCTWGP24Olun
yLB01Rg/nYkOginHH6ox8qve8vr+hY0OpJrEdAKj/jl+rsCnW+jAzcvGJrZC
wabVqSoGnHTY3UM+xbFEwTedFGlC3HSo/fp5Pnqegj0FWt6N7aRDtmr2t9oZ
Cg6puWbxSYAO70qZTOKpFBx/m7br8V46cOgJHhGYpuAswSetZw/QYe7y/Q71
cQouqxX05z1IB373n794Rii46c5H5b/idJhN0imMYLyPnt2I8k6KDtNeV8cx
432R6joz7h+lw55v61OJ3RS8cNfe/NRxOvynV39Upp2C+RtCmztO0mG868Qu
23oKFr8n6pt4ig7uBzy9uRn9oSBUouigwXh+Ua2i+2UUbHT/b9qaDh2W+x/8
tnpPwVH7pb0Pm9CB5bCW2pbnFJzajOVnzOjgfei5Xag/BX9yMZz8akmH8qnU
Z12Mfu5o8TQxtKfDBfGxex/sKZjbrfm4tysddkSY8MYy9sfLH3ZjndF0cNJT
ijRl7LeP1qKVlDg6OHtsFXz4h4y/zf2N5mCco+oONlVX28h4m9Dl05oZjPU5
k6AcVEjGQQ6aiZ+K6WC6RW7pOWO/ezMLG0Z0M9azluXMKVYydj7RW6krOAPy
ac/1qQtTOKwhOuam0AzsdLzj/d/oFM69qucUJDwDUr3pzSG/pvCUT+PuysMz
cP78rudN+VPY8Vuxi8zJGXitKVuv6TCFrW0jpThNZ0DPtPdkU+ckNnp1Prb5
zQyY655fWkmewNs33sTNJc7CxkW3z5F9I9im48l6WcosXFpWoRg3j+DyjLs2
jzJmQUviT+KhMsZ5cUFTjjVnFjR5lWt+xYzguviJRu4vs9DArhwdqT+CPeVP
LhzpmwUnBwXN2JZhTHLsvmzNPwfufl4birVDuOYX984foXNgRBJj92sfxIfD
ReOHIucgcCA127R6EIeelz+wGDsH86cLA1HBIDarMT4i8nYORJ/HzchFDOLZ
vCTNB3lz8NK9hitDfxBLPJd2Efg5B1PjmZf7fxHwCw2dLkueedit+vPo7uYB
fCXX5xU1ah4CvWIeiuj3Y5eVe5341Tz45a2rZSv340gdG66wN/NQo0j3PyPc
j38QdZ7KpM3DuEGuTQXlD9YR4HW7+WkeDnMNO78J+4NVfNOvDP+ch5Ft74gH
O/vwfoNmvp7tCxBkJg4cjr14ZI43Gj9dgOErZiYZ3xnnPc0g2+v5AigZnTQ0
Ke/GotORlUphC1AQ8/KE0LtubDHMO54XuwBqgiMPun27cXcHr3pyxgIkMzcl
7lToxg15vCTf2gW4JTtPzEjuwpmOvGqnNxaAzynU6lfAL2z3l2e4znUR6tJ6
7HLcOvCuao/dHZ6LkDgs8XbCrgNXpw/qDngvQiwKkFC+0oGFnAo+LwUtwj4n
tylWhQ7csawXdvTVIkj+fZ1hPtOO1QXDVeJKF+EGrWhg04N2zG+4I+LW4iLE
bz91r/3xT9zQtE2d13MJvNQ3uF0efcfS6oaSfY+X4MQe+pG5G99xROGbXal+
S9BmMpby4vx3bJ4kPXkseAkuW+heWN/zHdMf6Mbpxy2BG1OW+UT5N7zvQCQ9
vGQJFuYufuhcb8UuD3e/45pZguVjR+WsYltw38T1yN/zS5ARwdL9xLcFg9X7
x2+Xl+BMpLQVvtmCt51XNZJlWYb5wMru29CCk4WvMV/iWQapIpJWyXgzbm1N
NguVXQaJfBfBEY1mLCp6mHu70zIc3f7O9BRTE37lE7dX3HkZ/NokW/dMNmLO
v1skwGUZuG8/W+HsbsTzr8ZP3Xu0DDy89tqyHxtxy/YPt7peLIPLMbYTjlcb
8b0lmcbEnGXo01Hfl1zagKt+nvA+SmHEt59Zf+5fjxWOpgefnVmG+pt7Anvv
1uP3z3fFWC0sQ3bMA62T1+pxtPbch8iNZfiodkhSVrke238p6Z3nWoEMpqaH
dHId3pF1UgHLrcB397WZBss6fM0Hpi7dXwFNBTsOKd1abPB87edl1xVIPbg2
RDpVi7VfVRSbea7AwLsJyVKZWiyXp+Rj778Co5SBSr/ttZhlQJbXJ3IFDh+/
ZPL9ew3OUhdWzv3EyGe11CWnX4Nn15gCOWdWIE5QIqzKuhqHPKrZ2/xgFZho
XUEEM4wV91wvCXZbhQunLFbGNTEeKt3QO+fF+C5xL1bbIo2x2oxaUKv/Kjx6
veW3/2olpjiWUr9HrEIY3tC+k1SJjYw/1nfkrQIOyVDePvoV7z8ee7d/chUK
rr81IQV8wZ/GHGspN9ZAQjc5V2H+M75zW86b2WEN0pXNizQGP2OpmXnlnU5r
sHJAd+v1b59x6npArqLLGvg0OBj0pn7GUXxJ8Y8DGePpBzVy9T5jF82OuxwZ
axAVsa2jJ68MK75VEZIYXQOR7Ry0XK9S/PkKx0MLh3Wg6n2JCTtTjI/e+TQi
5bQO6taH2NYUinHqk6tXFu6uw/1Ld5+4iRfjkKJ3SuFu62BnOR0WxV6MTXm1
lquD1uF7Oe2eXUsRXv7+yEcsYx2SeptXnQyKsMoZcvDU4DocJ0xIfbxViL+c
aE/yNNuAFwUt98OqCnD+Uj3phOUGyEnsfHq4qACn4/Lj09YbwAl/IlvfFeDn
59MbLG9ugMhtsduyYQXY9IYbWcuD4Q4x+dsWBXgpcp8616sNcJffa/N5PR8r
0h3/pnVsgInchXoT7XxsYsIcOnqICSleWVwmDuRg0zyu2klxJvS3mCTzqzkH
m23ev0g9zIT8gw4c7inMwRZFKtYr0kzo/uEiKcFnOdiW20WRW4EJKbD8dnU9
loPvN43+O3mGCTXKnO5LePoRv1T+JvvSlglJPbCb2a3xAdcIvmo/kcmE9iwW
XboykoWTy2Ku82cxIcFQskr2ryz82CSatpjNhNIEBXZsrcvCynERPJU5TKj9
2BmgpGbhPIEX+jrFTOjNnoFoo+tZOIHfr928jgkZK/Pd8SC8w667brU/ITKh
PzEKG4SxTCzFDe2/9zMjMxczfppgBuZO16cRhZnRwTDHbWzbMvCckg0PWZQZ
tXF4KB5cScdVlsH6bBLM6P4Z361Bf9Px5bzOdjlZZtSqRL7en5qOfXUdOoKB
GZlKGCrVyKbj7hcRnapWzOhD9JNQCYM07Ld1uOttCjMat7u56VBpCj49Oqr3
LI0ZRTR8vVL9IQWz1Y63Omcw6q0GiNonp+CgR5RqjWxmVNM0wPktOAW/oCzn
DOUzo+tXn9ktm6fg2C6eIIkqZnTOspR7iC0Ff0wBxbx/zIiuM59VZJqMu0++
ia3cy4Ja16iXCCeT8O9pLe/EfSxIUlfmja5EEu5JIds+OsCCLsvEibTsSsJ/
tp5WUDnIgjjhfDGJkogJvaTOYikWxCHl/qMmMxFPeCjy5JxkQf+CrbIG+RPx
2uf252+MWVCIM9Mbf6YEfEhli597FAuSN1hqOLEQj2WI9Ys+MSzo3bKsq/5o
PFYMCXB++ooFBU6XD3l1xWOdvnXL2DcsaNMBhbb5wnjs5DmnXpTGgl7zdxQE
3IvHReXEVUohC7pXOnWNSo7Dmqpf3e1/saCnFQGZ3+ivsLXafecrfKzIJrpn
8aZQLD4rI6ypKsCK6knZjsZcsVh6fxuf8G5W5PFGqvsCSyye35CsGBdiRQef
KQcZkGJwSO3gpseHWJHr5R8+TUUxuOCc/pu0E6zo3tW/3SaXYjDTVbkGqj4r
clTtUeoPicaJD8l7n4eyIhU/E7R1TxQOMc33jgtnRewuXGJ8O6KwK9wfzIhk
5F+yq5BkicJ6W+czq2JZkQwBCE4TkZglce3YfBIrSiewappWRGKHOk6d63ms
6FNw6JlWi0h8fOcRF6WfrMh42cug+0MEbsq3/zbEw4ZOF/pvF7sWjmedfr4Z
28mGxEVUNI0Nw7GI5Mlbk3xsqLrP+WL4f+HYM2XbtpndbOipcEUzv2I4lo7M
OcsiyobKm+xaXbjCccSDmRrh42woP/fGW0JQGDZV9Pl8zYANTR5Tt/W3CsVT
FbGZvyPZUFvE0Ka7yi/wjvXfaqIcmxCf3NmlqnfP8IHT/D3hLzeh7u9R7RvX
nuCjX+1kr7BvRjHHtUjsVf5Yccvt/BLvzchex7dKI8QXy1x2VlRlYkdDnwNN
7s4+wqK9T9z5PdjR3bSLN3nTPDC7ZRzmW2VHJWhPe9xTV1wm4uEgxrDK9oVc
xLDD8FUeBYZP59iGkoJccYvj3htGDPOcXdRXZviFS9LmKIYvrtEmfwe6Yt6Q
9Ivca+yo/JLcLQF/V7y/OP/PtnV21PXgbeyrR674h1tE4B6GNwiZmcCwr8p9
GSmGc4SgbMzLFQ/iEz7/Mbx9QISgxHB6S4noM4brP+Sd7vFwxZKEL46bNtjR
Ae0Rg91urrgvNZGXj+HOljmvaldXHGLrXXGIYeKb2ExHhqcmYLsWw5YswUzl
D11x7lxNvj/Dt9dkG01dXLFlWdrVSIY3M9essjDM7RXIksowiWv4xIcHrvge
k7ZRNcNbZXsyV+67YtFa8bWfDG+SfU9MY7jjCXsmgeHvuzmFLzAcoEPSpTKs
MrZmMXvPFctzNC9sMCwX5vM2geH/AWqPEps=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  AxesStyle->Thickness[Large],
  BaseStyle->{15, FontFamily -> "Times", Bold},
  FrameStyle->Thickness[Large],
  PlotRange->{{0.001, 3}, {-0.9999999979806407, 22558.30401958544}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.4192918732921667`*^9, 3.419292140750457*^9, 
  3.419292244630897*^9, 3.4192923074802523`*^9, 3.4192929954393272`*^9, 
  3.419297122048688*^9, 3.4199906694180937`*^9, 3.451313244563266*^9, 
  3.4513155263318996`*^9, 3.451741580193272*^9, 3.451748819732914*^9, 
  3.4826923653838663`*^9, 3.482710878742811*^9, 3.482710946028215*^9, 
  3.482711010249609*^9, 3.4827110554297457`*^9, 3.482711214045306*^9, 
  3.4827113512606583`*^9, 3.4827124864349546`*^9, 3.482712558186997*^9, 
  3.482712645015486*^9, 3.482712804857627*^9, 3.482712868456435*^9, 
  3.482712923432909*^9, 3.4827130211698236`*^9, 3.4827130817761593`*^9, 
  3.482713185273467*^9, 3.4827132912499247`*^9, 3.482713337146139*^9, 
  3.4827133850200777`*^9, 3.482713425567266*^9, 3.4827143753811073`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox["r", "12"]], "-", 
      FractionBox["1", 
       SuperscriptBox["r", "6"]]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0.001", ",", "3"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1.2"}], ",", "2.5"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.41929696911734*^9, 3.419296977989046*^9}, {
  3.451313276266612*^9, 3.451313299495522*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], PointSize[Large], Thickness[Large], 
    LineBox[CompressedData["
1:eJwd13c8le/7APDjUFqyIsmnpLI+RMkIuZ4iaQktaZBkRENJRiFJoWwikT0+
ZZWRlEtERip7li3Eec459v4+v9/zz/16v+77dV33uO7X/Xq2mN8wukKn0WgH
OGi0/2v9B3f+tNnCANr/f1yEbq+sRu05BiyP3b7ymD6NsJTwCGy9zAA7zfJP
Ja+X4PGlxv5uWwZMh5iZzhUtQkWneyDblQEd70pbTVjzcLijoV/wJQOc1D7H
CXnNwNWNshpiiQwY98xdsZQ9DX4m7oHb3jAgtr3wg2vvFHxrkdFQ/sgA6RCm
0YTBJBxvdAs83cGAk+0fL5ufHIOb6xr6L/YxgNAwfHQhmg2BJ2Q0rEYY8OR8
iq3bEAvqauv7784z4KVzduOiLxNOfpfWiBQj4WdgGkun9y8Yf63rbz9PQpYq
oyfduwcGZYaSz1qQYLzRuRO9usH56ZJVsy0JtIxXTfyPu+CFodxwnQsJxZ/t
u20Vf0F7+yNGZQQJxB2/mReNjWCn9TLzYCwJBkdfehsLNMB87NubZSlUPtGG
1vjTdSBm2ckuzqPGW7Rubh2ugYtMtan8Biq+z6FfifyfgWF0/L1yB9V/0sil
bK4Q3HKvOL/rpfpppPY6MhdeuQTPZbBJ8Hi3sU7xUCLcpE8uGa1gQvFBwVfD
bqn49ulxrsOSTGp9BZ3XD1fh7Ke2vhWylOuflX2I/ob7yStlX+WZ4FGZf+fW
wHesN7znfUCZCYRvm4z5m1ocF05bsU+HCalXmxhhPY2oqbd7aOkgE7pkXXhW
9TWhlzNWFh1hwpPCvJ7qrmYU6mj01TzBhCy1CGf3b62oEkfnUTNngvhutaTH
13+hW92z0ckrTGjxn4g5evQ3lnNu+J5rQ813Zb7lwPZOPGOpEKBkz4Q11cuy
bC270Onf8/wKHkwwEMjMSp/oxoLcXCHJGCZsK1t/rqawD/l+WAurxDPBSUnk
R6hgP1oPblyvm0zlCzLpu27TjyIbPUUsM5gwn+2ELrwD6OihvzG5iAmxOroz
FQf+4PdIDrG8Eia83Dn6z6L/H5R8lyNWXk7FG7t90bPpDzb2i24a+M4E48Ip
ItRsEHcf+SMu2cmEN60yA1GXhvCpxYstKr1UPFuOtStjhrDv/jEJ3T9MuJfD
nzHbMoQhWe+2WpJMOF/pJOJ1eBjZQh6SyUtM4JvdHNIs9hcPKyhJ5XGywCFy
77/8+n8xTm9AqpybBXrnjE4s3v+LBq5HZQZ4WVBleEJ+ZdtfzOwSkZMUZ0GP
nIThnYcjuHy2Wk5lGwv6Crn0u/4bwYuC7vK60iwQ/+eHnXTtCK7V7d9hqcgC
F/NQk8uio2hpGqHguJsFi6nqr0z3juInpyOK3mosuEnLZx0xHUW719k7kwkW
fAsK6VoeO4pfvljsytNhwcn5u2a/i0ZR7Pd6pXI9Frz8XpGb3zGK1XxuuwcM
WLBDZf2QhxADZR0Pq0peYkHgHubKblcGegYsqKpcYcHV+z66GiEMbEvNUtO1
YcF834vi/DQG+rQLq1vas2BdvdNdyQYGdo1XqjveYcHpEIt14oMMVFt7X8Pb
mQXMPtfMw3MMHCR6NZMfUPM7dIa+bzOJhEn43rxHLPiiZZ4qqEji89uHtMp9
WPBkb6jMdoJE3eRMGAhiwdOwa8sELpIYg+bEZBgLvExNe8dsSZxsEdq3/AUL
GPO3E7Y4k5i0+t5+yXgWqGXN61wLIjEnj3eGmcSCn/v9PFuiSPxyKSGzMI0F
kp+aT2QnkdiwRtXSO50Fq5gPN81mkNiXXyVmmM2C91vOQm4+iePmF+s35rIg
xtV6VT+SyLmW7TPwngWxC7LVfl9JlLDYMOVazIKPwvY7DzaSuIs3PV33C7W/
vct1zNpJ3PeBsOCvYMEkM0typotEgysNoh3VLEh0K5oTHCDRjM+6NvkHCyLy
X/56O0zizcK5x/b1VHyPsd/NDBI9LAO0NJtZ0ND2edUjNomB/FsnlrdT9dTu
bPFxgsRXH/Ne1/5mAVtTbNB9msQMq8PmL3tYkPrwhG/tLIlFAr9FrAao8aX+
au/mSfz+yf7HzmEWCC9ubJVcJPG39TLv+VEWrBXbf2THEokMwUjNrywWfPc1
saqmvFAkNxY0wQIxx+HFJcprrhannZ9hwYukwo4aymJCJ82kFqh6nB//okJZ
rviPMJvGBpG4XXc0qfgatq41H7nYMFgSndhF5T8szOv1eAUb+AS4uLbPkWjy
OV7daA0bNrQw9q6eIfGqnQpLjI8NpZ8KJkMnSXRZX5XyR5ANaRpp30rHSPQt
uXDx7Xo2pOTTjCOZJEZeY627v5ENqw1E/l0/SmKqyKPqg5vZMHHqVp3WEInv
S0U8BbayQdjpZwN/P4kV19+o/ZJkw3iM3rsg6jxaNhBkiiwbRl3PDiF1XoNf
6pNu7WCD6LfFkegmEqduWJ3fu4sNhwzKdsjXkihc7l9Zt4cNQ41K666UkShp
L+ERvZcNTptd3Pio+lAWy1Ox3ketX0In59Z7Ek/e+pWwoMeG2Y7bzWb/kRiy
Sc5N2pgNdGkdzRV+JMZX4u6xc2xw2+Zn6e9J4luHE38/mbLhw0j8k0aqnuuq
XIxPWLHhqOQf+9dWJPLdrdzl5siGtUHGAuHU/Xj2w/JPfSgb7AxUg02o+/bG
XKKIjGDDTeeVInfaGfht4lfoauod1bK2KD77nYGrxE7t106i9ufASzXvdwz0
ttaOfpvLBpMVijN+1H134xA/EdRE7Wcp/cBeTgbeVGot0hcZg90JfobMqREM
KA8Nuyo2BoI2190ODYxgxlkDO2/xMZBtTaz0bRjBEfevG4qkx+DIkXV+FVkj
aPMt10F+zxi80FYo07YeQfMrwbJrTMbAwKR1T0X9Xzz5/Eh4ZdQYnNc/MjMX
O4w8S1ERE9HjsHTsbkFwWz9a1D1afB83Dsdn1ckzlf34IemGxb2kcdCRao/e
9p56L45qK3Kmj4O2gFpJQ1g/fokc/sr3cRzKudVCgw370WX3nql/28bBzlpZ
O7yqDwdtmk6ZC0+A0wPXJZXSXixp4BP84T8BJwe3cz+o7UbpQInI3uAJ8OqM
TzP53I3+R3Zvng6fgMn977yI7G48V3Lm3y2vJkDCL2JMMagbxzNjtG9nTsAz
pxLeJMNulPKTc1j/cwJGhpJPdTR04dN9eo2m/JOwQePnjg2VnXg6w/05M2QS
vFzD7mwx7ECHOft6fD4JDzIXNdPUOjBYz4I3IGoSSlTYngfEO/BHj95j+YRJ
GDLKsCgk21FvvcDdq28nQZq372ZUQDuqeySe7vs5Cf2rUnq21rfhJqNKoRae
KfA+JwmrbVqxf0IgFB9PQd/pc8ZJNdR7zzJKc/WbAtWTe04Yf2hCidHgItWA
KcgOe6YkltKEF/sEhjLDp0BTpP92k0cTNtUJaMUmTUEsR0W0oHITlmcKDHqU
ToGtwmRPUmwjJtsIaO5fmgIhO3+zhocNaPmLv++L4zR8SWixTL9bh+s+O2+o
c5mG6D6pV8OWdfg5sVu/020awomHUmqn61DMLrtgxnsa/rG7O8KpXId1swYB
O55Pg8yvF0nnx2pRSyRQPSJ/Gi6zcjqX3a5F4RNrg2ynpyGSZ6997f2fWF6x
SkvAZQZctZb4HO7VoJzWCZm2+zOgJMr+d+JyDQa9i1oX/2AGvhv/iXt6pAbP
x8j93ekzA6cu6h9dFK1B9m39CMOIGbhLSz0//OEb/rM5mB2YNwNTE8de1y9W
o8OdDSm8YzMwu3OHoll4FbYNXwpunpyBpCB60yOPKgSz/+6/mp2BA8FyZni1
Clcd0TipQJ+FSa+ipmtQhbHiFziO88+CbM6gTt5QJVZXx57zV5gFqSwHkf59
lSghIc3HYzcLO3hSTPbSKvC5e8RGyZuz8OC7TLXo36+45tcKKXCYBb5rT+bW
NH3FyedDe+3vzQK/gJWuwpuvWMXz2rbx6Sw47ORSsjn7Fe1n5L9Gp89Cm57W
P7H55Vj8U8ltB0n18xxY9PMsQ+UdiT4Hx2ah7KqoV+uNMvzPb12Y2dQspIXd
1tlzoQxDdSdeBy/NwhvNbTIKamVo9TGvdZJ3DpJoFXfYjC+4NnWPMirOQY3T
wli56Re84A4jx2/Ngbay5WpZ/VI08lv4ecpxDuK3LvQO7i1F3eeFuedc5qAz
ZVgmX74UFTNV3a0852CA7Cx6wFOK9E4FAffgOZDeddy4pqYEU7XE1TLeUvHM
ZhoVDUtwfIHmtWZsDiJEpAKKzT+j772SjZW354HGavTuOoeoInopz+fuPBzd
e3FuSBuxN3/J4LAr9V/ilKu5Qg5Rc0zTu9pzHu69WNHsOV+EpE0+syZoHgJw
Sfd6TBGePPOmrC5zHtA3SY1n4BNu2hV+o+PvPGRfemU8+PAjvv1jU0peXgAp
/dgM5ckCvH5N0Y3DegES1c7n7OsuQNmxSTVBuwWY26y/8tK3AoxffJih4rAA
7uXWRq3xBRgiFBN534saz966L8OgAB20626sTlqAkKBVdS2Z71HllbqY1MAC
bOFZzcpwzceC06vvXLReBKbBx7CAA7m44/rbflm7RdAy38a1oJyL8Y/Onp66
sQi3jt94dFcyF31zUlQD7y6CpeloQAh3LpoI6Mx+9l6Emg8se8uqHJytuee+
PWkRYlor5+2MclD9AMNnpHsRdnUNy76xfYcflWpjXM4twdPsqlsBxdmYNVM2
qGS6BIpSgo+lc7IxET/sGjVfgjXQHlydko1+RxLLTa8uwZZr268pBGSjyeW7
DB1nynXbd1+7mI0zwf9o8T5fAqfdGy0KFrNQhW3zK6FuCYwVj5YZ62ahsTGH
/8A2GqFyenq2pzMdTTJ5S/9K0ohfuYPyDZXpeG75pmmmNI3w9N4s3fIuHS/m
qJvPydGIW9I5siJP0vEKn4MKnzKNUKY3OzruTMdbFQO/9xygEV/l97e9fPwG
n6l9U3h2hUbI3rYc27DvNZaIPK9VSqYRotM5x0/3p2Ls+7BLwqk0QsSfoZ7W
kIr3jUNZ02k0IkFk/dqVX1JRLSKIvyidRtTuPABkfCpmrn9qqJdLI6JEO0NP
XkrFl8IPas9/oRFn1ISuO3eloOM629pHPTSiPUx5qetPMsryQW3zJg7inMM5
YZZIEvIlGrJ6xDmIrQE2q7hWJeGEqgU/Q4KD+L7aWWXrXCIWm/oYcklxELcO
eKz0/pWIpzLraxUVOIhqVcaljvhE9NC3rvMBDsJE6oRqiUIiNj0Nqtcw4yBe
hz7ylzJKwAcr+xpfxXEQQ5ZXl23Lj8P9AwMGTxI4iKDyT6c/v45DrtKh6ptJ
VL75hxJWsXHofY/8vC+Ngyip6FzzzScOn5Kz6b1ZHMSls08sZ8/HYXgjv7dU
MQdx2DSfr5crDt/EgUrmbw6CrTeZmmMSi017osKLNtKJ6gXm8a49Mdg8quMW
/Q+dkNGXj9KXisGWOMaVe5vpxCn5iC1V62KwfeV+ZfWtdGINHMkdJKOxq3Ww
PleWTqyWdfpRkhyNw84q/Ol76MRvH7PUbuFoXCio9Ys6Qyd8b9KiPGkvcZv6
igdOIXRit9FMudJUJMr3lE27h9GJlFkFR8OBSFTxfXjz8XM64TX6ode1MRL1
2hZNw6PoxLLNyt8n30WincuEVk4CnXghXJf90D4Scz70zJPv6IR9/sgFJiMC
tTU+OVk10InHhQ+Tv7Gfo7nmrZunhTgJi9CW6ati4XhQXlxbYz0nUTaYZnOG
NxzlNn0XEt/ASThHyTYdpYfj5JJM4ZAYJ7H1iZq30WAY+pZ2L7u/jZNwPPXD
vSInDLMPG0YlKHES9md/NRkfD0PaWcVypiEnYaPRotrhG4rRdxgb/fw5CfUH
xsRK0RD0NclyiwjkJLgdeLcLrQ1BR7jVnRRMxZ+xLJShh6DBysnk4nBOQr4L
uuyGg5EevbBzMoaTSOzi1DYpDEbrL2v0LmVyEm99/A9UXwzGXYL/Oqj+5CTO
zLoaNb0Owoosq2+9/FzE/neePNsvBOK43c+oP4JchOQWde0zJwJxi8we279C
XMTntpvHAg8FokvcqlVjG7iIx+KFlcIqgSgXnH6QLsFFfKiwrHbgDcSg22Ml
4ru4iKyMy6+6vAPQRMW94IIRF/F3p9YVTzN/HCkMT24O5iK+B/Uuu6H2FNcu
NmtKrF5GCCkenClOeYKb9wu3BD5bRjTVhNQuXXiEOz5ZKpzmXk6E7dIZ5C72
RJUV17Ly3JYTVnoexft8PVD+1E0VDRo30VvgZXxj/B5KtD5yEnbmJm4kHLsq
kOCM3KYRKDTPTeQRorURjx3x/RZn6+2U1XmmMgjK1n1n+ZUp70+/4j/o7YhV
Nhsvn6TMf3DaUI3yU4eY5SGUjy2w/jZ7OaKAb+IxvgVu4sNxRdv1no64KTer
fdUiN9F4+1X483uO+ONukJco5aWu5GSg7KF+S16WcroYvP/j6ojdqOR+iDJP
55YuVcqJVXkSTyiXvc7c3+LsiDJdH22WLXETm3X7jTbcdcS2+GgBIcr1VROu
nx0d0feKW+E2yj1R4ck2lEeGgUeHsindh/bhjiNmTJRkeVK+tqDw1cTBEU3f
J5wNpryco2SeTpnP1YseT3mQt0/p9W1HtKfpnvxMeaVCS/LcLUeUKJVc+El5
mcJ/PQmU6x5xJ3dRrtmwRvwo5Yd6g/pMyup/Fi6O2zvi7tWVU0uUFQPcX72k
/D/S/79+
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  AxesStyle->Thickness[Large],
  BaseStyle->{15, FontFamily -> "Times", Bold},
  FrameStyle->Thickness[Large],
  PlotRange->{{0.001, 3}, {-1.2, 2.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{
  3.419291873419533*^9, 3.419292140833323*^9, 3.419292244712969*^9, 
   3.419292307580284*^9, 3.419292995489644*^9, 3.4192971221695757`*^9, 
   3.4199906695397053`*^9, {3.451313271012957*^9, 3.451313300295919*^9}, 
   3.451315526546258*^9, 3.451741580268188*^9, 3.451748877471324*^9, 
   3.482692404333955*^9, 3.482710878803746*^9, 3.4827109460951853`*^9, 
   3.4827110103159723`*^9, 3.482711055498939*^9, 3.482711214115464*^9, 
   3.4827113513241796`*^9, 3.4827124865021467`*^9, 3.482712558257485*^9, 
   3.482712645055015*^9, 3.482712804918312*^9, 3.4827128685346622`*^9, 
   3.482712923529086*^9, 3.4827130212434683`*^9, 3.482713081842559*^9, 
   3.4827131853403397`*^9, 3.482713291314211*^9, 3.4827133372088337`*^9, 
   3.4827133850864277`*^9, 3.482713425615777*^9, 3.482714375469399*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"%", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1.2"}], ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{3.419296984628289*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], PointSize[Large], Thickness[Large], 
    LineBox[CompressedData["
1:eJwd13c8le/7APDjUFqyIsmnpLI+RMkIuZ4iaQktaZBkRENJRiFJoWwikT0+
ZZWRlEtERip7li3Eec459v4+v9/zz/16v+77dV33uO7X/Xq2mN8wukKn0WgH
OGi0/2v9B3f+tNnCANr/f1yEbq+sRu05BiyP3b7ymD6NsJTwCGy9zAA7zfJP
Ja+X4PGlxv5uWwZMh5iZzhUtQkWneyDblQEd70pbTVjzcLijoV/wJQOc1D7H
CXnNwNWNshpiiQwY98xdsZQ9DX4m7oHb3jAgtr3wg2vvFHxrkdFQ/sgA6RCm
0YTBJBxvdAs83cGAk+0fL5ufHIOb6xr6L/YxgNAwfHQhmg2BJ2Q0rEYY8OR8
iq3bEAvqauv7784z4KVzduOiLxNOfpfWiBQj4WdgGkun9y8Yf63rbz9PQpYq
oyfduwcGZYaSz1qQYLzRuRO9usH56ZJVsy0JtIxXTfyPu+CFodxwnQsJxZ/t
u20Vf0F7+yNGZQQJxB2/mReNjWCn9TLzYCwJBkdfehsLNMB87NubZSlUPtGG
1vjTdSBm2ckuzqPGW7Rubh2ugYtMtan8Biq+z6FfifyfgWF0/L1yB9V/0sil
bK4Q3HKvOL/rpfpppPY6MhdeuQTPZbBJ8Hi3sU7xUCLcpE8uGa1gQvFBwVfD
bqn49ulxrsOSTGp9BZ3XD1fh7Ke2vhWylOuflX2I/ob7yStlX+WZ4FGZf+fW
wHesN7znfUCZCYRvm4z5m1ocF05bsU+HCalXmxhhPY2oqbd7aOkgE7pkXXhW
9TWhlzNWFh1hwpPCvJ7qrmYU6mj01TzBhCy1CGf3b62oEkfnUTNngvhutaTH
13+hW92z0ckrTGjxn4g5evQ3lnNu+J5rQ813Zb7lwPZOPGOpEKBkz4Q11cuy
bC270Onf8/wKHkwwEMjMSp/oxoLcXCHJGCZsK1t/rqawD/l+WAurxDPBSUnk
R6hgP1oPblyvm0zlCzLpu27TjyIbPUUsM5gwn+2ELrwD6OihvzG5iAmxOroz
FQf+4PdIDrG8Eia83Dn6z6L/H5R8lyNWXk7FG7t90bPpDzb2i24a+M4E48Ip
ItRsEHcf+SMu2cmEN60yA1GXhvCpxYstKr1UPFuOtStjhrDv/jEJ3T9MuJfD
nzHbMoQhWe+2WpJMOF/pJOJ1eBjZQh6SyUtM4JvdHNIs9hcPKyhJ5XGywCFy
77/8+n8xTm9AqpybBXrnjE4s3v+LBq5HZQZ4WVBleEJ+ZdtfzOwSkZMUZ0GP
nIThnYcjuHy2Wk5lGwv6Crn0u/4bwYuC7vK60iwQ/+eHnXTtCK7V7d9hqcgC
F/NQk8uio2hpGqHguJsFi6nqr0z3juInpyOK3mosuEnLZx0xHUW719k7kwkW
fAsK6VoeO4pfvljsytNhwcn5u2a/i0ZR7Pd6pXI9Frz8XpGb3zGK1XxuuwcM
WLBDZf2QhxADZR0Pq0peYkHgHubKblcGegYsqKpcYcHV+z66GiEMbEvNUtO1
YcF834vi/DQG+rQLq1vas2BdvdNdyQYGdo1XqjveYcHpEIt14oMMVFt7X8Pb
mQXMPtfMw3MMHCR6NZMfUPM7dIa+bzOJhEn43rxHLPiiZZ4qqEji89uHtMp9
WPBkb6jMdoJE3eRMGAhiwdOwa8sELpIYg+bEZBgLvExNe8dsSZxsEdq3/AUL
GPO3E7Y4k5i0+t5+yXgWqGXN61wLIjEnj3eGmcSCn/v9PFuiSPxyKSGzMI0F
kp+aT2QnkdiwRtXSO50Fq5gPN81mkNiXXyVmmM2C91vOQm4+iePmF+s35rIg
xtV6VT+SyLmW7TPwngWxC7LVfl9JlLDYMOVazIKPwvY7DzaSuIs3PV33C7W/
vct1zNpJ3PeBsOCvYMEkM0typotEgysNoh3VLEh0K5oTHCDRjM+6NvkHCyLy
X/56O0zizcK5x/b1VHyPsd/NDBI9LAO0NJtZ0ND2edUjNomB/FsnlrdT9dTu
bPFxgsRXH/Ne1/5mAVtTbNB9msQMq8PmL3tYkPrwhG/tLIlFAr9FrAao8aX+
au/mSfz+yf7HzmEWCC9ubJVcJPG39TLv+VEWrBXbf2THEokMwUjNrywWfPc1
saqmvFAkNxY0wQIxx+HFJcprrhannZ9hwYukwo4aymJCJ82kFqh6nB//okJZ
rviPMJvGBpG4XXc0qfgatq41H7nYMFgSndhF5T8szOv1eAUb+AS4uLbPkWjy
OV7daA0bNrQw9q6eIfGqnQpLjI8NpZ8KJkMnSXRZX5XyR5ANaRpp30rHSPQt
uXDx7Xo2pOTTjCOZJEZeY627v5ENqw1E/l0/SmKqyKPqg5vZMHHqVp3WEInv
S0U8BbayQdjpZwN/P4kV19+o/ZJkw3iM3rsg6jxaNhBkiiwbRl3PDiF1XoNf
6pNu7WCD6LfFkegmEqduWJ3fu4sNhwzKdsjXkihc7l9Zt4cNQ41K666UkShp
L+ERvZcNTptd3Pio+lAWy1Ox3ketX0In59Z7Ek/e+pWwoMeG2Y7bzWb/kRiy
Sc5N2pgNdGkdzRV+JMZX4u6xc2xw2+Zn6e9J4luHE38/mbLhw0j8k0aqnuuq
XIxPWLHhqOQf+9dWJPLdrdzl5siGtUHGAuHU/Xj2w/JPfSgb7AxUg02o+/bG
XKKIjGDDTeeVInfaGfht4lfoauod1bK2KD77nYGrxE7t106i9ufASzXvdwz0
ttaOfpvLBpMVijN+1H134xA/EdRE7Wcp/cBeTgbeVGot0hcZg90JfobMqREM
KA8Nuyo2BoI2190ODYxgxlkDO2/xMZBtTaz0bRjBEfevG4qkx+DIkXV+FVkj
aPMt10F+zxi80FYo07YeQfMrwbJrTMbAwKR1T0X9Xzz5/Eh4ZdQYnNc/MjMX
O4w8S1ERE9HjsHTsbkFwWz9a1D1afB83Dsdn1ckzlf34IemGxb2kcdCRao/e
9p56L45qK3Kmj4O2gFpJQ1g/fokc/sr3cRzKudVCgw370WX3nql/28bBzlpZ
O7yqDwdtmk6ZC0+A0wPXJZXSXixp4BP84T8BJwe3cz+o7UbpQInI3uAJ8OqM
TzP53I3+R3Zvng6fgMn977yI7G48V3Lm3y2vJkDCL2JMMagbxzNjtG9nTsAz
pxLeJMNulPKTc1j/cwJGhpJPdTR04dN9eo2m/JOwQePnjg2VnXg6w/05M2QS
vFzD7mwx7ECHOft6fD4JDzIXNdPUOjBYz4I3IGoSSlTYngfEO/BHj95j+YRJ
GDLKsCgk21FvvcDdq28nQZq372ZUQDuqeySe7vs5Cf2rUnq21rfhJqNKoRae
KfA+JwmrbVqxf0IgFB9PQd/pc8ZJNdR7zzJKc/WbAtWTe04Yf2hCidHgItWA
KcgOe6YkltKEF/sEhjLDp0BTpP92k0cTNtUJaMUmTUEsR0W0oHITlmcKDHqU
ToGtwmRPUmwjJtsIaO5fmgIhO3+zhocNaPmLv++L4zR8SWixTL9bh+s+O2+o
c5mG6D6pV8OWdfg5sVu/020awomHUmqn61DMLrtgxnsa/rG7O8KpXId1swYB
O55Pg8yvF0nnx2pRSyRQPSJ/Gi6zcjqX3a5F4RNrg2ynpyGSZ6997f2fWF6x
SkvAZQZctZb4HO7VoJzWCZm2+zOgJMr+d+JyDQa9i1oX/2AGvhv/iXt6pAbP
x8j93ekzA6cu6h9dFK1B9m39CMOIGbhLSz0//OEb/rM5mB2YNwNTE8de1y9W
o8OdDSm8YzMwu3OHoll4FbYNXwpunpyBpCB60yOPKgSz/+6/mp2BA8FyZni1
Clcd0TipQJ+FSa+ipmtQhbHiFziO88+CbM6gTt5QJVZXx57zV5gFqSwHkf59
lSghIc3HYzcLO3hSTPbSKvC5e8RGyZuz8OC7TLXo36+45tcKKXCYBb5rT+bW
NH3FyedDe+3vzQK/gJWuwpuvWMXz2rbx6Sw47ORSsjn7Fe1n5L9Gp89Cm57W
P7H55Vj8U8ltB0n18xxY9PMsQ+UdiT4Hx2ah7KqoV+uNMvzPb12Y2dQspIXd
1tlzoQxDdSdeBy/NwhvNbTIKamVo9TGvdZJ3DpJoFXfYjC+4NnWPMirOQY3T
wli56Re84A4jx2/Ngbay5WpZ/VI08lv4ecpxDuK3LvQO7i1F3eeFuedc5qAz
ZVgmX74UFTNV3a0852CA7Cx6wFOK9E4FAffgOZDeddy4pqYEU7XE1TLeUvHM
ZhoVDUtwfIHmtWZsDiJEpAKKzT+j772SjZW354HGavTuOoeoInopz+fuPBzd
e3FuSBuxN3/J4LAr9V/ilKu5Qg5Rc0zTu9pzHu69WNHsOV+EpE0+syZoHgJw
Sfd6TBGePPOmrC5zHtA3SY1n4BNu2hV+o+PvPGRfemU8+PAjvv1jU0peXgAp
/dgM5ckCvH5N0Y3DegES1c7n7OsuQNmxSTVBuwWY26y/8tK3AoxffJih4rAA
7uXWRq3xBRgiFBN534saz966L8OgAB20626sTlqAkKBVdS2Z71HllbqY1MAC
bOFZzcpwzceC06vvXLReBKbBx7CAA7m44/rbflm7RdAy38a1oJyL8Y/Onp66
sQi3jt94dFcyF31zUlQD7y6CpeloQAh3LpoI6Mx+9l6Emg8se8uqHJytuee+
PWkRYlor5+2MclD9AMNnpHsRdnUNy76xfYcflWpjXM4twdPsqlsBxdmYNVM2
qGS6BIpSgo+lc7IxET/sGjVfgjXQHlydko1+RxLLTa8uwZZr268pBGSjyeW7
DB1nynXbd1+7mI0zwf9o8T5fAqfdGy0KFrNQhW3zK6FuCYwVj5YZ62ahsTGH
/8A2GqFyenq2pzMdTTJ5S/9K0ohfuYPyDZXpeG75pmmmNI3w9N4s3fIuHS/m
qJvPydGIW9I5siJP0vEKn4MKnzKNUKY3OzruTMdbFQO/9xygEV/l97e9fPwG
n6l9U3h2hUbI3rYc27DvNZaIPK9VSqYRotM5x0/3p2Ls+7BLwqk0QsSfoZ7W
kIr3jUNZ02k0IkFk/dqVX1JRLSKIvyidRtTuPABkfCpmrn9qqJdLI6JEO0NP
XkrFl8IPas9/oRFn1ISuO3eloOM629pHPTSiPUx5qetPMsryQW3zJg7inMM5
YZZIEvIlGrJ6xDmIrQE2q7hWJeGEqgU/Q4KD+L7aWWXrXCIWm/oYcklxELcO
eKz0/pWIpzLraxUVOIhqVcaljvhE9NC3rvMBDsJE6oRqiUIiNj0Nqtcw4yBe
hz7ylzJKwAcr+xpfxXEQQ5ZXl23Lj8P9AwMGTxI4iKDyT6c/v45DrtKh6ptJ
VL75hxJWsXHofY/8vC+Ngyip6FzzzScOn5Kz6b1ZHMSls08sZ8/HYXgjv7dU
MQdx2DSfr5crDt/EgUrmbw6CrTeZmmMSi017osKLNtKJ6gXm8a49Mdg8quMW
/Q+dkNGXj9KXisGWOMaVe5vpxCn5iC1V62KwfeV+ZfWtdGINHMkdJKOxq3Ww
PleWTqyWdfpRkhyNw84q/Ol76MRvH7PUbuFoXCio9Ys6Qyd8b9KiPGkvcZv6
igdOIXRit9FMudJUJMr3lE27h9GJlFkFR8OBSFTxfXjz8XM64TX6ode1MRL1
2hZNw6PoxLLNyt8n30WincuEVk4CnXghXJf90D4Scz70zJPv6IR9/sgFJiMC
tTU+OVk10InHhQ+Tv7Gfo7nmrZunhTgJi9CW6ati4XhQXlxbYz0nUTaYZnOG
NxzlNn0XEt/ASThHyTYdpYfj5JJM4ZAYJ7H1iZq30WAY+pZ2L7u/jZNwPPXD
vSInDLMPG0YlKHES9md/NRkfD0PaWcVypiEnYaPRotrhG4rRdxgb/fw5CfUH
xsRK0RD0NclyiwjkJLgdeLcLrQ1BR7jVnRRMxZ+xLJShh6DBysnk4nBOQr4L
uuyGg5EevbBzMoaTSOzi1DYpDEbrL2v0LmVyEm99/A9UXwzGXYL/Oqj+5CTO
zLoaNb0Owoosq2+9/FzE/neePNsvBOK43c+oP4JchOQWde0zJwJxi8we279C
XMTntpvHAg8FokvcqlVjG7iIx+KFlcIqgSgXnH6QLsFFfKiwrHbgDcSg22Ml
4ru4iKyMy6+6vAPQRMW94IIRF/F3p9YVTzN/HCkMT24O5iK+B/Uuu6H2FNcu
NmtKrF5GCCkenClOeYKb9wu3BD5bRjTVhNQuXXiEOz5ZKpzmXk6E7dIZ5C72
RJUV17Ly3JYTVnoexft8PVD+1E0VDRo30VvgZXxj/B5KtD5yEnbmJm4kHLsq
kOCM3KYRKDTPTeQRorURjx3x/RZn6+2U1XmmMgjK1n1n+ZUp70+/4j/o7YhV
Nhsvn6TMf3DaUI3yU4eY5SGUjy2w/jZ7OaKAb+IxvgVu4sNxRdv1no64KTer
fdUiN9F4+1X483uO+ONukJco5aWu5GSg7KF+S16WcroYvP/j6ojdqOR+iDJP
55YuVcqJVXkSTyiXvc7c3+LsiDJdH22WLXETm3X7jTbcdcS2+GgBIcr1VROu
nx0d0feKW+E2yj1R4ck2lEeGgUeHsindh/bhjiNmTJRkeVK+tqDw1cTBEU3f
J5wNpryco2SeTpnP1YseT3mQt0/p9W1HtKfpnvxMeaVCS/LcLUeUKJVc+El5
mcJ/PQmU6x5xJ3dRrtmwRvwo5Yd6g/pMyup/Fi6O2zvi7tWVU0uUFQPcX72k
/D/S/79+
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  AxesStyle->Thickness[Large],
  BaseStyle->{15, FontFamily -> "Times", Bold},
  FrameStyle->Thickness[Large],
  PlotRange->{-1.2, 1},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{3.419291873521244*^9, 3.419292140918852*^9, 
  3.419292244795671*^9, 3.4192923076819487`*^9, 3.4192929955572433`*^9, 
  3.419297122247014*^9, 3.4199906696173143`*^9, 3.451313304291053*^9, 
  3.451315526635384*^9, 3.451741580385071*^9, 3.451748963801641*^9, 
  3.4826924537299957`*^9, 3.4827108788649263`*^9, 3.4827109461517878`*^9, 
  3.482711010371993*^9, 3.482711055587214*^9, 3.482711214171047*^9, 
  3.4827113513865957`*^9, 3.4827124866392517`*^9, 3.4827125583459597`*^9, 
  3.482712645163471*^9, 3.482712804974656*^9, 3.482712868592914*^9, 
  3.482712923654894*^9, 3.48271302129506*^9, 3.482713081928255*^9, 
  3.482713185397929*^9, 3.482713291373652*^9, 3.4827133372637*^9, 
  3.482713385145162*^9, 3.48271342566632*^9, 3.482714375567502*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"p1", " ", "=", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "0", ",", " ", 
       RowBox[{"2", " ", "Pi"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.419297036982894*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"p2", " ", "=", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Cos", "[", "x", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "0", ",", " ", 
       RowBox[{"2", " ", "Pi"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.41929704550895*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"p1", ",", "p2"}], "]"}]], "Input",
 CellChangeTimes->{{3.4192970654471397`*^9, 3.419297065840722*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], PointSize[Large], Thickness[Large], 
     LineBox[CompressedData["
1:eJwl2Xk4VN//AHBrlsTMHUKlqLRaUkoL3qeyFSklbUKokKwlJJU2JAmpZEuF
8illTzghRUWiEopCsszMtY6ZCf3O9/n9dZ7X88y9M/e9nXOf0XD23nlYTERE
5JmoiMj/VnEsW9+1+rwxr/z/V82+8g1z4xzhVkHzyByyCp/purbEeoPvzXyT
z2T9rejGL4w9C+ceVQSnk7XV7GLlw9jroHY+7cMusn5xjF2cHJsKa0xn2O6+
kQo7PVVbb8fmwGosLAu6lgM3hu3zEmIxrFV6ZKIWimFD9VbZTf4NcKm0zFTW
tAF8gq0P5fl8g6JTVfqlLc1wvPhwtNiCn7Aoe+5HC3Y7fO7dIpPp3A3dPS37
qqW7IFKXJ1K4rxc0pB6LbmX2gO/ympuvHrJB4P92dTa/F7oPd59LK2SDb0Dx
gtXifWCXJuJ57i0bnp2boVY8ow/WK63bhPrY0Oikv+jR/D4Q+/eIi7U4sKlv
5kYDqz6IbbxqjvM44Hw0XVE0pQ9yg7YLyiq4YN3SfNLAsB+ELsee/vAahOyZ
vfW3nAfAiTkSWBowCKX/Dsx74TEA1eXBm++GDkKsa1xdk98AxKhGftsbPQjF
lgEbxsIGYPHHLLHPTwZhjXXkot70AbBd32P3jj0Iz100r0b9GoCnjEP/Cj2G
QDXB9njlPjYolvfW3vQbgowKsdrph9gQdMwn/kTwEFh+bzWzdmODyZuzS1dG
DoF/k3h6eQAb2k6n7HryaAiu5/o9tIpjg/Sftsz7vUPw3kTeac57NjiX2e2I
OTIMl3djXuhqDqwsVKFUvYfBj7cg0t+QA2I5rU33Tg1D0PwVHxw3cyA9zWFP
Xvgw6Nxzsp1nw4HOC0ccvj4eBoP0G8brPUmctgZ4zqGH4dXakLofacTNN8Oz
To0A49h6Tr04F1Y27Nmqd24EDnY35xbIcEGsVlWuJHwEwl2L2HEKXEgvSb7+
/s4I9B24UbhmNhc6kx8mcF+OwN78qyeUVnLB2bXggb7IKPys8lmxxoELLkOf
X70KHwX3MPcOQQ4XnIJj9hTHjEJ77hyX4Hwu2ItbcXNuj0KAQd2WkWIu2ClV
zU7NGoXopOIN9SSPFuueB5ypGYUO8wVxS5q4oHP+mtZ66TGQmfyk4TXKhWWy
W6r0GGOgluhpe4LPhcVxEvuXqozB6+KlLX4TXFB/ePqKypIxuAbKX/ZK0MCq
de/kmY+BcUzI6RoWDXyG2e28K2OwJjvp6Wo9GkbviOpmXx+Djvd5Ma/0aRia
X1adfmsMwkSFBZvX0tCvrz9yI3MMihvuvFkJNPzYO9/a5+0YiEYa9eZZ0VCZ
NiWuLcUDLlvlxMYjNJQvLUlcqMCD2pOfF+5wp+Fl7km9Oco84FQUTt/jSUP+
a7bD9MU8oCWHArf50ZDZ2/qiz4wHtxfkln4/Q0PUiiLvjMs8OKDrbXkxjoZ3
K5t7TkbzYGhL+nKZBBqkV48fNE3ggQVb5NLl2zRcXGdg1f2Q3J/VleaRTMPp
TUVL5lfzYOycwvFvGTQUmzSnDn3gwc72I9M0HtHAMxufWfGZBzOkDyo6Z9Pg
Z2kg6dTNg9ZLolF1OTR42Bb9ShYfhzdbY9u2FNOQZde89/j0cdBOWD/droSG
nr3jHw1Z41Au4pa9v5SGQwcNytvmj0Nj7NEN217RsPdIUaLqpnFwNRiNan5L
g3lg0a6b58ZBf554/Lkv5PcGN79zDR+H5W7rE1jNJH4h4xv1Y8ahKE5NLPUb
DcbnDVY0pY7Ds2AfpdQ2GtZEFskx8Ti8WuqpbvKLhhNRzRd+vhmHh+dVjyR2
0pAbPS7MqR+HFTfzqL4uGrTjDPqs28eBXe6T6t1Dw8KkouqoyXHIX1MTqjFA
g3NKs6G9JB8utFwZWc+mIS1tPG/5DD7MHOz9YMWhYc5Dg/R3c/iQuynqv300
Dfsz96gmLuSDuqdNru0gDbcfnYpx1+LD+u6y2RZDpL6eFoVKG/Kh5VqGisoI
DTueNY81b+bDoE5+9ihxdO64Z6YlH0Ymr96rHaVBtsjggNkBPtQLGvLteTRY
vNjTqOTCh+mz2j/NGqfh8stTW357kN+zfWzHJ2KxV0UGF4P5YPPl5onFAhoe
z6AyJsP4ECXxa8dn4p0HPBVPXeXDj6xm/UAhDcKsN2GDcXy4UWOpzvpLw32e
+pB7Eh90uUzWQ2Irk9OOXQ/4cHmJ6AydCVL/N77U2T/hQ4HsyIynxCbakY+3
l/NhMstmYdwkDezgbpXaN3yw1ghdxyeOrzG+sukjHyZeaO22naLBcOadsZfN
fNiTtPlUJvFvlxGX1T/5sCYgO3WIOPr5tsanvXz4F7S9fuU/ks9/mWjJEB+e
OKiJHyNutxLLuSfgQ5OjpHEi8eVEe7XZYgJ4aCQMfUWs01t4NV5WAOOGQ9U/
iL+uZgpnsASweXEnNUwceuGY25XZAni89e3hSeLFn6q/iiwUwGhQcvk/4oa5
6qbBWgK4KeeqJiAO9AzOG9EXQHb7nLA+YvWSzxrHjQQwseMDu4G4Rko3psdU
ADyLoIM5xD67I6YcrQWQs0L780Vilftdni12AujgjeywIX41aNS205FY/nuT
IrG78e0tH44K4L4Pz/4jeX4qarjI1EcAL27bsc8Rl7RYLcKBAjAOp8KWEjsv
zoxfe14A319vmltL4it7UlQ8N0IAlXvFKhyJcysP+C6PFUBKo5cHh+RnP6Ow
40GiAK6bZs3yIxZzYFjPvS+ABVs+feKQ/GZne5TeyhaApUA+xonYVvB6GTNf
ANt44bvfkfqYMJt3J7JUAGWu7vOXE1t1Np08UyeAE2VU0yc+qQddnW7eF/L8
lwyLlImTzoTv9GkXAAqJvm9L6pGjYqTrQgvg7IHwm3ljJL/bM3otmELQvuf1
W3KY5DdZZE+lqhCyx52ZEqQ/2vv3V2+YL4RDuafNBaSfdC8rpOusEgKtb9FU
Q/qtoTTwgOJuIdRbzvab6CX5kW2qvXZQCOrS9HjuH5KfvdprpY4IQdfoYqQT
6WefkV+KwgAhiNv6NqeRfmcus6zvuC2E7fF2swt/kPkklcqsSRPCwHE/XfSd
xPv3sO2zLCGkxIWcrmylwfVeYtu5YiHk3mgszSHzp1ilv1fjmxAOHNKltT7R
cI1npCX7UwgMu/11gR9Jfj7f8B7+I4TFCbE9pXU0TI9Zx6scFwI3ov299jsa
HKQixF2V/wLb18Art5KGVb+/m1nN+wsBjym9V2QeSletiNRf/BfqU+JWvikn
+Qz9xpA0+AttowEjJWSeSvIWz82w+wtSQ+XB5rk0/Nf9Zm3vzb9QLDysxEml
4XzlrJCG5L/wKfSpyFky3+3SvHDxw79QJ7tulcxdGkTsZ5pFFPyFyiNnfKaR
/WFX0+Fdy778hfeDcgcfXCXzoELCy1NxAtJ4ldFeJ8m8Sd10fzB2At6Ey23Y
uJmGKzUNP8LuTkDx7JOa8WR/ezPkoKL0gHzedIVK+wYaTE1OX1tXMAHzznfN
2kP2x019eafCmifgx8XneT8Wkv5fpWmlOGcSsiPGdYzJfrvirdSYwcNJOJ/Q
lWtbygXvwZu6755MAnp2qS+yiAtPVRd62BdOwus9F7cX53JB2xN1nHs7CTKy
C3L4WWR/ZwbV1vZNQuE1026Fm1xYeKA/+YDOFHhmH3K/c4wLyvQHs7NFU1Ap
2RmygOLC7Rv4UB+egujzFsoOclxQ0c8N2VUzBS8zlzrHTCMOupW7uGUKjnXV
KnwXcmCWuPPcBuEUaOtK8BW6ODBXeXxM3fgfjHWOeA8858Ai0HhY+fofZASO
M89s4UDi2xJRcXcRdEDxp6a/ExsGfz4Loj1FkPOzpCwdcv4zF2YMtfmIoCOP
E/d12bBhVCvuV36gCFqodmjb2s1ssI49VnEkXAQpeaY9idFkg9jBOeffZYqg
ksbLnRO9A3Bs+IxIbI8ICmkWEWkg51NDtY3/1F1FUcOV8H11+/vBwv6zn7Ob
KPrWUdWjYdMPtneP9tz3FEX7BZdEvc374ZhqdN2ik6Ko429i//CqfkhUarur
dVkUfSw+/O2eXD/wZ5xcuzZLFIWUm8WnlPZB/lSW73a2KLoSaxa+WLkPlv9k
dJ85IYb2G4x0qxX9gSdZlFuBnziS40l99OnohpD2g03LL0ugHzsPL73g9Qt8
DddapsRLopAG8/hVoW0gTDVxHoiZhlp7rO7V6HyGBp9Ep1PpUkhNLmiJ3+e3
sM58/tSPe9Lo01e5I1Miz6DWdF0WSpJB6xoc5uZEPcUPn99Z15ktiz6x1A0f
nqrBSgu0PBweTUe2i3MXmv1uwo2i0mGqpXJI4l3qI/3WNlwg7Z/RUDsDxQet
KKhK+IW1lBgeztXySCvm/l77l92YjuYprvqqgFZcY3Ytqv2D2YNzK7VbFZBZ
alVJbdMf3L/T3HtJuwJ6Te96cqT9D+6eebtWrYd44vq36JE/uDVlXag0TwGt
j7WauqXWi533lI9wZRlIfZnzpqs+vXjbUdGDr5cx0OZk1+YuZh9ecOWKrrcH
A0nX2oU1bezHfl/1Q509GWhNoXjiy639+JVm54fdXgy0pP2Ib/Kufuzw2tDD
0I+BbrS121kf7seJosMPZIIZ6NjApwrX8H5MhdjPehDBQIHWMWbOdf1YzFdP
siWLgdwPTTTc2DmAbV617/rwmIG0I5R+P9k/gNMUotLxfwwUkmAYWOU8gI2f
9kDGMwb6/lxSsc1vAAcP3A32L2agiD8s9svYATx8eNrgjBoGavhYcmrTpwHc
ub+tddMfBtIz3TjHbgsbyxntyXTqY6CUsraPhjZsvHpek3/oAANx5RUSZu9j
4/Cud3IlNAPNsvOzqXBjY13PEmM9PgN5FE0zf3KFjUPO3EmfJ8NEj53iLCVf
s7FS2h6PiWVMtFM6SiNzDQcbhzWtmaXNRKVHG+WjjDjYzXW7+FpdJjJbEvnB
zYSDS5eYJ/mvYiLD/rTnMjs52Pn5mvr+DUxU1aDH6fXk4KeVSitbrJhIQz39
yux7HGzxu0lQ4MVE3QusnpuIc/GZ5dGnc3yYyLw0fuSlNBfn+lpMZvkx0Zkb
6t3L5bl49lSpSFIAE73tKHw3psLF3JkZUmGhTDQVox+hp8PF8RaBStbRTNSo
Lf2f+R4u/pk9R6/nCRPVpSqwf9/nYqXhr7kdOUy08plZuE8WF29de0O/5TkT
ZZ74kj3yHxfnvZZc+6GAiZ7+vnmxq4CLL//gGueWMdFyhqWD+1vyKqtQYRVa
x0SCvNpquT4uDvQ77DaTw0S70p0dsxfRONySe3Q9zUQba1dMi11G41sLTx11
GGKio2yxV946NC78Gn4kY4yJIgfM3RhraDyy/j/XNVNM1OU/5tljQmMv8REn
OwUKRblb2Xc70fjM99NOwUwKLRqfmb/BlcZRBRJOKSwKmf05JB95lMbZR2c6
9ihTiOI9fzPdi8a979cdDFCnEMdyv9b9YBq7xJ/bl6BHIYYcSGrE0tjvuMy+
klUU6rulpNobT+Mws9i97asptHvytEbGLRqn8e/vWbSeQnF5X+Wkkmncbv92
d+EmCi2Icl9rn0ljzuodu1tNKJQatrOt9RGNJ+RbbKfMKLTh9HvPHf/ReHZF
/y4zSwp5f03Zq/6cxns15Xd+3UUhHf9CtKuExm5TCTbC3RSKjOKbRJTS+FTz
PJu5eym0VNJ3ZWE5jRMi9HYcsafQ8mcRb0YradzEsbXmuVLIXSaqUuI9ja0L
726dGUCh9bNHrnq3kPuNOP9TCqTQJrm7O/itNL6wYlm+UjCFDMfa1IO+07j4
cbGaUiiF/Kwedzp30Hh+6pdB1mUKaT70//W1m8aG35MessJJvMQb+PN6aLxH
1XU/K5JCTpsmVA79IfGOG66ioin08s4lv/d9NOZdUbjFTKAQC7PCEJfGjOqv
lszb5PoNd5q30DReLpYiwkwk+ah7sMpykMZOIVoejBQKPVDdPrV6mMbBL0bm
MtIodNLM33PeCI1v8kqaFNKJPZb8FBml8TufLUYKGRRKcT3SnD1G4+4njGH5
LArZJl3cf5JH43/9zRnyj0l8ox0614zTWP/wEYb8UwrNsbn87x6fxCddu3rG
M/L9J4PiLQU0du8YDZqRSyFzoZ82hzhl34UuuUIKHS1r8VD5S+KTsPW2XDGF
RjZOyKcTNzUxt8mVUEix4HrhggkacxktonKlFPIq9D+UTCxtnVY4vZxCq7sj
FBQmSTyvHj02/RWFjNsKXgUSG9XoqE+vpJC4wY8TrcR7JXmfZV9TKPPGn+X6
U6T+NpVFyL6h0OSF8t+XiKPOXjSWraFQ7MNt6eS8jTNLLUdk3lHov6iwQ8x/
NK4UUFkyHyi0s95qgSXx9zWt9jL1FNoxlfwnhJjnf48p00ChdTnuTzOImc/d
3kg3Uui4H9mNiLW4uqelP1NI+ZvF5k5is+XjutJfKbTKextzlNjJrbxb6huF
Yqqf/iLvH/j0w0t3pFopVH/UI5+8f+CETitrqe+kHn6djSDvH/jZPEVxqXbS
n6WDTgPE7+zbiqb9JN8X9mr9F+Lfd9I9p3WSeigZnVlELNLsrjGtm0K17Pix
GOJZinpfJXvI9cmPvzoT69vwIyV7KXTNZmOJFvH2aAyS/eT6q0fSuCQeHu8v
j0qwSXzql0ZkEV+Utn4kwaXQ4sSkE/uJU0yVHCQGKcT0anSWIH4R9p2SGKaQ
b83PXRkk/twJjxBxHoWixf4YN5L87dtruVQwTqFjziLJDsSv85Z/5Qoo1Fxd
uq2L5P+OB1u3dZJCIo0JmV+ENJZ48+H7x3+kflaN7dhM7KXxJKJalIU0ZAK3
PSL1ZPLteNczSRYKfnsOOZD6y1llHZMhxUK2mnYGT0h9zrquY5Qkw0JOndzz
o6R+B03phCszWGh6phrLk9T33TyfrQ5KxLlly/4N0Xiags34LmUW2hfCfc0g
9vHQe7BFlYXGfwTmzyL9ZKYxPKmvxkJPTofHK5P+G472fz5dk4UCCkMcC0h/
Huzf5SC6mIXecu2yI3ppXGOqP318CQullCRY25F+Tp4Yde3UItcLvZO+kf63
8AhQeaHPQjmX5B3Ok/mQV21X/XQNC3G6rx1XaafxXA0DvwdrWSg6cPRrJpkn
I83j768bspDRcGtxTsv/4h909ogJCxX1aVe5NNFY5t4+LXszFup9L8wu+0Tj
ExPrWmwsWOicaMaQQgONt+QJVxpZsZBl/eqbyR9oPKoe0sOyZaFZDjyLg9U0
dgyxj5OxY6H8k64Lg6tIfTUbon97SDx3qDldr6BxavTknf4DLLRtu4UwvYzG
WydCt1W4sNCS39/eeBXQ+F7z+XwvfxZKmHVd7859GvdUr+iIPslCQlRYJH2P
9EN+h0zOKRaaASbbvVPIfhRj5EifZqFL7MsFGndo/GGLQMbnIgutc2jynx1N
Y/5LH0ffm+T+NjruLgE0Nn48L/LGLRbSrdvvYuJP5u3t+vznd0h+G1pPz/Gh
sfxJLdnhZBYKjHCbnutO4wU6vfl+GSx0ZsCq3M+ezKc0R9kTRSykKC5qYYlo
HB8tvzr+BQu1WjfeSjGkcUtImWP+Sxaqaz6s1LeWxq77ZheMYhb693Raiose
jYOoZseTNSx0eaW6OK1B4wcXrQsCWlioh+2o6CRKY6GbkVPQXxZqrIuMzXtB
9veXy9DJSRaqev74PCL7+d0ZKuq+/1jI87hkV/UzLjbMHe5wE1dETaFfREoy
uTj0b6bj3umKiH1Gp8b8JheLR1OOBrMV0ZMcy8tCLy6Wy/tzcGy9Iqr4b7dm
9Rwutpf8YjRkqIg2f5ib7qzMxU/2VKpxjBVRHcUv4jO52Hoi6Uf3JkWUGLsi
X16Ki2NMdx78vFURZaacVOwc5GDFb6X2efsVUW+NZtbiKg5Wm7xxwDeY+E+i
6lpncj7q3PbiVogi6qzP03U9wMEn3sool4cqosLBxndXbDn43Y3zjbIXFJF8
E+t2gRkHByzy3fLgqiL6caH4TfYyDm7YvsOgOUkRnZewMZIYYuOwdHmWEVZE
rcVKu0+cYuMe86vvpCWUkL0jZ9XHYwPY2dJJXXOaEjq3JVhP2WUA/7BeHbBR
WglNCH5F7yHn1c+7OzSC5ZRQj66Yf4XFAK50WRU0oKiEfisjzfWaAzj5bNvi
ek0lZDPq5VDxvR/bFi2/FGeuhO41HBhfa9aPqxZ9gLlXlVCzy2sNZ/E+7CGd
IaEhMxMFmMpurXPswUVpC42qbsxEUmXaHqUaXbh+g2H1TqYyuuxXUl11qwPz
Pe7ucopWRrpFtiVv477hmh2pu2fMVEGT7d/eqkc3YOd1hpmZ8SooKcA+Sy2p
Aqd/O+P5S00VvXe7tC7pqA/WuixsGiJ221HlNqXpgwtXndogNlcV6UGXdkWN
N34f7SO7gJjpcOjnlkovPGrikuVKzChw1j5Q4InNnlt0/yG+wJXwPnPXDfdH
sOy581QRXaNR9+qoEz5hEFM1RdxR3TwoU+uIp7rlliuoqyIPl92msZUOpJKn
CXWJY17b9KYX2GNDHv+WL/HOjStVXt/di6Od25tGiZMDsnSmue3AKowDGyQ1
VJHSVEPznCprnF7WnK5EXPrEcod2oRUuUvnku4bYpbRkg3WSBf5ZX6UQSPy2
zVQkxg1hjxB0Kpz4mELFd1RkiEeXlrXfJi72YRUdSl6LpS8VPnlBfHX1gqP3
3Vfg2JWrlN4RK6p8CQ5PXYLn/MwJaSV+f79a890xdZxxTau7n9hLzCRV2YeB
9TY8svxLrKl37X//d5X/H+pL0WU=
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], PointSize[Large], Thickness[Large], 
     LineBox[CompressedData["
1:eJwl2Xk41N/3AHC7GVvZhyIpJUl9srSge1IplGihbJUiSYWKPtKiiDbZkz6h
RZYsyZ50kQpJypIlhZBlZq5dSH7X9zf/zPN6Zua5955z7n3Pee5Cx1O7nPh4
eHiyeHl4Zt/5sUj1T12/Dbkzsy+C1Hpf6yuHH0ACeiLz/lBPPl95pCnsFMrL
O+E2QJ05huol073RA7sVI9+ou2RcfueGXUL57TtelFDfUigXTy+8irR765/G
Uj9Vt4vjSQ9ErpMfP5+mLl4zsGp3/E3U5gfaG6mbjf1LE8LuoI2f130Qmh1P
Q0zDtzQUHVhQfq/sL0GBqxs8EwrD0fKgqVgfapn18YXV2ZEoR6y7WZ364UZX
gd9pd9GS8Ps7Pk0TpGWis2Nh4j30svuf8RPUhRZ/I03j7yOcV/xVgLr+QNjS
B2Fx6KTYqg3z/tD1aGut/fk2HpUdMymLmSLIe034N+/Sh6h+vMpPiloA2as9
LHyMulbee9w3QVClUWmFbv4TNNG8jGFGHWq89GRldgJqy89+8vg3Qcrmg7nD
aYloc6f9NcNxgjotrWyDUpLQ0v21Hy6OEfRsb+HM/MRkFLFz0CR/lKC19gHb
jOOfId6fvQPSIwTtclNojg7LQLl3bpMTAwSJrUU4autz9KRwYsadEDRQ4CHZ
/vY5smh/a+rGJSi3qCHnbGkm0i2/EGLGJmjT2/i/sYVZaGVa7c/UXwQt2Vpr
0bsuG8lIxVR7dBMkUiH4WDs/G0WNDoxqdRFUU+W6tTw7B906fGsqtIMg+zqd
kMG0PGRTHdQ/+Y0gsDraoa+Zj7rb6t74tRC0uPGezrWUfOTTbtPC00xQX8vf
RsXEAuS68XbFrwYav5/lCzfHF6KbmhvT9tXQ+AzZZUWFYbThWinnXQlBt2Vj
DIrFi5HN+QnXREzQl8yABbq7ipGplUftxSKCbPvsupRbitHa0FgXqQKCTtqK
egyxS5DFlm85VRkERRi6BN2bW4a+p9acDr5PUFPT7uMSe8tQyeumkdZoGn8v
ZH71XhnSqtN3WxxFUGK6nMwJ1bcoNH35xqgQgl4ueBsHOu9Q946VMeIBBP3g
Vc37ZV2OFij9KjNzo+uLFY+x+68c/ff8mYToMYJc1k/4fm4rR+bzvO1KnAga
8qwxKjxWge4K9whLH6D10XmxOvh8JbL6q15gakmQxruWLt24KhRit9VJTIcg
/bemIkana5BSq/bxtiEumlv39NOa8BpUaPfmXhWXizo7+CJXZNUg41chkpl9
XBTMU7hAYbgGxZKZNscOLurQX6474PkZnQ23nu/6mYuCXogejPX8gq7Ge44I
p3NRQ1xVzqRHHbJ9zha5foiLnqWrnx8IrUMG5w9fuWzHRZeL/KE7sw5xq8KP
ultz0bIWgw+fB+vQsXcrL6/bwUW+cmltSR71aGxUTcJjLRctun1b1NqjATlP
vS7xEucidx/zQ1nujUgxMHZOdyYHmZ40SGKENKJI7vF20VQOWuSoQewzGpHD
8htRGk85qMFE6AKD24h2iDs83xXDQYYKr6PtjzchPuUtlTuucJBI/ooaYedm
NNmV0TJgwUEJo2LIzvYbWnvn0dBIDxudyHcK5lvUhpQ7NtiYC7DpfrZU4dVp
Q7ciX+6R+dOPBpoMXsxsbkNRdQmuX4b70Zkp6YY/zm3IXkh5SO9nP/LZUKo0
ntKGQMI682FJP7pWppzWv7oduf42EOK50I/ia75+qDPqQM5WGUsHOX2orseE
mejYiToq51joFvSiGyvHeHL396BMftM7vpq/kMfy8sjiBDY6MJUrXsrXiSYP
H09vPTmAtF9sUp283YYci6wsQpyH0Onw7n/nLG5GhwfriouDRpBu7xUXm8Vf
0K1VeaeeXhtDO8b1Bue+KUN8xXlr/H1+o4sRk05OnCdIUsOs+kf0JGqx1Ynp
ccrD2+KMHg+E/UFSHSfTz1h+wPKkyvhS3l/Uuz6uO6OjHse8f8nLf4wHKqr7
6nBEKzZQ2jijcoQXDln/HDq9pAMvb5vbeeEMH5wzuHWC6duF05KkXHI8+aGu
85XX4Y092L8eb+T35gf5VJ/KmO092I7vxDzL8/zQYR0r+8G6B4vYva9mX+UH
OaZagNzJHuw8x1d3cSQ/RA7xntoX04NVvLr4wvP4IWBi2+OAwR4csSn/gfsf
fuBdEJJwKqYX+363r11+TQAG3i8ubarvwyNbDR843RCAfhWtVaI/+rBb5vyj
ccECIHHmh7JuTx+29W+ZlLorAG2DvGc8J/vweo39qpOJAgAq2rlhyv144uwe
j/IKAbBYEeVy1Kkfe4mbzXESF4TXpbuPWnD6MddLoylWUhBstNQW3B7tx85t
zMeNsoLA49/LLJ3ux1ZZ5XrblQXB+sDiUzISbKy739hBe6UgLFP+tNZWi41H
nmxM47UUhOx5N2pPnmBjD4O1ZrERgsA/0cKN7WJjnpMRl+5EC0JdyNitQ2w2
Do4byLr8nyD0dkqrKQ2zcQpf8vzDTwThimW1wSUeDu4oV+AuzRaEsK/d37iK
HLxn71RIZq0gKL129fEx52C9k68byqSEwMDHwnbtcw4ui1MUzZUTghvRC1fJ
53Lwrs9eKFFRCN46TX7kFnLwSZ2VSddVhcCOxToQ9J6DEyfj/jVfLQS5pwoy
jnznYFag3/xGSyH42CHYUCzCxZNxmx37Q4Qg6rs8mbbn4g3jhmH/RApB6v3k
OvvDXOxnvqbU+54QeFgniOe4cDFjepmqwCMh2KBddtrkNBfL2szpmJ8lBGkr
bnUzg7h4lUzzIfN6Iehr/6zUk8HFp4/XhkY0CcHaUb+gV9lcnFtaVdLcKgS9
fw+tDCrgYkMPvPBotxBsKl6vKfiGi02rn7RfGhcCyY/RryLrudgp6NShTAVh
ePQ2VGruBBcn/XAJHVcShpvXfR5aT3MxW8+xxFBVGHqSmqyjeAn27NqzsFJD
GPJzF+tNMAm+bLS+vUNfGEhZ3N09igTH/BE4JONAv79EiH1wHcE17jEHvR8J
w67iKvNyd4I1QuZOnXkqDOc1kzWKThN8NeNapGeKMJx9P7M6xYtgPa5n5YkX
wlA/ov3OzZfgB8fNdI6UCoOdQU1HeCDBrs5/hC07hGHy44ztsf8ILgvwfGTe
LQx1p5xS22IJVkroMdjeJwxftl1XtnhIx/9Z57F1SBhyxB86yT8leM2htBZD
PgaMRkac3JpBsICdQ4aGKgPwdhZXs5hgh/N1JupLGMDUHZZdUkpwXoxpp5oG
A5SD3lrJl9Hxm/QUFq5mQOi5wws73hP82WrOVXkjBmwb9v7I+kTX5xWgJGvM
gHs/hjO+1BDsHzmVJ2XKAIczxYn+XwheW/eLLb6LAVZxD+pr6gmOtSy2EnBk
wPAdmQUi3wj+7a43yOvMgGM3s+P9WwneFZJ6c+YYA9Iu+eqMfydY8FN08aQH
A2JOy4aWtRPstt1DY9CPARljn2V4fhH87vivMm4AA1ZYiyjr9xC84Kb9AfZ1
BtRuKdY72UvwlwqTiF+hDNipfDbyVT/B67aq/m19yACD+4t4JgnBOo8rg94n
MKB7OjF+YIBgrRlP6cxkBggXxT34MUiwat4bdf9MBqQECKU+HSZ4vrRb1okc
BogXMooujhAsd0pmg3UBA0qePFm2c5Rg0aVOuzVKGLBWuFOmaYxgoavi36Xf
MqDLdFl42DjBPD9yXKbLGfCp0cxt82+CR6KELtbUMOBqwGWt0AmCuUPpjJd1
DHg2Z5O85iTBPebW4Y8bGfDt5SYbTN0qlJTk1cYAhWNnuNVTBDc6Wmgf7GSA
2r+Hkdkfut7Xv4tMehhgUibRh6mrFB9u02YzoOKwDVdzmsbLy6R2/gADjLZo
bg+jLv4yaC80woAXGm78A9QvtWJ6yDgDLqTwyxj/JTj7htHppikGnFn5/UIE
dUZ333TpDAO+/u6BFuoUo/CgVH4mOChK2yvOEPwkVl86SpgJer47vlhSx07+
fHBJlAkSLTfi/aijrW6pH5vDBMly/D6ZOuyFTtYuaSaQpI6tldS3JFoNDeSZ
8C2vX+Un9TXXgHK1eUwI56/fNULt927F7jkLmLD/VEzrNLWvakPrb1UmTLxY
V0L7B+x18aJLxxImVNm8mJ6gdm9eMvxBgwkv3guGs6ld9T5dyNFigtzKNX5f
qY+EeTPiVjOhP8as/CW1A3dBeJAeE9J6TVyiqPeZlit5rmeCffX6Q67Uu5+6
J9luYMLlGvUsPWpzPgXtLUZMUN6u4jBF47HNoaRIy5gJhR4rHfOpjV4e28Yy
ZcI+Y2d8gtpATqqW15wJbo8bzs6j1vN8ad9vyYROvYiAEhr/VdWOPXV7mSB/
NZt7gFrtWtZ0oj0T5p31/RhA86nSYRsUeogJUVv2bRKnVtwgIH3eiQlSi2ek
btN6kBjbo25+ggkClzWKz9J6YeyafrHGgwnxlYMPvtP64ktPMFx4lgmXipgN
iHrcaWzXiC8THu15u7ef1udQSWxr62UmBB99+UCXmq201eW9PxN+zzyCc7Se
2+rvXoi5xYTNhYLR3bT+K7asS4L/mFAXfC7sKN0v595f1LoUz4Q3aqKlB+h+
Ujcpyy56woRc5W0j5nS/Xdu+s2R9GhO+t40dkuIQvHm3U7POaybsGtU8voLu
35G6lIOnS5lwT0eooLWb4MdWA92Z72g9sfXEArro/G3OD2t9YsKhfWpl+R20
fg+Gii1rYwI7xSMgm54n7h0NYUc7mRDht4qp1ELPgyPzFZ72MIHzJDLSt4ng
i0cT1RYNMuGrtkalSgPNx8miDUp8IiDqzMmYrqbn3/led8nFImBqlNzOxAQ7
T2uN71QXgcFUI82fr+h+v3TmQrCmCNjuEAjKeknwmSsz10V1RWCo7NzZdbkE
r74u+1jQWAQiHGbWNacSnB61sX7iqAgwEq7xuEfT+mIF2q51E4ELzeOpLyMJ
Fo+pavdyF4FN5VFn/4TR8+2BNXf4nAic+enl4HSbnq9PTghzr4uAxOupJ1V+
BCdk3lvX8UwEtqxaigddaD1P2Wo0ZohAaMXqR91OtH62KM+rzhKBXyclamsd
CX7V+OhPQaEIXF6hv/CuHcG1M89w6AcRsF8z4V+yk2Be89dbNvaLwL6ilPlP
dQi27+uwjNcQhWsJof7Zv7lYVSfBKEpLFFK6swuzR7i458JR7VurRaGFedQu
bYCLz0iyZc6tF4Xjwie+B/Zw8c21o193mopC9KF5vB1fubjgmrDDzDFR8Mkc
TlyeQ5/vizRdHZJFwShglcx8Vy4OCbtplZwmCs55L9aUHOFiEb5+o5FMUTAb
HYmxP8DFPO3J8268FIWPkwNLfPfQ53Ps0o85H0Qht+3rZYsNXFymuGiVOFcU
Ak8tSrCeS+cjpThWuFoMtswfO9efxsHE798OoTViMHgg9t35RA52HWysttQX
g2UXA27wP+TggzV3E39tEgNFvWu+E+EcvD1Ydr/0XjGYc1Zmw6V/OXiRiOQr
V28xSGdf6Ro24uAvvIwrCq/EQM7OMffOJzbmpt1zsCgWAx+1d8m65WzMtFmu
H1gmBouWe8bXFrMxvDAfGakSA1D6GjeeycbpjpHONa1icLm5SKUtnI1vvlE1
C5wRA98X/ry6Vmy8OcBQZtRIHBYbqTtP1/XjHMbppzUV4vBO1ELsemEf7vb1
47z+KA6p0blH21/0YdbgHZ20z+Jw1VDYUjulD/s2pZZebxKHw9qV9W+i+/Dm
lO7vRr3ioOrT1XH3bB/+YmYjn8OQgD16Ez3iWn14IHhj0L2tEuDz0LId6P9n
Tdm5ro5vJUBi+SebjQd7MAkek9FumAM6Kf+umuvShRcFBq485ToXJoKl+K+a
duAOm5Zmo19zYe9NL5MKdive1lU7kXNSEqJLY75i7QZ8ztPJRY4jCUkfH1e/
NvmIzXPvm8p5SQFMvGoI+ZSPuX9cffnHpKBydYaT6LX/0MOvftknT0uDuPRe
76Llb9Cki+HBf6ekIWSDng2z4zNSmg619fCRgftFOfI++5pQ99ablQwBWXg/
ExqYebENvVlShZRvykLSTpfPtqM/kSvjqcBCphzMf/6oI6+tG+XFLzZ8EyoH
am/snZOf9qLFM5vPl4TLwYgRpGk970Uh9k4FOFIOIg7ahqfRfsxF8anuq3ty
MPixWju6qhcpRizVynkoB3M/ivirDPUi30CNBYmZchBmL2czpd+HjE6u4r35
WQ5e/yJDFZV9qFrf4O0uSXkQMHjca1HXj27kn50ylqauK50U+NaPtupm/KMv
Kw+mRUznF7R/LNZSjV2kIA9CaoWbJob6UdZChveIijxYF5T16EmyUbRwnXrU
KnkYtPHc6r6djQ7XHr/VtFMexId85n0qYiMVi4TSj5byoBbSzP+sjI2+VX3/
XbJbHkRetkpc/sBGVu8snVKs5eFzt+k12SY22lawZsP5A/LwiPfKR84w7Xfj
+Afmn5KHq5l1+3apc9Bv1/u7DwbLw/zDPpFtNznojs9j4Ush8tDcLpt9IIyD
ltx4VvggTB5WhZr7N0Rz0N7kwkUtUfLw6b7V6mcJHPTiV8vw3jh5eD5+IWzg
NQe5HZkfYfZcHsK+v27sJRzUZv+gTu+LPLy0tUq4YcZF3icSgvbW0fH+uRH/
x4KLJC6kGZxpkIckvs/yzlZcZPhf0ZPMZnmY5xhwZsEhLoppbj2j+VMePiTf
ebXci4v2WCvLqo7Iw3FHhJJjuajcIm6vuBwLQsL1zbV6uci1rOu1MIs6s+mC
EYeLxNdqqvMpsqCjW0Vp5yAX7VpQMDmmxILu3blPLSe4qIXzJa5NjQXPJPMq
pxgEcW8I9WXpsqC0e8Tv5xKCQv5u352+hgVxK23XXdQgSNsz/FXSOhbk5rlb
SmoRdG6/yp0HhiwwX6YZr6JLEJ/6ep3ALSxIu/4j7qcRQbJvT1y02cuCbb7/
nJy0Iyh/bfavPdZ0Pt/yPygeJMgmddJi534WRH794qt9mKDY8MBFm+1Z0MJT
0LDjGEHqjg/LVzixwEM+ZM+SswQZzNRJ8Z5lQfaVJ41ONwn67jnPd8qLBek4
lCUaTJBf96Gu0XMs8NtfH58UQtC7j9y8Pl8WrA/6ElgVSdDO/xj2df4sUG1Y
HZsXR5DjOoPExAgWMJxWHlV8QdAPZBlcFcWC7+jRpEc2QXbGzmcHo1lwJJ/r
UZxLkNXukE36D1hw28edaVRIkOmJzh/VCSwYyV1R+fUNQe9PT7wbTmSB/UMP
1+63BG32kUhnpbAgc83N3v73BG0IXOvrmM6CCET8Wj4QtPrhLdZYLgva730T
3VFLUEbiwxnFAhZ4OSmFS9UTpJme240KWRD28etIdQNBSwrbsq9jFnzYU7RF
s5kgxXodS6VyFig8nZjzbxtBd1tM1hpVsuCP9WP70XaCZDocFhytYkFwhdQV
l58ESZAgzvMams+pmB3a3TRfzNbrm5tY4HZ5e6dNP0GX5gy5H2uh808Sb73N
JuiPrPC+4FYWlC+7npzHIWhM9Z8lje0sqI20fUUIQaeXGYtP/6TxM57D93eA
oIGVtiMLu1kg2aKnyD9EUJ9BQOnxPhY4Qn7x4DBBRzfFJIewWTCfXDVvGSGo
0yQjJIfLgpcoMa1wlObTqslhZogFWUGj3w+OE2Rrz92yeJQFHJ/E52q/CWo8
zL/CZJwFvXx4Vzv1F/cVU2FTLFhcYyJsOEnz623UkTfNgmbN/Qqt1FUXrCu+
zbBgn7nQ1Okpgkz83Z7z8imAZLNaKu8fWh83/O4uEVAAN4U7mteoN4VGXTQT
UoDmiXm+vNMEFd995uTOUICvYskxp6kNY4u3R4oowN9A2aBv1C+f1Gu/FFMA
0S2bNhv8JWjNsz7FHxIK0F0i9ymMOjtzhldAUgFSVbzV26j/yZfpVZdWgJyl
5haLZwhKf72sZoesAtzfGGR8gHr52w15nvIKABdkREOpkz7sjr2roAA1tzsf
FMzeH3xxCXg1TwEqKtl/G6kfNV5wa1dSgOmVi7UItea1ydpB6kufnmTNOlfb
W59PWQEMDEXXzN4vfAh2F1lEvfXq9TWD1CObDycdoc7NN1swTH1x6Mecs9TL
KybDZ82It/MOoI5JvCNE+xOkNLXX+Cm1abVr16yNM7d1/qJeXNp9fYy6xuGt
2W/qhxvLOLO2ETPKYixQgLbgwJ3j1KeO6l9ZRn0jDIv9po5W0lI5Tv3LcPQE
7WeQ6oeUwPPUFRq8JbNOPbeU3KQ27BqSnKQuqVV5nUr9vjQwbdZ916XtuNTN
C7w/TFGfWRPy5i916blM8dn7lb+dYsvnqCiAfNznHbOWBqHJldTDu9+8n3Us
58ohoPbsiOCl/RZSvz9TbkG9Y8P2dbM2GPt914Oa6eD2aNbvHp+d8aPuWFhf
O2sLyyHnMGqRrEX8f6mdUvt1s6jXGHraznpgv8uDN9R6ep7+s/YR7hKooz73
x/rZrIMdv9eOUBcM1A3NmjXXVl9woQJkKbtJz94XPSr6+kiW+pdC7z+z1jy+
R2QJtWWHmfms81ifPfSoB70jXGZt9G5HkzF1WXPp5VlXna4Ea+oKka9Rs7Za
uDXpKPVf4c8ps26rfjPnHPXhL89fzdrVF7yDqEePeVXNemRZ0fdo6uzqhc2z
vvh1nXEydTxPVtesGQG5aQXUuTPLyKzDVmvLVlKPf7g2Nuv5bRm+zdSOThVT
s356W7Oz73+fD/6d9T/6yWZT//v9/9+P/R+T5ecD
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  AxesStyle->Thickness[Large],
  BaseStyle->{15, FontFamily -> "Times", Bold},
  FrameStyle->Thickness[Large],
  PlotRange->
   NCache[{{0, 2 Pi}, {-0.9999998592131705, 0.9999998782112116}}, {{
     0, 6.283185307179586}, {-0.9999998592131705, 0.9999998782112116}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.4192970673542233`*^9, 3.419297122405415*^9, 
  3.419990669871498*^9, 3.4513155268128567`*^9, 3.451741580533862*^9, 
  3.451749045449411*^9, 3.4827108789770308`*^9, 3.4827109462645817`*^9, 
  3.4827110105158854`*^9, 3.4827110557412853`*^9, 3.4827112142791243`*^9, 
  3.482711351536027*^9, 3.482712486788682*^9, 3.482712558528791*^9, 
  3.482712645268189*^9, 3.482712805086157*^9, 3.482712868702799*^9, 
  3.482712923767343*^9, 3.482713021405492*^9, 3.4827130820819798`*^9, 
  3.482713185508751*^9, 3.48271329148518*^9, 3.482713337374455*^9, 
  3.4827133852567577`*^9, 3.482713425739464*^9, 3.482714375738765*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", ",", 
     RowBox[{"Prime", "[", "n", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "30"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.451313404562003*^9, 3.451313405434853*^9}, {
  3.451749269100601*^9, 3.451749273089263*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "17"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "19"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "23"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "29"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "31"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "37"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13", ",", "41"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"14", ",", "43"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "47"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "53"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"17", ",", "59"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"18", ",", "61"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"19", ",", "67"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"20", ",", "71"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21", ",", "73"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"22", ",", "79"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"23", ",", "83"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"24", ",", "89"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"25", ",", "97"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"26", ",", "101"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"27", ",", "103"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"28", ",", "107"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"29", ",", "109"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"30", ",", "113"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.451749274482576*^9, 3.4827108790110064`*^9, 
  3.482710946297468*^9, 3.482711010533764*^9, 3.482711055775134*^9, 
  3.4827112143147583`*^9, 3.4827113515681763`*^9, 3.4827124868082523`*^9, 
  3.482712558572365*^9, 3.482712645340353*^9, 3.482712805119145*^9, 
  3.482712868741638*^9, 3.4827129237851562`*^9, 3.4827130214402933`*^9, 
  3.482713082112502*^9, 3.4827131855429583`*^9, 3.482713291518258*^9, 
  3.482713337407654*^9, 3.482713385288849*^9, 3.482713425753512*^9, 
  3.4827143757719717`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"n", ",", 
      RowBox[{"Prime", "[", "n", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "30"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.451313404562003*^9, 3.451313405434853*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointSize[Large], Thickness[Large], 
   PointBox[{{1., 2.}, {2., 3.}, {3., 5.}, {4., 7.}, {5., 11.}, {6., 13.}, {
    7., 17.}, {8., 19.}, {9., 23.}, {10., 29.}, {11., 31.}, {12., 37.}, {13., 
    41.}, {14., 43.}, {15., 47.}, {16., 53.}, {17., 59.}, {18., 61.}, {19., 
    67.}, {20., 71.}, {21., 73.}, {22., 79.}, {23., 83.}, {24., 89.}, {25., 
    97.}, {26., 101.}, {27., 103.}, {28., 107.}, {29., 109.}, {30., 113.}}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesStyle->Thickness[Large],
  BaseStyle->{15, FontFamily -> "Times", Bold},
  FrameStyle->Thickness[Large],
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.419291873890386*^9, 3.419292141284506*^9, 
  3.4192922449959393`*^9, 3.419292308015849*^9, 3.419292995739999*^9, 
  3.419297122566965*^9, 3.41999066995785*^9, 3.451313408015712*^9, 
  3.4513155269042797`*^9, 3.451741580635776*^9, 3.451749297877556*^9, 
  3.4827108790913754`*^9, 3.482710946376581*^9, 3.482711010574654*^9, 
  3.482711055809462*^9, 3.48271121435281*^9, 3.482711351604022*^9, 
  3.4827124868456984`*^9, 3.482712558634739*^9, 3.482712645419571*^9, 
  3.482712805158246*^9, 3.4827128687752542`*^9, 3.482712923822672*^9, 
  3.482713021479995*^9, 3.482713082151425*^9, 3.482713185580247*^9, 
  3.4827132915558987`*^9, 3.4827133374448853`*^9, 3.482713385326469*^9, 
  3.482713425773775*^9, 3.4827143758229427`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Prime", "[", "10", "]"}]], "Input",
 CellChangeTimes->{{3.451749130200119*^9, 3.4517491340720463`*^9}}],

Cell[BoxData["29"], "Output",
 CellChangeTimes->{3.451749134800735*^9, 3.482692649190596*^9, 
  3.4827108791274633`*^9, 3.4827109464122753`*^9, 3.482711010604648*^9, 
  3.4827110558407173`*^9, 3.4827112144249697`*^9, 3.48271135166953*^9, 
  3.4827124868794947`*^9, 3.482712558712409*^9, 3.482712645502884*^9, 
  3.4827128052311077`*^9, 3.482712868803494*^9, 3.482712923856019*^9, 
  3.482713021550067*^9, 3.482713082183367*^9, 3.48271318560968*^9, 
  3.4827132916285887`*^9, 3.48271333747328*^9, 3.482713385356998*^9, 
  3.4827134257878513`*^9, 3.482714375855123*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Prime", "[", 
  RowBox[{"10", "^", "9"}], "]"}]], "Input"],

Cell[BoxData["22801763489"], "Output",
 CellChangeTimes->{3.4192918740044127`*^9, 3.41929214136814*^9, 
  3.419292245074376*^9, 3.419292308115878*^9, 3.419292995806032*^9, 
  3.4192971226611223`*^9, 3.419990670047616*^9, 3.4513134294135017`*^9, 
  3.4513155269870577`*^9, 3.451741580695012*^9, 3.451749140270321*^9, 
  3.482692654459948*^9, 3.4827108791651077`*^9, 3.4827109464500513`*^9, 
  3.48271101063838*^9, 3.482711055875554*^9, 3.4827112144531107`*^9, 
  3.482711351779727*^9, 3.482712486929476*^9, 3.482712558766556*^9, 
  3.482712645583187*^9, 3.482712805273712*^9, 3.48271286888797*^9, 
  3.482712923890594*^9, 3.48271302157977*^9, 3.4827130822168713`*^9, 
  3.482713185647492*^9, 3.482713291657535*^9, 3.482713337511612*^9, 
  3.48271338539319*^9, 3.4827134258070297`*^9, 3.48271437590553*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", " ", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{"n", ",", " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", " ", "1", ",", " ", "20", ",", " ", "2"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4513135229595537`*^9, 3.45131352533632*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "3", ",", "5", ",", "7", ",", "9", ",", "11", ",", "13", ",", 
   "15", ",", "17", ",", "19"}], "}"}]], "Output",
 CellChangeTimes->{3.4192918741715307`*^9, 3.419292141551887*^9, 
  3.4192922452526484`*^9, 3.4192923083000917`*^9, 3.419292995940473*^9, 
  3.419297122861329*^9, 3.419990670247284*^9, 3.451313450173675*^9, 
  3.451313525896983*^9, 3.451315527068912*^9, 3.451741580760458*^9, 
  3.4517494626613607`*^9, 3.482692678755444*^9, 3.482710879198289*^9, 
  3.4827109464862747`*^9, 3.482711010671996*^9, 3.482711055909059*^9, 
  3.482711214486697*^9, 3.482711351819831*^9, 3.4827124869795856`*^9, 
  3.4827125588172073`*^9, 3.4827126456361303`*^9, 3.4827128053074207`*^9, 
  3.48271286892598*^9, 3.482712923922936*^9, 3.482713021611559*^9, 
  3.482713082250594*^9, 3.4827131856807127`*^9, 3.4827132916891212`*^9, 
  3.4827133375886803`*^9, 3.482713385427253*^9, 3.482713425826168*^9, 
  3.4827143759388227`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"y", " ", "=", " ", 
  RowBox[{"x", "^", "2"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "9", ",", "25", ",", "49", ",", "81", ",", "121", ",", "169", ",",
    "225", ",", "289", ",", "361"}], "}"}]], "Output",
 CellChangeTimes->{3.419291874271874*^9, 3.419292141652687*^9, 
  3.4192922454469624`*^9, 3.4192923084147673`*^9, 3.419292996006402*^9, 
  3.419297122960926*^9, 3.419990670349042*^9, 3.4513134550289907`*^9, 
  3.451313529312253*^9, 3.451315527140584*^9, 3.451741580827375*^9, 
  3.451749481589879*^9, 3.482692689288793*^9, 3.482710879232235*^9, 
  3.482710946517613*^9, 3.482711010705783*^9, 3.482711055941745*^9, 
  3.4827112145228662`*^9, 3.482711351857954*^9, 3.4827124870298023`*^9, 
  3.482712558880576*^9, 3.482712645691531*^9, 3.4827128053405848`*^9, 
  3.4827128689595137`*^9, 3.482712923955655*^9, 3.482713021645279*^9, 
  3.482713082284029*^9, 3.482713185760696*^9, 3.482713291723179*^9, 
  3.4827133376300793`*^9, 3.482713385503467*^9, 3.482713425844686*^9, 
  3.482714375973073*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", ",", " ", "y"}], "}"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "1", ",", "3", ",", "5", ",", "7", ",", "9", ",", "11", ",", "13", ",", 
     "15", ",", "17", ",", "19"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "1", ",", "9", ",", "25", ",", "49", ",", "81", ",", "121", ",", "169", 
     ",", "225", ",", "289", ",", "361"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.419291874355048*^9, 3.419292141753063*^9, 
  3.419292245560853*^9, 3.4192923085425043`*^9, 3.419292996174061*^9, 
  3.419297123061326*^9, 3.419990670451426*^9, 3.451313457323038*^9, 
  3.451313531908565*^9, 3.451315527219986*^9, 3.451741580895252*^9, 
  3.4517494892409286`*^9, 3.4826927037335453`*^9, 3.482710879265327*^9, 
  3.482710946550684*^9, 3.482711010739172*^9, 3.482711055976747*^9, 
  3.4827112145532*^9, 3.482711351903462*^9, 3.482712487062426*^9, 
  3.482712558962078*^9, 3.482712645742366*^9, 3.482712805374631*^9, 
  3.482712868992346*^9, 3.482712923990624*^9, 3.482713021679201*^9, 
  3.4827130823181257`*^9, 3.482713185802176*^9, 3.482713291757811*^9, 
  3.482713337662599*^9, 3.4827133855443*^9, 3.482713425863449*^9, 
  3.482714376007028*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"data", " ", "=", " ", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "y"}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "25"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "49"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "81"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "121"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13", ",", "169"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "225"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"17", ",", "289"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"19", ",", "361"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4826928360558443`*^9, 3.482710879299515*^9, 
  3.482710946584524*^9, 3.482711010773012*^9, 3.482711056010256*^9, 
  3.4827112145871487`*^9, 3.482711351942338*^9, 3.482712487096314*^9, 
  3.482712559020008*^9, 3.482712645776606*^9, 3.482712805407988*^9, 
  3.482712869026366*^9, 3.4827129240243263`*^9, 3.482713021714995*^9, 
  3.482713082352909*^9, 3.4827131858316*^9, 3.4827132917900047`*^9, 
  3.4827133376980762`*^9, 3.482713385578023*^9, 3.482713425883583*^9, 
  3.482714376040482*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "25"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "49"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "81"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "121"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13", ",", "169"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "225"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"17", ",", "289"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"19", ",", "361"}], "}"}]}], "}"}]], "Input",
 CellChangeTimes->{3.4826927583343554`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "25"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "49"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "81"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "121"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13", ",", "169"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "225"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"17", ",", "289"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"19", ",", "361"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.482692758371126*^9, 3.482710879332733*^9, 
  3.48271094661764*^9, 3.482711010805277*^9, 3.4827110560427732`*^9, 
  3.482711214621949*^9, 3.482711351988381*^9, 3.482712487130179*^9, 
  3.482712559057942*^9, 3.48271264586238*^9, 3.482712805441403*^9, 
  3.482712869059658*^9, 3.4827129240565767`*^9, 3.482713021746052*^9, 
  3.482713082385991*^9, 3.48271318586516*^9, 3.48271329182549*^9, 
  3.48271333772974*^9, 3.482713385610902*^9, 3.482713425904563*^9, 
  3.482714376091572*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "data", "]"}]], "Input",
 CellChangeTimes->{{3.4513135552186947`*^9, 3.451313591225008*^9}, {
  3.451749585419773*^9, 3.451749587922076*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointSize[Large], Thickness[Large], 
   PointBox[{{1., 1.}, {3., 9.}, {5., 25.}, {7., 49.}, {9., 81.}, {11., 
    121.}, {13., 169.}, {15., 225.}, {17., 289.}, {19., 361.}}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesStyle->Thickness[Large],
  BaseStyle->{15, FontFamily -> "Times", Bold},
  FrameStyle->Thickness[Large],
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.4517495894586887`*^9, 3.4826928447242804`*^9, 
  3.48271087936662*^9, 3.4827109466524267`*^9, 3.48271101083993*^9, 
  3.482711056078023*^9, 3.482711214653934*^9, 3.4827113520386887`*^9, 
  3.482712487163767*^9, 3.482712559103911*^9, 3.4827126459379473`*^9, 
  3.4827128054760847`*^9, 3.482712869094288*^9, 3.48271292409235*^9, 
  3.482713021781808*^9, 3.482713082420381*^9, 3.4827131858995667`*^9, 
  3.4827132918567*^9, 3.482713337765774*^9, 3.482713385644565*^9, 
  3.482713425924505*^9, 3.482714376142376*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"data", ",", " ", 
   RowBox[{"PlotRange", " ", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "20"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "380"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4513135552186947`*^9, 3.451313591225008*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointSize[Large], Thickness[Large], 
   PointBox[{{1., 1.}, {3., 9.}, {5., 25.}, {7., 49.}, {9., 81.}, {11., 
    121.}, {13., 169.}, {15., 225.}, {17., 289.}, {19., 361.}}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesStyle->Thickness[Large],
  BaseStyle->{15, FontFamily -> "Times", Bold},
  FrameStyle->Thickness[Large],
  PlotRange->{{0, 20}, {0, 380}},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{
  3.419291874521599*^9, 3.419292141920432*^9, 3.4192922457895603`*^9, 
   3.4192923087501173`*^9, 3.4192929962902527`*^9, 3.419297123262106*^9, 
   3.419990670633862*^9, 3.451313539493249*^9, {3.4513135778139153`*^9, 
   3.451313592261297*^9}, 3.451315527387982*^9, 3.451741581030299*^9, 
   3.451749518199235*^9, 3.451749574514817*^9, {3.4826928267123747`*^9, 
   3.482692851148348*^9}, 3.482710879395458*^9, 3.4827109466813717`*^9, 
   3.482711010873437*^9, 3.4827110561108837`*^9, 3.48271121468286*^9, 
   3.482711352066654*^9, 3.482712487192216*^9, 3.482712559229862*^9, 
   3.482712646036256*^9, 3.482712805504325*^9, 3.4827128691232862`*^9, 
   3.4827129241246033`*^9, 3.4827130218089943`*^9, 3.48271308244821*^9, 
   3.4827131859271927`*^9, 3.482713291885922*^9, 3.4827133377919207`*^9, 
   3.482713385677678*^9, 3.482713425939809*^9, 3.482714376171125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"r", " ", ":=", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"RandomReal", "[", "]"}], " ", ">", " ", "0.5"}], ",", " ", "1", 
    ",", " ", 
    RowBox[{"-", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.451313603531242*^9, 3.451313604296867*^9}, {
  3.482692972741324*^9, 3.4826929914660273`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{"r", ",", " ", 
   RowBox[{"{", "10", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4513137565576963`*^9, 3.451313804391096*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1"}], ",", "1", ",", "1", ",", 
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", "1"}], ",", "1", ",", 
   RowBox[{"-", "1"}], ",", "1", ",", 
   RowBox[{"-", "1"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.419291874724016*^9, 3.419292142023261*^9, 3.419292245902343*^9, 
   3.419292308867956*^9, 3.419292996419457*^9, 3.4192971234130774`*^9, 
   3.419990670765758*^9, 3.451313609035302*^9, {3.451313764265107*^9, 
   3.451313772603997*^9}, 3.451313804948501*^9, 3.451315527607946*^9, 
   3.45174158114028*^9, 3.4517497721794357`*^9, {3.4826929580005817`*^9, 
   3.482693002245015*^9}, 3.482710879434091*^9, 3.4827109467303534`*^9, 
   3.4827110109188547`*^9, 3.482711056156303*^9, 3.482711214721058*^9, 
   3.482711352107294*^9, 3.482712487230143*^9, 3.4827125593341703`*^9, 
   3.48271264634964*^9, 3.482712805543496*^9, 3.4827128691619387`*^9, 
   3.482712924171564*^9, 3.4827130218583317`*^9, 3.482713082480529*^9, 
   3.482713185965398*^9, 3.482713291925295*^9, 3.4827133378360357`*^9, 
   3.4827133857233343`*^9, 3.482713425961238*^9, 3.482714376220354*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "x", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"rwalk", "[", "n_", "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"x", "[", "0", "]"}], "=", "0"}], ";", 
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "[", "i", "]"}], "=", 
       RowBox[{
        RowBox[{"x", "[", 
         RowBox[{"i", "-", "1"}], "]"}], "+", "r"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ";", 
    RowBox[{"ListPlot", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{"x", "[", "i", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", 
      RowBox[{"Joined", "\[Rule]", "True"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<t\>\"", ",", "\"\<x\>\""}], "}"}]}]}], "]"}]}], 
   ")"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"rwalk", "[", "10000", "]"}]], "Input",
 CellChangeTimes->{{3.451750198715941*^9, 3.4517502109149733`*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointSize[Large], Thickness[Large], 
   LineBox[CompressedData["
1:eJxs3X901nX9B/xFZMvIphEtI1tEuIhoIiIi4kTEiYgLERGRJiJORJyIuBBx
IuJExImIExEnIk5EnIg4EXERERHZIqJFRIvIlpEtIyMju+/7e71fnHM9zu0f
Xed5Hr1e7x+fH9evsX11ws0jr+uQk5Nz4qk5Of/f4///f+3nZj/mFGd7bnG2
5xVn//86F2f///KLs/9/XfEC6rvRvzvj9wh/K/NYGN6UeeiJ96K+N/2LGP80
5teH+Z+eHmOdfdNjrPOM9Bjr7JceY51n4v3xs9Jjt/Q4AD+b+oGMfw7zG8T8
z02Psb7ibK8qxs9Lj2l/qs7DB+OD8fPxyLH/Q/Ah+AV45Og/lPlHjvVfiEeO
+hK8BL8Ijxz9h+HD8IvTYzo+VZHj+A1Pj+n4VkXulh4vSY/pOqiKHNfBCHwE
fml6TNdJVeS4Tkqzvbg026vwJjznO9RHTuNXRU7za4rcLT2OTI9p/cUjs70K
b8JzLqP+smyvwpvwnFHZ8ysele1VeBOecznjR07HtwpvwnNGUz8626sip/On
KXKcX1dke/EV2V4VOZ2fTZHj/B6T7cVjsr0Kb4oc419JfeSoj5yu36bIcX2P
zfbisdlehTfhOVdRf1W2V+FNkWP946gfl+1VkWP9eM7V1F+d7VV4U+SY//jw
9P8an+1VxzzV4znfpT5yev6rwpvwnLLwpv/734LIuZlcHDkvk8sid87kqsj5
mVwXuWsmN0UuyOTWyN0yOeealLun8SP3SONHLkzjR+6Zxo/cK40fuXcaP3JR
Gh/PmZBdXzAh24vxMrwKr8ObIsf4eM612V5wbbYXR47xI8f6I6f9qcObqG/F
cyZme0HkGD9yml9Z5NPS+Hgd3hS5Txo/8ulp/OuyveC6bC/Gy/CqyH3T+HgT
9a14ziTGj5zmX4yX4VV4Hd4UOY4/nnM940eO9eNlkWN8vI76pshpf1ojn5HG
L0+5Xxo/8plp/Mj90/iRz0rj43V4E95K/5wbGP+GbC/Gy/CqyDF+5Bg/8oA0
fuSz0/iTs70gcqovxsvwKrwOb8JbI8f4NzL+jdleHHlgGh+vor4ucowfOfY/
cuz/lGwvmJLtxXgZXoXX4U2R0/FrjRzn303ZXhA5xsfL8KrIMT7eRH1r5Bh/
KuNPzfZivCxyjB85xseb8NbI6fjk3JztBTdnezFehldFjuMfOZ0fTZHT+dOK
51Rk1+dFTv0L8KLIcX5GTv1L8TK8Aq/Ca/A6vCHyOWl9kQdlcjPeirfjObdk
98+LnMYviBzrx4vxUryM/hWR0/hVeA1eFznNvyHyuZncFLk4k5vxVurb6Z8z
LXv8vMixfrwIL8ZLI6f+ZZHT+BWR0/yqIqf51+B1eAPehDfjrXh7ylUp59ya
7XmRU31B5DT/oshpfcV4KfVleAX1VZHj+ON11DfgTdQ3463Ut+M507M9b3q2
F0SO4x85jj9eipfhFfSvwmvwOubXgDdR38z4rXg7nnNbynH/uy3bCyLH+iPH
8cdLqS+jf0XkuH9HTvf3msjp+aMucnr+acCb8ObI6fmrNXJ6/dceOV7/zsj2
vBnZXhA5vb4swovx0sjp9WlZ5PT6tyJyvH/Ca6ivo38D3kR9M/1bI6f3N+14
zu3Znnd7thfgRXgxXho5vb8qi5zen1VE7pHJVXgNXhc5vT9uwJvw5sjp/XUr
3k59TmX2+HmR0/wL8KLIqb4YL8XL8Aq8KnKaX03kNP+6yOnzgwa8ifpm+rcy
fjue873s+rzIqX8BXoQX46V4GV6BV0VO66vB66hvwJvw5shpfa14O/U5M7M9
L3KqL8CL8OLIcfzxMrwCr8Jr8DrGb8Cb8ObIcf5HTvvbjufcke15kdPnVwV4
UeQ4/ngpXhY5jj9ehddETuurwxvwJryZ/q14O54zK3v+ebOyvSByHP/Iafzi
yHH88TLqK+hfxfg1eB31DfRvwpupb8Xbqc+5M9vz7sz2ArwIL44c648c9//I
6fmhAq/Ca/A6vCFyfL4YOZ7/Iqfnx1a8nfqc2dmeFznVF0SO53+8mPpSvAyv
iBzP/3gN9XWM3xA5Pt+KnF6/NOOt1LfTP+eubM+LHK9/8CK8GC/FyyKn+VVE
Tq/PqvAa6uvo34A34c14K96O/79vhLLGz42c5peH5+MFeGHk1L8I7099ceT0
+rUkcnp9Wxo5vT4eg5dRX07/CsavZH5VeDX1NfSvxeuor8cb8Ea8if7b8Wa8
BW+lfxveTv0R9i/n7pTT/uZGTu9P8vD8yKm+AC+kvgjvjxdHTu+PSiKn90+l
kdP7qzGR4/MFvByviJzeP1biVXh15PT+vSZy+nygNuX4/KAOr8cb8Eb6NzH+
dubXjLfgrXgb/dsZ/wjzy5mT/LxMzk25KuW88MGZnI8XUF8YnvoXhafcP3Ka
XzFegpfiY+hfxvjleAVeyfyr8Gq8Bq+lfx3zq8cb8Ea8if7b8WbqWyLH51uR
4/jj7dQfwXPuyfbce7I9L3Lqn48XUF94T/b8i/D+1BfjJXgp44/By/ByvAKv
jBzXP15NfQ1ei9fh9XgD3sj4Tfh26pvZnxb2txVvo74dP4LnzM0eP3dutudF
TvX5c7PHLwiP6x8vor4//YsZvyRy2p9SfAz1ZfQvxyuor6R/FV5NfQ39a/E6
vB5vwBvZnyb2bzvejLeEp9wanu7PbXg7fgTPuTe7f+692ePnhcfxxwuoL8SL
8P7hKRfjJdSX4mOoL8PL8Qq8kv5VrK8ar8Fr8Tr61zN+A95IfRO+nfpmvIX6
VubXFjmu/8jp/D4SOT7/n5ftufOyPQ/Pxwvwwshp/KLIcf3Py55/MV6Cl4bH
8Q+P44+X4xXh6fyvDE+5Cq+mvgavxevweryB+TXiTfh21t/M/rTgrdS34e34
EcbPuS97/rkpx/7khZ+fyfl4AV6IF+H98WLGL8FLqR8TnnIZXo5XhA/J5Mrw
lKvCL8jkarwGrw1PuS58aCbXh6fcgDfiTfh2vDn8wkxuwVupb2N+7cz/CJ5T
nV2fW53teeEp54en/SnAC/Gi8JT748XUlzB+KT4GL8PL6V+BV1Jfxfqrw1Ou
CU/7Xxuecl14SSbX4w3UN9K/ifG3M79mvIX6VrwNb8eP0D/n/uQp56Yc+5eH
5+MF4SkXhqfrryg8rv/wuP7xEupL6T8GL8PLmV8FXolXsb5qvIb6WrwOr8cb
6N8YnnITvp36Zvq3sP5W9q8Nb8ePsP8585PH/X9+tueFx/0fL6C+EC/C++PF
9C8Jj+OPj8HL8HL6V+CV1Ffh1XhNeBz/8Dj+4en41eMN1DfSvwnfTn0z/VvC
U27F2/B2/Aj9cx7IHj/3gWzPw/PxgvC4/4enXIT3p76Y/iXhcfzxMXgZXk7/
CsavZH5V4UMzuRqvob6W/nWMX4834I3Mvyk85e14M/UteCv1beHp/G/Hj+A5
C7I9d0F2/zw8Hy/AC8Pj+g+P6z883v+Fx/u/8Hj9j4/By8Lj/T9eQX0lXkV9
NV5DfS1eR3195Hj/jzfiTZHj85/I8fkv3oK34m14e+T0+fiRyPHzTw+mnD5/
z30w2/Mip/p8vID6wsjx+X/k+Pw/cvx8b+T4/gcvpX4M/cvwcuor6F+JV+HV
eA39axm/Dq/HG9ifRvavCd+ON7P/LZHj+EeO44+340fwnIXZ/XMjx/HH8yPH
+3+8kPqiyGl9/SPH9z94CfWl9B+Dl1FfjlfglYxfFTkdv+rIcfwjx/d/eB1e
jzfgjXgT42/Hm6lviRzf/+Ft1LfjR/Cch7I9N3J8/xs5vv/FC/BCvIj+/fFi
vCRyXP+R4/rHy/ByvIL+lXgVXs38alhfLV6H1+MNeCPexPjbmV8z62uJnM7f
1sjp/G6LnM7/dvwInlOTcrq+OkZO13cu3gnPi5zuL53xfOq7Ro7nD7w7Xhg5
zb8XXoT3jZz2p3/ktH8D8WLqh+Al1A+PHOcnPgofEzkd33F4GT4xcjo/yiOn
82dK5PTzCxWR0893TMcr8Vl4FT4Xr2b8BcyvhvkvZn217M8y9reO/V+J1+Nr
8Ab6r2f8RnwT9U3034pvp34n/ZtZ/272pwXfh7fiB/E2/BDezvE5jB+h/ijz
z3k42zs+nO25kdP6O+F51HfG8/GueAHePXKafyHeCy/C+9K/P/MfiBfjQ/AS
+g/HS/FR+Bh8HPMvi5yO38TI6forj5yuzyl4BT49cvr5tsrI6efrZuFV+Fy8
Gl+A1+CL8Vp8WeT08391kdPPN67E6/E1eAO+PnL6+cnGyOnnMzfhTfhWfDv9
dzJ+M76b+hZ8H/Wt+EHq2/BDeDt+GD+CH8VzFqWc1t9xUbbn4p3wPLwzno93
jdwjkwsip5+v7R45/fxuYeT088G9Iqefzy7C+1LfHx+IFzP+EOZXwvyH46XU
j8LH4OPwMvpPZP/KI6fjNyVyOn8qIqfra3rkuP7xWdRX0X8u41fjC6ivof9i
xq/Fl+F1kdP9a2XkdH+rj5zuj2six+vryOn+uh5vxDfhTfTfyvjbmd9OvJn6
3XgL9ftYfyv7c5D9bWP/D3F82vHD1B/Bj+I5j2R7x0eyPTdyml+nyGn+eZHT
+jrj+dR3xQuo7x457V8h3ov6Irwv9f3xgXhx5HT8huAl1A/HS6kfhY/Bx0WO
5//I8fo/cnr9UB45vT6ZEjm9Pq3Ap1NfSf9ZjF/F/OYy/2p8AV7D/izm+NRy
/JdxftXhK/F6fA39Gxh/PfNrxDfhTfhW+m/Hd1LfjO+mvgXfh7eyvoN4G36I
/Wnn+j0cOZ7/I6fnl6N4zuJs77g423PxTpF7ZHIe3pn6/Mhpfl3xArw7Xoj3
wosYvy/eHx+IF+NDWF9J5PT8PRwvpX4U/ccw/3F4GfUT8XLqp0SO5398Ol4Z
OZ7/8Sp8Ll5N/wXMr4b5L2Z/avFl1NfRfyVeT/0avIH69cy/kfVtihz/fjhy
XP/4dup34s3U78ZbqN+Ht1J/MHK6v7Thh/D2yPH+Hz9C/VHGz3k02zs+mu25
eCc8L3JaX+fIaf/zI8f1jxdQ3x0vxHsxfhHel/r+jD8QL6Z+CF5C/XC8lPpR
zG8M+zcOL8Mn4uX0n8L4FcxvOl5J/Sy8Cp/L+NX4AryG+S/Ga/FleB39V+L1
+Brm38D61+ON1G+ifxPz2xo5Xv/jO6lvxnfjLfg++rdGTtfvQbyN+kP0b2d9
h/Ej1B+lf86SbO8YOa7/yPH6H8+jvjOeT31XvADvjhfSvxdeRH1fvD8+MHJc
//gQvAQfTv9S5jcqcrz+x8dRX4ZPxMvxKXgFPh2vZP6z8Crq5+LV+ALWV4Mv
xmsjp/N7GV6Hr8Tr6b+G+TXg66lvpP+myPH+P3J6f7Q1cnr/tB3fiTdHTu+/
dkdO789aIqfvF/ZFjt9PEzl9/3Uwcvr+rA0/RH07/Q8z/hHmd5T55zyW7R0j
p/pcvFPk+Pw/cnz+j+fjXfEC+ndn/EK8F16E96V/f8YfGDm+f8aH4CX4cPqX
Mv4o5jcGH0d9Gf0n4uX4FOZXETmd39Mjx/d/keP7v8hx/UeO53+8mvoF9K9h
/MXMrxZfhtfhK+lfj6/BG/D1eCO+ifGb2N+t+HZ8J96M78Zb8H14K34Qb8MP
cX6044epP8L6j+I5tdneMXLav9zI8fo/cjz/453x/Mjx/I8XUN+d8QuZX6/I
8f1f5Pj+L3Jc/5Hj+7/I8f0/PoT6Enw4XoqPwscwv3F4GT4RL6f/FLwCn876
KiOn54dZeBU+F6+m/wLGr2H+izk+tfgy6uvwlXg9vgZvwNfjjcx/E95E/VZ8
O74Tb8Z3s/4Wzt99nN+t+EG8jevjEN6OH8aP4Ee5/nIez/aOj2d7buR4/R85
vT7Oi5zef3XG86nvSv8CvDv1hfTvhRdR35f+/fGB1BfjQ6gvwYfjpezfqMjx
+j9yfP4fOT7/xydSX07/KYxfwfym45X4LLwKn4tX4wvYvxp8MV6LL8Pr8JV4
Pb4Gb+D8WB85vv+PHN//4034Vnw7vjNyj0xuxnfjLfg+vBU/iLdFTp8/H4qc
vr9uj5y+3z6MH6H+KJ6zNNs7Ls32XLwTnod3xvPxrngB3h0vjBzf/0eO7//x
vtT3p//AyD0yuThyfP4fOR3/ksjx+R9eSv0o+o/Bx+Fl+ET6l+NTqK9gfdNZ
fyU+C69i/+bi1fgCvAZfzPGpjZz+PsQyvA5fGblzJtdHzsvkNZHT36doiJyT
yevxRnxT5PT3L5rwrfj2Y575byfeTP1uxm9h/vvwVvwg62/DD1HfzviH8SP4
Ueaf80S2d3wi23OPeea/Tsc88/dH8o555rEzno93xQvo353xC5lfr8hpfUV4
X7x/5LR/A/FifEjktP8lkdP5OTxyOn9LI6fzfxQ+Bh+Hl9F/IuOX41Oor6D/
9Mhx/UeO6x+von4uXo0vwGvwxXgtvoz51+Erqa9n/mvwBnx95B6Z3Ihvor4J
34pvx3fizfhuxm+JHM//kdP9vRU/iLfhh+jfjh/Gj+BH6Z+zLNs7Lsv23Mjp
+a8Tnkd958hp/Hy8K16Ad8cL8V6MX8T8+kaO7//wgdQX40OoL8GH46X4KPqP
Yf7jWF8ZPpH6cvpPYfyKyPH6H6/EZ0WO1/+R4/P/yPHzP5Hj53/wGnwxXkv/
ZXgd9Ssjp/dH9ZHj/X/keP+Pr8cb8U14U+T0+cBWfDu+M3L6fKQ5cvr8ZHfk
9Pl8S+T0+f0+vJX6g3gb9Ycix7/vi5z+/c1h/Aj1R+mf82T2+B2fzPZcvBOe
h3eOnPYnP3Lav66R4/N/vDv1hXgvvAjvS//+kePz/8jx+T8+hPoSfDj1pZHj
5/8ix/v/yPH9X+T4/g+fSH05PgWvYPzpeCX1s/Aq6ueyvmp8AfU1+GLqa/Fl
eB2+kv71zH8N+9cQOd3f1keO7/8jp/vnpsjx/j9yvP/Ht1O/E2+mfnfkHpnc
Ejm9PtgXOX4/deT0+ucg3kb9Ibyd+sOR0+urI5HT68ejkdPry5zlKafXvx2X
Z3su3gnPi5z6d8bzqe8aOb3+LoicXr93jxyv//Fe1Bfhfanvjw+kvpj5DcFL
8OGsrxQfhY9hf8ZFjtf/+ETqy/Ep1Ffg06mvxGfhVfhcvBpfgNfgi5lfbeR4
/R85fr87vpL6enwN9Q34euobmd8m5t/E8dvK8d+O78Sb8d30b8H3Ud/K+XmQ
87cNP0R9O34YP8L4R5lfzlMpp/3p+FS25+Kd8Dy8c+S0//l4V7wA707/wshp
/r0ix/UfOa7/yHH94wOpL8aHUF+CD8dL8VH0H4OPo74Mn4iX41PoX4FPp77y
mGf+m4VX4XPxavovYPwajs9ijl8tvgyv4/iv5PyojxzXP96Ar8cb6b+J8Zvw
rdRvx3fizfhu+rew/n14K36Q/W1j/w/h7dQfxo9Qf5Tjm1MXnvmvQ+T0+VxH
/Dg8Fz8e73TMM48n4Hn4SXhnvEvk9PeV8/GT8a74KXgB3o3xu+M98EK8J/17
Rc7LPPaO3DnzWIT3ob4v/fsxfn98APUD6T+I8YvxwdQPof9Qxi/h+A/Dh1M/
Ai/FRzL+KOY3mvmPwcfi4yLnZx7HR+6aeSyLXJB5nBC5W+ZxYuTumcdJkXtk
HssjF2YeJ0fumXmcErlX5nFq5N6Zx4rIRZnHafh06mfQvxKfic9ifrOZfxXr
m8P65+Lz8Gr2bz77uwBfiNdwfBZx/BbjS6ivxZfiy/DleB3zW4GvpH4V86vH
V1O/Bl+LNzD+OvZ3Pfu/AW/EN+Kb8M0c/ybOjy34Vuq34dvxHfhO+r/N+dmM
76J+N/33sL4W9m8vvo/6/XgrfoDxD+Lv4G3M/138EPXv4e34+8zvMP4BfoT1
f4gfxT/i/Mt5Ots7PJ3tHfHjIqf+uZHT/I7HO1F/Av3z8JPwzngXPD9yur5O
xrtSfwpeQH23yOn67o73oL4Q70l9r8jx/B85Pb8V4X3wvpHj+T9yPP/jA6gf
SP9BeDH1g/Eh1A/FS/BhrH84+zMCL8VH4qPw0ez/GI7vWHwc9ePxMnwCPhGf
hJcz/mTO/yn4VOor6D+N9U9nf2ew/5X4THwWPhuv4vjP4fyae8wz/8075un9
4TFv+r//nY8vwBceGz+Ta/BF1C9m/CXMrxZfii/Dl9O/jvFX4CupX0X/enw1
9WvovxZvoH4d/dfjG6hvpP9GfBP1m/Em6rdwfLYeO38yeRu+Hd9x7PzN5J3H
zu9MfvvY+Z/Jzfgu6nfTfw/jtzD/vfg+fD/rb8UP4AfZv3fwNvxdjt8h/D28
HX8fP4x/gB/h+v2Q6/so/hH1OSuy+3dYke0d8ePw3GOeeTwe74SfEDnNLy9y
uj+dFDnd/zpHTvfHLng+9SfTvyvjn4IXUN+N/t0ZvwdeiPeMnO7vvfDe1Bfh
ffC+eD/698cH4AMjp+efQXgxPhgfgg+N3C3zWIIPw4fjI/BSfCQ+KnJ6fTk6
cnr9PAYfi4/Dx9O/jPEnRI7nf3wS9eX4ZHwKPhWvwKfh0/EZeGXktL6Z+Czq
Z+NV+Bx8Lj4Pr8bnR473/5HT+bkQr8EX4YvxJXgtvjRyun6W4cupr2P+K/CV
+KrI3TKP9fhq6tcw/lrm14Cvo349vgFvxDfSfxO+GW/Ct9B/a+S0vm2Ru2Ue
t+M78J342/Rvxnfhu5nfHrwF34vvw/dHTutvjZzu/wfwg/g7eBv938UP4e/h
7fj7zP8w/gF+BP8QPxo53v/jOc9ke4fI3TKPHSOn+8txkdP9NTdy+vzj+Mjp
851O+AnU5+EnUd85cvp8swuej58cOX1+2jVy+nz1FLwA7xb5tMxjd7wH9YWM
3xPvhffGi+jfB+9LfT/W35/9G4APpH4QXowPxofQfyjHrwQfRv1w+o9gfaWs
fyQ+Ch/N8RkTuU/mcWzk0zOP4/Dx1JfRfwI+kfpJ9C/HJ+NT8Kl4BT6N8afj
M6ivjNw38zgz8hmZx1n4bLwKn4PPxecxfjXzm48vwBfiNfgi1r+Y47MEr8WX
cv4sw5dTX4evwFfiq+hfj6+mfg3rW4s3UL8OX49vYPxGrq+NXH+buD43c/02
cX/fgm/Ft/H8sB3fQf1Oxn8bb6Z+F76b+j14C74X30f//XgrfoD1HcTfob6N
8d/FD+HvcXza8fepP4x/QP0R/EP8KOfHR3jOymzvsDLbO+LH4bmR4/kf74Sf
EDme//GTqO+Md6E+Hz8Z7xo5Hb9T8AK8G94d74EX4j0jd8s89oqcXl/1jpxe
fxXhffC+keP9f+T0+rE/PgAfiA/Ci/HB+BB8KF6CD2P+w1nfCPanlP0byf6O
4viO5vwYg4/Fx3H+jo+c7p9lkeP5P3I8/0eO53+8HJ8cOZ7/8al4BT6N/tOZ
3wy8kvqZ9J8VOZ7/I8fzPz4Hnxu5X+ZxHl5N/Xx8Ab6Q+dUw/0WsbzG+hPpa
fCm+jPGX43XUr2D8lez/Ks6fes6v1fgafC3nZwPn7zp8Pb6B66OR62cj19cm
rr/NXJ9NXL9b8K34Nnw7/XfgO6l/G2+mfhe+m/o93H9a8L3U76P/fvanFT+A
H2R/38HbqH+X8Q8xv/eYf3vk9PnC+/hh6j+g/xH8Q+qP0v8jPOfZ7PoOkeP7
/8jx/X/kbpnHXPx4vFPktH8nRI7n/8jx/I93xrvg+fQ/mfG74qfgBXg3+ndn
/B6R0/VZGDne/+O9qO+NF+F9GL8v8+vH/Puz/wPwgfggjm8xx39w5Hj+x4dS
X0L/Yfhw6kfgpdSPxEdRPxofQ/1Y1j8OH4+Xsb8T8In4JI5POcdvMj6F+ql4
BT4Nn07/GXglPpPzaxY+m/oqxp/D+ufi86ivxufjC/CF9K/BF+GLOX5LOP61
+FJ8Gb4cr8NX4CvxVcyvnvmvZv1r2P+1eAP16/D1+AbGb8Q3Ur8J34w34Vvw
rfg2xt+O76B+J+t/m/OzGd9F/W58D96C78X3Mb/9eCt+AD9I/3fwNurfxQ/h
77F/7Zxf73P+HcY/oP4I/T/Ej1L/EZ6zKts7RI7n/8jp/nscnosfHzk9f3SK
nF5/nIDn4SdFTt/Pd46cvr/vEjl+v8gxz/x3Mt6V+lPoX8D43fDu1PfAC6nv
ifeivjdehPdh/n1ZX79jnv590zFv+r//HYAPxAcdGz+Ti4/NP5MHHzs+mTwE
H0p9Cf2HMf5w5j8CL6V+JD4KH42Pof9YfBw+Hi/DJ7D/Ezk+kzh+5fhkfAo+
lf4V+DR8Oj4Dr8Rn4rNY32zWX4XPweey//PwaurnM/4C5rcQr8EX4YvxJexv
LdffUnwZvpz7Tx33rxXc31biq/B67p+rI3fLPK6JnO7Pa/EGfB2+Ht8QOd7/
4xvxTfhmvAnfgm/Ft+Hb8R34zsjx/I8347vw3fTfw/604Hup34fvx1vxA/Q/
iL+Dt3H83+X8OMT58x7nXzv+Pn6Y8/cDzu8jXB8fcv0c5fr8iOs357ls7/Bc
tnc85k3/97/H4bn48ZHT80Mn/ATq8/CTqO8cOT3/dMHz8ZMjp+evrvgpeAHe
jf7dmV8P5l/I/vU85pn974X3pr6I/n3wvtT3w/vjA/CB9B+EF+ODWf8QfCj1
Jfgw6oezvyPwUnwkPgofzfEbEzn9/PBYfBw+PnL8/oXIBZk8AZ+IT4rcLZPL
I3fP5MmRe2TylMjp94NMxSuon4ZPx2cwfiXzm4nPwmfjVfgc1j8Xn0d9NfOb
z/wXsP6FkePvR0VOv19lEb4YX4LX4kvxZYy/HK+jfgW+El8VOX4/beT0+2dW
R06/n2ZN5PT7a9ZGjt9fHzn9/pt1+Hp8A95I/434Juo3R47ff49vwbdGTr//
aBu+Hd8ROf3+pJ2R0+9nehtvxnfhu/E9eAvj72V++1jffvanFT+AH2R/38Hb
8Hc5/oc4P97j/Gnn/Hqf8+8w/gH1R/APqT+Kf0R9Tn22d4ic6jtGTtfPcXgu
9cdHTv07RU7rPyFy/P2AyGn/TsI7U9+F/vmMfzLz64qfghfg3fDueA+8EO/J
/Hox/96srwjvQ31fvB/en/EHML+BHL9BeDE+OHKPTB4SOd3fh0ZO9/+SyOn5
YRg+HB8ROX5/auT0/Dwycnr+HhU5nv/xMfhYfBz9xzN+GfObgE+kfhL9y/HJ
+BTmNxWvoH4a40/HZ+CVzH8m+z8Ln41XcXzn4HPxeXg1/efjC6hfiNdQvwhf
TP0Szs9afCm+jPN7Oed/HdfPCq6vlVx/q/B6fDW+Bl/L9d+Ar6N+PfPbwPwb
Wd9G1r+J/dmMN1G/hf5b8W3Ub8d3UL+T+b/N+ppZ/y58N76H/Wvh+WMvvg/f
j7fS/wDjH2T+77C+Ntb/Ln4If4/9a+f4vM/5fxj/AD/C9fMhfpT6j/Cc57Pr
Ozyf7R3x4/Bc/Hi8E34CnoefFDnd3zrjXajPx0/Gu+Kn4AWR0/50w7vjPSL3
yOTCyOn49oycjn+vyOn86Y0XUd8H74v3Y/z++ADqB+KD8GLmNzhyOv+H4EPx
ksjp+hmGD6d+BF6Kj2R+o/DR+Bh8LD6O9Y9n/8rwCfhEfBL9y/HJ1E/h/JmK
V+DTOP+mc/7OwCvxmVw/syKn1w+zI8fvf4ycXp/MiZw+f5kbOT7/x6upn0//
BYy/kPnVMP9F+GJ8CeuvZf+W4svw5ex/HcdvBb4SX8Xxr8dXU7+G8dcyvwZ8
HfXr8Q14I74R38T8NuNN1G/Bt+LbmP92js8Ojt9O/G3qm+m/i/F3M/89eAv1
e/F91O/HW6k/gB/E38Hb8HdZ3yHW/x77046/T/1h+n/A+EfwD/Gj+Ed4zuqU
0/50iBzv/yOn++txkdP9Ozdyuv8fj3fCT4gc7/8jx/t/vDP1Xeifj59MfVf8
FLwA70b/7qy/B15IfU+8F94bL8L74H3xfnh/fADrG4gPwovZ/8H4EHxo5PT5
Vwk+DB+Oj6B/KT6S+lH4aHxM5PT53Vh8HPXj8TJ8Aj4Rn8T8y/HJ1E/Bp1Jf
wfGZhk/HZ3D8Kzk/Z+Kz8Nlc31Vc/3PwudTPw6vx+Yy/AF+I1+CL6L+Y+S3B
a6lfii+jfnnkHplcFzndH1dETvfflfgq6uvpvxpfQ/1a+jfg6/D1+Ab6N+Ib
8U3MbzPehG9h/7ayv9vw7dTvwHfibzN+M74L343voX8L89uL78P3c/61cn0d
4Po7yPX7Dt6Gv8v1fwh/j/p2xn8fP4x/gB/BP2R9R/GPqM95Ids7RE71HSPH
8z+eS/3xeCfqT8Dz8JPwzngXPB8/Ge+KnxI5Pv+PnM6vbpF7ZHL3yPH+Hy/E
e+K96N+b8YvwPtT3pX8/vD/1A+g/EB9EfTH9B0dO958hkdPr06F4CfXD6D+c
8UfgpfhI5j+K4zea4zuG829s5HR+j4scz/+R4/k/cnr9MAGfSP0kvJz6yZHT
949T8KnUV+DTqJ+Oz8Ar8Zn0n4XPxqvwOfhcfB7jV+Pz8QX4QrwGX4Qvxpcw
v1p8KfXL8OV4XeT0/fGKyOn75ZWR0/fPq/B66lfja6hfG/msTG6InP5+0jp8
Pb4Bb8Q3Rk5/n2lT5PT3nzbjTfgWfCv9t+Hbqd+B76T+bbwZ34XvxvfgLfhe
9mcfvh9v5fgc4Pgd5Pi+w/nThr9L/SH6v4e34+/jh/EPmP8R1vchfpT6j+if
sybbO6zJ9o6R0/qOw3Px4yOn/ekUOV1/J+B5+EmR0/XdGe9CfT5+MvVd8VPw
gsjp/t4N7059D7yQ+p6R0/NPL7w3XhQ53v/jffF+keP9Pz6A+oGMPwgvpn4w
PoT6oay/BB9G/XD6j2D+pZHj8//I8fyPj8bHRE6vH8bi4/DxkXtkclnk9Ppl
QuT0+mYiPgkvj5xeH03Gp1A/lfEr8GnUT6f/DLwSn4nPov9sxq9if+awf3PZ
/3kcv2p8Pr6A478Qr8EXcf4s5vxagtfiS/Fl9F/O+HXMfwW+El+F1+Or8TX4
WrwBX8f+r8c34I34RnwTvpnxm9ifLezfVvZ3G74d38H9YSf+Nt7M/XUXvpv6
PYzfgu+lfh++H2/FD9D/IP4O3oa/ix9if9/D2/H38cP0/wA/gn/I+o6yvx/h
OS9m13eInPp3xI/Dc/Hj8U6R4/P/yPH+P3K8/8c7U9+F/vmMfzLelfpT8AK8
G+N3Z3498ELqe+K98N54Ed4H78v4/fD+1A/AB1I/KHJ8/x853f8H40OoH0r/
EsYfhg/HR7D/pfhIfBTHd3Tk+Pw/cnz+Hzm9PhyHj8fLIqfXrxMip9e3EyOn
18eT8HLqJ+NT8Kl4BT4Nn874M/BKfGbk9Pp/VuT0/mA2XoXPiZzeX82NnN7f
zcOr8fn4AnwhXoMvipz+fvFifAleiy+l/zJ8OfV1+Ap8ZeT095VX4fX4anwN
/dcyvwZ8HfXr8Q14I+NvjHxuJm+KXJzJm1OuSrkJ30L9Vvpvw7fjO/Cd9H+b
8ZvDz8vkXeEp78b3UN+C76V+H76f+lb8AH6Q+b/D+tpY/7scn0P4e3g7/j79
D+MfUH8E/5D6o/hHeM7abO8QOfXviB8XOdXnRk77c3zKsX+d8BOoz8NPwjvj
XeifH56O38l4V/wUvID+3Ri/O96D+kK8J96L8XvjRXif8JT7hg/O5H54f3xA
eMoD8UF4cfj5mTwYH0L9UMYvwYdRPxwfQX0pPhIfxf6MxsdQP5bxx+Hj8TJ8
Aj4Rn4SX45PxKezvVLwCnxae8vTwIZk8IzzlSnwm9bPw2dRX4XOon4vPw6vx
+fgCfCHj14RfkMmLwlNeHD40k5fgtdQvpf8yxl+O1+Er8JX0X4XX46vxNfRf
y/404OuoX49voL4R34hvwjfjTfgWxt+Kb6N+O+fvDs7vnfjbeDPXzy6u7934
HrwF34vv4/6xn/tvK34AP8j9/R2eH9rwd/FD+Hv0b2f89/HD+Af4EfxD/Cjj
f8T8cl7K9g4vZXtH/Dg8N3J6fXA83gk/IXJ6fZGHn0R9Z8bv8lL2+vLD4/k/
POWu+Cl4QXg6f7qFp9w9PJ2/PfBC6nvivajvHZ5yEd4H74v3w/vjA/CB+CDm
V4wPxoewvqHsXwk+DB/O/o/AS/GR+Ch8ND6G8ccy/3H4eLyM9U/AJ+KT8HL6
T8anUD+V41MRnu6v0/Dp1M/AK/GZ+Cx8Nl7F+HPwufi88JSrw9Pz3/zwlBeE
D83kheEp1+CLqF9M/yV4LfVL6b8s/MJMXh6ecl14SSavwFfiq/B6+q9m/DXM
by3egK/D1+Mb8EZ8I76J+W1m/k2sbwu+Fd8WnvJ2fAf1O/G38WZ8F76b+e/B
W/C9+D7672f+reEXZfIB/CD+Dt5G/3cZ/xDze4/j087xe5/z+zDn/wf4Eeo/
xI9S/xHXb05Dtn+sIbu+Q3jq/3G8I/4J/Dj6fzI8jZ8bnvKn8OOp/zT9O+Gf
wU9gfp/F8/AT8ZPo/zm8M/555t8F/wKez/q/GJ7uvyeHp/yl8PT80jU85S+H
x+ud8JS/ghfgX8W74V/Du+Nfx3vgp4bH5yfhKX8jcnr91zNyen34TbwX9d+i
f2/G/zZeRP1p9O/D+KdHTq9f+0ZOn8+egfej/ky8P34W4w/Az6Z+IH4O9YPw
c/Fi1n8ePhg/n/0bgl+AD2X/L+T8KMEvwodxfl/M+T+c6+MSrp8R+KXUl+Lf
wUfil9F/FNfv5Vzfo7n+r+D+MQa/kvqx9L+K8cfhV1M/Hv8uXsb41zC/Cfi1
+ET8OnwS99fr8XLqb8An4zfiU/Cb8KmMfzNegd+CT6P/rfh0/DZ8Bv1vxyup
/x7HZybH7w58Fn4n58ds/C7qqxj/bnwOfg/zn4vfS/08xr+P+VXj91M/H38A
X4A/SP+FXL8PcX3XcH95GF+EP8L9aTH+KL6E+9tjeC3+OL6U/k/gy6h/El9O
/VOsrw5/mvoV+DPUr8SfpX4V83uO54d6/Hl8Nf4C/dfgL+Jrmd9LzL+B8+Nl
zp91+CvUr8dfxTfgr+GNzO915r8Rf4P6TfR/k/lvxt+ivon+32f8LezvD/Ct
1P+Q/tsY/0fMbzvX74/xHdT/hP478Z/ib+M/w5vxn+O78F8wv93M/5fcn/Zw
f/wV3oL/mvvrXvw3+D78t/h+/Hd4K89Pvw9P+QD+B/xgeHp/+0f8Her/xPht
zO/P+Lv4X/BD+F/Z3/c4Pn/j+LXjf6f+ffr/Az+M/5P5fYD/i/ojjP9v/EPq
/4Mfpf6/rO8jzt//cX7nvJztH3s52zuEp/zx8HT9dwxP+RPh8X1BeMqfjBzf
H0RO708+hR9P/afp3wn/DPUn0P+zeB5+YuT0/uqkyOn93ecip5/f6Rw5/fzU
5yOnn6/qEjn9fNYX8Hz8i/jJ+Jcip5//6op/mfpTmN9XmH8B/lW8G+v/GvvT
Hf869T3ofypeiH+D+fdkfd9k/b0ip5+f+xbem/pv07+I8U/D++Cn433xM1hf
P/xMvD9+Fj6A/T2b/R+In4MPws/Fizn/z8MH4+dz/Qzh+rsAH0r9hXgJfhE+
DL8YH874l+Aj8EvxUvw7+EjGv4z9GcX+Xs7xG41fQf0Y/Ep8LH4VPg6/Gh/P
/L/L+spY/zXcXyfg11I/kf7XMf4k5nc9+1PO+X8D19dk/EZ8Cn4T/afiN1Nf
wf3hFnwa9bfSfzp+Gz4Dvx2vxL/H+DOZ3x34LOrvxGfjd+FV+N34HPwefC5+
L+ubx/G/D6+m/n76z2f9D+AL8Ae5/y/EH6K+Bn+Y+kU8vzwS+YxMXow/Sv0S
/DHqa/HH8aWR+2byE/gy6p/El+NP4XX0fxpfgT8TOf38/Ur8WepX4c9RXx85
/Xz/8/hq/AV8Df5i5PTvB9biL+ENkdO/P3gZX0f9K/h6/FV8A/4a3sj4r0dO
/35iI/4G9ZvwN/HN+Fv0b4qc/n3H9/Et+A8i98zkrZHTvx/5YeQembwtcvr3
hz/Ct1P/Y/rvwH9C/U76/zRy+vePb+M/o76Z/j9n/F34L/Dd+C/pv4fxf8X8
WvBf43sjp3/f+Rt8H/5bfD/+u8jp98+14r/HD0ROv7/xD5E7Z/LByOn3P/4x
cm4mvxM5/f7IP0VOfz+kDf8z/u4xz/z3l2Oe+fsqh4555vGv+Hv4347NL/PY
jv+d+vfxf+CH8X/iHzD/f7G+I6z/3+zfh+zvf/Cj1P+X/h8x/v+YX866bP/Y
umzvgH/8mKe/D4R/gvrjjnnm8ZOR0/7n4p/Cj4+cl3n8NN6J+s8w/gn4Z/E8
5n8i6zvpmDf93/9+7tj4mdwZ/zz1XfAv4Pn4F/GTmd+XmH9X/Mv4Kaz/K+xf
Afv7Vbwb9V/Du1P/9cjp71f1wE+lvpD+32D+PfFvUt+L/t/Ce1P/bbyI+tOY
f5/I6e9znR45/X2vvpELMo9n4P2oP5P+/Rn/LHwAfjbzH4ifgw9i/efixfh5
7P9g/Hzqh+AXUD+U8/NCvAS/CB+GX8z1MZzr5xKuzxH4pXgp/h18JH4ZPurY
/mfy5ceOXyaPPnb8M/mKY+dHJo/Br6R+LP2vwsfhVzO/8fh3qS/Dr8En4Nfi
E5n/dfgk/Hq8nP434JPxG/Ep+E2sfyp+M/UV+C34NPxWfDrru43jO+PY/SGT
b8crqf8ePhO/g/FnMb878dnU34VX4Xcz/hz8Hnwu67sXn4ffFzn+fgh+Pz4/
cnp9/EDkHpm8IHJ6/f1g5PT6fCH+EF6DP0z/Rfgj+GLm9yjzX4I/htfij+NL
8SfwZezfk/hy/Cm8jv5P4yuof4bjuxJ/lvpV9H+O/avHn8dX4y/Qfw3+Ir6W
+b3E/Bs4v1/m+ljH9fUK95f1+KvUb8BfwxsZ/3V8I/VvMP4m/E3qN+NvUd/E
89v3eX7dwvPvD/Ct1P8Q30b9j/Dt+I/xHfhPjnnm9cFO/Kf42/jP6N+M/xzf
hf8C3836f8n+7mH/f8XxaeH4/5rzcy/n7284v/dx/v8W34//Dm+l/+/xA9T/
AT9I/R/xd6j/E9d3G/fXP+Pv4n/BD+F/xd9j/L/h7dT/neeH9/F/4Ifxf9L/
A/xf+BH83/iH+H/wo/h/md9HkdPnd//Dc17J9o+9ku0d8I/jHSOn8T8ROc3v
OPyT1OfS/1P48fin8U74ZyKnzy9PwD9LfR5+IvUn4Z+jvjP+eeq74F+gPh//
In4y+/clvCv+ZfwU+n+F+RVETp8PfzVy+vy4G/41vHvk9Pn21/Ee+Kl4If6N
yOnz/Z74N/Fe+Lfw3vi3Gb+I9Z2G96H+dPr3xc+gvh/9z8T7U38W/QfgZ+MD
8XPwQfi5eDF+Hj4YPx8fEjl9v3NB5PT9z1D8QupL8IuoH4ZfTP1w5ncJ+zuC
/b+U87+U6+M7XD8jub4uw0fhl3P/G41fQf0Yxr8SH4tfxfzHsb6rWf949ue7
eBl+DT4BvxafiF+HT8Kv5/iVc3xv4PhPxm/Ep0Tul8k3RU7fv06NnL7fvRmv
oP4WfBp+Kz4dvw2fgd/O/CtZ3/fwmdTfQf9Z+J3Uz6b/XXgVfjc+B7+H4zeX
43svx38e5+d9eDX199N/Pv4A9Qvo/yC+kPqH6F+DP0z9Ivo/wvW3GH8UX8L1
+xjXdy3+OL6U+8cT3F+W4U9Sv5z+T+F11D+Nr8CfwVfS/1nWvwp/jvp6/Hnq
V7O/L+Br8Bc5fms5vi9x/Bs4v1/m/F/H9fUKvh5/letzA/ef1/BG6l+n/0b8
DXwT/ib9NzP+W5HTz780RU4/f/P9yOnnc7ZETj+/8wN8K/5DfBv+o8jp58O2
4z/Gd+A/of9O5v9T1vc2/jPqm+n/c8bfhf8C3x05/fzbLyOnn4/bg/8Kb8F/
Tf+9+G/wfczvt6xvP+v/HfvTiv+e+gP4H6g/iP8Rfwf/E/3bmP+f8Xep/wv9
D+F/xd/j/P8b10c718/fub7ex/+BH8b/Sf8P8H/hR/B/0/9D/D/UH8X/i3/E
+v/H/uSsz/aPRU71HfCPR071HfFP4MdFTsfnk3gu/qnI6fgfHzmdH5/GO+Gf
iZyujxPwz+J5+In0P4n5fY75d2b9n2f/ukROx+cLeD7+xcjp+J+Mfwnvin8Z
PwX/CuMXMP+vsr5u+Nfw7uzP19m/HuzvqXgh/g2OT0/8m9T3wr9FfW/823gR
fhr9++Cn433xM/B++JmM3z9y/Pv/yPHv//Gz8YH4OfQfxPjn4sXUn4cPxs/H
h9D/AnwofiFeQv+L8GH4xax/eOT4+X98BPWX0r8U/w71I+l/GT4KvxwfjV+R
cvx8/Zjw9O+nrsTH4lfh4+h/NeOPx79LfRl+DfUT8Gvxiezfdfgk6q/Hy/Eb
8Mn0vxGfgt+ET6X/zXgF9bfg0/Bb8en0v439nYHfTn0l/b/H+TkTvwOfhd9J
/9n4XXgVfjc+B7+H8efi91I/D78Pr8bvp/98/AHqF+APUr8Qf4j6Go7Pwxy/
RVx/j+CL8UfD49//h6d/P/lYeMq1+OP40vD07zOfwJfhT4anvDw8/fvQp/A6
/Gl8Bf5MeMorw9O/T302PH5fKv4c9fX0f57xV7O+F1j/GvbvRfZ/LcfnJbwB
f5nju47z4xXOn/WcX6/iG/DX8Eb6v45vpP4Nzu9NPL++iW+m/i36NzH+9/Et
+A/wrfT/IeNvY34/ihx/Py5yev34Y3wH/hN8J/1/ir9N/c8ip9evzfjPqd+F
/wLfjf+S/nsip9fPv4qcXn+34L/G90ZOr99/Ezm9vt+H/xbfj/+O/q2M/3v8
AP4H1neQ9f8Rfwf/E96G/5n9fRf/C/WH8L9S/x7+N+rbWd/f8ffxf7A/h/F/
Uv8B4/8LP0L9v/EPqf8PfhT/L/4R/j/2J+fVlNP187FXs71D5FT/cbwj9Z/A
j8M/GTndH3Ijx7//jxz//h//NPWd8M/gJzD+Z5lfHn4ifhL+Obwz+/N5vAv+
hcjx7//xL+InR45//x85nX9dI8f7/8jx/h//CvUF+Fep7xY5fT7+Nbw79V/H
e+Cn4oX0/0bk+P4f/yb1vej/Lbw3/m3WX8T+nob3wU/H+9L/DMbvh5+J98fP
ov8Axj+b82Mgfg4+CD8XL+b8O4/zdzDn//n4EOovwIdSfyHXZwl+EfXD8Iup
H45fgo/g/nAp95fSyPHv/1OO138jw9Prw8vC4/dT45fjo8PT69Mr8DH4leHx
+6zD0+vfq8Lj9/+Fx+//C4/f/xeeXn9/NzzlMvwafEL40Ey+Fp9I/XX4JOqv
D0+5PDz9/qAb8MnU30j/KfhN1E/Fb6a+gvnfgk/Db2V/p+O3UT8Dv536Svx7
+Ez8DnwWx/9Ozo/ZnD934VX43Zx/czg/7+H8nYvfS/08+t/H+NX4/fh81vcA
vgB/EF+IP8T+1bC/D+OL8EfwxfR/FF9C/WN4Lf44vpT+T+DLqH+S82855/9T
XB91+NP4Cq7PZ8Lj96Pjz1K/iv7P4fX48/hq+r+Ar8FfZH5rw9Pv534pPOWG
8PT7vV8OT3kd/gr16+n/Kr6B+tfo34i/jm/E38A34W/im/G38Cb8+8x/C+v7
Afu7Ff8h9dvo/yN8O/5jfAf+E3wn/lPW93b4sEz+WXjKzfjP8V3hF2fyL/Dd
1P+S8fcwv18x/xb81/he/Df4Pvy3+H78d8yvlfn/nvUdwP+AH2R//oi/Q/2f
GL8N/zP+Lv4X/BDr+yvrf4/z82+cv+343/H38X/gh7n//BP/AP8XfoT+/8Y/
xP+DH6X/f/GP8P/hORuy+39sQ7Z3CE/543hH/BP4cfgnw4dmcm54yp8KT89f
x+Ofpr4T/hnqT8A/i+fhJ9L/JOb/OdbXGf883oX9/QKeT/0X8ZPxLzG/rsz/
y6zvlPCUv4IX4F8NT68vuoWn/LXw9PqqO/51vAd+Kv0LGf8bzK8n/k28F+v/
Ft6b+m8zfhHzOw3vg5/O+vqGp3xGePy9RvxMvH94ymfhA6g/m/EH4udQPwg/
Fy/Gz8MHM7/z8SHUX8D8huIXUl9C/4vwYfjF+HD6X8L4I/BLqS/Fv4OPxC+j
/yj8cnw0588V+Bjqr8TH4lfh4+h/NT6e+u/iZdRfg0/Ar8Un0v869m8Sfj1e
jt+AT+b434hPof4mfCp+M16B34JPY/xbw9P73+nhKd8WHt//h8f3/5Hj+//I
8f0/PhO/I3J8/4/fSf1s/C68Cr8bn8P872F9c/F78Xn4fXg1+3c/Ph9/AF+A
P8jxWcjxe4jjW8PxfxhfhD+CL6b/o/gS/DHmV4s/ji9lfU/gy6h/El+OP4XX
0f9pfAX1z7C+lfiz+Cr8OfrXM/7z+Gr8BY7/Gs6vF/G1+Et4A/1fZvx1+CvU
r8dfpX4D/hr1jczvdXwj9W/gm6h/E99M/VvMr4nj832O3xbO/x/gW/Ef4tvw
H/H8sZ3nlx/jO6j/Cb4T/yn+Nv1/Fp5yM/5zfFd4ev34C3w39b9k/D3M71d4
C/W/pv9exv8Nvo/639J/P+P/Dm/Ff8/xO4D/AT+I/xF/B/8T3sb592fOz3fx
v1B/CP8r/h7j/431t7N/f8ffp/4f9D/M+P9k/h/g/6L+CP3/zfgf4v/BjzL/
/+IfUf8/POe1bP/Ya9nz64B/PDzljuFp/E/gx1H/Sfrnhqf8Kfx46j+Nd8I/
g59A/8+Gp+OTh5+InxSe8ufwztR/nvG74F/A85n/F9m/k/Ev4V3Z/y/jp+Bf
CU+5IDze/4en3C18aCZ/De+Ofz085R7h6fOLU/FC6r+B98S/ifei/7fw3vi3
8SL6n4b3wU/H+9L/jPCU++Fn4v3D0+dDZ+ED8LPxgfQ/h/kNws/Fi/Hz8MGs
/3x8CH4BPhS/kPOnhPPvInwYfjHn73DO70s4/0fgl1JfSv/vMP5I5n8Z6xuF
X079aPwKfAzjX8n8xjL/q1jfOPxq6sfj38XLGP8a5jcBvxafiF9H/0n49Xg5
87sBn4zfiE/Bb8KnMv7NzL+C43MLx3ca18et+HT8NnwG/W/HK/HvMb+Z+B3U
z8LvpH4267+L/ali/+7G51B/D/3n4vfi85jffcy/mv27H59P/QP4Auof5P64
EH+I+hr8YXwR/gi+mPk9yvqXsD+Psb+1+OPUL8WfwJcx/pPMbznzf4r9qcOf
xlfw/PNMeMor8WfxVeHp+7nn8Hrqn8dX4y8wvzXM/0V8Lf4S+9PA/r2Mr6P+
FXw9/irjb8BfwxtZ3+usfyP+BvWb8DfxzYz/FvNvYv3f5/zawvn3A3wr/kN8
G/1/hG+n/sdcHzvwn+A78Z/ib3N/+xnejP+c59dd+C+o343/kvo94fH+Pzy9
/m/Bf43vxX9D/32M/1vmt5/9+R3eSv3v6X+A8f/A/A6Gp/zH8PT+6B38T9S3
0f/P+LvU/4X+h8JT/mt4+vzrvfCU/4a3U/93/H38H4x/GP8n/gH+L/ofwf9N
/Yes/z/4Uer/S/+P8P/hOY3Z/rHG7P4dwuPv/+Ed8U+Ep3wc/kk8F/8U/Y9n
fp/GO+GfwU/APxue1p8XnvKJkdP3Hyfhn8M7R07fn3we74J/IXL6/iYf/yJ+
Mv4lvCv+ZfwU/Ct4Af5V5t+N9X+N/evO/n4d74GfyvEpxL+B9+T8+Cbei/pv
MX5v5v9t1lfE+k/D++Cns3998TOo74efSX3/yOnn18+KHH//Dz+b+oH4Ofgg
xj+X+RXj5+GD8fPxIezvBez/UPxC6kvofxHzH4ZfjA/HL6H/CMa/FC/Fv8P8
R+KXUT8Kv5z60ZyfV3D+juH8vpL741j8KnwcfjU+Pjy+/8fL8GvC4/v/8Pj+
PzzlieHx/j88fv4/fGgmXx+ecjl+A/WT6X8jPgW/CZ9K/5sZvyI8vT6+BZ+G
3xqe8nT8Nupn4LdTX4l/D5+J34HPCk+v/+8MT3k2fhdehd+NzwlP79/uCU95
bnj6+cx78XnU34dX4/fj8+n/QHjKC8LTz58+GJ7yQvwh6mvwh/FF+CP4YvxR
fAnzfwyvxR9n/UvZnyc4PsvwJ/HlHN+nOH/qOL+exlfgz+Ar8Wc5/1fhz1Ff
jz9P/Wqu3xe4vtdw/b+Ir6X+Jfo3MP7LzG8d/gr16/FX8Q34a3gj/jrjb+T4
vcHx3YS/Sf1m/C28ifG/z/y2sH8/wLfiP8S34T/Ct+M/xnfgP8F3Mv+fsr63
8Z9R30z/n+O7qP8Fvpv6X3L+7cF/RX0L/X/N/Pfiv6F+H/1/i++n/nd4K/57
/AD9/4AfxP+Iv0P/P7G+NvzP1L9L/7/gh/C/4u/hf+P4tON/x9/H/4Ef5v7z
T/wD6v+FH6H+3/iH1P+H9R3F/0v9R/T/H57zenb9x17P7t8hPH7+H++IfyI8
fv4f/yT1ufin8OPxT9O/U3i6v30mPOUTwtPz42fxPOpPxE+i/nPhKXcOT8/f
nw9PuUt4en3wBTyf+i/S/2TG/xLeFf8y8z8F/wpegH+V/t2Y39eYf3fW93W8
B/Wn0r8Q/wbeE/8m/Xvh38J749/Gi/DT8D6s7/TwlPviZ1DfDz+T+v7hwzP5
rPCUB4Rfksln4wPxc8JTHoSfixfj5+GDw0dk8vnhKQ/BL6B+KH4hXsL4F+HD
8Ivx4fS/BB9B/aXsXyn+HepH0v8yfBR+OT6a/lcw/hj8SnwsfhX9x+FX4+Px
79K/jPPvGs7PCfi11E+k/3X4JPx65leO30D9ZPxGfArzu4n5T8Vvpr6C/rfg
0/Bb8en0v43xZ+C3U19J/++xPzM5v+7g+puF34nPDr80k+8KT7kqvDST78bn
4Pfgc+l/Lz4Pv4/5VeP34/NZ3wP4AuofxBdS/xD7W8P+P8zxWcTxewRfjD+K
L6H/Y4xfiz+OL8WfoP8yxn+S8285zz9P8fxUx/Pf0zz/rsCfwVfiz9J/Ff4c
Xo8/j6/GX2D8NeEpvxieXt+sDY9//4834C/j6/BXwtPrz/X4q9RvYH6vMf9G
/HXqN+JvUL8Jf5P6zczvLebfhH+f+i34D/CtjP9DfBv1P8K34z9mfjvCU/5J
+NBM3on/lPq38Z9R34z/nPpd+C+o3x2e8i/xPdT/iv4trP/X+F7qf4Pvo/63
+H7qf4e3Uv97js8B/A/4QfyP+DucH3/i/G3D/4y/i/+F/ocY/6+s7z3W/ze8
nfq/4+/j/8AP0/+fHP8POD/+FR7v//F/4x/i/8GP4v/FPwqP9//h6fubnI3Z
/rGN2fUd8I/jHfFPhKf+x+GfxHPxT9H/ePzT1HcKT/kz+AnUfxbPo/7E8PT9
10n456jvjH+e+i7hKX8Bz6f+i/Q/Gf8S9V3xL1N/Cuv/Cl5A/Vfp3435fy08
fX/YPTzlr4en7zd74KdSX4h/g/qe4Sl/E++Ffys8vv8Pj+//I8f3/5Hj+3+8
D/Wn078v45+B96P+TLw/fhY+gP5n4wPxc9ifQezvuXgx9efRfzDzOx8fgl/A
/g3FL6S+BL8IH8b8Lmb+w1nfJZxfI/BLqS+l/3fwkdRfho+i/nJ8NH4F6xuD
X0n9WMa/Ch+HX42Px7+Ll+HXsH8T8Gupn8j8r8MnUX89Xk79DezPZM6PG/Ep
+E34VPxmzs8Krv9b8GnU34pPp/62yOdk8ozIAzP59sjp53sqI6ffn/k9fCb1
d9B/Fn4nPhu/i/5VjH83Pge/B5+L3xs5/X7ReZHT7x+9L3L6/abV+P3Uz6f/
A4y/gPU9yPoX4g/hNRy/hzm+i/BHqF9M/0eZ3xLm/xjrq2X9j+NLqX8CX4Y/
yfjL8afwOub/NL6C+mcYfyX+LPWr6P8cXk/98/Rfjb9A/Rr6v8jxWYu/RH0D
/jK+Dn8FX4+/yvgb8Neob8Rfp34j/ga+ifPzTc7fzdy/3uL+2MT99/v4Fup/
gG+l/of4NvxH3P+34z+mfgfj/4T17WT9P2V/3mb/foY34z/n+OzCf0H9bvyX
+B7m9yu8Bf8169vL+n+D78N/y/7tx3+Ht7L/v8cPUP8Hxj/I/P/I+t5hf/6E
t1H/Z/q/i/+F+kP4X6l/D/8b3o7/HX8f/wd+mP35J/4B/i/8CP3/jX+I/4f1
H2V//8v5+xH+P+pz3sju/7HIafwO+Mcjp/qO+Cfw4/BP0j8X/xT1x+Ofxjvh
n6H/CZHT/n8Wz8NPxE+i/+cYv3PktL+fx7vgX8Dz6f9F/GTqv4R3pf7L+Cn4
V1hfAf5VvBv+Nbw7/nXG74GfSn0h/g28J/5NvBf+Lbw3x/fbeBF+Gt6H/qfj
ffEzWH8/jt+ZkdP12R8/Cx+An40PxM/BB0VOr5/OjRy//z9yev15Hj4YPx8f
Qv8LGH8ofiH1JfhF1A/DL6Z+OPO7JHJ6fzEicvr7CpdGTn9/oRT/DvUj8cuo
HxU5/X2Ky/HR+BX4GPpfyfhjWd9VrH8cfjX14/Hv4mWMfw3zm8D8r418eiZP
jNwnk6+LfFomT8Kvp76c/jcw/mTmdyPzn8L6bmJ/puI34xWcX7dw/k3Db6V+
On4b9TPw26mvZH7fw2dSfwf9Z3H934nPpv4uvAq/m/Hn4Pfgc5n/vRyfeRy/
+zi+1fj9+Hz8AfovwB+kfiHn10OcfzX4w9Qvov8jjL8YfxRfgj9G/1r8cXwp
/gT9l+FP4ss5Pk/hdfjTHN8V+DPUr8SfxVfhz9G/nvPrec7P1fgL+Br8RXwt
18dLeAP1LzO/dcz/Fda3nv1/leO3gfPrNc6/Rvx1fCP3zze4v27C38Q342/h
TZGLMvn7kXtn8pbIvTL5B/hW6n9I/234j/DtzO/H+A78J+zPTvbvp/jb+M/w
ZvznHL9dHN9f4LvxX3J+7OH8+RXeQv2v6b8X/w2+D/8tvp/1/Q5vpf73+AHq
/8D+HeT4/BF/h/o/0b+N8f+Mv0v9X/BD1P+V/X0P/xv17fjf8ffxf9D/MMf3
n/gH1P8LP4L/G/+Q/v/Bj1L/X+b/Efv3PzxnU7Z/bFO2d8A/Hjkd346R0/H/
ROR0/R4XOV3/n8Rz8U/hx9P/03gn6j8TOd2fToic7l+fxfOoPxE/ifrP4Z3x
z+Nd6P8F5p+PfxE/Gf8S3hX/Mn4K/hW8gP39Kse3G/416rvT/+usvwd+KvWF
9P8G3hP/JvPrxfn5Lc7f3vi3qS+i/2l4H/x0vC/9z2D8fpHj7/9FTtdv/8jp
+j4rcnr9MQA/Gx8YOb1+OSdyvP/Hz6W+mP7n4YOpP5/+QyKn11cX4EPxC/ES
+l+ED8MvZn7Dmf8l+Aj8Uva/lOPzHY7fSI7vZRz/UZwfl+Oj8Ss4v8fgV1I/
lvGvYn7j8KupH0//7+Jl+DXMbwJ+LfUT8euon4RfT305878Bn4zfiE/Bb2J/
puI34xUc/1vwafitnD/TOb9u4/ybwfl7O+d3JdfH9yKnzw9n4nfgsyKnzx/v
jHxuJs/G76K+iv53M785zP8e1jcXv5f6efS/D6/G78fn4w/gCxj/QXwh/hBe
gz+ML2L8R/DF1D/K/izh/HgMr6X+cXwp9U/gy6h/kvktx5/C61jf05wfKzh/
nuH8Wok/S/0q/Dm8nvGfZ36r8ReoX4O/SP1a1v8S3oC/zP6uY/9f4fpfz/3h
VXwD9a/hjdS/zv1nI/evN/BN+JvcHzfjb1HfhH8f34L/gP5b8R9Svw3/EfXb
8R9Tv4P9+Qn7txP/Kf42/jO8Gf854+/Cf0H9bo7vLzl/9nB+/YrzrwX/NfV7
8d9Qv4/z/7f4fup/R/9W/Pf4Adb3B9Z/EP8j/g779ye8Df8z/i7+F/wQ/leO
33ucX3/D26n/O/3fx/+BH2b9/2T/PmB//4Ufof7f9P8Q/w/1R/H/Uv8R8/8f
nvNmtn8scrz/jxzv/yPH+//I8f4/crz/xz9JfS7+KeqPxz+Nd4oc7/8jx/t/
/LN4Hn4iflLkeP8fuWcmd45cmMmfx7vgX4jcI5Pz8S9SfzLjf4n5dWX+X2Z/
TmH/vsL+F3B8v4p3w7+Gd6f/1/Ee1J/K+VXI+fcNvCf+TbwX/b/F+L2Z37fx
Ivw0vA/9T2f8vvgZ1PfDz8T742fhA/Cz8YHM/xyO/yD8XOqL8fOoH8z5dT4+
hPoL8KH4hXgJfhHzG4ZfjA/HL8FHsH+XcvxKOb++Ezm+/4+c7q+X4aOovxwf
jV/B+GOY35XMfyx+FT6O9V/N/o7Hv4uX4dfQfwJ+LT4Rvw6fhF/P+OX4DdRP
Zv034lPwm/Cp9L8Zr6D+Fnwa9bcy/+n4bfgM/Hb6VzL+9/CZ+B34LPrfic+m
/i7Ovyr8burn0P8efC7199J/Hn4fXs31cT8+n/oH8AXUP8j1txB/iPoa/GF8
EeM/gi/GH8WX4I+xf7Xs7+P4UuqfwJdR/yS+nPqnmF8d638aX4E/g6+k/7P4
Kvw5vJ7+z3P8VnP/fQFfQ/2L9F+Lv4Q3ML+X8XXUv4Kvx1/FN+CvMf9G/HV8
I/4G/Tfhb1K/mf17C2/Cvx/5rEzeEjm9f/kBvpX6H9J/G/4j6rfjP6Z+B+v7
Cb6T+p/S/23m/7PI6f1xM/5zfBf+C/rvxn+J78F/hbfgv2b8vfhvqN+H/5b6
/ZHT5wO/w1up/z39D+B/+H+6uu+wH6vHD+Ah2dlb6MGTvYXM7KxUtoSyEwrZ
eTJbNLS1995pI9qJ+rb3TkXRkJH0uy73Oed39eqfz/W+Xtf7nHOf+/7cn/VU
9L9j/O/xH/BtMce//485/v1/zOH7xZ/x7fiOmMPf7/6C/4rvxHfhv4Wc/vv/
0eN//x//k/5uxv+L9e/h+PeyP/vw/fT/ZvwD+D/0D+L/0j9s3X/Xn2/dfz0/
XiDkePyH4wXxI6KH/SsUPeTCeBH6RfFi9ItHD/9+aQn8SLxk9JBL4aXpl2H+
sng5vDxegfEr4pXwyngVvCpejfmPYv+qc35qcH5rxhz//j/mcP3kxByuz1ox
h+d3bbwOnhtzuH8cg9fF68Uc7j/18QZ4w5jD/b9RzOH1oTHeBG+KN8Ob4y2Y
vyXra4UfS78147eJOby+tY05vL4fF3P8/B9z/PyPd8A74p3wzjHHz/94F7wr
3g3vjvdg/p4cXy+O/wS8N96H/evL/vZj//tzfk7EB9A/ifFPZv5T8IH4IHww
4w9h/qGsbxg+nP4Ixj8VH4mfxvpGsb+jOT9jOH+n42fgYzn/4/Dx+AR8IuNP
wifjZ+JTGP8sfCo+Lebw+Xx6zOH7rbPxc/AZMYfvX2fis+ifi8+mPyfm8P3u
3JjD97/z8Pn0FzD+Qvw8+ovwPPx8fDG+BF/K/Mvw5fgK/AL8QvbvIs7fxfgl
9Ffiq+hfyvVxGdfX5Tw/ruD5s5rn15U8/67Cr6Z/DX4tfh1+PeOvwW+gfyPr
vwm/Gb8Fv5Xxb8Nvx+/A78Tvwu/G7+H47uX+dx/3x/tjjn//H3P8/R9/iP7D
+CP4o8z/GP44/gT+JOOvZX1P4U/jz+DPMv5z+PP0X4g5vH9bF3N4f7ce30D/
RXwj/U34S/RfZn2v4K/ir3F8r7O/b+Bv0t+Mv4Vvwbcy/ttcf+9wff4Pf5f+
e4z/PvN/wPF/iH+Ef4x/gn/K/n+Gf45/gX+Jf4V/zfzfcHzfcvzfsT/fs38/
4NvwH7k//MT96Wfuz9vxHfgv3N9/5f6/E9+F/4b/jv+B/4nv5vXnL16f9vD6
txffh++PObz+/h1zeH9wIObw+/E/Medm+WDMtbP8b8w5WT5sfcg1s5wv5mpZ
zh9zpSwXiLlclg/HC+JH4IXwwngR5i/K+orFHNZfHC+BH4mXZPxSeGm8DF6W
8cvh5fEKeEXGr8TxV8ar0K/K+NViDuf3qJhzs1wdr4HXxI/Gc/BazF+b9dVh
/bn4MfTrMn495q8fc7i+G+AN8UZ4Y8ZvwvxNWV8zvDn9FnhLvBV+LN4ab4O3
xY/D2+Ht8Q4cf0e8E/3OHP/xeBe8K94N787574H3pN8LPwHvzfr74H3p98P7
0z+R/RmAn0T/ZMY/BR9IfxDjD+b6HIIPpT8MH05/RMzh/n8qPhI/Lebw+jEq
5vD6Mjrm8PozJub49//4GfTH4uPw8cw/gfVNxCfhkzm+M/Ep9M9i/qmsbxrH
Nx0/m/45+Ax8JvPPws+lPxufg8/F5zH+fHwB/YUc33kxh/cni/A8+ufji+kv
wZfiy/Dl+Ar8Aua/kOO7iOO/GL+E/krGX8X8l8YcP//jl9O/Al+NX4lfhV+N
X4Nfy/qv4/iux9fQvwG/kf5N7N/N+C34rfhtjH87fgf9O3l+3sXz9278Hvxe
/D78fu6PD3D/fJD780P4w/gj3N8f5fXrsZjD+7PH8SfwJ2MO72/X4k/hT+PP
4M/izzH/86z/BXwd/fWMvwF/kf5GfBP9l/CX8VfwVxn/Ndb/Ov4G/ia+GX+L
87uF87+V6+dtrq93uP7+x/X9Ltf/e/j79D/AP6T/Ef4x/gn+KeN/xvo/5/i+
4Pi/ZH++Yv++xr+h/y3jf8f837O+H/Bt+I8c308c/8/4dvo7GP8X/Fd8J76L
8X/Df8f/wP9k/N34X/ge9m8vvo/+fvxv+gc4P//gB+n/y/iHbQg5O768lMP+
54s5u//npRxef/Lj+ekXwAvghzP/4XhB+gWZ/wj8CPqFGD/lcPyFY872Jy/l
3MyL4EXwonhRxi+GF8OLs77irL8EXoL+kfiR9EuyPyXxUvRL4aXx0sxfhuMr
w/6UxcvSL4eXw8vj5fEKrK8CXpF+RbwSXon1V8Yr06+CV8Grsr6qeDW8Gvt/
FH4U/ep4dfo18Br0a+I18aM5vqPxHDwHr4XXYn9r47XxOjFn97e8Ongu/Vzm
PwY/hn5dxq+L16NfD69PP+Xw+tkAb4A3xBsyfiO8Ef3GMWev33mN8Sb0mzB+
U7wp3ozjb4Y3x5uz/y24vlrgLem3xFvRTzlc38dyf0s5vD60xlvTb4O3wdvi
bRn/uJizz3d5KYfPl+1izn6fyEs5/H7RHm9PvwPegX5HvCPeCe+Ed8Y748fH
nP0+k3c83gVPOfy+0zXm7PefvJTD70fd8G70u+Pd6ffAe+A98Z54r5iz37fy
Um6X+QkxZ7+P5aUcfj/rHXP2+2heyuHv6/rgfej3Zfy+zN8P70e/P+P3Z/4T
Y87+/i8v5vj3gQOiZ38/mDcAPwmPOf3/UfCT8VPwU/CB+EDmH4QPwgfjgxl/
CD6E/lB8KD4MH4YPZ3+H4yPwEZyfU/FT6Y/ER+Kn4acx/iiuj1H4aDzlcH2N
4fobg59O/3TGP4P1nYGPpT+W8ccxf8rh+TEeH49PwCcw/kR8Ij4Jn4RPxicz
/5ncX1IO958p3J+m4GfhKYf741Tuv1Pxafg0fDrjT2f+s1n/2RzfOfg59Gfg
M+jPZP9msr+zuD5m4efiKYfrazbXX8zx+TOH5/ccfC79uYw/j/nn4fPx+fgC
fAG+EF/I8Z+Hn0d/Eb6Ifh77n4efj5+PL2b8xcy/BF9Cfynjpxyuj2X4Mnw5
19dyfAX9FfgF+AX4hfiFrP8iju8ijv9i/GL8Eq6vS/CV9Fcy/yp8FX4p67+U
47uM/bsMv5z+5fgV9FMOz//V3F9W41fSvxK/Cr8Kvxq/mvVdg19D/1r8Wvw6
1n8dfj396/E1+Br8BvwG/EbmvxG/CU853N9vxm/Gb+H1IeXw/v5W/Fb8tpjD
54fb8Nvp347fgd/B+u5k/Xdy/Hexf3dx/u/m+r0bv4f+PYx/L/Pfy/ruw++j
fz9+P/0H8AfwB9mfB9m/h9j/h/CH6T+MP0I/5fD581H8Ufwx/DH88ZjD5+PH
8SfwJ/AnGf9J1r8WX0v/KcZ/Cn+a/tP4M/gzzP8s/iz+HPv/HOf3ec5/yuH6
eYHr8wV8Hb4OX8/46/EN+AbW9yL+Iv2NzL8R34Rvwl9i/JeY/2X272X29xX8
FfqvMv6rzP8a/hr91xn/deZ/g/Ofcrh+3sTfxDfjmxn/LeZ/i/VtwbfQ38r4
W/G36b+Nv0P/Hdb/P55fKYfvx96NOXx/9i7+Hp5y+P7tffx9+h/gH9D/EP8Q
/yjm8P3iR/jH+Mf4J/gn+KfM/yn+Gf2Uw/efn8ccvh/9HP8CTzk38y/xL+l/
xfxf4V/jX+Pf4N9wfN/i3+LfsT/f4d/j33P+f+D6Szlcn9vwbfiPXN8ph+v/
J54fP+E/4ymH5+d27i/b8R30d+C/4L8w/6/4r/hOfCe+i+Pfxf78xv79xv7/
jv9O/w/8D/xP5v+T9e3Gd9P/i/H/wvfQ34Pvpb8X30d/H+vbz/7ux/+m/zd+
AD/A/P+wvn/wg/hBzs+/PH/+xQ978b/9lIPnw/Ph+fH8eIGY4+//Mcff/2OO
v//jBekXxI+gn3K4PxXCC+GF8cJ4EbwIXhQvyvqKsf5ieHH6xfES9Euwv0fi
R+IlOT8l8VL0S+Gl6ZfGy9Avg5fFy+Ll8HJ4ebw8+1MBr4BXZH8r4pXoV2L+
ynhl+lUYvwpeFa+KV2P8asx/FPufcnj+V8er4zXwGoxfE69J/2j8aPo5eA5e
C6+F1+b4a7M/ddi/lMPzLzfm+Ps/fgz9Y/C6eF3mr4fXo18fr0+/Ad6AfkO8
If1GeCO8MfvXmP1tgjfBm3J+muLN6DfDm9Nvjreg34L1t8Rb4q04/lb4sfix
7G9rro+UczNvg7fB28ZcO/OU47+fE3P4+4uUw9+ntsPb0W/P+O3xDvQ74B3p
d2T9nTi+TuxPZ7wz/ePx4+l3wbvQ74p3xbux/m54d7w73gPvgffEe7J/vdjf
Xpy/E2LO/n45L+Xw98298d54H7wP4/fF+9LvF3OpzPvh/en3x0+kn3LhzAfE
fFjmKe9af+jhpOSH/slLeVenQw8n4yfTP4XxT2H+gaxvID4IH4QPxgdz/EPY
nyH4UPpD8WH0h+HD6Q9nfSM4/hH4qfRPZfyRzD8SPw1POVxfo/BR9Ecz/2jW
N4b1j8FPp386fgb9M/Cx9Mfi4/BxrH88xzee45/A8zvl8PyfiE+kPwmfRH8y
95fJ+Jl4yrmZT8Gn0D8LPwufyvqm4tPoT8On49Pxsxn/bPwc/Bx8BuPP4Phn
8vqQcnh9mYXPon8ufi792fhsfA4+h/Hnsv65+Dx8Hj4fn48vwBewfwvZ35TD
9Xke13/K4fmxiOdPyuH5lYfn4efj5zP+YuZfjC/Bl+BLGX8pvgxfxvqWc39Z
jq/AV+AXMP4FzH8hfiF+Ecd3EefnYvxi+pfgl+ArmX8lvor+Kua/FL8Uv4zr
K+Vw/V2OX45fgV/B+KuZfzXrvxK/Er+K478Kvxq/mvN7Def/Gvxa+tfi1+HX
Mf/1rP96jn8N+7MGvwG/gf29Eb+R/k34TfRv5v5yM34L/VsY/1aO71b8Nvw2
/HbGvx2/A7+D9d3J+u/E76J/F+Pfzfruxu+hfw9+L/178fvwlMP1cT/XT8rh
+nqA6/MB/EH8Qfwhxn+I+R9mfQ+z/kfwR/BH2Z9H8cfoP4Y/Tv9xzt8TnN8n
8CfpP4mvpb8WfwpPOTfzp/Gn8WfwZxj/WfxZ+s/FHN5fpBzefzyPP0//BfwF
+uvwdfh6fD3jb2D9Gzi+F9n/Fzm/G/GN+CZ8E/4S/hL+Mv4y/gr+Cv4q/irH
9xrH/xr78zr+Ov03GP8N/E36bzL+Zs7PZvwt+m8x/hZ8C/2tjL8Vfxt/G38H
Tzn++9Exh+/fUg7fz72Lv4u/F3P8/R9/H38f/4DxP2B9H+If0v8I/4j+xxz/
x/gn9D/BP6X/Kfv7GefvM87v51xfKYfr+wv8C/pfMv6X+Ff0v2L8r/Gv8W+4
/6ccXn++xb/Fv8O/Y/zvmf97/Af8B45vG8e/Df8R/xH/ifF/Yv6f8Z/pb2f8
7Zz/HVwfO/Bf8F/wX/GUw/W3E9+J78J3Mf5vrP83ju93jv939ucP/A/6fzL+
n8y/G9+N/8X6/+L49vD83IPvpb+X8fcx/z58P76f4/ub4/+b/TmAH8D/wf/B
D+IH8X95fqUcnn+HbQw5vH9MOby/zBdzeP+ZD8+P58cLMH4B/HD8cLwgnnL8
7wviR+CF8EJ4YTzlMH8RvAheNOZw/EXxYnjK4fvx4skP/ZNXHC9BvwR+JP2U
w/fzJfGUQ78U45fCS9MvjZfBy+BlGb8sXg4vh5dn/JTD8VXAUw79inhFvBKe
chi/cvJDj3mV8Sp4yoWzx6oxl8q8Kl6NfjX8KPpH4dXxlMtljzXwGnhNvCZ+
NJ5ymD8Hz8Fr4SmH8WvHXCnzlKtlj3Virpl5HTyXfi5+DP2Uc7LHujHXzjzl
3OyxHp5y6NfHUw79BngDvCHeEG8Uc93MG+GN6TfGm+Aph/U3jTnsT8ph/5rh
KYd+c8ZPOczfgvW3wFvSTzmM34r5W+HH0k85jN+a+VOunz22iblh5m3wtnjK
jbPH4/Dj8HYxN828Hd6efnu8A/2Um2WPHWNunnlHvBPeCe/M+CmH+Y9nfSmH
/emCd8G74l3xbjGH85NyOH/d8e54j5jD+U85J3vsiacc+r0YP+WwvhPwlEO/
N+OnHObvE3O4fvvgffGUw/OvX8zh/tYP74/3x0/ET8QHMP8A/CT6KYf798l4
yqF/Cp5y6A+MObw+DMQH0U85jD+Y9Q/Gh+BD8KGMPxQfRn8YPpx+ymH9I2IO
x5dyeH08FU859Ecyfsph/tPw0/BRrH8UPhofjY9h/DH46fRTzskez8BTDv2x
+Fh8HPOnHPZnfMxh/8bjE/AJ+ETGn4hPwifhkxk/5XB+z8TPxKfgU/Cz8JTD
/FPxqfg0fBo+PeZwfCmH/T8bTzn0z8FTDv0ZeMqhPxOfic9i/SmH/Tk35vD+
+Vx8Nv3Z+Bx8Dj6X8efi8+inHNY/H5+PL8AX4AtjDvuzED8PTzns/yI85dDP
Y/48/Hw85XD8i/HF+BI85TD+Uta3FF9Gfxm+HF+Or8BX4BfgKYf1X4hfiF+E
pxzGvzjmcHwX45fQTzmMvxJfia/CV+GXxhyu30vxy/CUw+fby5Mf+ifvcvwK
+lfgq+mvxq/EUw6fz6/Cr8Kvxq/Gr0m+4ZCnHH//x1MO/evwlEP/ejzl0F+D
r8FvYP0ph/25Mfmhx7yUw/m7KeZw/m/Cb6Z/M34Lfgt+K34rfhvz34bfjt+O
34GnHJ4fd8Ycnj934nfhKYf7390xh/cXd+P30E85jH8vnnLo34ffh9/P/Pfj
D9B/AH+Qfso52eNDeMqh/zDjpxyO7xH8EfzRmMP5STmcv8fwlEP/ccZ/HH8C
fwJ/Ek85HN/amMPxr8WfwlPOyR6fjjl8fks5fL57Bk859J/Fn8WfY/6Uw/qe
jzkc3/P4C3jKYX/W4SmH/np8Pb4B34C/yPpTzskeN+Ib8U0xh/3ZhL9EP+Uw
/8us72X8FfwV/FU85bB/r+Gv4a/HHK7vlMP1/0bM4f74Bv4m/TfxzfQ342/h
KYfXhy34FnwrvhV/G085zP8O60857M//Yg77l3LY/3fxlEP/Pfw9/H3mTzms
7wM85dD/kPE/xD/CUw7r/zjmcH2mnJM9foJ/gn+Kf4p/FnN4fqQc7j+fxxy+
f0o5fD/1Rczh+7Uv8C/ppxzG/4r5Uw7r+xpPOfS/Yfxv8G/xlMP6vsNTDv3v
8ZRD/wc85dDfhm/Df8RTDuP/hKcc+j/HHPbnZ3w7/e34Dvo78F/opxzW9yv+
K74T34nvwlMO8/+Gpxz6v8ccrr+Uw/fHf8Qcvl9OOXz//CeecujvZvzd+F/0
Uw7j74k5fP+9B9+L78X3Mf4+fD++H/+b8VNukT0ewA/g/+Aph/EP4gfxf1lf
ymH/Dtv0X0859PPh+fD8MYf5Uw7rL4AXwA+PuWXmKbfKHgvGfGzmBfEj8CPw
QoxfiPkLs77CHF8Rjr8IXhRPOexvsZjD9VsML06/OOOXwEvQP5LxUw7Pz5J4
SfqlGL8UXpp+acYvE3O4P5TBy9Ivy/jl8HL0y+Pl6Vdg/RXwivQr4pXwSsxf
meOrjFehXwWvSj/lcH+tFnO4/6eckz0eFXN4/5ByeH9SHa+O18BrMH5N5q/J
+o5m/UfjOXgOXovxazF/bdZXm/XXwevguXgufkzM4f1dyuH9X128Lv16eD36
9fH69BvgDeg3jDm8f005vL9tFHN4f94Ib4w3xpswfhO8Kf2meDP6zVh/c7w5
3gJvwfgt8Zb0W+Gt6B/L+lMOn29aJz/0T15rvA3eBm/L+G3x4/DjWF871t8O
b4+35/g74B3wjlxfHfFO9Dsxf2fW35njOx4/nn4Xxu+Cd6XfFe+Gd2P+7nh3
vAfeg/F74j3p9+L898JPwE/AezN+b+bvw/704fz0xfvi/fB+eH/Of8rx93/u
jynnZI8DuD8PwE/CUw7395Pxk/FTeH1IObw+DuT1M+Xw+jwo5vD6PggfjKcc
3j8NiTm8v0s5vP8bGnN4fzgUH4anHN5fDo85vP9MuXX2OAIfgZ8ac5vMU26b
PY7ER+KnxXxc5im3yx5H4aPw0fhoxh+Dj6F/On46fkbM7TNPuUP2OBYfi4/D
x+Hj8fHMPwGfgE/EJzL+JHwSPjnmjplPxs+kfybzT2H/puBn0T+L8acy/1R8
Gj4Nn87405n/bNaXcrg+zuH6TDlc3zPwGfhMfCY+C5+Fn8vzK+Xw/JyNz8bn
4HPwufhcfB73h3n4fPrzWf8CfAG+kONfyP6fx/k5j/O3iPO7CM/DUw7Xx/lc
Pyl3yh4X44vxJfgSxl+KL6W/DF9Gfzm+HF+Br8Av+H//Pymxht4=
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"t\"", TraditionalForm], 
    FormBox["\"x\"", TraditionalForm]},
  AxesStyle->Thickness[Large],
  BaseStyle->{15, FontFamily -> "Times", Bold},
  FrameStyle->Thickness[Large],
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{
  3.4192918750826607`*^9, 3.4192921423505487`*^9, 3.419292246249279*^9, 
   3.419292309303368*^9, 3.4192929967781878`*^9, 3.419297123846908*^9, 
   3.419990671217478*^9, {3.4513137218600807`*^9, 3.45131373085181*^9}, 
   3.451315527913364*^9, 3.451741581443366*^9, 3.451750146825556*^9, {
   3.4517501880123262`*^9, 3.451750212841333*^9}, {3.482693178101013*^9, 
   3.4826932044266167`*^9}, 3.482710879655653*^9, 3.482710946977825*^9, 
   3.482711011165909*^9, 3.482711056407166*^9, 3.482711214951082*^9, 
   3.4827113523896093`*^9, 3.482712487457361*^9, 3.482712559637074*^9, 
   3.482712646646081*^9, 3.482712805771052*^9, 3.482712869386491*^9, 
   3.482712924404544*^9, 3.482713022089737*^9, 3.4827130827284184`*^9, 
   3.482713186194869*^9, 3.482713292159603*^9, 3.482713338105775*^9, 
   3.482713385961602*^9, 3.482713426207487*^9, 3.482714376518395*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"points", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", " ", 
       RowBox[{"n", "^", "2"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"n", ",", " ", "1", ",", " ", "10", ",", " ", "2"}], "}"}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.451313972345682*^9, 3.451313999627087*^9}}],

Cell["How to put both points and lines joining them:", "Text",
 CellChangeTimes->{{3.482673415117365*^9, 3.4826734533360157`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"points", ",", " ", "points"}], "}"}], ",", " ", 
   RowBox[{"Joined", " ", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"True", ",", " ", "False"}], "}"}]}], ",", " ", 
   RowBox[{"PlotRange", " ", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "12"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "90"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4513140053577137`*^9, 3.451314085044896*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], PointSize[Large], Thickness[Large], 
    LineBox[{{1., 1.}, {3., 9.}, {5., 25.}, {7., 49.}, {9., 81.}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], PointSize[Large], Thickness[Large], 
    PointBox[{{1., 1.}, {3., 9.}, {5., 25.}, {7., 49.}, {9., 81.}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesStyle->Thickness[Large],
  BaseStyle->{15, FontFamily -> "Times", Bold},
  FrameStyle->Thickness[Large],
  PlotRange->{{0, 12}, {0, 90}},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{
  3.451314030161429*^9, {3.4513140748129377`*^9, 3.451314085460284*^9}, 
   3.451315528292396*^9, 3.451741581794874*^9, 3.4517503592993793`*^9, 
   3.482693287853825*^9, 3.4827108796931467`*^9, 3.482710947016179*^9, 
   3.48271101120302*^9, 3.4827110565175743`*^9, 3.482711215001967*^9, 
   3.482711352492805*^9, 3.482712487494995*^9, 3.482712559685618*^9, 
   3.482712646908237*^9, 3.482712805804983*^9, 3.482712869420383*^9, 
   3.482712924457843*^9, 3.482713022123488*^9, 3.482713082844942*^9, 
   3.482713186229093*^9, 3.482713292204918*^9, 3.482713338160817*^9, 
   3.48271338600572*^9, 3.482713426258479*^9, 3.482714376638002*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "t", "]"}], ",", 
     RowBox[{"Sin", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], PointSize[Large], Thickness[Large], 
    LineBox[CompressedData["
1:eJw123c81W/YB3CiRUIqlYoWWgql3aVoGFkJjZ+ZEjJLESUNhSJ7y8iWvcdl
7733OsbBOeebEIl6vp7n9fRPvV9Hxzn3fd3XfX1er3P26Jqq6K9iYmL6ysLE
tPL3//35Af//L90jR/iW/hHwdk21tIe7FghEJBv/IP164OpjV3dTYAaP2V7S
zt+/lI4lPIPl7LaUItLvuS9w2ru/grOZr6KCSX99ZNn2IfcNrCvwa7Ykbbdm
oq02wRFGzoqcuET6MO9eHvavzmD+SqZ2DWn7nMs+l91dwbr4t3/pXwJ4b5+W
OFP8BUb4Fb/akJZreFQvn+sBub53e4VJKwfJ+t1N84LdPOKKDcsEVNT84NNP
8IHLd6YWHpO+H2/ZYxDpB4a7A7tYSffNT917EBIAS+qKknxLBCQaCOXIfwkB
liincv8/BDSt3aS0o+wrSAgef7uJ9JkkaRGnolAovygZOfmbgJzVzhn3csJB
sOsnmxzpYv2S0YKMCIj/FhIVvkDAy2Brtp2p32BfvMvHC/MEcGzNuFgeFwVG
HPsbXv4iQLXTsGVTdDQ8JvRuZM0RsMt38eHtiBiwUf86yzNLQFsBb0BLYByo
htXMPP5BQBX6WTz9lAiyqbdZzQkC7nRnRJVJJwGRd03RmEFAgq7b19riJLAw
kPKSoxGw5tKIRH1BMjyrFJiIHyfgg6FjQGBGKiyuW99qPkbA01cDDm9PpEFF
+es/IqMEFPU8ePUwJQ3Ojmozuw8TsLn5+YXd39MhN2RkerGXgPmmA0/kvmWC
oYNK9eseApDbOG7dviz4pLw4xNRNgB+VvqrwaxbkyZg1jrcTIP9C2ndnYDYs
KcWlaTQSIKA3zeLkngvSTmd/lRcR4PGSby/fS4Sfa70to5CAP2HI82dVISwb
iPW+zCfAaYRl1cjVQvCOjjbflE3uj7l7S1R9IURffY61iQSMcZ0/PNdXBF//
uL78HECAiQ5nutefEqh6lP+vz5eAv5+4uo5DKWh2Sj3b701AgdV7sXKHUnC9
ayvv7UbAowevTg+sLwP1A9yRHO/IelKss6zkLYf88MkmOWNyf19Qyh+IVULt
vRY+9kcE8BspSQQ+rYQbE8WPivQJYHqeF1mdVQlFHLZbeLQIqJ/IuLAJqoB6
5UaFrDIBn0JjD8nKVYOErvOTDScI+OwvdE5etxa2sqbZDv5kwMQnz8L1Vxrh
SNH9uFoGA7wn2lN/6DVC1e2b+5InGbBWP9etxaERZqZZZ3SHGfAtNJDqUtgI
kgeHRAybGPDKUP1M3bkmkLZjXbfuOwOkiMFIO9FmiNRxFviow4D2D+1HDba3
gnrdXl/7ewxgmVi0yz/VCsY5lnZm6gw4mWdYwqHWCte7lbzP3GBA9bZpzhD3
Vti1uWq/+WkG/GdxsfcNexsI7NLvsuJggOJ+2TjFpTYIFb96cCyZDsa3/qXl
dnVAVL/YH/Z4OtCTTZRrf3VAnYZZ0qFIOigZPz7WwdMJjWEO1Sr+dBAXvuzZ
c6MTLp4eG7nhQIfT9RkXg4s6wazt+vwPJTpISvWvWR3dBf/tF+Sao9LgdnD3
cWGzHtDOXy98dpgG4WpiwZYuPWDXGXTzeQ8NRP4eMM+K7oHnWTdpA3U0YPqv
8ojIUA/UdWYq30uhQfLLbxeqlHthyrtbi92GBhWepoOZon1wfKvDCwVWGpyd
cFe7TuuHOxW7rDYvTYEsmwj7GrYByFgUdmmemQJdve9/c4QGIGdhkOcUZQq2
ePfZs+kNwGdBv5bQoimoP/l7LXQNgKfTi4NMdlNwJKHQ+I/OIAipDchP0ych
u5c6IS4zBN8pMno4MglHPRUTXqoPwX1zGuVdzyQ0xvi4lOoPwaNOKZGlyknY
JJT6+ZLDEFlvAcc/h0/CfHzmcabcIbCnDF2QVZ8EsS0ej10OD8P+yFXWJ7Mn
gOB4s7dsHQU4uy6eKEmcgDLq0jeHLRTY8Yv/q2zkBLB3q1if20sB1TEBj6se
E6A6x8MSco4CxjPhQjPGE5DgmyJ31IQC1CA63x7+CWC5YfFHr5kCH4Kc2Yde
UqElqEBvv88IaJVteBHzhAr/io2nroSPwPVgf6qRIRXamyR1dBNHwKKLXtF/
iwoGWk/ZXSpGYIQT+m2PUGGNCPfasPkRsh4LIgI7x0Gz7MLadrVRiH9YUmB7
ZBzC9BoaZLjHYA33KeYQgXG47sXYl71rDI4KvPPJ2TwOdwf8tu49NAaG6UZ1
fUtjIH5dumrw8hgcYaYXtNaOwd/ynUzcT8Zg6rZKiaPRGIgdCgg40zYGEc9+
ruOLGIVOrppDHu7jUKIj+MXEZxRslvveHgseB35KRH+u0yho3vuysSxmHLQH
DnVKmY9C2Ba78J7CcRBX14pff3EUvlsrWWUwxqHGW5fXrH0Eatpj+/hlqPA2
yFSqeNUIyNXksMUtUOEA39AjzzkKLAhVLpxgmYA+eQsWHSoFNH3P/MzkmIBf
KhHBE3UUeGXg9yd67wSku5v1ZvlSoFuTsfWU/ARkHfiVqnKUXPcJ7Smm4Ako
dMrg+awyDHN/jRVOnZ+E5mf7OtOlh+GG8a4DfVcmQeQ154dOiWHY+fB5wgvF
SeC90Zy9kW8YNtJsK8N0J6HosGLTRcoQ1Afe6fP9QP681vZTyRZD0L1l5uTe
lkkITTj63+KnQaD0y8b56E5Buz879ZX9IMyX9/zJMpwCneziJ8yWg/BI/Hhs
i8UU0Fprvy6oD4KJ1I1tcw5TYKG0EJy5ZxAcl9tYqGFTcE2DW/iXwQA48Nx7
5DI0BZG3Aw5qfu8D/jsPbxTfpgHbKYa9lXsf1HwUj2HXocHune+SHK36QCrp
oJCCAQ1M7D+mel7sA7b2zw4FVjQYfOO95k59L7x8bPVe3oMGmUphLT60HrBo
Z728s4b8/5Ye85z7u0Hk99fulyfp4P9Iz5zC2g0Ge4VMLM/Twej4wbeJo12Q
2q+apCVFB+mQHb6iUV2Q4FV5ml+ZfJwabdF/sAsO69vvO2tM9qHzjUXDRzuh
ba1Nat9XOnzPaolrPd4O8TV32+pZGHD4UlZwLVc7GGbzBaSvZ0BC/hvZgh9t
UJ62q82DkwFwXn76c1IbRGScD5HgY8BQi8mLsWNt8MCy6L8tYgyIerbmvdVR
sg/b5+2Q0GSA1kUX2p39zWTfGa35nciAwHSmhcrVzdDdla1ok8YA5jfPnMXG
m0DuirPETBYDup+WGCzENIH2+yzh+iIGON942qR4rAlm9kTZC7cwIJ5WwXLi
TCN4ftHkMpllwFx5B7/mjkYou71D6skCA6Sz3r1YN98A7VELFRZLDJBJ+Hju
44sGEPcXLtVgJaBxXc3Ho2/r4fDsJqNKHgLemcrUbvSshfnhCyEnRQk4bjBm
OnmrFnxMrV4XkvdY4LOxDchbC4ub+yOlThPgYp9jdjOgBij1hZliQEBwRJ7r
obBqsPs42ZUqT845bj+TQr5XgqVP84NLDwgwcj4tvMmsEtpLE3mVyHs1+oi8
20vRSijLSv2rRt67svsZZlfSKoBZTdT4hgUBrQlTgp+yy6FWzjqp144A4wSC
aVNJKRz3kZZ860FA0jOliIfvSmFPr6/AevKe59Lt1su6VgpP4rbZvCfngA59
CQu52hJoPXHB2zCIAOID9eGZtmJ4/4ah2xlJPm6h9+GRTzEY8j9cEoghIOtq
wVmv28Ww0eklm24cATxJLG4D5JyR5qbvUEfOHUynfPwujRWCs8OLZpksAnTC
WkYVowshbveVVWo55FylPHnmjmEh8PZ6hN3JIyBP2/hReS/CoR3tYjcKCVCK
b97vRsuH3yLUtx0VBKjl3chrZcsBZeVVn+zbyPXzfHjY/nM2mK6/68rTQc45
z23fHNiUDWXftP4EdxLgbS2gr7k9C3ZZzm0MIeewZR6tIy5CGSDG/GyH9BC5
fnGqe9ji0sG69Yq2PznHqTFsaA4i6VB9n5ljgkLAZNUGW/2TabDDhdnflJwD
H4yY4PTlFFDfOGC9Z4oAzu1s32TKk6FEopBxlpwjxdXvKATJJMO21suV8nQC
+Ex+6J5WSgKHUwejb5Nz6KWxazxMUYlAm+T8rkrOqbM+DW2OCd9hDSOI9/o0
AS017NGvc+LBLalq87YZArTXxorMFsaBw8BC1CzpYcnz27QrYkHqws+gKnLu
Hevas+pAazQI3rZJvkfOydc/G1m/7I6CQLaY+h3kHL2/3utS82AkRDQN3Wgi
bUZxTHlEjwDWl2XmQuQc/pDl9DrL/nDg3XlSoZV0UtHaGquGMPh7TEns+SIB
a8v+XH1aGAr/kLqLh5zrF0R2VJokfwUvtRaub6QpHG0nKqRD4N2qcTYRMhfc
kpniiRYMghG1ZfbvpHMv1QwpT/qCcE/EXg8yR3AxlTLtrPWG4xVzpxZIb5l3
zRlI8ITVrZU3VclcsvRcLirI1R0mDrFaRZFWeb5ZS83cDeKt3YKnSe/O2zy7
OdIFon5q1ImRuacnL0Dg6aMPUCsvt8qItEUA85P6I2/hW4n6BX/Sbl28F6QH
X8EdXvOXhaQfZLGEDj94BhkuLmV9pJ9rJFJnux+DMD1000/SRl5+mqcbb0P5
+zj9ZdL1zMPhTIclUelIZME/0ouV85oBy/fx2Mkvu36TFlAq1Ti9YIFWdiYO
E6Sv7ClODDJ/gYP6l+mNpAOyp2Ps5l5jSwuPZiLpDVfkLYTE3uNtUVrrW9Jd
F2OZakyccM/jDmVl0ut/lu9/GPcZrRcprZtJqwwcU1+2/IJyTXs1G8j3Xy3h
L3HZ3QN3mETR7UnblLzxfZ3khYtNjm8Okj6l2jCSU++Dzg69/FXk+joZ67yh
0/xw+mNhsRbpAFOB3m3sgdhgpWxMJ/ent3pW7fzBYDx3L3GnBenbbiMJcfu+
YnbTUgud3N+kM1di0sRCUWRG012btI2QZ1PWpTDs0F5WrybrQ9ymujtTKRwB
Vh04TNprS5fWN5NvGPt0tq2JzHVF++KkPOwisS3ucg4v6Qh5jU4bFzLBbMyO
VCXr0eKe7MjJ2BjcXvbHN5XMdYIjgqdujibg93jLidU/CThnqKWyZvY70g1c
trCS50NN646WBnMSnvlQRcZIAqzK7I/OcSajfGN/RyV53oKz9Q7NHklFE12p
Z0tUAt705LUJpqUih8255RQy12kf51m8eS4NaevmXLXJ8+ziz7Y1SCYdi+sP
9X0lz/sIc/nTMf1MtL0duiejj4Bw9eEzg5RMdOAZOClJ5ro75lLCrTpZyLWN
3aGYzHHCnpXrYv/LRqaGiJJEsv982D/8gu1WLu5f+vDrSBMBbHq7TzY352JD
SVvr8wYCFPYk7fVQysN1bccYeXUEHGhc5GeSz8fn+thytHol1wdee3MZ0cQ0
xCqlmID09dRr3IWIBkaBZwrJfnj0tENJze5C5NsD58oLCAgzcdx3NbAQX8zo
L+WQ/dQn+XzOep8i7K078fZaCgHM3pN9Bc4lyLxvgp8eQoCtjlKUZHUJKl25
yf6K7O9ro9UC8teV4qTxvwvryVwo+eVMefS7Ujyy8P7FGvJ+uPhXwfbyqzKU
KAw0iHAmwLXkwxYr8wq0zNIMMHlK1lunQailcg32N+TLXJIiIOZN6ZbHnjXI
byB7wpO83zT2/ArR7KjBLR4HhfrPEeB/c3XMwf9qsahk/yF18n604rR98p9B
HTLZOZT07SfrP3Tw6GG7BtTkGoeL5H3L9smcJQgbsI5Ye3IVEwG1VnL9q5gb
kTUwWzr/DwNqrqeW/yfViKp2WVnbZhjw2ZhbtqeiET8d4NmqP8SAVsnIGlpD
E+bZbyhXzWPA5I4vmp0/mjCapXnJKZMBWZuf1BRwN2PjxlndrBQGHKzV4rC9
2Yxez7qKF6IZ0DPfcDCzvRm59n9c4PRiwIWfQk5CvS2Ya13w0s+IAUurLugn
DrfhsLex575NDAgTlVC7saod/2yeE9HcwIBbswPHR/e044TEgrXbGgZQZW/a
r9JpR2W1XqHeRTp4HXjh8bO/HVW3B3NxUehAE/nM+NrVgYkWAR+nyNz4387s
md9VXZjBSDtqJ0OHmdUjCqXULnxdNsuffJkOEQO+rxzXdiOHt9Vi7zk6DK/3
hwXpblS+22i6U4QO9jUX5B2wG3/wyH05u4kOO4wbj4um9qD81T26c5004PVp
voOefdhclHzFUpsGz8Pp378k9eFaOZdKEXIe9Y1J7L9X24fOh6KtKco0uMpi
nNHH0o/8yrGPT0vRwPT5X+cPFv2oFKtd73aABm8VOP7ZKgzg2xhx1mXqFNy5
b2x6234Ql/Lt9zWS8/Iq89nJqk+DGCisPptGztOnY7mNJAIGkX47W8TjzhTI
/9hjzJIxiMdL5sbPyU7B7LgR7+OpQRzhex5+8eAUaMgYSNveGsI+pe3LbGOT
0NR9PMdScBg/v/a0r7szCS/KNY9anRjGQ8t0jr3Kk+D8JNfa8jLpY/XCptcm
YbnhyGdNzWGUu8S/aUZ8EuITLE/98hrGv946TGEbJqF34vNOYVYKLscfyw/O
I3PjBtZ1L3opaD7MlCrEOwG9xhabmiYouJXRZuixYQIO3pC32TNPQVbn9RsW
mCfg5i6xm8ncI6i40W1rPI0KnRHxhS5XRzDwavhXLKJCicjg1WOJI8hyKlnc
h8yFcvccz663HcWUt4d5dmeOw7Hzsn9rHUfRg1CUNYsfh+es5yydPUaxfUQ7
Li90HGpHN+kvxI5i8JOOOSmXcbCK6uN17xrFXcFKvzbojIPaLenTxSfH0OYY
7Y/T+nGYUugKYp4cw7IrbryyamOw8Q7f6q1zY7h2h0rpmOwYDPvalexnGke5
fOGfdjAGOt/yzopuHccMLrXeAOExWLXpYMXqy+P4u6fijPfiKDCMXiz5+45j
fcEBb8egUThn0yajd4mKfDckWMwHRuDnncQgf3kqVn92kNJpHgHhowS1Wp2K
Mg8ptnJlI7Cg/F1jqwkVvXjYJzniRqAvb+myhj8Vj3A93iZnNQJCwgefv5um
4rZf87tj2UdAQFfa1tR/AoMObljYIkaB+Ny3wRgxgT/ZY5vl91Pgh8Mn1XWJ
E8g63bX35VYK+F7ZZPamZAI/MujijYvDoJCzdZMAbQKHxcU/ipUMg1Wej8WP
c5OYf6zccYbMjU/eRgR2tU3i3fcCem9MhkBWp5aNfWAS/0p5HVPVHoL0y4G/
T1An8Yvr6F4BlSGQXPqjYLE4iYHHZj/FnByC4l3RX9x3T6GE+eZRh6VB0FhY
deWh/hQGSm/ZevPjIGz9mHlFiT6FXrRrNuwwAB7p0csuc1N4+46yxvs9A2DZ
5kItWp5CSdfC9wssAyCgs1Zh80YaVrrXzxVX9sMpQnTbXREaKnjuY51W7of2
C4xUk8c0DLdROZCt2wfPrss0BY/ScJQliOvEyx4Qe+9gqkOj4aLg2X/pOj2g
4ViwdtcMDS9JJV0TvdIDj/Qy+F8x0VHtWi/z5g09MLdTtpCxg45Tcq/6nPy6
YWtGmaaNAh0FTrySkU7tgm1NIZdOJ9FxfuAbM+9wBwQbuW3lzaCjmJZ5WlNp
B1zN/ZDGyKVjaE586PuoDjj7bvTKhwo6/r1NvTZg3AEvVVf73O+nY57kLyf5
eTIXtikWFLIxcDmU6cgu9nZoFNHtWv6PgTm2c/uqRFrhRvtW/E+PgRSXI49v
bmyFrw4nF9IMGLjmddNSB70FepX9NWUsGVgrYLe5Mb4FNF4wmtZ/YCBO/nfQ
7lALhH+7wUZNZOA+W6eNLWRuPMq852leGgOHp3J2rGFthgiN/Ts/ZDPw2ZLp
qhOUJlgok9q+uoSBls3DH+1Dm0DL6FisVxsDtXb4vurb1QT9n6WZuX4zcCpd
VjJxSyNUMZTc1JcZKGIv0Sk80QAbE1uuejMT+K5hmWcysgFOcTw48Hs9gSq0
iDfKexvg0Jypo+oOAt/PGd/K2FYPHaOzvdpnCGTrrr9LZamF4aI/lyrNCHzY
u+aUZWsFbKf/3pVvSeCLj7u10rwq4LqshWCsFYHpox3RhFoFGK6ezDa2JdA4
OXZAtaschl04OjwcCaxpsXPr6SsDFJZXfhRI4A3r2qTx0RI4mdUSOhhMoO8G
+evNkSVg9nr7ZqVQ8vneLfzJfFgCbiJP7/JGEmgqEP3ryUQx6H/7cf9aIoG/
hFWnM2hFoBX7dvRIIYH2XRovm0YQ9CJfcwgWEygd++THtgcIcpxWCrylBNqE
m7prjBfAF1GN7cMVBHIEHx0pnMiH70JzZdsaCFzD+Z/YGUYu+J/yiG5uJNA2
dt77imkuNE6//vq2mXzc65eQ3I8cYHscXt/YRmC05bsbl39mQ+6m8G1svQRq
VP/jG5nLhE+g7/+2j8Cjp6o08q0yofCBosh8P4GOjdQCt/kM2F12xLl0iMAc
1cJ3gr/TwUrEgpNpnNyf3aeecC+lwnRN7bZzVALn1220QNtUGF6IEDWZIDBp
/qO3wXIK5CsHu+VNEahkd7w5/m8yePW1/SHnTGQ4pTszMSeBcfeLwB8/CLxt
McSybV0iZJ3w8huYJvBbk81boY3fwVUCoiNnCJyaOS4quiMeptbrZb+cJbBo
70DrYYE4eO4uIKg4R+A1zpY//IKxwH8ynLvrF4HNjwuL50SjYdMONjf3eXL9
0tW7O05FwSpZhUfSCwSuu252P+1CJPSfLz/85TeBXoum+J9MBGw3it18ZJFA
Ztd/aw8rhsOfnFp1JL36vE7KjGoYaKRJ0ur/EPj45gLfc+2vUGyofEFuicBh
roJvBrXBUHJvNxVJjwXNpnd1BIJPuDPtyDL5fk7LDkpR/KH5yCtZd9IpFlaB
UQxfMMoZZP5BWuGhmO7qRW/IH/bbdPUvgdXBp2P+W+0F7lzetp6kh6elJ5K4
PGDvm2LoIe1nvNn/H98X2Kmw8d6OfwSefVD9wFPhM0TeNmwicw+eqKTd3qvv
BPq6VSGvSV/8xbkc8+I9vPzNXxFDmmGYDkfcHcD37f1r1aR5W3GvqrIdDF5w
FaCQdv0sWHL95VNYe8JfZZZ0W6rSKzM1I5CTfd1H5jjk3Ah9X7TVwez05SIy
x6FXit1j9kTAMqfeZTLH4Y7Idx1sgXq4P0zZg7by/N76lbyh5shIjXjdQbps
Xzr9wBNr5Kzurswh3VNw8693uD3+KV408Ca9i2MHO++ntxirzKFrSNrscOxR
d6sP6L+8M02C9Ltfr63WartgzV4JrT/kegSpc/3J2e+GWdMP9LJIz/q/0TTZ
7o53TbHwMemGvb2Pd230xH1PlZ/xkT5/615yxSpvnEk67lhErj8t/1qy8bwP
7vxm8YPMddh+iDLHTua80lG7hnfkfs5ISpucagvCvnsvrnCQPtbin1JcFYJP
hqS2fCLrAXJ0RPYNfMWfjinFT8l6iZkfeO3fEobTVgFf+8n6Sgz2+9BQF46u
HG2dQDqyv6f5X0UECk22aEyR9RmS+O2ycl4kZgdPfj1JOpjt/Q/zjChc3Tkr
9Zys59HvX3+6JEVjQrN/wBhZ/xyENGtyRCwa7fD0fkiely2Svc2xLmSuOyBX
rkWeJ6i3EawNSMRL7vELCuR505giO9+tJHx8KuLBJjqBc702Fbb3k7GC2djs
KHl+lb21m285pOJ07KOCvjGCnP/5cwrWk7muuoD73SiBdSzsf/d8ScPdLL+q
soYJ8nmXmDtC0rGwq8U5jewn9/MzG37lZSIbRybnrh4Cj3ReNBGRzkIRZ8lA
2y4CG12un9aqyUKW6l1NAu0EfnZLzojrykZJaYvM5XoCJxmT4rS5XDS7rjS5
HgncM1My/2RrITrTOU5S8gh81X37bNPtQiTKZtxSc8j1ul49LBxUiCPfkl6e
ySAwo91we/W+Imz4USHVHU/gOaOr7M3Hi3Enjxm7mS95/pgGLcZlSvGb2uqs
HC8C2WVCxaddSlFXsdJ+yZ3AeyOhh+caSnH1sx+P9D8R+BWJp1O3ytBEanVy
7WsCO0+tuu+qU447ZxVrpw3I+s9oOxrxrBJ3M9kljukTKNUmzNOWXonUzTaD
LboECvL9nPg3U4n20RMiPvfI+2RqVkTKrAoHxI96FCkS2L/T3PilQTVm80wc
jjxB9uc7Gw1y1Guxd2OgrIAo2b+e+Ui98arFiLCNpe5HCfzI+XbXlZZa/Cma
VK0tSK537JJrqkIdZm3Ph1BeArXPM1WeuVKPzM1DXmkLDExfZyxkuq0R6zkE
69JmGWh0/d8y76lG1Bb6/TjhBwOv5m3tybvViAWsl344Uhm4CyucFt0bsXPC
gme4g4FnVwswpDmasOypcu7hdAbSxx+d4mRuRsm9Pgd3GjIw63Fb6JXRFrz6
+PyNovsMPJPzznVsdSt254cm/afFwOCtd7JfC7birzbKeVtV0uqUgMiHrUj3
VPNRusjANkdW75iJVnwWmJWnzsXAsAfvj7vQ2nAzZ6r7VAIdty3vojnQO7Ds
i93giyg67pJNVbzN0Ymu4+8jWELp+C7Kolz4aCceWKjx/u1BR5vu+soU405U
+DSs8cqajmFD6/ZYTHWi6Xlt5tnLdIwGP0Hv8S7cz6LR6tpAw+VXMUdPdPfg
X5PeipOVNHzwznG180IPFm+MKWgppOGdFIUd3Vt7cYxPsWA+mYb29LlO7Zu9
+CQmEwY9aCj1LBE5a3vxxBv7PSfVaHjggfTwVG4fut3b82G5dQqX/ttvouc1
gGYfrdZG107hc+uPxckpA3gxfLhBtpR83IFTbr5hADd8kr1inTqFbUbMNPHV
g7hZu4/F5ssUXslX/2cCg5j+6DBlg/wUPv5wPYs9dRC3jAuKfcydRJfhhBcl
3kN4Iznm01DKJL70TR2nhA+hvNPWZ+Kxk1g5acfNlDyEY7XcSyW+k7jvcdaX
wzVDuHQhaL3v00lU43xIU/g3hA4urlwbRSaR+6uwXOmDYdw8EsR2icwHjLip
iZtiFPz20l+pwW0CrfZtZB67SMHq+A+G6o4TuFE118JSjoJVv7X23XoygQ4t
Prft71PwEOvtiTUKE9jOUz6o403BJ1bS9VeYJnDBeduJS78pmPTLwPGSNhXl
msT238sdwZ1ym7eK3aJiU7O4tFrlCMbMCubxyVLx/c0oO9m2EVRK5bvbLU7F
CzdFRfYQI2hzbfj86rVkPuKV5HfcO4o0Tbi7OX4cDdYqbRL7MIrv3KeLRabH
0Nq8efeUwhieuHzL7vroGJ7fw2Sy5+4Ytr7yyrzbNYaUOqn7yg/HcNHqdLZJ
0Rgqh586HfxqDL+vklG69mUMt1/U3jWVOIZ3233qyo6NYWyk0IAC5zj6qH3T
4zIYRe9TrOmCVeNYbTD+9/S9URQqaXCpahlH+YzryveURsn9sH71oH8cg+2F
hDxOj6JYEzX288w4igm2ThStG8UHVzY0+ewic5zwDj3B6BF0S5ne4mxGRbbJ
qoMCFAruWxUYT+GewNKDVubf2inoX2U9Vso3gfKz4Y0Hqikok8E1GXJgAjub
KEO8yRSUToqVljozgZHTbZFFLyn4QzmWBbQncF+l7VOR7RR06y//vC5hAjmU
XM+9kR1G6rnlOy2XJvHSdolnqReGcSSrzCJXdhIvHvW/N3CczO/W0rJBNyex
1bH++CHeYXQrmzmmoD+Jlmmuqi6UIXQfvBVw/8MkvuBZe/bdiyG05pwV0K2b
RFO1xpNa0YPooiOY8EVlCi++fvmNLWAQGyTuFSXcmcJmwSd7Uz4NIt9iiGqJ
7hS+Wk9VmrMYxDb/sB/dFlPIZLu6S/7CIM7B/qpc9ylsUrAoeR82gLs8U29d
bprCJMXDJVW0Powc4Vq6JUOe49726vb6PtzqWZN4XpmGfuev2fQk9aHRAX4r
vts0nLNn/1nzpA8frC0RLTKgIZdc5nHZpV60WNcllOBIQ0WdCoWS9b3Y88Xw
6OpSGl6uvxxB2d2NL89bro6SoCPLiB7Pr39d6DDY/dP5Ap3s8+LnmIe60Jye
mmQgTcfzz1w6mMO70FWLw3u9Cvk48zWJBMEurFi1v5lqTMfkj36H0450YtqJ
0Md8ZN8a/5unUSjejpe1Df2kWRjommHdxLe1HeV7mnty1zEwokyRar7Qhj98
X9Ye3sjA0Vxxjo35bahZpZo6t42B3M+8/6652oZ/HFQsREUYaCjX3MWs3ooq
Z4W8r6kz0HNU4o3C02a81nSiczScgTKVq7vY1ZvR2MTliVk0A1X/RWaUnm5G
k9JzvjPxDGS9Oip4cKkJKQ8umFPIPt9rciw236EJPx55KveogsxlgtoZfK6N
+G/wd+qGCQYudqd2o0wdsu0NU4wj7yGB5rWzG9bWoaqw568vh8icEH80X7m0
FpWPOSWZihB494peXPHFWtRm4b3NJUHgG1tBTmnxGnz+SFVzTJpASzGW7LYd
Vcg/VKMwok3OuY4NVZEdlVjnlhN57j55D9+SzjfzrMTWyIPMTg/JuX1ayI/g
qETcUJzNbkKgybKsZABTBS6e/8MfbkNgvM2Po7kjpXjr9qpFAfJel7t513Jf
aCmGwDIH1ZPAgiqFxnf/lWLUqg9bI33IOc766u4z7SX4yu7wqrVBBEr6bTl4
r6IYfViURO5FEcjEqybj86YYq43/a+qOIfDt+VM766AYf3cv6iqRc8bdy++E
DmYVYcpBXkWBZAKrBK/NRkQXIqOu8NRNck65yGZdlXm/EONNhc5/JOcY8/pS
WplAIZ6wLD2YUUDgM/ZVHdGiiJbnBAtmyRy4t8a47Tl3PsZO5eSw1hDYlTe0
6N6QhVKbr70zJecoSR6fwfNKWagnxS270E3g0qM1aYONmbjV+MkOa3IO41KV
C9/anIFvrjn26g6Q+yMqsxta07Akp6unfYTMeVXBtFxV0noaM/zknOeSIxUl
3paK1fRIHh0y1+1KHtDe3J6CVwefPK4hc9y7JC2d4I4krJJ1sZNkEPglV3Dj
L/Uk7OA70SJDzpX3Tl2T90hKxOurdI/JkXNnmtUnkerkBAxaUlo8+ZOcGzMf
aN9JiceW1z4G/GSOO7y27CElJQ5F/pn0MpFz7Anzi78GU2Ow/vt0SxyZ4/yD
Z5dupUWj62Ux9afk3Ns7oN9ZmhaFTl9EBiTIuXh2b9GGL+nfUIUrYCmUzHGP
nVRGGekRaO6R9EWOnKsPJNO/XMsIx9fPaw/RSY/EBD+YzAhFueVnBtvIOd1E
4sHGk5lf0YuStyGMdOr3kzzzJiHImm2Rto+c68uvHz9uaxqEYrustYJIa2g/
nfltGoA3vidzcJK5wOUn9pqZ+SH/eiZ8TvptSq3RkJkP8lXJWHaTth2/LSBv
7oW3P1gdOkHmjH4FIZtkcw+MGjAdeUda7+/cArfFF3R8sCe0gfSNt1xnekc+
o0Tqc21uMte8nrtc5TLqhOl39PfKkS78yx4mMfYey350jtmSLvk3V9w95oDT
aysSIkl/dd6uPltvh26iB55Vkm50zck43PgUy5cnLw+THo5ru5YbZoTv/3Bz
r+Q4meO7nx2XVUevLK+hlRx3cbvTiITuJXApskxbyXEKZqt8xdTuQ0to3MeV
HLd2q6HoxEELiKNc1JkiLXb2+6c0YRvYxyV6ro00q3tnUh7Pa+BPdOTNJC35
93DHDp53oHJN9pcbacqaKzmWmz4CaDp06JI2CfK9U879CcSfn8s9QrohVKH3
wwc3uL7tTSiDXI+QKH3DQx/c4V6hgVM06V/u9eoVjp7AOb389A5pu7yK/VqO
3oAH1e6zkvYodVOefu8L76jvb0WS679WwLdm1ftAEJ5skmwm9y/nzDE1mxfB
8I6JI0STtPPz0WtPT3+Fme1TihRy/69b3fTpOhoGjm7rYtvI3LY+OkD5nXA4
CEZ+uClFWu9BhsWRfRGQfeyoUgxZT0cMcMFoWyQ437SW0iTrT8hNc5SFJwo2
6ZmdTSDrM+WQ2HVvjmjgbDr0bpasX9mcsVcxq2Lh/FzgVmOyvo12j+17Q0sA
Iq1E5B+Z26Sr7UWoY99h86GtVVyknXer118ZSgSnk8VZO8jzJELEM2Ynk6Bp
3xY/XvL8YZXczYcDKaDz0/V+Onk+c8PNR57fS4WEWuekj2SOkxqZbnjXlQoX
z9BvqpHnOWhq5sKXljQYzlgf1kme/z9zA0eNKjIgPl7k/muyP4jIpMqoSmfC
qvAGy239BCrNjzScKsqEc7XqfVFkP+n5bhdOz8mCF8avMZHsPwW1TgLc33Mg
PuhOtV4LmbPWKVyvPpQL3GwyqflNZP3frZq0jcqFnZVbfnM2EuiWLypc/zUP
Hn2lBgbVEtjxQBB2eRRA0/Fjyv+VEXjKa+lXMCdCRknBEZsSsp6Lrp/d7oJk
pvEzcC0i8IL50NMXlwuBjWUtS3g+gS+3b+o5eK4IbmnsajRJJ9/fb+6HeYdL
YCCk/5xfOIGfNrAGLJqUgMuPg8XrQsl6i16rIp5SAr+29N42DSawlF9t2eN0
KWxZ/7Bwjx+Ze+OnTnJdKQP6oNQrvs8EvnhxLYByrwIcV+FTPSuy//4Y31UU
UgHtTzjNpC0J3GkUOeszXAHZhqkfdpqRXvirImpQCTJ/P2xLeUSgPtuWEi7L
KjChLtVYkLlP5gTPvLljDZxWbVCTkyRz6rOusZ6qGtitURoZfJ7MeS/jly9s
qIUFzxf7J04TeNz35a1Jt1oQrNBL0CNz4KkQ69Ahvzq4WsvOQ+whcz/rV8Wz
sQ3wPvHhAW1mAlu4WNrXDTdBh1jFt9RsBlJDT87ZMzXDmr61XpLkfS5eWBY5
u7sZjt1586ssiYG6h9aH199thv2DnptzohjocihCRL6tGVo+mfVe82Lg0vQ2
tocVLeB62J1cRwaq35+oH49qg26W0PNlOxk43hpcW1LWBnGXnLJ1eRkYHyRp
6k9pg+KvbxoWuBl46TXj3Sn+dpCUXKrZuJaBBgdKDh/3bgfxK0VHhn/QsZu4
MLv5TQcYSJoVCZWQuc7sup+1RhcoXus/cVqXjnuebW9mf94FS/u2y92/S8cc
zWeJ3j5dECB+Z8xRlY58Xo/Evdu7ILirPzX9Kh2tj33WOafaDXzJbJS4Q3Q0
jBd7tFWhB1bPJt5hnaYh3ctUpPFcH8TlOT558oyGmlrXbPXv9IG9SoyolykN
18ybKP583gd79IjMhIc0PCWup/szvQ/SDTkOlqvTMMNbR9r5WD8sUDb3e54i
fz5qQX7bngFY23s0JG5uCi8d95RPfjkIj9IfqTcYTaGCZLmg0KdBMMjdcotX
bwq9O4/r+wYMQr1dYIo6Of8y+AP+GmcNQlb2onfR9Sl0bLcV758ehDMn02TO
HphCNdG3Qn16Q6Cg2PmmqJect3/xuIpKD8PW8qjdZ65O4t5iNdigMgyfmH0X
vpyfRJ3mzLYhrWGQ1Lr/liI2ib4Fj7/ZvRgGYerdPDP+STySLaT/LGUYDnoW
/hZfmMCtex03mvFTwF+ohUs7egKlv/oG3J2jwOfTafK6LBOo4lXKH8M8AlyJ
q+RcflPRdjdLzTTHCDCUzpxPIqioZNjk9ERwBH6UMpjGeqhYaBh1D9RH4Blb
jtr6NCq6zpSkjWeOwK5PniqielRkJBo2mzwdhYixNXW8+eP425TizPd6FLja
r42+TRnH1qX3nCUuo/BQOQFoUeNIBVbDVRGjUCB/pCzGfRy349Zdl5tHQSTo
xN3Bh+MYc7V8fcnRMdhcXP77Avc49urZp2QOjsE56qUXdVpjmJhv4/CNNgYD
V48aed4cwxre1GqXhTF4yzL9V/XaGP4wVcy4xjUOyhsX+EtExjCrICfABMZh
IkUw9ubyKG6UiUq2CxyH+Bu/5677jeJINS+TkzIVrhINr4JqRzBV2c/w6z0q
bNxf3BCCIxj2691I4kMqFG0LkQhMGUHpy+sWs+2oECtAqL/xHUGuT3M3bWKo
0Oi5W5n9/gja7tm/IeYfFV65jt1fvUjBi2InL8RETsD9xHuheXsoqCkh/lYk
aQIulh4V+7mZgk7DjwwTsiegtlFgzb51FDR33szuWzsB7kmCb60Yw5hjg3cF
fk6Aksg6sdGcYdxWHSv259wkDLZ92zeiQuZ5Prm6qupJSPqksPHVqyH02sDy
8WXLJJyNE5DaZzGE0Y9CAo70TsLJWq59JfeHcIsENe8JfRKmWzyn52SG8L+g
6tQ0zim4NG8kKLx5CNOY63ynVabgZl5Db1HUIJ7xiKpQap2C01nPLpT6DOAh
k5FO1t4psP5z/Lib7QCahV2XTqFMQVneqxBVnQHUyDqx9/fPKags6OOoODSA
BevSKiS4aSD99d+ASn4/vg5QEDKTpwH1atGmDUN9uL1CYrk+nwZ0tYkWsX29
yBaUNhpbSoMMr7Ob+Nb2ItOa9h+vamiwdr/R16XJHtQof2WwpYsGP10vV8Sl
9KDRf8eT6DM0uDvD8SfnUg+W3Xx2XkWYDtYfVYbDNLvxmA/bi0FnOry79PRM
pUcnxlVV+Gm504GJd42y5ZNOFDyx17Ddlw78OvuceG91InvN421x3+hwOkXy
rdzWTnzrvdP6RwEdhFp3u+r6duCDpMeFEwQdhHvUC1QD2jEp5JCrkxwDJoMT
uhwDW7Fg1WunJSUGHBR6rG5g24qHDSaZH6gxQCFq52ape62IzCOa/DoMEP9r
aDLO14rKa6yjDlsx4KHFYjjNvwV9VOBwTDCD7I8pzNM+zfizzvi8yAQDkm91
yu/53Iibmw4bX6YzwPwKp42LaSN2Eh7sitMMWN9xJmxGqRF9zxt5Kf9mQFjI
beYMnkbUpBHZf9YR0PuZy49XrAH1DSQsKIIE1G0oUmS9WodVHfkHXx4ioDag
lEtnXR2edpq9xC1CQF7r2qyM6lpsu/vTTeAkAR6eYXPyirUYF33oC+UyASI7
+1sENWqwZbej9uI9ArKdHdWDDKrw4sCxgh3aBFx1//PF9VAV8lwwMhXXI0BX
rDTiBa0SDSU8q248IqAjiNPtklklmvFMXxN8SsAJ7XVC759VYHIQd52+MwHv
fJci/70twxAjAQ72zwTYz1Y6el8tQ1G/d17RbgQIH7M/IbyuDBPmy2xrvQjg
bikROe9cijJl8R6ZIQQcffpURfhLCXLWZfy3I4WAFu2d2bsDi1BJQmHaPI2A
fPUf6oIaRUgAGhRmECBxdWZReHMRHj7ixHQ5lwDjM/EB/C6FuKmnq6ijhIDD
rI7t0fMFKGpwWXesjAC9vXlBxqYF6B1uPzRVQUBcjUik0Hg+2i4dtempISBw
mwnv2/Y8PMvznfVGCwEpHVdKu9NyUMSDx2VTGwEXI6723zuSg4nJP+n17QS4
G6y27AjPRr+4PXCkm4D3U1ExGe5ZmL/wY731IPn6LXW995hl4BoTVJ8bIuCh
8IEmo/F0/B5x09aAQoDkp6TCRM107NA/cF18jIARhuzdAzfSUInPcODOFAGi
27lrag6mIBuPUucnGgGqWq4L41+T0U//R0QmnQD2GtUt/3iTsevZhiyCIOBp
KXfO7jVJuH55ZHn5B/l+b1jtUVz8jpIGoltZfhLw+/Vuqjo1ATXslvKmZwgQ
ULi5pFgah76r6bI9swRksmqMQ0oslhw/GZs7R+7v+TBB4a8xWCpa16M9T8AG
Ga6+4RdReJ85IuHAAgGGA/nT6Y8iMfzhoOIQaVO5Ui8H9W/YNpPGemGRgAp+
1or14uEoJDqxtY9059b26VKBMPwlnrtg+YeA4hbRcZuNoRgV+i+GeYmAnZsa
ptQXQtC/5NOh96Rdw790JbUEoagj2DAvExB7Uvkkc2IAUuymfS1JR23LCJRx
8sNzfQ7ve0n3jxomOOn7IP1l2+Xzfwl4prJzdZmkF3YM1tW5k+ZfZX3pN58H
sh24KTRIOuW2KJPwvBu2cisq7v9HADWckR8e8QlLub9f0SL9wnPpF+POR0wR
12L7Qlo1Y25MjPsd4iHVoGzSnipXqswq7FFL4fXfTtKSA0kpN/88Rw3/vqME
6dX0s98KHprhenud1BXbp/EV8QuaofLeGomV78tNRndlMleZ4utAxVPTpJeG
hne+LzZB6we7+GdI5/33u/5zujHOHGvwWPGiQMovJTFjLE5/sIbMjUCEuu3k
STTCS7+ujq5Y+9yQrk+0IS7K1H78RXqnTnF3SIABqszF0Vdce9V/VmebAZbf
M1ecX/l9Y70b9ns9RJpWwoYF0lLppaejPz9AO4nJxyuf+5TczfUq6fV95Cye
L1xx2YZjnyz+6uGn9VPci6T9Upb9TrzQwwu1DgkrDnCoTcx6oovd/M9q/qy8
vso9dYUPtfG6UwrHyvcFM29oha+u0kLbpJYbK+42vx/7sVgThY9XVKy4J9E0
5Uv6PfT56Me88rnU/dd9U7ck3sX8YOUzK3a/QqT4Rd/BXUsWYStOPfI4PjRA
A5Wle1tW3OKZEXnASx2PXj/M8pf0jKZlSMxnNWx1sLm7YvZ2Z5fk16rol23z
dsXm3GyvT764iYtx2nErTgmQfJL9RAWdS/p+rjjiI5960UMlTKc+4Vn5XKzj
fOknp2IFtKiaFl3x6Zs3jNzT5bFYX1VhxTUjP6/6R8tiaH6gwYq/s3UKhAVc
R86mavsVq+zj/x3z+Squ+9rvveID9MmG5NfS+OlQZ+yKfcv/+5b95DIGmmXm
rXjHRn/rooeSKG5hW/u/v6/0rZ97+nlUOSbUveLtxT8vhAWcxvmozNEVZzcX
Dya/PoH7esnyIz2fcsah6OFxbKkhy4H0IzhzJSxAGNetbM/K9y/jdN4WPRTA
4pW3u/J6r9NIc+H/f99z7b3N4oKRyXn/A2r0Eyk=
     "]]}},
  Axes->True,
  AxesOrigin->{0, 0},
  AxesStyle->Thickness[Large],
  BaseStyle->{15, FontFamily -> "Times", Bold},
  FrameStyle->Thickness[Large],
  PlotRange->{{-0.9999998831351729, 1.}, {-0.9999998592812047, 
   0.9999998782744886}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.4192918751178493`*^9, 3.419292142459022*^9, 
  3.419292246313649*^9, 3.419292309328898*^9, 3.419292997039114*^9, 
  3.419297124142592*^9, 3.419990671476303*^9, 3.451314130671493*^9, 
  3.451315528386187*^9, 3.451741581894435*^9, 3.4517504251400213`*^9, 
  3.482710879713879*^9, 3.4827109470431843`*^9, 3.4827110112370853`*^9, 
  3.4827110565467253`*^9, 3.482711215028569*^9, 3.48271135252525*^9, 
  3.4827124875234337`*^9, 3.4827125597135153`*^9, 3.4827126469478073`*^9, 
  3.48271280583906*^9, 3.4827128694434834`*^9, 3.482712924492242*^9, 
  3.482713022148806*^9, 3.482713082875005*^9, 3.482713186264368*^9, 
  3.482713292228931*^9, 3.4827133381939363`*^9, 3.4827133860292397`*^9, 
  3.482713426287471*^9, 3.482714376677796*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "+", "1"}], ")"}], "^", "2"}], " ", "+", " ", 
       RowBox[{"y", "^", "2"}]}], "]"}]}], " ", "-", " ", 
    RowBox[{"1", " ", "/", " ", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "-", "1"}], ")"}], "^", "2"}], " ", "+", " ", 
       RowBox[{"y", "^", "2"}]}], "]"}]}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "5"}], ",", " ", "5"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"y", ",", " ", 
     RowBox[{"-", "5"}], ",", " ", "5"}], "}"}], ",", " ", 
   RowBox[{"PlotRange", " ", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "4"}], ",", " ", "4"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4513144313886967`*^9, 3.451314583057662*^9}, {
  3.4513146141721773`*^9, 3.45131462982553*^9}}],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJydfXl8TVcXtoipKuaiihpinsdqhXPamqtojR3MNdYQpZRSqapS1DwTYg7F
FUkIl3MJaigSUlOUIOZZULPvfbPX89zvrsrv+71f/rm/+9ydfdZ+9j57r7X2
2msX6zrg0+7p06VL933mdOn8//NZc3XOuJcv83jwGdxt3uZrhxdYnsbZi04L
zEX8ToFKbR73DrVmHcqf1HhaNuJxj0p0av0k1Pr99Twh/RIzEfeUCMyYfHSh
tTO1Hj/iJ9o+GjT2g3nW+tTyDx3ge/NXm1b0r+lWZCp+iXjw7jXrqw/72UqX
+pfgBm6+hwQtNuUt4J1NeWe5qZ+4x9TvbDPy2HyukcdZZeS3lfzONNNeW7XX
2W74If7I8AO5bcUn2wNeNw8e/eHNi2HkGZ+DV957N2rqUvIMfJXfDxXity4j
z8Cbhc4d93P8MvIMPN2yEpGlCywlz8Dbl/2p3b4zC8kz5dnQpnq3yVPIM+uR
P/AMfLEpT56BtzT1k2clD3kG3tjIT55Ve8kz8O8MP+RZ8Umewd/9/vbd9qVX
UD7g4wq86HSrbjh5xueIEvvfqPnG7+QZ+JTGr6UP3b+WPANPyD1yZNy138kz
8L7rah7uuX8leQZeZVPMO99/Op88A9c8Ay9qypNn4F+Z+skz8BNGHvKs5CfP
qr3kGfhEww95VnySZ/CUJf2MpcUKryHPwN1lJnxyr7KLcgNvfupw/e8LbSTP
+By3rXqHA/ujyDPw7CuLBv9yPZo8A4+8uXT7rraR5Bn4lQ7TGp1dvoo8Azff
p3DeAB5nypNn4C5TP3kGntXIQ56V/OQZeDPTXvIMfLvhhzwrPskz+HAvXZH5
WB0XeQa+uFSJd3t0jiTPwJ+UdoX22BPD9gB/2brVjGHFPOQZnwnHuk9okT2W
PAPfUnBn7uCAWPIM3OV38vnoYjHkGbj57iLPwBeY8uQZeLSpnzwDP2bkIc+s
v02q/OSZeJnU9pJn4MsMP+RZ8Ume0e4jgesvno6NIM/A3UeXdu8WsZk8A/+8
QvlVu/d5yDPweTXTn9k++g+2E/ieIondDg2MI8/4jC585GmNagnkGXhud6Rf
0qhD5Bm4+e4hz8DTm/LkGXiUqZ88Az9g5CHPwEON/OQZeAfTXvLM8WL4Ic+K
T/KM9g1p2/fbvUsiyTPwpu7j40eUcJNn4KOb1w0v2WwXeQb+2+i5TmLEYfIM
PPF2+pKDwhLZfuDTugzY03zPVfKMzw/f+yFpQIcr5Bm4+X6MPAOvYsqTZ+CL
TP3kGfhVIw955vpg5CfPwMeb9pJn4J8afsiz4tPx1ZMS3EUfn3LatImyfNf1
BHf7BX9cee37bZbvOpTgHrYn24VCf+y2fOfNBHepIyVDB52Jt3zf8wT3Zzkb
7x8cf87yHZf/ee71TWed7S8sXx4T3FXDLq1q3Sazje++n8nkGfjdxanlPeAZ
eGtTP3kG3tPIQ56BVzLyk2fgIaa95Bl4Z8MPeVZ8kmfIO1yNZ+DN1XgGPkaN
Z67/ajwDv6TGM9cxNZ6Bd1Lj2ZfXE+QZny3UeAYercYz8AdqPAMPVeMZ+AQ1
noG3VeNZ8UmeIZeen4HvUvMz8A5qfmb71PwM/LCan4HHqvkZeDk1P/uOU+/8
DDyfmp8pv5qfgcer+Rn4MjU/A++s5mfge9T8rPgkz3i+1jeAL1H6BvBMZXz1
DeAZ2/jqG8DPKH0D+C6lb9CeUPqG73vv1euoryl9g/qF0jeUPOQZeBalb6j2
kmfgK5S+ofgkz3hONqU/A9+u9GfgLZX+DPw3pT8Dz630Z+BupT8Dv6P0Z995
1Msz8BNKfwa+WenPwHMq/RmfU5T+DLy50p9pRyr9WfFJnlHfI2UPAp+o7EHg
2h4Eru1B4EnKHgQ+WNmDwG1lD/quS16egWt7UNVPnoGfVvYg8BnKHlTtJc8s
r+xBxSd5xv+5lX8D+Ajl36A9pPwbwFsq/wbwLMq/ATxY+TfoP1D+Dd913utH
Au5S/g3gvZR/Q8lDnpX85JnjV/k3FD/kWfFJnvF7Gv46Ow1/nZ2Gv85Ow19n
p+Gvs9Pw19lp+Ov+xTPwNPx1dhr+OjsNf52dhr/OTsNfZ6fhrwOfzqzU+o9Z
81Lre+Yk+GWcFOxEOvi+K7W+u076K3O/ux5zytpuyhOvEVV7alCfPy3UAzyL
wZ0pph7i2Uw9rB/1vbfjH79D666yHPCXLwZO2VImvY3v+Gz9zsreGaKT+Vzg
ZQzubDH1EM/8MrUeD+QB3sI8l/KgvvpKHuCBL33lAd5FyYPPmkoe4BWUPMA/
U/Lg//Io/oG3VPwDD1T8Ay8k/KMe/J4lfWq/W8OH5XjUeFpuDz6frd+8uveG
xfQvA1/cqtyt4jkWo7ytynO8qfJsFz5PW6V/rnJzP8cf1+1FsXe3HT5C/vH7
fb8Cm27E7yWOz9/6LSln5U0iD6gnKMveLyY4HvKFem6Yeoirepx3UuX39wBv
f/Q/c1+Q1x4E/vaFzvV7zviL9WKeqHDn9+KV01/gvIHyjRqcrHUo+yk+D79f
WdXzx7KPb3I+we/m+59B6C+UT0o39ONGZ06wvbTvDc55BvX0d5/pGv7ZWbZX
PZfjAHhtIz95wPPvjTqQvLblce86JXjcW3OrH5uf5F2nBA9ZsuLxj2Ufkh+0
b0SRzyYOrXvTu35Jef+VP3855sRjy7f9sJdz0i5FefM9Kcj3e4J70YZpdS5V
u0a7Dr+fX5FaP99blP/KlPeug3i/jfzkTcnD9xf4PNMujmM8Z6biAXLVVuME
5UspHvD8UBnneJ5vO7w8oP4nMk5ob0v5jCt9ecDvh9T4we9rFA/4XCjvSzUz
TmyUTx+SOk44rlB/fRlX4Af1jDbjk+3F/2VNb953tNe3H/ayvZD3K/O+83ko
38K8d3we6k9v6qf8+L2Hed8pBz5vmfnKUfOkncY8aacxT6I86uG6PKX1X8/3
RC5k/ahPcEuVB875Bbzuv/8gomGLo2w/8N0GZ3nwlD3czD8or3Dv/ov07xnz
vrMe8H9SPRd4gjwX9eD3Kmb+JM8oH2Pmf80D+LHU+gKe2X7I1VvGFdoDvLqM
B7x3kKebzM+QA/h4mT+PpOJ7nNBUeW84hdaFxha6vdMK7PdGlcTox/z9k70f
+h0tk2KhHHDMY9Gp9Z6zgE/eMzHbobgHTpXUdqUQ/6v38QrbfsjkQf34v0nF
Pj03etR11g/c3tlpplX6Af8feF//ieFDVxy28B2f64r1Sn576FU+F3jnyj2y
hpa872SsUnBKdL+XxDvmeBJzuOt5tgf/t/llukndA6PJw3sGd051OJep1/Xj
1n7z/+QtMNukw52mJlqjTT0Wyrc09VBu4O2Lry277LPDDsqjntNrU/l3Cprn
Ep+V6e6uAZnOOzmM/A6e39TITzmBfyd84nnA6xoeWC/wosIzyoOPNaa/bJTD
Z6Thmf0CvJn0C77j9y1mPJAf/H46fWp58gN8uvTjr0ZO4gWMnOwn4I2lf1Fe
jU8P+ET5iYYf8ozyPc04d8An5P1Mxj/4Ab5P+AGfwPFeoDza11b4hxwov0f4
AY7yh4VnfEf5BfJ+4Tt+fyR8ggcljwe8Ab8n7yPKo55awjP4QfkBwg9wlF8s
fII31LfAjFvyC7yKzDNoL+SaYd4LPg/lb8h7gecBL27eO8qDelLMe8r3Fv1T
4sG2+zk+usj/Bz5y+qGKAz9KZnnMo8vybwuJ3HKD5YGPWzq33+4RN1ge63mP
CVVm7x2Yzca8rOdJ4HqcoH6tj2G+1uOZeobqX7QH9c0z7SIvwOsaHpwTuXJ+
FdgkjwefIV0OXSv6ONSS77bCySM+x0j9+E69z/DD5+L3MvJc4Nz/NzxTP8e6
/FD0c/y/1p/BCz6zFHp698+Bx8gX+MkpOJ6LeqJMf3mgL1HvFn0P6wXflyaj
voo/dZH6FepZ7P/T0rFdTnB/HfIfETsC8lOPU/xQXxUeVL/YafQLcK9fS+Q/
JfoM5Md71k7WO6wjeJ9ayTrCeC95fvDJNdt/+jqU8mO8N7iZWHngn8eIY1zX
WZzFr5z/Geol+P3Wwi1Vc/96ke1FPXWKupOsdic5HvB/u/3K9lteL8lrJ0g9
N0w9lB/9/LfpFws4+uuc4LBTOE78c42tbd8gjvLZBQePKL+4aqMfZ828Qhzl
VwuO7ygf+VbqeGM5fHoE5/jAumPqIY7ygwRHP6L8LRmH0DOBlzTyE0c95QUH
7+D7E8M/+wPzQ201T6L8p6bfWQ6f02T+xLjkOBrv2tm00UI+F+N8t8yr6G/U
kyHUjBN8R3mXzLcYD/g9vSnP94X+T/Nc6tWQS8azLu9JozzGP+clvO9Tzfuu
5uUE9+i3R84qu+C4hf4CHjT2ycXj3bzxkUoeS/EG+TnPgKdOYsdxv03w0mJ3
4LnUo5fsbX8902n6IzDe7xi/KMcz7IzWYm+iXei3VaIPgwf0QyflRwJeVvxI
eB/RX5uNPLTDMU6TxU8LHPZKY/F3Yf6CPINFTwAOHpIDPHbHsAQ+F/yXNfyr
9TLBXcb0F+vlemvmH+o3GP/yXM6bKC/PZTtpp5v5kP2I9W5v6/DCr89PcL5L
tffSU78e2nvq8hGnTxJHPyy1iyZ8suM0+5320LUYK2bUOaezKyAyul86+0kq
Hu1MObX9Yu79FzgPKP8kcfT7WrFPoUeBj3OiR+H/8X9XlJ8T/RUlfk7ID76X
K/mBxyj5PzfyW5Af4xnyTO08uV+N5QmcRyDPiXP33G/mjmW/oB2fdvhm/p1b
O6mXoh9vix2HfkE7jq29nq9Siz3sL/Bza9/Ssc9uHWC/QJ5Hk/qfm1oqnu8P
5Nlfe+WAx0EHaJdBnrlvZz/19hdx5AfjcMGoNV9cKPu3U/Bc9on9Ev3Iw4Wh
B/uG+iU5F4e1KDTlyuV/6T+5anUY16D3dWdReJlind/ZST0z07UmAb9+cdPa
OSyxxjfp9lNvbGZw573hqTj1z1JS/t4wH9yzs+CKkx3OpvzruRWknqzDfeq3
O356tsivT647R5/dH9PrvX3En5yZtOXIuhSreMSzoxk+3UV5XhrcebrBB7cL
m3ZZb6/2aZfnM1O/Ndu3fk+6s6aejaYetutKTcPPmlWp9RBvKHKeN/UQv2/K
W+XCfcp73pfnrvQt73kq7Trp+1z609suL9aqz5SDbFfzjQ1+r1H7Xpp2wfem
POXpJOW1vXDOjIc07YUQ3+d6Pjb1pGlHLPN9rqejlNf2hduMh389N61+TGv8
pNVfabU3LX7SGs9p9W9a4+F/fb/SGudpvRf/63hIa1ylxX9a79f/q9/1OElr
3kjrvUvrPU1rfP6v71da89L/Om5vzch+7OUo73mNwmGBdYK+XGq1eFlg88uX
AV49MGTFgrrHQomj/FvlEys3HbjM2pmQd9fLl1lYfkWe5FLNPwgljvKTP8xx
qcu+ZaJP+rP8R3V/C6r5+gLiKF8yrGPosftLrZapz31OPbHKy4+tkJOziaO8
debFlDPjwqxasg6h/I9Z51948dtU4ijf98DQQ7d/nSf62wVvvFiz6HcD9o8m
jvL/PPxr7s0nE4U/F8/vfN21Z6MH/wQHVTflaS9uMfU4KI96bs9ZEhFYeagb
5YEnm/qdGrIeo54QIz9xlO9t5HeaGx5YvrThhzjK24Yfqcef9kgDwz9xlA80
/Ds7TD/aqn+Jo/xE07/y3ACWP2XGD3GUL2TGjyPjkOXPXG7n/B4UShzl3zbj
EzjPrbTtVirircRVHJ88b1S0Xa9undZwHAIPnzcwfFaptRxvwCMqxlqbPl/L
cQW8/MfFg8JfrOb4YRz3sE4fFP5gOccJ8PdDdsaVvzKb4wT42apWnRJFf2K/
A29oyrN/gW809bMfgVcy8rC/KI+Rn/3CODvTXvIP3DH8kGfg7Q2f5BnxNRMy
l/pw4qb15Bn4tbUvMn/WJYI8A2/VOHvrfvsiyTPwj6qt7lH2i2jyzPrPTe23
PSWKPAP3q3dz6OE2EeQZeGDuxR1LTF1OnoFPabCs8Izsrckz8CKmPHlW9ZNn
4OONPOQZeBMjP3kG/olpL3nm+R3DD3lWfJJn2Iv1Z6VUS0jcSJ4Zz3u52c+X
+m4mz8DrvXttcL2EbeQZ+LWZpycnz95BnoE3DS6z/WlALHkGbkX+2a9+/x3k
Gfjgc4VDP30eRZ6B1/ox3xtvxC/gvAd8gClPnimnqZ88K3nIs5KfPFNO017y
zPhQww95Bt7A8EmeYZck1V0+c9r9TeQZ+Hebwtu8/4VDnoEHTovv3eX5LvLM
/f93Tx+pWP1PCzwALzj53RP7cxwgD8DrvfbV8W2eo+QB+KBRTbJ/UPsIeQB+
Xews8KDkIQ/Ahxv5yQPw86a95AF299QWTTP3qL6VPADve69M3IRtO8kD8IDb
tYa263uAPACfeaLn6OBtf5EH4LETAo6c7nKRPDA+V/y64AF4YO4l2+OjzpEH
4LvFPwAegOcw8pAH4AOM/OQB+AzTXvIAfSwl8+purYa4yQPwXuO6Xo7OsIs8
AC+WK+HzrSGHyAPwueIHAw/Aj5focb5iCX8PeAC+VPztaC/w+eI/R3uBlzLP
ZXuB9zFysr3AH5h2sb3wE8xU/Q68v+p34HlUvwNfoPod+BnV78D3q34HXkn1
O/BFpn7yADyv6nfgA1W/A5+j+h3+mctqHgA+Ss0DwMuqeQD4EjUPAK+g5gHg
H6t5APgPah4AHmbqJw9KHvKg5CcPwC+qeQD+p4Zq3QG+Tq07wJuqdQf4PbXu
AG+t1h3gTdS6AzxErTvA4364eu1apelc34GPUusO5VTrjpKHPCv5yTPwj9S6
A3ytWneAN1LrDuJ8Jys9CvgNpUcBb6/0KJ6bUHoU8KlKjwKeRelRwMsrPQp4
ktKjgJdUepSqnzzzHITSo5T85Bl4O6VHAb+m9CjFJ3lG3PTnyi4AvkPZBcC1
XQB8s7ILgNdSdgFwt7ILgH+i7ALgFRb8OD7GGUY9Cnh9ZRcAd5RdAPwdZRco
+ckz8DXKLlD8kGfgnZRdgDj0QOU3AF5U+QeAT1d+AODllb0PvLGy64GHKPsd
eOZ/fO104EkHt8yLDutCnoG/UHY38FHKvgbeVNnRwCsoexn4VGUXAy+s7F/g
JZSdy/0vYxdr/4wN/4zyw9jwwyh/iw1/i/Kr2PCrKP+JDf+J8pPY8JMof4id
hj/Ehj9E+Tds+DeUH8OGH0P5K2z4K5RfAu3V/gcb/gfwic/ZZQPbLjm5hHwW
St1nyOXpWD9DtkKfLyWfH1XM8UFirdyeOTtqNboQv4R8Im7x7qnPE7P5hXnn
4d051kXfzO3Z173Z+LcXziefx2X/9MMXw9/b4D+dfGbsmLPgtGV5PFsVnzXE
H5LtkO+4hfzn1biF/OuPzx5aN99c8gn5b7V5ebxw80XkE/KfSG7a5avHi73z
sMj/54SmEcsLhJFPyF+xdLl7zUYvJp/3ehRoFtgkwJNzWf+gW59651t8jqif
UKTN/XCvf2D2m4GJ0dk9zwIeVM3VfTX5fC11XyuHZ3r71/3Ln1lFPqt/FfCi
ce6cnms9m25/eWoZ+eyauj+W03PwzymHo+osJJ9TngX0CdyX81/+Okf8SNoP
c1fk134Yabcn4+Mj72+5utTrHxD5J8Qeyz7u95XkM6vI/9GQfIldB64inzVE
/rpxEzpc/nUl+YT8XTN3HNb+9HLOA5C/d+fTrt7J3nkgy7I8NxpPy+wpNzOx
wtECXv2he1De9oFNsngOrphvFRy5wesfkM+367bNHnM+gjy/nbrv9ppn3fJp
tb++EkGeR2TMtyC6X1ZPlsmRt66Fu8jzqYX5skwLfN3z0almaxv4rSLP79TK
P7hf4uueD9W6NkP8SK3qn3r/qj2VPGcW+d9W+sNXIv/WSUM+qPPQ5fUPiPyF
h90qVGZfBHkuKvKPKPH44JtFI8jzSJH/1xPB814Oc5FnyP+8UuHHSaXXkmfI
7/4reG/CsHDyXMTsN3pu+dWeWH6sVx/+3uxPeipe6TFhX+dNlM/EKfh7ihaq
VX1s661qvvX3hEa9fDcqZZtXf/ggV1BidAbP8GclIxsvdJPnO6dyrYrul9ET
VW1g88Hjo8jzx4Ny550WmMlTWulpq8WPtEXpw4VF/oFKHx4u8v816I2Myasc
8gz5I3e7a/b7xiHPtUT+X1Z1a1Z39lbyPF3kH9J958ySTTaRZ8jfdW2y35B+
1HttyF9kTvO9/au6yHPP1H5/5GyvmBwzdanX/iou+8PVJo7PurPhdvKcmNqP
T530vUePuzY2VvlvnznN9mWoNGH0XtpfPaT+phWv5D42dB95KCr1f5lj/ZqZ
H8eRh9NSf/OX+2ce6POn8q8+c47LPjh4+FT6M7bBrrdmdfaQh2wSZ3End7+4
7j/GkAfzvqfz9F4Rmf2vCpHkweyHX3U6hH86c9w/W8jDXIlX+eLbJWt6tfDa
46b+245VPG7IoLf2q30TxsOQh2JSv98732zYlC1Z+ZlvOJUk/tDX/3/X6Shx
NXy/UsfPPedBx9p9GjTfw/a+I+P3cPsvDse+5WF7zXh44ORPXpA5uArtI0+c
xGOEVv9yi19nr7/FLftxPSaOqbP7ZCzbuztVnninZP1Sy0PvHWR710mczlOJ
h0R7t0j9lUbPOv53ET/6WyKk/gMS34v2op5nph62d1EqP6edbO7kCoOfeP0M
uyQuZeCtTCNGXvH6GWrJ+3q1xBzXpiZeP0MVkeuawdnerRKXEWzqYXsnm+da
2c1z2d4VEgf0WLUXn88rDjrf6NoVpccyvpr9i3qeq/ZGGZ6tcoZntnee7Bv2
Nv3C9oZJPMZi049s703T71Yh0+9sbzWRK86ME7Z3mBlX1kMzrpRdcNfqqMbz
Lam//m3XGztvHGJ78TlkxIRVn1U8xff6O6k/tmaf6smlTyi9/a7VVY3zDOb9
suqb94s8TJE4pk7mfSQPRcz7ZXU17y956CLxO73M+04eskj8zkMzP5AHyLvH
zCfkYYbEz9TLFFnjl8a7yYPMJ/Y2v2VdXmTZTB6ySv0ds9/8at3t3eSBfqaL
0Q2/e7BX2YnPrE/M/Ekejpv50Mpo5lvyUFjidmqZ+Zk8mHX8kbXDzOfkoZmZ
/22Z/8nDbbNe2F+Z9cJrj5v1xR5u1hfyAHknmPWI66nRS/3taLN+cT2V9c4+
bdY7rqeFJJ5I+5cc8dtov4esX//ye8h6Z28067XXHhf5h5j1nTzjc4nRB8jz
MZE/0OgP5HmYyF/N6BvkWdZ3+7bRT8hzLaPP2KLPkOeTRv+xnxr9hzyLvmeL
vqT1Q1v0K+/+kcgr+hh5Fv3N3mb0N/Is+t6//Euit/zL7yH62L/8HqK/2R8b
/ZM8Q37RV8lzEZF/jdFvyTM+ixp9mDxD/gNGfybPlN/o2+RZ9HP7a6Ofk2fR
5+1uRp8nz2K/2PWM/q/tHbuxsRe8+6HGvrAnGvuCPEPerMYeIc9iv9gtX62H
299sXLeiX68x5BnyP1P2I+Q/buwp8gz5bxv7izxnEflnGHuNPK8R+Z8Y+45y
43O4sQfJM+TPZ+xH8pzZ2MX2hmv1/qpcZhF5RlxwBWOHkudwY7faB4zdqu10
O9HYueS5mbGLbbGLybN5v3LZbmNHk2eOi39eaVf+y+8B+bXfA/LXNX4A8gz5
Y43fQNvpdorxM5Bnsett8UuQZ/ED2F8aP4aKP/HzBL/7WvYzi4ZSzp6il66V
dQTlN8q+4cTpSUnPh20IAm/DRQ/catZT8llI9NJHZSO7HUw5xfVmtJRvtCxv
yuT1xx2Uny361cdXHv19KMsl1nNR9L1pP9fZeHjXZbVPfc5pLefFgN8TvW65
nDvDczdJ/U1N/Y7vfkS8NUfqBz5A9K52Ig/qXyL6T6zUD3yd6Ff9RB48N1Tq
DzP187lZRK/o1mBDr687J/K5waKf7Bc+Md4Ki16Ry+jtHG9hso9zp2jGXFvf
XuTGcx9VNvXnKZfKv4N6sC63MnYQ6+8o+sNh0++Weu88eO8w7uGn2mJwr57v
609je/G52OgbbG+y2FkfGjuLOPapB5r9L/L/uthTXxh9hngZseNaGTuOOD6D
jR5IfAXO88o5DvCJ5z7JG7/jbMGwILyneeW5zUSPwnyyV+yjdqKXAkc84xeC
o13AD66Y8PWvwSeJYz+6qNn3ZL8wT0X4n3XytT9O+VF+hZwTgfwof2rT9jq5
aruCUA/K7zH7sCwPfE6tBZf6dIxge5lvQ84ZoV2HxD56IHYH9XPBYY/Qby/4
pfyds+fs431/gTdu2WDS93Wfszz2qTscKRuzMu6q158v5YsHzj1S4vEDrz9f
8M0Zf/Hr8doqthf13Df77Db9/FK+oKnHax8J3sjIw3GD8xZDlZzYRy6v+gvl
64mcvvtBN6yqMt6AV5DnfyHnjNAu1FNUtUvtp1P/R/la0i7Ug/LNUvt3C/sX
5YdIe7G+jBX8hdiDkLOI6Pmd1PvlJ/bF1/I+4rmIPx08YOTQ4sGLKT/2nSub
fXCvnS7lw8w4Z7/kk+f2Fv8M5IyW8t3FXsO8d0TslE7it8E8dkPmp4Xi58d8
hc95Ml+p+c3W8xv2EVRcojc+VvZlwA/mE8vs7xNHv/wh7y/j+oT/B+Z9If8q
ToDlwdsZM5+wPN7f2AO5TufZcZY8M99G1qZ1uhY4znUB9fxucNrPwM+ZehzU
kyzr8vZa42uEJ/zD/sL6u1v8Kig/UNbTdKe/LJ21aQrLY93sJn4JtAt+j1ay
XgMPlPriRrXqPyriPOWvKn6tQp2LJ+fIc4Hv4+uih2wuU90/f9wpjs810i92
UtmvL/oHBwHHfH5+YUTbeuliqBc9Ev9VBfEzAP9e9Jl614+XjPs7ge+dW+ZV
Z8ncdVl/2MH64U9rWXHe1dVJv1CPaizyuk27OE6OiJ5TS+k58F+V6GP0EPrh
5VP8P+QhRvSf04mp/BN/L5vxj9Uy/jHbd92Jd06a/lVxlZecdHdPjKz8dzc3
cKwLRRdk+WCCK5a8NZL6ksQfBXyuyHMl0Xc8oL31fPxUiBs853wkOPd9RB97
v4+vPgZ/VwvhDe2aJ36q2qq9C0RPuyPtBV5C5H2zki+fU2V83hc+0a6CUn9V
8TcCd0v9x+R9AW9zZB4ITqqf8/MxCzlO4Jd7NN/wSbtM2nvFx2+ZYkEvPS84
5Lwk/rHOZtxSfvjZGptxq+I9LllLU8ftbsqD+fbE1WoTVueYQX9IgOillnnv
2L+ZRb+NNu+ddz0VvauyrIOQf7Ssjx/6+J8R53DDqqlw6G9FBYcegvXrpegh
WC8wPsU/7PXPSH/VrdH3u8CJV1kP5uHnSp8Bfkv0GcYDSP03ZN4GXlv4/kPm
K9RTQ3jao953nYcB7a0nv9eQ8+DA8X8fCo76N4rfu7ZpF+XPI+19T+E4/zKi
VOMHYwK8OM9nC47xYD7Pu6cNC5uyo7R3foP/PGRe/qxvjhgd5Fve5Q5W5dFf
neeY8vR7yvwzT+wm4NVkvqoj/cV1X+QXOYlD/l8EB1/gr4noXcAxDusrPU2f
+0b90DO7GX2V+sleX/2f8mD9jZP1Gjj2ccQeJF5F1rXYxeN6HhmdxPm9m9jp
4u/le91f9rnqKfsOesibondhnOO97qHsF6z7XZX9Avy0sl+yyTxwxMjJcRIu
ekuI+A2AbxX/6okT9eplyLac4wN6zgmxvyA/9o/qq3nsJ1l/q6l5DP2y+Gan
79bv3RqEftTnl6mfyHzYStZx8N8e7734ydHeU6JnfqLs1oaIC1B2Lto1UuxZ
1H9X2lUsJLzysC1HOX8yP9a+tp1+vOgh/qXY77smTm/ea9Ne4idFnpmLqlX4
OZ03jjEUeR1kvxI8oP5eCzvlGZR5P8c5eDsmeVqoh8j75VF+D7xfZwTH+Rzo
xflqZC5TJNNSnkcCPqhvhXXvBYfxHAtwvx+Tmj3L482Xy3Npv5/IPz2vN18u
8NuRZwI/+mwJ4+aBl8l8st6MhQsYRw48YsCBHHlXT+Z7C3zvy//+tWAeV+Bj
TXn2H/Cipn7GpzKeyMjDeErgbiM/4/9UexmvBryg4Y3nzeDvrB/0fb6kIyvJ
J/Aed+Iyvsi3nHwCf+2toW+drreafAL367j2QruJa8gn99s3lfqo1JDV5BP4
i5XtM62cvpx8Ak+IWlwrKmwO+fSNl/fe+8PzK6Y8+QT+j6mffAIPNPKQT9Zv
5Cefqr3kE3hjwxvj1RRv5Bn+46JBN5uU2biWPAM/vzqy80Pbm08beMHD+V/u
qbnBex+N4LnzLtnirrHRex+N4CmJ87fVcTZ676MRvPHP6fpXqrDBex+N4Nk/
rrSy+C/LyDPwrKnfx3jvoxH8WbPU8t77aASvb+r33kcj+D0jj/c+Gl/5vffR
CF7AtNd7H43ggYY37300vrw5vvmc/T2u0u0aVGgcQZ55bmlZ8Mke+9eqPM/+
nlJ+nrvBA6NVnmd/z57qNz84m2mryvPs7+lcbsiHecZsV3me/T3zcuX95kjt
bSrPs7+nbYH4lu9uiSDPwLOkfl+m8jz7exqa8irPs79nhqlf5XmmPCrPs79n
r5Ff5Xn295Qx7VV5nv09EYY3leeZvJFnrD8Tex4tW/JlFHkGXjLh6rwTlTaQ
Z+AfDG/epfVGN3kGHnT1/uSUizvJM/COz/1HN6u3lzwDz3B51t6A7AfIM/C8
s/+53bdpLHkGnin1ezR5pr/clCfPwP1M/eQZeDcjD3kGXs/IT55pf5v2kmfg
Uw1v5FnxRp6xHp476FoX/lsMeQYeNDB03+w6G8kz8IuRA1Z1WL2DPDPOLkuv
fHt+20eegT9MVyShoP9R8gw8X7/2lW/vPkme6X+KP/lWp5UJ5Bm4Gc97yDPw
MFOePAMvYOonz8CfGXnIM/CzRn5vfLzgV017yTPwy4Y38qx4I8/Q+5ptjqrZ
v7mbPAM/UG5LkYIx3vs7gP9Yd+iUMd9776PhfsiF2bOzF4wjz8Djdvz2rV/m
v8kz8OGnVuQa0fsWeQbecFRYvrbVbpNn7nv/92uI9z4a4KVNefIMfLKpnzwD
TzLykGfgvYz85Bn4ONNe8gy8teGNPCveyDP0aNyjBBz6ZgvFP8rjPibgKH9Y
9QvKfyf3MQFH+dGqv1C+pNzTBJzxfaofKf8r729yuQu+8v4ml7vcK+9vcrmf
p+qHF9T9TS73tVfe3+RyN3/l/U2uNO5vcrkryv1NwNGuPqp/UX6U3OsEHOXH
q35Hedz3BBzl26nxoPqRuOpHjhPY0RfVvAe8jpr3WF7Ne4zvkHkPPABPUvMJ
cD2fEFfziZKH8sMOm6TWR+Al1PoIvJFaH4Hr9RF4F1kfMd6A51PrIPAbqePt
9yCMK+AZ1XoHvKta74Dbar0D3kStd8CnqPVO8aD63d9er/Q34DuU/ga8rNLf
gO9X+hvwbkp/o12r9Dfgnyn9zfccrffeGeBNlP4GfJ7S34B3Vfob/YtKfwOu
9TfgWn9TvJFnxikpewT4BWWPAC+g7BHg2h4Bru0R4E2UPQI8p7JHfM8le3kG
/kTZI8AbKXsE+F1ljwDPq+wR4PmVPQK8lLJHFG9qHgiwGyr7GngvZV8Dz6Ts
a+AvOvja18BLK/sauP8qX/sa+N/Kvgb+LHV+mECege9Q9jXw9Kt87Wvg2r4G
7qfsa+AZlX0NvJmyrxVvjvIL2eLf0P4fOw3/j52G/8e+92r/j/3Oq/0/dsyr
/T8ybkO0/8ee/2r/j1351f4f++6r/T+QX/t/7Bchr/T/gB/yCXyw8Zs5OGcF
f5F/ifcXPMy6zMK5IOC5Vn9X+EmpZRbPseCc98C7zztPW2Lh3AXw1w7nemp/
vdDCOQTgw+pVPVvw0RTrhOwrAG+Zes9RG+uG7DMBDwmZ1POn4fMdxD0Df9Fy
557B98IcxAEzTvz27nojE5c6iFsF7vrJbjTTbxnOcRHPP23FiRI5ljqIqwM+
3r9lhz/nhDk4B8U4wSEr/rw2do2FczvMb1Gzvmdk8mo5F/GYfq0j5QfuPb5w
hTVH9mOAx+T53fntwXzZ79lDfHXqvVrBFuK5gbesnn38g6/DHcQ3Ax9wdnL/
dEXWOIjHBV41/Q/VmtRfjfNsxBNyF8nTs/Aq5o8Fnu95X/87Py53cG4H/pZM
pYY0rHZ1I8+x0E91ZW32D4pHcL+B+IIBw6e1WmVh3xd4jyYHep8eOYZxzMx7
sf+PqnuybsQ5MeLZVnRbs/+XDTinR7yu581D52PXOYhrBD58f50+/XuvdnCu
hn6V/kf2V/9pu4X9cuYXGVrvTAl3tLVW9pmAP0y9p28O/C/0h4yX80qIYwa+
+97d53P2bnIQdwv8u5DH24O3b3S+97l3w99T99KcCsk1XYx7hh8A530Qpwu8
17iPel/sGMO4UuAPlh+Pidi9kfM77Fycl0G8KfD+92eGj1jnjZ+HHn5dzo/g
vCLjEYosmfbJvFierwOe73rm5G7fHuJ5MOA38zxIeH/SKZ6PAj5vR9LRK0uu
8bwQ8DUDDu98uvoOz9UA/zD1XgOH5zGA571zKLrrmDsOzicAXxFbd8WuN5Nw
no34w+Bs5+puisd5QuL2m4sS6763h/MA7b6Hnaom5NzOeQB4Def40rhtiMMP
oH2B8yY4Z0i742nclAJRe3gujvFHwx5+cv1YHM+JAb8m+VFnyvwAfMGCHOXf
iTzO80XA50p+YJzHAN7/p/dunZ75F+cH4JVv5V7f8/mfOG9J/NqOTJVeH7OL
8wPjE8ee7Pz3GjfnB+CupjGHdr0VxfkB+nyP4Z2bPo7Z9X+dczP4vIeTetkP
9nJ+AL65WMDVsB27uS8L/P7oX46WeXs95wfaQX3n/NGwzx7OD8DnJx1flvms
h/MD8K8/O1ZsRqsYzg/A3TMvZv2o10bOD9CTNx3cdG3Du9tEH7hLvE7EiuTL
tWIsl8wPwKNS70sNtzAPAC//wdZam9bHcB4A3nlV4e8qPI3kfT3AE6YP+fn7
f1zOCNl3hD4ZstXJcnPCOskrfZp4zwdD3mx3ONRCHDzw1yf5beu91uUgbhv4
r4V62K5ff3diJd4F80Sf1Hl4hoX5Afj8ymcL3Oq5UvQH7z7tMdMvTn+JU+G5
Db/3yj44HsV4WcwzZ2Q8I86GcbOSRxpxXcBPynhG3AnwH+U+F8R1AW8teaER
R0j/p+RP7iT1YNxeifzvfXZuJ1r4xHh4bORHPL1HrfuW0pewz8g4Y/CAcY68
xvS7xlaKSth1zEJcO8qXG5f+t4Od/7AQ1w48Wt4LxKOgHskD743LFDy8Y8jD
CzP2MP4b9awz9TD+G3gJ81yJN7rBeuaaeYbxo8AbSBwIzt8yztTMJ2wv/H6D
l4061XZtMuMSgF8845z485P7jGsB3uH0jXWb/P5mu4CXMjj314FfNfVwvxn4
aPNcnmcG/o+Z/9X9cS7393J/nO89cS7mofW9D87lXij3wfnel+Zyd5V733zv
FXOlcb+byz1X3e+G9eUH8QNDTuBDhE/YHYyDU/5h4E9S7biTvNcMeGfhGfYI
8HLiN0a7gJcV/mGnMI5A/MkF5JwY8Kdm3We/AB8j/eLrb0mxCsr+AuItmJ9D
3gtff0uKtCuW7QIeb8a/5euHSbGWyb4Dzi2gfpe8F9/K+TeUf8usyw7ifXne
wrzXzKMBu2mCzA84nwB8rsQDq/gE2FlWRl/7AvUwvhbv19Oehcec33qS8bLA
Hxmc5cHzFXm/UB74DXlfYFcCvyD+/10+612Kla6X73OBP5fn+vqvUizs16Df
gSebec/x9aelWJGyf+TrH0uxish+0AWZVyHnsXEv/U7al623ZJ4E/sWB18pf
y3WPccPAu/9YZOqO9gmMD2a8bdzU3cVSzjuIyyE/fpO6vzn1Ls/5QJ69sh4V
VetasqxrXdU6VVXWqe1qnfpW1inEV2FeWmL0VcYDMW5a4vcQdwX8F9GfkacA
+BnhB/FMwAOMnmwhjhn4WtG3EccMvJXwibhe4IHxqbxZiOsFHi/6Oew74LWE
/7kSFwj8NVOecbHAM5jyjIsFfkHiexEXy3qMPDy/BHyZaZfzj7zvwFuYdjE+
leuR9DvOLwGfY3h24mUe4Pk8w7ODc2uYz3PKvs8stb6Ml/VljSpfQ8p70lh3
EBeO8ZlN+vGQWo82yXqEuGfaR9JfK9Q6NULWKcQTo/yA9KZfEE8MvJr0S3Qa
6xridFF+ifCPOF3gbYV/xO2hnvqynzVRrY8rZX1EXBrqCZd+QVwa8EvSL4jz
xvs7XfTMnQoPERznQIDfEr2xiMJvqHvNmAeoQ9eSI9733osD/FGTfKXiI+6q
e8pc7o4S/+Z775iXT8Tpop6Xph7egwJ8tnmug/wsqKec7GN+IvoP+Lkj+o/v
fV4udR/uee5LHom7fjBz4t2gdWq8/Srjzfc+L5d7rbrPC/gidT8X5Dki++CQ
B3jGpr7tBT5f2ovzhMzTLPY+1mngiIvGuVPUs1DmW+Z9Ehzx0rOUvt1U3bcF
vIXgkFPryTgHCx46yX7xWPU+tpD3kXHYUl9TiR9G3DDwRnIP1DSFfyw4xhva
NUONT+bxkPHpe7+Syz3llfcrudwhr7xfyeWuI/crIQ8C9RO5n2WWzEvg+7TY
WTh/CzznT8beh16Heg6IXge/B/Dxsi7fF3sEPJQSe8R3vy/FeiTxLTg3i/Gy
VexZ6L0ov1bsqSPKbp2q7j9ivKrgvvcfudxlXnn/kctdSu4/gj2L53YWPQHv
EdejswMPD2r8F/NKAF9XoenFf7afco5KfgfGgXRaeC62znHGE4PnuaLHIp4Y
eJjEIUN/Q7vOi/6WT9nX19X9RJD/jNi5VdQ8sELmAcRnA+8ncQuvqXFVU8YV
cJ53VPcQoR9nNBm4NnbgDvofaO+Lnob8HWhvgdpZBz/8YTd5Rv2fb+7209jq
h50hajy/UPcN4bn17/YrkL/qPnWvkMs9X+4VclR7u0p7h6jyy6T83jT0AZz7
Am5LPAnO1bC8wZnXRq8vvvfCeOu/7nMPixe/7HOfiLce3/tQ/v/rT6uetJ6L
/IO8h8H4qSzkOQLeyfi1HOQDAp5e8uwhXyH2C8Q/xrx73Hcw/jRrkuifwD8x
/jcHeX+YZ8j460TPzM14UfHvWcg/CLyj8QfCf0i8nPEfin10zJuX1/gbHfQv
8GrGP+kgjw/wKOPPZL5IjH/H+D+Rd4N4X+MvRd4T4uJfhT+WeB3jj7WQtxHv
y0bjH0a+D+J5jD8Z+VaI3zD+Z/jP+d4dN/5z2t3MD2r88Mgz4o27M3575Hkh
Ln5+7F9wnsxp9i+Y3wT4CLPf4d33FRx5t5A3E+OzuMSnIf8j8C8lzg35CoGP
kPg05KkBXl7itZBXBfhIictCHhDgHST+Cu8F5r1BZn+H+bmIy/qC8U9/u9k/
4vgH3t/sN1m/yfhnPj/x92L8A68sfkXk/YR/W/a5LOSvBD7M7ItZyLcIfJ/Z
R7PCfNZlfzvR7MeJ/+Eu8Q1m/86Z5uN/8Ldlv4/jH/7wEWZ/0ELeTOB1zH6i
hTyPwGX/0UJeQuB+Zr/SQp4+4G9L/iLkOwPe3Ox7Osj/xfgZs0/qnJD1Gvhb
Zl+V+aeYP8zswzLfK/z2Bcy+Ld874EfNPi/fO+CVzb4w8kwR/9rsI1vIMwi8
ldl3tkJFnwE+w+xTO8hfBnyj2dd2kM8L+AmzD069Efgms2/OfE/MC2v22Zl3
Fe9lAbNfb8n+PnHZ37ckHoD4HRMPYMEPwziNT1LjB3huCvh0E29gLRN7mef1
TXyC7P9eJT7IxDPQnwA8j4l/cJBXC/gOEy/hSHwFcYmvQDwG8XQmHsNBv2Ce
7GP2+yw/pS/NE30JeUYwD/SS8shfgH2N+ZKv4AfZr0Q9OWS/spjs89LvJPu8
K9Q8Vk3mMeiZtPvELoO/l3HIxg9j4Vwx8Hyyz4vz8PRzSvnflV5UVPQinA/n
PrWcs56j9KUkibMNU36JXuKX2KXsuDZixzWR/WWei5f95RnKjzFF/Bihyi/0
jfiFrsv+LM+Pyv4s/IGYV0U/tybJfijW3xWzGzz0xO5ivAjPhW26XXjjRW9+
aeBXdg7MNKmYNy868LnrF1ZMfsebFx14pdsxfun3L+Z4Ah4UfjBqS5N/5a3y
vOf/8IM6Yyew/cAfpt5HNoh+fOAT4zMvnRXnzSPNc3YHwzPUv7KY+6zAc0e8
meNJTW/+c96v8mnzbwdk8+Y/B/7t6rotv93H/MbEkZcD/IC/WtOKrK/bcg35
AV7iw57FBhZaQ36Af3f3wGsvx68iP8AbDho97MvXvfnTgF/8Ifxw93dmeu1/
wZEvGjzwXFvDBoOu/LGKPPCc3ZG+AQGXVpMH4G+63pjQ8oo3HxrwZgUy9M86
3psPDXjeX5b2CgheyXgX8HFsXIFdBf+jD6i8fJ7gfAFbv/nDm5cPeNk105t/
03ad914nwZv6BW3v8U2Y914nwVvm6p15uf9IxtECr9qzZOTflTZ672NCXt7Q
ERs6Vvfm0+N9QUsa7lw2nPl+ide49+zq4axr6V9A+z7u8HTV1z9tV/nn/T0r
6pct8/2TGJV/3t9T807587kqrFf55/09hTJ+3rp1/UFBkB/4ryqPMfBMsVUm
l5uzWeWN9/fEeb48cSd/lMoD4+9pPbu0NS92A+thnieVB5jnmE6G9cj6PfOC
EnfFJ3zW+v2oNOOCfPPKpjhlu5SoMD1087/ignReWfqN7+RfkeGoN68s8Fxn
gjtGz/eeBwf+zc50iVbxY//yv4m/jnob9z1NefIAvGn1g5fm3PTmy6U857pu
unbDmzeVeUE+KrOxXcetfA913A7HjeAbCubr8/jv3SovaIpV4c6osovaHKb8
zBuxNDK+fUWvngq8iinvzdMuePfu7yzp9doflJ95A756c03t37z9AjxL7Ygz
J+I2c1xinihf7ocJHb/cRXn0egF5gA91Dx977g9vfmngf7vy1Zq7bgflAX7n
3euNEj5jnmHiVY8vLTF9eJTKO+Fvn//qst104ja+X8Cvd+lQ/u93tvL9Aj7k
XrsvEytvUPcR+DM/qi9v/vb07X+8+2PGLYo3f3tXwq3I5tFRijd/e0v6Tm+k
u7+BehLqO/VXuRa549ZTHuBzNkSkPIlfQnmAI48o46EFj/m4Y5kzp7zzD+PM
x76xoE3LtdRv8H+LX9aM2zt5lvc8j+CDU/NnhgT58hxgp9Rcm7/nwpWOWk+Z
BxLvKdd/U576FvAZ5rkcr8AziD8E9VBfMPJ71yHBt5r2sn7gvxnevHl1BE8w
PKt8Vv6eGNMv6p6R/64/qf2o7hnx90wz/c7nAu9nxo+678Pfc9GMN3Xfh78n
yYxPb5yxjN8qZjx742uhB5nxT3noxzbvC+sF/q15v/jeAT9zuXTUF8V2e/Po
ynjMaN5rPhd4IzMP8LnMg2vmDT6XeQplXkJ7gb+bu9PUDFF/qXz7KU478XNi
vAJ3mXmPcmL8TjfzJ+UE/rWZbyknzy2a+ZlyMo+IzP96v2av2AWQE/hM8XtD
TuDZzfqi8sNfcILNepSm34b6orxPr76Pz+Xu+cr7+P5jX7zyPj6Xe47sm/ie
C3K5573yfj2Xu+Qr79dzpXG/nutf9+thvFc06zX1Zsa3mHWf7WI+GKMnWL71
+NutjL5h+a6P/vYRo5+o9dHfzmr0Gb6PwGsbfUnlS/e3Vxv9iu8jcNHH2C7O
90Z/ozy8j9Hoe5QH+GmjH7JfgIs+yfUReBHxz0B+4I2Nvkr5gVcy+i3lBz7Q
6MMct8ATjP7s+PZLgP2G0bdVvwTYop+rPO0Bdj6jz1u+636A/TI+Vf9X636A
vdvYC2wXcLE79L0z9sfGTlH52wPsUcaucXz1hwA70NhBSn/4zzps7CZth9pD
jP2l7VDb39hr2g613zD2nbZD7QrGHtR2qL3Q2I/evP2Cv2vsULYXeENjt2p7
065u7Fxtb9oLjF2s7U37srGjtb1pbzV2N/VatGNDjjHxDUM8XMeBd2g++qd/
Li8M8tUTnlvrTHn+P9q9VPRMfMfv33w6PmzSvL308wIfbHD+P/PMyb6wb35U
l/tLyY/qm7fH5T4kcQu+eVD/o4+oPKj4PZPxt7Acfj8zoHiWijvXMR8X8AMy
//vqgSlWyLEvzi7M0izId9w+t4ZJu5gfxzffpuU7z6RY4YY39gvaN7Bq+zkF
yh1xfPXSFGuwwamnoXyGoO5rR6RbzfyK+D/ED6A8/SLB/23vEsrPdU3iGfCd
8Q/ip/K919Xljn/lva4u93yfe1298RLzpH7IDVyeq/KMudxdJc8Y5GH8sIxD
3/nkP/Nf19WL2v66nf3lrS9i5IgsBdh+xbNaL1Ksb4R//L/K58z/x+/n25Ry
T3n6h/V/AB5U6Jk=
   "], {{
     {PointSize[Large], EdgeForm[None], 
      GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJxFm3kcVcP7x++5d86cyJI9ydKqsoRos5XSQqW0UYlSWUpKWu1kiUh22cpe
oWyVCKHsayTJvnwpUdYI/T5vn3m9fn/M6/ncuXPOnXNm5lk+z3NrDTzz2OHl
Uql0RiiVKpJDJLeRXKvOc9VOFt5GfU1jqVQ1K5WeEj5HcrzaFmpR/QMkv89L
pQWSN6kdrnaYbjZM107UPV7QNf2FH9SYhzR+iPBr6ttP7QfhhzS2p67ZUm2Q
Pu8fjM/XtW/qu4Hqi+rbQ9derf6qki8Hz+1/uudb6ntAbSe1V4LvsVr9b+ja
AcIl9bXVd1Uy36uV+odLXqb776nvCvW/pr5c9z1e+DNdu736qwuvUH8/ye15
Rl2zrfp3FP5Q/YMld1Fbq/4T9fkqydt0zz00po76v1RfTeFawp8L91e7UmOm
aUxf4cuEbxb+Tt//T+1jtZM0/gvJ/pI/q92hMeM1nz4af6nwTWW/g93VftLn
mZrzLho3oiiV2kt+q74HNPYQteOFx2p8b42txm+U/Hzbqn0nvK/GXym8l+Q7
Gr+V8NuSO+qetwnvILlUnyvCSyTn6HNvXfe0xh8UvB/e4r0Jtxb+Q/hgteM0
Zox+d7nwCOEt9f3k9A5H6vOL+nyi5Ed6rhc1prvwvZKD9H0NtVH6fKh+a5Vw
M8mRulcPlpH3ob7LMq/ZQWr/qv9YtX3YQ5Jnaeydum+m7+6QXKz+bupfL/mi
Pr8kvFhyqVpZY+7KvWcPUNtfbZ3GcR6eYu+oTWd/quNQfbev2lR9Hqj+GZIP
s7d1fePM9+Q3m2ae6w0a877kZxrzmPouVTsw8zyYz/OSa9XeFf5UY34S/lz4
R/aV2g3CM9T/hJ65q/Dteg/Tdf0V6dxNU5uo9qe+W8jaSR6m8TdpHruxx3N/
30RtQ8nvLGY+D00548LLdN2S4L6qkkemfXKmPr+kzydJfqL7PKNxrXlu3b9p
xWt3Ttk6Al1RR/KV1H+/5LMVz3kRUvf7p+Rnfk6fj5A8uey+v1N/fY35XfJi
tcZ6ztf0uZHkfI2/hjMu+YHm0Uj9z0iOlqyt9hvvWZ//kJyQe8+yJ9gPg3TN
9ZLT9Vu/Ba8X63a42hnCl6q/pvD+7B/hXYUPEO4uvJtwE+EewtsJNxM+Tnhn
4cOE+wtvL9yc85Tuw/sZIFyD30AfCO8ufKBwT3SC8EHCvYSrC+8t3EV4mubd
hjOrOT6qZ+7AfkM3VoxP15gDhI8SHiZcN/1uH+GdhPcS7pzm00D4KOEdhBsK
Hy28o3Aj4U7Cuwi3Ej5JOKTxHYW3SO+hm3BV4f2Eu5at4znXnJPFas+rDdZ3
LTXmFMkLNaahcBdhjEgD4c7YEuFGwscInyk8S8/TTriJnm+2cHv2qvBeaZ+M
4HwJDxW+hGfUd22xF8F2AT2DXmuCLpYcpzF1Kr7PqcK1K77/KcKbCzcWPkb4
d+FNwi9Ivqz2VdqfjwfPbQZnNvhcvMpaqZ2AvtW1B1VssyYIF8G243X13Zx7
D9+vvnr63EK4r8bUF24p3E94f+GOwkOFhwjfKHy3cHfhc4SnCOfCOws3Ey4L
7yR8AIpHeAf0Gb8rvIvwwcJRuIZwC+EMHc1ZET5L89pT7Rd9roK9QXeq/2L1
HaG2m1p9zXUvdL6+/63iszYP+6A2UfhGjf9FY+5M5+huvf/RnH31/aIxPws/
Kvl98JkapTENhdugf1h/4aXCnSWP1ecJGnON7jlKfQ3VfuXMq/86ybvUv6Vw
beE2wpsJ7yp8uPCf7EX2l+RfjBM+pGzduVH4L7UN7FHJ5qwv1wsfKLm17lNX
+EhsOnZI+AT0k3B94fbC1YTrCbcT/oO9gi5M+7+W8BHCv6pVEd6Pd8IaCO+L
vlLbVnhPyX/RC8INJTdx9oT3kvw76cN6kj+zZsJ7S65nvYUbSf5Ytn2pi84v
2+eqL7mu/J+bUmoguZU66wi3LdueYdcO1Jdv5H6HZ0nuo3dyiNol+jxN41dK
fqOxdwivEv5O+GbhD4W/xC4ILxf+QvhW4Y+EvxaeIvyW8ErhW4RXCH8lfJHw
88JvCF8j/KbwR8I3oouFPxeeKvyO8Crha4XfFv5Y+F3N7yjNbWu9gHnpfOFL
9CtsA27V9++rdcbeqP9JjWklvFx95wfrrnY8a7KPn/C7+n6/zLb2Yo3ZB12n
MRdqzHPCr2vMBdge4dfY/8KLhd/EHxD+RPh74Zm6vn3yFd/R9TUl50p+l9uu
3i85WPcfwpwl1+vzDsKzJf/K7Z88Irlz9D0eEl6W2x49mZ6rOX6oZEW/14Gz
qTY/6ZD6um5Nbv/2AckW6r8bP0dykub5qub5vq67Uvg14Q/Y/9hp4XeErxB+
RXiZ8OXoNeH3hC8TXir8rvCM5Ev8IDxd+DPhNcJ3CX8qvFq4lX5vtn738OBn
eRD/Jvo9nITOF66idi5z0JiDtXZjdf0F6jtEeJzwhcIHCZ8qPF64pfAY4fOF
WwiPFD5PuLnwCOFzhZsJn4kexG9Vm6vfqinZVP2noTuEDxOeIHyx8OHC5wtf
Inyg8CnC44T3E+4qPFK4U+G9eK1w58J7dKpwx8J792rhowvv0SnCRxXe99cI
Hyo8Xvgi4f2FuwmfJXyAcD/hs4WbCJ8gPFq4sfAxwiOE39O72kPzf1zyWPXf
rv6b1L+NcC3hvvhs+u5O9hs+dfJR8K+vzu0bsedr6fMi4ZaSm/R5rDDKY6Pw
SOG/JTdPsQ8xUHO1T9Dvkn/ouzPR88If5/b1V0l20Byu1hwmq//T3H4/8c06
4VOFdxW+V3gz4S/R+Wp5uvZ4XXu3rr0q93ngXBDf3cc8sMWS9+T2wYmVvsgd
I3GfM3Tt1tovXwlfEOx7tBf+IXe8tDa3fmgm/LLk1+me3PvzNB/mtVCtQebY
52m1KbrPyNy+ID5hLd37a9ZW+FfJj4Pjhj81Zl5uX3KI5KPMQ3gQ82TPCu+q
sVPRcehq4TnJhp5fsj2tmfBTue9/pmSvin3/O3Td87njgl917VzWVXh98H65
RfgejXlWY+7CfkU/yzfseb2bdyuOw2ZKztPvPJpZX7CmUyW3lHyi4jl/Jnl9
2Toee80evFX4XnzC4HmuVN+c3PM9Ofc+YD9sEL4B+5Du/2ru+5wieX1m/4A1
OEL3aZn5HfK+wbzfO8u2NWvUPz+z/j0s8/PzHr5Hl2Tehy3UPgyOG37U/Q/W
573VrkUX5/ZBRki2Te+6TbDPjj/Puq4IjhMf0Nwfy71GgyVXqv8s9g/vJPd6
HY3tCo4jD5F8UN/tzG8X9jc4j1zPe8Xn4ZqZxDYlx4PE4NOE7yv73D8l/FLZ
54yYHV8H3bZA8sWy9dBC4SXC89M75F2iJyYJ36L+6/X5SX0ejG4I9sUexx5i
K9Leqh3sj21Q/z3RMc8CXbdnNG/wnb6/nX0ifC3nK3M8RpzGWcQfHqzf2rvi
+JKYmPOKT3uSWpPctpKYsp7u+TU+GGc2c+yNDbs3+sxydptVzJ/A8cCNcO64
5qBoX/u63Lr2AeHHyt5T8Bjr9bmG5rqr8McV6+yZ6ntCY04XniX8pPBzyVfB
Z8E+PMg7KdsOzBF+Gt9G+FHhRWXbirnCz5RtQ+YJLy7b5swXfqFsvYjPif+6
WzAH8qm+P1JtrPqu0pjGwXzMI/iAwZzDBxVzC/A58E0f6fOPknMltwrmQ94X
fq9iXmQ2Po76bmZ/qrXD5qh/Mu9KeIzwlcLvZbZf7LP3g+PKQu/vvuB4kLh5
o8btIdwq+SQ877Nl+8XHZPaNiW3B6DfsAmt6S4pNumELgn0pfCr0GH5Lx8zn
nXWgn+fhvfB+0H3wUozhXfxb8b7Gl8dmHZ35fPH+wPBIoey1/SnzPkU/oIOe
SJgznJV9Hn8T7qN2buYzj25HogM4n5w59Cvvm/eOXn4oYd7/27l1CDr1rdz6
Bv2wIHhvw8ngK7VNe5L7nJyuhXvDP1lTst0ZKLk02KdiDLzf2vR9uWweD35y
O3jB4Hmzvs+kc4EewdfhnnCJ3+TmOwcWjnHQnw2C98kJmbks7Bu/Cze5TTqn
PP9mac4DE+6W5n9Exe/gCs2ndcXv8HLhHzLrvTXoT3yIzGe/HMyJwY1VS/fH
ZnCWmQM85D+Z9+r6zHE6nCznuYmuHZc55oWHHC68e7CfwLqgR//JbT9P1zPu
GOwPcBbWJTuCPfkx7alNmX3bMZn5lkq0b4yen5POEeepTrDexcb+mtvGnlw4
9uRa7Cx7flTSz+9KvpPuubfu+XpmfbU2WK/ia91etg05MViHYpuZ38Zk3+cl
/51+dC76e0TS4fjq4D+TjzYqnTX8bjgFdNwsyaFq65JOOz2zLYFTgzuDN1uY
Of7cmvcfvY+G67meyjyG44kdZ5/UTTp2M43pX5g7GZ/WZXrCcCmsz4TMenv3
aA4WvQFXzHzgc9vp8wbhLpI9gjmtTilOGpeu3ZTOEefp3iz5VyVzfZdn1vVI
Pg8omX/kWYijm1fMk59HXJCZV2Rut6fx8CbbpzPCfqua3hvX4K/1yGyr4EbA
8POvBvND++MDR2P6lmeONdCnj1W8VthJ9Mr1Sc8sD+bkq+u6WdF7dqTe4QHC
yzRmP8k2FfMSk7AvmXnbL/S5e7AfgQ0+PPXD5T6b2W9ZVrI/8GRmX+jDzP72
7LRu81I/68m6wpk+mvpZU/QW+ovY77B0T+LQmbnPPz7tEsmXMp/b68ren+gN
xs5Pc/gss890Le80s43B5+M9oGebpbOO7ee8P1zxemLT4NuJI+ABWJ870hpN
ya1j6qX4gr4luZ9lWtqf2+m78yS3SvEI6wz/3Tp4LnA7+0THobz/rSVnZF4P
uKCv+F5r8Yr6Xs7+/17IgcSLFfu6s/Xc3dJasCYNNGay8PDce58zQCxBzoD9
1Ch4301Pe6958O/iG+NX99Xnn4kHg3U/+SLibeLuX4hNMsdE2C9yF09ntsHs
WfQ7Pg8+ALmhlsH+Ivq+VzAPQP/qknXqfWn8kcHrTFxMzE8f+abTMv8ev3VU
MGc7SM87Ozp/snfhGI3745/Cp3PmyEGtJH7InO+Ymnw8fL0HUyzwbtLz2Cbs
CPEa18LNE9Nx1uHjM93/uMyc/Kzkq+Cz8A4npXdLHI9eQ6exH19Me7JVNIe7
MFgHkJNApz2Z9vpFJccC+Kuf4C9UvB/x1d9LYzgLNaJjImIjztmCdAbRtQ9n
1r3wI7zDhzX28cw+P3q7Q7DeJU+1qmKfondaH9Zjp3S2OLdwPZPTuqB/Xsg8
f3RK+zSetWMO6ALyNy0qzi1ekDhDdPfGpDfRn0dLHh7NY9dO/AP2ZZHm274w
/3IVXIiuv73kmG1W2bzosdh/tY907aiy5crM3By5UTA+c5/gPd8v6T3O+Nkl
67H3M+tG9CAY37JX2pPsT3Kje0vW01xWZP4N7r+v5tGr5N89MPo7uPTJwRw+
3P/1wvsKH6f+64I58OOj7Qg+xoo0H3Qfem9RwswNuTzhqWnOU5Kkn/k+Es1R
nVj4jL6Z9AO8Ofxez+C13C3tn9bR73Bc7twmOU72zaqEyXWyJ79Na9FWbTX7
TXLz5Kfhr32TeQzPj+5kDDHn35l9m9plz/P7NP+r8BUke0fHpYytl35zVZpD
z4rXHf+CvUmchn9xZ3Tc9kPaI8vSfmPvcwbw8+cmzFmAtyR/RY4RHwefBn8G
np2xxwU/F3ODq7kkOBboKfxWNDfdS3JbyabMOcVEMzhDwmcTKwrPFR4tfC9z
EZ6M/yr8Cryo3m814VN075eE38POE+NrzAv4BomXriXcGlsfzbeP0vhRGnO3
8JyyudbFwm8JXyX8tPDLwkMr5jceEJ4o/Ljw83ASwo8JPyd8nvDD6ITEWxIv
LxU+V/gh4QXC5wjPFp4vPKzivcE5O6PiHPdM4eEVn7VZKZYkTr9f+OvM+4A9
cJv6X2fPlh0n4Q+hH+HbiPGHqH95dL4N/u224PzdCfBdwfmvAcL3BOfpThKe
EZzXO1H4huD8Vx/hG4PzYuT37hY+VLi/+qcFr1e/aO4dnnY5Oif4PZNPwDfG
T4ZLfik6x3OsZKXi/dmB9Q3OF7A+5wpXx25qzOjgNe0WvV5P65pnJX8re0wT
yQXRuYrf0h7AVyUfO5G4WLgH+z/6TKwKbmDOFzafs8T5eAe/V/3D4DODazaG
sz+D83Fn4JsH5/tOF36DeEF4aDR/h424X/iz4LgYXvSL4HgcbvZb4fElc6oh
995mj5Nbwpc7E641dx7hNuxscG6laW4+9WPh/+m5YuG1h1/dV9+9of6b0Ze5
3z/rsF/uXMat6m+Umye/Qfj04BxNM/UNDc6vNRfeP3fOYprGnBqc3zlIfY1z
5ztuia5Twaachv0Mzg+eGs0BUg9AThk++xH1L9Q8/4rex/DbDdVe1Zgx0RwR
uoG8NpwYPBv29qfgmhB4qR/xh0rmnOEP4dDGsncSlwh/3jT5SPhKlcRDwrH/
HcwNwp8/FpyTHST8qHAn4YHCc4PzsydH170QRxAvPhecVz2F5xLuyzkS3ih8
c8l8+1/B3CY8P/Uf1IEMFv4n+JxyXjnDnOUFwsOCc5QtNMfhaW+zV2vlztHA
ve8hvKhkfj4U1mvw1XvmznfA4dfNrZfQT3Vy56Tg+avn5oiuEK6RmyOaJFw7
dz4Inr9mbn4Pm74zHJ3w5dj93PzeldEcOXtpRdm1N19mjjepdWmHPdO87oiu
qdlVuHHFz3522TUqX2Xmh7EfYGIb4v43MvvlrCH1PP9xoZnvz57YNbeeRF9S
e0X+t6X6tszNoZH7qJqbNyPPMiI4/3sIXEtw7vhg4ZHBOeJDhcck/YM+GRuc
Y22t/nOCc6BHCo8Lzi0egU8enDNtIzwhODfaNrdt+C8nK7xFbn6P/MhZwfnl
w9TXMHfu6Xr1N8ide7oO241fXnIOaLPc/CE5IxKp2AnyONvn5sHgw7bLzftd
Fp3nYT+8qvlvk/tMTcQ+5uYML8XXzp0ju1G4VeGcH2OGFK7X4by0LpwXZPz3
0TnpYcRJ0bz59pLfReePhqr/W+Euwqfhq0Tnd04X/kr4qIpjnC+FOwoPEP40
us7phNy1Ri+B9Zufq7+98Inq+0K4g/BJwp9F12P1F/4kup6jH3GAcGfhU3PX
1VBnRb3Vqugagr7qXxmdzz5eeEV0zUFv4WXRNSvdhT+MrgvpJfx+dP1KD+EP
omtQegq/G10v0k14dXQtwhno3egaka7CH0XXMRyHXoyuIzkGXRidO++C3o3O
tXcWfj06V91J+OPompU++CDRNS7H5vaNiEmpxfi2Yg6obnA9HHzy3xVzuHCR
hwZzynCa1YXvq9jGU7sBX03cRI0ZdXVwPf9UXJ8HP7ix4voMeMNKcHxErAQX
A28zqOTaQOr24BD/qpjzhfvdIpgjhu+oJrxP7nw6NgUOlzolapn2iuap4Kvw
teAY4Nupv4JTwU5Pj65poW4Le4xdppasd8X8LPUX1CyhI/sUrpuCx68SnPeB
oyJHQI0iMS11eeTI+mfOqZEj65s5vqQWkzgaboBaSbitjtiH6Fos6uwma/w9
vAv91hr196g4Hl8rfFzFtRxZYX/ucvRodN0DuuiV6JqSjujO6DoG7OYT0fUK
2NN50bUO6Pnno2sj0C0vcOYr1icvRtesoH+eiq7bQHc9F11XgY5aHF1LgS5a
Gl3vQt5wSXStDPUAj0fXTOAbLIyu4UAfPhZdV4Htrlq4hgkf+2zhfYLj0N6F
8+L4GKMS74nf0q1wPQT65CzhThXnDbsXrqXAx+hRuIYAf6Bn4Tw6PsaWhevD
iDUGCO8UnMP6NLiuhnPdt/A+pn6vV+F8PP5GV2xq5tzW09F1LejwZ6LrYNCx
i6LrYNDDr0XXzRwtXBTOK+Afboz24y9W//roOtSxwn9G+9YXCW9WuN4L3zIv
HBtcqf5KYV9/kvCmaH/9MuF/o/31S4X/iY49JgqXC8cAVwj/HR2fXCK8Lrqe
dYzwT9G1qqOFf4yuMTpb+JfoGqBzcnMQxPIHR/uo8GLkvkcX5lbqCI8pzCvh
O8Fxwa9ROzG+cPw2KvoM9E3n9+XoeqkOGrt54TowfOAN0fHGher/IzqeuUD4
9+jarPPxy6JrLs8T/jW6dvBc7Ex0fRJ1JnA4nNFhaY90TvqH3EoX4U0V54CJ
lXj//wbbcfyidclHwsf7MrjuF/vytfDlJdugTcHxEXOjWIi4iTlnuWMr1hGO
fXTSnxuC40Hm/Cc6ruRn+SM4ZmT+vwfHd7zzz4Prh7Fx1CvAif+MvUv+J/bx
B+GbSl5Hzg1xAhxhvdy5RXywHXPHleiKInc8yB6ogl4oeZ/snjtGY1/txPkv
ec/slttXx+dZE1wXxz5ZHVzvyj65oeyzs1pjri2bY6SuLE8+A7EDuVJyptgv
am7+qwXNnU8lr0q9BPU3cLrkweGaiPPJP2PP4dupfYajvkV422huGc4D/gVO
D24DThqeHH4NrhIe9dbM/gOcJDwKdTRwI/DA8MFwtvCo1PVQ83Fn0s//5aqT
jYNDeyT5//A5x0tOKMwdwYvAe+JnEvcOCPY/P0/nZYvCfAG8QZXC8SRx5eu5
8+7U0lAjS279X2x37tpl6kngN+Cm4GVj7vgdvUGcAr81trCNg8sZV7geiDkz
d7i7F5J9gWeDH8E/xp5Q+0cNINw+HHHX4Dpe8juc09MK14iv0G/tkNufx/er
lpvHQOcQRxFPUW/As8CvkB/ERlHrxn4g10+ugJoO6t7Jo1EjgA3GFlM7TT32
D5KnFObB8T3wQR4JrofHp3o4uEYdX4WaW95x9cL1o+1K9ueotVpS8r2osaiZ
nmuOWp+S/TfqvjplznlSi0L9xMDg/NewtCfJtZ2d1oLc4omZ62fI9+GnDC3M
CXfP/H7aFa7xIjbBnpyWfCF+o1Pyl6gfQN8MKuw/wm/B0ZM3Ic9ILQx5xvbJ
zyH/2CH5SLxT3i11m9TOUkN7fPITviy55gcO5ciS/YZrg2sp8Runso9L9uum
BNe74jdeFFzPjJ9wTXBNLH7jHcE1zPildwbXxOK73hpcz4BfWj83Z4U9WhZc
H4vPfFNwDh3u5ebgmlt83VuCuXf82wuD65/R+ZcFczVwL3cF10vjx14eXNeN
3aSOjXo2fHj8NP7TULNwvTE8OXaHemz+U0CNIrW++H74gPhU/DeiDvVNufkx
7OPbwfWu+PzPsl4l+/mTgmu/8ZOvDq7Zhqe9MrgOHF/6iuA6c/zn6axxyX7+
omCOhfji1MK+IzWf5H3Iz8G31i5cyw4XsUvhemXi/e0K10bDd21VuGYdTnj7
wvXZ8Fc7F66lhhPYqXAdNpzYDoXrueHB2hauKSS+3rpwXTt88pGF6w6Jtfcs
XHsBL7Rv4RgKPqda4VpzOLQaheuq4RwaFK6lgDvqUrgmlZhx28I13PBpuxeu
L4dbqFX4f0TwEnsUrhGHl2hTuCaSWP6YwnWuxKF1C/93CH3esHAsBq/VtXBt
K1xQo8JxGbxW/cL1HHA7exWO7+C+jihc/0pMumPhWnZ4wv8DppOOkA==
         "]], 
        Polygon3DBox[CompressedData["
1:eJwtm3f8V9Mfx+/n3nvO1wohI6lIRkNRRkKaFJG0tEsZ7UhLhIyMyvohZIWQ
kZG9CmVklhlK9shI2eP3enqdP87jc173nHvuvWe836/3+Ow8eHTXUXmWZbOK
LCv1e1HMskf1+7wudqjKso1Dlj0sPF7tBwpvKvyI8AThlsJ7qf9rlSzbTmUH
1Y/Rtbd178vq00h9t1F5VvWz1b+N2rqorFD7S7rWUG2bBT9votoPUttE4euF
56nPOo1XTfgx4UlqP1jtR6m8pbaluran2o4WXi78onAD4dbCTwovEN5a+FDh
J4TvE95KuK7KMtVnaLzD1VYr+N7phb+3j/BxfK/u+VDP7yncUXiY8HvCOwY/
+wL1b6/+NYWXCJ8v3E54e+EXhM8TbgtWOVn3Hq5r9+v+ndX+quoz1d5RbZ1V
3sw9xh5q20XltbQendS2q/AbwpcJHylcT/h14UuFjxDeKXguLxQ+rMrf/Izw
WYXnorrwU8JnCrcSnq5F3lV4C+Flep8LhOsJby78ivD5wrsIVxN+WfhC4frC
Wwq/KnylcCvhmsJbaLy1+v1Y7/8We0bPulbt7VXfWderq/1G4ZbCuwt/oPuv
Fm4mXFt4hfBVwvsI7yS8nPnWPR9pvDd1rZnGu1zth6i+g9o3V9v/hA8V3lF4
S+EZwnsK1xB+Xff/rH14uMpMlahxNtcYj6t9stoPUf9r9fuOrr+ia43VVkf3
PKG+5+taI7Xn+v028xiF6rV07QXdUwjfrP4z9bwGat9W197Qvb3U3kj1Nbp2
SfAee1r1qYX3XjeVD3KvaVO1zdL9DVXfTu1v6v5LhRsJby/8lnAP9f8w95rv
o/7NhecKXyP8h/r20rVOqg/XtffV/29du1P4ZN2/n/r+JXyH8EnC+1b5nnnC
JxYeK9f99wqPFt5fuL7wYuErhINwP+GTOK8a/2ONX1v4CeGLmQO1f63fRpqL
lipz1OdZ4X/Uvq/wT6rfmuYiE34uyYgHc78TsqO/ysmqn6Nrq6LP/EO5vwFZ
8K3u2Uv3Hqxyg66vV5/79HuL2n/Rt2wQXiA8V/jX0us7X/XTeQ+1DdbvPWq/
Sdee5duEJ2qsQ1V+UX1bXXtQbeeqnldZpj2Qe46QdTsKjxY+WvhBjT9M/W4X
vk74n9IyaKHwXZllE3vq4dzvwLtcH/ztx6pcpnoZLIvGapwW6ttMZbb6X6Rr
P2i8z1UuVP0Yte+ttr7q3xv5qj4fRa/pbapfm3mtN2jcU9h/fE/Fa3yr2mdn
XvtC90zR9eNVH6i2NsJf8y4qB6heBMvCMXreAWofrH5fqm2Grn2ma8ep/QjV
R+Q+rwvU3pezqLYd1L+32nsJn6b2lWr/gXXnvOv3T+oqXyFr9btO5Snd9xfv
rvI0Ml733Kj6QNXHa7x9VK7JPQdrOetqPyyzzER2Vot+9wuFGwv3133Xqn6x
+vyo/geqfZXaL1XZWfWWKqtV76H2x9XeJli+tWWvRs85c9Wv8FrwTM5W38Lv
wjeOVN/Omb/9YV3/RfXdNOYVPDdaH72QW952V1mZWybvHbxn+nMeCu+lg3St
pvD+6vO47h2p9o2E1ws/Gq1z0LWMiS46mD2oegtdewL5rLJQeFFufXKI2msJ
txR+Um1zNd5R6EI9r4banxEeLnywcF32t/pvJ9xE/R9hfoR34P14pnAr4Z3o
L/yU8M2lv30P3b+N7r8uWhYhk5HNs6NlGd/Mt7NnZ6g+OfNevjZ6LpBhyLLL
o3UbOhvdfVm0fkTnoftmReurZbn12aXRfOHV3PqOOWaukeHout1VVqh+pd7v
RLW1EN4WWa4+D+veB/QO/YSbq72m2s+NlndwAOQxOvWV3M9E114Zrf/hJHAT
dPLLuWU4uno/la3RX7r2oPou0/gThNtr/N3V91XhicIdhPcQnqf+1bRX9kbP
8iz9jld7O7XvJjwl7f+7c5+/s6NlHzIF2dJUeLnunypcX/jCaL71XG6+MT2a
jy3OzTcu0rhLcstoZPU50bIJmYRsWqznjxRupX67CJ8RLRuRkcijfYXf1/P6
qd9O6GuNkQu3VnlU1w4QrqH+DdV/ofruD6djvwk/JDwjml8wZ8wdOhRdOkrX
5qvtSY1xouoH6vl11NZK1z7X2OPUp7bwWdG6AR2ALtgXHSpcX/gBtU2Nls3o
EHTJIo03QvgQjbez8Jlqvz2zDEeW386ZF35G7X2RLdF8Cx2MLmYOmUs4J1xu
uPqrS7Yu7Z9J0fIAmYpsnab2JsKbaLxNqnwGOYusAVzvPLU3RbepfVO1jRLe
GF2VztcY4U2Ff0vn+ezS521j9X9JeJgwKuOnNL8jhDVM9nM6r6OFN0HXJfnx
i8r9qt/KmKXPDGeHMwM3vFzjvpZbp6Pb71CfdqrfgmxHV5TWbQ3QhcLXl5a3
9YS35rwLd+BsCG8lfAMyFvlXmG/ME24r3Em/p6l9jn5b8KzC/PhYXXs/95w3
QdeXtit+TPvlGoHmwnXU/+3o5x8gvKvwu8K3CXdhvwlvp7GujubrjMnY6DX0
W2+VTVQ/QQX75fu0XyaV3q+Z7l8sPKH0+f0nyf9LhPcX3lrt1TTeedH6EJsB
vjy+9P77Gxmhtoml9/u/wouEa0Vzn0vZP6pfrPb90HcabzP4aTQfxwbCFroi
2l7ARsFW+bXw2ToenaD65NLyq6L6c9EyD9m3KDP3Pz+aPzyV2346Rf2rCf+R
5PVY4c2Ef0/64KTyv0/Pfkjy6hyBp5kbXasRPAZj3Z/ZNjujtD4I6veC+p9Z
Wl9F5Eq0jEHWIIOwdTbTtVF6/79UjlS9dbC90CbN19TS+qtK9y8VPqu0vtpI
+EXhLdT/buEpwv8K99P4jVWvwPfU9jPyWmPdrD4b2CsqN6htP3gPMhJ+q/qP
av8Ym4b3Fb4bjqd6XWSO6mM5s9H871/V5+has9I230u5ZRa24L1qn622y1Wa
qH0PlWmqX8k15knt65CXyMTSHAQuchpnSuOfAXdR23T4lfqenjjVHsKPa/zf
dW3XisfcU9c/Er5X9ddVegp3VFms+lCNd2ZuG2gwezGzbYSNdHxumYbtxJkZ
kvsMcpZqabxBuW0ibCM4NdwaDv8UZ0HlV43PIRmqeutovsc78q4HYh9UbMP3
SHzqKeQzHET1tzX+N5n7tMTWEP5SeC7fm/DNqm+h8mbhM7me9UkcFJvz8dw6
GFt0FfZ14ohzVe+rPh8Kr+RMl54T5uY+lQ813hfqM6Did7hN9TXcI/w1Mlr1
U3NzvdVJh6FX0C+fsZ6FOeSg0hhu2V/1l1RfozJQ9VPhN6r3Un2S+g4o3fay
yvUaa0v4XHo+c/FeMLcvdf1k9f8KO054vMpupfU2+vtZlRZq+1r9B1VsU96u
+m8qBwgvVKmtZ9+tPteofrVK09L7DS7bQuVn1afntmWxR9sIf6j7e1a8BrcE
y6MFFe+xV4S3FO7M2VTfU/R+OyEThLflW6s8X+j791T2KryX4dezVNoW1t3Y
w5tznoTbIi9Vf0ilHbJGpU+a/xWF5wtZ+EmaT2zYfrltfmxbnv+g2s5EB8BF
4T8Vc4ybgmVqu9wcHVmLTjwqt02MrkRmw92RMchyZAyyZucsyero+WMe4Vuj
NOYlartOfb6N1jlwFXQAuqiFyq3qv5YzXVjnwm2Q8ejivzh7KnWFx5XmBHBL
dApcAZkKF0RHIGs30xjH5OYAcAF8Jl2F987sS9kmWr4gZz5TfVt0XsUy6bpg
mdtJ/ffILIuRUciqKpXd4eIqS1Sfwnzm1mntc/tw0HW7waexN4UfKS1jO+f2
MSB7OaOc1erI0NIy+cjcPgxkNTqnQ24fD7oImX9Ebp8KugCdChernlnXwkmw
JdBZcBV8Rsfm9uHgS8JmxXbFh3ZvaZmMbP4OzlbaZsR27Cl8d2kfA74GOCJc
EZ8bvjdszHuE17I3OIfIt2COgG0IZ4E7bAOvya3T0e1wEHx1+NvgJviEeufm
GPiK8Ln0zc1p8MXgw+mTm8Pg2+FMcjbPhnMFcx58LfgA4ULYxNjG+GDwbaGD
sZ3QcehmdDC2GToQ3fy0cKvcnO9G1Teo3oz5ym3/wemwDdHBcD3OGGetdpJ/
W6j9iorP4JvBnBLbbfvMXJPzjq5CpqwI5pjYjuhwuCc+u+65ORe+PHx+3XL7
4PAFdmHP6N4zhD/Q8/5QOSzJu3dV/7Ow7EF+vQdnVVkmfIxKpfQaMxf7FF57
1oy52rvwWrLGrEXTwmv/TbT9jv/jy9I2yD1J3+Mr+ZzvEZ7GfhYewhrn1ino
lgXIPNX3KX2evkO+aOyf4VOqf6IyM7c9+nrpMeqrf+fCY6+Otlcnqf1NtW8k
fJHaO6n902gblnu7IruRNUlnsx4vB1/Df4O/gr5w8P9xNgpzc3xSVwoPLeyr
QgYhi/BX7B79jug79B7vzjXOd7fCfZmT09X32MJzhQ7nLB1UWLefntu/gD9y
v8JnhrPSsvBZup3vgM+p/UV0QGE+dQvXgm1ObM+bMvuCuEbbqay17o/BvrVx
+G2iZSCy8E/dU6V7v9e1m1S/Qte+Vtvfws/m9qlVBfuw3+asFrbvf422RbFJ
8Z/9FO1Pw5+F/wZ/Dv4tfDL4ZvC3YQtjE+PvmqKyO++q6xtVOSZAbAB/3ALV
f1S5JfcafFv6HW5V/bTC78Z5w9fSFJmc20eIvYw/AX8d3/hM4sd8+xrhWbnX
YDnyHI5esQ8RecweQQ4jj9k77EFkO/qEvfmY6r+p3gwOVNhnyVwNKezLXIv+
0/2X69oz6v+D8M2598w37CfhR3L7E/8V/h6/IPtd5Ye0Rk8n/s7asb7w+QXp
/Pyu9kdzc2wMyy+E/yd8ruDHpTk1zz6+MNfmGcRbRhR+Nj5g/Pn437EfMY4n
VOwDexXfAHtQeDM4XLI38Q3hI8Jewaf6em77E19rpcr26KLM9gf2CPbNs5nt
j6DxLtBYg3i/YP/853CUzPEj/BvYUthU+H8GB8sq1oC1wCeNP594E/6Pvwvz
H3ySa9jDKkcme2G16ifwDpm5PfwInyF8qzHcUfg39WkjPFV9HirsI5+f22eD
7/xI9XsersWZVb2e7n9O9SNK28PwgTaJr6D/l/O9FXNk9O+xpbklHPQY1U8M
lnX4FodUWd/zfUvVflTibOsKcyi41Dvq34V71Weh2sdHjwWvxZ/KHLOXpxWe
e3wSrRNfgp9sUPuINB8Lg/dgY/hv4b3JGTpfbX0Kny34UP3Ed+BbnHn20nGF
ZQF79jzh3oX3Mjbd0tz+KGw95oX5Yc6Yuy/VflXue1aXlq/rC/ufa6rtK5Wr
c7/DmtIyg7M+vLAsYU/P0c/IwnsdGYJsHVBYtiCj6iW+guz6S/3HVmzDPar6
PPUZo/o72E3qu0tue5b9UqJX4fWcNeGV6MJof3tFbV1UX6cxhqX2B4N9Qocm
vjgt8ZFOiT/BN/AxdEz8Dn6ycZX1N/oevoc9MDo9/0XVd2UfCW8Q/kJj/aNr
44TXw4+CY2o9c/sciLURA31H9asK+1dnRvsu8XHi68RmxnbGvsbO3j7aN8ee
bKz6QaXtPuw/Yrk8f0/Vz1KfeqrP1PifZdb5jdQ+scr7nv3fMNqeg6tyhjnL
u0TbPouwH1TfVKVGxTY5tvljurc7XIPzIHxS8H5C56OfOYPtS9ugnE3WD987
Z/bPYL6C/kffP1A4XoztiE2LbUu8AH3/UcXxDvyp2DYrkKGqj6yyTbeN8BJ0
u+4fmFnGV9S+d3Rf7LGXSmNs8+Xp/i+DfTfIQGRhg+i1woZsgm6H01Yck8B+
Hh28t9H5BwtfHvzt2GD4XidX2Q7DHmsu3Cy6zhzdpbE2LW1zEU95Af0W7c/F
RiN2+bOuzcosSyZU+XmfoqtUHguOt2CbEbN7mrlWeSizzkY/Yp8iy/FhROHv
2Y+ZfWzEkirCNwiPghsKHy/cUW07qtyn+tkq92TWOZzHacFcAJ2Kbj0r+XvQ
aeiX14XbVqxT/lV9arCugyNwvvFXYssgM3YVPifJM3Qeuo9v5FuReXuiixJ/
geOgz0ZV2SczRNdui/ZREQfGhsZ3NSXxG2KK6ON17HHeT9/XG3u+tG6Hk8HN
zlT/2zL7XOF3nIdXkjyrL3xG4hvEJOF744WvysxJkJ8TguUXnAf5dFowV0Hn
Iy/HBet+OBXy9HfhMRq7nspKzkGwfd29sH+CGDT+2zG5Y9NDhDuhG1TuV32p
yveZr2EvIFOQLZ2TfbBE45SqD8jMH0drjB1KyzRkG/roqIr9Dy8hW9j/uX3I
s5ETwj2E9xW+SHi47s/121X93w2WUciqo4XfRteo/Q49p4fwB3xLcF9ipMRK
h6Ij2MsqD8BngvkJsd+TqryeW5f2ocR0/gZWHP9cWtqngm0yMPGRQ1VqZ7a5
sL2IMYxL9uZ9aX+fkPbvu7r/G86z6tvDl0vrRHQjnGF5sIxH1vOOb2EPBn8L
/q7nSsd7sG0Z49tgedJL9S3ZI2l+CuyMiu1z7CmedWpmf84Yte9IP2Ra8J5i
b2HTzxIu1f5u7nyFOsJR+AvhDzLnL9wb7Jtkz/zBWVO5q2IfKfk484Vvr1in
/RTMn/uUlpnITs70Y7nPMGcdnYSuKgvrKjgt3JYz/wZjRduicBK4Cfrklor9
p+/o3rHBa48OeYJ3i/bPtk/8al/2UGEfEL4ggh0v6vlPqrolulq4TmmdzHnF
RsJWwqdzQ7RMRjbj86kezeHgctjA2MKcB7gbNjO28+bR74YPZutoG6JZsp+x
LTYku4CYDfZ0DeRFxT4afDXfFOZH05KOOjWYz8Ph4UvD4JBJhrwWvOeeQFZm
3ovY+Nj6xGCJ/XKG8TU2rPhsI/+PK+3PmF96TVnr6wqvNfq2e+l3ejjJ+K6l
ZTKyn/wbbITVmfNlmD98huyvu/TsI9R2GXw07Wc4IlwRnXBQaocjE79/CL4d
nMuDDYAtgHxYVXhO71D/h4NlE5wKfQznheN1zRwbujC9P5wcbv5fzKmwTEe2
I2MfLczhkL3T1f+5zDYDtgP5G+SAIAOwVS4ItiWwIeCzxHy/KxxDJhZ8fvDe
gXPCPfurfePSZxB9Xie1X1L4LMF3iCEgb94vvefY+2cU3otzgrlSN8E7S/uf
sOn085//C44OV4eTzNX4k4J9/TPT9yAzkZ1wEHwPPQrnyRAzwj+LzxjfMeMT
X12vclnmnBfyVfg+YttNhBcLLwquN0XegAvn2ZBv80Iwn/hC92+a+BT7cZfS
nPHvYB2NrMMHjP+V+C7PhhMuCdYn+BLwKZC7AGeAOxCjgI83F25VsQ1Kftcy
OEXFZwLbgT3MXsYHTTyMPcRegtPiPxuq91lYmKMgD8YE+1KwsTgv76e1mFFx
vOZ4fNal+ecDST9Qr5vkL/cz1wdW7I9BR6AryBfCPoWf4GuuleQV8ohnN0j6
iPN9XcX7lfNE/tbcwjlrrPcJVc5xYk3WJ/61DFmoe1YHxxCIJfRI5xW++0XF
MQdi2+Sc0MY1+C/+HrgqnAz+1zY6tkJOTrvo/By46jcJjwy2Z/CR4f85OdhW
wobHlidm83lhmx2+O1i4emlOij4cEexbw0eFr+oobLqKbZ4Oqg9X+wWZbayv
Et9AVtRM+uOXpFvRqWv1OyiYD+ETwTcyMNg3go8NX9uAYH8ZPjV8a+g8dB8x
ipVquyM4lgBnXZz0LdysWtKXz+uewzhPcOrSHBeuS4wIf8CSxNWJ+XwSrD+a
JxsCWwJ+sVFpfxfxkAHC+5fWSdg3w4JtSWxObE9sPmy/GkkfDkwxZeJVHaPP
F3li5IthX3N+ieHBWeGufaqcx0Q+0zXBOQbkwGGPk3tAoU7O09XInsI5UMS0
iW2jE9ANf/JOcCHd/17uGPderHWw7bwk+armJdlKjt21yAfh3zP7mPCHI0/h
rr+in4Ll07+FOdyJ6fxhR2KjXBF8vmqX9gGsD54zYklwNOaSGPbhuX1uxLaJ
T7JWyJjDS+9f9io2DrYOHAr5MlTlu+D4FGsxMPP6sx74QIg/3JvkMz41bMZb
ha+PnhvmlLllPYhZwtGKtL+3Kh0D/Dw4Xvx84RwF7CP40wW5bfQ71b8e/qfC
e469h/8K2cB5xt4gJ22rdB6+qzgnhXgEPlR8qeSvNCztE8a+InkBXzfnHznw
aXA8EBsSW5KcmXmF5wd7jhwK4hHEG4hPIOuJF8J3x8Lj8G8JdhOuKh1DI5bW
T3jz0j53fO98L99drXQb+5V92w2dltnngO+he7TvAR8Pvp6GKuflPm8rSsfH
51dsT8PB8IlhD8Cv6goPjM7nHZg7HwSOjS2IDQX3HhCdfzsgd37ZoOhYMzFn
8jP6M7/C/XPni8FhyQVnTVgbbApk96pka+CDg1/Dd2sxt9GxHXw2+G6IMSB7
4PvblOaA2G5wGrjNx+l+9i/7GH8d9gb6Dr03v3BuCDLoLThU6bneBP0g3EBj
nJs7h+gt5GZ0vhtJ8OSLNU38kjkjXvV+4f3NfrxP9bHR+V+X4FPGdle5KHeO
1yr2Y3T9Yl1rUmUdchPfU1i3MD98Oxwdro6PE1/n7ML5IsR84Q+c339U31PX
puXO6XuttD3TobSPBX2DzFjJXissS0ZH5ybwTrwb78C78M6f6L5TomMfyGty
9wZjI2fOeST3cW3wWSZGemewTtk27cXB6ayxvsSIWsPrork0Pi3sBeacuYd/
3VU4JwBbCZsJGXNYad8QOQ/IE3Iu4OfIa+KxzClzS07dp6V1NPIPnxNcmPyL
TwvzK3w9+JfgDtg42DrsQfYie5ZcRv5j8B6yunB+Hz497Dns3Zqlc5x65Y4f
kvvUPlgXERMlNopOgrvnhXVVu+BYKTFYYrEdgn19+PyI5bYNjs0S0ya2jc2M
rVy3sC0NR8GX3rMwd+kcHJsjJkdsjj3IXiSnk1zGI4NjdcRYibWSj4otAgfb
gJwPHp8YH7E+bHLev3phW/3Y4NwRckrILTksOPZLjPe/WG9w7JaYNbFr4v3k
XuBvxsbrERy/I+ZK7BWdh+7DBz0DPqTrzSvWaY8X5qRwUzgW8e2OwbF8YtLE
pvH1wt3gzOQbHx4cqyYmTWx6FWtXMeeFB+PjwNeBjrgpmjOTPxVKc+lOur9x
5pwBcgfglG2SLIALdwvOlSGHhlya7sG+DHJoyKWBA8OFyTEiHwGOiu2KzkR3
kl/D3DBH5ON8WZhLom/Ru58Utq3w2eIv7RmtO/H54vvtF7230Anohr7Rvlv2
HHuPHE9yRk7QtbujOSX8EZ8gtiH/cSC/gHwC8nvuStwHXy66EBmMLG6d+MWd
ybbgPwlw217ICOGjc/9/ond0rgJjMjb5TvhW4TfkJ8FX2CttEn85Ojg2Tgyd
WHr90rFxOD/5LhOifYtfJ/nWFfsgcw4IuSDHBOeCEHMn9t4lOPZOzJ3Y++To
2B8xQHLd0UHoInQMuYrYAHWSrIe7HBedj9kl9/9P0CvoF3QA8ZqJar86838m
+L8DOgvdhY4jV5r/CL3LtxXOx1tQ2DZCxiPr0efkEZFPNEdjjYrWFehUdOvI
aFmMDkGXjIBjZpbRyOrJwXsDmwP7/MTo/PlJufNVsUnxNcOB4ELop8GZ/UPw
gSUJb5H4BfFcfHX47JYW/k8FXAIfGn63YdG5E+RQkI88PDr3ixww8pEblM5N
w9+C34X4PvIcvoT8PkH9+6g+MXe+OP85WcVZK5y/TU4NuTX4uPB1vZHkOTEE
8oOOLh2rIocAf/yQaNnFfyjIf8fnhe3Pu+ILw/eBr5ycKXKniGfBtT/NLE/I
74JrMQfwff4z85HqNxTO3yXfhbn6LLN/7PeKfZ/4PL+veH+Si8WZxO8BB8S2
JW4ON0R+8azbEt+ckpsbwMnIx2S+sKWxUcjnOyk6n3xy7vxpfCyr0S2F8+GZ
M+aONSb3/rTo3ADsL/5fwDN5Nmt4c/SasDb8B4bccc4kZ5M9zX+deAbP4p2x
l1hT1pY1Jff84uD/1+BTwbfCfw4+Fr6xcD4+OXHwSXK0sFexgYj1wMHh4uTk
fqj2OYXzadH3cHN8/vB3+O6gzP4m8jvYs+xd5oDc66HRvlQ4M9yZnPazcu9B
ct2xocg3hMPD5eG87Nc1SSadHC3ruId7yT8kVxMbr2Xiu3DzrRIfRj42Kh3D
IZYzO9gWwubC9kIGIAuQafw3DZsOX+d2pW09cgbh03D2z1QfpzGmZ/7PCf/3
+D9PPBNQ
         "]], Polygon3DBox[CompressedData["
1:eJwt13eAFOUZB+Dl9u4oUqQICCggKFVABJEeQ+8IghRR6b0oIr0ovYjSQZoI
CEpVUIkNCSgWFFRsWLFgjYlJbBjE583cH+/tvM/8vtnd2W/mmyvfb3SXURmp
VOqoylKD/GmfTqXOqQq5Uqkn9L2zU6ny+kGCA9U7+l6qNLtV39S45ZmpVA92
MbuZNWbL2I2sKOvBrmEL2VR2G3uG7WFp71GdHfN+L/NuMtX0fVQF/RC5lnJr
+XzZhewoe4aV1f+kLjP2NL9E5r/6nsaW0t8i10RuKZ/MRrOn2N/UWX0xVdu+
U3yqXFF9V+Mv0XeVuZqtsv8uPpEdYQdYfpmxvKDtp/jTaqPM3WqS7RfiPewr
IDeN3ckOscdZPraObY3voTJ99v2ONYWNiWPJ7ZbLkDukjtg+wb637+/6bqps
nCdW1741xk43dnzsZ0+wvPH5VA/2rZrFvpG7gV2qv0GuDlvNihh7lddp8fuy
wvr75L60/aps2r539berG/U/qUY+8zH9DNkJ+sPGPil/Afur+kNfRRVjE4y/
Q+4muc1sFfshvq/cAPYAW85+iVz8dmwFm82+ZbPZZPYk28kK6cepXmwlm8O+
y/l9R7FH2A5VL7fvyfKxTvoacrPkehlbiw1jbdgu9mj85r5TKdsXq+3GfZCZ
XAPlvJZVj7AzcvnYFGMLsy/1p7yWZ2W8llYPy13PS3iPDnLVvcd9/Hr+u/4v
qiwbx7qxC+Q6s5psJutibEnWkV3JlrAZbATbztankot1uhrOtrF16LxcV8fL
ZG1YJTaFvZeZfLff1K+qZczHuK7lVsnNlfs+5jgbyR5mG1gu/Rp1kPVnzdj9
+grGt5UfwJqzitnJ/I15/GLM/fhN4/eWrW17hFw7uT3x3XiatWat1JG4XtRQ
tl+/Xe5/cr2NvYoNZ23ZbjaHTWEH2C52YcwfY+uySawPe0xuIGvAZrBB7OmY
27KD2INsJfuN9Zerwyaym9jeOFdyWV5/SSfzf4m+n9zV+glyvdmj9vfjbVkN
20t974Iyr9geZ38zXt32zjgH6jL9YGNbxPnLTD5PfK76vKXtPTLj4n6n3yK3
2r5/8OHeozOrZR5/rv9C/agW2d8rzpHaG9e96iu309iN9j2XlZznDFY77mEq
j2OM57ewtRnJMeJYE+QGs8fYQ+x3NpENYfvYNnaW9WXV2BjWiW1hI+J92GI2
mX3FbpWrykazjmwzGyV3Q8xn20edq8oyN6vKbKRce7kH7buFVWGxIHVgm1h3
VoTdyLqr1/VTHW8g26RfIferXCt+1rF/z5Vci3FNTpbrH/dluWVyP7O31UmV
W36BXB6vi9Q9cu/Jvasynat72GL2vv6YseXi2lBd2b1sCvvacRbL3ctOsddY
eZkFbB57KyNZV0uza9WP+qrK7tRwY2+P+4TcajaPnWFjWTe2jr3i89XU1zf2
33EfUT5aaoRcPfYvfeWMZN0exoba6BhzUugT/adqofHz2Um5l+TKyFyj/qm/
Ir4rG+rPfXJL5D5kx1mF+B5qGTvODrMr9A3lDvlcrYzZZt/6+P6xXtj+IH4f
ucvk5rO57E32IivF5rLZ6WQtizXtYraNlXCskjn3qLhXxfyIedLJ9j75DXE+
1Rzbbxj7grEljZ3D7mLH2MFYu9kw1YnVdA5OG/+ZasvysqZyl8rdnZk805RL
J3Mq5lZh+Y/5R2p0dnIez3htauxZ+xtlJGt9rPkN2H9iPYnrio1kDdnPsaaq
fGw0axn3Esepx0qxaawR+yWehdQFbAyb6X2myb0cv1E8jPks18mdi3u4KorG
yzVj5/XV1EVsImseP76xV7LiNiexFixXnANWgk1ms7zHdPYKezbWeJnG6lf9
tSo/u02uCftN30AVYLfHtcWyja3PSrPprB0rwJqxCmxuznyLeTcmO/kNvvLa
Ri6P7cZyl8jdZX9rlps1ZGXYDNaeFWTNWUU2j3VkF8Y9MuYqW8A6s+KsfZwH
dm88H3ifGexV9hwrEusW2xjPPuwjVot1UIVYC3Y5m29sJ3YRaxfXJlucM2di
7tyWndx/v/baXa6i7V5y9eXWx/09nm9t1+R94xlCbq3apP9e7hP7aht3IK5f
23/w8/EMFOtJdvJMG8+2PY2tE/f/uL7svzPMvmfjmubN2YKMZG2JNaaH3BXs
JtaQbYzPwS5nveO3Yxty7p2F08k6G+ttfvPqDX4i7t32tbLvU6/D47PYXiQz
3thj9r8U16RrsJjXomqrzDDVQm6h3J3xbBjPOt53i1z9uCep3TLrs5K1Lta8
I3H96lfGuUkn99e4z3bxWd6P9UjuJZ7H2FP6XXJX2r5O7XLc3VnJ/XlROrk2
4hppbWxPXon1iWvTMR6QP65eVyPlW9t32uvAuMHJnHesH+IZhD/Ei8famU7s
qGO9pX8z1qqYs/wzrzP5Hbb3Gr8lLkv9rHj2ZI+yrSyP/vOYV8a+lk6eDb/Q
32/8A/rv5D6Wu4rtiLlk+1ycVz4g1tqs5Hkunuu+tP+prOR+MDWd/I8S/6s0
9X2HxL2IzdaPkD9k7GDWhM1iw9lBtpytZp/HWsaqOt4KtoZ9EeeeVYv7OlsV
35O9w6qwJWxFzAl2klViddUPcU1m/P82kxoSzy5yjTUz2TD2PFsVv3t8P/YB
q2HcUrYyfgf2NqucMw/Wxb2BnYm10He7mTdi4/W94vklngWykvlZJXfym8Zv
uzkrOX+P8Lz6LY71Ts7zVzyHVVM74lkoK/kNq+VO1vpY8ydlJc+08Wx7wL7l
+sO8kLEnYo2L54lYs+L82z4ot0++uL5qdrIWd5V/3L5lbF7MBdvPy+2XKxH/
80RW7iteXvacfrWxG/TfyH0Y9wp2a1YyP6vmTuZczL272Vi2R26zXLb+T67n
5Tc=
         "]], 
        Polygon3DBox[{{1654, 864, 683, 682, 1106, 1577}, {1384, 845, 995, 
         1698, 1245, 1246}, {1419, 930, 613, 614, 931, 1420}}]}]}, 
     {GrayLevel[0.82], EdgeForm[None], 
      GraphicsGroup3DBox[{
        Polygon3DBox[{{545, 385, 517}, {1453, 281, 1608}, {383, 354, 281}, {
         536, 384, 537}, {1526, 281, 1453}, {539, 354, 540}, {1615, 533, 
         1608}, {538, 354, 539}, {354, 384, 281}, {1526, 365, 1540}, {542, 
         365, 543}, {543, 365, 544}, {534, 281, 535}},
         VertexColors->None], 
        Polygon3DBox[{{1611, 541, 383, 1540}, {1540, 365, 542, 1611}, {1540, 
         383, 281, 1526}, {1453, 385, 365, 1526}, {544, 365, 385, 545}, {1608,
          281, 534, 1615}, {537, 384, 354, 538}, {540, 354, 383, 541}, {535, 
         281, 384, 536}},
         VertexColors->None], Polygon3DBox[{{1608, 533, 517, 385, 1453}},
         VertexColors->None]}]}, 
     {GrayLevel[0.82], EdgeForm[None], 
      GraphicsGroup3DBox[{
        Polygon3DBox[{{326, 395, 275}, {1605, 275, 1450}, {528, 326, 529}, {
         1605, 521, 1613}, {524, 359, 525}, {531, 381, 510}, {519, 275, 
         520}, {1545, 359, 1519}, {525, 359, 526}, {381, 326, 275}, {529, 326,
          530}, {522, 382, 523}, {1450, 275, 1519}},
         VertexColors->None], 
        Polygon3DBox[{{1613, 520, 275, 1605}, {523, 382, 359, 524}, {1545, 
         395, 527, 1610}, {1610, 526, 359, 1545}, {1519, 275, 395, 1545}, {
         510, 381, 275, 519}, {530, 326, 381, 531}, {1519, 359, 382, 1450}, {
         527, 395, 326, 528}},
         VertexColors->None], Polygon3DBox[{{1450, 382, 522, 521, 1605}},
         VertexColors->None]}]}, {}}, {
     {GrayLevel[0], 
      Line3DBox[{441, 1, 410, 249, 1127, 16, 1141, 31, 1156, 46, 1171, 61, 
       1186, 76, 1201, 91, 1216, 106, 1232, 1233, 121, 1254, 136, 1262, 151, 
       1275, 166, 1290, 181, 1305, 196, 1475, 304, 446, 211, 439, 318, 735, 
       212, 736, 213, 737, 214, 738, 215, 739, 216, 740, 217, 741, 218, 742, 
       743, 219, 744, 220, 745, 221, 746, 222, 747, 223, 748, 224, 1007, 306, 
       447, 225, 440, 319, 1332, 210, 1318, 195, 1303, 180, 1288, 165, 1273, 
       150, 1260, 135, 1252, 1251, 120, 1229, 105, 1214, 90, 1199, 75, 1184, 
       60, 1169, 45, 1154, 30, 1430, 251, 442, 15, 434, 308, 574, 14, 572, 13,
        570, 12, 568, 11, 566, 10, 564, 9, 561, 560, 8, 558, 7, 556, 6, 554, 
       5, 552, 4, 550, 3, 548, 2, 1008, 307, 441}], 
      Line3DBox[{532, 500, 496, 1609, 503, 512, 511, 494, 505, 504, 1614, 491,
        492, 498, 497, 509, 532}], 
      Line3DBox[{546, 508, 1612, 518, 499, 515, 514, 493, 502, 501, 513, 1616,
        506, 507, 495, 516, 546}], 
      Line3DBox[{529, 528, 527, 1610, 526, 525, 524, 523, 522, 521, 1613, 520,
        519, 510, 531, 530, 529}], 
      Line3DBox[{539, 538, 537, 536, 535, 534, 1615, 533, 517, 545, 544, 543, 
       542, 1611, 541, 540, 539}]}, {
      Line3DBox[{1127, 1429, 749, 1126, 1714, 1333, 1128, 1715, 1334, 1129, 
       1716, 1335, 1130, 1717, 1336, 1131, 1718, 1337, 1132, 1719, 1338, 1133,
        1720, 757, 1134, 1721, 1339, 1135, 1722, 1340, 1136, 1723, 1341, 1137,
        1724, 1342, 1138, 1725, 1343, 1139, 1695, 1726, 1344, 1430}], 
      Line3DBox[{1141, 1617, 1799, 1140, 764, 1142, 1727, 1345, 1143, 1728, 
       1346, 1144, 1729, 1347, 1145, 1730, 1348, 1146, 1731, 1349, 1147, 1732,
        1618, 1800, 1148, 1619, 1801, 1149, 1733, 1350, 1150, 1734, 1351, 
       1151, 1735, 1352, 1152, 1736, 1353, 1153, 1737, 1354, 1154}], 
      Line3DBox[{1156, 1620, 1802, 1155, 1621, 1803, 1157, 780, 1158, 1738, 
       1355, 1159, 1739, 1356, 1160, 1740, 1357, 1161, 1741, 1358, 1162, 1742,
        1622, 1804, 1163, 1623, 1805, 1164, 788, 1165, 1743, 1359, 1166, 1744,
        1360, 1167, 1745, 1361, 1168, 1746, 1362, 1169}], 
      Line3DBox[{1171, 1624, 1806, 1170, 1625, 1807, 1172, 1626, 1808, 1173, 
       796, 1174, 1747, 1363, 1175, 1748, 1364, 1176, 1749, 1365, 1177, 1750, 
       1627, 1809, 1178, 1628, 1810, 1179, 1629, 1811, 1180, 1751, 1366, 1181,
        1752, 1367, 1182, 1753, 1368, 1183, 1754, 1369, 1184}], 
      Line3DBox[{1186, 1630, 1812, 1185, 1631, 1813, 1187, 1632, 1814, 1188, 
       1633, 1815, 1189, 956, 1431, 1190, 1884, 1433, 1434, 1191, 1909, 1571, 
       1572, 1192, 1881, 1419, 1420, 1880, 1193, 1437, 1438, 1885, 1194, 1587,
        1588, 1914, 1195, 1598, 1816, 1713, 1196, 1755, 1370, 1197, 1756, 
       1371, 1198, 1757, 1372, 1199}], 
      Line3DBox[{1201, 1634, 1817, 1200, 1635, 1818, 1202, 1636, 1819, 1203, 
       1441, 1820, 1696, 1204, 1692, 1883, 1432, 1421, 1494, 1205, 961, 1477, 
       1435, 1558, 1557, 1206, 1912, 1579, 1580, 1422, 1573, 1423, 1574, 1207,
        1899, 1495, 1424, 1436, 1425, 1496, 1897, 1208, 1439, 1478, 1440, 
       1559, 1077, 1209, 1590, 1426, 1589, 1821, 1693, 1595, 1210, 1600, 1570,
        1599, 1822, 1711, 1211, 1637, 1823, 1212, 1758, 1373, 1213, 1759, 
       1374, 1214}], 
      Line3DBox[{1216, 1638, 1824, 1215, 1639, 1825, 1217, 1640, 1826, 1218, 
       1448, 1827, 1697, 1219, 1497, 1498, 1900, 1442, 1500, 1499, 1220, 1501,
        1537, 1886, 1700, 1443, 1503, 1541, 1502, 1221, 1035, 1504, 1444, 
       1506, 1505, 1222, 1901, 1507, 1508, 1445, 1510, 1509, 1890, 1223, 1511,
        1538, 1512, 1446, 1513, 1542, 1902, 1701, 1224, 1514, 1515, 1447, 
       1828, 1554, 1553, 1225, 1585, 1586, 1584, 1829, 1708, 1226, 1641, 1830,
        1227, 1642, 1831, 1228, 1643, 1832, 1229}], 
      Line3DBox[{1233, 1760, 1375, 1231, 1761, 1376, 1235, 1762, 1377, 1237, 
       1544, 1763, 1378, 1550, 1555, 1556, 1764, 1456, 1488, 1379, 1455, 1520,
        1565, 1907, 1702, 1479, 1489, 1551, 1380, 1457, 1704, 1903, 1522, 
       1459, 1490, 1381, 1458, 1891, 1524, 1525, 1461, 1491, 843, 1460, 1527, 
       1566, 1528, 1480, 1492, 1552, 1906, 1382, 1462, 1531, 1532, 1464, 1699,
        1892, 1383, 1481, 1463, 1765, 1384, 1246, 1766, 1385, 1248, 1767, 
       1386, 1250, 1768, 1387, 1252}], 
      Line3DBox[{1251, 1840, 1649, 1249, 1839, 1648, 1247, 1838, 1647, 1245, 
       1698, 1837, 1549, 1592, 1602, 1604, 1603, 1244, 1593, 1594, 1569, 1908,
        1709, 1454, 1530, 1529, 1243, 1706, 1905, 1548, 1612}], 
      Line3DBox[{1254, 1650, 1841, 1253, 1769, 1388, 1255, 1770, 1389, 1256, 
       1575, 1771, 1390, 1576, 1694, 1772, 1591, 1597, 1391, 1465, 1562, 1090,
        1482, 1392, 1486, 1898, 1533, 1534, 1468, 1493, 1393, 1467, 1893, 
       1427, 1578, 1583, 1651, 1913, 1469, 1563, 1564, 1483, 854, 1487, 1535, 
       1536, 1485, 1896, 1394, 1484, 1471, 1773, 1395, 1257, 1774, 1396, 1258,
        1775, 1397, 1259, 1776, 1398, 1260}], 
      Line3DBox[{1262, 1652, 1842, 1261, 1653, 1843, 1263, 862, 1264, 1777, 
       1399, 1265, 1712, 1778, 1400, 1601, 1915, 1466, 1401, 1266, 1882, 1428,
        1402, 1267, 1911, 1577, 1654, 1910, 1596, 1470, 1655, 1894, 1268, 
       1472, 866, 1269, 1779, 1403, 1270, 1780, 1404, 1271, 1781, 1405, 1272, 
       1782, 1406, 1273}], 
      Line3DBox[{1275, 1656, 1844, 1274, 1657, 1845, 1276, 1658, 1846, 1277, 
       874, 1278, 1783, 1407, 1279, 1784, 1408, 1280, 1785, 1409, 1281, 1786, 
       1659, 1847, 1282, 1660, 1848, 1283, 1661, 1849, 1284, 882, 1285, 1787, 
       1410, 1286, 1788, 1411, 1287, 1789, 1412, 1288}], 
      Line3DBox[{1290, 1662, 1850, 1289, 1663, 1851, 1291, 1664, 1852, 1292, 
       1665, 1853, 1293, 1666, 1854, 1294, 1790, 1413, 1295, 1791, 1414, 1296,
        1792, 1667, 1855, 1297, 1668, 1856, 1298, 1669, 1857, 1299, 1670, 
       1858, 1300, 898, 1301, 1793, 1415, 1302, 1794, 1416, 1303}], 
      Line3DBox[{1305, 1671, 1859, 1304, 1672, 1860, 1306, 1673, 1861, 1307, 
       1674, 1862, 1308, 1675, 1863, 1309, 906, 1310, 1795, 1417, 1311, 1796, 
       1676, 1864, 1312, 1677, 1865, 1313, 1678, 1866, 1314, 1679, 1867, 1315,
        1680, 1868, 1316, 914, 1317, 1797, 1418, 1318}], 
      Line3DBox[{1332, 1476, 1005, 1331, 1879, 1691, 1330, 1878, 1690, 1329, 
       1877, 1689, 1328, 1876, 1688, 1327, 1875, 1687, 1326, 1874, 1686, 1798,
        1325, 922, 1324, 1873, 1685, 1323, 1872, 1684, 1322, 1871, 1683, 1321,
        1870, 1682, 1320, 1869, 1681, 1319, 1895, 1474, 1473, 1475}], 
      Line3DBox[{1609, 1888, 1539, 1518, 1239, 1516, 1517, 1449, 1710, 1887, 
       1581, 1560, 1238, 1707, 1836, 1567, 1543, 1236, 1835, 1646, 1234, 1834,
        1645, 1230, 1833, 1644, 1232}], 
      Line3DBox[{1614, 1606, 1240, 1703, 1889, 1521, 1451, 1547, 1568, 1546, 
       1241, 1084, 1582, 1561, 1452, 1523, 1904, 1705, 1242, 1607, 1616}]}, {
      Line3DBox[{548, 750, 1714, 549, 764, 577, 1803, 779, 592, 1807, 794, 
       607, 1813, 809, 622, 1818, 820, 633, 1825, 830, 644, 1834, 840, 1761, 
       654, 850, 1769, 665, 1843, 861, 676, 1845, 872, 691, 1851, 887, 706, 
       1860, 902, 721, 1869, 917, 736}], 
      Line3DBox[{550, 751, 1715, 551, 765, 1727, 578, 780, 593, 1808, 795, 
       608, 1814, 810, 623, 1819, 821, 634, 1826, 831, 645, 1835, 841, 1762, 
       655, 851, 1770, 666, 862, 677, 1846, 873, 692, 1852, 888, 707, 1861, 
       903, 722, 1870, 918, 737}], 
      Line3DBox[{552, 752, 1716, 553, 766, 1728, 579, 781, 1738, 594, 796, 
       609, 1815, 811, 624, 1820, 965, 966, 822, 635, 1827, 975, 976, 832, 
       646, 1836, 1067, 1070, 842, 1763, 656, 1101, 1102, 852, 1771, 667, 863,
        1777, 678, 874, 693, 1853, 889, 708, 1862, 904, 723, 1871, 919, 738}],
       Line3DBox[{554, 753, 1717, 555, 767, 1729, 580, 782, 1739, 595, 797, 
       1747, 610, 956, 957, 958, 1883, 933, 967, 934, 968, 1032, 1900, 936, 
       977, 937, 1080, 1078, 979, 1887, 1079, 1081, 941, 1071, 942, 1764, 
       1074, 986, 1104, 946, 1103, 947, 1772, 1116, 1114, 1115, 1778, 679, 
       875, 1783, 694, 1854, 890, 709, 1863, 905, 724, 1872, 920, 739}], 
      Line3DBox[{556, 754, 1718, 557, 768, 1730, 581, 783, 1740, 596, 798, 
       1748, 611, 959, 1884, 960, 1009, 961, 1014, 962, 1075, 1063, 970, 1886,
        1033, 938, 978, 939, 1124, 1034, 1123, 1888, 1045, 1125, 943, 985, 
       944, 1046, 1907, 1010, 1091, 1092, 988, 1111, 989, 1090, 1012, 996, 
       1122, 1915, 997, 680, 876, 1784, 695, 891, 1790, 710, 906, 725, 1873, 
       921, 740}], 
      Line3DBox[{558, 755, 1719, 559, 769, 1731, 582, 784, 1741, 597, 799, 
       1749, 612, 1098, 1909, 1099, 1100, 1108, 1912, 1109, 969, 1025, 1024, 
       972, 1035, 1036, 980, 1038, 1037, 982, 1889, 1047, 1048, 987, 1050, 
       1049, 1903, 991, 948, 1016, 1058, 1898, 1057, 999, 951, 1882, 952, 681,
        877, 1785, 696, 892, 1791, 711, 907, 1795, 726, 922, 741}], 
      Line3DBox[{560, 756, 1720, 562, 770, 1732, 583, 785, 1742, 598, 800, 
       1750, 613, 930, 1881, 932, 963, 1026, 1899, 1027, 971, 1031, 1030, 973,
        1039, 1901, 1040, 981, 1083, 1082, 1110, 1084, 1085, 990, 1054, 1891, 
       1053, 993, 1059, 1060, 998, 1893, 949, 1107, 1105, 1911, 1106, 682, 
       878, 1786, 697, 893, 1792, 712, 908, 1796, 727, 923, 1798, 742}], 
      Line3DBox[{564, 758, 1721, 565, 1801, 772, 585, 1805, 787, 600, 1810, 
       802, 615, 964, 1885, 813, 626, 1076, 1077, 974, 1066, 824, 637, 1902, 
       1043, 1044, 984, 1019, 834, 648, 1905, 1055, 1056, 994, 1021, 844, 
       1906, 658, 1064, 1065, 1017, 854, 669, 1001, 1894, 865, 684, 1848, 880,
        699, 1856, 895, 714, 1865, 910, 729, 1875, 925, 744}], 
      Line3DBox[{566, 759, 1722, 567, 773, 1733, 586, 788, 601, 1811, 803, 
       616, 1113, 1914, 814, 627, 1117, 1821, 935, 1095, 1096, 1097, 638, 
       1073, 1828, 940, 1072, 1086, 1088, 1087, 1093, 1908, 1069, 1089, 945, 
       1011, 1022, 1023, 1892, 659, 950, 1013, 855, 1896, 670, 1003, 866, 685,
        1849, 881, 700, 1857, 896, 715, 1866, 911, 730, 1876, 926, 745}], 
      Line3DBox[{568, 760, 1723, 569, 774, 1734, 587, 789, 1743, 602, 804, 
       1751, 617, 1816, 1121, 815, 628, 1822, 1094, 825, 639, 1829, 1068, 835,
        649, 1837, 995, 845, 1765, 660, 1002, 856, 1773, 671, 867, 1779, 686, 
       882, 701, 1858, 897, 716, 1867, 912, 731, 1877, 927, 746}], 
      Line3DBox[{570, 761, 1724, 571, 775, 1735, 588, 790, 1744, 603, 805, 
       1752, 618, 816, 1755, 629, 1823, 826, 640, 1830, 836, 650, 1838, 846, 
       1766, 661, 857, 1774, 672, 868, 1780, 687, 883, 1787, 702, 898, 717, 
       1868, 913, 732, 1878, 928, 747}], 
      Line3DBox[{572, 762, 1725, 573, 776, 1736, 589, 791, 1745, 604, 806, 
       1753, 619, 817, 1756, 630, 827, 1758, 641, 1831, 837, 651, 1839, 847, 
       1767, 662, 858, 1775, 673, 869, 1781, 688, 884, 1788, 703, 899, 1793, 
       718, 914, 733, 1879, 929, 748}], 
      Line3DBox[{574, 954, 955, 1726, 575, 777, 1737, 590, 792, 1746, 605, 
       807, 1754, 620, 818, 1757, 631, 828, 1759, 642, 1832, 838, 652, 1840, 
       848, 1768, 663, 859, 1776, 674, 870, 1782, 689, 885, 1789, 704, 900, 
       1794, 719, 915, 1797, 734, 1005, 1006, 1007}], 
      Line3DBox[{735, 916, 1895, 1004, 720, 901, 1859, 705, 886, 1850, 690, 
       871, 1844, 675, 860, 1842, 664, 849, 1841, 653, 1760, 839, 1833, 643, 
       829, 1824, 632, 819, 1817, 621, 808, 1812, 606, 793, 1806, 591, 778, 
       1802, 576, 763, 1799, 547, 749, 953, 1008}], 
      Line3DBox[{743, 924, 1874, 728, 909, 1864, 713, 894, 1855, 698, 879, 
       1847, 683, 864, 1910, 1118, 1120, 1119, 668, 853, 1913, 1112, 1000, 
       1062, 1061, 657, 843, 1020, 992, 1052, 1051, 1904, 647, 833, 1018, 983,
        1042, 1890, 1041, 636, 823, 1015, 1029, 1897, 1028, 625, 812, 1880, 
       931, 614, 801, 1809, 599, 786, 1804, 584, 771, 1800, 563, 757, 
       561}]}, {}, {}}},
   VertexNormals->CompressedData["
1:eJzkvXk0V2/0P6pSGqg00kAihdKgQXpnl+b0aVCSKDQoTVQaaDBEIvM8RxHS
oEzhnacQGTNkyBAyZXxLGkR1T519fK/zW9a9d61717p33f6x2muvfV779exn
P3vvc97nSBwyVDs6lI+P74oAH98w6m+1XMukD6FHSVFbsU6tpQV5OOHdsId/
eBAttUwm8uZ+ErXsxlRJJWty5EO+jz0lt3M37o5+JA8jWu5B66Nb5Hjejshj
lHztiUJHo+UG0KC53Ve9wI7sXvRFRYWSK3LN29/mXIF4aePb9xbYEdtPq7Sl
KPl3Af8PfUNvQv6ofNtYfWvyftav/ZMo+dn0kVdLT9vDxHVzEjlal4li7ZKK
8ZR8yc/NlYb1jiD+fOgx4T9mXPovDy6gfq/KP31g9H+h/XTaPjD2tyGeCBoP
MHh2If5WGj8w+Ed70v6OpP0Fxt9I5OcpzQ8w/LD4BIbPMhm7PTrDjMnTfGuH
0ZHW5KppkcfZv/pKqYqvko3Iobw7XknVt8mHP14r51Py2e71umCtSzoWCniP
2OlCvhun9L39zYPFTt/rTSbqwKrox++V5dxJuVul/lFKfsXNQua8kDmMyBRZ
piDkQZ4WGGjyU/I/04u7+wIo3lZ6KNksdSV3RS5JZf3iwdfEs0Nm23rAtq7b
009aWhPVVxcucyn54qJNc9yHewMf/c9czvd1dTIl/4X682l9YPRHzqDti9L2
gbFvh3gEaDzA4NFD/Ctp/MDgZ/ztov0Fxt865Oc4zQ8w/LD4BIbPiZpaEY8E
LMi63Ky9ul22pGv6+PnjKPllOY2ROvMtSI3jgxOLP7mQ+cfXuV6g7D/1HHZL
N+wKiQr5fKlN1puc6dEceYvCX7Lth9m3ozqkQMdHenpNIBm7KPyeSh8PZuTk
3lZPuQ639pAvgU+CSVh53sbanzwQsxw/zfqUB+jdUs5f4B5EFogUD2nu4UHy
n49mnzYHg2D5n4tej9zJ6Ckrk8Ip+QfP8qv3x4bAU5dTy+N6zLj0Xx6kon7f
+3/6wOjPRfuHaPvA2FdEPI40HmDwXET8JTR+YPAHo7/RtL/A+MvwU0fzAww/
LD6B4XNvlVvwJZHbZIPSj1YJNQfiGdR07SylP+uLn+AqHyfiMsq9d3SXB5lw
Ovq+1F/7nA01wZedSVa+RIj78SDyufrJ9iQKp4LT/F3DHtwik34kNxfEhZHl
I0WmBXzjwZzPWtcNNA+A18NXmm+FnhD9oXufNHXywPTS76OzG/xBT2bErfEn
o4gb70J+VSsPMq8uzC4pegRVrW+jUhbeJx+M3vDptfBguUPyVnGDZzB/txTJ
bHHi0n95UIT6b2l9YPQ90L4ubR8Y+/VdNB43Gg8weCQRvyiNHxj8F9DfHNpf
YPyVQn58aX6A4YfFJzB8fl3wymLnBHdyeVXJndQ+BzLZ2UPJntKfvGl+3UIH
X+Kw/tich5beRGHUf+8bKPu/xGomrGgIIk1L7nfaRIcQZdMz40u6eTAp09Rl
f/hdsqFeDuIDnxLZmxKmYk08ED+l2ew42Ysc8bB0HDmXS54kWnMUc3gg1LTt
okJhIJwZOyZEZHgK6VuvdPjBAx58ORWSYCTJhV9n5lxbeiqJxP14od8ZyIMT
i/6suyCVCkWCnPIFOU+57rcqudX3eDDkNK3fQusDo6+J9k/T9oGxPwzxnKHx
QD8exL+Zxg8M/iHitL+faX+B8XcG8uNN8wMMPyw+geFTfJf0bPW1fuRgQJO7
crQt8R8pWnye2i/RavPuTJoQQrbVa6bIVnuSsc9TTMK/8yCtsGXI1b2PyS2X
Lzqv+O+TW3KTQoZR8ZMpE9Cn4hVHdoyat43vdxx5lmKenpvMA/3S8puxN5NI
eeLd/2Iz3xCnhsBIi6XUeXfcpdQx140Yfajp/ChQQpbwVtrEjeqAD2T/ClXZ
XOC/HCKwOa6IiGRzXvEc2yF536QaQc8S0FD5b0KQRxo37VLuu0+d7dCD+r8u
/dMHRj/hGG3fmLYPjP0jiKeFxgMOiCcb8WvR+IHBn4v+utP+AuNvEvKjTvMD
DD8sPoHh00ppq9Ao7yAyxnRl50r168RSsjn5ci8PCr8uyOLTe0Au9q0/uznH
nugptUjtoNax3iEtRTs+jnRFdBjs/BpInm3iy2mr4MFbTcPt9f6vSWL5uavR
76LJVou1EfpnefBkblbB5cfFxDJmUS6cfUtyPxV6rBvfDq6xuerfX5aQjOJv
mhebG8nDPws/3V9ZBxPbXN/UtFRCRrfFhXzbJjKlxHdil3QNzJvme6PZuAl8
y2asUU4r5tJ/G2A16sfR+iCG+lfRfgltH4LRfhLiCaHxQBbiKUX8GTR+YPB3
oL/8D/75C4y/VcjPTZofYPhh8QkMn6tf1m/QSQsm+wrmSHlJnOIGD7v6eTwl
j9baP/Sq0CPy+nf7kZM6V7gqRS1jcrt4IM+9pXtkdyJxHrnj5pAMR65p0648
l3c8SAyWr40vyia5dR2bZ0SEcmeaDVsxgcOD3t7kfLXYWvJimYWVBLzmXpZ6
F7EnrAVmrDk+MtSIR8zFxKXn3WriHn8wL3h/aQYUeuyavbmRB47fj0bObOjk
pjqLJXetj4H37eT1nDttYPFVrWSIfX4C/f/Kfn19Wp8zzYXWn4X279L2OZJo
f3QfjaecxsM5g3iyEX81jZ8zA/GvRH/v0f5yGH9fIj/vaH44DD8sPjkMn3bI
/0+TgfyX4XodYq3XJ1zf8oiB61uO8fCUFQ8pGD/mGD85GD8xGG95GG++GG+S
GJ95GJ/DMT4VMJ6n3heTspxVynHEeN6G+gTjfxTq+6P9ctwvLmg/G/H44f7K
QDz1iJ/gftyM+LvR3w7W/q1DfoxY+53FZ39+kMR8os7KJy8w/6iy8k8h5isb
Vr4qxvy2m5XfbDEfNrLyYSbmZ3PMn/KYP7sx34rQ+RkmY759i/lZnc7PnFeY
n8e+pPVHYz5n9GegfWvM/4z9m4inG88LBk8F4tdhnS/v0V9n1nmUOjA/959f
LD77z7ufeD4as85HMTxPnVjnqRCev+2s83cOntdbWee1Kp7vF9nnO9YDV1j1
AD/WD1MNB9YPJlhvuP6rM+5wXLHemID6QwwH1ieqaP8qq56RRDzXWfUPg38X
q15i/P3Kqq8kkB9PVj3G4rO/ftPFem8zq96TxvrQlVUfmg9ST24apP48ivWz
L6tetcD69iSrvi3DeriVVQ8rD6yfOUz9XIf6Fax6OwDtG7Dqc2usn4NZ9Twg
fklW/X8N/c1n9QvyA+vn/v6CxWd/PyKK/csGVv9yFfudWla/w+oH+/ujdOyn
Cln91Ejsv1xY/Zc49munWP3aa+zvJtD9IIzE/q5xYD/IYfrBLNTnY/WPMgPt
9/eb6xGPE6s/jUP871n9bAT6+4zV/1ohP82sfpnFZ39/3Yj9eCyrH+dh/27A
6t+3DtLvS+B8QJk1HzDDecI41jxhCM4f5FjzB2ZesYc1r1iG8w16rmHGYeYb
Q5Jo/fWseYgA2p/Lmp/cQjwTWPMWZj6zljWfGT3IPIfhx5A1/2Hx+T/zokHm
S6x5HQwyr4NB5nUwyLwOBpnXwSDzOhhkXscZZF5HBpnXkUHmdWSQeR0ZZF5H
BpnXkUHmdf3zzzUbAySUo7IgQ8pWL+ZeAjiaDpcrluDB3SK38Jd+WWS/iv36
JuEyQiK0Fgk3tIFs0awCj03VkCehwdESLiT/jRzSevRECxVvtDyKlsMOlPuh
nTO0HXiBdkJ3nfY6qdhIep6L/xGrKiYNGW+Xqq+vh63KRwT3ar4m4sNqdnmu
4xHdN5Hv7Ye8gqa784bOvdAKTjqRPutHviMJLpIWlWPLoQXl+rQcClBuspq2
M4+2A7vQzhO87sSEf9eFd3jdaJRX03igGuWWiEcM7cxDOzy8rgleNxyv24Xy
7YjzJcqjEI8M+iWKdpLwuj+Qh1y8bgbydgx54yJva5HnCuR5HfKsivIXuC4b
Uf4S7VzGdXyOdrbiugvModfdHtfdQUCpsDnxBFFZdTBkaoM1aa5S6rtKxUlP
+cKLVnmnSZqa/e6jtjdIUXX+U9c//4s+DKIPjP6ICzIVjRMDSNek+lXzBN6Q
M9f1o4ac5MFsIXVu6bI4EroicULcgQKy1OrrEceHHWDfFrAzcFIc7EsKeNA2
Nodo6RTduyRK1Q/zfZ4MXR0LPOWtKaeD6ojGOj6Bc7ObQbqt88FWu3cg3DOi
6N6odOjxIesO5LbDE7SjRtsBxo4r2umk7YA62uG/NSr38u80ohoSp7f8bgpR
iHsk7KHIg50ecdd6n2eSpQ8njHXYl0fk5u1sVzvRARejROWSF1QQsRdhp946
VZL5Dyac+Lq0GWZypXIuTiiG5rID/511qyF35QXk9NY1Q0qQb5Si0wF4HnJn
yNfFbcR8p8GGK+s/QP4NNV/evFr4bbds741R+dwlMdu07Ie2wka/W6Kx7Q2w
7kvHjzvyZURLt2SNQVsd/Ify6bQc9FD+LUHyxaE6Qp4Nu7dLY2YtZBREF21I
bgGTYvq6ifR14Spe9wriV6Lxw2zEP817RqdIaxE5eW6a+f3AWBKWnC+qtbUD
1KJHdWtNrSZbMqed8vV5TVpPCV17cLYVXvhNWXypoJH8fDczz1Ginjwddz1z
W14R3J/kG2Ds1kLKzo+fG3a+hLuvo7BJpKgW7M7v79jB1wCzcke8maXaRERV
dryKNMhk5vKsf52w6csG3RTjVuBtkpjsWZDHDT7BtcwwrIE1Ihvs3uzqgPVP
9u9baVXMfSA8ZkHUpXcQgvZH0PZBGe2vQv1JtD4nDfWjEf/Y4n/4wQXxD4Yn
Gv36SvvFWYd+vUM7TTQP4Il2XJFnceRZEnn2Q5wTEGf9WhrnBIzPPxifqhif
qshDPc0Dxx952InxsBXjYQfGQwza78mheR6DPOxF/VkYV7tRPxPx9+I6XkT8
FoiHD+h9txXxyGOcHMY4uYdx4oP+cnBfiKK/Zol0fMZifKZgfLrjPjVm7dNK
3Bc/6X3BkcN9sQD3+2bc719xv2/AfdeK+84b910M2jdi5ZNZuN8P4H5fjPtd
EPOV4GQ6X53CfPV/Ne8NllcjQ+ZKaMgfIqaL8yPWa90gNgIjZAP+z8uBkUvn
2yk+/P0cNl26nKXkXkp+mkvvD/VohyMoX0fLgZGLu9F5IBXzgAbmgXvptDwd
89J2lF/E/b4B93st7nfmuppo/yvaP4TyvYiHkRti/tyN+XMu5k8lzP9JmP8X
Yf4fzN/BzqPVGFcP6LgimRhXKzAequh4gFCMB1mUf0e5J8rXoJ1ktJOMdnSG
bz3ycFw9mD6+nxOa/pp83P8xd+OeT5AwfIP7Zqk2kmeqYvZNt4CEmO3u/Dj8
/aB548Y44xdi3hRPgqmyXoVFIFs71ZR/Qw6EBZWPO/yimTTu7POtTv0IV2cL
yvsbPYf6FI0UiYiPZMrcqAXZCh+h4/GfRaucPsLKhatcRgflQ6bRrAN5Fu2w
26cld7pWISy/vdHTPKoZ7jQv9DqingGSRz8vviv7EU4Uzye71BvB8tDJRfkO
H0no/lOSmU3lcKY6bLTJ9RLi+EplZU5dK1GfrWqXVlMMTRGeF8RjqslW15jx
HxKKyO4js2zgVzOMWDhe796JCjARiei9Jv0CbgqWXlv7pA1KK6Zp6hYnEfvi
FzZ/9paRKV1jpJsPt8NXj7XlI9RqYNv+aS2TRtWQg6XNgqt1GqFbnrbTNZW2
44B2pHdMeL56UQkI/hJJTwh5B8/3PM5VXdgGesi/HM0/1CH/C5JaXI+pFJLf
e7izZYbVAscrd1GzVTNVb9L4OYhfD/HnI58zaD7Jb+TzOvJgjjw4IA+LkefX
NM/EBHl+geuVTq8XycP12oU8+yPPT5BneVyXMHpdyAJcFzOMhxt0PJDOGjoe
GH0NXMclqH8Q7d+k7UMq2jdBnIkYD9cQ5zb0y4n2Cy6jX4PF51vkRx7jrR35
IRjn9XScgwnG+WuUe6PcHeUfkB9/jGcv5Gew6wYP5B/0Eac98rMZ98t75Ecb
efBFHpyRB0fUn4t8TsD9xeyLbcj/PORzMDwZiD8J13cT4r+OPCdjPGggz9nI
w0PMAyeQh1rkcx7GWw3yuQPj9jvGrRLG7QmM8xsY52UY5zK4LxRwXzzFfXEK
9RUwL5Wj/ihPet+tw323B/cdD/dpJO7TcbhPn8l1hT+bmUQUti9YUzazifSO
IQ9fVzWAw8hTHptX5EKJmdTtZ+pNsHbq8NthIfXwQF9BemtfFrnWnb5zhVkL
Ubp5pGFcUA10JurGZxfmgdUBpau18q3gc0jqYP2YDzDvYIBdKI9H+H8GVTvK
d3PlGw9ubJGNGpT//6flG9GvdvRLHv26jTxsRR4akIdfsypj7YYdJ42rkpcp
290gAqYxt7z+9vUD5cDI16L9D7R9AmjfCvlxpPkhzsjParwuh74ufMPr7kOe
bWieQQF5lsC6aytddwFTnw/m73bn0qGNSW3wUnb2vI8eseTFovXKZ0IrYBfK
r9ByiEG5DK7XCnq9OFUN9HrJ4nWt8LpMvddZIfRST72BwJ71+1UkXhFHD96R
JxebQHyzhHRTUTHZVVlsuNUmhlNzNWFq0aQO0Ma6QoauK6AZ6woH5McH4+cY
8uOIPLhgvIkjD4PxP9h6HcPrHsLrfsTrvsXzYg99XoAGnhfFKFdAuRbKLXjS
B0ZfNyCvtsjP/21hSSYqOi8LouzrhK2+82nSGzhw8IjTKJUqUnDRdPHP/FYw
aPwpWvElCwL7etyfFH8k+XY7rsz8+QmeH5XVODY0Et58Ni0IVv5EfN+NF5cu
qIcrU79FbtO1Akc3Yy3/nip45i5y+MqGNmiSsfSuMw4mUgm2nmO6PkJW6YJb
QmnN0KM/wA4wdipwXfRwXQJxXWpRLkPLwQ/lrX2uEr6Hm8mzJ6aKC4LeEFu5
Gwapph+hC+W6tBysUe4T47wywqwdRgdPk3q4JYPoHFdVn9lUDHdQ/jLonxzU
Ub4N480Q4y0H420HyuUxPlNR7o12ytGOKdoJQLkLLSdnUN6Mfl1Cv5zQrx+I
/y3iN0b8f1Bujv4aoXzVJJr/EOQ/Evnnm0/vUxXcp224T11w3c/iur/BdffG
PFCPeWAx5oFVzsMFdk86QuSuLViseNoSmtIl80Oo+Klh7fe5GOfmGCcluL52
uL7duF9cMJ+cwf3yBOOhFOPqJuoPdt3B4pmlTwbRB0ZfCPf7Snq/c+txv2+U
SeOrmt0O0jXe9/lepHL7dtieSrhYDqdCz5mtk28kvz0stp4VfMtpXqVknDK+
aVD7g+EZi32cNt3HATO32Yt9x3903wEy2Hec/GPyuP5pIameObLVtfEdFAds
Ec1JbYPlOB9roeeihJmLimG/qUD3m4SZL33BOlaProcJU8dOQjz/sfCcQjzA
wmOCePIRTyniUUc8lSw8yxDPHMTD9L+iWCfMpOsEwtTPMqvXnR8iWQEZ4Yt6
09XKyfgQGPmpoBm0kf9imn/uD+R/Ha5XefW/9eKM2Umv1xA5Ov8swPyThvln
OV53Bl6XqU/+w+sSvK4AXvcR5sNwzIevMR+6mdz22JGTRzr/2F924LyCfXtu
+RildMCGFR8XDa0oJpm3C/zqldNgpJFrSkJoO9y5rXcuSKCCBH77IG+7IwpG
1xt9kuW1QfScqUOyJGqJZJuK2nmXeNDbbOdfUdUCcUJKK4ri6oix3g83bfFH
8N8bzWWdks2QaEz3+z30fBKYfn8S9qeP6P4UlmB/moB1lA9dR8FErKM24dzg
D8vONrQTxbJzD/Efo/GTkYg/AfGXtf7DTw6y8Ifp/sNPGPyyxwv4O/hTyYb1
iV/uTigA5+2bVidf7gCJXX0Gz8emQXb6ds2MxnQS23A1sGMSDzqV4LSvYi7s
rokaWzn5DSm8Gr96m0sHTKmk/QpGv4TRr6stEt9Wpz4mwoJvrS9t4oLm4Qb5
nmQeaI1VT5NQTiR9cb8bZnW9BK0nNz9o2vPg8TebEYYzU4iz7R5rmRPpcPZC
kVT4Ah5IaZyKDjjnBhCwe8zY6mzYEazGa1tJnZsRy68HxviT1r7FecPn5YPl
46vbNL90wLmTBtrrsirIif/ejUle94JzOsKAe7yoDY4nRaw0n1dNhE7UqJ/8
eY/MWLm+/WJbKzxxTjDo5fGgSznKwGrDF25OY37fFr4oWFUUsdG2vhHOfp2h
uEWtkex2fv3p1vMQSG4Ylv0ntwzqgiTTrS+0g4ZjD/8O83BQrqPlx4NpuT7K
79TTcnFaTnaj/I2O+/D7n3nklfuwjbkl3Vz3V2vmz1B9DDqoPx/1DVA/Qdc/
2uZ2LeSZqe6zjmkhtZ5lQwNfREJm9gXbkTNbSPbv/SfOq32EFKE4b7eVMdCI
8nu0nLxFeWEh7Vc17Rc8Qr/q0f4z2j74oP2RObQdY7QfgXaWvKPtXOim7fx0
ou38RDt30c5eL9rOG+SzltYnanjdOXq0/k30Sxj12xC/P+IPwOuOmBPsKSdW
SEo/py6Qv9tB3LwXvncb+XjQOpYnReuX0/pQgvpjNuSGBB+tI0F/tLYUHW2G
quNrs8w0HvTHQxMdD5wKjAd1tNOFduLQjul62s44Pu1/dqLQzmrU70ac3/4P
cDLxUEPHA2cZxsP/Xf3L/9/k5rguo+l1IfG4Lv9vw/n/Fflw3C+h9H4hxcjn
ZoM3nupzzxLNFxYnpEVvk/lwbPhyqr7KNgi6MX6MPPm49tmsn/k2xKzkzexz
lFxOQnKSWuoRorLzQfuvS84k2LJhRMtvSr5xU6KoqS6kWT5zGMdvR2amHb2t
RunPWD3b6/ssDqzeryElJOpG3m3iF3Sj9HdqeRwdsdQY9OI73c3M7MjNaOPP
f6+7bf3qLZ9454E378hM8HcnJn981JQp/dvSJg6zP5tDRGotjD18i2jGt9pL
UvqvHzZeirphDceKP0X09rqR9vXJZX2/eOB6Z1h9fIANKH4O33he5AY5wF96
VJTSH1Z44ZFzlTP4iSaVJGk4kz0jRumXUfqbPS3VHnPtwdLYrat0xwWycfWi
OZMp/S/np+gklHmAkewTxzmFlkTmhZjI3+clFuPzAPfdTwtzL1/q//3OVrRz
kbYDjB3mdygx+p3BfTPOcObjcxo9aP8wbR8Y+wz+pTR+YPDzI35vGj8w+B2R
nyCaH2D4yUB+jtP8AMPPHuT/AM0/MPyrIf/tNP/A8L8E1zeDXl9g1nc8ri+H
Xl9g1ld0YPwAEz/LMX7W0/EDTPwsEvsyZ36fNsltFbl3MsUKSqT+9DhT+tsx
PrXo+AQmPit2DNmaNdeCPN4rF6221YW8XrjU8DZlZ3L5otlk9zUiY9ywfp2v
JxFfkbA1m/K3bQnnl7HDGRI72mqKorY/KbFM/JLTxwOD64aKbZ/0oatqS2e9
UxApj+xUfdzLg1mxKd9UHtvCwrNzhp7eEEx6NZZbPv3Jg/XCNaECcd7wau60
E/WjAsm2TcfMplDyB+0+H5KCg0Hz9/UaPhFXoqGvY1n5v/tdzNqihJsXlm3m
PsPnoB6h/j5aHxh9xn4GbR8Y+zMQz1IaDzB4TiP+bho/MPhLB/oLjL9jkJ95
ND/A8MPiExg+y5rLs+aNciLO968180Z6EK0rrwP2UPrHvp+SePifM9HTKwq9
KBpIfE4k1J+krpsX8cyoJe02SfGYfjywJ4T87lp7/eAPSv9O0pVpf4zJ5PPu
byIORZK3x7JPyHbzIGbo8Lp9321ApKx3iV/CE9K7sVPjGXV+vwq4HHlZ9S7U
durzWyx4TIRW21+xauPB3PZP3TdjHkPpY6+h+0/cI7vfFq3f3/o/v4sJ9o5S
bj68irsAn+uTQ/0yWh8Y/VS0X0/bB8Z+GuKZSOMBBs9axC9M4wcGf/pAf4Hx
9+hAfoDhpxT5dKX5BIbP3buU7lW/8CHaLp9PL1DzIo5eQtJbKP3AxRm9B3rv
kLzYh7tned0lKbs+6Ph84wE3pjQ58E8w4TvyreZ81iOiWf4ySLCdB1PdRA2+
Lw0kInWvA9bVx5GglpCjvhWU/WkdNqnf9Yl+d/GeWHFCKj5B7ZJUHjT2vEyU
DY2AxzpDFI51vyRiwdeVzz6i8r/NcT3z0y9AQMN0jPCw52TYuCFme0N5cByf
Uw26feHNcv2g/t/F5KP+cFofGP1WtP+Itg+M/YkD8QCDZzTin0rjBwZ/PPr7
+/A/f4Hx9x7yU0TzAww/e5FPXZpPYPh8Yh3F+7HuHtkQBGMcAj3IMG6NkA61
XvLDnszrfB1JjILfnnmvc48IvXMTHd/Bg4uJVmmu+dEk2al8l4bFM/J90rKX
7QU8GJnr+WSBSAKRNmp0HSqXQnZGfMtUsKbyeepH4+4Z+TB/weXGox4FIA5a
83lP26Hlx5i3npNCYFiK7rbQshK4GxgpYl3VDmeUDBSqHeLJnL5rSdNn54PM
zc/Ot4o6YB/2WT9YfdYFxJNC4wEGz2LEb0zjBwb/M/R3E+0vMP5udZlRMGJe
BBm/XadcSeQ2uR9tqXH4Kw/WyJy3Mt4bQxob98l5FvqSiz83xWypo/Kntpzy
nMxXZN1rS7efdx6TJvU6tefBPHhn1/TwjE4+iW876JpemkbWxAznKF/vgKlC
p/4E362BwMib+/WFGyAyjl9K9mQtnMd51w2cdynivGtvQfSWlO73hG9NqZOs
+XtQBu8HcrtbwAHnA62s+UAH4tlC4wEGzzrE30bjhwuIfzv6O4X2Fxh/l7Ws
DrsVEkmKj4ZvSos14T4KfbxViNrXJz93fD6tF09aQabUztKO25pUuTa1ispv
QQ2bhxxIJy8nhQwZcj6IeyFf/CyfJbXvcA62GedgH3EOFtZ6qU3uCQ8+Tkrq
lVrcxnnkrxtIeK/65+3zcd4+Gu+PTEM7qjg/Z+wU4XXT6etymOsaIs7PNE4O
g1MJ/Sqn/eIwfu1EHn79N5AHhrcCFm/dyPMS5LkRea7BdY+m1x2Ucd3Fcd3D
6HUn3rjuEbjuDjjPl8J1Nxq47mQFrvtHtP8c44qx/x3xrMI4ZPBsRvzvMW4Z
/HvQ3yGsOH+O+2I9a1+swn1kyNpH5rjvXrH2nQTmgQV0HgAmDwxPo/OAIp0H
yHTMA28xD0ym8wAJxDzginlgMZ0HyFzMA2JofyErz1ggnjRWXuIg/rOsPJYw
MA/05z1tzJMHWHkyYZC8moN5WIA+d2Af5mFlzNuSmLfvYN5WmE7n+SusPN+O
50Iingsz8VyownNkJuscuYznzuLtd0+FD7nCdcNz5yPqT2edUx1oPwnPNcZ+
3bQBePrPwSWIXwrPTQZ/Nvo7Gs9Zxt845KeYdS5rIZ8HWef4Bzz3XVjn/hms
E46w6oRarCvSWXXFeaxDRFl1CMG6RYJVt2RgndPNqnOWY11Ux6qLVmMdZe75
r47q/33EqoH6/XVX1kD7hF1HSbLqOgPEP5NVB35Af7NYdeMp5OcYq86sHVhH
9delNVjHPmHVsVMH9gX9dW/TIHWyJtbV31l19XSsw1ey6vDNWLcXser2Z1jn
67LqfOb3EcJ0X8Bh+oIY1Ndi9RFb0H4pq++YjXgUWX0K09d8ZfU1n9HfeFYf
NHWQvqkJ+Yxm9Vn7sC/TZfVlu7C/28jq765y6D5xDatP3I795ldWv/kG+9az
rL51BPa/oaz+txf7aBNWH838PiJeP9dxDc+ov+/+hfoXWX09/0D7/fMBZs5g
zJozbEX831jzihr0F1hzD1nkZy1rfrIf+dRjzWHksC/OY/XF2YP016w5TH+f
zpq39Pf7rLlK/9yANT/pnz+w5iT/M98YOA/hDDIP6Z+rsOYb/fMZ1hyjf87D
mlf0z4tYc4n+uZPoIPOracOlp3zIMSTGqakik/TsyHJ+h5V/f2fRqGcg7Wqg
Q2a0XGj13ehEutTBU4CSD3krdWZ/5R7Qvpp7PXKVC/mU9mxbMbVeJl8Nw2dq
XYQra5OEfyq5kOwTI8vj/6571gSB7XJWMOVj2is+fkeivth2dAIlL4x30qvZ
eBsktOUqok5bk21/Vi0o+ruPjh4Nc6p1hEOLTpR9oPh5H6u+8CslX458JlqN
nuLWadQ/X9KOlPTeke4ORptH28+l4nzktaas71QcjhHbHSk0wRHy3lxP2bbf
EaafjnFZQdlRWbBun+cWSzh3P+Ous5wL1N8dd9uakutctL9f++YspAUJT54Q
7AxHJ+x8XErJL5TtnSE5azd4d+x/VpfsAN68GC0J6rqVxu3burmqZPrO/HuH
TG3hhbbHV21KvnDeUn/BTeakRDvfsXq4C3lWNuOLH2UnXu3U5C3tl8mE2CV8
K/w9SN7j09NGUPL55e90W4boki4dsmx5lg/JSDry+hCFf8FknZxX686DwvDF
3Euv/UjoprJjDVRekov9vXD0NDvIMpG7dcfLh9wy2mCf3vd3fnLNr1rcHdzt
Nzd3F7oSxft+1iMpOwmGR3/mVHhBvXi43ipqX1/uyph2hpIvxzwAGh7WAl+u
9ueB4OFj1dcFBYGB2L7q4VR+/nXe/JQ+lT/1Y6+faz3vAeFHRi6uc/QD341a
P1ZR+VPwfeOMRSLWsPu34iIrnj8sm2i5QZXC0/PNvMlh7XH40jV0yNtvPjD0
yhOnv+eR2/VdH76M3UsqHp75LB/pAeuMom7Mo3hImPz+t7rzaXJC+ceTyRdd
YPMhvVOvKHn6jWOvij+dI3aNI8dMuHsbcpsskmX/7ov14T1TMhxIreRSqZ5C
d6ItYepmRNmvFJz7RYnPgRjURZVOnxpARPOnKVVTOJXfpmn99LEihpPEzIP2
3yNdUkt/JFLnyOSPRqJNR8YT923hwXchjOjZKDTYf6f8tRPMz9viBDyto2Y/
D4YR75bvIy2oeuab+9PZRn2BoE7Wxyb2BpMjU2cLLab0i/UVNnsl3gNZB6E7
B6hzSivsde5d6rz+iOfapDGfowPnXO8/17aNbh8y1f8h1EdF+utT9cYMr6u+
26g6Snic3O+kXYEw3urMKvcVkRAdUjq2sJMHmaoGnvwHLKG2p+SwSHAEiFWd
Mden6vaCh726fK6HiPgP/0Ln6BDwnnwndhNlv/nervxxAdfIl8zp45753oF8
j1UiHykeRq4++nn6Bktyvc4ghvh7geassubrf38PqFG7q97Akoj56V/cYe4C
nNDCpssU/xsXnhGe1+5Nct+rdDps8iKay0JPGFN2vPytE86pBpCTObJBSzbc
JXZxNsanKR4s9+k+BosAIuNyy33GwockQdBv0XwKf46m+snweBdy/6ZYatMw
6tILD9542kDlh7HTNi09YwuJJqfqVq6OJz23bN/ZUf2anpHw8Zy2cKga7/Zh
58Jootx6YsPKah4k6o7QOlD2FFQqF973PHWPbJQ6JSfTSPV3WKcd7Tr3o/6M
J4eZdxXdL3w49nMiNG5ce1GIqp9NEseELHrMg+gh0aU3Rt6DPot4SYHiF9C0
86nl1RQewKdtpYYvT5HTM8evr0+Nh61tsS2ulVQ/mCj95HSyCzHZo6h8xy0K
BEKPbXGj1mvRvasWe/TcibNJnvYnj/vw7tahdH0qTryk9hwo++VKRMxSEsNf
BMKbUU+b//5eeH/mjgANdWfinzryru9ED8h4UFmjSPE/3Ulk6OSCuyTn9pYL
S+s8SLrTyVwvKn70Te0qDSc+IMLj1E94u98j+2TXbDlI1Y3PMzPCD297Sj6c
Fpx/bt0zkv51X9H+Mqqeub3nXafJMzI7RXN2e+lL0mvy23Y51RdUXHAQN4vM
gayq9qHSF6g+7E2KeCfVR8sKHn3mtSgYzCXWnCibWggdT9cXDnnUAVM9Nsm5
PQ4nytze/Cur3kBGQ1rkvEM8uIn3wYVY98E1P4hyTEaHkSBbq/S1Wx5DechQ
I41mal9M0gDPqGDiEJl5P+bQXdi64bV9IRW3U01f/Xh5z5eI9umqegh5wclg
QytpKq62lwsfW5AZTt6ME4/RN7Anm85/l/aj9AUuyWV9t48mug+crG999icO
Gc1js+t5cC1XcUaq7kuyOlm17Lp9FHly1m/y4UhqX+PzJ+r4u4Yl+PyJ0r53
n48d+wCheld2bLOqh9mCD3VVt9SBFz5/uBqfa/qCzzUxz9XsZT3HEqThdP55
aBwxq+y4473pKbzUnZYonkvtI8sODaL5iMjolnATd96FRq2wuo1UnKQlPBBv
vHuPrHhte37YN3dQMavUWkutb5BIuYWQWSSpjEg6aq6+nSjw/06cT9X/lSrZ
J5UF48noqKtya/JOkVW/fM4//sCDk4afAtSfvSZLbKbJXFhvQxJvKd5svcUD
aXwu8QD+DuU+Ppe481fgyZUrefBy3aJjKhJpUP17buoXs1SIw+d7C/D55BB8
vncu2rmIzzeGop11m9s1rS6lEGXDRcNjCsIhLPS5mHMQ1e/cdpSb/zCG1I2P
rhde6QU6+x8OmV3HgzUTusD7vwhy6dyRipYltjC9osXs4Nf/kR9jyd+gnXyW
nc143SWs685GnMcQZ7+/+x8Un/P/CLpVDvwFWxvI2KHnN1/8UgVG+Hy1HT7f
fgafr5Zh/X6H8dcIea67OZDnGlwX6ycD1yUE17EhfOA6ZuK6K7LW/RbGiRQr
TkIwrq6z4mocxuEuVhyO9xIIW32qEGbt9ZPoXfGObKwY+2h6Rxvol+34vtAy
COJjp9hlja0m78b9F/PxayvwD9mbNsMig7zVdHx/EYqJooLdYiu/dpiG9jVZ
++XmIPtrHO5HbdZ+3Iv7l7D2rwjudxHWfq/C/ODIyg+HMZ/cZ+eTX/effNZ9
SH61PNx+2DMBDK50TFXLos7lXMFH11a/glGB8y478yWRBeu7ylbZUHElM3Tl
/sJHAN9SZWcKZ5C40/9JJJ/kwQEz6QRDbz9iIAzTLzm8Jguf/hfMT61vL+bP
eaz8+QLz7UdWvj2D+XkiKz9LYj5/y8rnmpj/vVn53x/Pi+ms80JpkPNlJ55H
V1jnUfog59c9PO+GWQ487/LxfOxlnY8Xcb60S2KD5egZzhxmvsScv1tZ5y9z
Xleyzmu+cfT5nsA637OwHnjEqgccsX5YxKofwrDeOMuqN7ZiffKWVZ9YDlLP
DMf65wqr/mHqpU5WvdSA9dVMVn2VgvVYNaseG4n120RW/bYV670OVr23CusW
szDNvg1nLfrnS++wnpRh1ZOfsf7UZNWfpwepV4+U0fWtK6u+BayHz7Pq4Q9Y
P59m1c+uWG/Xs+rtDKzPb7PqczJIPX9zkPqf7zvdL3Sw+gV+7C92sfoLXexH
Iln9SBD2L2dZ/Us91uGrDxo3rGg16q/Dmf7oE6s/isB+yoPVT83D/iuf1X8t
wX5tKatfm4b9XServ4vCfnA8qx9cjv1jOat/9OowbVcK1iX+Nco+NUesYe2j
TLCleP6KfehUVh96FvtWJ1bfug/73HRWn7t6kL54KPbR5aw+ei/23TasvlsB
+8roi4vsDC5d6u8rt2Nfr8nq63NwDjCVNQeowrmBIGtucB3nDNdZcwb+QeYS
XJxjTGHNMQwxv/E9H7pn6rJ1HOa+bSueI90B/84RkMdzJAHf+6R9Lm56uGI8
Nx3f+9TLR5+n6XieKuF5ate8f4dhQx6xMVrYFS1UQvjun4+OF2gH5Ya5u89X
pZNzDW2KUwPfwYRo22XfSDvsthHjSS6vI6edzLPt+t6Rj+vJWQ2NJphlIL2s
qq2B1PVx3mTfzSPTbkRA0LDG/t8t2mA9cwXrmUis66rxd1uNWNdtRfvmtH2o
R/uyaP8RbR+moH0d1N+P+pWon432Y7FufIz2XRHPLfz9GvM7SgW0b4P4x6H9
LZ9mL83izyeGXg/zJW6UwI51Ff9tqGqD6Vif5NN8wnLkUwHr9odYt8/Eur0E
1+Xs7xx3s9K73Je4Lq+Rf3fkvyeU5r8E+6B87INWYB/0B9ddkq4fgKkfWPuO
MPvuLsoDWftRFOdp5+h5GjDzNF2sN3RY9UafO91nLaH7LPIG+6yzeP9LCu9/
MffBE7GeUWLVM9LYx12g+zjSiX2cMtaBMVgHFmMdaIT9zkL8ndcQQbrfYd4/
+Vl0tcKn4BDua+QzHa8rQ18X4vG6f2zounEH630RI7Ge3MOSW3GMWnOMssi5
mDNrq+uKCe+ijUyQejuo433PH0Df91yD9z1f6RW+5cqWQYBQbLVrfhVJa/hg
6+PXDDfx/qkF3j9difdPmfdI7Nr5oGiaWCRXAX8vL4z3Ye/ifdgHeB+WeQ/k
Acnus4pa0f3vgZSRpZ/zn43P+efic/4zsF+wZb0XQhLlV1j91+hPFpv3ZNcT
vp89M5LVioj4dHc5NbVGSNZfGB9TV0X4Rr7mT9zUSgpebzyvL5QH6Y2vNd5a
fSIhY8o5nSJF3CM328ZNcq6Hizd1Nn5a0ATrW4t6Gi/Xk1j7AwbpZ/NhC74P
QWbekHuTFnlyg/B9CMx99uGT/91n50biffbraGcVbQdi0E4s4uGn8UAe4vmE
8h4BWu6LcuY+dQ+9XrAS1+sm2ldE+/5o/wXGmzL2113YXwtNpn9n9Ax/ZxSO
vzPahn7V0n5x/NAvUVzHcHyOwhfX0QGvK4/8MNdl3ouootk7ZHPO8/73Ilah
X320X8QT/ZLDdVRn9YNTcX/dwDlJO+6vFNwXO3BfxOK+YN7b0LzjXxxy5mMc
DsX74KvweRjmPngJxvkTjPNEjPMpeF1n3NeteF0J3F/7WP3aRpzb/If5JB3z
yRLMSyasvCSH8sus+T8rv/XnPdZziYS5/8K6L9MvL8D7+8Px/j7znE8S7l87
fO5FGvevCO6Xzz30fpmC+4WLdqbi80LMcwLBmE/MMZ+0Yj552NATqGPkQfjv
F3f4XftIFh+Z+PDF9Bb4cdST+zmvFLJHy1xa6l8FH/Tf71z4shmG6tPyFpQX
onxeI21nItqZi3bmSGxZpCPWAlFTtnZLSNXCyqnbT6jFZUMono/NeD5m4/n4
fEqUwdgPDRBpq9LyZWYDSZd/ryD9q6j/3LRhvX9Ag1UPVOP5u61yq8yGW1Vk
1gcR6Z8rysiUutKvRx41w/z2ssyGudUgbWX+3kigngQvVck0MquDHj/Xnurf
5XAuL63q4+Eaclv3pVRDZxOkY563UAs7Edq5l5uKeT4H4/bC+sZMp73x3OVM
3OKcQZieM4Aqzhm0tAy0xqUUg1dj4TbTsRVUvbRbi9S2gBTuu89np/7unprI
vYP7rhjtT6gqiN563Ja7CO2LoF+S6Ncc9EsP+bmB/PgjP6nI8yusc3yR5204
/zmC85+JOP/xQf6Tkf/vyP9WnI/tWf9vPkZqcT62GNf3Lr2+ZCKu73z06+g6
yb2Xk2K5nujXRsxXwpdP8YW4OnBCMF9tRDwHaDyggHgiEE8MjQc+Ip7/Bs6p
wBn9NRwYJ/3vMahDHjwx3g4hD1YDeYMLqK+G/rrgPLAE/VVBf+0xntun0P7u
Rfz6iP/zEBp/GOKPQ/zliH8f2u9TofksRvtL0b4/8jkJ+VyBfJ41kW20mZ/E
sUM+mXPt5aV/fHIDkc8S9Pc+rrsh+vsa5cko90S5CMbtMoxbFYxbTYzbuxi3
8zFuFyKezDAxR35bwnFDPLUYtx8r/sUtRwbjdjfuOwXcdzdw3/H50/vOCPed
Le47x4G/cyfdeA42olwV5R9R7obydShvR/l6lC/F8/QXyhfg+cVhzW/nsH63
zsgXdNqtP7DwE3EbHrbIQPUp6ZlSFB9VWt8/F9Vk6U/G/PyJzs8wDfOzIMpH
0XUOzED5YtzXc+h9DTNxXysMzGMghnJT9Gs56z0Mc/H34DewTojBOqEH6wd3
lEehXBb9eox+9aFf8iifTsuhF+WzTE9/vXStifwckam5iDpXjVcml++eQl0X
5bG0HM6ivBzfa+0wnL+Jo5jMYd5rvRXjNtFWeR3vBOmPW0Y/jtbnMvr/of5v
Wp/jjfpMX0awL5uEfRPjl/QIGv9PxC+JOPkEBuKUQXkS+nUG5SuQN3/k7THy
Vj7w/Q9Qj/xnoHw9yltR/gbr1Ui6XuXoYb0qgPWJBmtebYbn9WX6vAam/t+E
/eB5Vj/4rLxazH18KWk4uPTXjQ9l8HOt+ffW2a3Qjf2aAGve+wr7O0L3d2QV
9nff8TlkOXz+cBbWXVKs+zvM+6+mDrx/BEx9dR/xX0X8TL1RiTgbEednxJmF
5+wWem7AYc7Z6zh/+K9GU2HNxBAu837jPNSPovuv/vdLj2HN+TdhHlPFPGZL
5zGyDPMYE2+zmttWrC4NTSjBeHuEfY089jWp2NecRDuP0c4ctCOCfes+um8F
pm+di3XmGtb9QX/UP4X68qjvg/2sPD7XzTzPOWLWXgEfyWTSPfJu2k6lAti3
woN73rMDZK666r9Ieg2zZceENR5NI7cE7nNzxHiwIPukUzHkwqKTYz9X5L8l
0VtOXOwQ6wCrK7ZGP8PewPBySXVDywzyzMf4/Y2yDjDG+5WjWfcrE/VXDl/8
9QHwlljFjO3Nhj2X+ROV5Hn9zyFPw/e0jMPnkJ/h+VKK58tzPF8KUf4Qz19z
lMvMPvpY+dsZkrdeVWr0mNvkbHfjAiWqHs5X/a61j3uOrHLM8AyebU0uej3U
M6XknF/Kw6+c0SaVYe8WNkY5k9X+masaf/NgyxZV0b1EFxQluRd4am5kjtcP
2ZuU3FNi7HVZFzPoEbxifHKsO5ke4GSwkJK35oyzCLFzgNCc+in6613I44W5
vr2/eMC7edC2JtAdJArevCrRsCJhXbvX8f7+riqXe1j+iycsFI47J/pnB1di
+hTOZ0r+DfWH0frA6H9B+3do+8DYjx6IBxg8Ooh/OY0fGPzL0d9q2l9g/F2I
vBXRvAHD2+WMYv4NXdfI0YTdv8VbnAknaEFhBKU/T3HSfh376+TlkZtaDjW3
yLazc7v+zp8djocnr8y7SPj0dm7iGHsSciV9dROF80epePE2px1kbdC32z1L
/EnvI4cndX08+B2TNveOiBn4h9leqc26Q/gtf97M7+VBVoZLw9oGN1gdcMDR
7WQA6dSdtnoCJa/+HHqrZMcdsNwoHOy3xJV4DFvMV/OTB+q257OzxtyFVx6L
ppzuvcR9Ky/e/YmSf0L9c7Q+MPqFA+0DY396LI0nlMYDDJ6diH8DjR8Y/Bbo
7zDaX2D8NUHejtO8wSC8AcPbjfjksAuL7Eipdtedw2fcyTHlI8OiKTvWFakx
i9RsSHjUZTEYa0+6D+atjKbsdLuPKFFNtyXqYl+vf3MNIC4nb4/kUThj1t2q
VawzJz6vb3y18A8hwty9IZN6qLy6ln/pYnEjkNief1hwzAOi17rg956vVD36
5lcKV8QX7H8lma5JfkASOg7Iz+3iwXDhsyo+syLgQuQq9SEkmFj45O9T+MyD
YCnIqLV9DLI2DU76XVQfseHomhOUXAj1DWh9YPRDB9oHxv7xgXiAwXMf8QfQ
+IHB34b+atL+AuOvNfL2geYNBuENGN4OfRvK+znfg8y+H/3yrJIXWVZllytJ
raPRmrVpqm+diccYnYirYQ7k4u7tNqP+zsPnqV8rkPAhwkFudusd7xK5mypz
pX/wwH78oQ3cIm8ikSWzSu7KIxIYVDf+D48HChbv/EarWBNb47WzRN/HEqKc
rBJZS+0LTf0KzdoAmHZi2J9ASCTKefe1dxXwwPxG1r1Dt2Oh2WS825qN0cTQ
Y9NJ32weFP8Ge6eDXBDsPXwkMzeUK/1m8cTbuTywQ/1KWh8Y/VdoX5S2D4z9
PnMajwONBxg8FohfmsYPDP4a9Hcq7S8w/h5D3ubTvMEgvAHDm/Kee1U/Qu8Q
R/Wcc1cbvEi9S8/LcmodpUuDA3pTPckCiw0nV+vZEydrizWLqPUaXjneVLoz
lIg6aI8zXBJKVP+82XWOih+7X4oVBwMektjty8L+C4kmN/iP+gyt4IHAAYcH
PU2R5MF74blp4inE/8xCV5ngv3nGq6Mo1wZ2SIgdFOvMJp3Jr3Raqb5on/BL
8eqqVFj7zt6n5kYGEVc3W+80jgep75QN24VyYU4An/X26ETulBQhQzlZyl/U
X0brA6NfW0bb30XbB8b+L20aTzSNB/wQjw3iT6LxA4N/DPorRfsLjL9bkDdv
mjcYhDdgeOsovt/bFhpKjq4OWTX8lTspPq9k+OsbDx5bfuoZ+8KfdOi+fSIm
bEMOZWVWrKHWy9iie/GzsU/J+S/ur7iHQkiqr+SHzU086FqecOpQWhIhl3qW
bVgRR7R1+a+7R/HgvPXNnRtfpxLJuNbtQn7ZZEKG6SaL8g6o4d9k9cXhGcnd
zssW3ltJ0p46aa/3aYMo6Z2VD38VgKqC2OWIh+VE8LelmG1EKwx1UVxo6VsJ
k7g/h/65lMV18NrhsD2oDVJRX4nWB0Y/BO2X0PYhFe1fRDwraTwgjHi+I/5s
Gj8w+E3R3+u0v8D4+x15O0PzBoPwBgxvyReecEPjHpBpUW9ji5bYEv7kjWGK
3TxYbXfY0OtFEAkv9TXwtjMl6XbB4eeovDRja+9CJbl40mRVeXXCVD+yZp6v
mzm17ry3jRv09NNJnt/v3LnaT4m2zlDPM2d4EGiuUi4+rYysPHJBQ2t8LhkZ
dkJB/0UbvPy64EDepCoyRjS84GlUI7HxS2tfsrYWuO2pw13+q4GxVxYtFXrT
RJYaLvziklIBjVVDLl5x/ASL5/2eaqnyjvvZrUDoplU9FKL+T9N/+rAB9R+g
/Rm0fbiC9h8iHk0aD/Ajnh+Iv4zGD1qIfy76+432FwD9zUTe5tG8wSC8AcPb
M/xO0PPwaYc2V2j3f0fpFdoRZdvB7wftWZBrl+Cl2v89prVoP5Jln/ke09Tf
Z8a7Lj/HvYLfJxJD/PWIn1mv5/idoz7vxSqPZjr1f6epG3nIZ/HQg99vunX9
R2uwRTjXhPX9pngfiU97agu5l1jfb2qNfnZv9NVabhXr+00C8jFKfqPjE6qw
jyhA/Ue0PkeB9f2mato+Zwnr+027wsTnVv6+yzFEPJnol5jPP7/6v9/El0/7
VYXxyfjFfNdJguaNw/Ami7x1Y5wz605wHXPodez/3lMuruMc9j4auI6cQdax
f399wf17nLV/n+D+bWPtXybvGbPyAJP3Ulh5oxfleax8yOSTa6z8+RPxnGXl
YRae/jysgnneeZA8L8vK88x5MZ11XtzG8yWOdb5MwPPxMZ5HzPmojefaRta5
9gbPQf/aDU1jrsVwmHMwD8+7vazzdCjaj8HzlznvnBBPMuu8HjvwvOs/3zcP
PO/+lzpBllUn6GEdIjFIHeLGqkMaBtZv/fWMO9Y/s1n1jzLWb3aseskJ66tZ
rPrKGuuxTlY9VoX1W0CahdqWAi8OU785on4tq97jDrTfXx8OQzxOWE8mIx5X
xC/Pqj/rB9Zv/fXqEeRt3iB1rxur7jXHurqEVVfbDFJXf8H6fDerPo/Fet6b
Vc9LY/0vzqr/XbFf8GD1C6OxvzBh9xfYj0jQ/QiH6UcmoP5JVv8ShvZdWf2O
AeKZzeqPohB/EKuf6hjYj/T3X7cG9iNkEN76+zhWf93fJ87HPpGw+sRb2G/+
1h3Yb4Zif7qa1Z9+xv46hNXPvsH+dwur/20Y2F/398t7sb+m+2ozDtNft6P+
eVY/no/2N7P699nYXwez+n1rxL+ONR8wHehv/zzBCnk7xZpLsHjrn0usxPlG
Pmu+cWLg/Kd/HrJpkPmJH85b+ljzliacz0Sy5jNdOM+ZzZrnOOH8h577mHGY
+c9X1J/Imhe1o/0w1nzpEeL5zZpH7UT8K1nzq+4+2t/3rHmXIvJTwpqbFePc
jMOamwkbZLnzz9Qlmp7hhx+YOJMSpyfX2ig7v8ydTNIjtaBKUMw3YZEbKSie
GGtPyX0rKhK/P7gGMnGxGmEi7mROfuLEZZT8/d5f1hNs7OFe/LHuYmcXUmCa
1/aH8sshv81yqaI7jN3s5NB33ZpUrHP2+PJ33TvP82Vme4L2ex/1XVqbiW7o
0Wd/n38TlrS2ENjnCD/lXwwto9bxsscIuWGU/dT4uAtyOeZgzLm29s8rN4jc
M360wt/nHmf457y8fQTqzhi8id3sBhN2TDb7+9xdxoONF9z89pLSE/5GM4uc
IcVTuuXj3+81Tx5mfHn8aTJ/aqXHDZPbsDw2duLf3/09PjFxRIPmOfI8KXKB
Y4I1nOsJ6jam5B0RcmNXvdUhe5POSSy56kdGBIiZ/n2OUUhoo6fIMBMImDtb
/KTrHdJDpld8oeI/Pc//58KJrjDZsCQ7XSKQfNn08M98Sj71UuF4jVcBMO/w
pvLr49xJLFme953aX3dOG57czg0Gz4PbjF5YHiXiL+4vHEvpn3K7uslu0Q0o
4PTl5ky6A+8NPwVVUfJNlYLVcjPXwtn8xz1mJ/1B7VdGVenfvsbW2kIj5xyR
E4++JCTnBVfn7phY8HduGdl2kFN0hdQdGyUtl+ICnfLTV7hTPFRmT+ZXTLpG
js13Ukw8bQejHquLT6P8FTRq0QjZqATTH3WdVlOIIB+WN4+cQNU/Y8+t/i7e
5Q57b6xd82BeJCmK3Cn2ksq3Ga+GtIdG3AfJ7VfkVaeEkKMBz86EU/nZXbpm
/xbzR+DptzvZc4QZUdIUcv+bn7+5P4MC1fPE0tp5wznjUOgNVA2Lo861+1qH
nz0ad5P4ncvpMh0TBAuiclTMKX93zTaJWsq7Rd7LCySfzvCEaYaRbgcov4xu
6st169iQdgs9P8tXTiA7QUPlyt/vQX+4f2OihjPcVpxxdFZeAjn7ObN+ZTEP
TNrWSFg/ewo2oxcJbP8cS16+vHNWPo9ar1eLki4FJ4LDsGWjzyt6kulyPdcD
qPN66yC/Vzp1e3/AqPFe5NPRDiWrZffhS8OS+8sofiy95GuG3fAgs/RXbJ/w
wB+sHrsu7aXWN/LkZElzngsRtBm3b81lV3C66DTJgMKvjc/n38Hn8yvw+XwL
RWcVzpS7JFDV3wOUgiFm8c9C5b/fy65751uW70v+uP45rS3pDkrLxwn79f7P
72XmsX4HMS9Lrfypwj0SkUfevBN0gw/JImcKKJ5V8Pcjp/D3IzPw9yNePzdN
KH8aS/bmrJy9jeqbsnZMnRNWTZ07c/7bvs0ljUger8ieQ/VHoY68pecseTDZ
znW18LZiYjNXiNzdnwUFW7s9Xp5rB/vW0Mf3d30gYYbTA9pJPUwvH1NAhOvg
ZsLdzapipSCqpHx9U3sLXJSP+LMz/j10r94XwJf0CQRe5RSEXYkHqyr3ofIi
9WCn7bO062MJOa09Jm36s2byy990WuSND/Dx8+s90QXl5OC43OaUvAJy3CS0
Wi68FTzPxGYVK2YRLb0t3i92xZD3WqaTylfw4LdUQE1VVSLZMnTy7vTpfsRW
U7Gi+i0PPv7IUxeJfERGaZSMsFewJZePvJ4TQMVtZMqDJ/XSd0n+toycN1Sf
Mn76Y8dH1DraIs9zWTzv5mxbsjI4jqRknL6xd2E0nGgbGZf7hqoHmrnjfx5+
RV7lv7ibmfAaeF/v/B5D9WXf8L2vgfh+1An4flS5oJs3jFelwXq3gGTvvio4
8emp1cH8VuDD72Xswu9l2OL7gd+W+hQl7Uoj3NvfytftLyR9n2Z3X1zVAZ3c
FRtey7wkcwRjZIbLJpPWTD31Bisqn9/jhXKp/se/d5SS1aUH5KpSgL1ICQ+0
9C+Xi558QKqH7q9SbfQmChrplhHUPh0frXxveEEQiZW/G99kYkeyrwyR+/t7
it7UP/enzA8nm42+iaiuSoRV9g6Wz6i6V0rok5uvoj0R3uqXHW+bDq+DhfYp
mlFx8krbrPVOPBgIeNZ6m78B82clwXXrqX0qrGJtXvwGtg/53Cm5Nhos7oTv
eLLt7/dGo3oclkSRgPJIZ/UnL0hUrH3Y8ueU/pB7J3utI8m097ez9i99TDhj
nvCqGnhQtCfkp+2je0Q0o/JURskdsl7heXEvFc8RoXtj9H38yLDAi6Pau1wI
EXpYkkrtl6UBQfM6Vx2DDzwXNedtcWCrMOXYuxoeGD7Qc9ENvQ9VPS+k633i
wTFhtt84Km+UufxsObgzHvIvBg3PMokEmajgjGmFVB+3M893e6Mv6Tj7/ojr
uwiiq1z1jkvxZpfidGFajjeJLwyv2vzoDgGpo2MeUXXmptLP0z4KuhPt540r
R3m6kXX5I1d2UHm7fUlNfZTAHehu73FuPxYOB6wzKlopO/uKkybGyT0AmZkz
PQpe+IFP6YGSTZT81+6wyRECt8m3BNlnAkp+JG7UnfeHKTu18seyX862I7dd
Bcqy3V1JxKo7TX/rCtOkbcnzeHcgPcd4Xy6/E9woXL1lIsVDW1rFmHOp18nG
sPBr9pLOxE90+IGXf+sKXJdVuC6WuC71pzTbUh0ywGTWUev5MxJBYfqRYaGb
qXhgfbdlMsYz8x0WUXyfcxy+z/kHvu86AN93bYfx/BPlCzHOb6NcAe2MxO9W
MHaqWO9PZvaRKN+NW7U7KqD2XfLNy2opZN+JOv+lbm1Qjvifs/Czzn3CnPus
+4zA1EsnMM4F6TgnTJyXSz5qT2tLIYtMa99+zXpHauwm+u6rb4eYsfYGaubP
YGWF4Lc+l0yyNPHYxmEbqH4Q94U+vS8Isy/+w/fAn8L3wOfhe+BFbGLCxkwq
h8u2l1xcNubCrcpAz9CtbSCBdnRY+6sIr7ucvi4w112KeUaFlWe2idDPM/ix
nmdowXwizsonU4/fmitYUE06do0y95apIHz8jRmBKz6BYV9c5r2vIcQzv6d5
zeF2EvknoLJ+0XtYFbXh4/RrTSA6ulljjVopOZ2pGv1870dYg/LOUf/kcB7l
mj9pOz60HQhBO7PwuqPV/l0Xvgyjr8vkf21W/g/F76w9igyb01Iew92P31kb
7L2mzPfgMqtCepZVxnAf4ffdmO++OdByTgbKB7PDfN8tk74uZwNeNw3ntGNx
TmuJc1pR9KuT5hN+oV8vcN47jp4PgzzOe1twPvykWOBG+uZiTgfOhznIpzjN
M5xAPpm58S96bkwU0Y4K6nfT/JOzqP8Icc7EefUlxCmB534wfe6TPDz3pRC/
EL0upAvxN+D8Pw/n/8z9hfsYn+swPpdhfI7A+wt/kv7dX+DY4/2FiRj/DzH+
b2L8Z+B9Bw7epxiD9x0W4b44zNpf1/BczqfPZdKB53KkIL2vp+G+TsN9/RTz
QxKrL5DB537Psp4HZvVZ/XmDZac/z7SYZN100YyHm43bq+OSqsn0kYIruHdb
YY0pLbem5TAN5ddxf3njvgjGfXEO94sf7jtvlD/G+b8G3o8YhvP/RryuHcs+
x3SAnIii3BTv1yji/SPmfs17zHtrMe9VYd6LxnXZgfeDRuO6PMF4eI/3m1Iw
HloXjyoPV60hW2xbnxQa1MDE0TVZGjMbIc9F/EPW15dwyu/6ogSldngByTr6
wWUQVz4s3qynCSKuCd93EyyE20FWww0X1IG92cWNutqNsG+D25q73z6QDtnh
r20ra0B6l7XY+cx0ssVqy5RqhzZSedCm5oR9OfzCc8eJVV8x54svnmvM+fIH
9bPwu2P2rO+OieM5FYvnVAXWq9pYr57AenUOPr83Ep/XnYvP7zlj/exN189E
FuvnT8jPXpofIoj8OGCdfALr5BEBdJ28D+ttKbreJuex3l7sSvN5jOaTpCKf
JshbBPL2EXn7jPW5C12fE2usz+ORf2uaf+KK/HehftNLup6/hfpJqK+N6+WF
+tr4fOwOfD5WCp/vvYF4zGg80IJ4XNCvydhHXEW/otCvwxgnjF8Xcd1V6HWH
dlx3K+Q5AvuUGSyej2Ec/h5F88zc90mzlk1PTSrhuuB9mQeY59WWLu1UHxvI
UcM8L4b6435nvprdEsvRQf3BzounuI669DrCOFxHFTx3piRP887vfM65h+eO
JfJzE/lpQn5Wo/40Wp/7AvW/4rpo0OtCbHBdEnBdzHAdnXFdBsOZjPwLYlwx
/G9B/o9jXCUi/+LIQyvNG0cVeYhH3lRo3rirkbdruC7xGP/jcV2Y/LAf438E
xr8Y7rsluO+icd/NQ/lclMeg/C3u63Dc1+NxXzdVDPhuBWG+W2GxxyB008xC
0rNky6qduq3kvNq90fWkAgThZWiFSD4EZ48K/HmFqi+Xu09u31XW//ybgVyR
xaGFlVz4P/hOWY4ybSeStkOK0M5uvO5whX/XBT28bire7xOe0nw0d7kLh7mP
aYP1z1a6/oFyrH8Guy7zfGMg6/lbZYwfbS2F1XvasrkxGD+MXx9ovzgd+D0v
5vtcK92cMyTdPTi1+H7RYDx3OHjfmbkP/hb9fYi85aK/mujvCNpfoo3+tmD+
PEvnTziM+XPJwN879D8X/Q71VVH/DOovRX0x1vPSJlhvH2bV24dRboDyXJT/
+t86u/JwKrc1jqgTKSrdksqQQ1FE7kln19KgnKRJkogISRxDhuRUhpAh8xCZ
Q2xlJrJrSRxDnAollOFQR8qQOpRS93P2++17rXP3c5/n/rue9azv2++3vnf9
hnd/7yI2To4lcDIP+LNWtycan/dEMZzAn90I8VRlx5PxEOLZv4C9ThyxThxc
1xKu2wDX9YbxU8S4H8Rtgr0/kQ3ETQj2ZyrsqyaI8xx4XsvZz+tv/ZVsnQwb
Lnmnsr5Bf6VT0N9HQoY/f9/2G4wB6O9TAP1ZAon+LDTPusLmWZjmWYPAK43Z
vBLTvFIEcF0mG9dhmtfQ5/IG4Ik0H+wHPiLM5iOI5iNnAJ/IEfUkk3DdVXBd
WmdYBtf9Ba7rB9el+x8pA2+lz3FJGJclxun+R39K/xUf1gTR/0iMHU/GXOh/
pAbriBDrjL7fLuMc8Ag7JC27vEsLI4HtfInizCF0rEGldV/9E+whu68qr7MO
xTEN3LzNBlGMyfyykutNmG8iZfBlVSXSDPf2T0dDqBlw7HxCh5GCuuITRB1y
M+C3zWz8hjoBv1VMz5OIzpM9MF8F5tM8V47OA+JezJzTXqwu2Fci8F5oFO8r
FglyZ1jDe2EJcTvxQC/mmG4xYwTith76EG2DPkRh0IdIc52cdFd4JeJbs/eG
WWIVjgqJ9ZfbNOVHs+8zhuijlL+jO5p3LAunftvdv0+DhRqrdQON7g+jSr6J
+i8i97DR4cEx94Z7aO3ebMcgy2FUBvv5Kuxne9jPNnxan9t0olFQg7KYiU0d
Oq1qyP/bkWF0GvoKLb9VKj5+K5ZhB32F+OH3PjfL/012zk2GI/zeczDfc31W
amepE8MG5nPLz3Q9ifaOT4fccqsZLKgnoetGNrLHWQugboTbOjXQR+au0A+y
1hltrBv/Zx8Zep3v5/y1DkPnf6xD983RPrJBdqlZFKMe+ub8r/mBB/6az2qD
+V2gU20ldCpa1yokdC36O3tpxHctukAfCyD0sQnQ00YJPU0f9LfFhP72J+h1
Q4Repwn63lFC3/MCPTCf0ANngn74htAPW0FvLCf0xjOgTz4h9Mlo0DNfEHpm
Juifswj9swX0UglCL33PRV9dAXpsHKHHLgB9uILQhw1AT+4k9OSvoD8nEfqz
DujnFYR+fpOLDk/r9jMI3X6GLFvn30bo/K/Bv1hN+BfR4HdYEn7HFvBH3Ah/
RAPqmka2NM+oNDnMqWsqg/ooX8eec//4YMepj1KDOquQsJyQXY8vceqsqgG/
tfE2rNL8MZlTr0XPj2paEc5fcJEznwXrj7IWGJ6/Z89Zfy34OzcJf0eR6KNH
ny8u4B/xREz3j/zAb0oh/CZa7w0jzvH7oNtsAT2T1m24+Vze4ItJEb6YCxcf
7RH4cU6EH+cJ/p0v4d8Jd7H9vhDC73MEf/Ad4Q9qg5/YTPiJWeA/xhH+o0AU
26+8QPiV5fD9ot+J7xfFgu9pQviej7j4pBLgqxoSvqrEabYPu4TwYbvAtz1J
+LaD4PP2ED5vGfjC8oQvbAg+sjXhIx/j4jtfA5/agPCpJcHXXkH42nXgg0sT
Pvgy8M2TCd+8AXx2PcJnFwO/XoHw67vB328h/P2Jpex6gD6iHoAF9QMuRP3A
LKg34FeaXm/gDfUJ7c+m1yeEQT2DAFHP0Ar1DxlE/UMa1EusIeol3kF9RSdR
XzFhxa7HOEjUY9SD33cL/L5J8PvUAC/tBbwUDHipGebnsuejrzBfGnTLs4Ru
6QC6aB7ooiOgi/KD3usAeu8T0HtbII+psXkoi85jGsCzfgBdayHwrG7QYdRB
f/sEOowV6B5uoHuMgM8bAfO3gG7zBubTuOjHGV9XvC/oZX0EXKQBOpIT6Eg8
oCPReEmAPZ+xF/CSFOgS0Wx9hiUOusQY1P1OFIoE8hqVs9wBv6UDv7YBfk37
CzmgY3jKKs0Yyqti7AYdIxnGT7LHWaYwTvuz64G/DAB/iZr+fRsOPs8Sez5L
5G42XmaI5IsSy1DAGrP5NfXDyMrcplyYYYZn1+S3pAuH4qixAws/UfskpEjQ
I0RrJ4o6nyg96BaOtYoGRJnU+DZHmzm3ApxQEr/khuH7EfiffLYDxtT4leR3
mU2bfdDjzuuqKpPh+B6fvs/31Li6Qnxkr24o+nkRw3Pdw2Cs0c0S/I4av+Be
N+AyFIkmgkTtQ6574rErBr1TOCoM6qB8N91p3bTMklMHddGrOvfKqxBkWz3L
tPdiCCqqNF01VZeorPXija79RVRdsc+0TSgCnd25tUKRGrezMHSRtzyNVkjo
lTgnRCBevoN5J6hx1aePNrS92opWHksJZWmEo/LnPM4F1LhBU9LQXmczXOad
MFGWH4JUeoP8vlHjcrDPXYh93tmQwy/eYY5tzeV4g9Pj8Lhy23eq1H0mDyYW
odKfUV19xaVMx0Tcq73m4/6pfl45O3nt2vxRi1FD289jifjVvP3jsVS+Wj2e
mcRaG4NeZx6o4NeJwwwlBTcVatyzf71rKU8yOvhx9LtR9RDckifxixA1fhDq
7r5ZCKQu6dLl1N05f9byCEvyRXfX7Z6cbExERVm1rfXU/JJ3Jj47ok6guPbt
uw4HJqB2I6GtwdT9NGXMsN191xI7N4ryCeXGouHVr+TMqfvXZqZdiDx7Bs+V
r10V0huJvuhs+n7qOc6YzRQSf30OPz/a4aCxOxTFG2XZ3/06tX+ML/Tc18N3
JyL4HLUycaGn9upfqfNF5uZi2+1GQcgx/qc7mSVMHNjTvnnuBwpP+jluU3iZ
jOpdfxBYKJaJWbfUvV2pcypQOb11goeJSj/YqfqMJuC5bbLb3lDnWjLUc865
LvNK1M2cU8/54eiu4/K2Vlj8j3SmnUkG0vgsGSgzVZeimPTy46Q3XiPKMJPu
SkEey1bPSaTi42k7L3+3vT8+3sxoXNsRh2Im5WuCqDjsmV/Qbpzsj+XikzU0
fSLQhmcOBZ1UHM44PM1LU/FGo58XS/g9LsUefa3tc9qo/YPkezMUs1CodcHV
peKl+O5rh/eZFK6492n9qZ6mEiS2rjE2pjAXv4hSY16hcONjqPsdMN2Sthw7
cf63tZPLdyMT69eUL/eMwZL9AWdnzcpENz/Y73tExc2hbvTgLwdisAC/mnme
QzJKr/F5mE7hfylvRY/ko5FY69Rtvdezo1GOdM4hd+p3mUBd0DWiLsiBd4fH
qPE1vFi/I2rm5VS0qDwtuIJan1//0J6U2YlY7Ije5oY0Cs+IHfE9Q8XNh0td
0JXIT8ItNmnY2e+c6MirCDRyYUx2aPzfuNeawL0P7D4XHfAswjMldg08FYhF
5wpr/NR7h9HHNC0/gxmV2LD0uWdO3g2UsOBsuVvKMGq7WlyqtOMxVuhf4nDH
oBKFax8yF6TOI1p/W0Hoby9g/lr2fEzPP7XAJTQ1vBJXLOfd4J+dhYuCP0v1
JQ4j64R0l/31Rfit7eBVwQ/ROJ0vUbz792Hkn2yak30uCwtf3jPBOu+Hw9fM
E9Gh7t8P4iBLxKG0sx4tLirG26xn7tLIy0dW5aLuHRSeHLVjnL5RU4GDsmUz
GScrUZfwJ3Pj48NI/h3D2DnlPq6OD9kxL7IZvbmHb1mLDqFxmB/Gno87Yf6D
l480a76V4uPKh3Xsb+fjcsV99WLV1H7TF3KVvJyLvb1fadfeScGqfWfdPd5Q
+D9TfO/T1jQsecyuw9wjAnefKuwupZ6L9e85ZxrnZeHxL3980B0oRZPat8Q3
U/vTDs4LM+K8eDgaJLbLIxcLlsRvzf52F9s5+r8XKxpGP5wNXag4lo1NbWZe
VXmTh2sU9px92kO9p3PxvObv0rGv/Ns7SxZdwyVFv4WavR9GX4r6cgufJmKB
RlkNnuJorGFs076d2le8J1K+7E/ZjD9KaQU8UipBTucOdStS6zDNd3776UEq
OhJ6v3fPYCnatOt4kG8zhRsZ6/LXTBYjnax80fi+fHTuk5F/AvUedcD71Wby
9d6TIA9OXf2BSXe9MtM4nNFa0I/uMnFKtqTKYirPdHV55X0bu4LfFczXc1NJ
wY4PlPjeUXmjPrgHj/dFYkZcmeqR/dF4768NUgZTeXL5iOF9swRUX6vrb6WU
hU4FPfMvotbpU5eXKXHLQi9Sgrccc0pG9vxDlQn/UX9+UrjD9emICydfBVf+
2BEYH4C/KkacPswXj78IyqhvptYPy0jb+FIhAF8uwHP9HkXgPWar5jdQ+Scx
SV/dKykJ/cTMyfdqD0VvffwCp/iOPuT/1y46Vbpv7Tn5v1bavrnjyHmsbjDv
yFPfUKwn8qtGMZWfQ+E8FSq4cy/W1ZVznpbDfDViPn1dDeK6FqCHZBB6yGW4
/wDi/i/D7/1C/N6XELcnEDcHiNsziHM1Eec6eC4/Es/lGTzHQeI56sBzTyWe
ewbsn23E/imE/aZL7LdV5v99f47DfuYj9nM87H8vYv+rwftiQrwv9fB+CRDv
V4DP7YejbUz8dr17TujwbbQMOX5VrqF4OrzXEsR7fRvygAeRB2ohbxgTeWME
8ow/5Bk6L1n1jcrxfKnEKr/cuRI20oSuqenXrVYZQhWgcx4mdM4iLnnPE/Kn
IJE/zSHf/gH5NgPyrQXk50LIz8WQn1sgn6+EfB4J+Zz+Xs1Kwq8ZBt3bktC9
38P5YkGcL41wHi0iziNuus166FuXVuDVJLn+EKcfnzX0ubsU8sfCTfrHOf34
GqAvXrKDbI/dCSdOP75FoG8fBt+E7qO3ZLqfwumv1wTr+FvwVesKRv+tv17/
7InfL9t6/K2/3qed8e45Sj9z+utd5XJez4RzfyFx7rtywQmSgDe2E3jDlQs+
YXLBM7WAl2QALz0HvKQG+CqKwFeBgMfGCDymA/hNlsBvFwHvmRJ4TwvwoQKB
DxcZs/HkEgJPVnPRZyIAr1YQeJUJ+LaJwLdKgIedCTzcdZyNn1kEfhbggrf3
AD4XJvB5A+B5BwLP5wH+jyHwvx3wBUzwBV/gHQcI3qEAPOUDwVOsgNe8AF7z
EnjNTS48qBF40ymCN50A/lVC8C9B4GsyBF+zAn4nRfA7ReCDtQQfPA/88TzB
Hy9y4aEbgLc6E7w1GnhuK8FzNYEXpxC8OAl4dCTBow8B755J8O6MoAyJYslq
lLs4f+NjoSo0UK1Yt2IVhffg/5jNu7vfu+9PYf0D/o+ZCvOziPlSgDOr2DgT
0zgzW99iq1k+E+UaN/CtPFaPZYSy4x5uH+aMF7LHET1uD77wJNQtOIAvXA3f
m5JnXjzKM17OsoDvTdH+/iWoW5CEugX6O6iWB9r9y1Sfs/LgO6h0nwhj0FsW
g95C1yXebBRUVvYvZAxCXeJGyP/yoAuJQ/4XgHo/yXbTj6nXPDj1frfhd90m
fu/K6f22OLxeFuLWAHEbgLiV1IzX9Uu3oKwm3wsi+a0oa8Oz9q0f33DGb8J4
JozzwP3ErFvda9N0nfN9A/r8Eof7XwH33w+/V0mpdtam7hzO//RNIf68UL9h
DfHfTXwPUBjiRsf5IDvOjAKir2sa1F0shediMX19fBzWd5r+3NFJGK+B587D
fu4MM3juSbAPr7P3Iab3YabA6riGzVVI/U9Lk4illfhqYompneYwqoL9fO1Q
dk97hDfn/8UF0+OMmRDPcmKcjrMe8JdjBH9RiDr2QtniBvo11s3LyK8OiWo+
GwjaM4z+BZkdqj0=
    "]],
  Axes->True,
  AxesStyle->Thickness[Large],
  BaseStyle->{15, FontFamily -> "Times", Bold},
  BoxRatios->{1, 1, 0.4},
  Method->{"RotationControl" -> "Globe"},
  PlotRange->{{-5, 5}, {-5, 5}, {-4, 4}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.451314538267131*^9, 3.451314585661043*^9}, {
   3.451314620925234*^9, 3.451314630567779*^9}, 3.4513155286893883`*^9, 
   3.45174158233101*^9, 3.451750558558445*^9, 3.482673532574791*^9, 
   3.482710879851328*^9, 3.482710947195551*^9, 3.482711011386388*^9, 
   3.4827110568165693`*^9, 3.4827112151741533`*^9, 3.482711352977765*^9, 
   3.482712487767042*^9, 3.482712559987049*^9, 3.482712647307057*^9, 
   3.482712805978753*^9, 3.482712869580201*^9, 3.482712924634653*^9, 
   3.4827130222956047`*^9, 3.4827130833148117`*^9, 3.482713186401289*^9, 
   3.482713292370866*^9, 3.482713338355323*^9, 3.4827133861762753`*^9, 
   3.482713426582951*^9, 3.482714377019209*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.451315105275774*^9, 3.451315106776101*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Manipulate"}]], "Input",
 CellChangeTimes->{{3.4826736386363773`*^9, 3.482673642556966*^9}, 
   3.482673676834642*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\!\(\*RowBox[{\\\"Manipulate\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{StyleBox[\\\"u\\\", \\\"TI\\\"], \\\",\\\", \
SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \
\\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"max\\\", \\\"TI\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\) generates \
a version of \!\(\*StyleBox[\\\"expr\\\", \\\"TI\\\"]\) with controls added \
to allow interactive manipulation of the value of \!\(\*StyleBox[\\\"u\\\", \
\\\"TI\\\"]\). \\n\!\(\*RowBox[{\\\"Manipulate\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{StyleBox[\\\"u\\\", \\\"TI\\\"], \\\",\\\", \
SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \
\\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"max\\\", \\\"TI\\\"]], \\\",\\\", StyleBox[\\\"du\\\", \
\\\"TI\\\"]}], \\\"}\\\"}]}], \\\"]\\\"}]\) allows the value of \
\!\(\*StyleBox[\\\"u\\\", \\\"TI\\\"]\) to vary between \
\!\(\*SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \
\\\"TI\\\"]]\) and \!\(\*SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"max\\\", \\\"TI\\\"]]\) in steps \!\(\*StyleBox[\\\"du\\\", \
\\\"TI\\\"]\). \\n\!\(\*RowBox[{\\\"Manipulate\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"u\\\", \\\"TI\\\"], \
\\\",\\\", SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"init\\\", \\\"TI\\\"]]}], \\\"}\\\"}], \\\",\\\", \
SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \
\\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"max\\\", \\\"TI\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \
\\\"TR\\\"]}], \\\"}\\\"}]}], \\\"]\\\"}]\) takes the initial value of \
\!\(\*StyleBox[\\\"u\\\", \\\"TI\\\"]\) to be \
\!\(\*SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], StyleBox[\\\"init\\\", \\\
\"TI\\\"]]\). \\n\!\(\*RowBox[{\\\"Manipulate\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"u\\\", \\\"TI\\\"], \
\\\",\\\", SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"init\\\", \\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"u\\\
\", \\\"TI\\\"], StyleBox[\\\"lbl\\\", \\\"TI\\\"]]}], \\\"}\\\"}], \
\\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}]}], \
\\\"]\\\"}]\) labels the controls for \!\(\*StyleBox[\\\"u\\\", \\\"TI\\\"]\) \
with \!\(\*SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"lbl\\\", \\\"TI\\\"]]\). \\n\!\(\*RowBox[{\\\"Manipulate\\\", \\\
\"[\\\", RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\
\\\", RowBox[{StyleBox[\\\"u\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\
\"TR\\\"]}], \\\"}\\\"}]}], \\\"}\\\"}]}], \\\"]\\\"}]\) allows \
\!\(\*StyleBox[\\\"u\\\", \\\"TI\\\"]\) to take on discrete values \
\!\(\*RowBox[{SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"u\\\", \
\\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\
\[Ellipsis]\\\", \\\"TR\\\"]}]\). \\n\!\(\*RowBox[{\\\"Manipulate\\\", \
\\\"[\\\", RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"u\\\", \\\"TI\\\"], \\\",\\\", \
StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\
\\\"{\\\", RowBox[{StyleBox[\\\"v\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"\
\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}], \\\",\\\", StyleBox[\\\"\
\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}]\) provides controls to manipulate \
each of the \!\(\*RowBox[{StyleBox[\\\"u\\\", \\\"TI\\\"], \\\",\\\", \
StyleBox[\\\"v\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \
\\\"TR\\\"]}]\). \\n\!\(\*RowBox[{\\\"Manipulate\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"c\\\", \\\"TI\\\"], StyleBox[\\\"u\\\", \
\\\"TI\\\"]], \\\"->\\\", RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"u\\\", \
\\\"TI\\\"], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \
\\\"}\\\"}]}], \\\",\\\", RowBox[{SubscriptBox[StyleBox[\\\"c\\\", \
\\\"TI\\\"], StyleBox[\\\"v\\\", \\\"TI\\\"]], \\\"->\\\", RowBox[{\\\"{\\\", \
RowBox[{StyleBox[\\\"v\\\", \\\"TI\\\"], \\\",\\\", \
StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}]}], \\\",\\\", \
StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}]\) links the controls \
to the specified controllers on an external device.\"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Manipulate"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.482714378018869*^9},
 CellTags->"Info3482689177-6859691"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", " ", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{"x", "[", "t", "]"}], " ", "/.", " ", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"x", "''"}], "[", "t", "]"}], " ", "+", " ", 
             RowBox[{"2", " ", "\[Gamma]", " ", 
              RowBox[{
               RowBox[{"x", "'"}], "[", "t", "]"}]}], " ", "+", " ", 
             RowBox[{"x", "[", "t", "]"}]}], " ", "\[Equal]", " ", "0"}], ",",
            " ", 
           RowBox[{
            RowBox[{"x", "[", "0", "]"}], " ", "\[Equal]", "  ", "1"}], ",", 
           " ", 
           RowBox[{
            RowBox[{
             RowBox[{"x", "'"}], "[", "0", "]"}], " ", "\[Equal]", "  ", 
            "0"}]}], "}"}], ",", " ", "x", ",", " ", 
         RowBox[{"{", 
          RowBox[{"t", ",", " ", "0", ",", " ", "15"}], "}"}]}], "]"}]}], 
      "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "15"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", " ", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<t\>\"", ",", " ", "\"\<x(t)\>\""}], "}"}]}], ",", " ", 
     RowBox[{"PlotRange", " ", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\[Gamma]", ",", " ", "0", ",", " ", 
       "\"\<damping coefficient \[Gamma]\>\""}], "}"}], ",", " ", "0", ",", 
     " ", "2", ",", " ", "0.1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.451314737646853*^9, 3.4513149996784887`*^9}, {
  3.451315062283346*^9, 3.451315096825618*^9}, {3.451315126911326*^9, 
  3.451315177457999*^9}, {3.48267447438465*^9, 3.482674480268036*^9}, {
  3.4826745270477943`*^9, 3.482674556458664*^9}, {3.4826747819734917`*^9, 
  3.4826747825631104`*^9}, {3.482674858040393*^9, 3.482674879094182*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0, "damping coefficient \[Gamma]"}, 0, 
      2, 0.1}}, Typeset`size$$ = {240., {74., 77.1875}}, Typeset`update$$ = 0,
     Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`\[Gamma]$1025$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$1025$$, 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" :> Plot[
        Evaluate[
         ReplaceAll[
          $CellContext`x[$CellContext`t], 
          
          NDSolve[{
           Derivative[2][$CellContext`x][$CellContext`t] + 
             2 $CellContext`\[Gamma]$$ 
              Derivative[
               1][$CellContext`x][$CellContext`t] + \
$CellContext`x[$CellContext`t] == 0, $CellContext`x[0] == 1, 
            Derivative[1][$CellContext`x][0] == 
            0}, $CellContext`x, {$CellContext`t, 0, 15}]]], {$CellContext`t, 
         0, 15}, AxesLabel -> {"t", "x(t)"}, PlotRange -> {-1, 1}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0, 
          "damping coefficient \[Gamma]"}, 0, 2, 0.1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{279., {109.125, 112.875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.451315068641307*^9, 3.451315271393271*^9}, 
   3.4513155290143623`*^9, 3.451741582577944*^9, {3.451741624954898*^9, 
   3.4517416447710943`*^9}, 3.4517416801456213`*^9, 3.451750916224678*^9, {
   3.451750973915605*^9, 3.451750981043643*^9}, 3.45175103485763*^9, {
   3.4826738156771708`*^9, 3.482673882134922*^9}, {3.48267448144193*^9, 
   3.482674583887339*^9}, {3.482674663524145*^9, 3.482674681633408*^9}, {
   3.482674773240127*^9, 3.482674908131649*^9}, 3.482674940426841*^9, {
   3.482709723615192*^9, 3.4827097370308533`*^9}, 3.4827108803235083`*^9, 
   3.482710947691144*^9, 3.4827110118741913`*^9, 3.482711059274877*^9, 
   3.482711215681778*^9, 3.482711354085945*^9, 3.482712488308689*^9, 
   3.482712561064616*^9, 3.482712648409625*^9, 3.482712806473201*^9, 
   3.482712870062681*^9, 3.482712925159671*^9, 3.4827130227668943`*^9, 
   3.482713084392634*^9, 3.482713186841958*^9, 3.48271329283718*^9, 
   3.482713338900633*^9, 3.482713386731016*^9, 3.482713427618101*^9, 
   3.482714378321673*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Programming in Mathematica", "Subtitle",
 CellChangeTimes->{{3.419991071027483*^9, 3.419991098981688*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"firstfib", "[", "n_", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"k", ",", " ", "a"}], "}"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", "0", "]"}], " ", "=", " ", "1"}], ";", " ", 
     RowBox[{
      RowBox[{"a", "[", "1", "]"}], " ", "=", " ", "1"}], ";", " ", 
     RowBox[{"Print", "[", 
      RowBox[{"a", "[", "0", "]"}], "]"}], ";", " ", 
     RowBox[{"Print", "[", 
      RowBox[{"a", "[", "1", "]"}], "]"}], ";", " ", 
     RowBox[{"Do", " ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"a", "[", "k", "]"}], " ", "=", " ", 
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"k", "-", "1"}], "]"}], " ", "+", " ", 
          RowBox[{"a", "[", 
           RowBox[{"k", "-", "2"}], "]"}]}]}], ";", " ", 
        RowBox[{"Print", "[", 
         RowBox[{"a", "[", "k", "]"}], "]"}]}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"k", ",", " ", "2", ",", " ", "n"}], "}"}]}], "]"}]}]}], 
   "]"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"firstfib", "[", "10", "]"}]], "Input",
 CellChangeTimes->{{3.419990746584793*^9, 3.419990756212349*^9}}],

Cell[CellGroupData[{

Cell[BoxData["1"], "Print",
 CellChangeTimes->{3.419990756882457*^9, 3.4513153498795767`*^9, 
  3.451315529143532*^9, 3.451741582665738*^9, 3.451751303999765*^9, 
  3.4827108804045067`*^9, 3.482710947775091*^9, 3.4827110119623013`*^9, 
  3.482711059350829*^9, 3.482711215760017*^9, 3.482711354268738*^9, 
  3.482712488386703*^9, 3.482712561165262*^9, 3.48271264857382*^9, 
  3.482712806547371*^9, 3.482712870149248*^9, 3.4827129252478523`*^9, 
  3.4827130228525743`*^9, 3.48271308456524*^9, 3.482713187007679*^9, 
  3.482713292914118*^9, 3.482713339037221*^9, 3.48271338681704*^9, 
  3.482713427733037*^9, 3.482714378438216*^9}],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{3.419990756882457*^9, 3.4513153498795767`*^9, 
  3.451315529143532*^9, 3.451741582665738*^9, 3.451751303999765*^9, 
  3.4827108804045067`*^9, 3.482710947775091*^9, 3.4827110119623013`*^9, 
  3.482711059350829*^9, 3.482711215760017*^9, 3.482711354268738*^9, 
  3.482712488386703*^9, 3.482712561165262*^9, 3.48271264857382*^9, 
  3.482712806547371*^9, 3.482712870149248*^9, 3.4827129252478523`*^9, 
  3.4827130228525743`*^9, 3.48271308456524*^9, 3.482713187007679*^9, 
  3.482713292914118*^9, 3.482713339037221*^9, 3.48271338681704*^9, 
  3.482713427733037*^9, 3.482714378440886*^9}],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{3.419990756882457*^9, 3.4513153498795767`*^9, 
  3.451315529143532*^9, 3.451741582665738*^9, 3.451751303999765*^9, 
  3.4827108804045067`*^9, 3.482710947775091*^9, 3.4827110119623013`*^9, 
  3.482711059350829*^9, 3.482711215760017*^9, 3.482711354268738*^9, 
  3.482712488386703*^9, 3.482712561165262*^9, 3.48271264857382*^9, 
  3.482712806547371*^9, 3.482712870149248*^9, 3.4827129252478523`*^9, 
  3.4827130228525743`*^9, 3.48271308456524*^9, 3.482713187007679*^9, 
  3.482713292914118*^9, 3.482713339037221*^9, 3.48271338681704*^9, 
  3.482713427733037*^9, 3.4827143784430656`*^9}],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{3.419990756882457*^9, 3.4513153498795767`*^9, 
  3.451315529143532*^9, 3.451741582665738*^9, 3.451751303999765*^9, 
  3.4827108804045067`*^9, 3.482710947775091*^9, 3.4827110119623013`*^9, 
  3.482711059350829*^9, 3.482711215760017*^9, 3.482711354268738*^9, 
  3.482712488386703*^9, 3.482712561165262*^9, 3.48271264857382*^9, 
  3.482712806547371*^9, 3.482712870149248*^9, 3.4827129252478523`*^9, 
  3.4827130228525743`*^9, 3.48271308456524*^9, 3.482713187007679*^9, 
  3.482713292914118*^9, 3.482713339037221*^9, 3.48271338681704*^9, 
  3.482713427733037*^9, 3.482714378444971*^9}],

Cell[BoxData["5"], "Print",
 CellChangeTimes->{3.419990756882457*^9, 3.4513153498795767`*^9, 
  3.451315529143532*^9, 3.451741582665738*^9, 3.451751303999765*^9, 
  3.4827108804045067`*^9, 3.482710947775091*^9, 3.4827110119623013`*^9, 
  3.482711059350829*^9, 3.482711215760017*^9, 3.482711354268738*^9, 
  3.482712488386703*^9, 3.482712561165262*^9, 3.48271264857382*^9, 
  3.482712806547371*^9, 3.482712870149248*^9, 3.4827129252478523`*^9, 
  3.4827130228525743`*^9, 3.48271308456524*^9, 3.482713187007679*^9, 
  3.482713292914118*^9, 3.482713339037221*^9, 3.48271338681704*^9, 
  3.482713427733037*^9, 3.4827143784468527`*^9}],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{3.419990756882457*^9, 3.4513153498795767`*^9, 
  3.451315529143532*^9, 3.451741582665738*^9, 3.451751303999765*^9, 
  3.4827108804045067`*^9, 3.482710947775091*^9, 3.4827110119623013`*^9, 
  3.482711059350829*^9, 3.482711215760017*^9, 3.482711354268738*^9, 
  3.482712488386703*^9, 3.482712561165262*^9, 3.48271264857382*^9, 
  3.482712806547371*^9, 3.482712870149248*^9, 3.4827129252478523`*^9, 
  3.4827130228525743`*^9, 3.48271308456524*^9, 3.482713187007679*^9, 
  3.482713292914118*^9, 3.482713339037221*^9, 3.48271338681704*^9, 
  3.482713427733037*^9, 3.482714378448744*^9}],

Cell[BoxData["13"], "Print",
 CellChangeTimes->{3.419990756882457*^9, 3.4513153498795767`*^9, 
  3.451315529143532*^9, 3.451741582665738*^9, 3.451751303999765*^9, 
  3.4827108804045067`*^9, 3.482710947775091*^9, 3.4827110119623013`*^9, 
  3.482711059350829*^9, 3.482711215760017*^9, 3.482711354268738*^9, 
  3.482712488386703*^9, 3.482712561165262*^9, 3.48271264857382*^9, 
  3.482712806547371*^9, 3.482712870149248*^9, 3.4827129252478523`*^9, 
  3.4827130228525743`*^9, 3.48271308456524*^9, 3.482713187007679*^9, 
  3.482713292914118*^9, 3.482713339037221*^9, 3.48271338681704*^9, 
  3.482713427733037*^9, 3.4827143784506903`*^9}],

Cell[BoxData["21"], "Print",
 CellChangeTimes->{3.419990756882457*^9, 3.4513153498795767`*^9, 
  3.451315529143532*^9, 3.451741582665738*^9, 3.451751303999765*^9, 
  3.4827108804045067`*^9, 3.482710947775091*^9, 3.4827110119623013`*^9, 
  3.482711059350829*^9, 3.482711215760017*^9, 3.482711354268738*^9, 
  3.482712488386703*^9, 3.482712561165262*^9, 3.48271264857382*^9, 
  3.482712806547371*^9, 3.482712870149248*^9, 3.4827129252478523`*^9, 
  3.4827130228525743`*^9, 3.48271308456524*^9, 3.482713187007679*^9, 
  3.482713292914118*^9, 3.482713339037221*^9, 3.48271338681704*^9, 
  3.482713427733037*^9, 3.4827143784527817`*^9}],

Cell[BoxData["34"], "Print",
 CellChangeTimes->{3.419990756882457*^9, 3.4513153498795767`*^9, 
  3.451315529143532*^9, 3.451741582665738*^9, 3.451751303999765*^9, 
  3.4827108804045067`*^9, 3.482710947775091*^9, 3.4827110119623013`*^9, 
  3.482711059350829*^9, 3.482711215760017*^9, 3.482711354268738*^9, 
  3.482712488386703*^9, 3.482712561165262*^9, 3.48271264857382*^9, 
  3.482712806547371*^9, 3.482712870149248*^9, 3.4827129252478523`*^9, 
  3.4827130228525743`*^9, 3.48271308456524*^9, 3.482713187007679*^9, 
  3.482713292914118*^9, 3.482713339037221*^9, 3.48271338681704*^9, 
  3.482713427733037*^9, 3.482714378454805*^9}],

Cell[BoxData["55"], "Print",
 CellChangeTimes->{3.419990756882457*^9, 3.4513153498795767`*^9, 
  3.451315529143532*^9, 3.451741582665738*^9, 3.451751303999765*^9, 
  3.4827108804045067`*^9, 3.482710947775091*^9, 3.4827110119623013`*^9, 
  3.482711059350829*^9, 3.482711215760017*^9, 3.482711354268738*^9, 
  3.482712488386703*^9, 3.482712561165262*^9, 3.48271264857382*^9, 
  3.482712806547371*^9, 3.482712870149248*^9, 3.4827129252478523`*^9, 
  3.4827130228525743`*^9, 3.48271308456524*^9, 3.482713187007679*^9, 
  3.482713292914118*^9, 3.482713339037221*^9, 3.48271338681704*^9, 
  3.482713427733037*^9, 3.482714378456787*^9}],

Cell[BoxData["89"], "Print",
 CellChangeTimes->{3.419990756882457*^9, 3.4513153498795767`*^9, 
  3.451315529143532*^9, 3.451741582665738*^9, 3.451751303999765*^9, 
  3.4827108804045067`*^9, 3.482710947775091*^9, 3.4827110119623013`*^9, 
  3.482711059350829*^9, 3.482711215760017*^9, 3.482711354268738*^9, 
  3.482712488386703*^9, 3.482712561165262*^9, 3.48271264857382*^9, 
  3.482712806547371*^9, 3.482712870149248*^9, 3.4827129252478523`*^9, 
  3.4827130228525743`*^9, 3.48271308456524*^9, 3.482713187007679*^9, 
  3.482713292914118*^9, 3.482713339037221*^9, 3.48271338681704*^9, 
  3.482713427733037*^9, 3.482714378458735*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "k"}]], "Input",
 CellChangeTimes->{{3.451315540278442*^9, 3.45131554092068*^9}}],

Cell["Global`k", "Print", "PrintUsage",
 CellChangeTimes->{3.482714378640973*^9},
 CellTags->"Info3482689178-3230571"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"nofprimes", "[", 
   RowBox[{"n_", ",", " ", "m_"}], "]"}], " ", ":=", " ", 
  RowBox[{"Length", "[", " ", 
   RowBox[{"Select", "[", " ", 
    RowBox[{
     RowBox[{"Table", "[", " ", 
      RowBox[{"k", ",", " ", 
       RowBox[{"{", 
        RowBox[{"k", ",", " ", "n", ",", " ", 
         RowBox[{"n", "+", "m"}]}], "}"}]}], " ", "]"}], ",", " ", "PrimeQ"}],
     " ", "]"}], " ", "]"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nofprimes", "[", 
  RowBox[{"100", ",", " ", "100"}], "]"}]], "Input"],

Cell[BoxData["21"], "Output",
 CellChangeTimes->{3.419291875205268*^9, 3.419292142547242*^9, 
  3.4192922466051292`*^9, 3.419292309421278*^9, 3.419292997437587*^9, 
  3.4192971243832293`*^9, 3.419990671703143*^9, 3.4513155296825314`*^9, 
  3.4517415832292347`*^9, 3.451751684541821*^9, 3.482675046579898*^9, 
  3.482710880732224*^9, 3.4827109481351643`*^9, 3.4827110123058767`*^9, 
  3.482711059719509*^9, 3.4827112160862494`*^9, 3.482711354624939*^9, 
  3.4827124887317333`*^9, 3.482712561523061*^9, 3.482712648932527*^9, 
  3.4827128068573713`*^9, 3.482712870477455*^9, 3.482712925589901*^9, 
  3.482713023194468*^9, 3.482713084954831*^9, 3.482713187399881*^9, 
  3.482713293257225*^9, 3.4827133393640013`*^9, 3.48271338714463*^9, 
  3.482713428039918*^9, 3.482714378811111*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nofprimes", "[", 
  RowBox[{
   RowBox[{"10", "^", "8"}], ",", " ", 
   RowBox[{"10", "^", "4"}]}], "]"}]], "Input"],

Cell[BoxData["551"], "Output",
 CellChangeTimes->{3.419291875259057*^9, 3.419292142605982*^9, 
  3.419292246663744*^9, 3.419292309470332*^9, 3.419292997535612*^9, 
  3.419297124483033*^9, 3.419990671811116*^9, 3.451315529814332*^9, 
  3.451741583327209*^9, 3.451751726970491*^9, 3.4826750517878313`*^9, 
  3.482710880803645*^9, 3.4827109482093697`*^9, 3.482711012378837*^9, 
  3.48271105979327*^9, 3.482711216162958*^9, 3.4827113546985607`*^9, 
  3.482712488808525*^9, 3.482712561596591*^9, 3.482712649007163*^9, 
  3.482712806929656*^9, 3.482712870550653*^9, 3.482712925669024*^9, 
  3.482713023267873*^9, 3.48271308502943*^9, 3.482713187482772*^9, 
  3.4827132933469973`*^9, 3.4827133394359093`*^9, 3.4827133872261953`*^9, 
  3.482713428098339*^9, 3.482714378888978*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"10", "^", "4"}], " ", "/", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"10", "^", "8"}], "]"}]}], "]"}]], "Input"],

Cell[BoxData["542.8681023790647`"], "Output",
 CellChangeTimes->{3.419291875309011*^9, 3.4192921426571074`*^9, 
  3.4192922467304497`*^9, 3.4192923095208473`*^9, 3.4192929976027613`*^9, 
  3.419297124610347*^9, 3.419990671946578*^9, 3.4513155299436007`*^9, 
  3.451741583408463*^9, 3.45175183503568*^9, 3.482675056978067*^9, 
  3.4827108808380423`*^9, 3.482710948243297*^9, 3.4827110124119253`*^9, 
  3.482711059865683*^9, 3.482711216210168*^9, 3.482711354730875*^9, 
  3.482712488892518*^9, 3.482712561629808*^9, 3.4827126490387297`*^9, 
  3.4827128069644213`*^9, 3.482712870583454*^9, 3.482712925754559*^9, 
  3.482713023301441*^9, 3.482713085061111*^9, 3.482713187535184*^9, 
  3.4827132933796062`*^9, 3.482713339472134*^9, 3.4827133872710323`*^9, 
  3.482713428115472*^9, 3.482714378934754*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"x", ",", " ", "y"}], "]"}]], "Input",
 CellChangeTimes->{{3.4826754905726643`*^9, 3.4826754929874573`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GradientFieldPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "-", "1"}], ")"}], "^", "2"}], " ", "+", " ", 
       RowBox[{"y", "^", "2"}]}], "]"}]}], " ", "-", " ", 
    RowBox[{"1", " ", "/", " ", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "+", "1"}], ")"}], "^", "2"}], " ", "+", " ", 
       RowBox[{"y", "^", "2"}]}], "]"}]}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "2"}], ",", " ", "2"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"y", ",", " ", 
     RowBox[{"-", "2"}], ",", " ", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.482675242085795*^9, 3.4826753064170017`*^9}, {
  3.482713005991741*^9, 3.4827130123308973`*^9}}],

Cell[BoxData[
 RowBox[{"GradientFieldPlot", "[", 
  RowBox[{
   RowBox[{
    FractionBox["1", 
     SqrtBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "x"}], ")"}], "2"], "+", 
       SuperscriptBox["y", "2"]}]]], "-", 
    FractionBox["1", 
     SqrtBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", "x"}], ")"}], "2"], "+", 
       SuperscriptBox["y", "2"]}]]]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Output",
 CellChangeTimes->{3.4826753079780293`*^9, 3.4827108809183493`*^9, 
  3.482710949101211*^9, 3.482711013248959*^9, 3.482711061052882*^9, 
  3.4827111631783867`*^9, 3.482711216292362*^9, 3.4827113548151903`*^9, 
  3.482711784029677*^9, 3.4827124889685373`*^9, 3.482712561709811*^9, 
  3.4827126491183767`*^9, 3.482712807830695*^9, 3.482712871861671*^9, 
  3.482712927453949*^9, 3.482713024373064*^9, 3.482713085196437*^9, 
  3.482713188197813*^9, 3.482713293651783*^9, 3.4827133395496893`*^9, 
  3.4827133873492393`*^9, 3.4827134281393213`*^9, 3.4827143790137863`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VectorFieldPlots`\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.482675313018786*^9, 3.482675346169218*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GradientFieldPlot", "::", "\<\"shdw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Symbol \\!\\(\\\"GradientFieldPlot\\\"\\) appears in \
multiple contexts \\!\\({\\\"VectorFieldPlots`\\\", \\\"Global`\\\"}\\); \
definitions in context \\!\\(\\\"VectorFieldPlots`\\\"\\) may shadow or be \
shadowed by other definitions. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/shdw\\\", ButtonNote -> \
\\\"VectorFieldPlots`GradientFieldPlot::shdw\\\"]\\)\"\>"}]], "Message", \
"MSG",
 CellChangeTimes->{3.4827134281932993`*^9, 3.482714379154714*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Remove", "[", "Global`GradientFieldPlot", "]"}]], "Input",
 CellChangeTimes->{{3.482675369405048*^9, 3.482675392925993*^9}, {
  3.482711841699607*^9, 3.482711842720973*^9}, {3.482712537031714*^9, 
  3.482712538580915*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GradientFieldPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "-", "1"}], ")"}], "^", "2"}], " ", "+", " ", 
       RowBox[{"y", "^", "2"}]}], "]"}]}], " ", "-", " ", 
    RowBox[{"1", " ", "/", " ", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "+", "1"}], ")"}], "^", "2"}], " ", "+", " ", 
       RowBox[{"y", "^", "2"}]}], "]"}]}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "2"}], ",", " ", "2"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"y", ",", " ", 
     RowBox[{"-", "2"}], ",", " ", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.482675242085795*^9, 3.4826753064170017`*^9}, {
  3.482675576496995*^9, 3.48267558200773*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Thickness[Small], Arrowheads[0.02], 
   ArrowBox[{{-2., -2.}, {-2.000147458950489, -2.0007895913738594`}}], 
   ArrowBox[{{-2., -1.7142857142857142`}, {-2.0003199793143827`, \
-1.7153160284940219`}}], 
   ArrowBox[{{-2., -1.4285714285714286`}, {-2.0006191555430983`, \
-1.4299073804397904`}}], 
   ArrowBox[{{-2., -1.1428571428571428`}, {-2.0011296027156, \
-1.1445485714061507`}}], 
   ArrowBox[{{-2., -0.8571428571428571}, {-2.0019645631206995`, \
-0.85915393834576}}], 
   ArrowBox[{{-2., -0.5714285714285714}, {-2.0031834627870726`, \
-0.5734802800151598}}], 
   ArrowBox[{{-2., -0.2857142857142857}, {-2.00451752417302, \
-0.28712603598148323`}}], ArrowBox[{{-2., 0.}, {-2.0051525372053582`, 0.}}], 
   ArrowBox[{{-2., 0.2857142857142857}, {-2.00451752417302, 
    0.28712603598148323`}}], 
   ArrowBox[{{-2., 0.5714285714285714}, {-2.0031834627870726`, 
    0.5734802800151598}}], 
   ArrowBox[{{-2., 0.8571428571428571}, {-2.0019645631206995`, 
    0.85915393834576}}], 
   ArrowBox[{{-2., 1.1428571428571428`}, {-2.0011296027156, 
    1.1445485714061507`}}], 
   ArrowBox[{{-2., 1.4285714285714286`}, {-2.0006191555430983`, 
    1.4299073804397904`}}], 
   ArrowBox[{{-2., 1.7142857142857142`}, {-2.0003199793143827`, 
    1.7153160284940219`}}], 
   ArrowBox[{{-2., 2.}, {-2.000147458950489, 2.0007895913738594`}}], 
   ArrowBox[{{-1.7142857142857142`, -2.}, {-1.7143074546538766`, \
-2.0009078527535746`}}], 
   ArrowBox[{{-1.7142857142857142`, -1.7142857142857142`}, \
{-1.7144565875517714`, -1.7155367635597278`}}], 
   ArrowBox[{{-1.7142857142857142`, -1.4285714285714286`}, \
{-1.714756683616223, -1.4303168496583611`}}], 
   ArrowBox[{{-1.7142857142857142`, -1.1428571428571428`}, \
{-1.7153612048493239`, -1.1453040911694075`}}], 
   ArrowBox[{{-1.7142857142857142`, -0.8571428571428571}, \
{-1.7165843570706334`, -0.8605044728312573}}], 
   ArrowBox[{{-1.7142857142857142`, -0.5714285714285714}, \
{-1.718958055282219, -0.5756010302304241}}], 
   ArrowBox[{{-1.7142857142857142`, -0.2857142857142857}, \
{-1.7226055601834669`, -0.28927032049348095`}}], 
   ArrowBox[{{-1.7142857142857142`, 0.}, {-1.7248602621103841`, 0.}}], 
   ArrowBox[{{-1.7142857142857142`, 
    0.2857142857142857}, {-1.7226055601834669`, 0.28927032049348095`}}], 
   ArrowBox[{{-1.7142857142857142`, 0.5714285714285714}, {-1.718958055282219, 
    0.5756010302304241}}], 
   ArrowBox[{{-1.7142857142857142`, 
    0.8571428571428571}, {-1.7165843570706334`, 0.8605044728312573}}], 
   ArrowBox[{{-1.7142857142857142`, 
    1.1428571428571428`}, {-1.7153612048493239`, 1.1453040911694075`}}], 
   ArrowBox[{{-1.7142857142857142`, 1.4285714285714286`}, {-1.714756683616223,
     1.4303168496583611`}}], 
   ArrowBox[{{-1.7142857142857142`, 
    1.7142857142857142`}, {-1.7144565875517714`, 1.7155367635597278`}}], 
   ArrowBox[{{-1.7142857142857142`, 2.}, {-1.7143074546538766`, 
    2.0009078527535746`}}], 
   ArrowBox[{{-1.4285714285714286`, -2.}, {-1.428409666992685, \
-2.0009824811505568`}}], 
   ArrowBox[{{-1.4285714285714286`, -1.7142857142857142`}, \
{-1.4284857749276405`, -1.7157084297906084`}}], 
   ArrowBox[{{-1.4285714285714286`, -1.4285714285714286`}, \
{-1.4286908504880116`, -1.4306971371202122`}}], 
   ArrowBox[{{-1.4285714285714286`, -1.1428571428571428`}, \
{-1.4292095624522974`, -1.146157671158462}}], 
   ArrowBox[{{-1.4285714285714286`, -0.8571428571428571}, \
{-1.430570051310314, -0.8624974866302141}}], 
   ArrowBox[{{-1.4285714285714286`, -0.5714285714285714}, \
{-1.4344817330130961`, -0.5803043524044655}}], 
   ArrowBox[{{-1.4285714285714286`, -0.2857142857142857}, \
{-1.445787920492169, -0.2977205201283908}}], 
   ArrowBox[{{-1.4285714285714286`, 0.}, {-1.459147903682811, 0.}}], 
   ArrowBox[{{-1.4285714285714286`, 0.2857142857142857}, {-1.445787920492169, 
    0.2977205201283908}}], 
   ArrowBox[{{-1.4285714285714286`, 
    0.5714285714285714}, {-1.4344817330130961`, 0.5803043524044655}}], 
   ArrowBox[{{-1.4285714285714286`, 0.8571428571428571}, {-1.430570051310314, 
    0.8624974866302141}}], 
   ArrowBox[{{-1.4285714285714286`, 
    1.1428571428571428`}, {-1.4292095624522974`, 1.146157671158462}}], 
   ArrowBox[{{-1.4285714285714286`, 
    1.4285714285714286`}, {-1.4286908504880116`, 1.4306971371202122`}}], 
   ArrowBox[{{-1.4285714285714286`, 
    1.7142857142857142`}, {-1.4284857749276405`, 1.7157084297906084`}}], 
   ArrowBox[{{-1.4285714285714286`, 2.}, {-1.428409666992685, 
    2.0009824811505568`}}], 
   ArrowBox[{{-1.1428571428571428`, -2.}, {-1.142466649704934, \
-2.0009777952856393`}}], 
   ArrowBox[{{-1.1428571428571428`, -1.7142857142857142`}, \
{-1.1424187516911168`, -1.7157569484321997`}}], 
   ArrowBox[{{-1.1428571428571428`, -1.4285714285714286`}, \
{-1.1424097986031436`, -1.43088490607937}}], 
   ArrowBox[{{-1.1428571428571428`, -1.1428571428571428`}, \
{-1.142531953432651, -1.1467306457200892`}}], 
   ArrowBox[{{-1.1428571428571428`, -0.8571428571428571}, \
{-1.1431087494651324`, -0.8643108266807061}}], 
   ArrowBox[{{-1.1428571428571428`, -0.5714285714285714}, \
{-1.145770625561491, -0.5873339045349268}}], 
   ArrowBox[{{-1.1428571428571428`, -0.2857142857142857}, \
{-1.1670324403263983`, -0.3363598376212408}}], 
   ArrowBox[{{-1.1428571428571428`, 0.}, {-1.4256283846872082`, 0.}}], 
   ArrowBox[{{-1.1428571428571428`, 
    0.2857142857142857}, {-1.1670324403263983`, 0.3363598376212408}}], 
   ArrowBox[{{-1.1428571428571428`, 0.5714285714285714}, {-1.145770625561491, 
    0.5873339045349268}}], 
   ArrowBox[{{-1.1428571428571428`, 
    0.8571428571428571}, {-1.1431087494651324`, 0.8643108266807061}}], 
   ArrowBox[{{-1.1428571428571428`, 1.1428571428571428`}, {-1.142531953432651,
     1.1467306457200892`}}], 
   ArrowBox[{{-1.1428571428571428`, 
    1.4285714285714286`}, {-1.1424097986031436`, 1.43088490607937}}], 
   ArrowBox[{{-1.1428571428571428`, 
    1.7142857142857142`}, {-1.1424187516911168`, 1.7157569484321997`}}], 
   ArrowBox[{{-1.1428571428571428`, 2.}, {-1.142466649704934, 
    2.0009777952856393`}}], 
   ArrowBox[{{-0.8571428571428571, -2.}, {-0.856510623956335, \
-2.0008678899080157`}}], 
   ArrowBox[{{-0.8571428571428571, -1.7142857142857142`}, \
{-0.8563133817707727, -1.7156222913414514`}}], 
   ArrowBox[{{-0.8571428571428571, -1.4285714285714286`}, \
{-0.856026109994959, -1.430725900392977}}], 
   ArrowBox[{{-0.8571428571428571, -1.1428571428571428`}, \
{-0.8555626609605279, -1.1465542573864886`}}], 
   ArrowBox[{{-0.8571428571428571, -0.8571428571428571}, \
{-0.8546228296789937, -0.86413437549952}}], 
   ArrowBox[{{-0.8571428571428571, -0.5714285714285714}, {-0.85162318237094, \
-0.5871860611739769}}], 
   ArrowBox[{{-0.8571428571428571, -0.2857142857142857}, \
{-0.8301153971415999, -0.3362741136883858}}], 
   ArrowBox[{{-0.8571428571428571, 0.}, {-0.5714285714285714, 0.}}], 
   ArrowBox[{{-0.8571428571428571, 0.2857142857142857}, {-0.8301153971415999, 
    0.3362741136883858}}], 
   ArrowBox[{{-0.8571428571428571, 0.5714285714285714}, {-0.85162318237094, 
    0.5871860611739769}}], 
   ArrowBox[{{-0.8571428571428571, 0.8571428571428571}, {-0.8546228296789937, 
    0.86413437549952}}], 
   ArrowBox[{{-0.8571428571428571, 1.1428571428571428`}, {-0.8555626609605279,
     1.1465542573864886`}}], 
   ArrowBox[{{-0.8571428571428571, 1.4285714285714286`}, {-0.856026109994959, 
    1.430725900392977}}], 
   ArrowBox[{{-0.8571428571428571, 1.7142857142857142`}, {-0.8563133817707727,
     1.7156222913414514`}}], 
   ArrowBox[{{-0.8571428571428571, 2.}, {-0.856510623956335, 
    2.0008678899080157`}}], 
   ArrowBox[{{-0.5714285714285714, -2.}, {-0.5705846913725465, \
-2.0006502291706845`}}], 
   ArrowBox[{{-0.5714285714285714, -1.7142857142857142`}, \
{-0.5702540627775622, -1.7152966146035824`}}], 
   ArrowBox[{{-0.5714285714285714, -1.4285714285714286`}, \
{-0.5697288108230267, -1.4302028122176145`}}], 
   ArrowBox[{{-0.5714285714285714, -1.1428571428571428`}, \
{-0.5688207291450338, -1.145597249385068}}], 
   ArrowBox[{{-0.5714285714285714, -0.8571428571428571}, \
{-0.5670175943284353, -0.861922048256579}}], 
   ArrowBox[{{-0.5714285714285714, -0.5714285714285714}, \
{-0.5626633492170822, -0.5798091323356235}}], 
   ArrowBox[{{-0.5714285714285714, -0.2857142857142857}, \
{-0.5510137042943747, -0.2974273099806413}}], 
   ArrowBox[{{-0.5714285714285714, 0.}, {-0.5375218958106658, 0.}}], 
   ArrowBox[{{-0.5714285714285714, 0.2857142857142857}, {-0.5510137042943747, 
    0.2974273099806413}}], 
   ArrowBox[{{-0.5714285714285714, 0.5714285714285714}, {-0.5626633492170822, 
    0.5798091323356235}}], 
   ArrowBox[{{-0.5714285714285714, 0.8571428571428571}, {-0.5670175943284353, 
    0.861922048256579}}], 
   ArrowBox[{{-0.5714285714285714, 1.1428571428571428`}, {-0.5688207291450338,
     1.145597249385068}}], 
   ArrowBox[{{-0.5714285714285714, 1.4285714285714286`}, {-0.5697288108230267,
     1.4302028122176145`}}], 
   ArrowBox[{{-0.5714285714285714, 1.7142857142857142`}, {-0.5702540627775622,
     1.7152966146035824`}}], 
   ArrowBox[{{-0.5714285714285714, 2.}, {-0.5705846913725465, 
    2.0006502291706845`}}], 
   ArrowBox[{{-0.2857142857142857, -2.}, {-0.2847275308945559, \
-2.0003478077430477`}}], 
   ArrowBox[{{-0.2857142857142857, -1.7142857142857142`}, \
{-0.2843104503339797, -1.7148272067801478`}}], 
   ArrowBox[{{-0.2857142857142857, -1.4285714285714286`}, \
{-0.2836483256137594, -1.4294373959426918`}}], 
   ArrowBox[{{-0.2857142857142857, -1.1428571428571428`}, \
{-0.2825587883548362, -1.144262044473649}}], 
   ArrowBox[{{-0.2857142857142857, -0.8571428571428571}, \
{-0.2807134856184672, -0.8593733061200991}}], 
   ArrowBox[{{-0.2857142857142857, -0.5714285714285714}, \
{-0.27762889445674416`, -0.5745669923417953}}], 
   ArrowBox[{{-0.2857142857142857, -0.2857142857142857}, \
{-0.27335854197656034`, -0.2886268947735916}}], 
   ArrowBox[{{-0.2857142857142857, 0.}, {-0.27084635335615725`, 0.}}], 
   ArrowBox[{{-0.2857142857142857, 
    0.2857142857142857}, {-0.27335854197656034`, 0.2886268947735916}}], 
   ArrowBox[{{-0.2857142857142857, 
    0.5714285714285714}, {-0.27762889445674416`, 0.5745669923417953}}], 
   ArrowBox[{{-0.2857142857142857, 0.8571428571428571}, {-0.2807134856184672, 
    0.8593733061200991}}], 
   ArrowBox[{{-0.2857142857142857, 1.1428571428571428`}, {-0.2825587883548362,
     1.144262044473649}}], 
   ArrowBox[{{-0.2857142857142857, 1.4285714285714286`}, {-0.2836483256137594,
     1.4294373959426918`}}], 
   ArrowBox[{{-0.2857142857142857, 1.7142857142857142`}, {-0.2843104503339797,
     1.7148272067801478`}}], 
   ArrowBox[{{-0.2857142857142857, 2.}, {-0.2847275308945559, 
    2.0003478077430477`}}], 
   ArrowBox[{{0., -2.}, {0.0010369281103000225`, -2.}}], 
   ArrowBox[{{0., -1.7142857142857142`}, {
    0.0014830705501557983`, -1.7142857142857142`}}], 
   ArrowBox[{{0., -1.4285714285714286`}, {
    0.002186343380461395, -1.4285714285714286`}}], 
   ArrowBox[{{0., -1.1428571428571428`}, {
    0.00331039722554561, -1.1428571428571428`}}], 
   ArrowBox[{{0., -0.8571428571428571}, {
    0.005074221089460608, -0.8571428571428571}}], 
   ArrowBox[{{0., -0.5714285714285714}, {
    0.007588007292516282, -0.5714285714285714}}], 
   ArrowBox[{{0., -0.2857142857142857}, {
    0.010305853632554249`, -0.2857142857142857}}], 
   ArrowBox[{{0., 0.}, {0.01159320871205625, 0.}}], 
   ArrowBox[{{0., 0.2857142857142857}, {0.010305853632554249`, 
    0.2857142857142857}}], 
   ArrowBox[{{0., 0.5714285714285714}, {0.007588007292516282, 
    0.5714285714285714}}], 
   ArrowBox[{{0., 0.8571428571428571}, {0.005074221089460608, 
    0.8571428571428571}}], 
   ArrowBox[{{0., 1.1428571428571428`}, {0.00331039722554561, 
    1.1428571428571428`}}], 
   ArrowBox[{{0., 1.4285714285714286`}, {0.002186343380461395, 
    1.4285714285714286`}}], 
   ArrowBox[{{0., 1.7142857142857142`}, {0.0014830705501557983`, 
    1.7142857142857142`}}], 
   ArrowBox[{{0., 2.}, {0.0010369281103000225`, 2.}}], 
   ArrowBox[{{0.2857142857142857, -2.}, {
    0.2867010405340155, -1.9996521922569526`}}], 
   ArrowBox[{{0.2857142857142857, -1.7142857142857142`}, {
    0.28711812109459167`, -1.7137442217912806`}}], 
   ArrowBox[{{0.2857142857142857, -1.4285714285714286`}, {
    0.287780245814812, -1.4277054612001654`}}], 
   ArrowBox[{{0.2857142857142857, -1.1428571428571428`}, {
    0.2888697830737352, -1.1414522412406365`}}], 
   ArrowBox[{{0.2857142857142857, -0.8571428571428571}, {
    0.2907150858101042, -0.8549124081656151}}], 
   ArrowBox[{{0.2857142857142857, -0.5714285714285714}, {
    0.29379967697182724`, -0.5682901505153475}}], 
   ArrowBox[{{0.2857142857142857, -0.2857142857142857}, {
    0.29807002945201105`, -0.2828016766549798}}], 
   ArrowBox[{{0.2857142857142857, 0.}, {0.30058221807241414`, 0.}}], 
   ArrowBox[{{0.2857142857142857, 0.2857142857142857}, {0.29807002945201105`, 
    0.2828016766549798}}], 
   ArrowBox[{{0.2857142857142857, 0.5714285714285714}, {0.29379967697182724`, 
    0.5682901505153475}}], 
   ArrowBox[{{0.2857142857142857, 0.8571428571428571}, {0.2907150858101042, 
    0.8549124081656151}}], 
   ArrowBox[{{0.2857142857142857, 1.1428571428571428`}, {0.2888697830737352, 
    1.1414522412406365`}}], 
   ArrowBox[{{0.2857142857142857, 1.4285714285714286`}, {0.287780245814812, 
    1.4277054612001654`}}], 
   ArrowBox[{{0.2857142857142857, 1.7142857142857142`}, {0.28711812109459167`,
     1.7137442217912806`}}], 
   ArrowBox[{{0.2857142857142857, 2.}, {0.2867010405340155, 
    1.9996521922569526`}}], 
   ArrowBox[{{0.5714285714285714, -2.}, {
    0.5722724514845963, -1.9993497708293158`}}], 
   ArrowBox[{{0.5714285714285714, -1.7142857142857142`}, {
    0.5726030800795806, -1.713274813967846}}], 
   ArrowBox[{{0.5714285714285714, -1.4285714285714286`}, {
    0.5731283320341161, -1.4269400449252427`}}], 
   ArrowBox[{{0.5714285714285714, -1.1428571428571428`}, {
    0.574036413712109, -1.1401170363292177`}}], 
   ArrowBox[{{0.5714285714285714, -0.8571428571428571}, {
    0.5758395485287074, -0.8523636660291352}}], 
   ArrowBox[{{0.5714285714285714, -0.5714285714285714}, {
    0.5801937936400606, -0.5630480105215193}}], 
   ArrowBox[{{0.5714285714285714, -0.2857142857142857}, {
    0.5918434385627681, -0.2740012614479301}}], 
   ArrowBox[{{0.5714285714285714, 0.}, {0.605335247046477, 0.}}], 
   ArrowBox[{{0.5714285714285714, 0.2857142857142857}, {0.5918434385627681, 
    0.2740012614479301}}], 
   ArrowBox[{{0.5714285714285714, 0.5714285714285714}, {0.5801937936400606, 
    0.5630480105215193}}], 
   ArrowBox[{{0.5714285714285714, 0.8571428571428571}, {0.5758395485287074, 
    0.8523636660291352}}], 
   ArrowBox[{{0.5714285714285714, 1.1428571428571428`}, {0.574036413712109, 
    1.1401170363292177`}}], 
   ArrowBox[{{0.5714285714285714, 1.4285714285714286`}, {0.5731283320341161, 
    1.4269400449252427`}}], 
   ArrowBox[{{0.5714285714285714, 1.7142857142857142`}, {0.5726030800795806, 
    1.713274813967846}}], 
   ArrowBox[{{0.5714285714285714, 2.}, {0.5722724514845963, 
    1.9993497708293158`}}], 
   ArrowBox[{{0.8571428571428571, -2.}, {
    0.8577750903293792, -1.9991321100919843`}}], 
   ArrowBox[{{0.8571428571428571, -1.7142857142857142`}, {
    0.8579723325149415, -1.712949137229977}}], 
   ArrowBox[{{0.8571428571428571, -1.4285714285714286`}, {
    0.8582596042907552, -1.4264169567498801`}}], 
   ArrowBox[{{0.8571428571428571, -1.1428571428571428`}, {
    0.8587230533251863, -1.139160028327797}}], 
   ArrowBox[{{0.8571428571428571, -0.8571428571428571}, {
    0.8596628846067205, -0.8501513387861942}}], 
   ArrowBox[{{0.8571428571428571, -0.5714285714285714}, {
    0.8626625319147742, -0.5556710816831659}}], 
   ArrowBox[{{0.8571428571428571, -0.2857142857142857}, {
    0.8841703171441143, -0.23515445774018562`}}], 
   ArrowBox[{{0.8571428571428571, 0.}, {1.1428571428571428`, 0.}}], 
   ArrowBox[{{0.8571428571428571, 0.2857142857142857}, {0.8841703171441143, 
    0.23515445774018562`}}], 
   ArrowBox[{{0.8571428571428571, 0.5714285714285714}, {0.8626625319147742, 
    0.5556710816831659}}], 
   ArrowBox[{{0.8571428571428571, 0.8571428571428571}, {0.8596628846067205, 
    0.8501513387861942}}], 
   ArrowBox[{{0.8571428571428571, 1.1428571428571428`}, {0.8587230533251863, 
    1.139160028327797}}], 
   ArrowBox[{{0.8571428571428571, 1.4285714285714286`}, {0.8582596042907552, 
    1.4264169567498801`}}], 
   ArrowBox[{{0.8571428571428571, 1.7142857142857142`}, {0.8579723325149415, 
    1.712949137229977}}], 
   ArrowBox[{{0.8571428571428571, 2.}, {0.8577750903293792, 
    1.9991321100919843`}}], 
   ArrowBox[{{1.1428571428571428`, -2.}, {
    1.1432476360093515`, -1.9990222047143607`}}], 
   ArrowBox[{{1.1428571428571428`, -1.7142857142857142`}, {
    1.1432955340231687`, -1.7128144801392287`}}], 
   ArrowBox[{{1.1428571428571428`, -1.4285714285714286`}, {
    1.143304487111142, -1.4262579510634872`}}], 
   ArrowBox[{{1.1428571428571428`, -1.1428571428571428`}, {
    1.1431823322816346`, -1.1389836399941964`}}], 
   ArrowBox[{{1.1428571428571428`, -0.8571428571428571}, {
    1.1426055362491532`, -0.8499748876050081}}], 
   ArrowBox[{{1.1428571428571428`, -0.5714285714285714}, {
    1.1399436601527946`, -0.555523238322216}}], 
   ArrowBox[{{1.1428571428571428`, -0.2857142857142857}, {
    1.1186818453878873`, -0.23506873380733062`}}], 
   ArrowBox[{{1.1428571428571428`, 0.}, {0.8600859010270774, 0.}}], 
   ArrowBox[{{1.1428571428571428`, 0.2857142857142857}, {1.1186818453878873`, 
    0.23506873380733062`}}], 
   ArrowBox[{{1.1428571428571428`, 0.5714285714285714}, {1.1399436601527946`, 
    0.555523238322216}}], 
   ArrowBox[{{1.1428571428571428`, 0.8571428571428571}, {1.1426055362491532`, 
    0.8499748876050081}}], 
   ArrowBox[{{1.1428571428571428`, 1.1428571428571428`}, {1.1431823322816346`,
     1.1389836399941964`}}], 
   ArrowBox[{{1.1428571428571428`, 1.4285714285714286`}, {1.143304487111142, 
    1.4262579510634872`}}], 
   ArrowBox[{{1.1428571428571428`, 1.7142857142857142`}, {1.1432955340231687`,
     1.7128144801392287`}}], 
   ArrowBox[{{1.1428571428571428`, 2.}, {1.1432476360093515`, 
    1.9990222047143607`}}], 
   ArrowBox[{{1.4285714285714286`, -2.}, {
    1.4287331901501723`, -1.9990175188494435`}}], 
   ArrowBox[{{1.4285714285714286`, -1.7142857142857142`}, {
    1.4286570822152167`, -1.71286299878082}}], 
   ArrowBox[{{1.4285714285714286`, -1.4285714285714286`}, {
    1.4284520066548456`, -1.426445720022645}}], 
   ArrowBox[{{1.4285714285714286`, -1.1428571428571428`}, {
    1.4279332946905599`, -1.1395566145558236`}}], 
   ArrowBox[{{1.4285714285714286`, -0.8571428571428571}, {
    1.4265728058325433`, -0.8517882276555001}}], 
   ArrowBox[{{1.4285714285714286`, -0.5714285714285714}, {
    1.422661124129761, -0.5625527904526773}}], 
   ArrowBox[{{1.4285714285714286`, -0.2857142857142857}, {
    1.4113549366506881`, -0.2737080513001806}}], 
   ArrowBox[{{1.4285714285714286`, 0.}, {1.3979949534600462`, 0.}}], 
   ArrowBox[{{1.4285714285714286`, 0.2857142857142857}, {1.4113549366506881`, 
    0.2737080513001806}}], 
   ArrowBox[{{1.4285714285714286`, 0.5714285714285714}, {1.422661124129761, 
    0.5625527904526773}}], 
   ArrowBox[{{1.4285714285714286`, 0.8571428571428571}, {1.4265728058325433`, 
    0.8517882276555001}}], 
   ArrowBox[{{1.4285714285714286`, 1.1428571428571428`}, {1.4279332946905599`,
     1.1395566145558236`}}], 
   ArrowBox[{{1.4285714285714286`, 1.4285714285714286`}, {1.4284520066548456`,
     1.426445720022645}}], 
   ArrowBox[{{1.4285714285714286`, 1.7142857142857142`}, {1.4286570822152167`,
     1.71286299878082}}], 
   ArrowBox[{{1.4285714285714286`, 2.}, {1.4287331901501723`, 
    1.9990175188494435`}}], 
   ArrowBox[{{1.7142857142857142`, -2.}, {
    1.7142639739175518`, -1.9990921472464254`}}], 
   ArrowBox[{{1.7142857142857142`, -1.7142857142857142`}, {
    1.714114841019657, -1.7130346650117005`}}], 
   ArrowBox[{{1.7142857142857142`, -1.4285714285714286`}, {
    1.7138147449552055`, -1.426826007484496}}], 
   ArrowBox[{{1.7142857142857142`, -1.1428571428571428`}, {
    1.7132102237221045`, -1.1404101945448781`}}], 
   ArrowBox[{{1.7142857142857142`, -0.8571428571428571}, {
    1.711987071500795, -0.8537812414544569}}], 
   ArrowBox[{{1.7142857142857142`, -0.5714285714285714}, {
    1.7096133732892094`, -0.5672561126267187}}], 
   ArrowBox[{{1.7142857142857142`, -0.2857142857142857}, {
    1.7059658683879615`, -0.28215825093509045`}}], 
   ArrowBox[{{1.7142857142857142`, 0.}, {1.7037111664610443`, 0.}}], 
   ArrowBox[{{1.7142857142857142`, 0.2857142857142857}, {1.7059658683879615`, 
    0.28215825093509045`}}], 
   ArrowBox[{{1.7142857142857142`, 0.5714285714285714}, {1.7096133732892094`, 
    0.5672561126267187}}], 
   ArrowBox[{{1.7142857142857142`, 0.8571428571428571}, {1.711987071500795, 
    0.8537812414544569}}], 
   ArrowBox[{{1.7142857142857142`, 1.1428571428571428`}, {1.7132102237221045`,
     1.1404101945448781`}}], 
   ArrowBox[{{1.7142857142857142`, 1.4285714285714286`}, {1.7138147449552055`,
     1.426826007484496}}], 
   ArrowBox[{{1.7142857142857142`, 1.7142857142857142`}, {1.714114841019657, 
    1.7130346650117005`}}], 
   ArrowBox[{{1.7142857142857142`, 2.}, {1.7142639739175518`, 
    1.9990921472464254`}}], 
   ArrowBox[{{2., -2.}, {1.999852541049511, -1.9992104086261406`}}], 
   ArrowBox[{{2., -1.7142857142857142`}, {
    1.9996800206856173`, -1.7132554000774065`}}], 
   ArrowBox[{{2., -1.4285714285714286`}, {
    1.999380844456902, -1.4272354767030668`}}], 
   ArrowBox[{{2., -1.1428571428571428`}, {
    1.9988703972844, -1.1411657143081348`}}], 
   ArrowBox[{{2., -0.8571428571428571}, {
    1.9980354368793005`, -0.8551317759399542}}], 
   ArrowBox[{{2., -0.5714285714285714}, {
    1.9968165372129272`, -0.569376862841983}}], 
   ArrowBox[{{2., -0.2857142857142857}, {
    1.9954824758269798`, -0.28430253544708817`}}], 
   ArrowBox[{{2., 0.}, {1.9948474627946418`, 0.}}], 
   ArrowBox[{{2., 0.2857142857142857}, {1.9954824758269798`, 
    0.28430253544708817`}}], 
   ArrowBox[{{2., 0.5714285714285714}, {1.9968165372129272`, 
    0.569376862841983}}], 
   ArrowBox[{{2., 0.8571428571428571}, {1.9980354368793005`, 
    0.8551317759399542}}], 
   ArrowBox[{{2., 1.1428571428571428`}, {1.9988703972844, 
    1.1411657143081348`}}], 
   ArrowBox[{{2., 1.4285714285714286`}, {1.999380844456902, 
    1.4272354767030668`}}], 
   ArrowBox[{{2., 1.7142857142857142`}, {1.9996800206856173`, 
    1.7132554000774065`}}], 
   ArrowBox[{{2., 2.}, {1.999852541049511, 1.9992104086261406`}}]},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  DisplayFunction:>$DisplayFunction,
  Epilog->{},
  FormatType:>TraditionalForm,
  Frame->False,
  FrameLabel->None,
  FrameStyle->{},
  FrameTicks->Automatic,
  FrameTicksStyle->{},
  GridLines->None,
  GridLinesStyle->{},
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  LabelStyle->{},
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangeClipping->False,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotateLabel->True,
  Ticks->Automatic,
  TicksStyle->{}]], "Output",
 CellChangeTimes->{
  3.482675409372931*^9, 3.482675502377576*^9, 3.482675584876459*^9, 
   3.48271088191765*^9, 3.482710950069673*^9, 3.482711014086454*^9, 
   3.482711062100624*^9, {3.482711195019244*^9, 3.482711216457052*^9}, 
   3.482711355759211*^9, 3.482711847412837*^9, 3.482712489724312*^9, 
   3.4827125627621117`*^9, 3.4827126504611187`*^9, 3.4827128088553677`*^9, 
   3.48271287283317*^9, 3.4827129284631023`*^9, 3.482713025378071*^9, 
   3.4827130865069637`*^9, 3.482713189122746*^9, 3.4827132942758293`*^9, 
   3.482713339737495*^9, 3.4827133875145817`*^9, 3.4827134287455263`*^9, 
   3.482714379537034*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{785, 645},
WindowMargins->{{46, Automatic}, {Automatic, 27}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
ShowSelection->True,
Magnification->1.5,
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (May 21, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3482689173-4612982"->{
  Cell[40245, 776, 1722, 30, 107, "Print",
   CellTags->"Info3482689173-4612982"],
  Cell[41970, 808, 5375, 112, 741, "Print",
   CellTags->"Info3482689173-4612982"]},
 "Info3482689177-6859691"->{
  Cell[267210, 4851, 5233, 78, 312, "Print",
   CellTags->"Info3482689177-6859691"]},
 "Info3482689178-3230571"->{
  Cell[286220, 5225, 118, 2, 58, "Print",
   CellTags->"Info3482689178-3230571"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3482689173-4612982", 318343, 5928},
 {"Info3482689177-6859691", 318540, 5933},
 {"Info3482689178-3230571", 318655, 5936}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 105, 1, 69, "Subtitle"],
Cell[698, 26, 73, 1, 40, "Input"],
Cell[CellGroupData[{
Cell[796, 31, 283, 9, 40, "Input"],
Cell[1082, 42, 19172, 323, 363, "Output"]
}, Open  ]],
Cell[20269, 368, 516, 16, 65, "Input"],
Cell[20788, 386, 637, 20, 65, "Input"],
Cell[CellGroupData[{
Cell[21450, 410, 148, 3, 40, "Input"],
Cell[21601, 415, 875, 14, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22513, 434, 218, 4, 40, "Input"],
Cell[22734, 440, 939, 22, 75, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23710, 467, 247, 8, 40, "Input"],
Cell[23960, 477, 785, 11, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24782, 493, 315, 9, 40, "Input"],
Cell[25100, 504, 544, 8, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25681, 517, 297, 9, 49, "Input"],
Cell[25981, 528, 14088, 237, 356, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40106, 770, 114, 2, 40, "Input"],
Cell[CellGroupData[{
Cell[40245, 776, 1722, 30, 107, "Print",
 CellTags->"Info3482689173-4612982"],
Cell[41970, 808, 5375, 112, 741, "Print",
 CellTags->"Info3482689173-4612982"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[47394, 926, 369, 12, 67, "Input"],
Cell[47766, 940, 12377, 208, 341, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60180, 1153, 566, 17, 67, "Input"],
Cell[60749, 1172, 8073, 138, 341, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68859, 1315, 235, 7, 40, "Input"],
Cell[69097, 1324, 8012, 137, 341, "Output"]
}, Open  ]],
Cell[77124, 1464, 317, 9, 40, "Input"],
Cell[77444, 1475, 316, 9, 40, "Input"],
Cell[CellGroupData[{
Cell[77785, 1488, 150, 3, 40, "Input"],
Cell[77938, 1493, 19059, 320, 340, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[97034, 1818, 340, 9, 40, "Input"],
Cell[97377, 1829, 2394, 70, 133, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99808, 1904, 332, 9, 40, "Input"],
Cell[100143, 1915, 1471, 25, 356, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[101651, 1945, 127, 2, 40, "Input"],
Cell[101781, 1949, 567, 8, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102385, 1962, 82, 2, 40, "Input"],
Cell[102470, 1966, 804, 11, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[103311, 1982, 278, 7, 40, "Input"],
Cell[103592, 1991, 969, 16, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[104598, 2012, 82, 2, 40, "Input"],
Cell[104683, 2016, 968, 16, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105688, 2037, 77, 2, 40, "Input"],
Cell[105768, 2041, 1154, 22, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106959, 2068, 152, 4, 40, "Input"],
Cell[107114, 2074, 1172, 30, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108323, 2109, 704, 23, 64, "Input"],
Cell[109030, 2134, 1163, 30, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[110230, 2169, 181, 3, 40, "Input"],
Cell[110414, 2174, 1010, 19, 373, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111461, 2198, 387, 10, 40, "Input"],
Cell[111851, 2210, 1371, 24, 353, "Output"]
}, Open  ]],
Cell[113237, 2237, 347, 9, 40, "Input"],
Cell[CellGroupData[{
Cell[113609, 2250, 179, 4, 40, "Input"],
Cell[113791, 2256, 1148, 21, 40, "Output"]
}, Open  ]],
Cell[114954, 2280, 58, 1, 40, "Input"],
Cell[115015, 2283, 930, 29, 88, "Input"],
Cell[CellGroupData[{
Cell[115970, 2316, 130, 2, 40, "Input"],
Cell[116103, 2320, 36236, 599, 355, "Output"]
}, Open  ]],
Cell[152354, 2922, 391, 11, 40, "Input"],
Cell[152748, 2935, 130, 1, 39, "Text"],
Cell[CellGroupData[{
Cell[152903, 2940, 560, 15, 64, "Input"],
Cell[153466, 2957, 1222, 22, 360, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[154725, 2984, 294, 9, 40, "Input"],
Cell[155022, 2995, 20179, 337, 549, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[175238, 3337, 1007, 29, 87, "Input"],
Cell[176248, 3368, 90648, 1469, 463, "Output"]
}, Open  ]],
Cell[266911, 4840, 124, 2, 40, "Input"],
Cell[CellGroupData[{
Cell[267060, 4846, 147, 3, 40, "Input"],
Cell[267210, 4851, 5233, 78, 312, "Print",
 CellTags->"Info3482689177-6859691"]
}, Open  ]],
Cell[CellGroupData[{
Cell[272480, 4934, 2060, 51, 202, "Input"],
Cell[274543, 4987, 3158, 60, 471, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[277750, 5053, 112, 1, 69, "Subtitle"],
Cell[277865, 5056, 1065, 30, 88, "Input"],
Cell[CellGroupData[{
Cell[278955, 5090, 128, 2, 40, "Input"],
Cell[CellGroupData[{
Cell[279108, 5096, 628, 9, 30, "Print"],
Cell[279739, 5107, 628, 9, 30, "Print"],
Cell[280370, 5118, 630, 9, 30, "Print"],
Cell[281003, 5129, 628, 9, 30, "Print"],
Cell[281634, 5140, 630, 9, 30, "Print"],
Cell[282267, 5151, 628, 9, 30, "Print"],
Cell[282898, 5162, 631, 9, 30, "Print"],
Cell[283532, 5173, 631, 9, 30, "Print"],
Cell[284166, 5184, 629, 9, 30, "Print"],
Cell[284798, 5195, 629, 9, 30, "Print"],
Cell[285430, 5206, 629, 9, 30, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[286108, 5221, 109, 2, 40, "Input"],
Cell[286220, 5225, 118, 2, 58, "Print",
 CellTags->"Info3482689178-3230571"]
}, Open  ]],
Cell[286353, 5230, 438, 12, 65, "Input"],
Cell[CellGroupData[{
Cell[286816, 5246, 94, 2, 40, "Input"],
Cell[286913, 5250, 780, 11, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[287730, 5266, 140, 4, 40, "Input"],
Cell[287873, 5272, 772, 11, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[288682, 5288, 169, 5, 40, "Input"],
Cell[288854, 5295, 798, 11, 40, "Output"]
}, Open  ]],
Cell[289667, 5309, 156, 3, 40, "Input"],
Cell[CellGroupData[{
Cell[289848, 5316, 878, 25, 87, "Input"],
Cell[290729, 5343, 1245, 32, 119, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[292011, 5380, 148, 2, 40, "Input"],
Cell[292162, 5384, 659, 12, 102, "Message"]
}, Open  ]],
Cell[292836, 5399, 246, 4, 40, "Input"],
Cell[CellGroupData[{
Cell[293107, 5407, 875, 25, 87, "Input"],
Cell[293985, 5434, 23936, 476, 561, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)