(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[   1375272,      23649]
NotebookOptionsPosition[   1363825,      23378]
NotebookOutlinePosition[   1364312,      23397]
CellTagsIndexPosition[   1364269,      23394]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Optimization Lab 06", "Section",
 CellChangeTimes->{{3.577117350884554*^9, 3.5771173532268963`*^9}, {
  3.658533574276824*^9, 
  3.658533578765658*^9}},ExpressionUUID->"7e6e1786-5169-4b38-b8e4-\
a3b61387a49f"],

Cell[CellGroupData[{

Cell["\<\
Finding maxima and minima of single-variable real-valued functions.\
\>", "Subsection",
 CellChangeTimes->{{3.653308767404557*^9, 
  3.6533087832769957`*^9}},ExpressionUUID->"aaed08de-acb3-4136-bc29-\
dba01c2fd117"],

Cell[TextData[{
 StyleBox["Example:",
  FontWeight->"Bold"],
 " Finding the maximum and minimum of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "x", ")"}], "=", 
    RowBox[{"4", "+", 
     RowBox[{"6", "x"}], "-", 
     SuperscriptBox["x", "2"]}]}], TraditionalForm]],ExpressionUUID->
  "ba9d9d9c-57ed-4d73-9d47-44f057346cb1"],
 " on the interval ",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{"0", ",", "7"}], "]"}], TraditionalForm]],ExpressionUUID->
  "95cc4df0-c7ae-4ef1-ab6d-d4a9c5e484d1"],
 ",  including the 2nd derivative test for concavity."
}], "Text",
 CellChangeTimes->{{3.5450950352727532`*^9, 3.545095093124062*^9}, {
  3.5450951439149675`*^9, 3.5450951456910686`*^9}, {3.5450951983780823`*^9, 
  3.5450952026123247`*^9}, {3.545095288112215*^9, 3.5450952973927455`*^9}, {
  3.545096640956593*^9, 3.545096653645319*^9}, {3.545096842396115*^9, 
  3.5450968540037785`*^9}, {3.653308322395262*^9, 3.653308359035692*^9}, {
  3.653313516397213*^9, 
  3.653313519823421*^9}},ExpressionUUID->"3529f5e8-4a92-4084-ab02-\
0c58b5fdbc72"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{"4", "+", 
   RowBox[{"6", "x"}], "-", 
   SuperscriptBox["x", "2"]}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "7"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "'"}], "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "7"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.545095530645087*^9, 3.545095573697549*^9}, 
   3.577382850041854*^9, {3.653306205588087*^9, 3.653306206726119*^9}, {
   3.653310991660734*^9, 
   3.653311001084009*^9}},ExpressionUUID->"261a8a5f-0aaa-402b-bd2d-\
a736adf36b09"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwV13k8lNsfB/AZY+aZGUuo7FtlmUdla5PSfEhZUlGWCGmhpJQkynKVRDeE
[encoded data, 5246 characters]
pTJz31GinFL/ofFxNewuOes3Pk6J/g9520Is
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 7}, {-2.9999988571428773`, 12.999999480368576`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.545095574258581*^9, 3.577117410943584*^9, 
  3.5773828555722313`*^9, 3.57743908982307*^9, 3.5774392345765533`*^9, 
  3.653306166983986*^9, 3.653306209609799*^9, 3.653311001685122*^9, 
  3.653319750732449*^9, 
  3.6585323777461023`*^9},ExpressionUUID->"48d1b7df-b8ff-4a44-a35c-\
59e1a288ca5f"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAoVirt4gsgz5Id9Ps//8XQArZC3aj
lmE/Cn0iV5r7F0CzafocfZZxP8uCccE09xdACLJx8GmWgT9Ojg+Wae4XQDJW
LVpglpE/VKVLP9PcF0BHKAuPW5ahP1/Tw5GmuRdAUhF6KVmWsT91L7Q2TXMX
QNeFsfZXlsE/o+eUgJrmFkCHYSCNslPSP8/zW66JtRVAoHZMXn462z8scTY0
sJgUQO3ygF9L+uE/RcMfKG2BE0BBO8UnBbbmPzCxDrZ+UhJA1L67j+Eg6z9L
EBGcxzcRQB3Tm49r6u8/OQsZHGUFEEA8SqDrzU7yP8S1XxQysQ1AichLX/d/
9D93N7SgCIALQDEP7J534PY/z/ATYYgfCUB4c2UuiRj5P4iMmtF25wZASC7B
4W1F+z+40T4ekroEQHOxEWGpof0/jU7unlZeAkA+UjswdtX/P8KtxM+JKgBA
st2s5UwcAUA4iUxpzI77P4k9LUVISAJA3AlL697e9j8wLJpMDGADQEBPl83O
f/I/BX8BunuPBEDYB/QvIoTrP6lgVc+zqgVAuPpUhWGq4j97pqNKl90GQFCY
xVWLJtI/kRfjV+QKCEAAIi/Gr8iFv3cXDw36IwlAcHfx0KA/0r+LezUou1QK
QFjcq0HZpeK/bm5I60RxC0Bwc0NaJ4rrv5aMTEA4iAxAWDIyAeEg8r/rDkv7
1rYNQKw7LO1b2/a/ECA2Xj7RDkBAgNh4+UT7v7HKjZOoARBAxCo3TqIGAMD9
GvnA5pcQQPRr5AObXwLAsbJaQgkkEUDEymoJJZAEwHx8uXYBvBFA8PHl2gXw
BsCujQ7/3UkSQLg2Ovx3JwnAgzRcUO/UEkAM0nBBvVMLwG4Np1TWaxNAuDWc
UlmvDcDBLeisofgTQAS3oLOG4g/AK4AmuEKRFEBWAE1whSIRwP0ZWxfIHxVA
+jO2LpA/EsBxSYg/gqsVQOKSEH8EVxPA/KqyGhJDFkD4VWU1JIYUwO9T00mG
0BZA3qemkwyhFcD5LvEr0GkXQPJd4leg0xbApZ8H104AGEBKPw+unQAYwLlX
FNaxjBhAcq8orGMZGcDjQR6I6iQZQMaDPBDVSRrAdXMejgezGUDq5jwcD2Yb
wKk6F11ZPhpAUnUuurJ8HMD0Mw3fgNUaQOhnGr4Bqx3Ap3T5tIxiG0BO6fJp
GcUewMI1/4ECZRtAhGv+AwXKHsDe9gRPeGcbQLztCZ7wzh7AFnkQ6WNsG0As
8iDSx9gewIZ9Jx07dhtADPtOOnbsHsBmhlWF6YkbQMwMqwrTEx/AJpixVUax
G0BMMGOrjGIfwEJZtyK8sxtAhLJuRXhnH8BeGr3vMbYbQLw0et9jbB/AlpzI
iR27G0AsOZETO3YfwAah3730xBtADEK/e+mJH8DlqQ0mo9gbQMpTG0xGsR/A
AGsT8xjbG0AA1ibmMbYfwBwsGcCO3RtAOFgygB27H8BUriRaeuIbQKhcSbT0
xB/AxLI7jlHsG0CIZXcco9gfwOBzQVvH7htAwOeCto7dH8D8NEcoPfEbQPhp
jlB64h/ANLdSwij2G0BobqWEUewfwFB4WI+e+BtAoPCwHj3xH8BsOV5cFPsb
QNhyvLgo9h/AiPpjKYr9G0AQ9cdSFPsfwKS7afb//xtASHfT7P//H8AiPDAB

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 7}, {-7.999999714285714, 5.999999714285714}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.545095574258581*^9, 3.577117410943584*^9, 
  3.5773828555722313`*^9, 3.57743908982307*^9, 3.5774392345765533`*^9, 
  3.653306166983986*^9, 3.653306209609799*^9, 3.653311001685122*^9, 
  3.653319750732449*^9, 
  3.6585323778077717`*^9},ExpressionUUID->"8245ab19-99fe-4234-b2a2-\
725076035787"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Minimize", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "7"}]}], "}"}], ",", 
   "x"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Maximize", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "7"}]}], "}"}], ",", 
   "x"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"f", "'"}], "[", "x", "]"}], "\[Equal]", "0"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "4.0"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.5450966914714823`*^9, 3.545096721206183*^9}, {
  3.6533107989428*^9, 3.653310844896632*^9}, {3.653319730469583*^9, 
  3.653319741696827*^9}},ExpressionUUID->"32b198df-d545-483c-b423-\
2edb50297515"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "3"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "7"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5450967233003025`*^9, 3.5771174142906237`*^9, 3.57738285779558*^9, 
   3.577439238491827*^9, 3.653306169957184*^9, 3.6533062121461353`*^9, 
   3.653310845697439*^9, {3.6533197421945972`*^9, 3.6533197529858503`*^9}, 
   3.658532378559402*^9},ExpressionUUID->"115ab649-f6c1-4d69-88e6-\
a8df107a5368"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"13", ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "3"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5450967233003025`*^9, 3.5771174142906237`*^9, 3.57738285779558*^9, 
   3.577439238491827*^9, 3.653306169957184*^9, 3.6533062121461353`*^9, 
   3.653310845697439*^9, {3.6533197421945972`*^9, 3.6533197529858503`*^9}, 
   3.658532378582296*^9},ExpressionUUID->"c09bd9b8-d3b1-42ab-97d3-\
1b4186c7fbab"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", "\[Rule]", "3.`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5450967233003025`*^9, 3.5771174142906237`*^9, 3.57738285779558*^9, 
   3.577439238491827*^9, 3.653306169957184*^9, 3.6533062121461353`*^9, 
   3.653310845697439*^9, {3.6533197421945972`*^9, 3.6533197529858503`*^9}, 
   3.6585323788384953`*^9},ExpressionUUID->"595fbf4a-8cd9-4d9d-bede-\
53cf9cdf7d6a"]
}, Open  ]],

Cell[TextData[{
 "It looks like there\[CloseCurlyQuote]s a maximum at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "=", "3"}], TraditionalForm]],ExpressionUUID->
  "1a943eb9-c4e2-4093-8d0e-e650c02e07ed"],
 ".  Test the first and second derivative:"
}], "Text",
 CellChangeTimes->{{3.653308393182095*^9, 
  3.653308429286933*^9}},ExpressionUUID->"0924fdb3-d72f-439a-a634-\
ac3cb4b8d48a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "'"}], "[", "3", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "''"}], "[", "3", "]"}]}], "Input",
 CellChangeTimes->{{3.6533061563550797`*^9, 
  3.653306238134611*^9}},ExpressionUUID->"cba18a6d-ff2a-45d1-aa05-\
edd73aa8a725"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.653306162647917*^9, 3.653306238604786*^9}, 
   3.65853237920389*^9},ExpressionUUID->"a6d2d5b3-3d31-44cc-98e1-\
1ca336ef84f4"],

Cell[BoxData[
 RowBox[{"-", "2"}]], "Output",
 CellChangeTimes->{{3.653306162647917*^9, 3.653306238604786*^9}, 
   3.658532379208281*^9},ExpressionUUID->"621f08a6-b530-4304-96c4-\
95d77b2f1046"]
}, Open  ]],

Cell["\<\
The first derivative is zero at 3, so there\[CloseCurlyQuote]s either a \
maximum, a minimum, or an inflection point there.

The second derivative is negative, indicating the function is concave down, \
so it must be a maximum.  This is consistent with the graph of the function.\
\>", "Text",
 CellChangeTimes->{{3.653308440489087*^9, 3.653308520709046*^9}, {
  3.653308606349203*^9, 
  3.6533086487002087`*^9}},ExpressionUUID->"16547742-c6c8-45cd-aa77-\
9782343361cf"],

Cell[TextData[StyleBox["Exercise 1", "Subsubsection"]], "Text",
 CellChangeTimes->{{3.653308829116776*^9, 
  3.65330883129976*^9}},ExpressionUUID->"3e00b03e-23c4-4123-87cf-\
58b934a05e77"],

Cell[TextData[{
 "1.) For the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"g", "(", "x", ")"}], "=", 
    RowBox[{
     SuperscriptBox["x", "2"], "+", 
     RowBox[{"sin", "(", 
      RowBox[{"1.3", " ", 
       SuperscriptBox["x", "2"]}], ")"}]}]}], TraditionalForm]],
  ExpressionUUID->"46cfdfbc-b6f4-4c39-bb97-4224ee60ec2a"],
 " find all the maxima, minima and inflection points on the interval \
[0.5,2.5].\[LineSeparator]",
 StyleBox["10 PTS",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 CellChangeTimes->{{3.6533088496892843`*^9, 3.653308849993044*^9}, {
  3.653311160055973*^9, 3.6533111647191877`*^9}, {3.653313588656966*^9, 
  3.6533137034093*^9}, {3.6533137550790167`*^9, 3.653313778827181*^9}, {
  3.653313913151507*^9, 3.653313922523508*^9}, {3.6585327322552643`*^9, 
  3.658532735831684*^9}},ExpressionUUID->"155ae62e-b602-42ac-8670-\
a2e3bb92bc7e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"x", "^", "2"}], "+", 
   RowBox[{"Sin", "[", 
    RowBox[{"1.3", " ", 
     RowBox[{"x", "^", "2"}]}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"g", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.5", ",", "2.5"}], "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "8"}], "}"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6533194243618298`*^9, 3.653319443309083*^9}, {
  3.65853238644343*^9, 3.658532413141357*^9}, {3.658532446182436*^9, 
  3.6585324595173073`*^9}, {3.658532493762779*^9, 
  3.658532518421047*^9}},ExpressionUUID->"3347ba6b-1a76-469a-ad20-\
71d2581a6d93"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwV13k4VN8bAHDmjjXhWyhMZUuIUiEVvUdUUkqEkuyhsqVChagoISJLKlJC
[encoded data, 8662 characters]
5ByqdsvqpaH/AdMnjtc=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 3}, {0, 8}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.658532414255596*^9, 3.6585324604909782`*^9, 
  3.658532518900278*^9},ExpressionUUID->"88339d6e-a7de-4f44-87e6-\
9dfa48284fa9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "'"}], "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.653319459263731*^9, 
  3.653319462783738*^9}},ExpressionUUID->"611123cb-5848-4536-a20c-\
8a38d537d9fb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"g", "'"}], "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.5", ",", "2.5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.65853262562761*^9, 
  3.658532662206286*^9}},ExpressionUUID->"c5685bef-1e6f-418a-afa4-\
899f713d7194"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVlnk8lF0Ux+eZYcaWkHiLbDOEVFKWhHtSSSkhlUREUVRUUhRRKUSJVCRL
[encoded data, 11895 characters]
Tc7O0uDqi+IZfVkx+B9nEjcH
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.5, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0.5, 2.5}, {-0.9354207058309836, 10.168428114900852`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.653319463800701*^9, 3.658532379265011*^9, 
  3.6585326523938637`*^9},ExpressionUUID->"dc4fd737-660c-4eb9-94e2-\
a6c7694cc512"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "x"}], "+", 
     RowBox[{"2.6", "  ", "x", "  ", 
      RowBox[{"Cos", "[", 
       RowBox[{"1.3", "  ", 
        SuperscriptBox["x", "2"]}], "]"}]}]}], "\[Equal]", "0"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "1.6"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.653319483511764*^9, 3.653319622390946*^9}, {
  3.653319670766409*^9, 
  3.653319711899514*^9}},ExpressionUUID->"7aba6c7f-a242-445e-a2d9-\
695ed6b886b0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", "\[Rule]", "1.7175009934308059`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.653319500608552*^9, {3.653319534314994*^9, 3.6533196232145157`*^9}, {
   3.653319692375476*^9, 3.653319712748252*^9}, 
   3.658532379314158*^9},ExpressionUUID->"0da2782f-cec3-4175-859e-\
1b0e392e0887"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "x"}], "+", 
     RowBox[{"2.6", "  ", "x", "  ", 
      RowBox[{"Cos", "[", 
       RowBox[{"1.3", "  ", 
        SuperscriptBox["x", "2"]}], "]"}]}]}], "\[Equal]", "0"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "1.4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6585325481729813`*^9, 
  3.658532561633995*^9}},ExpressionUUID->"0faa76ed-cdaa-49c5-b944-\
d71d57354d5d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", "\[Rule]", "1.3723737845883732`"}], "}"}]], "Output",
 CellChangeTimes->{{3.658532549157875*^9, 
  3.65853256229515*^9}},ExpressionUUID->"81dd2b63-7519-415c-ad5c-\
6983b198eb81"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"g", "''"}], "[", "x", "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.65853268922727*^9, 
  3.658532697245891*^9}},ExpressionUUID->"c354e268-6653-466d-8287-\
a0edd6d04b2f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"g", "''"}], "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.5", ",", "2.5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.658532711174155*^9},ExpressionUUID->"ff71890c-dbad-4544-9153-\
1c5da53f5c5e"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVlXk8lN8Xx4enyBJCUraZkr0sIWbiXkYqbYTIHpIkSbYkRVGWr6SShFT2
[encoded data, 10126 characters]

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.5, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0.5, 2.5}, {-39.56757486920609, 27.669739846595885`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.658532711652183*^9},ExpressionUUID->"093bdbb9-d989-4f70-955a-\
2c8717bb2934"]
}, Open  ]],

Cell[TextData[{
 "2.) Consider the more general function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"g", "(", "x", ")"}], "=", 
    RowBox[{
     SuperscriptBox["x", "2"], "+", 
     RowBox[{"sin", "(", 
      RowBox[{"a", " ", 
       SuperscriptBox["x", "2"]}], ")"}]}]}], TraditionalForm]],
  ExpressionUUID->"783440ac-e00a-43a3-99a4-d4333313dc0a"],
 " on the interval [0.5,2.5].  For what values of ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]],ExpressionUUID->
  "58624935-1b94-485d-913b-8b4fb5f8dced"],
 " is there only one minimum and one maximum (at the endpoints of the \
interval).\n",
 StyleBox["4PTS",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 CellChangeTimes->{{3.653313737188293*^9, 3.6533138463528633`*^9}, {
  3.658533295902239*^9, 
  3.658533300607624*^9}},ExpressionUUID->"ac316379-2681-47fc-89f6-\
613874859dcf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"myD", "=", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "2"}], "+", 
     RowBox[{"Sin", "[", 
      RowBox[{"a", " ", 
       RowBox[{"x", "^", "2"}]}], "]"}]}], ",", "x"}], "]"}]}]], "Input",Expre\
ssionUUID->"e1510eaf-25f3-4000-abff-8d79fb4098e6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "x"}], "+", 
  RowBox[{"2", " ", "a", " ", "x", " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"a", " ", 
     SuperscriptBox["x", "2"]}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.658532963088868*^9, 
  3.658533015641183*^9},ExpressionUUID->"8bca309f-0d96-4769-b888-\
136af6a551e2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "myD", "]"}]], "Input",
 NumberMarks->False,ExpressionUUID->"5c6d44ef-d9d2-466f-8da9-937732be247d"],

Cell[BoxData[
 RowBox[{"2", " ", "x", " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    RowBox[{"a", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"a", " ", 
       SuperscriptBox["x", "2"]}], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.658533017172015*^9},ExpressionUUID->"d69ef2d5-1be4-45b5-8155-\
f5f3a21c4bbe"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", "x"}], "+", 
      RowBox[{"2", " ", "a", "  ", "x", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"a", "  ", 
         SuperscriptBox["x", "2"]}], "]"}]}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0.5", ",", "2.5"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "12"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"a", ",", "0.2", ",", "2"}], "}"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.65853278234158*^9, 3.658532949849798*^9}, {
  3.658532980643416*^9, 3.658533097235968*^9}, {3.658533245823184*^9, 
  3.658533268689397*^9}},ExpressionUUID->"2b43430d-5e3a-4a15-b883-\
067b47e1ec4a"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 0.9139999999999999, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`a$$], 0.2, 2}}, Typeset`size$$ = {360., {106., 111.}},
     Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`a$12484$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$12484$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[2 $CellContext`x + ((2 $CellContext`a$$) $CellContext`x) 
         Cos[$CellContext`a$$ $CellContext`x^2], {$CellContext`x, 0.5, 2.5}, 
        PlotRange -> {{0, 3}, {-1, 12}}], 
      "Specifications" :> {{$CellContext`a$$, 0.2, 2}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{405., {151., 157.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.658533269437645*^9},ExpressionUUID->"7ad17ed3-f04e-4060-9847-\
e826a054d1cd"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Finding maxima and minima of multi-variable real-valued functions.\
\>", "Subsection",
 CellChangeTimes->{{3.653313866481873*^9, 3.6533138755851307`*^9}, {
  3.653314813345276*^9, 
  3.653314817146056*^9}},ExpressionUUID->"9134851f-c255-4221-aa5d-\
421f3158e78a"],

Cell[TextData[{
 StyleBox["Examples",
  FontWeight->"Bold"],
 " of useful functions, using as an example function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "x", ")"}], "=", 
    FractionBox[
     RowBox[{"sin", "(", 
      RowBox[{
       SuperscriptBox["x", "2"], "+", 
       RowBox[{"2", 
        SuperscriptBox["y", "2"]}]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["x", "2"], "+", 
       RowBox[{"2", 
        SuperscriptBox["y", "2"]}]}], ")"}]]}], TraditionalForm]],
  ExpressionUUID->"28ac1403-c007-479c-ad02-5a383c65774e"]
}], "Text",
 CellChangeTimes->{{3.6533140487797403`*^9, 3.653314124087159*^9}, {
  3.653314229265806*^9, 3.6533142322811213`*^9}, {3.65331480297339*^9, 
  3.653314807475033*^9}},ExpressionUUID->"8e070635-8471-49fc-af2d-\
0257a5f3a265"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  FormBox[
   FractionBox[
    RowBox[{"Sin", "[", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"2", 
       SuperscriptBox["y", "2"]}]}], "]"}], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"2", 
       SuperscriptBox["y", "2"]}]}], ")"}]],
   TraditionalForm]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["f", "x"], "=", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["f", "y"], " ", "=", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["f", "xx"], "=", 
  RowBox[{"D", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], 
    "\[IndentingNewLine]", ",", "x"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.653314149037901*^9, 3.6533142515701103`*^9}, {
  3.653314668648457*^9, 3.653314680366124*^9}, {3.6533150002134533`*^9, 
  3.6533150581342087`*^9}, {3.653315149846785*^9, 
  3.653315174155917*^9}},ExpressionUUID->"788d311c-f03f-4b43-b948-\
375389326797"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"2", " ", "x", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["y", "2"]}]}], "]"}]}], 
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["y", "2"]}]}]], "-", 
  FractionBox[
   RowBox[{"2", " ", "x", " ", 
    RowBox[{"Sin", "[", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["y", "2"]}]}], "]"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["y", "2"]}]}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{
  3.6585323793639183`*^9},ExpressionUUID->"7321675c-6d6f-4b99-ae15-\
708fc0a21cef"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"4", " ", "y", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["y", "2"]}]}], "]"}]}], 
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["y", "2"]}]}]], "-", 
  FractionBox[
   RowBox[{"4", " ", "y", " ", 
    RowBox[{"Sin", "[", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["y", "2"]}]}], "]"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["y", "2"]}]}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{
  3.658532379368794*^9},ExpressionUUID->"f85f14ad-eba6-42c0-b1d9-\
e890f0e09607"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"8", " ", 
     SuperscriptBox["x", "2"], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
       SuperscriptBox["x", "2"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["y", "2"]}]}], "]"}]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["x", "2"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["y", "2"]}]}], ")"}], "2"]]}], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["y", "2"]}]}], "]"}]}], 
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["y", "2"]}]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["x", "2"], " ", 
    RowBox[{"Sin", "[", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["y", "2"]}]}], "]"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["y", "2"]}]}], ")"}], "3"]], "-", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"Sin", "[", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["y", "2"]}]}], "]"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["y", "2"]}]}], ")"}], "2"]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["x", "2"], " ", 
    RowBox[{"Sin", "[", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["y", "2"]}]}], "]"}]}], 
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["y", "2"]}]}]]}]], "Output",
 CellChangeTimes->{
  3.6585323793744793`*^9},ExpressionUUID->"2f526ff9-4efc-496f-a097-\
1aa097063d4f"]
}, Open  ]],

Cell["\<\
\[LineSeparator]Evaluating some derivatives at (1,1): (adding a decimal point \
to one number will give you a numerical answer...)\
\>", "Text",
 CellChangeTimes->{{3.6533152542430353`*^9, 
  3.653315278439002*^9}},ExpressionUUID->"29254197-9a0f-4525-bb4d-\
d936cabb2487"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  SubscriptBox["f", "x"], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", "1"}], ",", 
    RowBox[{"y", "\[Rule]", "1."}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["f", "xx"], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", "1"}], ",", 
    RowBox[{"y", "\[Rule]", "1."}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.653315141625517*^9, 3.6533151421718884`*^9}, {
  3.6533151780604477`*^9, 
  3.6533152302050657`*^9}},ExpressionUUID->"55173b11-0d7d-4376-8390-\
2f0b3b668608"],

Cell[BoxData[
 RowBox[{"-", "0.6913549995247118`"}]], "Output",
 CellChangeTimes->{
  3.658532379429661*^9},ExpressionUUID->"f9fd31b2-dae6-420b-865f-\
53077d777246"],

Cell[BoxData["0.04229165576174765`"], "Output",
 CellChangeTimes->{
  3.6585323794352093`*^9},ExpressionUUID->"7e5b5f0c-ee6f-4d2f-a01d-\
75b7a4c3589f"]
}, Open  ]],

Cell["\[LineSeparator]Finding the solution to two equations simultaneously:", \
"Text",
 CellChangeTimes->{{3.65331449961596*^9, 3.653314516309226*^9}, 
   3.6533149213449793`*^9},ExpressionUUID->"a8455c38-e705-47d0-a6fd-\
3eee2598474a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "+", 
       RowBox[{"3", "y"}]}], "\[Equal]", "8"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"2", "x"}], "-", "y"}], "\[Equal]", "2"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.653314519722756*^9, 
  3.653314598631989*^9}},ExpressionUUID->"eefae5c2-9770-4bb5-948e-\
1382067ba397"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", "2"}], ",", 
    RowBox[{"y", "\[Rule]", "2"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.658532379612927*^9},ExpressionUUID->"91e5afdc-6dd2-4594-9de7-\
dc632e431914"]
}, Open  ]],

Cell["\[LineSeparator]Visualizations", "Text",
 CellChangeTimes->{{3.6533149096697893`*^9, 
  3.653314919276786*^9}},ExpressionUUID->"e48aa131-6afb-4dca-b19b-\
878f21a16918"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "1"}], ",", "5"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "1"}], ",", "5"}], "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "1"}], ",", "5"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.65331471530379*^9, 3.653314741658917*^9}, {
  3.653314771942689*^9, 
  3.6533147793112183`*^9}},ExpressionUUID->"21e7d3f1-2ade-4700-a163-\
2b174fb36be0"],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJyUvXdcz9///59RQqKsMhIyClkRGc+nXUZSGYlEIRJFkoSEpKWl0tCeKu2l
[encoded data, 41236 characters]
+zwjcuhojk+033bJt7rEPI/4dWjKhIBo9hvz+8S+Ev2j9Bv/H7HKxuw=
   "], {{
     {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
       GrayLevel[1], 3], 
      StyleBox[GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJxFnQX4FcX3xu/d3Xs3LmEr2B3YxU9Qf3YrJiYSYmF3K4iBAgYKqJjY3d0B
[encoded data, 18910 characters]

          "]], Polygon3DBox[CompressedData["
1:eJxFnAf8V+P7/8/7vN9nvY+kzDIzQsmorJQVygqRTUNCRsjmayRFpSKykgpp
[encoded data, 14091 characters]
+ED/B7ixNaA=
          "]], Polygon3DBox[CompressedData["
1:eJwt1nmUjmUYx/EnvJgRKaQQoSKKsmUpKru0GJROiRRKyxSJ6qROtEepY6kU
iWgZREiHQaLUaGHsy1C2SsKUNkuf67zzx2/e+/rev+t67ud+7mVq9svOur9Y
kiTPU4r6lUmSiqWS5PLSSfJGiSQZ57dxRpJcVDJJ5tK2U5Jksrgv30rxKtqE
TcJ20CjFusmvK297ZpJUxqap+4TixbG5WAdqhn2OPcN7t1rF+X4Qr1dvt3pT
xedRafEkfAX/NvkrsA36Z+GF9Ln4OH6h/s58VcKj/h1qVlG7Kj2sbxp+mD7j
eQw7p3iStOZbSpXwPnh/vlzxYsrA3lW/m2f1jHGo97p3qyv3Vn0ZMU/423Ie
kVsHPyLuR6XkNItxY4P4zsAm8Q3jaxPjUP9nbLx6NXg28s4Sv4NXMOcHsF8o
W+5leFP9lcVP8+8Ul8G/5uutVk38TvGZ+LueMcIzTmCz1LqeunrPp+QX0Hye
++Tsl9vZGG+hYfhevpb4YHnl+PeJa/L+o9Zomqdunv6VeFW/80ul5/sL8Wl8
Y7Sz+WrHuMU3GU9dda8R5xtzV77a+CnYOL7F/OvVqYX9Kx5Dn2BrsLOw6dpP
Yr3ExdXqTKfGHGEb9BXgdbBccUfK9x4pzzhb7k+p9DzHfM/nOx2/UH+W/KuM
p7w4S24l8UK+Ar79fO+XTq+Tgzy/0wOxftTbzTOc3tK3gKeQqmi3wS7l+4+n
Am1Npecg5iKHp5z8PPP8ENZNfDLmjm9PKr1eYt0sxC/m2x5rkiZjM/juwT5Q
u7b+bDVGyrsMO8zzGi3iW6GvKfa7eCwtxJZj78U8yCmU38Y7tpTbH5shniz+
xFwMiO8t96i8iZQr9yu5x3hzfK9GsT94e/A0o0M8r9KnsWf5ZtJQ7X/j/Wkw
TxM6yPMKLdC3lKcitsFYCuh89ZaLG9NvPC/TfL5lfPdjO9WpqH0D71S/bY2l
hrX4OH4x9Y95wvPlZKj1EvXB6mSka8c6jvV8i3gK3yHv0UfebTSQ7y66Xbs5
Xxm+auYgkzffOH4tld53sf/+oY+1u6jxN/6gvBZ8LeTdKj6obnWeplTe+IZi
7fXdzHcRbVPv0aLvW8jTiLJ5zqdKnttKrSaZ6X02BGsrt5e8DHydvEFYMX0N
eOZgY+XkxhlLH8dZF98SGy++Lr6Z+Bz811T6jI2zdgleOc5q77GONJMz/anB
dyTOXPoIW8k3IPaXZ+bFOeS5I9QbzDfZM47KvZdnOM+EGB+Wo85N1E5cnQ6k
0ns19mwubzXsl1T6HIrzaDHWLN5ZTpZnFJi/qp5RP85A9Zbg/fF64i7U1hhG
iy/AG8g7Jr+uOp3U+wL7EDtBs9VpzFcd62l89WkLz1B6nf+3uE8y0+t9Cs+D
1JvnOjpdex7fVr7d6nfASmIzse+wzdj1cW7HfsG2YXuw8nHmmJOecV/EHhDf
QBXibOXbzrcX74KVxWZjG7GdWFfstPiG2GbsR+xarHzcq9gW7Ke4c2mXMZ/A
j9PtPB0pU/ujVHr9xz64Ejspfoe+wtZiV2DHYu3RSuxb7CGsh9/uNBGbE3sr
7lv1pvPlYRuwq7Fi2DTsm6LzuR1WAnsPW4NtxNpjKWwG9i22CbvUXNeLd6Ot
xv62+HK+/+LcjO/G9x1fG+yEeAp9if2AXYXFAp2KrdZch7XGjsd5SKuw77HV
vmU1vwtjrcR5Je7EV0ZuTvzfgO3Q3y3uZWwBtgPbhz3Om2dd1dIeoq+78TXk
+5FnFL3PN09fdexn3zfLOwyk3nxr5C6SuyjORJ48cQO+XfJG0ky5c/Hm2B/i
8UX32yrsDOx79fpqH5E/XW4L7E+eCbSE70t982I/8JXQ7mh8reNepA+t8Ybx
P0yMWd41VE57jtxNcnfxvyg3n2cZfsCYX4r/ZzLT924XvA5+o7x6tDmVvo/i
XiorftMzNsqZzdM37uv4XyPmRruj3LVqVFRrZuw5c7AVW0f3yW1Ff8Veo6XG
stpYLsH2ip+jnKL77Ty12se7YSf9DsIa8e0Xv0Cz+RbFGsL2iZ+nWdin2B8Z
6TW7CWsY347nXKxQ/GzRM2Ke/wedXHX6
          "]]}],
       Lighting->{{"Ambient", 
          RGBColor[0.30100577, 0.22414668499999998`, 0.090484535]}, {
         "Directional", 
          RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
          ImageScaled[{0, 2, 2}]}, {"Directional", 
          RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
          ImageScaled[{2, 2, 2}]}, {"Directional", 
          RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
          ImageScaled[{2, 0, 2}]}}]}, {}, 
     {GrayLevel[1], EdgeForm[None], 
      StyleBox[GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJxFmEmQVVUShu+r+9697963UCgBB7RkEoxgUlEohqpCmcF5AAokoh2hFRCB
wmJyHqB7I06lDfRAd6sRKDgssFCpArTDbu1FbxRWujQcWkONHtz4f/5JuLiR
+c7Jc06eHP7M84bdsva6NU1JkqypJEkq2lpLkoGiB/Ik6dbEjRrv0O8niiRZ
In6p6GaNLxY/U+MdqfmLxT+muRvE3yR6az1JmrVXl+gbkv+T5M6QzFLNz9N3
ufgZ1SSZovHr9fs2yQ2R/CbR6anPvUgyj2uvm8QvEb239B5f1b3HJeIfFt8m
+RmhR39u+Q1Zkoyr+twR6C3+d6LD9K3XPntE79Geu0WH69N0sleyv9fXLP7s
mu97juiwmvUdLvqb3HfYqP2Pap/Nkl8h2qfxI+KP5LbPYcnM0feJ5t7V+KPS
c7b4uRq7WudeoLGLxQ/QvmPF7+M+7CuZDtGTkjmi8yZofoHoaPTSN0lzyyUz
WPw00Scz+21+Zv3Qc4ToKMnt1TdIv/eltgN3fi23HV4X7WwkyZVat0m0X3tN
lN79OndXZnssED1Tcw3td77onbrDKPHdonu03259z2uvxeF3/D9QY+dit4p1
HKTvPPFDGtalWfQF/T4/4u1oZn3Wau3b2Fpjs0U/Lrz3msL3Hir+c829IH5l
k3/3VLw38ftj1ed+VvX9scPImu3MPi36DnMPjc8SPVffcXQTvbJwrD2oey0Q
v0I6fSg9r9Vce2KfLtfvkeK3S2a+ZJZL5huNfat9+7TPW6KX5rb71ZobqrkL
tX6w6CLJT9TaB7T2+6pt86nom6XtNUV0dek7tUu2R3PP6RvCnPZs1/gd2rPI
HTNLxB/Ej5p/VfSgfs/U+J2iUzXWGvlDbP4z4nuM+NVNjp83tGZkxb7H5x+F
P17OTPH7n7lPxfYidshh8ui+3Dm0UDJ/0PgfU+8/SfqOipjuKOzHtbrTOGJX
Y+NFN5SWJ39na2yWvhFhU2z7f9FW7TM+dZ7gD/zSr7UvZfY1cd4mmWlxx2sy
x9WquvN9S8R5GRixOjOesAZ54u0r0XXS5anMOdKd+4zLxa/U2DHxh3XfVo0v
a1jHJsmfHpg4QPQqciP12hbJtGjN7TpzY+FYI5bBxvaqcam7cH6PadhO2As5
8A8cHK8zNhe2+YUN3w+dwZAthXVDxw2F8+ACyXRWjWvgNbEAj2/ektwq6Vnm
jn/Owi8bpd9pmrtLtK/hfGAf9gR/ThTON/IFbOEuxEFH6fwkT8GHRaEPes0L
ndG9rwgMKY11E3R2r2iq702N/1v0qsK+/1Vp/MVX4Cc5SDxsLZwD5AJ5cbzm
HPub7N0fvsOHf5fefTXbCqzgvveUxnZijFijNoADxME5khsr+UGiHzSMrfiC
vHte8mtKxx3xd5nkz9LcSq3/QXSFvqOa21zaX/srzsmbM8ftM5l1BANmhp+I
20URR4dCfpzWvhIyU6rGfbB+rvTvajLmE6sHonZsDZs0FbYbNRYeWzI+XL/X
Fc7lr6Xrk2Fn7N1VGIvIqUXSb5J02VK3zcCihaLLMsf206KXad2rkr+iYpx4
MWrNtsL2mFUaj/ZGfXw96gi+AJ/HVu0z8o88BCu6RDdW3T8Qz13Bnyg9Ti/x
eN19BLmzE79Vjbnrq+Z7iS3NTaw5x7EZtmsJXOIsYoj6Sp29u+Hxfaf6jarz
BF3Xid5btZ+g/G6TzI7Uv+E/Lj1OD0N9ZA/6DnRZH7odqjlmXpEN7s6c57/N
HUOMM48dloVu9ACspYcBD9qjVyF3qO/3190DESMzEtsSm56euA70hD0nlx7b
KvljqbEIexIL+B1fvp+6/8Cm2PNk+HROzfFyCt+46zU1907IE2/4j9oKvrCO
mGDt8aiD1ENqEDL13PkO9uwqjI+c/7+6cZJ1O3PHFPsQc3MDA8HCr0vrM700
FpPXX9bd62AT6h3YSy3d1nBPQE3pzFyLrxXd3nBuH6y4F9yTmVK/yeW/VJyf
5BY5C8aSx9gOu/0199rdgS2naiD6cn90Jk6JW/q5hZE71NkdcTdy/Myoj2dE
HFML7qu7JyWXydv9qfVAh08Kx++2unny7UT0zPRR72rvf+j7V2qspjemp6W3
HVQzP1h0QM3yAyPeeqJnOCt6V3rYm6NHpVcdGj0Pvc/k6D3oQaZGP0lf+V3D
9eMLnXlH/Re7bpd+kyvuZzYVrulg6fio7xNEv2+4DyYHb4+8pk8Gf0ZG3/GY
xvsDS5ujJwS7wCJw5teZaz09CfVrU+4eklzbKvl3dM5/o09DH/QCh+HvyixP
fzUvc4yRP9Sd0Vr3GvW35n7pZNSU9tL1mBoHFmGfLeI7te97wdMzg3v0PPMD
D8FFdBkWPRF9Wm/0DPQk2IQYpQ+gztOnEV/ci76XWoA8sf5UYUwl/okFejVy
kJoM3rUELhEPj9Tde4Dt9JvoSM5jazBjTOD29MgvbMUd6ePmFI6TIYHhuyJ/
8TU9Ar0CuhLL/4l3E3YCR8h/6gvj5HhvjJPnxDixDoZ0p96Hdw39y/QYXxwy
5AL4C+ZSBzvijuAC9hgX4+Ql/QPxtz/6JHKHHpB4aIo+nnstzVxTiCviqzd6
D2rWjrAze/IGuYi3UcN1mLOwPzgBXuDX6+MssBh8nRp95s7AtFWZf08LDOHu
3JF6fzjGue/c2BP8Qb41ZMANePahTmCnKTX7bnRgfk/0sSOiTu2I90VnvMGf
iDd4W9QRvvaIgdbSex6Ktyrj9MAPpa5T2J+aBW7SI+MrfEbPxzvmSJxFz8Mb
+tmGMaQ54pT4ao74XBZ6NscdOJe6gJ/bwg5g7IOp30vUUGKG2GHsodBnauiM
7tj9UNTBo7llj+VRqxL3ZLwrqAXkVle8BbA9byLepAfiDf5+jEPfC/5Y7EkP
D+4TZ9Ru3jC8lXj3YovdkQs//2+QOk+II3yBHj8BOULGHw==
          "]], 
         Polygon3DBox[CompressedData["
1:eJw1lleMV1UQh+/un/uvKL0FlF2aPbRQ1gYivYoxSE8sEZAuLOvSFKXYXgAb
VQ1FTUBQeaAoXQ22B18oT74aBTVCbC9+H3N9mNyZe+bMOWfOb35zah9f+PCC
6iRJvkSaIP3SJHk3lyRdqpKkP/qblSRZmk+SSdgbSkmyHjmCfgKfR9FXFpPk
JuyW2APKSfIS/45hf4E9FX0V8ycwvzv/lmH/Uwy9DWutRn8OqXFd/o1kvD1r
nmLuZOwO6K2R47lYvw16e+Ldh/9h7HX4N2CPI3437MXYHdOYe5Y5ndCXsqdd
6Dv4twR9Jf7D+V9LjMH4NyL73BtJGIG+lv38gP83hSS5hu9qZCLxb8GnoRRr
7ETfnI+1h2P3we7OnEHEb57G/Ef41wJ9Dn4Pon+EvFyInJrb7cg1Er6A9Yr8
8w5G4tuDmD+hT0Y/iX6ImHfi1zyJ/J5GpmG3wp6BfgqZit0S+yR7mZqPXO5G
hhH3tkrY/v8afRTfm7HfRjaij0Fq0bchH7O/WdgPoO9HxqRx50fRTxcCC1MY
74u9CxnK+GjsGvStyCb0p5BBVZHT0YzPxx6JPgV5lRjLPQP5Gcx+13P2WysR
z7jn0D/k+z32ZeQU+opyYOkB/DfgP4H9jGBsLmPf4t8WGYB9O2t1qkQOO2Jf
zXI7F2nG2I1p3GmbStzlXdgd0Yv8a5HEHZYKEcd4e5E70H9sEvHE+L/oR9lP
XZPYwzD0fsz5lMtrzx7H5wMjzn0jH9gRY+b38zSwNzfDlzipR/+VGG8Rrys+
OfRLpcDiPnzqsQ/jt999Y9d539hj08DTCny/Yp3fq+LODqLX4XusOu5gIPrA
ctSmZxhUivGjjN/Pmc+ksf4h7C7YV4yPT6/quNOF6BeR+dWByaXoZebPqQ4M
fcB6PxcDe3XE+qMSNWFttObfVPS/Ge+axBoby7Fn996Lf2PRW+HTh7m9kXbo
n3k21tjGnhfif5n57+WCk54pR01YG96XteeZPNsWxudb39gHsHsTf1yWn0ue
HftsGucRu52xL5Qi34OrAoPWv3zUk7ETaeDx+WLs9WQa9TOvEnx0nD1eRW8s
xN17Xs99D3tom4v8LDB2ObihM3Z9Ke5yS3YfDYUYt1blQPljJrI8499F+C8v
RS26J/nxMcbXMN4Hezz2Iuwd2FvwOY+9AHur3FcV+ZiONOYC43dneBqYho++
3pl3Zwxj/VIMbnkHe3GGt9n5wMeaYmBQLHpG4/3G/KcZ7896o0qRI7lGfjV3
nkfulbPkrqHl8K3LaknMi/0/c4EPa8ba6cb86ZXIp2fzDNOz9abnIwfm4l6k
XS5qSPzKCXKDNTy6FBw+uxh4l9vXZvpi/M/jP6kUuj3N3jYZWdIkOE/uW1cM
7PjvQjn62ev5wPS0StSL3CkHy8XNmsKBzOkhzzO+Cv39XNSQeJND5VI5cGYl
8C127FH2KjlRbqwn3sVy1K93aQ+wF4g5sWd/sf/Kj2ezfmm/rWG8nEaPtFeK
IbFkDdn/rEdzLWdVY08pxVr2bHu3NV+Tce/pfNSgtSiHyWXeX0/sg9irSsHH
fZP4Jx+ey3qEeLaW/ioGdoZn/PdiMfzNkbl6rRCx7BHz8tFPfIfYA+wF8vPs
6sCruLU/WY+XMr5rIE7bNN4HTxaDG+Qq58jnns/c+KYwn/YHe60Ytv7sh6jJ
dxmfebd7qgKj07J+Zu3JmfLpQ2m8PeRY+bMF/xrVCXKmENizN4jfGfmoIWvp
k0Lk80ox3j47s/eKeHPvcor4kjPkDjnWerYe7YXmY3Mp+NG+vjvjk+pScIGc
J/f5JmrKeCV7K20qxdnkdN8HxjCWHOP7wfeYe92Tvc+MN9TeVhX8Yn2INXuW
9bImu0995FfrbWY+7lQsWPPW/pCq4HfvdzBzX0C256O27Y/Wp/kRA7OYMyQJ
bCyzn6Sx5hPoJwrx1jyJTMy4yNi1GabMv7XqG6s5egf2c0MaOTAXK8RbGu/D
scw9gM/2XPCdvCd/exe+Se3fvlcG+ZYDhOVi9CK52zkHCzHffrcts+vz8TZx
ju8bz+hZ5ae9heAocylHyl1yrHd7JOuXvg/r5FLklUK8x3bmgtOeLQRuxI//
fJ8Zx3jX+ScfHNM9jRyaS2MYS0yaD+/UuxXXcpcYFavyjzxUk8bbzPzXZm8L
e6d78r1qDsyFd2h9yjnX7+P//id+0pjvHuzJ1v6xNHq1d+bd+Uax//4H8z9p
Cg==
          "]], Polygon3DBox[CompressedData["
1:eJwt0ckrxVEYxvFzyXhjY7hsDGWMItydsrFxkWFnyMIUJUpkKHayt1dK3RVF
NiRT2clfouyUpc/pZ/Htvs/zPu85572/5sWt6c2CEEI9itCRDuFFkcNVKoSD
shA6ea/0KK55h7waXjfdhTxvj9fGe6SHccnb4dXyOukO3PKOeSe4V0/y1krd
LXNYHsJbIUrMFYewkE6yceY8auToL/kHc+Vyn3pnvNY4z19HjR0y6WQmzrbL
tmFV7xdP6n2zGXcNuvP4f2ZSfgrz6eQN8S11shksy2zLXvDu9MblZuV+8EFX
ylQUJXvEfsxl6QGMya6Y3/U74z1NvEa5b14L3U/3oYp3ZJcbXt4Z8/Ij9LP6
2XnVMYOl0uS8fTTQ73qn6o34jWRfMGSfk///o1emB+2pZMcCe9z54Fm5CXrO
3B/fqDhX
          "]]}],
       Lighting->{{"Ambient", 
          GrayLevel[0.8]}}]}, {}, {}}, {
     {GrayLevel[0], 
      Line3DBox[{920, 1, 788, 1285, 1286, 1287, 1289, 2164, 1267, 1680, 407, 
       920}], Line3DBox[CompressedData["
1:eJwl0DlSAlEUBdCHU1EgzgMOCCiKI05omVDlGjQzdAEYoaKyCI0oy9zEReke
NDLx/DI4dV/f7v7d/1evby7amYi44ikbMSHrgxFN5bvs6cq6s6GIc10nF/Gh
b+hauktdy5wbjqjkI/JylAJjjNNJ68pJprh1PS1nmGWOO928LLLAIkssU2KF
+/Qvsuw7FVlllTVqdN1fT537G7LOJltpHd223GE3re16TzbY54CH9L7+0HzE
MY+6pjzhlB97frNnES8jEa9mxxHP5r55wJz1XNt73x765JcvSpn/M/4D8NIa
4Q==
       "]], Line3DBox[CompressedData["
1:eJwt00lI1WEUxuHj0FUb1y0SpIgWFpiLoFxk4SJyFbUpImgTlWVZNuza2Ubc
iLaUTANtTpM2EVQri0C9jtehucyygjSj6flDcN/7e8/5zvDdTyw6WL3reFZE
PKHNiyJ8YpOvl7kRffSKqvMjXmM/ZejMkogquTl+nt5Qjp418kP8AL2l1eJh
TNMPeker5N7jMf2zOEmDNEGfqcj5OJ5w/hdzzf2DY/SNPtFvGqUaNT9xhn7R
CJ2U+4ofKfkxp8TZmEXTcgv0gQrt+YL7CyIOeYB0TkSllh3ZEbXiOtwnbnE+
JT7CL8hdNe88f1p9B3+RP8t38s38bWzHh9iNz/ExVpnTaM53tf3iJuwVd7rX
gPgapvE6DuINHMKbOIy3cCSZj6N4B8fwLmawC8exGyfwHk5iD05hQ8pO++bs
fSFuxqfiaffrE2fwET7DLnyAbcl+bML5xe7mver4Ej5P/zm+3ox2NYf5Ge9z
id+b5HEntuopw3w9952v51N8D1/IV3iXkmSGeSvEF/CyeLt7L0/uo24bv4zv
5cv5pcm7qtnK+zNGqR17/L4Ncm36jY+NcrvliuWO6itI9uZFHOBb5Fwv1uEV
9WXmOIqV/Fq5LeLU//+Hf/10dqM=
       "]]}, 
     {GrayLevel[0.2], 
      Line3DBox[{1187, 1016, 2060, 1091, 357, 1703, 446, 355, 1702, 445, 353, 
       1701, 444, 1700, 240, 351, 1657, 239, 350, 1656, 238, 1026, 348, 237, 
       1654, 346, 329, 2845}], 
      Line3DBox[{2189, 2527, 2780, 2526, 2781, 3074, 2188, 2586, 2356, 2463, 
       2355, 3011, 2187, 2584, 2354, 2462, 2353, 3010, 2186, 2583, 2352, 2637,
        3054, 2903, 2636, 2185, 2581, 2902, 3053, 2635, 2351, 2715, 2488, 
       2525, 2524, 3034, 2350, 2634, 2349, 2641, 2487, 2686, 2918, 3055, 2640,
        2348, 2579, 2347, 2184, 2486, 2346, 2500, 2345, 2639, 2485, 3033, 
       2523, 2484, 2501, 2344, 2395, 2343, 3009, 2836, 2342, 2842, 2849}], 
      Line3DBox[{2200, 749, 2528, 2359, 3014, 2199, 746, 2587, 2358, 3013, 
       2198, 986, 2585, 3044, 2914, 2197, 1179, 1180, 2109, 866, 998, 744, 
       2968, 2582, 995, 997, 996, 2102, 1166, 1165, 2196, 3045, 741, 849, 548,
        991, 738, 2580, 2357, 3012, 2195, 737, 845, 547, 2194, 545, 2400, 
       3031, 544, 2193, 853, 2399, 542, 2192, 576, 2967, 2441, 575, 2191, 
       1763}], Line3DBox[{106, 1106, 387, 654, 1376, 107, 914, 452, 655, 1377,
        108, 916, 453, 1822, 657, 109, 611, 454, 658, 110, 601, 1674, 393, 
       659, 111, 1108, 394, 1001, 112, 2071, 1109, 396, 660, 113, 754, 1378, 
       114, 757, 1379, 115, 773, 1380, 116, 2117, 1195, 117, 1381, 118, 1382, 
       119, 1891, 760, 120}], Line3DBox[CompressedData["
1:eJwV0LcyRGEYBuCPQh5Dp5AWF8FtiPXuMlYYKrXcCL2V8z0Iu9uJjaExVNKu
S1B6tnjm/cJ//nPmJFKz/TMVEZHhvCaiuy6ih3b6aiNu6yPOzFf0q7RRNEtz
ah6yiTkaGyKa5Yl5haxk1/k/OcOxeV5fIKvfdP+0+p0pjuy75K9dhlZ1rzOH
5uP6EstmCcbMCwyq8/LAmaJc0pfkKAPqHFvVEfv2HepFOknb5+hXX8s9+2H1
CCn9pHc9MaTftfs2W1D/yA0eeeGBHfsvOW/f4l3r5efVb0ywbZ901yufdves
ccdz+R+TLX9/VcSH+ookl9xwUf4H/APR/D3U
       "]], Line3DBox[CompressedData["
1:eJwV0MsuA2EYBuBPqHamuAcLdT5tXYa1VWOt4hIQhw0Sh51DW4pIiftQSrCx
tVAuQOw8s3jyfv/7z8yffwbLlfmlrohY4LIQMZRGlEjYp52LqCYRD7zSYocm
X3wUI7pljUfeeGI3m+3dyg491GnzzjN73LHhnJw8Z9i8mI9I5Sa9ugM5Qsf3
RmWRLY7I2z+Uv/bG5DgNXYELjq1PmGSbF/eZkKecMc23dxPPTplr1JnhR5/q
q+aKeZWb7HzdlX+1Yr1GU9enu9YtW69zr+vP7iT/rOfMDfMnA+ZZ+Q+DJzNb

       "]], Line3DBox[CompressedData["
1:eJwVzzlOQlEUBuBjnBgeatyBW1A0JiiLsOJhZ4xDoa4CC2cWQURCIsaV2FjS
OQEajRELGz+KL/+5/7nvJm9h62jjcCwiUlqZiM1cxH42ok6HOx7zEdeyYrcj
E3nCg/6Api513pUFOdSdyjNudFW5J2fkORd8OP/IvLvbJEnEtJxkiq7duK7n
3iyfdPWL+tKok5dc8eU8lIl935yTGbIUvPGtW6Ppzqp/fJJLrOtacsKdZ/lC
kYrvarTNr7yxTKo75tbco88KA13ZW/ejmXc6/Okbcl7O2f+a/wFZnTIi
       "]], 
      Line3DBox[{2219, 2752, 2800, 2410, 2713, 2787, 3026, 2931, 2548, 2540, 
       2829, 2858, 3036, 2783, 2541, 2859, 3037, 2784, 2543, 2951, 2321, 2802,
        3077, 2801, 2322, 2220, 2952, 2323, 2221, 3039, 2546, 2324, 2804, 
       2803, 2860, 3078, 2222, 2727, 2861, 3066, 2808, 2729, 1502, 2809, 2929,
        2953, 2325, 2810, 3079, 2734, 2326, 2811, 3080, 2738, 2327, 2820, 
       3083, 2819, 2328, 2223}], 
      Line3DBox[{2225, 2711, 2714, 2712, 3082, 2932, 2224, 2831, 2814, 2830, 
       2815, 3081, 2226, 2862, 2970, 2227, 2863, 2971, 2228, 2954, 2329, 2229,
        2955, 2330, 2230, 2956, 2331, 2231, 2864, 2972, 2232, 2865, 2973, 
       2233, 2866, 2974, 2234, 1513, 2235, 2957, 2332, 2236, 2958, 2333, 2237,
        2959, 2334, 2238}], 
      Line3DBox[{2240, 2867, 2975, 2239, 2868, 2976, 2241, 2869, 2977, 2242, 
       2870, 2978, 2243, 2871, 2979, 2244, 2960, 2335, 2245, 2961, 2336, 2246,
        2872, 2980, 2247, 2873, 2981, 2248, 2874, 2982, 2249, 2875, 2983, 
       2250, 1528, 2251, 2962, 2337, 2252, 2963, 2338, 2253}], 
      Line3DBox[{2255, 2876, 2984, 2254, 2877, 2985, 2256, 2878, 2986, 2257, 
       2879, 2987, 2258, 2880, 2988, 2259, 2881, 2989, 2260, 2964, 2339, 2261,
        2882, 2990, 2262, 2883, 2991, 2263, 2884, 2992, 2264, 2885, 2993, 
       2265, 2886, 2994, 2266, 1543, 2267, 2965, 2340, 2268}], 
      Line3DBox[{2282, 2413, 1677, 2281, 3007, 2898, 2280, 3006, 2897, 2279, 
       3005, 2896, 2278, 3004, 2895, 2277, 3003, 2894, 2276, 3002, 2893, 2275,
        3001, 2892, 2274, 3000, 2891, 2273, 2999, 2890, 2272, 2998, 2889, 
       2271, 2997, 2888, 2270, 2996, 2887, 2269, 2911, 2995, 2411, 2412}], 
      Line3DBox[{2373, 2295, 2474, 2455, 2372, 3041, 2560, 2294, 2561, 2454, 
       2939, 2901, 2558, 2293, 2559, 2453, 2938, 2900, 2556, 2292, 2557, 2452,
        2937, 2899, 2554, 2291, 2555, 3069, 2419, 2656, 2655, 2553, 2290, 
       3016, 2917, 2371, 2483, 2482, 2622, 2289, 3043, 2621, 2578, 2370, 2551,
        2288, 2552, 2369, 2577, 2576, 3040, 2549, 2287, 2550, 2418, 2936, 
       2934}], Line3DBox[{2846, 2397}], 
      Line3DBox[{585, 537, 2396, 538, 3023, 2190, 852, 2398, 540}], 
      Line3DBox[{2566, 2305, 2567, 2458, 2499, 2498, 3072, 2768, 2304, 2767, 
       2681, 2765, 2764, 3071, 2766, 2303, 2763, 2680, 2944, 2761, 2760, 2762,
        2302, 2759, 2679, 2943, 2757, 2756, 2758, 2301, 2755, 3070, 2678, 
       2744, 2743, 2745, 2300, 2475, 3028, 2457, 2341, 2564, 3042, 2855, 2565,
        2456, 2627, 2626, 2742, 2299, 2625, 2424, 2813, 2812, 3068, 2741, 
       2852}], Line3DBox[{2568, 2786, 2785, 2706, 2389, 2748, 3027, 2436, 
       2664, 2663, 2638, 2388, 3058, 2923, 2435, 2774, 2773, 2685, 2387, 3073,
        2772, 2434, 2771, 2770, 2684, 2945, 2909, 2769, 2433, 2662, 2661, 
       3057, 2461, 2386, 2660, 2432, 2476, 3022, 2912, 2460, 2385, 2633, 2630,
        2921, 3021, 2631, 2747, 2384, 2632, 2431, 2659, 2658, 2459, 2379, 
       3019, 2178, 2851}]}, 
     {GrayLevel[0.2], Line3DBox[{2159, 1338}], 
      Line3DBox[{1339, 1558, 1559, 2936, 2156}], Line3DBox[CompressedData["
1:eJwNz7FKQgEUBuDjoAZChYuzQwot7iJmLi1RYDoXQU6mm9Da0tISqNhgBj1A
NDa0ufkEKWhLT9BQg0Pf8PH/5557D9z8Za/RTUTEMZVkxEE6osY+db4yEYey
kYpIbUWkSXLKxu5EjuzOmZsv5Ct5+ixZ8MeKrFuf3lvrtwzN224M5BElz2b2
Z3qLJrv2Y/lImScm5DyfymcqtFnw6/sr+eFWR16zR4+VXVdWKbA2F+WNf//m
3nwnf3jQhzLhzkB/0d/ljvlN/wcnCigZ
       "]], 
      Line3DBox[{8, 679, 2551, 23, 936, 312, 1077, 2742, 38, 632, 434, 2431, 
       900, 53, 635, 348, 1088, 68, 2184, 367, 83, 991, 381, 1100, 98, 2207, 
       395, 113, 488, 2469, 128, 671, 2545, 143, 1185, 2804, 158, 2231, 173, 
       2246, 188, 2261, 203, 2275, 218}], 
      Line3DBox[{1344, 1859, 1562, 1839, 1563, 2937, 1706, 1804, 1634, 1688, 
       1635, 2943, 2075, 1973, 1974, 1648, 1696, 1649, 2945, 2081, 1988, 1989,
        1658, 1701, 1659, 2059, 1936, 1662, 1937, 1938, 3054, 1576, 1867, 
       1577, 2012, 1870, 1947, 2109, 1586, 2066, 1587, 2065, 2018, 3064, 2016,
        2068, 2017, 2117, 2118, 2025, 2028, 2026, 2946, 2038, 1602, 1907, 
       1603, 2949, 2041, 2039, 2122, 2040, 2953, 1405, 1513, 1419, 2983, 1527,
        1433, 2993, 1541, 1447, 3005, 1555, 1461}], 
      Line3DBox[{1345, 1860, 1564, 1842, 1565, 2938, 1707, 1805, 1636, 1689, 
       1637, 2944, 2076, 1975, 1976, 1650, 1697, 3073, 1651, 2082, 1990, 1991,
        1660, 1702, 1661, 1963, 1713, 1578, 3010, 1869, 1579, 2013, 1872, 
       3044, 1812, 2108, 1813, 2142, 3086, 2143, 2133, 2135, 2134, 1381, 2042,
        2043, 2947, 2044, 1604, 1909, 1605, 2950, 2047, 2045, 2124, 3079, 
       2046, 1406, 1514, 2957, 1420, 1528, 1434, 2994, 1542, 1448, 3006, 1556,
        1462}], 
      Line3DBox[{1346, 1861, 1862, 1843, 1566, 2939, 1708, 1775, 1806, 1776, 
       1690, 2078, 2079, 3071, 2077, 1977, 1978, 1980, 1979, 1698, 3058, 1962,
        2083, 1961, 1939, 1992, 1994, 1993, 1703, 1787, 1964, 1786, 1714, 
       1580, 3011, 1871, 2015, 2014, 1874, 1588, 3013, 1817, 2020, 2019, 1883,
        3046, 1818, 1819, 1382, 2030, 2031, 2948, 2049, 1606, 1910, 3052, 
       1607, 2052, 2050, 2125, 3080, 2051, 1407, 1515, 2958, 1421, 1529, 2962,
        1435, 1543, 1449, 3007, 1557, 1463}], 
      Line3DBox[{1347, 1921, 1922, 1844, 3041, 1623, 1709, 1777, 1807, 1778, 
       1691, 1780, 2080, 3072, 1779, 1710, 1782, 1981, 1783, 1699, 2057, 3027,
        2084, 2056, 2008, 2006, 2060, 2007, 2086, 2087, 3074, 2088, 1873, 
       1814, 1815, 1589, 3014, 1882, 2022, 2021, 1884, 1593, 3015, 1890, 2024,
        2023, 1891, 1598, 2032, 3065, 1599, 2035, 2033, 2048, 3067, 2034, 
       2144, 2145, 2146, 2137, 3083, 2136, 1408, 1516, 2959, 1422, 1530, 2963,
        1436, 1544, 2965, 1450, 1677, 1678, 1679}], 
      Line3DBox[{1451, 1545, 1676, 2995, 1437, 1531, 2984, 1423, 1517, 2975, 
       1409, 1503, 2130, 3082, 2132, 2131, 1395, 1496, 2095, 3026, 1833, 1956,
        1955, 1388, 1493, 3030, 1752, 1726, 1954, 1953, 1383, 1488, 2009, 
       1720, 1770, 1769, 1376, 1483, 1747, 1717, 1767, 1766, 1371, 1480, 1741,
        1669, 1761, 3023, 1760, 1365, 1478, 2163}], 
      Line3DBox[{1452, 1546, 2996, 1438, 1532, 2985, 1424, 1518, 2976, 1410, 
       1504, 3081, 2129, 1396, 1497, 3036, 2090, 2092, 2091, 1389, 1494, 2011,
        2003, 3025, 1727, 1796, 1795, 1384, 3035, 1489, 1749, 1721, 1793, 
       1792, 1377, 1484, 1748, 1718, 1790, 1789, 3032, 1372, 1481, 1742, 1715,
        1763, 1762, 1366, 2161}], 
      Line3DBox[{1453, 1547, 2997, 1439, 1533, 2986, 1425, 1519, 2977, 1411, 
       1505, 2970, 1397, 1498, 3037, 2093, 1828, 2094, 1390, 2005, 3062, 2004,
        1728, 1675, 1797, 1823, 1751, 3029, 1750, 1722, 1673, 1794, 1822, 
       1821, 1820, 1719, 1670, 1816, 1997, 1744, 1743, 1716, 1663, 2967, 1788,
        1367, 2162}], 
      Line3DBox[{1454, 1548, 2998, 1440, 1534, 2987, 1426, 1520, 2978, 1412, 
       1506, 2971, 1398, 2951, 669, 708, 2574, 400, 457, 2448, 391, 454, 377, 
       2444, 450, 252, 2399, 362, 1266}], 
      Line3DBox[{1455, 1549, 2999, 1441, 1535, 2988, 1427, 1521, 2979, 1413, 
       2954, 1507, 1399, 2111, 3077, 2112, 2110, 2128, 2114, 2115, 2139, 3084,
        1825, 2141, 1824, 2138, 1851, 1892, 1595, 1723, 1594, 1771, 1674, 
       1768, 1591, 2070, 1590, 1948, 3024, 1671, 1765, 1582, 1791, 1581, 3031,
        1764, 1665, 2061, 1572, 2154, 2160}], 
      Line3DBox[{1456, 1550, 3000, 1442, 1536, 2989, 1428, 2960, 1522, 1414, 
       2955, 1508, 1400, 2952, 1499, 1391, 1827, 3075, 2089, 1826, 1853, 3049,
        765, 1724, 874, 1108, 872, 873, 554, 2642, 858, 856, 857, 547, 579, 
       531, 1664, 3009, 1573, 1655, 2157}], Line3DBox[CompressedData["
1:eJwVzqFOQmEYBuBPN49u6PQOnM1IgmQwqcEgbkgQ2ShIQaPDiCJXYCKSDUaC
wc2xOWBKoZh0YtFRvAAewrPv/d7//8/OVvkiV1uIiCMelyI2kohuKqIjL8oP
8r38T0dumRPact38IFmN2F2JuJTHrNlP7dvLESPeqepHvMmV+c45Zd2ArPtF
e4kzfny/qH9laM9T4Ft/Ms/6Huve9f1ng6mzA2d99sk5fyHtzpXzlu6OQ90z
TXngTcO85YY9/ROf+qw9w6a3O7ovXde81tU51v+Rkn/NxJwBPzUt4w==
       "]], 
      Line3DBox[CompressedData["
1:eJwVzi1MgmEUhuHDnOJmchajGCzqZhCHm2MGNkkGpFCcPw03lOhQk8VghaSN
bDAaFYcFgxSZZBxZgiYvwr37nOd5v7MvdXRaqCQiooDHyYjZqYinmYimecL8
YG6YR2iab3iAO3ON+/gz70xH/CQj8lyVbXIGZ7Jtd6pclg+9/eCyfUt+wsf2
Dg7MGdkhf3u3L0u7sY4c1nQb/K4v6Rpcx7W85/0S39rnsKd/s/+ijXMs4gu7
ulduoeO7e65ghLzuhbvy5/G/YAFXbn5yVt/WrdovsYJlzOsuuMj/z2Atvg==

       "]], Line3DBox[CompressedData["
1:eJwVzLErhHEcx/GvOk65iZSz6dJt8rCRZLyj1MUVi5JNudKNV4wyMLozsLhj
NNzoL2AQWZmVqBvYyOsZ3r0/v8/n+zwT27XKXl9EVNHtjxgeiLgbiujIGflW
bso/6MjH/I4LucFvKA1GfGcjlnnfe54zuYi59K1f8p8679o+fPeS2ntB/8k7
3o8YcX+km+SWu1He0j/rsu6e+JwTbto35E37jLtZJCjriul/7afyCtbcPOhO
5Hu+QgGvWLXd6Hvur/lSV0NXLtnG/fPPluczfRVt2xcv2hP51z5mn5ankLcd
8gHW5X/Kny4A
       "]], Line3DBox[{2164, 1680}]}, {}, {}}},
   VertexNormals->CompressedData["
1:eJzMunk0ltH7/ytDiBCRlDElGUKDEq5kLBmbECkyi5CIMhVlikQkZMo8z4Rt
[encoded data, 77348 characters]
//x2QQZoODytvdNFXf9bS35lrOG/6wyvZG//C7NPzcM=
    "]],
  Axes->True,
  AxesLabel->{None, None, None},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], "RotationControl" -> "Globe"},
  PlotRange->{{-1, 5}, {-1, 5}, {-0.21722891442399056`, 0.3086879361224534}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.658532379810658*^9},ExpressionUUID->"99ff2cf5-37f9-401c-9818-\
ac9822d46284"],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJx0vXdcj//3P55RUkQRRbKyooGIjGdmZSTJSCQKUalIkpAoaUlbQ3tqTyU9
[encoded data, 43249 characters]
J97fbPnvuqn0by8ZFDPOK4Ttxnwxsa/8P3RtYkY=
   "], {{
     {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
       GrayLevel[1], 3], 
      StyleBox[GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJxFnWUYFdXXxe+dmTtpdyti/e1OVFREsUUFCxUUGxQxsBVbwcRuxe5OxMJW
[encoded data, 21838 characters]
8b7gdT8bzzJT42/UgZH+HxqgGUM=
          "]], Polygon3DBox[CompressedData["
1:eJwtnHn8D9UXxuezzGeWb0WiBWWpKBQhRURF2veVQiKVSiXaJUubQntalPZC
[encoded data, 15982 characters]
nES4iezhu0eOcbO3E3PBfr812Jv/Bw2UvXk=
          "]], 
         Polygon3DBox[CompressedData["
1:eJwt1nmUT2Ucx/EbjTGcg7LFSaU6RdnaSMmelJ1RKET7ZlpRnbTQLlISykhl
y4yx7wwxSnYGFbKXhBYOdZzS63t+88fnnPt538/3ee597rPc6n2zOvcrliTJ
CEqjiaWSpJuLfecmSeE5STIqI0kmYz2wQ1guVhq7EBuQniR9SiTJUawaf0VJ
da7HY9m0F8uU3Y514EdSF34S3l17B7WX414prEDtFmyBzOse6ClsBbYG64Lt
kquHzcK+xOrTSs/7cHjtdeV/0t4Xcmlye6lt8SS5VO0r1IrPl/1GrjO/U64u
9gKN0t9ybCA14WfKjZOrS0v00YcfTU/yw7xzef1cq8+p2KtYecqWa8Hn4oP4
i2gq1gTLwV7iq9EUrDE2DXuer0jjsRv5nfpu4Znr6GNl9C33FT7QdYWiPoZE
v9SfL0tjsEExprITXVfFzqgfKfMl9gV2ATYBa4KNw4ZhGdgq7/ui2okxhlgV
bJJcC7nPsE+x87D92GvY5yVTzxDv+63awWqX0K/GshdfQm4xv5LKuV6NVXRv
jbrp6l9TdynlFo3VLOwd/iqah7XBWmJXG9/J6g/i6+Kb0XbX/2rvuG+Vp/13
aZrrTdh897aoq4Xt0F9H7F/sB3Vl8HXGtEB75+P7sNnYu+5fTfP12w6rRX/E
QpA7K/ezTB4NlrmMprvVUmYONpSvFXMVa4/NwIbwl1Medis2F3uPr00LsQ7Y
TOxtvibNxdrG98E2ed/irj/Sd33+U/oOS7CvPcsBfrPri73HRTIbsIMxdjRT
7hj2Cf3B76EH3X+IvjcWtY3JALVd9DkNW49dho2RG+N912Bn1Y7l99Fcfk94
7VZXtx9bjC2h/h6pHpalfojav7C1sv1kXsdGu/9sfAvsL+yGkqmaEfwH9Dv2
cdTLlOaLeZ98demYppJZ+GzaLJeBVcSO8cdpJ3Ysvoe6+dTR89WRuZ6ekxuH
ZdOfsdawTDUX8tX0sVEfI7AnsP4xdsbgOuwdrKbaA9paKpupdhhNdr+B3J/Y
e/zLclXlfpDbgg9VuzrmuLYryezX7vdyU+g512Vi3spm8wVyZeQqyO3Fd2An
6DR/Kj01Zo20fwRrE2uGstRWUPc2XsP9/fwD+m0U85vqY/do60rZw9GeXLpn
3ordgv2KHaIjarL4HfovyzeLcZDrjT9PzflH1BbGvh9zGvsp5i2e6/tu5Rfi
W7HhWB5WiC3CCrEGVMWzjdLHrtgTtPWh3Gy57XEuYD/K1MC26rc9djLmh9yd
+DJ1d6anvkHXOGMon+9GV2Hd+d+oD39v7F9YObW9sIXeqQe2nHrGWUS7Y29O
T433QL4vzdFvM/2WizOEb0c5Mi35Tu4d0N5KWue5DmNbPPvEjNT+Hvv88JgD
dDz2P7ymmt9jT5SdwHfEF7j/T3yjWOexF2jvLpkqeGXPsl6uNL7CdV+sgtrd
fPHYZ7FM7EjsV7H+Ys27rixzt76O8pPp5bTUXhx7cjN+fKnUHIu5dlL9+/wE
fEBaam+PPb5hnB/0RlrqDIizoDU/hV7hz6dxWPM4j+jNtNQZEGfB7Xxe7Ekx
z2JdYt3iLKO30lLnTJw3d/CnvF9rz9C0RGq8T8eZH3Nf5ihWaEx3Yw3pP+87
SLY/HZWZrn64XPWic6FznKFxRvGXUA7WKfZxtTO0fVuMdayj2HdplOsaNCfm
C1+gzUl8q7TUvI75/W2cmfztUYc9jm3EZvAd478BewarpI8F+jhiXMt77kPY
MrlPZG6O+S3XC8uPPZpvRGuw3thSbCx/E32D9cSWY9l8Y1pb9B9RNv4v9NFY
+2di38B+kSvmvbbFvuhersw87H2+XtE/SIzLpIzUWP6mdhW+TWY+jXB9DS2V
6yK3ijbzJ2Ivl8+J95L7ALuWlsllyqzAxvNNYr/C+mJL4lzgG9Lq2GewRbFv
8w3inwG7G1sf345vT7uwp7ANcWbyHWg39nSsrZiXfDPagN0f53nslXxr2o49
Fv952Ff8HTEm2BOxJrFcvl3s/9iT2HfYNL5NrBesH7Y21jTfNvYbLAtbiH3I
X0f5sb9gi7HR/I1UgPXANsUZyneiPXF+xfqLdck3pfXYfTGmsf755rQRewBb
HWcFf1t8C+xRbELsa+bP33G+8Sf5/wHKNZyF
          "]]}],
       Lighting->{{"Ambient", 
          RGBColor[0.30100577, 0.22414668499999998`, 0.090484535]}, {
         "Directional", 
          RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
          ImageScaled[{0, 2, 2}]}, {"Directional", 
          RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
          ImageScaled[{2, 2, 2}]}, {"Directional", 
          RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
          ImageScaled[{2, 0, 2}]}}]}, {}, {}, {}, {}}, {
     {GrayLevel[0], Line3DBox[CompressedData["
1:eJwl0jtI1lEYx/HHS17TGlwaVAKxBjUvYUEKLWneutiUDkGLVpCLpW1turSF
r0qDVOqimxGt1aYi5KXyUrZLUGDgEPQ5NLx8v7/n/5znnPdwTt8d6n2YFRHz
fpM5EcnLsJzkFUSclM/I5+V5LFCrVLuYG3E59RRFLKjXqbWq3VJr5T/1DfBN
37rljuyIR/IY9ssNhRH78n1+pNak/wkf1t/Mx/kIv8AzaTbOYTe+wX78iH/x
uTmHetflCVyWrxyL2JDbcBPbcQuv4ud0HvyCnfgVu3A7zccd7MFdvIZ7eB2/
4Q38jjdxH8/l2dN+f+z7Q87givzYuT7Jg/gBb+NS2g9n8RJO4Lj7W3RvY/y9
O8m3fpQ/M6NRzz1+4H6qeB8/hV34ypoWnLLmne+1aW/+llfwdX0NZsyZd0J+
ii/lPetK5VV9u7yEL/Mdfpyv6dnmxbwJf/ufdWqz1jtqNKr9UqtRe2BdYXo7
7uAOn1GzbZzF1/q39OanM/Pq9BZkrbGBRsQLtdw0U3Ga56R3wSe5cVHPM1n/
3+U/PklRLA==
       "]]}, 
     {GrayLevel[0.2], Line3DBox[CompressedData["
1:eJwVzjdSQmEUhuEDCBhW4ajoHiwNvdcFyGBDpTM25jxjzjtQN2NGwMbe1lSY
GvW5xTvv+b5z7g+dlclkIhMRZRRaIy7aIobaIy75Vv7lPyT5iCu+xjNu0t6+
yhn3Ux0R03KXPJLe6xIOjBcisvKMfbf8glH5Nf0WLeY8Zu1z/IgPZO3mdEXU
5U/kdJuY123wmN895TPUdNu8wFt8z+d8h4q7RblmHsAg6vKTN4ftlsw7uje8
p/8pfUe/x8t2u9xw+4Ue8wFW9Pvc1H2jZD7Cqv6QH3Q/6DWfYE1/zGXvNsx9
5n6sm5v4B76BN4s=
       "]], Line3DBox[CompressedData["
1:eJwVzksyQ1EUheGtEe5NRkEPU1BpEpoSSQSJ6NFgAIpoeJN0PAfACIyDEtKS
mXhVvtv4a6291q6zz+TW3vLuWETUkCQR22nEDnJ4ykcUCxED+bu5j3FUc5Z1
b/Jvekxf5R3+CLf8FD2R3/Bf/A8m+FNZiqH5F4nszDzP77vVpT2k8g+c6xbM
n/wA07jHs6xt/45/sTNDy+Y5emFe0pewmN3Fga5CL3U1uoIq/rI/oI4r3Rpd
RQP/2T+wjmtdix56Z4M2kccmuro27ejK7lcwi0f0dA90BNGSLCI=
       "]], 
      Line3DBox[{339, 319, 1753, 698, 321, 1617, 474, 323, 1835, 826, 341, 
       1086, 326, 830, 343, 1087, 1965, 328, 2062, 2891, 329, 346, 1558, 237, 
       348, 1026, 238, 1560, 350, 239, 1561, 351, 240, 1605, 444, 1606, 353, 
       445, 1607, 355, 446, 1608, 357, 1091, 1967, 1016, 1187}], 
      Line3DBox[CompressedData["
1:eJwV0Msug1EUxfFtIEEldalWh+YS3gADt2kTwsDECKmvEl7Au4gQU+pOeQcm
LkGUusQz+J3Byn+vtfY5J983tFyrZG0RsUTljoiNzoj1rogaZridixiUH/C3
OIo3OCEv4T7fwBG8xnF5Eff4K3xO98nu3fVkHpDt4h1flT+aL2XD/Gx6M+3T
ou5C/mA+xzecoby9JmX6V/5Mt4OnWKBp8wnO4TG+4BQt2K/iJM1TXfdLRzSm
68dD+qFGe0QfdnvnG8v2v3CN78Vc+hYqpH+ja8lW+Z50Hjfln+aS7gNXZHnc
kjexKH/HP/oHoiM0Ow==
       "]], 
      Line3DBox[{2084, 749, 2417, 2245, 2884, 2083, 746, 2476, 2244, 2883, 
       2082, 986, 2474, 2915, 2785, 2081, 1179, 1180, 2016, 866, 998, 744, 
       2838, 2471, 995, 997, 996, 2009, 1166, 1165, 2080, 2916, 741, 849, 548,
        991, 738, 2469, 2243, 2882, 2079, 737, 845, 547, 2078, 545, 2289, 
       2902, 544, 2077, 853, 2288, 542, 2076, 576, 2837, 2330, 575, 2075, 
       1668}], Line3DBox[{106, 1106, 387, 654, 1274, 107, 914, 452, 655, 1275,
        108, 916, 453, 1727, 657, 109, 611, 454, 658, 110, 601, 1578, 393, 
       659, 111, 1108, 394, 1001, 112, 1978, 1109, 396, 660, 113, 754, 1276, 
       114, 757, 1277, 115, 773, 1278, 116, 2024, 1195, 117, 1279, 118, 1280, 
       119, 1796, 760, 120}], Line3DBox[CompressedData["
1:eJwNzbcuBXAYhvHPoi66QUkMej02F2DRjliONukJIdGOOzAZcAXsOoMb4DZE
OwwWbVASv+HJ873v9y+1k8vDS1kRMY+u3IiLvIhLHONG7imISHBZfkQ5jvQz
ujtzp36H9/GBbf0Bd+h3eQ9tSOtfuV2f5CFU6Gq89YdF+Zfb7M95zi6jOzRf
61rxJM/qS/lM/6Ub4kck0SKnucR+kz/lBx6Uu3MimuUTuVg+5Q95kO8xgCY5
w894N784l/Tfk9wor3ORboOrMYFpjKPBfo0L7a+yI6rMP1iQv7ne/tac8t6q
PIZKjGIKI6hzZsvdFXM/3uQ+TqEXCfwDpuc3Vg==
       "]], Line3DBox[CompressedData["
1:eJwVz0lOQkEUheGLCVFxATYTIUGd2fBQJgSNSzCOjC2JbQyONOou7FCBddj3
I1ejcQd+b/Dn/HVuVb1XhfrBQiMTEctIeiLueiPu0UIxF7GfjSjxFWxiFcOo
4QRLfRFnziV8DVtYRx6LZrPyFOf2lOUGtlFHAXPo950L82n+gGx3RFsO6C/1
I/LResd9T7KDQd0YrsxH5ZHZs/4FFTT1M3LcbAJvfEg2vOeVT/IpfPBdZ6/t
f+eJroxPvqe/0ZesfxDWVXmbvgV/PKOryVb6//jlXbp52U47eWz9zSv8EB3+
5f5/BpQqWg==
       "]], Line3DBox[CompressedData["
1:eJwVzckuQ2EYgOGvITFdgrEuolEiUXEBIunCwsZWoitjDTEEia7RckriUmqI
YU9iaVW6p1aes3jz/t/7/9852cXS3HImIuaR645o9UT88SgXMI1iX8QYN/Hj
LuH+3ohZvcV58xd+3dV5RR/QBzFu/kbb3TUPacPYdT7iK3zi1M4Fn+EcJexr
Ze8Su3u8YG7wk/mGR7zJpu+cjznBlvMlV1FDxc6h9mwnb/7oiljlO+1Fm3A+
8GaN13Gvv3GHNskb2MSD/s6d+hSX03/hUV/SXn1rxryNHRTSPT3Ht6i7P+F/
yoAzOw==
       "]], 
      Line3DBox[{2103, 2641, 2689, 2299, 2602, 2676, 2897, 2802, 2437, 2429, 
       2718, 2728, 2907, 2672, 2430, 2729, 2908, 2673, 2432, 2821, 2207, 2691,
        2948, 2690, 2208, 2104, 2822, 2209, 2105, 2910, 2435, 2210, 2693, 
       2692, 2730, 2949, 2106, 2616, 2731, 2937, 2697, 2618, 1402, 2698, 2800,
        2823, 2211, 2699, 2950, 2623, 2212, 2700, 2951, 2627, 2213, 2709, 
       2954, 2708, 2214, 2107}], 
      Line3DBox[{2109, 2600, 2603, 2601, 2953, 2803, 2108, 2720, 2703, 2719, 
       2704, 2952, 2110, 2732, 2840, 2111, 2733, 2841, 2112, 2824, 2215, 2113,
        2825, 2216, 2114, 2826, 2217, 2115, 2734, 2842, 2116, 2735, 2843, 
       2117, 2736, 2844, 2118, 1413, 2119, 2827, 2218, 2120, 2828, 2219, 2121,
        2829, 2220, 2122}], 
      Line3DBox[{2124, 2737, 2845, 2123, 2738, 2846, 2125, 2739, 2847, 2126, 
       2740, 2848, 2127, 2741, 2849, 2128, 2830, 2221, 2129, 2831, 2222, 2130,
        2742, 2850, 2131, 2743, 2851, 2132, 2744, 2852, 2133, 2745, 2853, 
       2134, 1428, 2135, 2832, 2223, 2136, 2833, 2224, 2137}], 
      Line3DBox[{2139, 2746, 2854, 2138, 2747, 2855, 2140, 2748, 2856, 2141, 
       2749, 2857, 2142, 2750, 2858, 2143, 2751, 2859, 2144, 2834, 2225, 2145,
        2752, 2860, 2146, 2753, 2861, 2147, 2754, 2862, 2148, 2755, 2863, 
       2149, 2756, 2864, 2150, 1443, 2151, 2835, 2226, 2152}], 
      Line3DBox[{2166, 2302, 1581, 2165, 2877, 2768, 2164, 2876, 2767, 2163, 
       2875, 2766, 2162, 2874, 2765, 2161, 2873, 2764, 2160, 2872, 2763, 2159,
        2871, 2762, 2158, 2870, 2761, 2157, 2869, 2760, 2156, 2868, 2759, 
       2155, 2867, 2758, 2154, 2866, 2757, 2153, 2782, 2865, 2300, 2301}], 
      Line3DBox[{585, 537, 2285, 538, 2894, 2074, 852, 2287, 540}], 
      Line3DBox[CompressedData["
1:eJwVzTsyQ2EYh/FXwSTnOHFLFmC0ZAdqt6RJZUYXQmFGXDZgB7Q2wIoSSYQE
jVEGQcUvxTP/2/uds1xv1k6mImIXN/mIiyTiHCt4zUVUaS2NKNl+8YMBXmxn
+nd7UT6ihyjg2XZpa/BLtgO6jwx/6KOORds3xjh1X6ZDb7/oAtZR1Q/crk3+
a+vRe7zpKrYOX+GfbF1+Hp/4wCq6+i13Gb3GnK5Dt3WPtC3veN+ihcm3dU3b
iO/zV8j4BzqLvWkq9/gUm27vvE91bTnBhu5Wl+ha8jGdkf8Bd+Ex+w==
       "]]}, 
     {GrayLevel[0.2], 
      Line3DBox[{412, 290, 2305, 413, 1069, 291, 2452, 692, 324, 2317, 431, 
       326, 443, 2329, 344, 362, 2288, 252, 450, 2333, 377, 454, 391, 2337, 
       457, 400, 2463, 708, 669, 2821, 1296, 2841, 1406, 1310, 2848, 1420, 
       1324, 2857, 1434, 1338, 2868, 1448, 1352}], 
      Line3DBox[{1236, 1513, 1876, 1514, 2805, 1587, 1818, 1515, 1750, 1516, 
       2811, 1589, 1528, 1543, 2927, 1529, 1863, 1597, 1837, 1545, 1965, 1546,
        1836, 1557, 1472, 1893, 1473, 1968, 1569, 1669, 2902, 1482, 1696, 
       1483, 1670, 1575, 2895, 1853, 1491, 1977, 1492, 1673, 1578, 1676, 1495,
        1628, 1496, 1797, 1756, 2045, 1729, 2048, 1730, 2955, 2046, 2022, 
       2021, 2035, 2017, 2019, 2948, 2018, 1297, 1407, 2824, 1311, 2849, 1421,
        1325, 2858, 1435, 1339, 2869, 1449, 1353}], 
      Line3DBox[{1237, 1458, 1459, 2806, 1588, 1517, 1518, 2812, 1590, 1530, 
       1544, 2890, 1531, 1598, 1547, 2891, 1548, 1559, 1474, 2879, 1568, 531, 
       579, 547, 857, 856, 858, 2531, 554, 873, 872, 1108, 874, 1629, 765, 
       2920, 1758, 1731, 1996, 2946, 1732, 1289, 1399, 2822, 1298, 1408, 2825,
        1312, 1422, 2830, 1326, 2859, 1436, 1340, 2870, 1450, 1354}], 
      Line3DBox[CompressedData["
1:eJwVzTFLglEUgOETlEKRRkG7/YEmk4Iy3SKHcHLRwB9Qm4tF9QuaG9o1p3AL
WjOouUUiq8VNlHIq6Gl4eO+557t8mfpx+WgmIkq8zEYMEhHvPPHJ4ULEh47m
ItrJiBtaTGjajTVn/2O/Z/7VA/O9ruoJTa44o0vFd+e6xob3t2QZmp+9K9p/
OU/5/n9jt8kWfXNed7hjlwKv7pN6SsP7hNbcLWqKB+clrdql9c3co2Z+1BX/
vWDenNFL0s7res2y87bmtKP7/AEfaCnk
       "]], 
      Line3DBox[{8, 679, 2440, 23, 936, 312, 1077, 2631, 38, 632, 434, 2320, 
       900, 53, 635, 348, 1088, 68, 2068, 367, 83, 991, 381, 1100, 98, 2091, 
       395, 113, 488, 2358, 128, 671, 2434, 143, 1185, 2693, 158, 2115, 173, 
       2130, 188, 2145, 203, 2159, 218}], 
      Line3DBox[{1242, 1764, 1462, 1744, 1463, 2807, 1611, 1709, 1535, 1593, 
       1536, 2813, 1982, 1878, 1879, 1551, 1601, 1552, 2815, 1988, 1894, 1895,
        1562, 1606, 1563, 1966, 1841, 1566, 1842, 1843, 2925, 1477, 1772, 
       1478, 1919, 1775, 1852, 2016, 1487, 1973, 1488, 1972, 1925, 2935, 1923,
        1975, 1924, 2024, 2025, 1932, 1935, 1933, 2816, 1945, 1503, 1812, 
       1504, 2819, 1948, 1946, 2029, 1947, 2823, 1303, 1413, 1317, 2853, 1427,
        1331, 2863, 1441, 1345, 2875, 1455, 1359}], 
      Line3DBox[{1243, 1765, 1464, 1747, 1465, 2808, 1612, 1710, 1537, 1594, 
       1538, 2814, 1983, 1880, 1881, 1553, 1602, 2944, 1554, 1989, 1896, 1897,
        1564, 1607, 1565, 1868, 1618, 1479, 2880, 1774, 1480, 1920, 1777, 
       2915, 1717, 2015, 1718, 2049, 2957, 2050, 2040, 2042, 2041, 1279, 1949,
        1950, 2817, 1951, 1505, 1814, 1506, 2820, 1954, 1952, 2031, 2950, 
       1953, 1304, 1414, 2827, 1318, 1428, 1332, 2864, 1442, 1346, 2876, 1456,
        1360}], 
      Line3DBox[{1244, 1766, 1767, 1748, 1466, 2809, 1613, 1680, 1711, 1681, 
       1595, 1985, 1986, 2942, 1984, 1882, 1883, 1885, 1884, 1603, 2929, 1867,
        1990, 1866, 1844, 1898, 1900, 1899, 1608, 1692, 1869, 1691, 1619, 
       1481, 2881, 1776, 1922, 1921, 1779, 1489, 2883, 1722, 1927, 1926, 1788,
        2917, 1723, 1724, 1280, 1937, 1938, 2818, 1956, 1507, 1815, 2923, 
       1508, 1959, 1957, 2032, 2951, 1958, 1305, 1415, 2828, 1319, 1429, 2832,
        1333, 1443, 1347, 2877, 1457, 1361}], 
      Line3DBox[{1245, 1826, 1827, 1749, 2912, 1524, 1614, 1682, 1712, 1683, 
       1596, 1685, 1987, 2943, 1684, 1615, 1687, 1886, 1688, 1604, 1964, 2898,
        1991, 1963, 1915, 1913, 1967, 1914, 1993, 1994, 2945, 1995, 1778, 
       1719, 1720, 1490, 2884, 1787, 1929, 1928, 1789, 1494, 2885, 1795, 1931,
        1930, 1796, 1499, 1939, 2936, 1500, 1942, 1940, 1955, 2938, 1941, 
       2051, 2052, 2053, 2044, 2954, 2043, 1306, 1416, 2829, 1320, 1430, 2833,
        1334, 1444, 2835, 1348, 1581, 1582, 1583}], Line3DBox[CompressedData["

1:eJwVzLFKwmEYhfFXNB3CqUWQhoaCoEGntgZTXERIMHCIIoSWNAKXqEUXKy/A
K3CoS2l0y8Epl5amv0FTP4eHc97n+zh713etfioiGqhtRcxwlI0ob0cc61Mc
6IfyBbt6UT4iyXHuX7lGnhtgrp/xH3ZqehVZ/h5t/oG/xClfQYq/xZPe4Sd4
xV8m4mazqZ/jGWMkfJfv6/sYoWl3KH+8XW3ebPUw4Hf4b/6CX+ifSOOL63B1
f9Zy6W7LE3ci3/15w5xvuZv2CljpJf4fkY0nWg==
       "]], 
      Line3DBox[{1350, 1446, 2866, 1336, 1432, 2855, 1322, 1418, 2846, 1308, 
       1404, 2952, 2036, 1294, 1397, 2907, 1997, 1999, 1998, 1287, 1394, 1918,
        1910, 2896, 1632, 1701, 1700, 1282, 2906, 1389, 1654, 1626, 1698, 
       1697, 1275, 1384, 1653, 1623, 1695, 1694, 2903, 1270, 1381, 1647, 1620,
        1668, 1667, 1264, 1377, 1887, 2931, 1889, 1888, 1259, 1374, 1640, 
       1617, 1540, 1253, 1370, 2888, 1527, 1247, 1366, 1871, 1873, 1872, 1235,
        2930, 1363, 1707, 1609, 1510, 1585}], 
      Line3DBox[{1351, 1447, 2867, 1337, 1433, 2856, 1323, 1419, 2847, 1309, 
       1405, 2840, 1295, 1398, 2908, 2000, 1733, 2001, 1288, 1912, 2933, 1911,
        1633, 1579, 1702, 1728, 1656, 2900, 1655, 1627, 1577, 1699, 1727, 
       1726, 1725, 1624, 1574, 1721, 1904, 1649, 1648, 1621, 1567, 2837, 1693,
        1265, 1378, 1890, 1556, 2836, 1891, 1892, 1714, 1713, 1835, 1542, 
       1834, 1254, 1371, 1541, 1248, 2810, 1367, 1817, 1512, 1874, 1875, 1635,
        1634, 1610, 1511, 1586}], Line3DBox[CompressedData["
1:eJwVzLtKwmEYx/FHzOywNoS1aHYQHBqbvAKXxKFBiCwEh/4SFTQHbRVdQauL
U2tX0NxguAVBGA3RYoFkH4cvv9Pzvvlmp5akImIX1UxEDzuLERV6jzK/Te9Q
4Av0Ejl+iV7gin/LRizwp7iWJ/LTbMQ5PUNan0x3fm56i3mMZyLa+gH/5z7o
hLb8MbK1bCe6ke4XR/of+m07tD3YjuU1JLYP2tEN6aebfTfP8rJcolt41zf0
m3zVmyLdwDpebXu2A/2LN308yn19U1fnV92t4Iu/tfdwgy7+AdCPK3M=
       "]], 
      Line3DBox[CompressedData["
1:eJwVzyFPQmEYhuEXhhKOBt0MjqlzWGUziYlmo2CyOpVhkM2mm4lfYNGNwi+w
EZ3FqjQGDC0Umc7gLBSd1wn37uf9nvf7ds7mUbN2nomIGqpzEffYSyIq3MG2
vMM3KMpFbqEgr/BlivyRj7jDJxJnrzzGEt7My5zjht0mJ+YRL/BvLuJMzsh9
znLd3sz5UB7gHS+6EV/gR1fmXWzNRxzaf9KXzF3zV/omt9HAKh711zzV1fkU
1fRfeRG3mOhO+MD5Mf+584AN716Zh/p9XU9eT7+Jn9G1s2b+5n9TKiwW
       "]], 
      Line3DBox[CompressedData["
1:eJwNyzEvA2AUheErUQZiEbV00KSDCTEJSxfSLoYm+gOM2lTDJmphRkxGo8nW
RoJYDJ0IKQmJLqYGHejCIJ7hzXvuOd+XXl0vVPoioojlRMQZ5ocisnyCKXmW
j5CRM7yHlJzkLXwMRhyji2F3m3ftrzyKtm6ME7ymr/K++4UP+a8/oiQ35MmB
iCaPe3fOP7ZN3Sk2sKC79TZp/3X37I+6J7Twrruxl+0z7k9315syT7tLvIhr
b3a4Y8vrq97nOKsbwYr8Zrvimu2S5/Tf/i3JB/Kz/YG37Re6e/kOdW/S7gl8
yf9ZZTHI
       "]]}, {}, {}}},
   VertexNormals->CompressedData["
1:eJwkmXc8le//x2WLIiKRmZJISNHQm8zIbhEpEjIKSSgrKVuZ2St7b8Jl7733
[encoded data, 86620 characters]

    "]],
  Axes->True,
  AxesLabel->{None, None, None},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], "RotationControl" -> "Globe"},
  PlotRange->{{-1, 5}, {-1, 5}, {-0.5, 1.5}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], Automatic},
  Ticks->{Automatic, Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.658532379991644*^9},ExpressionUUID->"b52f2b4c-9943-4a36-9f54-\
c392da292bc9"],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJyMvQtwndd234cnAUq6EnAOx07repI6qjud5E4f42omnkm+k2mdRE5fftSp
[encoded data, 149267 characters]
2HIYw+0Z/QXS5zlmw8BQn1GzzqILuITGcC4PDoH/A/wIAoE=
   "], {{
     {RGBColor[0.148, 0.33, 0.54], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFmgd0llW2hr9QI4FAIECAEEz5E5OQP6T8IY6KOjRnBvtdgzpiAWV0KVJs
[encoded data, 7991 characters]

         "]], PolygonBox[CompressedData["
1:eJwtmHd0lkUWxgdUEhLSIEAC6vIFkpBAvpCEL8RCcQHbCiruSlmCUkRzECmK
[encoded data, 4392 characters]

         "]]}]}, 
     {RGBColor[0.3167212460895495, 0.41501385645319633`, 0.6328859128419262], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNnHd8VVX29g8lIbQUCEgLkEouNzfhJrkJOoKC4FhwxtHf2CsiWChi17Hj
[encoded data, 13969 characters]
cR6cyyct/j8re8R3QewZJfs2LmOdRax7QbP5tq1slf8HbQpUfg==
         "]], 
        PolygonBox[CompressedData["
1:eJwtmnmcz9X3x9+DsY4xM0aWDGafMT7zMctn+CIxaNW39SvKUkJljRRt32zV
[encoded data, 7442 characters]
uXahmqlqp2MjroUq5t+r3KeZa5nKcb8H/j+LV8Xc
         "]]}]}, 
     {RGBColor[0.6130374688824876, 0.5191505481695643, 0.4586936285163652], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxEnQd0VMXbxpeEAOmdAGmkJ5tNTzYRFLGhggIioIIFFVABRcHeADtiQVGx
[encoded data, 51484 characters]
WveY67DPzbB6Vlp9SmxcDK8R9+hXge4/6/Ph/wHDqYD/
         "]], 
        PolygonBox[CompressedData["
1:eJw1nXm8zcX/x499vS73cl26dPd9PefcJSRSZM8SKhUiUqEo2bLLVogoEtot
[encoded data, 27328 characters]
yBZGPgRP5zlGkmIlyWZ1MONzNOxYTIo5dExjEbQuXDqBC8D/BzKlWNQ=
         "]]}]}, 
     {RGBColor[0.901494199948151, 0.6237354998703777, 0.2946320198392683], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxMnXV81tX7/2/YGBtjwTrv1b0N2MbqXhgY2IEFiqISFmK3gGCiICaIgAgi
[encoded data, 54839 characters]
PHAEUAdn3f8HWYIsmQ==
         "]], PolygonBox[CompressedData["
1:eJwtnQmcz8Ubx3/Otc5da9dV2Pv67e5vd397uEKSVO4jV0kRSQm5cpVyhpRC
[encoded data, 29768 characters]
0q3QvJeOqivw/wCLpAvY
         "]], 
        PolygonBox[{{10997, 3702, 8554, 10279, 10280}, {10328, 2865, 10130, 
         8997, 8998}, {10280, 10279, 8555, 3703, 10998}, {8998, 8997, 14531, 
         7865, 14532}}]}]}, 
     {RGBColor[0.9488290598192274, 0.7420726495480685, 0.441370085439605], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNm3l4FNTVxieQhAAJa4AQIJBMlpmshMkkQau2iiKuuFat2qp1KbjUvaJA
[encoded data, 11163 characters]

         "]], PolygonBox[CompressedData["
1:eJw1mXdglUXWxl8IJZRUAiGJlOQmuTcVws1NYF3L0kGlq6gIIoosqKwoFpoK
[encoded data, 7015 characters]

         "]], 
        PolygonBox[{{11032, 3723, 8587, 10415, 10416}, {10392, 3135, 9032, 
         10277, 10278}, {10416, 10415, 8586, 3722, 11029}, {12597, 5146, 
         12599, 11008, 11009}, {11009, 11008, 12243, 4815, 9974}, {8899, 8898,
          10369, 3121, 10371}, {10837, 10836, 8574, 5146, 12598}, {9017, 1229,
          10129, 11459, 11460}, {11015, 3710, 8575, 10836, 10837}, {9975, 
         4816, 12245, 11010, 11011}, {10128, 10127, 10328, 3090, 10327}, {
         10278, 10277, 9031, 3134, 10389}, {10367, 2864, 10124, 10365, 
         10366}, {11011, 11010, 11014, 3710, 11013}}]}]}, 
     {RGBColor[0.9961639196903038, 0.8604097992257594, 0.5881081510399416], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlklslVUUxw8daXltodAZhLaUfu3rYGnL+z5xpYCASEUkiAs1BF1osOAO
g2gkcSEajUM0JjK0KMhYnDa60DCIDBI1xqgBZKygBFABRRB/f89d3Jz7zjv3
DP8zfbULe+95PMvMjnOyOd1ps75is5FtZr82mS0pMvsN+lCz2Snuv8dmQxKz
FI9ucN/Xwv8lZgeh33AucB+EfsSbLuRL0Dc1ZTaXczTH7Hb4h6CT6812dptl
VZntgi6DvybP7LnxZgPYyuDDDug8zk/oyUfPct6MyDX7O3bb8uE6tAf+2nKz
JzrNdteZNaA/Fx8/GWZ2Fj0rh2Iz+Cl/x3G+x1YXNicgtxF+L7x12N4PP6XY
i/2tbOTgwxJ0ftgINsgcQGY07yrbzZ5F948NZl8G/cXwd0RmM4i3DJ/XRx7/
F63Egj+7U25j1USzqgKzk2n3r4YYt2IrwcbSQjCEv7rc8fyOvGwZZ8ZPG4b+
XPyrH2FWAN0b+f+lrW5DtvrhXZmAf+iZwf0y9wruQ9Ie041St3mUuB7m97Fm
96sg+NaJ3Dr4gxmzS6VeD4cCpsJ2FxgXcr/I/YF6z5ly14etaZxzxDk+cju9
RW6rnLhuwYcG3sXg/hm2noRubnRcHrnZ7AS5LII/m7cTgp43obvA9hQ4JNjq
JsbpyGyDPzbxGjvPu+OqB/h3wj+Af534NpV7rFrmlHIq0u7znMhzfmW45/UV
cjFQhg+8qyKna5HtQPbf2PP7A/m9K3Lfstq9PoRTBX7NjNzuQXilnAVDzFqQ
uRg7dte5vx5iUUyvItNH7iajc3HkeVF+/kT+LXQ+A5bVief9W/RvQuYO9F/l
3Urug+jZiZ8ruLfDfzry+IXDx+D5S+z4bI38jd6+x/00/GncN3A/0+R5OQsd
AP8F6MwC/xngexg8pjR5rwsT1eIHyNyPTD4yn/K+Bz3zkX2+2XFdBa3E5/P4
/HWL15RiVDxZlWa3pVzvEXwoGQU+HfQPuFzKN3sUHEoSnw2z0Dk83LOhRYnn
UflUfavOT6D/hbT354vQRt70I3MF3af5bzv3tnrvT/VpP3i+E3pwBLz9Ld5H
eeg73Oo1sAKZzyOfUQt4ezT2OTMe+bzE9ctOQeL1cgF/sludf6TZsRAmNeDz
buQ4Xwb7qU0e+2p4P6OzDEwaE68P1Ul/rdeZ6m0iNJX4DNEs2RJ5HlXv8vV/
n9E5EGZLZdr7RnNA/w0NNakZphmt/NWj7zD3bHJ4hhrbHGppMHa/5f9YeMs5
bfBPxj6P5Y/qPof+767mfcbtyJ5sFDaFWQUOl2PHWXPx1nqfE5rxmgvqtZrE
a60mzAHNPOnWXL0pzGHN46XM7jUEMpt3Wdjrwu4lfB6VeB2VJY7xU9VekzVh
/jyI/N0Z5/dA+2odW0s8B8rFRuJbXxl0UnMViddJe733s/q6B5m/FD9PN4zz
fTJ8lNft/Mjn3sv0wT/KBVhcg+7tAiP07iP2l8r9Lr2TOnxnaXdlp30Oax6n
u33uaf5pFqv3uzt8Fwq38jb3STqqEp/V2mHC6mzs+6AXnMYkPquPwduED4MV
9HiXywpfyS8scRnlprLF71OI46bEMXiswetS9fk29LU6f1OF7OIWn4/ajV1h
F+S0ev3KlnJ2MMzYr5CdVO3xKh59L8gP5Vqxrqj23SDM9F5vl3V6DZ/B/9yA
j3DaE3a38M4Oc0CzQXtU8qr9TWFfaG/EYVfWIXMt9v2iPZMf9qP25Pthdu2A
Tgp7R3lIUSsxvg2DvhF5LIpJ+1gYTidfbR1eA0uoqZPh20bfODmJx1QKvReZ
LmTmdvi80NzQd4p2pviqRX3LxGEHFacdf82/+2p9pmmHn4t9Vu4hj+l2x1zY
V7S5Ln2XLez0OlvU6bNYcRXV+u7RDpqFnryM5yMfOpST4V4IzUq8x9Xr6kXN
BPXwonbP11XwGRP2i/ZMJvirvTW32/tnHnROxnP6B/7ODPtipHqxzmejvpW0
45WLMnRWtzue+t7RblMvq6dVL8JfuR8d7NZEvoe0j1LEtT3spm3Q/wDUaoRI

         "]], PolygonBox[CompressedData["
1:eJw1lmtslFUQhoeytPS2pUV6oXLZbsvuststhZbdIv4xFLkoFbkoxohBQCNC
q//QiIkaNYLReInGBAstykWuKv5BE5VCjKhojDGICohQykUxWlEE9XmZzx8n
mfPNnDkz77wz54ssar95RY6ZbWaFWD01ZnUI3azcFrNCVjnfz5aYFSGfz5od
LjabOBx9xuyGqNkRbH9BX4m+lNVa5N+GIPdhP539fFZP3OzJiNnjYbMmfOxO
mLXxrRjdPezfryOOJrPeCrNhpWZHOdvLuh79EvRHsC/H5ze5brMF28UTzJ4l
wB3cV4FuKOt73X2VWbrR7ATnGzjfW2h2NXcZ+gUDuB/9XPRPEc8TxFOEzQz0
21jTkN9jneXsLei/5tgSbI6ONWvnvtfK/Zt03xLzo4PNqvLNhjeY9XPmIPd/
Sox/IHfi7zp85VSanWO/ELx+DTkmK/EVIZ7KArMseBaB5zL89ec5PqPQdde6
r3zsR6geGbdVDVSL31ir2H+APgM+fWPMBuKvGv3P6FYTcxmxD2WtQb7Mt6Ic
j/kf5F0xs9sKHf9jwjft8XdhX4FcHXfsSsDrB+yPZT2WfazJ2E+Pe/wZYsgn
tu34W4D9Hfg7lPCYFNsk+HEqSV2Sjrc48jpna1nnCj3Gp4nvPPzrCDlGBeR7
IetcXI9+AmczrA1h58SbnH0ADNeVe82ng20ZZzpzHZPZxDOafQXxNbMPsV9P
zdZxPqfKbG8z/I177RXv2jrHSFipZqqdYlbsJ9DfiW5Oo3NH+ExEt3E0vuBC
WjVu8W/S9ZeRA7HPDPwrZ+X+VYocS5xDp9HXcOZ+4nuY+G4ivmHsX811jovr
Gzk/lfN7WGewv/d/fmCfg/2soH+EibDpH+O6DfBtLvm1Zdx3m3xge6kev6Xu
f2TKfcq3araD2vUG8amfTiLfXeP5q4YTqeW0Mc71Pdgvhu+z416rKzXDdnzC
e0c9tBVdR8R7sZN8O6jV0nFm8wp9pmwFu+diPm9OcEcP9+Ulndvi1CDkEej/
BcvT5LeafbLRuShOjsD/55yZEPL5dBC5MeH5CLM30B8b672rfr2VWMbho5P9
JPxfIvdoi9dWNcjGfEbND+I/hT5U79wTBwfW+wyQP9Xod/QV3Hkg6M9K5KFp
r79mTBnyLuwzYef4S+qVpPe+MKtAvtzgXFHPaXaswMemEp9/F7nvLPl0EN9j
9Gshck+zc1f9W8nZ4ynPTTX7CfmVoJ+EycvIS6nJzmGe40Ji6U16rvr2/Hgw
znhvqEeWaz7Hfd4onsn000PxgNvcsYl6FWS811Ufza5Hah2LLuJ9gXyvqXNZ
GB3hvpKkzzJxNoycl/G3Q/epN7vi3q96P74g/lFxx1qc2E/s78ScWxeG0OPg
0ZvxelxbTX0yjomw2UaABchNCee2YlJs85q9F3T/SO5bVeu+hLGwFsbCWj3x
d737lG/Vrwu+5Kadq1H0ecj7m3yWa97MAJ++wF4xJalHd8TP6pt0wlzYq4fU
S5sj3qvq2RvJNY99Nuwc2YntaeJvL3bOi/u3R52P4swu7GcG7+0c9h+yfwZM
z4R9pg8gv7XBe6MZto16dcd91mr+6K07FLxXmoFVDW4jW8WgWNoD/gnzfPzl
pz13cXww8ua4z17loFyKIj471HPqvQVRj013bsB2Stx7YxE+X6zxN1XzQW/O
WzF/c/T2CI/jWX/j9darf09m/Q3RbNYM/ZH9lIRjrxxbE/7G6a0TZn3sq1p8
dqkfhiM/GLw/4thK5PuIZxnrMOe+Y/3FKh3k/P4z62+a3jbNqC3EF27x2aJ+
Kkb+KOWzSvzcRz7Njc7lK/9EyJ+l3F6cOZDyN0XxC6Od+Hs34f2gf6Biarcp
mO/KeTe2F2M+W9XzZxL+TyR8hNfb6KrH+SxXD7ew3x78r4gj4sqsqM9azdx6
4klHHY8QnP24yb9JpzezDd3eGp+l+kdapbck4nepRprl6kn1pjgn7n0Z7IVn
CDxiLd4/4sxydJ/U+l36J7uLed8ad+w0k6YiV6WcC5oxmjXKWbmLU1viPuM1
68XpNcj/Ab8dj1I=
         "]], 
        PolygonBox[{{11058, 3744, 8609, 14586, 14587}, {12588, 5135, 12587, 
         14599, 14600}, {13168, 5791, 13169, 10311, 10312}, {14600, 14599, 
         9017, 4069, 11458}, {14083, 6709, 14085, 10347, 10348}, {14564, 3118,
          10363, 10125, 10126}, {10427, 3151, 10428, 8571, 8572}, {14556, 
         14555, 13155, 5775, 13154}, {8572, 8571, 13652, 6308, 13651}, {10312,
          10311, 14089, 6711, 14088}, {14587, 14586, 8608, 3743, 11056}, {
         10126, 10125, 10367, 3119, 14565}}]}]}, 
     {RGBColor[1., 0.9499999999999998, 0.7499999999999998], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkDFLQnEUxX/VElJDBkFKvvuQyHBQCmlpzRyCoKamwMGxDIoI3AsM15Ym
nYLmlj5Jn6BoNt3Ec7tvuJzD/Z93zrkvbV+fXS0CJc2SplmB3AocCZcPYG0B
WuJDg8MijITjJPYv4ucNKIj3Uni14FO9r1YhycHHbuhc/6d9In6svVmM8xPh
MA3/H2V+VsLnVLxfDc3WDhQtPAsWGa4ZiN9n/t5rkHWYiN+KX6zDnbC7H5qu
cvYsbpwlkee538IHad424LIcN//rtbuRPs2LW/TwPr+66z3z79ThyeLbR+Fz
1tm7+3/xPn7TZi18vrZhDvhGMCY=
         "]], PolygonBox[CompressedData["
1:eJwtlulv1VUQhg9t2asWlUWp9nQvvZVaWri/q7jgriiyKa6IFQFlaaKJcamK
iiYW3HeN4k6EqNE/waCJiV+Mn0xUxB03BDdQEJ/H8cObO3PPOnPeeefX2D8w
f01VSukJUAMaKik9lFOaCFa2ptSO/yr23oaUPi9SGoF/Bf5f+Fub8MspPYZ/
BPiF8b2gjH0wGGxmTWdK87F3MX9RY0oDXSktxX8FtLHXlo6UZmJfAsol1vHf
tdjLwPvM/Zr9hmO3gPvbU1rF/OnYj4Bqzv6C8QPsfTr+x1NS+hl/PPYksKMt
pZ/wD8eugI2s/RI/YZ8JtjN/BzgrxxrXjuP8AezjvCPzl3D/87AvB9+V4j/H
FoI6/G9YMwr7DLCNvf7APwa7C/yOvZ71c7HPB0OdEaOx9oE57HUs/gXYs8Df
zN8Fjsa+GMwoxZ29+zywgfVjuF8/9jDzTf6r8Odg7yQHm/g9Cn+I38PASy0p
/cB+h2AfDzaxVyvjLzsPTCCfPzJeh30CeJ3xWsZXYC8HY7G7elK6AftX9v+M
uVPxb8K/0TMY38qaE51rvhmfjd+b4018mwnMuQ3/VnOM/TZnduY407P7e1Na
ayzM/6SIGI3VnJm7etbci30oeJF4jsS/G3udnMN+ry+l+3K8sW/9Jvt35IjZ
2Ccx507skeBc+Li/O6XrcuTYXBuzsY/xffFn8oYnY+/nPtuL4JzcqwFf4bew
3wvYexjfhl/vG+bgqFzdzPzWHHu4VzPzN2I3gt2MT+NNF2FfCHpKwQm50SPH
2esdOH819hIwqhIckAs3gwXkfiG4BfsckBifSw08h/0saMIvc+ZJ2M2+GefN
Y/x57OvNYSU4J/esAWvBnJt7a8ra6uW8i7Cngj+L4IzckeNy/R9wGvap5qiI
GrAWfHPffinveUeON/Vtv2dOLfZq8BGxfQhW5XgT38Ycm+uh/7mr5qg9D/hG
leCwXJYDcqEOrMlRo9aqNWAtXAlG49cQ76PYD4OMv5b147BL4LciOCN3qkE3
fDgI/5ocmqP21IDLctzRu6pZatddntkbnJf7I3wD1g/HX2ztMufdpuCQXLIm
rA3f3LdXQ9QS7+hd1UC18A340p6Ds3LXN/zvLUGBv9g75qh5a38zfN+Qo6as
LTVZbV6P/1pfaJraNgW8xfqR5OPxHBqtVquRaqVnerY5MBe3g4mViMnYrClr
y5q1dgetsUpwSC6ZI3OlJqqNck7ueQfv4h29qzVn7a20JpnfCJ7Efsp4uM94
7lCfQ5PUJnuGvcMas9Z2qiE5epK9yZiMTQ1RS8yRubLGrLWx7Pk09jOgthw9
wl4hJ+SGHJSLaohaYo+wV+wmh58WwXm5X2WOmiNmY5dDckkOySV7mr1NDVVL
TwH7itDwWTlq3Frfgz8jR0+0N1az34IcHJbL5tzcWzPWjj3P3qcGq8VySm6p
CWrDFs5ry6Exao01aC2eDQ5gD8K5IkdPsDfIWblrDVqLarha3o0/uSPWuHY2
GFaJHmYvGw2+LeI/xy6VE6XoMfYaYzI2vwH8FrAGrAVzbu59Y9/aN/ftjdnY
VxPDVTm+Kfy2UNPVdnumvXMy/92Tg/Ny3zt4F78R/FZQE9VGe5K9SU1Wm43Z
2H0D38Keam/1m8RvEzkhN9RQtVQNVUvt0fZqe4K94QPi2dcQmqA2qKFqqRqq
lqpJatODnjE9vmH8ljEmY1Nz1B5rztqTQ3LJbya/ncy5ubdn2Dv+BQFPXDA=

         "]], PolygonBox[CompressedData["
1:eJwtj00rRGEYhi9K6ZgNaoqzOOf4lsKZSTPK0ldSREQWyoIdo0jzB7CgbJUs
WIm1X+EP+AUaGytWkkuvxdXz3Pf7Pl/ZzsHKfjPQLi2y3QsPRThP4VTiSWhU
oc38LA1v9TLUMmua4ESvLqM5vA/DXASJel4aaqxfML+XqRjurFubgCv1VwLd
9lhVzwxBVICS/rf+S48zrd1TH8tmJzwZL0dgy7iYhlkX6rfKf2+9DSnrRXrX
5p9J2LNVvVQJ8270b2VZ/eyOiX1idVE+vDW3ft28JlkHdI3Ba3/ID/Wm5cd/
u+NhryP1gDwOQp935H/vSbhnVv0LEwAvvQ==
         "]]}]}}, {{}, 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], 
        LineBox[{10005, 14629, 10006, 14588, 11056, 14587, 11058, 11057, 
         12057, 9689, 14590, 14589, 14591, 14593, 11149, 11148, 11147, 10013, 
         10730, 10729, 14574, 9961, 14557}], LineBox[CompressedData["
1:eJwV0MlvjWEYhvGbVlUHah5adDgcQ6OkOJXYEkFMJXZIIzaGdivpwhrxL0g0
0qgpLGzspCQSG7GSiLamHlPUzELi18WV63veZ3if723p6T1wZkqSAdSvTe6t
Tr50Jcu3JCdXJMv40KakG/0tyf1Vyd5Ssg+tcl3FpI2/6Tm2JimbUTLju3i/
mjlylXjanizi3W3JLK5AA2bjqpkN+nbxK33P9d8y9zY+igedv+MR5+N8XVxS
v4dfi8ec31F7F5/EN52XeZjf89nO5Kh7G911hGt4ojWZwb32Wsmnucij6q9t
TIawQDwf83CukPyQG/WPh71Dr5kfxM/0LZFfjA6zF/JxuR68kD9lhwrvUIlm
uelchQm5Wq5Di/MarsYO9X16+9yxbkMyV26nuY/s81nPZfmLdriA8yiIt2Mb
nvinevUz8dhedVyLG83JifXezfsMYav3GjNrqdyA/2riK/zL2U/860i+8mZv
3G2Hg8hkjZ3KdhxHp9xvNUW7VckNu3saP+QH7q723a7vpZpGuzXhre9L7n/D
/eKpagbt9kf8d/LMrIKzEd//AeQHa2o=
         "]]},
       "0.3`"],
      Annotation[#, 0.3, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0V1ozXEcx/Hvjh1/q6EmzuRp8zAPZxubc9hp7kyap2XRKKUoikzcsdou
lLlR8hA3U0zahM5iueFCxJrGciskIpcuTI0Lr128+/x+v+/n+/T/Vx862d5Z
EhFPMFAV0bUq4uLKiB7ajRdLI87RRcg2RCSFiMKyiJe1EZf4Ory/4llCP62J
mFYXUYpcln9txM+NEf3VEbXOFfURc5AXy9B5aFZr8+qITbRXjfnqXlWvxbnS
OYNyvlvLI2bQMqSRYPoUer3hGcMo3uHt1F2N62rcQA2uYch8RSTmeWDXPm83
sUX/FrSa4fT6iDZaZ9dd9JT7Vp4ye7TSPzV2NH8aCfaqt4E3jxL3CfETfGn+
4/RDU8RhNUbNP5KLqFfzu/l+4D2+4Ssq7DHCv89sX9T8jOYVEVfs2CM3Z74q
vsX4x/sXk+h07xb/6PzY/yiV98vuu9XKmKcSRee5dIge0P8hzfPfp43qztQz
WRfxSP4zPdu8p/yvnXRQbJBOmuMeHRYfoBPud2mD/HKelPyi/D7xHd7HxLfR
C2L99LV+d+h+/Z/T7XTc7Ledz5v/jDpn0YRs3jelR+1x0D5H6OVG38wOBT0W
6NUh/6ncLvX38P/23VO++TH9F5p9Fu9sDKvTy/MfOq9vbw==
         "]], 
        LineBox[{8608, 14586, 8609, 13763, 13764, 12056, 9690, 12058, 12939, 
         11236, 9800, 12132, 10234, 10731, 10732, 10507, 10506, 8761}]},
       "0.2`"],
      Annotation[#, 0.2, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwV1FlwzWcYx/HHVV3QWsaSXCBNTtSprRXa6UyZEom002l1SmktqSVINEGN
mo5tbGNabpDYNQj3birayElULTMJxlhyFcuMK1IUxYjRz//im1/e9/97fs/z
vv9zTs6cqq8qu0TEZ/7U5URMeS+i3+CI9AcR21IRp0dHtNEMbUYTrvE9GhXx
Lx7iCR6jNZePttAFPOkhEWW0TVZHfsR9TE5HjHs/YizS+hR6Vq7nUXXHUIFy
fCJjMR1Pzw+NKBgRMRqdZnlghkd4iDHWA9QPxCBk6zlFz4zs7WrHvRvx5rCI
t9ATPZDzTsQOtTuxHTWoxjRZL8fogVGyCrBcVjv/b2apxUEcxiHUyB8vfwIK
cUp2A35Xs1DNImw2x0pnbqan8bWadue5hZv4i3eFmav0qsQP2GeOerUn0Ikl
Iz1HJVryIor5i1DxdsRr9zfVvb7B15u+sC6x30XPSfS5dS/7tfoeSeamfcy4
S5/bejfJWabfd84/EzNwnCdLXTb6oj/6IcN7S02N2iIZGb6JtJFeM1f6w4ir
tIRvaTKD9bd6dzVbHu2U8aX9rmb7gr60zrX/3PNnice9p61zaT5SmGS2IjMV
0zy5KXVH9TyGOgwriPhIzzq97rifMzI/9v9Y1PiMVWOJml56VtGd1jswXZ/P
5RepTcmtdq673s85Z1nlfKuxJnkf8hfjsuc/ypzhnS2jM2m2+8zCbbltZqmQ
1e5zMNXntJXnGzpcn4n+H0GH6Pepc6Tk5mMwrjh3qewH5tvK0262m6iVOdLe
IfrPcM9xDx24j31q1rmXPfL+tt5Lz9L5arPMcsQ5+tPDtEOPX5PvE/86vnK6
llbQi85+0BwHsB8N9v7EM3dxI/nu45L9y3ilZwt/J71o3Yrrye8BfpG/kC7C
fCxAGS7wz3KGzebahEJ3MAH/yV+TzJH45ZQhI/c8fyOdZz0Xu825mmeL/O/p
SuvZ9CdaSs/xb5S7AetR7A6fyq6X8XPy3eZrci+7aDMtSX7LaDVtoI04hVo5
s9V0c2fd8dT73avnSe/3D5xAs3U9Pcn3Pzrn6Kw=
         "]], 
        LineBox[{9306, 10537, 10504, 10505, 9403, 11237, 9402}], 
        LineBox[CompressedData["
1:eJwV01toz2EYwPFnm1NWCrPafwcbZmNnzP4OcyHhUpuLpdxsDVGUS7Vpk7Ms
KUTklORGic3UtM0UmUOYucGFKCmSHMaUzy6+fX/v8z7v8z7v+/v9Chp31G1P
iYj3WD83YlNFxBZsxrvCiK18tCSiA13zIurnR/QUR/SXRdzlaWJTMVwU8VZs
/5yIj3I/odnaejU/e/6CZcmI5SivjqhAJUpRhjeVEekFEdVqXVC3Fw2zI0qM
N/AjtQfxANsW6QsH5T8tl6/PJ3yRn/E5nqBeQk9pnMUlNRGd+RG/zXeZ/8W3
eYQ7eZTv8F/u5st6uqb+OGfoM07jfh7Pdzld3Rx1J3E2V6nfpX6N/rr1u5iX
IImNxrW8Apnu4ZC6153vMK/jVWrWcZa7uqVWpppTzC109hb3OWLdVc4tjZiJ
07MiUvR5hgete4xTck+i2V4Pjc/yB7nneLr1TZzBWfZPYKucXDVqqyLyOFss
n2eiUu5zPb1AiNfIadXPeu9+N08QS8WQ+Zf4qo8he73CiJxRtMg7b4+EegN6
/yd2n5vEGvENx+1zgtdwIa/lefxTbjH/4O+4pMZqcxP1386D9mnjyeLpqDH+
s8B71EetO1hqvARJ3LBnjvvMHfsejLNRpOYud71S7k3fY6+cA/br432805n2
8h557ciwR4+5Ad/cDM9XnH3YnaTqp1UfwS2cwnXOPaxmnvWvOZ8HeK75Bs8d
3u89PRzjpFhCrB1tY/+U/lv4iLn/uNGQmg==
         "]], LineBox[CompressedData["
1:eJwV1FlsVVUUgOFFiFMCiNYWpEmhKHQCqSO+KSZtUaBC8UEjbRVjQOMQOiFt
1ZhoegnCm8JDQRAE40PRgvGBaIQOKIgg0OHetoAoLZroEzhgrH7n4b//Wfvs
vfY66+xz81e/WvXKhIh42c+OgohD90Z03xHRfHdEC9Y/EPEahu+JGMHYXRGd
cyIu8Wc8ytvyzb0/ohVHxN3owjXjS4oi+u+M6LsvYoBvEF+Pw7PMSfbCEfSi
B9WzI77lM2o4yqf5G+6Q63vuF5/gAT7J/xj/jvvEx/gsH+cu+X/gQfEpTvNp
rpW/j4fEZzjDZ3m/PBk+J07zeR7iceODPCLu52EeSOqWf4QviIf5Rz7Hv5l/
kS+KzyfjyRx8avxnvoSfMIZR/Gd8qX506fGxuXrBx/mL4ogc91Luva2v7+Cy
nv6KX7DLu9mJyvl6Z69l3MOXvcMx7JF7j3iNOWvxAjJypNFmfQrj8yI2mFNY
ElGEtBwZXHD95IKIp1CqlmI1zUMJlnjnhXIVoRgDhRGbrdmCd5HnHW/imXyQ
P0cnysQH+L0H9cY7yFVfjf1r0WZsI1JY4d5EtVXxkDoyWGvtqGd6Xz+y9OM6
caVanlbbVmdyG+rMz9Kzev7DmqvIlu+KuMBeeaUR5XLcaKzd2AJzt/NN4k3y
TPIck1HoOl/uIp7Nc3gWF3Aez+WZvEot5Qv1Rc4yXowKTHc/2/0c3IrbkJWs
t1c5V6AMj2IxTniWr/kw1qmxDp3O1lT5a+V7BjVYjWfRJn+juU2oR0rckOSV
P8f1VNfT+JZkb57oOR9z75q12eJu9ZbgT/Ei4+P6+Qj/nZx1Z+Ev/pervJdT
xlfwE1iJF7HPd/wxarz7aqxCe/JtyPmWmjtcdyTnPfmm8LwcFWrotfchNR3l
KfacjKv6XSdXPdahQS8aeLc167lJ3MiN3JTsK/8b3CJ+nVv5TX7O/FZuFjfz
Bm7hUnts54/E7byXd/BW8z9M9sEH2IWdeEn+SdYs05tKLMVCz1Wj/mpscc42
I9c53uc5Z/Be3uheCo/rz3J84uw1O1etaMHN9svo0xRO8yBmqOV2e03HSvvm
Guu19qHkf82ah5P/P3Gub7DHN9uLL835Cr+bvyh5b/b8H1MYBSQ=
         "]]},
       "0.1`"],
      Annotation[#, 0.1, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0l1sjmcYwPFrCRIyGdNq2YK2b6vaoh+GcDK2xJpR9Z2sr4+MjpNZO7QO
tb7myNdORrYldMw2G7qp7WAWdtJuRyNhWDKho1RLdQ7M8HsO/u//ve77eq7r
vq/nyXn3g4XrX4iIOX7OjYuoTkUsQC46yyL+wS18OyXiODJzI8qmRpSjFNMK
Iip4KpePj6iZbp/b1bqZFzFa3Mn38Yr/vdydoy73yrtTEXHb/y/0OIKjGKx3
Cx/GoaS//S55h+Tf5S7xl9aP4Ss8EB/nb/A17iQ95N2X38Pd4pPWT6EVQ9Q/
wd8l98Jd+/fkHZbfy/fE31v/AafRJ/6Rz6ANPeIHck+6x4dq5bvXBm4wm3pO
ieu4wwzaeIL4DOfhtue7MFLubPPM4rTZzTfDBajG+PyI7KKIWusb+Ce9fp0c
cVX8tDjiGZqtvSfeaH9woTshszQiA5PUbNJzhP+7J0YU6DtOr3wew2PxaXnE
Qr0+48+RoU4mVqi5yPpyXszZar0h/010J7NK5ouUWvOc89K0iNXmcFn/PzHf
WuVrEVXcMiHior1NztuAwknuhv36fIw6+fV4S62XnWFEcg6sF2dyid796jxE
nfx6ZMk/Zr3I3c6byWn3a8PP6p9Fsb2PnHUXhqsxDC9hjpozrLWbWxm/Lh5g
fSAq/X/kHhM9O1J8hTN8B416bMZN3MCB5D179zvsbeTHJXLM4n9uEP/Hm/gJ
p6znJd+wZyqSb0TPKTwbOdZm8VJ5f+i1hC/wMh7rrmXmlyc/hX41/sUY+zuT
d8cDvZdBGICh3lOYyzOz/t39f0O2+h3c6JybsdSZGvgXc1qrxjoscs/FWIJt
alR5ZjvX6n/dLLZ6bzfMupmb5Dc57xZu5m0okL+VS+QcSL4Z8UH+JPmWzTgt
ruK/7Teq8ZeaffbS6s/lSvtvc679fVwt3s97sUZubfJdYa4aV+S8r8Zed9iH
PdjtTv141XMPudX+THeegRr7aSzHO9jh3lnOno2rZnkNRc7ep/4o8+wRd/CL
cld6z6uQlluDg2iR+xzUbNo+
         "]], LineBox[CompressedData["
1:eJwV0kls1lUUxuFTRDCKBBPCRkJa6FfKPJRZ2CG6YYYyFigmgppoJZBYoEhL
KR2MnUKhbGBBdcdgCZSwoN0ACaGgaatCIkMw0pHSLgxWrA+L3/eee++57znn
/r+UnV+t+TIpIjL83EmOKJ0ZUYbxUyMmoHRBxHcow8HxEedSIy7OiajHT+iw
d0x+MUrQaO86fuF1aH7Et8hDPg7j04kRu7Gd3y7a5H6VuBqVmMVjJnLlfoMW
Ph9aL8NSfIyPsMfdvMlqoFS8wV4mWuWvnhSxBpMSEZ87/wJ1cpqdJadEHJ0X
cWRGRCEOowD5mCz/j7SIJ85vqH0Tj8UP8Qjt/BfZ+wAJfjX0xOvZxCfpKdTi
bTNtVvMdOujsGd9+/fTPjuhDnRpF/DqdJ2d4a6SgwXqxe1fpCG9xVd5s3yAD
y91fgXReu+V8hrO8b5tpnJnGONtvXan+AXqankE2nx0otrde/83idfTFtIj7
4hrfs9r3Ok4raRUacAV/6vUpfpC3wflae9OtZ2COHjvmerPpvrn+mtCrpwa+
q+Vlyk+Vl0AaBvTdJb8H3XjgvEAfR1CI982wRI/r9JyJ9fja/Du8UzaysB3b
kK/2PLUK6Jh0/0vxAeTIP83jljfJ4rkJm7ERW7EFFfJ26vUTXNLDu/qvpyNp
rvNr7o7WyzB7YY4hSMIhtd6kb9l/gw6nQ+k2ubfUXGg9MCviX7xCn3mfmjOV
bwI56vXzSPOd+2gqTWAqjyl46c4/mM9nAdrk7NXPPtTr6YKcoXzavW8HnqEL
nWj1vi34S1zubpHc7+mPvluPvQpxN+3Fc9TyPu//8p+3HMQrJHnvQOGEiJX6
XoUVyDbHObn3zVmqvxKctH8CG1/HZqhFkfgofpN3Xv3fabH1MTQ5b0Snd7rL
v0edX53/LW6j3dbN4l7f8jnK0aL3CjpW7w95PMIofT+m79Er3jNPTgP9md5D
Oo/L1lPc+R/hS9q3
         "]], LineBox[CompressedData["
1:eJwV0jtI1WEYx/HHos0aCoKGyBNp5jmeTM8xzUsObV0GIbtMYVRORRA1pVA0
JDpkRpIO0WWJrkN2NAJbuhpYNkQkDXbMmiI70m3o0/Dl977P7ff833MS7Uda
DxdFxBgmSyIGN0YMobUqoiEb0YhUacTvTEQl/UP/olr+tLpTmNbXti5id13E
LppWt0zfUuTlvqmdwyu145gRq6qJ2IDRioiuVMQP+U76WW5ArDkd8X1NRBOd
o/PypYmIAp1FB68y93IzkphfHVHE74rck/URPfSdWU+d96r9WBbxzPk5OtdG
9NvjJM3JXVX7Xu01eh1pntM8O+zzidabuwnd4mn5Y3r36c3IZ1Fn31vm99dG
3Kbn6Hn04ay9EvLddBGvFn0l7qvwqzriJ2rNSMvleVXxuCDX4B3HxS6JXfTe
g/S+2mH0mHW8PKKXFuu9zHNW/Au+olfvFO+d+tpQI5b576P+hL5a5yweJyP2
mDtSGTFhrwG1Q+4P5HJoN2M/RpwfYhQ37fRBTSVNIoWVfoe8d5nBAfscwkGc
4beALkSfb8rhhrcb89Yr9DTx22pWI91Gm2mXnha6w30z3U5f2u0F6t23uBfb
YzGWYN5/Le+3eS33BhN4i0kM8zvKu2Dmcns+8r13fGvBDhVid53vod6bTLn/
A2EQiJw=
         "]], LineBox[CompressedData["
1:eJwVkDsvA2AUhh+JhLrMEpOig6hGgraShtXQViIxEBa3kT/AhgWjy6DsorSE
Vqst/wQzRrcgHsOT93znvOec7/uCcysTy3XAvDx1wFoYfjvhYxB+1KN+aB2C
Q7UvCAX1WlrMfXVDPg7jEYirabUQsy4p43N9V8Zn6oznWQl0wcgAbLqnan7J
vop6p8acf/8fS03a3VEfggtrB/qH1X217MyS7Bq3OW9PLekvy61EnVPTWzRe
VG/UdT0J9zbon/YeU3JifsP8mPGl85LqqJ5GPTlrOXs/fWPAezRJ1lxR34P/
FHZHxXpVFuTU2qqzIvZ/+2/N+vPmMnIsj/a8+afv8uzMbBRe1Mke6PWNW+7e
kW15tf8P2O9Jyg==
         "]], 
        LineBox[{8420, 11834, 11835, 10943, 12190, 12540, 8495, 12539, 12191, 
         12193, 12194, 11856, 9470, 11857, 8432, 12268, 9995, 10944, 9994, 
         14119, 12267}], 
        LineBox[{8431, 11400, 8972, 13585, 8971, 12468, 14028, 12466, 8505, 
         12492, 12491, 11423, 8986, 11422, 8442, 12195, 14030, 9939, 14029, 
         9940, 10948, 8506, 10947}], 
        LineBox[{8433, 12269, 12271, 12270, 9996, 10950, 12275, 8507, 10949, 
         11858, 12340, 11859, 10090, 10173, 8508, 13597, 13121, 13122, 12556, 
         13598, 8509, 13599, 11401, 11402, 10951, 12559, 8510, 12558, 12549, 
         13140, 8511, 13126, 13130, 8976, 13600, 10907, 10908, 8512, 8437, 
         12493, 11427, 8990, 11426, 8450, 11431, 8991, 10955, 11433, 11432, 
         8451, 10918, 10919, 8993, 11881, 11882, 11438, 11437, 11439, 10970, 
         12568, 8523, 10969, 11444, 8996, 11445, 9490}], 
        LineBox[{8445, 12496, 14494, 9229, 13326, 9230, 11639, 12938, 8800, 
         12303, 12304, 12300, 12302, 12301, 8626, 11064, 11065, 10966, 12563, 
         8518, 12281, 11878, 13602}], LineBox[CompressedData["
1:eJwV00lsjWEUxvHTSggWZgk25ttK6ai3rYVxIxYSM0thwYLoYIq12qBqLIra
GVo1LRo1JhIhppUphLahpTXTYcPvNvn3uee85zzn/c5374S1m5dsSgt//tVO
iFiUG7EnP6ISTYmI1wURb/ACr/ASn2ZG9EyJGJcXMRZjsHhyxFxnj/XsowfF
9fINuITSjIiL9ALOo9r5XnXN6tvoO3ELfUtb6bapEffU3cUdnJY/Lv9c/Wq6
BsXyJSiaGLGDf5IWiZNY5XxlyrfQfTLdxVmn/BfU8R6eFVElt13ffnpTvhmn
zKnRV0vzZkS00++pZ6Zf6beUb1HECizHKf6X+Z2gtTiJ4mkRS80cbMYgDES5
miPOjuIwLokn2ndnjl2hGl28P6b2xrdcTzYto4+SEQ9R6nOPu2a7Vzedp2c+
Zot32ctBNRk8q2mvfJs5rbifHZGQfzXeXGe/zSjxfovRIZfmnW8wK+hG2i5X
4Cxtkpx3HXQk/aevUH4mkhig/hm/XN79fU7HAvk8cRGdhXS9ab4rTerq0YDP
/Lvdrw9PxU/QKdfPjD9mzPE8f2mzPWbyukErPHtv6pmdzUWV3gv6DtBc8Rv9
+TTLzD51h+VzPEsHnx/2ekR8NLVjTOLZaP/H7OY4alAhHmLGUAzDMu+vxNwz
zupwGlfVnKXX+c9ydk28kJ6z+wfyT8U/zfqFqfLbxVvsfgS/kdjpuzaajsLf
6bzdLeGOWeJvqd8K3y76FbdwGwfktvJZx3892nl/RgcO6d9Pq9Co9jJ2qy8z
p5JeFV9BK1pSvzu59/QDEshAntwS/fP0/AfuyLkv
         "]], 
        LineBox[{8613, 9614, 14399, 9615, 10015, 10016, 10014, 14067, 9967, 
         14066, 14069, 14068, 9027, 13165, 9028, 13166, 8634, 10606, 9495, 
         13605, 9496, 10131, 8363, 12088, 9728, 12087, 9729, 12089, 9727, 
         12091, 12092, 12090, 13816, 13815, 8723, 10523, 10524, 10241, 
         10240}], LineBox[CompressedData["
1:eJwV00lszVEUx/EjqQSxN3WBopTWlBiKYoFoYoFYGGKouRIWNVQ0ho2IGJKS
GCKxQVRjIVEttUDTviobU2n7HmJBIqqIGNrq8+nim9895/7uueee938jinYt
29knIn5h+8iI9nERxfTH+IjvWDFGfmJEV3ZENzaMiniYG1FE62hnVsR4+pdu
pUdHRMxUIx/HeD6r8QXt6BkbsU3tDutvmMR/a2rERFrlfB69PTzivHs2Ovuc
Z/WUiDV45Gyz+BVeoIn3MVp5n+XxYr18yeSIJ3podX8TXSe3Fn0nRWTgAv97
ey36mKrmPntJvrtyr73zDZrRihYc1Vetvfv4xP8Rb/k/iFN0v/OlGKB2f1xU
P19fs3pnJL9bP0/56p3bIt6Mjbin7myeNv4khpnzAvdl0oV0KB2sXq69QbRw
esRi1JhPWq20s+HNPbTSrObqp6D3DWbVjH/yN+Tn0Qr6Tp23+MrTgSdqNKFW
bwlaqKfFWITLekvxnrA31vmTtMA7sq0z7W+y3z7B78+TokvF6ZyIfvb649Jo
79Fbg3szxAmaKb7J/5J/Cf8f/k50oVI8Su0s9IiTPG14wP9DbxPsb6Lz1JqP
C9YXMd+MfvPv0F+2uJj+FC93/1nxGVyTuz7N98V70lzv0FN0Ck+5OVSLT4sr
eW6gArPcPRvVvpEc9brNswtz5Gr4V/odVqFBrhEJVM2IKOv9rzi/W7292IMD
ciV0m/xWHNfTOe8sxX4cUf+qN13BQPcdlDuEtLvK6AEs9YYkX4s7UrQNCetG
NKAedRhtTuVmdth+he/ksLuG4D/DYbhE
         "]], LineBox[CompressedData["
1:eJwV1Els1VUUx/FTcAGIAyFaCrT2tVBl6CBtgYQW3ChYrMGi4KsUaKF0biEO
VCktCESFSDGCLCrghgW4MKCJY3BIZAUJK6KBkqBGwYVgCG1Ba/z8F9/3+597
hnvOvf//SzV01XRmRMQaP3/kRZTNj1hYENE5L6ILtdYuzop4eya7PGILNuPd
/Ij9paD9tFbed6mI9XLL+MtRigWYjwFxRY9GjC6IeFHN8bMj0vQ/dqmcMY9F
tBdH1HsemRNxB3fxjr2zxDZZf50206k05kbsUq+F/Sr7fvkPoNhaq75b0Iwy
/iK9jeXrUL+B/Y+6/2IUe9WfJr/V+hu0jU6nGervVqud/Rr7QfmTUGKtQ912
tKGcv1j9e/g2JHMs1Ke59ql7mZ1mD9J7Z6AsYiJ9pVCvRc6Q75TYL619z/cD
xmECxuNbvjNy7xN3xvMSfTyBRj1sc24baQ89zrfB+kasspZXEjED+Qi+HL1k
0FG+LclM4rayH9LzNXrN/dxxv7PMMxul1o7LuW6uD93tkeR+H494CdfF3hU7
R1wh5uJj/f1shst6HsRO+57NdU/ehyF7LLLnSn1W0Bx7Z2OHPcbK6zJfjhpL
5dWokWftI3Y3/8PiMrFOzAt6WY1VKObbK76EZoudjqfYT+KcPRbRKrUyrU/B
73oe1nPKcz7y8BP/RXE9et2OTL0WyK3Q52JU4racIecwjD6+Z8RV42ksRxUO
y2sV24YWdKAdNeKfx1rzrKTH9HoJJ/i+cjaT5W31TWTxd9OjfFXilmMpUsk+
9BG6jObSOjldyffD7qRpupmupo3O6RM1aj3/bb6buGDG82Z8We4X1j9HAbvc
+pC7HEaunBGaon16+dp730u/oU3ufRPm6a+RDlg/7HnAc1pOpbtYjO326kUf
TjurTzHizn7V2x49/+Yd2E1/YW9ypnvs3y/2AN7DLj29iUJxPUk9bEMfepN3
UK3n9F5n/xX0qrhu9a6od4uvTs1naRV/Nc3nP5TksD+gB9EktjnZH9VqXBLT
qcZBsxzC+zhgtiFky7tNP+Ov9B9RgXX861GPtXjLN5yl52lmGXQWV/CnPm6p
P9VZ3mCfSL5b/h/F1buDBpx092l7/4X/AUEe2Wg=
         "]], LineBox[CompressedData["
1:eJwV01dszlEcxvEfgmjtxEqMrldLaakZm9IasZVEa8cMVXvEujBukCDRuLBv
qBJXIkQiRhCiJEYkKCFi3Nh3xue9+L7P/3fOc55zzu//f9Pnr5xSXiciEn6O
ZEYUd4+4TstzI0o8H+0fMZ1u6hmxETXpEauMzTD2u1vECt6fdDk9kRdxEscx
uo8sHO8SsUbWalTgYiLivfnXGREDciLuqxvnRzygTeg6WksjO6Ijf6E9R+Ij
b7o6DZ1wVsYZrOdvwd8STdEczTCQf2jfiGGYp16A+djE/4a+RYacUbIPutMn
/kM0y1gmzsmuwmb+HN4uSCAbnTGE/4r7PTTfSl1DW9MtyfvRes6fkFMkvxif
+b9gm/lK41tptfzczhFT+CfjcLJH+roSb/SnTa+ItijV35koMfZIxnT6ivcl
nvM+wzv7lcjoLq/W+KKCiD16n7DPNOPdjE+lOfqRjWtpEfXNTzA2EeOT/eBp
2DWiAeZYPxuz0IG/PSbxvEhmZ0U8tud7ezbnbYGnzvUE5c6WITcT+/g+8O2l
u3obM3dBnUX/6sl5z1fkDTZf5fmOvBO0p/qS8cvJ96CuxlXP/6zpYY/H1o+V
f5i/ErU9fE+o9F0u9h1u0bMl9KuerbbmB12m/kaX0u+01LtOl5Fnr7rOn09P
2ec0TqJAnWevh/b6xVdD89UbPW/AWqzDMT3bpi9H6Xa6Q+4/30XoV6G6ypnu
yrrj/vfoYhln+ukh/YGfSLX2nvsV6/VorJE7jo7FGDQ2X09eKm9dmqIeaXwU
ivCHv5COwHA0Ml+H74C7zrEml1bwtPMtzFPPRUv3KXC+XmjnO7zhbNXOcJOW
mS/FHn3Zjbbmd9Hb5m8l35e1afIG0ZvqGyizbr81+7BQD8rkDnKOUjqYzkr+
J2mKnFXOWIEh6v7OOTv5f5TRyHtLQSrGeEc7ef8DvC20hQ==
         "]], 
        LineBox[{10004, 12273, 9998, 12272, 9999, 12274, 9997, 12277, 10001, 
         12276, 10000, 14120, 8444, 12342, 10091, 12341, 10092, 14213, 14212, 
         9486, 13601, 8446, 12553, 12557, 12554, 14290, 8447, 13138, 8987, 
         10952, 11425, 11424, 8448, 13142, 13143, 13141, 13145, 13144, 8449, 
         10916, 10917, 8989, 11880, 9488, 11429, 11428, 11430, 10968, 12567, 
         8521, 10967, 11434, 8992, 11883, 10920, 10921, 8522, 12500, 12499}], 
        LineBox[{10096, 14229, 10112, 14042, 14043, 12289, 10008, 12286, 
         12288, 12287, 12305, 12074, 8606, 12626, 11052, 11050, 9612, 11900, 
         11899, 8528, 12508, 12507}], LineBox[CompressedData["
1:eJwV0klszmEQx/GR0FrCTdKDJtpSutFFlyCWuDg44eAkIRJrlFZVNJZLFdX2
faktWjttQkLoxdJwqbaW4sLFgYZKbFHq4MSnh2/mPzPP/Gaeef4Z6ytXbh8T
ET9RPStie25EJRp8ryqMOF8e0Y66zIiWnIjk3IjjSKAVJ/BAbkl+xFIswmLc
F0s4/0z+OZ7ic1nEEAazIz6xH9hfelyifxlH9CyYIz4j4p4ZzqlpwyvnFoq/
Ztv5P+UrSiOG2X/zIt5Mp03nC/rp9OGtWE5JRC4GnWuSa0YLviIjw32dy/dd
gCrfO7HWDHn893qtGN0Ffz5/IRbgm3tl0fzObnbPXwURYysiDvO7iiM6fZ/W
r9Vcv+VG0CyWQAu6nJtL5y6bNjuinn6tPi/0W8528DsxwO+xo148QRV/h7uP
1XMcdqkdz6bijx4pbB5ycYN2Ca2b7GczDeGC+sd5EaViNWqLxYpQiDXmXW3e
AX1f4gz/JP8se4ptVJNJr5rGRvaiM5cwzQ6P2lnj6NuhCcewR+4624EruIar
aKYz2XxTkKRz0B4eeac0OtPsNB3r5Dagxq5qsRt/5UvNUYZ5qEA5aui1mb/V
mXe+p6rfS7MOU9X06Jk9M2KZe6Q4l4rxSPInsRMxASW0ivHDTN16l2V5W1qb
kLSz3iI7pjfsf37qux99+ET7gNh+7MMTsR4k1HyUe+jdurHFPFtH35z+HWzV
YxuKMNHshewk9rY7jJinw54b1B313sfQiOtih9kjqEcDDuGW/U0wW7r+/wHF
76fY
         "]], 
        LineBox[{10226, 10840, 10841, 10038, 12313, 10037, 12314, 10324, 
         12142, 12143, 11168, 11167, 11166, 9705, 11055, 8607, 10711, 11054, 
         11053}], LineBox[CompressedData["
1:eJwV00lslVUUwPGDiopALBXWlNLS9wqUuQUTmSqgfYWWjgiCAmVQpCTIWAgk
tNLROECAMCwEY4AYLYmQgNBiXLADjMCCqQixLGBBDJi4EP29xf/97/3uueec
797vDVu2rqK+T0Sk/GQmIrZMjNicE9E8PqIFreg0b5sQ0TDcnLfxlyMiyiZH
fMHzxkXMRSnaciPWTxLHRYURb1qfxFO4kEcWWB8dccPeT/ngSLl4i/lL2RFf
Gffl4XkR2UiMjUgiF3kYgfJkxGAMQbuY53jZnq/tfYUPy3kIuaMicjBKzY3W
NuGI53t4q3qvit1r3I9z5Dia7jU/4ltey8d4Ihc7l5W8SMx6fp+n6mMzv8Wb
uLkoYgPv5o3cwh/wGPULMBqLzb/DlayIyfatNS7iep7C1ZySvwRXxWR6Nl2e
GZiGPOvFnOSZnEi/t976YpGzrdPvUfd1DA3eqcP53PZ8gDsdiOvu5wa6jE+5
02fi/sYv9l0UP0PdbuNT9lzkH7gTP+IF6wn5XuRrcvyOh+74lrvu5b+sfSPX
ArHvoVeNP9GjzkO+x0n3UOTb6XIW3djlDprQiHHyPpKrJx2Lu7hpzx/8s/d8
hyvNh6qRhXbzDpwwbrI3ZVxt/V2u4hKuG+a75HkoRTnK0Ch+qXddhmly1zrL
qbyALzn3z/Xfija0oAPtOO5MTqJKvye40rmfVithfobPy/uvfp5jh7vbiS75
flUzw7sPwhrf23/O4GOO9B5rF3A2/Z44h6f6TnASeSgUl8+fyB9qtZpfM37d
f/E6Z3CWOxjv/La5h+2o1V+JnkuRQra4J2Lui3mAy/L9Js8VnqCfeu9ygPvp
qz9ewy191DijQc4lExn4R943+DOxFfJ8JOd8Xs0/qbuKK8SU6nM+F6s7i+eY
z+YPrT/le3I0yH9f3a3ck/6/WFuCcusp8WVcZ/9+rjA/wDXWn/BN8evsu23/
HVR7ntJHFX+vjybfZyN2odnz3ag1rsF+57UPSe9w1neYz+fS/9Ex/qt4JMfb
6j3mbme03D3WYQUWqjVU/v8B1yDReQ==
         "]], LineBox[CompressedData["
1:eJwV02tszmcYx/HLxCnhBVuyxMZUedoO61q2OSWtQ8TMoX0QYS9WnYRmtAsl
QWiLljrt3aJIlpEgQos3QhxebUHN9KlaxCnmMExYIxmyLdnn/+L7/P73dV33
77ru+/9/ssqr0pVdImKyn1ReRA4qhkSUFUYsRDmOWh8ZFTFncMQi669RZV2J
1GcRbfYcEjuIA6hMRewX24cf0ZYVUVMQUT0sovOjiL/wgNe7+RFXh0ZsEq9H
AzLqH4l3y4l4SLvTP2hjdkSzfRvVH6UbaLvaOppB8Wh9aFGuOJ1gfS3xRo/E
y5xN5ngmv5s+sm6Qq8d1TFTfkfjIT8BvnjebZwsacU2vJ+boyesx7UWf0u3m
OmaezepbaOUnEcvQof5PfX5w7q32nxM7i4fOPXCk/vQD+hgZdff5tCfzmeui
5yf8z8m1eq7lUYfu7rsH2jxnMHtExCX5ND2r9gx+GhSRr/eaTyN2eA+r6U5a
+GFEAfbpu8z7zHbepXSvnk/1yvJ8zJzH8Y6ab5I7d55G3lvRLN6Cb/WvUrvY
e56nboD1IOv+9H28h4U8r7vD8kSdZ7q7KTTDCLMU0NfineIL9Gji2c8s93mV
DTerGb/DBeeapW8pSjBbfp74YPuykYWhGILF+ufwSeENj3r3sAkb8Upsj1mr
7W+iuxHogpRYkb35Zv4YfdW/jX44JJfLKw9nePxshlpz5opXqM2jXXm8hQWY
jyb5XbiIq/as51ODWqzDEh4V+MfZ/rb+l76iL93HVO/sillaef9KL9MT8v+5
x1Po4HmalsnN1GsWWsVKaBqlKDbTPfM2iP9O22kGc/lM9O2NTf4XdAz9Xr/R
9A4mqblNT5pjkvczxXoy/VKsk95yx6vk7uq/kt5M3p3cfEyTn6r+c1qufx2d
Yb2BpuWf0xvql9i3x/69KE32maOElvkGitWc9z2/UFNt71fJ/z+5b3PvSO6Q
bqPbsdw5x/iOViTvFL19E31QxGOs+HiMQx+z7OLxhXuYjmmYmXwb/GfQtXqs
wVK1NfZe5vULruCwu0nz/B8qb9yj
         "]], LineBox[CompressedData["
1:eJwV0klszGEcxvGfLsNZJThRnRK1d7ZeSGhLKJq4cDXunLTUxRIuBLFMLZEQ
tKQTatTSaXtQdXNxp86M5YJp4sBnDt8872973vf9/9/m/JF9h+dFRBm5tohl
zRHvl0ec2xhxFjNZ8cqIVx0RlXTEN1zfEDEhV1Qr05dq/9oZpCIG1SblCnSK
buG5GV1rIzqxDYdWRQzkIn7yv4e7+M23koxo59WxPuKoeo5+dpYsPWHuhr6d
1rvQgwG5nP7jNU86iQmscYdZc2M8HptZkImYjzn+T9VH5BItzuW8O/g809dJ
H8mPWg/T/eIDaNR3hv8bd8jwnab1rRFL+NXRpfSOXNV+e/n1YjeazO2hf+TP
m18ovkAr4hSfon3m7NOjJy2u47MYaedLoV5/g7iBnjT33dwpmlE7TZ/Qqvs0
6klgiFeJ50d9bfzG1cvIo09/lvbT7e7UjS5cM3NMLm39yVyGrnOevysibqpt
MvPVHr/8m1vi2/iBJP+D/mGf/fK0n5b86yHvYRj38RAPcIVXq+9zlSb4bdWf
FLdgSq67diYUxIP44Bzj5p5jDCW85f2CTtPX9F3tzdGZ2rukvasjLtER8UVa
pJdrs/yr3uUi+36xLtAm/AcNtH+V
         "]], LineBox[CompressedData["
1:eJwV0t9PzXEcx/GXqS1tKvNjjAsVNmYVx4+4QgybCzOuosKFG8r4I1yJ2/Jz
blAhmjtFpxsnm9Ox4b/I0I1ReXTx3Ov9+/057+9pvNR3pndZkicY35G0NCYT
9N+WpG5v8pc20HrMbk7etiVjmMYmsdrm5FAhubUzmRIrot2Mqf1Jif0RG9VV
b9XXnnS3JAdpFy2qmcQVfif/PfsDJvAO4zhq1qR8EffsuI/T9m2w9wH7+7Zk
tDUZ9uZqtd3bkx68EnuJWntf0BFU9iXf1A/qW69/gM7o69BXoV/lnqqbUVfG
M/Zz1JgxtLQDF8zuxHmsFr/h3UN6b9IV/C7xPnYvTpl7jV7FdaySf2Pna4yh
rK/ZO0bZVWqHaRN/hH52tzKOiD9S9xCXzVgjf1e+xD8s17DLt2DfEbuNflxU
17O0T+2g3ADmfLsT7nYSx1Avd5z+Fq+4c5U5NViOX2IdcnVq1vl2K+k5885i
LT9+R0F+sSnZTVvR5i0/vXcei1jAJzec9/957G5f3LbEn8bCHnH8kCuom6V/
+P3mH8B/igZxhw==
         "]], 
        LineBox[{11876, 8517, 8443, 14041, 10913, 12222, 12221, 14040, 14039, 
         12220, 14224, 14223, 12353, 11051, 10105, 12352, 12351, 10602, 9494, 
         11901, 10927, 11902, 11903, 10605, 10604, 11895, 8527, 12506, 
         12505}], 
        LineBox[{12497, 12498, 8520, 10915, 10914, 13604, 8988, 13139, 13137, 
         8519, 12555, 12564, 12566, 12565, 13603, 9487, 14291, 11879, 14292, 
         14293, 9611, 12282, 12283, 12278, 12280, 12279, 12284, 12625, 12624, 
         12623, 10003, 14121, 10002, 14136, 14137, 14133, 14135, 14134, 
         14162}], 
        LineBox[{12501, 12502, 8525, 11889, 10593, 10594, 11894, 11893, 10924,
          10925, 8526, 12504, 12503}], 
        LineBox[{11412, 10958, 12561, 12562, 10956, 12198, 10957, 8440, 11409,
          8982, 11862, 8981, 11874, 9479, 11411, 11410, 11412}], 
        LineBox[{9944, 14035, 14037, 14036, 12211, 12212, 9484, 12213, 12214, 
         10603, 10601, 8454, 14222, 12217, 12218, 12216, 9945, 12219, 10912, 
         11877, 9485, 10585, 10584, 10586, 12197, 12196, 9478, 10963, 12215, 
         10962, 10965, 10964, 14038, 9944}], 
        LineBox[{11898, 10600, 10598, 10599, 9492, 11892, 9483, 12209, 12210, 
         10597, 10595, 10596, 9493, 11896, 10926, 11897, 11898}], 
        LineBox[{12485, 12484, 14034, 12486, 8441, 12487, 12485}]},
       "0"],
      Annotation[#, 0, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0klI1lEUxuFTm1zlUNCmTJszG2ymIm2AggYiSgglUoKiuUWDgUXDqiAQ
miOaCBqh0tokZFqWmloR2LBowmxaVItSw+r5Fr/v/Z97z33PPed+mcUbF2/o
FhGpfq5nRCQPj0hBzyERjSMimtCMVmuzB0Tkj40YOTKiYmBENi2nL4dGvECO
+La4UP4b318nRdRlRrz1/YgWWM8ZJpdPNb8W2mivCU/ttWCetdLREfvVPzwq
YvrgiOfWc+kRcQH/Gh5tWREfMcP6Uet59DE9Q+vpadpAx8q9MCHijrhLXEn/
0nX0tTqd6qTyn5oTMQ2t8nuLeyENG+RdkL+edpNfRf+J79IQj5c/ARfFRfJX
YTVO6a/Z/kf+K8Vt9Il4hfsfd/4EjmGutTnoMzFivt4n8ZqMQr0V4KS55prP
HefW8OnuzJXxEVcHRWRmm6X3mGm/0v6MxLuM8yY4aN7hDum8+6Mf3rljBn1L
v9u7r98avE/MzIzS6Vw19qixG0U8P8grprXutEnuZnxV9xs+4Qs+Y5l6FXJu
YRqfWfxmI0m9Hrju+76cx7QRDWhGU+JbL3V6qse6MWaNG/6Lf3gt0VMmBiAD
l92l3PpNVPN7qfYrtGCRvRc03/oJMzgkTnLmME2n/dEPl8TX7GfxGIGZ3uaD
vrebZQl6mvs2uhVbMM4bzPNf3utch3fqxC+04zeumNF3Ne+ZTRVe6/9hoi/v
OVHvf8W1/PN4lcnNEXfSLrpArYXoELejLNEzr+3OlbrXNrqTDpczDA086lGH
tWqvQYmcvvpu19tvPHPfi7ymu+8BfuVq38QOe6lmnIYU7BYn0z00zRucl3MO
Z5EsLrU+2h338XjAfwq/c/4XP9zjJ5Zaz0el3F3i5d7tP1qmwz4=
         "]], 
        LineBox[CompressedData["
1:eJwV1FdszmEUx/GjA4kQbuwXNVpbayd2L8SKC27UKsWNoIq4sVp7RIy0CYlx
p0REIkqM2KJGYpRExOqw90gEF3zei29/zznPGc95nv/bjILCSYvqRUSWPxUd
IpZnR+wbHHG6U8SJfhF9e0X0Rz/UZkRc7xYxc0DE0i4R5b0jltE0vlTssj9O
3HiMxVU1JtA7ORG38Ve9PyjqEVGIK/bH2N+fFTGF3mOv4p9lPRtzUIDX6q7h
X42p7Dx8lDONTkcx/wL6ZVDEW7ELrd/QoV0jhuGts73Bi44RowZG5KK4b0QJ
pvPdspeQ2w5t0QHtscl55ph1Lgqwwqy3xf5Su1TPMuT1jGhupil0e/eIGXrP
RIm9ufSrOu/Ez7N+T9fxr8V9tfP5PpujiKZ1jtjDX219y/3X0K186/tHbKO1
7FS6iKbQf3qe915V7PnsB/QRHqJI7d7OWa12DVKs66FU/5ZmT2R6nz7mpRv5
N+AS+wn7Ir2CyyhUJ91Mi+ld9/jY+Sa6r1ZqtBc7TswEjMdod/NB7Ed8QpX4
Omd5hcMY4ozldCg9QvfI2Ytv8vrQB/xn1K+imb6rAXoeFJfNPs1/LXmXvqGE
/tetf1h/xzdUe5uX+KLWOmdbn3xfrEUJyuVkep8sJNS6oX6dd9nhPnLlV7Jv
IgOd0BE5+u/X5wAq5FygF5HvPC/0+qzXc/qJ/nR/h/So8FancBLHxZ1yB5PV
2a3eIHE76C7sxEozj5BzQ+1KNPGejVFsr7u6CfFdaVvajRbpsQQN3fsouQ1o
Lh2uxm/76ewR7Pp0JE2hw2kaHUZTaZlvoRRZ4tuom0lb00J169xDLWrwjP8p
jjnXUSTMstnsF5L5YsuS/wPMNgMjrXPUb+McP91ptvVJOb3k7JNTJechmrMb
+S5a0BZyasQ09Z03Q7q566NSjTR6Vt45TBO7Jfkbdof/AVinxuQ=
         "]]},
       RowBox[{"-", "0.1`"}]],
      Annotation[#, -0.1, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwV1FlsVVUUxvFVSISIoRIgBjTALfNQCFCZB5FBXgAtRlGCaDEkpAU0ykvL
A49CGVqgRGgZNDIUqkwCLdAYZKiY1DCIQkRI2kKAhEklgbaAv/Pwv9/da39r
2Puce1M5i7MXpUXEVB8NqYibfSNu0I2DI77GLz0jnvSOqBE7/HrEr9aHaCWO
YKx1Xb+IFG8Gfuoj37oB6wdG1NOl/SMKUKfGCfVfHR7xrFfEtUERz+kpsZMo
sv+HnD9xCdvVvkyvDIkYqM5y3hn0tHnOoMG6Vo0b9DdaxD9Nn7nm+Bilar5t
PQPTUWx/v3r/yn2B/6R1vvgq3tWo5O9gtib1rtpvpn/TxcmZ5a2l7/B/wpuD
o/zvWs9ENtbZP8z3n/rXabn1AvElvGW8b1qfV++Wurec4zbuYIu9Sv4qHMEx
HMW0DOezVy8nTc062oJmig3AMHd9aKiemJgZUd09YhIt1W8TavWr8owm0lL1
JtEyOp8vX04B7g+IWDgi4h5dRGs9g5Q+GVho9jzkoiLJ1buqmzvR+3vrH9U+
Q9foVYRiNNi7rsZa3/uZZZ9efele+j7/LLyHz+VV85bwrcc61Ig91uO4/AM8
p5LnRU/Tg/Qz2tHzeer+xvO/gQlodA8peUPsZWEo6nkvyvkd53AB55Naam+i
pdiIzShDDn9beekYoeZIjMITtV9y/jZ4EZ/yfecO5yWzmX8lTyEOWm9RZwrP
K+5xMv3S/S5BtrN/QV9zD7m8d/TIoxViezBf/BF9zPez+D9m3G29y3onLU++
4wd339pehbNmId/vogBLke49mu19eWqGZ2hEM5qwU85qugarUIwiPBQvpCvx
FVZgOa45VxOascxdt3KeErX767GBzs3y+8KchB4RH9EFal0y03Yzz3L2D/Ah
rjrbXzhhP0+dt7xnuXQqbe1MrXBWzS5i3dAVndR8MMx8uIv7uIdy84zmHeO8
YzEu+f9BZ3fWCVvlviy3vXna0WX63hVvK56OFnq1RI0aabTE/jbxb/ENestJ
ye1DN9gbrcco3h3J/4iz/w+IP+9h
         "]], LineBox[CompressedData["
1:eJwV0ltsz2ccx/GvRDLqULRYsEQPGGu1KJZdsIy/ONQxoY5LHEeWttRherFk
7b9cuWIXUzGntn+HFpkScbwYojdahwu0pJsbwW4U28W2ePXi/f/8nuf5fj/P
53mef9a68iVlPSIi4WdtdsS+iRG7cyMqiyLG0jdTIl6PjnhFX9HXNDU24ra6
W/gdleY3mS8cFbEnP2KwvtQXESdxCp8aZ/IbgsHINE6qy6A1dN/nEdnm84wP
Gh9CLUbIc8Bek/hOnxxRRL+miZyI/Xo+m6AGL+z/0v6Trb+3/gFv8Q5duJjl
e7w1dOEtpslVor7Y+nwU8inANrVN9qygE40noM0ZW/GLPOvl3IC1+FbedXS7
2tHyNso1ijbRevMNqENK3UZ5882vlrNU3jp+9fiR53n79ZuqRu0mFJufj1K1
SbX3fT/AQ+SN44MZYyJW6fmGptl/S2HEZlzR8x1tcaa76HDGhPpZ2KJ2Zncv
7ug5av0YjuAEjqNZfQHfQuRhPPKxUn0v3r3xCfogDeny9aP90RcDjBPOVO57
K8pQgW3Ya20Nr4Qcq+lMms73Em2xdkPNXXqTfmUu051lYJHzLMZCLEBtgVzu
aZp7rf/SPXvPlbKvwA13Ocv+y91VCQbyS+dX5O7LeY00HmacRYfTc877Qv9Z
mtTfrr8Dc737HMxGT1nazLWinedTtHnnjfZvpRvofd4V9viVV6L7znkd9p0p
awZ28bnnrFvl/TtPFvoPrZ4UUYUyvXvU70USuTxq6HI5S/xXl2Epfjb/lzxN
vP6wftq4k56hf9Kr9rmGZ76fowPVslShRv5B3X3u8KL/wDt+XSh1X7utV2In
fsAuNKptpE04g3M4izr1p+hpNOAkUkjyH6ink38z/wO89+ODuQtyNOM37FC7
vdvT/FPjBtmf0BRtp1fkf0TrjB/SE/Qn3lm0mubQxzSbVtFc95uD6/yK7TcP
Q73LEHS6qztqvne/97xRre+D6KO+RX8a7Y01ei6r+c9b/I9/0cO7fgTfldrR

         "]]},
       RowBox[{"-", "0.2`"}]],
      Annotation[#, -0.2, "Tooltip"]& ], {}, {}}}],
  AspectRatio->1,
  DisplayFunction->Identity,
  Frame->True,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic},
  PlotRange->{{-1, 5}, {-1, 5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.658532380660837*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
[encoded data, 70211 characters]
8c8/++ef/T/ws38myH/+2f+nfnZogtzyg4umn278b/8Lx/cvhA==\
\>"],ExpressionUUID->"bf1e5989-a2ec-4d03-b21d-d331e2c7240c"]
}, Open  ]],

Cell[TextData[StyleBox["Exercise 2", "Subsubsection"]], "Text",
 CellChangeTimes->{{3.653308829116776*^9, 3.65330883129976*^9}, {
  3.653314970617481*^9, 
  3.6533149708493977`*^9}},ExpressionUUID->"9d73db2f-eb35-4236-878a-\
7040cae4ea37"],

Cell[TextData[{
 "Find all the maxima, minima, or saddlepoints of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", 
     RowBox[{"x", ",", "y"}], ")"}], "=", 
    RowBox[{
     SuperscriptBox["x", "3"], "+", 
     SuperscriptBox["y", "3"], "-", 
     RowBox[{"12", "x", " ", "y"}]}]}], TraditionalForm]],ExpressionUUID->
  "47eba987-c0ec-417a-893c-6b019e83ff4d"],
 " on the square interval ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "1"}], "\[LessEqual]", "x", "\[LessEqual]", "5"}], ",", 
    RowBox[{
     RowBox[{"-", "1"}], "\[LessEqual]", "y", "\[LessEqual]", "5"}]}], 
   TraditionalForm]],ExpressionUUID->"435ae2d8-f37c-48dc-bf25-091b569162c0"],
 ". Include the 2nd derivative test. Display Plot3D and ContourPlot \
\[OpenCurlyQuote]s of this function.\n",
 StyleBox["10 PTS",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 CellChangeTimes->{{3.545095629747755*^9, 3.5450956759263964`*^9}, {
   3.545095853127532*^9, 3.5450958811421337`*^9}, {3.5450959163891497`*^9, 
   3.54509591639015*^9}, {3.54509609629144*^9, 3.5450961583339887`*^9}, {
   3.545096393947465*^9, 3.5450963943504877`*^9}, {3.5450967799885454`*^9, 
   3.545096784251789*^9}, 3.5450969461460485`*^9, {3.6533139622917833`*^9, 
   3.653313995074417*^9}, {3.653315371860608*^9, 3.653315372482273*^9}, 
   3.6585335637231293`*^9, {3.658533735152553*^9, 3.658533735588605*^9}, {
   3.736159438182694*^9, 
   3.736159439364472*^9}},ExpressionUUID->"9db92db2-9653-4c37-a22a-\
abdd245080ad"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["x", "3"], "+", 
   SuperscriptBox["y", "3"], "-", 
   RowBox[{"12", "x", " ", "y"}]}]}]], "Input",
 CellChangeTimes->{
  3.5774393390888433`*^9},ExpressionUUID->"5d849287-b182-49db-89f4-\
75b9dec93595"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5774394045575876`*^9, 
  3.5774394193139577`*^9}},ExpressionUUID->"ebf5302b-b5cf-441e-b776-\
3ad892c80fc7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"3", " ", 
   SuperscriptBox["x", "2"]}], "-", 
  RowBox[{"12", " ", "y"}]}]], "Output",
 CellChangeTimes->{3.5774394219033422`*^9, 
  3.658532380911812*^9},ExpressionUUID->"90d465c8-48b3-463b-bb39-\
49651c0a13e1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "12"}], " ", "x"}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["y", "2"]}]}]], "Output",
 CellChangeTimes->{3.5774394219033422`*^9, 
  3.658532380916609*^9},ExpressionUUID->"0c68b00f-3e44-46ee-ba63-\
8b1c5bca3341"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "\[Equal]", "0"}],
      ",", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], "\[Equal]", 
      "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5774393447199745`*^9, 
  3.5774393987382727`*^9}},ExpressionUUID->"6511e6e1-3bd5-44f4-a567-\
63bfedfe289b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "0"}], ",", 
     RowBox[{"y", "\[Rule]", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "4"}], ",", 
     RowBox[{"y", "\[Rule]", "4"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "4"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"1", "/", "3"}]]}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"2", "/", "3"}]]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"2", "/", "3"}]]}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "4"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"1", "/", "3"}]]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.577439460276144*^9, 
  3.658532380978627*^9},ExpressionUUID->"e7a63fea-fbce-4b15-8f0b-\
b556bc14de9c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["x", "3"], "+", 
   SuperscriptBox["y", "3"], "-", 
   RowBox[{"12", "x", " ", "y"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "1"}], ",", "5"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "1"}], ",", "5"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.5450961860065713`*^9, 3.545096214599207*^9}, {
  3.545096248522147*^9, 3.54509624892117*^9}, {3.5450963793146276`*^9, 
  3.5450963827688255`*^9}, {3.5450964657965746`*^9, 3.545096502154654*^9}, {
  3.5450965328034067`*^9, 3.5450965390587645`*^9}, {3.5450966720193696`*^9, 
  3.5450966836280336`*^9}},ExpressionUUID->"accaa303-8192-4d88-8e1a-\
dc679a2980e7"],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJx1vXVcVdkX949gIKIiFmKhoGIjYiNcAWkQu0YMbMXusWuwFdtRbHEcWwdH
[encoded data, 24339 characters]

   "], {{
     {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
       GrayLevel[1], 3], 
      StyleBox[GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJw1mwf8V9P/x+8699oZ2aslqSiVLaVBdmVVEhEiDTIqIqQlkYTsUlKEjEpo
[encoded data, 11773 characters]
b8i3qHCw+E3kHLDXEAuH28fX4Vuo/wMn+wjm
          "]], 
         Polygon3DBox[CompressedData["
1:eJxFm3kYVdP7xe8Zbyljc0qoqFRIkiGSioiURAPNEyqKSiQNSEpFpUEqmsic
[encoded data, 11102 characters]
I0qFAw==
          "]], Polygon3DBox[CompressedData["
1:eJwt1nm4jnUaB/DX2ezbIIWTJZory2g0mSwzbZYZMihpm6sppE00NaIZUXY5
jpwc+5YsCVkOSotSRNGxZUmWlBISUZaQ+dzX+/5xX+9zf57v7/cs77PV7NLr
9p5piURilspUP2UlEpPTE4lS6i19V/iJGqg/KDiUtdDvk3uEbWY92FXsTfV0
yp5g1+mPy01kJdQK9gD7UD2n3yPXj/1V/5Hqz/ay59iN+q+N7cV2sWdYA7af
Pcq2pLZRm61RA9g+1p/dpP9UDWLfsmGspb500UQiLSORSFeFrC/7ynxPyO2Q
+w+rx0aquqyR3NgiiURbmQOqJ9sp11uuvkw+y9aPlhulKpp/LX9ebj8fIHdz
HKv63PICXkyujFwZY2ub+xQ7Fueb5cjVs9xOZqV13WQWqL+YayZ7RV0m955c
H7mhGcl9bpyZ3O9Y7sE/5lXkVrCn9JtS/1Ej/Srz3ax/VWaCqiR3Cx9s/Qb9
RlWN1Y3/kj1u/AD2OzbQ2DP261l9X1WeXSNX3nwF+qWqMusj18XyXNXSusX6
u1WGscPZCFVBrpzqZrmfKiI33FxVVbe4Tmx3Lb+iaPL44tjW6derqqykOijz
kb6rsR+Yf49lP4lNfjerbJlKxt7P7pfdyq5kH7BnU9dVH+ua6CeoWpbHs0py
DU30Puub+s/j+rtBv1L1jrlYL3Z9HL/stXEd88uMLWsbq/l/9V/I9bWuaWYy
G2O28c9VcblialPcM6qndXVkLmcrzfO2qmH8JPMf53dY/66+UPaE/lLcI5aX
yHXkK+Q+ZqPlftAPiuuSva0ynftb9cvVO/q34pym7qPY7p/049WVlsey49YV
lftCPWj5k7Tk/xL/z172cOq6epzVZEXs82JWK84Xe57NUE31L8lVi32y7WXG
tteXt/yGKtBfUm/I1VDb5fob9yObEOdILWcPsl/YTH0FtYb1YqfZq/qKcb2w
nvEQsy+L9DXjvtYOYCflpuhLq5WsGzvFpuvLqXfZw+xnNkNfXr3HHmFn2Cx9
pbi32JPsM9ZYP9mxXM0OOZYp8R/HfckqpyzTvixjV6sv2WCZdLZUXzuuDzaQ
ZbACfR21mw1iaWyJ/qq4VtkLbJxqpB9jG2XYQdt4mTVkI1lJdoBNZ01YLqvK
jrKp7M/sRXYFOxzPN3YtG8VKsa/ZNHYDy2FV2BGWz/7IRrPS7Ju4x5yDW9hr
rDE7xc6xOayyWs+eMm6B+of+dbkm7JLcebl5rIrawHrL/Mrm6i+P6409zV5T
LfXTja3Hzhg7kzVPT16ncb3+GM8a1oJNY3XZ6XhesmYsj2WzY/GMYvfFu421
ZeX1s9SNbCKrE+9Aue/Z+ri3WIs4V/rF6p54j7G/s7L6Jepe9iZrw8rpTziO
SaxkOOvC5qlW+hly9dlZ25jNbmKTUtfQSbaQtWfzWdNE8qV80XzzWTX1GerD
fmML9dXTk++WeMfMV230c4y9np033xx2K5vKrmG/xH3HOrAFrBkroj9rvtnx
/FLr2L/ZBfa6vqrayJ6J9yLr4FmyyNhf43+ODG9t+RXWQO6cbSxiHdlC1pyl
6XNlK+oHW7/dup/ZRnad5Xw+zrw5+jz+BzaClTD2K/nDPJf9xuaw22OsGs6O
sFGsrf57uZHsHJvG8vRH1UssEdeqnzvkNqhh+sNyOaxN3NNqBDvKctlt+iPG
jmaX2FzWke1U01hGHF/qubFNrp1+mVwrdtE+/8DGsCJqHuskd4zl6zNTY+9m
O9RUfXr8J6x73Oexz+bIzUh+Y4zX71L/jHee/j65CnLbWed4VrFOrCRbrp6M
a4U9yhrq98h1Z4XsMVYrvknYnenJd0q8W0rE2Kzku2Sx7Y6LZ4Z+h7pLbhW/
U65UnIN4p7P3WWdWmu2O9z77lD3EqrEvWde4x1l3ls2WqYfYh+xeVkNfEO99
tprdw6rrszz/lrPfqz1sCDtovn76Q3IjWDO2K54TrGzqOR7Pkm3qZf0Zuans
rphPrXONdXZca+L9Zv5q8cGgv5CW/AbO1vdQa+U68VVyB+JcqbGWz6auq/jf
Jmcl38/vyOWpifrC+F6Tm8lXm+Ox+B9l67MhrJix+2THsAZsGCvO9rNN8W3G
5qbu33gePMCWmec822/dReO+Yf+z/F18M8k1j28cViDX2ph91pVwbFv4KMs/
xb0l10H/rdxgdjKuKdaafceGsFNsAmvFDrGhcY+yiexvrCbLMn+xuM7jGtJv
5Xn603JTWGf9Vn4bK2At2YW43+P7IvafzWb/0heqF9OT3yrxzdJOX91+75Tf
pfayoWyzypE7IZfP2uu32EZbtjT1fI5n3TDWyjkobnl3fDuZ6/8bL7ME
          "]]}],
       Lighting->{{"Ambient", 
          RGBColor[0.30100577, 0.22414668499999998`, 0.090484535]}, {
         "Directional", 
          RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
          ImageScaled[{0, 2, 2}]}, {"Directional", 
          RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
          ImageScaled[{2, 2, 2}]}, {"Directional", 
          RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
          ImageScaled[{2, 0, 2}]}}]}, {}, {}, {}, {}}, {
     {GrayLevel[0], Line3DBox[CompressedData["
1:eJwl0ssr5WEYB/CXOe73Zmp2x7jbIFuZzZQ0hyQ1G7MQ2VDYWFAWykxuSaiZ
v4DFrNkopY6/wP1uKEVy2SrJ55c639/neZ5T7/v+3nNKeoY6BlNCCHPyqIjq
Y4/PchILoVB/zWJumj2qa9VJ9VfG0kJo5Uf+ZCn7Wc9RNnKKzfzLDq6wm2sc
4hYr00Nosuar7Ogf+EPiH0LY1Rdzj1+4zxIeRPvxkGU8YjmPWcGTaF2esopn
rOY5t7xHb6ozyoX+nz6h/m7PGP+bDZvd6VskzezS7FadkEWZcfZtsyv1N3mR
MbOk2QBX2cVltvMPmzjJBo6wjn3Re7GTRWxhKhv57Aw10X0wzkz3FLfPkxTo
79kmS86Xr19gHueZG/2uzOEssznNLE4yk7+ZwV+0dJigrcNGdA9s81hXu7Yw
7jufcKP5lPL+f3kDIxRBgQ==
       "]]}, 
     {GrayLevel[0.2], 
      Line3DBox[{1243, 1497, 1540, 1581, 809, 1539, 1498, 1541, 1612, 1962, 
       1419, 1611, 1637, 1638, 1542, 1963, 1420, 1636, 1640, 1641, 1575, 1421,
        1639, 1658, 1126, 1576, 1422, 1244, 1821, 1825, 1736, 1423, 1245, 
       1826, 1424, 1246, 1827, 1425, 1247, 1828, 1426, 1248, 1829, 1427, 1249,
        1830, 1428, 1250, 1831, 1429, 1251, 1832, 1430, 1252, 1964, 1543, 
       1431, 1544}], 
      Line3DBox[{1253, 1499, 1613, 1676, 1740, 1980, 1545, 1500, 1547, 1582, 
       820, 1546, 1588, 1589, 1549, 1970, 1583, 1432, 1548, 1598, 1599, 1551, 
       1433, 1550, 1804, 1833, 1434, 1708, 1814, 1834, 1435, 1254, 1835, 1436,
        1255, 1741, 1891, 1256, 1836, 1437, 1257, 1837, 1438, 1258, 1838, 
       1439, 1259, 1839, 1440, 1260, 1840, 1441, 1261, 1841, 1442, 1262}], 
      Line3DBox[{1263, 1699, 1501, 1642, 1742, 1955, 1552, 1590, 1502, 1577, 
       1584, 1956, 1807, 1553, 1591, 1503, 1555, 1047, 1585, 1554, 1592, 1504,
        1557, 1586, 1587, 1556, 1965, 1505, 1644, 1443, 1264, 1842, 1444, 
       1265, 1843, 1445, 1266, 1743, 1892, 1267, 1744, 1893, 1268, 1844, 1446,
        1269, 1845, 1447, 1270, 1846, 1448, 1271, 1847, 1449, 1272, 1848, 
       1450, 1273}], 
      Line3DBox[{451, 238, 1016, 301, 296, 1017, 302, 239, 1019, 304, 240, 
       306, 1020, 241, 407, 1075, 242, 1274, 1849, 1451, 1275, 1745, 1894, 
       1276, 1746, 1895, 1277, 1747, 1896, 1278, 1850, 1452, 1279, 1851, 1453,
        1280, 1852, 1454, 1281, 1853, 1455, 1282}], 
      Line3DBox[{1284, 1562, 1643, 1563, 1128, 1283, 1558, 1578, 1559, 1992, 
       1285, 1506, 1560, 1897, 1799, 1286, 1700, 1507, 1561, 1508, 1287, 1645,
        965, 1614, 1509, 1288, 1647, 1957, 1510, 1646, 1511, 1289, 1958, 1512,
        1513, 1290, 1748, 1898, 1291, 1749, 1899, 1292, 1750, 1900, 1293, 
       1751, 1901, 1294, 1854, 1456, 1295, 1855, 1457, 1296, 1856, 1458, 
       1297}], Line3DBox[{1299, 1752, 1902, 1298, 1709, 1710, 631}], 
      Line3DBox[{1312, 1460, 1858, 1311, 1459, 1857, 1310, 1907, 1755, 1309, 
       1906, 1754, 1308, 1905, 1753, 1307, 1817, 1904, 1729, 1306, 1959, 1520,
        1519, 1305, 1518, 1648, 462, 1976, 1304, 1517, 1617, 460, 1303, 1516, 
       1616, 1985, 557, 1302, 1515, 1615, 1514, 1301, 1822, 1903, 1739, 638, 
       1300, 1237}], 
      Line3DBox[{106, 718, 107, 719, 108, 720, 109, 721, 110, 722, 111, 1088, 
       422, 112, 1089, 424, 113, 425, 723, 114, 560, 724, 115, 618, 725, 116, 
       726, 117, 727, 118, 728, 119, 729, 120}], 
      Line3DBox[{1314, 1756, 1908, 1313, 1757, 1909, 1315, 1758, 1910, 1316, 
       1759, 1911, 1317, 1800, 1971, 1618, 1521, 1318, 1701, 1972, 1702, 1619,
        1522, 1319, 1118, 1649, 1620, 1523, 1320, 1651, 1652, 1650, 1720, 
       1989, 1815, 1321, 1731, 1732, 1730, 1912, 1810, 1322, 1733, 1913, 1818,
        1323, 1760, 1914, 1324, 1761, 1915, 1325, 1762, 1916, 1326, 1859, 
       1461, 1327}], 
      Line3DBox[{1329, 881, 1328, 1860, 1462, 1330, 1861, 1463, 1331, 1862, 
       1464, 1332, 1863, 1465, 1333, 1801, 1864, 1466, 1653, 1977, 1524, 1678,
        1721, 1467, 1621, 1525, 1623, 1679, 886, 1622, 1526, 1624, 1811, 1973,
        1468, 1681, 1680, 1704, 1986, 1469, 1334, 1819, 1865, 1734, 1470, 
       1335, 1866, 1471, 1336, 1867, 1472, 1337, 1868, 1473, 1338}], 
      Line3DBox[{1340, 1763, 1917, 1339, 1764, 1918, 1341, 1869, 1474, 1342, 
       1870, 1475, 1343, 1871, 1476, 1344, 1872, 1477, 1345, 1981, 1677, 1478,
        1703, 1527, 1683, 1722, 1723, 1990, 1625, 1528, 1627, 1162, 1684, 
       1626, 1529, 1628, 1983, 1686, 1687, 1685, 1812, 1873, 1706, 1479, 1346,
        1820, 1874, 1735, 1480, 1347, 1875, 1481, 1348, 1876, 1482, 1349}], 
      Line3DBox[{1351, 1765, 1919, 1350, 1766, 1920, 1352, 1767, 1921, 1353, 
       1877, 1483, 1354, 1878, 1484, 1355, 1879, 1485, 1356, 1880, 1486, 1357,
        1682, 1768, 1982, 1705, 1530, 1690, 1816, 1960, 1724, 1629, 1531, 
       1631, 1171, 1692, 1630, 1802, 1881, 1633, 1695, 1696, 1694, 1984, 1693,
        1717, 1487, 1358, 1882, 1488, 1359, 1883, 1489, 1360}], 
      Line3DBox[{1362, 1769, 1922, 1361, 1770, 1923, 1363, 1771, 1924, 1364, 
       1772, 1925, 1365, 1884, 1490, 1366, 1885, 1491, 1367, 1886, 1492, 1368,
        1773, 1926, 1369, 1688, 1691, 1689, 1991, 1725, 1370, 1707, 1532, 
       1632, 1533, 1974, 1371, 1654, 992, 1634, 1534, 1661, 1372, 1719, 1961, 
       1535, 1718, 1536, 1373, 1966, 1564, 1565, 1374, 1887, 1493, 1375}], 
      Line3DBox[{1377, 1774, 1927, 1376, 1775, 1928, 1378, 1776, 1929, 1379, 
       1777, 1930, 1380, 1778, 1931, 1381, 1888, 1494, 1382, 1889, 1495, 1383,
        1779, 1932, 1384, 1780, 1933, 1385, 1697, 1698, 1934, 1813, 1726, 
       1386, 1711, 1728, 1803, 1987, 1727, 1537, 1659, 1593, 1387, 1594, 1601,
        998, 1600, 1538, 1605, 1595, 1666, 1809, 1967, 1713, 1566, 1665, 1567,
        1388, 1968, 1569, 1570, 1389}], 
      Line3DBox[{1391, 1781, 1935, 1390, 1782, 1936, 1392, 1783, 1937, 1393, 
       1784, 1938, 1394, 1785, 1939, 1395, 1786, 1940, 1396, 1890, 1496, 1397,
        1787, 1941, 1398, 1788, 1942, 1399, 1789, 1943, 1400, 1805, 1969, 
       1579, 1663, 1664, 1662, 1401, 1714, 1716, 1715, 1988, 1580, 1603, 1606,
        1602, 1402, 1059, 1604, 1596, 1568, 1668, 1669, 1667, 1403, 1978, 
       1655, 1712, 1656, 1571, 1608, 1607, 1404}], 
      Line3DBox[{1418, 1609, 1670, 1610, 1572, 1597, 1660, 1061, 1417, 1674, 
       1675, 1635, 1657, 1975, 1808, 1416, 1672, 1673, 1671, 1824, 1979, 1738,
        1415, 1737, 1954, 1823, 1414, 1953, 1798, 1413, 1952, 1797, 1412, 
       1951, 1796, 1411, 1950, 1795, 1410, 1949, 1794, 1409, 1948, 1793, 1408,
        1947, 1792, 1407, 1946, 1791, 1406, 1945, 1790, 1405, 1806, 1944, 
       1573, 1574}]}, 
     {GrayLevel[0.2], 
      Line3DBox[{640, 951, 1073, 1074, 810, 1962, 641, 954, 1009, 1043, 820, 
       662, 1052, 1053, 1013, 1956, 1046, 830, 675, 1063, 1064, 1017, 841, 
       687, 1018, 1992, 1216, 1217, 851, 698, 1236, 1237, 1235, 861, 708, 
       1909, 871, 719, 882, 1860, 731, 1918, 892, 743, 1920, 901, 755, 1923, 
       911, 767, 1928, 921, 778, 1936, 931, 788, 1945, 941, 799}], 
      Line3DBox[{445, 229, 1575, 332, 282, 1551, 293, 236, 1557, 300, 240, 
       307, 1561, 244, 410, 1615, 248, 710, 1911, 873, 721, 884, 1862, 733, 
       894, 1870, 745, 903, 1877, 757, 1925, 913, 769, 1930, 923, 780, 1938, 
       933, 790, 1947, 943, 801}], 
      Line3DBox[{643, 1002, 1103, 1003, 1126, 1037, 1004, 1011, 1005, 1833, 
       664, 957, 1015, 1965, 958, 1108, 1109, 960, 1020, 961, 1076, 1111, 965,
        1077, 966, 1079, 1178, 1985, 970, 1113, 971, 1083, 1971, 975, 976, 
       722, 885, 1863, 734, 895, 1871, 746, 904, 1878, 758, 914, 1884, 770, 
       1931, 924, 781, 1939, 934, 791, 1948, 944, 802}], 
      Line3DBox[{644, 1231, 1232, 1825, 1233, 628, 1186, 1185, 1834, 665, 831,
        1842, 677, 962, 1075, 963, 1112, 458, 1957, 1078, 967, 1081, 460, 
       1082, 972, 1085, 1972, 558, 1117, 977, 1088, 979, 980, 1864, 735, 896, 
       1872, 747, 905, 1879, 759, 915, 1885, 771, 925, 1888, 782, 1940, 935, 
       792, 1949, 945, 803}], 
      Line3DBox[{645, 812, 1826, 646, 821, 1835, 666, 832, 1843, 678, 842, 
       1849, 689, 968, 1958, 1080, 969, 1114, 1115, 1976, 1116, 1084, 973, 
       1086, 1118, 1119, 1087, 978, 1089, 1179, 1180, 1120, 1977, 981, 1156, 
       1154, 1981, 1155, 748, 906, 1880, 760, 916, 1886, 772, 926, 1889, 783, 
       936, 1890, 793, 1950, 946, 804}], 
      Line3DBox[{8, 1246, 23, 1255, 38, 1266, 53, 1275, 68, 1290, 83, 1305, 
       419, 98, 1320, 423, 113, 426, 1621, 128, 562, 1703, 143, 1357, 158, 
       1368, 173, 1383, 188, 1397, 203, 1411, 218}], 
      Line3DBox[{647, 813, 1827, 648, 1891, 822, 667, 1892, 833, 679, 1894, 
       843, 690, 1898, 853, 700, 974, 1959, 863, 711, 1989, 1202, 1203, 1152, 
       1153, 874, 723, 982, 1090, 1157, 886, 736, 984, 1091, 1205, 1990, 897, 
       749, 1206, 1207, 1181, 1982, 907, 761, 1926, 917, 773, 1932, 927, 784, 
       1941, 937, 794, 1951, 947, 805}], 
      Line3DBox[{649, 814, 1828, 650, 823, 1836, 668, 1893, 834, 680, 1895, 
       844, 691, 1899, 854, 701, 1904, 1221, 864, 712, 1912, 1151, 875, 724, 
       1204, 983, 1159, 1160, 1161, 1973, 737, 985, 1092, 1162, 1163, 750, 
       987, 1093, 1960, 1209, 1210, 762, 1211, 1170, 1991, 1184, 918, 774, 
       1933, 928, 785, 1942, 938, 795, 1952, 948, 806}], 
      Line3DBox[{651, 815, 1829, 652, 824, 1837, 669, 835, 1844, 681, 1896, 
       845, 692, 1900, 855, 702, 1905, 865, 713, 1913, 1222, 876, 725, 1158, 
       887, 1986, 738, 1208, 986, 1166, 1168, 1983, 1169, 751, 988, 1094, 
       1171, 1172, 763, 991, 1974, 1097, 1212, 1213, 775, 1214, 1934, 1176, 
       1187, 929, 786, 1943, 939, 796, 1953, 949, 807}], 
      Line3DBox[{653, 816, 1830, 654, 825, 1838, 670, 836, 1845, 682, 846, 
       1850, 693, 1901, 856, 703, 1906, 866, 714, 1914, 877, 726, 1223, 1224, 
       1865, 1225, 1226, 1164, 1167, 1165, 1873, 1182, 1183, 989, 1095, 990, 
       1881, 1096, 1121, 992, 1098, 993, 1129, 1023, 1188, 1215, 1987, 996, 
       1219, 997, 1218, 1039, 1969, 1026, 1027, 797, 1954, 1239, 1240, 808}], 
      Line3DBox[{655, 817, 1831, 656, 826, 1839, 671, 837, 1846, 683, 847, 
       1851, 694, 857, 1854, 704, 1907, 867, 715, 1915, 878, 727, 888, 1866, 
       739, 1227, 1228, 1874, 1229, 1230, 1173, 1175, 1984, 1174, 1200, 1201, 
       994, 1961, 1022, 995, 1130, 1056, 1025, 1057, 1065, 998, 1066, 999, 
       1071, 1058, 1041, 1198, 1988, 1199, 1028, 1141, 1029, 1147, 1979, 1242,
        1033, 1241, 1034, 1220}], 
      Line3DBox[{657, 818, 1832, 658, 827, 1840, 672, 838, 1847, 684, 848, 
       1852, 695, 858, 1855, 705, 868, 1857, 716, 1916, 879, 728, 889, 1867, 
       740, 898, 1875, 752, 908, 1882, 764, 1024, 1966, 1038, 1196, 1197, 
       1195, 1142, 1143, 1145, 1144, 1967, 1040, 1068, 1070, 1067, 1069, 1059,
        1072, 1060, 1031, 1132, 1192, 1131, 1100, 1975, 1124, 1148, 1125, 
       1035, 1139, 1238, 1138, 1194}], 
      Line3DBox[{659, 1006, 1964, 1007, 660, 828, 1841, 673, 839, 1848, 685, 
       849, 1853, 696, 859, 1856, 706, 869, 1858, 717, 880, 1859, 729, 890, 
       1868, 741, 899, 1876, 753, 909, 1883, 765, 919, 1887, 776, 1030, 1968, 
       1146, 1190, 1189, 1191, 1122, 1978, 1123, 1099, 1134, 1133, 1135, 1061,
        1149, 1062, 1036, 1137, 1193, 1136, 1140}], 
      Line3DBox[{798, 940, 1032, 1944, 787, 930, 1935, 777, 920, 1927, 766, 
       910, 1922, 754, 900, 1919, 742, 891, 1917, 730, 881, 718, 870, 1908, 
       707, 860, 1902, 697, 850, 1021, 1128, 1127, 686, 840, 1016, 1107, 1106,
        674, 829, 1955, 1012, 1105, 1104, 661, 819, 1980, 1150, 1008, 953, 
       639, 809, 1042, 1001, 950, 1000}], 
      Line3DBox[{800, 942, 1946, 789, 932, 1937, 779, 922, 1929, 768, 912, 
       1924, 756, 902, 1921, 744, 1869, 893, 732, 1861, 883, 720, 872, 1910, 
       709, 862, 1234, 1903, 699, 852, 1110, 964, 1897, 688, 1050, 1049, 1019,
        959, 1055, 676, 1048, 1047, 1014, 956, 1054, 663, 1045, 1970, 1044, 
       1010, 955, 1051, 642, 1963, 811, 1101, 952, 1177, 1102}]}, {}, {}}},
   VertexNormals->CompressedData["
1:eJx0enk4lt8Tt0RFStkqrVqUUrJUSjUIlaIoKRSRSrJmC6XsIfuWfd93oiwd
[encoded data, 50752 characters]
4Fy24pwufZzTVY1zuri0GTr5BHjVqrNS7593ENWX4gbuhBSifwHLAqti
    "]],
  Axes->True,
  AxesLabel->{None, None, None},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImageSize->{375.47149072588553`, 334.39900954391527`},
  ImageSizeRaw->Automatic,
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], "RotationControl" -> "Globe"},
  PlotRange->{{-1, 5}, {-1, 5}, {-63.98460302117505, 183.99993828571866`}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{1.7913332313152581`, -1.3429171445138217`, 2.5372620671417607`},
  
  ViewVertical->{0., 0., 1.}]], "Output",
 CellChangeTimes->{{3.545096205526688*^9, 3.5450962153472495`*^9}, 
   3.54509624997723*^9, 3.5450963838158855`*^9, {3.545096490839007*^9, 
   3.5450965029516993`*^9}, 3.5450965407828636`*^9, 3.577117427981677*^9, {
   3.577382864286869*^9, 3.5773828698022423`*^9}, 3.5774396363177567`*^9, 
   3.658532381114626*^9},ExpressionUUID->"f88416e6-4297-451a-be9e-\
d4d20dfc0642"],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJyNfQVYlUn7N0oqUudgd7t2ru2M67r2rr3m2h1ru3Z3Y7di567Y+SgmromC
[encoded data, 24827 characters]
1xP1cvFZ66532r4yRbTDd/4fvUtK8w==
   "], {{
     {RGBColor[0.148, 0.33, 0.54], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNmVtwVtUVx885H+TL9+UEsHSmqFMLmAs8tA8tJSQBxARIwGDIpXVGIGGA
YGc6Uww3YbhIScQIuZgwwkxe5OYYaGckIBDsdGilpXValZsCYgqopTf60KJI
qq1dP9Y/Aw87Z337rLPP2mv913+tfTJm0bLqn0RBEBTbn4RdG4YGweohQTDP
fveFQRDZ9Wt2TUQunzGdS/Y7NPm0yW0mf2mjxMZ/bHxh402bDyLXKbPfA5qf
amOyjc9sHJbOV6Gv81jk84cCfy7Q+lNC13nX5A67/tfGWZPbJZfqPvoz9Q7s
GGFjpY3PbdTYmGP3b+n947KC4Lj9HsgMgiU23jC51+Zbbe/bbPzCfj8Z+fWQ
zW+1ud9GrveMfIEf8M81vQs/fGzjPhu3tefBvd7Svm7JHuSbdv3Uxq8C170t
vx2T/chfaB3kR6SD37bq2Woba8yWv9j1is3/NXSZeE1IB0GO2d1v1y2m8y+b
22M61+16w8ZjNrZLHhn6/D9sXDWdOtN/1EaujSZbo97GPpOv2v3lNopsNMm/
+LbRxkQb2Ta6DETPR25vW0YQjDb/tma47ZNlf6nhq8DGayb329xRG7GNWpur
0b21CY9Rp+kcCd1+dIpt/Ft4+MSufw49FrMi3wP24wN8MUv7u649dmoe/7Qr
XuAWn3+idUolE8dntH6pfH3znvffVOzA5N+1/uOR32Me3/4NfAirHwm326U/
28YDqSDYac80xOZL2/PvTX7Txn7z2XM2eswHz/L+yHE9IBk/TrMxXX6+aGNG
5HMH7Vpi46C96zeRr8ua5eRH5PnEc+iDK3wyJHJfgfX3baS03kVhj/hckP+P
SN4dOB+QC+X2u9n2Umn29saeE2VgKPR3limXv9JvZGystzHM5vLsukA2g7s6
yXmSweGm0Pdwhw8SrncicDyyTkHo+Uk+7xN+F0lnsXzCu0p0j/XfS/p+wdjr
oXPgrsDXaNA67yddRpfBPbjiQtLvgdF++Z018eErwu0pw/3BDI/rIotDtz27
P+F2wicP2bhsa3xg46TJJ033lxl+b4r585vwUNrjcEyxwLfwzmn5v0+4BS9b
tP6cpMtjI78+J/lS0rHQFXhMrmkd5rBxUuS63cIeufst5W+V3Ws2ea/pt9hz
f1K+v5ThOr3i+kvKrz7Jp8VpF5VTcAn7x7er4C3xCXGEX4jRVslFkq8op8Dh
HV8H/s7Rei82N2uPrbJnpngJOwsV94PCSYHWiYXHcmF1lNl2fojvHX8QO/Lz
jMVgNDXJYlKY8ryaatfcof4M+uTZKcU6z+a+bqMj4Rz8bbu3zub/l+l6qy1H
5tmaG0zOTHmMiXWRyYfs3jib/57NTbdrvo0iu9eT6bbh/0mhrw2XJi2mi23+
xYTXqZPCTwsYTDhfTUj4fZ77vq3bZs/8INvXrtb61DpqH9gt0Tw9wA58kOH2
o/OKamKBuDor9PeBWzA80tb+ub3rVRsFKZ9bbnsqS3tt6Ev5vt8y/e1m/8S0
+6fAriUJ14HTasy+VlurNtt9xDM/snWq7Pc2m6+26xz73W42z7R6fiDhfoMr
+u16I8PXYx6+OCFuQc5VzSwTVgdMN7BnFtq9J9Le//ww7b+Z59nz5v/Zpjc8
dp+Ae7A3PuU+yc9yPxFvfEVM8oQB6k+5asRSs32Yat/52OVRaeeHXGEpab+f
Mr1c22NplsdlcbbXqzbVrHJxIrgFF9czPM67Ypdfjt2v70RuT6D8JC8icTZ7
/07K97EhdlvxHbi6bDY8Db+nvF51qGbdVP0DV5OUC6ti71nIc3ohcoZ4Ed/9
sceix67nMn2f76UdW/h5tPBEzYF759vvh22kxRVbxRfULHoIsIHPfpZwH4KF
fP2+Jn+MkI3UCvqEGWmPx4VMr+3HxEV/THuevk2uKQbYSK9I3aW3eTDpfSGY
Xhk7zlfY9anY+WFp7LnF+vjvXFo8knbsHBD23o49J95KeV4uVG5S4wqUR+wb
Dttj+o12bRvqMWB/9OX4jLxhHt8eDt1P1GLm2qVPPiBPS3lfXRV67hcrH8lL
eowe8SZ2sT96XnJunOzuVrzAJH7q1x6pKdQYas3G0Hkcrua5SuXXYtVfcg7e
zpKd4Bg8/9PW+DDp+KH+VIvr2ONh4YE6VWt+67Y918TeA04Ub9/IdHzkZfn+
qEVw4/2x5/0ou74TOx+9Gzvn7VDOUudrxHvkB+vDl/SltUPuclutdLpVQ9nv
KVsr09b6Xez606VDLWrT+mCxVDleLD4F2+CkQzyMv1t11uiLnYOO2/V2ymNI
/q2PnGfWyT8lehdzOzSfm+U9elGW+2+6cqFBtZB8xy7kJZHXxpc0z/5KtSZ9
ID00/TN5Rr7Rb1D3q4VJOKBLPAAnbBenDdHzPEs/RZ9EjzQ0cp1rgfdKzNMX
zaG/Srp/4DlkcEO/Xao1qRPUggdiz5OFyiPyB7yeTfv5jf7rx9n+XIeevSHb
OOMcVw/XqR5pvzAPd7aKL+ptbMMfoZ8p6dfp1T+WDFeslv6vAz/3vBD6Oe6q
ehT6lk8l06vQM/LefeLaTvFtl+xkffa9VH7YJBtYv0d2kndnbf/fMJ0zsfMJ
MrkJrh9UraV3hkfIsWbth73kRN6vwxHjE36mwg9bFNOJ2tdUcWa++knkDTZW
hN471YXeM5F39P5HJNNbtUiHfVfLD2D+deU8tQ2+vj/tvHc7w2N5LHb5aOx1
lT7mRZ0fwEJTys9qd3BpY73swGZ4qET9Dz5cIvzAMwvkB85CbYodfWif/H9R
95gvVM+Lf95QPw5ux8h+OAg890p+VRxJzWoXVlnnS73rZKD+UbFrFsfu1Tnl
edYK/EwJ1unbqTObQ681yD8VBlZLnqrras2vyPZYLlPfMV4xfTrlMvebhIHh
emed3jtRciys1WvNueolpmhu8z04b9I65bJ5pNZYrzUbJbM2dWCj9FcKQ4XC
0QbN05O0J513N0hvuHR4ljpSqvo7WfY0yT912k+B3tUsnNdLZh1ydJPs3yyf
IoN3uIw6cUXPk6efywZymRgTd7g6S/LuwPkFHvluym2nXgz2VVzpMdLKC/QL
VcOoX2Mk7xYHXhAngCv6nk69t1f6DfomBVc+qd4Iey7pnMg5gbp5STKYReZZ
ajs6zJGbxCZb8WlUvDgrg8Vh8vcK+e1RYWxEePc8hn6zfDX8nlgyD/+1yG+8
8/I9tvWrrmPXhzpz9ktGh+de0HpVWgc7sY1zGvHlrEWeXUt7f8l6nL3wcY7q
EXkP7+Wqrz+g3oP+Di5jL3XiRs6MOeotebYi0+s89xo1T0/Vp2fP6FsNNYw6
Qu2F14rUlzVK/2E9P1Y9RXF0t5fLEbfMF8+gzzdA+kvwXBn5NyNwCH/ASyf1
nWS9cDVDve803X9EOpzfObsSt4rI+zxika/9Yz9nnNmRfxtsVXzRh8OPCpP0
ydhA7i9Qr3ZQvISd5CBrV0R3Y1Whd/FNCx7kPML+wH2XvidMkkyvBO+3KFda
tC/u75RP2BPfDNkXPd4W1aYPhHPwTD+zNvIehlzeojjSy+Crmcqhh/TeeeJp
cudc7D3RHww/H+l894T6q3WyZ7p6IfTI10LFjvpCv7JEdQbcgBnOUg1671rZ
h5/BL70vfS/1kB6YXKMWVAkn6K6RPuuxPj3Axth7tVmxf0fYKT8SxzV6J5it
kD52wi+DvIVMTOnNwSR95CLZgw18T+acRk35THGdpPyuFA45q9IHwvfYVaG9
U9c4Xw5+fwALexXH+fIVNRjdXOXTfMV3jfaM/fRInCHxDXWQ81ip/MTcCXEy
eUKOUKfg81rhrkXvhtvrpUP/QO+AfeCmWjw/Qb02duL3KmGG70B8/ykQ7zC/
V9iDX/bIh4/rjMO1UjLfyPERnMC3T2piuXzWKZn/X9BzlCn/iB89DN+D4RT6
53S2rzmQct+v0h75lgKPg2N69gZhfpnqe3GWx4590f9Qy7aKs0t0fgLz+LJY
/sR/1HjWbxTvDnL4Sv2mx3hW2KDGLpd/VmjtXp1J8ctY8dZc8UaJvtlgD/nN
e8kp+AkumyKOqZQNc/U8Mv3r4P9b8DPrg9v1epb8oifvEE7oDQZk52g9t0u8
il/gq/8D/FNOyg==
         "]], PolygonBox[CompressedData["
1:eJwllElszVEUxq8O77173321INFWJCQdFyyqpjaGVEtI6MjGgpS2VlpTRahN
CdEhYaGJDQtSZYOE6sIKbQxFp3QhXbCwqn27we/LWZzknHu+c/5n+M5/Q2tn
05ks51wDkoNUeOfGeLic7dww+ubgXBmO/qRzzRnndvH2Hv8C9lnsBP529Dak
CLsnOvcC/0DCuWvo2/BvJL4o17lK9HO8vcP/Fv8F9AbkHvoA8VvwXyT/LPh8
8DP6NvYj8PP4O8l/Ffy4YsH8TTlXzFsHvnrqvQ72kvLjv018Tdq53bx9xO4B
f4x8K/EfxK4En4d+JGPfVs2bwM6T8yTYJG8f8O8j5ia+u+D3o1eBWYf9A38X
seej9aJv6tstGZvVU/DfsUuo4Ti19CLF6FeIXyD/auwv5GsC3wf+GfgZ8AvB
ZjVEvkbsduR5wnpW7xNICvwtamhCnwyWqwSpCrYD7UIzSWLf8LbYZeLfgO/1
Nivt9CV2AZi8HNuhdvmAt98J24F28Y95tJG7FLsC/yv8J4hfAjOK/jqafoe3
UfDfsFeRaxh7Ev1ANC6cot4V3jglbpUjXejTwbDr8U8F60G9aAd16DuQYuxW
7NpgNagWzayRXj1yWLsgfslbDapFMxqPtmPtWj09RB+LNgv1oF4Ko+22BilA
nwv2rRHsT+SqY2cDucYhcWkOzNqk9fgVvQ0ZyrIddaCXgn+M3UfM3rRxUFwU
BxaZ5eloXFRMoTcOiUu6iWpvN6XbEsd2Yv8MNptuYn6hPyF+MWEcEpeOBvNp
R9qVOCFu3AfTgp4DZjBpN7g1WE/qrZ63wLeao2GFEVacE/d0k7rNPynrpR+p
pZf8aLNSDSPRblK3qX9GGf5sb7sYBH8oWoxiNTPNriptt6Cb1m3v8YbVjDXr
7mi3rX/Mdm83qFvUzc6m7KZ0W2t4m0avThuXNPNy/TuC/TvEGXFnKhpWN6Bb
WPbWuzgj7nz2dnu6gVmw/wHjIZ6A
         "]]}]}, 
     {RGBColor[0.28464103565955723`, 0.4037396610944131, 0.6517445668966182], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNmXmQVdURxu+892beMvepjAgM0biLggozAygQWRSMiso2oCQVYoEJIPum
[encoded data, 5124 characters]
nXHYDT70uX35l/4vmP+EO7Cs2TG9l8+XPA6+7AFMbbMN/w8FA6iZ
         "]], 
        PolygonBox[CompressedData["
1:eJwllmtsVUUUhae9t/feOXcORrRgq5GH1oqP8rRICy2lVK1iAi2iYDQNIDVq
pBVqTBHUtqI00fDQH5IIKsToD4WaqKgERY2l9IHQIj/UCBgTMBKNmpSKEr+V
/WMna83eM7Nnzt5rzoTlq+sez3XObceS2JTYuea0c2chbd65EvjFhI1NBc/G
Mvha4RXgKszDN8BrwMng3OfwH5iTAHdExINXsnY7uAAbhrdiV4D7sVLiq+B9
4MdYo4+1noIfYv9LWKM25dxu5g9lnJuLf13aclAun+Afxr+Q+H3gexh7Ed9N
2C2stxFezLztHPJq1quGr09bzsr9LqwdnoXfDp4f21lG4JuJ74zsLC3svwk8
Gf+ZpN3JKHgdvID4cay/CDzE2Az80/EPgj05VZLfKXgGHGO3wX+FB/AdzGlj
fiLPuc+IXwHvgjfAq7POjWUssF4T+5/kHOewTI7FKFY5K3etUQv+lznvs/Ya
4jbBV3OGvcT/jH8N/AR7bmX/XvL9LtiYfFfCm4g9wtjotO0xAG7AvwveiH83
/kfhPfA9+EfYYzF8DPwA+dWDn2TOQda/iviL8pP/+KSdoR48Fn89/veI3wGf
E1stncffBT+mGM5+OWM97PcA55mWsG+ob1kGX4H/QawI/DDrdbHe8+yXIf4t
rIX4N7GD+H6MrBZuxGaAVwXLbQ9zGsGnGLuBtVpU/N7OpLNpj+tZv5mxw/gW
qkbYf2Zka7WyRin4OPH1xPYytg3+B2suzbMcfge/xtggvl/Y73X49/Bx+M/g
P8/apdin+DZi8/BH2Fl81fAsOIWdTFhPpcETyWkZ818m3dPsfSRjsV/jf4m1
G4hZB95CfqO9ram1X8CqwfcSU5W0M58GX+otVjk0qx6wNOffD18Lnon/ALiH
mHLwMuY8zfw++Bx4LndSw918xdgj3u5Ad6Ea/zZjPaPeKdc3Zr19xHjwSvUb
vuKs1XoHNgnf0WC9rJo6Bu5lrDBtPTYYrCZUG6rRfvg/WBl4G/mMBNMUaYvm
DMFz1NNpu8M8eCd8L3nlw6ewd4jt2+rOdffd+mbkPkDO34ATOlPKvpm+Xa63
XlAPLQjWs+rdJLYffM7bWZXTcLCeV+/rjhKx3ZHuSjk5aQd8bZ590wlZ0wRp
wyL8o/DnwAfyrKf7iL0Oew7+LDYzaxolrZKG3Ul8C/FfpKwHb/XWU+otad68
2DRd2i4NrVQvZ0xbtKZj7nFpNPgV6CC+HNV0wmr4sth6Vr37H2M7wbXMOcx9
dLPfBn0vrJDYXfi7vWmQtEhvwAXynctYP/GTVCPw2d60SDX7DHPrIuvdTt0B
eEew3pEGSAvaif8L/ifWhW8WY23kO0jNXmCf6ZFpkWI+wP9RsG+pN+JjcCP+
Bey1nLFVkWmGtEM53Q9/Iljtq+ZV+/neaks1o9qZ5k0rpYHSQu2pvfVm6e36
KWNvnTRT2rk+2N3oTSph7kPBtEeaVahayVrtS6Ol1R96O7vu8BD5VHjrtS+J
n+Xtm+vb68zF8CL2+Dtlb2o6shjFqgZUC/qG+pZ6k+bjP5Gxt1Rvbg28kJgl
KetJ9abuRHfTxNhkaXUwrVNPLA6mIdKS+5hfQWxZsG8tjS8HlwSbKw0cT64T
Y3t76xi7BpwfDOsNGAPeEpmWqca2gncGezv15r+hftabnrIcC8DvBPtX0Ni7
wWpItaQevRs+4k1bVcNRbJoubdebcpT13/b2b9ED35w1E1YPTgUviewtl0ZK
K6UR0gr14KvgIm9nX4pVRmbCqqlr1Z9Ze5ukob9x1yGyXtE/w83kE8fW23pT
9LaUedNWaaq0VTWt2tY37fCm6dJ2/UP0sd7/BSguJA==
         "]]}]}, 
     {RGBColor[0.4424129277973048, 0.4591866519415448, 0.5589968731159615], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNmgvUlVW1hr/9X/b+9vd/20JFrVNyKUsBEZBEC1C8pFlpgoKmFqSCF1C8
[encoded data, 7991 characters]

         "]], PolygonBox[CompressedData["
1:eJwtmHuUV1UVx+/M/F73/s4FkQbMgHmAIDMwwyAYBjOQpcsH4ApdAlEizLCQ
eIoGaBkiiKgtxBfIMtBARS1jydKFIY8REUFJi8pEXIKpQalgikMhWJ+vX//Y
67f32Y+zz7n7dX5VE2eOmlEaRVFcEkUZfutCFL1RFkV3QtSDdy1G0ehsFI0B
uoE/GkdRCbKPIrMLfBwyxzCwFGgP3QA9OxdFv8TWu4UoyrF2I7YeRL4VfFAS
RXfno2gZcGUaRTtZawdeAryAbj/41cjPBf7AfvXIzIK3GXvr4L2ITBb6J/A/
xH5H9O9h7xj7dcivg/8h+zdBN0Nvh15aZp0d4CdZ6w//XGAPuntYOw3eFOz9
E3t/g+4C/RQ6w8FHseesjH2Ur32hbwf/BfqD4a9n7RZkF3M/fcAHAtvw5/fw
Z8K/AvlrM9aR7nBgMvRG+OcgewiZ3vAu5HzvQL+CD5P0Pfi9mbP3Qn4R/A7Y
3wVeGtu3ucAj4MM4z2S+x63wvwt+ETpvo78AnYvBB2J/LnvN05nBR8pn3Qfy
l4G/zT4DkO/I7y3ID2HtZmQXAI3gPdljLef5BjqDsP8C9K/Ap3OGyxKD8NWs
vQjv28F7ySf51li0b0uAvvCbkV+C7FH2nAhew54PYn8COrXgfZCfiuy9wAjk
78beX3P+xsvAX8PPYdDj4P8d/HVgMbbOZ60IfxI278CfcuAQvBZ9r4zv/H3o
p7F5K/t/hM5h6Pfg12b9jS4HP6/o2NaZeyG7hLUt8N6UD9jfAV3M+pv/Dn6t
9Dnr/xQT+H8QunfWMfMDxTqwO2Of5XuKTA26F0C3Ay8FKqCboMtS37HueiB0
FBzTiu1zoE+BX4+9NdjbydoW7D2FD4/j6wfsfz36L0HfrvuFngd9NjamoPsq
5taj2wVoxt82+DfCvxr+4/AXYiOP7rOxY01n0Fm6B3+b59Hfx34vs9Y+62+4
Adn50Bvwpw6Zl+BXYXMv9OeKMXh3AnPQHQI/j61O0JVZ37nufnfBZ03ROah6
ESw7GMiC70QmRXYV9trg94ZuwP+T+H+Tzgsdso7Jz+VfwXcln+Tb6ciMRnYs
UAr9ADYPwH8XmIb/HyDfIeMYUayUszZb8QDUc9+XIH8XssuAS8HfKThXy/ld
lLrGqNacDX0b9KvItM87Z5W7imHF8pfob4W3LRifjc7z4NXIdM74DDrLIeTf
z7rmqvaqpqi2KIeGFJ1DyiXpdEf+6sSxfAb0BPCe2Lwm52/eC7yHcgJ8jmoI
/Huh90HvB1qwdSZrVVnfwbfAVwH7M66hjyE7K7iWLSM+fqRYQSeP/Ar5D/4E
MKHEa63obgNy4BuxsRC8D3cyjb1nAKnyK7Uv49Bfim6F+gPyG+Qz9k9wxoac
a/QX4HXIz8y7B7RDfzv3/Fmpc0C50An963Q38P+L/lTgGXSfQGYk/BuCa9km
fJwH/gXQhOxQ4Ci6jdjfw/3dAN0Efl3i3FJNnA3eAZl1ugtgfHDOKHfWYb9r
4hhULKrH1EBnkV8A71nFV3CNV61XTVVtPV50ruxVPIOfoXqec8/sF1yDVYuv
4Exri74T3c3D6r/ItsB/Ju8c/hS5Hom/vXJEudKMzFs5f2N9636xfVEPUC/Y
HPtuZEO2VrDH61n3hNqiY1qxfSVrT0J3KRqfDpwWuwaqFv4GmAi+mD3nRt7z
PuiQuharxhXBvxPcK28CztP9Aa34vgj6Z+DDgvGFwFDwRuw9h3978W+6+hF7
7so5B5WLqmmqbaoBO+DtQ75rxjX4TfB/Fdxb1iMzUfMF9FWRZ47Rqk0Fzyar
ocdDL8Xm5Mg95i7wH2PzzznHoGJRNVG1UT7Mhz8A+jnwa9hzBPutDv42q7Cx
Crw5+G7uU09T7rHHxrxjYptyO/a3fxr9I/C3Ju7FynnlfgR9tMw1tAO6nRPX
RtVM1c7O6tnQbch0Av8eMj/PO4bPB9+KjZXwYuRfgV+JTkuJe0RV4hhWLKvm
n45sf+if5pwz9dBTgK5ljskVwTVQtVA5plxbEhwLmvlGKfeA+jL7/EDib6xv
rRr4cuw71l1L5kvobwLL0e0G3YDtsalnwbegx4Bvj13rNTNqdnwydq6pxqjW
qMaq1mpmqISeAf0X9FuhmzQrJa49+ob6loohxdIa+D1U74rOLc0YaewYUayo
Z/ZEt171MOOaqNqomq/ar5nwDfDOsb+t7qgFuiLxrFGt/AQflrqWjIQ/NHVM
K7YVM4qdVuhIvQhYC30hMvMV68g/FLuHq5dP4ry/hR4JfVveMT4c/NLUs914
5C8B/xiZ/eBb4f8H2x8Hx9afWHsPXtPX8+Ec7Q9vZXDvOxP+JPgng2uhcli5
3Fs1NGefyqFPBNdW7XFc9ST12VSTG8Cr1QPzruGq5RXQE/LuIeolmtE1q2sm
1mysHqxerJnoHvBPsNmQ95ujEl+PID81429Qp96u+TLvHqJeUgI9Ju+ert5e
HpwL8qE7dLfUs4d8qARfmTg3pdMR+njBs6pmGM0yelPobaE9+mr+xN4Mze5A
X/Bf4/OJnNfEKwUGqZZpXtNbI3bsakZsU31LfPdtnPdyeNsT56JyULm4JvZb
RzGgWFAMKBZ0B0eh7w/uzQEb4+Fthj6V8xtFb5V/FFx7NONq1tWbRW8XxciI
1D1WvVY14iHwAwW/FdST1Zs1c2j2kM0twTGn2NMZNykWvp7XFTOKnYqi336q
oaqlB5CvyfvNoreLzqizau2w6ifwCLbqoD8Knhk0O2jtKvBM8N1pJtRs+Fjs
WvDVmxI8Dp6FNdPvYb+S4Lea3kR6G40Jfms+zNoPwccG45oJvpoNCs4d1VzV
3v0Fz66agc5CtgaYlnOMK9Y1s2t215ugT+IZWbOyZGqD32B6i2kmvJ+7SINn
9+XI/JH1s2LXFtUg1aLXiq4FesM2YKsk9SyrGT8Cn4r8wZxnUM2i+sb61gPQ
PwZ9ODbeH/g39B2Jc7sR+gi876fOfdX8C8DPjV37NKNcG3znunv19OX48lmw
LfW4TzWPBNcC1XzVfs1gmsXmITMYe5tiz3bKQeWi9tTeinnFfnXRby/V8Cq9
VRLraubU7Dk58X8H6uHq5Z/ojZr3zKXZSzVHtUdrp6CPFfzfgN5UelvtDn77
q4dtQfb/bmQJyQ==
         "]]}]}, 
     {RGBColor[0.6001848199350523, 0.5146336427886765, 0.46624917933530474`], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFmgmQVtWVx7/evu+9970WFBTZRJRukD2joENk0aoMM5VusGKcgHQjoDIa
[encoded data, 6832 characters]
1ydf/rdmsvMDXf1fKf4zRb96z5P/sXE3yb3l/wM1FwJ8
         "]], 
        PolygonBox[CompressedData["
1:eJwtl3lwVFUWxh/p7nTf169li4MIJEQwMgkIlg7iivqHpVWAluOSAFImWAxh
CRYOKgLusiiKWgoMYI3IuBTgBpblIIkoMDKjDMLUKKhsEoEAKrIEtRT8ffX5
x6k+537nnHvevfcsXV434YaGoiiKvoXS0FNxFG2AaU5F0cZcFFWFKHoU+Q9Q
OViuEEUfwu8BPwF2OB9FFcVRtAm6AfnD2Lr3gS9DPgHeB+wWfK/H32rW5oON
Q2cIunOgj+ArWGsA+1sSRWu0l3SQt2DzXcoxKbbR7L8mG0Vj2kRRK9g76BQj
l4JXgo+EZsC/zketBBuF/irwh5DXIC/EfzPxTMpEURfks5B/wf9YdKrQPZ14
/4n9VtZK4Kfh73/w1cQ/FX514rP6BR+N8P+GEmwriKcaPMZmZdo2Ab4MqkX+
P3IpfFNsfhLxNMJ3Ye0mYhkHnUY8Y/C3Et8vIXdHXot8VHfDHusUK7QKf9vx
8b3OOzGmM9BZrMLnCfAG8BeQ308c6172a0p8J7qbAvr/QS7jm5fh/zbk7vDb
wFeDz8XHbvBFyGNT9vkksf4FnUZ06/ne45z/a+APpPxG9FY2YJPP+kwakWei
PxC9Tey/Cbmy4LOeyveVI38GtoD9BxFje2x7Qhl8jUI+G/5svmcZttNZq4U/
RgyVYH3xsQf7Gej8F7kFnQNgk9FZiu4nxLQDfDL4OvB/gV8Ov5m1zfBHsZ9M
LLdCC+DHEsMGYqlEJ8a+Vd8D/wk+fyXWU9B5+D6JnE/5jk/BH8Cmc9pvrg68
K9QBPof+B/D10Hsp73kVex/HZ3/2GwAdQu4Z+y3/rDMhllrWhhHLLuSJyDMT
59Yc7NuBbWe/AeAl/D4MfhT8fHQ/Z48f9DbQ6Yy/Q6zdDT4cmgf/J2wasXkD
fCm+9rE2Cawv+7cj3jZg9yO/KBm+LfQgchVyGXgp3/MF/B9j51oDdBidv+Kv
H3vfhL/26I+AFsF3UTzBOahcbGHtLrAB2J+bdk7coreQuBasQKcvul1Zuxjb
6/jmbvCzwT+FPwT+OHw9a2vx9RryWvQzumPsF2DzPvxoaCrfuhyb29H/IFhX
b1ZvtxL5kbTvqJveE98wuo1rhGpFMzYVWZ/xV+j+DD4x7Td0D9iXOb/Nvay9
hP083sAozmYae8yFj2KfxZ+hdvhrCs415YRy4xTyjfCbsZ+vt6p4U45JsfXE
x/CMc2IPe1UjL0R+HhqqfA+/17Ksa+FtsXNjOj72/35nursa5CVgtcivZn3H
XZAfhN5O+80cIZ6zYufyj8hT0N3Cfim+DzFagZ+R7HdGyjXnWfSfhj4Hj1l7
QrmXd26U6I2o9mAzvo3vSHe1UN+Ir+HYlKFfmpgfpvtVbcv57mJ8rI39pvS2
XmBtHXuvD+bbgb8NX47PuqzfnN5ep+C7XgrVJvYhX6pJy4NzULmonnME3zez
9hPn1wcfB9HfHcxXQS3IQ/A/PesaP7jgnFBuKKfOxdeF6MzC30p89Ie/SDmY
ds1qD34ea3cSy3Pg/eCfhD4r9pnr7C/jvJYX2ceVeeeEckNntkL1Ep3x7H0h
a63YDs377hWzYq+HduBvOzQXvBf6M7OOeVDBNUS1RDVTtbMs9t204HNfzjVQ
tbARugx+UGy+GbwZ/E38n5ZxzveO/Sb0NhRzD+Qa5GeyzuGb4cvxMaLYNUO1
o1n1IOue35p3jihX6pC3oXO1zjPjGns6WGvwLKEZIAtWjXyyyD6+S9xT1VtP
YrMRf/1i86rJqs09EvtWD1cvr8F+UcY5o9x5jrV3037Dtwf3cPVy6dSAd827
tu5AXgr/D+gL+MXYTET3K2LelvGasG8S1yLViL3wZ7I2u8g6S+B35OxrJ7RM
uQy9k3bPGBFcc1V7VXNeR34lca9XD34Z/srgXtkNna16S8G1QjPQSfh71Q/V
m/jm43n3CPWKtuB1wXtqb/VA9UL1RPXGcvQPqnexdgT8B6gR+QFsrk15rUnz
Sc6687AfH3sP7aWeq947EJqRcQ+5NO8eo14zBR/vaV7Bvn/kmVCzoXqsem0n
1j4NzjHlWm9oV3APVC/Um6pG92Dw21ePVK9Uziv31WMriGcx8oSU39Aq8I9y
ni0n6E2wX8dgvgHqg/xt4llBb0pv63Dw7KQZ81ewYdDiYses2L/JORdUM1U7
t7Fnt4xzTLn2cc6zgnqcep1mOM1yz+LjOny9GnwWqulrwL7O+yw1U+2G3x/c
q/Umj6F/a+LesQT7EfC7Es9emhm2ontHYkwz4AT4A8F3rZlFs8uXyPuK3OPV
61UTVBvUA9ULFySerTXzLoK/i5iuAduM/Jjem84Q+/XIU+DnEOOxtGe+57Ev
LXg2VM3N6D0lvjv5kK8bg32pR88C2xj8dtVD1Et65z17KkcKYL3wV5/1m9Pb
OyO4VqqmzcP+reBephqkWnRv4tjuIaYa1Z/Es8zfWRsK/3hwr9sHPo29Ribu
Baqhdarnie9GPboKvDqxre68LbZXIDcV+Qx0FppJNZtqBtcsrplcs7lmzOnI
o4Jnm53Q7NgzmGYxzfBD9K0511r5HKzaqzvMuGc+hX0Ja9m0e8YlBf8H0X8R
9fweeeekclM1tTv6HRLPQtdDHVUPYtcm3bnuviX4v4pqzJvYliTWVc9V79V/
OP2XU0/aDd+RteK07/hj9M9PPHsppy9I3NPV29Wz5sD3C+51mrHGJe7Z6t26
w5z+6+Gjc8r/mTrlPfNo9tGMo1mnV+JZWt98juplwbO+ZrzOBc+Umi2VY1vh
dwbP7qpx+9G/uOC7VcwdYue0cltnqrM9GnwX+k96SvNIcK3Rfw799/gNV80E
pQ==
         "]]}]}, 
     {RGBColor[0.7579567120727998, 0.5700806336358082, 0.37350148555464807`], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFV1lsVVUUvbx3H++de+6VthQUARkTISHAhx9o/GEIpa0gGhEZFWJMGE1I
ZBQjmigzGiFSqNEIxJgAMlVEkMQPGYJALbVQUgiUQaFAbAEZCuJarE34uDn7
7rvPOXtce98uE999dXoqCIK3WwRBGutHURBUhEHQygdBiHVnJggOgr8rI7oU
QotcEIzEOseL95PJ9MkFwVXwy0DP9+Ivgez5UPu5d2ESBFuxHgH/C/D3gu4J
+XLQB0A/D3od6P1GV6Ykj6OD3lib8HwPulPLIOiMpwfoGtxVAf5qrONwT1FL
6VGNvYWg20FmWUp7eFc9vnWlHaAfYM9z4P+HdRJ4zdg/1vZ2svMP4ds98FtH
+n7PZGZl9U7bl0PnbeA9BboKe3ekde8HsLMI9CScsQ+y+/HUUt6LLsf3Ldhb
DZlR4M8NpNscrFPT2kN52kWbVuPsfKy7sWdyILs/D6VvgVfsGEOeRzrEWotn
D+g8rAcyOpP6r3GyeTH2fYfvR0AXB/Lf0VD3HfOypRrrZ6Huo10bQR82eZ57
Oi3dxyeiDyFg+0L5mn4+DPqK5QZj0gZPXUp2UD/ashV3NIC+C716pUUvMn/m
t5Rvua/Q4lKAtbXxByAW/bPSoSin9w5prQONfhCLvo7zb+D9RculJ7z8lWAN
vPzwAD68azK7wB6MM4uz0qcY/huSUbwYq/7G/xF7r+M9xN6/I+X2X5H29TJb
7jn5YQdk38LTD/RMp9zuZ/6h33sbTdleRoeJ/HnT6d7ulic8i3L3wc9CphT3
/Qt6O3grQvlvOt4XQ3YF9HFm226v9WQoO0uy2ku5FmnZ2Iy9neG3Zrz/4sWr
Nz7tKslJv5fBu5BRvtWE8i99y3PvmA+HZlRrD/2WVfzqLLYFFsdH78yxxlAY
xPo6Hsq3PHOL112XYFOzU54wdz6JVedPgPdSVvYw7rNz0pP6znLyM32/FGdu
MWypD+UL6nk2lL2k83HmUOhTk7NzzD+sD/KJR61j2VuAtWMse5/B+g/83AB9
ruCuMynRxDTSl1PColaRbDzgdXax6XzQy/5lTvnF/GP+zEhU/xOc8pV5exH0
G8xdYogTbtwMVeMnYtnZ3yl2LQxniu1M3sW48JzQ4pgQr4g5iWrzslPe/RYq
7yoMHxkjxqrKaOYbaYgHcxLh4R94aee1d3kkv7IflFru5hluEOOpJ2PBO/MM
EyZgbyX4X5qfLthexpz4Qp/cTgm/iEXMy8BwaTFs3wD+zEi9ZT3oa/h+K6Ue
w1j86VUjk6PH38gnLjZa7hFDiCmMA2V4H89fFEv+NSdbl4XqV5diYeNZ8M/B
P32xt5654qXDe5Fwiz2DOU/ZDaYbexr7DvN4SiRsP459c71sXw9e1iuOt7Eu
8Yr1ZuZaLFx+3Sm2RRZf+mOj+ecO5DeBnhcJ55rNlo3WA4Y71VlvqzXaRZuo
J/sY65D8B7a/3gkPNoc6i7nP+tllGMLexnzb41VjC5zwjbMCe1mZ9ZWB4P/g
JT/SySfXTDf2H8q0sxmjr+3lDFJvd1GXTabDKC993oeO5718SF9+Gyn3usTq
Ub+Gyj3WZbnlwwYvugQ6rIJdKzOq1Qav2FzGutfLxg+d8uqa5QxjTP2I1ZO9
cLUcd5bHyoM1sfCixny4IJE+1GtpJH3ewZmZRLk9DXQn7KkFvTZSzZ023Fht
M081ZC5G4p/zqj3Gi3V0Fe9l2Dsd33d6xW6u02y1JhQOsUeVGV3lhYeHDSPZ
s2lLhRc9w6mfcc9J62O/h8J/3s95jro1Wb2dYl14yawEb1qkvr0Xyq31kh9k
+pwxHzI3iK3MP2JqrfUm9od86xd7TZ53MVcrTf663cv7c5FykXicjiTH/szz
7lhf5z1Nluus7a6GRd288qu9U99gXGkjcyqwmjmQE04RI29Zv8klysEWJjMu
q1g3mY797K4bhqfs58xN+u7RrFpnWFoIHYYj99pY3TPXS61XF5n+JdaTFttM
xTPoX859ieE565l1PcILB4kzl2NhELHoBtavnObCFZAZD/przodeNcBaGA66
zuJ0PhbObTVcYB6xPhiPs5BrCz3qrZfNtp7LO4mTrJMl2F8FmaWxaok19Wms
vkGMYf5uyykPmY8Tnfod+x5rifb3TIQRxIoxhqm37fxzOc3K3cE/6qQn/zna
JYrH04l6EWcnxpsYOdiwnXjBGM+PhI8PY+ll3zLLN9ZKg9lLO9aZbcO8sOJj
nF8Q6d/ghUS532AzXJ71PPY11jZrfLsXXhOfR7N+vebLyKveWHcTveqW9TvF
qxcyn9rj/EYnLOPcTYxgfhfGig19SZ9+AyKFM3+O1CfYL3bZyj431ubEHda/
2WOYc/1w5jrDTGIVsZt4O8+rnmlbq0QzCnvlUi9MJDb2AL/S+iJngfuRYtQI
mQFOvW8SeMec7uV/xpN4XoGebbGecJoRz8Sa5+j/9pZfbWz+H2T/kKVe+Mo6
ZS2wP/CdNdxsdcMeMdqpfjkrMR6UJ76NcNKNOvLsbln7N7H5OIo0+/IsHwkX
ePbaWP/ArM2FTveMfDRDxjqnlvgM+lnQF2L1Ofay2lj/zqHNM2es53F2oP59
DHdY50Xpx/+81ZaHxAbOapOs75QYDnCOYSxrIuUm791vPefNrDC12mY+9mXm
NvOW/h3ihEXsJ8xj8k/l9I/LPOEsRGwYanM++wrr4VIkHFhlvTKxOZIyY5zw
kDML/0FPWx10TKRPh0T/nzy/zOnfdKrl5DCnWuMczf9n+mG+06xMv+WB/z/M
Ilu+
         "]], PolygonBox[CompressedData["
1:eJwtlUls1VUUxi+89+i7//uedAAVQQUhUfcujDtxURQZNBJTKA5dqHWAnUQU
daMInTQOsaXqAtENagUbRAmJC6WIDCIWSgA7UKIUF21BlCL4+/K5OMn57nfO
ued/z/Cf07D6wVWTQwivIHlkfRbCLpS+XAg9xRAeiyF8C64CN6APpRBO4fAW
Z6fR2zlrhLsAbgLfXg7hOPolziKxxuDXEvc7zprBL2GzoxDCTqQZbh54Jfr7
xJyLvhzZqkTwXw5/DjwC187Zn+iVyCLsP0IegZ9TIg+4Cexno7/GHY24PwB/
HbYtyA/oPcgH2LfCf4/9IPbnwU9E53YKPIr+BvIw+jBna/Gti87lc3Ad+G9k
Evgz8D/o6+Brc/7mp8FVSBncDa5GH5UP+X8MHtPbIdVTQrilIoRj+HaQ8xB4
I9esAj+P3In/Iewfx/YIuBv8Jrgd3Iz9YewvEnMD+s7Mb/8sNh9im2FzL99a
R7xX4a5gM7/CNVAt6pPfLo99Pfgu6rUGfi/8J9hXY38e7lHOboQ7iU0PuJM7
tuBb5Ox+uFmcPQk3q2zbXvgXwNOxWVpwDVSLh6Jz3QK/kdjvcXYQvZZv+Jn+
ug3/Ab0l8YpwU8D3VfiOi/geR3bDvY3NJmJ/g81k4vcRvwu9v+S3PMEdtdE5
KJeVnM0g1vX4zMu55jPQD8B/CW4BP4X/M5wdzbuGL0e/md7uDvK7CjdM/FuJ
tRmbJfDnM9dSbzKOfhp+T842Z9A7sdlTcM+p91Zj05G3zQm4YWQQbgFSTI6p
2KppE/5LOHu3YB/5akY0K+rxzeAm8NcFz5BmqR+Zju+1yAB6W3Kv13NfW3RN
VVv5rIObmtybR+CvEeaNfgKfA1/G/kw018XZF/BnS67dfs764SYl9/4BcEDv
JX4beDv4MPxfyMIK11C1VE1Um7ngAWI1Yt+KfQ35/qb+Rr7KOcav6DXwl8l1
AvkRnDLPtnpkd/I36dtksw+8npizidXCHa+X/u9J+Hu47yp4MDrXT/Hfmtzz
6v1h/LsUL/PsKecK8j2avNs0c72a78yzr5qpduPRsTVTmq0/Mu8m9ejv6Cfp
6XcKrqFqOTM5N50tTu5Z9a56pDX5DfQW2gnaDZoJzYZ24hD6QPTbayeOcN+K
5NpoB63QbGiGgt9gBG679p1s4Sfgp+HTl/dM16DnuX88557fge2F6F0onwLf
n2Xe3YPgXcoHflvONZuP3sDZ/rx31BrtqrJ3ZR6Zim+NerrgHTAN/d/o3pJP
d3LPq/e1o6JiwXfBN8MfI78rybOnHa9dv6/o3ax/kv5NfSXvQvXML/huKvnf
oR3aqXpE11Y5KJfKzLmNInu1P5N1/bM6sH0x+Vu18zeA+6J7VTOl2boU/Zaa
kW3gZcm9pJ2+DO6GsnfNGDaVJYv0RfhXod8d/W3aOQfRz0b/W/VP1b91YfJu
0z91QXTPq/e1k6sz7yjtKtXgEPzS5F2sf+Ji8E0l707V+Gb03qLv1o7Vrp1Z
9r9ENc+BB5N3hXrmOfB/uhkt2w==
         "]]}]}, 
     {RGBColor[0.9025125565831545, 0.6262813914578863, 0.297788925407779], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNVm9I3lUUvvm+v/f35/pmBbVloyijVVALBmarD6PAuRVRgk1mFA3qFYP6
0lSK9q3yTwSNSu0lP+xPm9UKNre2UUi5Sr/Uam6ZW5QznDrn6/5EagU9j88R
+nA5zz33/M4995zn3Pu7efOL1S8UOecWMFIYxwLnfsQ4DuVByF6MDVho8M59
BPxq7FxPIHwI9lWYvw38MNafwHgfeCNkI8Y+4C2QNbDpAq4BHktLXwOfz2G+
G/hZyCaM/cDNkJVYOwG7PfC/Fd9+DP3z0NcBdwPXAd+Wda4+dG4l5IewXUC8
sxg5rO2BTT3k4xgdwNWQw2ntRd/bIXcE8n/B5sRzKdndD/k0Y4J+tdd5uUZ9
C+ZfY94K+SjieQ/4MZ4b+BvgN4FTiXNPIbYbsvqux3LFcxDTT2us/L4C+2e8
4mmE7m+MCeD90O0MFNtdKeXmt7TyFsN/A/zfAf8HMd8G/ckinZt54xlZk7sD
6XcWOzeVcW4X5JdYW2V66pqBy6G7J5D+TsTZGjmXx1o95vdhVGCscTp3Af5z
sE+lVUtygznuBj4Pn9cwL5hfDdmHtXLzyTwRjxbJrsLwIGzWmv/jOPuNONcv
iPMH6NeRe9A3AF+E/02QZ7B2K2zGisXNAxgDsKmErgpxdwA3xcrdZsQQePlK
Qz4E3YPmk3whJmfIzbWGyS/u+y/wG1777k2UV3KFPOH5mQfuy1g608rrI+wD
jE3spZQw/dTB5nv7/jJia8H6W/A5abnvxPwUznMT7EaKtf+qjOKc98JzkJcw
bgc+inNeBF4JfAHynPGasY1jXgr94Uh9QXue9Q/olwGPQbZjrQ1jYyR+MS5y
rCetXHHfdaFyylgL1q/kMPPEfVmv171y0RHLZ20kzpB39E1uzgeyGTCf6yP5
bQxUr7KU7BlbqZNuvelZ35RxjPEyP/QZZrQX7fsD8YPcqLUzUX8esd0Cu2nI
8UD7lRkfqScn8/BdlhEfZ7xwX6R+Yg5Z017Ms8AjXpJrjIH9wT7JBYqXZ1s6
C9fZX+zXOcsb16vMJsC36Yzu2B2o9yTw9mJx7MlQ9SBfqCc/XgrVa8xFkJWf
P2P1EGNnLXgu9ht7anlWfpbZHTlscRTMx4DVkb1Hzq/APu+Gygc5S+6Sww8E
4tCg5bbd8ttmmLVmTdoM5yPlpN76jLwjl7rNx5qluyVSDbkv9+yzXif32C+8
h5h71mhpP+aUHHknVH077Tva1JpP7ptkVBvW5UikPSZQu9eyWhv2yhljWrxz
ilQLqBcla4PWXMztKbujeCcFVq9t1uusb97uPNowf2V2nmG7g3nP05axMk7G
y3Xan8CGGdgPQe7y2uvXWPkfs3tjEPoF4KsS5SvO6H3eDf1p1sbrHKetlp9i
Pgq814uTVdZrOXvPeUb2+Kjl+jOvvcZj5Yi5OmtvNPt9g/UvY2B/LX6TVmys
7+92Z+bxzRDwSCy+Ttqb9QX0s6xJIn8F+5egnDVMjjAm8uRz2E9Dn4b91kR7
ZbzeuoK9ocVeeq4fAZ6B/rBXr83YO81eZ8/zXp0wzL7jPTlt72+lzYn5Vp+z
fwD2yJzdOwfgd4q1wLm2hMrFgN3/85YT1vak9R73OWv7lmfVt/dmlY8py8k+
L5sF/st4ffsBZHUoO377iVduz8DmO694voX8CfNSvt2J+F5rfcR/rh77B5pI
9JZPJuI7a8+6h8Ydzlvtu5y9+UP2P9Bs9yRjYJ9F/7uTqefbStlkmD2RsX7h
G8m38hDky17vckssXc7uZ3KU9wk5U5IopxXIT5fXP+dQrJiOGV+7Y26C+sL2
euYIeLlXH4QWW2R9QXyl1xtcwgPbe38Fc+xl97PXe3EUYxgm7V64KxY/ySFy
jBxutjyQaym7l/h/1291j2Pll/fKV5Huyr8S8abXeMI7vNze1qU7nZjvVb/F
wPuNbwbjX23/nCtinSmyml1K9B92GfKfWFwpwb7XZvVvcR3kf1d+nEo=
         "]], 
        PolygonBox[CompressedData["
1:eJwtlllslVUUhY/tPZf+9/RaYxxximJETRTjA+LwYMQItoZAk0pCDSpRqUUx
MUArRo0+aHFKMGCBYhOkTA4QaakFNUQFhReHABWKRgEFigyloBa06rdcPux2
r7OHs/+zp3v5lCeqp5eEEOZCOaihEMJymNtiCJ+WhXBeMYTaISEcLw3hHPht
KYSYD+FSzrZlIQyifzu6C6Ea8AHkFyPfiP5i+BuhWcgaoUuQ5/AxBtsm7joJ
7sd+FLKboRPwHej3wlej8xfyLs76iacefy3gCdAq8CJ07kV3P/Lr4edCY5F1
cvYr/GTsS5F9BD4Grgdn4CK4CnwPdCb8y9gcw99n4CbwP+jcAT8aCuBRxDsT
2y3ANmQXFe17JbgZ/AA6b6PbBjXga1l5CIf4/pHEuwR+TrLvqeAX4bdAp6J9
VmD/esFvUc3ZhcgOgEfA3wAdhL+m6Ni70FkMzqOzhni/xl+EH468DvkAuAtc
IIY6bFuIoYb7X+VsM3gS8teQtYMPgoeBHwcvwec+/M3Ax0h8faA3jdb5E/mj
4FXw70LPgp8Gd8JXYv88eFf5/7VAEY0GP4W8I1pnDninYsr/95ShnXq6m7MF
3HclNnuxbc78NsrxSyi9QDyT0B2H/dngHqiIfSc6u+BvKjrWUvQ3K3/Q59Hf
uAhfv4A/QXcoNvuTY1Js36pGwUOgMfCtUK2+h/squW8E+qeQnY//+/C/A/+N
yAvI+6JrSLU0kKwrH/L1N/LT+L+asxPJMSrWy/Cxm+/rKTevnCg3yolyozfJ
wGck15piUCwPge/CfgVnjyTXmGptKfhB9VJmXjWn2lNNqDbeUY2Dm5Cvi86B
ctEItas38TkjmcSv5WwW/Hzsv8q5x89VrSfLVBOqjcegN3LOQQf5ezg5tp3q
QWTPZL5bNaJaUU6UmwHwl8k9r95XT7Tx7RXJvaccK9ebyvx2mjmaPV8k26on
1Ztn6X2je0a9sx4cdD//VsOfLHh23AKeWXCNq9ZlsxX9fcpp3jNCs2Ij9w0D
z+d7a4u2ke1wzvrRPQxdof5Fv6/gmafZp5q4AL6bs6HKJTb1/OktuFevBU+H
/6Pg2bkVm9/hjyf71ozUrFTPqffG4i/KN2dHShzTUc0S3qg375woN7pDd+U5
24F8ezKvGaxZXJU8+7rxcWfmmaPZIx9L4X/LfJdmrmZvFbgV383YTNCsBjdE
z2jN6jpoZXQNqhYnJs9a1bhqXd+ob9UbHUH2A/a7o2e4ZnlN8i7oQ3985hmh
WaEe+jj5zfX22hEbyMV3nJXBz+NsWsEkXjn7WfrJvTqIv4n4egvcHT1DNEu0
Y7RrdNaq98nc699IJzmHyuWb0DhkFUXvlgV8wzxkSfVa6planmwjW8XUrfop
96zSTNFsmZY8C28Fz8ZfD7Q9emZrdisHyoXOWlSvZZ5F6iH10kLkm6JnlmbX
ZPV4cA7uT65p1bZ0XgFXor+nxG+8DJxLnv17wKvh9yL/KXpnaXdVJ+dWNaXa
Ug6UC+m8l/yGest94DWa9Zl57UTtxveTfWvHatc+B/2Y8wxpSN6B2oWaMbPB
45PfVjEq1tP6DRC9Q7RL9MZ6a52tTZ6pmq2qsangQfCh6J2v3a+eUe98D14B
Xp7Mq2ZVu09C15XaZp3eA/3D0Ttfu389dDQ6ZsWunajdqLMNyTlT7mTzYfIM
0yzTDr2K2piSvMt1h+76F6obTeM=
         "]]}]}, 
     {RGBColor[0.9277157342409417, 0.6892893356023542, 0.37591877614691904`], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1VktsVVUUPXmv73nvO6eMBNu0DEgIDhwVgYZ0ZAxGZMS3LRhMSJFKDH+F
gaQIVMXQzoiKrVCQgj/AaOQTk7YBJGni0BTaEoykloFt/SSQqFHXci0GJ2ff
ffZ/r73fm7dp+6pthRDCDZwizpYYwlIQ+3Id0k9Ug66EcK4qhL9xX4bMVCmE
J8EfAz2rHMI47pM4I+CfwH0whTAM/gHcx6BzFrZPge7B2w+QmbRexAE7fILv
O+Cfi9KrwRlBYCerxB9GHKNZCN9AdjFkknXr8J0jziOQXQtDdeDNLcvHXvht
wvv1TLKzbJOnxrp3TdcH3bXmf53pfrUie7T7FGsUVQfW4//Yy/J9NJPMK/B7
NZPsBtTntmMdjXpjXPR5Ft9NoB/ATgvem8vK7T5tQH/StijL2L5/DLoF1Yo6
1H3oGPhG/i3XZ6P5zJM5PI441kNmDu7D8DsA3U7cDZl8sTf0zzieLcre/Ez+
lkBuP+QX4V6eK55e0B+5j+znsly+xpMxAvp3nEXwtxu2FuNuhOwgbN8Dfyyp
JqxNrXtNu3eSekRMrS4KY8/j7oXNmYJ0p0AXcG4G2eMb+fTzo98eQm9zUTIr
cr33R9kgnpqcL7HNehE37GElV8/YuwHkfxx1vAR6M3S/xffTsPsLeMtKynEF
3t6FTgvsfAeZd6Jo8hgLc2D8b4M/BJ33wG/E9weMB7qHwP8Vcp/D5mBJMiPg
91UU+2t4by9KhnaZG+3S5oew9S/oy5AtQe456JYtP2g7z3hu2Avihfkz945c
Nq7YP2tF+63IsStTXYl7YucKvqej+vcbeG/kwsinSXpT7sUfUf7+gcxPSf0k
XljnBmNs0jT1GRexwtiIt+g54gyt9/x0Z6K3up/sa4t9PiipHnxvtfz1KP41
3Auj6lyfa6bom98z4M8HPZgJO6RZF+bX6ty5w7rsl/a77aO3rDnnXPZkorda
ttv0ylw5fRGl22P+UdPM70ZULo3A2vkoPFVF4YD9uFQRTlkj9ov2Rzw/Q5l4
3G2cadaXtf2rIvk/K5qnYe+012H3S+juiarBdFnYu+odzl1OTF0oCa87o+gd
UTl1OXdiqt044RywdoyHuGP8nIV1UbmzBn1JdT+TtI84Z6PeNw3ebyujZpMz
+jLofthpw/1+SfmzLwf8O3I4qX+Tjv8r76dbUbPIGOh7SbXwyBm6CF6H8yJW
WAe+/ey9M4H7rajcjrgelOXMv1hR/d5M2gvE5mjSLmSclFntWNd4lzZ7f/YY
t+z18ig7nUm2O6x7IUmW88R9POU5bHMd2nHPzZUzsVyXtJ/rk3rJXPYRM0k9
vZi0zxgfa00/++1rQbVu7rObxh4xuDdqD3Af1Pk3k9j+zL7oc10S7ptxf+we
MK5DSTufu3/a88V8DkblcSzXLuBOaAZvV1Q/dkfhlPxHe5g4Zuz9jpk061Xv
PsyuFsb5P4I7iLO6CnZq/LvG3zdilHzugQn39x5snDYOiccZ70Fi7iXI9IHe
6FoWvFf5u8d99Og3nblzfhPkXsAdozB833N33vVnH/4D4ipDZA==
         "]], 
        PolygonBox[CompressedData["
1:eJwtlMtLlGEUxl++mW8afb9p141sEUktWnoZwlVEUVObNEzaBEFlLVKTLpuK
vGT+AZEtpqbbaIWXoDIlUEsK3MeIKUVCCaVGUUIJ9Ts8LQ7fc87znut73m/j
kYbqU4FzLoPEkaGkc+v5rks498ljQ3aGzu1CQvDvYucmYs7NoD9Af4X8As/j
3FHkXEnkXB2+z4gxSawer7M5+H3wI9i2wqWxLcBdw3aUeN/gW9HrkTzcNmzH
wUPIbvA8tmHwFPE7KTgixzvwa2x18Evwb8C92PLEX4DvAy9Tb09cNf8BV3jV
doHzleDZSL2+J+ZHcC+274F67gOvSamWQyucWwvuxDYaKudVcBs+E/gX8GkF
L5GjCr6KHGP0Oh2JW8mZGfBDZEdMM3oEzhDjBOdLOL8HnMP/A/U2k6+cfAmv
2e+Fvwj3FSlDHyXGF/BBYmQTimGxIuZ5MpStFu46+liomq/AX46Uy2puiRTT
YmfgI/gyJE3s2+iHbZ7wBacYHeibiHcJPICcRq9IqdaAml+i30IKoWqwWtKp
/3dDjEpwO/xIqDtvsVkyo1JqyeLfSK7P2N7Cb8A2Bz7j5fsY21lwtdfuzDLT
/V4zsFlYzpzXjtmudaHXoA8Wa7fqOdNl+4ncCNSj9Wo7a7trNbWhB8hyoJ2J
gcu9dsV6tt4nrT74UupuT6lmq93u5EVSNVvttuPD6M1es6ohX4PXjGxW9mbG
watT2q1uzq8CZ7120WZwEzye1C5tR/+B/px8f+O6E7ubvNcsbOe6wQe8el/E
9tP2w8vXdroWfJ87n0toBvfAdyLlNttd8JTX27J/wBNyD0R6S7az/eBG+P5Q
O2q7Ou2121DuaVI5Lbfd6aJXz9a7+TSBt6T0lgc5vxl83utu7Y2f85qpzdbe
eJH9G7zO2j/hGPgflMOpmA==
         "]]}]}, 
     {RGBColor[0.9529189118987288, 0.7522972797468219, 0.4540486268860592], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtVDtPlFEQve7L3W++jX/AGB+tNggWxGizRtxg4SMYW0molJeVDeyyGBNt
jEpigQGtQBQtRArBsGhMjI/SbAxQGLfQFZAECh8xnpMzxe7MN3fmzMyZuXfP
hZ7T3YkQwhX8kvgV8FdOhTCakP4oHcIM7P0Wwj3Y9uVCWMH5akbnQ3EI76CX
Iavw2YT/AuQ2+ExDf4PYSya8vYgdTMm/hu8S7HPwKUNuRSG0Qj8L/Sv0/dCX
ofdBH0PMOuRN2D4g9jNi78A2i/x54DdSysucJ0x+Rch5yJf4fYLPJOK/43wC
ci4LfNh6oZdg+wK8G/h1AW8N3x2QgyZ9Cj7tqLuO8wlTT8xDLiopYZ5Kqjf2
+DESXlNamLcgRzxHZ1K1kpNrOeV5Bcx2k99Jk89WWmeMqyZV6wOc1WC/DzmD
+neAhyXoPV7TZciLpnl1Q/ZvV32sdSrWvB7GwmYO1rCM793wW4rFJ3VyOuB1
3EaN0zhbR+xjyG+w74L+IiveqLOvonN+Dj5nTFyRs2FTH+yV/qM+uz/g6Cj8
/0bilzw/d8m8jKk4r+R5FvkOwL8On58Z7d8xnN0F7j/uQaRZkqeFrHgjV1Xf
5c6MsBqR5vIDsiPWfGJgVEx7MgJ9yPfmqmkf5n1/2B/rZ0zZa+O8G84x+eRO
c2+vQ/b5XDifZ7HmwvkQg1jkoYZaz+N7Z6w8Xd476+bOk8dW74N6c155xv1+
MB/3n3eC94qY5Knk+lqk2NVIMYzt9btZ8R0+Av8NyMM4azPh8v61RerjLeT7
jPaD+Vg/8ckDczAv/Q4hdgCxLaY3gtjNpnieW06c0Ydn46ZZcCacAfHGTPeH
vBYhn8Sa99NY8cQ5bponcYj32rTTi/6WNHyHFt3eAoKS0AvQE6Ye2At5q8Tq
bThWLdxl7tC6iXe+SZMmjn47l7TTZ8O5qzsHxGV93GvaySdnXvA94TwZQ3/m
4Y4S55e/b3znuAvcLcY05XWHD+a169x5vsMrfk79P02D1Z8=
         "]], 
        PolygonBox[CompressedData["
1:eJwlk89L1VEQxSefz3zf+6Q/oIja28a0RYRttLQfi35gBP2AhHZZ2aZFqE+t
RW2islVhtdISCyrfIiulaFNtQ0xbBC6y9BUU9IvocziLgXPuzJyZO3fu+mMn
93ZVRUQzVo2tLka05CKWaiLugUvYa3AvzkNZxGxtRCe8BD8CP4oNgLtXRjTU
RZyFb0GnJR+RSxHnyX9L/GV4O3wH/hsU3EONnZk1pHWQmBm0F+AbiJ0lph08
gS3jP0789YJ7UC/SlPYcto7a1zhrxf8A/hVfK/Fj4Hlq1qNHazGB/hT8O/wz
8ReIP4xeX7VrlvF/gTeA64mfhO8m/gr8I/0sZjbhtdT4hG9jne++Ao3n8PdY
Oeee5ql/oOi7XyKnA/yk1rmqqdpzxK+qcY5ypSEt9TidPAPN4iLWBl5T9Kz0
Rnor3VF3rXA2Dm6inx/kvqL/RvBPcr6RO4zmL92VmJkqv2k/eIgZPCP+Kdaf
PEPN8g3+AfxnOBvHd5OcbnAls9Y0NZfBp5JrKeY0eIyzd2HNAfhg0VqqqdpL
mXNn8N/BfzsZD6G5rWAT1sx34WtMrt0D3wT+S/7WvHdMuzbC2QL+Zs5GwU3J
sdpR7epV9Dpz3qFe7WPyXTs4GwSXsMm8Y3rAvzNrqcYf8EN6fkytMfgj8Ivk
XM34JXiq1ruyGV6BdyXHasdPgIeT3147dSt557R7qtkHv1v0X/vA2bmCTVg7
fB/f/mRt3XFf8p/R31kkZhRcxv5Ve+aa/Uhmn/6k/ub25N3RH2gD/wfn5JRt

         "]]}]}, 
     {RGBColor[0.9781220895565159, 0.8153052238912898, 0.5321784776251993], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFU71L1WEUPnm94T3vVUKxRRuamhosAyEbRDAzW6SlIOReqi37D+xjaDEI
u14HN51MaMmP5DpUUMst0BKLCG2poagcREhE8Hl4jjj8OOd93/PxPM85v5PF
uwNDNWZ2DV8G36ms2W6tWQGH/mT2DY89ObMRnFtxfwIx5xDTju+0Ka6M7x38
j4g/ctRsBfYLciq473KzZsTeRm4J5x81ymVd5m7BvwpbQk4V/ihsEfZ4VnXv
4Pwc/hBsL74n8C+yPuq2wP+MPhM4f4L/PW+2mhWGDvRrg/84o143Yf/Uqtej
nOzrJK7F6PUqCc/ZenFlLvn+dtW6gvdL8G/h7aerRyGr2EpwY69u15kaDCOn
gpgHSRjor6HmyzrVvuG6W4r7M/XSchD3l1269bmwVIILMRMv9aOmjGHOs4hn
3hy02IYOs3nhHQkuO3i7gF7/YRthh+ONPJqCSznqsiZn8jBmR76tEc+8r8DS
gJhO195swL5w6TwDO5U067/wF8D3GPCs4+5+OpwD6zXFnNiHu8Je1IV4l5B3
L0mfUk7z7QgM3JEPEU883IEDbNwT4jsfc1pGjYHo8dY050LmUGvaadh/rv3e
hH0T+8C94D9A7Sdj19iD3Dk7zpV8yKMluGzWSdPrmOd711s1tClEPOfSGJjL
wYdcVlz+sotfNe5Zl3tIXWai1rxLY+4e/8fe2E/u6a+keO7vRl54F4FrLEmD
p7Dj4LWH+AUXr9XAM+vasznX/0fdDvQjHubvA1lhlTE=
         "]], 
        PolygonBox[CompressedData["
1:eJwlkrsrRnEYxx+cI+f8kIhFBhaDDG6lUC6DN7HIZCNMvPIPuM1Kr9dkYyJZ
XPNaKAaXXEMSFgaFN8kgKZ+nZ/jW97me7+/7nOLe4c5oqoiUAQ8MOpHONJHv
dJH1TJEJ4oQv0kVuHN4YikzBC8ndwkdAOXMNxD/wR1AK76EnFoicM5PCrity
18RP7LyEZzPzCN/JECmCV5B7pbcVTMNHEePojxKv+KZJtb2wv9+zmS1mS+iZ
9KxnyNmMzuYSH9Lb4Wz3PY9sh7+TqyauAR/wDfBGfx/7ZwPTrNo1t0otxswR
vSdgm9pNYG/PA8fUT0G+bxpUywP9Obz3ju89U1sG12jdoWeM2jrxr2ce1cN3
nXn7RbznTLNq1zdG4PHAZvUGo9SToWlXz9X7RXAAH6B/CV6VZbs0VwnvBj3E
tdTrqJ8543qTC/gnHvb6pmmN+ib480yzaj8DBb71aG8z8TNvS6C5BX4Umhf6
jWSG3VhvrTeeY/+8M+/V8wVnnqg3euMIcVto2tVD9VI9Vq/1m+fEM/Tsi90g
Dm8K7dv6D+q/+A92smRA
         "]]}]}, 
     {RGBColor[1., 0.8806408550857698, 0.6199516032858184], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1UzlPglEQXOR+wC9ATQhCjJ0lYOGBR4XGhMZCjb1QUIG9hZUcsfBneBDp
wUJiwMSjMfgLjLE1aJxx1+Kx79trZmcfiYPydmlCRAo4XpwOfqY9OLh3gyI9
nFV8n0dEbhB7CouUfSKzfpGc2YpP73XEvmBHTqSB+w/q5mFvrc+pR2uZW8Q9
6VO8KdzzUZF32HFIpOVVbOIOnX530GfP8sntAXwkIDKATcOfBI8Z2ATqdn3K
dS6i/lenmFnDzRoH8vkEXh52gJwFnAz8V7BbMZET9NqELTqd8Tukc3RtFnIi
tzpw9hGf9Cu3FvxjfF+j7sUp70WnNawlHvErxuEjpBrcOeVN/gXjyTjz47gf
ezSPHKgp9V2P6vxrUcUnFjmsOOW0DHuIWBtalWDvkdPHOQNODb5qQHW/dIpD
PbgXasl3sGj8l0wb7vdRVFNqu4Gefad7eQ4rR9aT54XTfL6LnvHlTpmbtP7c
YdzyR1Hd3xvsUUD152wZ2x35kTNjfzjATxnXqvUpmMbcy79u1JT+ZlDxiJW2
Ovbhm8jYXDmneTsxjaeMJzHTlp81TqyjjsTiXPxvEGuI99CMqM6NiHKrGWfy
IQfmUXfGCuavWg57spZ9ySFpuG2bnb1+AdtacWo=
         "]], 
        PolygonBox[CompressedData["
1:eJwlkL8uw1EcxU/5of3d2zdgaKSCzUZYRKs2jaSLATFKtIONNzChnTyC0b/U
Cxg0TSsR3donEKsI4vPNdzjJOfd7vvecewuHjZ36mKRpkICjvPQ8JV1kpK+s
NEql+QmpwbAKH+Twog/QG+gH8AN/Y/cmdRj/5uwWfhWkDv4uaMG3ojQLn2Ne
iZ5hWSfoGv5t8s/JP5uUlpmXwSn8A08J3sa/h7eAZ4heos9fxjtb99+s32Wd
rfsCmcXEMxfhm9GzLaOKv4enxH5rXOrD18F+4m+0t76gZ5g/Me/AR9Gz2+jr
4B2t6yM4hveDz4R+hb/nfNfuHLB/D1YSz7yD94J7m9y5ih6m/nfmWYPXo99t
f2B/cRm8q/1pE76b913r+Mnb/wGDfT+W
         "]]}]}, 
     {RGBColor[1., 0.95, 0.75], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1UL0OAWEQHC449xO9QqI8nc4DOHQuEi9wUUmc1+C8znkAz6DReQNRaiRm
sqvY7OzO7Ox+37g8bqo2gCEjYDx6wI2NAXEWWt2wrrvAmfFuGR6FVosXlubD
fGXep8AyAS7kV4nxmmmck2baB+bkTuznrpGXPJ8R8OKeb2h85v7ihXWfvGu/
p3C95jKfkSZ3/4p5lpjHmvvLwG64843byLBun8TArkOP2HrylOb/Tv1Jkdre
Bf0O7invH4E8LW8=
         "]], 
        PolygonBox[{{3142, 1674, 1675, 3143}, {2300, 705, 1672, 3140}, {2780, 
         496, 1380, 2858}, {3182, 1672, 692, 3181}, {2353, 693, 866, 2450}, {
         3144, 1675, 496, 2780}, {3407, 692, 1674, 3408}, {2301, 494, 693, 
         2645}}]}]}}, {{}, 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], 
        LineBox[{2300, 3140, 3141, 3182, 3181, 3128, 3407, 3408, 3142, 3143, 
         3144, 2780, 2858, 2857}], 
        LineBox[{2450, 2353, 3434, 2296, 2645, 2301, 2783, 2640}]},
       "175"],
      Annotation[#, 175, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], 
        LineBox[{2232, 3294, 3295, 2970, 2517, 3024, 3025, 3023, 2619, 3418, 
         2287, 2762, 2763, 2518, 2775, 2624, 2625, 2519, 2627, 2626}], 
        LineBox[{2452, 2741, 2730, 2738, 2449, 2782, 2620, 2740, 2739, 2289, 
         2767, 2768, 2489, 2961, 2963, 2962, 2964}]},
       "150"],
      Annotation[#, 150, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], 
        LineBox[{2230, 3037, 2788, 2888, 2887, 2315, 2761, 2632, 2633, 2789, 
         2231, 2653, 2235, 3049, 2794, 2893, 2892, 2374, 2977, 2978, 2797, 
         2798, 2799, 2673, 2809, 2808}], 
        LineBox[{2454, 2742, 2731, 2943, 2451, 2942, 2945, 2944, 2438, 3008, 
         3009, 3007, 3379, 3378, 2655, 2728, 2729, 2635, 2634, 2766, 2338, 
         2925, 2926, 2924, 3252, 3251}]},
       "125"],
      Annotation[#, 125, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], 
        LineBox[{2229, 3036, 3035, 3293, 3292, 2373, 3203, 3204, 3200, 3202, 
         3201, 2652, 3205, 2889, 2890, 3159, 3158, 2316, 2975, 2976, 2795, 
         2796, 2236, 2672, 2240, 3055, 2805, 2900, 2899, 2380, 2984, 2985, 
         2810, 2811, 2812, 2680, 2819, 2818}], 
        LineBox[{2456, 2743, 2732, 2947, 2453, 2946, 2949, 2948, 2439, 3011, 
         3012, 3010, 3381, 3380, 2720, 2928, 2929, 2927, 2931, 2930, 2339, 
         2868, 2870, 2869, 2266, 2654, 2264, 3100, 3099, 3243, 3242, 2428, 
         3247, 3248, 3244, 3246, 3245}]},
       "100"],
      Annotation[#, 100, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], 
        LineBox[{2227, 3032, 3461, 2313, 3157, 2314, 3290, 3291, 3033, 3034, 
         2228, 2668, 2233, 3046, 3045, 3299, 3298, 2377, 2973, 2974, 2972, 
         3047, 3048, 2234, 3419, 2239, 3054, 2801, 2898, 2897, 2379, 2982, 
         2983, 2806, 2807, 2241, 2679, 2244, 3059, 2814, 2903, 2902, 2385, 
         2989, 2990, 2820, 2821, 2822, 2686, 2828, 2827}], 
        LineBox[{2459, 2744, 2733, 2951, 2455, 2950, 2953, 2952, 2442, 3014, 
         3015, 3013, 3383, 3382, 2721, 2933, 2934, 2932, 2936, 2935, 2431, 
         3001, 3002, 3000, 3367, 3366, 2714, 2917, 2918, 2916, 2920, 2919, 
         2424, 3351, 3352, 3348, 3350, 3349, 2709, 3234, 3235, 3233, 3237, 
         3236, 2333, 2866, 2332, 2867, 2911, 2910}]},
       "75"],
      Annotation[#, 75, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], 
        LineBox[{2462, 2745, 2734, 2955, 2457, 2954, 2458, 2956, 2445, 3017, 
         2576, 3016, 2575, 3384, 2724, 2938, 2440, 2937, 2441, 2939, 2433, 
         3004, 2570, 3003, 2569, 3369, 2716, 2922, 2429, 2921, 2430, 2923, 
         2426, 2999, 2564, 2998, 2563, 3355, 2711, 2913, 2422, 2912, 2423, 
         2914, 2418, 2997, 2557, 2996, 2556, 3343, 2708, 2994, 2554, 2993, 
         2555, 2995, 2413, 3333, 2549, 3332, 2548, 2702, 2841, 2840}], 
        LineBox[{2514, 2774, 2666, 3029, 3028, 3027, 2515, 3289, 2371, 2969, 
         2516, 2968, 3030, 3031, 2667, 3044, 3043, 2790, 2376, 2891, 2372, 
         2971, 2522, 2791, 2792, 2793, 2670, 3053, 3052, 2800, 2382, 2896, 
         2378, 2981, 2525, 2802, 2803, 2804, 2677, 3058, 3057, 2813, 2389, 
         2901, 2384, 2988, 2530, 2815, 2816, 2817, 2683, 3065, 3064, 2823, 
         2395, 2907, 2391, 2991, 2534, 2829, 2830, 2831, 2690, 2834, 2833}]},
       "50"],
      Annotation[#, 50, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwVzctKglEUhuHlTM0i6DRw1KXkpFlGRKRIA0c6MGeBUCBIB6uLCS+gO0ir
kUEHf8lAvYfqcfDy7m/tb+29XW0enKYiYh+9dMTrUsRTJmKYi9jhAW6WI/pc
y0Y8c0t+4QLqZl92PjGUR/Z2OeG3RTZPMEZD99Efc+cZrnWusKKXl/fQ8faH
TtG5qf/u7lvnBxMU5Tu+RxeH8i2f6c54JE854TkfcdlbZT7mEpf4XP8CEzkt
Z5BF2+yPf7GKE/cVrvADT3mN17GBS/0t3sQ/X3gyRA==
         "]], 
        LineBox[CompressedData["
1:eJwVzzEvQ3EUhvHThUtJUEtLS8PQz9AvIbET7VBbJTaJJkwGrbt1oBLRxGyW
MDdMln4Bm62asOF3hyfPfc95/ye51ebRbjsXETtozEUcL0Y0+QCf2JNHScTF
fMQb78sT8xa6Zl/8uxAx5T8+5ETnh2f4m2c51W37vtYZ4AZr8lY+Yhsfbr+j
rzfmZfsllLwt4kR3nctYMS9gNbujv8EVlJHINZ0z/Rd38/Izb9pVcS+f2w+5
q3Nqd8kdfjCrZ/f5VS5k/8ypfcq33OMBX/Gj/RPu5H81Yimz
         "]]},
       "25"],
      Annotation[#, 25, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0TtL1XEcx/Gfi2QqBjaZDkFBlBfQRq0ncHTQJS3wmgSGghamiFKEuGiF
CrmmgxqYrXnNMhcfgKbYkNJx8NrJIBN8/Yc379/nezt/OFfrWsqbk0II7/Dv
QgjP0kLowB2UoBhFKSHELoawrd/AO1ybHsIV7ywUoEfO5329T+bb5Rkex6L6
BE/iJnLkTv1s/ozj6K48q1cmN/nNAu/C6LdxO/qe1BDuohi5eh/w1M4Uf7WT
cKNRXpSTsYRH8on6N/1r6JKvcy1qENf7aG4auXK3/i3+jjWs4wZi6mUoxa6d
Vd8ziznMYAHzKI3u+L50zuJRvLCzaWfMu9WtNmzoP1CfU38iL3Gl/SrcQ4b+
ff6ifmivXO6TL3G2PImX9rf033t3uLGl98vMD45zBXeq/9FP4Ke8F93nfd7m
E/W/WHanx+wKn8n5yNTP48v82vwb9OMVBvA8+t/4N44QN5fgah7mBh7keh7i
XvP/+UA+5UM+44c8wo/5LTfxOXKjYaw=
         "]], LineBox[CompressedData["
1:eJwV0j9IlVEYx/HjIKQpKBS1eP+oWd6bcAVvKRHm0paCQyqY0bUoQzJIIpLm
miQari0hDdpQIWg0BBp5NS3SoU2aXAzKIRBrqz5n+PJ9f89znnPOfd+bLoz1
3ioLIcxhoDKE+1UhTKAL59CJtooQLujtHAjhGn/nJCeweTCEVv7COd7gfv5k
btHcOi/xZ37Jy3oppJGVX2O8OoRXXFLbi2fI7+VyjJrLcZ5P4XS8lzO6cBYt
eg3mJszU8yr27XFd/qDXI5d4RP6jvibPy3flBR6WC/ihV1Br8vxGfRX35BX+
pdes/kDO8Nv4O9xjBSX81M+rjXm+jUEM4RJ2UXTPKWTRLffEd2OfpfguzdWp
J5DER3v1Oadd7yIPoB+71u3Hs/g3P9J/wgUM4wqO6F3lG1zkEZ7io5zjVmzb
fwOPzX/ly/b+q38HT9X+cY1a8FzL43Kay+P35hSSeCbP2u9FPN+9H8aetTfl
NGfkbPwmcgO2nDVj5hsfkxtRK3dYM2n9GT4kN6kfxwnMxf8IZ9CMw/J566at
fyc/55Pcgv8EcFh/
         "]]},
       "0"],
      Annotation[#, 0, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0rlP1EEYh/HZVeTYXRIhQGxUEKXhbBAUUEEDgo1gSyQWGoli+AskSkiA
mKDGgkJNvKgppMEEbLgkSiOUGKlRO87CzxRPnnnf+c6x89vSO4+6BxIhhBn8
zAnhZV4Ia5xJh5BGfsYYg7khpDiNPP0Ufsg9k1/lXHUOjphPol8+cAJZ+seQ
jXH5ozGHJP7IjemNYle9rd7hfeyhWF2TCqEo5uxVa/wKQ8Yrzk3IrJo71BvV
O+B99OoN2/Mp5rAp22f+g34SN6zbwDq60Ikm/cfxntzHBXybj/Mg13Mrt6HF
ngP2O6t3ybicH6qbje/hLmrkqnHaff7xX7yXm+d3/JUXuFv2Jn7hs3qJK/DN
/KK6kS/gIqr0b6EHWyhGSVzr9y0jyDQ475x157kirucDcw/cb0n9EZ8woV+H
E8alXIbfct/x3J4vkERB/I5cyJP82hlv0Cs/onfS+vvqU1ymPoOi+O1QErPW
vEUGlfE/xFU8Fd+I87ma6+L3xZP4pnwZTWiJ74ppuVZuwxVcw1VMyHdyF9px
HR2Ylf+C/71nUDw=
         "]]},
       RowBox[{"-", "25"}]],
      Annotation[#, -25, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0TtP01EYgPHTaLBU1JWymVipi0MVaksUI20Jg4ktXhLcJIgJCa1idRBY
1E/gB4ANHSHh9gHUeMFLW+JgHHDWHRbxd4Ynz3s//7Sn79Vrs4kQwiskukMY
6wlhEQs4L791IoSBVAg35FX8El9EHoM4amZc/SZqeI932FTfiMY6trGFl+rf
uYVvcc/9cVxwa03+XH+VX3BG/Zj6Ge7iNHrR0f+k345v6lWRUz9MhnCb7+A3
9hDie9zCB/GOna/4gl2Ujofw196kGyPifpwzN8R1nlNv8ApymJEfmM/Gvjir
VhRncBZ/9K7xU7fn8BiPkI830bBT5Anfc5kfyq9wAU1zl/gJ/3Nnnu9jGlPo
03vASb5rf5jL3rrKFb6ud0T8U2+fu+O3coo/8q56290SF+LvGHM09ZbsLuMk
TqFj7i3/4LKZInbwGc/Mv9Z7g16k47fF/1d9VL+C/w3kSoU=
         "]]},
       RowBox[{"-", "50"}]],
      Annotation[#, -50, "Tooltip"]& ], {}, {}}}],
  AspectRatio->1,
  DisplayFunction->Identity,
  Frame->True,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic},
  PlotRange->{{-1, 5}, {-1, 5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.545096205526688*^9, 3.5450962153472495`*^9}, 
   3.54509624997723*^9, 3.5450963838158855`*^9, {3.545096490839007*^9, 
   3.5450965029516993`*^9}, 3.5450965407828636`*^9, 3.577117427981677*^9, {
   3.577382864286869*^9, 3.5773828698022423`*^9}, 3.5774396363177567`*^9, 
   3.658532381294742*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
[encoded data, 31781 characters]
r6/9P3jtV4P89bX/Ua/VbZAKL0Rbrzq/+T+Gs0iq\
\>"],ExpressionUUID->"40cba2a0-683d-4374-acbd-e0cd898b262e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["x", "3"], "+", 
   SuperscriptBox["y", "3"], "-", 
   RowBox[{"12", "x", " ", "y"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Minimize", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "\[LessEqual]", "x", "\[LessEqual]", "5"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "\[LessEqual]", "y", "\[LessEqual]", "5"}]}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Maximize", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "\[LessEqual]", "x", "\[LessEqual]", "5"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "\[LessEqual]", "y", "\[LessEqual]", "5"}]}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.5450958897576265`*^9, 3.545095927334776*^9}, {
  3.545095961526732*^9, 3.5450960517868943`*^9}, {3.5450963169750624`*^9, 
  3.5450963173510838`*^9}},ExpressionUUID->"86c93661-346e-4569-a49b-\
b9ce54ce9928"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "64"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "4"}], ",", 
     RowBox[{"y", "\[Rule]", "4"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5450960304186726`*^9, 3.545096052560939*^9}, 
   3.5450963181381288`*^9, 3.577117436610991*^9, 3.577382894721854*^9, 
   3.5774396487202797`*^9, 
   3.658532381371995*^9},ExpressionUUID->"25648a5b-bd7e-4b61-99e2-\
4742ceb90e69"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"184", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"y", "\[Rule]", "5"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5450960304186726`*^9, 3.545096052560939*^9}, 
   3.5450963181381288`*^9, 3.577117436610991*^9, 3.577382894721854*^9, 
   3.5774396487202797`*^9, 
   3.658532381396558*^9},ExpressionUUID->"ac7a5221-c93f-498c-b6c2-\
368bf949cfc8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "[Did not ask] Give an example of a function ",
 Cell[BoxData[
  FormBox["f", TraditionalForm]],ExpressionUUID->
  "b3631e9e-331c-44af-9532-27eb4ae76bce"],
 " with the property that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["f", "x"], "(", 
     RowBox[{"a", ",", "b"}], ")"}], "=", 
    RowBox[{
     RowBox[{
      SubscriptBox["f", "y"], "(", 
      RowBox[{"a", ",", "b"}], ")"}], "=", "0"}]}], TraditionalForm]],
  ExpressionUUID->"8bfa7406-da25-46e8-a681-6c5d421c117b"],
 " but ",
 Cell[BoxData[
  FormBox["f", TraditionalForm]],ExpressionUUID->
  "092a197f-5103-4951-a1e0-946dfd9b763d"],
 " does not have a local maximum or minimum at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"a", ",", "b"}], ")"}], TraditionalForm]],ExpressionUUID->
  "9bf4ed97-f138-4b15-aeb8-c4f73ebe0f00"],
 "."
}], "Subsubsection",
 CellChangeTimes->{{3.5450552720916953`*^9, 3.545055342466732*^9}, {
  3.658533526503482*^9, 
  3.65853352987918*^9}},ExpressionUUID->"91651e8c-6b19-4fc1-b041-\
575143ca1c84"],

Cell[TextData[{
 "The previous example ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", 
     RowBox[{"x", ",", "y"}], ")"}], "=", 
    RowBox[{
     SuperscriptBox["x", "3"], "+", 
     SuperscriptBox["y", "3"], "-", 
     RowBox[{"12", "x", " ", "y"}]}]}], TraditionalForm]],ExpressionUUID->
  "c17c3826-55c3-4b43-8a01-d8419863d2d1"],
 "  at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"0", ",", "0"}], ")"}], TraditionalForm]],ExpressionUUID->
  "fd06d392-fc93-4078-8df0-3e481698e904"],
 ". "
}], "Text",
 CellChangeTimes->{{3.545096980114992*^9, 
  3.545097028475758*^9}},ExpressionUUID->"d8df35c6-b298-4130-96d4-\
f808f002ef3f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5773828406576653`*^9, 3.577382844002139*^9}, {
  3.577382897683544*^9, 3.577382901713737*^9}, {3.577382959018982*^9, 
  3.577382965096809*^9}},ExpressionUUID->"d4cfa205-95a6-40d9-9718-\
19492515d2d7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"3", " ", 
   SuperscriptBox["x", "2"]}], "-", 
  RowBox[{"12", " ", "y"}]}]], "Output",
 CellChangeTimes->{
  3.577382903261044*^9, {3.57738295676994*^9, 3.5773829661638803`*^9}, 
   3.658532381495586*^9},ExpressionUUID->"5d25f26d-d996-4a1a-9f33-\
ce5f7f259c98"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "12"}], " ", "x"}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["y", "2"]}]}]], "Output",
 CellChangeTimes->{
  3.577382903261044*^9, {3.57738295676994*^9, 3.5773829661638803`*^9}, 
   3.658532381499996*^9},ExpressionUUID->"15575d91-7ccf-40ad-acbe-\
8350af0b75ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "\[Equal]", "0"}],
      ",", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], "\[Equal]", 
      "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5773829066638937`*^9, 
  3.577382946724036*^9}},ExpressionUUID->"12892615-0217-4e4c-8592-\
c7d69fa5431f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "0"}], ",", 
     RowBox[{"y", "\[Rule]", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "4"}], ",", 
     RowBox[{"y", "\[Rule]", "4"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "4"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"1", "/", "3"}]]}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"2", "/", "3"}]]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"2", "/", "3"}]]}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "4"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"1", "/", "3"}]]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.577382947148672*^9, 
  3.658532381547578*^9},ExpressionUUID->"e6909607-7eee-455b-b30f-\
b5c8180ffe24"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"fxx", ":=", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], ",", "x"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"fyy", ":=", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], ",", "y"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"fxy", ":=", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], ",", "y"}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.577383179114176*^9, 
  3.5773832091278353`*^9}},ExpressionUUID->"cdc5e684-40ff-4455-95a4-\
e3c8ac6d7300"],

Cell[BoxData[
 RowBox[{"Dvalue", ":=", 
  RowBox[{
   RowBox[{"fxx", "*", "fyy"}], "-", 
   RowBox[{"fxy", "^", "2"}]}]}]], "Input",
 CellChangeTimes->{{3.5773830623609962`*^9, 3.577383120682774*^9}, {
  3.577383216869585*^9, 
  3.57738322634626*^9}},ExpressionUUID->"80f2a117-7090-486c-82fa-\
519f73fc9fb2"],

Cell[CellGroupData[{

Cell[BoxData["Dvalue"], "Input",
 CellChangeTimes->{{3.57738312312204*^9, 
  3.577383124192865*^9}},ExpressionUUID->"54d795b8-9eac-4432-a27a-\
3facd12ae0a4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "144"}], "+", 
  RowBox[{"36", " ", "x", " ", "y"}]}]], "Output",
 CellChangeTimes->{3.577383124980118*^9, 3.577383229774222*^9, 
  3.658532381714719*^9},ExpressionUUID->"9bb56438-28fa-4ee5-b83f-\
11d386df3157"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Dvalue", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", "0"}], ",", 
    RowBox[{"y", "\[Rule]", "0"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"fxx", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", "0"}], ",", 
    RowBox[{"y", "\[Rule]", "0"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.577383127620483*^9, 3.577383140526827*^9}, {
  3.577383232905373*^9, 
  3.5773832395147943`*^9}},ExpressionUUID->"7f5fb016-715b-4ee3-b774-\
d6d647d1c5a4"],

Cell[BoxData[
 RowBox[{"-", "144"}]], "Output",
 CellChangeTimes->{3.5773831413623953`*^9, 3.577383241026441*^9, 
  3.658532382094367*^9},ExpressionUUID->"9ffbf5c6-6f8a-4f00-9f66-\
62b24eafbed9"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.5773831413623953`*^9, 3.577383241026441*^9, 
  3.658532382100411*^9},ExpressionUUID->"9b5245e7-65a3-4627-b5ac-\
b7aa447ba457"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Dvalue", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", "4"}], ",", 
    RowBox[{"y", "\[Rule]", "4"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"fxx", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", "4"}], ",", 
    RowBox[{"y", "\[Rule]", "4"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.577383146142214*^9, 3.5773831545727167`*^9}, {
  3.5773832493362827`*^9, 
  3.577383256800144*^9}},ExpressionUUID->"f5eeb3a8-da94-4da5-8e00-\
cc1c6685dcae"],

Cell[BoxData["432"], "Output",
 CellChangeTimes->{3.577383155352749*^9, 3.577383257921916*^9, 
  3.658532382147891*^9},ExpressionUUID->"dc0699eb-c72c-45b0-825b-\
d1056c0304d9"],

Cell[BoxData["24"], "Output",
 CellChangeTimes->{3.577383155352749*^9, 3.577383257921916*^9, 
  3.6585323821540213`*^9},ExpressionUUID->"b571cebd-f54a-4690-a3e2-\
94cb6372ec4f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Dvalue", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{"1", "/", "3"}]]}]}], ",", 
    RowBox[{"y", "\[Rule]", 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{"2", "/", "3"}]]}]}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"fxx", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{"1", "/", "3"}]]}]}], ",", 
    RowBox[{"y", "\[Rule]", 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{"2", "/", "3"}]]}]}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.577383146142214*^9, 3.5773831545727167`*^9}, {
  3.5773832493362827`*^9, 
  3.577383291227932*^9}},ExpressionUUID->"328e2a63-f77a-45f8-a797-\
51ba9cb9eb61"],

Cell[BoxData["432"], "Output",
 CellChangeTimes->{3.577383291912855*^9, 
  3.658532382215794*^9},ExpressionUUID->"3fdedd91-426f-4b2f-af1c-\
440ed82fc638"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "24"}], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"-", "1"}], ")"}], 
   RowBox[{"1", "/", "3"}]]}]], "Output",
 CellChangeTimes->{3.577383291912855*^9, 
  3.658532382221439*^9},ExpressionUUID->"1c82ceb6-ac5d-4aa8-991b-\
e4984ddf2c42"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5773831651959867`*^9, 
  3.577383172033751*^9}},ExpressionUUID->"9864ce5a-9fd0-4d7d-ad56-\
7aad144250a4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Dvalue", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{"2", "/", "3"}]]}]}], ",", 
    RowBox[{"y", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{"1", "/", "3"}]]}]}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"fxx", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{"2", "/", "3"}]]}]}], ",", 
    RowBox[{"y", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{"1", "/", "3"}]]}]}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.577383146142214*^9, 3.5773831545727167`*^9}, {
  3.5773832493362827`*^9, 
  3.577383311225061*^9}},ExpressionUUID->"b7cba54c-5248-485b-80af-\
6cf618811d32"],

Cell[BoxData["432"], "Output",
 CellChangeTimes->{3.5773833119796658`*^9, 
  3.6585323823093*^9},ExpressionUUID->"f9f1bfbc-0584-469d-b904-44c82d2c1595"],

Cell[BoxData[
 RowBox[{"24", " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"-", "1"}], ")"}], 
   RowBox[{"2", "/", "3"}]]}]], "Output",
 CellChangeTimes->{3.5773833119796658`*^9, 
  3.658532382315009*^9},ExpressionUUID->"89f0f512-6d9f-4fea-9330-\
f6d244071dd9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["x", "3"], "+", 
   SuperscriptBox["y", "3"], "-", 
   RowBox[{"12", "x", " ", "y"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "500"}], ",", "500"}], "}"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.577383382317915*^9, 
  3.577383430669636*^9}},ExpressionUUID->"38642308-8d99-4816-9d67-\
2e498979c883"],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJyVvXVcVVv3xotuW7GwRcVuxS6UZSAgmBhYiIqCjZ3HwDzWsbu7Wzx6ULbd
[encoded data, 26962 characters]
ww==
   "], {{
     {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
       GrayLevel[1], 3], 
      StyleBox[GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJw1nAf8V9Mbx79337J3MhKaSDKjREVSsimrIaRo0CAjMhMNSVZ2ZkQhkaKo
[encoded data, 12993 characters]
36Dhb4zsn3u+sJfnf0pl2TA=
          "]], Polygon3DBox[CompressedData["
1:eJw1nAn4FtP7xt95Z+bMIEmEREqLLJHsRbaEJFSyRmVLKPtWoSSkQruUtew7
[encoded data, 13359 characters]
Jx6BG+wa7RP5WLRA7HkiHw1neUrmNYh4Ap8e3x6NHP7K/wHY5FyN
          "]], 
         Polygon3DBox[CompressedData["
1:eJwt13u8jVUex/Ht7LP3PimTkGkqlQ5NblG5VC6ZpvtVFInopkGjK6VBRUSv
ZHpVhFIdBqFQRIouM6GiNIlEQm7JpQtSmpj3r3X++J5n/T7r+1vPep7zrN9a
u+aNt7e9rSiTybxPOVpZyGTGAP0FD9AK8TOux+prUpzJNKVjSjKZh7AyvglU
sUImMz2fycznvVO8mqeB/pHi9a41sBNcj6fT5X6AP4LdLx5ALbD3XDu4x6PZ
TKad/BpYb74XsAVYF/1nYJWw5/V3FvczxrviDdq9+Z7nu0XfiXz/wwZjd7ne
Tc2xM+lG7ZuojdxJcsdqH8N3qrzT6E88dWmc9nKa49kO92w/8v1AS+T8U+5S
1030oHuuF4/mayhuwXsTVkduxXgeOXdiT2gfhTcTj+PLuMcK8Xm0WFiD5yD+
ifhsWoBVxVrSzeJ6xjsUGy5/NV8vbIn7jnDf2uIDtAxrRS2pl/G7yZ2ifaqc
PXy9eC7AbsPqG+9o443R91/sKvE8GsvXmO8B7D98J9JzfAVxL3pVPCjeP98+
8V30Gta4/H3He+8gv7X+Pea3lbe9+DWqKa6p/3KaLb5Q7u1yTylO/4P4X7TC
umENsMOwx7ARVEn7dKxxzLsk8ehvKG5ER2H1qEy7p75h7vW+eyzXvoVvpDE7
6zuep7t7vCQeqb1X/0+59P7j//AZPpmvvr4G9KL2FPpK32k8dWiF9jq+l/FT
eK7DRot3uee1sYaMdw/2JraQZ5p38Vdz+Tv2CjYQ64T9JK4kfz92PdYcWyp3
YMwFO5kmGq+i+FaaKX6HbxJfK+PlaJL+OvgYPC8u0GSsLjYWKxEfTe9h52Av
xbsWDzLe0nj3wfQdIV5L32tnedZTw1jn2Ec8DeN59VURd6anxTs9b0dshTl3
wf6FzZc33vzOco+u2MT4lrEJWHPsemwS1gdrg+0QH4K/aJx6+DOxbsRV4pvB
msY7wKqKn+Tdgd0oXkdXYIebYwXtW+l8460xl5580+U9re8X8X5aFGvGfK/S
Pp+a6Fvtep6cHnK7Uy1sciHVhpv1taaJ4t7Gm2O8yvSw+x/A+2NviY+hUVix
uA/NFR9BQ7GDfJXlTzB2E2x2vGfxp3g37aewTvqOK0k1JmrNp+JnqQ7WA3s5
xtfeJ+fnqFtYX6w1T11jTMYa6d8u3kHtjLETq+Y+c/Q3452EHykeLHeVuEX8
n/TVFF8azxffrZyO1MxYX8S3yvMh/pjxaomPwPPGuZeuxLbz3iB/Mt895Wxn
Ps0n5vUX7Bw6Vl5VKtHuS23jf85TAVsp9/xs2nuOk5vD1ovbZNMai7X2SNRe
8RXxvHIXi9eYzx3Yx+Z3Ct84430Zew+2DGuIPYt9R+3l/Cj3h6jvJWl9xTrr
Ku5CNWOviPUht5Rq0WhsFXaL9nvGO954j+dSvYu695C8P1B1vlK+4dgs8Rk0
N2optlm7W3Gqg1eLl8h/TvsN7Do6Qe798Z3HN0I73WOU3PXYP9x3tfu2wqbG
t5tPzx7v4EJ6W/w+1cPaiLfzD8mnPeBj7UZR82Mtucd5UTu0XzNe9aiDsW/z
XSZuGe+CGvPVwIYYb6bxatMMee9SbexiccvYH8TvUC3sIvFZ9HrMQ+5T2NxY
g/QW9iHVx64U74p1k0/fUXxPs7GTaSa2Aeunf435nG1+L5lPdTwrrhR1me+P
5reO7z6+L2LefNPiLFFI+1XsW5fTQnnjsVZxpsilZ5wg3qO9O/bvQqr71xpv
c6wH7U08lxrvDf3fxt6OfY91jjMRthV7GNuCXY69iW2Jd4Vtxi7D5mHbsVHY
z0Vpv4l9Z4D5TNNuEGvY/LI8bbHm2Od852ILouZGjeDJ0736Nsn9Bhsq3sp3
BTYf2xFnM+xXrCe2Kr6bOCNh2Ww6A8VZaC82S1yd9nk/Y8TvFNJ5qZP+c2mK
uJ17t4hx8H5xDsC20Qh534VX3wf4HYU0Ti6+VXMuk7cHm8FXhYbx7c6nfTT2
0x8LqW518p7vy6fzQ5wjHpd7IOoXjYv6g43AfhOPjPNP/G+iVrrXynyqd1H3
dhdSPe9svK7aHfQP4Nsda1hcFDWr/NwT55+yWFv5tK/F/jaar5jv+/JzUNa1
IlaNryldID5EvJd/IN+h2DfyrqEvsUZRJ+nuOKt5L6XYC3K+iLVkvDfl/o1K
5X0t/36+r4rS9x/r4LF4N9m0FoItiZjvdezY2KeM90usjzjz6C+NdSV/Hu3j
m8dTI56Dbz/ft7m0d8Ye2pv+XF7DFpav+1j/PWLvw97OpvNBnBMOyv0Vezeb
9trYcyuID+HdIm5PV9MdJamWR02Pel+gKtiJxemsP9G8ptDAWAu5tN/Hvn9X
1A6+jXF+NM46ngZxpsmn/9Fq7GK6iG4XPxrfUTbVsKhlH4j7x/9T3mHxmwOf
ipXEmHztaJU518cK8a7FbenzODtgeWxDvGdaGWcg7DvjjRfnYp/CNhr3N2yR
+DSajj1X/g42l88t5jhVXExfal9KH/GVGm9bLp1l4kxzN53Ek6U1PJfQ0vjW
+T6JeuA5+vLfS8vE+2MdZtPZLM5oGXFFuVvFHaIGxnlW7pnUVfyqfM3MUPln
aVwfZ4ii39Myw6J2Yzdgc4p+/zmReSR+I2FdsJlF6ffcw/58JeEe7DPsJHP/
N0/T2Mvi7Ie5ZAbH3o9dF+8E82iZIVFDsd6xR2O1sLJcOsvGmXYR0/Co5W5+
Ll9Pvll8R8bZhu8crDs2A6uKPRG5WA/sFawa9mQunSXiW4tzRI4qG2+te/Th
W16U9qDYi+JsF2e8njG52IP5rsEHZVM9jbo6N5fWV6yzWIP7osaIO9JD2VTr
oua9Hr8f5G/DOtLa+A0Y30s+naF2GX8nncpzFTaA51O5p/PNkLvL/MqwYuqD
fR01O/aLWBP8lxljq2ujQvptGL8R2xpvGXYtDZf3NXax3EVyOkWdwDZil2CL
sY/yaf3EOvol6qf4/3FVAQ4=
          "]], 
         Polygon3DBox[{{1639, 939, 1393, 2106, 1523, 1524}, {2040, 956, 804, 
          803, 1045, 1700}, {1638, 938, 1035, 2069, 1521, 1522}}]}],
       Lighting->{{"Ambient", 
          RGBColor[0.30100577, 0.22414668499999998`, 0.090484535]}, {
         "Directional", 
          RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
          ImageScaled[{0, 2, 2}]}, {"Directional", 
          RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
          ImageScaled[{2, 2, 2}]}, {"Directional", 
          RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
          ImageScaled[{2, 0, 2}]}}]}, 
     {GrayLevel[1], EdgeForm[None], 
      StyleBox[
       GraphicsGroup3DBox[{
         Polygon3DBox[{{682, 388, 676}, {486, 534, 1}, {678, 267, 679}, {561, 
          486, 1}, {534, 486, 267}, {486, 561, 388}}], 
         Polygon3DBox[{{680, 486, 388, 682}, {679, 267, 486, 680}}]}],
       Lighting->{{"Ambient", 
          GrayLevel[0.8]}}]}, {}, {}, {}}, {
     {GrayLevel[0], 
      Line3DBox[{561, 1, 534, 267, 678, 679, 680, 682, 676, 388, 561}], 
      Line3DBox[CompressedData["
1:eJwl0k1I02EcB/Bf06nZ1K4RFJ3EwA6BN4U6F71YmS+3bonkSXLgZe6gEIQQ
6EmiQkGKErHQQrQMxGsv28x8BdFbXc2DfaawL5/v79l4nv+e7cKD7uZHJyLi
qWSTEac5xPMc5SW+ZhM/8jqX2cECO7nLPUnrBxxklEWMIMlxpvieZ/mV8+UR
PYmI7/pjznuIK7xREvHDWlpfsHbT/NN8izneZp7NLPAOV3iXv3iPLbKq3+dv
tnKNbVxnOzf4rjQi44yrzto01xa/r5619le2rG2zX/5Ig2f/Zq3OZ/rMteZF
8xlOs5JjLOUwD+03wH/cl159hw+ZYzuXeI0zbGTevTy3f71+UX/mnHPFu9e7
rD8x15gv64tSrX9hFT8zVbxbnuIcK/mJJznLGanQP9CWMZ04+qliih4hJula
4i1dU7yhV2S8OaGMyUt5JS8Sx/+Z/13CSzQ=
       "]]}, 
     {GrayLevel[0.2], 
      Line3DBox[{1411, 1710, 859, 1410, 2109, 1590, 1412, 2110, 1591, 1413, 
       2111, 1592, 1414, 2112, 1593, 1415, 2113, 1594, 1416, 2114, 1595, 1417,
        2234, 1711, 1821, 866, 1418, 1713, 1822, 2264, 1596, 1419, 1715, 1823,
        2265, 1597, 1420, 1717, 1824, 2266, 1598, 1421, 2072, 2115, 1825, 
       1599, 1422, 2074, 2116, 1826, 1600, 1993, 2108, 2309, 2003, 1935, 1977,
        1601, 1978}], 
      Line3DBox[{1424, 2008, 2161, 1423, 871, 1425, 2117, 1602, 1426, 2118, 
       1603, 1427, 2119, 1604, 1428, 2120, 1605, 1429, 2238, 1719, 1827, 1606,
        1430, 2236, 1712, 1828, 2009, 2235, 1431, 1714, 1829, 2010, 2237, 
       1432, 1716, 1830, 2267, 1607, 1433, 1718, 1831, 2268, 1608, 1434, 2073,
        2121, 1832, 1609, 1435, 2075, 2122, 1833, 1610, 1994, 2305, 2005, 
       2006, 2002, 2004, 1611, 1834}], 
      Line3DBox[{1437, 2011, 2162, 1436, 2012, 2163, 1438, 882, 1439, 2123, 
       1612, 1440, 2124, 1613, 1441, 2244, 1726, 1835, 1614, 1442, 2239, 1720,
        1728, 1615, 1443, 2241, 1721, 1729, 2013, 2240, 1444, 1722, 1730, 
       2014, 2242, 1445, 1723, 1836, 887, 1446, 1724, 1837, 2269, 1616, 1447, 
       2076, 2125, 1838, 1617, 1448, 2243, 1725, 1618, 1449, 2308, 2001, 1619,
        2007}], 
      Line3DBox[{1451, 2015, 2164, 1450, 2016, 2165, 1452, 2017, 2166, 1453, 
       892, 1454, 2126, 1620, 1455, 2245, 1727, 1734, 1621, 1456, 2222, 1669, 
       1736, 1622, 1457, 2224, 1670, 1738, 2018, 2223, 1458, 1671, 1740, 2019,
        2225, 1459, 1731, 1839, 2020, 2246, 1460, 1732, 1841, 897, 1461, 2247,
        1733, 1843, 1623, 1462, 2127, 1624, 1463, 2128, 1625, 1464}], 
      Line3DBox[{1466, 2021, 2167, 1465, 2022, 2168, 1467, 2023, 2169, 1468, 
       2024, 2170, 1469, 1008, 1672, 1470, 2226, 1673, 1735, 1674, 1471, 2227,
        1675, 1737, 1676, 1472, 2228, 1677, 1739, 1678, 2288, 1473, 1679, 
       1741, 1680, 2292, 1474, 1742, 1840, 1743, 2248, 1475, 1744, 1842, 2171,
        2077, 1476, 2249, 1745, 1844, 1746, 1477, 2129, 1626, 1478, 2130, 
       1627, 1479}], 
      Line3DBox[{1481, 2025, 2172, 1480, 2026, 2173, 1482, 1755, 2174, 2080, 
       1483, 1756, 2175, 2081, 1484, 2061, 2250, 1747, 1681, 1485, 1020, 1748,
        1682, 1486, 2281, 1871, 1683, 1749, 1684, 1487, 2229, 1685, 1750, 
       1686, 1918, 2289, 1488, 1751, 1845, 1752, 1309, 1489, 1753, 1846, 2176,
        2078, 1490, 1754, 1847, 2177, 2079, 1491, 2027, 2178, 1492, 2131, 
       1628, 1493, 2132, 1629, 1494}], 
      Line3DBox[{1496, 2028, 2179, 1495, 1762, 2180, 2083, 1497, 1763, 2181, 
       2084, 1498, 1687, 2182, 2062, 1499, 2063, 2183, 1688, 1500, 1872, 2251,
        2095, 1757, 1689, 1501, 1249, 1873, 1758, 1875, 1874, 1502, 2282, 
       1876, 1877, 1759, 1879, 1878, 2253, 1503, 1760, 1848, 1930, 2293, 2099,
        1504, 1761, 1849, 2184, 2082, 1505, 2029, 2185, 1506, 2030, 2186, 
       1507, 2031, 2187, 1508, 2032, 2188, 1509}], 
      Line3DBox[{1512, 1767, 2133, 1630, 1850, 1769, 2134, 1631, 1851, 1771, 
       2135, 1632, 1772, 1691, 2136, 1633, 1773, 2066, 2137, 1925, 1634, 1774,
        1967, 2301, 2102, 1921, 1635, 1775, 2097, 2283, 1883, 1852, 1869, 
       1636, 1776, 2254, 1886, 1887, 1778, 1870, 936, 1777, 1693, 1902, 1944, 
       2286, 1637, 1901, 1695, 1927, 2291, 1638, 1522, 1996, 1997, 2306, 1639,
        1524, 2138, 1640, 1526, 2139, 1641, 1528, 2140, 1642, 1530}], 
      Line3DBox[{1529, 2199, 2035, 1527, 2198, 2034, 1525, 2197, 2033, 1523, 
       2106, 2196, 1995, 1521, 2069, 2195, 1694, 1520, 2068, 2194, 1922, 1924,
        1923, 1519, 2098, 2284, 1885, 1765, 1884, 1263, 1518, 1881, 1882, 
       1764, 1880, 2252, 2096, 1517, 1919, 1920, 1900, 2285, 2067, 1516, 1692,
        2193, 2065, 1515, 2064, 2192, 1690, 1514, 2087, 2191, 1770, 1513, 
       2086, 2190, 1768, 1510, 2085, 2189, 1766, 1511}], 
      Line3DBox[{1531, 1779, 2036, 2255, 1853, 1780, 2141, 1643, 1854, 1781, 
       2142, 1644, 1782, 1696, 2143, 1645, 1783, 2070, 2144, 1933, 1646, 1855,
        1974, 1360, 1932, 1647, 1784, 2256, 1972, 1973, 1931, 1648, 1926, 
       2290, 1697, 1904, 1945, 2037, 2296, 1903, 1698, 1906, 1946, 948, 1905, 
       1699, 1907, 2297, 1949, 1649, 1948, 1947, 1968, 2302, 1650, 1532, 2107,
        2145, 1998, 1651, 1533, 2146, 1652, 1534, 2147, 1653, 1535}], 
      Line3DBox[{1536, 1785, 2038, 2257, 1856, 1786, 2039, 2258, 1857, 1787, 
       954, 1858, 1788, 2148, 1654, 1859, 2088, 2149, 1655, 1860, 2270, 1789, 
       1656, 1861, 2271, 1790, 1657, 1537, 2231, 1700, 2040, 2230, 1928, 1701,
        1951, 1987, 2232, 2104, 1908, 1702, 1910, 1336, 1952, 1909, 1703, 
       1911, 2299, 1954, 1955, 1953, 2100, 2150, 1970, 1658, 1538, 2307, 1999,
        2000, 1659, 1539, 2151, 1660, 1540}], 
      Line3DBox[{1541, 1791, 2041, 2259, 1862, 1792, 2042, 2260, 1863, 1793, 
       2043, 2261, 1864, 1794, 962, 1865, 2272, 1795, 1661, 1866, 2273, 1796, 
       1662, 1542, 2152, 1663, 1543, 2153, 2044, 2200, 1544, 1950, 2045, 2298,
        1969, 1704, 1958, 2105, 2233, 1988, 1912, 1705, 1914, 1345, 1960, 
       1913, 2287, 1706, 1916, 1963, 1964, 1962, 2300, 1961, 1984, 1664, 1545,
        2154, 1665, 1546}], 
      Line3DBox[{1548, 1797, 1798, 2274, 1547, 1799, 1800, 2275, 1549, 1801, 
       1802, 2276, 1550, 1803, 2201, 2089, 1551, 2090, 2202, 1804, 1552, 2155,
        1666, 1553, 2156, 1667, 1554, 2157, 2046, 2203, 1555, 2047, 2204, 
       1556, 1956, 1959, 1957, 2304, 1989, 1557, 1971, 1707, 1915, 2205, 2071,
        1558, 1929, 1054, 1917, 1708, 1936, 1559, 1986, 2262, 1805, 1985, 
       1806, 1560, 2263, 1808, 1809, 1561}], 
      Line3DBox[{1563, 1810, 1811, 2277, 1562, 1812, 1813, 2278, 1564, 1814, 
       2206, 2092, 1565, 2048, 2207, 1566, 2049, 2208, 1567, 983, 1568, 2158, 
       1668, 1569, 2159, 2050, 2209, 1570, 2051, 2210, 1571, 2052, 2211, 1572,
        1965, 1966, 2212, 2101, 1990, 1573, 1979, 1992, 2091, 2303, 1991, 
       1807, 1934, 1891, 1574, 1888, 1893, 1056, 1892, 1709, 1897, 1889, 1942,
        2294, 1941, 1980, 1815, 1940, 1816, 1976, 1975, 1575}], 
      Line3DBox[{1589, 1898, 1943, 1899, 1817, 1890, 1896, 1271, 1588, 1894, 
       1895, 1868, 2103, 2280, 1982, 1981, 1587, 1937, 1939, 1938, 1867, 2279,
        2093, 1586, 2221, 2060, 1585, 2220, 2059, 1584, 2219, 2058, 1583, 
       2218, 2057, 2160, 1582, 996, 1581, 2217, 2056, 1580, 2216, 2055, 1579, 
       2215, 2054, 1578, 2214, 2053, 1577, 2094, 2213, 1820, 1576, 2295, 1819,
        1818, 1983}]}, 
     {GrayLevel[0.2], 
      Line3DBox[{684, 860, 2109, 685, 871, 709, 2163, 881, 719, 2165, 890, 
       730, 2168, 901, 741, 2173, 911, 752, 2180, 1127, 1211, 922, 764, 2190, 
       1139, 1213, 933, 2134, 776, 1151, 1216, 944, 2141, 787, 1160, 1219, 
       2258, 953, 797, 1170, 1226, 2260, 960, 810, 1178, 2275, 1232, 969, 823,
        1190, 2278, 1240, 979, 835, 2213, 1197, 991, 847}], 
      Line3DBox[{686, 861, 2110, 687, 872, 2117, 710, 882, 720, 2166, 891, 
       731, 2169, 902, 742, 2174, 1117, 1210, 912, 753, 2181, 1128, 1129, 923,
        765, 2191, 1140, 1141, 934, 2135, 777, 1152, 1153, 945, 2142, 788, 
       1161, 1220, 954, 798, 1171, 1227, 2261, 961, 811, 1179, 2276, 1233, 
       970, 824, 2206, 1191, 980, 836, 2214, 992, 848}], 
      Line3DBox[{688, 862, 2111, 689, 873, 2118, 711, 883, 2123, 721, 892, 
       732, 2170, 903, 743, 2175, 1118, 1119, 913, 754, 2182, 1024, 1130, 924,
        766, 2192, 1029, 1142, 935, 2136, 778, 1036, 1154, 946, 2143, 789, 
       1162, 1221, 955, 2148, 799, 1172, 1228, 962, 812, 2201, 1180, 1234, 
       971, 825, 2207, 981, 837, 2215, 993, 849}], 
      Line3DBox[{690, 863, 2112, 691, 874, 2119, 712, 884, 2124, 722, 893, 
       2126, 733, 1008, 1009, 1111, 2250, 1018, 1120, 1019, 755, 2183, 1025, 
       1131, 1026, 767, 2193, 1030, 1143, 1031, 2137, 1302, 1037, 1155, 1038, 
       2144, 1315, 1163, 1222, 1164, 2149, 800, 1173, 1229, 2272, 1174, 813, 
       2202, 1181, 1235, 1182, 826, 2208, 982, 838, 2216, 994, 850}], 
      Line3DBox[{692, 864, 2113, 693, 875, 2120, 713, 1093, 2244, 1094, 1207, 
       1095, 2245, 1096, 1103, 1010, 2226, 1110, 1011, 1112, 1020, 1121, 1021,
        1123, 2251, 1248, 1027, 1132, 1028, 1282, 2285, 1032, 1144, 1033, 
       1351, 2301, 1301, 1156, 1217, 1157, 1360, 1314, 1165, 1223, 2270, 1166,
        801, 1175, 1230, 2273, 1176, 814, 972, 2155, 827, 983, 839, 2217, 995,
        851}], Line3DBox[{694, 865, 2114, 695, 1079, 2238, 1080, 1203, 1081, 
       2239, 1082, 1097, 1002, 2222, 1003, 1104, 1012, 2227, 1013, 1113, 1246,
        2281, 1247, 1122, 1022, 1124, 1249, 1250, 1133, 1252, 1251, 1135, 
       2252, 1259, 1260, 1145, 1262, 1261, 2283, 1214, 1147, 1158, 1359, 2256,
        1358, 1313, 1167, 1224, 2271, 1168, 802, 963, 2152, 815, 973, 2156, 
       828, 984, 2158, 840, 996, 852}], 
      Line3DBox[{696, 1059, 2234, 1061, 1200, 1062, 2236, 1064, 1204, 1083, 
       2241, 1085, 1098, 1004, 2224, 1006, 1105, 1014, 2228, 1016, 1114, 1023,
        2229, 1281, 1300, 1299, 1125, 1253, 2282, 1254, 1134, 1258, 1257, 
       1137, 1263, 1264, 1146, 1268, 2254, 1267, 1149, 1352, 1353, 1303, 2290,
        1040, 1285, 1043, 2231, 1045, 803, 964, 2153, 816, 974, 2157, 829, 
       985, 2159, 841, 997, 2160, 853}], 
      Line3DBox[{699, 1065, 867, 2264, 700, 1066, 2237, 877, 715, 1086, 2242, 
       886, 724, 1007, 2225, 895, 735, 1017, 2292, 1306, 905, 745, 1308, 1309,
        1307, 915, 757, 2293, 1311, 1312, 1310, 926, 769, 2194, 1034, 1283, 
       1329, 937, 2286, 780, 1041, 1286, 1331, 948, 791, 1046, 1287, 2232, 
       1374, 957, 805, 1375, 1376, 1354, 2298, 966, 818, 2204, 976, 831, 2210,
        987, 843, 2219, 999, 855}], 
      Line3DBox[{701, 1067, 868, 2265, 702, 1068, 878, 2267, 716, 1087, 887, 
       725, 1099, 2246, 896, 736, 1106, 2248, 906, 746, 2176, 1115, 916, 758, 
       2184, 1126, 927, 770, 2195, 1035, 938, 2291, 781, 1373, 1042, 1333, 
       1334, 2297, 1335, 792, 1047, 1288, 1336, 1337, 806, 1049, 1289, 2233, 
       1378, 1379, 819, 1380, 1344, 2304, 1357, 977, 832, 2211, 988, 844, 
       2220, 1000, 856}], 
      Line3DBox[{703, 1069, 869, 2266, 704, 1070, 879, 2268, 717, 1088, 888, 
       2269, 726, 1100, 897, 737, 2171, 1107, 907, 747, 2177, 1116, 917, 759, 
       2185, 928, 771, 2196, 1393, 939, 2306, 782, 1332, 949, 2302, 793, 1377,
        1048, 1340, 1342, 2299, 1343, 807, 1050, 1290, 1345, 1346, 820, 2205, 
       1053, 1293, 1381, 1382, 833, 1383, 2212, 1350, 1364, 989, 845, 2221, 
       1001, 857}], 
      Line3DBox[{705, 1071, 1072, 2115, 1201, 1073, 1074, 2121, 1205, 1089, 
       1090, 2125, 1208, 1101, 2247, 1102, 1209, 1108, 2249, 1109, 748, 2178, 
       918, 760, 2186, 929, 772, 2197, 940, 2138, 783, 1394, 1395, 2145, 1396,
        1397, 1338, 1341, 1339, 2150, 1355, 1356, 1051, 1291, 2287, 1052, 
       1292, 1305, 1054, 1294, 1055, 1320, 1237, 1365, 1384, 2303, 1185, 1386,
        1186, 1385, 1241, 2279, 1192, 1193, 858}], 
      Line3DBox[{706, 1075, 1076, 2116, 1202, 1077, 1078, 2122, 1206, 1091, 
       2243, 1092, 727, 898, 2127, 738, 908, 2129, 749, 919, 2131, 761, 2187, 
       930, 773, 2198, 941, 2139, 784, 950, 2146, 794, 1398, 2307, 1399, 1400,
        1401, 1347, 1349, 2300, 1348, 1371, 1372, 1183, 2262, 1236, 1184, 
       1316, 1273, 1188, 1269, 1274, 1056, 1275, 1057, 1279, 1270, 1243, 2280,
        1369, 1370, 1194, 1322, 1195, 1363, 1362, 1199}], 
      Line3DBox[{707, 1388, 1389, 1387, 1406, 1405, 2309, 1321, 1391, 1392, 
       1390, 1408, 2305, 1407, 1404, 1402, 2308, 1403, 728, 899, 2128, 739, 
       909, 2130, 750, 920, 2132, 762, 2188, 931, 774, 2199, 942, 2140, 785, 
       951, 2147, 795, 958, 2151, 808, 967, 2154, 821, 1187, 2263, 1238, 1367,
        1368, 1366, 1323, 1324, 1326, 2294, 1325, 1242, 1277, 1276, 1278, 
       1271, 1280, 1272, 1198, 1318, 1361, 1317, 1319}], 
      Line3DBox[{846, 990, 1328, 1327, 2295, 1196, 834, 978, 1239, 2277, 1189,
        822, 968, 1231, 2274, 1177, 809, 959, 2259, 1225, 1169, 796, 952, 
       2257, 1218, 1159, 786, 943, 2255, 1215, 1150, 775, 2133, 932, 1212, 
       1138, 2189, 763, 921, 2179, 751, 910, 2172, 740, 900, 2167, 729, 889, 
       2164, 718, 880, 2162, 708, 870, 2161, 683, 859, 1058, 1409}], 
      Line3DBox[{854, 998, 2218, 842, 986, 2209, 830, 975, 2203, 817, 965, 
       2200, 804, 956, 2230, 1304, 1044, 790, 947, 2296, 1330, 1284, 1039, 
       779, 936, 1245, 1148, 1266, 1265, 2284, 768, 925, 1244, 1136, 1256, 
       2253, 1255, 756, 914, 1296, 1298, 2289, 1297, 744, 904, 1295, 2288, 
       1015, 734, 894, 2223, 1005, 723, 885, 2240, 1084, 714, 876, 2235, 1063,
        698, 866, 1060, 697}]}, {}, {}}},
   VertexNormals->CompressedData["
1:eJyUvHk0ld/3B15S0UBF0qRJkwZEitJuQrOhqDSpNCeNFMk8ZJ5nMstUZkra
[encoded data, 54900 characters]
kpjqnX3N6oNYyHstGfJeq4m81/o/QrWpGw==
    "]],
  Axes->True,
  AxesLabel->{None, None, None},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImageSize->{299.70268835026883`, 123.97122502061166`},
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], "RotationControl" -> "Globe"},
  PlotRange->{{-5, 5}, {-5, 5}, {-500, 500}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], Automatic},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{-0.5102060031672504, -3.3399377634394014`, 0.18575675138065345`},
  ViewVertical->{0., 0., 1.}]], "Output",
 CellChangeTimes->{3.577383431214679*^9, 
  3.6585323824545307`*^9},ExpressionUUID->"99a65fe6-3289-4a50-b52a-\
1e3bd5dd938b"],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJyFnQd4lMXz+JMQ0stdLghSQxGlSJcafF9ARZDeRYpSpYP0Jr33Jh2kdwHp
[encoded data, 19032 characters]
R3yYGw==
   "], {{
     {RGBColor[0.148, 0.33, 0.54], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtj71qQkEQhcerN7uuWNnlamHjz+sIBn+CyEUURdTC11ELa4uEdHmDgPgC
QtLmEWKVb5gthrN75sycM81829skItKgilQ9iGSpyKEskjuRD5pjcEdV6X97
dN74K7iHf4b/8dZTzR/cjfcnmgB+URfeGbtnzvhXZzM6m4Bt/M4lkRb4cKbX
uTeyvFMddPcny6a9djC+gqYTbKd6DmOeF7Cemr7AfxDz98FWsL3dYDfoLQVv
d+p7Bdb4T8jz6y2r7p+Cy7hffY5l8ziBE2f51uA8eqnnKN6yAP8B2iEpnQ==

         "]], PolygonBox[CompressedData["
1:eJwtkU0yQ1EQhTuR6JunbEAYmEhswcAiVKFKlYT4/ykMrCNZARkYG1BmqtgI
A0NLYOQ7zhvcqvPd7ndun37Lo+uNq2ZELHFanGkVsT4bsYC+zYh3eAK/0DRT
Ilbhp3bEK9xHb6V79c0RetqJWKTe4O6T/v10fx/eRjeL++Up7x/u5uEx/AZf
wh/oR/x30F/F3z7j0aM+5K7bds8AfcBZq+cboe8qszxv0p7j2u8XPk2z6sfo
uWJvzbhSOYOyKN+h/Dp+T5nu0SdpL3nI6zz9tvJcpM+k3t8ZulFc10yaTTvR
bh5Ydg+/b3jQckZl7Vb2/38TvZvuFyv7Zr0v+Sn7XnpWza9dV8WsDPqXf2wM
NW4=
         "]]}]}, 
     {RGBColor[0.3238525060556242, 0.41752005005149734`, 0.6286937344593136], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFVD1vU0EQPD+f/d67mIgkBR8BSzQkBooQHDnKD6CNMB8/IB0FASQo4YcA
cYyUtKZApiBRYiQ38B9iCYmGgkALFDDDTETxvHt3c7O7s3u+tPGwu5mFEO7j
q+J7Vgshg/MGm4sphLdYt2APkgA/8xB2sbcchTuqy5JjgJ8q/Gn4L5L8B8Dv
Yz/BnydFIf8Q58NMnMT/yuUzDs+IyYBtI07pu+SvONbvXPyM04C9E4U5wp11
+NtlCD/wPUeu32HPATPCxQ4ws1XlRPwnnI3hf4Q9Y0wL+9fBsYO7fzJpsmtd
6oXi9RB3G99p+Al7ezh/XxPX2ari0r+QxDMPeyuqRtb9Cusm9vuIuxLFyf1O
FCdzuAzMDPwp8C8lxWgn1TprTVjHnPFd7E9Zz551eZyrphljRs6POiybc8m9
aJjzXpQWxPeT+J+Cp5k0Fy9h16J4yEetqBPjjkthmp4d1sPYnBf2iz3MTizw
k7pm6CKwd40l5+2oGWB9PPs3Z0Exx+7jalRuxFDLiXlO5pJ50E7sf0jS7RT0
/Faqr8el6n1XU81bSfNWKWTZM2qzkJTf50L9YX6MO10oh75nYd/z8yTXmjPS
K6XPVqn+DK0VZ5KcrHeh1NxyfpnHmvfJzfzI2QJmB/5iqRqp6cBviD0gJ+Os
x/9vset9xl1xLdRg1fl/QbybnHfPWsexqDHnmTrHQvdHfpdtv7XNXP8Zk0Jn
xNTg30i6z7dFvVjjV+s59LtjT9gz9uVakv5X2R/XfyWploG1Ipa9ZTy+Ga5f
W7OK5+k87m5gfQz7KFc89pN1cM5ZZ6NQ/ZyFv1AyfGM=
         "]], 
        PolygonBox[CompressedData["
1:eJwlkj0vQ2EUx097b93nPi2hHRAviaVVLK0K8QGsol4+QHdFwmDgS4g08RpJ
zQaJxdqFROyG1mAxKCsGfidnOMn/7TnPc8+5E7Wtaj0pIkUqpB5ikRbCYUrk
C3xJLWP8oV2AO05kBR4HItuRyDN8Hn5LftKLtNHW4Bn8HryEs2wF7Ql8RY9x
skhSJ5tCS0Oq+C/wd/g6eBgt50xTL4D/gl/RVuH98F14h9qA5+B9eNO84S5l
mnol+BJ33aOVwcdoc6HdGTp7k77NwwPwPv4QeBHtBPwZ2yxUU28vsrsW8Bvg
Lv4B/g3zacV2Rs8OksnSL4+WCGyGBXDF21t0xrPeemivLJkM+c3IvrWMdgT+
pnRYOnOd/SNVCk37iSyj2Wt6jtHvPLZdNeGj8BFvWM/oWc1oVt/8QbbtbBdN
/CJ8ytvbdYYz4FNv36Y7OwN7Z7PXnevui952P4CWB3fRaqHN/A2cdDZb3Znu
Lu0sqzsukN+J7F/Rnehuep3NQv8h/Zf+AXPlRok=
         "]]}]}, 
     {RGBColor[0.5691468263530772, 0.5037257217215287, 0.4844951563930792], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNVktvVVUU3t72nL3PiUoxatRS6CU4gAsanxRum5a2pKWd3DaBxAQnDVMx
DDRijPwFsNYm6kCjkvqA1gRwYhGRQmscVI0xYcClpRMGonOf38f3ERzsrHXX
WXs9vvXYtzrx8vjhSgjhOk4LzmAewkUIapSBP5WF0AZ+cxnCF+BjCqGaif8K
ep2Qfwb+nxjCSCb9jUH0tPkG6BmcXUGyWcs/zXR3Pfg569PmWet3Qb6llH6C
34OOh36ehvxr0KdAn8e5AP7RJF/ncYZxtwv6O3HOwebnmfx9CX6hIh3G80Kr
7Gxqkewb3yW9YH4R+hfBHwC/s9T9n5Jk31leiYr7W3xbsv4Q5J3Qq8F2Tynd
S9YfzmWHMTQQQwadOfxeyYV7Z6ZDGfE57jw6wM9Yjmvh/iSfTfjvh8556+SQ
z4O/BvmfUXevgh6Fzms4R+BvfZL+MuhbufRZd5i/jRPt5y3iM+d4T1RtbhQh
TEF+Bb93ZMKIeY3kyn/I2BJXfpuHzrhxpj3mQPvtuP+YbTAn4kD5w0l9+KNx
XrTNk7zXop78ISm+v3B/UyYc+e1J8E8YZ9Id5umLv7+vqL6sN2tw2Pc/LFQj
+mMOH+H3ZvAfg45l6i3G8Fyp+12g08j3Hc/M6UK+Z0G3OO/90J+Nwnsv5NtL
9ck20Cnce9s1o43eXPj3mWdvrCXheAs0M1aM/5lSmD4L+glkE7C/VmiGTnmO
umGjbpt7ctllr7S619o8gzOeC+JE+4yZtN2+OEOcOfbVm4Uw/9tYtrt29E85
+ySPipV3i6TZfrzU3uj0vM94Hsn32z53AvGu3tkJFekzzrVM3yjnjFSd41yh
+frF+2HU+jcz1eKA55cxMq9R74914DtK0cmomCPOIeuctB327Jjr/mIunnuJ
9aQ+fV8qdOdWoX225jj/jdo71VJz0fA+oZ0z7qc5zwL1F6NmirPFniaexJsz
M+4Yfivuxt6KnDeAn4JuB/gF6NRLzwzsPJjUA033AX3SN+Pvdd/uDupV9tjt
PederHmHcxcR58lcO2Ib5Cdy7SP6zozdIfdM5v7h9xPeWb2+W/P7stfzMuZ4
GsaCGA15N+7zfuRscEY6vFtGvV+I90H3DWX8NuyYKWftmMe0c2QMw56pfeYp
p23O4XbwZ4HdB9yloO/j7IL8vVK9QJ5zwzxWjUOf+V5j3G1M2Jsr3uGDxp72
m7a/HKXbY/2m8ax7RrljOaesF3nGTL+T3tGsyYrrMu85J7bnPKvEivcqtlO3
fcrZr7lnk28Sf3OGuJMq3u3dkF/mrkb//OHdt1QIa9pn/5F2meebdvN/+/ay
dyzrPOjce4wP413wu7nkd7jht3h3KVsbknDYY5ybzqNWau74frHfjkb18u+I
7Y2oet5IirPf+Ub3J/M8FtUjI0lzNuF9ter+ZB2v+q3Mkt5Oxntfkk++nazf
dFRcr4C+GrW3BqDza6H4Zr1LyDPOY4V8cU/XjQnrNZArzo3egQP53X6vO/53
nSNz3VrojbuWlCfzfShpf7EOL0X9L+HcPJLU473u87rfGtbi3qT4mcdx9y77
8PWo76tJu4B7Z8j49LkWy/7PsA70gaTYGCN3EG0c8X+EPs8abdFmG+jPSTVv
T5ol5nJnx1/3zP4HztIndQ==
         "]], PolygonBox[CompressedData["
1:eJwlk8tvjVEUxU+03/3Od4IiiEf19lYltI3347ZISEnQCZ2Zdq5iQEIk/RtE
GgkibZXEq2WgJkppK1oiEsTM6E4MlLl4/FbWYCd7nbX3PmfvvU6l72xv/6IQ
whGsHnsXQ3jCQakuhPf4d1IIPaUQjsEN5CHMFSGcykLoxebxz3PWBneYmCFi
G8h5QX43eBh8Br4Bvgq+Di5j98h9gP2DmwZfg3tNzmpyV0b7Rzkb0d3g78TO
YF3gVeCu4Bzlnoh+2xT8XnBjdOw01gleG829xPaAl4E7iB/UneAaPfTR6yB3
vuU9n+Hn8d8QfwD+ELiGfx9rTu5ZvU9iu8A7sOf4pxlejdgR+Aq4BbuNfwv+
IHdNaqbw5ejaW7FHhU3+NmwM/0/u2etNA+BvxJ+kdhm+H24j9cbwH2MFXCV5
ltqZdqeZa/ZN9HiB+OHCufXUGyo8U81WM7iUe2fa3Svyl5K/QExP5p39wN+U
fNcz+A/wbeCn4Cr8CvCS6N6uqoZqk3OOu9qxZrhq8uxnidmHvzt5dmX47fgf
9Qa4i+RPgEex4yXv+HLuM3Gq+bXwHbpLmltM/f3gWerNUeNT9E61W2lwObg7
ehbjxLTCtSf3qh46kt+gt2iHO/HHC+9CmpP2NDPNrpOaN+GbsLuZZzQD9yW6
V2lG2vlZeDb6I7/wRwtrQRqSlqbIv0KtRv23aI1Kq+phA/hG8l26Q3etj+5N
f1B/UX9If2mCs9/MJ0b3Jk1IGzn4YWYNSovamXansxb4v7m1rD+ov7gQrd1W
eliHvyZ6V9qBdrGZGlmdNbhFu839dmla2s6i36Ke1Nt/otuGEg==
         "]]}]}, 
     {RGBColor[0.8144411466505301, 0.5899313933915601, 0.34029657832684496`], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNm3n81mO6x5/n+T3L9/s45hDOmZSpFM5EGYNo0a6VyjKWSnPK1jZatGnB
[encoded data, 9089 characters]
arbpgPyS021pGUFfnWS6sWf2gwxO8d7Y1/8DWnR9Zg==
         "]], 
        PolygonBox[CompressedData["
1:eJwtl3mwj2UUx19+v999n/ct2qikJqKmTTWJFqLcCC2WplIqDSX7ljJuuvY1
TVpcJqW4pFRKhUtCJRctuCiSJYlsScqkLH2+8/XHmTnf55zneZ/lnO85b/X2
PVv3KB9F0TYki8yPo2hLJopeB1yYRNE9aRT9nouiodhGYRvHWAXwEfA0cEPw
AnzfBk8GDwOXwz6CRZeBZyH52PeBD6H3Q95h/Rb4TBQOUfQS9ilITeZ+D26I
3g2f29FLkbfQZyDL0T/Bpy5zu/K99ui7kH7gItb/Ff08ZCLz5+I/IfgMOstW
8AK+t4axeuCq4LPR78feqlwUbWbsQfR5jI3CVpYXRRs5+yDweGyTGRuCvgOf
J/leljnTWe8zxiZh24j/T/gPBxfhP5WxkeirkRvBlcFnoK9HGoCvYY0PWevn
2N/egX22zgpen/GZdmLfrvfI+o4bgKsgE9DfRL7Evxx4M3dxH3PKo3+GNGJu
FfbzKvYxSAQ+gf9QbIuRxuAmyBL0q7E/he0S/EenvjPd3Xbu8yDfXohPQ3xL
GPsUPR97Z/RKyNPY5zN2hLmP4bMJvTn2ntguRgZi3wC+JeuYmYk+BVmGrS9j
R9HPYk519Gbc55l6C/awB98H8GmG/qTuH70tPjvRmzO2GftW5GbwnUifjOe0
xPaJYgo8Gv9KrNeasf05x3ALfOsgwzhbsXzQb8D+Obbq4DrofzLWKes70929
g6zNOCbHYu8E7oJ5JmdeCb5c95H1m5zL92okfhvFrGL3CvB07YU5fdhbBrwf
fSRjZ6D3wufljHNEubIodiwohhXL9ybOvfXg+9C74v889vf5/td8vzu4EXf3
Afgb8DHm/4vvEaQQ/xPY+6MX6Ex6e+QL9Maag+8v2NuAq7HmAPBaCbgMaZ04
x5Xr+1l/C+t/x1ibjO9kFfoI7LXw3Q0uYa0y5Rh4P3d8GP0PZCf4XaSW8htZ
h36INYuxHdJ9Zh1jo7WW4ifrGJmKfj5yCXov5Ca+/xE+t2EvAj+FrT1yq3KR
/S3HPuckP+h7rySOGcXOPvwXoQ8OzmXtWXtXDiuXdWcD8Z8EPp51TCm2Slhz
RnnH+Db0CvgMzzpHlavbxSF6K3ABuKNyTnyF/wr8f8G/d86csRz7AOwTsS/E
vgZ71eBcuZk11qJXCl5LHCWu+jv2XerMOnuZ4gH9IXzWoO/Re2HfA/4PfFpw
bopzxD3ZxLmkmFPsLQ6+C3GUuGpWMDduAm+KzRHiCnH4c9g+DV5bHC2uHoa8
kTEnihsbcIYV+Bayfg3xLXJ5xhxXH1sMrgCuC74IfJD1B+E/GNkRmwPFhaXK
Z+wXJ84NccJSxWbi2BdHi6ubJOamAdzfvNQ5oFxQDnQJzknlpnKks7gj+K5a
MjYD22ux99oO/B74g8SxpT3PQu+QOHYUQ6o1C5D6OXNwW7197Noju2KtJHFt
uhaZlzhHlCtL8H8BfG5wbtVXTqEfVs4wN8WnG74PJL77mP3fkZgTxY2lzClG
rxLMTeLUuvhXDq5dylnl7unBtUUxqFg8yhoHyzsm9rLXpozdpdrM975i/l/Y
h+W8h12xx2RTTjfDdwP29tj2IneDdyvmWOsP5QC2yom59YD4Fvu04L2qhqiW
rMX+sGoBUi+YQ8Qlyvl1rLWU703Kc82qjf1bxiaz9gbkLnwDYxUzrjE18b0O
XLOc52ju08G5/6JyFP0482PwE0g1nS92ryHOEfeIA8WFM9jPUXCP1GdRDPdE
H5O69q0Ej0C/HVmXc4+iXkUxplibwpw1sWNIsdSZ/Q8FF4Fr5zkmxqM/m7r2
3sT8K9nfgdhnU0+l3uqqk/EljhRXzg/mznHgnsExqdhUjVKtEqeJ29STdAjO
EeWKOLwaOB+8KucYVaxqT9rbcPDf4F/BQ3LOOeVe99Sxt5s7LWT+NsaOqR5i
Pw9b79S9i2KoF/qpibn6Eezrxd2Jdb2x3no16z+K/g9rbsV/duxarhjamLjG
qNbI5wfwpcG5ohrbKHUPol5EnH84uCdUb3i3OEH9Tuq9qSapNukN9Za1wd8E
94jqFRUjM8XHiWu7zvRz4jPqrIvZXxlrDcGnJGuOF9e3TPy2GmuFfllw7upO
dbdT8VmcNeeekjhHlauq6Xei/5i491HPod5jrDgt65qm2qY31duqxvdGn8Ca
4zKOmYno+xKfVTmwNzFHiCvUk1yPvb/4S305/qvVnyTmTuW0cls5oFxQj9Q3
uIdWL62e64fgOZqrmlMQXHNUe3ZxhmeCezr1ducwVoCteuq7VU6d4Cz9U9vU
46jXGSmOznNPod5ikupVnntK9ZZNUveiyqGmqe9cd68eeSC+/+Dzccac8lvs
fwT9K6zEvyG+NYN11RTVlnqpa6N6gAuCa6pqq2r+48E9j3of3WmP4BxWLmuP
o1LnoHJReywEd0GSPOfEocR3oLvQWNfUPbx6efV4C7G9EPvfRj31IvUTsXNL
HCouLQX3ybnGq9YrB5QL/ZA5qTlUXKoYylc/lZirVBOLE/9j6F9Dbzw3mFPF
repZ1bt2TM0tefg8gV4f+5ace2D1wuJYca3utCi4J1ZvrB6lonI1de+pOe30
dqlrsTg2Ue+aem31LJ3Q/wcD5/uV
         "]]}]}, 
     {RGBColor[0.9255168477552689, 0.6837921193881722, 0.3691022280413334], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNm3n8XtO1xs/7e6dzTiJBkxguqlWk1SSmotyqoTMpiYoMSESpoYkWMVUN
[encoded data, 8784 characters]
/w/aU7F8
         "]], PolygonBox[CompressedData["
1:eJwtmHuUV1UVx+/M3Pndcy8IRIqU5dLUxAiBBZX5ADVEXc4gIC+ZlgiMgsAM
Ao4hgSbymIEBHASUpwGKPIqHGA8FSoWklcxADu9VC0ietjRAKMWVfb59+2Ov
3/6evc8+556zX+d37YDh3cvzoyhqmhdFMb83hihqWxBFtYVRdHcWRYvBHzC+
KxdF+8GjwGPAb4FrwT8B70V3LJPz0yj6N1QFLkNnchJFTyLvhO116O/KTOJn
ssYIZJOgmA3sZGwvsgnghch2gOvB94BPYu8E1AV8L9QG2x+B74Pfx3r94Psx
5yH4n6J/EHwAuh/5VqgaW0tZ4yL7eRr5LHQ3MFaH7GvmvIhuM2z+B34WY6eQ
/wj5K/A3oP8K/Ifo3An+Czol8J+i3wA+x9gc8EHs58N3QP8Y+ChUBL4FvA++
HJv3w69irETfyvyZ7KcHY2ORXUKnJPM36Ftex1498jPgImQLwKfh30H/ZeT7
sXEY/c3BZ1kPPgR+AHoe/LXOBL4RNB9+OfMvg+8dvNYXUF/wet0pcydyR2+z
Xi/kXyLbho258L2RL2WvFxjrA/9IZttHuO+fs5/X0LkL3TpsHEDWBFqE/GPW
S+DLoAXIPwMPg18DDUb3ctZbwXo9wefQX8wa08C3Yu+Q9gbtxn5H8N/hJ7Fe
E/BY9Jsz/w/YnASeAr4+5z1UwW+BqnL2ufPYe575w7D9HmMfIfsFdAX8CMZe
QvYtbDTEdnvmN4ffAnVgvVeRVzH/XOq7283+PwY/DN6J/ibwYfBd8mn0W6Hz
Pez9HloMf5g1/opsvHwOW8XgZeAWwbF1C7QBW28xViH/wt46ZA9B55GdhXog
WwsNRb6Q7zmLrWngm8Dvs4e14Jcz++oM8LDgOZqrM+0O/h06Y9jPFOTNWK9X
5rv8F9QT+XLGViO/CbwCfhBj09GdztgT8EsS+3oF+GfIH1R8oDsE3Al5MTQK
fhxzvoH8V4lt/Zg9zc0cs4pdzemMbj06j6A/Af298AcZuzd2jCvWL2Ms8K2l
6DSCL2VsGvKAvcHYegY8F1lfxo7DT2W9O5n7DnhRYp+Wb8uH5ctPgx/TWTFn
Jnic4j+2Tz4XHKOKVfmYfO324LUVQ4olnanOtgZcDj8aein2HsbAX0zt23ug
k6z/TGZfkg+NgS9E/iz6g6Czul/GNiIfDT0IzkudO4vA7cB9wPvBy7DXA36T
chq2mvD91chrwI2EobXgF+W/8PXMX6m7A2fgG+VvyqXQdmQjsTmetb8M5ncw
9qpyW/h/rDN2FXNnKEeB+4HPwL+Z+uxKwevha7DRGtttoDeRX1B8xY7JX2b+
Rn1ra+ZcFxxjijXdwT/hr0j97b2548vhP2dsaOw71F1eDR4oX8LeKNUDxn4I
/oQ5W4LvXHd/UjlcuRUqgz/GGovR3Q91ie3z3ZD9RjEKrgY/FvxN+jbNWYls
IHs4Dv4b590KvnHqXLMP+RvIt4Lfle8rJ8LXQn3ge0O74A+kjo2BqgHwUeZc
rZqSp3zHeo0LfWe6u3WJdRXDimXlMOWyQsYq4TtB/Qt8pzPg32B+g0Lfqe52
cmrdMvbYMjjnK/crx20KrqGqpcpBk4NrkmrTbObE8AWZ+cbIRyWu4arlqolP
BedI5UrV4PHBOVy5fC5z0sw1U7WziPurQH41+xkM3xz5fPi3GatSLgdfAp9J
zFcrJlPXdNX2PGy+oPybudaVI/82/G/Rv5tvm8H6Q4JrimqLepClisXEdyGf
ke+8Kxvg58CJzjJ4L1dC87S34FwmH5IvlQXHstbQWsfQGa7zYI1KZP2hamRV
ulP4AcG8fEi+dCi1797GnMPwcxgrLnSN3qFYTJ3b1JMsRZZLvTfFiGKlFHwy
dg6oRL4QOgU+zRmcg5+A/HVkr0FTg2usau0yaGTimFfsLwJfi2wVYy3y7GMz
wRPBTeHb8z2zObubU/c+GpuVumdQ76A70l2dRn+KfE81AfmfVK/gK6Dj4J7Q
vth71t6Vk5SbNNZLMvQPwq+G2qSueap96hG3qTfJnCvkIxsS13TVdvVQe+C3
Bse2crJy84HgXPa/Hge+Y+rcXsuaHeA7Q9vB3bG3PnFNVW1dydjtyLpl7v1U
c7vCr4T6IL9HPZXyVWLfVU+o3nAnc/4cu6f8AH65erCca9Qc5Y/UuW8NeFVq
H5GvNIJGontJ9U/5lPk12F4d3Buop1JvpZyt3H0zOjtVe6BmOfcg6kXUM6h3
0NjozN+kb1PNV+3/PHFuUk+j3iZkjkWduc5+vfr1nHOycvO2xL2Cegr1FiuQ
t8g5Z9XJXzP7hnpc9brKmcqd0qkGT5Z/RO6pKtX/MmdJ7BqvWl8CRTn3uMWZ
z0Bn0VX9l3r11L6jGn4C/qnMuVw9hnoNvQn0NtAZ66wHQvnw7RgbAP9w5t5E
PbF6Y/UQ6iVayj+YOzVzbZPPfxd7/1D9LPQd6i7bQ2ti96zt4J/I3DtMVf6H
HwE1zPnNobfHdanvRj3g+4o3vUdy3lP/zD2Oeh2NlYJbpo7F+cz/Qeo3g94O
OpNHkZdDDXKOqS9Sr6m1E8YGZc55yn3SGQ7+LHHvrZ5YvXHbYF/VG0FvBfmU
fEs+LF9+PLMt1awB2O8K7Y4dE3sSv9H0VrsNG0uw9ULmWqEeYFFwjChWNKcb
fB1z6mK/YQr1VkDnPfU6jD2r3jq4lisndVTvCW5X4BqlWqUaqFqoN47eOscS
x6p0SpDFqXtDvcn0NqsJjiXV+IrMbwC9BT4EF8teYl53+gl4c+pcO45vOpK5
51XvWwk1RXY0ce+snqlv6hqjWjNd85GNZb15Be7Z1LttDO4dlOOV62erxynw
m0NvD9UM1Q7VFNWWVcG9QAvFeHCOU66Tj7XVt2U+K/UI84J9Qr6hN0IR/HdS
91aKUcXqkdS1TjXnqPw1uPdTz6Xe69HUsVCr/aV+c+rtqTfG95F3zvz21Ztb
b+8FiWNPPaZ6Tb0p9LZQz7gRfgj6n+b7DIZmrjGqNXqjNQZ/lfqsFBNPZq4B
qgV6w59C90Ti3lZndAHZH4NjUT2JehP1EOolVANVC88F1y79h6D/EqYwtjl2
jVOt66I7ju1z8r3Hg3sz9fjq9WsTf7t0pHtl6reL3kR6Gw0N7g30RtFb5Zup
fUE5ajv418G9rXLyRL7nmtS1Um+MrdhunfotrD3dod4v8dtOZ3Qe3Co4dhQD
F9V7ZX6b6g3dEP6/271TBQ==
         "]]}]}, 
     {RGBColor[0.9647012439689195, 0.7817531099222987, 0.49057385630365036`], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFmHuw1VUVx8+9597zeySKqVxHriiikqj5ugo0gG+pRmzS6/vFu2YSL2Wp
M6TeEAk1rQtO4SvMJkEeo4BGU9OUkiVi4UzlA51yhnSmMoecpILAvh++3zv8
sWevs35rr7323mt911pn5PS+i29sbzQa/2xrNJqaD+5oNF4R8YzoebXnD8tG
Y52+/6DVaKzV7xeqRuNozd8tGo2+lvk35vvjoZdpfkxjjuit0vdw9N7Q8jf4
izQ2iT9E86PS9bh03oPONu/HXiMle6TGr0R3S3aBdNyfdS9l7blNy/w+NmHb
TZpfEm+TxhckM6az0TheY7Rk12hM09pRmk/WmC36K1pza236qNL6d7asa0mn
aex9QPSulnlzOKvGTPFPiP7pkp+kvfeIv1r8peL9T/T3NC9omX6y3d93a8yW
zL+aptdp7aishc/8UfQMaIzkrJJZm/t9mvvRW2zT+qdl810t74H+wf3QM1/z
nRp3i17IG+ps70rmutK6fqE9T6m87mTNc1vmo5+77tLoEf261q3RmKXf/ZL5
BkP0E9LzW96lMo9v+4v/bd3nI5JfUXp/7DigzXe3KHqnRr5L+l8tbEOpdf8Q
/aroa6XzcH0fER84vfBv6LdF/0Yyn5T8ES3zxzct06XRnd/MGyW/Tbwtkj9H
OufX1vmobNsi/jLxLxJ/o8ZnZN/zmqdp/EX2T9V8gvScIv4M9m2av7XdZ+bs
y6Xn051ZK5l32n1f3BW+syu+NCp68JOfNf2+vAVyq+Lzx5e2+5vS/aDsvFi8
ftm4Wvw3uWfx1ol+R/SA6I2a52qvCZrXh9+ttTOl+32NGRrniXdzh2MF/5xY
2OeaGie2fKaDNJ/a6bOu1/rTRK+rzDstNs+PTt6RPedr9Ep+k8atov8gmaoy
BlwvW6bVjtlrRB8u/kOSubc2zhyksUXf+iU7W/N++JVkvij67NJ+g/88Utn/
v9R0DFxUmz5f35fq2yGy7Ye1sQVceUo23CX+PK09Nb7Jvi83rRv+oZLb3bR+
8Gac7mNsYRy5Wrru5Vxae6l+97bs9w9XxrERlbFlM/w2x8uXEzNgwJjc1QbN
Tem8RPQIzSsTU+eUtoOzjpbMJzr9xuBSMz59nb5dqL3eKo2rfcFe/Af96Pxp
036GXvafG+wF40ZHZnNo9ONjfcEN9unIXj/pNI29YD2Y39L+PeKdVhhDe4Nh
+GhPsJWz3940DcYOr8xbWtq3b2sau4ZVxshnC/O4W+R5d96c2CcmTs29fdj0
nusbxiMwAWwAM8D7YzhLy/4N/vyx3br4trTd2KMn3It33DNvPSP4c0z4h0YP
+7Af9hAPYDGYCbYfUdinmEeEfrTTcc29gzenB2e411mJX3D46ML4C55DE+Os
Rw/3j5+ubrevDsqxL/61s+lcuSd81rIOO7jHnxeOhyMr55MFeZuu5FTORT4g
LwxIZorkLyr8FssTD78ujUnkM3BpQmE57uGA2rn4A/0e3uEcAP5PjB5kx4g/
TGu3N4213AOYTL7DFtbfoW8ndfictxX2QfAMH0Jmb25qOvb7k9NuiH/ib8Qe
ela2+z24K96nL/fM2+Gf+MmxpXP5WbXrDfj4InNPsS9O+xIjUyU3IBv26H6e
0FihNT+qjEkdncZf/Lon/v9+/A3cw+dmJmcxzwp/SPyM++d8vbH/vNp5h/wD
jsDnDqZpns7b6dulpWPjMsm+3vT7kuvn5E44+2Wl4+2q2r4wJ7XHxeLPE79X
/EtCd1XGhRHxme+Iv1r8E8Q/s/SdXyj5C0pjKZjaWTsPkg/PD/+NxPKOTtt3
RW36cs1/lq5dkr++8rcp8bHnSvvwQ5XvpD8xPky8wzrsS8zDQ3eHBtvbpHex
9BPAfcE0/OH50nh9VmWM7oq/sQZd3NUZ4l1QOAcxT9Y4s2lch+Y7NSP6wQz8
f2dqOc69JDFEvuqOPZ+qjJHjNU/udI4nv2/W70tYJ52LRT8n+VWF8wg1K/sy
HxWa/IMMbwse3JW8T65+ocM++zWd+ePiD5TOq+jnzCs1Phscw4+wg3qG3Dk5
9pB/L8h5b6qdA0ZQE9a24bHSuQn9fGP/hbGBWniFxnHBnEmpDYj3SXnTF0r7
6arSMU/OxZ/eLxwPjdJYRPyD19gMRmA3uYUcwz2Sp1k7r3DMgc/g8X7UiuJ/
rPabUH+DZawjL52X2uPu4Bt5bUNyXH/yQFdyInrAZ+qdSvSL4t1Xmf5Wte9s
1Ntj4xf0DvjV2NDUQ3vruzbHKLG6X+pVaPLL5NQMgz42rtj37uNSS0wMXq5L
XpsQjN0/utDzSOka7r+l8XVi7nxwP87VHZ+nfiNWuoPL1Cjk0yul6FqNftFn
lB7QZWpX6lZ6nP8UxqoVqa93JV/+KbFMTJOLR2UNtcno9E1/paYS/bfK9mDL
xtQtyPMWd1c+C2eanHjkfldV7pFWV/a347JmfOKLWv6D9ID0gsNbri83xvfB
DrCCWHk48XJF6RxzTe0+DDwkV6wC16iz9X1oh9fiP2A9mP9R5RpqdGzuKv39
76X9GF96QzYMqZ3v96/dT5Inm6Jv6bBvUVMzuAd85nbJHCv55ZVxBD/FZvxl
avzn86VtfI13rpwPTsI3a8dOUTuHDIk/v5X34t1Oqh0PJ2ruqJ2722vnLWLp
PuleXLqOv7l278Qbv1e4Lno1b429L+bt0DGIf9OSi/DJtU37DT5DXXZK+gJq
nsG+ChwblTqHd6L/AIvoo9D3u8JvfFx8aUczMdB0D0peAX9uqb3fA6V7CN4O
DCeXk9OPEX9R5by8sPJ7Dg3mr6jso1+t7WubsnZIh2sF4m4gPfJT5b5+m/qB
Pop+ak1pLMV2agne9sW8K3i9Lfl4Wemcs7O0LdQK1MrYcmDsgXdw+MT6h7Fh
Qs6+PtjFGnwO/MeXqU+wgfW8y78LxyNxSd+Cfta1591btes4vlFXFfGfobVr
x4PTW9Gb7cidL5GudzU/U9qWHbGNO4DPfy7sPz6+sbywzx5Q2cZXYv9DyWPs
PTf934R8J+9z9pmy4zXiI5g2JThI3TM79dvLud9zUytSJ1IXk9O2xAZy5rbI
UY+gc2Tquq2x58D0duih5pmVPot3HpL+rjc053229Hm5D/o/zo8M9Qr2/7J0
T0yPTx5YXNgnwRX07I78ytr+NqDvz1WuDc4nHkvzV6b3RQdYDY5tD5ZROx+S
+pl725KzgLWbg0uca2je/c28z95925zfOCc9InFNfG/IWvyK/wXwrfWpB8mL
rJteu+efUfu/B2KQXDMmmE//RT6hziRPLUzcfV3yTybWiLklpWOW2H22w7me
nA/+ge/khHnhUbfcV9iGSyW/PWvRwf9ta4Mz5Cv8AB+YUrs3uFoyGwrX7Pyv
0B8sBceGVq5jqWfxM3zjc7VrO9ZSd/LfFn35VeB6cJJ6H9kF8aVnBv2h9n9/
2HR27untyFHDNIt9Pf2avNFAMGeX1j1Y+C7G8d9JZYzrCcavil/ynwF9BffL
/e9JDTYv70OtPiG+AB51pY4Ai6j7WXd56VqfNdT7/MfBXc+vjFvUiMTOlPTb
vCN5m9p37/+tidm+9MH4ZU/wuTeYQP25O78fTN9B/4Hvro6PEXObgz9jK7/1
/ZL5ceE8vbh2j8EbTSrtI/g7+/E/Mf9r4NNF4o6+gf+Ml+W/FPI6/nBl6f5r
fv7Lmpm5K33EsMT+oelTybv8x8c93FO5jiMfkZO/X/q/wjvT/+En+Auxuxd3
2n1P8MjB23Ne9qDuOix9wR21a5T+2rG9NfrfS59Fv/V/5k3nIA==
         "]], 
        PolygonBox[CompressedData["
1:eJwllWto11UYx4/7337nZE6K9IW5WoRFTucl6EYXw6SgkBZLzdS5SoJoFZUJ
S92mq9RmbgltOVOEchdXbLVuEuTMmY3qVZZdXpVBpdWrLGXV58v3xQPPc77f
85zb93lOZf1jNQ1lIYQWLI+tykJomBDCvmIIR1MIJ4gfyYXQzthHpRC+wSbh
n2PSGfyWGEIjEx+GcyvcVdHYcew0+A5yzCJXDqvHXwHnUebvJR4lfhF+LISw
lhzjYOXEE8HXkG8y/jbs05w5bfgfwzlLvAv+LuJO4gH4Y+Q7Tr7FjH3L2j+B
r8b/SnvG383888H3wr8MbiW2OXmO5m4gZxfYGPzP4DfC/4X5t4Hfjv8lORfi
94MfAn8Vmw6+NRrTHrXXmzLvvQW7C35d9F50B7qLD7FN+OXs+Xty7QefQf4B
+DfgLwPfBn89cS25Msaa8r4z3Z044h5lzevxN8G/hHzXMTYT/H5sM/7X2INg
U/U+8pk/BX8n+CDxGnKuA6/VnnLm1IA1s6ce3R12mnhB5rftwZqZfzU2CPYc
a87Df5P5D+E3k/935lZEv80R7F3iX6Pv8hjxaLTJvxytHcHvSOaeJP8Qa92b
fPa/mLMUf4Cx74i74bxEvCTzW+mOlhNXEF9BfAF7eJp4O3FfzppsJX+17itv
DUgLX2B7yqwRaaWJOdOYe5g5W4ifj77LPOu/EK1RaXWQ860kd3vmtWaC94E/
m8x9h/M04p8DP8b8m7HZ0iZj9UVrej9rz2VsEdg69jMHvzv6bOOMjRAvwzbm
/OYrmHuq5Fq6k3gl3Iuj70qan6b6SNbi54y9ofcjnl60Jl4jHs2M1bC/9eTq
Ys4U9nuV3p/4PPjdBWugTXeD3UPcAp7gDoE/UXRPeA+sjnxD+D/DH8YfV42x
vw7mTIA7iDXA72PsbvC/sRHWvgP8MNwMvBeskzjiJ+xkmfcwEX8kmquaO4Sf
S9bKTuI8fkheSzWqWlWPUq/SnrS3tcQXElexv0riRjgXFXxmnX1xcm2opy0C
3wFenfedLyVuKvmuroTfG51DuVQzf+IXo99aPaiE/x/WXvAd6C6GsPnE87BB
/GLy3qW5Av4f5KgP5rwNfgCrKnhMmGpOtaeesIG9zE6u9feJq/EXJNfuHNaf
Abctc21u4fw/wL+WfMN518A1+GfAH89b4xuTNSftSaOv498SrT29+Rj+P5lr
QW+mt+vHXimzhqXll5PfXjV5AGwra+6DWwveCzZccq+RBqQFjQlTDd5I/p6S
e596hnrHQay1aE3Mje4p6i0aEyaNSqs6Uxf+btasKFrj0nqV7jDnN+7En5ys
Le2pHP8s/E+C57QQv0X8Y849vAP+pdF/m8Yq8T+A01z0H6e/7r7Mta8aUC0s
Se5NB+FvL7nGVev6U1rBJiX/NdK0tL08818gjdQl9wz1Dr15f7RGpBVptiNz
TuVWj50f/Ufpr9IZ9oD/hi0MPvOpzG+ut9efor9lVrJWxJkKfqLk3qwz6WxP
JWtbPfNJ/AeS/2b9GauT/2D9xc9g/2buAeoF0pC09D8V8hRb
         "]]}]}, 
     {RGBColor[1., 0.8824340485842244, 0.6233138410954208], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNl1lsVVUUho+39/SeczTgALSYaKQWaAUVMA7RGIeI0BpfaEnUMBgTmURx
tqjQFqNGpbRgnYgJ6As+qA+AEohxwEQe1Eh5URFCxAdIGDRUaMFK/D/Xb+rD
zl5n373XXsO//rXvuAeWzXqklCTJonOSpErzuEqSXKYxX4u3aL5V4xrJUy1P
0fg2T5LPyvrW3KTvmRrn6/yAFAxpfJnEPs4/rfUWrz8jeZp0/SX5C+054jvQ
f5n1cO9Pmjdr3l4kyT7JOyTvKMIG9KJjtnRMk3xScoPmZo2J/p7qPdg79X/2
T7M8ohI2YBvzFNs5RT4N6vsH2faC5katn9D+K6rDN/ziLtYJ2kzHCt9P6/t3
7Vni+bjlY5a/19maLEkulXylfFmcJsmoNPY26967NJaWhs8stl/4NLEUdjRY
Jkd1GuslbymFTNywvakccWZtnNfXOL4Nlplrk1gb5/VT+FOOnKC30ftWWR4r
nb9kYetezUc1363RX4rYNzgm2NteCjuJ2aDz3uQcsadNfp9QTCdIPqMxpxx5
A1O1GnuqIi/kaZbmAd33lewthLc6/T5eo0nrX+v7MXKWRe42OH8zpPtOjU36
HkpDD/kd0B0ttoG51TI+4At+kvs+6didhM2txiUYqK3Eb5uVvw7N92VhL+t7
bO9I2/x3GjL3c77FuahKw65LHJsB442YrSxFTMAKmHlD/n2jvRurAu836Xub
vjflw7VEHXH/WNtwvX7bqj035IH3qa6JW12PYB2MNBtvk6rjLP4RX+K8Qd+V
NGJ7M77Izz1aX63f97seu7S2V79vKQcGyXuTa+HtPHycrPkVjWrp6iiihjmL
jrPWiW5i2VkOnqDmqf2ftWeezh7U+lHJ/dWBGbDzp36/U+uHNZ/VmC75kOa+
NOI12zUNhohRs/TsAjOaB0shYzM4GmkszZMdL2r+Rvf34J8x32q/wMnocuwh
5vdr/8uSdxVRI52ulwPa87lGn/ZcrrleY3Upzr3ksxfIzjHl4fPM87Owa69t
A1fUA/l4R/dfq7mtEvn/VKNV3xensYe8s7ZPY3oSPnHvCDBNTbtOF+UhL8zj
N+y7Tvvv0d2fa+6R/t+09qvGilLY22Gb4Tw4kTgsTWMfexZQy+X4jToEM6ez
wDJ6zk1iPmiZmNc5Jq+Xwgbkrc4FflK7I20/+SB2c11rNeWoQe65vSrwWe+z
6Nkge7qqgy8flp/HwXke9Y0Mdqi9Efa925yIL+s01mp0lKJfDZi74ObBcnAV
tv+lMSGJecjy/eWobXQTC2IC3yzU2h+uYeoNPKITnofj4SV+Yw8cPMM1PzMP
X6kdfHxR3yXJa7Lwdbz9Rd5qDLe7DqlBagC99LveStTpddJxoznkJvMEOjkL
Bse4BnengWPi26Z9J+kpmlfkEYfnbdvN5kni1Gcee02/ZTr/quZH8/BrWR61
Qz3CjfhUY2zXmPORZ6dxFl54Io8YPp4Hv9U678eM0fnmlYrjg+/wA31ncR79
aYnmJzX6JT9lPpztmPztPOI7fQ8f6eHEgNy3GPstxj8YxIdZ7k3IrC+X3lOS
nwVr0v+jdHxchK34Rnzg11pzLDE9YH6gP9An0AmX9ZhzqJ1uY7LL6xO1f2Ul
6v4Y/TAPXTs197qWVrvPg2cwcHkaeAafXcY2+rtl32TZ8lEW/I8Mhwz43cX7
K6sKmXfCoN8Z9K+rdXa79F5VBOetc70QY/aBeXiIPbx1wCf1TF03mofW+w2z
3pxJ/29NIzfkHxzAoTW6433JtUVwyErHpNN3Yhs+7vD3BPdQeIY84AN7HtKe
JWn4810ed22sREx6S8Nc1Os4w0l8ww9r7SNxo9bHpxFPMEf8yeNyrT2bBvZ2
ZsHL7+ZRc43m87nuL1keuKsz9tY6x+isNyfDTb1exx72dtnOTY4ne8DdYr8h
qUHwBe7IKfKXxt4k53fINc46PIV/9Avi0ef4t5jzwDZ8xHuQegGrI/yeIdeL
0sj3h/JrmvS/XkQPf9k6wDV76SvEnfiTC+Y1zt2FRfD1BZrfyQMjz/l93eC3
N/39kGsA7qZOGs3Z3cY5sUcP+4dKkfsO80G7ccHbkHcPby5sABMrrGeJZeI6
w1g9nEdez3N+2yx3WD/2w9/4CIejb6n1UP/s+aASeGy3nbxhlhsn3cYq62/l
8V/gzTxyicz7r9Xvxpl+cw3ZrwbXADaQh12uPXIFh9Fbbs+C41bl0b/oXfSf
jWm8nf57Q511TMnXWXMRNTfHZ8AL7xUww/vxiHsWtdvvXMwt4uy9Wdg7YK64
2/ewZ5/seFB79udx71zf3eV+Qd9o8zsHLGyrBP/y1iaP/eZ24tfvdyB1RX1h
y9EsevCRLPgRnuysBAexDt7xCYyfdCyY6cfvpdEDwDs985Qxjx+D9qXRcYIH
qMU69/3OPHjhtix0nHYe7iiij04vop/zDtjo/2fcTY3xTuAO3lTNfmfSv8+U
hm38xO9M3pv1afAd98JD9ZaPOOfkBdwc83/PTeYSfOf/4BZz727zF9wFh4A5
7G4vog/zfwte4q4O8zlxhCv+e3P3GPvUADXO75d4D7md7vyC01WO2+giYj2m
iJqlXskpuPj3zWR5gb97XPtwIG+6B30GvplkfruoCEyPKiJHq1wf63z3WPfB
eveJfwAKcCI8
         "]], PolygonBox[CompressedData["
1:eJwllElsjmEQx5/0e9vvfV6nUioOEsJB1JImajlpo9oSl6YHBBVBWy2109bS
SkoIJak1adIi6IELtQtaWywHXETV2oMmSsTSxRa/f+Ywyfxn5pmZZ7YRS8rz
VyU455ZCAXQv7txsmFnQq9C5+si59CTnbqNrAa/wznWj+86j5fDpyPJiziUk
OlcLvsP7Yvjv2KwHt4Lz4BuhkeAn4DmB+SgBv4XKsC+F3sB/xN8CdCfAqcRu
Dy0X+ZCvA+AYusXyAX+YNyngEugu+k+h6YaTUyr8XvTPyT1Evw/eQzXoq9Ff
xj4Tmz/g35Kh2+PN9iY4C74Jm4JEy0m5nSSnHOpxBnwUfQM0DP1z/DWjb4Di
4CRot7eaqXbJ4HrwS/ydp3ZhTEk51wYuQncffznob4BnwjchG0Ss2+Bc8HHw
YHAXbxYGZiPbutBq3wKezPvryLIDs5HtGWSX4QsItw3dIfCXmNXsCPw+bK6R
zyjwKfBpaHSi1aQG/hZvdmJfCy3Cdgeyv4H1XL3vRv8B/F4x0U2FLgUWcxr8
AnL+q3oSfy72yeBGcCX0iLcZ2FzAth2a5E0mXQXUBW4GvyC/P1Bf3HqsXvdg
X4G+DcoilzXgO95yUC6d0Oe49VS9Vc5ZxK9CNslZD9XLNG+91ExpttQT9UYx
v8QtpmKrRh3whd58a2Y1u6+hZZot/C2Dr8Pn2CTbmbP4mq6eBjYjbeAt4L7A
dky7VohsV8xmUrOZ620WnmGfCT8uslm+Cp4AP8Vbr/WHY7wfH5muA9k7cDk0
JrCaHoxbT9Vb9VS9nR/a7Kun6m0Vsl8JltNWbzEVWzP/xNuf9Df1bCCxQm+z
kA9l4GtIZLPZg49V6Brx2ersz4+97YR2Iw0f+7HtD61X2hHtim6IbsknZMXw
G6F+8E/wZvgibzr9SX/b5E2nndBu6M/6u2ZOs9cJfgv/FP8ziJcdGa8ZafU2
Y5q1B7px3nZSu6keXCSfDmiAs5lehO5caLmrp+qt/qy//+PNQvBabL5huxx8
hdhrwL0JJlvn7Ybolign5bbB222UjWzzvOWim6nbmRLZ7v9AX4quOrJboppu
j+yG6pZOhB6SS6W3XVDNVDvdUN1S3Zhe/M0LLVftoHaxTPsf2A3WLVYMxZJs
JXw59DWwm6TbpJ6qt5Kthh8a2W3WzGh29Gf9XTvQAf4PZubmtw==
         "]]}]}, 
     {RGBColor[1., 0.95, 0.75], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkckuRFEQhsuU7nNjQxuXvIAN9laGpScQibF1X/PUbCytDbGQeAYLJEiM
C4IHMKw1iYhEYuv7U2dRqa+r61T996+24XSwWGlmHUQVUZ+YfVSbjQSzPPEF
N1Brh48rzC4zZmV4j0f38AN8Tk8PeYA4hLvIJ/y3Qf8sfAV30p/C20SuxuyR
XVvUW8kpeZ36H29Lwedqfl3iszSzO/huaXjOshfep2eK+gV8RH0puA7p6SPf
Ui/QswbfwHl4B76Gh+B+eDfqka7e4Dql94zYZGaZXSvB32rGO7+f0HwAz1D/
YdcCeZT4hCfJi8QvvEpuTrxf78Zjj3pzic/Xnrusf5c8bkz8W/RNafRnjHoh
3kI3qTX3R3dYjru0cyK4J/JG99Md38jTxDdcJM9FzdJeip63sHM+uCfy5iXr
vsm/1+B31D3lhTSfZnyWZjbx9h9EE1Q7
         "]], PolygonBox[CompressedData["
1:eJwljztOQlEURbfmGT12+h6/kjkYpyBYOgJCw/cJQY2fYENpbTQUJIzBAipm
QByAwAAkMYSEhNZ1c4qTrL33vSf7FKudm9tDSQkTMSWTZsAF5hV8yXyhC2Tv
x9LZqTQk+8U7hz/IW+j4SPqEV+bZ4EBawglv/tBv6Bh+wNuiK/y5h7N4G/SE
PAP/nEhTOCVfwE3erMlH6AZcM+8SvDr8wuwi7/AMl813h87X8JjO3/Kb5ui2
+a7QKYU75reGDl340bxL2PkE98xvCZ3v4Dwd95HvzMF9867Be4X/AUThLms=

         "]]}]}}, {{}, 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], 
        LineBox[{12, 2536, 1994, 2577, 2578, 2405, 2525, 2524, 1976, 2418, 
         2419, 2417, 2421, 2420, 1987, 2377, 2378, 2357, 2358, 1940, 1903, 
         2407, 2408, 2406, 2410, 2409, 1996, 2412, 2413, 2411, 2580, 2579, 
         1980, 2280, 1979}], 
        LineBox[{205, 2453, 2455, 2454, 1988, 2425, 2426, 2422, 2424, 2423, 
         1984, 2581, 2582, 2414, 2416, 2415, 1986, 2375, 2376, 2369, 2508, 
         1952, 2279, 2583, 2584, 2427, 2429, 2428, 1989, 2267, 2266, 1985, 
         2338, 2249}]},
       "300"],
      Annotation[#, 300, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], 
        LineBox[{1921, 2285, 1918, 2471, 2363, 2362, 2361, 2016, 2606, 2607, 
         2605, 2071, 2283, 2284, 2192, 2348, 2456, 2723, 1915, 2457, 1912, 
         1945, 2360, 2359, 2190, 2437, 2098, 2434, 2114, 2432, 2113, 2433, 
         2470, 2469, 2189, 2013, 2746, 2012, 2040, 1960, 2734, 2030, 2048, 
         2009, 2745, 2008, 2039, 2526, 2527, 2399, 2029, 2397, 2028, 2398, 
         2268}], LineBox[{1936, 2136, 2652, 2137, 2653, 2102, 2312, 2141, 
         2758, 2142, 1983, 2138, 2738, 1975, 2313, 2143, 2759, 2144, 2229, 
         2451, 2228, 2707, 2220, 2702, 2221, 2703, 2216, 2460, 2242, 2368, 
         2507, 1951, 2314, 2295, 2687, 2688, 2441, 2204, 2297, 2296, 2499, 
         2498, 2497, 2629, 2628, 2019, 2370, 2442, 2443, 2445, 2444, 2301, 
         2302}]},
       "200"],
      Annotation[#, 200, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwVz70ug2EYxvHb4m2rPiYGIunchCqrg1AtyuYA9ABYfIuEpJ3QlC4GTEgt
Fg5CnYfEwtLfO/zzv6/rfp73yVvYblR2hiKijlYS8ZSLWMhElHCPR7mp/zfP
4Vju8hHf8R8OzB3e51s+5CKfZiPOcII93S5+9cNygk/zDX9wm2fx5q2Wcy+6
Jr/yjH4aV+a+7prXsGle5y2ucp1r6Y430h0ufW/R3SWU8Z7+H5fQt8vIWSSY
wDh+9B2c40FednYeX/KoPIYc8hjBhb7GFW9XeZWnnJ9Ez+5Zt6L7Ng8A0Bor
Xw==
         "]], LineBox[CompressedData["
1:eJwVzb0uA2AUxvFT3yzcgEYlXIaPBBNtYq2hLTNDfXSR2CWi1UjcgGpLVDsb
20XC7BJq4QbQX4d//nmec877pgpHu4eJiMhiaSpibSZimdd5kUtc5TO+4R+k
cCpX+GU6oo0OvuVHbqKBsnxiL8lFPsaDvo6LyYg7+Zx75jVc6e/5Uj8/fMes
ws+6MreGf/MCXs0+5U2k7W9xhjf4gPc4z/so4Bo5d3lk8O4+zR88bjaBEYxh
FEX9Lbp2evhCH2+6ME/gV/7HH3Jy1p87vMLbvMpzZrOouXvSNXVdDACrWDBk

         "]]},
       "100"],
      Annotation[#, 100, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0TFIlWEUh/FXIcrIZm2JUEiMpoqEyqAhTW3RKYiiq1kaeNMltYZSqUzB
TRxaJAgLsUG5armpqYOWXBOqpSKzMjA1qDZ/7/DwnP85532/7373QCJZ2ZAR
Qkihe2cIW7tC6OSJrBBeoXV3CC0o1M+RczGpzuMZnkU3xuRRpFAgn3HmIG/i
Edr1u7iDX7v/tHm+XMx5vIEdZo/NBvWOxfdAk/ohfzH7jE/Yp5eLtN1KeYmr
eBlP1Hv4XewjjRPO92LAmQfm//S+81/+wf+5wSyJdntL3MF30Ya0fI/v2x3j
D/I4J9GIefkmD8XvF7+d/Id/47C7qzGCBGrNruEq6nAdNc7WYi72edC5RPy2
cjVfwSjeyyleQQveyq3cjDtYlG/zDa7HluetuGuDv/Iml5pPm53jovjuegt4
g2fxvzTrt7usLsFz9U/uwVFMmR/hDPuZOK4+q1eKEtyy34cZs1n8whrm9c7H
Z/ALe+s8jv16L3lYb8hdH9UX9MpRgUIcQpP+Rb5k7zLKcdJ+GZ/ivWbZeGrv
G6/G3445eRtWGG2Q
         "]], LineBox[CompressedData["
1:eJwV0j1IlWEYh/FHDNSaslzahByCyrmIHIxAsFL7MGyLIM38TG3KoPKjImrQ
DIUglQQh0DyRWUcdmkoqD0SpJeZgkJNQDibU7xkurvt/3/fzvO95Obnn68pq
00IICYSsEP5lhtCxNYROtOMObiNffxBf1QO8iSf4IvfzPqxj2h1T6FO3mu3l
a9zLSf1J3M8I4bd8lx+jQO8wltXneAKFzuyxcyTuY1EeNH+gHo7vEZ+N3fJV
fo0FOxP8V++X3Q1e5U2uN2uIv8n8M3dwG6bwXZ7kFVzBB7mJG9GCj3IzP3fX
HyTldU5hv7u78AJtcrfZQ3ThEXpw2dlazKhr+Jm9S/xeruaLqMI7uZJvmb/h
b3Iyfj9cR0pu5Zp4Z3wHz/wZvyWvxHfjmzxk1m3vID7pzSKFbeg3L+Tj8Rvy
HEb17jkzwtnyDrw1z+NjvJ3TsQUH5CK7pShBsdzn3A08lQ/ZKUVJfK7eS72j
6jH1iHqNe5zZFf8L6oTeqPxDXaFXjrM4hTM4jQvoND9p94TdsvhsztHfiYTZ
PC/gFZbMx/EfLjNuvg==
         "]]},
       "0"],
      Annotation[#, 0, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwNzk1KglEchfF/I7WJBRaGiR/VEkothUCa1MwltICcOYjItWQ6LJvYAmpQ
UISV0jBIl9HXb/DwnHPuvS9v6bjdOlmIiBYeEhGzVMQjz3nAXf7hc/7m52TE
E0qLEX96gX+5yPv2vnuX6CGhl+0vvMUp3uAkb3KTO95eyGl5jGXc6Uv8hVPn
PT0jv2IV9/oKz3DmvK9n5TdU5Cq2sabv8CF33RvIOfkde3Kea7zOu3zEQ/99
jSsU9Lp9wlPc2Bp6UT6Qh775wbe2sfzJI/wDjH0rpQ==
         "]]},
       RowBox[{"-", "100"}]],
      Annotation[#, -100, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], 
        LineBox[{2074, 2286, 2276, 2609, 2610, 2608, 2612, 2611, 2506, 2505, 
         2544, 2543, 1913, 1946, 2066, 2602, 2604, 2603, 2015, 2062, 2720, 
         1909, 1943, 2060, 2753, 2061, 2014, 2054, 2718, 1905, 1941, 2052, 
         2752, 2053, 2010, 2043, 2714, 1901, 1939, 2589, 2541, 2542, 2500, 
         2590, 2715, 2716, 2464, 2465, 1902, 2270, 2345, 2344}]},
       RowBox[{"-", "200"}]],
      Annotation[#, -200, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], 
        LineBox[{2067, 2281, 2273, 2599, 2059, 2598, 2601, 2600, 2255, 2058, 
         2719, 1908, 2272, 2050, 2751, 2051, 2253, 2049, 2717, 1904, 2271, 
         2041, 2750, 2042, 2250, 2587, 2588, 2461, 2462, 2463, 2269, 2343, 
         2342}]},
       RowBox[{"-", "300"}]],
      Annotation[#, -300, "Tooltip"]& ], {}, {}}}],
  AspectRatio->1,
  DisplayFunction->Identity,
  Frame->True,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic},
  PlotRange->{{-5, 5}, {-5, 5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.577383431214679*^9, 
  3.6585323826185007`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
[encoded data, 21960 characters]
yv8LgP/9XJCFVHwQ73wa+sl/AVmBVBU=\
\>"],ExpressionUUID->"ba640061-3476-4f31-81da-02378cb1f170"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{740, 867},
WindowMargins->{{13, Automatic}, {Automatic, 31}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 27, \
2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 215, 4, 64, "Section", "ExpressionUUID" -> \
"7e6e1786-5169-4b38-b8e4-a3b61387a49f"],
Cell[CellGroupData[{
Cell[819, 30, 225, 5, 44, "Subsection", "ExpressionUUID" -> \
"aaed08de-acb3-4136-bc29-dba01c2fd117"],
Cell[1047, 37, 1069, 27, 51, "Text", "ExpressionUUID" -> \
"3529f5e8-4a92-4084-ab02-0c58b5fdbc72"],
Cell[CellGroupData[{
Cell[2141, 68, 794, 23, 96, "Input", "ExpressionUUID" -> \
"261a8a5f-0aaa-402b-bd2d-a736adf36b09"],
Cell[2938, 93, 6589, 120, 234, "Output", "ExpressionUUID" -> \
"48d1b7df-b8ff-4a44-a35c-59e1a288ca5f"],
Cell[9530, 215, 2950, 61, 234, "Output", "ExpressionUUID" -> \
"8245ab19-99fe-4234-b2a2-725076035787"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12517, 281, 894, 25, 75, "Input", "ExpressionUUID" -> \
"32b198df-d545-483c-b423-2edb50297515"],
Cell[13414, 308, 470, 11, 32, "Output", "ExpressionUUID" -> \
"115ab649-f6c1-4d69-88e6-a8df107a5368"],
Cell[13887, 321, 452, 10, 32, "Output", "ExpressionUUID" -> \
"c09bd9b8-d3b1-42ab-97d3-1b4186c7fbab"],
Cell[14342, 333, 406, 8, 32, "Output", "ExpressionUUID" -> \
"595fbf4a-8cd9-4d9d-bede-53cf9cdf7d6a"]
}, Open  ]],
Cell[14763, 344, 386, 10, 31, "Text", "ExpressionUUID" -> \
"0924fdb3-d72f-439a-a634-ac3cb4b8d48a"],
Cell[CellGroupData[{
Cell[15174, 358, 276, 7, 54, "Input", "ExpressionUUID" -> \
"cba18a6d-ff2a-45d1-aa05-edd73aa8a725"],
Cell[15453, 367, 176, 3, 32, "Output", "ExpressionUUID" -> \
"a6d2d5b3-3d31-44cc-98e1-1ca336ef84f4"],
Cell[15632, 372, 194, 4, 32, "Output", "ExpressionUUID" -> \
"621f08a6-b530-4304-96c4-95d77b2f1046"]
}, Open  ]],
Cell[15841, 379, 480, 10, 106, "Text", "ExpressionUUID" -> \
"16547742-c6c8-45cd-aa77-9782343361cf"],
Cell[16324, 391, 188, 3, 37, "Text", "ExpressionUUID" -> \
"3e00b03e-23c4-4123-87cf-58b934a05e77"],
Cell[16515, 396, 881, 22, 72, "Text", "ExpressionUUID" -> \
"155ae62e-b602-42ac-8670-a2e3bb92bc7e"],
Cell[CellGroupData[{
Cell[17421, 422, 872, 24, 54, "Input", "ExpressionUUID" -> \
"3347ba6b-1a76-469a-ad20-71d2581a6d93"],
Cell[18296, 448, 9718, 169, 250, "Output", "ExpressionUUID" -> \
"88339d6e-a7de-4f44-87e6-9dfa48284fa9"]
}, Open  ]],
Cell[28029, 620, 198, 5, 32, "Input", "ExpressionUUID" -> \
"611123cb-5848-4536-a20c-8a38d537d9fb"],
Cell[CellGroupData[{
Cell[28252, 629, 317, 9, 32, "Input", "ExpressionUUID" -> \
"c5685bef-1e6f-418a-afa4-899f713d7194"],
Cell[28572, 640, 13065, 226, 234, "Output", "ExpressionUUID" -> \
"dc4fd737-660c-4eb9-94e2-a6c7694cc512"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41674, 871, 527, 15, 35, "Input", "ExpressionUUID" -> \
"7aba6c7f-a242-445e-a2d9-695ed6b886b0"],
Cell[42204, 888, 323, 7, 32, "Output", "ExpressionUUID" -> \
"0da2782f-cec3-4175-859e-1b0e392e0887"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42564, 900, 480, 14, 35, "Input", "ExpressionUUID" -> \
"0faa76ed-cdaa-49c5-b944-d71d57354d5d"],
Cell[43047, 916, 222, 5, 32, "Output", "ExpressionUUID" -> \
"81dd2b63-7519-415c-ad5c-6983b198eb81"]
}, Open  ]],
Cell[43284, 924, 235, 6, 54, "Input", "ExpressionUUID" -> \
"c354e268-6653-466d-8287-a0edd6d04b2f"],
Cell[CellGroupData[{
Cell[43544, 934, 295, 9, 32, "Input", "ExpressionUUID" -> \
"ff71890c-dbad-4544-9153-1c5da53f5c5e"],
Cell[43842, 945, 11225, 197, 232, "Output", "ExpressionUUID" -> \
"093bdbb9-d989-4f70-955a-2c8717bb2934"]
}, Open  ]],
Cell[55082, 1145, 849, 24, 73, "Text", "ExpressionUUID" -> \
"ac316379-2681-47fc-89f6-613874859dcf"],
Cell[CellGroupData[{
Cell[55956, 1173, 299, 9, 32, "Input", "ExpressionUUID" -> \
"e1510eaf-25f3-4000-abff-8d79fb4098e6"],
Cell[56258, 1184, 323, 9, 35, "Output", "ExpressionUUID" -> \
"8bca309f-0d96-4769-b888-136af6a551e2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56618, 1198, 139, 2, 32, "Input", "ExpressionUUID" -> \
"5c6d44ef-d9d2-466f-8da9-937732be247d"],
Cell[56760, 1202, 323, 10, 35, "Output", "ExpressionUUID" -> \
"d69ef2d5-1be4-45b5-8155-f5f3a21c4bbe"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57120, 1217, 1019, 28, 102, "Input", "ExpressionUUID" -> \
"2b43430d-5e3a-4a15-b883-067b47e1ec4a"],
Cell[58142, 1247, 1798, 37, 325, "Output", "ExpressionUUID" -> \
"7ad17ed3-f04e-4060-9847-e826a054d1cd"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[59989, 1290, 273, 6, 44, "Subsection", "ExpressionUUID" -> \
"9134851f-c255-4221-aa5d-421f3158e78a"],
Cell[60265, 1298, 813, 24, 58, "Text", "ExpressionUUID" -> \
"8e070635-8471-49fc-af2d-0257a5f3a265"],
Cell[CellGroupData[{
Cell[61103, 1326, 1368, 44, 171, "Input", "ExpressionUUID" -> \
"788d311c-f03f-4b43-b948-375389326797"],
Cell[62474, 1372, 810, 28, 60, "Output", "ExpressionUUID" -> \
"7321675c-6d6f-4b99-ae15-708fc0a21cef"],
Cell[63287, 1402, 808, 28, 60, "Output", "ExpressionUUID" -> \
"f85f14ad-eba6-42c0-b1d9-e890f0e09607"],
Cell[64098, 1432, 1943, 69, 113, "Output", "ExpressionUUID" -> \
"2f526ff9-4efc-496f-a097-1aa097063d4f"]
}, Open  ]],
Cell[66056, 1504, 282, 6, 68, "Text", "ExpressionUUID" -> \
"29254197-9a0f-4525-bb4d-d936cabb2487"],
Cell[CellGroupData[{
Cell[66363, 1514, 549, 16, 54, "Input", "ExpressionUUID" -> \
"55173b11-0d7d-4376-8390-2f0b3b668608"],
Cell[66915, 1532, 165, 4, 32, "Output", "ExpressionUUID" -> \
"f9fd31b2-dae6-420b-865f-53077d777246"],
Cell[67083, 1538, 151, 3, 32, "Output", "ExpressionUUID" -> \
"7e5b5f0c-ee6f-4d2f-a01d-75b7a4c3589f"]
}, Open  ]],
Cell[67249, 1544, 237, 4, 49, "Text", "ExpressionUUID" -> \
"a8455c38-e705-47d0-a6fd-3eee2598474a"],
Cell[CellGroupData[{
Cell[67511, 1552, 544, 16, 96, "Input", "ExpressionUUID" -> \
"eefae5c2-9770-4bb5-948e-1382067ba397"],
Cell[68058, 1570, 261, 8, 32, "Output", "ExpressionUUID" -> \
"91e5afdc-6dd2-4594-9de7-dc632e431914"]
}, Open  ]],
Cell[68334, 1581, 174, 3, 49, "Text", "ExpressionUUID" -> \
"e48aa131-6afb-4dca-b19b-878f21a16918"],
Cell[CellGroupData[{
Cell[68533, 1588, 1236, 39, 75, "Input", "ExpressionUUID" -> \
"21e7d3f1-2ade-4700-a163-2b174fb36be0"],
Cell[69772, 1629, 173737, 2857, 295, "Output", "ExpressionUUID" -> \
"99ff2cf5-37f9-401c-9818-ac9822d46284"],
Cell[243512, 4488, 183812, 3026, 293, "Output", "ExpressionUUID" -> \
"b52f2b4c-9943-4a36-9f54-c392da292bc9"],
Cell[427327, 7516, 470956, 7772, 376, 400536, 6617, "CachedBoxData", \
"BoxData", "Output", "ExpressionUUID" -> \
"bf1e5989-a2ec-4d03-b21d-d331e2c7240c"]
}, Open  ]],
Cell[898298, 15291, 239, 4, 37, "Text", "ExpressionUUID" -> \
"9d73db2f-eb35-4236-878a-7040cae4ea37"],
Cell[898540, 15297, 1499, 35, 91, "Text", "ExpressionUUID" -> \
"9db92db2-9653-4c37-a22a-abdd245080ad"],
Cell[900042, 15334, 321, 10, 32, "Input", "ExpressionUUID" -> \
"5d849287-b182-49db-89f4-75b9dec93595"],
Cell[CellGroupData[{
Cell[900388, 15348, 398, 12, 54, "Input", "ExpressionUUID" -> \
"ebf5302b-b5cf-441e-b776-3ad892c80fc7"],
Cell[900789, 15362, 248, 7, 32, "Output", "ExpressionUUID" -> \
"90d465c8-48b3-463b-bb39-49651c0a13e1"],
Cell[901040, 15371, 267, 8, 32, "Output", "ExpressionUUID" -> \
"0c68b00f-3e44-46ee-ba63-8b1c5bca3341"]
}, Open  ]],
Cell[CellGroupData[{
Cell[901344, 15384, 636, 21, 32, "Input", "ExpressionUUID" -> \
"6511e6e1-3bd5-44f4-a567-63bfedfe289b"],
Cell[901983, 15407, 1271, 43, 58, "Output", "ExpressionUUID" -> \
"e7a63fea-fbce-4b15-8f0b-b556bc14de9c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[903291, 15455, 1218, 33, 75, "Input", "ExpressionUUID" -> \
"accaa303-8192-4d88-8e1a-dc679a2980e7"],
Cell[904512, 15490, 114225, 1862, 349, "Output", "ExpressionUUID" -> \
"f88416e6-4297-451a-be9e-d4d20dfc0642"],
Cell[1018740, 17354, 116059, 1960, 376, 83809, 1432, "CachedBoxData", \
"BoxData", "Output", "ExpressionUUID" -> \
"40cba2a0-683d-4374-acbd-e0cd898b262e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1134836, 19319, 1278, 37, 75, "Input", "ExpressionUUID" -> \
"86c93661-346e-4569-a49b-b9ce54ce9928"],
Cell[1136117, 19358, 457, 12, 32, "Output", "ExpressionUUID" -> \
"25648a5b-bd7e-4b61-99e2-4742ceb90e69"],
Cell[1136577, 19372, 461, 12, 32, "Output", "ExpressionUUID" -> \
"ac7a5221-c93f-498c-b6c2-368bf949cfc8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1137075, 19389, 1050, 32, 65, "Subsubsection", "ExpressionUUID" -> \
"91651e8c-6b19-4fc1-b041-575143ca1c84"],
Cell[1138128, 19423, 661, 22, 32, "Text", "ExpressionUUID" -> \
"d8df35c6-b298-4130-96d4-f808f002ef3f"],
Cell[CellGroupData[{
Cell[1138814, 19449, 491, 13, 54, "Input", "ExpressionUUID" -> \
"d4cfa205-95a6-40d9-9718-19492515d2d7"],
Cell[1139308, 19464, 297, 8, 32, "Output", "ExpressionUUID" -> \
"5d25f26d-d996-4a1a-9f33-ce5f7f259c98"],
Cell[1139608, 19474, 316, 9, 32, "Output", "ExpressionUUID" -> \
"15575d91-7ccf-40ad-acbe-8350af0b75ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1139961, 19488, 634, 21, 32, "Input", "ExpressionUUID" -> \
"12892615-0217-4e4c-8592-c7d69fa5431f"],
Cell[1140598, 19511, 1271, 43, 58, "Output", "ExpressionUUID" -> \
"e6909607-7eee-455b-b30f-b5c8180ffe24"]
}, Open  ]],
Cell[1141884, 19557, 804, 27, 75, "Input", "ExpressionUUID" -> \
"cdc5e684-40ff-4455-95a4-e3c8ac6d7300"],
Cell[1142691, 19586, 308, 8, 32, "Input", "ExpressionUUID" -> \
"80f2a117-7090-486c-82fa-519f73fc9fb2"],
Cell[CellGroupData[{
Cell[1143024, 19598, 157, 3, 32, "Input", "ExpressionUUID" -> \
"54d795b8-9eac-4432-a27a-3facd12ae0a4"],
Cell[1143184, 19603, 250, 6, 32, "Output", "ExpressionUUID" -> \
"9bb56438-28fa-4ee5-b83f-11d386df3157"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1143471, 19614, 505, 14, 54, "Input", "ExpressionUUID" -> \
"7f5fb016-715b-4ee3-b774-d6d647d1c5a4"],
Cell[1143979, 19630, 195, 4, 32, "Output", "ExpressionUUID" -> \
"9ffbf5c6-6f8a-4f00-9f66-62b24eafbed9"],
Cell[1144177, 19636, 176, 3, 32, "Output", "ExpressionUUID" -> \
"9b5245e7-65a3-4627-b5ac-b7aa447ba457"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1144390, 19644, 507, 14, 54, "Input", "ExpressionUUID" -> \
"f5eeb3a8-da94-4da5-8e00-cc1c6685dcae"],
Cell[1144900, 19660, 176, 3, 32, "Output", "ExpressionUUID" -> \
"dc0699eb-c72c-45b0-825b-d1056c0304d9"],
Cell[1145079, 19665, 177, 3, 32, "Output", "ExpressionUUID" -> \
"b571cebd-f54a-4690-a3e2-94cb6372ec4f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1145293, 19673, 1087, 36, 58, "Input", "ExpressionUUID" -> \
"328e2a63-f77a-45f8-a797-51ba9cb9eb61"],
Cell[1146383, 19711, 154, 3, 32, "Output", "ExpressionUUID" -> \
"3fdedd91-426f-4b2f-af1c-440ed82fc638"],
Cell[1146540, 19716, 285, 9, 32, "Output", "ExpressionUUID" -> \
"1c82ceb6-ac5d-4aa8-991b-e4984ddf2c42"]
}, Open  ]],
Cell[1146840, 19728, 154, 3, 32, "Input", "ExpressionUUID" -> \
"9864ce5a-9fd0-4d7d-ad56-7aad144250a4"],
Cell[CellGroupData[{
Cell[1147019, 19735, 1087, 36, 58, "Input", "ExpressionUUID" -> \
"b7cba54c-5248-485b-80af-6cf618811d32"],
Cell[1148109, 19773, 152, 2, 32, "Output", "ExpressionUUID" -> \
"f9f1bfbc-0584-469d-b904-44c82d2c1595"],
Cell[1148264, 19777, 269, 8, 32, "Output", "ExpressionUUID" -> \
"89f0f512-6d9f-4fea-9330-f6d244071dd9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1148570, 19790, 1097, 35, 75, "Input", "ExpressionUUID" -> \
"38642308-8d99-4816-9d67-2e498979c883"],
Cell[1149670, 19827, 126898, 2067, 139, "Output", "ExpressionUUID" -> \
"99a65fe6-3289-4a50-b52a-1e3bd5dd938b"],
Cell[1276571, 21896, 87202, 1476, 376, 65029, 1112, "CachedBoxData", \
"BoxData", "Output", "ExpressionUUID" -> \
"ba640061-3476-4f31-81da-02378cb1f170"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

