(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* CreatedBy='Mathematica 8.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[
NotebookDataLength[
NotebookOptionsPosition[
NotebookOutlinePosition[
CellTagsIndexPosition[
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"mmOld", "=",
RowBox[{"Table", "[",
RowBox[{"1", ",",
RowBox[{"{",
RowBox[{"x", ",", "1", ",", "17"}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",", "1", ",", "17"}], "}"}]}], "]"}]}], ";"}], "
RowBox[{"(*", " ",
"Set", " ", "up", " ", "a", " ", "table", " ", "of", " ", "assumed", " ",
"starting", " ",
RowBox[{"values", ".", " ",
RowBox[{"Shouldn", "'"}]}], "t", " ", "matter", " ", "much"}], " ",
"*)"}], "\[IndentingNewLine]",
RowBox[{"(*", " ",
"I", " ", "originally", " ", "had", " ", "100", " ", "grid", " ",
"points"}], ",", " ",
RowBox[{"but", " ", "that", " ", "was", " ", "very", " ", "slow"}], ",",
RowBox[{"and", " ",
RowBox[{"didn", "'"}], "t", " ", "improve", " ", "the", " ", "look", " ",
"of", " ", "the", " ", "final", " ", "plot"}]}], " ", "*)"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*", " ",
"Set", " ", "up", " ", "boundary", " ", "conditions", " ", "on", " ",
"the", " ",
RowBox[{"array", ".", " ", "Here"}], " ",
RowBox[{"I", "'"}], "ll", " ", "set", " ", "it", " ", "to", " ", "2",
" ", "volts", " ", "on", " ", "2", " ", "ends"}], ",", " ",
"0", " ", "on", " ", "the", " ", "other", " ", "two", " ", "sides"}]}],
" ", "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"For", "[",
RowBox[{"i", "=", "1"}], ",", " ",
RowBox[{"i", " ", "\[LessEqual]", "17"}], ",", " ",
RowBox[{"i", "++"}], ",", " ",
RowBox[{"mmOld", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "2"}]}], "]"}],
";"}], "\n",
RowBox[{"For", "[",
RowBox[{"i", "=", "1"}], ",", " ",
RowBox[{"i", "\[LessEqual]", "17"}], ",", " ",
RowBox[{"i", "++"}], ",", " ",
RowBox[{"mmOld", "[",
RowBox[{"[",
RowBox[{"i", ",", "17"}], "]"}], "]"}], "=", "2"}]}], "]"}],
";"}], "\n",
RowBox[{"For", "[",
RowBox[{"j", "=", "1"}], ",",
RowBox[{"j", "\[LessEqual]", "17"}], ",",
RowBox[{"j", "++"}], ",",
RowBox[{"mmOld", "[",
RowBox[{"[",
RowBox[{"1", ",", "j"}], "]"}], "]"}], "=", "0"}]}], "]"}],
";"}], "\n",
RowBox[{"For", "[",
RowBox[{"j", "=", "1"}], ",",
RowBox[{"j", "\[LessEqual]", "17"}], ",",
RowBox[{"j", "++"}], ",",
RowBox[{"mmOld", "[",
RowBox[{"[",
RowBox[{"17", ",", "j"}], "]"}], "]"}], "=", "0"}]}], "]"}], ";"}],
"\n"}], "\[IndentingNewLine]",
RowBox[{"mmNew", "=", "mmOld"}], ";"}], " "}], "\n",
RowBox[{"mdev", "=", "1"}], ";", " ",
RowBox[{"dev", "=", "1"}], ";"}], "
", "\[IndentingNewLine]",
RowBox[{"(*",
"mdev", " ", "is", " ", "the", " ",
"\"\\""}], ",", " ",
"while", " ", "dev", " ", "will", " ", "be", " ", "the", " ", "sum", " ",
"of", " ", "the", " ", "squares", " ", "of", " ", "ALL", " ",
"deviations", " ", "added", " ", "up"}]}], " ", "*)"}],
"\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"For", "[",
RowBox[{"n", "=", "0"}], ",",
RowBox[{"dev", ">", ".001"}],
RowBox[{"(*", " ",
"I", " ", "keep", " ", "going", " ", "until", " ", "the", " ", "total",
" ", "sum", " ", "of", " ", "squared", " ", "deviations", " ", "has",
" ", "gotten", " ", "quite", " ",
RowBox[{"small", ".", " ", "Or"}], " ", "you", " ", "could", " ",
"just", " ", "fix", " ", "the", " ", "number", " ", "of", " ",
"iterations"}], ",", " ",
RowBox[{"e", ".", "g", ".", " ", "n"}], "<", "100"}]}], " ", "*)"}],
RowBox[{"n", "++"}], ",", "
", "\[IndentingNewLine]", "
RowBox[{"mdev", "=", "0"}], ";", " ",
RowBox[{"dev", "=", "0"}], ";", "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*", " ",
"First", " ", "sweep", " ", "through", " ", "the", " ", "grid"}], ",",
"avoiding", " ", "the", " ", "outer", " ", "row", " ", "and", " ",
"column"}], ",", " ",
"and", " ", "find", " ", "the", " ", "\"\\"", " ", "of",
" ", "the", " ", "old", " ", "nearest", " ", "neighbors"}]}], " ",
"*)"}], "\[IndentingNewLine]", "
RowBox[{"For", "[",
RowBox[{"i", "=", "2"}], ",",
RowBox[{"i", "\[LessEqual]", "16"}], ",",
RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", "
RowBox[{"For", "[",
RowBox[{"j", "=", "2"}], ",",
RowBox[{"j", "\[LessEqual]", "16"}], ",",
RowBox[{"j", "++"}], ",", "
", "\[IndentingNewLine]",
RowBox[{"mmNew", "[",
RowBox[{"[",
RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", " ",
RowBox[{"(",
RowBox[{"mmOld", "[",
RowBox[{"[",
RowBox[{"i", "-", "1"}], ",", "j"}], "]"}], "]"}], "+",
RowBox[{"mmOld", "[",
RowBox[{"[",
RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], "+",
RowBox[{"mmOld", "[",
RowBox[{"[",
RowBox[{"i", ",",
RowBox[{"j", "-", "1"}]}], "]"}], "]"}], "+",
RowBox[{"mmOld", "[",
RowBox[{"[",
RowBox[{"i", ",",
RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], ")"}], "/",
"4."}]}], " ", ";", "\[IndentingNewLine]", "
RowBox[{"dev", "=",
RowBox[{"dev", "+",
RowBox[{"(",
RowBox[{"mmNew", "[",
RowBox[{"[",
RowBox[{"i", ",", "j"}], "]"}], "]"}], "-",
RowBox[{"mmOld", "[",
RowBox[{"[",
RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ")"}], "^",
"2"}]}]}], ";", " ",
RowBox[{"mdev", "=",
RowBox[{"Max", "[",
RowBox[{"mdev", ",",
RowBox[{"(",
RowBox[{"mmNew", "[",
RowBox[{"[",
RowBox[{"i", ",", "j"}], "]"}], "]"}], "-",
RowBox[{"mmOld", "[",
RowBox[{"[",
RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ")"}], "^",
"2"}]}], "]"}]}]}]}], "\[IndentingNewLine]",
", "]"}]}], "\[IndentingNewLine]", "
"]"}], ";",
RowBox[{"(*", " ",
RowBox[{"For", " ", "debugging"}], ",", " ",
RowBox[{"can", " ",
RowBox[{"Print", "[",
RowBox[{"{",
RowBox[{"mdev", ",", "dev"}], "}"}], "]"}]}], ";"}]}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"(*", " ",
"Now", " ", "sweep", " ", "through", " ", "and", " ", "update", " ",
"the", " ", "old", " ", "grid"}], ",", " ",
RowBox[{"and", " ", "iterate"}]}], " ", "*)"}], "
"\[IndentingNewLine]", " ",
RowBox[{"For", "[",
RowBox[{"i", "=", "2"}], ",",
RowBox[{"i", "\[LessEqual]", "16"}], ",",
RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", "
RowBox[{"For", "[",
RowBox[{"j", "=", "2"}], ",",
RowBox[{"j", "\[LessEqual]", "16"}], ",",
RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", "
RowBox[{"mmOld", "[",
RowBox[{"[",
RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", " ",
RowBox[{"mmNew", "[",
RowBox[{"[",
RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], " ",
"\[IndentingNewLine]", "
", "]"}]}],
"\[IndentingNewLine]", "
", "]"}]}]}], "\[IndentingNewLine]",
"]"}], ";"}], "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{"Print", "[",
RowBox[{"{",
RowBox[{"mdev", ",", "dev"}], "}"}], "]"}], " ",
"*)"}]}], "\[IndentingNewLine]",
RowBox[{"ListPlot3D", "[",
RowBox[{"mmOld", ",", " ",
RowBox[{"PlotRange", " ", "\[Rule]", " ",
RowBox[{"{",
RowBox[{"0", ",", "2"}], "}"}]}]}], "]"}]}], "Input",
CellChangeTimes->{{3.306*^9, 3.1223`*^9}, {
3.358*^9, 3.389*^9}, {3.5947`*^9,
3.121*^9}, {3.014*^9, 3.14*^9}, {
3.315*^9, 3.6642`*^9}, {3.972*^9,
3.134*^9}, {3.156*^9, 3.1047`*^9}, {
3.49*^9, 3.4533`*^9}, {3.581*^9,
3.621*^9}}],
Cell[BoxData[
Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJx9mH9olWUUx+8MYSTmRW5xqxtdL9fX12cvj++LrIyMnr9cuK1Ma7qMknIm
o1IoihHULUOK/giG0o8R+KPWfmhQTAkpGFqZwqiZUrlRsy00Wzpnm80F9cLd
ex7Ot+e0fw777Ozcc86X5z7POQse27K6aVYqlVpQkUpdk0p+xu7mln6Mm1cK
PC3wjMCzAs8JPC/wgsCLAvcE7gtcCTwQuBZ4KPBI4PS7+X+b+FUSL21duWdz
0/AMTxPv3bZ1omPhwAzPWP/+4136+lMzPGv956x/vv9g/wzPEU8dn/b79n0z
w/OWj4z7NV/1zfCC5QfXjZ+IEl4U/D3LWXyfOM9HEef5B9af1autP+tPSLxs
kn5GwOV+c1tpeo+e/qi2fhL88NykLb/jrY4V958DXSpN6UBX+6vtw6BL7D/9
4tzmk0OgS8zVy21LHvkJdIn50edy8zoHQZeYV+147+bCIOiC/p7lLL5vOctH
Eef5B9af1astZ/0JifN+RuCPuqSBJzZt0j/vPbzztinQJW1Kj/d0P/z9Zfh/
/D7LEDe/Hejcfew86BL7Tx2sGN90FnSJ+cDXb89t+BV0SZv8xjXd9y0fAV3i
fKqfWbN2ZBh0QX+POI/vW87yUcR5/oH1Z/Vq4rw/IXHezwjioC4Z4InNmF21
9Q/2HLoKumSM+aBr3+fBJOiSMRvmLKxa0jYOcfGeydo4X+wfevOpUdAl9h9a
VP2xOg+6ZExv3Qvr6i6eA13iOFWvt3S9cQ50QX+POI/v2zgsH2X9Wf4BcV6v
tnFYf0LivJ8R8bJFXbLAE5s16bsW76ltnQZdsqb0ipk6vvMK6BLzbcV/ttf9
CbpkzdAtnfOWHbsEn4f3f87yT09MvLP/D9AlazYsX7Vo/sZR0CX2H5lTV5j+
HXRBf8/6s/i+5SwfRZznHxDn9WrLWX9C4ryfEfGyRV1ywBObM73bhx7adO3f
oEsu/r699cZnN/8FusS8tW3p1AMToEscP/1k04fnx0GXmL9/w+yliy9BHvgu
yxMvbZmIOj65ALrEvPnRioGaC6AL+nvEeXzfcpaPspzlHxDn9WrLWX9C4ryf
EfGyRV3ywBObN6W9Z266vQZ1yRtz7y/LPjuFuuTNWH2D+uEM6pI3uxoPf9f4
2mXQJW++PbN2dLIPdYnj3zP7bHc75ofv5YLl659oOb3jIuiC/h5xHt8nzvNR
xHn+AXFerybO+xMS5/2MiJct6lIAnthCfN/17P6yEXWJ+cS72ZYrqEvMm1Y0
nJw7CboUzIbmO4+oQ6hL/LnXXf3x6VnjoEvB9K5c9dL8QdSlYEqr6460VmPe
iR0DXdDfI87j+8R5Poo4zz8gzuvVlrP+hJazfkbEyxZ1KQJPbFE4L0XhvBSF
81IUzktROC9F4bzgvFiw3Hle0N8j7j4vmI8i7j4vWK8m7j4v2M+IeNmiLh7w
xHrC/eIJ94sn3C+ecL94wv2Cc3meuPt+8YT7Bf09wy3qgvkoy533C9arLXfe
L9jPiHjZoi4+8MT6wnvMF95jvvAe84X3GO4/cpY732O+8B7zhfcY+nvW3/ke
w3wUcfd7DOvVljvfY9jPiHjZoi4KeGKVML8oYX5RwvyCe6asjeOcX5Qwvyhh
flHC/IL+HnH3/IL5KMMtzi9Yr7ZxnPML9jMiXraoSwA8sYEw7wfCvI/7vAxx
97wfCPN+IMz7gTDvB8K8j/4ecfe8j/ko4u55H+vVxN3zPvYzgjioiwaeWC3s
x3BvmrbcuR/Twn5MC/sxLezHtLAf08J+DP09y537McxHEXfvx7BebbjF/Rj2
MwJ/1AX3nYnF/XQlcfc+ORT2yaGwTw6FfXIo7JNDYZ8cCvtk9Pcsd+6TMR9F
3L1Pxnq19Xfuk7GfEXBx35zif0deKfC0wDMCzwo8J/C8wAsCLwrcE7gvcCXw
QOBa4KHAo//wfwEq2zO6
{EdgeForm[None], GraphicsGroup3DBox[Polygon3DBox[CompressedData["
1:eJxNmAm0T1UUh+81e57x9XiGZ4hI9KKJUAolY9IkRfVSEqGQlEqRMUKiiERS
GUtJg5KUpDQhpIlSIZIUUjrfut9//bPWdtpPet3q5Hfr3PfAlH4
E/4qGJasEHGSRtlR8qxQiBohSocoE+IE69RyQhQJUTREeXsLh6jgSq2i9WIh
qoUoGaJUiNwQJUJkhqgconiIjBBVXKlVco5aVXuZvzxEixAtQ1R3P/gaegbP
asuKjlohyqnvJFdqdWVFRx170XGiWsuGOMU6OhrIwRl5sqKjvqzoONWVWj3n
qJ1mL/Mnew5nny4vd9w2ROMQ54RoJGttdTa092z1UGviXnWdq62Oc1ypNbWO
jgvkQEdzWdFxrqzoOM+VWjPnqJ1vL/NnhagpRwv3g+8MdXB/F8uKjotCnOlc
a1dq7WRFRxt70dFKrezX3jo6OsuBjk6yoqOjrOi4xJVaB+eoXWov84+HGBli
VIjL3A8d00I8ZO1qWdFxk3383HVRD7VrfWfo6GovOq5xpdbNOjpulAMdN8iK
jutkRcf1rtS6O0ct317mrwpxoRw93A++QZ7Bs1tlRcctIa50rpcrtdtkRUdv
e9Fxs1qvCNHXOjoGysEZd8iKjv6youN2V2r9nKM2wN58923pe75TXu54Qoih
Ie4NcY+st/qeBtl7t3qo3ReijzqG2tvb+d7W7rfe13c7QB3DZUXHA7Ki40FX
asOcozbCXuaHhOgpx0j3g2+wOri/h2VFx9gQdzk3zpXaI7KiY7y96BitVvab
aB0dU+VAxxRZ0TFZVnQ86kptknPUHrN3hPfCe+bdP+H9cuahEDtD/BBipqzo
eD5Kfjf4vXlSPdRm+87QMctedDzlSu1p6+iYLwc65smKjrmyouMZV2pznKP2
rL3Mvx7iObmecz/4XvMMni2WFR0LQ0wPMSPEIldqL8qKjiX2ouMFtXI3L1lH
xwo5OGO5rOh4WVZ0vOJKbZlz1F61l/mlnsPZb6iDM78I8U6I1SHelhUd78oK
y1vqWWTfUmur7F3iHkusrXEOlg/VwD29Lze871knX+sz9K2Tm5kPfEa+MsQC
Oda7H+9kQ4g3rX+mBrg+8Rnsn7pS26gG9H1uL+wfuR93s8k6Or6SCR1bZYXr
SzWgaYsrtc3OUdtmL/O8/zFR8nO83f3Q8W2Ij9WxQ1Z07LPv6xDfq4faj74z
dOy0Fx0/uFLbZR0de+VAx25Z0fGzrOj4xZXaT85R22Mv89/JCMev7gffv57B
s4OyouOA2pj73ZXan7Ki4w970fFbiG+c+cs6Ov6RgzP+lhUdR2RFx1FXaoed
o3bM3j3e43rf83F5ueMKwXwWDlEkRKE4YUVHmTjRRm/BONFDrWic/JuFDuYO
qoN5VmrF4qSOjlJxwoGOzDhhRUdGnLCio0ScrNSKx8kctZJx0st8gTi5IzhK
x8l+8MXhv/d7f9lxwoqOrDipMXeCK7UctaKjvL3oKIcJd6aidXRUixMOdOTG
CSs6KscJKzqquFKr5By1qvYyX909YK/hyh1zLN4Yr4y/xw/jk/H15c1T/p4c
f59jjsevaI4XxwdWjxIffaJ5yt/jj/H3ueZ4/ErO4+/x1/jkUu5BXtw5+jKt
58qKD61pjj/Nkxs/fJLcdczhPtkc7rrmcJ9izpn4z4ZR+puhVpT29/XlzjOH
u57zcDWQo5p7NJC7vn14TfwVng0fdIU5Z+CLz/LMRuZwNzZP+fvGcjcxh7up
eUP3baGOVuYpf3+u3M3N4W7mPNz44fPlbmFez7lmvssz3Btfjw+90P3wp53k
xg+3lruNOdxtzeFuZw53e/Oa3sH/vxkuitL+vqPcnczh7uA83J3luMA77ix3
R/vy7GsuN34Yf4y/wx8N90z8cBe5u5qn/H1Xua81h7ubOWfiA3v4Xm82T/n7
6+S+wRzu7s7Djb/Ol7uHeQfnuqs733m48aE9zQeoA278cC+5e5vD3ccc7tvM
4e5rzpn4z0FR+pvhlijt7/vLfYc53P2ch2ugHDe6x0C5+9uHZ8ZfTfO9dvEc
zsAXD/HMe8zhHmqe8vdD5b7PHO77zTlzlOegY7R5yt8/IPdwc7iHOQ83/nqE
3CPN+zk3zHc52L3x9fiIMe6HP50iN354nNzjzeGeYA73I+ZwTzTv6R38/5th
bJT295PlnmIO9yTn4Z4qx0Pe8VS5J9vH/7/h38cs7+UJ3wdn4ItnyIpHnWkN
f/q8LDPtgxV/OztK+/5Z6pltDtMc++DAm8+XHS88L0r7/rnqmWc+yWdz1DPf
GbwDHmK7+lLfAQS+8TUZ8cCLo7TvXyj3YnMY8cYvyr3Umen2LpB7mX3z3XuF
jHjh5VHa978s93LzOT5bJvcKZ57yzKWyvyE33hfP+LmMq6LEJ1P7SN2LfPaW
e+CNV0dp37/KfVebw73GPs7H666TET+8VkY883tyrzVf5rM1cq9zZqHnr/Q+
1rvvAp+9KSN++FOf4VU3ROlvgE9k3KjmVer+zHl6P5Z7k32cj9fdJiN+eIuM
eObNUfob4Eu5Nzv/gXNbZd3uXpyBz8Xv8jvMz8p0+fDI38m7wxy+neYpr79T
DT+asy+edq/n7DOHBW/8U5T2+j+rbZfz8OGRd8u713yTc7vUt9t5uPGb+83x
qEejtNc/IPdBc7j/MIf7kDncf5pzJn72H+/mgGdwPt74cJT2+kfk/st5uI7J
scc9jsl92L4N8n3rvRz3PM4ooO+FtZA+mVoZfSosBfXQsBbVQ6OnsB469Q1Q
WO9fTA8NRyk9MOyZ+mS4MvTJqW+ADL1/cT00ekrqodFUWg8d6dfL6v1jn6W8
fpYass0L6fWz5atgXsTvgQrqz3Lfon4D5MhXWV9fwm+AlN+vYi1Tr58rdyXn
S/r9UFXu6uapbwDy/wCUy9ho
"]]]}, {}, {}, {}, {}}, {
{GrayLevel[0],
Line3DBox[{2, 1, 18, 35, 52, 69, 86, 103, 120, 137, 154, 171, 188, 205,
222, 239, 256, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283,
284, 285, 286, 287, 288, 289, 272, 255, 238, 221, 204, 187, 170, 153,
136, 119, 102, 85, 68, 51, 34, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7,
6, 5, 4, 3, 2}]}, {
Line3DBox[{18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
Line3DBox[{35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49,
Line3DBox[{52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66,
Line3DBox[{69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83,
Line3DBox[{86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100,
101, 102}],
Line3DBox[{103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114,
115, 116, 117, 118, 119}],
Line3DBox[{120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131,
132, 133, 134, 135, 136}],
Line3DBox[{137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148,
149, 150, 151, 152, 153}],
Line3DBox[{154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165,
166, 167, 168, 169, 170}],
Line3DBox[{171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182,
183, 184, 185, 186, 187}],
Line3DBox[{188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199,
200, 201, 202, 203, 204}],
Line3DBox[{205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216,
217, 218, 219, 220, 221}],
Line3DBox[{222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233,
234, 235, 236, 237, 238}],
Line3DBox[{239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250,
251, 252, 253, 254, 255}],
Line3DBox[{256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, 267,
268, 269, 270, 271, 272}]}, {
Line3DBox[{2, 19, 36, 53, 70, 87, 104, 121, 138, 155, 172, 189, 206,
223, 240, 257, 274}],
Line3DBox[{3, 20, 37, 54, 71, 88, 105, 122, 139, 156, 173, 190, 207,
224, 241, 258, 275}],
Line3DBox[{4, 21, 38, 55, 72, 89, 106, 123, 140, 157, 174, 191, 208,
225, 242, 259, 276}],
Line3DBox[{5, 22, 39, 56, 73, 90, 107, 124, 141, 158, 175, 192, 209,
226, 243, 260, 277}],
Line3DBox[{6, 23, 40, 57, 74, 91, 108, 125, 142, 159, 176, 193, 210,
227, 244, 261, 278}],
Line3DBox[{7, 24, 41, 58, 75, 92, 109, 126, 143, 160, 177, 194, 211,
228, 245, 262, 279}],
Line3DBox[{8, 25, 42, 59, 76, 93, 110, 127, 144, 161, 178, 195, 212,
229, 246, 263, 280}],
Line3DBox[{9, 26, 43, 60, 77, 94, 111, 128, 145, 162, 179, 196, 213,
230, 247, 264, 281}],
Line3DBox[{10, 27, 44, 61, 78, 95, 112, 129, 146, 163, 180, 197, 214,
231, 248, 265, 282}],
Line3DBox[{11, 28, 45, 62, 79, 96, 113, 130, 147, 164, 181, 198, 215,
232, 249, 266, 283}],
Line3DBox[{12, 29, 46, 63, 80, 97, 114, 131, 148, 165, 182, 199, 216,
233, 250, 267, 284}],
Line3DBox[{13, 30, 47, 64, 81, 98, 115, 132, 149, 166, 183, 200, 217,
234, 251, 268, 285}],
Line3DBox[{14, 31, 48, 65, 82, 99, 116, 133, 150, 167, 184, 201, 218,
235, 252, 269, 286}],
Line3DBox[{15, 32, 49, 66, 83, 100, 117, 134, 151, 168, 185, 202, 219,
236, 253, 270, 287}],
Line3DBox[{16, 33, 50, 67, 84, 101, 118, 135, 152, 169, 186, 203, 220,
237, 254, 271, 288}]}, {}, {}}},
VertexNormals->CompressedData["
1:eJxtmXlYzvkaxrMdZIxx7DOIVGJkGhlUeLKkkjmWsTQlc8SMCaOEka1GGVvR
NrRNUtahOYo2Mp43Ki0vkxwxLUJRlt6ffctyus7vuX9/nOv0z/e6ut6r6+37
PM99f57729/LZ8a3LY2MjPq3MDJq1XwWxtasTPughMJ6FSZfHn2Xe9uEOx5a
c4sWv40wXmOfRVuLdyWY76vj44u87/k7N9AMr9qp1+cdoclGxvfNVl9n527j
C570eEC+P91qU52RQHFB2fnBc65yVOrjDm0KG2nVkJlzqGMEld+ueX/e+DLf
ezY57mKIgT6YY3HkgEswPa291zFjYyl38/cwWX3PQPMef79+1u8r6PrKp+lu
gy+ypdUQp8G9FGrn9q5wci83imuqKHQu07N7smfrRCuFZlb6H/rexI2rxvXu
HrBfz1WzT3Ybb63Qzn9fXj7rzArWf2ff4LDrAs/PqPHubapQwrjgynE/BLO7
nb4p9uafHO7nHef31kBpd0sWzPoygr2rTuYYdypjq5eh/e6kGWjJCFfbLQf2
cNGE8kHLUq9w8FcT38zqYaBHLf2sStxS+GSI7ZACXSWXZb1x5/MPqNC31L3X
Hzk8+Uy85+8HbvHwt7bHn+TfpfpBZodOvS/irTaXqqO2NPCav9oGnQioJSP5
qWjkfPPEB6yeVXTYeWjTtpxb9LI6o8LR6S/uVHXYzebwHarhpf6Vpldpwjb/
dnU1N7nesfTbnbX1NPrlQ5d5nYooY+0/gzfEV/OUzpFzFhy9TD
W5Pyg99vusq2saVJtuGN1O/3xG7j2x+j1zeetXGgyzz3/tITr1YayOPoaVez
U0nU2feD10tDSrnnmOkOq+oMFOlteWhs1yh68TDI43nNBTZJnzvHpbdCP9z0
OHLcOZBsNtRPez1Uzz1b9azPGKHQm+lTPbq3nM3+Kbvv/bqvhL1c74fljFVo
dG+TNV/qf+YGt4xtXXrredK2o5tDRirkerHUPtgmmsdNLK399F8XOOnHzsHh
fRXKGm6SOLBgP1v0/+zC2emlfOqWVaptc59E93aqO9yQxn8GHDg5OKuMW5z4
W8PdTQYavGNZhYUX8/T6o89tR5Zz8tLd3dN1jRS8JWJu4G09L6wt8+3hWcFt
fFdsfkIPyLlzxNjkXZWMs/X40VcmzrtL1UFO1ts31HCUGVnHGTfXcd/2j63s
bqPvMQda/8u9ow7a/RvsFp+w8S7DyUOntTVdZt9I8eld++5eXkCD62fazOVL
PC1217UQOwPl/1Ie1H1JDl0PDemSXfcnv/zCY8dzvYEyzj379dSyVHJc2nvk
pmw9mztM9DvfRyHfL1/lmM5JprOpt53G/lzMTX7ur6qcFfJcGOqS0hBGb7uZ
Wx6fUMSWCxZdu+yp0PXcVYYbumk8/1nYUIsrhXw0yGWE+8LmeRmeFRI4PJLH
X1lf+sqyiFuuu96uep5CZn0z6hqO7GO3KWafGE8s5v4hf8QHuCr0OOmz7cHD
0rjtLzHzLb7Q88uV67yTByiT3NptEu7TYaL/MvMpGs2FQayU2Yf
6uhewLqz9y88UUrZOr5T/IyvDRRg/82GV4GXGKdreYsO2UGNhDqhbq2lXpgr
zBnmS3QHOqTpzza178lFnQOt/y3Ve6cYtQ7a/fuahTmnnS3EyTF+Nn6B5w3k
aFU+0mSDjpTW48vdxhbyb+sv7RxmodDTtV0qU26m06T92bE7nhewz/69h9y+
Uag8bW17ZdBhWutq7PmsJJ8/OjEqpnugQlZ1p9LssnZRh8pAn4+M83l7aq++
mTsV2pM9WmexwZHLaqoexuTm8T8qtrhERSlU1CksuqRzNOvf2Zu2epzHfYYu
TfQPU2jp2HtdFl08zJ/Hb45M3JXPlcOueTX+pNDq3IObB3XN4JLd69rNiC7g
8IUbkgYsUOhk44HObebreFTTmNvRx87zQbNJHd806+fh+8mr9P0L+aCcL9Lz
dq68aiDUCXVDvabJXGHOMF/ZooPQReih6D58QNN/0R3qr+qQpj/S95gDrf8f
qvdOTmodtPsvOpgQmmCfi5P7ztqXbrZYofSaBFuTikza2ebR4zUdclmX3WJV
h90KhR8/5uPvcpSOjL4c+nWcjn3mDLTveEyhET3m02CTWFq+3Tth4xgdP/Uc
vGxqjkJtt5n3/PCjkaw75PjF2u46Tqyatqc9KzSl8zqH0vOxXDTdq9/zITre
WHCjLL358/WhExInrD/KA1edXdLaX8eDLJxaGKUqlHcgr9alIJP33um4Ou+q
juvclgcZxSjU/0V/6tMil3FePX06st8yhVAn1A31wlwlyZxhvkpFB2NEF6GH
8C34GPxLfBc+rPmv6D58QNN/0R1KV3VI0x/pe8yB1v9h6r3TcbUO2v1/nvvV
oirPLJycmTMj7sfmeytetWuTY1QKDZ7q9Bs5ZHFQnXuHGZcUyl1wkY7lxVFC
33nhOS2yeHPYIkfjqub58rVe1HRvAPPNr2qVG5l82nnfuFE1Cp2z/f5Gfot4
7hQRefuZkskTIor3WTd//hObl2u+C0thn64PH5maZPGn06e2z2z++8WhXtmP
RmQxzhEOV3p5nFYoUep0TuqGehXLXPnLnGG+oIOPRBehhwPFt7LFx+Bfi4Uz
UoU7hghvCPeAgzT+Ed+lcNWHNf/NV3Wflqs+oOn/GlV36IqqQ5r+/Kb2PUWo
c6D1v9w76dU6aPffy21Aj/O1KTh5nemmhTduN8/Ru8dj8r6JJ/2KmG8/v5bC
Iy2ijnz4UCHH3LJ5Pj+358nxWzOtC1J4R3ZgeMcnCm3ZW9nDZ3E87zluGRBZ
nMKLfnQ42rP583//wWNXTWkKd5HTtW5ldMs7CqFOfaRuqBfmCnOG+bIWHVws
ugg9nC2+NUB8DP4FzgB3gDfAheBE8GGMyp3gUI0/h6vcQz4qB2n8I74LH9b8
V3QfPqDpv5+qO2Sn6hA/Ef35Ve170qlzoPV/sXrvqIN2/2OGmlc8+ykeJ59c
Fbq9+2uFIiMXV1v0unUmMGi3+aTm31992rSjw1uFLtfFvrUKiGecGS/2nu7R
/PlEqRPqhnphrs7KnGG+oIPQRehhifhWofgY/AucAe4Ab4AL7YQTwYclwvHg
evB8tcr92AMI/C/cSW9VDiXwp3APOIjAP5dU36UE1YcJ/pur6j61VH2AoP9n
VN2hK6oOEfRH+p4+VueA0P9y79QQ8d86jMX9G/3fn4f4PKNu+LyrzJX8fW2+
oIMloov4PvL9uZX4GL6//L+cKNyB/9dLuLBGOBH3s1o4vkm4Hvcp98/aHib3
L/XCHkaol9QXewChvtIPtEPtB0I/CPeAgwj9I/1Grmq/EfpN+hM+QOhP0R3o
EKGfpe+1E/2POgVI3XD/9jJXchLm64LoYKToIuZxj/gWfAzz6yucAe4Ab4AL
wYnQB3A8uB56gr0Lexj0R/SKsTdDr0TfsAcT9E30kKaoekh7RQ9FP0n0k6Cf
wp3gUILeij6Dgwj6LHpOoucEPRfd107oP+qEuqFe4i/anKH/oYPQRdw/fAs+
Bv8aKJxRItwBvxN/5DDhRPij+Cn/JVwPP82TvQt7GPz3pezJ2Jvh18g1kHPA
34UHSHiAwAOWKj/QSZUfCPzQTuUNEt4g8EaRyickfELgE+FOcChpPKNyj3aC
f4SXaJnUDfXCXGHOMF960UHRIU0Ppe9Z+E3rf3CGpXAH7n+YcKGcBD4UnmTh
SQJPYu96LnsY+BN7svAqgVeRayDnAN8ih0IuBR4WfkYOROBn4W3kEATeFj7H
Hkza/qvyPPYwAs8L92sn+D9f6iQcqtULc4U5w3xNFh2ELkIPZX8h2V80/xol
nCH7DoE3wIXgRPS/7FMcLlyP+8fehT0M+5fsazxJ9mbsa8g1zknOgf0OOZTs
g4R9ELkhckTsj7JvIocj7JuS+5Clup8S9lPZZ5FDEPZZ2X+1E/sv6oS6oV6Y
K9kDtPlaIjoIXYQewrfgY/Av8V2NO+C/Q4ULwYnQ/2vC8ZInaPrzRPYu7GHo
f7l3xt6M+0eugZwD+cYgyaGQSyEPQW44WXJE5CfIeZH7Im+RfAY5KCGfkTyH
Nqp5DiF/k9xHO5H/2EudcqVuqFeyzFWZzBnmCzooe5imh/At+Bj8C5zhINwB
3hDu0TgR/DNXOB5cD//F3nVO9jDoP/Zk7M3QH+QayDleSP8jh5I6aPffKLkh
ckQryQ+R8yL3Rd6IXB45PfJJyTNJ8kxCnim5J7nI2UbyT8ndtLqhXpL7IAfS
5ktyB5I8VtNDyW/JXHwM/gXOAHeAN8CF4ETw4XvheHA9+BN7F/Yw8E+E7MnY
m+G/yDWQc0D/TSWHQi4F/ZH8nGUOtP5HzovcF/d/Xc3nWfJ5Qj4veT5Lnk/I
8/8n/yfk//JeQPJeQHgvwFxhzjBf0EF5j9D0EL4FH4N/yXsHyXsH4b0DXAhO
BB+C4+U9ReN5be+SPQz8jz1Z3ms0/kSugZwD/IMcCrkU/Be5IXJE6D9yXuS+
0B/k8sjp0f/ynsXynkV4z5L3L5b3L8L7138A0ScRJg==
AutomaticImageSize->True,
Axes->True,
BoxRatios->{1, 1, 0.4},
ImageSize->{358.9, 310.8},
Method->{"RotationControl" -> "Globe"},
PlotRange->{{1., 17.}, {1., 17.}, {0, 2}},
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02], Automatic},
ViewPoint->{0.0243, -2.057, 2.3203`},
ViewVertical->{0., 0., 1.}]], "Output",
CellChangeTimes->{
3.961*^9, {3.1587`*^9, 3.367*^9},
3.8937`*^9, 3.133*^9, 3.7477`*^9,
3.027*^9}]
Cell[BoxData[
RowBox[{"(*", " ",
"This", " ", "is", " ", "an", " ", "analytic", " ", "solution", " ",
"for", " ", "V"}], "=",
RowBox[{"2", " ", "on", " ", "two", " ", "edges"}]}], ",", " ",
RowBox[{"0", " ", "on", " ", "the", " ", "other", " ", "two"}]}], " ",
"*)"}]], "Input",
CellChangeTimes->{{3.468*^9, 3.169*^9}}],
Cell[BoxData[
RowBox[{"v1", "[",
RowBox[{"x_", ",", "y_"}], "]"}], ":=",
RowBox[{"(",
RowBox[{"8", "/", "Pi"}], ")"}], "*",
RowBox[{"Sum", "[",
RowBox[{"N", "[",
RowBox[{"Cosh", "[",
RowBox[{"(",
RowBox[{"2", "n"}], "+", "1"}], ")"}], " ", "Pi", " ", "*", "x"}],
"]"}], "]"}], " ",
RowBox[{"N", "[",
RowBox[{"Sin", "[",
RowBox[{"(",
RowBox[{"2", "n"}], "+", "1"}], ")"}], " ", "Pi", " ", "y"}],
"]"}], "]"}], "/",
RowBox[{"(",
RowBox[{"(",
RowBox[{"2", "n"}], "+", "1"}], ")"}], "*", " ",
RowBox[{"N", "[",
RowBox[{"Cosh", "[",
RowBox[{"(",
RowBox[{"2", "n"}], "+", "1"}], ")"}], " ",
RowBox[{"Pi", "/", "2"}]}], "]"}], "]"}]}], ")"}]}]}], ",",
RowBox[{"{",
RowBox[{"n", ",", "0", ",", "100"}], "}"}]}], "]"}]}]}]], "Input",
CellChangeTimes->{{3.822*^9, 3.6323`*^9}, {
3.3*^9, 3.027*^9}, {3.466*^9,
3.447*^9}, {3.779*^9, 3.845*^9}, {
3.738*^9, 3.668*^9}, {3.5887`*^9,
3.6413`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot3D", "[",
RowBox[{"v1", "[",
RowBox[{"xx", ",", "yy"}], "]"}], ",",
RowBox[{"{",
RowBox[{"xx", ",",
RowBox[{"-", ".5"}], ",", ".5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"yy", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.139*^9, 3.9107`*^9}, {
3.129*^9, 3.896*^9}, {3.984*^9,
3.6574`*^9}, {3.813*^9, 3.104*^9}}],
Cell[BoxData[
Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJyFnXdUFcnz9hFzXNc153ANu7qKYkBXaSOCGXUx57DqiriCOcc1C9eIETGL
OVwTeF0MmAVEURFFkIwgwYQIr0g9NV/q5Z4f/3jO55Q91c/0VHfV9O2pNdqp
7zhzMzOzuYXNzPJ//7dWaM+zWVmvjXsHel1Y2cjZus5KG//KHUup8S6n3A2O
IcwXJd3xsRh23vpo8V8WOYY8ZR7d6Xidbn8dsE70nD5eZxfIfM+Sci/r3dhp
Pe5HO/eYr66WvvBk0S1k78u82tbrrvv+1hM/w/xRySopZTa6WpvRH/iR0CV/
3jNzhb2S9tS+ku2TPypvfwKV9J/6q2R/SR8l9SE9ldQTOk9qbO1e97u/+Zr4
B/tGZLHOzH/08r2CzuCv5n89cDE+XEFncOOdM9W3T3+hoDO4ucXxrR9cgxR0
Bt+UaH75VY8ABZ3Bv53eOO6e1SMFncGd86132d7wIeyVtIfOsn3onLc/gUr6
D51lf6Gz1Ac6Sz2h87GY51nZfi2cNLbm0cpm7aEzeOkO5sfrrP7IOoPnp/ah
M/j7HQ/WLqwSwzqDX1372vh+eATrDB7kVfnrivVhrDN4o4Y+q3tVfsU6g8+q
ZhX0c/1Q1lnaQ2fZPnTO259AJf2HzrK/0FnqA52lntBZd7ms5YXv1+/bdrE+
X0lNZ3B9z36z3Ed/YZ3BSzRzb90+JZV1Bjcjf6AzeLewsYN2ecaxzuDRW9xj
rzaPZp3B11Z1udCwRyTrDG7p5T3X7uRb1lnaQ2fZPnTO259AJf2HzrK/0Fnq
A52lntD54c36Z7Ov03Z3vuFL47W4AZ7vXNntviHprDP47talPf7t85F1Bg/Z
0LPf6RMprDO4Wa7x78t8QNDAspHDElhn8Or2j2fHd4ljncFr9Q3YVnBrLOss
7aGzbB865+1PoJL+Q2fZX+gs9YHOUk/ovLrxzfvZ7dW18hlcP0rTGXxI54X2
t499ZZ3BKxydtsT74ifWGXxdc8s1HuPSWGfw4M2Pp5cMSGadwfPl6u8Z5htL
TbjS58U71hnc+Pb2BW/dO9ZZ2kNn2T50ztufQCX9h86yv9BZ6gOdpZ7Q2Wbr
6Kjs/7dqjt+IRHMtboBfWdVzY1TFDNYZvOX5PsMmz/7MOoP7JHfRxQ36wDqD
/zOgfKdioSmsM/jFz909g8sks87g0Ac6g9/9mDCujF0S6yztobNsHzrn7U+g
kv5DZ9lf6Cz1gc5ST+ic41+YOuuwxj6mhKYz+CM15fTaNprO4Ac+J6/+w6Dp
DP7X0VodhxzWdAZ/77DVcn7zVNYZ3HNdlf17HTWdwXcuK/pgxhBNZ/Dczzvm
e80eOsv2oXPe/gQq6T90lv2FzlIf6Cz1hM4jzj1cq7ML///GM7gcz+DNxXgG
9xbjGXyqGM/gF8R4Boee0Bn8jhjP0h46y/ahc97+BCrpP3SW/YXOUh/oLPWE
zj4TdlWy079VrUR8Bh8u4jN4ORGfwWV8BpfxGVzGZ3C9iM/gV0V8lvbQWbYP
nfP2J1BJ/6Gz7C90lvpAZ6kndK5SbfJBx5Ao1UusN8DNxHoDXK43wF+I9QZ4
Rlb2XxLrDN5frDfAq4j1BngNsd6Q9tBZtg+d8/YnUEn/obPsL3SW+kBnqSd0
nh3QxlKvi1UOYv0MLtfP4MXF+hk8i/yHzuC2Yv0M/lasn8FXivUzuIVYP0t7
6Czbh855+xOopP/QWfYXOkt9oLPUEzoHLy96zeAYrxaLfBC8pMgHwTNzjwfm
0SIfBL8k8kHwhyIfBK8t8kHwKSIflPbQWbYPnfP2J1BJ/6Gz7C90lvpAZ6kn
dG7R5lmPEMM7FdA4d30DPD73/WV+X9Q3wA+K+gZ4YpPc9Q3wpaK+Af5S1DfA
+4v6hrSHzrJ96Jy3P4FK+g+dZX+hs9QHOks9obNb4sHn2XZbrtvlqteBJ9XZ
kqteBz6/3sxc9Trwipfuh/xvvQ7898G+uep14Gnpm3LV68DHVUtO/t96HfiY
EYNz1eukPXSW7UPnvP0JVNJ/6Cz7C52lPtBZ6nmjwcJ6IYZQY+SlQvfr2Xkq
+1E583KRa29K6HXPmc+ZXH1zwB8vVI8BnVNt9UHMB9y597n8r/6q5o/2Hynw
vufCO3Re6wd7Je2pfSXbJ3+U9Ad+vsmadf+C4xVVecTF7cX/+cL2Jrhxgv3M
SlNCbqk57+93uPzhK9ub4lN/HlTPzMxfxRy8PnNmqW/cTreZjxOysqJVvOCH
G3rO1tnFqdmiHRPcWChsaiE7fYIqJ/w3wY1jNqmNjiGJyk7cF/BJ4r6A98h9
X5h3EPdF2uO+yPbhp/QHfqIO3KDUgefrht7EOORxMtbSYczit+Fsj3rmVZ/+
vYzrON6y/Z7Jew7GDDVrj+cavM3Dvi1/MQtiHXDfsZ7Psb/F46f/J6+6e5J9
OY6B+7Qb5n0j6gbHMfAC3q4dvH+/x3FMXhfPl4l+KakDnjvZL9hLHaAb+vXh
Y9ch7QuksT7gsxKdDpd/ncX9BS/udnXvxakh/DyC2488+WWVbxjfd3DDtc0V
ClSM4vsu9QTH8+JZo0Xat1T2R0l/0C/UUV/89Xezr1np3A6er6e9G+S/svsT
26Me+DT9wUzb7Rls32jOR2X33V/vIa7BAXW05wX8lb5blft7v9H9vWIE/9Ah
NuNwDeQdnsz3u3k2++1CPLiSnNpRsh3S2RgTvnFQtl9FRqxZ3HBqMvP93Zs6
Z/vV+MKJqEm6FPYH9ua58ilP5l23ZY4vr09ke7Tz6uyi+2kGtlfSHu3APnc+
dUWZuK4yZS+vi3Flor9K9hc6WAz+y0ave8Mc8ybs53XftXFHZ74u24fSdTGf
wt69s3W9zoFJ3F/Yy/qJbB/9lfbor7wu+iX9R7/Wl2r52OAYwTqgX7CX/YK9
rLPBfqvoF+xtct3fM0q2j35Je/RLXhf9MuU/uHXl83MrVEliP8GPDGiXMmes
5o+0RzxP8C0wMsQQqaLpeQRHPtiup8uE+mO+cdyGvS891+CYZx9TfICesJfP
Nbh8riWHPrId+Il8SsQfnt93U9yDPfKCkNzxjef3T7S+hT3Wt+fFfAd7V4qf
mMfBT1B8xjwO3p3iOcYnuBnFf8RP6Q/mL/BUml9gDz+LlZlqt/BTNMd56Sfi
sOwX5i+sEwaJeR/rz5isef87P7L9NjHvg/9O8y/W8+ApV/53vr7F3Jbmfczj
sh3oIP1Ef6U/6K/0H/cd83h10g3rDcyPhWYubd249Cteb4B/Xl/y4ZdiEewn
uG3DYadOW8fxfcF8OmxSQP1DYSnMMW+usPpScen3OQsc732sa+/5J23uZ75f
/D6InkfEAcx3VVY6FrjcLoHjAPjw5h/uzVkdz3FA2kN/1Oc//HHnW+03WpzB
PKIobuC5hv3baXU7ukzT4iTsvXLFH0+2Lzrx5rPbM7S6rmwfcUDaIw7I6yJO
Sv/RL9TDA8cV3O7bRpvfwZv0f7PC94E2v4OfDw1LCC2vxW3J4Y9sB/7I68If
1I3TyE/4Ax5B/YI/4EVy6eapJIc/sh34I6+L8Y84r2i84b4j3lYV4wp8hBhX
0h7tIz4vzz3OOQ4PpOcCcQPxStFzhLgBnkzPHeoA4F9m5Dyn4IgDxylfwPMl
n3fEE1Prdqyf519ve22nP9c3lAnO885MYS854q2JeG6U8TxlSdRkx5BXauia
DlkXHb1UYOP0oSnf803w6uv2/6rXvVNJM72HtUv/qjY/rBBmq39pnNPB2WBw
TFLtiwXvb2X1gu3Bz/qOmJa93iBufOG/temvdnrlQxztgA/O3Y5R+kP2yoS9
ku2jnXpbQ85MCTGoVPIf9ia4UfYXvEd08ak6u0T1MLc+RhP9VdIe/pvQjecL
r4IrWrU15/cUrM/W4rUOPFqfxfbIH39LmFT7y/d5FtdFvuk07UzTqUOfcL4J
Pd+fc/ZLUWbtYS/bwXWhT7HkNjbN92nXxfjxyO0nj5Pywh7z48UCO/7XH9Yz
Prc//HzVy+0P63Ystw5K2qMdqQPGG3TAehgc/W3U0SM03zftOZW6wR8T90WZ
uI9K6pkTf/TG6cl3Gtl9HxdWT0PLrNyPOKxXJrjx8YFtl7Kvk/t9nN5Y8bhl
HTt9mMjjvBTso8u6fbzyu8ZhD47rynagD+5vPdIHHPcxNXf91mhiPCg5flpV
tuuns3vB7XjMNXbOKBjF7cj7TvZK2uP5MuGPMjHelByfiJNcv72z6HrUwmPg
ygTn8eY6+/YPjn5hnOyt6TS5aAV/9XzcnFtZWcHMb8/bbBVfz4/nEdkO2Stp
Dx1k+1hXy3oL1nsyT4Gf0Nk1t5/83J3OfV1+Lo6S/vBHctwXE8+dks8d7kuv
5sWdzcyuqYEVo3xrV/nG49PU+Ee+fzbydZGzodpzZIIbbQvvmBhieKNaiOfO
BOe8/oxoX3LEn8Rm7SKysuLVMPIf/TXxHPFzMbTcCrNHESk8j0P/noYKC0p9
esw6y/uF9Ya0p+fdaCIOGPOOA55s36Ck69x6P2sc9rm5ntelmeeqz7tQUFvf
mmhHyXbQX4zn0eQ/4gzi6sTc+ihpD/3l+ME6E3H1RH6bnZXctfsr/UecBP81
82VTZ0stH4H/hbf4FnZLS2I/5X3EeJbjAf1FXKr3JDVzlFUc90tyxA0TzyPH
pVEPB/5Uq+Jpa+iA9Wep9weGWHhmsD9YHxYmDn/wnFoIfyTHuJX3BfEW+u/v
s3NszYpm7aEbxgN0A8dz50X3BfEfuu2gdjBu5X2B/rjuk2VZNr2ucj2ZeZKH
78oi/dLZf7Qv7Jknkv38Wm+9s7K0/erninVaFP1PMt8X8Ey/8592/BOpWhwt
7Z+V9ZjnBbsz9VMKF9hrDQ77hUOPPep2+ZWqTfUc2Jf3L9w4fry7NTjswzOa
hHRd+n0++HFdP7av7dWl0N8nNlmDw372gHUFHAc8Vrof7RjZ/q5LpYkLP7hZ
g8O+yZHms66F+av6P/hJzb7wysw7i/B+c6W3/D0C7NFOwtdpXetWwHvnld5y
X32VHHsl2weX7VTP8ZPt75D/4LBvTP4H5+jA9jVJH3DYzyJ9atD7Edj/QvqD
wz6M9G+ecx/Z3pbuLzjs59P9fUbzKewvvrrsvC31sPW8nHHF/GD6r3Mbnrts
jfGGedx39dD17oc+8XgDt3FtH7/SM5nHG/jsxWYXm/wcz+MKfOAmh3pWPpE8
fsD/uliu/J0+4TxOwLsc9CrZpHEYjwfwGasSUqO+hvL9lfv5cR/Bp5M97hd4
Z2of9wV8PPkD/cEdyH/oDD6T+gvdUAdLaxZ7fEXrdNYNPPFi11UOvT6wbuA3
p7mXezYnmXUDrzf1zLFe9u9YN7bfPytp4qBY1g3c3qp0te2Xo1g38FGNvzlt
sIpk3eT+fOgm7aEbeB9qH7qB3yB/oBu4jvyHbmxP/YVuqAfa2uvPXJ7/lXUD
bzXQbbiD8yfWDXz5hvKnRhVPY93AE/0OHhk4IJl1A9/be290i32JrBv4KucL
x6OC41k3rlv+fNanlEUc6yb320M3aQ/dwFdS+9AN3IP8gW7g78h/6Aa+jPoL
3bDfO8j8ULM0ywzWDfywf4sZxvOfWTfwvWbxhe/t/8C6gTcbt9RsQJVU1g38
ULv9Ew/XTmbdmOd/0XjTjCTWDXzQr2ltdl9/x7rJ/fPQDXwg2UM38IPUPnRj
Tv5AN+k/dAP3oP4iHrL/pA/iIfhj0hM6ox5b78KTgcu3aDqDD4h7FNdt1BfW
Gbz41yNfLi//yDqDb9WdsJxTJY31kfveoQ9458FNW575vs6HPuAPz1ulHPB9
z/qABy2p+qhqzRTWR14X+oAXIz+hD7gD9Qv6gNclHaAP1kVLeu5rMt2g6QM+
tZhbUO+tmj7gRj+nYRseaPqAH1v0ss3kKZo+cr869AEf3cE5y6Xre9YHPGbq
gnJnqiWzPuCVwie2bzpb0wfci64LfcCvkp/QB9yJ+gV9wBeTDtAH9Wo5fsAd
xPgBLyrGD/gWMX7kPnPoA95RjB/wB2L8gD8W40deF/pIP6EP+J9i/IDL8YN9
0c9FHAM/JOIYuIeIY+AyjnE7Io6BHxRxDHygiGNynzl0Bh8g4phsHzozF3FM
+g+dZX+hM7cj4hj4MxHH8H6k9/ZjD3b8zzwLnng8uIj1eG2eBV8m5lnwBDHP
8j5tMc+CrxDzLHhbMc/KfebQGfwPMc/K9qEz+E4xz0r/oTP4UuovdAZvSesQ
6AyOdQt0xnui8M9NrZZbaOtA3o/dwu7IqJbaOhD8hlgHguvEOhD8ulgHgvcU
60DwYWIdKPeZQ2dpD51l+9AZ3FesA8HriHUg+0/9hc7gCbROhs7gqbSuhs6o
K14TeQp4o/MxG/tN1fIU8KkiTwG3F3kK+CiRp4ArkaeATxZ5itxnDp3B/xZ5
imwfOoOPFHkKeG+Rp4A7UX+hM3gHyuOgJ+pIh0WdgfdLizoD+GhRTwC/J+oG
4ONFfQC8uqgDcDsir5f7yaGntIeesn3oCT5O5OPgd0TeDT6S+gvdUAeLqJw0
JzuPhm7g7z/N/ZF3QzfwroczkrPzd+gGvn+V3+/ZdQDoBj7L4ecf9QToBu6W
P2FCdl0CuoEf6DI8V/1E7g+HbtIeuoG7UvvQDXwm+QPdwPeS/9AN3Ib6C91K
zXEqkc/sFNfVoRvqfqUGd7noXyCMx9uu2vsjnUIOKqdVXXxbeQfyeHuF/bS7
ksZ8cr3B462LZ+DYK447VEDAvyvtUy/xeLtP9dsmRZJ7Blqd5PHmlXkp43e7
JarmZusPhxvu5vH2F9VVpojxVpT8LzXxrdUZ+3s83gaQ/5O+7dzRK/UOj7ft
5P8stwoNzsy/zeNnwfppl/S6/1RKuFm6lU6LY6gfYv8kdGh7ruuglwYfdcTf
+uOmX6M0Haju+nDWzuhXPcJYh0Xdj6qNukvqlXXNKwu6PGcdatN7kIvzm55o
syiIdbgRXqJeN/05tWbvp5ZXegawDkdRhxFxbB75/3LciZFXW79kHXqS/xkz
B0dGeL9kHf4g/+uctX5u3ll7jj6OOJ6gs7uruhtOHx1VWJs3bxW0OajX3VEP
pjuXb70tjXXY4vVqhJnZbR4/0GE87WeoZl3JudSIWNah1aefHocYbqp1fZb/
VP3RW9ahyK7Da+30N1S+Ik1/e+/zhnV43rGDzQXH68rtVP+KwUtesw61qY7R
TMybaeR/QOU7wypMf8s63CT/9U9Xmz3/LZJ1gP87SxT9WDZ7vUPPEfwfditp
xKyTsRx/rMj/b+MtI14XSmTdLlRM2xBiCFCbJ0/zWr1UW9ft+fvaZL0uQO3I
rFm+RDltXffv1bV2dnp/dSLhSGyhBqmsmxPti0aeBd1O3u5WaErIQ/VoyCL1
zDaedVs0JcIYYnigXAoeLlnsSzTrZl923mw7/X1lfX1P6oon2nrjAdUxaop1
nYH8HzmvdJsKG2NZt93k/5iDNXxmuMexbvB/8zb3rX5nE1g3+I/fVUG3U+T/
9nKFXjYbnsK6OS92O6Kze6q2bvjp7J7mWt4xJGjYihDDE6VvNKTIgsVa3tGp
/m9j9LonyqV8IcsL1bS8oyHtQ3uudx37WqWwbmUf+FY1MwsSvwte6b2K6gwy
j5hG/gw42bLSv/ZaHjGY/Pnq4bIgaEMi6wB/ZkS6DOvk8p51gD822927+DdL
YR3gz+nZX5dN12t1pCZxja87hrxQKxf+cWy9XtOhQruve7Lf82QNHDq4k42W
n2Zt8JsXYniuXhu2FJ7dTstPo2n/W9ZN3V9/7k3l/nYxUd9oTNf95aDRffl+
LT8tT9cdllE34O9VWn6K69aulth0zD0tb8J171wv8WDuZi1v8m8xsqWd/pm6
3znzS4l3Wt50cWWjX8zMnqmsUUcK+flreZNHyOckg2Ow+qdNh9dxrbS8Kb7v
/ZcGx9ff57tmZz+e1fTBe6W4l0V6Rq3X9LnyeewWnd0rNb1Xv2P/GTR99tF7
4QH7E70su/7f9Y04uu5/PR6Mcu+s1TcC6brXavay6l5Gq2/gutVfx8x2mqDl
77hugtlO3zMdtfx97e5vvfW6UNXf5dbRlTu1/N2F3leGVBg47dxELX8f2nlL
UTOzl6rJCZsn+d01fR6HNv+alfVGWRCHPni/hnZYH4t8zwyOb/i60AfvteHn
/1XfwHWhG/TpStft5jC+VdRbbfzgutZ7bvvo+2r64LoOdF+gz/6lD845hoQp
F7qP0AfvYXHfoc/ap+5uOrswNYPGCfRpqs+/Umf3VrnQuII+B69M/JiVFaEy
aRxCn0qRj8aGGCJ43EIf7Hu/S+P8/6pL4LpZp3rW61gkkfU5QNfFvAl9cF3v
ybsyx6zUni9cN5Oea+hjbrWzg14XoUIpDkCfGaPMTzmGhKtMihvQJ271hOp2
+nC1iuIM9HG1CSxrp49SlxqOTu+8Tpu/Cky1Wqqzi1KnuvlfaXRZm79muu9O
zsqK5DgGfbBvE3EPcXhkwqSHBsdINZPipKwzyPloA/ljXatwgz88tTpDfvKn
bvG9RfyuJrBu8AfzDnSDP89oXoBu8MeZ5hHoFlQuoK1eF6k20LwD3WxVKy/H
kLdqB81T0C0x3WOvY0iMihnT5LNrT229NFpXuLSdPkYlXRu5e/5trc7wpKfj
Ap1djNpJ8yB0w+8d5Lx/1aP1kBBDtNpE8yzm/WZ399wxOEar0TQvY94/mFrQ
Sq+LViNoHpd1hqZivfSO/G9L6wToPIr8n0brCugM/x/QOgQ6w/9vYt6H/8do
nQOd4f92WhdBZ/i/idZR0LnHSafGel28ik5o3rdopLY+v/bsyU7HkDj1cEPl
9MzZKayzpXnb4nb6OJVO6zTojH2zw2ldB52r/lkkJisrlteB0Nl1wRSHEEOs
cqN1I3QucDjohsExVj2idaasM0wV6/Pu5P9aWsdCZyP5/61wzroXOsP/1bRO
hs7wvyKtq6Ez/Md5AtAZ/t+jdTv0PDrG+orB8Z0qUcs/cdGCFNYT+5TCr37r
+3J6LOupNxTb5hiSoC4dWfGnISyC9cF+iTTKL6DP6KH77EMM8eop5SOybjBI
5HFHyJ9FlO9An2rkzzHKjzj/JX8CKJ+CPtjf4kf5F/SZUzTYRWeXoHZRvgYd
ClUsaRtiSFIbWtfJaGt1l/ubOOm5Tq/7ruPbvkP2tbvN/cX+nCGUV6K/10pP
e5WV9U5lTMjJQ2W+b2a2KFe+X5Cu24DyXPQX+3x0lBejv/DnFuXR6C/2wZ6h
vBv+D6a8O478h/0bytN70u9/wWOJOxCHbt2pnVBqh+dlyqOdqQ6A8TaW8u7S
VDfAc72I8lO3206HQzt9Yv1fUH4XS8817J8Rjxb8M+V33Sg/Be9D+U4kxWHw
i5TXXJq6KMBpghZPEGcuC47nurtoH1xeF3HpLfmJdjD+11N/8Xxh/JiJusoz
nwP57PSJaqSoq4ym+9uL7gv4WOKtxP0KpnbGUTvgSTR+7tB9xP2CP/nJH/iP
fSknxb4U7Bu3CF5UbFTDKO4X+OBdF8elVAtmjn2eSRRPMJ5H0rgqEV+10tRJ
3szRTqLtwDUxU67z+ORzAER/wc1DNy//uegj7hefM0D+4H6BNyT/0S/sl/tW
WtfQecQHLc+lus09qzav/S5qceY12feh39+BRxDvSxx+LqZ2rlL8BO9AdZjl
FyLSwrdFsf+oC8WSbuB9RD0KHPUTf5oHwW9T3SO4QXT5Gs5prAP2z6BuD3vU
E7BuAfegOsClzjvtkbes8C+4waG74YHB+rY7RuBB9KeXTskny/
d52ira/eThvy1DEkUBlo/QnuQvl4eoWUTkV/y+A4jPbr0ToQHO1/ozwd8TmS
2le0nkR8fkT1kNq0/oQ96hIDqQ6AuB1F7bQX69JM4Q/WFch/sZ4HN3PNyaPr
UB4NjnxQUX4E7k15ZQ3KK9Ff5NHII8Arivyd9/VRfm12OicfgQ5rqB5yjfIX
2KMuUZbqA2gf+Wl3yu/Ag0ReDN08xXXR/jDKZ+E/9LxM/cI4RzvDTdjPEP7g
+Q0Q+oOvI52thc7IN6Ez6095K+4L/Mc+812fz59wsfwf/Sk/hQ7gtiIvhv7y
d+5oP0jk19BBXhc6VKLrGkVd4gD1q7roF/LH2mIcVhZ5KPxBni77i3xzKI03
8IMiz0V/5e/f0T7y0zI03kzVH2DfTOTX0Ef6CR5P7f8s6l0zhf/QLT/pU4v0
wXWRj1+b/W/L4M/acyR/L4/rSnvMO8grzSrmxDfMm8hDEyhOgiNvukhxmJ87
skfcA0f+rqO4BP9xXdQ5TdUxYI/6QDuKe+iXHbXjIOqlT8gf1EvhP/KRIJqP
wJFHpFP+gnUR1u3zaH7E+gfr/F40z0rejTjGM9qpSe87wJHXXKb5HfMU/Pkq
8inkRy9pXsY8het+pvUD7JHvxNJ7W9x3rNt1Yh3F5/DQugU6gL9/mbPOQX/B
O9G6iN+b0zrQmd5zgWMd+CouZ90FP/k8H7FeAq9BfoIjr3lO71vxvGAdteru
ycJbKr7U8g5x/gzWP+A25yyX/9c/kv0B99zc+NnAGu+YY93ShPYVgGMdgn0d
4Lyfk/bVwH/wXrQPB+Mcv2effzf9p/JVE/i5kL9/x/iX9tBZ7gNE+/h9+n8U
B/Ccyv2EuK78/TvakfsS4Y9sH/6gvl2Z9t3huuCxtE8P9nIfGuzlvjX4I/e5
gaP+tkDoKX/3Df+lPZ4LPF87aDzgueDfd9P4kXGgh4gD4AtpfIJjnIdT3oHx
g/38GfT8YvxgfH6l553rCdR+uuDI39XLsO29zLQ86zy97z5P9Qdw5O/dyR7X
3Uz2K8kefBLZ9xH2qG+MFPbwp7PwZyfl9ccreZ1uPy2W+S16H12W6kXgKyiv
ca3qUnXvIu19QVfxvgl8n1jngB8wweV7GVPrB4wfrJObWlS42bC1Nu+vo/cC
eI/D6yhaF8Ee/cK8sJb6BY46TxLNC+DI3z1IN+gs7bm+QfabyR7jDXH1He1X
wfhHPu5Nvx+B/V3aR3GOfhcGHkc8mDiui/rkVZH3oe60S7QDfk20U0bsGwHf
ROPHU+jgS+OnNI0f3u9N42eDGD/y/sIedcvCoh3UA9dQO+CYfw/QfircL/Sr
88iZP++roM134NbEEcfw/tGXxg843vc1o/EDjvdQ0h7jrZkYb/g94xDhD7gD
cegjf88ILn+fyPVzqvOsjpudZVH1nVa/Ir6cOOyx/2eLsAd3Exxx8jTpDH/y
/t3fSm/5uz/og+d9DO0nhz/YbxPhU8e+6xttXyLqbEm0bwd8Lq33XpM9fldY
gsatVdTxSnEVzdrjPBDw9lfHlo2uF8znfoCbx94tHZyJc1Z9mfudtPxphQ2f
p8r8339//0OrA5uZge+ckjWu/vi7fM6JtMe5oLJ9+I/9SKEWvS5XLqidjwQ+
7/WCXxMvJ/A5J+CN1k9913dMJPcLfH3v0I79Kr3hfoGP9mlQ3/xXPo+XuYfD
tf5Bc15wv8Btn145fs3zOfdL2qNfsn38/hT7cN7ElO3haP+Z+wvuZzFl0Mfw
LD7XBdzWmFVnwkw+j5357MoPgnoXe8f9BU8LC9zTNjaa+wtuzPz1/UQDn/PM
PKnosRKr08K5v+Arptbs8mZsOPdX2qO/sn2cB5W3P4FK+o/zoGR/8ftcqRv0
xD6cO2bNizauwedyM79Y8D+PUfm08QMedD4oYUytD6wnOH4PBT3BsS8aeoLv
bvEl0/4On0+utW/Yt634nWjWE/xIps3q+nX4XG4l7aGnbB965u1PoJL+Q0/Z
X+hpQjcldYPOv9B+ntpHX17V/aad3wKe+snv5aJYbdyC36vzwWVHsHZuPPiu
452KdO+XyjqDWwxsUmLcCe07NeCGZRcanbzM5+0zH5x+a9QtYzzrDP7wj0YL
d5XUzlmS9tBZtg+d8/YnUEn/obPsL3Q2oZuSukHnC1QPPPsk5c0jP01n8JGH
ks+WTdR0Bn/V6LfZMTHadxDAn0fMTD7jqX0HAbydje5IibLa9ybAG2fqY853
1r6DAD5h0/oq5+Ykss7gzavnf7LjhvYdBGkPnWX70DlvfwKV9B86y/5CZxO6
KakbdB5C9dX5Hj8PqFJNOx8g573ya/l9ELYv9TFr1+8FtHPRYY/vhuC+wH5/
aIFOhRZ/5vsFe/kdFtgHTshne3GMFpdgL7/PAvtRM+vt/RytfX8B9vK7LbD/
M355uEV17fsXsJffc4H9677Rb7PPr8B9B/9jfqV85f/RzqOT9rjvJq6r5HUx
Hkz0S+Xdr0BlQjcldcP4MXFf2F5+L8bEOGF7+R0ZE+OE7eX3egKp7r2A2se4
Akc7GD/gnuQ/xgk4dMB4AB9JeuK+g8v7Ijn0z7udQCWvCz2ln9DNRH+V7C/0
2U91dYOIh+BTRDwEDxXxEFzGQ3BrEQ/Bm+SKh75KcuiTdzuBSl4X+kg/oY+J
/irZX+gzg/aD6cS8DF7wc+55Gfy+mJfBd4t5GbypmJfBL+aal32V5NAn73YC
lbwu9JF+Qh8T/VWyv9DHlvZr3RXrQ/CrYn0IHizWh+BJYn0IXl+sD8E9xPoQ
/KlYH4IfE+tDaQ+dZfvQOW9/ApX0HzrL/kJnE7opqRt0rkz7siJofQ49wbuJ
/AV8gchfwNNF/gLuK/IX8BSRv4CvEvmLtIeesn3ombc/gUr6Dz1lf6Gn1Ad6
gt+kvA96JtB7mUJV6xZo1pXjKnMvqg9DT/CZmx2Pt92o5b/guv19Epdaavkv
+F8i/wU/IPJf8B4i/5X20FO2Dz3B9bny8UDmjSl/h57giyjfh55SH+gJHkl1
A+h5leqTnlTPgZ7gzT7bRNw/FcZ6ggc3tqoR306rk4BfXdPzjmvRQNYT/IGo
k4CvFnUScA9RJ5H20FO2Dz3BC+Wq2wQyt6E6D/SU/YWeUh/oCd6A6ki+F232
GRyDuf7z8e+aJzvPeqMK9TmyyjFEqy8dKNr6z9nhwWrTj3Oo7jO/HKyqZ/tZ
7dvLYwbH68yXvfaqlt2vnPPAzzE3u7uhY7YOtaiODf4L/Q7OaFuqZvZ+O/Ae
jgGFs9tp+ePcsLvME0bPLJ9wN0A9/dChU/Y+OfAXjh1reN95qvTDXw/N3gcD
rq+wZci7FmGql9+8Gdn7QsCf+oyonWker4pZVHbNrpOCxzUet/3F0Qzq12Ou
I00uW+nxukdR6vqPc7ceML9lfvVx9JM31N8bzK/23PiqcHoo3S8D80I7129J
iXpB56Ibub6USftRC/84X/EOc89JI1YeXBNG+gQwr7nA+noBp7dq7mmv1tn7
h8CHh90tbl4ins9bA19Zc/HTn7uk0rlqD7ledLjesUYpJ2OpnZvMKz5OdXe7
EamK/vDnEnMbfeD7kssj1KEdLzJs9f5cz7kVlNp1e6d4NabArPLZvy8CX9Zj
fCnXjPeqhmM5i+z9Q+DVvNo+2f/TRxXy5Ixddj2a7ftun3M/M0N50XnRqGPY
v3jVssOieDWRzosGN3cxNP3TJ0Z1p++DgD+oWsS/U4NUtZHOT0P++K9FfseS
1zOoHS1PDKD1/3GR3x2iPCJZ5HETKR/5W+RryZTXpIm8bB/lR+kUT8Dx3cxw
ihuSx4g8ay+1M0LkU0l03XiRN40jPw+J/Ggf9WuMyIPukw7VRb5zhvKdGxQ3
sM5fPT7oL9fkz6oIxQ3wHdOq2Lvc/KDcKW6A+//3abRLy1RVm+IGuMPhsc5t
v69nHChugH9uVNPS5/f36jLFB/BF9Z8nvPr6XjWj+AA+winj7/ATKSqI4gP4
qOoWK9qW+6BcKT6AP38c17pbjc+qB8UH8C0VOjZzO/ZVFab4AD7h1V2faWuz
VA2KD1jPX9p0eeHGSR/UXYoP4I8bTd3b+WyK6kvxAXzFyZvXyl18rwwUH8B7
Fj43rMG7RGVOcQDcac7JuTs9kpU3xQHwzt8afpmTP03NojgA/m1udFzhWp9U
c4oD4G4ezv2TX6erJDpfEXxzjzcNglMyVTrFB6zDL1haNq96MFktofgAXrVF
+S6zKySpchQfwK/frLOz9cQEtZ/iA3jFQBW2cUiKGknxAdwwoN3nqds+qKoU
H8C7vG9l73Hiiwqm+ADu5t2n9bd+meoMxQesY2fdu+8yYnu8mk7xAdxlVtS4
Ik9ilC3FB/Dkkc63ZvVJVQXoPFvwzdebrnV9/kldo/MVwftuWfM6fM43FfSD
+/B61XFG/hJRdd+qhDInYm31z3gdeGRr2LIW8WmYj4xyPsK5jojP5fqE7tv6
7RPioVHGw+Nzu+fP3v8Hfu3fKT+l9PlK81Eox70o+s7XTcFjid+mcybRr/fE
rwkeTTyM/EG/1pM/h3P8YX6Z/CGuJKd2lGzHjc7DxHqvOOmwjXTDumU76baa
4gn4+jaZl9oPD4S9kvY4VxP67ztonNM7jvN35o1pHYVzg+W8SescXiecHeMU
dv6ktn4Dv5RrPRnI3J/Wn1i/yeviPE/pJ9a9/Lt+WifTeoPHz6C0L90jbF7x
ecjyHIBkGp8YP+1065evP8vfhWH7ORFu45dapdM65Ln23oG+a1NU8GDxPSy0
/7Nlz0eh1TOYO4nv0yWRP6ifW/Y7ZZc15Xs+RXGA6///NC3y0O2L8qJxBV63
yrfLdu8zVCiNK/ALf36Ob908k8a5D79fWFfvprlVUoLKR/EK3IfiVU4cPsh8
8X9Tlr0YHK+6/9B/B3PfDo1L1GoSr3rmcCX5+Zx2mC+hdui6Sl43Z77wUdJP
W5ovsG5ZSvNFRZo3UZ/sT/OmJ80jsO9G88hMOocWfHI/SzfLlonqPp0nDL7k
6pgNE0PeqY40/6L9TzT/PqTzk6W9C50/LNsnf5T0h9pXsv10E+sf0kGZ0EFJ
HdLEemmfqIfL9gvTe/xAsW850YQ/tD5Rcn1C6xkl1zO4Ljjq6mVpf9p+sd+4
G90vcEfSE/7Idqrvo/PDyX4Z3RdaVyi5rqB1iJLrEPgJPkm8JwJvId4TSftn
NF9gvvah5xFxGHx+vs2JtfXa97Yw7yRQfKD1ANs/ojhQgs6xh/1zij8FBA8g
fo7iANpZT8/XWnrewZfRc7qLnmvwW/Rc0zpHyXUO/Me8Vobino78B9dRvkPr
BOatcsdhngfnUhxuS/MR11toPoI95rvDNF8sylkHsv1kygcv0roUfOUMv6E+
pcPpebzBfDDNI3RdJa+L8/9x3UYhF45U6hDJcV768wvFK/BLNG/iewSY7+pR
O5hPOc/NVe8KZO5C9THMp+CHqJ4GP8Eb0/5bcMxTIXXHt9vz5wfmTuI7j+CI
z0NLll3w4ov2XSrw6TSe8Z0jxKXr280/pyVr3zkCr93Je+ympdp59eB+pTZ5
lnfXvnMkOb5zJNvBd47kdeEP4pj8DhS4/A4UuPwOlOTwR7YDf+R14Q/imNQH
XOoDLvWRHP7IduCPvC7GIZ7r0XR/i4h4gvUP4iTsR4h9C+CBYt+CtEf7iANi
HPLzaCHGrXxeUPeT60PU/eR+JLw3kfVqXFc+16jP4Lq2Mw49eZb1CXUzo6yb
IX+R9qXIHu0nkP1TsgdvkdtembBX0h7fEcB1rSu371ahjfa+Q+6jgz3aEfZG
WS89RvkO2gkb/tuh1zap/J0Ced3tP+77En6uF40f1/bBjCS1jtaT4B57AqYf
XpekdufYKxP2Sto/NfGcFtqX93N6hvxHv9KE/1KH/jn1ELZPpnppZZrXwF/d
quDnkxkFe2XCXkl78kdJfxBXMf7f03cNqH5rlPXbmuQP+Ftqn7iSfAHttwTH
uovur5L3N+epPtwWemJ9+NREPGxB9xdxZg/dr177cu4v16/o/pK9kvYfaXxC
hwn4vozgDuK7LdDzAu1rpfFgIp7r2X98TwTfp4AO56kdfH9E2uP7I+DyOxfS
H+qXMtEvJfuF/Bf+uNN7DcQ9yaGD9B/xWd5HcOiP/TCIA/BHftdD9pfqGOx/
AH2nw13wMOI0Do1yHL6nuAFecp3thOz3SgmkP+L84LUv742/8Zzqt14c/zd4
7GnZeNAL1IuMsl5EdQDmJ6hONYnGLdf/xww6NE8frg5QPgs+rILz0cRb4VQv
8mE+gepgVHfi+nx/qptR3YC5O9XZetJ3Y8HTqC6XRvEN3OFC7cPb/olWUfTc
gdfP9JuzfU60Gk3zPvhUqvsdonkf/B+qE76keQfrt1VUV6T6A/NuVIccl1O3
ZH6R6pZHcuqczCtTnfMl/U4HHOMtp057k9eN5aiOmlOPfcj8HNVdLel3Z+Cn
6PyiNIoDyIvXUv22NeUL4Bup3juf8gJw83k59eH/curJzG2onmzMyRc4735E
dewqOXVv5gaqewdT3Qkc51OVoHkf89dkqp/bUzwHwN/RfX55zn1
fObjqJ6fo+sJb/lcb8ipE/K8+ZDeO+TPeU/BfBu9pzDmvNdg/i+915hL8wV4
YzqvbCE9v4gbzYgPzonzRhnni9N7T1ln2EpxEnn0Ono/FUq/owE3H52jpy4n
3zfKfL8HxQFZNyhP7xllneEUxQesS5tRPS2N4gO4NdXlWtHv18DP0jj0oLgh
8+V1FDdkfm2guCHz8cf0e0xwnIvVm+IDr8Ppvd5v9Ls58ILUr1I034E3pPjw
kOIG+ECKJw4UN8DxPnEfxQ3w3vT+sQL9PhQc50f9RfGB96vQe8/jFB/AH9N7
0nD8bp34ATrH6T7VJcBHUrytSusE8MoUnz8ac+oS4F3p/awzxRnwCvQ+N4bi
DPhBev9rQXEGPIv61ZzqVJi/8s/KeU+9iuZB8I007+ymdQX4MJqntlA9CrwI
vQen+gNzH3pvTvUK5n70nr0ixR/w8fRe/m7O+0FebzjQ/oGuVN8Dr0D7DfrQ
ehu8DM2zrai+x/sxaN8C1TG0fR20z4HeRzA30r4I2i/B65C19J6C9lcwx/4K
2o/BHPsxvOl9K9pPJW5G71vBD1E7IRQnwSNoX0Q+ui44rkvta+twap/2OWj7
B6heRPsimPc70TTwv0rRVJe7w/PIVHpf+UfO+1ltnzO9nx0h3pvj/XUDGm9o
B/HqBt1ftLOE3v/GiPfseD/eiu477NHObxQPeR4kbknxWdrTdZW8bnF6P2ui
v0r2tynpIN9T03tto3yvTe9/jfL97xOaFzD+cf5AJXofDd6L7ssNmt/BG9K+
kTLUPvgR2mcSRPM4OM4TaE/+8zikfTizaR4Ex+9GZ9G8KXm4iTo8fh+N8V+3
/OqaSZdf8O+jwUcnv/Hf1DyIfwcNPru01/xeN/35d9/gGbqta+ymPODf64G7
BJSoVsLiHv+uVu5HwrkQ4JH189/668UDPmcD3DWwxIioL/58bgB4s/4ekzM3
BvG5AeB1qF/4vSp4AbdvA1peCWcd+DuAIxe+qXY/mnUA37Tiy4riBSNYB/BW
c39xb1g8jHUA73ymW4++E7Tz7sDjziX5TB76gvsr9yOhv+DLHt7q7d5UOz+K
40C6eek3SjsnCjwofWuYffkY9h/5gsfqhYt3D4lj/8GnHohqUdRDO88Q/FcP
jzpd2r5l/8FvVGlx812Y9l0D8EdTa6a+2xrH/shzv3Fd5AW3jP02LUvTzqkG
9w8asK1fJ+2cJc5TZix92fhsNLcPvtnPqVDRc9rvfBEfquWfe2hKF+0cTox/
+f0jcPn9I3D5/SNwfP8I/QKX5yeA4/wE6AYuv2cELr9nBC6/ZwS+WPQL8a1S
vk0nFo7T+gU+s87w1/3Xaf0CP7Zj4gDbulq/+PcIb/68k2ih9Qu8xIpHZW89
1s61Bl/R+arbhHpav8BrTBtXbdUGrV9cHy6zzP/tBK1f4NEP3Kte3p7B/iM+
T1jqmfkxSDt3F3xh2dvjJw7UvivEvwso/OH+nPHaeUfg54nDf3D3ckGWDsO1
c3TBE042mRL6Rjs/hH9f0O/d5PhI7bwy/r3DpsrXv/bKYD+x3j4duXN4ylft
PA1wzI/wB7x6zafnfQpq59OCdz1eYtzXk9p3cMDHdJxhOSld+70z+OSug4Or
3v/K18W62rP5rY5VimjnpIEXDXZq9ntv7XkE97rdyN7pvPY8gp9t095oEaid
Lwd+oe3StnPma+fCcb4Qdce6ysd0vi7Ww5ZfLpuXcdDiD3j5S506OESGc/vg
63q3/ym5Upp2rgjqSF9Pdsk3CfuxV3oj/u+g/cPg8nfKmKfAt1E7eL4Q39bQ
ddGO/P0v2gEvS/4j/oNbUH8RrxDfoA+uC24gPfFcgJ8h/eGP/P0s/GFO9xH+
gBem+47nhX9XS+MEfqJOMonGFfwEH0vjEH6CY9ziuQDHOH8h6jnIj+CPrPPg
eQE/Sc9Xc1HPkefqY75oRM8p/Ad3ouca/oO/ozgA/8G3UdyA/+CIMxjncr0N
/SVHf8HPiXgFPp/iHvrLvyelOInnBRzn6kMHrJ9jKN7ydxaI36T4DB3Aa1I8
hw5cz6H4j/Em1/noLzjmEfQXHPMO+guOeQr9BZ9F8xr6C16R5sF5or4kz8nH
vGMhOOJ5TVpXQB/wLHE+POLtGRpv6Bc4xi3sEQ/daT0DPblOkqt+vtJb/u4J
OoN/pPUSdAYPpPUV/AHHegw6g+cTfiLe5icOP8GDaR3I5wQS96R6C/yXvzOC
/+B+tM6E/+ANaV0K/8GdaR0L//m6tO5tLuot8B/3EfOF/I4P+Auxrub9G7QO
R3/BV9G6Hc87eD6q50AH8J5i3gFPFPkCuC3lF9ABvDXlI3y+PfGtlL9AB37f
R/kOnheuOwl9kFeWFHkTeFORP4K3pryMz6snvpnyOOgDnkh5H+Zx8PITc5+b
LX8HBN3AZ1O+Cd3AC9TNyU+hG/h8ymehG/gkyn/5vHriv1N/ER8wj//mHNqq
s70WZ8AbCI75tHdc8FizEO17ebz/WXCM20aiHXBcF/cR191kfu6n4DTtXH1c
9/GSzJk/jdTiJObHK9uqDrSM1taN4PcftZ2w4r+vfL/Ad7wvN76YpXYOJLh3
2/6OtXfHs/7g24U95qO41JFPnQdq52HKuj3sJYc/XLcXcVLuo+NzvYjH03Xh
p6zb87lMWP+TPe4L4nkA6YPnBfwa6cnfW8HvUkl/Ph+V7HeRPvBf7m+B/+D/
CZ1lO7guxskWMR4wnkvRcw17rJMLEYc91sPyvFZ5fgj85P235CfigJzfoYNc
D6B9eW4G7otcV+C6clxBH+TL8rvD4PjuMH/HR+S5sJd5MfyR9wXPEXQr0jJf
0FjPjzx+EG9LCM6/4xM6y/du80U9UI5/+Z59nqgTwh7+o32cr4V25PkV0Bn2
+L4z2of/qJfCT+gwqY++7rUlWj4IHRyJ/z8Qd9sf
{EdgeForm[None], GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJw1m3ccVuP7x885z33OE5XyzUhTlEKDkmRHGtpWZZaR0U5l07dhJ6sQMiok
hJCIlJSslhUalCRfe0RGv8/b5/79cb+uz7me69znPPe47mudemcPPmFQliTJ
7SFJSqK1Rf8UvUUX/fMk+Ua4aZEkX0uopfCBonN0vVn0ANEG5SQ5FVnh83Xv
npJpJnyhcD3hjZJbon66pEmyg/hnir+D8Ba1wcINJdNc/APUTz/1M0z4OrX7
hGeLXqR7t0hmnOgAtf8JXy86Uvc2FW4hmSHCjYT/p2eN1W87qe9looPE34d3
lswVut4u/LFkfhS+WTJ/i16qtlz83UV/0jN/Eb5W9Ge1X4WvE22mfrpL/kfh
SyT3pvhVRKeIdzv96LqD3n+Mfr9Y/L/UZopfU8/9Tr8dI/yI6HGSuUYyA/X7
scJfZB7b44UfFv9a8T+Q7Cq1Rmq/qf2g1lXtVbWear+rnxmik9V6qS3VPUvF
q8p7qXUTb6voe6nncYPaNXrGZep/hugY/VZZv70neoyee6P4Y8VvIzxc+Cre
R+91gu57UtcHi/+t6L3iHyR8kfBI4RbCFwqPEG4p3J+xEW4ufIHwcOEe6qeX
+nlE15M0ht0YA+ZX+GjhI4Q7SqaH8OOSuVP8zoyX+JcIHyDcUvgO4S7CxwpP
FO4q3Fb4BN3bW/gx3Xs194g+JjpBMh3EbyN8qN7nV/HvE16o/9xO/z0Ij5BM
M8kcJHyp8IHCP6m/WbpeI9pY9Fq1ybr3WdG1mddSfdFzJb+7cBPxW6v/6yUz
RvgW8duLf7TweOF2wkcJHy2ZiyVzpfBRwsOErxDeufBc1xAdLv7e4p8ofLjw
YOHLhA8THiR8qfCRwkOFL2d/6b/8R/1fLtpJ/Oni3yh8p+imxPOdSW62+q/F
ftL7nCz+Q5K5SLw91c5hHUuun+hp+l/rMu/HBqIbMo///qJ/Zx7z40RL6ut5
3Vtb9ALROmpns/7Uz/mip0vmLvYL+1Qyf2Weu7aihfi1JP+iZB8XPkv8GxgH
XV8gfIZk7g5eDzeJ/4RwH+GbhXeQzJnCJ0tmi9rB6I3MOgo9cIFk/8g8/m1E
KxXeA5VFf888F0eLbsu8No7JPN9thA8V/V7tSOFWohUK7zf0FfqLtdFYdKva
ccxp5n00Re90dtl65xDWUmZ9dYX4g8X/Rtet0FGio3PrqH56z7/0e6XUOm6Y
5HYX7aJn/SlaMfWayyS3W+o92EUyM0RvUR+dhR8VvhldoXahZLaLdhfvYfQ4
e1d4mvCd7A/hJ4TvFe7IPmBshY8Xvp+xZb50fw30jmgv8WeKP1n8e3VdW/z3
RRerLRR/R9FD9W5B/EnoyKjL0ek9dD1VMndk1recBf8VvUP8LxPvzyt1vQdz
rT4m6vor1rBobf2vTqLnaBx2Yf+qv826fkPyL0kmEz1XvOpqJ/EeJa+fU/Ss
XLincDfhc/T77mon6np75nXYngOu5HXVQfifzLqoHXMt/hnCJwmXhU8XPpG1
WrLu6i58nvDL6CjhRXqPucKpaDW953F61lfoQV2PEx2i/9EHnSGZhyV/ZfC5
2Ur/K4h/inBX8YdL/jnhv/X7D7o+SvgQ0XmS+5X1LXqg+jqfM0X4DbWawsfm
Hm/G/Wvds1j8WuK3FX9i5DMXL4r/rfppLv5Twp8J78tYCv9M/8JPCn8q3Eh4
iXBt9XMc54nwnsLthV8V/o9wa+FXWKOsdc4a4TritxNeILyr8OGsEeHdhI8Q
Xqv3+EXtdbWXxf+F/SD+fOFqkjlU+AnhT9A7uc86zryf9L8q6b/vIpnj9Xvl
svvvVPicPJS5FU11X5ZZvqJ+exu9JvqA2rEa15G6b1VmXV1VdKb4q9HjetYz
wp8LEx4fHwHzty5nN/itxD/59S2ATbC0+KvF38/8V8Q/godIfy8
8Cb0pvA+6EnJ7yZ6UvDeOVj0tcL/6zDJPCr8oeTrCV+ud/1IeDvjJfqR5H+T
3K6c5YnP5SvK7quR8HS19yVXV7/vovZu4vPlQfSe+DXFmyq8QriOcC6qW5MR
6rO3wK7YeuJvLaw3W4v+FnXlIaKnon8S3/u2eGvRG+wJ8XcRriX+W5KrJ14H
4R3L1uMdxPtI/+EvtQPVHtb18szPqhptFc6ybuqntnBr0RWS+0OtrLZXYX59
ya7U9Ta1Jol1+dZo07wtmb30rI65z88/o730kPjLMr/b/cF7rR3rIXgv826P
qH0gmT0lM0R9fMIe0vWUYB3SXr/XLbwWWUvVJPdO4vN6l/jfdmVPMC6Jz+LP
xftHbUjqOUTv1Y5zmWTep/tofE7T8wZIvpHwGcKDeJZwF+HzhJsIfy18D7ZH
sE44XHg/8c9CtwiPDT6nDhPeV/wzOWuEx4l/BGcZcyJ+N85j4X7Cc0s+Q88T
frbkM3dP4a6c/cLXBJ9fnI17i3+K+BcyxsInczYL1xfuKXwR577wPM4j4YbC
p2PTog+EOwufK1xD+CjhPsJ7CLdGt6LDhNsJ9xWuLtwYnYj+KFuf9BBuJnyu
8FDh3YX3Fz5ZuClnqvBkdIxwXeEThK8KtgdYt7XEb8+5zByVrTO7Mndl67fu
wlcHn8us+Z3K1ledmeuydWk34euDbYMjhaeprURXiJ4jOlT8Rvq9v+RrSP4Y
dIiuhyfG2EdfqtVTm6O2SW1/tWclczH2SW677Au1umqf5l47exSW36g2NPW6
2qC2r9p4/TYYm1x9vMGZk/67tP49CwBvpdZRH+jyNew0tZ2F95Z8dfW/QniK
+nghvg/936jrQeLPlMxnuXn/Ee+5+FzeaSnnTOrznmfVTezDDdB/b8C4YU8K
71Hy/+JdtsSz6VzhYdiQkp8VbCcm6r+v5N/VbzUk30f4Zt07TvwRwgcEv+eL
6uP71PZ6Jcm9wa3RLvsp+kKM1Xep5+N+1gfjqz4Gqu2D3ZR7L7/O+SD8m57Z
ljkVvVQy1SVzdO4z5Id47vwebVb20Y+Z/ZTWzLnk30Hnx/MQvwP/o1LJdnSv
zPb2kDifqXB/4Q9z28yMLWO8sOQxr6h3nca8Y0+KfqxWH32Jf8YeEr+3+nxK
cn0T77X64v9XeIj47whfJVxZv6/TPQ107/Gir+t6dOJ5GSZe49RzsCmOF+9x
MTo19Vp8Ovj9H8BvRg8Jn6r+789t298nerj4U8QfL/7n7HvOI2xh/C3hScJz
JXek5M8Q3aR2BM8TnZTb7sKuXyf58ZxTnG/i75X6uYeg88S/Ltqi2PzY/jOE
rxHuJLpMMlcL7yT+hMK+DD7NtfgM2Jn6/fbCOh/d31J9t049Xq1KlkH2IPEO
URul6zdK3lOVJL9ez2iY+lno6Vd4B8kfI3yn8NjMuvBF4UeEjxWeKDwus77E
JnyUdaS+HhV+Nbe+xHZ9LLP+myx8vfD1rO3E9kEb8e8QHSP+C7nf8wP1sUht
TOI1jE59iv/FeuR/Co/OrL+fZu4ynyGz2OOZdf8zwg8KP5J7/lnn89QeEP4a
O1BtA2tR6/qK1HPHvDYsWY+dr3sHCn8ovEC4msZ2JDpJ932DLotnbvdgXdYw
WGd8HvXGy7nXzGbRwzh/OEPVzxeSu0t4MP4rcQD0XclnxUPi38reE76JsxUd
xjmIriz53Jgh/l2sw+CxYo2h7x9njbEWcscu7sG/F3+C8NXiryx5LVURfyZ2
tPAR4i8tWU+/ij1Zst/QSfyJuX2NO9m/Ja+3LvgC6OnUaxSf7BjOaOau5OcS
O7kjtw9yu+g94tcQv3pmXx2fHb13v36/NXXsKCvZp+ksmc3iPYH9xPOC40h7
EccKHu8lkv09d9zpZ9GNkvsncezufPFqptYXq6NPd2RuGwpbqgo2kgQbJ/ZR
iZERKzsod/ygI/pZz3kmWP+gi6ZhqzKGnOWS3Rk9o+vbCssg+4B+25/3EL1X
rSb/kXEorE9mB/us3Jdip5S8Dm9BH/Pf1Oci8e5Xq8VYifdgXLesX2JVxKya
5j733oh24PiSz8BawXG9esJ10O2p9z97/5LUe579fqDkbxMdJZlPom+L7q1Y
8tnUU/xrcr/D3rn9X8YSHdxYrQXnq2QvEz04tZ49QNe3il6T+SxCx2L39pD8
h6JHiD6de2+dLPq42gGpMTr2ZWytsvV0i6irJ4s/B/tN/Ktzj+deolflXkv4
C9jdA4T76rmnpo5tct7vWDgGSCywWWqdxhmDL4YfRvwQ366/aB/dO0G83mp/
6Hrf4Hdfod8fTu1P4kt2EP8Ozn7mJXXstEhtgw/UfWern991vSzaCQ+wb9Ty
+F4VUr/bwmAdzjmF/TufscXmxEeQTFXRWaKTUvsCHVhPkrkRf1X4WuGRwtPx
P9lvGp9xqdcGPsPGuAbqZvbJ6jNumX27vfjfmf2zvRlD0TPKXotnFo4vE2dm
n5xe9pl3RvRNq/EfMvtSYiUVRRen3ncTJPcrelvX20TPinFv1mPP4HvxxfCB
MI92EO1d9pl3WvRX8MvKmW1M/ZRUFj1T4EjJnFXY7mD8sOmILaMbLsutP7YJ
f5E4douP9hZjEGKsWLzdODsTx3iJQa4RXoqPh38kma0ljze6gf9PbPIz0Tcz
xxo/FV7CWKWOWbE3dsb3SxyffCd1bBzfmDjlatFFkv9F+DfhG9CpqWPp2Ka7
E4dM7duyjxeljlHjl6MbC9HbUWbi31ay/70fa1N0eLAuQl8R29hXuJHodanz
AviJJ5e9J3vhd5d9BvTELih7//eOMYzWkj04c+yOuFxD0R5l21gnFY6RNBe/
qehvuePteWEfCV+pZeZ4RgvhZpljNgehDzLHFYkZNgFHXY3Oxl+vwPiJ3qbr
J7Ad8cPKPpNuze2b7iCZatiTqeNmlRLnWxqgl7DtU8d4K6s9FPca+7F+8F67
q2S7nb1IfO2mPOrsYP0wX/zqot3LPrfuye1XYAtxXnB+PYUNqt97lW0/nSr5
CbnPzRslOzW3/YhPMwgbUXiM8HW552g0Ol/PuUftBPSI+AsS5xFGpY7vLdb1
pMK2wbuSfy/YPjwpt0/5qvCTmX3EG4UvRW8LN9e9q1ibJev2D0v2EW9A30tm
JmPNvEf/+DXxZ3FQZPbJ8ZXuiPppc2I9x57CZyE3hO4ZlTs/Q45gv8x6oWpq
PbEi6if2C32RI8MvIi/FOmzJ+OU+F54VbVGyLXcxa1n4EuGLWC/CY9m7rGXh
kcIXCt9Z2LZfwBjmPseeEF2dOv6Ajn4s9/mDvb882CY8RbxG6meE8AWZ/ePL
hfsLt0p97mADzcp9Di7TfU0kc4XwQMk8mdteeka0qfhXsqfFbyk8TniE8Ozc
9tuHuncn4hHsPfFGSqYi+1sy43XdKXFOkRwR8at5mfNCxKlezpxHQi+9kjnG
SYzlpcxxDtbJ05nzMMSgqmSOB6Bz5mTOs80Wnpo570T+7lVk9bzjeR/WS+rY
LH7jXaLt1X5MHAcl9lUpc+yTWNaO8HRvR+YUW1S4s/D3wqenjslzBp+o6xdE
p0n+ldw2/FDRtiXb/BMzxwWrC++SOdfHXsCGwp9tF9/hqmiDYYttU9tR/LtF
Ly15r++he98Ub0ncv8QkOdPxTzlr6Idc1i3YGWo/i/987lwjdjVx0B8S+719
hb9NPB+7a77a6vo1yexbWI646cTC5zLnc1n4Ju7PHU9YGHX7H4XzQMSdKpYd
v+0o/GvhvAjxbWz5K1OvoTaiV6XeA8TK8Y+I25A3JX9KPg5/D79vbcn+4tWp
x5FzY0zqGCi+JT7mJsncVTjWvr+ePznYVsc/fTn1GK1MPOc3xXk/lvWees44
fPHdiK0xz6NTv8d29TOHscq9tg8V/zn2XOE8cKuydezNUVew169Nvd+/i3qP
/f5t7jn910bNnVvBFx4W18m/6yU45t8v93+ZE58/Lb4/Mee7C78n7/t97rwx
a4xcNe/QIHd8enxcD9g+Y6P9g/94OGdG7vm/IfUaGFU4x/K46D/B47GA9RK8
j85DPu6j7zj/dd+ncc1NTb1/WHN/q30S99I5klsi+ec0P3XU79zUeVX0Fbbs
BtFfCsdcyGVsTWxvrEt8XrAmbxDdVbyzU/tO6I1dmEf+a3CuDf/ri9x2PHHX
m4JjOPhWnDX4I8tz+xWccaOwHYJ9manY9SWfM7P1Ht/kXh/8d/QnMZCNuX0N
YhFr8DNyy4+M6x/bBbvlR9F50dbh7CNWszZ3XUOn1PE17APsBPLv8DpH/iOp
7UPOwTbB+7ZmsL5gvY/WO27JvV6JG0yP5yZ7+6SS18n0zHqHuSPPtFPu8Sfv
zPpiXxNP+DY493Suft8hxo7It86P/fMc7MoHxZ+ADgw+C4jTko/DtmgZ7DOz
j/G7PwnOG57O+AX7EycE+27rU+damooOT61Hhsf1Ry3EeZnthLfUz+jC9RSH
lO1js3/xc/pljjm8XfLZ9zrnQeGcGvoSfcW+IB/YWPduCNYbxJCJaaBrsJOJ
OaCDsOfJcfLO63XPxuDYCzHhR4P9JvIv/43rhHzWT8GxBeLePwfHE4h1jwrO
F2P3bSucOyQmTwzqFfVdoB845xLnyIirEK/Ad8CPI9+NffVRsA1DDJycK/qB
+Asxq9dEy+pnarBfRl6MWAAxAfxDanHwd4kDEDfFXsbvIM+D/09Oh3z+gNSx
PPxY/NkGwbUF5EiI664Nzs+eldsHZt6/LNl3RU8Th1kTnEc+UzLrgvPIfXL7
+/P1e9Wy/foFwjtTs6C+B6aOBRBPni3+65wLwTnT83PHJgelti/xRwenXkMN
C68f4t7Et1/SvYtEy8Hxlefx/4LHYQr6O/c5QXyRGCh2Ebbf0My20Eclx3ew
cfAPB2f2+1fFsxWbmfoIbBXsavLS2EQjol20XvdOZ12p/7+Cc3YXoKtSx82J
nRITJa7L+H4VnFs/Bz2f2cb7mOcE59DPxh5MHU8nJjYkntGc1bcWjjlVKTtm
0y/1XsVWr4beEM2Dc9zPlGzj41dX4SzWb3USnwXYrveltl/x4+9N7cvji6Jz
fsntJ1KrRKzp9ojxGeETh0oT9/9QPOMeT/0b/CkRI39McP97irZHb6SOvWAL
40NiD7eL5wX7Ft/0tnjvo1EHYqu8EvXbqsQ67p7IJ2+BvYHe/Th1/ITcB7FG
6qKIfx0UbBuho1oEx73wxdkPGyKmjoZ5Z/4XpI5xfJ54H9AP8T7yM6sixr/D
dthD9K3c8RTqRoi18Uxim32jDddEuFPweUe+gRwC+Z79ogx2x7PR76vKmSf+
S3FMFun66ThWzB//e3ochz9z/858cbZjE6yMMo/G8eG+WfHeDXFdMT7M3VOp
fUDiVKxVci53x3s5dziXZsS1wXwyx8wPPiPxRvJEjNNjcazITbE3yU+xZp6M
62dC7KdXXHPci99E3ga/snNwruHfd0jts8yJ+Oa4xnjPOvgPuq9W5jVMvInx
eir+H9Y563pi5P8aMc/KowxrdWPsnxwQYzw1jvMHcd0wv8cHjxU5u1HRvyPW
9H7q2HXdOCfMDXGQf3LrzkvKzuPQD4Ef6nR4DjnACdF2uSXa0tQikJd/JnW/
9EmM5V3RVsGxNzDxt4Ojbhlbcq4MHxJ78p+4flnT7ANiK9je3xSuP6MmbUvh
mgZykWuizPuJ7XbsE3Jk2Cjz4r34EMQCvop9E29h31AfRUypXuFc9Z7CV8Zz
hrgMe+m7wnWf1Hly3+LIpz/6Zf6om8RuJH+3LnWckdgT9RnUaTxY8ppgbRwo
+oeu1yfWIcSez0xtNz8W9ynrivWPTY/9GWJc6FZ8x9xx5ia59QDxj5qZ85NL
4/sQg0aG2qwZsU/W/Nu540XUe7yTO6bUWHRAyeM3P/P6Ya9i37LvXol7h//O
mBBCQB77rU2Msa2Nc8o8MB//xsIin/9JXhKdQA7z6GB78Mjg39dFGeKt+PTE
iuvEWGuHuGY/jnucWkHWXv3CcQjiEcS7iPEsi/NbpXA9xWVlr2Nk0MnULaAP
G4geFuwrUH/BOme9Uj/GWGPz41N8FPcte7ZKjM0So2Us0aecM/RDHOTw4P++
MK5Dauf4j9WjrUg+qJ1o82Dbn71APSL7rku0l1+Lcec+A6MC7FO
dA35DmpqyYmQh8WfxR+hxoY5A3Pu4L/zXxhn4j0nBtfXUP/XTr/PKtnnXcya
KhyzqRrH85HgejBqjchpYj+eVnZuFFsHW+3h4DoxapOeiz4j8bHmJecFsAGm
Sea0xD4yviQ+Bb7FY8F1jNQb4Jvgj1BHRv4cH2R+tNXxd8/Sc58uOd+EDUCt
AX4Hthf5X2zud0UHBMchqTsi9kV8jJgnOXB8HOxq8rXkIIiLkX8lzra85BrX
ff9/f8Q1h74kz4sdWzU4z49Phw0/NDj+SdwUewzf/dSy8xr0d2LZcSTicsRg
yaMx3t3Efz641pT6irnBNZ/Ue1BfjL+E70l9BzEcYjlzgmtKqdmg3gSdSp6I
nDt22I6MW3AOgHU4PziWRd1a5WgTY6NTp8g+IX9BLQx5H2xN4qQV4vogB0fO
LgTX4BAjICZEfnC/1Oc7+UFqMkvCA4PjvdR9UV9MTJvYNvU15N2wg58r2bbD
jq0XbSdsKPJN+AUVgmvQiP8QB2oW7QrsC/xrYqTUQuI34evh872q64sS170Q
HyROSB3UsOCYNvV+xFRZF+8Xrv0mdkUeiRpp8kfkkfoG50GouyM+QFyf3Be1
nez3rsE5U9bSatE+wTkUaueoGcefpx6sdrQDsQep40AXklOoERyDw16ibh69
iM97TnAcm1rEs4NzNNQfUttPjrFt2bmT7VHnkxMkxvF3yblFchDUz1Lnz9nS
sew8R894vhBvwZ9uX7a9TV1AO+qvg88javmoucO4Jc9Afpb4HrW3u2aOYZJ3
6B8c/6cmkFgu+URyBxcFx/bJNZEfJ6/BtwLkZ9GlHYPjFehO8gh8y8BZw5nz
ZYzPkPeh9gBfCB1EvSL+0LToF+DDUZdBzh0bmJrwt9DrieugyH9xJpCLp54E
/wqfeWlwvJd6KmrSiaP9m4cR/8nEtWcrY4yF+uHLgmucyFcQ6yRecXJwjSNx
D+zwy4Nz3NSLXhEc/6eG872S84vo9t0yrytimCui/0It+tbgugVqw5bHWA3f
OFADTc6F+snfg+sWqIUjT3xe4notYkPEiPhW4o3gOHlX4WWFY9zdeIfC9Qrw
VxWOWZ8o/GnhmgPiFV8Xrt/lu5LlhePs3cV/PvOeIt6blV1fzjcF/xSuJ6aG
P0T9Sx07tcmM4X3EYIJj7NTirigc0+8h/E1wDQN1d9QrU/tBDRv1Rm0T53te
Co7/U2f7YnDMn9rdJcH5Td5tYea6C3JnW4JjNdTpUadF7RC1tS9kjl8S694c
XGtB3V2Fsmv6qXukxppaa2odPy4cx+8tvEPZ9frUOn5UOA/RC3+zbJ1F7f2H
hfMWPcUvlV1vzbcbK4LrVeB/UbiOnJrtVcH1MPRPLoecDnPxvvAk4VPxsYJr
aXjWO8E1HifkztmQu/lMfX0dXBtAPST5HmIma8RfXTgHTD+rg/PCpwl/Urhe
BLyycD6DPv8sXP/NNyafF659x09/U/del3i++N6IGs65kvtLMhje1Pt9Vbhu
nm+aSMhSF843KUH3zEtcj803AMclzpN9Vrguh5jJmsI1PcRY1hauHyJ+sr1w
TTnfpCwOzqewhv8uXBfOdyI/Fa4F55uUnwvXn/H9y/rCuXDiCX8E1/xQ87mu
cB0S8YrXgvM11OJuC67/oV6UPCNnFrnFbwt/18H3WT8W/uaB76f+V/jbD75n
2VD4WwLihz8Gx96p/+QbL/77TMl9WfgbA+LYFXLn1/j2p5w7p8/3QTOCawOo
Cd9U+LsCYkGbC9fHE1c5PThXQg3zxsLfDxCLnif+pYlry/PctVh8T1Tkzgny
zdEH0d4i5/VD4W8t+I7s+8Lfh/DNV1p2fT/fDf0fCOzRZg==
"]], Polygon3DBox[CompressedData["
1:eJwtm3f8V9Mfx++95577NX+SVRntQSmpVEaoEIqWQoi0tahQRkoomVnZI7JF
9t57z7K3JCOzEH6vZ6/zx3l8z+u+zx2fe895n/f79Xp/Gw4Z33dckWXZ1SHL
Sv09vMqy8/V3ug7Wq8myKPxwnmVv6dgfMcs+16Ab1e+u8XvK/rfwIs4T/lZj
91cbLnyIzt9I9n1l/1nn91Zro/4Wsn+v/gS1Qv29dWy5+i3Umqk/SG0znf+2
zv9O9uOEdxVeIfyLcAfhFzR2qY5dpHtuqWM/CB+tFtRvJPut6n8h+zmyH6Bj
U9Q/SudvpucZIDxVeIxwHeFtNP5ejW+o9qLGfyh8jexd1D9M9uOFdxP+WeN/
1bkzdXyF8MsavwM2vZNjhIfKfrzGN6hse1rH6qv/l+zzhfdU+139ezTuOdl6
CB+pa+2nMcOEB+l4bZ3/j8YslK1G7Wf199E9flS/rdrW9HXOvur3Uluh/nM6
71m18epPUFtf13tNti91zZd0/n9qdwnXV3tX/Z11jTfV/072uuofpKZTsjd1
jfnq1FJ7Q/ZvdewUjd9X+FD1D5B9fT3fARqf8y107Cfdbx/ZD1G/v46tJ3s/
2f/T+ct07BLZ95Z9kPr9ZF9X9jrCH8m+v9o66u+lNlD23rKvLXtf4dHCg4U3
FR5Yel6+LnytbKP0TF8JvyZ8jfAEGTsKLxdeIbwZzyH8tdqxun9THTtF/cbq
T9L1xmv8DsLfadxPsu3BnBXeSzjIvq3sD/Dudaye+uPUOqi/TPYfNban2mHC
A4T/p/Er9TyXafyfOvaC+pvIvli4JXNQuIfwgbL10fh1NL6rrvepbAOZc+rv
rvax+u8wJ/WMT2rcu+r/rjZWuIfsy2T/n/BW6rdVezzdb5Xsh+j6Z6o/RefV
1fUXy36pcCfZDhK+SvY3hXfT8cnC9YS/Yr3o2Ibqv6vj89TvqPEHyj5ZuAvf
Vtf7Wfa11R7T+FU69rx+Tx/hkeofJvsmGt+k8rU20/nHCJfCD2r8rzr2lMY3
FN5Q/Vc0/mjZV+nYFbLX0rFf1N9T9gHq7y/7WjVe/2sJvyN8g2y91UYIHyq8
sezdhfcT3lO4EN5c+Ftdb7WOrdb16uv8C9L8vVjP9KuOzU3+YIr6+8m+SrhU
21H9vdSWqv+37Fuqf6CahmVv6PrX6drfMYdlf0HH7tWxQ2RfW/131V8g+zYa
3EK4mfCdwm/JfppwB523RPhj/ENuH3GN+ifq2KvqP6Lxu+n5TxB+Rfhh4V2F
p+I/hB8S7iK8vc7pzPWEH+DbCU/R9Wbo2E3qj9X9mqr/rez3y95Wx9oLtxG+
T3g74XbCrYXv5Xl4P8K76/k+Ft5R9qPSenuctSn7XOaL7B8JTxfeUfg61rqe
Z4bwTsLThPcQ/kTnT9TzTNSx+eofr3NeVP9+XW8n2dvo2PbC2wrfgy9We0n4
AeGdZe8oezfhnYUflu0k/Jfwo8K7y/4l19T1p+vYjep34Dep3yr54yMqz/dZ
wptr/BDhy4RnC28hPFrP2wh/kO7/hvCpwu30/O8Jd6rsD9rJ/of6HSuv9+2F
f1e/nVpr4W3Semiv1ka4ZdqPPtH1LhTuqut9wloTnincXnix8CThVsInCXfX
83TSb9hbuJvOf7Syvzgut4/aWP2vNW534fPwvxpzlM5vrP436fuNEW4ivDR9
3x10va7COwk/JHxC6e//u/AjwhOFW6b9fW/dv13099xB9gdl30V4nPAQ4aeE
d2ZOCR8h/KTwTsJj2N+FnxBuIFyXZ03zfzL+QfgO4Xa6/hjh24WvFG4mPLzy
fnqecAPhr/U8l7P/6Xk+w3eoPSR8s+xtZK+v69cRrp3W/0S1R4RvE24r+8E6
X3+yt4Sv5/2qPSp8u/D2MgwTvlr4XOH6wt9o/BXCe+t+n7O3qN0ifKnsTWQf
JXyz8DzhxsIjhW9i7xJuJDxU+Crhc4S3Ev6N+EL4QF3vG76d2hPCd8reQfZj
hR8XXijcXvhHjb9euK/Gf40vU7tW+HzZG8q+juyjiQV0bD2NeV/4LL4nsYjG
jlW7Q/gqjW+u8T/IPp/9RPavZGsWPb/ry36rcPPo+dJA+DZiOY3fh7Wj8T11
/vfC17HfCn8p+6fCFzEfhT8Vnl16Pt0s3EvjO+t6o5K/f0z2PWX/nFhE7TWN
2Ur2TXn2FD+cV3p+30CcovPfFj6d+cZvkfWvZxwguZn8IthLdk
DxVeJ/nfLYQ3Fl4r7f8T1O4SvlZ4G41vEb0eGgrfLtsS3W+O8I663wfCR5Z+
vo9lXyi8dbS/bCR8h/Axsm8j/GNaD0cLby38Q/K3nSvHF+2FV+Jr1B7gfQpv
q/uv0Pj7hPvpfnuxv+J3eB96P5frWB38kvC6wpcKn6i2XPgl4S1lO6W0f/87
+YOn9Xz3Cy8QbqXrrSX7SI0dwjV07jDh5up/Kvv3Gn9F5b3pPuEd+b746dw+
mGOXsR+zV6jfWvZfZe8v+3uZ44tniQvUb6H+6xr7jPAk4ebCrwlvWzker53u
95zsxwpvLfsbws8LH4d/FH5TeGrp/ea35M8vV3tS+C7hHXT/KaX3g1+Tv3pZ
+AT2B53/lvBQ4WbCn8i+XLgucSf+T+14jZmvtqGe/3A1AsPXS+crbXV8gK5/
iv7+gP+SPZdtVOn94ktd54fK8fHBuWOS9dT/W+MHCdfL/H0eUNtCeJTa2jp3
NTFW7m/I9/xH7dDc3/hK9c8svX/dSiyv+7+h7zc49x55hvpflvYne8h+sOxv
Rj87a3KO+ufp+H+Zn6nUM74V/ez76tjZ6v9BDiO8RPhpYlRd70jhfsK5bG9r
zDDeBz5L/Utl78u3l6038ZjwUNn761ihY930m3vxPLpWTvwk+zkpXvtZ9nV0
jafURGyH8HvJ3+onI911vl/4etK7w8Nde5L7BeV48dOsv9JfMEe
I9xReBX9yvnUjsJ/V57P+PvPUvw0Q/dYR/f7XPgu9kPhqblj1PuIJSrP/2Yp
3u+q1lO4uzAbQxfh3dN+uJq9oXR800DP96Lw2cIHCAfh/TV+sHBt4feT/2xb
ef41TfnBEaX9z4fJv+yKDxTeXfgf7qXWI/N+/h+/TW0v4a7C/6p/uM7fSPiD
5I+/12+Yqd9TR8dvqRxfk8sRo6+l/pDS/u+j5J/I107DV/Cb1F+o83cQ3l7P
/67stfhOwufI/jk5ePR+tTPzVr9vWfR+uAvzVvgVjT9RuDVzR+dvJHxK7px0
iI5tLDxd+PnM+eldanVzz7FIriy8ee45UcO1CJbxJ3reG3W9z4Qnk6/I9irf
pvBc3Sz3/HufeEP9dWV/mv1HeJLw+sKvCH8gPF54PeFn2FtLxyONdO7LvKvC
c7lO7m9Ivnam+s+y5oWvIafFXwXvV22IWYS3Sut/ROn47QvhbnofP5f2t/01
frDwScJ7CK9M8V+r6P2hhfAi4Vej1z9+YEiNfye/dzu114N/B7+ntdorwfFx
E/yL+kfVOB9oJFxXeLTwQbpmB+HFyX/xXng/TdWeCn4PvI/m/EbhDfC/fH84
Gb4pcxJ/Vvp7D64cP36d+IuDWYPCH6X87r3gWLqzjn3IHAiOPTsJf6D+nXq+
juq/r/5Ajb9ev7u78E9pjzuMOS5cu/R8ukj2rsI/ZuaEBjFnhT9O+Sfxeyt+
j/AY4a+CY9uT0jW+ED5X+MT0GwYW9r34YPa7y9L+xz44IvmjLYUflG14jf1f
PeFF7I3CB+r+7dNvO6DGnAfcxyPCI4XP1991mbI6Nlf9lqVzs3bCrYhNUzxG
XDaqxvsBvm+4jlXEZsmfrvGrvF8971jhxsz54PxsW/WbqT9W9qXR65N1Ok54
XvBew57zF9+EGF/9rXLHf//yjrlW7pj99mB/PoT1w9zW+DHqN2DNyDYn7Qdr
9gVdf3bw3s4e/5v6HXX8U+EBwp1Kc0JfCr+q6xxR4/VCPr9hMD9xdel8u1Yw
H3NVaT5vg+D8/ILSfE9NsL89tzR/E4P93UWl+aK1gveXmaX3m9XJ/59eOn//
J+0PF5fmU9YOzucvER5M/BfMx1wc7X/uFC6Jh4Rfl310cHy9tvAbwkcFx98h
Or8cGpxPTCvtj/9M8VtNdH45KjhfidH594jg/KKKzs9HBucT86L93T3Ckf00
Oj8fLryd8Ba6bszNOcDPnFGaT/o37Y+zhHsL/5f2u8XR34/vWKvG+xN8ZP1g
vuvl4PlDTj1cY14KXj9wCMMKczBwMWfp+OEavyR6/jEPNxR+XH/75N7T4ZO6
lN5begrvqv6LarOFWwbzocTL5Mudg/kj4jH4pFbB/OiJhfeWLjr/0+D8oE/G
Bur99ZzS/E0ZvB8S/8N3VcH74XvR85t5vkHyP6xPct4Jhf0e/o8c/2jhJcH7
GxzHMYX9E74OnzeePV/Xm6P+3ep31PUal47l1tKxJupfq/G11P8+c86Nz74s
OP7Gl8ORbFc4R4Y7uZsYOjhe31b2fsRwwmfL/hqxVI3zHPKdG6JziMaFcwhy
iz74mGD/cZvs/WvsR/Gnd0X7IHwR/nZR9J7P3k/8eErlPXCNzxc+szJ/Blf8
E/OpMqcMtwzHDdd9nHDT0vnAQmKXytw3nB7c3s1qU4Lj5ca6302cE8yHNore
U9fsKcSXlTmCXQrHsHAHg3T9z4Jz5g9Kx6yfBHMsxLL4dHw7cwSucXyNeWT4
5NHRPg5fx570ENyQ8KLC+/OVlTnYPsTVubnZKTXm5OCcNyC/qzHvCv86Wecf
K9xXeILw1en3oxnAaf8bzSn2El6Zm2uEg+wt/HdubpI9/ZvgGJy9nj2WOTcj
c+7AHvd+mmO3Ru+R7JWsEbjRj3Ts69waAfoCeyz7FPsVsRYxNvsC+wOxNzHl
wuAY8ey0R7LPsd8Ri5Ej4Mfx5+QOH+rYF8zn3HrIbOHa6u+s88el399N4z4j
BpD9Br3Laep3yx2zNC997jvEbMInl773qsJ8Fj5r78J7CL6sqnEMRQx8Lvls
9F7Lb+C3LKvMzeFD8aVfkMMRuwov1ZjzyPfTXsRvuVm4Te41wloZWPldsgZY
CxOj9RJ0kx7CrSvnv+TBxF9jo/M18jb4xKWy30LuqGO/44tk30jXWxDMJ5wD
PyB8SzA/cRb8gPBNwfxG/8rcO2uStbmLrvGe8BK1N3Xs9Oj8kTwSPvMdYrrg
eK1/tOb0v8IcNFw0HNMGhTkEuKd1hYvCGsjWrGWd80tujpz4HY4drh2NA61j
U2Ja9f8hJqg8R5mraDTkn59H+xaecSPi3ei5zzmbpfXRuXT836iyPoM29Ccx
R+U5zlx/OzefT85cq3DOTi7N9340OF64SteuEX4iOF65NjpGJ4Y9WeMvqqxx
NCmcA41LMTkx7UnCF6r/GzlSYY70xNJrmLWM5gF/Wbeytvdvmq/PRvMRy4P5
h+XR85d53FL4mWh+fVkwn7IyeH97NcUrcPhw+fgH+Hr0D7QT3nnP0r4FX4lm
Q/zforQegWaGdoZGVBXO8dCO0Afh+vkG+A18Kmu7TrCv5R2jD+CTePdb6O/5
xGqsZ94jMSL7N98gmG+Bf5khvGlpvYDciRxqE+F/U36CT5uQ9qvbcmsWofA+
xn62R+78C00HbYd7oA9tU1nP5FnxdWiaX2R+JvQK1j/aKXMAv9ei8txEpzsh
+U6+BZzdHqW/CZjj+JZnguNj/Ev30r/vs8waFVoVcxi9abvScxuOGK6YnOzm
0u+H1BsNBS2FHItcq2Fm7uWrwtwkHCVcPHwDWjCaF9oX8cmHudcL6wb9Bm0G
zQvti/iVufC02vb419JzHw2TfJj1jTbKHGRfgS9ZrHudyvopvUeiL7NnsHf0
q7zWGMtehE/AN9yTW19F00Tb5JmIl/Cp+Fb2G/Rp9m7y9/Vz8z8/ROfnddNe
iOaJ9nlbikfgsGun9Yg/gSOFKyXHR3tlf4YjJCc4Oe3f9RJnOK0yBwBX2SQz
NwDnDvcOZ4IWBafQIL1fuAY4CrjQxpm5C3LyTQtz9uTqcCxwJ3AocC9wnGhL
nTJzn3AuzQtrWnAxxE/kvnCip1eOl7YunBOfUZkzqZ++9+D0vdFmtkvf//vC
3CkcKlotGgZaFBwg2gaaDNpQ2zQ/0DTQruAQ0Tq+T++vTnreJYXnVwPilWiO
GK4YjgbtDr+P/78vdz6HP+DbUnNwZGGOC64LjZJ6hF6V90/WDrEDMRf+BL9C
7EJ+yLWIv4jDNicGz12D0L40hwuXi+a9uDBHDVcN54N2jYaClgJHdqPwX4W5
IXISchM0N7Q3NO8bSmssaC1wVvNLc9JoNXDEcNXEj1OD6x/gkuA44ObJ4cjl
finMre2WuXYBjhUubPfM3CscM1wVnBXcMxwt2lvXzNwtNRxwtU9mru2AA2ua
5sv49D2bp/nAfCEn61E4JyBXu1j9k/UudsnNeaI3wNfvH6x3LC/N/+8XrAf9
UppPPyBYb0FzRBu5NrMWuaq0vnRIsP6B/oJeNDBYv0HDnFtY00DbRIO7oLBG
gjaHhnJmYc0JbQWN48LCmgzaBxrKdYVrWNBW0HTQorgH91pZWl8aFKxnoWGc
VlgzQdtA4zu1sKaK9ofmO7OwJogWjAaBFkmORa6F5jijsMaKFokmNJ99ILNW
9Edpvetg3a+p7vdnaT3p0GB9ZGO944+YC8F68XFwxMKzyDGENxH+WHhisL58
vPBKcgvhrsKbCn8iPClYX30xml/+PVg/eC66vuSHYL6eOcBcGByst2wo+/vE
BsH6bm3hDzLXnuxSY02X+PHBwnhZaf2qZ7B+xjfl2+4aXF/0XWn9p1ewXvdr
ab1iQLAe921pPXFf4S2Fvyqt1+0ZrPeiJ6Ln7RWs926k5/mQuRmsn/9VWp87
LFhvghODG0MzoNYHDQwtiTnKXEUjvKywxod2CGcBdw2nDZeB5twq+SvWFxpw
y+TvqFVCI0YrhmOcnNbjtsnfsf5WJP/bIvlDOIn2yf9OS/6hQ1rvrM//0npF
UyO3hnOB64ZTgYuBY4HLh1OBe4Fz6JzWP1wEnMOOaf3DRaxO/oD1Ti5PjtAu
+WdyhzWcdvJP5PZwOl2Tv4DrgbOB20cDgMuBs6EWA84DLgfOhloaOA+4HDRe
tFa+Ed8KThVtHc0drpX48ulgvhMumHz47mBOD64Yzp5aLTgSuJJnhUcU1qju
EX5OeGRhDes+4ReERxfWpB4qne8+FMwZwi3DmVPbxveHS39eeFRhTeuB0vEr
sRA5GbkZ+TWxNTkguSAax9jCmhXaBxrY5MI1H2hjaGYTC9cYoKXBWVNgB+cO
l028/VwwnwtXDgc/tbBmCTePhnZsYc0UbQ1NjNoe8m24GfKVEwprxBdX1uwm
Fa45QMuDk4abJj45NToGJBaE/0HbgdOE24RvvDI6Z3tB46dlzuXgP+Cx4bNv
ic6RZ2TmZHhfcBxruNLc9RgHRI+FM4Y7JocilyKfgD+5Q61Z7vePfkS+/U4w
p8T4faPfBTkk918A356bI6de5unStSVwYtS7UJNGPnBW7vq4AfiH3DU+1BM1
jbZdQ3yu/rzS2hgcIvsTNUns//Ny1+NRH0TtEDVJ1Cb9BkeSuWaP2r320Voe
mt7ryc65C4i5o2O+E4JrPIgFL4zWJuCI4YrnRmsfcLRwtei71P6hufwnvFk0
N4uPxle3jr4WHPBr0d/zquAaDrQHOFt0QvRCuNwiWuslxyLXejI6lyDnIPeo
Fa0d4uPx9cwB5gI+Hl8Ph0gdIRoU3OK6cBTqr8hdv0iOSK44lHek6+0a/S35
pteT20WvXfikp0rzH+gyvIOLZLs6+lvyTe+U/YrouQenD7dPTkpuCucO9w5H
BlcGJ3hHNIcGlwZneLv6IzXm9NwcwlHRHDxcPO/4gugc67RgTZ7fj8YCbwp/
ivYCRwNXA6cLH4JmgK6FvvV2ut4dwRoQ3w9O/Tbh7pm/3/3RWiSa5DfRGgQ6
GHoY2gScDtwOHMW50RwRXBGaycPRHBBcEBrNI8Rv0fW0xEzfpfXAWpyc/AOa
Cbwo/Chaylxd/+DMnAf6MJrI/cEaG++T78Ham5T8KZoTPDJ8MloUmgS8Kvzq
V2m+8K7IycnN4e++1PWuzKxd4C8eDtbcLk/fHy5ufPKnXaK//bjkr5vgM3Ln
0OTSxKjEqhz7X+UaSfJbckrqPyu1R3LXCK8nW121J3LXVP6R1vNWmWtiqY3d
IDq3I+Yh9uH8ZzPn0DWVa/zIj8mZqQeEf7k3s4YFnwJ//FvmezKe4tdFuXNE
ckXwkMycdV55/h6ZmbOHu78uei3AucO9w29TO7wojUdjom4ADevd9D7gbmam
359HcwVwHnAf5BitS+cj5B7Uk1IbS801tddwkHCRaGro3+PVLhHeSfhe7i/7
rMwa393CXaP3Rre3X2Hu557oc7kG4+E6OZdrHFeY2+Ve3PN44oZo
/8saYi2h3zGX0eymFV6v6HnbBXPd51TWy3gHvAvWN3MHzhEuiv0Bbp09jL3s
COEbMsfkxOaHR8fmxPDE8odFx/bkBOQG1B+xVzAH4TMGR8f65ADkAuhfzA04
gKfYhyvzMdRuEh/3jN7PWFOsrV7RezVrYmzigtnLWIPoq+x309VvkvhE/BG/
vU3iN+dUzn3gWOFa4SVZ+33TsZbRuRI5E7k1+h/1DeTj5OWzK+tda3xQjXlM
1jZrvK/ssyrHUuRY5FpoFOwF5ODk4vCi8KNo3tQYHxnN1RLDEsvOrKyXPVY4
/j+tsl6Gz8f3X6i/Re6aaeprzqq8X+LT8G0DonMVYiZipznBexWa4svkPcFa
Kpoq9dYNo7kMfhvcA/X6IXcND/ky+iv1AuvozyYaMz06lyd3nlpjDWpKiofI
lw6J1iLI4cjlhkTH5sSUxJb1ork99kT2xs2jc284P7i/ycH14tw2FtZE0F7g
WOBa0ETgWuBg4GLgvOGehwVz4f2iYy1iNGK1Y6NrJajj76T7jYyulyFnJnde
XTqXOzXx3XCk7B1/FOZOD43W0tCE8a/sJ+TK7AH8bwV6C3kzxx6QrW/0u+Cd
EAuiz6DDcY0Ho/UNdAD0gMfTfkIfn05tGu+Umnz0Md710WoLMmv2j0bHaOwX
xHzEfn107IzMMSix6MHCF2fOecl9h0X/PnJmcudB0bk1OS657t7RXDExL7Fv
j+jYl5iZ2HlodK5NzkXuBcfPfD0omPsfLvs9mXNicmM0B/aifYK1iBHp+5Cj
k6ujUeFPeCe8m/2jY3FiYmLjbtG5ATkDucPA6FydHJxc/MDoXJ0cnlz+oOjc
nhyeXH6v6FifHIRcpHd0bE7MT+y/p/DxmXMOco/9omNxcgByge7RuQU5CrnK
HtG5CTkHuQc58PTEB5Ab/4O/z62ZTIrWsPmt/GbmJjk3tdXoM+Ti/M8I/zsy
HB9XWgN+MrjmhP2J/8Hhf3FGyH4/a7q078EHwe+huaC9UI9GbTc+El/5Qtpf
mePMdXzojMqaO7WtT2TW4vFHaKfUxBCfMseYa9S0wc9Rs0/tPvzUg6U178eD
Y0L2UzgIar3xUXAT+Ch8FT6KeBhNHH4MPoz8D/6PmjnWPHwj6/frzD7s5GgO
g7pHYmLiXTgIuAn+PwZuAg0YLZiavleiORJq8akJgDuhhoBa3icz1xbwP07T
g2M+1iecArX51AzANcDBULtPzQDcDDUF1ELD2VBrAIcxL+W/cBvE9+RmcMbk
C/ijbzL7yGnR9br4cnz6nHR/6mqor5nA80Vr22fI/mN0zSl1OdTnHBOtiaMp
4KOmw02VriVEY0NP5BvzrdHAzkjXQ2tEc5yl/qGlfTM+Gr6YmnV0dO45Rniq
2r+ZfSp6CjXl1wTXlFNrjn/kf1f64fOTnToW6llmpviF34IP+qL0/0uRa6Cp
oa3x/KcHx2gr0v1PDs7BqKVHM0Q7ZM+glgt/xm+fpWv8FK3poe3Bl/C/C3BY
+GZ89HNpPp8R/Iw8Kz4abRI7vpv5AndFjQfcFjUh1J7DAVIrwv+8wLdSE/1w
6ZqGx4JjQGJBOExqx+Go4DbRuNC6qDG7pDKHhu/DB8KtwYFSG39tZm4UTov/
ZYAvhOuiBvjb4JyR3BGOC1+Lz4VPgTOj1v2azFwaNSvUwsOZUssCh3hFYQ4N
bhEOlliKmAq+i/yB2io04Muiaz7GJH4DvgHNjtph+FDySzhQavvh9Fam37c0
OOckf+iVYiBiotkpf6I2Cc34/GgNl5iFGhH4rJ4p5mHOn5/8A7UxxNjnV/Zn
1LYME76gcs0K/8sHH0QtC5witfnUOMI1EuMS61KTMrfy/5zxv2fULF1XmkOl
1hwOGm4VzZFabjhH4nFqnvhfNJ7v6vT+qcWGo55XmUOkdh2+EG6RminiLp4f
/h2Omlp9OE24a2qm+N8maqSopYJPYC20SvMZDptYhpgGvpn/oeN/6aihWlB6
fc8Ijg/Yz+FAzy5c4wk3uuZ/8grXUN1Uuibp1sIcMrVKzE9qb8hhzqv8P2v8
7xox5y0a/3+ZcBp3
"]], Polygon3DBox[CompressedData["
1:eJwt13nczlUax/Hb87gfqSxlqSlNlGQp+5LIUkjZFcJjF9kba4sla5LoZW2x
lC0qS1MNomghslczU0Rosg6NUloMva/Xzx/f+z7X53yv89vO71znV6zrgJb9
M1Kp1E5KU1E//wQK0OXiDjlTqeuwHeKpmanUBewJ8Y30JXYV5cay+Uph34iv
pMJYN6wCdlR8E92C9cNKYwfFBekvWA+sSVYqdY3xu2H/zZFKFRGX5NsX50GF
+Lry3YrtFV8W+VgX7BGss9wF2NvYeWwQNhZbiL2DDRbfbMzfjN1Mf3XKJ26k
/35azltYXw7/r+lbQo30FxJ/6L+E/K/5suLeGK+z/mW0lBrrL8z3kf/StJ0n
k44Z73pxGfpcnIfy0glx9TgX7brUwHgjjbODRmhvN9YOmsUzF3sYyyveSNOw
OVh3LI/4fZqK3U7fxj2mEvq680x0zlc7h0U8I6mvuB5fbu1WfB34ZvLdg12G
PYhlY9Oxu7Fc2ANYe2wGVhvLiTXFWmHP5Uyu7QtxfspHi8T16XK+1uKOfLP4
6mJZWHOsDTYVq4OlsWZYa2wK1gDLh7XPSK47rr+O874WKx1zx/UsEZfnO85T
gcrTavFOvKP+C7zzaKx4POXHXhU/Sb3FZXkPyylNZR2jD/ZijKe/kGOMzpG8
DC9hJ2NeYGNibmDlsO/klaFybD31vYyd4jtNu7HcfBWwEzwVqQrWn+827IC4
ON1MK8UV4xjalagq3wC+OdjPxrpGe6zj5jPePKx8zDX6EbsWa4hdxddBbk+5
8/UtpAV0v76CMWf8T6H12p9QCbkr9H9EA+RswjbTTJ5qdM5YtamevuE85R3n
iLhYnDfWF7se2ykeIk+YahPnKXei+GzMI8fIG/cemyw+F3MBuwZrTRXFX8Xz
kbs73n2shHgbDcY+wZ6V+474XeqMvRDXzneL+DMahH0c8w875Fx+jznjGNvE
xehf2DQsBzZCfKfxzsd1UWO54+XWwP4vrk9NsHHYHdiv4jrBsRHYLvmdjHPR
eK/QOHEtvpR2Q77mmhP57sXyY9lYD2wetpgW0X36Cujb4P9DcX/9H4k/phnY
OJqk/Swd0FfYMWpiF2J9oKbYBHlVsDPi6vGcsGFYVewXcS26i9bHs6BVxnqL
OvHN5rsLu6j/XmqGPY1Vxv4nviPysSFYJewHcbUYDxuKtXM+VY01FHsa+xK7
EjvjvjTSLktz5U1LJ3Mn5tAK/unipnSrds+YMzHn4j3H/hrvW65Uap14PdXH
bsAKYmvF71EnY9aKNU7ufLnr4x3H7sKmYPOwdbH+Y7Wx57FXsH2X3rf9l9al
WJ9OipvxluR7RDyUbzNfdqzH2ETsRezf8Sz5isbcw/piG+IZYjdhXTOS5xfP
sWHMN6wL1g/bGOspdj12tet4V/wPmoQtxuKF6eye7RF3cdwG2Gy5S3V9p68n
/hD2EvYm9jPWh68d9gb2Oh2NZ3tpLdyKfxDXjfWM64s5yrNK7kmecsb7Xlw0
1pxY67CSfA/GvKFtxiglrsdXRG4B57waX0O98NZRD+Wukfsj1hW7F3sBW4b9
B+uNtcGWYmuxn7AJxluQmbwz8e7sjudGdcRj+Kbz7Y/aLbcVtiTWcOzMpett
i72MzYma5pyqRy3DWorb8b3K143vfmwy9hzdwHcRf8rxCvg/GveWp4Xc0rH2
8zwmd0vUVKxFzM+oWdhp7H3sbrkzsTH6Bop7UMt4R7HFfD/wncBG8s3CjsQ7
LW7vOHdoP409oe/7eL50DzYemyX3oNwH+Ypjj2LD+A7H+ppOciL3gL414gf4
btYeEPM0rkf8EF451khsvPE+N14brFKsh9g4bM+l+9IoM7l3cQ8PZyX1LOpa
Qf3H4vlh3bHmsafgWchySl9brAo2BJuAfRHrZDqpJVfmSvZFsT86LK5tvEP+
R/COpIt8vbA28cx4LsS6m07WvStyJXUp6tNAx344M5nLMafL68vmqxE1Op6l
4+7lm4y9Fmu4dhfjfi7uGnUPmxRzg+9IrGvpZP+V1zivi9+Ie4DdF+sp31y+
o1jNdLKfy5Mr2bfF/q05VgrrFc+D79PYWzm/xtjc2Bdix2K+YE1iXxHrGnYc
64E1xeZHLcdOYFOMtwyrid0T+xxxu6it2ASshut4B3s3nbSDjY75IB7K1zv2
dBnJfjwXNgDriK3ENmC/OcZjWP+o59hXWH6+GemkXkXdWhn1XNyKpkQdx3bH
/RZ3SCf3I+7LQWyteGOs2bFPjHkVz168nbKx8zGPYl47Zvt4ntpP8E02xtc5
k3obdfePWLPiGvkepwHam/i+5rsq5jf2N+xTbC92NTYcG4Rtxb7BCqaTudEj
zivWHDoeeTFXsdXirXwZfINivcPew7bFshr1hPaIryCPONXO+RXBdkWckXzf
PIQ9KXeg3C3YPqyAjjnxzmk3xtbFsxcP5ntEex22PV4hbAQ2OPYg2H6sEPYo
1glbhW3EfneMYVifWJuxXdhlUdtotzg3xSvZlm+IRi++9dgOLCvOI/aoWHyY
xfdAfBfEfir2VT/Fs4g1VF4l7DRPKSrDN4jv7/RW7AH1FedfmE72P7EPmi5v
GI2U25Ju1O4j93G5H8hpFd8q4cEmYp9hI+VmyJ2BP06joibQbdqP8T3Dt/VS
rY6a3SIrqetb/C9KJ/vNelETaX6s61RB/1Nyn5e7Ip3Umqg5zbOS+v9prHWx
343j8U3lW55O6mjU02ZZSa3aHHtE8dvUNCupuZv854l76Lg/xnyk0bGHwK7D
Zvt/k395zuQb4lhGshePPfnpWMP1/6Fdle503NF8o7DMqAsx9+Pc+apiP/GU
pUrxTcxXETslLkmlsYFR66OmxJ4Rm4l9i/XDRmUm32XxffZMOtnD/ZyRfMvE
N83ZeMepA88K8Qdyf5V7KJ3Ug3zaW/QtFlejszzlqDLfk/r6xvuq/83YD2K/
xF6Kry42FpuBHYhz4cvGlmPvY+ewlny3Y/2w4fE9iv0JLebvng==
Polygon3DBox[{{, 961, , 1204}, {, 959,
, 1202}, {, 638, 637, 980, 1451}, {,
, 954, 1677}, {, 653, 652, 995, 1466}, {,
, 947, 1674}, {, 586, 587, 951, 1434}, {,
573, 574, 940, 1425}}]}]}, {}, {}, {}, {}}, {
{GrayLevel[0], Line3DBox[CompressedData["
1:eJwt0r9PU1EYBuAjUkopAoYYQyQSFjYYYMXZAUNiB6OSMDgBg24EZ4PFgYUQ
GAhBCW2MCcZBF5VftiDKBogCgtU/QBYXM