(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 114573, 2065] NotebookOptionsPosition[ 112867, 2000] NotebookOutlinePosition[ 113213, 2015] CellTagsIndexPosition[ 113170, 2012] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Exercise 6. Matrices and Linear Algebra.\ \>", "Title", CellChangeTimes->{{3.6598568074070907`*^9, 3.6598568325145264`*^9}, { 3.6610610720987988`*^9, 3.661061078300808*^9}}], Cell[CellGroupData[{ Cell[TextData[{ "Ex 1. Define a function matr[n_] that generates the matrix ", Cell[BoxData[ FormBox[ RowBox[{"(", GridBox[{ {"1", "1", "...", "1"}, {"2", "2", "...", "2"}, {"...", "...", "...", "..."}, {"n", "n", "n", "n"} }], ")"}], TraditionalForm]]], " and multiplies the i-th row with ", Cell[BoxData[ FormBox[ RowBox[{"(", GridBox[{ {"i"}, {"4"} }], ")"}], TraditionalForm]]], ", i=1,...,n." }], "Subsection", CellChangeTimes->{{3.6598568632682858`*^9, 3.659856961657913*^9}, { 3.661063449834489*^9, 3.661063451654492*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"matr", "[", "n_", "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"j", ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "*=", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"i", ",", "4"}], "]"}], "^", "2"}]}]}], "]"}], ";", "\[IndentingNewLine]", "A"}], "\[IndentingNewLine]", ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"matr", "[", "10", "]"}], "//", "MatrixForm"}]}], "Code", CellChangeTimes->{{3.6597236574913177`*^9, 3.659723685353074*^9}, { 3.6597238223900876`*^9, 3.6597239295167103`*^9}, {3.6597239624059706`*^9, 3.659723969022657*^9}, {3.6610611478779063`*^9, 3.6610611498279095`*^9}, { 3.661108161378889*^9, 3.661108162481669*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"4", "4", "4", "4", "4", "4", "4", "4", "4", "4"}, {"125", "125", "125", "125", "125", "125", "125", "125", "125", "125"}, {"1350", "1350", "1350", "1350", "1350", "1350", "1350", "1350", "1350", "1350"}, {"8575", "8575", "8575", "8575", "8575", "8575", "8575", "8575", "8575", "8575"}, {"39200", "39200", "39200", "39200", "39200", "39200", "39200", "39200", "39200", "39200"}, {"142884", "142884", "142884", "142884", "142884", "142884", "142884", "142884", "142884", "142884"}, {"441000", "441000", "441000", "441000", "441000", "441000", "441000", "441000", "441000", "441000"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.6597238825094194`*^9, 3.6597238871026545`*^9}, 3.6597239307955885`*^9, 3.6597239702205048`*^9, 3.6598569745076485`*^9, { 3.6610611441979012`*^9, 3.6610611502679095`*^9}, 3.661061502315424*^9, 3.6610635547656384`*^9, 3.661108164692231*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ex 2: Let A=", Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0.0175`", RowBox[{"-", "0.015`"}]}, {"0.04`", "1.06`", RowBox[{"-", "0.06`"}]}, { RowBox[{"-", "0.06`"}], "0.315`", "0.8`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], CellChangeTimes->{ 3.6597233057392416`*^9, {3.6610613849282527`*^9, 3.66106140390228*^9}, 3.6610614415093327`*^9, {3.6610614980334177`*^9, 3.6610615165354443`*^9}, {3.6610615698815203`*^9, 3.661061573271525*^9}, { 3.6610616041965685`*^9, 3.6610616149165835`*^9}, 3.6610618571679296`*^9, { 3.6610619235760307`*^9, 3.6610619394500537`*^9}, {3.661062005977149*^9, 3.661062082982258*^9}, 3.661062114671303*^9, 3.6610621657933826`*^9, 3.661062213200457*^9, 3.661063794845995*^9, {3.661063847054091*^9, 3.661063883984143*^9}}], " . Compute ", Cell[BoxData[ FormBox[ SuperscriptBox["A", "1000000"], TraditionalForm]]], " by multiplying A 1000000 times and by first diagonalizing the matrix. \ Compare the computational times, using the TimeUsed[] function." }], "Subsubsection", CellChangeTimes->{{3.659839758955054*^9, 3.6598398304051538`*^9}, { 3.65984006358548*^9, 3.6598400753054967`*^9}, 3.659840112675549*^9, { 3.6598569954338455`*^9, 3.659857106869219*^9}, 3.661063890189152*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"start", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "}"}], "//", "N"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"res", "=", "A"}], ";"}], "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "\[LessEqual]", "100000"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"res", "=", RowBox[{"res", ".", "A"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"end", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"end", "-", "start"}], ",", "\"\\""}], "]"}], "\[IndentingNewLine]", "res"}], "Code", CellChangeTimes->{{3.659723072194867*^9, 3.659723214238449*^9}, 3.6598570129308457`*^9, {3.6610612329390326`*^9, 3.6610613480881987`*^9}, { 3.661061955658077*^9, 3.6610619707910986`*^9}, {3.661062121871313*^9, 3.6610621564883623`*^9}, {3.661062187220421*^9, 3.661062187460421*^9}, { 3.661063725546897*^9, 3.6610637583759437`*^9}, {3.661063809665016*^9, 3.661063810735018*^9}, {3.66106390287717*^9, 3.6610639373472195`*^9}, { 3.6610640340853567`*^9, 3.6610640511653805`*^9}, {3.661108371924065*^9, 3.6611083918361435`*^9}, {3.66110854816216*^9, 3.661108651943514*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Time:\"\>", "\[InvisibleSpace]", "3.3440000000000083`", "\[InvisibleSpace]", "\<\"s\"\>"}], SequenceForm["Time:", 3.3440000000000083`, "s"], Editable->False]], "Print", CellChangeTimes->{{3.661108602457532*^9, 3.661108655970358*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "2.3179057219938770487399952747917429826`15.954589770208527*^98332", ",", "3.3677650124579809979253933883531080837`15.954589770191005*^98332", ",", "4.4176243029220849471107915019144731849`15.954589770173483*^98332"}], "}"}], ",", RowBox[{"{", RowBox[{ "3.3677650124579852683621664250510222506`15.954589770191005*^98332", ",", "4.8931417147457560641083536828446256323`15.954589770191005*^98332", ",", "6.4185184170335268598545409406382290139`15.954589770191005*^98332"}], "}"}], ",", RowBox[{"{", RowBox[{ "4.4176243029220917324008107115038767669`15.954589770191005*^98332", ",", "6.4185184170335285795435755690475225132`15.954589770208527*^98332", ",", "8.4194125311449654266863404265911682594`15.954589770191005*^98332"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.661108602458546*^9, 3.661108655972359*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"start", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"\[CapitalLambda]", "=", RowBox[{ RowBox[{"DiagonalMatrix", "[", RowBox[{"Eigenvalues", "[", "A", "]"}], "]"}], "//", "N"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Eigenvectors", "[", "A", "]"}], "]"}], "//", "N"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"res", "=", RowBox[{"T", ".", RowBox[{"(", SuperscriptBox["\[CapitalLambda]", "100000"], ")"}], ".", RowBox[{"Inverse", "[", "T", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"end", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"end", "-", "start"}], ",", "\"\\""}], "]"}], "\n", "res"}], "Code", CellChangeTimes->{{3.659723237540951*^9, 3.6597233052428894`*^9}, 3.6610613774352417`*^9, {3.6610614761833825`*^9, 3.661061614546583*^9}, { 3.6610618191658754`*^9, 3.6610619380000515`*^9}, {3.6610619967621355`*^9, 3.6610621025852857`*^9}, 3.661062165473382*^9, {3.661063765655954*^9, 3.661063794265994*^9}, {3.6610638461040897`*^9, 3.6610638678641205`*^9}, { 3.661063986846289*^9, 3.6610640001463084`*^9}, {3.661064030425351*^9, 3.661064045445372*^9}, {3.6611082541154423`*^9, 3.661108267295761*^9}, { 3.6611084032031755`*^9, 3.661108420155158*^9}, {3.661108500663571*^9, 3.6611085322138724`*^9}, {3.6611086643622923`*^9, 3.6611086734116893`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Time:\"\>", "\[InvisibleSpace]", "0.03100000000000591`", "\[InvisibleSpace]", "\<\"s\"\>"}], SequenceForm["Time:", 0.03100000000000591, "s"], Editable->False]], "Print", CellChangeTimes->{{3.6611084109286366`*^9, 3.661108420699543*^9}, 3.661108533350689*^9, 3.661108624517139*^9, {3.6611086660805044`*^9, 3.661108674051153*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "2.3179057219682239257738135154844912502`15.954589770191005*^98332", ",", "3.3677650124207087710078063320616088095`15.954589770191005*^98332", ",", "4.4176243028731931609823362433546446184`15.954589770191005*^98332"}], "}"}], ",", RowBox[{"{", RowBox[{ "3.367765012420709016888425678295332019`15.954589770191005*^98332", ",", "4.8931417146915962292333703450782888061`15.954589770191005*^98332", ",", "6.4185184169624827801161700183393599242`15.954589770191005*^98332"}], "}"}], ",", RowBox[{"{", RowBox[{ "4.4176243028731936175482163217586095191`15.954589770191005*^98332", ",", "6.4185184169624829748602413088590176936`15.954589770191005*^98332", ",", "8.4194125310517714645074392141998326106`15.954589770191005*^98332"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.661108410603409*^9, 3.661108420663518*^9}, 3.661108533313651*^9, 3.6611086244851027`*^9, {3.661108666048484*^9, 3.6611086740531545`*^9}}] }, Open ]], Cell["\<\ Thus, we compute matrix powers by first diagonalizing (or, generally, using \ the Jordan normal form) the matrix.\ \>", "Item", CellChangeTimes->{{3.661108693056574*^9, 3.661108738249965*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixPower", "[", RowBox[{"A", ",", "10000"}], "]"}], "//", "N"}]], "Input", CellChangeTimes->{{3.6611084662607517`*^9, 3.661108480127055*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "3.09400623789253579434635655355506341321434422`15.954589770191005*^9832", ",", "4.49538816761622877223296261812510621110094919`15.954589770191005*^\ 9832", ",", "5.89677009733992175011956868269514900898755417`15.954589770191005*^\ 9832"}], "}"}], ",", RowBox[{"{", RowBox[{ "4.49538816761622877223296261812510621110094919`15.954589770191005*^9832", ",", "6.53150421290323780629197511606453173973545639`15.954589770191005*^\ 9832", ",", "8.56762025819024684035098761400395726836996358`15.954589770191005*^\ 9832"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.89677009733992175011956868269514900898755417`15.954589770191005*^9832", ",", "8.56762025819024684035098761400395726836996358`15.954589770191005*^\ 9832", ",", "1.123847041904057193058240654531276552775237299`15.954589770191005*^\ 9833"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.661108476343891*^9, 3.6611084809746675`*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Matrices as linear operators. Rotation matrices.", "Section", CellChangeTimes->{{3.659840012875409*^9, 3.6598400311954346`*^9}}], Cell[CellGroupData[{ Cell["\<\ A very common way to visualize 3D images is by drawing a set of small \ triangles. Such images can be described by two matrices. A matrix containing the points of the image (we shall denote it with \ dataVert) and a matrix containing the indices of the points that define the triangles (we shall denote it with dataPoly).\ \>", "Subsection", CellChangeTimes->{{3.6598398634351997`*^9, 3.6598399150452724`*^9}, { 3.6598566518061905`*^9, 3.659856772871115*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ExampleData", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.659722399962597*^9, 3.6597224014156456`*^9}}], Cell[BoxData[ Graphics3DBox[ {EdgeForm[None], GraphicsComplex3DBox[CompressedData[" 1:eJx1WGl0VtUVvUCVQZkkCeCK+CQMohWUOMRaea9QqqigKJQSsLxEwFW0ZuEY quATxLrsAqmtII6POoVolDpQRODehAhIBIOgIZDIExIQCRCQCNZQ6rfP/XTn QfLnW9k5OWeffYZ773debt7Nk1oqpS5voVQrhZ/oLye6mB8/g7+X1+oEcNUV O90EbgRX7fN2JHDfLd2bwFX1pFTYf5LxJez7n3OSvUv24bQQuLNo6y78/+aj tW4srktxvcMD4T/ceqAE/k8/Aj9B4dA0+KmZtSqBO28P3Bn3r8k/27tkz/5d 8s95uZRXuOnJNl4Cn/Ea/PhVOw/C38OrgKshNa8g3gd3HEl8mov/1yWBe5nF Bn7q077F/5l7zwa+6ddLYHcs7OTFcM346l+me+rnnyTO/jX5Zz6a+DB/TfzN xLdT4Gf0UdgFGbX1ib9HU2d3S+DhkoWHUKe2Sw/h/4Yr2EfrtsLeWXn+ER3z o8lPOOg54OHKLzfD77qGusSnd7Xg5qbUb8D/PsHZ3m3G3iX7JB/novHIX13X dw0+028VP21SwN9suAJ9ahoaoVsY9CmH3cCij13OK7PyO8S99voq5Lf0OOyN 6hNBx1m317ixuJrisj6a9Eni6p/uV9CnsF0D26vJuYfBL7cfdGX99Sn091L7 HUPc1epr2L//M0/EHS481f3SJ47Tpxxx37vkUFwfTfqwDpp0SOrmTegtfna+ 8TH7D3Vv6OmUiH/m6RJP80MP4H59Curud+2HPvUaBQ8bq9EnQdkFJ+Eu4ezH JT/JuMHho/skr1zU0xndtit0tj9m/aL/xvV3SX/245IfrqNLdTRq4Vkm8Xnz 44gb1m7cIfme6J7A/Wdu+AB5/TWlGH207ob0BB6+fR/yVePqoGsSd9KqilHH aW99hLyeXtjDEH+vXQX23E9zPWDJAVfi1vC8h08tB39VnrOH+UQjl21EfVd1 WIG8DssedqY9VYp+2pCD/aBG2P087829qEfdom3s3ytZVQV+dSv34/8ulP3p DWh9AHkN3P2iprimx2zhfUG3j5rg6xfh3DH3r9qOvDPHYJ7N3F2w91aM3RfP S1NeSTxyssX/lfua2KuC7fXwl14mc239q+wW2CNmyrdy/gyXOqrar2qgT8o5 6Fs13+aVs2AP+NR8uIX1DKaswNx5NzUWcB3VGX0rE3Ze+js7GPcnvPMF+L3l f44490hc76J8+FG9bqkDz3mWz8R/lOL/D312MF4vzfUi/i7x5/60fXJSf6Kf Y/3pPz+lCHhJ5WodwzXhzN9thr9L/Ll/XOqfZF289dWol3PajdsYj1YeE3xN 2nrwL3xG/Pf5V73stXLg0X7bVwcv3Y14J77dE+83l/rN223vLakKfoIulx3g fBNzCv/JOaW+0tRXPI92D9Swzon+h53tfxVIX5ll7bHHnMmLPo3PEeLaOeL+ 0dQ/PKfQLzmntE/g3+4T7mfY237muQNu547nBX+388K6adKN66KpLkl7PzcT uNcjc1mT+o7YW404w2Y16YdE3TXVnftEU5/wHsDvdg/w3oM/u/eCYjunzmeY U/VYbW28Lprqwvxd4s97AHhyD1g+zpu2TwbvLnVjuEs4962mvuV9At3sPmHd NOnGeWnKK7xwattEXHNdpszrY8F+/H30CNGtx+87A7/lO+z7MP3Z05rgj41G fSMnr0MC9/OXw0/UcAbwoM0u9HGUUdEq8XeVsrE+7t9rxr9H/s2uhZ3Zv3po BnCv4zftm/Bp16kunpdHeTEfQ3yiNmPlvlx6jdyvglux782XBR9Jf1WcAO/M Vofi9m4z9i7ZM0+PeLJuHunG+XqU70k8x/RuQN3/Xd3aI9xkhw2n5HkKe5fs VbA2FfHsj3d+DvZVsOa2NPB7tb3cj3tNAO51ngjcZLWX86KobG8T/NP2uOeo lwVX+T2BB51a4h3lj3O3Jf7u93wVePifDHmnlVz/Cepo8ajAYA/4dYI7V60U /IGhcp51qtmqYzzht6PwZHtN9t6oz4H71RmYB+eyTbiPM09NPJmPJj7MXxN/ k/R/RPgHo8Q/x3UprvOQ8A/fOVPuhxtqJG/LX42YXoF98Svhz/41+U/6MZM7 oC7+mbUn+dHkJ3qpFPfhaMoLj0NP+65kXBNu7HvBNBrcB5SbJe8pwjXjWfZ+ klUp58cTV33Bezt8bzHerV75DnmHkr0m+2i/nCNh5SzMc3he4Xb2EywpwPno O49j38f7PLqkf92p5uUnnPi4xIfjus3E1RQ36FYE3ZwODs5Tv83cd6FD/hbR 84pBODeDl6bi3Pbf/wHvO+fO4fBvcrbjHWB+Uw7cL3gdfpxvTns47keTn6Dy B3nXXO/gnPjxB3uJ+WjiE1k82LkW5104V3A1WOKqwmVbETe7I+L6Q6fD3nvk Adwzg9RG1MXTgpsR+VuA/26czN2O1+Xd+uF88FPXjJH3yB8EdyqfXgP7G3t8 Dp2zZgife/PF/x+zoAfz0cSH9dGkD+elKS/WWZPOzpUS1znxAM5df6rE9aaJ zur5rjjvzW7RObJ+zPptco8pEj/hpALhM2G+vP9HnivvMIsHtfMl30GCJ/X0 D+fLPWCm6Blukzo649ehLv6lUkdzQd/u0P/iD1AXf+kLeN+YfoL7+0QHM93i ZK/Jnv1r8s91RP2mSB05X035sj6a9OE+dKkPuR/g9y7pB+bvEv9kn5g7FkDP qFT6xH+xq/T/7JbQx5SPl3OqbVcbt5V8H7G2E+7p3oNyrnn9C1cjr2EfYo86 9YJHcxfDLrxGzrswcyD4BDnffy17c4fcly4V3Ls7DfzNTMGDu18S3cbOgl+/ 3UTc15ypgnu7BsNPUHYbcDVkgMSdt0belbe3lnetxcPgQexNZ7bgZvm1sreX D5BzqGyO3EuT+LN18OstFNy70hU+JTOx51Vqury7syy+YDDOQXV/d+BRy7Wi c8fvgYct+uP7SKeV4OHGVJnfYRcB90fnSf9c3gp1cYpHVcTjuhQ3TDkuef12 AO7lwZ4SfI/r7JFzNpqTje+LotsGbYvn61K+3rHu8OPkHZb+f3leVVw3l3SL HJk7Z/T2MtRp/ByJs8bid1XhvRcNlj7kvgKP15r2VTC3Be4Vaqj0lZq0DnHN ssV49wbLauoY94csRr95HwsevLFCvqdqnbEU/bNuwF7GwzkZS5HPKsG5Xi7X a5To74+chT3i/Vn0D3dbPSu+kHeOI3o6Vn9vQh3ev/4roj/70eSH+xZ52b7l ucDesHNhnm2U/Ta0/iD0GV65OV53zXUnPpr4qKJfAA+uljqq3LPk+787F0t/ vlKFOoZb5L2lMrvJvL/XUupy/OKD8blGvD4y18k9EG0oQL38muUV7Cfo3VL2 xlmXyLlPc4E+tHPB+bqUb5K/nydz7Y0U/uao9K235wl5v02XvuV6aaoX66BJ B55HxLXzaP4k/eONy8D5Eq6YKHu7r8Uf6Ym+Cm7KxPc8ST2jxu1l0CWyehJ/ txn+LvHnOYLu94xpEjfq0gt97v3Nxn1OdAsn3Yj7VVAkuvFcoy52rnk/IJ7d D7xvYW/3Le8l/L/dSxxXU1ze58jT7nPeq+Bv9yrrDB02WZ3tngluqIaeap/s Gd7zsLN7PkwrlD2wNUfe+fPkvuFbPBqei/uPmiG4mddf+iFvs+ylhrPle8fs 1lKvvUNw/oaTl0tdMiL5vvpRsQtPnyF69BI8apDvAcwwwcOx4ifolYk95Z0r fsyTEtcrPlu+FyoWf1HGYvGfnSP3tHd7Yo68FwR3zs/FPdAcF32Yv0v8Oa6m uMzfbYa/S/yTfMKyXLm/pWecxAf4eZOED+Wl+ZP0dJN6/h+ILPbH "], {Polygon3DBox[CompressedData[" 1:eJwNw4s/GgEAAGB1uaSz23bTauY4V+1SnE1L4fIoSuURhdZmvSxE7MGYmR5X 9BQp5Hne/JXz/X4f5lkc9bDLysoenwJPWWyAUw4C3AoWj80F2JV8COKAEJ9T 9Qx+/uIl8qpa8FooelPzVlCL1gnqsQZcLEIkUvE7ESFrFNXIFXhTMwm3vMfR D60NZLNEKRUIUUWTDIE/KmREA0airXXyFrxWUKdqUyNSgmhE6lFMJMdhUgWr 1BoeC6ho7+iktF0qoL2b38Pp1bB0Som+r99gHDBpSbPBMggMDVMjLGDQOjpW brOPV0IT1KSj55O6zWk0mGFn1ecvU+wxrlZFfnW5RyiPl/CZLZrpb/5pv4ua 6QDtsx5qLgCBYLndNr8AdA/pJEhwccknNbIGe22O+XnHd6mPWPzx09n2a3kc WqGG7bYF/e8+g9ViIjH/qnsNCrCtY9U6xPsHd/ndGgtvbRlC1zGFFw/2/12d clMbM0rdgOGfldrc6HFw5qiJ2QBIdU7CaifhVQSX9OsmLKjvD4Uj0XCIjsW3 tqPxWCKZStOZWHQ7nM3QsZ1cOhWMhFOJWC63sxtJJd2ZbG5XmEzvhSL5/Syd j4bEW9G8OBpJ5nPCQiJXKOzTyb18IZ4o0PFNaqV4cFg8PCodn5ROj4tHZ+cX zOUVU7q+uTpnSjenxbPb0t31xT1TvH14vGSKDwf3j0zp5O4/euainQ== "]], Polygon3DBox[CompressedData[" 1:eJxNlnt0j3Ucx59nWRibuc1t09hymU0zto50RBfpJimSFlGJEtFFLtXpD6fO iTrdjjq6ON1UMkQhyTWKbkhtyrIxkRBRmkXv9/m+Ou2cvc7vu+f5fj7vz+37 PE+7URMGjU+IouhnUUckiXqirmggmojGoqkohEYilXvzxfvsSeXX/zfDJlk0 5/8UbFOwS2XdDJv52OSIruxNFwtEiWgt2oos0U0UiFaio2gh0rjnPZkij/tp +GmNXQk+bX+nGC0WiofEJcS7SDwiporbxH1ikrhVjBAPimvFPWKcuF9cJC4W i8UHoqcYLm4Rs8RIauraXi/6igtFH3GBGCruQMO+B4olaNh3b2JybIPEdfie JpaiMUQ8IO4SN5Lb3WIsOWaR04ciW9wkhomPxERxBTWwzuVisFiG7Vj2LaJG 7u295DtZXCp64KO/6CDGiMvEANGLGi/E53BsXbNr8NGSXKbRxyJyd33PFxPo xXJq/CS5TKU/zn2KGEUNXJ9icSU++1L7QeQ9gPgmE8OjYrroJx4W49GYhHZv fBXTG5+d+uJq+jGOOt5MzEPorc9UEj77oTmG3oym7467J3k5v6vo/RLqNRhf Q+jtUOLvE4U56oWd6+OZvR3642s5/b5BJEbhvE9BeyA1m0iPk8lhAvEsptfL iKeY/g2jlouwm0X/nhYzxDOsl9Lbx8QT9Mx1zWbta49Te/fA52sE9Z/O2ufn OfECvrLBa59/Pwee5773PQszxVPcG8l6Jr5XiI/FSvGJWCU+FXPFa2I117x+ Q6zBxnvXinVivdggPhOvipfERq5vEp/j5wvWm/G5mr0vii3YvI2P9fj+Ek1r fYWP1cTyupgjXiGHFfiwr6/FN+JdfNrXt2IrPu1rm5gnXkbD17eL78QO6jAb H7b9nrg24nsDtnPQXkNu27FdRW6zsd2C7x9EKRql5ORc3iOXt0QZOW3Bdic5 lZGDY/+xlg/bvoPuDtZz8VHG3pX4ci4/4dNab+KzjNg2EVMp9+ZRm63YrqPX 9rFLlEfh/blbVIhKsUfsFVVin/hF7BcHxK/ioPhNHBKHxRHxuzjK7zHxhzgu Tog/xV/ipPhbVItTokb8I06LMyKK9ScSxFmijkiMg+YBfFvr7Dho2HddrevF /2v4t77+T+J6gzhoWruh1slx0LR2itaNRCo6jeNwLRHtJnGwqSFP+7bPk7U0 /NtUNItDLM3R9L4j5JUWh5gT0YrIyWvXNebaGWrRIg429tUyDn2yT/cpCa1W cejToVq1b03Mh7nehpycS7rIEG3FOSIzDj3eg227OMyANey7PdpZcZiRXcTm fdlxiHE/s5FB3+z7ALNhDd9L57r32PYos5GN7+P0rZzZcAzWrmY29qJ5mjpl EHsCOdVB0xr7yDkd7Upqcog8y9FKopYNqO1utD0bFWha27NRxeyn0rOI2TzI TNTQ4yPMxElm2zNxilk/V+sOoqPoFIcYHau/5/JFZ/2fI7qIXOfo+ok8rbuK zlH4HnTNXLvz2Ge7fGY4hRnz3HQTBfTQvewueuDLcfgb1T7bROG70nEVWp9r hfi1TlEcvjfTmQvPXh4+05iDLmh2Io/G5FhEHP5WXUAdHEf7KHwj56Jh3xnU wjHkk1shNXOtqmrVtAO59CCOzCj4LCCO7lHQLKHGOcTWjVhdW+/pTi6ubSZz 6edKEXHlE0MVs3CMZ08BuVUzq47jvx7717nlUFvH0Ik8csgrhRq14CzlEpdr 25TcHJffU35v+DngZ4vPlM+Wn/F+1vsZ7me5z1AWM+nZ9HvM7+qd7PG9lsyt z43fcZvx7T2+15x7Plt+z3mP3zl+91RwNqzl9+YJNB3LQbQ2cc8xO1bv8Xt6 bRSeST6H27jmdSX3/C3iZ6z3WGsb57aCeyvRbkhsroFzd4z/AvVboWs= "]]}]}, Boxed->False]], "Output", CellChangeTimes->{3.661064263143695*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"dataVert", "=", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "\"\\""}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dataPoly", "=", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "\"\\""}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.6597217070051317`*^9, 3.6597217412483635`*^9}, { 3.6597217755606537`*^9, 3.659721781601959*^9}, {3.659721814824484*^9, 3.659721864184408*^9}, {3.6597223823767996`*^9, 3.659722388541136*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Given the two matrices dataVert and dataPoly, we can reassemble the image in \ the following way.\ \>", "Subsection", CellChangeTimes->{{3.659839930665294*^9, 3.659839974285355*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"GraphicsComplex", "[", RowBox[{"dataVert", ",", RowBox[{"Polygon", "[", "dataPoly", "]"}]}], "]"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.6597217906003027`*^9, 3.6597218084139185`*^9}, { 3.6597218707640676`*^9, 3.6597218774217887`*^9}, {3.6597219271219745`*^9, 3.6597221713389115`*^9}, {3.6597222219217505`*^9, 3.659722266141566*^9}, 3.659722415232408*^9, {3.659722766778137*^9, 3.659722784278557*^9}, { 3.66106335260833*^9, 3.6610633559683347`*^9}}], Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJx1WGl0VtUVvUCVQZkkCeCK+CQMohWUOMRaea9QqqigKJQSsLxEwFW0ZuEY quATxLrsAqmtII6POoVolDpQRODehAhIBIOgIZDIExIQCRCQCNZQ6rfP/XTn QfLnW9k5OWeffYZ773debt7Nk1oqpS5voVQrhZ/oLye6mB8/g7+X1+oEcNUV O90EbgRX7fN2JHDfLd2bwFX1pFTYf5LxJez7n3OSvUv24bQQuLNo6y78/+aj tW4srktxvcMD4T/ceqAE/k8/Aj9B4dA0+KmZtSqBO28P3Bn3r8k/27tkz/5d 8s95uZRXuOnJNl4Cn/Ea/PhVOw/C38OrgKshNa8g3gd3HEl8mov/1yWBe5nF Bn7q077F/5l7zwa+6ddLYHcs7OTFcM346l+me+rnnyTO/jX5Zz6a+DB/TfzN xLdT4Gf0UdgFGbX1ib9HU2d3S+DhkoWHUKe2Sw/h/4Yr2EfrtsLeWXn+ER3z o8lPOOg54OHKLzfD77qGusSnd7Xg5qbUb8D/PsHZ3m3G3iX7JB/novHIX13X dw0+028VP21SwN9suAJ9ahoaoVsY9CmH3cCij13OK7PyO8S99voq5Lf0OOyN 6hNBx1m317ixuJrisj6a9Eni6p/uV9CnsF0D26vJuYfBL7cfdGX99Sn091L7 HUPc1epr2L//M0/EHS481f3SJ47Tpxxx37vkUFwfTfqwDpp0SOrmTegtfna+ 8TH7D3Vv6OmUiH/m6RJP80MP4H59Curud+2HPvUaBQ8bq9EnQdkFJ+Eu4ezH JT/JuMHho/skr1zU0xndtit0tj9m/aL/xvV3SX/245IfrqNLdTRq4Vkm8Xnz 44gb1m7cIfme6J7A/Wdu+AB5/TWlGH207ob0BB6+fR/yVePqoGsSd9KqilHH aW99hLyeXtjDEH+vXQX23E9zPWDJAVfi1vC8h08tB39VnrOH+UQjl21EfVd1 WIG8DssedqY9VYp+2pCD/aBG2P087829qEfdom3s3ytZVQV+dSv34/8ulP3p DWh9AHkN3P2iprimx2zhfUG3j5rg6xfh3DH3r9qOvDPHYJ7N3F2w91aM3RfP S1NeSTxyssX/lfua2KuC7fXwl14mc239q+wW2CNmyrdy/gyXOqrar2qgT8o5 6Fs13+aVs2AP+NR8uIX1DKaswNx5NzUWcB3VGX0rE3Ze+js7GPcnvPMF+L3l f44490hc76J8+FG9bqkDz3mWz8R/lOL/D312MF4vzfUi/i7x5/60fXJSf6Kf Y/3pPz+lCHhJ5WodwzXhzN9thr9L/Ll/XOqfZF289dWol3PajdsYj1YeE3xN 2nrwL3xG/Pf5V73stXLg0X7bVwcv3Y14J77dE+83l/rN223vLakKfoIulx3g fBNzCv/JOaW+0tRXPI92D9Swzon+h53tfxVIX5ll7bHHnMmLPo3PEeLaOeL+ 0dQ/PKfQLzmntE/g3+4T7mfY237muQNu547nBX+388K6adKN66KpLkl7PzcT uNcjc1mT+o7YW404w2Y16YdE3TXVnftEU5/wHsDvdg/w3oM/u/eCYjunzmeY U/VYbW28Lprqwvxd4s97AHhyD1g+zpu2TwbvLnVjuEs4962mvuV9At3sPmHd NOnGeWnKK7xwattEXHNdpszrY8F+/H30CNGtx+87A7/lO+z7MP3Z05rgj41G fSMnr0MC9/OXw0/UcAbwoM0u9HGUUdEq8XeVsrE+7t9rxr9H/s2uhZ3Zv3po BnCv4zftm/Bp16kunpdHeTEfQ3yiNmPlvlx6jdyvglux782XBR9Jf1WcAO/M Vofi9m4z9i7ZM0+PeLJuHunG+XqU70k8x/RuQN3/Xd3aI9xkhw2n5HkKe5fs VbA2FfHsj3d+DvZVsOa2NPB7tb3cj3tNAO51ngjcZLWX86KobG8T/NP2uOeo lwVX+T2BB51a4h3lj3O3Jf7u93wVePifDHmnlVz/Cepo8ajAYA/4dYI7V60U /IGhcp51qtmqYzzht6PwZHtN9t6oz4H71RmYB+eyTbiPM09NPJmPJj7MXxN/ k/R/RPgHo8Q/x3UprvOQ8A/fOVPuhxtqJG/LX42YXoF98Svhz/41+U/6MZM7 oC7+mbUn+dHkJ3qpFPfhaMoLj0NP+65kXBNu7HvBNBrcB5SbJe8pwjXjWfZ+ klUp58cTV33Bezt8bzHerV75DnmHkr0m+2i/nCNh5SzMc3he4Xb2EywpwPno O49j38f7PLqkf92p5uUnnPi4xIfjus3E1RQ36FYE3ZwODs5Tv83cd6FD/hbR 84pBODeDl6bi3Pbf/wHvO+fO4fBvcrbjHWB+Uw7cL3gdfpxvTns47keTn6Dy B3nXXO/gnPjxB3uJ+WjiE1k82LkW5104V3A1WOKqwmVbETe7I+L6Q6fD3nvk Adwzg9RG1MXTgpsR+VuA/26czN2O1+Xd+uF88FPXjJH3yB8EdyqfXgP7G3t8 Dp2zZgife/PF/x+zoAfz0cSH9dGkD+elKS/WWZPOzpUS1znxAM5df6rE9aaJ zur5rjjvzW7RObJ+zPptco8pEj/hpALhM2G+vP9HnivvMIsHtfMl30GCJ/X0 D+fLPWCm6Blukzo649ehLv6lUkdzQd/u0P/iD1AXf+kLeN+YfoL7+0QHM93i ZK/Jnv1r8s91RP2mSB05X035sj6a9OE+dKkPuR/g9y7pB+bvEv9kn5g7FkDP qFT6xH+xq/T/7JbQx5SPl3OqbVcbt5V8H7G2E+7p3oNyrnn9C1cjr2EfYo86 9YJHcxfDLrxGzrswcyD4BDnffy17c4fcly4V3Ls7DfzNTMGDu18S3cbOgl+/ 3UTc15ypgnu7BsNPUHYbcDVkgMSdt0belbe3lnetxcPgQexNZ7bgZvm1sreX D5BzqGyO3EuT+LN18OstFNy70hU+JTOx51Vqury7syy+YDDOQXV/d+BRy7Wi c8fvgYct+uP7SKeV4OHGVJnfYRcB90fnSf9c3gp1cYpHVcTjuhQ3TDkuef12 AO7lwZ4SfI/r7JFzNpqTje+LotsGbYvn61K+3rHu8OPkHZb+f3leVVw3l3SL HJk7Z/T2MtRp/ByJs8bid1XhvRcNlj7kvgKP15r2VTC3Be4Vaqj0lZq0DnHN ssV49wbLauoY94csRr95HwsevLFCvqdqnbEU/bNuwF7GwzkZS5HPKsG5Xi7X a5To74+chT3i/Vn0D3dbPSu+kHeOI3o6Vn9vQh3ev/4roj/70eSH+xZ52b7l ucDesHNhnm2U/Ta0/iD0GV65OV53zXUnPpr4qKJfAA+uljqq3LPk+787F0t/ vlKFOoZb5L2lMrvJvL/XUupy/OKD8blGvD4y18k9EG0oQL38muUV7Cfo3VL2 xlmXyLlPc4E+tHPB+bqUb5K/nydz7Y0U/uao9K235wl5v02XvuV6aaoX66BJ B55HxLXzaP4k/eONy8D5Eq6YKHu7r8Uf6Ym+Cm7KxPc8ST2jxu1l0CWyehJ/ txn+LvHnOYLu94xpEjfq0gt97v3Nxn1OdAsn3Yj7VVAkuvFcoy52rnk/IJ7d D7xvYW/3Le8l/L/dSxxXU1ze58jT7nPeq+Bv9yrrDB02WZ3tngluqIaeap/s Gd7zsLN7PkwrlD2wNUfe+fPkvuFbPBqei/uPmiG4mddf+iFvs+ylhrPle8fs 1lKvvUNw/oaTl0tdMiL5vvpRsQtPnyF69BI8apDvAcwwwcOx4ifolYk95Z0r fsyTEtcrPlu+FyoWf1HGYvGfnSP3tHd7Yo68FwR3zs/FPdAcF32Yv0v8Oa6m uMzfbYa/S/yTfMKyXLm/pWecxAf4eZOED+Wl+ZP0dJN6/h+ILPbH "], Polygon3DBox[{{1, 2, 3}, {4, 5, 6}, {3, 7, 8}, {1, 9, 2}, {7, 3, 2}, { 10, 11, 12}, {12, 4, 6}, {12, 11, 4}, {13, 14, 15}, {16, 17, 18}, {19, 20, 21}, {22, 23, 24}, {25, 26, 27}, {28, 22, 29}, {30, 31, 22}, {32, 33, 34}, {35, 36, 25}, {19, 37, 38}, {36, 39, 25}, {40, 41, 42}, {25, 27, 43}, {44, 35, 45}, {46, 47, 15}, {48, 49, 35}, {30, 50, 51}, {34, 47, 46}, {37, 52, 38}, {22, 24, 30}, {44, 45, 41}, {19, 15, 53}, {44, 41, 40}, {34, 33, 47}, {30, 51, 31}, {43, 48, 35}, {29, 22, 31}, {54, 55, 56}, {19, 38, 40}, {40, 42, 19}, {32, 30, 33}, {25, 43, 35}, {15, 47, 54}, {15, 54, 56}, {57, 9, 1}, {3, 8, 58}, {59, 60, 61}, {62, 63, 54}, { 3, 58, 64}, {11, 65, 4}, {66, 57, 1}, {67, 52, 37}, {68, 69, 70}, {71, 72, 73}, {74, 62, 47}, {75, 71, 76}, {77, 3, 78}, {79, 61, 80}, {1, 3, 77}, {81, 82, 83}, {5, 84, 85}, {86, 10, 12}, {87, 61, 88}, {89, 65, 90}, {56, 55, 91}, {72, 71, 75}, {15, 91, 13}, {92, 93, 94}, {2, 83, 7}, {62, 54, 47}, {95, 96, 97}, {80, 61, 98}, {99, 40, 100}, {75, 76, 57}, {101, 102, 103}, {101, 103, 96}, {61, 104, 59}, {6, 85, 105}, {98, 61, 106}, {107, 12, 6}, {6, 5, 85}, {84, 108, 109}, {3, 64, 78}, {67, 37, 19}, {110, 111, 112}, {100, 38, 72}, {1, 77, 66}, {84, 89, 108}, {108, 89, 113}, {38, 100, 40}, {111, 114, 115}, {91, 55, 116}, {117, 86, 12}, { 118, 61, 79}, {85, 84, 109}, {68, 119, 69}, {71, 81, 76}, {74, 47, 33}, { 103, 120, 97}, {121, 12, 107}, {2, 81, 83}, {21, 67, 19}, {99, 122, 35}, {96, 103, 97}, {57, 76, 9}, {121, 117, 12}, {30, 123, 33}, {44, 99, 35}, {110, 70, 124}, {120, 94, 97}, {61, 125, 104}, {52, 67, 73}, {71, 126, 81}, {61, 127, 125}, {65, 89, 4}, {106, 61, 87}, {105, 107, 6}, {61, 60, 88}, {15, 56, 91}, {40, 99, 44}, {110, 112, 68}, {123, 74, 33}, { 110, 68, 70}, {128, 129, 130}, {131, 129, 128}, {132, 133, 134}, {135, 136, 131}, {134, 133, 137}, {138, 139, 140}, {132, 141, 133}, {131, 136, 129}, {142, 141, 132}, {133, 143, 144}, {140, 139, 110}, {130, 129, 139}, {137, 133, 144}, {144, 143, 145}, {130, 139, 138}, {97, 141, 142}, {144, 145, 24}, {138, 140, 146}, {128, 130, 147}, {148, 142, 132}, {147, 131, 128}, {36, 135, 131}, {147, 36, 131}, {130, 138, 147}, { 144, 24, 149}, {137, 144, 149}, {149, 148, 132}, {138, 146, 147}, {149, 134, 137}, {149, 132, 134}, {127, 61, 118}, {150, 151, 152}, {150, 152, 153}, {154, 155, 156}, {154, 157, 155}, {150, 153, 158}, {159, 160, 161}, {162, 163, 161}, {154, 164, 165}, {163, 159, 161}, {154, 165, 157}, {150, 158, 166}, {154, 167, 164}, {160, 168, 161}, {150, 166, 169}, {170, 162, 161}, {150, 169, 151}, {168, 170, 161}, {154, 156, 167}, {10, 8, 7, 11}, {18, 17, 19, 53}, {53, 15, 16, 18}, {171, 172, 17, 16}, {17, 172, 20, 19}, {13, 21, 20, 14}, {15, 14, 171, 16}, {14, 20, 172, 171}, {19, 42, 46, 15}, {28, 173, 174, 26}, {30, 35, 49, 50}, {25, 39, 23, 22}, {35, 30, 32, 45}, {25, 22, 28, 26}, {49, 174, 173, 50}, { 103, 102, 175, 120}, {67, 21, 176, 126}, {122, 99, 115, 114}, {96, 95, 118, 79}, {109, 108, 116, 63}, {66, 177, 178, 57}, {94, 93, 141, 97}, { 11, 7, 83, 65}, {60, 64, 58, 88}, {101, 96, 79, 80}, {179, 109, 63, 62}, {126, 176, 82, 81}, {93, 123, 180, 141}, {86, 117, 106, 87}, {102, 107, 105, 175}, {35, 122, 181, 36}, {89, 90, 182, 113}, {73, 67, 126, 71}, {85, 183, 175, 105}, {182, 176, 21, 13}, {112, 177, 119, 68}, {52, 73, 72, 38}, {104, 69, 78, 59}, {120, 175, 183, 94}, {177, 66, 77, 119}, {24, 180, 123, 30}, {54, 63, 116, 55}, {111, 115, 184, 178}, {139, 181, 122, 114}, {117, 121, 98, 106}, {93, 92, 74, 123}, {65, 83, 82, 90}, {78, 69, 119, 77}, {127, 124, 70, 125}, {110, 139, 114, 111}, {62, 74, 92, 179}, {2, 9, 76, 81}, {108, 113, 91, 116}, {86, 58, 8, 10}, {125, 70, 69, 104}, {107, 102, 101, 121}, {57, 178, 184, 75}, {109, 179, 183, 85}, {58, 86, 87, 88}, {78, 64, 60, 59}, {184, 115, 99, 100}, {100, 72, 75, 184}, {89, 84, 5, 4}, {121, 101, 80, 98}, {113, 182, 13, 91}, {111, 178, 177, 112}, {183, 179, 92, 94}, {90, 82, 176, 182}, {141, 180, 143, 133}, {145, 143, 180, 24}, {129, 136, 181, 139}, {36, 181, 136, 135}, { 124, 127, 118, 95}, {110, 124, 95, 97}, {147, 149, 24, 36}, {36, 24, 23, 39}, {148, 149, 147, 146}, {146, 140, 142, 148}, {97, 142, 140, 110}, { 185, 186, 187, 188}, {189, 190, 160, 159}, {191, 189, 159, 163}, {192, 185, 188, 193}, {194, 195, 196, 197}, {158, 153, 198, 195}, {199, 200, 191, 201}, {200, 202, 189, 191}, {153, 152, 203, 198}, {166, 158, 195, 194}, {204, 192, 193, 205}, {201, 191, 163, 162}, {155, 157, 186, 185}, { 198, 203, 206, 207}, {169, 166, 194, 208}, {209, 204, 205, 210}, {167, 156, 192, 204}, {211, 212, 213, 190}, {151, 169, 208, 214}, {195, 198, 207, 196}, {156, 155, 185, 192}, {202, 211, 190, 189}, {152, 151, 214, 203}, {212, 215, 216, 213}, {216, 201, 162, 170}, {157, 165, 217, 186}, { 203, 214, 218, 206}, {217, 209, 210, 219}, {213, 216, 170, 168}, {190, 213, 168, 160}, {186, 217, 219, 187}, {214, 208, 220, 218}, {165, 164, 209, 217}, {215, 199, 201, 216}, {164, 167, 204, 209}, {208, 194, 197, 220}, {221, 222, 223, 224}, {225, 226, 227, 228}, {229, 230, 231, 232}, { 233, 234, 235, 236}, {237, 238, 239, 240}, {241, 240, 242, 243}, {244, 245, 246, 247}, {248, 249, 250, 251}, {252, 253, 254, 255}, {256, 257, 258, 259}, {260, 261, 234, 233}, {240, 239, 262, 242}, {245, 263, 264, 246}, {247, 246, 265, 266}, {264, 267, 249, 248}, {268, 269, 253, 252}, { 270, 271, 272, 261}, {273, 270, 261, 260}, {274, 268, 252, 238}, {246, 264, 248, 265}, {266, 265, 275, 276}, {263, 277, 267, 264}, {239, 255, 278, 262}, {261, 272, 256, 234}, {272, 232, 257, 256}, {255, 254, 279, 278}, {277, 280, 221, 267}, {223, 266, 276, 281}, {227, 237, 240, 241}, { 282, 274, 238, 237}, {283, 273, 260, 284}, {285, 286, 287, 288}, {228, 227, 241, 289}, {224, 223, 281, 290}, {280, 291, 222, 221}, {254, 289, 292, 279}, {232, 231, 285, 257}, {286, 233, 236, 287}, {231, 284, 286, 285}, {289, 241, 243, 292}, {291, 244, 247, 222}, {249, 224, 290, 250}, { 253, 228, 289, 254}, {257, 285, 288, 258}, {284, 260, 233, 286}, {230, 283, 284, 231}, {226, 282, 237, 227}, {222, 247, 266, 223}, {267, 221, 224, 249}, {269, 225, 228, 253}, {271, 229, 232, 272}, {234, 256, 259, 235}, {238, 252, 255, 239}, {265, 248, 251, 275}, {251, 250, 293, 294}, { 295, 296, 283, 230}, {49, 48, 297, 298}, {299, 300, 29, 31}, {301, 302, 41, 45}, {292, 243, 303, 300}, {297, 304, 271, 270}, {262, 278, 305, 306}, {290, 281, 307, 308}, {302, 294, 42, 41}, {27, 26, 295, 309}, {43, 27, 309, 304}, {303, 310, 173, 28}, {281, 276, 301, 307}, {278, 279, 299, 305}, {296, 298, 273, 283}, {310, 306, 50, 173}, {293, 308, 34, 46}, { 300, 303, 28, 29}, {48, 43, 304, 297}, {309, 295, 230, 229}, {275, 251, 294, 302}, {308, 307, 32, 34}, {306, 305, 51, 50}, {174, 49, 298, 296}, { 305, 299, 31, 51}, {307, 301, 45, 32}, {243, 242, 310, 303}, {304, 309, 229, 271}, {242, 262, 306, 310}, {250, 290, 308, 293}, {294, 293, 46, 42}, {26, 174, 296, 295}, {298, 297, 270, 273}, {279, 292, 300, 299}, { 276, 275, 302, 301}, {207, 206, 277, 263}, {287, 236, 199, 215}, {220, 197, 244, 291}, {235, 259, 202, 200}, {218, 220, 291, 280}, {259, 258, 211, 202}, {206, 218, 280, 277}, {258, 288, 212, 211}, {187, 219, 225, 269}, {197, 196, 245, 244}, {236, 235, 200, 199}, {196, 207, 263, 245}, { 205, 193, 274, 282}, {210, 205, 282, 226}, {193, 188, 268, 274}, {219, 210, 226, 225}, {188, 187, 269, 268}, {288, 287, 215, 212}}]], Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm], FormBox["\"z\"", TraditionalForm]}]], "Output", CellChangeTimes->{ 3.6597221828270392`*^9, {3.659722266837036*^9, 3.6597222826872606`*^9}, 3.659722421426817*^9, {3.659722778962765*^9, 3.659722785341281*^9}, { 3.6610633474883227`*^9, 3.661063356468335*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Exercise 3: Rotate the given image about the x-axis, the y-axis. Make \ compositions of two rotations - about the x-axis and then the y-axis; about \ the y-axis and then the x-axis. Visualize the results in a row.\ \>", "Subsubsection", CellChangeTimes->{{3.6610616678886585`*^9, 3.661061759407791*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsRow", "[", RowBox[{"{", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"GraphicsComplex", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "3"}], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "3"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "3"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "3"}], "]"}]}], "}"}]}], "}"}], ".", RowBox[{"dataVert", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "dataVert", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Polygon", "[", "dataPoly", "]"}]}], "]"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"GraphicsComplex", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"Pi", "/", "3"}], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "3"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Pi", "/", "3"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "3"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ".", RowBox[{"dataVert", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "dataVert", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Polygon", "[", "dataPoly", "]"}]}], "]"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"GraphicsComplex", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"Pi", "/", "3"}], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "3"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Pi", "/", "3"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "3"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "3"}], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "3"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "3"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "3"}], "]"}]}], "}"}]}], "}"}], ".", RowBox[{"dataVert", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "dataVert", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Polygon", "[", "dataPoly", "]"}]}], "]"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"GraphicsComplex", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "3"}], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "3"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "3"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "3"}], "]"}]}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"Pi", "/", "3"}], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "3"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Pi", "/", "3"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "3"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ".", RowBox[{"dataVert", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "dataVert", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Polygon", "[", "dataPoly", "]"}]}], "]"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.659722698745963*^9, 3.659722726109367*^9}, { 3.6597234227100735`*^9, 3.6597234512472744`*^9}, {3.659723492835724*^9, 3.659723538281933*^9}, {3.661063366488349*^9, 3.6610633802583694`*^9}, { 3.661063417834444*^9, 3.6610634198944473`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJxNWHk8VV0XFhkzz0pcQyiFUjRpn0/mNEmRIhUl1ZspURS9UZShyBCKQghJ kjLsawjJcM0z1zyPlbl85+77OnX/fH7rt/aznvWsdfa+UueuGVkzMjAwqK1i YGBiQD/qzWUBss6L888LUofhBT6lJ96PayENJ+N4191PTbqbxyHpbUPTvgOh NJyh3VqILDtk5dK+cwCSricmhn6HRHwBs+O7u0Nt0PVD8Ynw28MAx6NdowXI 5QHf0iS218BrUdb57YqjYOVcUXd/1yKXQvieTUT/9/IIDcemtwmR8xIGMmDj IIyVsGPTza+m4R5J2sLklyfOK5UmdUHZ8ccmWUolRP7+EmuXtOlRmHM9hFmR UgpX4rVTio1DM1rhOJu6IGNl09/5H7GL98LUyZJb5wS6wEpdejVf7cYPUmCs 0o6f0ev6Uf7qADZsYaCyuCF9CHLlhUU2aPbQcNKdPDaM4wlDSPGpKZi1rKyy w6+PhpNVfgtg0VPr5HTmxiE5eOxZ0EeUx5LstBbrC7LVN3nESV5Y9Gdx4VuF /YXXanBzkVlW27u6qjAgvHCzOA33N6jgJNPyzkUjHOWnzHHd0g+egh4NsmVh ox1/80kdZJyGegyUKg2Dnr/5h8TfH4P9/1Z6r8GaEU+rt4LYkrpiuun6eTDM K1pndhnFU+29RLGXhqVMdjJzwLJCYYfIIxRveZBBEHNjPiH7qWsRlG41rn/b 10nkGe9MLuUKo4DrbJzDlGcLNP2j90UIYi/fVqg1ivcCZ6NbTPeEBmg4poHj OnxM6ooCTUBH+Sfz5wfTf8ezqHGOA4VMfgcBzxIi3qiIvMWR5zsQzq0T+a1O IfiofNcoiCS1A5bcV4dj5KZRH8XNBbFiFSW5nI3jQNCzQ+UlC9Kf/HNJANv+ 2Gl0u2kCXCcSydF9sY7I06DDa+OztR7I+jIvzBrNIj0zfwlgCar1wee31sKX kxciB5UHiXgblq6ONQqDkPOmrqRd4ThcwSeFTPnyZdqAA+dxoY3SSwTecXmj SfeDGWjW6rb2tW0pkYdrE0VG5PUCDJxjKnxzuhGu6O+9TSrgl1wLMFU1SOER myPypIRJyh90nYFNfLXad5rGUPwHnKeETozJv3lDkNdLvWeVVh6aU2fcJ3dn JjjzBydhoF8qqzy9XqRPnat/ZcI0hL7YtQdaj6eJ/Abji17Vj6YgrkPBBmwS ruimoDWjY61SC/kDyzR8NP/k7wzRKozBz+25wHTs01/6qFxn8fdc+gxGHwxJ x4wuIP0XJQSxAVvL1Xv7G+HX7Scoqep0Pyzh+BFJzzlbBghDT539rHWjhsBN 7WBh4Z5SoPSxILihp4rII/b0RXbs/jaA5zFb/7OPOJfV6x95xrMLkKx8/ZOu RQotD+k4uwj2xtnE7yzvLKqnLGaYiF9rHK17zocKZX+T0/wYFgicm6O9kq9s EN5O/PYLHpwl8JxGo1SVmhH41Cot8vivKcSHIZyfvBBhkS7jOwKDwwMYIko7 0TmLy2JkcsBkacf6L7BN3dL9xtEg5PNSQ3GycPPmGdOM98DXvaHQ/kgzgVeK rLoe9e49+Ecz9HHJoTLUl6fhEuTt7Sq9QUpoT2EcjWg/o7kuHZ2RE7r0AW4P MLHxc58m5n117Ge1o75fobbw1+RdLXSeND6Vq7V1z979Bvn3XktmCi1E+afx PZz7JP60YsQg5H0x6kna0It8cgjHf/CqPLhvMQgt3x5t45LvJM59KfpB7YvL JJy06b233eo92huK+P6UdzSzYDvVBvcLyzf1ug0TOswL6PAFfCmCpeqyFq99 ewjcble1/ILCK/AuiZ3d7c0Q6peqyXfgT31L+UyZhHOaA/4XrXKIcz2MG52D uKeg4EnZ9zpxTQRexE3iOzM2CV2Mq6mHLmQSOCdZvP9WQD6w9zY537oN6YPy z2zUGYzynITPL+RE7/dvQX4+iPdRZDZV6rfRBPyRIsUVII6+IwwheF1hFG8u geJeSM7ml398u4PgL/HTz+gXTznMdpK9H/aog+ijzp4xdh2mXnAvaqOebu5H sIJLvltmetPWDnJ6nyRsmchHujni55KF3x3rOjsJPVbtWz+VdwnpEIjjkmYP TLulxuHW9JkS0eEG8Fe/Yr/CMdiVL5dj5opwxF9p3Hz/tu466H5Z79VO2XHC nwzRcGgDzxZYVq57hPxtgvCDh2TX1g0TaXCJJfla5u1Cgqc3b4CNZkcRwOzl HV85RhJ1cUpJxKixZoMmvgi+QwfIcIX/nS3nLj49QIWMOP3uK+j7TvBn/zUI B+NX7+0z7yX8uX+r7cGNT7pht8P5KuujI0RfVk9JXSzs+wJiw457bO2bIvA9 xT8M3eMawIF1LrcFjScR/6QwfvKevce6ORPqgeZJ4ZE3gginjuF1Jb1mPTjR NAHaHB+dU2WuIOoNFXA/Z1bXD84dFzDyDGtE89SP69kCDiQHCP4Ee/e851Hc 2UzooKP2sP3LuSYguJh8f0spmeD/q8qFxf7YGOzmfHtBgaGf8Fv5P9f4E1Mn oY3EW5Udm6mET1bPnJ69/roNBF7Tu7LLpw31ywP31dwuxZ6ezFIQmg0KjO4N E3PU/ChO6sT7ToDPkd57ryGCj1vR7wClxBxg4aDvpG2K/IbmlDz52y2AGgvS GhW43XtHifiBhx4tvRnfwGd28+Jdni/Bip+xW1+D7H0zAdXc5/3uqCFC5513 YUHFrVZ4ZrBtq37/OIGnHd6qeZ+1CCaIKevpRE0Rutksb343fLQOVFWO/hts 8xOu9KX7bIO/tl0/vJe+ueHIdTTXKD4nJNibpaYbpoQI8uo/Gibm/Vfg8lCu YDf0M5dOM/vwxw/dkV5iuc/7YYjapNMN6T/x8F/1eBnNUai/9Y0d9eUf/fn3 eNzbvaodBmxa68aUNU70/VFz45d7b8MB+3N1/61V6P7gkY/rI2eiGMx9Ga9/ bGMchexO9OXu1h0ly509EO/L7vmIboK/T02Dg9vGVoDzb0p+Mkbkt2f+dKLB rhbge+AO99VWwieV5yjJ7Of64Necz+eVQoYJnla7z8hFJTUBHBeAVROEb40P 86xd1q0Fs+KvXAx3TBBzt3YsQ54RVoA0VWb2j5RuQofbpcvJ6fcmoYp8y6/e jmSiLsPUEwq/mJpByzGDGFYpuj6K9uyY3i3Jj/uiZ2EYf6OwWAQf7V7JcPwQ G3bF30HP8J9ZqDZaFT/ykpeGR4s/Y8Zsd/DHv/H5ScMbOgYRTiVd48a03C8d 2uUwB8/ee2DbJcpPwz3YeobBL5Os1CvbVmHeT15uMpiZByv5y7KKI0R+smCX m164a5ZyYCv5D/TNjF4cYKXh60/vRTi5J5wP4+YMUH6Jofzl7CSUH+MZ5sI2 h1uPXPeaofERvl9E50mr67SmnaxzCBumsiE1irdhDbbCZy2m4ftpQz3cr39U SPkcM+LPdvI7wB63BidQvEFSpo+GC/cP5NuOhC+A9M25R/l3OrRwy7A7w8FI xEt/3GhvfX0KHLsqEHENonsyij8UVCp15PVvkDtn0/WQ7ztY4WmrerDs7iVU V9QaL1QX0s3if99E6/awYwVsfOZfUjmJeudddya8MEZ4uFM0wtG5/Tutzl42 7aHx/FnoM4/6/q6dFXO4zrbl1pZeGm6tXYJwFO8onk6Z/74A4lvkTqQ9Ru8m FP9p971MT4tFGh6SFEGh+7xECKsROFStEt+F/K1wFt0PPYrPC2PGplxxN5nb oYDGFt3jO9E9H+OzEsbKDoefIOHfwR/HtY4p/YX7LWYVlwwMwB9vnG+tOkO/ Z7pI4/G8lyzDLXpBL2liTpmvBn2/pOOEsUB1UvaWdCowzOAevurbjuaFhsu1 bLDhkGoFdh9XX9F4h+JJe3KFMRIjNB8Z6geBetkBjGHtBM80puJngjifFq+4 qZw1hUQ8QwePbGlWHNSLbX/Nvm8E1WdcL4zF17mS8+0KwT5TQ29bdYQjnsbe eky6venAIfBGsrYCfV5ofMqVqvO+L8XCrFOMleGX0T5H/KHUnSD54nwoZ8b6 VL6pD/mHln9uhs3qRkc/8Kjc/expOQQr5266LkHhYhgGbmlh5bbl9LrccP7v i2Vb1uE6Mw+eH2PmRPwtafzlrsbyPI2nAqfwZwEaISgPyk9tlaH8mK0ClJO6 qgNl6FyUZ5d2mtREfgOUNaq01qPrj/KEZDzel/WiECgd+76qzwrxp74oEsHf lQtNi2ROcuJn1kn9TPSu/A9v2R/ezEk20Z4LeP2Q/t6kvRdqTymONrG2AatS xUyJEvQuW8GNPx1uApXrhmPfGqN7O3knvie3lSytv6iSDxYSAvTmkseIfZ7k J/u6+u0YHL/b4vAhAb3HUfz2Sg9TCb8BiMfvVA1A+406hn9HZn61TwTlDENB rk+uLHF/9h65vadDyyIRumFlslEK04TP+S+lh2Q1/qD5XE0ptZPAg/WCPry6 U06bF/dYxhn4F587Vl5D0Cfviff1h/T3L+1cY15ezy27M4Gvd1vsGo1Jgv+4 xOwFA8lJOO8RPCT2FenpIZoignHYsL7oPdUKZnic7nNUdqO6XOpEsEN98fbs jQOglZ03akMzwi0/LIpipb80D3aBAcBs3ZsSdAndi8j/o4hipo9Ozkvi72LH LKcAY/p9CeUptbX69CkyH+J5zH/yofemR/OiCJYA27SiWEvATGfoF0nWcYLP TOhctHpvDcT5BH0DyCdUGp59ZKSqV7IaBNXf2NDcVYvmVBM/lyqo8bQl4Cvw k5efSdxUj3hqu4tgmxk0nGOZmyGv9btnChxxyM8QxwfSC9w2w35oc8nFWZ8N 4aTO16LYnSBgfHT/ACRL218QHHqA5toUx49JcLU7TzRCuxaRFOMphFN33hbB NoT4kED7CPRl/XJb+VQdwYc0UmDr2lUC/eRfWwzE18MVfRIc44tV9jZCx6yM 85YRvURdvhYbLRcP50O8rgq3L+hdgHTuZvthoKhWCnGd/bRMkD6kXfi5W4U2 M/8P55+sy1aSyYH6jrniOk86Rnxc3tEKEpq5DQ3GYhBPWh7yLI+fwVAjiH6x qcBXJQLVZZ0gimnajvtdwOvV9VE+FPy9h8DVRg5U/x4chV4nM5S3mNQRejJq c0qWB1VAu4yYmnh6vdEteB9Vzbq3Hy0aAEfqde2Wn6N7GnmTvBg22jSjvVtx ADDEXem0yYpE+EYcJ13TmFz/qgiMcsefOXYA1YXim96NHdCKqgcK1ovxrv8i fVD+CxlF+jrkenDcfbWJ7CbkB9RHaZ7aMV2WZmjrGpZVS9cB1esxIWlWNlsE FhKlRz/4I/2RPtQBtWvnjUvAjlZP9sC3TYQPh5XVj27rHgWjUPkh4K4j/MDh rC22ebIRXt9z4XkmXR/Ev/QUT1s6ZRQ0rTcEb07VEz6R6CoMEdb/CttuCHSn /KfbcxERbHx4yiu8sAF+bq7iLmVE730PdhwntV+KXHevCFrYmvuKmqN47Bb+ XRNVcZmO1K6CaqpGZZ707xppEscxRXtfyo1m+FzqIuveDDSP0arbxLACuSC3 oqsTgFH/fx+unqPz2Y7jywah4uPOg8B0kLlm/EccqtfhhQg2H7OkOK41BEj7 rDGOXdHIV/Y47iRjP2jkNQE0HxqqlsTQ52u/shCm0ktOGDIvBZu1Wo989KR/ j2h4i/Q819zHahA2ZR5UnIm+O+TPesJY5ovL4hoaTWDf+0WD9PUIZ6Dhlke+ fjxKKQcCeeZ6CjGo79guIIIZKpxefwIrgq1nOhd0DtLnZSeOx8sbk71iGqCd vnjV2E36HmAsEcWKwnTX1Lu2wcl4h9iUKOQTEhOOa7+M02IXqYBD5cl8qWur 0Rwdv4brLDMmdfpDMxD3sAjm548hzs1ofHVO+UsZwM9N8rqM6o0W/CWEJXyY 32+mXg+w4JfXXJfo95AB/Dvre8+x+clAByAn6+W5vg4EK/W2Vu3wv6U2BMgX nc/ULz1GfZwTE8KMFe5R+SO6gUsYeWpBPxes6Hb18dKJHLFBUPRo4tmamwin kvC5Y1FV77ttWA/3ajkLqxukonqLcfxh9qezn4MHYVqZHEODIcKRr/6NvXFs pHsAqqgvNvvkB8MVXyU97wqrLWiAHr45PFK5CGewLhXC6k5Jhc7cHIGnHd/L cdN9hXCHd3HBcYH9sJCP7zyJ7iuPNzmCmPKB6n/yr/bCHQaHLLIX2gl8emYy XmrbAFxbURGYalUHVvpl1vQGJvY0A7xfktK+aP9TjXH9eW8fefPt1BDYdnu1 7btQ+ju6H9czuLm+1klvCEQ6MVXefoT+HyLR9J8tF5JZWNMJPEVM99R5dhF5 8ljzaoSfF0ExwMj8gzRJ+JbiVxSTx14BKNK1j0zWIhzNBVuE4fTD6q8AMzqy fpce/f/AZ0ui2D7XuTKXOxXwyYMIv9DD9Hjauec2itkldr6HeN+Vx8xb4Qof /gt1nx6EV0CczzH3bXQ/p6wWwvK8JzR68jsBhe9Hb2Qb/V12JRH356611+of TkCW5NxSafoeYFAVFcHSv22x8pUZh7WPN5v6nP4z11bDyulPcP1J/X4+KVVJ xB7wJn3A1PB5txQVN7lSnUTk2ew0fn5VzwC80l0w/4q+T9Bc7L2Y5WTgUg/w uWi6+or+vzGt3rSu/x28GDgIZPjUIx6kIxzx99hzzL+P7R2cDKtJuVlAn99Z 3LcMG3csnZcIAt/jc38+uY/mHfXrtOrRs6KOGRDvl1LAm3FCB+rluY5TtsFg kO2mw53ZLmIenbMzZuQ35gF8Ho8yyKG9RL6E+8cWTtR+wH2lmHZT5kLUF8Rf HsfdWZmL7n9th3eXD5vE0XGkZ7D3W/N63P9FN7hklvf84R8YtiPVKK4bULfG rYt1aAEr/PUSu860yAyC/oO3DiTcRjiaI/K6vB1m+H55c4XRUmFvP3EuTyrH qkGsCYasE7acpvvZIwLXjdOmUjBTqx6ovb0vn9kfD1fm2iiGV/Pq/VLAI7CT +/EUvV7afhBkH5hmX1sByn17b7XqtRL7dnr/fOhdllYgkTyf7WrZR+wlTKdF 5u7FCrCk7FRxexvae+hcUUqkD8vuMiDGwZPdsESBK/v891Ol+UuNLeBmTGeN qkcvsVdFjaevppLGgZxbNq+EfA2hc2mV5cVuXM/h15pKrfT5RXsmT9ggVPdW Lly46f+s6D9/0vYS5y4VgzUdw8D0QWbX8x/Iz9HCSYLYIF+FrBTuDwWZTcUL zOg7aEnD255sCn7aMgIlBOId+v/bA4FKQpiFjof4gXWtoDmmu+RIDvIVZsYq hDlPjORK8FYDirLkxO9+pA9VhiqI/fvrAbD7XAb7FeyVqNUoniSL4w/SVs8+ tEyEzyS2j9Qtofjok3ieyL7v3cs+w6COfEzxHw20H8gB+Lm/3TtCMgImwNJi Tkr/EOJPlUkUxPYUKR98JNUMj6QEJZyeot8Do3Bcp/twCydeV7S0T8bNiTiC v7IMdsj8xjAg+5iw7ku8T5y7Mz6fov8kCeLnfnN/NkHwf0Febzd4mQpw/t4W 2+h7jMZ/4pLk2d74BoDzX5OW+4ePjbyrSnZXBbS53Kdy2rqO4EO9OqanLN0M G65+7BVh6SHqWqnnv/oIPbNnf2ayn6SCSea14jNXfOH/ARYFp5c= "], Polygon3DBox[{{1, 2, 3}, {4, 5, 6}, {3, 7, 8}, {1, 9, 2}, {7, 3, 2}, { 10, 11, 12}, {12, 4, 6}, {12, 11, 4}, {13, 14, 15}, {16, 17, 18}, { 19, 20, 21}, {22, 23, 24}, {25, 26, 27}, {28, 22, 29}, {30, 31, 22}, {32, 33, 34}, {35, 36, 25}, {19, 37, 38}, {36, 39, 25}, {40, 41, 42}, {25, 27, 43}, {44, 35, 45}, {46, 47, 15}, {48, 49, 35}, {30, 50, 51}, {34, 47, 46}, {37, 52, 38}, {22, 24, 30}, {44, 45, 41}, {19, 15, 53}, {44, 41, 40}, {34, 33, 47}, {30, 51, 31}, {43, 48, 35}, { 29, 22, 31}, {54, 55, 56}, {19, 38, 40}, {40, 42, 19}, {32, 30, 33}, {25, 43, 35}, {15, 47, 54}, {15, 54, 56}, {57, 9, 1}, {3, 8, 58}, {59, 60, 61}, {62, 63, 54}, {3, 58, 64}, {11, 65, 4}, {66, 57, 1}, {67, 52, 37}, {68, 69, 70}, {71, 72, 73}, {74, 62, 47}, {75, 71, 76}, {77, 3, 78}, {79, 61, 80}, {1, 3, 77}, {81, 82, 83}, {5, 84, 85}, {86, 10, 12}, {87, 61, 88}, {89, 65, 90}, {56, 55, 91}, {72, 71, 75}, {15, 91, 13}, {92, 93, 94}, {2, 83, 7}, {62, 54, 47}, {95, 96, 97}, {80, 61, 98}, {99, 40, 100}, {75, 76, 57}, {101, 102, 103}, { 101, 103, 96}, {61, 104, 59}, {6, 85, 105}, {98, 61, 106}, {107, 12, 6}, {6, 5, 85}, {84, 108, 109}, {3, 64, 78}, {67, 37, 19}, {110, 111, 112}, {100, 38, 72}, {1, 77, 66}, {84, 89, 108}, {108, 89, 113}, { 38, 100, 40}, {111, 114, 115}, {91, 55, 116}, {117, 86, 12}, {118, 61, 79}, {85, 84, 109}, {68, 119, 69}, {71, 81, 76}, {74, 47, 33}, { 103, 120, 97}, {121, 12, 107}, {2, 81, 83}, {21, 67, 19}, {99, 122, 35}, {96, 103, 97}, {57, 76, 9}, {121, 117, 12}, {30, 123, 33}, {44, 99, 35}, {110, 70, 124}, {120, 94, 97}, {61, 125, 104}, {52, 67, 73}, {71, 126, 81}, {61, 127, 125}, {65, 89, 4}, {106, 61, 87}, {105, 107, 6}, {61, 60, 88}, {15, 56, 91}, {40, 99, 44}, {110, 112, 68}, { 123, 74, 33}, {110, 68, 70}, {128, 129, 130}, {131, 129, 128}, {132, 133, 134}, {135, 136, 131}, {134, 133, 137}, {138, 139, 140}, {132, 141, 133}, {131, 136, 129}, {142, 141, 132}, {133, 143, 144}, {140, 139, 110}, {130, 129, 139}, {137, 133, 144}, {144, 143, 145}, {130, 139, 138}, {97, 141, 142}, {144, 145, 24}, {138, 140, 146}, {128, 130, 147}, {148, 142, 132}, {147, 131, 128}, {36, 135, 131}, {147, 36, 131}, {130, 138, 147}, {144, 24, 149}, {137, 144, 149}, {149, 148, 132}, {138, 146, 147}, {149, 134, 137}, {149, 132, 134}, {127, 61, 118}, {150, 151, 152}, {150, 152, 153}, {154, 155, 156}, {154, 157, 155}, {150, 153, 158}, {159, 160, 161}, {162, 163, 161}, {154, 164, 165}, {163, 159, 161}, {154, 165, 157}, {150, 158, 166}, {154, 167, 164}, {160, 168, 161}, {150, 166, 169}, {170, 162, 161}, {150, 169, 151}, {168, 170, 161}, {154, 156, 167}, {10, 8, 7, 11}, {18, 17, 19, 53}, {53, 15, 16, 18}, {171, 172, 17, 16}, {17, 172, 20, 19}, { 13, 21, 20, 14}, {15, 14, 171, 16}, {14, 20, 172, 171}, {19, 42, 46, 15}, {28, 173, 174, 26}, {30, 35, 49, 50}, {25, 39, 23, 22}, {35, 30, 32, 45}, {25, 22, 28, 26}, {49, 174, 173, 50}, {103, 102, 175, 120}, {67, 21, 176, 126}, {122, 99, 115, 114}, {96, 95, 118, 79}, { 109, 108, 116, 63}, {66, 177, 178, 57}, {94, 93, 141, 97}, {11, 7, 83, 65}, {60, 64, 58, 88}, {101, 96, 79, 80}, {179, 109, 63, 62}, { 126, 176, 82, 81}, {93, 123, 180, 141}, {86, 117, 106, 87}, {102, 107, 105, 175}, {35, 122, 181, 36}, {89, 90, 182, 113}, {73, 67, 126, 71}, {85, 183, 175, 105}, {182, 176, 21, 13}, {112, 177, 119, 68}, { 52, 73, 72, 38}, {104, 69, 78, 59}, {120, 175, 183, 94}, {177, 66, 77, 119}, {24, 180, 123, 30}, {54, 63, 116, 55}, {111, 115, 184, 178}, {139, 181, 122, 114}, {117, 121, 98, 106}, {93, 92, 74, 123}, { 65, 83, 82, 90}, {78, 69, 119, 77}, {127, 124, 70, 125}, {110, 139, 114, 111}, {62, 74, 92, 179}, {2, 9, 76, 81}, {108, 113, 91, 116}, { 86, 58, 8, 10}, {125, 70, 69, 104}, {107, 102, 101, 121}, {57, 178, 184, 75}, {109, 179, 183, 85}, {58, 86, 87, 88}, {78, 64, 60, 59}, { 184, 115, 99, 100}, {100, 72, 75, 184}, {89, 84, 5, 4}, {121, 101, 80, 98}, {113, 182, 13, 91}, {111, 178, 177, 112}, {183, 179, 92, 94}, {90, 82, 176, 182}, {141, 180, 143, 133}, {145, 143, 180, 24}, { 129, 136, 181, 139}, {36, 181, 136, 135}, {124, 127, 118, 95}, {110, 124, 95, 97}, {147, 149, 24, 36}, {36, 24, 23, 39}, {148, 149, 147, 146}, {146, 140, 142, 148}, {97, 142, 140, 110}, {185, 186, 187, 188}, {189, 190, 160, 159}, {191, 189, 159, 163}, {192, 185, 188, 193}, {194, 195, 196, 197}, {158, 153, 198, 195}, {199, 200, 191, 201}, {200, 202, 189, 191}, {153, 152, 203, 198}, {166, 158, 195, 194}, {204, 192, 193, 205}, {201, 191, 163, 162}, {155, 157, 186, 185}, {198, 203, 206, 207}, {169, 166, 194, 208}, {209, 204, 205, 210}, {167, 156, 192, 204}, {211, 212, 213, 190}, {151, 169, 208, 214}, {195, 198, 207, 196}, {156, 155, 185, 192}, {202, 211, 190, 189}, {152, 151, 214, 203}, {212, 215, 216, 213}, {216, 201, 162, 170}, {157, 165, 217, 186}, {203, 214, 218, 206}, {217, 209, 210, 219}, {213, 216, 170, 168}, {190, 213, 168, 160}, {186, 217, 219, 187}, {214, 208, 220, 218}, {165, 164, 209, 217}, {215, 199, 201, 216}, {164, 167, 204, 209}, {208, 194, 197, 220}, {221, 222, 223, 224}, {225, 226, 227, 228}, {229, 230, 231, 232}, {233, 234, 235, 236}, {237, 238, 239, 240}, {241, 240, 242, 243}, {244, 245, 246, 247}, {248, 249, 250, 251}, {252, 253, 254, 255}, {256, 257, 258, 259}, {260, 261, 234, 233}, {240, 239, 262, 242}, {245, 263, 264, 246}, {247, 246, 265, 266}, {264, 267, 249, 248}, {268, 269, 253, 252}, {270, 271, 272, 261}, {273, 270, 261, 260}, {274, 268, 252, 238}, {246, 264, 248, 265}, {266, 265, 275, 276}, {263, 277, 267, 264}, {239, 255, 278, 262}, {261, 272, 256, 234}, {272, 232, 257, 256}, {255, 254, 279, 278}, {277, 280, 221, 267}, {223, 266, 276, 281}, {227, 237, 240, 241}, {282, 274, 238, 237}, {283, 273, 260, 284}, {285, 286, 287, 288}, {228, 227, 241, 289}, {224, 223, 281, 290}, {280, 291, 222, 221}, {254, 289, 292, 279}, {232, 231, 285, 257}, {286, 233, 236, 287}, {231, 284, 286, 285}, {289, 241, 243, 292}, {291, 244, 247, 222}, {249, 224, 290, 250}, {253, 228, 289, 254}, {257, 285, 288, 258}, {284, 260, 233, 286}, {230, 283, 284, 231}, {226, 282, 237, 227}, {222, 247, 266, 223}, {267, 221, 224, 249}, {269, 225, 228, 253}, {271, 229, 232, 272}, {234, 256, 259, 235}, {238, 252, 255, 239}, {265, 248, 251, 275}, {251, 250, 293, 294}, {295, 296, 283, 230}, {49, 48, 297, 298}, {299, 300, 29, 31}, { 301, 302, 41, 45}, {292, 243, 303, 300}, {297, 304, 271, 270}, {262, 278, 305, 306}, {290, 281, 307, 308}, {302, 294, 42, 41}, {27, 26, 295, 309}, {43, 27, 309, 304}, {303, 310, 173, 28}, {281, 276, 301, 307}, {278, 279, 299, 305}, {296, 298, 273, 283}, {310, 306, 50, 173}, {293, 308, 34, 46}, {300, 303, 28, 29}, {48, 43, 304, 297}, { 309, 295, 230, 229}, {275, 251, 294, 302}, {308, 307, 32, 34}, {306, 305, 51, 50}, {174, 49, 298, 296}, {305, 299, 31, 51}, {307, 301, 45, 32}, {243, 242, 310, 303}, {304, 309, 229, 271}, {242, 262, 306, 310}, {250, 290, 308, 293}, {294, 293, 46, 42}, {26, 174, 296, 295}, {298, 297, 270, 273}, {279, 292, 300, 299}, {276, 275, 302, 301}, {207, 206, 277, 263}, {287, 236, 199, 215}, {220, 197, 244, 291}, {235, 259, 202, 200}, {218, 220, 291, 280}, {259, 258, 211, 202}, {206, 218, 280, 277}, {258, 288, 212, 211}, {187, 219, 225, 269}, {197, 196, 245, 244}, {236, 235, 200, 199}, {196, 207, 263, 245}, {205, 193, 274, 282}, {210, 205, 282, 226}, {193, 188, 268, 274}, {219, 210, 226, 225}, {188, 187, 269, 268}, {288, 287, 215, 212}}]], Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm], FormBox["\"z\"", TraditionalForm]}], {194.4, -189.}, ImageScaled[{0.5, 0.5}], {360.00000000000006`, 360.}, ContentSelectable->True], InsetBox[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJxtWXs4VO3XHjNmxswwGKdUQk5JCR0I9TwUhRwL9XaSJNUrKUklJkrpoIMi 6pUkKaWDzg57iIpSREo5xZiIKErOvv3s/b6774/fX67rvta11r3uda+192za vkEeG+g0Gm2OFI3GwP9m7A1ZWXJsFFvaqHgxLVsgwiGalXkzSPNwCU07RxOd yZ0f5+JM4D6guB1437sblTyZLrqskemnuluJiDfWaAZrbt5xaPRno/iC1V4K VPyqjStuh3ayRRbnJtmfipYn4qt+t4LpRXaC+EcyoowCnQatdnmqbjWDvy55 mrRoVtCOvuSrJB/Wz3bQPGm3NtzOFCmeWrypMoaoq3XLrBksNnXWHMgcxSYu kX9eZy2g8k/6HNOgrM7G4198KJT9Ez9t+Mckx7kslN9UV+FP/mtOzvs0r8mg vi7UJihSfQ2k5mzS+NIHtDNbDBgiJkR91TV3A11a26LC6f2gnPvTLiWRwIWP t/wEFckLa9mqDLiq7dBWYbwiwmnfVXsBSzpY3UaaC40+1yTUctQQLupPVYCD Q3EZoJXA3SUvVCkc1Xk6TRYq6gVeDfIfR+EmG3IzVkikUf7qULk/+evG1Pqt XQcQn7lyC//wYa9dUnPQYhDxn/mmTJrif/R3r+eROb/BsjLxtbrDykS8Tut3 bJnkr/1/S2jQzWGX6+UggmcT58EPLK73umVFzy/waO327oBvSgjXyp/yE7OU ZnkeeCoHM8+U5vAT+FSelOqGA5JCFvTQzWLEziV4Nr341YldThxM64Bc6F1X lTPFnOiTthPHfY20cxNC6Ci+PmSXgIp/UsF9otExAvD4l293K1Hxg7arFLZa /0Z8dr3LJ3FHg2cgFDs541v3AKgZUtljUkLgonLzBkxj3w3++nl0aM6Z/zGl gtTN7GYpqNs5+Jln/hPlcQ2dTujQtNipDnxYIPn7RgQN0jtt9wZ7EHxSozeK QXRD5cP1vrJwGyZec6Zcjqo7N+Z6mhlbDuFbA7fKUfo4mi2Pc85jQzx/vNd8 ol/hde4vIIj0OWzVx0Px+ixZQjeRr+FPUHPM46KVQAHpb2DOUaL0Dy0OOXUw lI/ivf5KliXqPqW1gSl56vFYOBua9r0zuuNM5Ndyxnm6GHPBaD4TGrUEJsW8 IeveM/0B7FLNA2yKePDGb6P0VTR5Sh9BCf2NcivBP9ujS5bSYf+yLo1NeUyk 2yfwmszTnFUKFumDmf3z6Sh/YmsloadWEZ5feZfq6qnKvUjPvdu9lSmeZsc9 7c4Wc6BZq9oLvUSiro+aYTq2w2gJPGHHgpYNrTt6ysn8L6emY8erc8CmfimE z3vLE1D4hdZlO4t7hkFSD++7CV+JyoNVt3bt5nMJfS7p/duXbx9AvDw5bMgo Hlk3r5f0Q9mlQVAnBYIKlPsRz/gLKUqU/lFes9JsxEMIH3qtqETleVB+1dR5 IQ3NUcnBX0DN8bx6HW/UbgATbb+4LauKuBupra8bwUnAPHvPjSPausVpbe0D VYQLDykXAleTg2pCU64o/Kqd0QcNdeLOrOyswGqPSrpdPXk4XsI6XzqOuFe7 s0sw1N/ZJL4oLcBBoCIcj3DIfd+CnfvsBoaOStBeawRN4ECyrhiEVgVK1Ca2 I3x/bp4MoX/Fui8AyD6OdfOSwfnwQrXHCD5NBfw8UGywt5imwRSNfJTWejhG 3O2m8nXdYMqZDtr5pmEsMtrorlUncSdh56WPIPjxnSBO6SjKz9m3m0Ho35n/ DTSEdD68UzqCxZcnnajcqEz0ZSZJwfg9ofOUnjHxukfHn85TI/SZOq4EW3Y2 31DancA/rmogcFFowSfMJKRrnOviHnDm15LVvce/oPnBvBUdYPJRv4yXi+kQ r1ur+lqK6iv9CGtvVBgN4Yp6H+mEDnM7OsCkXrdrOZ0tiOf0peGEPqKJL+tA pvqMKcxXv1D+fLnIFpRftLm3FdiWrZQUGQxj6922/ROziZhjk7JGGzicqZHI dKSJNDc/TzSRIvqC4txqsCn4vOs6HxbiX8M6SfCHbsOZWOcSm5Rqpjyar1fP IxKfeLcRW2Ic6/eskI/wnMRXpA7ZPu+wMZ/gRUBxFMtI1Xwlq0M+d3SXdgL7 mlHpneFSomJti7HuQGIuqT/edgPrDweGWprpaF7tjumK1Lwax7899mgSW/Qs tWkwPlmO4m/Wq7iHfkJGJGydb2pbIkv5c5to8KvtLS7O/+VIhvsff066ox54 664szrNVUeRH+FBYVPsUa3aRvP0sQf684nj24h9c6Lpo4uKpLNESG7CYP4VP 8X9iKGWV9YAhOrxgW8G10/IU/xP2LhVJXj1oLu6eimzKP6d9vUzrC6qwsj0Z EUXGA8TeMl0/gmmBTaaWE6sR7mJtTeLPVMvApWlH30W+4ogyFm5WNpYj+qJN rCgD859P4Ra+5otua/1t3KqlQtQd6/2C3dhs69WbzUfzitKZqkL5LWBjn2Lc N65Ickr04stlgr9QaXYXdufNnimKAcS8TPdJ1Kg9tXiadT/9DAP5bXokX4ry VfJzo4q3nYQ/560PkqL2sUcu1lY8l6hr2+WkQvlf0nUiMpbDE63/6vH1pYSY r5b/pTfgVAlHHNHKE+F7dLUjQ4Hao3uVoZ/K3nMQn2v55uqUfzpnH4l0ieOI RlneC5cGylN7ahCi7mazUA7dE88nln/uSZh3c4D+fi7yc9BCviLlZ5n8ccGw 6zbAdeYXPvpF7Z11eZjNyYynSP+GmaLf1L6YmirVhesOYr2LfXQH3JUo3Qoy 2pdllfZhSyfPPqI1Q0DN5fq9X0z5/gEUX+G7nIiHk2Y+Aq9iQ7He46WoriV7 30+Un+YQ/Q04TQi7YbOmH+1p/XBMEzX39HOef3+1J/B93y81UT559LXHIcX4 O/KVw83bbOoOFPba92Vc46G792UN58/d6zvjkekxTl5U6JAeFZ9DzjemtRWb NbmJ9i1qDMPnQo+eokzNJUuPOVLM4CGfbFNO5FP8E+P8TBIuyqH5xuwOU6Hu gNmtrogM0id6Ef/6xFZSDMwX2B24Qd6l2cv+vUsIL7J4f3+8KRP5Vj/6ixrl W+Wcgkt58cTcWeud1Kl78sxYMTNE7zvSgbmR+ZXSjbvlprfJfg7R1303daqv c4L3ySs1VWGqUtgeq+sNxHxjhN+wOZ1v7k5QU4FTXMPu/XOvnsCX9rUjPFlu szLcVgl1jv0oIeM9u7B1Bw4v/FqlBrcNRZuti+5CeNMvXhcWczqNezp9CDNx OvnozN4xgo/y6+/Ylg8XNzQ3Sol6DizKDTAlnqdEfhw/OzqXITrGGm+TxSSe p//l71RiqsM5th6uHdGE32jhEV2Ijy03QhWWWcXPatP5QfDhKnRiJnrZZ4+W 00WW+6/u6tJQhv/1tcDBXY93VBpe3NTI99/QhP3H5/qD2J0XLvcD1R3l83Wt CP80CVeLsfz+AOecb8PA7MZ+yxz9DiJ+JuMHlvFR38tl6jvs6GN/4LVh4P/H 70y0GMS+GGJRtQt6wH/xNbfBUa7uKNbzWvfbuIsq8D+eRTKK13IspERbI91i xEeI93xCtwOKk++KboxgcSerZ+44T7znE/3+L57eer8wz0/Fp/02M+BwQPPP WStohH/+Sv31P3mi+JunO2eZlX8GeLy02ogMFY/qCJ8z4euwJy4xdaT+U9aJ wZrl49enyjChfnfgUaUX5PuV7loxsNmZqLf/AROKOXe0LRIIXHjzZTuImnpq 2xX8juO4At2MfA+/jOPiCc2Oq6zpsHJ3qleQEzEXn5XgIxZqWBAXqkiHiU+F mXe7yN8dRU6vMMGmyBPn/2bAgMffboQfIeM7cbwrQaZoYK8UPKjy9veN2YSe IgXxByztauuFzgI24rkqY4zg7yOP8xRs+r0vfJSH4odGpgmoeAXV+Hkym3hw 2gd7274dBK41u/IzNlGscT9ehot42k8n3zMJnl0JwtvX6jmIz6Tt2QKKz5Ea G9PXFjzE/56Vo4Dif8zQOLrkAgOWP9Waan2P7GsZnv97+9+2qTZ0VLcreJwK VVdYaJgkg+umbRenF03uhbBcXA9mGUWX2plJQy8e0IaBRJ5US5x/SE3lcIsc F+UXT/sgoPLnzravbbnPxPO4LH98lpyXbGs9eFUd3meymIPy2Gz5JaDyeNv1 33K5xYaFaXPeJ54n8hO/K689YSv8qEX4M22HE3/wmDzfXG4fAy6un8gJFpG/ m4BFA7ZnwT/FxsXSOH5BvvvAH3z+Vx2TAhZXFFA2tD/JgHgeaR2xqgGxBadj RD0SdK8MD2zuJva3orEbRBs9uujfPYTNah0p7uUrUfGhu3VclTf3Y/d6hw8u 7SXfq7WvfwJihofk0/tXxHsCZ3M/yuOjdbgF/A+fN5kad/6vfSHwrqiP2512 NaLnTmZY2Q+Kj92Crecqh2VEAV8GLt8+KEvVDYdlF4x7+ojnjq9RM1WXPpyW tzqLDldlTx9Q6CXm6yMTl4PFjuT6qDyUglWHazzlNhL7LrwYXINhkpjlyZfp kOl+3vvWLvI7wLpPVVhLZbK20R0GfE9TL77zm4jX+sqMxHbRF2rW/ZBDeVbY NwqoPKO/NwRfGpGFnS4rvMFScu9oNDE2yli9oCpbFvGZLS+vRPFxYVYKLzdL QxVN9whXV4JnahyO8yfkfJ2iw4KZfQdLhm3Jun/JR2J/W55VaTgnA/MPPpzz nEn6WWW4Bvw1Sf8r6z4HXkm9777kHulb+5ViUB+X1NGgzoNri+UaDl0hf/ct 8hYD/TaPBUuaOPCV0alPwWNkHtdJ74D8WgNRQxKev8TeMYFF4mssvoEe8RKV lft4iI/e9ofKFB8N4w1rlnfLIX0e5dGVKX3uDhqDuF1c1JdX5V0lqi8b9d0b K5bKI52rpF4rUTqrdM1LTvJlwbjcmW7Lr5N3Jhivm1T85voVPRbcGXL7wWFN 8s5IcJ0Lr+/tSzrEhletd85YyCf0gTfxPNkaIY82B7Fhz6ojObz75NzdNbvA mxBO2cbPHBznpnrRCFw4H8e3l2bdOreOhetpzoy9Ru51FK5nVtN81eWmTKh2 6ennQ/Fknln4HB/o20xm7GHBthXjehfGEXV9HvzTguVGtze62PPhlSi/+iFn ck/34bhjbcFqj2oeiu++Q1eh4j01Cw1XP+Oi/Jr030pU/ozPtWd32TPRHOdV DpF6bsbnCDwPlFYGcVG/tYHmKlS/G61M3i2J5iB9al7qK1P60GWS4xQH6ciH Dxebq1I+1An2X9Y4m4X8cK6X1K1pK+4Hu3DVVGkZacTfYcBWjeIvfSrf1HUr G/eJYrf+PaJuUzHuk9OcJSExvtIwoiis5vZzsm7FKjG453GvYXseEx7rjWqd sp7023OFKpD0+P65sQfS0M0y/etUI/I7lUPue3DOXF/AvcqAHVqaTTP3kD5Z hD/vmmq8942WMmCOy8+ei+sIPj5Wja3YJbXFjHGvWbBPL9OxIIr8LheF4/1n pFa/U2LCmfcv0VaYkjpz/STYua0JpQVr6NA8sGz2lgFy7i/XSzBe5ZwPT7M5 cPcRhSt2suR3sI3sFsw//D2UDpeBjsJ9rW/9yO8nB3G8orOgIXASB3o+tRjr 2UPe7ZfHW7GDQWpf3QAPtnz+cTijnoiHSTg+1LGS+6yMAy++2KZWtYG8AyoT U7BVguf5HyNl4Whdgi32D5GHFqqeguVdu+CqP4MPww2H96a3kjpIGd8G/yTN ZvGNeNBZc5PloWJST4fptwFtj/s59/ksuHjpLfXUy6RPCpe9x5jK6Ttv5Eij ugvG6pWpumE3eXO2GjDgDN3qDRvryPvwpagIy9ga3XVntTS84eg+GJVNftda P/8jZqJkc4m9g4H6vfjv+xvRr/VQsFmKPx2++KV7q1KO9O3lk3VYcvQUENUs hXTrPrJEidJNsXbFAc2pXFjiHOHN6SDvyarjFcDoPO1M8w0elG85PzI5nPy+ Z4v7cGtfjtODVxzkq7DD5uR9yMB9pbJbU3A4WAb5KlLlPKmnHe6rM6cMnT5+ YMGD7OT8K3HkHX4k7gQncq3k+x5K4/j47B+k32Apjj+eM2eas440lHSwwh5q k+8hL2a0g9X2kp1yXkyEu0wtJedYgOPp3yyKEkal0LwsBRkq1LxCmiLuaFfT YMZGz7bnM8n7E4jrXzs5skk8gQZ5a3clT2gn90IL11Nr0LArliUFj1sMltzd Td63dFz/Y5r7+Ye5fJQnb/V6AZUn4NSmUJ0mWeTbcv4PAeVbLcPMooBkPtqL oh22ytReOBSXP6iUyMNQt5Tm5HRSH+faKuywx09O7lsZNPcJO+YKqLk3MWvc U3q5iE+9/gVFis+zfesW9OLPx1071865akDm8RVUYZGObS77jLgwla3qpNNJ +qF65nfwLHAwpHC7DEw9LxUnuEDGj5h0g4AXtdNr2thor3uSAflep4/vdcqJ y9Ut71n4HdAdbDhOvr+Jn7wHGxadsLmRz0R5fur5kb4VmHaDhV7rtzWuYaC9 2PFMWo3ai4dWZqXrBXTU7+nLaWpUv9YZIYn6BziI/zL/L8R3S+iO88/fFHS5 2owLDbhOS0+Q3zNT9+G+NagXrm0zlEXzSoFbFal5WUal5Pm7y6A8a3qBIqXD ev+yuf34cwrfR12xniq1jyPLXvyY2s2EQl8vXhapZ2qenxjI0I6ejvLE79Ka GZuevCBwodvMRiCfZv3cz4CN65lQyXxJ3vMmXM/iFUcDZh6kobpwllCJ4r8g 4WTdeCka4m/VWaBE8X/nN2aUlc5Ee9TYPpd8T9iB79Fx65FFRZOl8bpB8YtI n8OjeN38SSnC8+NlYJvphl31YvIe3sR1K5aOc/YoZ6O9zr8eoUjt9V+nwt0n 4nPE78PEj5kC6j7IbBlNk8f9gN9bP53H5B1A95YWk22wIlUG3aWAGPK7LnGX FnxeF3m+gYPqOvr6/qm7tu2htXsCD91zfW9t8vmO7vnek20qOh5S6K6+mJur TN1VRpZ5XGYsA+ncWuJM3uFKXOdLJtnDLH02fmdG6ztKyT3twO/ML+NSg6Jb NHTnC9WukPcN3fk5u3Zyr5/A35+3ZJt/nkP2dRJ/37gwL8s9tpiJ62+zseLf /xNF4HhoZv9c+0E2nNeW+CEslvTJr/FfsMHWlpz4RyzYHhCtKv+YnLv/kzrM 0vHCgyz8/SrCT++3MI30GyviGVYV7R/0KosNXf86/fyUHZnHAccTNL1sH30Y AT70HbvdBsi5a+J5hD6Liwan0+CggvgIVkrihXhdpzurr8Q+ZcInshJTOslT mDP5PQj9NF0usoEFpay5YY02ZP4RXJ8j3mz7T750xL/ilr4SxX/29+pJ3pN5 EK/b3rFdgap7fMtzgQU2BnD+hyoPKlH8p4cnVexVpiP+eoXNAop/vEeL5vU4 Bs7Hv0xA6ukzUec9OKL7dntuCB3xGZQ6TOLaG8RAePFhvu4MLurLd6NEgeqL NX7iKy0vBtJznXGOgNLz/wCBdsS8 "], Polygon3DBox[{{1, 2, 3}, {4, 5, 6}, {3, 7, 8}, {1, 9, 2}, {7, 3, 2}, { 10, 11, 12}, {12, 4, 6}, {12, 11, 4}, {13, 14, 15}, {16, 17, 18}, { 19, 20, 21}, {22, 23, 24}, {25, 26, 27}, {28, 22, 29}, {30, 31, 22}, {32, 33, 34}, {35, 36, 25}, {19, 37, 38}, {36, 39, 25}, {40, 41, 42}, {25, 27, 43}, {44, 35, 45}, {46, 47, 15}, {48, 49, 35}, {30, 50, 51}, {34, 47, 46}, {37, 52, 38}, {22, 24, 30}, {44, 45, 41}, {19, 15, 53}, {44, 41, 40}, {34, 33, 47}, {30, 51, 31}, {43, 48, 35}, { 29, 22, 31}, {54, 55, 56}, {19, 38, 40}, {40, 42, 19}, {32, 30, 33}, {25, 43, 35}, {15, 47, 54}, {15, 54, 56}, {57, 9, 1}, {3, 8, 58}, {59, 60, 61}, {62, 63, 54}, {3, 58, 64}, {11, 65, 4}, {66, 57, 1}, {67, 52, 37}, {68, 69, 70}, {71, 72, 73}, {74, 62, 47}, {75, 71, 76}, {77, 3, 78}, {79, 61, 80}, {1, 3, 77}, {81, 82, 83}, {5, 84, 85}, {86, 10, 12}, {87, 61, 88}, {89, 65, 90}, {56, 55, 91}, {72, 71, 75}, {15, 91, 13}, {92, 93, 94}, {2, 83, 7}, {62, 54, 47}, {95, 96, 97}, {80, 61, 98}, {99, 40, 100}, {75, 76, 57}, {101, 102, 103}, { 101, 103, 96}, {61, 104, 59}, {6, 85, 105}, {98, 61, 106}, {107, 12, 6}, {6, 5, 85}, {84, 108, 109}, {3, 64, 78}, {67, 37, 19}, {110, 111, 112}, {100, 38, 72}, {1, 77, 66}, {84, 89, 108}, {108, 89, 113}, { 38, 100, 40}, {111, 114, 115}, {91, 55, 116}, {117, 86, 12}, {118, 61, 79}, {85, 84, 109}, {68, 119, 69}, {71, 81, 76}, {74, 47, 33}, { 103, 120, 97}, {121, 12, 107}, {2, 81, 83}, {21, 67, 19}, {99, 122, 35}, {96, 103, 97}, {57, 76, 9}, {121, 117, 12}, {30, 123, 33}, {44, 99, 35}, {110, 70, 124}, {120, 94, 97}, {61, 125, 104}, {52, 67, 73}, {71, 126, 81}, {61, 127, 125}, {65, 89, 4}, {106, 61, 87}, {105, 107, 6}, {61, 60, 88}, {15, 56, 91}, {40, 99, 44}, {110, 112, 68}, { 123, 74, 33}, {110, 68, 70}, {128, 129, 130}, {131, 129, 128}, {132, 133, 134}, {135, 136, 131}, {134, 133, 137}, {138, 139, 140}, {132, 141, 133}, {131, 136, 129}, {142, 141, 132}, {133, 143, 144}, {140, 139, 110}, {130, 129, 139}, {137, 133, 144}, {144, 143, 145}, {130, 139, 138}, {97, 141, 142}, {144, 145, 24}, {138, 140, 146}, {128, 130, 147}, {148, 142, 132}, {147, 131, 128}, {36, 135, 131}, {147, 36, 131}, {130, 138, 147}, {144, 24, 149}, {137, 144, 149}, {149, 148, 132}, {138, 146, 147}, {149, 134, 137}, {149, 132, 134}, {127, 61, 118}, {150, 151, 152}, {150, 152, 153}, {154, 155, 156}, {154, 157, 155}, {150, 153, 158}, {159, 160, 161}, {162, 163, 161}, {154, 164, 165}, {163, 159, 161}, {154, 165, 157}, {150, 158, 166}, {154, 167, 164}, {160, 168, 161}, {150, 166, 169}, {170, 162, 161}, {150, 169, 151}, {168, 170, 161}, {154, 156, 167}, {10, 8, 7, 11}, {18, 17, 19, 53}, {53, 15, 16, 18}, {171, 172, 17, 16}, {17, 172, 20, 19}, { 13, 21, 20, 14}, {15, 14, 171, 16}, {14, 20, 172, 171}, {19, 42, 46, 15}, {28, 173, 174, 26}, {30, 35, 49, 50}, {25, 39, 23, 22}, {35, 30, 32, 45}, {25, 22, 28, 26}, {49, 174, 173, 50}, {103, 102, 175, 120}, {67, 21, 176, 126}, {122, 99, 115, 114}, {96, 95, 118, 79}, { 109, 108, 116, 63}, {66, 177, 178, 57}, {94, 93, 141, 97}, {11, 7, 83, 65}, {60, 64, 58, 88}, {101, 96, 79, 80}, {179, 109, 63, 62}, { 126, 176, 82, 81}, {93, 123, 180, 141}, {86, 117, 106, 87}, {102, 107, 105, 175}, {35, 122, 181, 36}, {89, 90, 182, 113}, {73, 67, 126, 71}, {85, 183, 175, 105}, {182, 176, 21, 13}, {112, 177, 119, 68}, { 52, 73, 72, 38}, {104, 69, 78, 59}, {120, 175, 183, 94}, {177, 66, 77, 119}, {24, 180, 123, 30}, {54, 63, 116, 55}, {111, 115, 184, 178}, {139, 181, 122, 114}, {117, 121, 98, 106}, {93, 92, 74, 123}, { 65, 83, 82, 90}, {78, 69, 119, 77}, {127, 124, 70, 125}, {110, 139, 114, 111}, {62, 74, 92, 179}, {2, 9, 76, 81}, {108, 113, 91, 116}, { 86, 58, 8, 10}, {125, 70, 69, 104}, {107, 102, 101, 121}, {57, 178, 184, 75}, {109, 179, 183, 85}, {58, 86, 87, 88}, {78, 64, 60, 59}, { 184, 115, 99, 100}, {100, 72, 75, 184}, {89, 84, 5, 4}, {121, 101, 80, 98}, {113, 182, 13, 91}, {111, 178, 177, 112}, {183, 179, 92, 94}, {90, 82, 176, 182}, {141, 180, 143, 133}, {145, 143, 180, 24}, { 129, 136, 181, 139}, {36, 181, 136, 135}, {124, 127, 118, 95}, {110, 124, 95, 97}, {147, 149, 24, 36}, {36, 24, 23, 39}, {148, 149, 147, 146}, {146, 140, 142, 148}, {97, 142, 140, 110}, {185, 186, 187, 188}, {189, 190, 160, 159}, {191, 189, 159, 163}, {192, 185, 188, 193}, {194, 195, 196, 197}, {158, 153, 198, 195}, {199, 200, 191, 201}, {200, 202, 189, 191}, {153, 152, 203, 198}, {166, 158, 195, 194}, {204, 192, 193, 205}, {201, 191, 163, 162}, {155, 157, 186, 185}, {198, 203, 206, 207}, {169, 166, 194, 208}, {209, 204, 205, 210}, {167, 156, 192, 204}, {211, 212, 213, 190}, {151, 169, 208, 214}, {195, 198, 207, 196}, {156, 155, 185, 192}, {202, 211, 190, 189}, {152, 151, 214, 203}, {212, 215, 216, 213}, {216, 201, 162, 170}, {157, 165, 217, 186}, {203, 214, 218, 206}, {217, 209, 210, 219}, {213, 216, 170, 168}, {190, 213, 168, 160}, {186, 217, 219, 187}, {214, 208, 220, 218}, {165, 164, 209, 217}, {215, 199, 201, 216}, {164, 167, 204, 209}, {208, 194, 197, 220}, {221, 222, 223, 224}, {225, 226, 227, 228}, {229, 230, 231, 232}, {233, 234, 235, 236}, {237, 238, 239, 240}, {241, 240, 242, 243}, {244, 245, 246, 247}, {248, 249, 250, 251}, {252, 253, 254, 255}, {256, 257, 258, 259}, {260, 261, 234, 233}, {240, 239, 262, 242}, {245, 263, 264, 246}, {247, 246, 265, 266}, {264, 267, 249, 248}, {268, 269, 253, 252}, {270, 271, 272, 261}, {273, 270, 261, 260}, {274, 268, 252, 238}, {246, 264, 248, 265}, {266, 265, 275, 276}, {263, 277, 267, 264}, {239, 255, 278, 262}, {261, 272, 256, 234}, {272, 232, 257, 256}, {255, 254, 279, 278}, {277, 280, 221, 267}, {223, 266, 276, 281}, {227, 237, 240, 241}, {282, 274, 238, 237}, {283, 273, 260, 284}, {285, 286, 287, 288}, {228, 227, 241, 289}, {224, 223, 281, 290}, {280, 291, 222, 221}, {254, 289, 292, 279}, {232, 231, 285, 257}, {286, 233, 236, 287}, {231, 284, 286, 285}, {289, 241, 243, 292}, {291, 244, 247, 222}, {249, 224, 290, 250}, {253, 228, 289, 254}, {257, 285, 288, 258}, {284, 260, 233, 286}, {230, 283, 284, 231}, {226, 282, 237, 227}, {222, 247, 266, 223}, {267, 221, 224, 249}, {269, 225, 228, 253}, {271, 229, 232, 272}, {234, 256, 259, 235}, {238, 252, 255, 239}, {265, 248, 251, 275}, {251, 250, 293, 294}, {295, 296, 283, 230}, {49, 48, 297, 298}, {299, 300, 29, 31}, { 301, 302, 41, 45}, {292, 243, 303, 300}, {297, 304, 271, 270}, {262, 278, 305, 306}, {290, 281, 307, 308}, {302, 294, 42, 41}, {27, 26, 295, 309}, {43, 27, 309, 304}, {303, 310, 173, 28}, {281, 276, 301, 307}, {278, 279, 299, 305}, {296, 298, 273, 283}, {310, 306, 50, 173}, {293, 308, 34, 46}, {300, 303, 28, 29}, {48, 43, 304, 297}, { 309, 295, 230, 229}, {275, 251, 294, 302}, {308, 307, 32, 34}, {306, 305, 51, 50}, {174, 49, 298, 296}, {305, 299, 31, 51}, {307, 301, 45, 32}, {243, 242, 310, 303}, {304, 309, 229, 271}, {242, 262, 306, 310}, {250, 290, 308, 293}, {294, 293, 46, 42}, {26, 174, 296, 295}, {298, 297, 270, 273}, {279, 292, 300, 299}, {276, 275, 302, 301}, {207, 206, 277, 263}, {287, 236, 199, 215}, {220, 197, 244, 291}, {235, 259, 202, 200}, {218, 220, 291, 280}, {259, 258, 211, 202}, {206, 218, 280, 277}, {258, 288, 212, 211}, {187, 219, 225, 269}, {197, 196, 245, 244}, {236, 235, 200, 199}, {196, 207, 263, 245}, {205, 193, 274, 282}, {210, 205, 282, 226}, {193, 188, 268, 274}, {219, 210, 226, 225}, {188, 187, 269, 268}, {288, 287, 215, 212}}]], Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm], FormBox["\"z\"", TraditionalForm]}, ViewPoint->{1.3, -2.4, 2.}, ViewVertical->{0., 0., 2.3193392053546815`}], {583.2, -189.}, ImageScaled[{0.5, 0.5}], {360.00000000000006`, 360.}, ContentSelectable->True], InsetBox[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJwlV3k8lN/3HzNjjLHOYgiVpGgjqVTinhahKFEpolLKp70ohNAilK1U9hCS bJVUyH3SQlKUNaRsky0RIsTveb6/v57Xfc99nfs+7/M+596Z5XjCyolOo9GW i9FoDPJbbZh/TPPUBDaZNppzeYJHHORqX/cPr8JJVpuvv+8bw8XWZXejl/IJ tezaeqNNt/FC212zXjnQiGVHtesvj5P4mfv3bw9iTP685FIzjSD3G6iv5BEe T97uiDrfjbIeL4ykpYkR0Wk30wfDuMSJOKeXXxf0ImGLeteDATpBnhvpdYdL PGYrmk1O9aBqhuw+TvIUJrrWhNp18YnkGSfZJi8/oVOhhedcT9MJz7d9s88e EBAafeE2z7RLUHJkqpzEszFMxi/0/sgjCs/cEl9QWYpDT6770mzMIPdn2R3X FBB9bH0B/WM9Ek66y9nX0wii6+XChDg+kdVf4unIb0HVKanx4kkMKi/XQxzy XO1lwwkqImTUeVRgXC8G6u8lt8vK0UGmKDK2dm0bkqSN3T/TxoCNIhfldqEY PJvSWbwsuAM5WySZ5z3iwCUr8/N9L2WBiPgZfeOpCNHX7O4buzUNDriProu4 Jgdj4yEsd64YTBbdDV9V8T98MmGTHLCYpzw8FtOALA2ohiqDku9nxnQ9LrUm RhNoEPnIXu9btBQVv73dQBZ8azXKInub0ciU+K3qBUyKT4TKTxqY0iorDDe2 oWLFGzp3MugUfzvXCDEQXfzoLwVf0Nvxvxsr4geRte58pTgZBeiWV6q2PdKG tols/+6YPYHarfoNGkEJ9n7QWqZ47QsKGUzfuCXvF3JW+zfi/1EApbrbarI7 vqHp9IurrrTRgYxz8tFxHpxhS3dXRo/hLYdPdHoBDcynFA+YK/PhrJUn45LC D/xpk7efLI0OLUNXpylG8WCDzrB4fsBv7LhglkS63gQi929d+5wPWnm803y/ EuzgLG5I5I4icv+co6sEIHxRrTipX4mK5BUzpn2hgdWWS8+3GfCA9eLulsS5 v1HhnlJGbPo4am1219p0mQ8Cv+bFSSwRCjHagTduZUJqxNYEnj4XVBRjOa2H qpFb3Hnv0Vwx+NXyaEbTOBc0gsTHRqxGUO8sl6EoLguc1sZa+efJQ1L/wdhO nU609lcnY7GBJNyNZy+IvyMH0udMZp581YdV121X8BiiAalP4zE9HpyW3q4w T30Cz5m28JBFsQy4H1DmHqLLgG2jl/K9w6UoEC32ehckBz9z+79+GZOCsFHG qwe763DtNavGnBxxIPXXTJERwk69jZly00axgWM+O6RABoy/qNqbs2Sgnltl 7FP/Ewuar+lEhUlC/KunTCtnOZC/rN8mtr4IaypervhqKQV5pXcGjA7JQlhw loQmma96pcphl1XiQOojKHPkQhCcCFgf/hsHOvr14igp+PrKyfjIGllKh+I5 0I9h/oh0kTwLhDasBz+eyAMvrMwwcG0R1rhxp2NPuCSc03OZiP5PDtoOMqyf k/q8iTOu227MgKSjIbWmAVzoDehST+wdQ1Fvg1ZbPGEBqZ9kTqY8vFu6ozJL /wd+rpBq/2aYCeONQxdatLlw225f/nq3z9ike5f9kgo6hR/69IEL2k+LI2rb KtChlcuePpYTo+LITW3mUXFspw93oL3dpytOHpUD7RmS0/dISwOhc+a5iUMm JvsmgnZRHrRrrBbrcv+/j8oSu5EbUWHdGCEBZ21Hs56byYPGJJETTBtDCQrB sN5BkopzzP6qHJy///4fthhBjaKqFRYsDlXH8F3z5eDmgZzY7f8G0EfpvqdL jf9i391vfEqruEREVCgtpvQbLr1zoXJfI5vIXJR9/2m9kGjS3+vttvUG1ows bjOvkSbKLHZNvLRVIoK8a1+dsvyCfxq7DK8kcfMUO5cSEj++9nZ4yeYyin/q oBaXqLBlVS84No2g5gKnrgofXFFd4P3sLzpebvLl9S8mLA21cQ72/o2aXWPe xVqPI7GqRclCDyYYC99lrGwYQDP9Yx98uMAm/HzSHpv9FhK81ScyGLdf4dea nv3GO//heeu35D9u5BHyd3r91Oa0I0HZmaXo1D8ccilL3a6OR+zN3toko/kN 7z7eq1D1HwP+7lv+XV9TDPqd2y8tPfAYrZg+nmZnTScWJl5rXn6YT6wTata3 e3VjCQ+D8/O+s4mii5WHd9QJiVJ9DYd7QW04vaxZaLeWQyyL3r9U8ZSQeJgu Ken1oAsrrXLrjTYYRSyFuN6prO9odO2PkEMHCnG48RKDh+kMIPOyfC0mBoJd Go83pNRjK+OLLpaxDDiZHPMflyMG7ts+fd98MA+Xrt42Y8H9P2hWiECm45M4 nPK32d+45DeqvqZ4QHFkBMW/Z9WoTn5H8QcLE9aFNGC1jkV3NiSN4Gp0VSdS nkcMZc6SCVUtxeurQ5wWi2iEVt2dXJVqPkEU8DTDzzfj3GfB7rM92cTauzWz fYeERIGrxpXIa83YwDosibZVniitSrX4s0aRuBQ3z9TkxVM09/b6FpsAOWLw /pwdxjcUicL262mLfr1EvjnPGCL6CD7/6qb6W00e4StmNH2g6D+8oXYyoHvu KD54j4gg/nEJ3Ud/SpS6a9Hq+kua82aMk/WqiP+3iE+0vJxbaOtRi07K/NcU soNGkPy/eRTLE95HTO+u0OhDUX/ZwthIOkH603qdijxRVm5iSbz/hVbs9R5P C5Ik/fnLfUaqkJhgZZzIO/8KhdZf0xg4JkOsOnI3+aG2EgGnNF3uusRi8mPD YVM4Y42quRJRz43hbt5EYN8tJl4hGpMU/83r1LgEnaTferQX5c8Tw2r7xij+ TJcHXKIzlbm6w74dJYfztfUtaJR/mBqDdGg9vb/CaWsPevpx2x623lfUEKV0 c+WM3+S9vt1Xt2MAHX4nZ53ArULhfGN2cMQg2qTifl6wrR9Z3nozVtXPJFrl jd8ub5Ql1u4S9jwQ9KNK3aCHV0/LE8tSY5al+AuIJpdrjnriH9COZbMyrQZk Kb8FjAkVCMftfCu/yDqUqzdemakmQ/S/zJz+zkGGWG3wWG7Bii/oyyHDozf7 Zak+9RFgRUIwnnFlUSmBYltqXLcm0oHy1Xi0GLRKZx/UoonwhzaFZi0/BpD9 2FU0TQycZ2QvXrbwO/7r/5rGU5ah/H+eeUeBCDthenRlYBNyGTH5M1jAIjwN 34rea/CI2wWo2OpSNyptZWZmVbGpPup+Fcil+sj08eUu1OBcoGrLl6H8s7Xe VIlwOG3maryzGf9RfjMtwYRJkH2qfH01l8ip05L1bu9F/PxrKY/KZch50qhs w1ci8iXt3670S0KFC059JMRYlJ8TUmx5xHf7wMer4rpQ5VVuSZnhL6rvzEsS utGeziZdM1Ef2imqvG2T+eN//fJusg+lTdMx3RA3gMzLmVPieixi9Hut9qFs eaLiY+/FCOdhvKfKteyfxzg+FaA++7sfl7j0aGGt5ZkuvK1hzCbgyxTec/1d r9CHR2TeEsibXevGcc4j+3/4DCDhIotSuzOdKNhePcf2SQ9KlVmtK+82iGZr Bi3evViEbi3vd3VT78ZW5fOHeJ3DZN10u9Mc2pCZ7oOT35NEePeZv2HH6iYR OQcubz/DgND5yl6MZ32oxaOtxX0hh5x7Wked3YSEZLx+iG5FJTJKEUS/E8kT WyL2Rbn0CAnaz3kplYQ3CmY/O9utKEbV5fS9N3yqLqv+xrTi2uv0rqR+FkHy T0h3l6f412dc/4nMTX53vlCWpuaA5/NOBWoO+Mgea0RRNm6lvC4alMSYjWpG 0eFdYf5+7Vvd+KMlVy99xSAicRq/kkXhfFzxC+2L7VmxXihN+VZ3qEuBGFG9 626+7BcO2vVtw3CnDDVPUrSllIgcPXHJp5WteP9ttlfx3xFKN3n2+He0WLPh X3tzBrr8pFaKTpf7X17MfEWiwXpjosQsEY7k1e0IHmRB0uwrfhfUyHckr044 LYZLLO+t2OFnzoKI8nY2cpxE5Dq1J0mewm9dVWOCx5TDqaiUMQqvbe6UJ/Zd CnB0/SAJV++wdhUbMYFcH25R4hHrzLYOn5UfwYvuml75WjuB/K8nzd/45y+q zUEG2t19eI7eyiV31snDkfo73mtLOdQ3jv5hEL/wyY7sSZOl1tN3r+bA3ksB 1zYrS4OiwxtP46NsKn65pBqP4jP32hM2ROuf9HmygQnkWnjltTyxeE7WdK05 A/hT+KsE0TwukOs4+VopIM8/nB8lQrYbwje7TLUgkp+CjqM4kZ4XaEjjtCHV m+N16+v7EbV2lx3CQ613Oz7LvELfV+iv+sEsRA5euSf3cOiE9TF+zJ7SGkzu /zHX6y+i1idwG/U784juXxzicpfR+WAAvRh1brnKHaTyHadv6MDlKs90Dn/k /S9Pqcvk/wGueoPR1W78dsvF3XFefChmc+3fZElT+JJamxYsnd360+GGAoVH uSZIg+UTi4xOIhe9LsESobeHKZ7DrwL/YvI75/eaPpTudtGxZrEEkGsn45L/ 4cO8HT2Y3K94ymASpTbM3ZET/gn5br8e599/idp/+O0FKSDxW+kxlYh8R1x7 GiUJ4bdT1swu/t+7CLT2VSOdhcHrOAGSsP/SmxkPPXnAN1xksn3FN5SY/z7f o40DP1xL0gsUeTC0fb21NomvuWnaKRkuBQvOvdFL7ODC0IOznmJ7qtFvmVMR Hs/FoJlzr13/lADa1X6N6nA/owLBnl1YggHyJUs40fcEYJ4r230s6CsKzEUM yycMWNmp/dznjABOPmUeNXz4GbltYn5bUSIG98SzdIZmKkCYaUEoPfIr+lR1 +uRCkk9PyJp0T5JPw+WUgUKpV2Sc8dXn2BLU/oexMXwwTf56T9KoB7OvvjMd KhEHH2w6c4QvAKOd5v6H9Xuw7O8Qs5t3xCmeTcKtfDgd5pZhrCXCbpsIft1P FsXn9LkrfHhmR/8YdeQ7Nu5JmH8kRoLiH+awnQ9zbSVuatZ34LeC22YfWsRg tfW+fypLFcD346rom+UYjbou3wRLxahzh5ceVACvnMjyw+WfEfE9IuHJFUno mfHvgQups3jn/p/i0q9Q9M2XCnbqDNCyWknHBQJwjYoONbyF0aoeZ//dyuJU fFvBBgFU7jLR+1HWgZuV786Z18CGkWKCG5zJAw2rj06mpP4HDxtlWGaKU3Gu V0/xQdt6UKzjwHe8gzupl7ddCcLGfaT3l3Hgfr5Ev1keDdL7xMod9lK4nI2g iAM2xqOh967SYJ3DwxqLbWKguaKoqu8CDw6ULsibUVKCXyRubthTQOGTtYuc ePBRpTs5e9tnPHOYe/ngTyah+Ptyarw0lxhLCzUdzfiJkrKTxY74/0E4K7/r 071W1Heh4fSTtHpUrNA0r5h8YpP7tZaU8aj9K/RCW3FBYfhzbvxffKNqbP63 t1xCIPPcg5XSii/hZXZ5ee3Iumf+pgO2/cgLyjTitH6jjOu9yWbr6tAaRqi6 oEWS8vly7axvaHvj6+PdJUMUrjw7VJzqF+9k+h/sYGm3OfnZEMXHm/2iHQUW Xfc/c7UNJc3Sv9m7hEFo3huete6rHBHk35QsZdiPjNScVvUnjqDU2u07Tu5t QX99I7qmvfuOxc5ze0V5TIjtmrP6l50C/JFzvcL52IreTNqrqj2gg9ZI//Fo NSE0SsrHzfnSiva4rHskHGRAi++J9FqhIog7tWfe+K8d/XYWWylYxoJVH9oM Kw2F4PLMNXQb+V4yEEvyvFjKpuL05+0WUHHsh7l9eGr8kfuLQhb0vDzq5TiL PPfb7TczJUjc73h24jNJio9tXxef4nPjPerA9y6k1ft/FocYj8owOY4C3Khx m/OlpQpdCQ5+LHdcAia6G76dbVOAYE3NP/fn16DlcWVFj5dwoDBOXMk9lA/y Tg+jtTgpaJEc38L3sDS4nemaUunlgfN/7mfN2CnoREn59tUPZUDz/bsUtogP hPqpg4KuAMR3vd9x30gKvhRrBVpEk33doJi5bSAAXcnmB8T5y4DdQqP5ydE8 CJJ4c17Hrhp5nG4o1VLhUHxCH06n+Nxz+JFag2VvH6ybv02K0ufp9lcCUp/c /Xtj2vEu7zr9iVg2lZdXpYGAyuuD15t6nHit8LnuJg6lc+fUGgVK5+D1Nn1Y amTGnUmSv8HY3nWXSP4ZJuySPPI+sGg9VLWvlQkCy2PrG7wUIO2LrPnGn4lo b41hppwTC5wKv+6c7SiEhDvzi4MWx6A62VXHS8h8N59d8MGTzNckUGdzxGAb cs5nHivulgUUP2yqfo0Pl3fl6iyyqUbP22s2qChKwv1tBlI7WvhwMjfxcyqZ 7/aTMwNDa+mQ/5YrCFojBMsak5NT8UnI7oYaZs5mgluJm4KOgSLQUo5+c34W i5pfDhUslWSDo/scKQkVIfTKpu6x3tSHyZ93LyTfE+T+G05nhKDlNJ7qcbEd Pwj9zuMlilPx9UxcFGC7N9NGY34HrurvtUR6HFjINgloIut72CPyWRWpQ8L8 4lsLvkhQ+S569kcBxu6r9z4JqcGPp0c6LwtnUfpUe9IUYFmjn2RYdj0WY1pc Gc4Xo3y48NANkg/WuYpkq1H4Cj3meiQF2ZHrbAvJup8xOBifR+qjbiQVK9dN p/i/vHxTEeqnm6MHdjXoQmmzfZ44B0xV8zqShwTQ5MZvzSR1e8ecG+IRIgma emaNPmZ8yP9SIVtK70C282zrLPXYoGTO3SSVyQeHw/ZBSvbV6EOTrUm5uwSE 7Wp4cWQPD5brWZX5kfdauQr/Sn4gm7zv3rdrcXkQP+uQxOrcVnSy50Gv4QE6 zPR7oS4qVQS62Zonxxxr0Cep5A+GIgakRp+K9tilCDs7xT/3DaVgrzLfiZa5 dLD22acQLCkENSMn4KxMwOb678v3ldPguM/WxdePCWHtVXO9ksQq5O+s8vvO VwZwQh7vmpvPg4XrGy2f+vVgvaIjZavWM2Cf2c/04yIeRA7Y33ibJ8LOZ/fM mkxjgLWa6jNbWfKeejy+8dF0ES5+KvXc/TkTNCQ+nXiI+cAvsjfVSuzDk8OZ l2ts2DBpM179o5IPjXu+jW2wqMHagW3B+x9JwkuDiLCmo6TfzFQrfp4j74tt IYlaTVKQ15tYcTBcAP2pp5Mz49pxRbmymZItB14H7Aj6Qta3qzyDm6X8CdNe aO1rSSXfeYVG6kbTFEDV1yGCNBSmc6wKTMvFqXO7/10TUOemXz5ShQprxcNn PGRA08AgLy2XDxCRdMJj4hOyfrpmvksZHSpFquo96gIgMkyLPO6FocjABPqm KhqVb0D9NxI/dHZPzUQ4iv+3orOAJwYWKxYd+HWCD+6RxMCY2QsUfVHrxmDf FCJ1y97YwIfX135FS517gQJ6Fzbv/cOBRRHVubwcAaxef1aovzEL37Sgrdcd l4EdJr6l+Z/4kFM2l1ZrnoX1x79EBa6ThuWma34f8+PBYhIIfBmBgwrl1lQE S8JtUYGqOOk3XxKY9SICl5VGGF4okILSAU39uDlc2O3yeK4s6avSr3Hr+A84 cDxji8laVy684nL3q5G+sldRGRvQkgS9ul1WN7PkYdnGzQ4FY1+R9uzBuZbF kuDWVLd5ywV5UP7wISzrQDX6fFY17OUpJlUvadaAgKrXTPWgdrTqJOZ8GhCD Kyc4wVtaFGDJeebhh7fb0dFwlHX9Pg2SC3P/W0YIINaV8fH8tRYk/y/CKjuB DsMi3l1zhgD8FHcaVPu1oLehsJIZzKbiuCn/5cM0RBcfUuvHuaVLZwtkWJRv J/Z3ke8K9aprNsr9OEywTc6lXILqC47lSiGAleX0lab9WKP1IMPmJgfCj5+2 SVykANcDYoJvb+nH6+eNjb32Z1F1/7mojUfVXeenfSPupx+5tPK2BMUn2z+C R/Gx9l4iwm1FOQO3IsQgc2DzgSZdPlRyh9pjmyoRzHG92+4tB8wDGlfqHfnA ynhRqk7Ogbbl3un342Wgo6joaft0HlSFL9wZuLsaLW3vNY9O54Cx+oRhswsX 1ETBgZkV6aiiZOvgUrLfzcPjfUrlebBXSdXm6Kd09OhuCW32emmwzy02+UnW /Whr8d+75DxRfzCgK+7Kovri/Qh5X5N9UX/srgg1TY+SVnvAoPLNTlmoCLO5 +jEBj0RohnX+okfnxIFWsdangJwn/ZGfM88Vi3Bz7tPDDaNMKNQw+1u+hQeD qS+Gr1/pwRHHiWMROSyqXj0ldD5VL+3QB314+potWZYtTEoHd7oRDzrZ5077 jLRgXb0OR5k/ElQ/Tl15+L9+3EqbW4N85rfnZZK+CjyoqGJP+mpBzrnZB+Pe IKav8ZvkYQkYWRa66DGLCxemttikkDh7a3xBE+l/fTmDANPPZL+4ycyeMhCh 1gzjWyvGaRT/M+oOfPium6KSfLoBrb8VJjuOpxDJ/5hnKR9EFp6b0s43oCOP pmJmjHBA9/fP2Biyvx4cpe/VWi1CJvGTszbuloBX7HsLRpdw4ZaKcO9v0s8O cltW62WzQCvlavgbCyEsz76imSdKxY70kmGFtwyqr3vs0nggx18hGz7QgjNN i+zSQpnUfHgsTOBDeVC7Z6NpI760zGemzyMmNW9NTlsowIyMvwUeezswbV2d VkedODmXisx0XwpgQsf1w/klNTipP8dAL1yCPFdq/Iq0EKZx5ApqJyqxzpDd YduNLGqes9+mCeFc4rfPer7t2CusM+7V5SlEzlU5T20FmOtVID9D8zPyq1E5 00/qSd+t4tRF6tl9b612I9m/lko2f/a5SkLk8wpVX/L/yNi5kOjXpD+HtN/p GRVOInLOHwplCWBnQF5L/FAliilY5eN5WxLmR7e80veQB63Z89+Oibehj/E1 7j8ecsCs/LxxjqY8zOCnnhaRuhlsm3C2R3Q42e2Z2beYD18SW0ssC0X43+8B W29tBjiV/n54p4gHlTozf02KGvH0OR89faxYEACa59F9Loi0Tml//yTC3Wse f5ZeIQ7x22O6S8e4ED1jaU/1RCMul1vQURE2ifIhSaeomQ/VhPWC44YtyHev KefCownUMLqVkN1K6jlemCnqqkQp9Vm3bu+TgMgQr5WeKlywzLyRtnsgBRX8 vJX/75YkfDV06qlwl4cE9cDcc79SUJCNRPOWH5OI5D8viPzfQQTaSBjdv4KV 3Q+fctpPvkMg6cdVFR517nvv6F+4rUE3ZWSrGMX/7Q9lPsXf32FJCxIWmV88 cJRO8Y/a+45H8ZfKeVGJNt4fSNM1YYGqlkY27RgXnI90LN7tVI2Mef/FqDtK wPXKYqNvJM/aY0/bFVltiKhopNfuYgCZV4bjNx5Mejffyg39hRkysj/WeYuR ep62yTbgQ7+4suqfo0H4/wD634wJ "], Polygon3DBox[{{1, 2, 3}, {4, 5, 6}, {3, 7, 8}, {1, 9, 2}, {7, 3, 2}, { 10, 11, 12}, {12, 4, 6}, {12, 11, 4}, {13, 14, 15}, {16, 17, 18}, { 19, 20, 21}, {22, 23, 24}, {25, 26, 27}, {28, 22, 29}, {30, 31, 22}, {32, 33, 34}, {35, 36, 25}, {19, 37, 38}, {36, 39, 25}, {40, 41, 42}, {25, 27, 43}, {44, 35, 45}, {46, 47, 15}, {48, 49, 35}, {30, 50, 51}, {34, 47, 46}, {37, 52, 38}, {22, 24, 30}, {44, 45, 41}, {19, 15, 53}, {44, 41, 40}, {34, 33, 47}, {30, 51, 31}, {43, 48, 35}, { 29, 22, 31}, {54, 55, 56}, {19, 38, 40}, {40, 42, 19}, {32, 30, 33}, {25, 43, 35}, {15, 47, 54}, {15, 54, 56}, {57, 9, 1}, {3, 8, 58}, {59, 60, 61}, {62, 63, 54}, {3, 58, 64}, {11, 65, 4}, {66, 57, 1}, {67, 52, 37}, {68, 69, 70}, {71, 72, 73}, {74, 62, 47}, {75, 71, 76}, {77, 3, 78}, {79, 61, 80}, {1, 3, 77}, {81, 82, 83}, {5, 84, 85}, {86, 10, 12}, {87, 61, 88}, {89, 65, 90}, {56, 55, 91}, {72, 71, 75}, {15, 91, 13}, {92, 93, 94}, {2, 83, 7}, {62, 54, 47}, {95, 96, 97}, {80, 61, 98}, {99, 40, 100}, {75, 76, 57}, {101, 102, 103}, { 101, 103, 96}, {61, 104, 59}, {6, 85, 105}, {98, 61, 106}, {107, 12, 6}, {6, 5, 85}, {84, 108, 109}, {3, 64, 78}, {67, 37, 19}, {110, 111, 112}, {100, 38, 72}, {1, 77, 66}, {84, 89, 108}, {108, 89, 113}, { 38, 100, 40}, {111, 114, 115}, {91, 55, 116}, {117, 86, 12}, {118, 61, 79}, {85, 84, 109}, {68, 119, 69}, {71, 81, 76}, {74, 47, 33}, { 103, 120, 97}, {121, 12, 107}, {2, 81, 83}, {21, 67, 19}, {99, 122, 35}, {96, 103, 97}, {57, 76, 9}, {121, 117, 12}, {30, 123, 33}, {44, 99, 35}, {110, 70, 124}, {120, 94, 97}, {61, 125, 104}, {52, 67, 73}, {71, 126, 81}, {61, 127, 125}, {65, 89, 4}, {106, 61, 87}, {105, 107, 6}, {61, 60, 88}, {15, 56, 91}, {40, 99, 44}, {110, 112, 68}, { 123, 74, 33}, {110, 68, 70}, {128, 129, 130}, {131, 129, 128}, {132, 133, 134}, {135, 136, 131}, {134, 133, 137}, {138, 139, 140}, {132, 141, 133}, {131, 136, 129}, {142, 141, 132}, {133, 143, 144}, {140, 139, 110}, {130, 129, 139}, {137, 133, 144}, {144, 143, 145}, {130, 139, 138}, {97, 141, 142}, {144, 145, 24}, {138, 140, 146}, {128, 130, 147}, {148, 142, 132}, {147, 131, 128}, {36, 135, 131}, {147, 36, 131}, {130, 138, 147}, {144, 24, 149}, {137, 144, 149}, {149, 148, 132}, {138, 146, 147}, {149, 134, 137}, {149, 132, 134}, {127, 61, 118}, {150, 151, 152}, {150, 152, 153}, {154, 155, 156}, {154, 157, 155}, {150, 153, 158}, {159, 160, 161}, {162, 163, 161}, {154, 164, 165}, {163, 159, 161}, {154, 165, 157}, {150, 158, 166}, {154, 167, 164}, {160, 168, 161}, {150, 166, 169}, {170, 162, 161}, {150, 169, 151}, {168, 170, 161}, {154, 156, 167}, {10, 8, 7, 11}, {18, 17, 19, 53}, {53, 15, 16, 18}, {171, 172, 17, 16}, {17, 172, 20, 19}, { 13, 21, 20, 14}, {15, 14, 171, 16}, {14, 20, 172, 171}, {19, 42, 46, 15}, {28, 173, 174, 26}, {30, 35, 49, 50}, {25, 39, 23, 22}, {35, 30, 32, 45}, {25, 22, 28, 26}, {49, 174, 173, 50}, {103, 102, 175, 120}, {67, 21, 176, 126}, {122, 99, 115, 114}, {96, 95, 118, 79}, { 109, 108, 116, 63}, {66, 177, 178, 57}, {94, 93, 141, 97}, {11, 7, 83, 65}, {60, 64, 58, 88}, {101, 96, 79, 80}, {179, 109, 63, 62}, { 126, 176, 82, 81}, {93, 123, 180, 141}, {86, 117, 106, 87}, {102, 107, 105, 175}, {35, 122, 181, 36}, {89, 90, 182, 113}, {73, 67, 126, 71}, {85, 183, 175, 105}, {182, 176, 21, 13}, {112, 177, 119, 68}, { 52, 73, 72, 38}, {104, 69, 78, 59}, {120, 175, 183, 94}, {177, 66, 77, 119}, {24, 180, 123, 30}, {54, 63, 116, 55}, {111, 115, 184, 178}, {139, 181, 122, 114}, {117, 121, 98, 106}, {93, 92, 74, 123}, { 65, 83, 82, 90}, {78, 69, 119, 77}, {127, 124, 70, 125}, {110, 139, 114, 111}, {62, 74, 92, 179}, {2, 9, 76, 81}, {108, 113, 91, 116}, { 86, 58, 8, 10}, {125, 70, 69, 104}, {107, 102, 101, 121}, {57, 178, 184, 75}, {109, 179, 183, 85}, {58, 86, 87, 88}, {78, 64, 60, 59}, { 184, 115, 99, 100}, {100, 72, 75, 184}, {89, 84, 5, 4}, {121, 101, 80, 98}, {113, 182, 13, 91}, {111, 178, 177, 112}, {183, 179, 92, 94}, {90, 82, 176, 182}, {141, 180, 143, 133}, {145, 143, 180, 24}, { 129, 136, 181, 139}, {36, 181, 136, 135}, {124, 127, 118, 95}, {110, 124, 95, 97}, {147, 149, 24, 36}, {36, 24, 23, 39}, {148, 149, 147, 146}, {146, 140, 142, 148}, {97, 142, 140, 110}, {185, 186, 187, 188}, {189, 190, 160, 159}, {191, 189, 159, 163}, {192, 185, 188, 193}, {194, 195, 196, 197}, {158, 153, 198, 195}, {199, 200, 191, 201}, {200, 202, 189, 191}, {153, 152, 203, 198}, {166, 158, 195, 194}, {204, 192, 193, 205}, {201, 191, 163, 162}, {155, 157, 186, 185}, {198, 203, 206, 207}, {169, 166, 194, 208}, {209, 204, 205, 210}, {167, 156, 192, 204}, {211, 212, 213, 190}, {151, 169, 208, 214}, {195, 198, 207, 196}, {156, 155, 185, 192}, {202, 211, 190, 189}, {152, 151, 214, 203}, {212, 215, 216, 213}, {216, 201, 162, 170}, {157, 165, 217, 186}, {203, 214, 218, 206}, {217, 209, 210, 219}, {213, 216, 170, 168}, {190, 213, 168, 160}, {186, 217, 219, 187}, {214, 208, 220, 218}, {165, 164, 209, 217}, {215, 199, 201, 216}, {164, 167, 204, 209}, {208, 194, 197, 220}, {221, 222, 223, 224}, {225, 226, 227, 228}, {229, 230, 231, 232}, {233, 234, 235, 236}, {237, 238, 239, 240}, {241, 240, 242, 243}, {244, 245, 246, 247}, {248, 249, 250, 251}, {252, 253, 254, 255}, {256, 257, 258, 259}, {260, 261, 234, 233}, {240, 239, 262, 242}, {245, 263, 264, 246}, {247, 246, 265, 266}, {264, 267, 249, 248}, {268, 269, 253, 252}, {270, 271, 272, 261}, {273, 270, 261, 260}, {274, 268, 252, 238}, {246, 264, 248, 265}, {266, 265, 275, 276}, {263, 277, 267, 264}, {239, 255, 278, 262}, {261, 272, 256, 234}, {272, 232, 257, 256}, {255, 254, 279, 278}, {277, 280, 221, 267}, {223, 266, 276, 281}, {227, 237, 240, 241}, {282, 274, 238, 237}, {283, 273, 260, 284}, {285, 286, 287, 288}, {228, 227, 241, 289}, {224, 223, 281, 290}, {280, 291, 222, 221}, {254, 289, 292, 279}, {232, 231, 285, 257}, {286, 233, 236, 287}, {231, 284, 286, 285}, {289, 241, 243, 292}, {291, 244, 247, 222}, {249, 224, 290, 250}, {253, 228, 289, 254}, {257, 285, 288, 258}, {284, 260, 233, 286}, {230, 283, 284, 231}, {226, 282, 237, 227}, {222, 247, 266, 223}, {267, 221, 224, 249}, {269, 225, 228, 253}, {271, 229, 232, 272}, {234, 256, 259, 235}, {238, 252, 255, 239}, {265, 248, 251, 275}, {251, 250, 293, 294}, {295, 296, 283, 230}, {49, 48, 297, 298}, {299, 300, 29, 31}, { 301, 302, 41, 45}, {292, 243, 303, 300}, {297, 304, 271, 270}, {262, 278, 305, 306}, {290, 281, 307, 308}, {302, 294, 42, 41}, {27, 26, 295, 309}, {43, 27, 309, 304}, {303, 310, 173, 28}, {281, 276, 301, 307}, {278, 279, 299, 305}, {296, 298, 273, 283}, {310, 306, 50, 173}, {293, 308, 34, 46}, {300, 303, 28, 29}, {48, 43, 304, 297}, { 309, 295, 230, 229}, {275, 251, 294, 302}, {308, 307, 32, 34}, {306, 305, 51, 50}, {174, 49, 298, 296}, {305, 299, 31, 51}, {307, 301, 45, 32}, {243, 242, 310, 303}, {304, 309, 229, 271}, {242, 262, 306, 310}, {250, 290, 308, 293}, {294, 293, 46, 42}, {26, 174, 296, 295}, {298, 297, 270, 273}, {279, 292, 300, 299}, {276, 275, 302, 301}, {207, 206, 277, 263}, {287, 236, 199, 215}, {220, 197, 244, 291}, {235, 259, 202, 200}, {218, 220, 291, 280}, {259, 258, 211, 202}, {206, 218, 280, 277}, {258, 288, 212, 211}, {187, 219, 225, 269}, {197, 196, 245, 244}, {236, 235, 200, 199}, {196, 207, 263, 245}, {205, 193, 274, 282}, {210, 205, 282, 226}, {193, 188, 268, 274}, {219, 210, 226, 225}, {188, 187, 269, 268}, {288, 287, 215, 212}}]], Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm], FormBox["\"z\"", TraditionalForm]}, ViewPoint->{1.3, -2.4, 2.}, ViewVertical->{0., 0., 1.5301863995298686`}], {972., -189.}, ImageScaled[{0.5, 0.5}], {360., 360.}, ContentSelectable->True], InsetBox[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJw9d3k4Ve/39nHmyXEGhAwlkaFCkUrtJUQlIZqkQYgS8TE0KIpCypB5SKJU SIlUyHkIlShEkihCklTKPL37fK/r9/51rr32Omvdaz33up+1Fzp62jgTCQSC vhiBQMJ/s0/72FdfnhWqvMiRNsqgIukuZUaHJAdl2lj6ZSYRkIX8sSLPLhq6 //5D0p1TbLSz6OH5FGUiGtxZMcl1pqHmW9mzNX4SaN+9gk2fXWgi/56zAxRk ra62/JKAgfYe3v3Ab5CGpMuXXDsQTEY2Fu9Cn0XQ0dJKU37sEzrC8/Yt6yOh AcWO91X2DNRM4hxM0SIjp933FCU30pH07IkoaZ446lY8uRC8KajE5WDPf/40 FHncmPU5QgKZ62xVmrgzK8TjV/jMUlF+oVZSSSsbKXZd7JSUpeH+XdudZqjI O6osz+cJB2lN/1HcvJoqir/7Wj4NDYiFPihnstHdLVvPKN2li+rSbT5PQVp7 dp8LWcFGExmFbgrfRrHoht9GUdWfscp5sY3OTVRQIfSbVSwdx2RqUpX0NrzF xuYoy2bqadCQYtJGkyZBf6tYQm36MGbRlv/qcioPqGQvWSMyE/prLTufi38T zpZnndQykYfJqchsrPd/9uFoXr+QaLT3/SBLHvCjOfBciw1WpSOpR1O7hPhz P8dbAbSdS7N395FF8R0fX/2DFala7zihxoNPc/PGDbdNiPAI827VYQzCpFH6 BRrQ9lu8v2AwKcLvJfzdjq3vdy9mzVIgYuyv3SX9MczGZfJhYRsLFInBzM6d EmDbt+ecex8Bbnjaq/+Sk4CjG+8GS0nxIfJvzpqG4RHMz/HaJsEdNsgb27k9 PikOa8hUu5Dn4oDHcexMpcLXmQDfcmMqpDd3hvRVUGFN9L7cnLM0KIiP7mrQ Z0JW4mTmD2BC0PoiXYMAKiwvOs/Z4U8HR82FpQk+RJH/hYQyOmw74llzwoEN JQ3MEoUfMxjuv7m7nAFNW854kRU4MLlhL9fDcAxTVCx50XGJCDf8/1Xv9eKB nzB6+c9fExgt7Ib9NSYNeP3ig/uXckHhTB7n0DoiDOtfnm5xJ4B3xd2wrDsS 8Ml3sou16h8W6+oTskdBDEwKkEaNPR8+GPe5550lgFyEVRfj7RTG9KxZH6zC g+DOxseHHNlgaOgzd/PwFFbOnbcyK4gJqy/mZOrSxAHvD6/LiwY9ZTmqTd5k 2Ky7K3JrGQ1Ubvtd3x86iHn8dbOIesgFfuCBsLWjLKjRUKeaaH3H/NHb3BYJ CXh/2eb6Wj5X1H+x4CImaPx3787iCDb4VfnEXPDjwHPV6reJesNY9TXTncer WbCkTDZWGECD7Zva2zOqx7DBhf+ljLzigOUyJjb7jALNb3+oc0uHMXefdYSl j7hgmrHK1aiSBXh/VqRWE6FzeY9nyggd+NXEt5K94qDa2C8z/80o5n/tbF9V ExPO2Q4puJVRwOlcuQW/ZRZDLXSK9HdxMFPFVoyvJ0LfqdW7K4X/MA997VW/ 43gg6S/toCH5F8NxeipvnsUUdRxMmhUEoHvFzjS+igGGvYGebjwCHF4dn79n BQv+07SAKFMqQMvCvjcCMTAbaDNvH2bDleZCzG1cTGR/kG9NhKdSqps8ZCUg rdfWt2p4GsPjnKbZkmDroRHZU+5cEDb3Dp3kMKHJZzB91YVvWMOljWn0TVzR HC2wY9DAnndTX/b9bwx/1l6dKgmfxDDPcslx7FC8JMnuxQhWpSQz0HVeAOd3 rMw06pnC3Nb4eSahYUzb9+lXRSsBFNff1tlqQoCr20vfxsUOY1fZCYeiovmQ KvuJNWs6ISyXXUXRMKWg5Al6VuxXNorGKPFFVgx0xGfPQEgWDck/KA8IOCxA 27QvzAvSYaJCiHP7aE5Dg4WK3q/NpFFbRN+vbXYsVJ6ucGTpNRpiOlwMW/ZG Col0ID6Zg+x01skeX0kVPedlaMugpC4rbCqiD7Nd7fOjUeY3Vv9VanDZLjr4 vTvWN0/+O2Z0W8YlefVPLMZUNysMt2Psp+FWO+iotDRwKqSChn6XNSptfihA VWqnqwgKFJQXuAxJvaYhRffKGxoXGGhJ3A9C6pdpYVnoqpAtbyhoVK769A55 CeT1tMCT8WoWm11X4g6OH7GbMYIGi3gydPoMPi54NSMcn+9caKGL67cXsdK1 lIc4w37rBDUUlF93fYVZEhUFGCuntnZLItv4Z+pkawoKUx1MDuwgo9yU6KP5 4VJI22dIZpv5MHbzsvdit8ZWYX91WNYpxh9MOcIp+7U5Ec5b6mhlPOnEPEvq 627tJMLNS9TT50/g8+zM+Wog3o7llwQkjDWQQPGv1d3Cwa+YMtzO8YC/WFpX y+hgJw3uyC5fQqkbwUwevv4qcbFJuKuvwV/60w9sQ619X6XatFCd8+kCI5OK jou75VAXs1DYHYVEymYCMlVUX/EKo6LOeIMTeve4yM0rddvBA1SENhfZn1xN Q9mLdpd9DpJEgxZG6c0UCZSzqzY4ZjMZVed57ukJk0IWy8Kdaio4aFdBtfmS AAo6VtRxeq+ZFJo74GWG8WaFVK3x+jETGkK3F3msUGGije9nyb4BYsjCYI9v vTUNdcQFhYeeoiPDDyFTX7uJovMKv+tJR92x66irM5nos1zT5SeKNITj762j kFH0cIJC6nUq0v3LO0WMoiOcn/eUmsXQYepYf8xPvD40ObDhPhPn58cwm/U0 1LPN6NsHCQFSLJA9dv8hG/kUy6sU4Hmfxj59E+wphbot+5q6+li4/dPei5dp yMx9o55/phQK2mYmb65BRTj+xcN6FAS7Punsj6WiEnWxtbnFJBF+O917VLTo aKCHuwMNRW20bEjeMYzNKTrUNBzowfZ6DD7uL6DBVccdOh3l74TSQx3aTXHt mE2dxpFfMhOY1rEvOmvkm4X9HQuk1iV8xbLFDV+qBoxhN7QiWgLrGCjRt6V9 3b9Z4QO3NY/ifGho/YslzIo3HBRxzDY7sntOqPPGN/HMawHKO7Jhx998johv RhvVicjO2TNDV1eAXA+P8iJ/MhHbxjfNMeqP0KKO/O32Ng4qeHtqCc+VI5pT z0AeFUladC1VWyOFDJ7nProZRwLTIEs7vVu9mJOiBk/nKgFSXmg2NA0S4a53 v/Tlti/YCvmBHyaFYjAsHr6hZzVHxH/7LDUyCinr2P21mo/6hqICwxksVKW/ oEryGhFdoRtIaG9io5hqRs/ZXhbC5+i1ixcBGShMBZ4dZaOiRr/22laGiD/r Lb9RUewW5X3t56TRoN6lQMtIBsLn1OdpEhExe9dM211hIDUfWSsjE3GRnjy1 4NDQaOZJbW8bKXRiZ7er6jmmiM+sDgsSMmmODP24no3oz2S8YOgBtsA5TvOd x32hzBp/Le3sCcyw/oRRdPZz4YlUV4O40Uqs+fK8Zj/OJKajI/gUoDIpxPsm fyxqQvgx+cyn2+l8VJ793Tb31aiwrmTg2J1MErJKqK51u8NBOUUjFInxCWGm B+Uji0BGRzdVKJ+N5qK6cD/h3yuvsLpdTtfUzauEhxLpKqpKE9iW+SfyjPaN Y4a/qHcnfhRhj3pCd85c7cJuJtm5D2wcx+6YhRkyUp8I9x7Omb9uqgd7MjC8 KX3Zb+ypbmhX3opvmI1psFGMGB0q/m4czb7LEumee+VrKuIa54f4dPDRaJzN HRsZCTT+X3LHnxEiqtzzQ4/SK4VWKn8h/Dw/J8TP5dPrTgp6OnXoRdooF+Uu psxUkVjIpIMZ4tI3J9Q4diZMQYGJEiOdtBOui4t0gDW4kIL2fFIN4Rfwke79 obPZOE98fo6Wpyf8xN5Y8X4eaJvFVhmbhuThulTid9pz8eoxLHmn/2KPp1So NGh9JKdDQTX6Glt6HxPRW51LWt90pZFkYfmNsliGSE9WEDsoaO326N1HeqVR zTLeHZ/FvzEXrYfry2TahNdcx1hbbg1jzKP3dmqfY/yvLkEsGa2/JVlbv3ke SuK3ptgrSYNW6HKD9FT8HsyueqQdfVuoP/j24fx5UjA8arCX+f0nRnj/ADtq 4iGyp4gfkQT7+8ZP7Eg/sbyDgdKclmbhwZAwk4F38yDp3KryqKx/2Pin0qny +vfYxauZzKs3p4RXW560BW6ZxYw3WZs+/zSMHf1w3bn7sxgqW8fxP9hABzxu 7ek5ccDt8bOrSaj1B9fyX8L/7MpH3VmAxx8UUGSBLSVnYDI6jgUMdWyNPv0d w99vYJ6VhifknqHSJ/8w2/SguwpWnzHtxfnxEfVElPB83ifZc0zA68z8oiYB eP7FrAgyqOR6/X3c3yPCV7tQ7JcwpzjcNy1rHGtQK+lKQt+xos0P32XPlGPP xl23Fv6cxqg3MthqLz9j+wKKLHca/xNmf1TdYanRIuwXdAQtCxnB7NqrvIf7 fov8fRMNJoUblizZntUxhp3607jZAOvA8PZFMFVmhXuJ3q0BD1kwf/Tw1rBx LlTSeXcLDcRQHZqPAVsctDeYTM/c5EEIT/khypsRhjLFA1L0JER26bjDAvg/ nAYnnRu+7BvFRDgu2dcJ8fxXnY6Q4KN14daBcDHIVVm7tSHoD/Z/OHH/L5XE OUz0/62tfdi9q4Mrdeu7MNzfrr2dAjnHHNX/rSWI9iJC0AsKFH6rX/mvd1q0 F4U8xL9T9u2SO5RBp8CqsCSJoWez2He31feiD/PByDdx8bliCnw9KmUzSpjG HiinvNGM5cN5jZjjt3g0ICZQyiINprADj9oFjoZ86JnfvXmvIRHI5SXp75Tx 75CTZnyXCi74qZdH+vGIcLrRfNELPypk+lo9jL/PA75bYFSqOwnu+QwfjeVT oWxxBrNuFw+GEuiVE6fFQPy90bsT32hg8vGMunwiDzJv96YNltPA59OJV/JL Z7B5CTWW009FccbOBMyyRP6trzrJ4L+FPDI6KA5c6dh1dDcW+PlaMs9uo8K4 j/6zmVJxkO9ReBRLZ4pwRsZ0k3G99vJ8kCaO5w16cLeDIcLTEaZPhrAiIZl3 UgIuvTfSeWPAEuFfbtVEglLJ/bGBrzlwWX1ZcHUaCSLEFj2rjaLDNd+V8ziN XPj93X1DhhFRlLd44i8dQqqdOj7g32tBFerJdLxv8btiv6sMzGEZUY+cD0Ty YKVm8CtTXTJcV11ygatEgxV612XCvnPB533j9Fdxpii+f2khFWokE/9cduNA qd7Gtq+PKHDKUKbNaDcBYrzzL2v28qCuOWBU25whinNr7W0KpMRXpMiZS8BO 0/H7lvdpYN592MP50G9hzpBYnLm6HNwtoXH/tInsZm3EgN/CHbzZqeuKcnCx zLGUOUqCSnPlpQMUCjy7Yan7oJ0Np4yvVS2rIuP2zBWutWQw3lewNN2HDesH FmmXU5moQkZx+88pMdTFHKrenchA4eVXL6LhPgwtnp4uqG0V7rOy5/hfHcGC NZ9cd/k1JcT9d0r6U9CCEZ7+53QJ5Hdy0TbJI+NCnf/+bZ35Q0aZC1ddLdor jnpINn3trXXCJ3+/VK6Yq8fWL3AefUKd/P88p7nVVvslEUU8v2aiSIT/mxdO U9xp1pVpDJ8XPS/TEWzo/EfvLf6fRXiaTTLeCTPv36xYd2AMMzX2SGqcpiM8 r+x5IzG0r/NlW8M4vrdCbdqy4VHMnK20bqnNW2GIUO+dWdB3jDidWeaQSwSH VM6riFNUmIN5hMXtfAifKT0g9VgMVDdAMb2FDumExqOqhXwQ9l3clZJFBH/u oOrkNQZYbews/VsogK+NKQs1C0jgqGvyeAGFBqFb7NZIfxGAP9FE6dMfcVGc EqOtFKiadTjxHT/H2TFnrxszbOiTux1ReRufP/JWs+5xDsySHIzf5bNFeCiX EkggJnRNN9vDBUtKY1AWzm+tcMvf9e8pcK88ottmKx848wsHliyiwuiLtjee VlQwXC3xMd5YAO5r4qU6k+jwpPdXwZswMXAuSLk4xOHDHkXVAeojBrz/xljH TprF3E74/dTZwYeOyOQfnbIsCPw8s0FpPQE2pcm2tKsKQLXfxtjiCwOIYb9e 6hQTYcxUk2XwgQ8S+9VQZzIdXJG5haTLFGa4ZHSemaYAhnsspOzPsER4lvXi /Kqqcd3G+MkDhWXO+3b9Ehf1J1eTS4aTRco/Llnx4OHkMizSnymq6+W2NWTY bvRPV6afC0ayJw83bJcQ9TnT4h8FHjxdaNAXygWpoXUpyY5UCHFv1Iy+N42d Djn+VvapAJKr3ubcWkyFv91Z9RFXaPCRY3E9CNeZipzTo8mhNLi+dp5m4ko6 WEkdHP9zig/5Cj5PjnjS4HmIgsbsvlksbrybFpQvCW99GLWHuxiwqcpjedrI NFaXeSZ+jicJ3q9y7ycdpMKxio0PQrSIkCUutel5Gh9yv6yX3qVDgZurpt2l +xnQYnbc9pwnD4pVjZRJOJ8WcROCguqZYFPsGfPGkg+lwd8/W27kQOJu1yWa V+jAu07RKrfnwua2cgebZpbIP+CnEQPyN0VXrsHvHTulCnWHGqYofk70Fjpo PomSACYXsrva4v03UqBi/dT24FgCJIaGT7d6CQCzC3nV6MkU1duCHGjwYCCd 1IN4cHitdotFMEPUn59v4qig+qewWRpxgUhPieRNEkU8/PE6gglzZ3bL283w YJGXi+1nPSqkS/XuOX9bDB4f6jPo3C8JpgHSGWQ6WYQ/bsl5Fvw6MFlq9YMP 5JhnOts8aFDy86baR3xehanRkyU+ArjKsPC56EiGBRdKzKT2EyBtZvDNKxMB FNkUdXqXUaDEruxdnQ0Rtv+wIfwHfEh++ihprpgMlo8D7gYm43t5TFNm/E4e JK1S5TNvk4A6dqPCaOEsJuftJ7VBhQ9f3u88M/uKBE4yst09CmwwZ+ZsRl18 uDHPnCTzhgrF4/X3+BgLZCaX/le8gA/jcWIOLQIKFHRk/NrHZEJlivC84T8u JHkkvCrfRwTJ4r7QQ01M2OOU8ijkBg9YjfofnuczoCwpzX5UA9fpxJ55q1RZ 4BLQCuQAOty6afgnPJgC9UZxpbFCFjQMlnceU2SAxaqaDQmLaZAUniF/wUoc LnjOG7DCcXz38+hZH0aF9eb/HGWADVM/7Jk1tQyQo6Z2TSTj8075/vDkMy7s 5b949jGQDYxdl893NRLBbW2knR6XC2V307apLueAk35sU4QvCWJadm2Lt+fB tWQ9KkeTBerVitH/2ZIhOdlbO0WeD4RT1knW66mQNzY4qKNBg6AbP37LLeYB RfKmb14hWZRXXJVPgblJaRkg8eHEPZa+hxoJevZsd9r3hQyZkmd8luLzmO0R PFTgQIZ1pYH+dReosENl/4XQ1VzQFhjdoP1HEtXbHfOSDitL7yvIC7hgOOWl m+5ChI45U19PfC4diS+0E1dJQErwEux8t5iob1NGR2mwsvxomS1bAnhtu0OU NJjgdLh1ke0CEpSFf+8mZfJBM5UQ153HAi2fpWalkgTQa5tzJZIE4DFauKW4 jgElD/VIg9dmMCeiYPXaAR5InVTih3nR4bHQJejFJTEoXXgiSz2WB3Ex6ls+ fqDCgoNZpUdTxrHUVL2Rk194EFW6VmL0MRms9bvsp5snMHmeDrfIlQ9P9fW1 ti4iw0rdWzO+9hOYjfcwat7IA4eNfb7iOyiwfW+83oGccczN4yJVZZILN38a VCbMionO69TKjxRIrPKyvfiADz5fzhYsbCaARqj6basSOnw1y2DcDeRDm3Lg l575BDje4v7OAdFg86ovB6c38WDBpPpQOFUMtIb3KmefocCJcyP8w8d5cFnp HCeMyRHFOd33nQxrjgt7FJ044Brj5rfoC1vEWyVaLQ0/h9eSO4kcWKB+p9I1 hSOai4dPZvF7YMTu6a2lXFzX6osb+ySg++UQJa+WAkORFgPznbgQZvOPUdpE F5273JF1eP/fUwKLJjnwhfLeOv0vU4RnjVwGEbgzkv+MB8Sh5sxB47/4/bjN RaFmuQEF5I22rV8zLQGBm/stz2gyYd9wuoZqA75P/jRFtMWSUHNs0qfCmw6H rQfVI4onsCinCu+rQ3xwfdm29H0/DW5aqB5WzJvC+q6Ej9YJeJAeldX8tZUK Z7XmbzgzPofJyLce2/2WC85mUUZ5zyigMcPqvLNxClNblibRlioAkx2Hjn/e RxLNRe09XN88NdRotyUk4fFa3VeH+ERRvY+KXjKA71XovKpNAIbZPomqIQxI bR8U/BzD3+eZZiyUZsMzN8+sZl0mnPQxJqn3kkB5i7ntGWsWqHUE7e9XZ4vO q/W8KRncYzDy2GU2rDmfXuZiTRf1Yei0FQm+lj84F3SfDYdcaleP4/cUPo+n GvD97rDLlazrlgKYsX35R+MXBbb0Fn154DSJoYEr9QMXuUAnRFw9b0eB0FMO P1QbprFZzEF48AAXJDINXzip0WB0i61q15UZLKBVe4dEnyRU7Y5wXXGBIMI/ VxJNgSj1jtT6zVwwToj+JCdGEOH/ceE93oeP7fOX6nGhxWlOM/cmzkulnmL/ JjF4rUowE1yQhCuGM2aVymTo5qaFrjw3g316QLgjuMeFZ4rpQalydBiYnWVP MOlgfeLDCrWdfKgiR261qaeJ5jrYPIEM6TMGi9aFsGFPTIC1PH6OuD4kLwqi gO1jo7a2exygH53NlMD5gOvtdvWrdAioDepu3ysBhIv5arsz6CJdWiuD35NB +yTFky/j+LsOBqZ2MkR5P58Jo8H9ULWVan082N//2NA6gSXS8/BcfK/vpzSp 3BniwunofqlFNmIiXVVpcmZAV/uF7J2pXCDlroq8E47vjTHNAR01UxhIeRdb LODBDe38aaoqDSRmjNepzZHgw3/NJziHBDCy7JVa5X2CSOf9Xz6nwUXX+b8f 35IAfX9fZk4UCdK2ju6IqxnDdDMdNR8l8yBtXa51eBUF19Nj3aeCRrFk7fgf p9k88LszvnrjJA0Yf9RWyl6iQnUuKfd6AAsme78Wxj6hwoc+WK3bQgaSOMew qg/nz+a04lx8v8pu1grW+CgGXz8W3BeTZ8O7YBfPulwaXDErHll/hgjS5RYl nvrikKC0Y8OTDzPYi6nl3UelaCBu+OialwsXgg6YV04uJcCpB6lhtrV0QG/b R185SsCWAodb4c8p4LwkaLx40Sxmr2a9OL9bAvzal4oHdlLh88XBizP5E5hy eNGurQZcuLSTtrHdkSjCr2WlRgdD22kVO3MO6P1uVtypzAI8rw0N70dfaHxZ bwETrhx9wTcQzmE4fsHpZ2SI5Ks9N4nkwtKA5IbTkkQR/u0ecmQYyWgjs8W4 EGvzVSknkgSh/8p8KtzmMHtN2tqrZ/G8Kk3epT5EuCTfprBi7TTW4bflJLLB v7OuP36mspwpquvAdB8FQFtlYqUjE6hy8nULdpBE/QyxfkuB2eE/92cSOfD/ AN6c800= "], Polygon3DBox[{{1, 2, 3}, {4, 5, 6}, {3, 7, 8}, {1, 9, 2}, {7, 3, 2}, { 10, 11, 12}, {12, 4, 6}, {12, 11, 4}, {13, 14, 15}, {16, 17, 18}, { 19, 20, 21}, {22, 23, 24}, {25, 26, 27}, {28, 22, 29}, {30, 31, 22}, {32, 33, 34}, {35, 36, 25}, {19, 37, 38}, {36, 39, 25}, {40, 41, 42}, {25, 27, 43}, {44, 35, 45}, {46, 47, 15}, {48, 49, 35}, {30, 50, 51}, {34, 47, 46}, {37, 52, 38}, {22, 24, 30}, {44, 45, 41}, {19, 15, 53}, {44, 41, 40}, {34, 33, 47}, {30, 51, 31}, {43, 48, 35}, { 29, 22, 31}, {54, 55, 56}, {19, 38, 40}, {40, 42, 19}, {32, 30, 33}, {25, 43, 35}, {15, 47, 54}, {15, 54, 56}, {57, 9, 1}, {3, 8, 58}, {59, 60, 61}, {62, 63, 54}, {3, 58, 64}, {11, 65, 4}, {66, 57, 1}, {67, 52, 37}, {68, 69, 70}, {71, 72, 73}, {74, 62, 47}, {75, 71, 76}, {77, 3, 78}, {79, 61, 80}, {1, 3, 77}, {81, 82, 83}, {5, 84, 85}, {86, 10, 12}, {87, 61, 88}, {89, 65, 90}, {56, 55, 91}, {72, 71, 75}, {15, 91, 13}, {92, 93, 94}, {2, 83, 7}, {62, 54, 47}, {95, 96, 97}, {80, 61, 98}, {99, 40, 100}, {75, 76, 57}, {101, 102, 103}, { 101, 103, 96}, {61, 104, 59}, {6, 85, 105}, {98, 61, 106}, {107, 12, 6}, {6, 5, 85}, {84, 108, 109}, {3, 64, 78}, {67, 37, 19}, {110, 111, 112}, {100, 38, 72}, {1, 77, 66}, {84, 89, 108}, {108, 89, 113}, { 38, 100, 40}, {111, 114, 115}, {91, 55, 116}, {117, 86, 12}, {118, 61, 79}, {85, 84, 109}, {68, 119, 69}, {71, 81, 76}, {74, 47, 33}, { 103, 120, 97}, {121, 12, 107}, {2, 81, 83}, {21, 67, 19}, {99, 122, 35}, {96, 103, 97}, {57, 76, 9}, {121, 117, 12}, {30, 123, 33}, {44, 99, 35}, {110, 70, 124}, {120, 94, 97}, {61, 125, 104}, {52, 67, 73}, {71, 126, 81}, {61, 127, 125}, {65, 89, 4}, {106, 61, 87}, {105, 107, 6}, {61, 60, 88}, {15, 56, 91}, {40, 99, 44}, {110, 112, 68}, { 123, 74, 33}, {110, 68, 70}, {128, 129, 130}, {131, 129, 128}, {132, 133, 134}, {135, 136, 131}, {134, 133, 137}, {138, 139, 140}, {132, 141, 133}, {131, 136, 129}, {142, 141, 132}, {133, 143, 144}, {140, 139, 110}, {130, 129, 139}, {137, 133, 144}, {144, 143, 145}, {130, 139, 138}, {97, 141, 142}, {144, 145, 24}, {138, 140, 146}, {128, 130, 147}, {148, 142, 132}, {147, 131, 128}, {36, 135, 131}, {147, 36, 131}, {130, 138, 147}, {144, 24, 149}, {137, 144, 149}, {149, 148, 132}, {138, 146, 147}, {149, 134, 137}, {149, 132, 134}, {127, 61, 118}, {150, 151, 152}, {150, 152, 153}, {154, 155, 156}, {154, 157, 155}, {150, 153, 158}, {159, 160, 161}, {162, 163, 161}, {154, 164, 165}, {163, 159, 161}, {154, 165, 157}, {150, 158, 166}, {154, 167, 164}, {160, 168, 161}, {150, 166, 169}, {170, 162, 161}, {150, 169, 151}, {168, 170, 161}, {154, 156, 167}, {10, 8, 7, 11}, {18, 17, 19, 53}, {53, 15, 16, 18}, {171, 172, 17, 16}, {17, 172, 20, 19}, { 13, 21, 20, 14}, {15, 14, 171, 16}, {14, 20, 172, 171}, {19, 42, 46, 15}, {28, 173, 174, 26}, {30, 35, 49, 50}, {25, 39, 23, 22}, {35, 30, 32, 45}, {25, 22, 28, 26}, {49, 174, 173, 50}, {103, 102, 175, 120}, {67, 21, 176, 126}, {122, 99, 115, 114}, {96, 95, 118, 79}, { 109, 108, 116, 63}, {66, 177, 178, 57}, {94, 93, 141, 97}, {11, 7, 83, 65}, {60, 64, 58, 88}, {101, 96, 79, 80}, {179, 109, 63, 62}, { 126, 176, 82, 81}, {93, 123, 180, 141}, {86, 117, 106, 87}, {102, 107, 105, 175}, {35, 122, 181, 36}, {89, 90, 182, 113}, {73, 67, 126, 71}, {85, 183, 175, 105}, {182, 176, 21, 13}, {112, 177, 119, 68}, { 52, 73, 72, 38}, {104, 69, 78, 59}, {120, 175, 183, 94}, {177, 66, 77, 119}, {24, 180, 123, 30}, {54, 63, 116, 55}, {111, 115, 184, 178}, {139, 181, 122, 114}, {117, 121, 98, 106}, {93, 92, 74, 123}, { 65, 83, 82, 90}, {78, 69, 119, 77}, {127, 124, 70, 125}, {110, 139, 114, 111}, {62, 74, 92, 179}, {2, 9, 76, 81}, {108, 113, 91, 116}, { 86, 58, 8, 10}, {125, 70, 69, 104}, {107, 102, 101, 121}, {57, 178, 184, 75}, {109, 179, 183, 85}, {58, 86, 87, 88}, {78, 64, 60, 59}, { 184, 115, 99, 100}, {100, 72, 75, 184}, {89, 84, 5, 4}, {121, 101, 80, 98}, {113, 182, 13, 91}, {111, 178, 177, 112}, {183, 179, 92, 94}, {90, 82, 176, 182}, {141, 180, 143, 133}, {145, 143, 180, 24}, { 129, 136, 181, 139}, {36, 181, 136, 135}, {124, 127, 118, 95}, {110, 124, 95, 97}, {147, 149, 24, 36}, {36, 24, 23, 39}, {148, 149, 147, 146}, {146, 140, 142, 148}, {97, 142, 140, 110}, {185, 186, 187, 188}, {189, 190, 160, 159}, {191, 189, 159, 163}, {192, 185, 188, 193}, {194, 195, 196, 197}, {158, 153, 198, 195}, {199, 200, 191, 201}, {200, 202, 189, 191}, {153, 152, 203, 198}, {166, 158, 195, 194}, {204, 192, 193, 205}, {201, 191, 163, 162}, {155, 157, 186, 185}, {198, 203, 206, 207}, {169, 166, 194, 208}, {209, 204, 205, 210}, {167, 156, 192, 204}, {211, 212, 213, 190}, {151, 169, 208, 214}, {195, 198, 207, 196}, {156, 155, 185, 192}, {202, 211, 190, 189}, {152, 151, 214, 203}, {212, 215, 216, 213}, {216, 201, 162, 170}, {157, 165, 217, 186}, {203, 214, 218, 206}, {217, 209, 210, 219}, {213, 216, 170, 168}, {190, 213, 168, 160}, {186, 217, 219, 187}, {214, 208, 220, 218}, {165, 164, 209, 217}, {215, 199, 201, 216}, {164, 167, 204, 209}, {208, 194, 197, 220}, {221, 222, 223, 224}, {225, 226, 227, 228}, {229, 230, 231, 232}, {233, 234, 235, 236}, {237, 238, 239, 240}, {241, 240, 242, 243}, {244, 245, 246, 247}, {248, 249, 250, 251}, {252, 253, 254, 255}, {256, 257, 258, 259}, {260, 261, 234, 233}, {240, 239, 262, 242}, {245, 263, 264, 246}, {247, 246, 265, 266}, {264, 267, 249, 248}, {268, 269, 253, 252}, {270, 271, 272, 261}, {273, 270, 261, 260}, {274, 268, 252, 238}, {246, 264, 248, 265}, {266, 265, 275, 276}, {263, 277, 267, 264}, {239, 255, 278, 262}, {261, 272, 256, 234}, {272, 232, 257, 256}, {255, 254, 279, 278}, {277, 280, 221, 267}, {223, 266, 276, 281}, {227, 237, 240, 241}, {282, 274, 238, 237}, {283, 273, 260, 284}, {285, 286, 287, 288}, {228, 227, 241, 289}, {224, 223, 281, 290}, {280, 291, 222, 221}, {254, 289, 292, 279}, {232, 231, 285, 257}, {286, 233, 236, 287}, {231, 284, 286, 285}, {289, 241, 243, 292}, {291, 244, 247, 222}, {249, 224, 290, 250}, {253, 228, 289, 254}, {257, 285, 288, 258}, {284, 260, 233, 286}, {230, 283, 284, 231}, {226, 282, 237, 227}, {222, 247, 266, 223}, {267, 221, 224, 249}, {269, 225, 228, 253}, {271, 229, 232, 272}, {234, 256, 259, 235}, {238, 252, 255, 239}, {265, 248, 251, 275}, {251, 250, 293, 294}, {295, 296, 283, 230}, {49, 48, 297, 298}, {299, 300, 29, 31}, { 301, 302, 41, 45}, {292, 243, 303, 300}, {297, 304, 271, 270}, {262, 278, 305, 306}, {290, 281, 307, 308}, {302, 294, 42, 41}, {27, 26, 295, 309}, {43, 27, 309, 304}, {303, 310, 173, 28}, {281, 276, 301, 307}, {278, 279, 299, 305}, {296, 298, 273, 283}, {310, 306, 50, 173}, {293, 308, 34, 46}, {300, 303, 28, 29}, {48, 43, 304, 297}, { 309, 295, 230, 229}, {275, 251, 294, 302}, {308, 307, 32, 34}, {306, 305, 51, 50}, {174, 49, 298, 296}, {305, 299, 31, 51}, {307, 301, 45, 32}, {243, 242, 310, 303}, {304, 309, 229, 271}, {242, 262, 306, 310}, {250, 290, 308, 293}, {294, 293, 46, 42}, {26, 174, 296, 295}, {298, 297, 270, 273}, {279, 292, 300, 299}, {276, 275, 302, 301}, {207, 206, 277, 263}, {287, 236, 199, 215}, {220, 197, 244, 291}, {235, 259, 202, 200}, {218, 220, 291, 280}, {259, 258, 211, 202}, {206, 218, 280, 277}, {258, 288, 212, 211}, {187, 219, 225, 269}, {197, 196, 245, 244}, {236, 235, 200, 199}, {196, 207, 263, 245}, {205, 193, 274, 282}, {210, 205, 282, 226}, {193, 188, 268, 274}, {219, 210, 226, 225}, {188, 187, 269, 268}, {288, 287, 215, 212}}]], Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm], FormBox["\"z\"", TraditionalForm]}, ViewPoint->{1.3, -2.4, 2.}, ViewVertical->{0., 0., 1.}], {1360.8000000000002`, -189.}, ImageScaled[{0.5, 0.5}], {359.9999999999998, 360.}, ContentSelectable->True]}, {}}, ContentSelectable->True, ImageSize->{985.5092783505155, Automatic}, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{3.6610634206244483`*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1131, 549}, WindowMargins->{{103, Automatic}, {Automatic, 25}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 186, 5, 137, "Title"], Cell[CellGroupData[{ Cell[790, 31, 593, 20, 92, "Subsection"], Cell[CellGroupData[{ Cell[1408, 55, 1253, 32, 173, "Code"], Cell[2664, 89, 1648, 34, 176, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4349, 128, 1796, 42, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[6170, 174, 1638, 39, 193, "Code"], Cell[7811, 215, 291, 6, 23, "Print"], Cell[8105, 223, 968, 21, 77, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9110, 249, 1922, 47, 196, "Code"], Cell[11035, 298, 394, 8, 23, "Print"], Cell[11432, 308, 1069, 23, 77, "Output"] }, Open ]], Cell[12516, 334, 203, 4, 23, "Item"], Cell[CellGroupData[{ Cell[12744, 342, 184, 4, 31, "Input"], Cell[12931, 348, 1022, 24, 77, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14014, 379, 135, 1, 71, "Section"], Cell[CellGroupData[{ Cell[14174, 384, 472, 8, 70, "Subsection"], Cell[CellGroupData[{ Cell[14671, 396, 218, 5, 31, "Input"], Cell[14892, 403, 6828, 115, 287, "Output"] }, Open ]], Cell[21735, 521, 722, 17, 52, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[22494, 543, 193, 4, 36, "Subsection"], Cell[CellGroupData[{ Cell[22712, 551, 770, 16, 52, "Input"], Cell[23485, 569, 12202, 176, 273, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35724, 750, 314, 5, 43, "Subsubsection"], Cell[CellGroupData[{ Cell[36063, 759, 7208, 184, 272, "Input"], Cell[43274, 945, 69529, 1048, 266, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)