FAST3D-parabolaTest6.nb

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

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

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    271833,       5622]
NotebookOptionsPosition[    264323,       5515]
NotebookOutlinePosition[    264694,       5531]
CellTagsIndexPosition[    264651,       5528]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"hullcurve", " ", "=", " ", 
  RowBox[{"2.", "*", 
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{"x", "/", "2."}], "]"}], "^", "3"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"hull", " ", "=", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[GreaterEqual]", 
     RowBox[{"-", "10."}]}], "&&", 
    RowBox[{"x", "\[LessEqual]", "10."}], "&&", 
    RowBox[{"y", "\[GreaterEqual]", "0."}], "&&", 
    RowBox[{"y", "\[LessEqual]", "10."}], "&&", 
    RowBox[{"z", "\[GreaterEqual]", "hullcurve"}], "&&", 
    RowBox[{"z", "\[LessEqual]", "10."}]}], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hull1", "=", 
   RowBox[{"ImplicitRegion", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"z", "\[LessEqual]", "10.`"}], "&&", 
       RowBox[{"z", "\[GreaterEqual]", 
        RowBox[{"2.215384615384615`", "\[VeryThinSpace]", "+", 
         RowBox[{"1.159647461884313`", " ", 
          SuperscriptBox["x", "2."]}]}]}], "&&", 
       RowBox[{"0", "<", "y", "<", "15"}]}], ")"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hull2", "=", 
   RowBox[{"ImplicitRegion", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"y", "\[LessEqual]", "10.`"}], "&&", 
       RowBox[{"y", "\[GreaterEqual]", 
        RowBox[{"0.7538461538461538`", "\[VeryThinSpace]", "+", 
         RowBox[{"0.3102990715481003`", " ", 
          SuperscriptBox["x", "2.`"]}]}]}], "&&", 
       RowBox[{"10", "<", "z", "<", "20"}]}], ")"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hull3", "=", 
   RowBox[{"ImplicitRegion", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"z", "\[LessEqual]", "10.`"}], "&&", 
       RowBox[{"z", "\[GreaterEqual]", 
        RowBox[{"0.061538461538461535`", "\[VeryThinSpace]", "+", 
         RowBox[{"0.16809777948184113`", " ", 
          SuperscriptBox["x", "2.`"]}]}]}], "&&", 
       RowBox[{"15", "<", "y", "<", "35"}]}], ")"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hull4", "=", 
   RowBox[{"ImplicitRegion", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"y", "\[LessEqual]", "10.`"}], "&&", 
       RowBox[{"y", "\[GreaterEqual]", 
        RowBox[{"0.13846153846153844`", "\[VeryThinSpace]", "+", 
         RowBox[{"0.11225568226713982`", " ", 
          SuperscriptBox["x", "2.`"]}]}]}], "&&", 
       RowBox[{"30", "<", "z", "<", "40"}]}], ")"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hull5", "=", 
   RowBox[{"ImplicitRegion", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"z", "\[LessEqual]", "10.`"}], "&&", 
       RowBox[{"z", "\[GreaterEqual]", 
        RowBox[{"0.9846153846153846`", "\[VeryThinSpace]", "+", 
         RowBox[{"0.08302998710242387`", " ", 
          SuperscriptBox["x", "2.`"]}]}]}], "&&", 
       RowBox[{"35", "<", "y", "<", "58"}]}], ")"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"hull6", "=", 
    RowBox[{"ImplicitRegion", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"y", "\[LessEqual]", "10.`"}], "&&", 
        RowBox[{"y", "\[GreaterEqual]", 
         RowBox[{"2.6`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.06526115558326687`", " ", 
           SuperscriptBox["x", "2.`"]}]}]}], "&&", 
        RowBox[{"50", "<", "z", "<", "58"}]}], ")"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"hullreg", " ", "=", 
    RowBox[{"RegionUnion", "[", 
     RowBox[{"hull1", ",", "hull5", ",", "hull3"}], "]"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"hullreg", "=", 
  RowBox[{"ImplicitRegion", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"0", "<", "z", "<", "10"}], "&&", 
     RowBox[{
      RowBox[{"-", "5"}], "<", "x", "<", "5"}], "&&", 
     RowBox[{"0", "<", "y", "<", "58"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hullcurve", " ", "=", " ", 
   RowBox[{
    RowBox[{"2.", "/", "10."}], "*", 
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{"x", "/", "2."}], "]"}], "^", "3"}]}]}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"hull", " ", "=", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "\[GreaterEqual]", 
       RowBox[{"-", "10."}]}], "&&", 
      RowBox[{"x", "\[LessEqual]", "10."}], "&&", 
      RowBox[{"y", "\[GreaterEqual]", "0."}], "&&", 
      RowBox[{"y", "\[LessEqual]", "30."}], "&&", 
      RowBox[{"z", "\[GreaterEqual]", "hullcurve"}], "&&", 
      RowBox[{"z", "\[LessEqual]", "10."}]}], ")"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"hullreg", " ", "=", " ", 
  RowBox[{"ImplicitRegion", "[", 
   RowBox[{"hull", ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Region", "[", 
   RowBox[{"hullreg", ",", 
    RowBox[{"PlotTheme", "\[Rule]", "\"\<Scientific\>\""}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"waterdensity", " ", "=", " ", "1"}], "\[IndentingNewLine]", 
 RowBox[{"Volume", "[", "hullreg", "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.7590709082786827`*^9, 3.759070976680941*^9}, {
   3.7590710164343243`*^9, 3.759071086100382*^9}, 3.759188116258915*^9, {
   3.75918816398985*^9, 3.7591882026296964`*^9}, {3.7591882759664655`*^9, 
   3.7591882853554068`*^9}, {3.759188332776496*^9, 3.7591883396282296`*^9}, {
   3.759188374776904*^9, 3.759188376003834*^9}, {3.759188516054896*^9, 
   3.759188527537196*^9}, {3.7591887519323597`*^9, 3.759188765469929*^9}, {
   3.759188800325141*^9, 3.759188816436474*^9}, 3.7591888606400876`*^9, {
   3.759188918694499*^9, 3.759188938406581*^9}, {3.7591889842913303`*^9, 
   3.7591891330553503`*^9}, {3.7591891851592536`*^9, 3.759189211156124*^9}, {
   3.7591899694242325`*^9, 3.759189973666709*^9}, {3.759190973952363*^9, 
   3.759191033811428*^9}, {3.7591914538635054`*^9, 3.759191456949845*^9}, {
   3.7591928346226873`*^9, 3.7591928374629154`*^9}, {3.759192905840386*^9, 
   3.7591929087606525`*^9}, 3.7591929773381405`*^9, {3.7591930843332806`*^9, 
   3.759193084785929*^9}, {3.75919324958808*^9, 3.7591932831106415`*^9}, {
   3.7591933485838013`*^9, 3.759193355292145*^9}, {3.7591934156245823`*^9, 
   3.7591934493357754`*^9}, {3.7591958377415714`*^9, 
   3.7591958855074897`*^9}, {3.7591959261356907`*^9, 3.759195936437623*^9}, {
   3.759195970779643*^9, 3.7591960015091343`*^9}, {3.7591960625351934`*^9, 
   3.759196143677266*^9}, {3.759229391003462*^9, 3.759229435880909*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"2f6ff26d-771a-4b03-a8f4-d7ffe4270b88"],

Cell[BoxData[
 RowBox[{"0.25`", " ", 
  SuperscriptBox[
   RowBox[{"Abs", "[", "x", "]"}], "3"]}]], "Output",
 CellChangeTimes->{{3.759070955384362*^9, 3.759070977652513*^9}, {
   3.759071021266911*^9, 3.75907105987184*^9}, 3.7590710948405046`*^9, 
   3.759071884142231*^9, 3.7590727720663548`*^9, 3.759188120365203*^9, 
   3.759188207894758*^9, 3.759188289719022*^9, 3.7591883455011263`*^9, 
   3.7591883839906178`*^9, 3.759188530724363*^9, {3.759188754722724*^9, 
   3.7591888171367264`*^9}, {3.7591890517720194`*^9, 
   3.7591890797836294`*^9}, {3.759189133713914*^9, 3.759189159968935*^9}, {
   3.7591892115466604`*^9, 3.7591892223785925`*^9}, 3.7591899768159018`*^9, 
   3.7591901754738593`*^9, 3.7591902152142916`*^9, 3.7591903647086954`*^9, 
   3.759190466463532*^9, {3.759191036086466*^9, 3.7591910410587077`*^9}, 
   3.759191100511945*^9, 3.7591914608430557`*^9, 3.759191613308679*^9, 
   3.7591928416955366`*^9, 3.7591929119777985`*^9, 3.759193090535079*^9, {
   3.759193267218831*^9, 3.7591932917473707`*^9}, 3.7591933593193345`*^9, {
   3.7591934166276407`*^9, 3.759193456845788*^9}, 3.7591945536547327`*^9, 
   3.7591948491173277`*^9, 3.7591950772002106`*^9, 3.7591952715910254`*^9, 
   3.759195479261425*^9, {3.7591958472870445`*^9, 3.7591960020553913`*^9}, 
   3.7591960854514437`*^9, 3.759196144367815*^9, 3.7592293985840883`*^9, 
   3.759229440418913*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"8e786322-4ca6-4099-8ccb-7c163651586f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "\[GreaterEqual]", 
   RowBox[{"-", "10.`"}]}], "&&", 
  RowBox[{"x", "\[LessEqual]", "10.`"}], "&&", 
  RowBox[{"y", "\[GreaterEqual]", "0.`"}], "&&", 
  RowBox[{"y", "\[LessEqual]", "10.`"}], "&&", 
  RowBox[{"z", "\[GreaterEqual]", 
   RowBox[{"0.25`", " ", 
    SuperscriptBox[
     RowBox[{"Abs", "[", "x", "]"}], "3"]}]}], "&&", 
  RowBox[{"z", "\[LessEqual]", "10.`"}]}]], "Output",
 CellChangeTimes->{{3.759070955384362*^9, 3.759070977652513*^9}, {
   3.759071021266911*^9, 3.75907105987184*^9}, 3.7590710948405046`*^9, 
   3.759071884142231*^9, 3.7590727720663548`*^9, 3.759188120365203*^9, 
   3.759188207894758*^9, 3.759188289719022*^9, 3.7591883455011263`*^9, 
   3.7591883839906178`*^9, 3.759188530724363*^9, {3.759188754722724*^9, 
   3.7591888171367264`*^9}, {3.7591890517720194`*^9, 
   3.7591890797836294`*^9}, {3.759189133713914*^9, 3.759189159968935*^9}, {
   3.7591892115466604`*^9, 3.7591892223785925`*^9}, 3.7591899768159018`*^9, 
   3.7591901754738593`*^9, 3.7591902152142916`*^9, 3.7591903647086954`*^9, 
   3.759190466463532*^9, {3.759191036086466*^9, 3.7591910410587077`*^9}, 
   3.759191100511945*^9, 3.7591914608430557`*^9, 3.759191613308679*^9, 
   3.7591928416955366`*^9, 3.7591929119777985`*^9, 3.759193090535079*^9, {
   3.759193267218831*^9, 3.7591932917473707`*^9}, 3.7591933593193345`*^9, {
   3.7591934166276407`*^9, 3.759193456845788*^9}, 3.7591945536547327`*^9, 
   3.7591948491173277`*^9, 3.7591950772002106`*^9, 3.7591952715910254`*^9, 
   3.759195479261425*^9, {3.7591958472870445`*^9, 3.7591960020553913`*^9}, 
   3.7591960854514437`*^9, 3.759196144367815*^9, 3.7592293985840883`*^9, 
   3.759229440418913*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"a4319e93-8586-4451-aedb-309ce6d822b9"],

Cell[BoxData[
 RowBox[{"ImplicitRegion", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"0", "<", "z", "<", "10"}], "&&", 
    RowBox[{
     RowBox[{"-", "5"}], "<", "x", "<", "5"}], "&&", 
    RowBox[{"0", "<", "y", "<", "58"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]], "Output",
 CellChangeTimes->{{3.759070955384362*^9, 3.759070977652513*^9}, {
   3.759071021266911*^9, 3.75907105987184*^9}, 3.7590710948405046`*^9, 
   3.759071884142231*^9, 3.7590727720663548`*^9, 3.759188120365203*^9, 
   3.759188207894758*^9, 3.759188289719022*^9, 3.7591883455011263`*^9, 
   3.7591883839906178`*^9, 3.759188530724363*^9, {3.759188754722724*^9, 
   3.7591888171367264`*^9}, {3.7591890517720194`*^9, 
   3.7591890797836294`*^9}, {3.759189133713914*^9, 3.759189159968935*^9}, {
   3.7591892115466604`*^9, 3.7591892223785925`*^9}, 3.7591899768159018`*^9, 
   3.7591901754738593`*^9, 3.7591902152142916`*^9, 3.7591903647086954`*^9, 
   3.759190466463532*^9, {3.759191036086466*^9, 3.7591910410587077`*^9}, 
   3.759191100511945*^9, 3.7591914608430557`*^9, 3.759191613308679*^9, 
   3.7591928416955366`*^9, 3.7591929119777985`*^9, 3.759193090535079*^9, {
   3.759193267218831*^9, 3.7591932917473707`*^9}, 3.7591933593193345`*^9, {
   3.7591934166276407`*^9, 3.759193456845788*^9}, 3.7591945536547327`*^9, 
   3.7591948491173277`*^9, 3.7591950772002106`*^9, 3.7591952715910254`*^9, 
   3.759195479261425*^9, {3.7591958472870445`*^9, 3.7591960020553913`*^9}, 
   3.7591960854514437`*^9, 3.759196144367815*^9, 3.7592293985840883`*^9, 
   3.759229440418913*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"ef61e226-247e-4218-b5b4-b1080b84806d"],

Cell[BoxData[
 RowBox[{"0.025`", " ", 
  SuperscriptBox[
   RowBox[{"Abs", "[", "x", "]"}], "3"]}]], "Output",
 CellChangeTimes->{{3.759070955384362*^9, 3.759070977652513*^9}, {
   3.759071021266911*^9, 3.75907105987184*^9}, 3.7590710948405046`*^9, 
   3.759071884142231*^9, 3.7590727720663548`*^9, 3.759188120365203*^9, 
   3.759188207894758*^9, 3.759188289719022*^9, 3.7591883455011263`*^9, 
   3.7591883839906178`*^9, 3.759188530724363*^9, {3.759188754722724*^9, 
   3.7591888171367264`*^9}, {3.7591890517720194`*^9, 
   3.7591890797836294`*^9}, {3.759189133713914*^9, 3.759189159968935*^9}, {
   3.7591892115466604`*^9, 3.7591892223785925`*^9}, 3.7591899768159018`*^9, 
   3.7591901754738593`*^9, 3.7591902152142916`*^9, 3.7591903647086954`*^9, 
   3.759190466463532*^9, {3.759191036086466*^9, 3.7591910410587077`*^9}, 
   3.759191100511945*^9, 3.7591914608430557`*^9, 3.759191613308679*^9, 
   3.7591928416955366`*^9, 3.7591929119777985`*^9, 3.759193090535079*^9, {
   3.759193267218831*^9, 3.7591932917473707`*^9}, 3.7591933593193345`*^9, {
   3.7591934166276407`*^9, 3.759193456845788*^9}, 3.7591945536547327`*^9, 
   3.7591948491173277`*^9, 3.7591950772002106`*^9, 3.7591952715910254`*^9, 
   3.759195479261425*^9, {3.7591958472870445`*^9, 3.7591960020553913`*^9}, 
   3.7591960854514437`*^9, 3.759196144367815*^9, 3.7592293985840883`*^9, 
   3.759229440434538*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"c9eb769b-fbbd-4caf-a5e9-5fb8fb851f72"],

Cell[BoxData[
 RowBox[{"ImplicitRegion", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "\[GreaterEqual]", 
     RowBox[{"-", "10.`"}]}], "&&", 
    RowBox[{"x", "\[LessEqual]", "10.`"}], "&&", 
    RowBox[{"y", "\[GreaterEqual]", "0.`"}], "&&", 
    RowBox[{"y", "\[LessEqual]", "10.`"}], "&&", 
    RowBox[{"z", "\[GreaterEqual]", 
     RowBox[{"0.25`", " ", 
      SuperscriptBox[
       RowBox[{"Abs", "[", "x", "]"}], "3"]}]}], "&&", 
    RowBox[{"z", "\[LessEqual]", "10.`"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]], "Output",
 CellChangeTimes->{{3.759070955384362*^9, 3.759070977652513*^9}, {
   3.759071021266911*^9, 3.75907105987184*^9}, 3.7590710948405046`*^9, 
   3.759071884142231*^9, 3.7590727720663548`*^9, 3.759188120365203*^9, 
   3.759188207894758*^9, 3.759188289719022*^9, 3.7591883455011263`*^9, 
   3.7591883839906178`*^9, 3.759188530724363*^9, {3.759188754722724*^9, 
   3.7591888171367264`*^9}, {3.7591890517720194`*^9, 
   3.7591890797836294`*^9}, {3.759189133713914*^9, 3.759189159968935*^9}, {
   3.7591892115466604`*^9, 3.7591892223785925`*^9}, 3.7591899768159018`*^9, 
   3.7591901754738593`*^9, 3.7591902152142916`*^9, 3.7591903647086954`*^9, 
   3.759190466463532*^9, {3.759191036086466*^9, 3.7591910410587077`*^9}, 
   3.759191100511945*^9, 3.7591914608430557`*^9, 3.759191613308679*^9, 
   3.7591928416955366`*^9, 3.7591929119777985`*^9, 3.759193090535079*^9, {
   3.759193267218831*^9, 3.7591932917473707`*^9}, 3.7591933593193345`*^9, {
   3.7591934166276407`*^9, 3.759193456845788*^9}, 3.7591945536547327`*^9, 
   3.7591948491173277`*^9, 3.7591950772002106`*^9, 3.7591952715910254`*^9, 
   3.759195479261425*^9, {3.7591958472870445`*^9, 3.7591960020553913`*^9}, 
   3.7591960854514437`*^9, 3.759196144367815*^9, 3.7592293985840883`*^9, 
   3.759229440434538*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"a4c5fa1c-580a-4ec4-b716-7cd8908b3853"],

Cell[BoxData[
 Graphics3DBox[
  TagBox[
   DynamicModuleBox[{Typeset`region = HoldComplete[
     Region[
      ImplicitRegion[
       And[$CellContext`x >= -10., $CellContext`x <= 10., $CellContext`y >= 
        0., $CellContext`y <= 10., $CellContext`z >= 
        0.25 Abs[$CellContext`x]^3, $CellContext`z <= 
        10.], {$CellContext`x, $CellContext`y, $CellContext`z}], {
      AxesLabel -> {$CellContext`x, $CellContext`y, $CellContext`z}, 
       PlotTheme -> "Scientific"}]]}, 
    TagBox[GraphicsComplex3DBox[CompressedData["
1:eJx1nWvMLWdZhtfQ2e0qA0wXHxQoFHuAILEJeIgmEroKgjEKlNQfWrKJobbi
AYQEIboxKsouoKkBhARTRNMfxkOIBJCALfQDKhBporA1iqOlSDzgeABZKLCU
7dfd73rfzvU+z/en3VfuPHOvZ573uNa8c/kNL7vupgetVqvnXLhanXf03yf8
1bPeN56ct+9+4+mrbrz8ymtW5/6ecM1f3HX+H40np4aj59/Wm1v/8ve95lw8
6+HW3/uS867/xDOvaPRw659/5en7DDd6uPWHnzn/6CNe1ujh1r/oss0Hv/Dc
b2r0cOufccsjLn73Gy9t9HDrL//6o1526sxjGz3c+u7Fj/3EMy++pNHDrf/c
mcdfPlz/6EYPt/4j11xx6sytFzd6uPW3vfOJZ2695xGNHm79L1/y5KPbctDo
4dbf8Lqrju7jptHDrT/9Lz9yxxeeOzZ6uPXP/siP/fSpM0Ojh1t/4u0vvWy4
ft3o4dZ/7JU/8+lb7+kbPdz6m6999WuvurFr9HDrb7muf+mpM/ut9XDrH3b+
wz916z27Rg+3/vGv2P7kqTNzo4dbf/V7//jGU2emRg+3/vo/3X7p7NmPNvq/
/sQLP3f27G9s3V9ZD7f+xqPqvq+/IB56c+sdH+74F99/4Sa+ufWOD3f8o8Z8
rj9yfHPrHR/u+F/53e861385vjn63TF3fPSOf/25C1/axDdH/4Jj7vjoHf/o
ouf6R8c3t97x4Y5/7rYf9aeOb26948Md/76bfl//6/jm1js+3PH/9b6PddRf
O7659Y4Pd/zn3YeP+nfHN7fe8eFxez9o4ptbH/cPB0n73STtd9PEh8ftd5O0
rzFpX2MTf3fM4/Y1JvU/JPU/NPHhcf0PSX2uk/pcN/HhcX2uk/rpk/rpm/jw
uH765P52yf3tmvjw+P52Sf73W8c3tz7O/34b52fXxDe3Ps7Prol//3XnxP+c
+J8T/3MSf0riT0n8KYk/NfFXiz+vRyq3Pl6PVG59vB6p3Pp4PVK59fF6pHLr
4/VI5dbH65HKrY/XI5VbH69HKrc+Xo9Ubn28Hqnc+ng9Urn18Xqkcuvj9Ujl
1sfrkcqtj9cjlVsfr0cqtz5ej1Rufbweqdz6eD1SufXxeqRy6+P1SOXWx+uR
yq2P1yOrFf3P0f8+/xlffc6HvE8Cf8C/Q04/Y05/Yk6/YU7/YE4/YE57N6dd
m9N+zWmn5rRHc9qdOe3LnHZkTnsxp12YU//m1Lk59WxO3ZpTn+bUoTn1Zn7/
fx/9tFVYV5V73Rrzqvc6NOZV73VlzKve68SYV73XfTGveq/jYl71XpfBL1vw
qvc6K+ZV73VTzKve66CY+74fNPol9/3dNPol9/0aG/2SO/9Do19y53Pd6Jfc
+ekb/ZL783aNfsntv87DY24/u0a/5I4/J/HnRD8l+qnRrxZ/HkfqfNU8Hkfq
/NM8HkfqfNI8Hkfq/NA8HkfqfM88Hkfq/M08HkfqfMw8Hkfq/Mo8HkfqfMk8
Hkfq/Mc8HkfqfMY8Hkf4e/TTLjv/7CeP5i13en4C598Zp67MqStz6sqcujKn
rsypK3Pqypy6MqeuzKkrc+rKnLoyp67MqStz6sqcujKnrsypK3Pqypy6Mqeu
zKkr84ff/o+XrVZv2bquzD0/Mbfe8xNz6z0/Mbfe8xNz6z0/Mbfe8xNz6z0/
gV9xzK33/AR+8zG33vMTc+s9PzGP7/tBo4fH93fT6OHx/RobPTzO/9Do4XE+
143+5mMe56dv9PD483bJ5+0S/3V+Yh772TV6eBx/TuLPiX5K9FOjXy3+PI7U
+Yl5PI7U+Yl5PI7U+Yl5PI7U+Yl5PI7U+Yl5PI7U+Yl5PI7U+Yl5PI7U+Yl5
PI7U+Yl5PI7U+Yl5PI7U+Yl5PI6sVtTPD/3AbX/5hsd013h+8ry///wHxpP7
5vcn6Pm39ebWU4fWw62nPq2HW0/dWg+3nnq2Hm49dW493Hrq33q49bQL6+HW
016sh1tPO7Iebj3ty3q49bQ76+HW0x6th1tPO7Uebj3t13q49bRr6+HW096t
h1tPP2A9/NsuvvRjL3/FqujpH6yHO/573/VPXz/7uvNKHNqv9XD0f3fXnU99
3K99o8Sn//F14eiJA/+WX3/lQ644rPqHHvdXjkM/hp44mf4dH33q186e/fLW
/RKcz+V5L3pz8gN3fuDOD9yfF27/cPv0fBu9OT7h9gm3T7h9wu0Tbp+e56M3
xyfcPuH2CbdPuH3C7dPrC/Tm+OT3M/YJt8//Pub2SXz7hNun1zXozfEJt09+
n2Of6O0Tbp9w+/R6Cr05PuH2CbdPuH3eccztE719eh2H3hyfcPuE2yfcPtnH
tk/09un1I3pzfMLtE26fcPuE2yfcPr1uRW+OT7h9wu0Tbp9w+4Tbp9fL6M3x
CbdPuH3C7RNun3D79Dp9OX4dND7h8Xh90PiE2yfcPuHxeLRpfJovx6NNMh5t
kvFok4xHm2Q82iT9/Nj4NF/282PSz49JPz8m/fyY9PNj0n8OjU/zZf85JP3n
kPSfQ9J/Dkn/OST90rrxab7sl9ZJv7RO+qV10i+tk35pnbT3vvFpvmzvfdLe
+6S990l775P23iftqGt8mi/bUZe0oy5pR13SjrqkHXVJfdb59bJOKl/W534b
1+d+G9fnfhvX534b1+d+G9/3XePTfHnfd41PeHzfd41PeHzfd41P7+8tP9ec
5HNO8jkn+ZyTfM5JPufE55T4nBKfU+JzSnxOic8p8Tk1PleLP+8vVW59vL9U
ufXx/lLl1sf7S5VbH+8vVW59vL9UufXx/lLl1sf7S5VbH+8vVW59vL9UufXx
/lLl1sf7S5VbH+8vVW59vL9UufXx/lLl1sf7S5VbH+8vVW59vL9U+XJ/qe4/
Wx/vL61W8X5R3a92nHhfaLWK93nq/rY5/cN/XPkrfzac3jX70nD+nXH6AXPa
uznt2pz2a047Nac9mtPuzGlf5rQjc9qLOe3CnPo3p87NqWdz6tac+jSnDs2p
N3Pqx5w6+dprnvyE9dVfLZzvQayHo6d+Mv3pF5746tnP3tvUm7n3FYkPd3y4
43jfjzhwx4E7jvfliAN3HLjjeN+MOHDHgTuO97WI88PH3HHQO473nYgDdxz2
kRzH+0LEgTsO+zyO430b4sAdB+443lchDtxx4I7jfQ/iwB0HHtf5QRMH7jjw
uJ43TRx4XM+bpA7HJg48rsMxqZ+hiQOP62dI7vu6iQOP7/s6uV99cr/65H71
SZ67JM9dkucuyU9d9y3zs9/G+Tlar4efa9fEgcefa9fE8bpp6WdO/MxJnCmJ
MyVxpibOavHneUVdX5jH84q6XjCP5xV1/m8ezyvqfN48nlfU+bl5PK+o823z
eF5R58/m8byizofN43lFnd+ax/OKOi81j+cV9fcV1mec+nnHJ7/7Ybc//cul
/vg9Bpx5hTnzBHPGfXPGcXPGZXO+PzJnPDXnd3HmjGvmjFPmjDtxHg6Sz7tJ
PteY+B8Sn+vET59ct0vi77dxnF3D6a9iPjWc+oH/6Ivec/t4cmh+n/Oe/ry7
bvniBQ1Hz7+tN7/pwge/c/jKg8u/6ceshzv+4TOf/H9nz1aOHzjx4cS59tlv
+8z0q/W69JO+Lhw9ceDPOvFzh1dfWuPQrzoOHD1x4D9+wbX7L/zhhfVzHffD
jgNHXz7vMb/7Wz/zi6//zhrnhuN+23Hoz9ETB/1zTn34J95/R51n0M87Dhw9
ceC/9ZE3PXF9dY3DuOA4cPTEyfSPev/L9mc/eUlTh3Dqwesj9ObWu37grh+4
6wHu+1vi637BnX+48wl3fuDOg9d36M2tdx7gzgPceYA7DyW+8gB3HuDOA9x5
gDsPXp+iN7feeYA7D3DnAe48lPjKA9x5gDsPcOcB7jx4fY3e3Hrngd+rOA/o
nQe481DiKw/87sV5QO884Md5QO88eH8Avbn1zgPceWCfwXlA7zyU+MoD8yXn
Ae48EMd5gDsP3t9Ab2698wB3HuDOw4eOufNQ4isPcOcB7jzAnQf2Z5wH78+g
N7feeYA7D3Dngfmt81DiKw/onQf0zgP7SM4DeufB+0voza13HuDOw2uPufOA
3nko8ZUHuPMAdx7gzgPcefD+GHpz650HuPMAdx7gzkOJrzzAnQe48wB3HuDO
g/f30Jtb7zzAnQe48wB3Hkp85QHuPMCdB7jzAHcevD+5nH8eNHmAx+uRgyYP
cOcB7jyU+MoD3HmAOw9w5wEezyc3TR7MrY/nk5tkPrlJ5pObZD65SeaTm2Q+
uUnmk5tkPrlJ5lFjkwdz6+N51JjMo8ZkHjUm86gxmUeNyTxqTOZRYzKPGpP5
w9Dkwdz6eP4wJPOHIZk/DMn8YUjmD0MyfxiS+cOQzB+GZNxcN3kwtz4eN9fJ
uLlOxs11Mm6uk3FznYyb62TcXCfj5joZL/omD+bWx+NFn4wXfTJe9Ml40Sfj
RZ+MF30yXvTJeNEn/WTX5MHc+rif7JJ+skv6yS7pJ7ukn+ySfrJL+sku6Se7
pH+o3+8s+4fKrY/7h/027h/227h/2G/j/uEoftg/7Ldx/7Dfxv3Dfhv3D/tt
3C52TR7MrY/bxa7JAzxuF7smDyV+2C52TR7gcbvYNXmAx/UwJ/UwJ/UwJ/Uw
J/UwJ/UwJ/UwJ/UwJ/UwJ/UwJ/UwJ3mYkjxMSR6mJA9TkocpycOU5GFK8jAl
eZiSPExJHqYmD6vFn78vqNx65wEef49Q+XL/v35Pan28z1+/P7U+3s+v36ta
H+/br1bxvn39Hna5P1+/h7U+3oev389an3Hu14nfu+7u4XTffO8D598ZJ//m
5NmcfJqTN3PyY04ezPm83/u2b//of32gfr/A99TWw9GTB/hD33zJ46an1Dj/
cPy9tuPwfTd64qD/2luf9PwTv31+0fM9uOPA0RMH/oKf+r6/veX8GofvzR0H
jp448C//8zdf9MKbThQ937M7Dhw9ceBvnp595SP/pOr5Xt5x4OjL91OJ/k3/
9vP/e/azFzX1ae7vfbiPcN9HuO8L3HmGO29w56F876PPBbd/f1+Df7j9w+0f
bv9w+4fbf/m+Rv7h9u/vWfAPt3+4/cPtH27/cPsv37PIP9z+/f0I/uH2D7d/
uP3z/YX9o7d/uP3zvYn9+3sN/MPtH27/cPvn+w77R2//cPsnjv37+wj8w+0f
bv/s/9s/3P7h9l++j5B/9Pbv7xHwD7d/uP2z/2//7PPbP3HsH27/cPv3/j/+
4fbP+VT2j97++V7A/tHbf9n/l3+4/XvfHv9w+4fbP9z+4fYPt/+yby//cPv3
fjv+4fYPt3+4/cPtH27/Zb9d/uHxuHzQ+IfbP9z+4fYPt3+4/Zd9cvmHx+Pv
pvEPj8ffTTL+bpLxd5OMv5tk/N0k4+8mGb/Gxj88Hr/GZPwak/FrTMavMRm/
xmT8GpP+f2j8w+P+f0j6/yHp/4ek/x+S/n9I+v8h6T/XjX943H+uk/5znfSf
66T/XCf95zrpP9dJ/9Mn/U+f9D990v/0Sf/TJ/1Pn/Q/fdL/9En77ZL22yXt
t0vab5e03y5pv13Sfruk/XZJ/df90mX977dx/e+3cf3vt3H977dx/e+3cf3v
t3H977dx/ewa//C4fnaNf3hcP7vGPzyun13jHx7nf07yPyf5n5P8z0n+5yT/
c5L/Ocn/nPifEv9T4n9K/E+J/ynxPyX+p8T/1PhfLf68v1T398zj/aW6X2ce
7y/V/TfzeH+p7qct95fqcxDWx/tIq1W8j1Sfm1juF9XnJqyP94Xq8xTWx/s/
9TkL6+N9nvr8hfUZ576/9RfeftP/PKiONzcfP68BZ58H/tjff9VFtz/9vKLn
OQ44evgN3/Ofd3z/ix9U9DzfAUcPf9IjP/3x617dnqcHRw/HZznnTT7h9gP3
deGOz36L48MdH+74cMcv56opPtzx4Y4Pd/xyHpriwx2ffQ/Hhzs+v5N0fPYZ
HB/u+OxXOD77AI7PPoDjo3d8uOOzHnd81vuOz/6A4xPH8VkvOz7c8eGOD3f8
ck6X4sMdH+74cMcv52spPtzx4Y4Pd3zWg44Pd3y448Pj9rtJ2u8mab+bpP1u
kvY1Ju1rTNrXmLSvMan/Ian/Ian/Ian/IanPdVKf66Q+10l9rpP66ZP66ZP6
6ZP66ZP72yX3t0vub5fc3y7J/34b53+/jfO/38b532/j/Oya+PA4P7smPjz2
Pyf+58T/nPifk/hTEn9K4k9J/KmJz7wlnofU50mX8436POlyXlGfJ737K4d3
jSfn5v0dcP6dcebD5syHzZkPm5fvqcXLc2TizIfNmQ+bM+81Z35rzjzWnPmq
OfNSc+af5jwXbM59NOc+mvs+wnku2Jzngs15Ltic53/NeX7T/FUfOm+zWt21
dV2Z+3tSc+v9vaS59f4e0Nx6f+8G53su6/09F5x5oPX+XgnO8ynW+3scc+v9
vQmc70es9/cU5tb7ewHz+L4fNHp4fH83jR4e36+x0bOvG+d/aPT8vjfO57rR
s18a56dP8tMnn7dLPm+X+K/7ckv/+23sZ9fo4XH8OYk/J/op0U+NfrX48zhS
91XM43Gk7quYx+NI3Vcxj8eRuq9iHo8jdZ/EPB5H6r6HeTyO1H0M83gcqfMB
83gcaecD8HgcqedLmMfjSD1HwjweR1Yr6udZ3/HhTw2nd838BM6/M05dmZff
3YmX5+jFqStz6sqcujKnrsypK3Pqypy6MqeuzKkrc+rKnLoyp67MqStz6sqc
ujKnrsypK3Pq6vh8iWZ+Yv0f/ObnL1zdW84tKXVlPRw93PMW4vg8E+sdx/MZ
4sAdB+44nucQx+elWO84nv8Qx+erWO84nhcRB+44cMfxfIk47Hc5DtxxPI8i
Dtxx4I7j+RVx+D2J46B3HM+7iOPzZKx3HM/HiOPzZ6x3HM/Tlu3iIGkXB0k9
b5o48LieN0kdjk0cn4djfVw/QxOH/aK4fobkvq+bOHwPHt/3dXK/+uR+9cn9
6pM8d0meuyTPXZKfB7x/ZpGfev7PMj/7bfy5dk0cnxdkfexnTvzMiZ85iTMl
caYkztTEWS3+PK+o81XzeF5R56vm8byizlfN43lFna+ax/OKOl81j+cVdb5q
Hs8r6nzVPJ5X1PmqeTyvqPNV83heUeer5vG8os5Xl/OKOl+1nvq57d8v//B4
ct/MV+H8O+PUlTl1ZU5dmVNX5tSVOXVlTl2ZU1fm1JU5dWVOXZlTV+bUlTl1
ZU5dmVNX5tSVOXVlTl2Z65y9Zr5q/VWHD79wtap66sd6OHp4ck5v4Y4DdxzP
S4kDdxy44yTn9BbuOHDHSc7pvZPvbR0HveMk5/QW7jjs4zmO56XEgTsO3HE8
LyUO3HHgjuN5KXHgjgN3nOSc3jt9Tq/1jpOc01u448Adx/PSZbs4SNrFQVLP
zTm9hcf1vEnqsDmn906+34zrcEzqpzmnt/C4fobkvjfn9BYe3/d1cr+ac3oL
j+9Xn+S5Oae38DjPXZKf5pzewuP87Lfx52rO6S08/ly7Jo7npUs/c+JnTuI0
5/QWHseZmjirxZ/nD3Veah7PH+q81DyeP9R5qXk8f6jzUvN4/lDnpebx/KHO
S83j+UOdl5rH84c6LzWP5w91Xmoezx/qvNQ8nj/Uean11Mkv/eAz/uYNj+kO
Pf+E8++MUz/m1I859WNO/ZhTP+bUjzn1Y079mFM/5tSPOfVjTv2YUz/m1I85
9WNO/ZjrPSaFUz9NHq6+9oLV68v7cMt9tx6O/vj9Js08Fo5e7zdp5rdw9HCu
m7yXtnD7LM/JymfyXtrCfV3PY7lu+R2jrlueb9V14b4u3Nf1vJfrlt836rrl
uVRdF+7rwn3d5D2wh34PLHq+1/Z1k/fAlnm1r+t5Ndfl942+LtzXJY6vC/d1
PQ/nuuV3krou+8O+LnpfF+7ret7OdcvvJ3Xd8tylrgv3deG+ruf5XJf9Z18X
va8L93Xhvm7yXtTCfd3ynKOum7wXtXBfN3nPaeG+bnk+UddN3nNauK/rdcey
Xz1I+tWD5rpwXxce91fNe0gLj/urTdJfNe8hLTzuN5r3ih76vaLLfmNM+o3m
vaJlHRS33+Y9oYXH7XdI2m/zntDC43bUvPfzkP38uB2tk3bUvPez8Liem/d4
Fh7Xc5/Uc/Mez8LjuuqSuuqSuuqSumrey1l4fH+b92wWHt/f/Ta+v817NguP
89y8N7PwOM+75rrJezMLjz9v8x7MwuPPOyeft3kPZuHxdZv3WhYeX3dKrtu8
17JwX3e1+PM6oq5DzeN1RF2HmsfriLoONY/XEXUdah6vI+o61DxeR9R1qHm8
jqjrUPN4HVHXoebxOqJ5H2Lh8TriKA/huqB5v2GzPn3Ku77058Ppvllvwvl3
xqkTc+rEnDoxp07MqRNz6sScOjGnTsypE3PqxJw6MadOzKmTt9z/O/DCqRPr
f+fBLzmxuveioue+WA9Hf/x78hJHz7UVvX5nXvR6rq3o9fvzotdzbUUPx6fX
j3yu8p5BfS64P1fyHFzh9unn4IjvdSV+4PYDt5/kubnC7cfPzRHf6038wO0H
bj/Jc3aF24+fsyO+16H4Ke9PlB+4/STP5ZV1q/34uTzie32KH7j9wO2H74Ps
B24/fo6P+F634gduP3D7gdsPvye3H7j9eD2LH7j9wO2H5wHth+cH7cfPCRLf
61z8wO0Hbj9w+4HbD9x+vP7FT3lPpfzA7Sd5DvEweQ7x0M8hEt/rYvyU913K
D9x+kucWC7cfP7e4HEcOGj/weNw5aPwkzzkWbj9+znHZ324aP/C4f94k/XPz
XGThcf+8SfrDsfFT3uMZ9odj0h82z1GW9XjcH45J/zM0fuBx/zMk/U/z3OUh
z1PE/c+QtPd14wcet/d10t6b5zQLj9v7OmlffdK++qR99Un7ap7rLDxuX31S
z11Sz11Sz11Sz81zoIXH9dwl9VPX9cv62W/j+tlv4/ppnhs95HmWuH7qc6PL
/O8aP+W9q+H92jV+kudMC4/v167x432AZX7mJD9zkp/mudRDnseJ8zMnfqbE
z5T4mRI/zXOshzzvE/uZGj+rxZ/Xg3XfwDxeD9Z9A/N4PVj3Dczj9WDdNzCP
14N138A8Xg/WfQPzeD1Y9w2W68G6b2B9vL5rnhcuPF6v1f2Eex5y28dv+eIF
zXofzr8zzv015/6ac3/Nub/m3F9z7q+5zs+p/o/vr/U/+8G3XbC6u5zPXPMg
PRz98Xk79fMuz2cu+nuX5+0Uvc5hLnqdt1P0Om+56HXeTtHrXOWi13k7Ra/z
k4seTh6S85ArV97gzlt5D6byk5yTXLg/b3JOcuH27/U+/guXf7j9w+0fbv9w
+4fbP9z+k/OQK5d/uP3D7R9u/3D7h9s/3P6T85Arl3+4/bNvYP/JOcmF2z9x
7N/nJOMnOQ+5fA9u/+jtv7znUf7Zf7B/uP0n5yQXvf17vwL/fJ9u/+jtH27/
cPuH2z/c/uH27/0N/Bcu/3D7h9s/3P7h9g+3f7j9ez8E/4XLP9z+4fYPt3+4
/cPtH27/yXnIlcs/3P7LewzlPzkn+TA5J/kwOSf50Ock4yc5D/nwuXD5R2//
5f2D8p+ck1y4/SfnJBdu/96fWc5bDpJ5y0HjH27/cPuH2z/c/uHx+Nuch1x5
OP5ukvF3k4y/zTnJhcfjb3NOcuHx+NWch1x5OH6Nyfg1JuNXc05y4fH41ZyT
XPRx/9+ch1x+jxH3/0PS/w9J/9+ck1x43P835yQXHvefzXnIlYf95zrpP9dJ
/9mck1x43H825yQXHvc/zXnIx/1Pn/Q/fdL/9En/05yTXHjc/zTnJBcet9/m
POTKw/bbJe23S9pvc05y4XH7bc5JLjyu/+Y85PJ7lbj+99u4/vfbuP6bc5IL
j+u/OSe58Lh+mvOQj+tn1/hHH9fPrvGfnJNceFw/zTnJhcf5b85DLr+fifM/
J/mfk/w35yQXHue/OSe58Nh/cx5y+R1O7H9K/E+J/+ac5MJj/805yYXb/2rx
5/2cul9nHu/n1P0683g/p+7Xmcf7Oc15yNV/uJ+zWsX7M0f+w32Y5nzjwuN9
lea84sLJ85m7vnHHeHI4PHvu78pr+C+cfRX48XvoDrkf5B+OXu+hK3ruC7zs
Oy3fQ1f05bn1Y45e76Ereu4jHL3eQ1f0vIcOXvaRlu+hK3ruOxy93kNX9NQD
HD2cPLP/4zzDnc+yH6W8wZ0fuPNQ9p30eeH+XHD7Z//H/uH2X/aj5B9u/3D7
L/tO8g+3f7j9f/x4/8f+2Rey/7IfJf9w+4fbf9l3kn+4/cPtn9+r2D/7QvYP
t3+4/cPtn/0o+0dv/3D7Z1/I/uH2D7d/9pHsH739l30n+Udv/3D7Zz/K/tkX
sn9+D2P/6O0fbv9c1/7R2z/c/tn/sX+4/Zf9KPmH2z/c/su+k/zD7R9u/+z/
2D/c/st+lPzD7R9u/2XfSf7h9g+3f/Z/7B9u/2U/Sv7h9g+3/7LvJP9w+4fb
P/s/9g+3/7IfJf9w+4fbf9l3kn+4/cPtn/0f+4fbf9mPkn+4/cPtv+w7yT/c
/uHx+LtJxt9NMv5ukvF3k4y/m2T83STj7yYZfzfJ+DUm49eYjF9jMn6Nyfg1
JuPXmIxfYzJ+jUn/PyT9/5D0/0PS/w9J/z8k/f+Q9P9D0v8PSf+5TvrPddJ/
rpP+c530n+uk/1wn/ec66T/XSf/TJ/1Pn/Q/fdL/9En/0yf9T5/0P33S//RJ
++2S9tsl7bdL2m+XtN8uab9d0n67pP12Sf3vt3H97/3e9vJ7qrj+935ve+Fx
/e/93vaij+t/v43rZ9f4h8f1s2v8w+P62TX+y75TWD+7xj88zv+c5H9O8j8n
+Z+T/M9J/uck/3OS/znxPyX+p8T/lPifEv9T4n9K/E+J/6nxz75KvE9S96mW
+yEPOK9vse9R96mW+xsPOF96sY+xWsX7FXWfarkvUfep/h9YZNtL
      "], 
      {Hue[0.6, 0.3, 0.85], Opacity[1], EdgeForm[RGBColor[0.9, 0.36, 0.054]], 
       Specularity[
        GrayLevel[0.5], 30], FaceForm[RGBColor[0.91, 0.424, 0.1486]], 
       StyleBox[{{
          TagBox[Polygon3DBox[CompressedData["
1:eJxNnXW4VVW3h9mHs88+hDTS3SklDSolJUqqpICCpErZrSghFopFSUiDgGAg
iqjYoigKBiEqoYCUhOhd7zff9dzzx3h+75y/MeYc85x9P+daz92ccoNu6jY6
LVu2bNMLZMuWPdJEtqBparqcjCLDuQzn4VQUmfqZenCOKHLq59SDc0WRWz+3
HnxBFHn08+jBeaPIp59PD84fRQH9AnpwwSgK6RfSgwtHcaH+hXpwkSiK6hfV
g4tFUVy/uB5cIoqS+iX14FJRlNYvrQeXiaKsflk9uFwU5fXL68EVoqioX1EP
rhRFZf3KenCVKKrqV9WDq0VRXb+6Hlwjipr6NfXgWlHU1q+tB18URR39Onpw
3SjqOXeRY7h+FA0c15XJuzhb+Gw1VNPkRlE0tq6+TE0Ta5qqDeVmUTS3rpFM
TQtrWqpN5UuiuNS6ZjI1l1nTSm0pt46ijXWXyNS0taad2kq+PIr21rWWqelg
TUe1ndwpis7WXS5Tc4U1XdSO8pVRXGVdJ5martZ0U7vI3aPoYd2VMjU9reml
dpOvjuIa67rL1FxrTW+1l9wnir7WXS1T08+a/mpveUAU11nXR6ZmoDWD1P7y
4Ciut26ATM0N1gxRB8lDo7jRusEyNcOsGa4OkUdEMdK6oTI1o6wZrQ6Xb4ri
ZutGyNTcYs0YdbQ8Nopx1t0kUzPemgnqGPnWKG6zbqxMze3W3KFOkO+M4i7r
bpWpuduae9Q75HujuM+6O2Vq7rfmAfUe+cEoHrLuXpmah62ZqD4gPxLFo9Y9
KFMzyZrJ6kR5it5UY5Lzj+lNM6boP673hPGY/pN6TxmP6z+tN914Uv8ZvWeN
p/Vn6D1nPKP/vN4Lxgz9F/VeMp7Xn6k3y3hRf7beHGOm/ly9l43Z+vP05htz
9RfoLTTm6b+it8hYoL9Yb4nxiv5SvWXGYv3leiuMpfor9VYZy/Vf1VttrNRf
o7fWeFX/Nb11xhr916NYr7/O8WvOwY8YMJ8t/rvB3eMN9U2Ze8dbzr3lPMy9
Y4P+Bj2Ye8fb+m/rwdw7Nupv1IO5d7yj/44ezL3jXf139WDuHZv0N+nB3Dve
039PD+besVl/sx7MveN9/ff1YO4dH+h/oAdz7/hQ/0M9mHvHFv0tenDZKD7S
/0gP5t7xsf7HejD3jk/0P9GDuXd8qv+pHsy94zP9z/Rg7h2f63+uB3Pv+EL/
Cz2Ye8eX+l/qwdw5tupv1YO5c3zlXB3HMHeLrx3Xk8njfsFna5v6hszd4hvr
GsjUNLXmW3WbzN1iu3WNZWpaWvOd+q18aRTfW9dcpqaVNTvU72TuFjutu1Sm
pp01P6g7ZO4WP1rXRqamozU/qT/I3C1+tq69TE0Xa3apP8ncLXZb11mmpps1
e9RdMneLvdZdJVPTy5pf1D0yd4t91vWQqeltza/qLzJ3i9+su0ampr81v6u/
ytdFsd+6vjI1g6w5oP4uc7c4aN11MjVDrDmkHpC5W/xh3fUyNcOt+VM9JHO3
OGzdjTI1o605ov4pc7c4at1ImZox1vylHpG5Wxyz7maZmgnWHFf/krlbnLBu
nEzNHdacVI/L3C1OWXebTM091vytnpTvi+K0dXfJ1DxgzRn1b5m7xVnr7pOp
mWjNOfWMzH8z/rHuIZmaydacV8/JU/X+NSY7P03vP2Oq/hN6/3uoSQTGf0ov
kQjxhDnT9dISIZ4yhzsHXvZEiOnmcOfAS0+EeNYc7hx4yUSI58zhzoGXkQjx
gjncOfBSiRAvmTMnW/AyEyFmmcOdAy9HIsQcc7hz4OVMhHjZHO4ceLkSIeab
w50DL3cixEJzuHPgXZAIscgc7hx4eRIhlpjDnQMvbyLEMnO4c+DlS4RYYQ53
Drz8iRCrzOHOgVcgEWK1Odw98AomQqw1p1Ai3D3W6RVK/P89BX7UzxjMZ4v/
bnD3KJwIemEiMPeOIs6hF8rcO4rqo0Vk7h3FEsFHi8rcO4ongo8Wk7l3lEgE
Hy0uvxtFyUTw0RIy945SieCjJWXuHaUTwUdLydw7yiSCj5aWuXeUTQQfLSNz
7yiXCD5aVubeUT4RfLSczL2jQiL4aHmZe0fFRPDRCjL3jkqJ4KMVZe4dlRPB
RyvJ3DuqJIKPVpb/d+9IBB+tInPvqJYIPlpV/t/dJOG9JBE8mHtHjUTw0eoy
d46aCe8uieDB3DlqJcLcVscwd4vaiTD+SiZvm5+tixJB+UzB3C3qWPe1TA33
C2rqWksuzN2innXfyNRwv6CmvrXkwtwtGli3XaaG+wU1F1tLLszdoqF138vU
cL+gppG15MLcLRpbt1OmhvsFNU2sJRfmbtHUuh9larhfUNPMWnLh3RE3t+5n
mZo92UJNC2vJhblbtLRut0wN9wtqLrGWXJi7xaXW7ZWp4X5BzWXWkgtzt2hl
3T6ZGu4X1LS2llyYu0Ub636TqeF+QU1ba8mFuVu0s26/TA33C2out5ZcmLtF
e+sOytRwv6Cmg7XkwtwtOlr3h0wN9wtqOllLLszdorN1h2VquF9Qc4W15MLc
LbpYd1SmhvsFNVdaSy7M3eIq647J1HC/oKarteTC3C26WXdCpob7BTXdrSUX
5m7Rw7pTMjXcL6jpaS25MHeLXtadlqnhfkHN1daSC/PfjGusOytTw52Dmmut
JRfmzoHXOxHivDncOfD6JEL8a042vb6JEP+Zk9DrZ2TTT9PrbyT0s+sNMNL0
0/WuM7LrJ/UGGun6GXqDjKR+Sm+wkaGfqXe9kdLPoXeDkamfU2+IkUM/l95Q
I6d+br0bjVz6F+gNM3Lr59Ebblygn1dvhJFHP5/eSCOvfn69UUY+/QJ6o438
+gX1bjIK6N+cCHePgs7fnPj/ewrM54uA+WzdEsXYKMao4+TxUUxwboLz8K1R
3KZ/mx58exR36N+hB98ZxV36d+nBd0dxj/49evC9Udynf58efH8UD+g/oAc/
GMVD+g/pwQ9HMVF/oh78SBSP6j+qB0+KYrL+ZD14ShRT9afqwY9FMU1/mh78
eBRP6D+hBz8ZxVP6T+nBT0cxXX+6HvxMFM/qP6sHPx/FjCiek58z9xmZ3BfN
wX9BjudeimKmuTPkWc6/YLyUJXd2FHPMe0me6/wsY3aW3JfNmW3ePOdmy/MT
4TO3QB0jv+Le9LlQZm6Reyw0Zuktdv1Fxly9uXpL3G+uvNS9l6kL5BWuy17L
ZeZWuu5yY5HeKtdfaSzWW6z3qvstlle79xp1mfya67LXWpm5da671lipt971
1xmr9Fbpve5+q+Q33PtNdY28wXXZ6y2Zubdd9y1jnd5G13/bWK+3Xu8d91sv
v+vem9Q35c2uy17vycy977rvGW/rfeD67xsb9Tbqfeh+G+Ut7v2Rukn+xHXZ
62OZuU9d92Pjfb3PXP9T4wO9D/Q+d78P5C/c+0v1I/kr12WvrTJzX7vuVuNT
vW2u/7Xxmd5net+432fyt+69Xf1S/t512es7mbkdrvud8bXeTtffYWzT26b3
g/ttk39075/U7fIu12Wvn2Xmdrvuz8YOvT2uv9vYqbdTb6/77ZR/ce996k/y
b67LXr/KzP3uur8au/X2u/7vxh69PXoH3G+PfNC9D6n75D9dl73+kJk77Lp/
GL/rHXH9w8Z+vf16R91vv/yXex9TD8knXJe9jsvMnXTd48ZhvVOuf9I4ondE
72/3OyKfdu8z6jH5nOuy11mZuX9c96xxUu+86/9jnNI7pfev+52S/3NvXraf
dk84LS2sy14JmbnsaWFd5hIyXnpaWD+7Oefd/7xeMi3sxxjOSAt7p1T2hHO4
LntlyszldN1MI7terrSwfk4jXS9dL7d7p8sXuHceNSXnc132yiszl9918xo5
9Qq4fn4jl14uvYLul0su5N6F1TxyEddlrwtl5oq67oVGfr1irl/UKKBXQK+4
+xWQS7h3SbWwXNp12auUzFwZ1y1lFNUr6/pljGJ6xfTKuV8xubx7V1BLypVc
l70qysxVdt2KRhm9Kq5f2SirV1avqvuVlau5d3W1glzTddmrhsxcLdetYVTW
q+36tYwqelX0LnK/KnId966rVpfruy571ZOZa+C69Yxaehe7fgOjtl5tvYbu
V1tu5N6N1bpyE72mRiPnm+k1N5rot9BraTTTv0TvUqOF/mV6rYxL9FvrtTEu
02+r185orX+5XnujrX4HvY7G5fqd9DobHfSv0OtidNK/Uu8q4wr9rnrdjCv1
u+v1MLrq99TrZXTXv1rvGqOn/rV6vY2r9ftE0U+/j9rXuNZcfD4T9c2p5xw5
A6Lo73xfmWjgXB+5nrkDo7jOnAEycXGW2outIXdQFv86xw0dwzw38Ew6OC3o
9WmBeR69wTn0epnn0SH66A0yz6ND04KPDpF5Hr0xLfjoUJnn0WFpwUdvlHke
HZ4WfHSYzPPoiLTgo8NlnkdHpgUfHSHzPDoqLfjoSJnnUf4fMyeqo2SeR29K
Cz46WuZ59Oa04KM3yTyP3pIWfPRmmefRMWnBR2+ReR4dmxZ8dIzM8+i4tOCj
Y2WeP8enBR8dJ/O8OSEt+Oh4mefKW9OCj06QeYa8LS346K0yz5K387tIC4zO
MR8md545+HemBY7n7rIWxrvbudtlngv5bN3jZ4zPFLzEtVjnXmvjOcb3WX+n
zHMea93vmqwBv2o9tQ9YG88xftD6e2We21jrIddkDfh166l92Np4jvFE6x+Q
eQ5jrUdckzXgd6yn9lFr4znGk6x/WOa5irUmuyZrwB9aT+0Ua+M5xlOtf1Tm
OYm1HnNN1oA/t57aadbGc4wft36KzHMPaz3hmqwBf2M9tU9aG88xfsr6aTLP
Maz1tGuyBvyD9dROtzaeY/yM9U/KPJew1rOuyRrwXuupnWFtPMf4Oeunyzxn
sNbzrska8AHrqX3B2niO8YvWz5B5bmCtl1yTNeCj1lM709p4jvEs61+QeQ5g
rdmuyRrw39ZTO8faeI7xXOtnytzrWetl12QN+F/rqZ1nbTzHeL71c+RsrrVA
ZQ04aT61C+V4jvEr1s+TU661SF0g5zaf2sVyPMd4ifUL5TyutVRdJBc0n9pl
cjzHeLn1i+XCrrVCXSoXN5/alXI8x3iV9cvkkq71qrpCLmc+tavleI7xGutX
yhVca636qlzVfGpfk+M5xuusXy1Xd6316lr5IvOpfV2O5xi/Yf1rcl3XelNd
Lzc0n9q35HiO8QbrX5cbu9bb6ptyU72NRmPnm+u9YzTVb6n3rtFc/1K9TUZL
/VZ67xmX6rfR22y00m+n977RRr+93gdGO/2Oeh8a7fU7620xOup30fvI6Kx/
ld7HRhf9bnqfGFfp99D71Oim30vvM6OH/jV6nxu99HvrfWFco99X70ujt/4A
va1GX/2Bel8ZA/S/Tgv3x4Eyus0YaC4+n5mG5rzlHDnfZJn72vEGxzD3Be6c
0f/8/E/j79Bw30w6h2aXuW+m9NGkzH2T78EMUVMy902+BzNUzSFz3+R7MDeq
uWTum3wPZph6gcx9k+/BDFfzytw3+R7MCDW/zH2T78GMVAvK3Df5HswotbDM
fZPvwYxWi8jcN/kezE1qMZn7Jt+DuVktIXPf5Hswt6ilZO6b5bIFHy0jc9/k
ezBj1XIy902+BzNOrSBz3+R7MOPVSjL3Tb4HM0GtInO/5Hswt6rVZO6UfA/m
NrWGzN3y27TwnZi71DvMh8m92xz87XI8x3dmyPtWj+/E1HUM3+Nnju/EDPZz
B99nPut8J8dzjPmuDPXbZe6VrNXENVkDftB8ar+X4znGfIeG+u9k7pWs1cI1
WQOeaD61O+R4jjHfraH+e5l7JWtd5pqsAU8yn9qdcjzHmO/cUL9D5l7JWm1d
kzXgqeZT+4MczzHmuzjU75S5V7JWB9dkDfhx86n9UY7nGPMdHep/kLlXstYV
rska8FPmU/uTHM8x5rs71P8oc69kra6uyRrwM+ZT+7MczzHmOz3U/yRzr2St
nq7JGvBz5lO7S47nGPNdH+p/lrlXsta1rska8IvmU7tbjucY8x0g6nfJ3CtZ
q59rsgY8y3xq98jxHGO+G0T9bpl7JWsNdE3WgOeaT+1eOZ5jzHeGqN8jc69k
rRtckzXg+eZT+4sczzHmu0TU75W5V7LWMNdkDfgV86ndJ8dzjPmOEfW/yNwr
WWuUa7IGvMR8an+V4znGfPeI+n0y90rWusU1WQNebj61v8nxHGO+k0T9rzL3
StYa75qsAa8yn9rf5XiOMd9Vov43mXsla93umqwBrzGf2v1yPMeY7zBR/7vM
vZK17nZN1oDXmU/tATmeY8x3m6jfL3OvZK37XZM14DfMp/agHM8x5jtP1B+Q
uVey1sOuyRrwBvOpPSTHc4z5jgv1B2XuoKw1yTVZA+YOisf3o6aYxzx3UDy+
H/WYefjcQfH4ftTj5uFzB8Xj+1FPmofPHRSP70c9bR4+d1A8vh/1jHn43EHx
+H7UDPPwuYPi8f2o583D5w6Kx/ejXjQPnzsoHt+PmmkePndQPL4fNds8fO6g
eHOzhfjIHO6geHw/ap55+NxB8fh+1ALz8LmD4vH9qFfMw+cOisf3oxabh88d
FI/vRy01D587KB7fj1puHj53UDy+H7XSPHzunXh8P+pV8/C5c+Lx/ag15uH/
kRbum/h/qHxP6jVryP3Gz9IGcw5ZE3+fKp5DGfM5OyT/GemRKA6rR+XjUfwV
xTH5mP4R+ahM/QlzjsgnrGXupBzPnYrib9f4Sz7t/EnjVJbcM1GcNe+UfM75
08aZLLn/RHHevDPyv86fM/7JkvtfFFzSzzuGE9nD/L/Gf1ly0yIve/aQxxhO
zx7mE0Za9v/PTUaRYU2anHI+3Uhm///cTHOS5uVwLinnzB5+5rnUw1kYL3f2
8LNmnNvxSX/+F8jM5ckefnbMXSDj5c0efkZ5zDnnzzhf9vCzwM8r4+X3zPmM
hF4Bz5bfSNcr6LkKGCm9lF4hz5mSC3vmC9VcWRiviGfMKRfxPMwVlZkr5nmK
Gnn0inueYkZevRKep7iRT6+k5ylh5Ncr5XlKGgX0SnuuUkZBvYJ6ZTxnQbms
5yqnXpiF8cp7nsJyec/DXAWZuYqep4JRTK+S56loFNer7HkqGSX0qnieykZJ
vaqep4pRSq+a56pqlNYrrVfdc5aWa3iummq5LIxXy/OUlWt5HuZqy8xd5Hlq
GxX16niei4xKenU9Tx2jsl49z1PXqKJX3/PUM6rqNfBc9Y1qetX0Lvac1eSG
nquRWjML4zX2PDXkxp6HuSYyc009TxPjIr1mnqepUUevuedpZtTVa+F5mhv1
9Fp6nhZGfb1LPFdLo4FeA71LPWcD+TLP1UptlIXxWnuehnJrz8NcG5m5tp6n
jdFUr53naWs007vc87Qzmuu19zyXGy30Onie9kZLvY6eq4Nxid4lep085yVy
Z891hdoqC+N18TyXyV08D3NXysxd5XmuNNrqdfU8Vxnt9Lp5nq7G5XrdPU83
o71eD8/T3eig19Nz9TA66nXU6+U5O8pXe65r1CuyMN61nqezfK3nYa63zFwf
z9PbuEqvr+fpY3TV6+d5+hrd9Pp7nn5Gd70Bnqe/0UPvOs81wOip11NvoOfs
KQ/yXIPVa7Iw3vWe52r5es/D3A0yc0M8zw1GH72hnmeI0VfvRs8z1OinN8zz
3Gj01xvueYYZA/RGeK7hxnV61+mN9JzXyaM812h1cBbGu8nzDJJv8jzM3Swz
d4vnudkYojfG89xiDNUb63nGGDfqjfM8Y41heuM9zzhjuN4EzzXeGKE3Qu9W
zzlCvs1z3a6OzsJ4d3ieUfIdnoe5O2Xm7vI8dxq36N3tee4yxujd43nuNsbq
3et57jHG6d3nee41xuvd77nuMyboTdB7wHNOkB/0XA+pt2dhvIc9z23yw56H
uYkyc01T0f/mR/Gb+rP8exS7o9gVxX6ZuQPqHnWXfFBvr7pHPqT3i7pX/kNv
n/qL/Kfer+o+uWEUzfXjMXxpKpzhsPqbfMS+6fGozNxf6gE1PtMxvYPqAfm4
3iH1oHxC7w/1kHxS70/1D5neW+nHY7idZzilHpb/tm96PC0zd0b9S43PdFbv
mPqXfE7vuHpM/kfvhHpcPq93Uj0h03t7/XgMd/YM/6qn5P/smx75hzpOO5fI
DHrGcXymtMzgnTXnjP1mzwzeOXPO2m96ZvD+Meec/SYzg3fenH/sk9676Mdj
uJtnyMgM+q+cygx902OmzFwONaHGZ8qpl6Ym5Fx62dU0ObdeuppdvkAvqabL
9N4jFfx4DF+TCmfI41noHc6bGfqmx3wyc/nVHGp8pgJ6OdUcckG9XGpOuZBe
bjWXXFjvAjW3TO+9U8GPx3D/VDjDhZ6F3uEi9k2PRWXmiqn51fhMxfUKqPnl
EnoF1QJySb1CakG5lF5htZBM79elgh+P4etT4QylPQu9w2Xsmx7LysyVU4up
8ZnK6xVXi8kV9EqoxeWKeiXVEnIlvVJqSZneh6SCH4/h4alwhsqehd7hKvZN
j1Vl5qqp5dT4TNX1yqvl5Bp6FdTyck29imoFuZZeJbWiTO8jU8GPx/DNqXCG
2p6F3uGL7Jse68jM1VWrqfGZ6ulVV6vJ9fVqqNXlBno11RryxXq11JoyvY9J
BT8ewxNS4QwNPQu9w43smx4by8w1Ueuq8Zma6tVT68rN9Oqr9eTmeg3U+nIL
vYvVBjK935YKfjyG70qFM7T0LPQOX2Lf9HipzNxlahM1PlMrvaZqE7m1XjO1
qdxGr7naTG6r10JtLtP7Pangx2P4gVQ4QzvPQu/w5fZNj+1l5jqol6nxmTrq
tVIvkzvptVZbyZ312qit5Sv02qptZHp/KBX8eAw/mgpn6OJZ6B2+0r7p8SqZ
ua5qBzU+Uze9jmoHubteJ7Wj3EOvs9pJ7ql3hdpZpvfJqeDHY3haKpyhl2eh
d/hq+6bHa2TmrlW7qvGZeut1U7vKffS6q93kvno91O5yP72eag+Z3p9IBT8e
w9NT4Qz9PQu9wwPsmx6vk5kbqF6rxmcapNdbvVYerNdH7S1fr9dX7SPfoNdP
7SvT+7Op4Mdj+IVUOMMQz0Lv8FD7pscbZeaGqQPV+EzD9QapA+UReoPVQfJI
vevVwfIovRvU62V6fykV/HgMz0mFM4z2LPQO32Tf9HizzNwt6jA1PtMYveHq
MHms3gh1uDxOb6Q6Qh6vN0odKdP7y6ngx2N4YSqcYYJnoXf4Vvumx9tk5m5X
b1HjM92hN0a9Rb5Tb6w6Rr5Lb5w6Vr5bb7w6Tqb3Rangx2N4WSqc4R7PQu/w
8lTw7s0MscycFang3ZcZYrk5K1PBuz8zxApzVqWC90BmiJXmvJoK3oOZIVaZ
szoVvIcyQ7xqzppU8B7ODLHanEeimBjF2lTgtVlyYOom+ju41fzbrHktFXLg
Rx3HPNHfw8Qsv7d1qZCDP8lxzI/6+3nUXHh9KuTgT3Yc8yR/b5PMhV9PhRz8
KY5jnuzvc7K58BupkIM/1XHMU/wsTDEXfisVcvD5LLwl3+0YfifSd6N4LOJp
juHHM4PibUqFMfyEeY+rce6TKrnvpcIYfioz1DypxrlPq+RuToUxPD0z1Dyt
xrnPqOS+nwpj+NnMUPOMGufOUMn9IBXG8HOZoWaGGuc+r5L7YSqM4RcyQ83z
apz7okrullQYwy9lhpoX1Tj3Y3PIhT81N/bg7anw8+fnOtMxPMvxE+o0ebbe
U+oT8hy96epT8ly9Z9Xp8st6z6nPyvP0XlCfk+frvaS+IHOm71PBj8cw76g4
C70vcAwvdDxLnSm/ojdbnSUv0pujzpYX681V58hL9F5W58pL9eapL8vL9Oar
82TOxPu0ZVnGMO+uOAu9L3cMr3C8UF0gr9R7RV0or9JbpL4iv6q3WF0kr9Zb
oi6W1+gtVZfIa/WWqUtlzsR7trVZxjDvtDgLvb/mGF7neIW6XF6vt1JdIb+u
t0pdKb+h96q6Sn5Tb7X6qvyW3hp1tbxBb626RuZMvH/bkGUM866Ls9D7247h
jY7Xqa/J7+itV9fJ7+q9rq6XN+m9ob4uv6f3pvqGvFnvLfVN+X29DepbMmfi
vdz7WcYw78A4C71/4Bj+0PFG9W15i9476kb5I7131Xfkj/U2qe/Kn+i9p26S
P9XbrL4nf6b3vrpZ5kzZ9OMxnOFZ6P1zx/AXjj9UP5C/1Nuifihv1ftI3SJ/
pfex+pH8td4n6sfyNr1P1U/kb/Q+Uz+VOVOmfjyG83gWev/WMbzd8Rfq5/J3
el+qX8jf621Vv5R36H2lbpV36n2tfiX/oLdN/Vr+Ue8bdZvMmfLpx2P4Qs9C
7z85hn92vF39Vt6l9526Xd6t9736nbxHb4f6vbxXb6e6Q/5F7wd1p7xP70f1
B5kzFdWPx3Bpz0LvvzqGf3P8s/qT/LveLvVneb/ebnWXfEBvj7pbPqi3V90j
H9L7Rd0r/6G3T/1F5kxl9eMxXNmz0PufjuHDjn9Tf5WP6P2u/iYf1duv/i7/
pXdA3S8f0zuoHpCP6x1SD8on9P5QD8mcqap+PIZrexZ6P+kYPuX4sPqn/Lfe
EfWwfFrvqHpEPqP3l3pUPqt3TP1LPqd3XD0m/6N3Qj0uc6Y6+vEYbuhZ6P28
Y/hfx6fUk/J/en+rp2S+5PKfvf/nHJzIEbwz5pz2HGk5gnfWnDOeI3uO4J0z
56znSM8RvH/MOWf/nKmxfjyGW3oWek86hjNyhPG/zp/3HKkcwfvPnH89R2aO
4GVT//McOXIEL6Fmk3PqpakJOZdedjVNzq2XrmaXORPvG3NnGcO822tp7xc4
hvM4zlCTcl69lJoh59PLVFNyfr0caqZcQC+nmkMuqJdLzSkX0sut5pI5E+8h
C2UZw7zz4yz0XtgxfKHjPOoFchG9vGoeuahePjWvXEwvv5pPLq5XQM0vl9Ar
qBaQS+oVUgvKnIn3kyWzjGHeBXIWei/lGC7t+EK1sFxGr4h6oVxWr6haRC6n
V0wtKpfXK64WkyvolVCLyxX1SqolZM7Ee8uKWcYw7wg5C71XcgxXdlxaLSVX
0Sujlpar6pVVy8jV9MqpZeXqeuXVcnINvQpqebmmXkW1gsyZeJ9ZM8sY5t0h
Z6H3Wo7h2o4rq5Xki/SqqJXlOnpV1SpyXb1qalW5nl51tZpcX6+GWl1uoFdT
rSFzJt5zNsgyhnmnyFno/WLHcEPHtdVaciO9i9TacmO9OupFchO9umoduale
PbWu3EyvvlpPbq7XQK0vcybefzbPMoZ518hZ6L2FY7il44bqxfIleo3UhvKl
eo3VRvJlek3UxnIrvaZqE7m1XjO1qdxGr7naTOZMvEtsk2UM856Us9B7W8cw
70lh5to5jrmtZ2rrmWHen5KDf7njmNt51nbmwrxXJQe/veOYL/dncLm5MO9b
ycHv4Djm9v5s2psL8x6WHPyOjmPu4M+sg7kw72fJwe/kOOaO/iw7mgvzzpYc
/M6OY+7k76GTuTDvcsnB5/fwiNzGMXw0Gd3rohiYEbR/RuBBUVwXxYAoBsvM
HYlyjiUDD3AMH0+Gta7PCMoa8Ilk8G7ICHHcnJPJ4A3JCHHCnFPJ4A3NCHHS
nL+TwbsxI8Qpc04ngzcsI8Tf5pxJBm94RojT5pxNBm9ERogz5pxLBm9kRoiz
5vyTDN6ojBDnzDmfDN7ojBD/mPNvMng3ZYQ4b85/yeDdnBHiX3Oy6d2SEeI/
cxJ6Y4xs+ml6Y42Efna9cUaafrreeCO7flJvgpGun6F3q5HUT+ndZmTo3xHF
7VFkyplZcjKtu93P0CBzBjuX0xyYz1ROeZBjOFcUuaO4U71LviCKu52723k4
TxT36N+jB+eN4l79e/XgfFHcp3+fHpw/ivv179eDC0TxgP4DenDBKB7Uf1AP
LhTFQ/oP6cGFo3hY/2E9+MIoJupP1IOLRPGI/iN6cNEoHtV/VA8uFsUk/Ul6
cPEoJutP1oNLRDFFf4oeXDKKqfpT9eBSUTym/5gePC2Kx52bppY2HrPuCXPw
n5SZe8o5css4hp/O4j9hDjxdJbesY/gZa6arcW55taxc0dzYgytlhM/cs+qd
8gx7Zf/nZOaeV59Wn5Bf0HtGfVpmzyr68Riu6t4vqs/KL7kfa8+UmZulPq/G
vczWe0F9XmbP6vrxGK7h3nPUF+W57sfaL8vMzVNnqXEv8/Vmq7Nk9qylH4/h
2u69QJ0jL3Q/1n5FZm6ROk+Ne1msN1+dJ7NnHf14DNd17yXqAnmp+7H2Mpm5
5eoiNe5lhd5idZHMnvX14zHcwL1XqkvkVe7H2q/KzK1Wl6txL2v0VqjLZfZs
qB+P4UbuvVZdKb/mfqy9TmZuvbpajXt5XW+Nulpmzyb68Rhu6t5vqGvlN92P
td+SmdugrlfjXt7We11dL7Nnc/14DLdw743qG/I77sfa78rMbVI3qHEv7+m9
rW6Q2fMS/XgMX+rem9WN8vvux9ofyMx9qG5S41626L2nbpLZs5V+PIZbu/dH
6mb5Y/dj7U9k5j5VP1TjXj7T26J+KLNnW/14DLdz78/Vj+Qv3I+1v5SZ26p+
qsa9fKX3mfqpzJ7t9eMx3MG9v1Y/l7e5H2t/IzP3rbpVjXvZrveVulVmz076
8Rju7N7fqV/L37sfa++QmdupfqvGvfygt139VmbPLvrxGL7SvX9Uv5N/cj/W
/llmbpe6U4172a33g7pTZs+u+vEY7ubee9Qf5b3ux9q/yMztU3epcS+/6u1W
d8ns2UM/HsM93fs3dY/8u/ux9n6ZuQPqPjXu5aDer+o+mT2v1o/H8DXufUj9
Tf7D/Vj7T5m5w+oBNe7liN5B9YDMnr314zHcx72Pqofkv9yPtY/JzB1XD6tx
Lyf0jqiHZfbspx+P4f7ufVI9Kp9yP9b+W2butHpcjXs5o3dCPS6z53X68Rge
6N5n1ZPyOfdj7X9k5s6rp9W4l3/1zqinZfYcrB+P4evd+z/1rHyD3v/+gatU
YOaH6CVSIW4wZ6heWirEEHN45sTLngox1ByeOfHSUyFuNIdnTrxkKsQwc3jm
xMtIhRhuDs+ceKlUiBHm8MyJl5kKMdIcnjnxcqRCjDKHZ068nKkQo83hmRMv
VyrETebwzImXOxXiZnN45sS7IBXiFnN45sTLkwoxxhyeOfHypkKMNYdnTrx8
qRDjzCkQRf5UePYsoMY5MHX4//i5KCAzx3PpBLmg45jR847jzxfPquTgF0qF
cczov47P+1m6wxr8wY4LmTdY5rmBZ9LCqaAXpgLzPFrEOfRCmefRovpoEZnn
0WKp4KNFZZ5Hi6eCjxaTeR4tkQo+WlzmebRkKvhoCZnn0VKp4KMlZZ5HS6eC
j5aSeR4tkwo+WlrmebRsKvhoGZnn0XKp4KNlZZ5Hy6eCj5aTeR6tkAo+Wl6u
GGmlVJirqPKMOtk86iqbg19FZq6qc+Ty/FpVrpbFr2wOXF0ll+fa6nKNVKip
rsa5NVVyecatKddKhZqaapz7uDnkwk+aG3swz398hmr7WeKzA1/k2ei3jsxc
XbWaWlmup1dDrSbX16ul1pDphWfM+lnGMM+F9NTA3ugFvtg+2LOhzFwjta4a
99hYr55aV26iV1+tJ9MLz55Nsoxhnhfpqam90QvczD7Ys7nMXAu1kRr32FKv
sdpIvkSvidpYpheeSS/JMoZ5jqSnS+2NXuDL7IM9W8nMtVZbqHGPbfRaqi3k
tnqXqC1leuFZtW2WMczzJT21szd6gS+3D/ZsLzPXQW2txj121GujtpY76bVV
28j0wjNspyxjmOdOeupsb/QCX2Ef7NlFZu5KtYMa93iVXke1g9xVr5PaUaYX
nm27ZhnDPI/SUzd7oxe4u32wZw+ZuZ7qlWrcYy+9q9Qr5av1uqpXyfTCM+/V
WcYwz6n0dI290Qt8rX2wZ2+ZuT5qTzXusa9eL7Wn3E/varWXTC88C/fLMoZ5
fqWn/vZGL/AA+2DP62TmBqp91LjHQXp91T7yYL1+al+ZXnhGHpxlDPNcS0/X
2xu9wDfYB3sOkZkbqg5U4x5v1BukDpSH6Q1WB8n0wrPzsCxjmOddehpub/QC
j7AP9hwpMzdKHarGPY7Wu1EdKt+kN0y9UaYXnqlvyjKGeQ6mp5vtjV7gW+yD
PcfIzI1VR6lxj+P0Rquj5PF6N6mjZXrhWXt8ljHM8zE9TbA3eoFvtQ/2vE1m
7nZ1rBr3eIfeOHWsfKfeeHWcTC88g9+ZZQzz3ExPd9kbvcB32wd73iMzd696
uxr3eJ/eHert8v16d6p3yPTCs/n9WcYwz9P09IC90Qv8oH2w50Mycw+r96px
jxP17lPvlR/Ru1+9T6YXntkfyTKGec6mp0ftjV7gSfbBnpNl5qaoD6txj1P1
JqoPy4/pPaJOlOmFZ/nHsoxhnr/paZq90Qv8uH2w5xMyc0+qU9S4x6f0pqpT
5Kf1HlOnyvTCM/7TWcYwz+X0NN3e6AV+xj7Y81mZuRnqk2rc43N6T6lPys/r
Pa0+JdMLz/7PZxnDPK/T0wv2Ri/wi/bBni/JzM1UZ6hxj7P0nlNnyLP1nlef
k+mFdwKzs4xhnuPpaY690Qs81z7Y82WZuXnqTDXucb7eLHWmvEBvtjpLphfe
FSzIMoZ5vqenhfZGL/Ar9sGei2TmFqvz1LjHJXrz1XnyUr0F6nyZXngOXZpl
DPNOgZ6W2Ru9wNn0+J7Ycpn5hN4KI5t+mt5KI6GfXW+VkaafrveqkV0/qbfa
SNfP0FtjJPVTemuNDP1MvdeMlH4OvXVGpn5OvfVGDv1ceq8bOfVz671h5NLn
u1lvpsK7hbfUOOcC6970d/yKOYucy2MOvMFxzG/6e34zy+cirzn4bzuOeYO/
/w3mwvnMwd/oOGZ0qbpELmAOPp+dAvJSxzDPf7wreEd9V+Y9wSbnNjkP857g
Pf339GDeE2zW36wH857gff339WDeE3yg/4EezHuCD/U/1IN5T7BFf4se/FEq
fG9ri4yWNrZY94k5+J/KzH3mHLllHMOfZ/E/MQf+QiW3rGP4S2u+UOPcrSq5
5RzDX1mzVY1zv1bJLe8Y3mbN12qc+41KbgXH8LfWfKPGuZXUCnIVc2MP5vmb
z8R29R35O392/Dy+l5nboX6ufiLv1PtS/Vz+Qe8r9Uv5R71t6lfyT3rfqttk
eq+jH4/hBp7hZ3W7vMu+6XG3HP8bTLvscVeWM+3V26nukH/R+0HdKe/T+1H9
Qf5V7yf1R5neG+rHY/gR/52sicZd/ptTj/rvZD1i3K03yX8n61HjHr3J/jtZ
k4x79ab472RNNu7Tm+q/lzXFuF/vfr3H/Pez7pen+e9lPa4+lIXxnvDfyXpQ
fsLzMPekzNxTnudJ4xG9pz3PU8ajetM9z9PGJL1nPM90Y7Les57nGWOK3gzP
9awxVW+q3nOec6r8vOd6QX08C+O96HmmyS96HuZekpmb6XleMp7Sm+V5ZhpP
6832PLOM6XpzPM9s4xm9uZ5njvGs3suea64xQ2+G3jzPOUOe77kWqC9kYbyF
nud5eaHnYe4VmblFnucVY6beYs+zyJilt8TzLDZm6y31PEuMOXrLPM9SY67e
cs+1zHhZ72W9FZ7zZXml51qlLsjCeK96nvnyq56HudUyc2s8z2pjkd5az7PG
WKz3mudZayzRW+d5XjOW6q33POuMZXqve671xnK95XpveM7l8pue6y11VRbG
2+B5VsobPA9zb8vMbfQ8bxtr9N7xPBuNtXrvep53jNf0Nnmed411eu95nk3G
er3Nnus943W91/Xe95yvyx94rg/Vt7Iw3hbP86a8xfMw95HM3Mee5yNjo94n
nudj4x29Tz3PJ8a7ep95nk+NTXqfe57PjPf0vvBcnxub9Tbrfek5N8tbPddX
6odZGO9rz/OB/LXnYW6bzNw3nmeb8bHet57nG+MTve2e51vjU73vPM924zO9
7z3Pd8bnejs81/fGF3pf6O30nF/IP3iuH9WvsjDeT55nq/yT52HuZ5m5XZ7n
Z+Mbvd2eZ5fxrd4ez7Pb2K631/PsMb7T+8Xz7DW+19vnuX4xdujt0PvVc+6Q
f/Ncv6s/ZmG8/Z7nB3m/52HugMzcQc9zwNild8jzHDR26/3heQ4Ze/T+9Dx/
GHv1DnueP41f9I54rsPGPr19ekc95z75L891TP09C+Md9zy/ySfUv2T0pPGX
tcc9835zDjhHzt9RnHL+pHzKn8UJ46A15J6J4rQ5f8un/RnFtYesIfdcFGfN
OSOf9WcX1/5hDbnno/jHnHPyP/5M49o/rSH3vyj+Nee8/K8/67j2sDXkJtKz
RQ/rIYdxNsdHstQesYbctCx+NsdHzYEP+zcTsqcHTU8PzN9BSDqHpsv8vYMM
fTQp83cNUunBRzNk/n5BZnrw0ZTM3ynIkR58NFPm7xHkTA8+mkPmbw/kSg8+
mlPmbxDkjviC9MBohvkwuTnMwc+THjieyxtFPutzy/mdz2PkTf//3AJRFDQv
r1zI+fxGgSy5haO40LwCchHnCxmFs+QWjaKYeYXl4s4XMYpmyS0RRUnzisql
nC9ulMiSW9qcEuaVca6EzN8x4DNR1s8GnwW4kD87fm7l/LkwV94zlzPy61Xw
bOWNQnoVPUMFo4heJXutaBTXq2yflYxSeqX0qth3KZm/S8AZqnoWeofL2Dc9
V7NX5qrbXzWjvF4N+6tuVNCraX81jIp6teyvplFJr7Z91jIq61XWu8i+K8v8
nQHOUMez0Dtc3b7pua69MlfP/uoa1fXq2189o4ZeA/urb9TUu9j+Ghi19Bra
58VGbb3aeo3su7bM3w3gDI09C73DF9s3PTexV+aa2l8To55eM/tratTXa25/
zYwGei3sr7lxsV5L+2xhNNRrqHeJfTeMOXs4w6Wehd7hS+2bni+zV+Za2d9l
RlO91vbXymim18b+WhvN9draXxujhV47+2xrtNRrqXe5fbeU+Xf9OUN7z0Lv
cCf7pucO9vq/fy/f/joYrWLP/joarfU6218no43eFfbX2Wir18U+rzDa6bXT
u9K+28n8O/2c4SrPQu9wL/um5672ylw3++tqdNTrbn/djE56Peyvu9FZr6f9
9TCu0Otlnz2NLnpd9K627y4y/+7+//7WgGehd3igfdPztfbKXG/7u9boptfH
/nob3fX62l8fo4deP/vra/TU62+f/Yxeer30Bth3L5l/R58zXOdZ6B0ead/0
PNBemRtkfwON3nqD7W+Q0UfvevsbbPTVu8H+rjf66Q2xzxuM/nr99Ybad3+Z
fxefM9zoWegdvtW+6XmYvTI33P6GGYP0RtjfcGOw3kj7G2FcrzfK/kYaN+iN
ts9RxhC9IXo32fcQmX/nnjPc7FnoHX7Avun5Fntlboz93WIM1xtrf2OMEXrj
7G+sMVJvvP2NM0bpTbDP8cZovdF6t9r3aJn3i5zhNs9C7/Bj9k3Pt9src3fY
3+3GGL077e8OY6zeXfZ3pzFO7277u8sYr3ePfd5tTNCboHevfU+QeV/IGe7z
LPQOP2ff9Hy/vTL3gP3db9yh96D9PWDcqfeQ/T1o3KX3sP09ZNytN9E+Hzbu
0btH7xH7vkfm/R9neNSz0Ds8z77peZK9MjfZ/iYZD+hNsb/JxoN6U+1vivGQ
3mP2N9V4WG+afT5mTNSbqPe4fU+UeZ/HGZ7wLPQOr7Bven7SXpl7yv6eNCbr
PW1/TxlT9Kbb39PGVL1n7G+68Zjes/b5jDFNb5reDPueJvN+jjM851noHX7D
vun5eXtl7gX7e954Su9F+3vBeFrvJft70ZiuN9P+XjKe0ZtlnzONZ/We1Ztt
38/KvG/jDHM8C73D79s3Pc+1V+Zetr+5xgt68+zvZeNFvfn2N894SW+B/c03
ZuottM8Fxiy9WXqv2PcsmfdnnGGRZ6F3+Ev7pufF9srcEvtbbLyst9T+lhjz
9JbZ31Jjvt5y+1tmLNBbYZ/LjYV6C/VW2vdCmfdhnGGVZ6F3eKd90/Or9src
avt71Viit8b+VhtL9dba3xpjmd5r9rfWWK63zj5fM1bordBbb98rZN5vcYbX
PQu9w7/aNz2/Ya/MvWl/bxir9d6yvzeNNXob7O8tY63e2/a3wXhNb6N9vm2s
01un9459r5N5X8UZ3vUs9A4ftW963mSvzL1nf5uMN/U22997xlt679vfZmOD
3gf2977xtt6H9vmBsVFvo94W+94o876MM3zkWegd5t0Y3sfpIY6ZwzswvE/S
Q5w0h3ddeJ+mh/jbHN5p4X2WHuKMOby7wvs8PcQ5c3hHhfdFeojz5iT0vkwP
8Z85W9PDe6mEjH5lJMxN82fNz3+rnGbOtii+tvYr+Wt/B1uN96wh99sovjFn
m/yNv5u4drM15H4XxXZzvpW3+zuLa9+3htwdUXxvznfy9/4u49oPrCH3hyh2
mrND3unvOq790Bpyf8zi73S8xTHM+xve3d2SCDo2EZj3duOdQ8fKvLe7VR8d
L/Pe7vZE8NFbZd7b3ZkIPnq7zHu7uxPBR++UeW93byL46N0y7+nuTwQfvVfm
vdyDieCj98u8f3s4EXz0QZn3bI8kgo8+LPM+bVIi+OgjMu/NpiSCj06SeUf2
WCL46BSZd2U/RfF4IjBa0nyY3DLm4P8sx3O7ongyEXJ/knc7/7OxK0vuniie
ToS8XfJe53cbe7Lk/hLFM4mQt0fe5/xe45csuc8nQg5M3ouJMPeLXNbP0PxE
UD47cBV75Vy/ysz9Zk+/Grv1fnfv34y9evvd93djn94+vVcSoY99Mu/D6Gmp
vdELfJH70cMBmbmD7nfA+E3vkPsdNH7X+8N9Dxn79fbrrUiEPvbLvN+ip9X2
Ri9wI/ejhz9l5g6735/GQb0j7nfYOKR31H2PGH/o/aH3WiL08YfM+yp6esPe
6AW+xP3o4S+ZuWPu95dxWO+4+x0zjuidcN/jxlG9o3obEqGPozLvn+jpXXuj
F/hy96OHkzJzp9zvpHFM72/3O2Uc1zvtvn8bJ/RO6G1OhD5OyLxPoqct9kYv
8JXuRw9nZObOut8Z45TeOfc7a/yt94/7njNO653W+yQR+jgt836Inr6wN3qB
r3Y/ejgvM/ev+503zur9537/Guf0siXDvv8Z/+j9o/dVIvTBGOZ9Dz19a2/0
Ag9wP3pIJAMzl5YM+zGXkPGyJ8N++GkyXnoy7JvdyKaH4n2fCH1kk//3HiqK
H+2NXuCh7kkPSfdmLsP9kkaaXsr9MozsepnumzLS9dL1diVCH+ky72Po6Rd7
oxf4JvughxzuzVxO98thZOjlcr+cRkovt/vmMjL1MvV+S4Q+MmXer9DTQXuj
F/hW+6CHC9ybuTzud4GRUy+v++Uxcunlc9+8Rm693Hp/JkIfuWXel9DTX/ZG
L/C99kEP+d2buQLul9/Io1fQ/QoYefUKuW9BI59ePr0TidBHPpn3H/R02t7o
BX7EPuihsHszd6H7FTYK6BVxvwuNgnpF3beIUUivkN65ROijkMz7DHr6z97o
BX7cPuihmHszV9z9ihkX6pVwv+JGEb2S7lvCKKpXVC8tLfRRVOb9BD1lpAWl
F3iGfdBDKfdmrrT7lTKK65Vxv9JGCb2y7lvGKKlXUi9HWuijpMz7Bnq6wN7o
BZ5tH/RQzr2ZK+9+5YzSehXcr7xRRq+i+1YwyuqV1cuXFvooK/P+gJ4K2Ru9
wK/YBz1Ucm/mKrtfJaO8XhX3q2xU0KvqvlWMinoV9YqkhT4qyrwPoKcS9kYv
8Er7oIdq7s1cdferZlTWq+F+1Y0qejXdt4ZRVa+qXum00EdVmed7eipvb/QC
r7cPeqjl3szVdr9aRnW9i9yvtlFDr477XmTU1KupVykt9FFT5nmdnqrZG73A
79gHPdR1b+bquV9do7ZefferZ1yk18B96xt19Oro1UwLfdSRef6mpzr2Ri/w
Fvugh4vdm7mG7nexUU+vkfs1NOrrNXbfRkYDvQZ69dNCHw1knvnpqZG90QvM
Mz9ek7QQH5nDMz9es7QQH5vDMz9ei7QQn5jDMz/eJWkhPjWHZ368y9JCfGYO
z/x4rdNCfG4Oz/l4bdNCfGEOz/R4l6eF+NIcnt3xOqSF+MocntHxOqWF2GYO
z+J4V6SF+NYcnrnxrkwL8Z05PGvjdU0LscOcJsnwnI0Po93TQvxg/o/+jreY
c7E15PSMomkyzHeXm/o7bmI0tIbcq/k9mNNTbubvPq5tZA2510bR3Jyr5eZ+
NuLaxtaQ2y/t/32UMZ+bxnJhno+jaJEM2jIZuAjPGM6hLeWi3LP10UvkYlFc
lgw+eqlcPIpWyeCjl8klomidDD7aSi4ZRZtk8NHWcqko2iaDj7aRS0fRLhl8
tK1chmeSZPDRdnJZ7uXJ4KOXy+Wi6JAMPtpeLh9Fx2Tw0Q5yhSg6JYOPdpQr
RtE5GXy0k1wpiiuSwUc7y5Wj6JIMPnqFXIVnmGTw0S5yVe7xyeCjV8rVouia
DD56lVw9im7J4KNd5RpRdE8GH+0m14yiRzL4aHe5VhQ9k2GupmO4dqS9kmFc
SybvokT4bF2dDMpnCq7Dvd+62jI1dROh5lpryYXrRdzbujoyNfUToaaPteTC
DSLua109mZqLE6Gmn7Xkwg0j7m9dA5maRolQM8BacuHGEV9nXUOZmiaJUDPQ
WnLhphEPsq6xTE2zRKgZbC25cPOIr7euqUxNi0SoucFacuGWEQ+xrrlMzSWJ
UDPUWnLhSyO+0bqWMjWXJULNMGvJhVtFPNy6S2VqWidCzQhryYXbRDzSulYy
NW0ToWaUteTC7SIebV0bmZrLE6HmJmvJhdtHfLN17WRqOiRCzS3Wkgt3jHiM
de1lajolQs1Ya8mFO0c8zrqOMjVXJELNeGvJhbtEPMG6zjI1VyZCza3Wkgtf
FfFt1nWRqemaCDW3W0su3C3iO6y7SqameyLU3GktuXCPiO+yrptMTc9EqLnb
WnLhXhHfY10PmZqrE6HmXmvJha+J+D7resnUXJsINfdbSy7cOxG8B5IhrjWn
TyJ4DyZD9DanbyJ4DyVD9DGnXyJ4DydD9DWnfyJ4E5Mh+pkzIBG8R5Ih+ptz
XSJ4jyZDDDBnYCJ4k5IhrjNnUCJ4k5MhBpozOBG8KckQg8y5PhG8qckQg825
IRG8x5IhrjdnSCJ405IhbjBnaCJ4jydDDDHnxkTwnkiGGGrOsETwnkyGuNGc
4YngPZUMMcycEYngPZ0MMdyckYngTU+GGGHOqETwnkmGGGnO6ETwnk2GGGXO
TYngzUiGGG3Oc/zfXyL4MxzDzD3n5+samc8W/93g7vG8+oLMveNF5150Hube
8ZL+S3ow946Z+jP1YO4ds/Rn6cHcO2brz9aDuXfM0Z+jB3PvmKs/Vw/m3vGy
/st6MPeOefrz9GDuHfP15+vB3DsW6C/Qg7l3LNRfqAdz73hF/xU9mHvHIv1F
ejD3jsX6i/Vg7h1L9Jfowdw7luov1YO5dyzTX6YHc+9Yrr9cD+besUJ/hR7M
vWOl/ko9eFUUrzq3Su1hrLRutTn4a2TmejrXQ+7l/CrHMPcOPnNr1efl11yL
nHXya65xjbzaMXyta61X18qvW0/OG/LrrtFbfs0x3Me13lTXy29ZT84G+S3X
6Cu/7hju51pvq2/KG60n5x15o2v0l99yDA9wrXfVt+VN1pPznrzJNa6TNzqG
B7rWZvVd+X3ryflAft81BsmbHMODXetDdbO8xXpyPpK3uMb18vuO4Rtc62P1
Q/kT68n5VP7ENYbIWxzDQ13rM/Vj+XPryflC/tw1bpQ/cQwPc60v1c/krdaT
85W81TWGy587hke41tfql/I268n5Rt7mGiPlrY7hUa71rfq1vN16cr6Tt7vG
aHmbY/gm1/pe/VbeYT05O+UdrnGzvN0xfItr/aB+L/9oPTk/yT+6xhh5h2N4
rGv9rP4g77KenN3yLtcYJ//oGB7vWnvUn+W91pPzi7zXNSbIuxzDt7rWPnWP
/Kv15Pwm/+oat8l7HcO3u9bv6j55v/XkHJD3u8Yd8q+O4Ttd66D6u3zIenL+
kA+5xl3yfsfw3a71p3pQPmw9OUfkw65xj3zIMXyvax1V/5T/sp6cY/JfrnGf
fNgxfL9rHVePyg/onTDud/5BvZPGA/oP6Z0yHtR/WO9v4yH9iXqnjYf1H9E7
Y0zUf1TvrPGI/iS9c8aj+pP1/jEm6U/RO29M1p+q968xRf8xvf+MqfrT9Pj7
JcRj+o/r8fdLiGnmPKHH3y8hHjeHOygef78ku3n43EHx+Psl6ebhcwfF4++X
JM3D5w6Kx98vyTAPnzsoHn+vJGUePndQPP5OSaZ5+PytkhwZ4U6aU41zYOrw
j/n5ySkzx111hsxn7Tn5Lz97MPcI7qj8DQqUv20Ccz+9wDk0t8z9NI8+eoHM
/ZS/Z/KSmkfmfsrfM5mp5pW5n/L3TGap+WTup/w9k9lqfpn7KX/PZI5aQOZ+
yt8zmasWlLmf8vdMXlYLydxP+Xsm89TCMvdT/p7JfPVCmfspf89kgVpE5n7K
3zNZqBaVuZ/y90xeUYvJ3E/5eyaL1OIy91P+nslitYTM/ZS/YbJELSlzP+Vv
lSxVS8ncT/mbJMvU0jL3U/4OyXK1jFwuI/wtEubKqdxTV5pHXQVz8CvKzL1q
PbnwGnPL6cHcK/lsVfIzxmcKruxa5FSRmWMN7pyV9dbI3CtZq6prsgZczXpy
qsvMsQZ3zmp662TulaxVwzVZA65pPTm1ZOZYgztnTb03ZO6VrFXbNVkDvsh6
curIzLEGd86L9DbI3CtZq65rsgZcz3py6svMsQZ3znp678jcK1mrgWuyBnyx
9eQ0lJljDe6cF+u9J3OvZK1GrskacGPryWkiM8ca3Dkb630gc69kraauyRpw
M+vJaS4zxxrcOZvpfSRzr2StFq7JGnBL68m5RGaONbhzttT7VOZeyVqXuiZr
wJdZT04rmTnW4M55md4XMvdK1mrtmqwBt7GenLYyc6zBnbON3lcy90rWauea
rAFfbj057WXmWIM75+V638jcK1mrg2uyBtzRenI6ycyxBnfOjnrfydwrWauz
a7IGfIX15HSRmWMN7pxX6O2UuVey1pWuyRrwVdaT01VmjjW4c16l95PMvZK1
urkma8DdrSenh8wca3Dn7K63W+ZeyVo9XZM14F7Wk3O1zBxrcOfspfeLzL2S
ta5xTdaAr7WenN4yc6zBnfNavd9k7pWs1cc1WQPuaz05/WTmWIM7Z1+9AzL3
Stbq75qsAQ+wnpzrZOZYgzvnAL0/5P8D72UPGQ==
            "]],
           Annotation[#, "Geometry"]& ], 
          {GrayLevel[0], Point3DBox[CompressedData["
1:eJwl2kMQIMquANA3tm3btm3btq07tm3btm3btu2Zf6b+4lRvepWqNJIkaNiu
YtsA//vf/0qH+N///q0BCURgghCUYATHlv+FJBShCUNYwhGeCEQkEpGJQlSi
EZ0YxCQWsYlDXOIRnwQkJBGJSUJSkpGcFKQkFalJQ1rSkZ4MZCQTmclCVrKR
nRzkJBe5yUNe8pGfAhSkEIUpQlGKUZwSlKTUv3hRhrKUozwVqEglKlOFqlSj
OjWoSS1qU4e61KM+DWhIIxrThKY0ozktaEkrWtOGtrSjPR3oSCc604WudKM7
PehJL3rTh//oSz/6M4CBDGIwQxjKMIYzgpGMYjRjGMs4xjOBiUxiMlOYyjSm
M4OZzGI2c5jLPOazgIUsYjFLWMoylrOClaxiNWtYyzrWs4GNbGIzW9jKNraz
g53sYjd72Ms+9nOAgxziMEc4yjGOc4KTnOI0ZzjLOc5zgYtc4jJXuMo1rnOD
m9ziNne4yz3u84CHPOIxT3jKM57zgpe84jVveMs73vOBj3ziM1/4yje+84Of
/OI3f/jLv+QPQEACEZggBCUYwQlBSEIRmjCEJRzhiUBEIhGZKEQlGtGJQUxi
EZs4xCUe8UlAQhKRmCQkJRnJSUFKUpGaNKQlHenJQEYykZksZCUb2clBTnKR
mzzkJR/5KUBBClGYIhSlGMUpQUlKUZoylKUc5alARSpRmSpUpRrVqUFNalGb
OtSlHvVpQEMa0ZgmNKUZzWlBS1rRmjb8O7zb0Z4OdKQTnelCV7rRnR70pBe9
6cN/9KUf/RnAQAYxmCEMZRjDGcFIRjGaMYxlHOOZwEQmMZkpTGUa05nBTGYx
mznMZR7zWcBCFrGYJSxlGctZwUpWsZo1rGUd69nARjaxmS1sZRvb2cFOdrGb
PexlH/s5wEEOcZgjHOUYxznBSU5xmjOc5RznucBFLnGZK1zlGte5wU1ucZs7
3OUe93nAQx7xmCc85RnPecFLXvGaN7zlHe/5wEc+8ZkvfOUb3/nBT37xmz/8
5d/FH4CABCIwQQhKMIITgpCEIjRhCEs4whOBiEQiMlGISjSiE4OYxCI2cYhL
POKTgIQkIjFJSEoykpOClKQiNWlISzrSk4GMZCIzWchKNrKTg5zkIjd5yEs+
8lOAghSiMEUoSjGKU4KSlKI0ZShLOcpTgYpUojJVqEo1qlODmtSiNnWoSz3q
04CGNKIxTWhKM5rTgpa0ojVtaEs72tOBjnSiM13oSje604Oe9KI3ffiPvvSj
PwMYyCAGM4ShDGM4IxjJKEYzhrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zGM+
C1jIIhazhKUsYzkrWMkqVrOGtaxjPRvYyCY2s4WtbGM7O9jJLnazh73sYz8H
OMghDnOEoxzjOCc4ySlOc4aznOM8F7jIJS5zhatc4zo3uMktbnOHu9zjPg94
yCMe84SnPOM5L3jJK17zhre84z0f+MgnPvOFr3zjOz/4yS9+84e//Hv0ByAg
gQhMEIISjOCEICShCE0YwhKO8EQgIpGITBSiEo3oxCAmsYhNHOISj/gkICGJ
SEwSkpKM5KQgJalITRrSko70ZCAjmchMFrKSjezkICe5yE0e8pKP/BSgIIUo
TBGKUozilKAkpShNGcpSjvJUoCKVqEwVqlKN6tSgJrWoTR3qUo/6NKAhjWhM
E5rSjOa0oCWtaE0b2tKO9nSgI53oTBe60o3u9KAnvehNH/6jL/3ozwAGMojB
DGEowxjOCEYyitGMYSzjGM8EJjKJyUxhKtOYzgxmMovZzGEu85jPAhayiMUs
YSnLWM4KVrKK1axhLetYzwY2sonNbGEr29jODnayi93sYS/72M8BDnKIwxzh
KMc4zglOcorTnOEs5zjPBS5yictc4SrXuM4NbnKL29zhLve4zwMe8ojHPOEp
z3jOC17yite84S3veM8HPvKJz3zhK9/4zg9+8ovf/OEv/z78AQhIIAIThKAE
IzghCEkoQhOGsIQjPBGISCQiE4WoRCM6MYhJLGITh7jEIz4JSEgiEpOEpCQj
OSlISSpSk4a0pCM9GchIJjKThaxkIzs5yEkucpOHvOQjPwUoSCEKU4SiFKM4
JShJKUpThrKUozwVqEglKlOFqlSjOjWoSS1qU4e61KM+DWhIIxrThKY0ozkt
aEkrWtOGtrSjPR3oSCc604WudKM7PehJL3rTh//oSz/6M4CBDGIwQxjKMIYz
gpGMYjRjGMs4xjOBiUxiMlOYyjSmM4OZzGI2c5jLPOazgIUsYjFLWMoylrOC
laxiNWtYyzrWs4GNbGIzW9jKNrazg53sYjd72Ms+9nOAgxziMEc4yjGOc4KT
nOI0ZzjLOc5zgYtc4jJXuMo1rnODm9ziNne4yz3u84CHPOIxT3jKM57zgpe8
4jVveMs73vOBj3ziM1/4yje+84Of/OI3f/jLv2JfAAISiMAEISjBCE4IQhKK
0IQhLOEITwQiEonIRCEq0YhODGISi9jEIS7xiE8CEpKIxCQhKclITgpSkorU
pCEt6UhPBjKSicxkISvZyE4OcpKL3OQhL/nITwEKUojCFKEoxShOCUpSitKU
oSzlKE8FKlKJylShKtWoTg1qUova1KEu9ahPAxrSiMY0oSnNaE4LWtKK1rSh
Le1oTwc60onOdKEr3ehOD3rSi9704T/60o/+DGAggxjMEIYyjOGMYCSjGM0Y
xjKO8UxgIpOYzBSmMo3pzGAms5jNHOYyj/ksYCGLWMwSlrKM5axgJatYzRrW
so71bGAjm9jMFrayje3sYCe72M0e9rKP/RzgIIc4zBGOcozjnOAkpzjNGc5y
jvNc4CKXuMwVrnKN69zgJre4zR3uco/7POAhj3jME57yjOe84CWveM0b3vKO
93zgI5/4zBe+8o3v/OAnv/jNH/7yr9AfgIAEIjBBCEowghOCkIQiNGEISzjC
E4GIRCIyUYhKNKITg5jEIjZxiEs84pOAhCQiMUlISjKSk4KUpCI1aUhLOtKT
gYxkIjNZyEo2spODnOQiN3nISz7yU4CCFKIwRShKMYpTgpKUojRlKEs5ylOB
ilSiMlWoSjWqU4Oa1KI2dahLPerTgIY0ojFNaEozmtOClrSiNW1oSzva04GO
dKIzXehKN7rTg570ojd9+I++9KM/AxjIIAYzhKEMYzgjGMkoRjOGsYxjPBOY
yCQmM4WpTGM6M5jJLGYzh7nMYz4LWMgiFrOEpSxjOStYySpWs4a1rGM9G9jI
Jjazha1sYzs72MkudrOHvexjPwc4yCEOc4SjHOM4JzjJKU5zhrOc4zwXuMgl
LnOFq1zjOje4yS1uc4e73OM+D3jIIx7zhKc84zkveMkrXvOGt7zjPR/4yCc+
84WvfOM7P/jJL37zh7/8a/IFICCBCEwQghKM4IQgJKEITRjCEo7wRCAikYhM
FKISjejEICaxiE0c4hKP+CQgIYlITBKSkozkpCAlqUhNGtKSjvRkICOZyEwW
spKN7OQgJ7nITR7yko/8FKAghShMEYpSjOKUoCSlKE0ZylKO8lSgIpWoTBWq
Uo3q1KAmtahNHepSj/o0oCGNaEwTmtKM5rSgJa1oTRva0o72dKAjnehMF7rS
je70oCe96E0f/qMv/ejPAAYyiMEMYSjDGM4IRjKK0YxhLOMYzwQmMonJTGEq
05jODGYyi9nMYS7zmM8CFrKIxSxhKctYzgpWsorVrGEt61jPBjayic1sYSvb
2M4OdrKL3exhL/vYzwEOcojDHOEoxzjOCU5yitOc4SznOM8FLnKJy1zhKte4
zg1ucovb3OEu97jPAx7yiMc84SnPeM4LXvKK17zhLe94zwc+8onPfOEr3/jO
D37yi9/84S//GvwBCEggAhOEoAQjOCEISShCE4awhCM8EYhIJCIThahEIzox
iEksYhOHuMQjPglISCISk4SkJCM5KUhJKlKThrSkIz0ZyEgmMpOFrGQjOznI
SS5yk4e85CM/BShIIQpThKIUozglKEkpSlOGspSjPBWoSCUqU4WqVKM6NahJ
LWpTh7rUoz4NaEgjGtOEpjSjOS1oSSta04a2tKM9HehIJzrTha50ozs96Ekv
etOH/+hLP/ozgIEMYjBDGMowhjOCkYxiNGMYyzjGM4GJTGIyU5jKNKYzg5nM
YjZzmMs85rOAhSxiMUtYyjKWs4KVrGI1a1jLOtazgY1sYjNb2Mo2trODnexi
N3vYyz72c4CDHOIwRzjKMY5zgpOc4jRnOMs5znOBi1ziMle4yjWuc4Ob3OI2
d7jLPe7zgIc84jFPeMoznvOCl7ziNW94yzve84GPfOIzX/jKN77zg5/84jd/
+Mu/4Z4ABCQQgQlCUIIRnBCEJBShCUNYwhGeCEQkEpGJQlSiEZ0YxCQWsYlD
XOIRnwQkJBGJSUJSkpGcFKQkFalJQ1rSkZ4MZCQTmclCVrKRnRzkJBe5yUNe
8pGfAhSkEIUpQlGKUZwSlKRUiP+fl/o/DKyv6A==
            "]]}}, 
         {EdgeForm[None], 
          Polygon3DBox[{
           Scaled[{0, 0, 0}], Scaled[{0, 1, 0}], Scaled[{1, 1, 0}], 
            Scaled[{1, 0, 0}]},
           VertexColors->{
             GrayLevel[0.5, 0.2], 
             GrayLevel[0.5, 0.4], 
             GrayLevel[0.5, 0.2], 
             GrayLevel[0.5, 0.01]}], 
          Polygon3DBox[{
           Scaled[{0, 0, 0}], Scaled[{0, 0, 1}], Scaled[{0, 1, 1}], 
            Scaled[{0, 1, 0}]},
           VertexColors->{
             GrayLevel[0.5, 0.4], 
             GrayLevel[0.5, 0.01], 
             GrayLevel[0.5, 0.01], 
             GrayLevel[0.5, 0.4]}], 
          Polygon3DBox[{
           Scaled[{0, 1, 0}], Scaled[{0, 1, 1}], Scaled[{1, 1, 1}], 
            Scaled[{1, 1, 0}]},
           VertexColors->{
             GrayLevel[0.5, 0.4], 
             GrayLevel[0.5, 0.01], 
             GrayLevel[0.5, 0.01], 
             GrayLevel[0.5, 0.4]}]}},
        Lighting->"Neutral"]}],
     MouseAppearanceTag["LinkHand"]],
    AllowKernelInitialization->False],
   "RegionGraphics3D",
   AutoDelete->True,
   Editable->False,
   Selectable->False],
  Axes->True,
  AxesEdge->{{-1, -1}, {1, -1}, {-1, -1}},
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox["y", TraditionalForm], 
    FormBox["z", TraditionalForm]},
  AxesStyle->GrayLevel[0],
  BaseStyle->{
    Opacity[1], 
    EdgeForm[None]},
  Boxed->{Left, Bottom, Back},
  FaceGrids->{{-1, 0, 0}, {0, 1, 0}, {0, 0, -1}},
  FaceGridsStyle->Directive[
    AbsoluteThickness[1], 
    GrayLevel[0, 0.2]],
  ImageSize->{664.9522461732066, 233.26080759450568`},
  ImageSizeRaw->Automatic,
  Lighting->{{"Ambient", 
     GrayLevel[0.45]}, {"Directional", 
     GrayLevel[0.3], 
     ImageScaled[{2, 0, 2}]}, {"Directional", 
     GrayLevel[0.33], 
     ImageScaled[{2, 2, 2}]}, {"Directional", 
     GrayLevel[0.3], 
     ImageScaled[{0, 2, 2}]}},
  TicksStyle->Directive[
    Opacity[0], FontOpacity -> 1],
  ViewPoint->{2.157835679497217, -2.3002792696823584`, 1.225748939121864},
  ViewVertical->{-0.7575104251067027, -0.1363455057408596, 
   5.587341944214729}]], "Output",
 CellChangeTimes->{{3.759070955384362*^9, 3.759070977652513*^9}, {
   3.759071021266911*^9, 3.75907105987184*^9}, 3.7590710948405046`*^9, 
   3.759071884142231*^9, 3.7590727720663548`*^9, 3.759188120365203*^9, 
   3.759188207894758*^9, 3.759188289719022*^9, 3.7591883455011263`*^9, 
   3.7591883839906178`*^9, 3.759188530724363*^9, {3.759188754722724*^9, 
   3.7591888171367264`*^9}, {3.7591890517720194`*^9, 
   3.7591890797836294`*^9}, {3.759189133713914*^9, 3.759189159968935*^9}, {
   3.7591892115466604`*^9, 3.7591892223785925`*^9}, 3.7591899768159018`*^9, 
   3.7591901754738593`*^9, 3.7591902152142916`*^9, 3.7591903647086954`*^9, 
   3.759190466463532*^9, {3.759191036086466*^9, 3.7591910410587077`*^9}, 
   3.759191100511945*^9, 3.7591914608430557`*^9, 3.759191613308679*^9, 
   3.7591928416955366`*^9, 3.7591929119777985`*^9, 3.759193090535079*^9, {
   3.759193267218831*^9, 3.7591932917473707`*^9}, 3.7591933593193345`*^9, {
   3.7591934166276407`*^9, 3.759193456845788*^9}, 3.7591945536547327`*^9, 
   3.7591948491173277`*^9, 3.7591950772002106`*^9, 3.7591952715910254`*^9, 
   3.759195479261425*^9, {3.7591958472870445`*^9, 3.7591960020553913`*^9}, 
   3.7591960854514437`*^9, 3.759196144367815*^9, 3.7592293985840883`*^9, 
   3.7592294411062202`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"2a60e949-78d4-4d6d-a25b-b39e6384ece9"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.759070955384362*^9, 3.759070977652513*^9}, {
   3.759071021266911*^9, 3.75907105987184*^9}, 3.7590710948405046`*^9, 
   3.759071884142231*^9, 3.7590727720663548`*^9, 3.759188120365203*^9, 
   3.759188207894758*^9, 3.759188289719022*^9, 3.7591883455011263`*^9, 
   3.7591883839906178`*^9, 3.759188530724363*^9, {3.759188754722724*^9, 
   3.7591888171367264`*^9}, {3.7591890517720194`*^9, 
   3.7591890797836294`*^9}, {3.759189133713914*^9, 3.759189159968935*^9}, {
   3.7591892115466604`*^9, 3.7591892223785925`*^9}, 3.7591899768159018`*^9, 
   3.7591901754738593`*^9, 3.7591902152142916`*^9, 3.7591903647086954`*^9, 
   3.759190466463532*^9, {3.759191036086466*^9, 3.7591910410587077`*^9}, 
   3.759191100511945*^9, 3.7591914608430557`*^9, 3.759191613308679*^9, 
   3.7591928416955366`*^9, 3.7591929119777985`*^9, 3.759193090535079*^9, {
   3.759193267218831*^9, 3.7591932917473707`*^9}, 3.7591933593193345`*^9, {
   3.7591934166276407`*^9, 3.759193456845788*^9}, 3.7591945536547327`*^9, 
   3.7591948491173277`*^9, 3.7591950772002106`*^9, 3.7591952715910254`*^9, 
   3.759195479261425*^9, {3.7591958472870445`*^9, 3.7591960020553913`*^9}, 
   3.7591960854514437`*^9, 3.759196144367815*^9, 3.7592293985840883`*^9, 
   3.7592294411218567`*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"a166b19a-3740-4016-b194-cb25982c6a1e"],

Cell[BoxData["512.9927840030091`"], "Output",
 CellChangeTimes->{{3.759070955384362*^9, 3.759070977652513*^9}, {
   3.759071021266911*^9, 3.75907105987184*^9}, 3.7590710948405046`*^9, 
   3.759071884142231*^9, 3.7590727720663548`*^9, 3.759188120365203*^9, 
   3.759188207894758*^9, 3.759188289719022*^9, 3.7591883455011263`*^9, 
   3.7591883839906178`*^9, 3.759188530724363*^9, {3.759188754722724*^9, 
   3.7591888171367264`*^9}, {3.7591890517720194`*^9, 
   3.7591890797836294`*^9}, {3.759189133713914*^9, 3.759189159968935*^9}, {
   3.7591892115466604`*^9, 3.7591892223785925`*^9}, 3.7591899768159018`*^9, 
   3.7591901754738593`*^9, 3.7591902152142916`*^9, 3.7591903647086954`*^9, 
   3.759190466463532*^9, {3.759191036086466*^9, 3.7591910410587077`*^9}, 
   3.759191100511945*^9, 3.7591914608430557`*^9, 3.759191613308679*^9, 
   3.7591928416955366`*^9, 3.7591929119777985`*^9, 3.759193090535079*^9, {
   3.759193267218831*^9, 3.7591932917473707`*^9}, 3.7591933593193345`*^9, {
   3.7591934166276407`*^9, 3.759193456845788*^9}, 3.7591945536547327`*^9, 
   3.7591948491173277`*^9, 3.7591950772002106`*^9, 3.7591952715910254`*^9, 
   3.759195479261425*^9, {3.7591958472870445`*^9, 3.7591960020553913`*^9}, 
   3.7591960854514437`*^9, 3.759196144367815*^9, 3.7592293985840883`*^9, 
   3.7592294411218567`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"c392e46a-5757-4ce4-8261-2efb7f74a16c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Mass", "[", 
   RowBox[{"boatregion_", ",", " ", "boatdensity_"}], "]"}], ":=", 
  "1400"}], "\[IndentingNewLine]", 
 RowBox[{"boatmass", "=", "1400"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.75907084715088*^9, 3.7590709012747087`*^9}, 
   3.759071138603026*^9, {3.759071259499156*^9, 3.759071266928605*^9}, {
   3.759071300947072*^9, 3.759071307409132*^9}, 3.759071376767318*^9, {
   3.7591899840798655`*^9, 3.7591899848487515`*^9}, {3.759190121162506*^9, 
   3.759190126490387*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"148f209f-1c4c-4a67-bd1b-e73e94ce68a7"],

Cell[BoxData["1400"], "Output",
 CellChangeTimes->{3.7591901270370865`*^9, 3.7591901842152624`*^9, 
  3.7591902170444508`*^9, 3.7591903679788785`*^9, 3.7591904682806416`*^9, 
  3.7591910413266835`*^9, 3.75919110077754*^9, 3.759191461129629*^9, 
  3.7591916135899086`*^9, 3.7591928435437527`*^9, 3.759192912277458*^9, 
  3.7591930948705883`*^9, 3.75919329235915*^9, 3.759193457457187*^9, 
  3.7591945543443193`*^9, 3.7591948497920103`*^9, 3.7591950778719225`*^9, 
  3.7591952722982407`*^9, 3.759195479933139*^9, 3.759196015161483*^9, 
  3.7591961520562525`*^9, 3.7592293989013815`*^9, 3.759229441249044*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"399908be-a345-493e-8cd3-d6138c621489"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"CenterOfMass", "[", 
   RowBox[{"boatregion_", ",", " ", "boatdensity_"}], "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"RegionCentroid", "[", "boatregion", "]"}], "-", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "3"}], "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"boatcom", " ", "=", " ", 
  RowBox[{"CenterOfMass", "[", 
   RowBox[{"hullreg", ",", " ", "boatdens"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.759071318573318*^9, 3.759071330976748*^9}, 
   3.759071392873054*^9, {3.7591899962597923`*^9, 3.7591900010543575`*^9}, {
   3.7591900437079244`*^9, 3.759190061934091*^9}, {3.7591903471733656`*^9, 
   3.7591903506989794`*^9}, {3.7591904633095655`*^9, 3.7591904634818287`*^9}, 
   3.7591916103619547`*^9, {3.759194839327607*^9, 3.759194846236371*^9}, {
   3.7591950661559124`*^9, 3.759195074734125*^9}, {3.759195268813528*^9, 
   3.7591952689852905`*^9}, {3.7591954752619815`*^9, 
   3.7591954754182262`*^9}, {3.7591960341543655`*^9, 3.759196034248492*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"bbe2e87c-4594-4617-88eb-689f8882b028"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "5.294616219022399`*^-17"}], ",", "5.`", ",", 
   "2.7142857142857126`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.759071228139221*^9, 3.759071278282048*^9, {3.759071338256373*^9, 
   3.759071395475768*^9}, 3.759071889439376*^9, 3.759072778598921*^9, 
   3.759188121978386*^9, 3.7591882148506765`*^9, 3.759188292143468*^9, 
   3.7591883535736446`*^9, 3.759188392288376*^9, 3.7591885364737453`*^9, 
   3.759189226887182*^9, 3.7591900019180555`*^9, 3.75919006538136*^9, 
   3.759190188699811*^9, 3.7591902195687017`*^9, 3.75919037053443*^9, 
   3.7591904708156414`*^9, 3.7591910413891196`*^9, 3.759191100824401*^9, 
   3.759191461175282*^9, 3.759191613636776*^9, 3.759192846256898*^9, 
   3.7591929123087053`*^9, 3.7591930959975986`*^9, 3.759193293456664*^9, 
   3.759193461558861*^9, 3.7591945584175506`*^9, 3.7591948539196835`*^9, 
   3.7591950819762306`*^9, 3.7591952764464593`*^9, 3.759195484082114*^9, {
   3.759196020191542*^9, 3.7591960397468843`*^9}, 3.7591961563973536`*^9, 
   3.759229398932623*^9, 3.759229449192254*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"c418cea2-9b00-44af-a549-966d04d736ac"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Waterline3D", "[", 
   RowBox[{"\[Theta]_", ",", " ", "\[Phi]_"}], "]"}], ":=", " ", 
  RowBox[{"Quiet", "[", 
   RowBox[{"ImplicitRegion", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Piecewise", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"y", ",", " ", 
            RowBox[{"\[Phi]", "\[Equal]", "90"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", " ", 
            RowBox[{"\[Theta]", "==", "90"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "z"}], ",", " ", 
            RowBox[{
             RowBox[{"\[Theta]", ">", "90"}], "||", 
             RowBox[{"\[Phi]", ">", "90"}]}]}], "}"}]}], "}"}], ",", "z"}], 
       "]"}], "\[LessEqual]", 
      RowBox[{"Piecewise", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"draft", ",", " ", 
            RowBox[{
             RowBox[{"\[Theta]", "\[Equal]", "90"}], "||", 
             RowBox[{"\[Phi]", "\[Equal]", "90"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "1"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"Tan", "[", 
                 RowBox[{"\[Theta]", "*", 
                  RowBox[{"\[Pi]", "/", "180"}]}], "]"}], "*", "x"}], "+", 
               RowBox[{
                RowBox[{"Tan", "[", 
                 RowBox[{"\[Phi]", "*", 
                  RowBox[{"\[Pi]", "/", "180"}]}], "]"}], "*", "y"}], "+", 
               "draft"}], ")"}]}], ",", " ", 
            RowBox[{
             RowBox[{"\[Theta]", ">", "90"}], "||", 
             RowBox[{"\[Phi]", ">", "90"}]}]}], "}"}]}], "}"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"Tan", "[", 
           RowBox[{"\[Theta]", "*", 
            RowBox[{"\[Pi]", "/", "180"}]}], "]"}], "*", "x"}], "+", 
         RowBox[{
          RowBox[{"Tan", "[", 
           RowBox[{"\[Phi]", "*", 
            RowBox[{"\[Pi]", "/", "180"}]}], "]"}], "*", "y"}], "+", 
         "draft"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"y", ",", "0", ",", "60"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"z", ",", "0", ",", "30"}], "}"}]}], "}"}]}], "]"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CalculateDraft3D", "[", 
   RowBox[{
   "boatregion_", ",", " ", "boatdensity_", ",", " ", "\[Theta]_", ",", " ", 
    "\[Phi]_"}], "]"}], ":=", 
  RowBox[{"Quiet", "[", 
   RowBox[{
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Integrate", "[", 
        RowBox[{"1.", ",", " ", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x", ",", "y", ",", "z"}], "}"}], "\[Element]", 
          RowBox[{"RegionIntersection", "[", 
           RowBox[{"boatregion", ",", " ", 
            RowBox[{"Waterline3D", "[", 
             RowBox[{"\[Theta]", ",", " ", "\[Phi]"}], "]"}]}], "]"}]}]}], 
        "]"}], "\[Equal]", 
       RowBox[{"boatmass", "/", "1"}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"draft", ",", " ", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"Tan", "[", 
           RowBox[{"\[Theta]", "*", 
            RowBox[{"\[Pi]", "/", "180"}]}], "]"}], "/", "3"}], "-", 
         RowBox[{
          RowBox[{"Tan", "[", 
           RowBox[{"\[Phi]", "*", 
            RowBox[{"\[Pi]", "/", "180"}]}], "]"}], "/", "3"}]}]}], "}"}]}], 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DisplacedWater3D", "[", 
   RowBox[{
   "boatregion_", ",", " ", "boatdensity_", ",", " ", "\[Theta]_", ",", " ", 
    "\[Phi]_"}], "]"}], ":=", " ", 
  RowBox[{"Quiet", "[", 
   RowBox[{
    RowBox[{"RegionIntersection", "[", 
     RowBox[{"boatregion", ",", " ", 
      RowBox[{"Waterline3D", "[", 
       RowBox[{"\[Theta]", ",", " ", "\[Phi]"}], "]"}]}], "]"}], "/.", 
    RowBox[{"CalculateDraft3D", "[", 
     RowBox[{
     "boatregion", ",", " ", "boatdensity", ",", " ", "\[Theta]", ",", " ", 
      "\[Phi]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CenterOfBuoyancy3D", "[", 
   RowBox[{
   "boatregion_", ",", " ", "boatdensity_", ",", " ", "\[Theta]_", ",", " ", 
    "\[Phi]_"}], "]"}], ":=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"RegionCentroid", "[", 
    RowBox[{"DisplacedWater3D", "[", 
     RowBox[{
     "boatregion", ",", " ", "boatdensity", ",", " ", "\[Theta]", ",", " ", 
      "\[Phi]"}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RightingMoment3D", "[", 
   RowBox[{
   "boatregion_", ",", " ", "boatdensity_", ",", " ", "\[Theta]_", ",", " ", 
    "\[Phi]_"}], "]"}], ":=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Cross", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"CenterOfBuoyancy3D", "[", 
       RowBox[{
       "boatregion", ",", " ", "boatdensity", ",", " ", "\[Theta]", ",", " ", 
        "\[Phi]"}], "]"}], "-", "boatcom"}], ",", " ", 
     RowBox[{"boatmass", "*", "9.8", "*", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"Tan", "[", 
            RowBox[{"\[Theta]", "*", 
             RowBox[{"\[Pi]", "/", "180"}]}], "]"}]}], ",", " ", 
          RowBox[{"-", 
           RowBox[{"Tan", "[", 
            RowBox[{"\[Phi]", "*", 
             RowBox[{"\[Pi]", "/", "180"}]}], "]"}]}], ",", "1"}], "}"}], "/", 
        RowBox[{"Piecewise", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", " ", 
             RowBox[{
              RowBox[{"\[Theta]", ">", "90"}], "||", 
              RowBox[{"\[Phi]", ">", "90"}]}]}], "}"}], "}"}], ",", "1"}], 
         "]"}]}], "/", 
       RowBox[{"Norm", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"Tan", "[", 
            RowBox[{"\[Theta]", "*", 
             RowBox[{"\[Pi]", "/", "180"}]}], "]"}]}], ",", " ", 
          RowBox[{"-", 
           RowBox[{"Tan", "[", 
            RowBox[{"\[Phi]", "*", 
             RowBox[{"\[Pi]", "/", "180"}]}], "]"}]}], ",", "1"}], "}"}], 
        "]"}]}]}]}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.75907150036087*^9, 3.75907151420553*^9}, {
  3.759071689998314*^9, 3.759071692052773*^9}, {3.759071729200437*^9, 
  3.7590717906234617`*^9}, {3.7590718315538177`*^9, 3.75907184764012*^9}, {
  3.759190139449133*^9, 3.7591901402817287`*^9}, {3.7591945137812686`*^9, 
  3.7591945507377234`*^9}, {3.7591962012005296`*^9, 3.7591962031752744`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"0440646f-917b-4090-ad63-896091dbb2a8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CalculateDraft3D", "[", 
  RowBox[{"hullreg", ",", "1", ",", "0", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.759191376135907*^9, 3.759191405057134*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"da32146b-9e71-4c78-b35f-e68576bce3fd"],

Cell[BoxData[
 RowBox[{"draft", "\[Rule]", "21.`"}]], "Output",
 CellChangeTimes->{3.7591914058564434`*^9, 3.759191461253435*^9, 
  3.7591916137773647`*^9, 3.7591928464443235`*^9, 3.7591929124180064`*^9, 
  3.7591930964376163`*^9, 3.759193293878405*^9, 3.759193461964983*^9, 
  3.7591936736617937`*^9, 3.759194558714325*^9, 3.759194854156094*^9, 
  3.7591950822131166`*^9, 3.759195276680745*^9, 3.759195484303153*^9, 
  3.759196169156863*^9, 3.759196209472766*^9, 3.7592293990731907`*^9, 
  3.759229449598421*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"7962d674-dd1a-481d-b651-0349f083e4e2"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7591937274950666`*^9, 3.759194091349307*^9}, {
  3.7591942397046685`*^9, 3.7591944471025066`*^9}, {3.759194485460739*^9, 
  3.759194507430215*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"580cb8bb-96a9-47b0-8cd3-674498d32907"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RightingMoment3D", "[", 
   RowBox[{"hullreg", ",", " ", "boatdens", ",", "89", ",", " ", "0"}], "]"}],
   "//", "AbsoluteTiming"}]], "Input",
 CellChangeTimes->{{3.759071905531032*^9, 3.759071907593807*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"ea65a17a-7f9c-4f1d-9057-0e171d1fee1f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4.1775521273868135`", ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", 
     RowBox[{"-", "41153.73113263707`"}], ",", "0.`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7592293992808805`*^9, 3.759229453801171*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"6689821b-d76a-4f9b-8037-08143b0ef557"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.29007356441538196`", ",", 
   RowBox[{"{", 
    RowBox[{"4.2534334511318016`*^-13", ",", 
     RowBox[{"-", "15908.129597236635`"}], ",", "2.4367903921432958`*^-11"}], 
    "}"}]}], "}"}]], "Input",
 CellChangeTimes->{3.7591962122827835`*^9},
 CellLabel->"In[27]:=",ExpressionUUID->"e85e40f9-cba6-41b8-a400-56058b2c9d91"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.29007356441538196`", ",", 
   RowBox[{"{", 
    RowBox[{"4.2534334511318016`*^-13", ",", 
     RowBox[{"-", "15908.129597236635`"}], ",", "2.4367903921432958`*^-11"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759196212360483*^9, 3.7592293993099036`*^9, 
  3.7592294538828545`*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"bba9417a-f0aa-4e25-8ca7-cc7bc457ff4b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RightingMoment3D", "[", 
   RowBox[{"hullreg", ",", " ", "boatdens", ",", "0", ",", "0"}], "]"}], "//",
   "AbsoluteTiming"}]], "Input",
 CellChangeTimes->{{3.759071449664168*^9, 3.7590714927464*^9}, {
  3.759071545919116*^9, 3.759071584836463*^9}, {3.759071619381941*^9, 
  3.7590716496829844`*^9}, {3.7590719297996807`*^9, 3.7590719330211697`*^9}, {
  3.759196257003925*^9, 3.7591962589960456`*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"78c14fa7-2771-443b-9bc2-26805db7c946"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4.098941985603166`", ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.759071465261001*^9, 3.759071472382268*^9}, {
   3.7590715406538877`*^9, 3.7590715878343143`*^9}, {3.759071635507448*^9, 
   3.7590716506601763`*^9}, {3.759071918704681*^9, 3.75907193461478*^9}, 
   3.7591881232120867`*^9, 3.7591882162388024`*^9, 3.7591883068361435`*^9, 
   3.759188354981599*^9, 3.7591883935870237`*^9, 3.7591885394649143`*^9, 
   3.7591892300628915`*^9, {3.7591902010724726`*^9, 3.7591902201154537`*^9}, 
   3.7591903711433663`*^9, 3.7591904713938103`*^9, 3.759191041904622*^9, 
   3.7591911013271093`*^9, 3.759191461722028*^9, 3.7591916143893933`*^9, 
   3.759192847462531*^9, 3.7591929129178877`*^9, 3.759193100842761*^9, 
   3.759193297669905*^9, 3.759193466538866*^9, 3.759194562817325*^9, 
   3.759194855394456*^9, 3.7591950834339085`*^9, 3.7591952779334655`*^9, 
   3.7591954855997477`*^9, {3.7591962516872263`*^9, 3.759196262273287*^9}, 
   3.759229399403664*^9, 3.7592294579861236`*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"850a0dbf-cbea-4af2-a0c7-83171cb4d07c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"angle1_", ",", " ", "angle2_"}], "]"}], ":=", 
  RowBox[{"N", "[", 
   RowBox[{
    RowBox[{"RightingMoment3D", "[", 
     RowBox[{
     "hullreg", ",", " ", "boatdens", ",", "angle1", ",", " ", "angle2"}], 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable1", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "0.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "0."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable2", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "2.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "2."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable3", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "4.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "4."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable4", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "6.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "6."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable5", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "8.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "8."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable6", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "10.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "10."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable7", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "12.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "12."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable8", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "14.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "14."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable9", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "16.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "16."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable10", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "18.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "18."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable11", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "20.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "20."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable12", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "22.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "22."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable13", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "24.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "24."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable14", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "26.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "26."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable15", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "28.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "28."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable16", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "30.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "30."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.759071972719798*^9, 3.759072000466646*^9}, {
   3.7590728096669416`*^9, 3.7590728370525837`*^9}, {3.759072925626684*^9, 
   3.759073043280994*^9}, {3.7590733389563932`*^9, 3.759073395969692*^9}, {
   3.759073737971199*^9, 3.759073745068993*^9}, {3.759196286946718*^9, 
   3.759196350019063*^9}, {3.7591968986470656`*^9, 3.7591969019949427`*^9}, {
   3.759196953944845*^9, 3.7591969568600082`*^9}, 3.7591970221001887`*^9, {
   3.7591973124142914`*^9, 3.7591973418859725`*^9}, {3.759197599361195*^9, 
   3.759197599533065*^9}, {3.759197840707432*^9, 3.759197840879014*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"b677da27-0834-4a54-b1eb-70a1b1a91310"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759072007653284*^9, 3.759072790849867*^9, 
  3.7590730510075483`*^9, 3.759073414911355*^9, 3.7591881250532494`*^9, 
  3.759188224502492*^9, 3.7591883213507576`*^9, 3.7591883639342537`*^9, 
  3.759188401749645*^9, 3.7591885421763024`*^9, 3.7591892435292187`*^9, 
  3.759190228973169*^9, 3.7591903723188534`*^9, 3.7591904725588856`*^9, 
  3.7591910431413116`*^9, 3.7591911023786287`*^9, 3.7591914629896793`*^9, 
  3.759191615453885*^9, 3.759192848890976*^9, 3.7591929140943975`*^9, 
  3.7591931253759217`*^9, 3.7591933220961323`*^9, 3.759193481458598*^9, 
  3.7591945661552973`*^9, 3.759194858324006*^9, 3.7591950864264174`*^9, 
  3.759195280865123*^9, 3.759195488890569*^9, 3.7591963710166097`*^9, 
  3.7591970359036384`*^9, 3.759197347915901*^9, 3.759197604680372*^9, 
  3.759197849423522*^9, 3.759229400155921*^9, 3.7592294816252823`*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"18e4817e-3f77-485a-af8e-8f4b27ac5db4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "2.`", ",", "1436.244770367206`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "2.`", ",", "1410.1026730948095`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "2.`", ",", "1341.1589027763944`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "2.`", ",", "1231.4883098047005`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "2.`", ",", "1084.3968777290022`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "2.`", ",", "904.3283103071642`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "2.`", ",", "696.7358699495171`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "2.`", ",", "467.9215240716641`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "2.`", ",", "224.84598262954864`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "2.`", ",", 
     RowBox[{"-", "25.085017528465915`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "2.`", ",", 
     RowBox[{"-", "274.2510981763757`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "2.`", ",", 
     RowBox[{"-", "515.0558539927723`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "2.`", ",", 
     RowBox[{"-", "740.1645415570284`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "2.`", ",", 
     RowBox[{"-", "942.7317705575299`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "2.`", ",", 
     RowBox[{"-", "1116.610983480799`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "2.`", ",", 
     RowBox[{"-", "1256.538966637045`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "2.`", ",", 
     RowBox[{"-", "1358.2903980999615`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "2.`", ",", 
     RowBox[{"-", "1418.7991820694353`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759072007653284*^9, 3.759072790849867*^9, 
  3.7590730510075483`*^9, 3.759073414911355*^9, 3.7591881250532494`*^9, 
  3.759188224502492*^9, 3.7591883213507576`*^9, 3.7591883639342537`*^9, 
  3.759188401749645*^9, 3.7591885421763024`*^9, 3.7591892435292187`*^9, 
  3.759190228973169*^9, 3.7591903723188534`*^9, 3.7591904725588856`*^9, 
  3.7591910431413116`*^9, 3.7591911023786287`*^9, 3.7591914629896793`*^9, 
  3.759191615453885*^9, 3.759192848890976*^9, 3.7591929140943975`*^9, 
  3.7591931253759217`*^9, 3.7591933220961323`*^9, 3.759193481458598*^9, 
  3.7591945661552973`*^9, 3.759194858324006*^9, 3.7591950864264174`*^9, 
  3.759195280865123*^9, 3.759195488890569*^9, 3.7591963710166097`*^9, 
  3.7591970359036384`*^9, 3.759197347915901*^9, 3.759197604680372*^9, 
  3.759197849423522*^9, 3.759229400155921*^9, 3.75922949824657*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"284f900d-b6ff-4f70-a5ec-e9f1338991a0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "4.`", ",", "2870.741292600826`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "4.`", ",", "2818.6745507896026`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "4.`", ",", "2681.312082800561`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "4.`", ",", "2462.6684537277733`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "4.`", ",", "2169.177108339462`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "4.`", ",", "1809.5508282614337`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "4.`", ",", "1394.5718733000656`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "4.`", ",", "936.8034828384978`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "4.`", ",", "450.22079818753195`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "4.`", ",", 
     RowBox[{"-", "50.231262035765994`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "4.`", ",", 
     RowBox[{"-", "549.1352023784661`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "4.`", ",", 
     RowBox[{"-", "1031.1264687430703`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "4.`", ",", 
     RowBox[{"-", "1481.415745600424`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "4.`", ",", 
     RowBox[{"-", "1886.2770456529122`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "4.`", ",", 
     RowBox[{"-", "2233.4763355484993`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "4.`", ",", 
     RowBox[{"-", "2512.6247674516953`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "4.`", ",", 
     RowBox[{"-", "2715.4510353383002`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "4.`", ",", 
     RowBox[{"-", "2835.9963709932963`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759072007653284*^9, 3.759072790849867*^9, 
  3.7590730510075483`*^9, 3.759073414911355*^9, 3.7591881250532494`*^9, 
  3.759188224502492*^9, 3.7591883213507576`*^9, 3.7591883639342537`*^9, 
  3.759188401749645*^9, 3.7591885421763024`*^9, 3.7591892435292187`*^9, 
  3.759190228973169*^9, 3.7591903723188534`*^9, 3.7591904725588856`*^9, 
  3.7591910431413116`*^9, 3.7591911023786287`*^9, 3.7591914629896793`*^9, 
  3.759191615453885*^9, 3.759192848890976*^9, 3.7591929140943975`*^9, 
  3.7591931253759217`*^9, 3.7591933220961323`*^9, 3.759193481458598*^9, 
  3.7591945661552973`*^9, 3.759194858324006*^9, 3.7591950864264174`*^9, 
  3.759195280865123*^9, 3.759195488890569*^9, 3.7591963710166097`*^9, 
  3.7591970359036384`*^9, 3.759197347915901*^9, 3.759197604680372*^9, 
  3.759197849423522*^9, 3.759229400155921*^9, 3.759229515298175*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"26e6822b-8de4-46ea-887b-42dbf92c0157"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "6.`", ",", "4301.743431073262`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "6.`", ",", "4224.184775324483`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "6.`", ",", "4019.4496234497`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "6.`", ",", "3693.225326033079`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "6.`", ",", "3254.7182554626434`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "6.`", ",", "2716.560781123513`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "6.`", ",", "2094.6126728891995`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "6.`", ",", "1407.6133880171024`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "6.`", ",", "676.6581688255139`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "6.`", ",", 
     RowBox[{"-", "75.50055959109562`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "6.`", ",", 
     RowBox[{"-", "825.2910007127697`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "6.`", ",", 
     RowBox[{"-", "1549.2335387706453`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "6.`", ",", 
     RowBox[{"-", "2224.8438340648445`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "6.`", ",", 
     RowBox[{"-", "2831.447209711774`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "6.`", ",", 
     RowBox[{"-", "3350.8440588977533`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "6.`", ",", 
     RowBox[{"-", "3767.7975826111633`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "6.`", ",", 
     RowBox[{"-", "4070.348783972928`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "6.`", ",", 
     RowBox[{"-", "4249.990194571036`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759072007653284*^9, 3.759072790849867*^9, 
  3.7590730510075483`*^9, 3.759073414911355*^9, 3.7591881250532494`*^9, 
  3.759188224502492*^9, 3.7591883213507576`*^9, 3.7591883639342537`*^9, 
  3.759188401749645*^9, 3.7591885421763024`*^9, 3.7591892435292187`*^9, 
  3.759190228973169*^9, 3.7591903723188534`*^9, 3.7591904725588856`*^9, 
  3.7591910431413116`*^9, 3.7591911023786287`*^9, 3.7591914629896793`*^9, 
  3.759191615453885*^9, 3.759192848890976*^9, 3.7591929140943975`*^9, 
  3.7591931253759217`*^9, 3.7591933220961323`*^9, 3.759193481458598*^9, 
  3.7591945661552973`*^9, 3.759194858324006*^9, 3.7591950864264174`*^9, 
  3.759195280865123*^9, 3.759195488890569*^9, 3.7591963710166097`*^9, 
  3.7591970359036384`*^9, 3.759197347915901*^9, 3.759197604680372*^9, 
  3.759197849423522*^9, 3.759229400155921*^9, 3.7592295340377812`*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"cac49505-5eed-43a0-9b7b-baf1e5191b71"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "8.`", ",", "5727.509272786227`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "8.`", ",", "5625.10238184665`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "8.`", ",", "5354.553248251603`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "8.`", ",", "4922.829919461787`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "8.`", ",", "4341.386206616053`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "8.`", ",", "3626.249329963813`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "8.`", ",", "2797.9719782617735`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "8.`", ",", "1881.3329987395155`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "8.`", ",", "904.7016893562824`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "8.`", ",", 
     RowBox[{"-", "100.95594694109917`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "8.`", ",", 
     RowBox[{"-", "1103.3686503195843`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "8.`", ",", 
     RowBox[{"-", "2070.4127039466484`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "8.`", ",", 
     RowBox[{"-", "2971.546111732072`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "8.`", ",", 
     RowBox[{"-", "3779.0492942315555`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "8.`", ",", 
     RowBox[{"-", "4468.949339513497`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "8.`", ",", 
     RowBox[{"-", "5021.584277023173`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "8.`", ",", 
     RowBox[{"-", "5421.843812382611`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "8.`", ",", 
     RowBox[{"-", "5659.180534667636`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759072007653284*^9, 3.759072790849867*^9, 
  3.7590730510075483`*^9, 3.759073414911355*^9, 3.7591881250532494`*^9, 
  3.759188224502492*^9, 3.7591883213507576`*^9, 3.7591883639342537`*^9, 
  3.759188401749645*^9, 3.7591885421763024`*^9, 3.7591892435292187`*^9, 
  3.759190228973169*^9, 3.7591903723188534`*^9, 3.7591904725588856`*^9, 
  3.7591910431413116`*^9, 3.7591911023786287`*^9, 3.7591914629896793`*^9, 
  3.759191615453885*^9, 3.759192848890976*^9, 3.7591929140943975`*^9, 
  3.7591931253759217`*^9, 3.7591933220961323`*^9, 3.759193481458598*^9, 
  3.7591945661552973`*^9, 3.759194858324006*^9, 3.7591950864264174`*^9, 
  3.759195280865123*^9, 3.759195488890569*^9, 3.7591963710166097`*^9, 
  3.7591970359036384`*^9, 3.759197347915901*^9, 3.759197604680372*^9, 
  3.759197849423522*^9, 3.759229400155921*^9, 3.75922955220494*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"c1b00fe1-c359-4966-8987-7492ebd4c85e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "10.`", ",", "7146.3032327294995`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "10.`", ",", "7019.89628881494`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "10.`", ",", "6685.592211124004`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "10.`", ",", "6151.132321114845`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "10.`", ",", "5429.5290907917715`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "10.`", ",", "4539.504269863641`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "10.`", ",", "3505.777035930744`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "10.`", ",", "2358.965680127238`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "10.`", ",", "1134.9100021710135`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "10.`", ",", 
     RowBox[{"-", "126.66230853969424`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "10.`", ",", 
     RowBox[{"-", "1384.0357772626783`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "10.`", ",", 
     RowBox[{"-", "2595.7207173230377`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "10.`", ",", 
     RowBox[{"-", "3722.6304143507227`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "10.`", ",", 
     RowBox[{"-", "4729.883516846085`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "10.`", ",", 
     RowBox[{"-", "5588.007926204008`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "10.`", ",", 
     RowBox[{"-", "6273.491725749773`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "10.`", ",", 
     RowBox[{"-", "6768.786308077292`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "10.`", ",", 
     RowBox[{"-", "7061.969184575311`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759072007653284*^9, 3.759072790849867*^9, 
  3.7590730510075483`*^9, 3.759073414911355*^9, 3.7591881250532494`*^9, 
  3.759188224502492*^9, 3.7591883213507576`*^9, 3.7591883639342537`*^9, 
  3.759188401749645*^9, 3.7591885421763024`*^9, 3.7591892435292187`*^9, 
  3.759190228973169*^9, 3.7591903723188534`*^9, 3.7591904725588856`*^9, 
  3.7591910431413116`*^9, 3.7591911023786287`*^9, 3.7591914629896793`*^9, 
  3.759191615453885*^9, 3.759192848890976*^9, 3.7591929140943975`*^9, 
  3.7591931253759217`*^9, 3.7591933220961323`*^9, 3.759193481458598*^9, 
  3.7591945661552973`*^9, 3.759194858324006*^9, 3.7591950864264174`*^9, 
  3.759195280865123*^9, 3.759195488890569*^9, 3.7591963710166097`*^9, 
  3.7591970359036384`*^9, 3.759197347915901*^9, 3.759197604680372*^9, 
  3.759197849423522*^9, 3.759229400155921*^9, 3.759229569992811*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"17721048-0a92-4b37-9a9a-8cfaf6593b6b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "12.`", ",", "8556.398152094956`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "12.`", ",", "8407.035340819271`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "12.`", ",", "8011.51927201782`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "12.`", ",", "7377.7546476324005`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "12.`", ",", "6519.470901987797`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "12.`", ",", "5457.208401172528`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "12.`", ",", "4219.173072251211`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "12.`", ",", "2841.5440477094908`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "12.`", ",", "1367.8622671448973`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "12.`", ",", 
     RowBox[{"-", "152.6870528900183`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "12.`", ",", 
     RowBox[{"-", "1667.983803945302`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "12.`", ",", 
     RowBox[{"-", "3126.242848724878`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "12.`", ",", 
     RowBox[{"-", "4479.218435716484`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "12.`", ",", 
     RowBox[{"-", "5684.740471415822`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "12.`", ",", 
     RowBox[{"-", "6708.209256231503`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "12.`", ",", 
     RowBox[{"-", "7523.000122279749`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "12.`", ",", 
     RowBox[{"-", "8110.0132913257585`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "12.`", ",", 
     RowBox[{"-", "8456.76054246263`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759072007653284*^9, 3.759072790849867*^9, 
  3.7590730510075483`*^9, 3.759073414911355*^9, 3.7591881250532494`*^9, 
  3.759188224502492*^9, 3.7591883213507576`*^9, 3.7591883639342537`*^9, 
  3.759188401749645*^9, 3.7591885421763024`*^9, 3.7591892435292187`*^9, 
  3.759190228973169*^9, 3.7591903723188534`*^9, 3.7591904725588856`*^9, 
  3.7591910431413116`*^9, 3.7591911023786287`*^9, 3.7591914629896793`*^9, 
  3.759191615453885*^9, 3.759192848890976*^9, 3.7591929140943975`*^9, 
  3.7591931253759217`*^9, 3.7591933220961323`*^9, 3.759193481458598*^9, 
  3.7591945661552973`*^9, 3.759194858324006*^9, 3.7591950864264174`*^9, 
  3.759195280865123*^9, 3.759195488890569*^9, 3.7591963710166097`*^9, 
  3.7591970359036384`*^9, 3.759197347915901*^9, 3.759197604680372*^9, 
  3.759197849423522*^9, 3.759229400155921*^9, 3.759229587970786*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"0e788d94-6a04-493d-aaa9-1c9d82145880"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "14.`", ",", "9956.077386968185`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "14.`", ",", "9784.988420739242`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "14.`", ",", "9331.266788412224`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "14.`", ",", "8602.28390505353`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "14.`", ",", "7611.504729487147`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "14.`", ",", "6380.23744718989`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "14.`", ",", "4939.327659782803`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "14.`", ",", "3330.1379995958896`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "14.`", ",", "1604.1640397857145`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "14.`", ",", 
     RowBox[{"-", "179.1008435169329`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "14.`", ",", 
     RowBox[{"-", "1955.9347287905766`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "14.`", ",", 
     RowBox[{"-", "3663.100605124331`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "14.`", ",", 
     RowBox[{"-", "5242.448877723345`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "14.`", ",", 
     RowBox[{"-", "6644.397840097239`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "14.`", ",", 
     RowBox[{"-", "7829.709243669866`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "14.`", ",", 
     RowBox[{"-", "8769.556269328423`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "14.`", ",", 
     RowBox[{"-", "9444.34555070595`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "14.`", ",", 
     RowBox[{"-", "9841.96235242784`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759072007653284*^9, 3.759072790849867*^9, 
  3.7590730510075483`*^9, 3.759073414911355*^9, 3.7591881250532494`*^9, 
  3.759188224502492*^9, 3.7591883213507576`*^9, 3.7591883639342537`*^9, 
  3.759188401749645*^9, 3.7591885421763024`*^9, 3.7591892435292187`*^9, 
  3.759190228973169*^9, 3.7591903723188534`*^9, 3.7591904725588856`*^9, 
  3.7591910431413116`*^9, 3.7591911023786287`*^9, 3.7591914629896793`*^9, 
  3.759191615453885*^9, 3.759192848890976*^9, 3.7591929140943975`*^9, 
  3.7591931253759217`*^9, 3.7591933220961323`*^9, 3.759193481458598*^9, 
  3.7591945661552973`*^9, 3.759194858324006*^9, 3.7591950864264174`*^9, 
  3.759195280865123*^9, 3.759195488890569*^9, 3.7591963710166097`*^9, 
  3.7591970359036384`*^9, 3.759197347915901*^9, 3.759197604680372*^9, 
  3.759197849423522*^9, 3.759229400155921*^9, 3.7592296078707256`*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"97abdd9a-f4df-4124-9638-0a73744d5242"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "16.`", ",", "11343.636885123484`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "16.`", ",", "11152.22464768992`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "16.`", ",", "10643.742954742882`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "16.`", ",", "9824.264763705321`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "16.`", ",", "8705.885495111108`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "16.`", ",", "7309.457380505444`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "16.`", ",", "5667.43496548381`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "16.`", ",", "3825.8632438830655`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "16.`", ",", "1844.4536846055335`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "16.`", ",", 
     RowBox[{"-", "205.97840194569815`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "16.`", ",", 
     RowBox[{"-", "2248.6484971515983`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "16.`", ",", 
     RowBox[{"-", "4207.459850468136`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "16.`", ",", 
     RowBox[{"-", "6013.480352927442`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "16.`", ",", 
     RowBox[{"-", "7609.616487376122`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "16.`", ",", 
     RowBox[{"-", "8952.622648629957`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "16.`", ",", 
     RowBox[{"-", "10012.566856521153`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "16.`", ",", 
     RowBox[{"-", "10770.58473276615`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "16.`", ",", 
     RowBox[{"-", "11215.986504233726`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759072007653284*^9, 3.759072790849867*^9, 
  3.7590730510075483`*^9, 3.759073414911355*^9, 3.7591881250532494`*^9, 
  3.759188224502492*^9, 3.7591883213507576`*^9, 3.7591883639342537`*^9, 
  3.759188401749645*^9, 3.7591885421763024`*^9, 3.7591892435292187`*^9, 
  3.759190228973169*^9, 3.7591903723188534`*^9, 3.7591904725588856`*^9, 
  3.7591910431413116`*^9, 3.7591911023786287`*^9, 3.7591914629896793`*^9, 
  3.759191615453885*^9, 3.759192848890976*^9, 3.7591929140943975`*^9, 
  3.7591931253759217`*^9, 3.7591933220961323`*^9, 3.759193481458598*^9, 
  3.7591945661552973`*^9, 3.759194858324006*^9, 3.7591950864264174`*^9, 
  3.759195280865123*^9, 3.759195488890569*^9, 3.7591963710166097`*^9, 
  3.7591970359036384`*^9, 3.759197347915901*^9, 3.759197604680372*^9, 
  3.759197849423522*^9, 3.759229400155921*^9, 3.759229627737147*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"ec4704d6-cd61-48d3-a636-2ad30f55be40"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "18.`", ",", "12717.387248552612`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "18.`", ",", "12507.213676599724`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "18.`", ",", "11947.82822380464`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "18.`", ",", "11043.19224485828`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "18.`", ",", "9802.822097512473`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "18.`", ",", "8245.721003482897`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "18.`", ",", "6404.7198219582915`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "18.`", ",", "4329.890435544137`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "18.`", ",", "2089.40946909222`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "18.`", ",", 
     RowBox[{"-", "233.3994028478233`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "18.`", ",", 
     RowBox[{"-", "2546.931121371572`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "18.`", ",", 
     RowBox[{"-", "4760.53940908322`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "18.`", ",", 
     RowBox[{"-", "6793.493949699791`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "18.`", ",", 
     RowBox[{"-", "8581.135782298177`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "18.`", ",", 
     RowBox[{"-", "10077.014947932219`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "18.`", ",", 
     RowBox[{"-", "11251.391735260297`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "18.`", ",", 
     RowBox[{"-", "12087.510619014489`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "18.`", ",", 
     RowBox[{"-", "12577.24990225225`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759072007653284*^9, 3.759072790849867*^9, 
  3.7590730510075483`*^9, 3.759073414911355*^9, 3.7591881250532494`*^9, 
  3.759188224502492*^9, 3.7591883213507576`*^9, 3.7591883639342537`*^9, 
  3.759188401749645*^9, 3.7591885421763024`*^9, 3.7591892435292187`*^9, 
  3.759190228973169*^9, 3.7591903723188534`*^9, 3.7591904725588856`*^9, 
  3.7591910431413116`*^9, 3.7591911023786287`*^9, 3.7591914629896793`*^9, 
  3.759191615453885*^9, 3.759192848890976*^9, 3.7591929140943975`*^9, 
  3.7591931253759217`*^9, 3.7591933220961323`*^9, 3.759193481458598*^9, 
  3.7591945661552973`*^9, 3.759194858324006*^9, 3.7591950864264174`*^9, 
  3.759195280865123*^9, 3.759195488890569*^9, 3.7591963710166097`*^9, 
  3.7591970359036384`*^9, 3.759197347915901*^9, 3.759197604680372*^9, 
  3.759197849423522*^9, 3.759229400155921*^9, 3.759229646972643*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"70e7fd34-8936-4d56-adda-365f48d641b1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "20.`", ",", "14075.65577936326`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "20.`", ",", "13848.426114529546`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "20.`", ",", "13242.371946399267`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "20.`", ",", "12258.504323801833`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "20.`", ",", "10902.468864245999`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "20.`", ",", "9189.863607834832`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "20.`", ",", "7152.44154017379`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "20.`", ",", "4843.455044801994`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "20.`", ",", "2339.7575076725175`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "20.`", ",", 
     RowBox[{"-", "261.44948519648995`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "20.`", ",", 
     RowBox[{"-", "2851.643732476593`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "20.`", ",", 
     RowBox[{"-", "5323.620237501014`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "20.`", ",", 
     RowBox[{"-", "7583.695344578904`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "20.`", ",", 
     RowBox[{"-", "9559.667978634674`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "20.`", ",", 
     RowBox[{"-", "11202.893631563595`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "20.`", ",", 
     RowBox[{"-", "12485.33720831717`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "20.`", ",", 
     RowBox[{"-", "13393.87862457857`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "20.`", ",", 
     RowBox[{"-", "13924.17541348802`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759072007653284*^9, 3.759072790849867*^9, 
  3.7590730510075483`*^9, 3.759073414911355*^9, 3.7591881250532494`*^9, 
  3.759188224502492*^9, 3.7591883213507576`*^9, 3.7591883639342537`*^9, 
  3.759188401749645*^9, 3.7591885421763024`*^9, 3.7591892435292187`*^9, 
  3.759190228973169*^9, 3.7591903723188534`*^9, 3.7591904725588856`*^9, 
  3.7591910431413116`*^9, 3.7591911023786287`*^9, 3.7591914629896793`*^9, 
  3.759191615453885*^9, 3.759192848890976*^9, 3.7591929140943975`*^9, 
  3.7591931253759217`*^9, 3.7591933220961323`*^9, 3.759193481458598*^9, 
  3.7591945661552973`*^9, 3.759194858324006*^9, 3.7591950864264174`*^9, 
  3.759195280865123*^9, 3.759195488890569*^9, 3.7591963710166097`*^9, 
  3.7591970359036384`*^9, 3.759197347915901*^9, 3.759197604680372*^9, 
  3.759197849423522*^9, 3.759229400155921*^9, 3.7592296655717626`*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"4ab9ab24-e7fd-4a6d-b3b3-b8d1c99f8b18"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "22.`", ",", "15416.788506690064`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "22.`", ",", "15174.334067969652`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "22.`", ",", "14526.189267926607`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "22.`", ",", "13469.57446355477`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "22.`", ",", "12004.916214391204`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "22.`", ",", "10142.697513771833`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "22.`", ",", "7911.897352149935`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "22.`", ",", "5367.868087353855`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "22.`", ",", "2596.2807559641906`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "22.`", ",", 
     RowBox[{"-", "290.2214080814375`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "22.`", ",", 
     RowBox[{"-", "3163.7127773170087`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "22.`", ",", 
     RowBox[{"-", "5898.055248729372`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "22.`", ",", 
     RowBox[{"-", "8385.316313682328`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "22.`", ",", 
     RowBox[{"-", "10545.891463602245`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "22.`", ",", 
     RowBox[{"-", "12330.198854821454`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "22.`", ",", 
     RowBox[{"-", "13713.649360267591`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "22.`", ",", 
     RowBox[{"-", "14688.41755403599`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "22.`", ",", 
     RowBox[{"-", "15255.192903781963`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759072007653284*^9, 3.759072790849867*^9, 
  3.7590730510075483`*^9, 3.759073414911355*^9, 3.7591881250532494`*^9, 
  3.759188224502492*^9, 3.7591883213507576`*^9, 3.7591883639342537`*^9, 
  3.759188401749645*^9, 3.7591885421763024`*^9, 3.7591892435292187`*^9, 
  3.759190228973169*^9, 3.7591903723188534`*^9, 3.7591904725588856`*^9, 
  3.7591910431413116`*^9, 3.7591911023786287`*^9, 3.7591914629896793`*^9, 
  3.759191615453885*^9, 3.759192848890976*^9, 3.7591929140943975`*^9, 
  3.7591931253759217`*^9, 3.7591933220961323`*^9, 3.759193481458598*^9, 
  3.7591945661552973`*^9, 3.759194858324006*^9, 3.7591950864264174`*^9, 
  3.759195280865123*^9, 3.759195488890569*^9, 3.7591963710166097`*^9, 
  3.7591970359036384`*^9, 3.759197347915901*^9, 3.759197604680372*^9, 
  3.759197849423522*^9, 3.759229400155921*^9, 3.759229683771916*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"72fe78d7-a0d1-4d5d-9383-a156387e3d3b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "24.`", ",", "16739.152192269452`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "24.`", ",", "16483.411834335413`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "24.`", ",", "15798.058323157702`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "24.`", ",", "14675.704104743272`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "24.`", ",", "13110.180438582001`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "24.`", ",", "11105.005260748008`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "24.`", ",", "8684.425333238221`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "24.`", ",", "5904.527855192133`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "24.`", ",", "2859.8292951002713`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "24.`", ",", 
     RowBox[{"-", "319.8163860801086`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "24.`", ",", 
     RowBox[{"-", "3484.1416145952376`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "24.`", ",", 
     RowBox[{"-", "6485.279869506017`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "24.`", ",", 
     RowBox[{"-", "9199.615453384104`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "24.`", ",", 
     RowBox[{"-", "11540.442664268596`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "24.`", ",", 
     RowBox[{"-", "13458.793384018307`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "24.`", ",", 
     RowBox[{"-", "14935.5074648255`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "24.`", ",", 
     RowBox[{"-", "15969.82765103834`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "24.`", ",", 
     RowBox[{"-", "16568.740370420644`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759072007653284*^9, 3.759072790849867*^9, 
  3.7590730510075483`*^9, 3.759073414911355*^9, 3.7591881250532494`*^9, 
  3.759188224502492*^9, 3.7591883213507576`*^9, 3.7591883639342537`*^9, 
  3.759188401749645*^9, 3.7591885421763024`*^9, 3.7591892435292187`*^9, 
  3.759190228973169*^9, 3.7591903723188534`*^9, 3.7591904725588856`*^9, 
  3.7591910431413116`*^9, 3.7591911023786287`*^9, 3.7591914629896793`*^9, 
  3.759191615453885*^9, 3.759192848890976*^9, 3.7591929140943975`*^9, 
  3.7591931253759217`*^9, 3.7591933220961323`*^9, 3.759193481458598*^9, 
  3.7591945661552973`*^9, 3.759194858324006*^9, 3.7591950864264174`*^9, 
  3.759195280865123*^9, 3.759195488890569*^9, 3.7591963710166097`*^9, 
  3.7591970359036384`*^9, 3.759197347915901*^9, 3.759197604680372*^9, 
  3.759197849423522*^9, 3.759229400155921*^9, 3.759229702255973*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"d5993fcb-2c8a-4990-b085-ea330b5caefd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "26.`", ",", "18041.13631233917`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "26.`", ",", "17774.136749720143`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "26.`", ",", "17056.717772979075`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "26.`", ",", "15876.115150352742`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "26.`", ",", "14218.192510252065`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "26.`", ",", "12077.531189443353`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "26.`", ",", "9471.406603417934`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "26.`", ",", "6454.932794190405`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "26.`", ",", "3131.332196206603`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "26.`", ",", 
     RowBox[{"-", "350.3456471944129`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "26.`", ",", 
     RowBox[{"-", "3814.023813092812`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "26.`", ",", 
     RowBox[{"-", "7086.8234032138425`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "26.`", ",", 
     RowBox[{"-", "10027.877867927551`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "26.`", ",", 
     RowBox[{"-", "12543.906377376243`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "26.`", ",", 
     RowBox[{"-", "14588.45178471034`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "26.`", ",", 
     RowBox[{"-", "16150.01751642218`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "26.`", ",", 
     RowBox[{"-", "17236.77897935344`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "26.`", ",", 
     RowBox[{"-", "17863.26517839492`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759072007653284*^9, 3.759072790849867*^9, 
  3.7590730510075483`*^9, 3.759073414911355*^9, 3.7591881250532494`*^9, 
  3.759188224502492*^9, 3.7591883213507576`*^9, 3.7591883639342537`*^9, 
  3.759188401749645*^9, 3.7591885421763024`*^9, 3.7591892435292187`*^9, 
  3.759190228973169*^9, 3.7591903723188534`*^9, 3.7591904725588856`*^9, 
  3.7591910431413116`*^9, 3.7591911023786287`*^9, 3.7591914629896793`*^9, 
  3.759191615453885*^9, 3.759192848890976*^9, 3.7591929140943975`*^9, 
  3.7591931253759217`*^9, 3.7591933220961323`*^9, 3.759193481458598*^9, 
  3.7591945661552973`*^9, 3.759194858324006*^9, 3.7591950864264174`*^9, 
  3.759195280865123*^9, 3.759195488890569*^9, 3.7591963710166097`*^9, 
  3.7591970359036384`*^9, 3.759197347915901*^9, 3.759197604680372*^9, 
  3.759197849423522*^9, 3.759229400155921*^9, 3.7592297206372194`*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"40075bb7-cc06-40e9-8e00-f2605d36303f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "28.`", ",", "19321.15501353512`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "28.`", ",", "19044.990203648813`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "28.`", ",", "18300.864729340406`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "28.`", ",", "17069.94249915971`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "28.`", ",", "15328.785852748024`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "28.`", ",", "13060.971118632333`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "28.`", ",", "10274.266542562174`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "28.`", ",", "7020.695679580804`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "28.`", ",", "3411.8113191735565`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "28.`", ",", 
     RowBox[{"-", "381.9322669224298`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "28.`", ",", 
     RowBox[{"-", "4154.558518068337`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "28.`", ",", 
     RowBox[{"-", "7704.321256506687`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "28.`", ",", 
     RowBox[{"-", "10871.413515820286`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "28.`", ",", 
     RowBox[{"-", "13556.804263756309`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "28.`", ",", 
     RowBox[{"-", "15718.84881645087`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "28.`", ",", 
     RowBox[{"-", "17356.205945992253`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "28.`", ",", 
     RowBox[{"-", "18487.91017374184`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "28.`", ",", 
     RowBox[{"-", "19137.225406466307`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759072007653284*^9, 3.759072790849867*^9, 
  3.7590730510075483`*^9, 3.759073414911355*^9, 3.7591881250532494`*^9, 
  3.759188224502492*^9, 3.7591883213507576`*^9, 3.7591883639342537`*^9, 
  3.759188401749645*^9, 3.7591885421763024`*^9, 3.7591892435292187`*^9, 
  3.759190228973169*^9, 3.7591903723188534`*^9, 3.7591904725588856`*^9, 
  3.7591910431413116`*^9, 3.7591911023786287`*^9, 3.7591914629896793`*^9, 
  3.759191615453885*^9, 3.759192848890976*^9, 3.7591929140943975`*^9, 
  3.7591931253759217`*^9, 3.7591933220961323`*^9, 3.759193481458598*^9, 
  3.7591945661552973`*^9, 3.759194858324006*^9, 3.7591950864264174`*^9, 
  3.759195280865123*^9, 3.759195488890569*^9, 3.7591963710166097`*^9, 
  3.7591970359036384`*^9, 3.759197347915901*^9, 3.759197604680372*^9, 
  3.759197849423522*^9, 3.759229400155921*^9, 3.759229739572113*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"a0af03ca-c209-4d2a-984f-21a964776d22"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "30.`", ",", "20577.649040471424`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "30.`", ",", "20294.458830107527`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "30.`", ",", "19529.153116838683`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "30.`", ",", "18256.226698700142`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "30.`", ",", "16441.68300290138`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "30.`", ",", "14055.959781666374`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "30.`", ",", "11094.47467220011`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "30.`", ",", "7603.559240602911`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "30.`", ",", "3702.397481584255`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "30.`", ",", 
     RowBox[{"-", "414.7133458401098`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "30.`", ",", 
     RowBox[{"-", "4507.068330492957`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "30.`", ",", 
     RowBox[{"-", "8339.528062805348`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "30.`", ",", 
     RowBox[{"-", "11731.5538249087`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "30.`", ",", 
     RowBox[{"-", "14579.581223947684`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "30.`", ",", 
     RowBox[{"-", "16849.547018002457`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "30.`", ",", 
     RowBox[{"-", "18553.013594774027`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "30.`", ",", 
     RowBox[{"-", "19721.827599561948`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "30.`", ",", 
     RowBox[{"-", "20389.09130801499`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759072007653284*^9, 3.759072790849867*^9, 
  3.7590730510075483`*^9, 3.759073414911355*^9, 3.7591881250532494`*^9, 
  3.759188224502492*^9, 3.7591883213507576`*^9, 3.7591883639342537`*^9, 
  3.759188401749645*^9, 3.7591885421763024`*^9, 3.7591892435292187`*^9, 
  3.759190228973169*^9, 3.7591903723188534`*^9, 3.7591904725588856`*^9, 
  3.7591910431413116`*^9, 3.7591911023786287`*^9, 3.7591914629896793`*^9, 
  3.759191615453885*^9, 3.759192848890976*^9, 3.7591929140943975`*^9, 
  3.7591931253759217`*^9, 3.7591933220961323`*^9, 3.759193481458598*^9, 
  3.7591945661552973`*^9, 3.759194858324006*^9, 3.7591950864264174`*^9, 
  3.759195280865123*^9, 3.759195488890569*^9, 3.7591963710166097`*^9, 
  3.7591970359036384`*^9, 3.759197347915901*^9, 3.759197604680372*^9, 
  3.759197849423522*^9, 3.759229400155921*^9, 3.759229758097313*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"4d295817-307f-455e-b69d-4ade4fd8abb8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"Union", "[", 
    RowBox[{
    "angleTable1", ",", " ", "angleTable2", ",", " ", "angleTable3", ",", " ",
      "angleTable4", ",", " ", "angleTable5", ",", " ", "angleTable6", ",", 
     " ", "angleTable7", ",", "angleTable9", ",", " ", "angleTable10", ",", 
     " ", "angleTable11", ",", " ", "angleTable12", ",", " ", "angleTable13", 
     ",", " ", "angleTable14", ",", " ", "angleTable15", ",", " ", 
     "angleTable16"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.759072300777479*^9, 3.7590723796164923`*^9}, {
  3.759072448653634*^9, 3.759072575094974*^9}, {3.75907261372635*^9, 
  3.7590726553847847`*^9}, {3.75907306361436*^9, 3.759073109871479*^9}, {
  3.759073723711248*^9, 3.759073751605865*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"ee9e9f72-07c4-4e3d-9b16-f66f6d8cb214"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ListPlot3D", "[", 
  RowBox[{"data", ",", 
   RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
   RowBox[{"InterpolationOrder", "\[Rule]", "3"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<SouthwestColors\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot3D", "[", 
  RowBox[{"data", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "10"}], ",", "10"}], "}"}]}], ",", 
   RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
   RowBox[{"InterpolationOrder", "\[Rule]", "3"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<SouthwestColors\>\""}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7590724208331223`*^9, 3.7590724398393517`*^9}, {
  3.759072662985104*^9, 3.75907266342724*^9}, {3.7591917016680717`*^9, 
  3.759191711612427*^9}, {3.759191764131751*^9, 3.759191827839968*^9}, {
  3.759191861312775*^9, 3.7591919015482807`*^9}, {3.7591919321871204`*^9, 
  3.7591919329525895`*^9}, {3.759191985078641*^9, 3.759192023892722*^9}, {
  3.759192061319381*^9, 3.7591921312167177`*^9}, {3.759192614557542*^9, 
  3.7591926186114273`*^9}, {3.7591947683049436`*^9, 3.759194819869439*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"270990cd-b0fa-4642-8be6-25faae0e0bf3"],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJxt13tUzHkfB/C2Iktb45ZJaQdDU5QxO40xO8Z7LV3s1qolG5IuwtKmG6KL
KJGNklJbUVFSypguStIko3um5GFDLi0W+1RiEat9OqdGp8953v/8zrzO+6/3
75zvfH9T3bwd1qurqanpfKampqGmSvdCtf+bT44S64mZ77cmYLgzkG5aGLXL
K4s4EyGyUPvLjVLiLCQcKHDZ41JMnA0rtTNpts/LiHPg+HvmG16xnDgXjqf8
IpqNrxHnwdduTez5/9QQ5+N7jaPdN4LriQuAyNr/ehg2ERdCLTO8vPYnJXER
ZO4rS62PNxMXo6ej/IVNewtxCU6OeXhgE7N10GcOPmk+OQ5WTpu+aVQC6TOQ
m1Sy1mlEFnEmqiK9befslhJnYexqmcXk3iLibHSPmeP3eHMZcQ5CrLT3hW+W
E+ciZ+M3lYY1CuI8tH9d6ZTsVUOcj3XyF1EC7XriAsyUlF8xPdlIXIgQz5DV
bUwlcRG6H4fJ969uJi6GOivUZWFSC3EJYl7vcE5tvjH422LwSfPJ8cv1jRcy
Xh8lfQYMDO1rT/ScIs7E6+1jLJ54niPOAn9zXnr080LibPz35YzkY1MuEudg
cZN6V/h3FcS5OKjP1r9fe5U4D043xRrPV1QT52NNVHfynHu1xAXY5dM5n+nS
QFyI7QbTtmvdaSIugmJ8X5dZtpK4GOKy0pXz7jcTl+B0bE6DzTjVzgsHnzSf
HCMsg7ReL4gjfQZWGccudFxwkjgTI3W6nP3azhJnQTrut4BWUQFxNlr/qr8/
VauEOAemKxK4lc2XiHNR1XWtYyq3ijgPRyp3JifGKojzcSkvPxovq4kLIDky
Yn+tXR1xIbLzJ7PazjQQFyFu1sJyHfXrxMVo73tqH5SrJC5B3bdf79FpHdx/
9+JBJxly2EZN2ZDwMob0Gcgre5m3qieNOBP+E8wrvL3OEGfBt9m73e1vKXE2
LENDfCMtiohzIHAeFb1jeylxLoJdnq58qVZJnAd9RbBo04wq4nz87HxZQ/yd
grgAs132Wgb4VhMXwn5/CnNSci1xEdxGm51iKuqJi2GU1ZLg0d1IXAJWo33x
Zp3B/XfbqPYcniFHfpixa9qiX0mfAetHDtp8yxTiTGwcX2j05fxM4ix8WGaW
Hbr8LHE2ZFtaJ4WVnSfOQUBQtZOFfRFxLor3d+gFRF8izsPZ+Fs2dyfLifOR
cKwgqrOnkrgAi5OnWjtdryIuxI+r3M7uliqIi3BMQ7OvKqGauBj8yFTboD21
xCXgmrLa3vup3oudas/hGXJYX6zR7VBEkD4Dr8KNk2zq4okzEd6wSDrfOY04
C7uCp51+eSeTOBsXvz99K9o9lzgHDVHb7GbvkhLnou3+Yyfv6cXEeWgKhGWJ
Zinx/vtG+7VRPt1lxAV4e7u95PHTy8SFGNVk7yN4Iycugvjc0TGFoVeIi3F1
7FijaWOvEpfgsYbuFXHu4PuS26v2HJ4hh7vHyJjLkmDSZ+DN2E37vSyjiTPR
pvnRwL8vnjgLy7488XH5+lTibChM0rw6vTKIc+B/f3O03ldZxLnYOXvyh9KO
POI8LA6If9XxTEqcj+pOZbD/CxlxAR6O7hW1vy0kLoQ4LnxqJOMCcRGkqUn1
nYJS4mJoJ+owZVvKiEug7+FherigfOA3lqv2HJ4hR/Zdk6XjDLaQPgP+xvnu
+6cHEWciw1Oz89sZEcRZCDT5QTd1ya/E2ZjVlXzrZFkscQ7+PcR54+sST5yL
u8GyI8rmFOI8HL/emdnskEacj3vnxtzea5VBXIDiPyUVh61PEReiQXttUvbK
LOIi/DLyxMScbdnExdAbLVp/4nQOcQks6wr31P81eE7KHVV7Ds+Q4wunrUVV
E+fLhzsDnRYxfUlTbIgzYejMnPX5AwfiLNw1nyA2X+BEnI2l21Z/657jQpwD
reyVjv9MdCfORWlH4tgfKjYR779vmO76s3q2F3E+1p5znzR35VbiAuyx/aoj
arovcSGOn/v9ue5HP+IiOCxcpYh8HEBcjGzvkpjn7duJSzDzwY/3Nr0IHHA4
qfYcniHH08CIUE22D+kz0Krzzx8TTMKIM5G71/zdj3UHiLOgb7IjNHBBLHE2
4vzrM9hp8cQ56DO1/blL9zfiXCyPa9b6PjadOA+aFd1ldx+fJM5HfortMRur
LOICXNWY+XLLhWziQjjbFYVZC3OJ958bjaK52g15xMW4tGT0h0MiKXEJjmw1
CBmbfH7A5atVew7PkGO7+lF3X+Zu0mdAmTciLMwwhjgTE5Jq2V38ROIsHNnb
aXtjdhpxNuZtvPuZj9Up4v3n88hcx6At2cS5kKVfKQnwlhLnIbGgWC8qUUac
j5R9j6qP1xcSF6DhXjVbZ/QF4v3fg8aRmVYrSomL8OBIdF1LfhlxMX5vvLfA
gXmZuAS/3T98rMpGPuBYq9pzeIYcJj0mH5ZNjSR9Bgz/FpSemXGMeP99o0Jz
jNQ1nTgLW96/Tp407zRxNmK35SoWTcwjzsFR3oYX80LPE+fiafPGdzuDLxDn
IbApyC/kwEXifNyeO1lddqKcuABbg94GZa+jOwixw9ysuultJXERIl70OnfH
VxEX4xsjvc7CrxXEJViqe6nj2rNrA75unWrP4RlyTMuKyGkLiCZ9BrTG3Dlv
EJhKnAnte7nv/jDKIs7Cje5JC/T35RFnw/Mtx/xRoIx4/86P9h8u5xcT5+JW
+5SW1NJy4jyMDFzmGntFTpwPsxcOu2/mXiEuQErhToOexKvE+8+NkfPPCKPo
PiJ47pmt+Tq0hrgYq1yn9HjurCMuwc47B9fXBTYMeJrroJMMOYrtT2f6+MaS
fv99Q4FHr3zTiTMR2hHEkZrlEGdhyfjnWq/8zxNn498MPy311iLiHNT1KWMt
+BeJc2Ft9Ur2Q1AlcR40flI+C8uvIs4H51G4m+9DBXEBPGeM99efWENciCcR
ydHrbeqIi3D/5oTW+SF0NzE8d2hmbSloIi5BSf1KdXd/5YA/cFPtOTxDjt7L
7U+MM+JInwHL3vCHC9NPEmciJbhiTaJ3HnEWVrSYxcWnFhBn48GU8ofBYSXE
Odi3V2OUmns5cS66Z1Qesj5URZyHmwdc2bJeBXE+mO6nTHLdaogLsOyS2OhG
TR1xIWQhya/lsxqJi8D3fL9A/eB14mKs1Reaf/GK7inBttRL7TBqGXCWx6CT
DDlOJBqtNZkfT/oM5CdM7nwiyCTOBHeyMk7WcI44C5bJepq3zYqIsxHtH/Rd
7daLxPv/B310N2jkVxDn4srfEbeXfq4gzkNvxZvVlcnVxPkQzFJs6+bUERfA
l7XJ10LaQFwIvS93dD/jXicuQsu8hra5N5XExShxtsH7L+ie/d/dxh5v/Rfd
GPB161V7Ds+QQ/96zRrerATSZ6Cm3JHdZ5xFnAmrrzyCPyZJibOwdErEPHOD
YuJsyN/sNHwXX0acA8MEfyfXcDlxLlLsFEv6niqI82A3quGfEzE1xPkw+djj
p8erJy7ABotx5xPrG4n3nxupIrc55kriIvg25r9T+jQTF8NSoutlJ20hLkHM
kY+3ljy7If8f8kaLcA==
   "], {{
     {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
       GrayLevel[1], 3], 
      StyleBox[GraphicsGroup3DBox[Polygon3DBox[CompressedData["
1:eJxN2HvcDuQZB/DnkSSpMafZuxpKRWs5m1QOK6ntzXm1VikKWzmMIaeYQ8sh
esWmyKysErVOkvQqmmOpbItQsjY0wkRLetPu6/N8n4/nj9/nvu/r+l2/67p+
z/O+n5e6vQZ2HVAuk8l8kM1kTknnmQlFCd/L5N5VE77tXs67VsLpCRXFI18+
oQpOVqyaeI2EmgmnJVRPOFWumntwKrhXd6+urirNKuI16NTUP+51EurqGbN9
x3znu9eiUwcnYpVw4qydcAZeRdrfFYvcrQldEnom1DN3XahGsxLd2mYP3rkJ
lemE3iUJjdQV8bqyXJF704TzEpqYo4Z3DXpxP0ttfEZnJ3xLrKZ8fTOcW+B9
ffudg3+2mrxG+PN9HtXnXS061exTxw51cX8oFtwL7H8BD/JexPvChMY0Gpmr
sR1ry4cHzfHPx6unVx29oncD3KipYo6qNOvRLcJpYJfz+Frf2Qy/iVx4cBEf
fuC8yP1injWk9yNoJdZQfRH9ZuY/p0Cvmd0iHt+j9gmd1TXUK3a7POEKu7VI
aOndhh+XeDei14Jfbe3dRm1LszYRb8u/y2lcqba5msY0m+C2s2MDWu3M2x6n
HR+vkm9hh0sL9m2K30ou9mwtH7wfmyNm6EbrSjP+1J4N1BXRaKX2Yjqt4TKx
ZnSbmys0O4i3L+h5lZmvs2940Mn9Or2LxVvSCD+udnZw72imYnVt9GnKoyvs
UuzdVp9WBXrtxDqb6UKfaUe7BndAQv+E0QnX2vka+8T3qat7+4J3N7teitsa
p6t4zPULs4XmT/hYLH4T3Gy3y2hcS7s7H4vxgnO9Xh151MOOHfDjfYt9Q/dn
8j3sH7me7p28O4t1wb+efi+a3byvlu+uX8w2MJP73R3+3eY+0IyhcwM/ushd
IxY7/tx5g9peenX17sazPDdwo9ivE3qrCW9+lXCn+51274XTXewu8d786O7d
ibc95G7nxwAz38Wnm3Fu58Mdzjy/v5qe+P15kOcG+ojdw6cx9r3Vzn34kfcu
3n1p3WKW29QOwunLm28STiScmf446JfOX/JrEL96qR3kPi5hsFz4MyJhJC9H
iA22X2+5UWa4Uc9+6gfjjDbrKPUj8fvh96UX/CHew+T78Og3cAfOALpjxIfi
3s/HaThjCnwZKNcXf5iZ+ptnqFwf8wzRb5C6sZncz3V87+M7O9yMoTMhYSKN
2O++hMn87ocbuFtsBM5Inv/W/lEzxVxT7ThFfgjODO9x6ifjR348P4bgjDf/
WJ/JFJqjxMaJT0p4MGEWz0brP5TeBPFpvJho77yPE2nca89J9O/xmUygM148
YtNpTqU7TN1wuRnmG+s9jn/D9Yn8A/ac7z6DH39ImAMP2fs+8ckwRzxmKjHj
eDol6qbixHwPJ8yVH6/vTHUlOFPxZvPyMb5O4tFM77xfs+xyr3vUzeNP9Pqd
3GwePGLH38vN1m+qeaernafHBD2ni0X9mwlvJZR6z6cZfjye8ASfHheL/B/t
Hbkn9Zrj/ZB8SYF38V6QsMh8T8LD+HPdI/8nMy4Qj9hTfJopP03ufu9H5WP+
JWacq26e/KzMye/0oz6L2c6FPJzt/oi6xQl/lsvHF+vxtL3my4XO8wW5+fov
pvVqwjNy4dPShJf4ulRsAc5f5Jbx6QnvuL/Mk2WwSHyBurwfcT5rhqhZTnuB
uZ/Fyff6a8Ia/EVqloq/hP8c7afoLbb3c3Zf6HyBbwvdl+C+gvsYnRfx8pwV
/FmCu0KfV9S/QH9VJve9LeXrCmfUlthxplipvVfQ2ZCwzn5r7baGl6X8eEbu
ZfGIreTBa86V7q/baTn+OvxSnOVi693XF/iQ11uj3zL5DThPmyU+rzf4tZoP
q9xf9F5tx6jd6L6RB6vx3/V5/l3P7Zncz/6b9njeXBvFXhV7Xf0atf/I5H4P
xe+cu73fs8Nb9s7vv8mOK+XivYUnUfO2/Ca7R26r+zrv9WIb8N8x03s4a71f
k1+F866699WuMeta+VXqIvYverH7NvtvVBf1f/MZbIbQ/gh3O/5/EnZ4h96/
aYZnH+uzWu1m749x35DbrH4Hvzbqv01sk/gu/Q/acXfCHj236BvcD3iyVXy3
3SP2Iews8Gsn3a303sd5m1bE9hZ4stksO9W/o8cWs2ymt8s8O+h8wq/tdtsr
ts0Z8WMJ+/DCo8MJn/HssNg+ejvkjui7zYx71e/D+ae5d6n/DD/+vRV/195E
L/j76e3G2cmLT+FDnPDkaMLn4gdw4/0/M+zx3muG6H+INwd8jnv0Oir2EZ1T
srlYuWyu7qDacuJHeLZXv0+cX+AF/2vvY/w4LdV+6R0exH8YZrO52i9wDotH
PnLR74iaL3n0X/scypzkHeFLcI479+MftWOec5xnFbMnuV8llPHgc/uXz+bu
Rwvep2Zze0a8vHuZfQ/YI2LBO8SDE3Kf6nNQTd6f4FbI5vY6hP8Vfsz3jZ1P
+J7s9z04bofT1Ye/x/hcMXvSi8iHXiVnvMsyJ2OhWzmb+zfaGdncXGVmq0Cz
klyZOb5WE2fE435WNjdr6PwfnVPMsw==
         "]]],
       Lighting->"Neutral"]}, {}, {}, {}, {}}, 
    {GrayLevel[0], 
     Line3DBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 30, 45, 60,
       75, 90, 105, 120, 135, 150, 165, 180, 195, 210, 225, 240, 255, 270, 
      269, 268, 267, 266, 265, 264, 263, 262, 261, 260, 259, 258, 257, 256, 
      241, 226, 211, 196, 181, 166, 151, 136, 121, 106, 91, 76, 61, 46, 31, 
      16, 1},
      VertexColors->None]}},
   VertexColors->CompressedData["
1:eJx1l/k3Vf0fxWUu0kNIVIbKQ4Y0qaR2KgkJUR7SYGqkkqGJRk1ElEhUokkD
KUMpkiFTMlz3uveeDNcdzzGEUij1Pd8/oJ/uWmfds9b57M/7vfdr6/se2Bgg
LSUlpTJOSkqG/t2xzFv3iwGF7d7bLNxMxDBa/sl/wINAcO5o465sCtnPZxzw
NZHgvt2EwFlTCayTfK49PkbhUVT7Gq8BCWp1qiILUrjYGs9grvlMoa9/JMne
kUTjL2ueYQYHsw/3j5m+oXCRHMkS3CPRncE0OfmEjU9jPyrmhVIo/LheP45D
Yoqzh8Oc2FZIPs/QsvAn8f6GQUDaehL7OJ1Z+jeYiLB5MHDBQQyPW+s1ZC0l
GLv56UXl6ybIrh6czC8RYr1ycPTHKDEUbfab8Wta8FgqLH3OHAGkd1mTwU0i
5HneOzfszsZZi2sOsTe7YPba65KXngg2U1etS2shoJ3kOBbN6cS1VDP/gR1C
HCOOca/ldGL6q37TI11tyLv5vtM7SYBiMmLmVwcBTKuC7d0NuPDeIu+woIGP
7vm2h0tYYkzXelHEDGGBiMt680KJj+tT/i3hunbjbzpnL9Tra3tCgX1licNr
Qwm4z9uU7bUJOO98b5L7m36u0pWg3ieBr9a9na8yuHjjfDFHtZ3CKb+M0j1r
Sci6vixPyOGgetKmyNhiCsYpwUpht0kkXZl23rKYDWutPIXEyxSuJxQ+sBCR
8KyXOa5e1IoPns9//DlFwknmskv0FhKvqzyGFtQzwdLUcwk9IEbHQ5/h2fYS
NMf68qrHmpDJ2jP57JgQl0+EL4xNFyNvctTGC8tbME8y/KgjSAC1l9UGIV9E
KL5Tnb+kuBUaC5of13V1QV751t5tK0VgTGxOyZ1PQPqCs0PYUh4S4+/Ivr0o
xJrntyz3fOtAyDe9lpLH7SAqh0bF7wQYDnlQkBzLx4dPqqJjA1xMlh8OMxnl
45XnBUW+mhi7Y+YG2KxrRZZDQHHZYlpnTYNPMpeov+rcftpmnOl9Wge1S/f3
a0uwlre4dv10Ape4F7fzxnXjuv+m2ENCCazvdXOOF3HxUabAsrmLwq9HQVUx
S0n4T6z69auZg6U2YnVmOYXMd1HzQmNJxI/IRMr2sHG/VE67/x6F94fmW+rw
6Pmf3SpVKsfGhPTRYMd6EunFHa1qZ0m8swqsfOvJwnebLvvoJjEujmOqjxyX
wOHXV+uwF83gGzR2Wdyj55JvFbeXEsOi4pf1UFUzJikWeoYZCEFd6f/nGMRY
LbdPJsKIBTXLOrmeTD4exBwx+XZdhHktRiPs0xwMqJnrDBp1wYITbyLdJ4T0
0YilyxifcSK3J+egbycM2ttmX5wrxOcHK7h18TyYl6pW3Ndtw6yo+Tu/0vc5
7uOiYEMZIULY2rucz3PgrfTZjZXNx61fxxts9kr+qrPWzu7b525S4O17vIAn
L4H0sl17tQwI3Nh0LOabfDdkox0/5bVK0K8mrezcycXKi1rp/hQFQfVKU6XZ
JCK0w54EKnHR0bh6K7eegvM/vxdvPETC0vb44TxLDg7Gr2z1yKVwdZOTS9Q7
Wuedq74s8mVj1ek208t2FFhjTQX7ykhcV86d3GvVCrWdoSO3Dkgwq3+jXFe9
BOZZwVszmAzMPr01MYL2i8tVjyVK7hKE9k1/eH5WM35fXH/ttp0IHf+5nvd/
L4Zrc+K6A8kMFHm6+5W1C6DluLHsqD59L04z5i4uZcGXmThp+2E+QlRspSzP
iOB+/3jwCyEHGwqCB3NUu1DVmRH7ki8Ef3T6eG+FNnz28Rg8trUT64ze+Rw1
E+JwklmX6U0ejhoK/PVt2oBN9XuFoQKoyF3TP8EX/FXn7c2F363pvWaX17c+
7BHDenNt93kjAipelZsShyi48D1+T8yWYKXWciOtES5OBEUuvvqNwrX1yioR
40msu7lTw96Di1Wql+08CQp3EiN3VjmRMNZImO+YyoFhtlzilDIK/ibso3Ou
kjAyOj2m1MFGkvxki7pHFGzUE048ZpFg1AumRRqwscd9uZqXHYkNi4ftnywn
UTA9ZoKsHxNVRNrn0hAJ4vaNvZBvlMCv/BJjZRsDiTePNN29I8YfCMqm+Uqw
4uKMKRc2N2ORz5ul5tdE+KjQVN7ZJcZw4ksjjb5mFC7zF7Dthdh9SeZen4sY
o0JZi4WNTOyfofMt9w8fc7J/pN8pEcHcn/ptlMfGhs5X0z/kdSHzzjzvERMR
Eu27tVtTCDy8zK7WsefhWp+lkdUVIUINpw8ted3xV52H7zeeKj1G51edg2/s
RzEKTE/G77QgcPRfremPmilUcY38+4PoOWeUvG5SJGA0sqZ3Eu0no34PHmeJ
6XP33a70zeNi5OnkG4PdFD5EhKcw9UhsO1/WIT2FC01KqFrKorAiMpC08iKx
cEeUgtxRDgwC2nVC3lOIbrn+SXyNxKov42et4rIRmGLLeeVOocmixgU1JObo
GJyd59aKCyrlijPSSWiF2Ex8vI+ExuhW33PyLPhZrpv5m5RAkSLNHCeS8GDp
XFUubMESxxtK8+ZLML4whfz/nByVPWse6c9AYPjgtPgjYpzLtbZqd5LAkLto
fLxKM5Jqw01iIkXIst2v7cCh9Vmdc+vaDAaqWgoTzvwnRE2OpfZ+D/q5pWCp
Rw4TrhOTFMdbCOBrIsxXahEhO8pveZMd+686JxU5fUreSUFup3lh9EMxvDLv
Ox1bSuCT/03WlscUqJzRkG8zJTDuGBB+p/NRoe5g9uY+ChfOPWkqS5egcZxZ
o9cvLo47O801/UNhvWNRRFWPBKdDzq5xesDFfIUzB0ro/z8e/9Rt9VQSyw2e
r+eacHFKVunwXDpP1YuuzZhK52nG5WOvDjznQNf26NeEtxS0vbL0Z9yl96V/
XyE/n41nu4oUw+i8/nf/bNvQBhJZ2jwjD0s2cl297kuHUBBlCCYNsEkELD3X
/zO6FVM6lkid7STBmjLrlwKdF2eTmi4bRLIwcfO15kiakxhSK/Y2gsT3W0pa
9/YywVsWKcl+Sfur+WSZf2m+slY2HZB2a8EXzbPtDVoSSKSSncT0edelnz9Y
vIgBa03jmTeO0XuUcz2ne4ME7t+iKSe15r/qvD436tJ2FwrEk4bwdyfE4Na5
3Di+msBg/whDHEmhZtyfqx7NYnRvuKn005yAT4Gacjp9XvsYr2d2NJ98Up1D
+dP6d75vSknnUDiiXJ349pgEJXFPLLPl6Dw9WbRfWrEbFeZ31AUNEqyx6syv
6+ei67z0OmOaZ7Iva0dFfZFg6Mq4hPLbXChI5E+6iCnk+oab+ZiRsPB3Czv2
jYM1YSuSbtG+VFY+4ZAK7UvOy6xd193iYNvpF+NeNFAwvzDJeFMQCalL0TUH
1nDw9ODsH+foXL731GGvQxyJ0ahDnwpINi7PS/5XtZC+x4+jebLPSZgqPjzU
cZmNopjsJw70XPXa8WalNZOoWunp+dCMjRrN7thA2leHn66cP43mpaljKyrq
XrfixWbNA2M6FMZY1rWcJyT6po0/k0ux/qqzZKdWccUSCqWw37jHTYzwBV3n
pm0gcFe8/dTDDRQa86cmJx8XgxNz6Y3NGgLpmcSze/4UKs4xvb5nijHlm7vy
FisCRfrja2po/0nO/hx4m/af6mvRvr60/wzEGefPSqCwy3DH+qwhMbLKXCNd
DQn88lZllz+k+XzAYfc8XQmm/yfP059G4Euqba0S7TP+5KiPcagEPoLJio4K
BOKelLgze2n9Tzt7MO9I0JdxXOU6vUd77JV7ZtF5/cKvfdfhjxI03GS9yqA5
zPrwsnSuTDf81lZGaHdKEHLuWfa8Gi4+vIy7+5buBS9yOXmP+yW4Po39PiWV
i4lvTLYf+EH7p4GeuGgcCY4oIvZuIBcZ5c8+9PRTyDLaFbVlMomGPMNGHWs6
p2IHdc1pHrgiXlVym+YB5aUqYazx3L/qfOxM29mTehTkV+514BqKccU33GKC
JwE1FPqqzKCw56RGyjYDMQxsrz6Z6UUgmgief5O+x1VRf+zbptO5qet0YcUW
2uedeT76UymsDcmIcJsqxikXhyNbvAlstJvinqFJ4WsJz6pEXQz150eWHN9K
4MgSDW8ddXoOZ80M1v5HjPv50pdubyPAnf7ucp8KzT/Fr+belBdD7mv5P193
EFi2m9G+RplCu1j9acE4MX6v3Sdt6EvA8/q22Jjx9HfqLz9U8EuEkp6K39v9
aI7KV3Yolafg895/7fUfdK4FpE/K8CdQr1EU3ylDc2nz10sbBkUw1FT06A2g
+XbSpVukFM0/um7GbT0iyM99NXn1LgJlXxb5sMdIcNeeOL9MLEK47o4H93YT
yFu6LCRrlISV59XtfjwRnCd2Jk/eS/xV52TXRxucFOncb+CZ7B8VQWSr6fiF
/s4e9+D3qb0kfI9sXh1YI0L8U2e7bwcInBZNSK6l98qIYe9icUMEFcO8kwoR
BJ4tqLtfU0jnk+W6B2k7Rdgou2WZxUUCk/iE+8U0Ej8iyz5eXSgCkbv3a1gi
gZqAoZAhuqesVNFb9HUc3eMOWQV0phMYGuuU86B5I86z3yX7uhAFar2jmqkE
Xr9WWCWYRcKR88N/u6MQeXcZc91pzo+JzPd7Sc9fwtC7neF/BMhJdfch0riY
Ntwvn9UmgcbT6pWvcgUwln8dv24qFwsH7p5++Ir2WQfekMBHgIlM/UNzr3Jg
JKZOxF2luapNqbpgkoA+j+bYVAUOBgOJaKt9Eiy6lbacV8RHekRP+fnDbOjk
T4+JWiWBN2Pj2CQ/PvROV8iJu1r/qrPM6rdDVD+JE+G2T042iFAwJ7I+fD8B
lz9qV+tLSJSsz2FGhojwdLfaVYVzBJpvWMZFXiZxd0hbRXeKCKvYGw1yaB0G
3Zab8DxJ7Do05Z+FRULYJY5oHH1B983akzU2urSfTi1gL4YQF6+smFlGc8uS
azdbfvEkMAo2EEx8I4Du1GaWujEX2+y+nJ4RIIFdZc7hl8/40Nz2rHuJDxtU
zbLMFbPp/r/7MkXN5KP0z1FS8Ugr6l3nqi8WiCGzV//SveQuJBWfC7obzcKw
iiKz464Y/51wVIpW7MLHVN/gg3Svz15wMkxlG93ntrwXIpyH/m258kR6C676
3ve4qStGbpDQM4TRCbniRtmBAwzYp/Z0xwpEWG6pK/pj0Inn3VZbBlWbcYFZ
9bPhoQhr78qPjXDbEfTklz6V1fhXnV3aZjSqECS8jcUxW+n3VAYX39pwhMDJ
1TaRk2neeviSvcFypgiymVf/FN4gcE0vtUHTgcRwg0toWqoQl2YZO+vdJ+DX
+zqM+1WCZ0uH7ifzBNj5IIfrtJeLhNqi2Gm3JMjX0PE5bihAkqLF/gwzDtTf
8nrf2EpQkJ40TWovH1HZqsP3+lox0UxjbUyiGJXJGi3V3TykhabP+bCLiTKe
ssbDZWJMrVHTsf2XhwcPasfma7ZAdiCP0OwX4Z/vgSOHbTvxYsd6XVean1+a
UeoHMkUoFR8Z/FTajrVSZnbfrzSilmM8EL9JBMGTU6oHvnzGL5x62hpVD7K9
adRbXoQbH1Id1TUJVGvtyurj1CDmTaTey3whVN3iR34v4MAm5ce2/OkfkBnQ
nxbnTffGjz5qbx63QvLjjJadacVfdf4wL2aCXxWJix+OL1t5VgSzr9O155ym
fdXx9NsymlMvhCXPViSEmJuZSu17TKAgKOWUoiw9573/7T8hK8Se+I9rtt/n
omBr5rkbSRJYVYasDdISoFvVq4etwcGUZ89+VhtJcGjC+bFYEz68zY6/Gopq
hWDmyJkzRWIcf6xklL28C6tWWLvvGGTC28JqQ1qvCHoBNVWTVnTi0OjnkTt2
zTAO4QTkx4vQX6JxW+jSDvn5X4aG9RqRbYhGgwUinP9q8jBL/zP6F78vfd5T
h/7v8oOMFiFUIk7uVezjoFqwObEwrgoXniY+qw4Wwi15vRS7txXXbr9b+t+S
ClSNV5npLi3E1qSUwNBYFpRbmyx+DZdjoa7af4wEAWyzUwtKjZngJLpmKbwu
xyTT2Q+W6gnQ0G3ekVjGwIPnOBRypPyvOvc8czx0qoDea5voVSv9RWCNuxle
Qftqr0g2eYo9ic0Rit1hKUJY3PmSEHGXwLfsTYeVqyXYd3Dy2NSzAkQcri33
reVAn3K91L1WAl+clLsSyIcS09BrZLAVe7snBGZX0vmXJbap2tSFUtUHSsY6
LKSWFZxzXiPGoopjtwpW8JB9vzegbVULHisMeM0NovcqLdkpOaINvtym8pa0
TxjnOmvqY9rH1XrFTn/oXhplIqO3LKMG+vIbQqWShHj22KA1NpwND1XbmYP3
KyCVsDb/H20hdjx3rTzFZuFgbUHCMfkKFBt8sihIE8D6Rq/EZD0Tlp3fyMXv
yuE7ZB+4XFeA1Jm6uw+/Y0DTWDxJcLgcQbkWD3Pu8rFbRf/UqfnNeHU3wDbK
ohwD26bV5yl34aBuiqzlwWb4nxf+Tsr/+zxf1frZTj4iEd+UxHZyFOHyjZ3V
XXE0b3DTL3CNSGzSeLa2202INpefUnUmBDx+mpgLkyUIjONzrHQEWBI9e2uy
NgcxyQ0NWgoSFN3Zyejq6kJn6IZNI+NbcauXLRUVLobPP7MfSD/hYdEJhZmG
oy0om2qVIxgSIfB79UjD5k6ETK4fLjzSjPfhcXUMBXqetV9ua5lB4PzYBrF9
dw1s3igu3poghFLDk00sLza0KpUVh/dXwIvVd4KpKERRV369XAYL7sqN4uxf
5ZijPPvmrlMC7DZf6fx0sAXfOrt36+WUY/JtvaW5w3yYhuiPT7ZlIHsH13rU
pxyXbH1Uj+jwMTEo1q/VqBnDQ22uCZnleGbypfLGOh7dC8LmiDObkXH1/fZJ
EZVQeZIuXTDYDtb1fX3j6N4YHb2+oNOl6q86u+UMeSneIdGjEMAyXkqfb21Q
+aZrBISvaweCVEkQOyaq+usL4dvNNLdjcSEZT1h+o7n23Ze0l0QDH3PU89kK
qWzwE/9odLDF6FCd95/pyS5889tWtdiHBc/96b0yK2gunxB2wd2ch45ug0kL
Z7Vgj43DxbJiEVL0N2rP3taBGWa37kiZNiGPdTDI4x2dlxqi/NtBHDjlm9aN
i/+AFKdzrnKLhPhKGkcWmbVisC7Hv16D1jn952h3pgCajPVlP3yZeOo8Ot+1
vBx+rdljBuoCSGdrHfZOY6A0un9RYnA5Prql1Fn68LFmQa5OmGYzHgaXPfrp
XY5Yp7GUZjoXr9SM7y5MbsbbO7un2DlVQk675Y/O7A7s/sG6sHUKAyWRzybt
WFwFJw/fOaI9BPYU1sfYXGcgv25uY5F2zV91PqQ7R9cohcQyL0fTHeYi/GIc
0fh5nUD8ruPjzsiQmG6j5+wtI0Tc29urQjO5WBOcOWXRDgkS3OZr62TyUXZR
FOrgzEaTVd288GIxEm/fs1Ze04XtxbHT/h1jIuLlpw+j+mLoCqxOxnI78SaL
6aVwggHTqE0zbqaJ8POCgctocjt8nqeWHt7VCN+O4P53iULEM+0c1A7QfTtY
KUU7uQI9QWlK6b8FWJNVySw5zUL+3eClvO/l0HxreUJujwAWYw6jxY9a0Of4
JZR5txx3k0xt5zL5uBU208aN2Yyiye8ZtU7luKO8OSLgaBemRjlXX3Frxm97
H+9kuwood/uob4rqhEUmryKjtRmXA6yEOas+oL9/TmWoeRvUe6TupXkyUNO/
waJoUTWUtvR89wzg4FWaY/AmDgNL00aY0/Rq8T+fPtCa
    "],
   VertexNormals->CompressedData["
1:eJxFlnc8Vv//xhXtUiqZIUo7JUlSl8Qnq1C4b7e9d7TQQEtGSYuEsmVERVbh
CNnZm6xs7vtQMovv+f31O39ej/N4nPf7ea7X9bq2mTmdt1zKxsbGuYSNjZ3t
/593Jten/y2SRL1faFNsjS5cpNW+V2+yQNXugzHTlK4XvyGKd1oXMSVqiopL
rkM7rbetidJlnETjVNlo2PRhsO8p8x6a5i2iQyhdd/xjlekGGr56C3x7rPAQ
REWXkCKlP6m0K3LbScNt/q7Hp44/xfln98cbFkiilSW0M0OJhj1ezSYGpS/Q
u0nq51lKHzPwdZm/QsOA4N3WUd0QmKZ5DJ/5RxI7eGp1VuTSECglwuMZ9wb/
GjK5z/8liR+eg8Uzq+lIyth5M7UpArwPGDIB8yQRb+2wsF6Ljl8jXks9laKQ
KahT+22OJI7JZtcYR9DBLqER0/06Gt0V8jmzs9R3v7cmes7ScfuYRdiBzhg8
Zqf3HqD0RDXjMSFDPVi84in5wREHAVmVnbYzJOG6IhgrK/WQ4SvwI7sxDvef
XX7aNE0SFxfoveoiDLzZel32J7QRm3dT8y/FIaRtxf0GXhpe1OxvOl/kitUC
twLaKL3x7X+ZW0xpyM5kxIuV+sJQe1syjdLvSSeU6dnRYE6wfR4rfo7sKSLZ
heKjDrmmtOs07GRvTxl7EoLYsWOTxyk++1cRhQoBNBwmREPywyLQurk9Jpni
4Bab8u9gEg3tsR/7i3bEYEzv3NVY6l6+4jF5ja00RIi//HHsTAJ+TfFJs02R
BAKVy6W20uExeeC0+p93YB6TTun+RRK7ZQrvVRrTYVYeMi33+T1IzBzFOEls
TzjcMxtOR/IVYbWOvR/RrKv6wo9JEvOnY0Wzhug4c2CRX8MyFUlvHdfWjJCE
tOKa5BhZiptQzBF2nzQ4LRWaFxwiicnsE3VXg/QQKmv3MerZJ+hNf3/o0U8S
mpr7Ns3+1YNg4udxnQdZWBMln6bRRhLZIXfK955iwMP3Ql/5RgdwJnQ7TlDc
3k0OvyxcSUeExdsbVXd9IbJsD5NB6YMOz6/kh9DR4K0k/vhGCJ4cqjSXp7jd
ztobrED5oYQ/+13Mihj0GsvKZlF8hnXq9WUS6CjLDh71zUjEhUVSq3GSJL4I
eUWWptOxwG0TcCviA6TZzRM+skjiv8W7nHuK6Qg3kjgQd/AT1EWyJa8PkISE
+er2lJ+Ur3w4TLqPZEPgbvCHvS3UfUOCeOvW6IHOp3XpZ1IO6med9l2pJImh
Q4/FNKT08CavqTNej4CE2o0k7QKS8KJXWu+nfKj8xyPagcxHSqQ9+2wmSVgN
K/y89UgPbOs/S+kKFiAgrNX5eTJJcCiv3sUs0EPwMGS0JAtR8CI/QzeaJOT0
1WNPL2HgdInY/lMHi9D63Xnf1VcksWSLjbiRMgPRmzcZ6EcW41UwPWrcgyQO
zYftKXvCgGGhi2uMpht87G9cbKF4qmfLd0/26CHd809RQvALTH72ZWlT/ryy
o/lmSwsDKk3WR3+ujcWqf/rT6ymeo9402T3NDPSUj/fPJL3H23YRUp3yT1Hu
4cFVDQzotdrKB6xNx9HCbTvl+0hCUEVia1419T5ve+QF0c+4V8uVcbCRJMqk
tHfHlzMgVSbg/jSNQP/tOgaZTxL8293V7UsZ2OV20N82uxCJ231ebn9DEqdH
/ERi8hjQPVlXVX2hGNYb/ccs75JEwHmTgpPZDPxuoZXW6JeiOCtpStmOJLyv
OYcup3S/0FZRcYVylM7HRhZokcQ/mnQvZw4DLSWp6puWVcK7fNXxs8eouaib
UUYhA5N//Zji0d+h7bew3ngbSXTMvX7xmDq/9H31jsMC1VjrddrMZjVJyPrM
P2DvZcAr6J+Tz9Za/OQMdnvTyCJ2OgYLvT+kj623dV5m3bsLSV9N9rcU59de
K69ZsBsi8eTWmWtmb1D+7PawCZV7iy1fDyiFGOG3sq5pZ2kKln7LFNszQRKe
EcqNjx4aIZscqKzgysT7W9mFbzup+6q9d8i8bIQMQxOxI8/ysOzAikOG30gi
datS8hVNIyx1dl+yd6wAE5vHm2ZjScLdLV3n3Q4j2F397V77sxjvDjeqkTep
uTYcjyPHDDH1ue455Ul4c74WeylFEm+Ggp0i/A1xcvPS7DUj1SjTOn5P6R+L
GL1xsePdCUP8aluo26NXi6Z/EyuUv7OI0xrjgtbzBvh8jrGBjKrD8Aqn9XNh
LOKdh7V7XpYBoLJCJq62HmFVHcHqjixCeJfw+52uBrD4m5wz1NeAO6wb/sJg
ERHn0ng2yBhgbpPpMu+ORvxaqzJ9chOLkPn4t6vjrz62hW4RSxtrxsB+5vqN
KUxiVFi6lc3AAMorvjVb7H2I2OjSTgWK81nuL+tbBU3B1dK7YDMXi8th+iGO
VM7Hzu36L8bdDOc/vv+zSSgDqhExW/R6SGIk4vYpDlsz2BRebV1yJx8lsWGG
r76QxHN7uYmq/8ygGCe0UFj8DTu4+eiPfaj5VV85zMdrhpvu3e43G8ph4rKw
YVGFJCpjI6+rd5ri0Qk2JIrW4Hzqkh7GNIvQ0Q52fBlgiid30l6+/F6P4u3j
hyYpDsH/ZUfxcpliUPzi04tCTbiyPueAxAoWwZ4bb0okmOAOR+v+C4PNMLpz
TkD8PZPgO6G/UKVlAiuR00bC3q3Yaog0PjqTiBFzvKw5YYyhs0HBdgttaN3D
0k9gZxIBwg9bDsEYWod0Nu4/14Fjc8EScmljxMraS2v9A4wwUCSZGOb6A5KV
1ZZLbcYIr5AIN5M+Q/zt7pbYvLUbn69XXA6OHSU8f9BWlzKMoPBE5Eu7xgsE
pQdxGFD5UG55e+NIuiV4djssX+f+AQthqw9NUvnZacsa7rtmA+6O94GXXfLR
9URUlEnxrOKdrPaSs8FU2GXzp6alcFep0Zm3peZauLgtvMsaW6zY76X2VOMW
x983Zf/nNyTlyVpYI7dlA2eAcz2U52zXj91iEasX5g4r11jB8T7nwU7uZsyQ
yomuLUyiQYZLsI3TCgV/4t39ytrxsfb0Z//6MWLcU2fOuccCqcfrWx6EdiKB
nY3djn+M2BHEPpK4YA764pvUbkY3xj8whKXujBKM9PnlPKfMofBxOMNIuQdC
nOcLr7BGiHCdrCLaAzN8FbDii+TtBVszY+8ZixGCL2jI1rrGFBvUWCqrq3qh
63qh80TfMGFw0G91qogpTMYfWHfZ/cSM8PTIFadh4hS3Q4SkmwkKap8VTEn0
48jWtP075wcJ3l/XKjIzTeDjofxJJDICIjsLTd9Qe/99mPzDsF1OKPVytxF7
nYP5tU0dz6j9ckBSIrD63hWEf8rcfOF3BUKlxwOPylJ79mLF2ciZy/AJPr9v
XrQB3vVLA34Ys4jQ6WMTwhKX8bA0q8fetxU+PCIZvjQmkXdsZ8Gj05cg1RB6
f71EJybZyR3RR8eIPwkeg9WqztgUeUW2XasH67vk92kOjRAbdplHcZtfhO7w
7S/mP39CseDK0XCuYULY64+Og6o9mrNXJKtr96N522euhrZB4l543ZqtZ22h
sFfMecv5AUTTl25fxxog5JwKVMXzrGEuJ231Q3wQz1jO/tt5Boixw+V54epW
kPvR1CPWOoh1J/iDpHT7ibgCqzuK0xawqRzO0Lo4BNPAa5p5iX3ExWpL/3M5
5vhUXSHaPDIEItRukLWpj3gVI/c4/5UZQtenSC+vHoHnqYHJKbceQuOOg+Tj
ZDOQ+jzaFcKp+CzKIXNslCSWqZZZ72fzQP8mtY0PTFuguGVnrVQgk/jwczK8
pisAkgHxTL/Rbhzgep4aumuUCPJ/vVRe7AEE6DWyi7Z9OKj3OFE8ZogYjnRe
yl50B5bbL+ud/DeAm3J8RfsUBojSm25ljf3u4PyzPLWyYwh9v69xbtnRR2w4
9HGXTv51bGi/281tOYKA7YxxJZ5eImlBrIMm4QJRaZtzfFWjKArLbjub3EUw
r8knsB2/DHYbbY+YJ2NQHjK1DGnpIMo4PG1kNjhj6MCaI6pLmYg9vvhJlKOd
YEu6cVVhpyN0r7MJndJn4ohJmIWLWyvxxzI6VzfMDr/dLm54G8mE6tMd/E27
W4gsq8ZFXVsb8OslFda1MjHodFm7hbOZGOI1X27pboUDVk4xP5ezEDUdnDkn
3ETovtr962mFBZzjkiPs9pK48KkqZN1MJZHH30c2KlrAy84nedJ+DFv3PSiu
u9ABpc036wdeEsjNY6xvth2BdJ929vHFHrwIzjidMh+PvAsdc8Q6EhpurGT7
b1Xwzrs0EsgIApuQfEh8NIn8VVUWStyFCA2VnzRVeIQyiesmmt9J7L0/MvJI
MweKjf76YqX3IX87O66/k8SpDfwFXAMZyD7kvmzV5duQ17ntdGmYxDmul9zn
hlNhGdmfYxt3A5ol+95/HScRpCRicE/wPVRS3LfsL78KfeVy+sZJ6jxLWoYG
vZNgnGxlvD37Ej727nH7/YeETUTRHrv/EvDxiGDEVJQTXp3LgME0iQeLCcfb
nd/iq+nXiB23HWCdwsNxaYY6/4/+V3+ZsagpeK0p32mLM8VsXCqzJOrq2QW1
3sVARFXkAMKtEaa86s9vSp90lEpXDY+G0YNAtYJkS3xz3bjt+3MSuYqc4fe/
FKHaaHXCKRULLCYVTDtFp+Bj39HvCkwSRqHPhaP5IiDAvcoiTLQehHzfYrQP
Cx3KLY4fOn3wnTspZPZmB7x7S4J8346hY5vSksWgu8jzfOtytaQHaWETPdMh
IxCNGQj1naTmgkfa1eNBH0wOSD8KfTQEs95dlisKbuCchGbi3ugBLETdau16
PYAnyr8d1vi54lIq1+wh1yGs8lf5KBDRB2J5UsPuhKsgOIezeDECHq8tDern
euEL5tsotUsoabxYoyI1Co2FVZ6+rd3QfC+/8mDtRRhKK5xExShsYgVZzpld
+Ng0xrQXd8BA9rCr7Okx7FvV9TiBvRM9c3/FXRttsV87WUM3egxPDTtLjjzu
QHfi5U2iVdb47/CoRcX4GOjs3hZ959rhJnRA7QO7FdQFxk+4SjBR0BKfXney
DSs2s+9Z5mABs8XURL/iURiOlkYuK+2CRdY2VmCsGZLkNwmtqA7HhHyZ78Q8
CV1ytvLe46v4zcG3dbNXNgp4+dmEm0ms2T/w+jZ1L6H9jrpSHaWYObY+mzQn
QY/46faG6QzuumujtGV18IjZ7HD9EwvZ5htzLU2d0a98uv/Y2mZ0rTuzTb2N
CWPWa6N2BydkHr5zUexmO5xN33WqDIxhal6cvWrSES9dsqZjm7twI8u6cWXB
KKIelKzXlnRAQKvja9d7vbB8P+CbyzeCanehqYUUW8xVnrn4e/YnNDSXdSQt
DqHcnnN1yzIb1LJZVwiy92OJ35CLm+gQ8s/ctdVOsYLeP76vJ/v6IWRzK4aD
NgjTF2X6MvaW0HWWj5+OGkCFyrOW428GUJky/7xMzgJn149yCCgOwniK31Zv
ph/yv7WvBImaY8m3mo85FYPYeaO7epdlP9488jqUL2AGBWk2z7VOA1DwtX+e
VzuA+0UplavDTWDoVPnM9csL7KWpblZeINHi7DRqr2+LmBbdJzj+HnlyRv4Z
1LyuPfoqT+enFWZlcgsC0/Owu5smU1NEYrAtvmY21Qq2RusSD78thtmbgBPx
HiRkvpx4xm5lhcV07WsCod/xqMoirmEbidFtS3M52awwVtOQ28hVh+lFVdfk
VBYIk3J2ey9LdG15+PuvbyMOrsqu4xdlwdTtiZ7kDwsEVSjf6OFog+ZpX0FH
OSZUbk8r7e02h2HQqezQ9A4E1hPCnq8oP2ZGc5eKmYNZ91Kdt6ATRVlFQr3r
x2B95x/X2dtmkNwr46Oh2o1Gn5ijKx9SvtvpfejfD1OYjX03MeTtge6eu/3L
140i/Ori2/STpii7fpax/nsPSm5lLLv5cgQnc2pe9EabQELpJp+MXS+2+w8F
hu4dQaSnhvIzThPsLxP/1n6zB19i9Zx3fB/BDtflTi/FjKB1nW/juKY/dl8P
vyu2SCIz7a5n4JQZtpqJRRs7xMLnnKFLFZVbS5ef8i/5aAopOU/LuXXpeDgr
qy/bR4JbktYkGW6KqizfxTIJAsvVBRSnC0gE66a6md8xxd1frsem7xSBxdPE
tyuIysUFkfKjeqbYlJUf90O2DPzDag8UjUmc+RLw4/tOU2iuKNrFd7EKu+pa
pIW4SVy/2G0o122CG/TPbssS67CoqBvTF8rCX/FyDpOrJvAz/pt/qrYBvSfU
Qu4osDC5tEQyV8QEU2pDI7r3m5DMU3NYdpKJ/kt73p1MMkZYa6wck6sFn5v/
cfnFMZHNHCoo2WiMi89Mj8jcaMWcfnj0IIOJgBntTqMbRnDSfpZfnNuGFAfd
nLCNTMTRMrg3UT2Z7e9Rbasf7XC9n6FRXDWGsHEVrS9ahlB8v1fkYnIbwhLP
rjLawkQS2/3s3H0G0HB9NVoo74WaSxXKDynOzkku97nEjTG9XENlidIbaDwz
EbT5S3HId19Tm2IIPi0vE5/oZEQTCqX4RWKVasZmrUhDiP/nx2U1lQ4O+Qef
SntIfGO60sYeGkI3TPON9q8caBtUz1yuIKn9bWkq7WSIJseEY60dXxF+isuo
/j2JHJecid9qhhDcNxzj8u4bVE7K8Kb6kri23MGGk9cQVxxfX5orLMe8gdmS
n6okKuwdDD3KDfBu1nZ5GnsVYuxqBYIESMinm9k3PDWA+o7hZX6aNaiY08jU
m2AhXbdh4y9DA2w8LbBktXctMh5GuZcVs6DVF2R0bY8B2v3lyeCYOtgWHbHJ
DmPh2qzvucQZfcTllD5Mja/H07TZs+NXWPA5miTWUaaP7OUqYRzPG9CgxDq8
4ywLPKyDddrh+pjYabFfg6jHO7XV5BlnFuTKXWiO6/Tx3CP9iIC1BzjK79AL
Kc4Vl3ri4vboQ0zsnjHH3AucHmo4rkTlieacVLSwGgO71yqM77KMQZpFadkt
at/+EY8mm1QYOMzd7vZvfwqeLv/ekzdBwt3XJV5HmYH8qJPNNn1pCBSr9JQZ
JMGrVWPV9h8DbW3H26ufZ+FgYs8O8TYSWlJdU5+VGFAPVfLUYebiMc/bgdoS
EifuTYRqUTrXioKhNu8C/DGOOfAhgeKZeoB7L6VnR4wVmzUUoeNP+uqKZyQe
dr/bYHeOgbxI1ljcp2LcFT97YyOVY5cnxHLHdBkwWqP2d5VLKThWxC8stSXx
5E1ij4M5Ayfy/tW1bSlHuYD53WXaJCStm62/XmUg4GvJq/jAClzeFzPnCRKm
J4v56x4yQCv1dz8xUQlDgT8R9VSPCzihPxOcwMA92x9Guc8rwHv0CG8o9b5f
/NFdzq4MRPIrSh+7ehXG/Geu/qQ439ZpTL9RTMezwmSzwQo/ZIv27lOldG3Z
7IYeZTrI/hdvTD+8gujZ2gTbfyTOPmqbvneOjm2D21QXR6MQNVW7xnKO6jUf
qmJU6HQMqW0PUByIR1CmjKL6FIla6UBHmhUdQXx7eniJFIg9qWyXov5LkL/i
0243OmIPuahFFKVi7aPSg7+ofqes6+229SUdZ/LWPCpGJmgbF3XFqD4Y4ZgT
8KSIjrZDG/uui3zGuhXNu442klh5zGJk6A8dCUuq17bcy8Eu5nVpdqpXNpuW
DP8W08N8W1pTQEEetHjUA6Op/bL145brM3Q9GPT38a5xzMeb2ICSUzkk3AIi
JSIC9ZBUmOjCafEVHi6qv5Z/IrGjPmYmsU0PM0cVl6koFeDbjyt8Au9IXOX8
Wjixi4F/IYP25hP5cFbz5BvKJOFfVNhySJIBtWXFXA2ul5DXYpM/QvFke6Dd
zx9Gw3rlEO0HXt4IF2zyvkLphDT/UNUVGpalh6y89+gFRgpTHtIonzdLaHOJ
utPQxXbwqNPx13CPSBF7S+WMn8FxUbVHNEwkCXar9EZhl6TqqB3F/3yoWb19
JA1RiTocYZxv8cFeRiqF6rNtzuf7UnNo2PTYpMlP/x20dH4n2/0m0deYYcsz
RoOT/I1/WaYfIXf3vugWqn+G+H140b2fjrzDNXZTh9NQVr1KaXiIRHvGhy3d
DnSEf+t6oTf0CRnvXrSHU3vEzVNRNzSJDhPOa2t872agoW5nqkI3dS+N1efr
ftHh3e/zNJQtC3pdKhcG20kcsRTp3X1aD6Gdd0oqTbJxTaHkUDTVu/5yiB0x
fq2H0fPHFTwiP2NSsunUw3oSYrtledSWMkDfZ5Y7LfoFkvbiuY21JCRyVu0X
XsHA/wAdid8f
    "]],
  Axes->True,
  AxesLabel->{None, None, None},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImageSize->{360.52951970128953`, 280.01548751171725`},
  ImageSizeRaw->Automatic,
  Lighting->"Neutral",
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], "RotationControl" -> "Globe"},
  PlotRange->{{1., 171.}, {0., 30.}, {-20389.09130801499, 
   20577.649040471424`}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{-0.12627424677965807`, -2.78300850241038, 1.9206557448204327`},
  ViewVertical->{0., 0., 1.}]], "Output",
 CellChangeTimes->{{3.7591918653549304`*^9, 3.759191902426245*^9}, {
   3.7591919979355392`*^9, 3.7591920245528803`*^9}, {3.7591920706983767`*^9, 
   3.7591920966912985`*^9}, 3.759192132028846*^9, {3.7591927306444807`*^9, 
   3.759192730847558*^9}, 3.759192879257176*^9, 3.759192943160103*^9, 
   3.759193632488619*^9, 3.759194728165352*^9, 3.759194788876601*^9, 
   3.7591948203899374`*^9, 3.7591950227280054`*^9, 3.759195244324439*^9, 
   3.759195440337123*^9, 3.7591956522817574`*^9, 3.7591978127140427`*^9, {
   3.7591980529072046`*^9, 3.7591980680852175`*^9}, 3.759229758407953*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"1a829126-2f47-40ae-ab82-9ca9d188569f"],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJyV2X9s1OUdB/ADwwzI4rkRdkEMBznbk7XlOK6X23lyz5aCVrRCgaNdoXaV
1plAS1G6tVp3iC2/yo8USnEtoLSVdY1iABkOTTp+iD+2OBQFBnYUg7NIoXPL
GGTqvsp97sm9n3tf4vPP5Xnl4xd9+8nzfB4dX1qZXzbUZrP1DLHZbrLJGgzb
kq64qxs/LpXoduIO4k7iLuJu4h7iXuI+4n7iAeJB4iHiU8HTYr+44k7qMWdx
zFkcc06DPTrmLI45i2PO4pizOOYsjjmLY87imLM45pwd+8UVd1KPOYtjzuKY
czbs0TFnccxZHHMWx5zFMWdxzFkccxbHnMUx53DsF1fcST3mLI45i2POYdij
Y87imLM45iyOOYtjzuKYszjmLI45i0PO0ZzYHpZ2Um8n7iDuJO4i7ibuIe4l
7iPuJx4gHiQeIo4558b2sLSTesxZHHMWx5xzE/eGY87imLM45iyOOYtjzuKY
szjmLI45i2POebE9LO2kHnMWx5zFMee8xL3hmLM45iyOOYtjzuKYszjmLI45
i2PO4pBzz6zYHpZ2Um8n7iDuJO4i7ibuIe4l7iPuJx4gHiQeIg45qzmxPSzt
pN5O3EHcSdxF3E3cQ9xL3EfcTzxAPEg8RBz7ORLbw9Iu9T2JbifuIO4k7iLu
Ju4h7iXuI+4nHiAeJB4iPjXRVWFsD0s7qbcTdxB3EncRdxP3EPcS9xH3Ew8Q
DxIPEYece4pie1jaST32szj2szj2szj2szj2szj2szj2szj2szj2szj2szj2
szj2szj2c3FsD0s7qcd+Fsd+Fsd+Fsd+Fsd+Fsd+Fsd+Fsd+Fsd+Fsd+Fsd+
Fsd+FoecS0pie1jaSb2duIO4k7iLuJu4h7iXuI+4n3iAeJB4iDjk/PwvYntY
2km9nbiDuJO4i7ibuIe4l7iPuJ94gHiQeIg45HyuNLaHpZ3U24k7iDuJu4i7
iXuIe4n7iPuJB4gHiYeIQ87OhbE9LO2k3k7cQdxJ3EXcTdxD3EvcR9xPPEA8
SDxEHM/nstgelnZSj+ezOJ7P4ng+i+P5LI7nsziez+J4Povj+SyO57M4ns/i
eD6L4/ksrnNO/0vb9cKzd6qDL7nHHn+2Ef7/xmAY/f6td5WdGvCpxwc7ByeO
XAf1aYa/3nyytv/SVPXgYvuuijXroT7bcJdjc3rrshz1xtHw9J+/sBHqw4Z/
trks6H0iV31/Xe/hD883JdZHcwxvnVm/+lRVnppQcWHBms4tUJ9r+KgzLdV/
3T9L3b7u7KcXF26D+jzD689/sj7fO0dFi0s35Z3vTKy33uPo9+5Oe3nE+oia
v6+o//JDut/OvtLjqq2PqIoZZf/duUC/l1si1+5e3R5RMwcGtj92dH/8O947
89Mffs58V+adPDzXXW74jV/r3YrfaXnhI+cr3RG1ZMOHmV8v19+p+UHJiEMb
I+rr173zCrOGxL/THO0YaGw0361HP1sVvrbUcOV+79ZLm9oiat/QR08XVun6
1t9M/eLqmoiaNiTw8N4uXf9BQYHKWWW+f6unFL8W/pXhqt7fsfPu5oia8HnB
kb+t0vWlfz/9Yob1natDamd27NH1L2fO33ZHg/mOzi84EX6kxnAV+vTNcxes
HD449Kev5s/Q9dO2Tl62xvrOkaV1OVeKdH1WU86Y48+a7/GhLTWvdtcarjyT
ziz85wrznX7hAWdpw5OGq/c6V8yb3hRRw1am357fpOsbv9yx9eO1EXX2ZtvT
J17U9auvDZ994hnzvf/VmL7AlqcMV8V72n+0ZLn5Tn+0+fSVQ3WGqyP+y2N7
VYE6kn9s+SMr+qWven4ZLf910eqIOufte3//j/WfO+zfNf3HrH/eSe3HezM8
+N/TIsZ3Ql/mLFv6jPnfJVz+zT1XnjJcPVedsbbS+vd+INi18fEMXd+2t3N0
tfXnjr3nvjkVHl1f9dvmiRPi39fn89u3NFT56wxXB0uyTu1eGVHb9+y6NDJT
1xd3hKdkW99/dXf5PTs9ur5q9D8W9cbz1Of85cX92ZV1hiu3/+Bdt1nfn16x
rXdtpq7PrrUN2KzvVx733vpnj66vnN1wpj3+fX1fdL276MFtdYar7f+6dGit
1bd5S37W8p9MXT982jv3fmTl8OZbVzMue3T98/77xo2x6qM3b4rOytL9cO33
F8fvteq/l5MzY8Rk3Q9pk9rKfxr/+9H3Ubr/D119dYarw+N+MuWAde5Njg47
uSNL168adcvFZuv71+dO7B4/Wdc/mVteMzr+fX2vzXxo5abrdYarA3N39Xf9
rkiVLDr4w2nde+J99e2PKjTc1VD0v6Ypxcp5bMPiHX3tifXW+x39i8FRgZeK
SlS0oORcWXcrfL/Y8H3B7OGtbdY8P2Zud/FrzYn137ynwKtnXy+c8HGpUqf6
3yic15RYb70L0Dfc9PnIJ+5YqKLB/nG1D2xMrLfmW/TSP274pGOBNSfU9z32
fvr6xPpv5rRkbs0V0QNP123pbUz0JPND6nnDnB9Szxvm/JB63jDnh5TzRpL5
IfW8Yc4PqecNc35IOW8kmR9SzhvJ7ncyP7A5gd377H5n9zi7r9m9zO5fds+y
+5TNUew+Zfcmux/Z/cXuI3bvsPuF3SPsvmD3Ajv/2TnP7nd2zrPznJ3b7Hxm
5zm7F9j9wu4pNs+we5Ddp+xeZvc7mxPYvMHmFjb/sPmKzXtsbmTzJ3unsPmW
zcls3mZzO5v/2TuCvUfYu4a9m779STJ/svn2xl9tzg8p540k80PKeSPJ/JBy
3kgyP6ScN5LMDynnjSTzQ8p54zvMD2wO+T84uX2d
   "], {{
     {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
       GrayLevel[1], 3], 
      StyleBox[
       GraphicsGroup3DBox[{
         Polygon3DBox[{{361, 16, 362}, {371, 91, 372}, {375, 121, 376}, {367, 
          61, 368}, {443, 226, 444}, {433, 151, 434}, {437, 181, 438}, {439, 
          196, 440}, {373, 106, 374}, {435, 166, 436}, {448, 256, 359}, {363, 
          31, 364}, {369, 76, 370}, {445, 241, 446}, {365, 46, 366}, {441, 
          211, 442}}], Polygon3DBox[CompressedData["
1:eJwt0UkyQ1EUxvF7lQXYgTJWZQd2YGSkysxIm+gJ0QURRF+aEKILQfR9WwZ2
YAd2YAf+x/0Gv3pf7j1597xzKxqitZES51wlSvHgnbvn+YVH8g3WyUe4Jd/5
kK3mnrxs+1jDilheRR3e8EPtL97JaWwjizmksIddTGMK+1qzvScfevnGM/nF
h2zvfCUvYUM9WC/z2MImFjCLHZ2Z1hl2Vg4zklON1X740Kvj+YlWlPOzCm3k
YZzhFCNi+QSjGLf5II8J9WC9ZLCIBI5VY7VxnKOIIQziQmtxrRV1pp09gEvV
WG0/YvSWQkw9WC8FjOHKhz27w2tyEgeasc26F80uvKNPPWY0U5vtJA71n6S+
Ka8124v4MJtqRHVmQd+Y0B1ndSd2N52oobYeXeRG/z9qV4Ym68WHbDNvIXf7
UGs99pDbfTjL3tFB/gOdWWH6
          "]], Polygon3DBox[{{377, 136, 432, 431, 378}}]}],
       Lighting->"Neutral"]}, 
     {GrayLevel[1], EdgeForm[None], 
      StyleBox[GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJxNlWtPF2QYxp8HTC3Nr9Bsc6211lprrjmbrbXWmmvaetG5zHqZn8NTkmbL
ADXAIQcRpCkEGNA0SEFhAsrZJQgk4UQhBA/Xtef3X/8X1+7z/dz3/ZzWbtux
9ducEMK4kCucF+qEM+huCleFIWFYuAQ60V0XuoVRoU/oFcaEa8ROwF9F7iOv
5S5hhNhuZPNHhO+FPOGK8LfQA70B3y8MCBdZYxLdf8IU8lcxxWyPqaZe4juE
waweOpH7qH2c3B3kd9+X6XuUmv8lVy/1dBAziH0an8vEW/e16rgj+o3oHtHd
ws/ConBLuC/kyHZXdFa4FxKfK90KYaWwIPkffB2zHJv7du4YU6xpDrz9F4jJ
JX8O+e5n2Sw/Sa4F5vhIeCg8Lf0D0VWiq2Oa7wAzXxOTn33sa7v5VcQsCU8h
m39OdJfo86Lz7Nkkfov4uh7XkpEXkTP9TzHjEeY7yrxnhE3y2yn6rOhbMZ2l
t0XfiOlMvSn6EnvwMtT7kC+8ENO+vBhTvPOsg/4UUt2H2Dvzr8m2T/R10VeE
veKfEf1OtEAoDInfi/y+bAdFP2DdfGybJR8QfU/0HWG/+HdFNwg/iN8iWip6
nPULiHP8iZDuzGHW8pr76Gk3/oXYrf8wpl4+ohbnLw7p3PvM3aTXQ/S4kf43
cdYW2LNb7MEwsWOc1wlyzIV0/3wub6C3bp598n49YM05Yq6zl7bfRp4hdp5z
4nyz5JzkLAxAB+Hz6b+Mvj2fPPg85uAeS+nzLvXPksNnbIgeh5CHs3Svssfr
Y/KfwmecXPfINUad08QtYvM9XAaeiKn/NuHPkN6UsyG9Kb+jt87vUw8+fqc7
sdvvpNBEXC8+PcgX8bGujtjPteY50S9isp8l/gpx9jmHnFnL719zSH+D5+qz
eEz4USgJ6SwVw1eGdC49b5+vImzuf4l5FGHzuT/Nes7dKFQRX0LcqZDOsM99
hfAx9+GTmNY/iG8hax+Gr0D27PzntDPPPvi/0PuPasjSNUAbma3nU828q5Hb
8P8NvWdTI7QKLSG9/TVZcc53gZz17EcbfB1yM706rp+9u4Cumbz1xHndWnSt
5G+nnz/Q+U/tRu7C5xo5u6hxhL1tyVrjErZWaBc5fkXXwPrt6GrRN9NrJ2u4
fp8rnxXfR9+1MnjrfE/L2Ve/00dDevvqyV/B/DyPInzLmJf9jxBj2y/4lmOv
x1bFHlbjY76YnKeYRz/11pH/DPoJbH6D/Fb5f/M7tJx/0rzvr2Xf62Xc5Yf4
r+ZvvJ0VO0eM37+l8P8faXka3xn8v4zpDm6LqZeT9FBOf55PCX14D05Te2a2
ZfgeYK6OLcXvOLM5yhwrmXkDfAWy9/cY+WuYXWbeReSuJO4EviX411JbC/ZG
fJroJXPPq6ihnHULyL+f+hqJsd+nMdX/WUx71oTd78d5+n8MwhXl0A==
          "],
          VertexColors->None], Polygon3DBox[CompressedData["
1:eJwt0FsKQVEUgOG9ZAqe5UGSJEmSKEmSJCS53z0yDve7zMAMvHoyAzMwAyPw
75aHv/2dS3uvczzDeWXmMMa4yEk5MebAeqQ8fpLQl+sJa0H02YmKOEZbvKM4
btINLyiJu/TAd2rhDO2NnpHFXtF3l+TDflGvKIDDtMYbiuAhvfGLejglerbd
M43H9DH6zgBP/7PbeyNcEp39TAlcowu+Uh23RWe139DAfdGz7Dd0cFB0NjtT
CLtFZ7P/IIrLonvbPav4B8VXKD4=
          "],
          VertexColors->None]}],
       Lighting->{{"Ambient", 
          GrayLevel[0.8]}}]}, 
     {GrayLevel[1], EdgeForm[None], 
      StyleBox[GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJxNlulSU0EQhe/IooKoEKPsxZYYMArBoGwlsoqgIQGMYLEFELCAhB1L3FDE
F/AdfQ277S9V98epmek+vZye3NzbuJqbzl7xPO+voEAwJHgsGBT0Os/7Lmu3
rAnBhexfyXop62/BR8EfZ/u0s/OpZ/5L9r8EPwVHgh+CE2zqG5KYc1kHyK2+
Y/gX7I+JVdtXQU7wRXBIPvVFJf6zrG3O8mofH+CcwzvnfCCICO9M1jD6zrGf
UFf7axTfJ1lbZN3EtyX45lnMPjW20LKHb599jn5P4Zxg/wpvE215zXreEGx7
VndHEHfG73Sm8xiO4j3as4Jdz/Rr3BmxWWw6q3W0v8e2C+8I2yGcA/ZncHaw
qW8NrtZ+i84D7Bn07qF1Hj3f4exj13m9A/PYMsStCuqc6a93ZtvHnkVHDv4K
+znqzLPf8M1xjj6XideYZ4LXggF8aTT1C/oEE4I3aFrHl2avs1gSLJJz1zf7
JfxrxM/Sk+qcFCxwr4v418m7Sozya5zxap3pXsM/RswLck2QO4N/hvMEml+i
La9fz+OCaWaQwTZHzDa9a29JtKXYT6EtTa58ngx1c+TMwl8ifpx+0+AFGhbJ
meAeEtxFlbNztTO9s7456nkU/gIxC+RKUHOK8wwxyh/27L8shc5J7nkVzgwc
1TPCOsNe+X3MaZkau/BTcLX2c/ofpIck+yS1V+AvMwOdSw/o9tl6sQ2Scwrb
OD08ZQ75mG7OU/ATcEZ989LzE3pN0Usv+VRbjaBMcENwX+9AUOnZM6KaOgTt
nDuoqT22CbrIrXH1gjpBVBBnRl3McpR59uHvZa/38BBEsY2QU2ODzmrfdVav
lfpBQbOgBf4oMQ2CRkEF+3bOEebQiqaYT0urb0YRtAyTt4u5xoiLwFN+Jz69
q3vM7LrgAfqizOkBs6oivpraTfQWY9+Bpk50VdFLhFx1vly13FstNvWFPHtf
x7G34QuRT33NvMv0nRZHX5gZtJEzDneI+B70dKI1X2OIOUW5v3o4MeYSghcm
bzV1UsQm0dtETCucCPYY+cql13K9U2e57jPrfmfv56Qz/bcENwUBZ3d/x1lP
t3zzCXNXHc7eI49kneU7ZtpZfC38u8wtxD5EbBc9aK4xZ98UI7KWcGelynP2
vFQ6m1cLWjRPkPMddAbRrTPSZ/CJs++CBmf2UvIqP8C8bmCvxt5ELu2/DA36
29ffVCO2/O+lWFBEnPZzTXDVs2++/3NmbWCv9ivYiokLkjcAJ8yd3KOXAP4S
7FX4rlOvgLhCvR9n+W87yx+knwB9FlKzCFuQvpUz4ex7cNxZ/mv4KuAWUr+E
2v8ABIG7bg==
          "],
          VertexColors->None], Polygon3DBox[CompressedData["
1:eJwl0NuLQVEUgPG15F3ud5lIk2QkSRIlSRqS5GmevCre3cZlmH/bt1oPX+fX
Ofusvc/52OyXu4CIxClISxV5cX1SD1fphI/0iWNUxGELL9TX/tEcR9Sf2cyQ
raVffKEW7tBV/F4bJ+hLfGYUl+mAt5THKeqLr4njpvqsMzVwXd12xhqe0APf
aYwr6me3mSWcox88ozTOqNv2SOIB3cTP2MXf6t9mM6e4oH42m5HFI/W97J0h
XtO/+D9c4TfrRhpz
          "],
          VertexColors->None]}],
       Lighting->{{"Ambient", 
          GrayLevel[0.8]}}]}, {}, {}}, 
    {GrayLevel[0], 
     Line3DBox[{272, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 30, 45, 
      60, 75, 90, 105, 120, 135, 404, 342, 340, 338, 316, 336, 334, 332, 330, 
      328, 326, 324, 322, 319, 314, 312, 310, 288, 308, 306, 304, 302, 300, 
      298, 296, 294, 291, 289, 292, 285, 286, 283, 284, 281, 282, 279, 280, 
      277, 278, 275, 276, 273, 274, 271, 272},
      VertexColors->None], Line3DBox[CompressedData["
1:eJwt0UkygwEQBtA/N3CDlAu4gRtYWamys0ESYiYxxRzzVARBEGKexUxZuIEb
uIEbeCkW7+te9Orr8rp4dXMoCIIYZZT2BtFIhCgxmigdxmmhlTba6aCTLrrp
IUGSXvroZ4BBUgwxzAijjDHOBGkmmWKaGWaZY54FFllimRpWWCXDGutskGWT
LbbJscMue+TZ54AChxxxzAmnnHHOBZdccc0Nt9xR5J4HHnnimRdeeeOdD+pD
f0X/GN988UmRAhnSJIhQSxWVVBD+/9UvcCA9cw==
      "],
      VertexColors->None], 
     Line3DBox[{343, 150, 165, 180, 195, 210, 225, 240, 255, 270, 269, 268, 
      267, 266, 265, 264, 263, 262, 261, 260, 259, 258, 257, 447, 357, 358, 
      355, 356, 353, 354, 351, 352, 349, 350, 347, 348, 345, 346, 317, 320, 
      290, 293, 295, 297, 299, 301, 303, 305, 307, 287, 309, 311, 313, 318, 
      321, 323, 325, 327, 329, 331, 333, 335, 315, 337, 339, 341, 343},
      VertexColors->None]}},
   VertexColors->CompressedData["
1:eJxTTMoPSmViYGA4wMjAwAykJabZ3xfTeWUv9O2tipLNc/t3b7T5LwXftheT
2LTravE1+1t9K3dv4n5sP0dcfd+twNej4mSKj4bzaDgPJ/HRcB4N5+EkPhrO
o+E8nMRHw3k0nIeTOK5w5oh+8y0y9ab99jnehaE3L9tbzvl5VUbh1Kg4meKj
4TwazsNJfDScR8N5OImPhvNoOA8n8dFwHg3n4SQ+2PpNI02cWvEyUOaMqh9V
T4z6wWbOqPpR9YOh/h2u4oOtnh0VHxUfFR/84oOtHBsVHxUfFR884gBAILGd

    "],
   VertexNormals->CompressedData["
1:eJzt2mlUU2caB/CwKnaEIwYUrCzuBUFFWkQtD4JWtE6hAkJAFtkNsimLrEag
EMBtIstoAEE2oWABCYqob4WAhEUWQXFBAxEUQrjAsJQxQm/my8yZM/fD9PRD
cg734+/kJP/87/s+yXkTbbeAo57SJBLpVykSSYb076vUNXz28wKGniUznxd0
HAPS/7zGF/0PupNG+G4e2EDBo0grId5z16sl8d2r7cQup6Q7Jcn6fbPyKVAs
5vpN4D1HTQ1n1C+1F7ucku4d7NCwfKuzQPeN8O/Fey6tMeVO9VPELqekOxZt
m3EvLhYMkqxkivCee+OXhnjIOIldTkn3giUNLzx0U6Agr+mtGd7zYZVapZdf
nhC7nJLuWQyt2teWqZDGSpc9Po+hBi+a8gjLU+xySrofjrao0srNAa3N9Sey
P2GIxTRNydwSIHY5Jd1LKatsWjQrAa2T3WXMx9BZC463HilG7HJKup+g0sum
fEehcGtCY5f1G7AlRz4bykBil1PSffznutmAvNtQ8d6ozUyAgTfzqmaeWo7Y
5ZR01zBbqbGk/QZMmHKSJj5hUILNtcZdCha7nJLuVf6tjLDaVNC1O0y2mMfA
KTCA7+t4UuxySrqrhKgpj1tdBJ3wG7HrFzDYfSf2XNqMm9jllHQfP32NX2/6
E3QGtVikiHouDo1fsclF7HJKuhvEsr5e4x0Dss3n7evxnodP9xcW6jiKXU5J
d/b6/d8YBweDi/rBYB7e8zn7HlZE4+J53Z/tYXKNK7rDguBRr8+vI3jPA3E2
g+qZi+fPi77oi77oi77oi07sRw4cGYmew8Dfr+btmFM+bBLMfn2n313sckq6
Owiu3OKEnYfZob/crMC/p32yneiG//ifwH//T6OwSNa4x8UZ3lToWf8T9+GK
fNUn8nbgyZnbJfLPIx6HRO57vZnE32sHSzgvdqgrhkDsYIPyAO6TJT+zUI8d
SFUy/+Xb3Sam+3Ff4XZBWORvDz9si8mi7Y0FBTCyKsE9oj/WYjaeAjEJnZki
5zvTVomcuznBMIrpAPEL+lFFDSlAZivI7sW9gapuIvQ5DiyGY7jIB9SMr+/B
nR+oNitt5AyrO1nyxa6pMJnJ8xL9HqSyqsNmkukKf52cJIkcTQ+kOeJ+RLdv
v/paN3iwjvZR92w28JSv5NsLMRRPWXlqvs0DDj980iry9g2tDcdwr+rR9DQ5
7w1ZW6uMkiZvASO7o9RoBkOxKUe3OBn5wfitvg467tarqYM7cD+4+bp+ZFQQ
aHiMpq4xrIWG0SmZoE4MYcZkhRJWBFxc+5KrivspZwf/73EnO0mTJ76MBd80
drbVTj5YtKu36rRxEXVrt5oxKgCynJbeBe4oXJqcohZHvEZyjCaXpKib4LJx
INJnFx/G99HDn7dzkan7TuZCeioYs0wsh9EoyJmXDaaR3yAT5/RcVTcGOL7e
eDJRdxS4mdVUW8pbtG/9mbqL4SmQaP4Nh3pMABUbP/AGUl6iZtO7vTEzdKhf
olDepSwAZcuuxJH7r9Dy3HMJPvfjYSVFTi7vowBsOn/se4CeI/4PHNLtpXHw
bkWeRiVbAGtmXUrawl+gT6FqgrxcGgxmhZ557DAGbUP6LY9Nu9HSXIGBeWsM
fNv+ld+1A2NgUuC6R/9RNzJf11snUxUJPWExP2aVjIFB0Jj3sYNdyLbDpq2o
IxySp4uDDzHG4MhXmq5DH7pQyDL3RHfZUKghnZKzXYPBOu9zVy7JP0Xz+1J7
9XzPwN6+x1pZKhic7RxsH/V4iobke1z99U8DS3BUpcAEf3ztFeuFvBZk6VYe
xTIKgjTqy1zN3RgM+RtU+k23oKqDZO2C3YFgtWw7eRsFg3G6pvJkBQfN3m+9
uvyVPzhsctjSbYvBbxOOB3b9g4O0l5vxbu7xA8M668q7fhjsG4zfzFnZhPbU
HEnJe+cLAz2H0rf6YpBt1vxLvUUTisugj+n/RAVBRLRLSzQGSoz4Jp37jWjp
gWs37zmcBC/q2es9kRh8uFblRB9sRDwko7TM0AcYXZRqWjIGPCVDTOdaA2pm
XjhF2uEN36Vvd5yjYyCYSmb0PGhANelVfy818IIQqUDF7FQMRubX9SUUsZFd
Wf2yUEtPyHqieo56FQONE2cyeWw20j+vfc8gyOP/nttEz0P0ukQ5id4XUQ9E
vRH1THRfiO4j0X0nWidE64poHRKtW6J1TrQviPYR0b4j2qdE+5poDhDNDaI5
QzSXiOYY0dzb5v68dw+HC2Svy+VOW/hwvHDn2oCjFdBE03TJ/VwNXKvpdrUX
GORcSEqkHSqEZOv2Z51z1TDFe76h5i0G9bqNQjaKhgHPOKb0myLovZsj+G0G
A+3vbK3LuKGw03qTHQn34J5UnsIsBm2KGsKoxgD49h1/jKl2AzjvnhroCTGY
qGZkzM1Q4d6KL1JFTqUyh7fjfo/j5qmi5QXSFt8Le4VpsEFax111HgOG0+py
qcfuUM55PCpy2Qg6exXu4U8UXZVcT0D3x2EZs/7LYP4Q8T7j/jCJcny/vCvE
BGYL9+FuooclzeNuWVcbkWfnBBM03zvObQmg9L5FOhL/fO9tytXvYznCF/T4
CpELcyocRH55oycteaUDpPxNRfX47RiQCg+tqsNdu0Oe8UCNAt3euioiv92Z
8l7k+b9EhJZpEp+bEZ3//A77/cj/
    "]],
  Axes->True,
  AxesLabel->{None, None, None},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImageSize->{360.52951970128953`, 280.01548751171725`},
  ImageSizeRaw->Automatic,
  Lighting->"Neutral",
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], "RotationControl" -> "Globe"},
  PlotRange->{{0, 171.}, {0, 30.}, {-10, 10}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{-0.12627424677965807`, -2.78300850241038, 1.9206557448204327`},
  ViewVertical->{0., 0., 1.}]], "Output",
 CellChangeTimes->{{3.7591918653549304`*^9, 3.759191902426245*^9}, {
   3.7591919979355392`*^9, 3.7591920245528803`*^9}, {3.7591920706983767`*^9, 
   3.7591920966912985`*^9}, 3.759192132028846*^9, {3.7591927306444807`*^9, 
   3.759192730847558*^9}, 3.759192879257176*^9, 3.759192943160103*^9, 
   3.759193632488619*^9, 3.759194728165352*^9, 3.759194788876601*^9, 
   3.7591948203899374`*^9, 3.7591950227280054`*^9, 3.759195244324439*^9, 
   3.759195440337123*^9, 3.7591956522817574`*^9, 3.7591978127140427`*^9, {
   3.7591980529072046`*^9, 3.7591980680852175`*^9}, 3.759229758470351*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"24a4efa5-81b5-4a88-afc0-d61b335997b4"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.7591981263216987`*^9},
 CellLabel->"In[49]:=",ExpressionUUID->"ac3f5c0e-5ae3-466b-a608-695a01b955a2"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7591981269934*^9, 3.7591981270090322`*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"9746a387-c41c-4313-a403-49059d9aa502"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"angle1_", ",", " ", "angle2_"}], "]"}], ":=", 
  RowBox[{"N", "[", 
   RowBox[{
    RowBox[{"RightingMoment3D", "[", 
     RowBox[{
     "hullreg", ",", " ", "boatdens", ",", "angle1", ",", " ", "angle2"}], 
     "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable1", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "0.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "0."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable2", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "2.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "2."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable3", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "4.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "4."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable4", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "6.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "6."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable5", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "8.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "8."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable6", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "10.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "10."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable7", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "12.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "12."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable8", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "14.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "14."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable9", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "16.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "16."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable10", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "18.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "18."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable11", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "20.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "20."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable12", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "22.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "22."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable13", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "24.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "24."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable14", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "26.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "26."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable15", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "28.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "28."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"angleTable16", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"angle1", ",", " ", "30.", ",", 
        RowBox[{"f", "[", 
         RowBox[{"angle1", ",", "30."}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"angle1", ",", "1.", ",", "176.", ",", "10."}], "}"}]}], "]"}],
     "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.75919814223618*^9, 3.7591981424392605`*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"382d7fa0-8bd0-4e05-9f75-36bb44ac7ece"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "0.`", ",", 
     RowBox[{"-", "718.3410489585895`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "0.`", ",", 
     RowBox[{"-", "7853.6982496985875`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "0.`", ",", 
     RowBox[{"-", "14750.42480328456`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "0.`", ",", 
     RowBox[{"-", "21198.96716329783`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "0.`", ",", 
     RowBox[{"-", "27003.389633249284`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "0.`", ",", 
     RowBox[{"-", "31987.327773568926`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "0.`", ",", 
     RowBox[{"-", "35999.34714585754`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "0.`", ",", 
     RowBox[{"-", "38917.54457166788`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "0.`", ",", 
     RowBox[{"-", "40653.25209889588`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "0.`", ",", 
     RowBox[{"-", "41153.73113263708`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "0.`", ",", 
     RowBox[{"-", "40403.77487070585`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "0.`", ",", 
     RowBox[{"-", "38426.17035462483`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "0.`", ",", 
     RowBox[{"-", "35281.00609689895`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "0.`", ",", 
     RowBox[{"-", "31063.846321969293`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "0.`", ",", 
     RowBox[{"-", "25902.827295611314`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "0.`", ",", 
     RowBox[{"-", "19954.76396933924`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "0.`", ",", 
     RowBox[{"-", "13400.385237456567`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "0.`", ",", 
     RowBox[{"-", "6438.842581055907`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7591981484430714`*^9, 3.759229776628423*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"3c78b5f5-79b2-47ea-9da6-7a028e134d72"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "2.`", ",", 
     RowBox[{"-", "717.9035881639685`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "2.`", ",", 
     RowBox[{"-", "7849.088021295323`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "2.`", ",", 
     RowBox[{"-", "14742.59231787769`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "2.`", ",", 
     RowBox[{"-", "21189.476604440737`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "2.`", ",", 
     RowBox[{"-", "26994.016399378248`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "2.`", ",", 
     RowBox[{"-", "31979.606269454307`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "2.`", ",", 
     RowBox[{"-", "35994.189145704324`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "2.`", ",", 
     RowBox[{"-", "38915.029648150055`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "2.`", ",", 
     RowBox[{"-", "40652.64551891926`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "2.`", ",", 
     RowBox[{"-", "41153.7234897517`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "2.`", ",", 
     RowBox[{"-", "40402.87797326337`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "2.`", ",", 
     RowBox[{"-", "38423.16170209756`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "2.`", ",", 
     RowBox[{"-", "35275.30114615146`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "2.`", ",", 
     RowBox[{"-", "31055.69725744982`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "2.`", ",", 
     RowBox[{"-", "25893.293844129155`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "2.`", ",", 
     RowBox[{"-", "19945.46319704147`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "2.`", ",", 
     RowBox[{"-", "13393.086628361732`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "2.`", ",", 
     RowBox[{"-", "6435.0161137795385`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7591981484430714`*^9, 3.759229795642971*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"036e0328-7831-4e0f-8457-5dbd91084c64"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "4.`", ",", 
     RowBox[{"-", "716.5917373001741`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "4.`", ",", 
     RowBox[{"-", "7835.261115346048`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "4.`", ",", 
     RowBox[{"-", "14719.093387590923`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "4.`", ",", 
     RowBox[{"-", "21160.988903110447`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "4.`", ",", 
     RowBox[{"-", "26965.863877468582`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "4.`", ",", 
     RowBox[{"-", "31956.399989047044`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "4.`", ",", 
     RowBox[{"-", "35978.678101671045`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "4.`", ",", 
     RowBox[{"-", "38907.46323887938`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "4.`", ",", 
     RowBox[{"-", "40650.820014375655`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "4.`", ",", 
     RowBox[{"-", "41153.70048642311`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "4.`", ",", 
     RowBox[{"-", "40400.17887543618`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "4.`", ",", 
     RowBox[{"-", "38414.11060193769`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "4.`", ",", 
     RowBox[{"-", "35258.14722149064`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "4.`", ",", 
     RowBox[{"-", "31031.209063817052`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "4.`", ",", 
     RowBox[{"-", "25864.66370735095`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "4.`", ",", 
     RowBox[{"-", "19917.548259285977`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "4.`", ",", 
     RowBox[{"-", "13371.191221449077`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "4.`", ",", 
     RowBox[{"-", "6423.540348801439`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7591981484430714`*^9, 3.759229814506777*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"828c17df-9708-4815-aeb2-7e54be4350ce"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "6.`", ",", 
     RowBox[{"-", "714.4070902958015`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "6.`", ",", 
     RowBox[{"-", "7812.228883135791`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "6.`", ",", 
     RowBox[{"-", "14679.923669858541`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "6.`", ",", 
     RowBox[{"-", "21113.456084801444`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "6.`", ",", 
     RowBox[{"-", "26918.833552714033`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "6.`", ",", 
     RowBox[{"-", "31917.58329894427`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "6.`", ",", 
     RowBox[{"-", "35952.702392411215`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "6.`", ",", 
     RowBox[{"-", "38894.78005056564`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "6.`", ",", 
     RowBox[{"-", "40647.75817587347`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "6.`", ",", 
     RowBox[{"-", "41153.661897079444`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "6.`", ",", 
     RowBox[{"-", "40395.65219545019`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "6.`", ",", 
     RowBox[{"-", "38398.94120638045`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "6.`", ",", 
     RowBox[{"-", "35229.426626896166`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "6.`", ",", 
     RowBox[{"-", "30990.258466113395`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "6.`", ",", 
     RowBox[{"-", "25816.84753010021`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "6.`", ",", 
     RowBox[{"-", "19870.98140054945`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "6.`", ",", 
     RowBox[{"-", "13334.70034294216`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "6.`", ",", 
     RowBox[{"-", "6404.426202715769`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7591981484430714`*^9, 3.7592298331860337`*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"b4be128a-8d45-49e1-90cb-9ab26e98369f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "8.`", ",", 
     RowBox[{"-", "711.3523015937424`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "8.`", ",", 
     RowBox[{"-", "7780.01028832699`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "8.`", ",", 
     RowBox[{"-", "14625.07619254148`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "8.`", ",", 
     RowBox[{"-", "21046.79852684034`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "8.`", ",", 
     RowBox[{"-", "26852.76105796043`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "8.`", ",", 
     RowBox[{"-", "31862.94571212795`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "8.`", ",", 
     RowBox[{"-", "35916.07433799883`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "8.`", ",", 
     RowBox[{"-", "38876.869993264714`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "8.`", ",", 
     RowBox[{"-", "40643.43059864507`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "8.`", ",", 
     RowBox[{"-", "41153.60734053013`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "8.`", ",", 
     RowBox[{"-", "40389.255073926`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "8.`", ",", 
     RowBox[{"-", "38377.52569120582`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "8.`", ",", 
     RowBox[{"-", "35188.94159897852`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "8.`", ",", 
     RowBox[{"-", "30932.63909112715`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "8.`", ",", 
     RowBox[{"-", "25749.696363756`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "8.`", ",", 
     RowBox[{"-", "19805.700053519675`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "8.`", ",", 
     RowBox[{"-", "13283.616420098551`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "8.`", ",", 
     RowBox[{"-", "6377.691889883107`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7591981484430714`*^9, 3.7592298521286097`*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"a938fc26-3b9f-4fd8-a289-6e3f1efdb9ad"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "10.`", ",", 
     RowBox[{"-", "707.4310829961158`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "10.`", ",", 
     RowBox[{"-", "7738.631973689`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "10.`", ",", 
     RowBox[{"-", "14554.541752215253`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "10.`", ",", 
     RowBox[{"-", "20960.905468552977`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "10.`", ",", 
     RowBox[{"-", "26767.4159238076`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "10.`", ",", 
     RowBox[{"-", "31792.19023889412`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "10.`", ",", 
     RowBox[{"-", "35868.52770200775`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "10.`", ",", 
     RowBox[{"-", "38853.57624093077`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "10.`", ",", 
     RowBox[{"-", "40637.79528485451`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "10.`", ",", 
     RowBox[{"-", "41153.53627191183`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "10.`", ",", 
     RowBox[{"-", "40380.92631969781`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "10.`", ",", 
     RowBox[{"-", "38349.68209929069`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "10.`", ",", 
     RowBox[{"-", "35136.41187573788`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "10.`", ",", 
     RowBox[{"-", "30858.060098081864`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "10.`", ",", 
     RowBox[{"-", "25663.001645158387`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "10.`", ",", 
     RowBox[{"-", "19721.61738280254`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "10.`", ",", 
     RowBox[{"-", "13217.943306030465`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "10.`", ",", 
     RowBox[{"-", "6343.3629521360435`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7591981484430714`*^9, 3.7592298710076547`*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"ab082e2d-fefb-417f-ba91-5c0b88bd15b6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "12.`", ",", 
     RowBox[{"-", "702.6481992513446`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "12.`", ",", 
     RowBox[{"-", "7688.128353417231`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "12.`", ",", 
     RowBox[{"-", "14468.30947188062`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "12.`", ",", 
     RowBox[{"-", "20855.63574128454`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "12.`", ",", 
     RowBox[{"-", "26662.50125684109`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "12.`", ",", 
     RowBox[{"-", "31704.93107471824`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "12.`", ",", 
     RowBox[{"-", "35809.71413111607`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "12.`", ",", 
     RowBox[{"-", "38824.692439107974`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "12.`", ",", 
     RowBox[{"-", "40630.79677803688`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "12.`", ",", 
     RowBox[{"-", "41153.44797100468`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "12.`", ",", 
     RowBox[{"-", "40370.585173849584`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "12.`", ",", 
     RowBox[{"-", "38315.17124102495`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "12.`", ",", 
     RowBox[{"-", "35071.471240214814`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "12.`", ",", 
     RowBox[{"-", "30766.144268552736`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "12.`", ",", 
     RowBox[{"-", "25556.49519519564`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "12.`", ",", 
     RowBox[{"-", "19618.623057770692`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "12.`", ",", 
     RowBox[{"-", "13137.686733401373`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "12.`", ",", 
     RowBox[{"-", "6301.472299669174`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7591981484430714`*^9, 3.759229889445297*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"5007b8d5-f512-482e-9f7c-9741df860aea"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "14.`", ",", 
     RowBox[{"-", "697.0094623875566`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "14.`", ",", 
     RowBox[{"-", "7628.541729941953`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "14.`", ",", 
     RowBox[{"-", "14366.367518071387`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "14.`", ",", 
     RowBox[{"-", "20730.818733956155`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "14.`", ",", 
     RowBox[{"-", "26537.653375141657`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "14.`", ",", 
     RowBox[{"-", "31600.690623222315`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "14.`", ",", 
     RowBox[{"-", "35739.1984677542`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "14.`", ",", 
     RowBox[{"-", "38789.95897893991`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "14.`", ",", 
     RowBox[{"-", "40622.36499906775`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "14.`", ",", 
     RowBox[{"-", "41153.34152648467`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "14.`", ",", 
     RowBox[{"-", "40358.12964941726`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "14.`", ",", 
     RowBox[{"-", "38273.69256747585`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "14.`", ",", 
     RowBox[{"-", "34993.66298599899`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "14.`", ",", 
     RowBox[{"-", "30656.42556429128`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "14.`", ",", 
     RowBox[{"-", "25429.849265953104`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "14.`", ",", 
     RowBox[{"-", "19496.584266030335`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "14.`", ",", 
     RowBox[{"-", "13042.854895857083`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "14.`", ",", 
     RowBox[{"-", "6252.060262420202`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7591981484430714`*^9, 3.759229907879507*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"80ceaa56-24f5-4a22-9369-e6f9a64037f5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "16.`", ",", 
     RowBox[{"-", "690.5217247977014`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "16.`", ",", 
     RowBox[{"-", "7559.922433816054`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "16.`", ",", 
     RowBox[{"-", "14248.703977137598`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "16.`", ",", 
     RowBox[{"-", "20586.255614156144`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "16.`", ",", 
     RowBox[{"-", "26392.44144005995`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "16.`", ",", 
     RowBox[{"-", "31478.89585429206`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "16.`", ",", 
     RowBox[{"-", "35656.45285126889`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "16.`", ",", 
     RowBox[{"-", "38749.05822802421`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "16.`", ",", 
     RowBox[{"-", "40612.41374158167`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "16.`", ",", 
     RowBox[{"-", "41153.215815511125`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "16.`", ",", 
     RowBox[{"-", "40343.434388364934`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "16.`", ",", 
     RowBox[{"-", "38224.878902889475`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "16.`", ",", 
     RowBox[{"-", "34902.43423590182`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "16.`", ",", 
     RowBox[{"-", "30528.346166688774`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "16.`", ",", 
     RowBox[{"-", "25282.676674624905`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "16.`", ",", 
     RowBox[{"-", "19355.346981987816`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "16.`", ",", 
     RowBox[{"-", "12933.459155597091`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "16.`", ",", 
     RowBox[{"-", "6195.174651057295`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7591981484430714`*^9, 3.759229926744162*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"5d07f11c-924c-49b2-99e7-3f5f606f758f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "18.`", ",", 
     RowBox[{"-", "683.1928710829902`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "18.`", ",", 
     RowBox[{"-", "7482.328984963329`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "18.`", ",", 
     RowBox[{"-", "14115.307890144431`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "18.`", ",", 
     RowBox[{"-", "20421.72082892`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "18.`", ",", 
     RowBox[{"-", "26226.367134207685`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "18.`", ",", 
     RowBox[{"-", "31338.87400129586`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "18.`", ",", 
     RowBox[{"-", "35560.84950191478`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "18.`", ",", 
     RowBox[{"-", "38701.60857542459`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "18.`", ",", 
     RowBox[{"-", "40600.83877094723`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "18.`", ",", 
     RowBox[{"-", "41153.06947784778`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "18.`", ",", 
     RowBox[{"-", "40326.34795848026`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "18.`", ",", 
     RowBox[{"-", "38168.28988956382`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "18.`", ",", 
     RowBox[{"-", "34797.129029239506`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "18.`", ",", 
     RowBox[{"-", "30381.253018756906`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "18.`", ",", 
     RowBox[{"-", "25114.53107248258`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "18.`", ",", 
     RowBox[{"-", "19194.737507772028`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "18.`", ",", 
     RowBox[{"-", "12809.514874947214`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "18.`", ",", 
     RowBox[{"-", "6130.870826501495`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7591981484430714`*^9, 3.759229946544256*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"ce51c261-1084-475c-b601-32401a3ac210"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "20.`", ",", 
     RowBox[{"-", "675.0318086624955`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "20.`", ",", 
     RowBox[{"-", "7395.828273265666`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "20.`", ",", 
     RowBox[{"-", "13966.170445319403`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "20.`", ",", 
     RowBox[{"-", "20236.963913275573`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "20.`", ",", 
     RowBox[{"-", "26038.864447942127`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "20.`", ",", 
     RowBox[{"-", "31179.847607977827`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "20.`", ",", 
     RowBox[{"-", "35451.65205961126`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "20.`", ",", 
     RowBox[{"-", "38647.15710889653`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "20.`", ",", 
     RowBox[{"-", "40587.51545390155`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "20.`", ",", 
     RowBox[{"-", "41152.900883465496`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "20.`", ",", 
     RowBox[{"-", "40306.68948961163`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "20.`", ",", 
     RowBox[{"-", "38103.40395899873`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "20.`", ",", 
     RowBox[{"-", "34676.98007730136`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "20.`", ",", 
     RowBox[{"-", "30214.393900410294`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "20.`", ",", 
     RowBox[{"-", "24924.90740818975`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "20.`", ",", 
     RowBox[{"-", "19014.564306235363`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "20.`", ",", 
     RowBox[{"-", "12671.04236913929`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "20.`", ",", 
     RowBox[{"-", "6059.211776732803`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7591981484430714`*^9, 3.759229965541721*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"c1a6db8c-04fd-4b2e-b1dc-d025d3e152b8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "22.`", ",", 
     RowBox[{"-", "666.0484571579946`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "22.`", ",", 
     RowBox[{"-", "7300.495756170025`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "22.`", ",", 
     RowBox[{"-", "13801.286326273053`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "22.`", ",", 
     RowBox[{"-", "20031.711638222787`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "22.`", ",", 
     RowBox[{"-", "25829.2996505208`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "22.`", ",", 
     RowBox[{"-", "31000.9289457914`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "22.`", ",", 
     RowBox[{"-", "35328.00532584137`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "22.`", ",", 
     RowBox[{"-", "38585.170695286724`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "22.`", ",", 
     RowBox[{"-", "40572.2958246246`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "22.`", ",", 
     RowBox[{"-", "41152.708092257126`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "22.`", ",", 
     RowBox[{"-", "40284.24451971933`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "22.`", ",", 
     RowBox[{"-", "38029.60859697679`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "22.`", ",", 
     RowBox[{"-", "34541.099071064855`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "22.`", ",", 
     RowBox[{"-", "30026.91308127973`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "22.`", ",", 
     RowBox[{"-", "24713.242656746705`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "22.`", ",", 
     RowBox[{"-", "18814.620147819965`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "22.`", ",", 
     RowBox[{"-", "12518.067976722758`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "22.`", ",", 
     RowBox[{"-", "5980.268199456318`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7591981484430714`*^9, 3.759229984087592*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"d2d1ecc9-fb5a-4cc2-b653-48ad048075b8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "24.`", ",", 
     RowBox[{"-", "656.2537365643929`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "24.`", ",", 
     RowBox[{"-", "7196.415670706598`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "24.`", ",", 
     RowBox[{"-", "13620.655213285925`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "24.`", ",", 
     RowBox[{"-", "19805.67053295451`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "24.`", ",", 
     RowBox[{"-", "25596.97153776034`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "24.`", ",", 
     RowBox[{"-", "30801.11383726599`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "24.`", ",", 
     RowBox[{"-", "35188.92323254878`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "24.`", ",", 
     RowBox[{"-", "38515.025177916425`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "24.`", ",", 
     RowBox[{"-", "40555.004965905806`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "24.`", ",", 
     RowBox[{"-", "41152.48880408633`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "24.`", ",", 
     RowBox[{"-", "40258.759884606116`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "24.`", ",", 
     RowBox[{"-", "37946.18861500625`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "24.`", ",", 
     RowBox[{"-", "34388.465410695266`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "24.`", ",", 
     RowBox[{"-", "29817.84661318522`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "24.`", ",", 
     RowBox[{"-", "24478.916898393447`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "24.`", ",", 
     RowBox[{"-", "18594.684594628136`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "24.`", ",", 
     RowBox[{"-", "12350.62524311235`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "24.`", ",", 
     RowBox[{"-", "5894.118589041668`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7591981484430714`*^9, 3.7592300034662843`*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"b1dfd497-eab6-4a29-90ab-3347486203ea"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "26.`", ",", 
     RowBox[{"-", "645.6595542173416`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "26.`", ",", 
     RowBox[{"-", "7083.6812570299335`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "26.`", ",", 
     RowBox[{"-", "13424.28343377325`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "26.`", ",", 
     RowBox[{"-", "19558.529818652103`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "26.`", ",", 
     RowBox[{"-", "25341.11206557427`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "26.`", ",", 
     RowBox[{"-", "30579.27494175016`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "26.`", ",", 
     RowBox[{"-", "35033.27483693807`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "26.`", ",", 
     RowBox[{"-", "38435.99233480935`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "26.`", ",", 
     RowBox[{"-", "40535.4365491213`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "26.`", ",", 
     RowBox[{"-", "41152.240296859294`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "26.`", ",", 
     RowBox[{"-", "40229.937438358036`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "26.`", ",", 
     RowBox[{"-", "37852.31207415102`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "26.`", ",", 
     RowBox[{"-", "34217.91321384103`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "26.`", ",", 
     RowBox[{"-", "29586.117347832667`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "26.`", ",", 
     RowBox[{"-", "24221.2548458783`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "26.`", ",", 
     RowBox[{"-", "18354.52684594343`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "26.`", ",", 
     RowBox[{"-", "12168.756211705933`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "26.`", ",", 
     RowBox[{"-", "5800.849325996609`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7591981484430714`*^9, 3.759230021938527*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"06d1fbdb-c718-42ac-b13d-1ef904346ac8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "28.`", ",", 
     RowBox[{"-", "634.2787905709545`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "28.`", ",", 
     RowBox[{"-", "6962.394990328092`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "28.`", ",", 
     RowBox[{"-", "13212.185756589206`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "28.`", ",", 
     RowBox[{"-", "19289.964792913488`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "28.`", ",", 
     RowBox[{"-", "25060.88749823512`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "28.`", ",", 
     RowBox[{"-", "30334.15458812897`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "28.`", ",", 
     RowBox[{"-", "34859.76811667759`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "28.`", ",", 
     RowBox[{"-", "38347.2241554511`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "28.`", ",", 
     RowBox[{"-", "40513.34733127721`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "28.`", ",", 
     RowBox[{"-", "41151.959349605495`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "28.`", ",", 
     RowBox[{"-", "40197.42633100368`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "28.`", ",", 
     RowBox[{"-", "37747.0134270474`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "28.`", ",", 
     RowBox[{"-", "34028.11645072915`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "28.`", ",", 
     RowBox[{"-", "29330.52979551684`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "28.`", ",", 
     RowBox[{"-", "23939.527933505207`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "28.`", ",", 
     RowBox[{"-", "18093.908969564884`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "28.`", ",", 
     RowBox[{"-", "11972.51281578017`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "28.`", ",", 
     RowBox[{"-", "5700.554767095845`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7591981484430714`*^9, 3.759230040646559*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"cf31d0d6-c29e-40cb-b265-ec4718ade11b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.`", ",", "30.`", ",", 
     RowBox[{"-", "622.1252837998278`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11.`", ",", "30.`", ",", 
     RowBox[{"-", "6832.66881769367`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21.`", ",", "30.`", ",", 
     RowBox[{"-", "12984.387323100023`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31.`", ",", "30.`", ",", 
     RowBox[{"-", "18999.640704567886`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41.`", ",", "30.`", ",", 
     RowBox[{"-", "24755.400221535838`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51.`", ",", "30.`", ",", 
     RowBox[{"-", "30064.357276760635`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61.`", ",", "30.`", ",", 
     RowBox[{"-", "34666.931317779505`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.`", ",", "30.`", ",", 
     RowBox[{"-", "38247.73388710198`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81.`", ",", "30.`", ",", 
     RowBox[{"-", "40488.45034764155`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"91.`", ",", "30.`", ",", 
     RowBox[{"-", "41151.64214661584`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"101.`", ",", "30.`", ",", 
     RowBox[{"-", "40160.81349097738`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"111.`", ",", "30.`", ",", 
     RowBox[{"-", "37629.17334673629`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"121.`", ",", "30.`", ",", 
     RowBox[{"-", "33817.57205083004`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"131.`", ",", "30.`", ",", 
     RowBox[{"-", "29049.764979036394`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"141.`", ",", "30.`", ",", 
     RowBox[{"-", "23632.957097081584`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"151.`", ",", "30.`", ",", 
     RowBox[{"-", "17812.589542470265`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"161.`", ",", "30.`", ",", 
     RowBox[{"-", "11761.958362986472`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"171.`", ",", "30.`", ",", 
     RowBox[{"-", "5593.337334160284`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7591981484430714`*^9, 3.7592300603684864`*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"83fc20b3-2208-4564-ad05-2e4647210f1f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"data2", "=", " ", 
   RowBox[{"Union", "[", 
    RowBox[{
    "angleTable1", ",", " ", "angleTable2", ",", " ", "angleTable3", ",", " ",
      "angleTable4", ",", " ", "angleTable5", ",", " ", "angleTable6", ",", 
     " ", "angleTable7", ",", "angleTable9", ",", " ", "angleTable10", ",", 
     " ", "angleTable11", ",", " ", "angleTable12", ",", " ", "angleTable13", 
     ",", " ", "angleTable14", ",", " ", "angleTable15", ",", " ", 
     "angleTable16"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7591981643976774`*^9, 3.7591981707450066`*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"28ac1d7e-b785-4f17-8f2a-6ba070ad1a4f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ListPlot3D", "[", 
  RowBox[{"data2", ",", 
   RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
   RowBox[{"InterpolationOrder", "\[Rule]", "3"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<SouthwestColors\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot3D", "[", 
  RowBox[{"data2", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "10"}], ",", "10"}], "}"}]}], ",", 
   RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
   RowBox[{"InterpolationOrder", "\[Rule]", "3"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<SouthwestColors\>\""}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.759198166620533*^9, 3.7591981674733343`*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"2c22b76c-93c3-4c0f-8f7c-3ff57cac1d81"],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJxl13tUzPkfx/Evyy8RZv2SIdXIsJPSjjGN6WsaL/3ccm1D6CbWrM1PWNpI
5JJbLilrf+6SomwbpQ3lllsuKZWorJItLVbZbNLaWj/nbPPPaz5/fc7jn885
z/M57/P59Ju72MvQXhCEbu0E4RPBuH4fYdwV+lYtz166KYcccxYs2i4uZpdg
l3C96vw8dilq9kSfGzmVXYbD4Wsii0R2ORZ/kfjzUmt2BaIKrCI/f7uRXAnb
VosIp93sKkyM/vvD1lnsajgH1cpHStk1yDm+zu3Lwg3kWrx2Nk8yW88uImCb
3/Uxg9l1CO24o0ksjiTX48G7O7uFb4w+EELbqvokIud06iV2XB8Xs8XqBLsE
13aGlLkfYJeipKDnXnEDuwyN4SOPtp/HLofSyux2vMiugHe7Gz/LOrErkRoY
J3+1+SK5CoF3fLXTRHY1lKvOmpdUXyDXwGJW1YuIDexaXBINQQv6sou4MOPx
VydTzpPrMK+rla1Bxa7HxBdHh6WkZbe5S5t/PHl442zNvbvsuLqqR9GEPHYJ
FtfYNW67zC5FgH+h2JTCLkO9X2pOVAy7HJve2c8cHcyuwMAJuQc/c2dXYueI
V9Y+JXnkKmzPbvg6KZZdjYnNA4t6jmXXILDC+3hi4x1yLVYGmVVO3c8uYmZR
9Fi5ll2HEpcnub0KbpPrkZeU/90QP6OPaHNB2Fgt1F7MKGHHphen1gaks3+c
G6OV40f8wC7F/skRSv/D7DJ095JYZ+xgl+P4bNUfrivYFQjRtJx67s+uhPvK
v3xj+rCr4BPX3X5Rw31yNdInX0lzu8augX+X8G11O9m1iO/6ycsFM9hF1K7e
/jy+N7sOZ3IHXV79sJhcj4Dzk9q92NHma0e1uSDcnJDzuizgETs835+yWOfH
LkHJuesey6ezSxEbXjcz04Ndhv1LnTKVruxyFFVHHH7Un12Bsl17LI+Ysyuh
uLcDfXPLyVUoDJOt2XOQXQ37UJupZ4PZNbgeGDZ4qiu7Fk/O/DhY/6GMXITM
qqfT2MvsOuQabtzVhrHr8ey2eKjcyegexp7C1Va39yW6J+z4yWCbXyuyS9CY
/N99vV3YpfCT3phmcGSXQe+wfdMFG3Y5HK88cbKwYFdAvyD7f8ObKsmV2OuW
Oj3rIrsKe/slvD67n12NgVtcRjQtZdcgxKJ82fAx7Foc6d3XY6wluwjPccf2
Fj2uINdh14EbNVFx7HokzIyrsPIz+mRjT8E+vsj6t++esuPW+PCuY0xcgpgx
7TOmx7JLMe/4hzCraHYZxJ7vA9dHscsxyOv1LzGR7ArsWuPwSLOKXYnzDVdW
dwtiV+FCgu3n1v7sagy2/bEiZAq7Bp694x0FsGsR0mK77ZAzu4i9D0LzFNbs
OmiDg3av6Miux7EGn3z/uqp/POcLY0+hZWe/4HShmh1+qVVvAk1cguMzHhUv
+vALuRTf73dqKmtllyHUpuXhgb/Y5TAvjllyupldgfndQxVWb9mVCO3QriL+
N3YVtI7LwjKesasRozM3e1bJroF70/TQAaXsWjS+HFkQWMAuwrpefWXNdfaP
77qu45zmZ7HrcTlfWPXuxzbHNGNPYcBPQz5NLq9mx7PxvZJ3m7gEZ25Hu/mY
uBTHLN67N5exy+BxL/RmsInLIXf9c2lWKbsCXknqNeUP2ZXwaAlw21HCrsJX
jprSPvfZ1dA674tYUsSugaA2LI+6x67FHPeTisB8dhHVj12a6+6w6xAT7m3j
eItdD/NvRwR1u2G8n97GnsKJ0UsMw6Q17Ch6f3+gqUtQvHbuAo2JS5F+y93Z
xcRlmPz19MVDTVyOuWf6OwwxcQUeeNyc7mziSoyrf/vrQBNXYe0BB1d7E1cj
e6d5SV8T16CiV3qylYlrcXj5uMTuJi5C6ByZZmbiOsQ3tJ7+uxe7Hh7dl29v
NDpmGXsKW45fzFuRXc2Ow3N9pX4mLkH0+5lZHU1cigF/36oMyWKXYWxejEPy
OXY5mtVBiYfOsiswef2lLK8z7EocC15fW3eaXYWE4jD7vDR2NQ5umCjxPsmu
wbkO1vc3p7BrsXbjn54zk9lFuGZHfLiYyK7D1ZdrE1OPsOtRL9p26nPQeJ99
jT2Fu1u3LRt97Rd27Kk64fTsKrsEin933XrtCrsUj0r9bCsvs8vQ2z+0WHmR
XY5RNVfuZ2axK+D2bcFKQya7Eg/+aLbr+wO7CutX5o4xT2BXo/vC4XWv9rNr
0Ox/JCwjll2Lhd725mM2s4voUb++JSqcXYfPd/4dHLiIXY/5Id22H5ttnM8B
xp5Cht2bITLxKTv+QuvRIFd2Cd6Ump8ZNYz94797ad3x1KHsMng77+532Jld
DjMzK+euCnYFan2/snxtx67E0TT3Z/md2VVYXdeuX2JrFbkah3rk+cXVs2vQ
YLnHMaGC/WPn5sSa6DvsIk4Nt3B1y2TXweFpU1bkIXY9Hmx1m6yKbPPAQGNP
QYjrP6hpeiU7mjMr4l5NZZdgpHrSnPxJ7FJ0DsncGvMfdhliV1TWKlzY5eh8
5FhZpD27Ak2DTg+P6sKuROHUvZ9ZFVaQf/x3f//tEM8UdjX+9ekPLvvWsWtw
NfTV4mwvdi3OffrCOdSWXURN+JH1m2sek+uwL8TxeXwiux6P4xe8XRLQ5kfm
GHsKJ8cHvflpQjk7NAdmFHh5sEtw0OC8cpA7uxSnq+vdNBp2GaI8XGMXDmCX
I2BCY5+c7uwK7FeOTbd7W0auhGCVMDkljV0FuyW9WuM3sauRe/fPHuIMdg0K
HdI2T7Fn12L+vtCT2b+WkotQWxmmeCax6/Dg4InbTwPZ9ZDZWo50s2zzqrnG
nsLdpCc1aavus8NZ3fGY/0p2CXJsTlp9uYxdii4Yde/SfHYZbMam5i+cwS7H
OsXQyPnu7Ao4ZAyuSlKwKxHx+x/qh7XF5Cr43J069NQldjVCavfYJMaya+AX
vjYtaTa7FmdbDIUpCnYRoyzKzsa/KiLXYefJaKeVKex6zJohOT/A0OayeW0u
CN+1D50yxOkOO8YEJFhtU7BL0PlmQ9heG3Ypxn39MHFWF3YZfo99VFvQcJtc
jlWRuNRcyK5Ay6SntaXJ7Eokeh68ke3OrsLz3gt/vdKBXY2C3j4LN16+Ra5B
rGVoRqdl7Frcnf3OzNOOXcRvMdvyAq/fJNfBJ/pNwsi57HpMXJCQ8r459x8P
NBh7Cj6z52WUDsxih71fJ1mH/uwSHIqeOG1rL/aPc6NjnHVwB3YZ5nQ4bZf+
4hy5HF5zF730u8muQIfY+OcrDrErMSGyPtNpKLsKQZ6r6ivfnCVX45vWDxpN
CrsG6S7nkkf5sWsR/67c1/Zf7CIsM4KDy5PPkOuwwzCsY/Qodj30Pbb4epdn
5vwfMxQ7Sg==
   "], {{
     {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
       GrayLevel[1], 3], 
      StyleBox[GraphicsGroup3DBox[Polygon3DBox[CompressedData["
1:eJxN2HvcDuQZB/DnkSSpMafZuxpKRWs5m1QOK6ntzXm1VikKWzmMIaeYQ8sh
esWmyKysErVOkvQqmmOpbItQsjY0wkRLetPu6/N8n4/nj9/nvu/r+l2/67p+
z/O+n5e6vQZ2HVAuk8l8kM1kTknnmQlFCd/L5N5VE77tXs67VsLpCRXFI18+
oQpOVqyaeI2EmgmnJVRPOFWumntwKrhXd6+urirNKuI16NTUP+51EurqGbN9
x3znu9eiUwcnYpVw4qydcAZeRdrfFYvcrQldEnom1DN3XahGsxLd2mYP3rkJ
lemE3iUJjdQV8bqyXJF704TzEpqYo4Z3DXpxP0ttfEZnJ3xLrKZ8fTOcW+B9
ffudg3+2mrxG+PN9HtXnXS061exTxw51cX8oFtwL7H8BD/JexPvChMY0Gpmr
sR1ry4cHzfHPx6unVx29oncD3KipYo6qNOvRLcJpYJfz+Frf2Qy/iVx4cBEf
fuC8yP1injWk9yNoJdZQfRH9ZuY/p0Cvmd0iHt+j9gmd1TXUK3a7POEKu7VI
aOndhh+XeDei14Jfbe3dRm1LszYRb8u/y2lcqba5msY0m+C2s2MDWu3M2x6n
HR+vkm9hh0sL9m2K30ou9mwtH7wfmyNm6EbrSjP+1J4N1BXRaKX2Yjqt4TKx
ZnSbmys0O4i3L+h5lZmvs2940Mn9Or2LxVvSCD+udnZw72imYnVt9GnKoyvs
UuzdVp9WBXrtxDqb6UKfaUe7BndAQv+E0QnX2vka+8T3qat7+4J3N7teitsa
p6t4zPULs4XmT/hYLH4T3Gy3y2hcS7s7H4vxgnO9Xh151MOOHfDjfYt9Q/dn
8j3sH7me7p28O4t1wb+efi+a3byvlu+uX8w2MJP73R3+3eY+0IyhcwM/ushd
IxY7/tx5g9peenX17sazPDdwo9ivE3qrCW9+lXCn+51274XTXewu8d786O7d
ibc95G7nxwAz38Wnm3Fu58Mdzjy/v5qe+P15kOcG+ojdw6cx9r3Vzn34kfcu
3n1p3WKW29QOwunLm28STiScmf446JfOX/JrEL96qR3kPi5hsFz4MyJhJC9H
iA22X2+5UWa4Uc9+6gfjjDbrKPUj8fvh96UX/CHew+T78Og3cAfOALpjxIfi
3s/HaThjCnwZKNcXf5iZ+ptnqFwf8wzRb5C6sZncz3V87+M7O9yMoTMhYSKN
2O++hMn87ocbuFtsBM5Inv/W/lEzxVxT7ThFfgjODO9x6ifjR348P4bgjDf/
WJ/JFJqjxMaJT0p4MGEWz0brP5TeBPFpvJho77yPE2nca89J9O/xmUygM148
YtNpTqU7TN1wuRnmG+s9jn/D9Yn8A/ac7z6DH39ImAMP2fs+8ckwRzxmKjHj
eDol6qbixHwPJ8yVH6/vTHUlOFPxZvPyMb5O4tFM77xfs+xyr3vUzeNP9Pqd
3GwePGLH38vN1m+qeaernafHBD2ni0X9mwlvJZR6z6cZfjye8ASfHheL/B/t
Hbkn9Zrj/ZB8SYF38V6QsMh8T8LD+HPdI/8nMy4Qj9hTfJopP03ufu9H5WP+
JWacq26e/KzMye/0oz6L2c6FPJzt/oi6xQl/lsvHF+vxtL3my4XO8wW5+fov
pvVqwjNy4dPShJf4ulRsAc5f5Jbx6QnvuL/Mk2WwSHyBurwfcT5rhqhZTnuB
uZ/Fyff6a8Ia/EVqloq/hP8c7afoLbb3c3Zf6HyBbwvdl+C+gvsYnRfx8pwV
/FmCu0KfV9S/QH9VJve9LeXrCmfUlthxplipvVfQ2ZCwzn5r7baGl6X8eEbu
ZfGIreTBa86V7q/baTn+OvxSnOVi693XF/iQ11uj3zL5DThPmyU+rzf4tZoP
q9xf9F5tx6jd6L6RB6vx3/V5/l3P7Zncz/6b9njeXBvFXhV7Xf0atf/I5H4P
xe+cu73fs8Nb9s7vv8mOK+XivYUnUfO2/Ca7R26r+zrv9WIb8N8x03s4a71f
k1+F866699WuMeta+VXqIvYverH7NvtvVBf1f/MZbIbQ/gh3O/5/EnZ4h96/
aYZnH+uzWu1m749x35DbrH4Hvzbqv01sk/gu/Q/acXfCHj236BvcD3iyVXy3
3SP2Iews8Gsn3a303sd5m1bE9hZ4stksO9W/o8cWs2ymt8s8O+h8wq/tdtsr
ts0Z8WMJ+/DCo8MJn/HssNg+ejvkjui7zYx71e/D+ae5d6n/DD/+vRV/195E
L/j76e3G2cmLT+FDnPDkaMLn4gdw4/0/M+zx3muG6H+INwd8jnv0Oir2EZ1T
srlYuWyu7qDacuJHeLZXv0+cX+AF/2vvY/w4LdV+6R0exH8YZrO52i9wDotH
PnLR74iaL3n0X/scypzkHeFLcI479+MftWOec5xnFbMnuV8llPHgc/uXz+bu
Rwvep2Zze0a8vHuZfQ/YI2LBO8SDE3Kf6nNQTd6f4FbI5vY6hP8Vfsz3jZ1P
+J7s9z04bofT1Ye/x/hcMXvSi8iHXiVnvMsyJ2OhWzmb+zfaGdncXGVmq0Cz
klyZOb5WE2fE435WNjdr6PwfnVPMsw==
         "]]],
       Lighting->"Neutral"]}, {}, {}, {}, {}}, 
    {GrayLevel[0], 
     Line3DBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 30, 45, 60,
       75, 90, 105, 120, 135, 150, 165, 180, 195, 210, 225, 240, 255, 270, 
      269, 268, 267, 266, 265, 264, 263, 262, 261, 260, 259, 258, 257, 256, 
      241, 226, 211, 196, 181, 166, 151, 136, 121, 106, 91, 76, 61, 46, 31, 
      16, 1},
      VertexColors->None]}},
   VertexColors->CompressedData["
1:eJwV2Hc81d8fB3BKS0aDIpFUCFEqpfCK5KuyKkkRWhpGRbSMQmVEIk0j0iRJ
RlQatyuXBve693Kvcd09pIysxO/z++s+Hs/HeZxzPp/POe9xF+4/vv3QBDk5
ORV5ObmJxO+RCPdfX94yoB/ycmfTPB7OqBk94CrJ8OzttSmhhIdlTKn8RPg/
N5nEXFkGPp4dO/WGAer+OHEy4RZsi4eLVGRos2cc/lrJQO/ujP7VhF+nGCeW
qsoQGjwYc76CgZ1zbw5VafKw0mrufMFMGfTzzp2KKWUA8rXztAn3dLlbWKom
Q5hQeym3mAGFBw5XvTV4uGzY4aWnIUP91LS04scMsPsjd52aw4PleEEuTVeG
X7czF+nlMRAVornZWZ2HK+2CWDV9GYYDvcx67zGwePB2pYIaD+7bNLS7jWVI
birM08tgIL1rreq9WTyU/tp4z8dchscJizLLkhkINr5UNWMmse79Y/8OWMqw
qcsv4PklBnJvW1j4q/Kwwt1EbXSDDCpafqlKkQzI5ShPyVTmYalqSMzizTJo
a5RU0UOJfaY8fVMynYeMuQbVrG0yhOTktxfPE8BB1bF1qpUIKoFp5XxLBmpe
ugU5awpQrD/fM2C9CEoeS/fIWzMwPaHrwCJ1AZ58eNSVZilCH+N9locDA+0b
YvNWqgjQprbiX7QFMd7JPIm7k4EKd9+caAUBdO7eMVtpLsLkV9ns3AAGiuu8
jkwb4sP0pCTwuYkI9qMn+q9dYeDUs/J8mpgPw/mLuL+WiDAt3Zn36CkDqg9f
L1zziY941vUYmhoxf1p93nI5JtxUKTXNz/hQ92IfOqMoQnPhf/mpq5iQq6AU
1afycebPqv6uMSHivQ9+7wtm4nK6coH6KT4uLMj5uLJXCK8K47nOL5j4k7Z8
3Tt3PlznCYpc+UJMCf7vd/IfJkY1Ll6lmPMxK/K6bCNdCLKztvUj22a8IqfH
26nwcSriz+BsshAa41cd49KbUefy+8dyEQ8eLusfk14JcSI9rEpN1oyaEfK8
nudSjD2cOFZZKwHrBHNSq2MzbMOSZnwivMM61duSQvjgp2OR/zVDp/zWr1WE
Jw15RlXUSZBlkxu/b2Mz/BOsX24ulMKu8WTYqm8SXBwoWhZv1QzZ+89b5Aqk
cDTq9ClukIBTOVmxx7wZT3snF3k+leLTzkE/Y7oEnWErSu/pN+P2pK112x9L
IV4z+uQhS4LnMYkvrsxthsJgL984TwqDM6saboslcDUNObewh4mhVFvWjEwp
lIYPqq/plsD70IpH9xhMlDj0K/6LkiLyx4qBJR0SvIPLGqVcJjKWOf3H9JGC
c/xXRuR3CfzN3qnSDzGxLXRlUs56KSp7onut30pw/MegwcBiJjJDYg081KUw
G/my+vATCb6fkaqdaGdg0khP81+ZBIr/rn0cTpPgzDEzc/s0Bpr73nGuv5fg
oYuz1cB5CbQmxvw4tYEYb9Z78ZqyFNRdH0rUFUTQsMpfeH0fG9VvVg9HqkgR
qLDwYv0k4vxwYz8uIbzOU61m80wpuk9cfPqTOD9j/a9DeL5sZOcs0e4n9tNg
dnx/1GwRTlBdn1H2smGz/MZY1HwpNO3WeF5cIML34mcXmXvYeHmHbv5zsRQr
qjse/TUVIVzwt2L6Ljbc1g1tsjOTIu9rfGOfrYh4nwdKD25nw354Gb9ksxR3
L5+IjQoRYY+y1p8IBzb0d6hptuyWonVHSPbiVBGef7cJXAM2DvLXBvwNkGJw
kTDj+Etin+9KNZTXsOFNWvha94IUm5nnFQIZIrA6tHkjy9jwX5ng63ZTCpsv
3aEG4yK0JJw7+28RGz6pUcvTiqRItPNbV2wsRmLp010zNdl4Y5y7o7uW+C6F
vtvVvcV4H2zRaK7MRl7+SvMggRRhMw2X+aeKYdiVOt9Hjo1XD89Gz7pKPP96
87SYlk7EURsymh3pUDo9/bZRsgiOk5pI7exOHFpfpcd0osPmJq01lHgea3m3
8D/cTvR3qfgwPOl4di8UPRkiBFGdJ37r7kQXWXNKZyAd+wy3PX2cJcIMge7E
E+Od2B+7QWlaAh2RW6P/ZT0WwUVL7PZTjYsPh8auH35Oh/PjVVptr0Rgqrep
eppxkV/A+TufRceS3NhlB2giHJBwR3aFclF07UeMuTMDtBNzhWShCIEhidOX
ZnEhclP5N5jOgHsO+p+MEnHw8AFf369cTA6vW9zBY2B7x8h/C9TFOEJRaFgk
T8Rt86fzl1kzsSo/hG69XAyP6ydTH6zn4URG8QHT+0zkBuqlarmIcckzX29G
BA+Ks26SLJSbYTdZdX9jsBgXsjLtcz7xsFju+fLcuGbIvxRpn0sTo94ilJqo
yocwaOOtH5NboO3xXhqXJQD9fMmu8w+a8WWfIF91/DOmPVs7tDFbgEslXUt7
HhP3meN+VjyFDNKn1Utj7guw7mntN8+yZgSwf1tE65Fh9C36jl2+AGFf7Zmf
65vxesmeiiEXMs6l7olKfCqAi+ldf3ciTg2aV1WkJZNxPGJg+b5iAUJ7n/qv
VGvB5Zyb7vntZLwTq1s3vBbA7VYc/65DC+7dCK7ItqvBgur5E59+F6B1dMmA
MaUFTuUaS+5u+oKrSxamrmgVwNN/4JPyPBb+RQzdnir8Ampv7K5UmQA832nt
kjAWZjN6vKwza9FS5urGHhUg+/TO5I1tLMRstm2wOkpBqbLxDuMZQsxxX+D6
wo2NU9N0LixzqcMkU4595hIhlpfoN9Ma2LjM5qnvcarHqvFPG52thXB+O6wX
4NOKJz624SsPfcWtHDOm3y4hdk/9nrRxpBXd36z6tt/9Bm331ab32niYP7oh
q+8XFV9nRR65sZ2EV5Yjx8zaeahhmzvV9lDRX3P0uZjwqH/UFT87iDivXVm+
eZCKpCCducIdJOyTDVcwuTxoubrKx8jR0NUfeiZlJwmr02z29wt5OKxUZBmj
TMNZM18ufxcJe6P9mVu6eHj5V5C6X4eGg7sPFP3cQ8I6Ld95gl4edCkriuxW
0iBaHZ5c5EOCf/HsKk0FPtjfljQ+OUrDvB3JZ8KPkDDwdKkznchH1vKk5ltJ
NPhs6TmUGkyCecSNa3O1+OA6lmjtKaGhYklSQHwYCYoTNqgPG/Lxc4WJq3U7
DVPvGcQERpLAT/+16uZaPnw68pTuqTaB4/GT7HSZhF5bx+OqW/iwc0mcy3Jo
wqzdv4vXp5JAFU8TJuzlQ0NjK+N4XBP+BQ75uNwjwa5ss8AslI9Svp4Ct7YJ
9SOx7MzHJFi1Ww3FanPg+vto0dteKma902S/e1aD3rcbm6N1OJg0umXLOcJN
Wtt7q5/WYKBg0YOwhRwsj32ZVEK8f9MVZVM/PKrBDQUpN0Cfg6g1XpUHflNh
FX4kqiq3Bh6OptlByziIWO0oS+ymYiXF3/jB3RqUM+oTEi04SL2f829RFxXC
10FGx67X4EfIWTemLQdFbxoil0qoiFgw5/rIpRp0JcxBsC8HVmdIdO9OKkaL
GkKmHqkBN0IQPHaSA5MLf9acaaVCPGulCnbWQE2+p23rFQ5GI/VJLAYVRyrc
hl+gBm+nr+pJyuFg9+Deg+ENVDQN5xktMSD2b3nU+F8VB+6CyNx1FCpUHtf7
+E6vwdSQgPPiFg7mhi2wVftIxQB/WY1aFxnUFI8feaPEuvlunK4KKmIs+wJ/
1ZKxYMv5kZRFnfDpjQh59pwKfWUb16RcMt5baM/v7WKhR7fEp/IhDc3uGn5/
dlMgDXfIDPjJwjmdvV5PCb/R+ZVfQfhrAy/7lm4WBB1HjM4SPvmWR9uYJwX6
fbOu2/SwEMhY5mFI+DL1kUu1uyhYd8vGP7efhRlX++YSFRuUCt/wZnpQoCoI
WqY4zILWTeGOhYQ/0WsrZeygIE5j+4S4MRa6NZB+5AENCQZH9szcRsEjNRsL
oRIbOSlVjrG5NGj/qpxTt5kCOZWXVf3qbKKeaK7Ydp+G26oKnFWbKJh+vjxk
ny4bZ2eFjvdk07DdXxLaDQou3Hshv8WEjcpJ6Wv8smjQ3aZCE1lSQL8hd7LR
kg2npfM/3bpHg7fdZzvVlRSU0EhqCzezseDkM5P0OzSEF7i2uBpTkGsy9PAo
kc9fL9s33ekWDdd0dX6l6lEQuTwthx/Ehpgiqau6QQOvcVFwmQYFU726BnYf
akFF5taTO1tosMwcps/XrcN4Pj3Ki/BDzfnW//efc56q/t+j3x+a50e4kpdZ
njvhHjFfqjQJV61dRj9MuCrvYNYOwpUjzzWqE55TXPkphPDDfS9NthNe96tt
8wzCbw4Pj10gPI5/2MmN8CPJ39WnEf5jZltRGuHJz58MOhOeZ5GpJ/d/f+Bm
9pFwxsoqxn+EB4S/uSteUIf79FXR7YQvmkoa3kh4+3g2uYVwkYOfvZx/CwZV
918G4VxfuRe1hBcqunL1Cd9EOnd8HeFRdvGLywjv8ur7vp3wvZUXH64i/MS3
K9JswttTuBlxhAviZs4xJfyX3d6qS4Q31zu0viV83/1DBfqEH5wRtuEo4dWh
lEOjhM/MKN2qQ7jRtG+amwkvM1wYtaSYjbUmk8PGifh2PalCbDpYi4M/jJa0
EL5Ss+SLiHCt8H1yTQO1MJB3ovwpYSOsSnT5PuHL/tgHffpTS9RZ0y9cKGeD
V6QzZSnhSkGUzMG+WvD8lnRcfMPGjwkv9S8k0hD8mW5xvKcWThHehpM/sfH1
gLpjfgINfwMeTVnUXQudPEa8dh0bqxrjNqfH07DV902HorQWXxMr+r062LiV
mZ1Qc4kGqpV895aOWrRLPE9WdbHxWaHs7MQ4GkLXGsy50lyLlxb1OvNH2cg8
VhQ7epGG7l7Vq9UNtegKsOwtUG6FoYfZWEE0Mb6/P439pRZXzvrmZi5sxbpn
LuumRxL3y5d+8fO7WtQMJfKXrm2Fd/yS3bPO0eB8/JKuV0kt9CJuTbi7rRVl
6jlzX4fT0KDv0nH+YS06CodeI7gVckH6KT0hNJTbD3WM3iTcos7kQxsHP5P1
Bmd8oGJo/V7rFWIyjCfHRf9s56Dcdlfix/dUjOgob5ETkfHo/vbR01wOSn4o
3qVWU5GiXMk7xiNjNKR9/WExB4mcR0vs3lFx9aPrnqNtZDxZd3x67W8Oxru3
fVN6Q8UpoXpldxMZdlMs8gv/clAX7k1a9pqKD2UvU8QUMj6kk0dMpnVC/6RL
RXYpFVHl7zJt3pLh8zmhP9qkE0etZs1zLSDycgO+RN0mY0h9xpkHdp3w9o9a
c/YhFZmfDRTnxpAxfOnnr0nenbBxP+1cm03FZaehXf5HyCiP9y7ln+lEuXvy
cpNbVCTaBtwz3UoG5Yuy/5U7nXgSGTx+PYUKTdrsXQZGZBjoqOyyre5EG4NM
4sVRobRXd+2oAhkRa8bXhYo6cZPsLDf1HBVp33/6bWV/RlycnUmyOhd6R6MM
O4OouNSft/dB4WfQO0a/w5ToW4+3i2XdxHexe+EdeIFEzN9I4hG+gFmxpfc3
DX7vza5TCD9oTP7YsJzwvfr/pg7SUDhlPrXzIgmXqz4bKa7i48nvvpfr5JtQ
vLxsekUsCev1fzzPIPJ4e8nhfXeIPK5ydP7Z/+dxegbL87wNH22dtBgbPcLn
RRU9SiBhA9e2hLyJD2WrUe+tlk1gZV1+XJ9MgnShXul7Tz6St+4c3BLWBCI6
uWbcJmGbn+e8tIN8zN/6K6XgbhMcdgy8c84h4Y6eRFM1hA+/V4XdbuQmHDHZ
92LoEVEXpe5Z53aRj/xzw9+S/jTBz6H1Uf4LEl6siW4ISSPqk9pEyWtjOqaf
/uu2v5KEav/pPrcf8jEgS19hd4ToK2L7K+0/kxCR3TsmrOKjUitl0f0COqoH
6pL2NZBwN+KlIIHKx4wQsx1eA3QsYgy6N7aRoFlWklwzIMC7Utss2WsWTgfk
rNNfSIHj2wCz1EEBRp5tfHr/HQssv57TEUYU6N3ZotE9LIC70cE2cj0LKX0J
FkkOFBTqGu7k/RNgb/zuU0E8FiK8e7PDwyhYv9tSPmyiEOEbcnvLFNigvg2y
PF9BwVbeG5dnikLMNvHYU2fGRo20zr1bqQ5XHFTTr84Wojg0OpR7kOjHdjVm
2ITXQXj26KF4IyG4I9YDNt1E/imdZF16uR6bvu2RvF8rxGIjbrDFxlbovpr9
3crsK9yjy6I4jkLkdqV/v/2gFX9lQoWA7q84doi+bXyPEMc0B3L4qm1Y/GRa
pyX5G3RWX7NadVyI0Ut+wU/i2zAo+73gc+l3hGe8F9y5JESrd0RMrEo7+jM1
X22q/gFd+dZO52whHLcI8vXz2rFhSDE35WQDHAKTaCcqhZirOsxxt+/Aw5Pn
Gf6zGnHd8v2cRCUxbnJm2N3v5sJcZl/H1GYS9djQ0CNlMYpfXP0yuYeLx7+L
G0ULmTDMPRM7NkMMFa2wjVZDXNRdKzPQMmVi7Y8f+9LniJFduPWMgwIPE/q+
J523Y2Jg9okpx3TEKIn+M26qzoOdQa21pi8Tb8uZL+INxXi9V81pojEPX7u2
jSnGMaFJSfcZXCXGnHKlR02beBhtUFINfsnEsfhXn366i5Fs9aOlJpEH/rb+
XG39ZjxZcNUv5YgYnm7rgrXLeJDz/zCLHNSMEd7UhuIoMeJXFJxt5fPgOTsh
M726GVklG/mHbhHz7xxwMJzHR7ivc0GNRgu2zLyx6EOJGHYH6usNd/JxY3i0
IzeiBQ9Xcd7QGoi++tDFa9NuEj61URAsbYF7S25IeY8YLHJW/HArH6sT+9dE
7mdhysy8a9HqEhQ86O82MhLglVYnbaGAhS19nQZFV6TwY8qebeaLUM296nLD
iI05St6sW/FSFD2c9HpAIAIjQlvNmPDNWsN2O5OkUHvjc2pMKsKwi+2GX4Zs
OOpluIuuSaF4jJG1v4/os79kHeLoE3mo5GGu600pyq+5ztUfFyF00d/v///f
IOpelWdqthRvmuy5TipiON9iXnAg6rArGy+h8IkUE8yeqLfqikHdmb++UosN
O2VxZOwnKbY/mWDu7CaGv19X0pwZRB51TJn5H1WK2zEWljZBYuSWmgf+m8rG
zfvb1wzwpEDd2XdlyWKYKpP7J8uzkSBZsfjmoBSeATNd3r0Uw3BC0LflQywc
/OJJ1p0qg27/Wd6VJjE0HM+8U5KwMKvx/MmoCTJwOdG2FJ4YarvMk1Xes7Dd
rNpq36gU09d+99jVL4YsIPRixHUWfkf3vPryRwqla8dnWEyWoNb3Rf1WPxY6
zod6PJ8hBZ/ppffvoQSvMs93segMhLBE021VpdhDVfTdQLjaKyXRehoDXZPy
V4wqSjG2kTNX8YEEpg35HJ96Bo7q321unyiFj0r+zj05ErR9PTe0sZqB/b+/
LZAMS7B50xHDFXclsL/y4rCsgIH7+ufXav2UoPrti6cp6RLoKPTF77zBQGdB
Z0BYmwRjk4+PhyRJoDLbnBdzmgFhnU73gzIJ5rBd5jSGS6BefyfVyJSBQmlw
2tksCXo1/OK3HpPgRM0Hz8fyDDzUWTv7XIwEwf13rVy8JVA26gjq+kHHgO+k
j48OStAn29fZ4iQBr7Bt/ehtOjyqTzvK20tw5dN391/rJdDeYt/c4k1Hfwn5
U5KuBFUcm+fXlkpw6kaWboIWHQzNuC+OI2J8u5Ro95Y4v+s2WLJV6E3onJkd
vb5RjPKu5opwOQlMsuezTiQ0IWLaO7eMEzxYBA6IV0YLMS12tamkvwXnD1c4
BR/nweWAhsnLKCHUhtUORA224GtacPxwAA/T3jqrL40UIoXe6Gc93oLsTbvZ
a/x5KNg1SyHznBBj2rH2i5VYWNA/WGjkw0Mmp/yW4mkh1joGis10WCjjH/tD
28GDq8uDF2EhQnylFXK9VrOwtX6DjcV/POw4VRLQHiiEbN3J2LxtLJQ+qW4y
NyDizo5nN4p8hPA9fiR5/x0Wav5WzqHP5uHgnb9XND2IdaML9eo+s3B5d579
hjEu5HbHL0twEoLWol1s+IeFkpHmxrNCLtLtXvwatxVip4P72Enint7Lya2/
8pULE5lc5AULIT5YToi8TeSHsEdC1oliLgoXT6UoE/kh5ca4TfIDNmaflHOw
SuMi/9ts5YL5QqQPOw1AxIbycFhvz0kucV//1XqpCHE1UP93tlkr/geSdgXE

    "],
   VertexNormals->CompressedData["
1:eJwVl3c41m8bxhVJiMqM/Boy05KU0JWUFZKSx2OErJbVIEX2KltlZ6+QbMJF
RjbZlSQlJXwrK6He+/3rOY7zj/v43p/rvM7zfrab2+larmZgYOBYxcDASH7d
DwUMrPyj4OpnnalZXhl06bu8fv/8ebgifvHJEtF/BDf97jCgIf9b1Tsuv89D
aFdY/iTRa2stpvfE2SN3lsPSbQZ9kH2pW9VJ9H9+M1tG99xB/7fmU6ac+pCz
4419KtHxrW5084QnsrL841AV0YdsPfXTl4le6Wf9s+KUPw7wLt0/fVwfvO2q
Y4SIrtmhuI9vJgifBcQdy7DSh82TPOEP/lLQsaVww7RsBD7def/DcIk+KEtH
t7xfoUD8d036Cd3HGLlc5Ci/mga0KS0GTaLbXVJYG3A8BoW2hV5EFRqYZDY4
pC5TULMj3OuCSjwmKwn0nIukQe8pfo6xJQoGympUj+xLxMyqTyKB32ngHfrd
ko3oNguixYPNSfie69ElJi0D2C+lFsv9h4Iz7CvWKQ4pmNd4w9Gz3ADCb0Za
1v2iIGS9WooETy62m1W0tfPRwSVm5cJvcq+k61doxi3mqKLnZ/WfvD7oHaW0
h4mux6KvaOp8C93W+5TsNdUHkbL3ry8R/eXDWdWbev5osihv7HGJcIvWupBA
ONzsKZ88gOFoOrXM98tZHzR0sqduk/ueKLmVHHohGnmOdMzEBOuDtcmG0EXy
/a8iDnEur03E+Nwh2yfZ+vCrZHB76SIFFVWCm1PXpSIzW/L9Vf36IFF4LmrN
PAV5hy3sLx3LwlGO3gGO7TQwy7J0ZST3EvijImg7lovCNoX1USY0+Jj97pz1
NAWM0clarPX5OPvpUxV3Ag0eU4wnVSYo6JfrEC9PLMBKdUv++jEaxEY0HYwc
oyDycmi7RmAR9n3sdN4lawBeT8/+PD5CzuGKzLb2LEHjh025n0IMIKlUtUXp
LQXyj35PDgeWoX9/jEbcjAHMSKxpzKmgYOjtkS9p8TV4W7d7wmUvHdT/Kxb+
RLjdV+6a9oq7gT/sUun6p2lQYaJa6k10E5rHX56/PhjPFNQ995gGaV1XZf8Q
bhX0D1/CCx+hbyTsnI+nQaJamyidcGuaHjI7fCQJg5iWJMoyaOClnxmSsEBB
vNiBrww7M5BlWPfG6WIabPcL+1JN+KTL7ztxUSAXZVKSYgYaaSDrsiS0+zsF
dzsr9rcqFOD3xZKJoVEatOZGVB3/QPYub5jNbqgEU2xolsWbDEBKSuFbUzcF
pumYbPiuAgWurl5dcMgAdF/y6mq9ouBCsEXkvQ3ViNwXY19cMIDPXEIihwmH
SZ187ZCnNdg9t6LGH2QAW/fQadZPKdjmdc65gvYSdy5eeCdWYwAR2RInCmMo
6NsynPdrQz0Wpk28Pb9oAJclb76e8qNASeHj3nt9DejzxTR3qxwdCnJjs8cN
KIg4nny7PbUZ+7zPVO6xpIPJ5R2fGgnPBEpuIcPdFaudGVLkDeigH39cejPR
Y/iuxBZLB+P9EJVYlm46KPMfKz1P9u7ZYPS+3tAENFnbdi+F6GutOSXyCc8U
6S9p7GwZqPWSJ0Wphw640ePYlp8UeDOLim4fzMNtDnc0ZonuUKVYF/SVgtXy
S7FJBoWYJvmuqqeXDprFGnLc78h9ZSxVxVTKkOlUhqrCIB2mferSTzdSsP8O
zUD8bDXuZNxhYvCeDiJhLC++5VMQFiUR9aOqFlmZlqKpITq87jbQ44qnwHAH
16/i3jpUcT7YxP2RnJMa4BTiS8G7Y8pPGeca8PXZnfohX+gw4cFyYtc1Cvgk
vjYxbGvCV3WatdlTdNg1Ovn7qQ4FO/odfEfPt6D/qzy1ink6jA3M/2rfR0Hs
tVijqZg29JO/KLR5tSF0j0QwqzFT0PYwzKLVqBMlK+5yz0gZwgVvjg/PCE/h
luHQRU8PlPdtSVVoNIbIsaGlVpIDJY0+97gdw9CLzf1rSqAJDG3/PKZIfBuc
HX+K7WoSFhv+vVbnZQKxgzMVp+YoWOXx/eF7kWx05/+sXOdkArsT+JomJsk+
Bhor/7nxHJ8LTp6rsDKBMin/92yjFMh8Lpwff1+MT8LefW/SMYF3SwX8lV0U
zDJG5TTceIGpoO4XL20C8X9WbnmXULCluMWoUKAWTy8Vr6SvGMMWB/GI5lgy
l2N12RZzdXhfRbWtuNUYhH/65454UvDoR2nahFojfhZTvmqcaAwXriSxPbOi
gL1SYVViWhPu+KzDGutA9DmV+CUVCqy/ZkhEsbfiHfOQqlYwBvUk2ypvYQqy
3P4e/enWjm6BD6TOsRnDwoMDB/4tTYPM0WKT3pVONO87I5bYawQxC7vrnMem
waVo7FpyVhcu8cboOvMZQ1FeQWQG4Wwn8uOCgoon8nWXnPz10gyE7naVVhPO
dxfFxW42hiEPtdSpftkchrW3uEoRzrW2UrTP/kl4oYzlXLeZOaARz01Fwtnz
SPMX7YPZyMz/rPj8WXMQ83c5PE44f5r/qjdy8zkundbUnThqDn5Lv7cKEs56
WqJZDQPFGHq540HmTnNYl9zemE84B+IGuXinF+hz2t9U858ZqPLPmyLh/LW5
XLiIqxbdT41ILlSZwfU3+Uv+cRR8zw/hUx2twyBJBkZ3bzPI1y9rm/Qi/bvT
+hHH/kYMv3fj84vTZsCcEsmy2YYCfrsLE8n+Tei0cptuyWsGr1WlYECNApWT
xZXsEy0oKzO3u2XQFPaK/639KkL8sIEnzfR8O8ql9LAffWwKcy/Yktb8m4YT
V2eZajo6sXywhk9A1xQYvymyZTORnr1cl610qxMrm5efOj80haM/u+L/7+f8
M9phVcvu2P9gX+7UvBWISIaMzxDO9R5xGUf4QlFF/wxjyGEb0DHIeLGD5IZ+
56fVpVpP0Hid+3SruA1EcltvdCW5canUs2ZGLQPVFZMnqPU2INEZK/PnB/Hn
f/uClmfz8KTtVNSWr9aQElrFEkxyg0/64GF2/UJ85VCf6VFqDX4p65UrSb8M
e/XOspuV4ZPfwmN8jtbA3lWu4kFyoynIubHkRDXm1BRkVyxYQaOci/+pAtIj
/8Zs8x7WYnJL6+qPwVbQwMzhwf2EgtyOXaWvE+twZR3Ta8bdVhCw8xylF0AB
10iI0K2iBvyhu4Ej4qUlvAtfp/3JnuStBtujJ69fYc4Ht3peHUuQZHaQDdCj
oEf+ObfZYjOua9A2395vAV8OPndgP0TBwRoBv2GpNlSJUf2trWcBu5W25A6c
o8DP8MZcNXMLCjIHZE1RFtCyLZetinB2fvNhX27fHdxLbQhcOeQAj/L/E1Uj
+tNbGfMrdgHYrypkb9zqCMwcu+7Hkx5sqLu+5ZtSFIrOuge9rHSEsQaugc/k
nYOsV9ScJ5NwJMPjWl2KI7TS78rxE/4BCxHGB2ozkFdN7aObuyOMa1zHvaQH
hyKc+t8l5eL+EIeibWcdgc02KHPyGwUGT8ToqliAQtePDKzmcoSlbR02m4dJ
Xr3Pj9BVLEVRvT3fap84QOTJnjof0oPT8tuZ7CcqUJI5s7BN0QEOG0o4nCQ9
KFpeuceToxpNWOf7DozaAxNP/g4v0oPtHb90PyfWIJOG6l9/N3u4pWoltCOH
ggc/2uPYlV/ivnTPBnUue8i6uk50FdmXQOa+zKLpOtT0dV36o2QHw7MnhhbJ
vPa6fjb+ltqAjgyRgpd0bCFddP7nBtIXO8UW4x711mL+h6HqQVZy/uPS9Y6E
576lx8s/7t9AgedPzr+95wNH1rrHMBCdNyY20X2rJ4Y37foTdDYQyu6+3X+Q
+FzbeuFMxVQoftL6sufE0UAAeSWPSeLztg+DP/UGohD2znm/4Q+Ee9tsjwmT
nFm7lbnujE0iSnKad935FAA+s1Psfb9JD+7aqDFum4qsUVveX00IAKevRRrd
sxR8HH8f57CUhcqvrFfpKQXArbQtrfIUBS0+h544cudj8UK4a1WIP9QmBE6O
k7kMeQ8OeDwowGKdGeCc8wOBOZpD+GfS+woNc3XlRagU/ryOycYPfNelr7iT
eVnsqag/OVOC7trT4hc6fEEzT+y/1AEKODfxlXocKUc9RZldw+K+wK7NRX3r
pCD82yQjR9gLvL8Q6aPj7AMiLwRqFckctXY0piX+rkI2m5eL4VXeICG7dWCG
5OErJ737ZedIHr4fdWIa94OC/bsLFcm9GAevuUqdvo1W1WFTLopP4f1SglUG
y3WUFIkdWajpQOkOH85fnBS4XSzfViXthPSjbxI5nYZQjffW3+XMSehS/yh3
UdQFNz27pBwh8wlbND5zGkV9A98Aic7dynext1pyS0zNF3zm9lt+j/sXkGKJ
rPD67oq5UQaPHI98wwn+EO3Dzz5BgpWEzdGPPpjO1GYrS/+OIjYQ+jVmBMKr
z7lEmvuhwLCRy/ZPk0jdnHbd7fsOtHjng//xe+LP9Iga56opTFB4J8KeMACc
IT9ztnN74Z3YPQ6J8tPIavLAnGmhF87SXLNM93pj1r9Dmi9jp3ExgnGnemY3
uO0STQq19UE5bS37pbFp7G//NuWW3AVfqdCwM32+WDrr+GxiK4WjAXXCiwXt
MKIzE3Xe2h9lDOw++2tR2C26tVnNrwWOMRZtTr5KoX9Pn69X1StsEDb9HiGc
DEFmakOe/ygM1q7QDkyxwm2vHrOKpvmArMYXayeiB4YG9um03sEhm1PRxq2e
IN+Rnlz7l8K8P3ac/GbBaC0lmORS5gnXr9MDvFYoLJW9I/bd8TE+nmy4qBPj
Cc1C+7e8WKIwcVCBY2P1E9wI0+fXOHiC3fiQnOUihapxJ7r42FLRnqNmtF3B
E8y9qp7OzFHYMyLBOjyTiROKHtqt3zygsfDhvPkPCj0FuQTcTj1Di+WAu5w2
HpDV6XBJaIJCb9n2d6KRBSj/IMoplckDcm7s6cv8TKHe79J2vdYiZMp24S5K
cIfns79qnYYplNPRVvrGXoq2e4Z4d+5zB5dElbN3BwivI8mep+nleDLIbfqf
4z24EbDBOL2TwnrVO8c2Fr/ApzO2zRW33CDDqX/9p0YKD9m+Hu/7rxrLIvME
S6+6wr17avejIymsHi//sC6tHgVDCqJHbJzBi7PpWjfhWWlhFLyL4QZuCRPy
EtvpCMvnmJIciL79YPmE4DlfPJmRPyQ5YA/+mzb9aSA8l/Yahrq6P0Zpbu4/
sU32oOSqrzP+h8KrAzKalVQS7mE1/bL2uT081dtW0TVPocWt2kZ10Uy0td7I
FRRqD9E7N064/KTwn2XvpRqrPDzye9tePWt7kJPUUtX7RubeUsW6alUhat2S
2XxGzB4Wxlq4w4YonARp+eS6UlSYyL5W6mEH+f37Tas6KLzLK6D4i7ESNzLv
qE/6YAslL2jtJi8pPHE/WJz3HOJ1Nj73JEVb8Fg97U0ronBrzullF4NaXLbs
iesNugZVl1nXPUilEDXbO5U31mFF7+bjAq+vwsmKqba+cApnx/dZOHbXY+27
231mLFehXUniFvs9Cu1aW/eKJzRiC2/byyyZK9CWc/jxGUUKRXKetD2qbMXC
gzG0oHwbcLJXTWsgPM2KfdgZhO+iUODNuLZeazCKCS0i/1Ow24/F2b0rCD+w
ss6yFlvB1Z19WqeWiU/sT3rWZyeg2z0OFoU0K3AQu2Pjt0BhyRLL4DGFDHzU
3pAded8Kvl9vGW4gPuy0Sk6d2PUMe0w0dGRtrGD3+oiRP+MUChcmxHdGFOLm
om392vJWkHKrzFjjLYVuEj+W7/qW4cDyH7GHc5bAWSbSeqCBQoVSj6sMcdUY
o7FtqcmXvBPG5sbn8yjkKazQej1bi6pPxl8E7bYEw0e7IspjKFxUnR79xlmP
l/9qbVfps4Cb9nuYOr0oTN0+oed/oBHFE3vnXW5awO9NZQIsl8k5LYIitaZN
qBZzKySdg+i856T2kFyo96bWlke1oJic6eyppItguG8/w+rdFD61ZS5KH2pD
EUe7XfO7L4KpkebrY9Q0zrmkRxuaduGqivv20tzmcGT4zWQx4ckYsUFROtod
6z/kJD5RMIdEk0MSb0g+/NmrKXF4bRhWLAVLqySbAfe+SqNzJAecSu9xmR9L
QsH6UbumaDNwZNN+YEX2XU1B9vsDxmxcFkbLTQ/MgKG/6eaaKfKdP/eOH7F5
jux8V2Zlb5vBvTM3bXeMkr0LEM083leMzC7rOXTMzOCSpm/kchfZoyfL5jVm
L7DkkANDsbwZXJT3edNWQuHq+7ENezfVIsfbqN6sVWYg550dXhRLoZZogbrp
Qh1O3J6yO9RtCrJHeB5XeVKoK/MnkzrViNLu0RL+KaZwmVYj5mZF4YjgyFfH
rCY0ejdmMGNvCgaZv9ZUq1BYFvsqZXlDK56tr0muPmIKAr9mTBSEyVzUBX5n
e7XjQotTrswqU+hWlmzOW5rGLvUdv86u6sL4wL9B6gEX4P6D/97v7p7GPBXh
MDnZ18gv13lryM0EJOO1XhYQzueYPlrXS3jgudMiLdf0TWAxbEC4n3D2dXcV
CRAPwzcrBXHMycaQbVgfY0Y4n397baONZBJWqGxVFIk1BsNa7/gowlnlx31O
11dZ+KodzTRDjWFmYdDTnnBOK7Yd9Tj0HFkNgv4L9zAGk2c84m8J5yvHrc+e
DC/GyREHJh47Yyi2NqEzdZN8ODNvws3zAmUEZBvidYxhf9zKVtsykqtVShIx
H2tQOqgmbq+oMdh/p12lJVB4MkcyS7KoDrm7uWxYGY3BJczfe60vhetv9RyX
WNWInqtjrmePGMGhr3WUK/Ht6u33tnnqN2FHurDUxAsjiONgLvY8RaGGZ9cJ
rbIWbFQvDdz60Ag6NaJ1e8UpTH8o8yNnZzue0r+blHHVCMQlRxrFVhMfChaX
tMd34idlGYMvx43gwKUvl3lnpzFU91JHmXwXzj1O3vRyyBBqC/YsIuHsMdfV
F6B1D2v9bbb+fU6H+qa+ZW6iv3os8i31TjCqfLXRDTpJB7WvWS7XSW6wiz/g
X+RLwJjcCzx7VOhgKNULXL9JDtgLcAq4p2Nmg2tsriodVryYDb6THP7EkXbg
1d9cVAs+LSGkQYfeRgE+iuTwFBi5tzUUoHOp8mKkFh30AypbN78neZVs0bQY
XYrBQyXfP+rQYeCI4WRuM4Ump+e6Rq5V4YH9XKM9xnR4k3hdWYT4vP5HjEen
SC3WxT/gTLWhQ13Vx9r8FAqlOT6zM0vU4fsRwW1Pr9MhSvlfUFUwhbmPtlbW
HmzA4SbGo5/d6RCprqMl6ES4vZB3Edd6heYCKUJxoXRwae4RCTei8I1WRLmt
fTM+/nPivVgKHZgSR1s+HqWQ+8enzMHEVnww6284VkaH9RbwZ7U66Ws9x5C/
X1pwdiL0NSPRhW+0nBokPAc1p9c+d3TGGvZ8G0YvGnlX55TdJvpuqf8cuhZ9
8VjGI7FMFRoc6/8rx0F8Tl9r4b+s9AhL0p+vPNOkQW3u1zulxOcf5lZ8fQIS
8WcZbZRDnwaXvwjttSf8rZxKLdmX0tCYF7e/saTBNHd/675ZCl28Nr9Nc36K
K1mubrtu06CY4j6jRPyvxPZKt0vrOe7ZmbP74EMaLF/q0HpH/D+7gUlclvhf
ouqpll0LDajiELOHgxQ+dr/DfIW7HOvnNTqOLdCAOSaBpZD0o/cXLblrrJV4
VHQmY/dOAxjw6/7nUEe+v+p63IaNiMMZ9Xn8+gag69sZW0TmVV7pxiTPU4tX
6mwO24QagCVTjBotk0JXbq4zjjkvcfhiUUVolwGwlQh1yEQRn0jdiLc+XY/8
TJJyvPx00Ejms+7KpRB+5aRl8LxE+byljskzxCdUM98U4XlmnfMjytgeU91V
wi4F6sOm5wE+2UT349KVlFXyxJ7M2P7KYH1I9jP8O0U494hv54i7G4oh+ppn
TkTrQ+ztlKN15B2iE3L6TeDoYxRMs1eOzdIH6UcKV8SI/9VThLYNnH+Cdc3N
nO9RH/h+FATxkvfJ2TRa0Vq7FIw1Yzq5d0gfWI1YzF3I+yRxx3jkSHYmDotK
8/xdTwMf6TkRU7IXLMo9/GvC8/B+85r8ZTLHdO2CwoZJCvsVpmOcfZ+jCA/T
x5BgGqzl1klY/ZVCn9wfeb3hhRh1NK1goY0G6qcfKj4k8/IobI9dk1OM7eaP
q7W5DODuT8W1tuQ9YyBnSavsKcXnsy/7N5sbQIpVRI1LH4UtUkfZOtkqUIFy
fviz3ADGGELY0tspFGw23ALnK5EK/zHmLUiHstRHl458pHDa2DCfTbIEL08F
vRm5SYf/AQDwgZQ=
    "]],
  Axes->True,
  AxesLabel->{None, None, None},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImageSize->{346.3677003431182, 248.21994681720588`},
  ImageSizeRaw->Automatic,
  Lighting->"Neutral",
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], "RotationControl" -> "Globe"},
  PlotRange->{{1., 171.}, {0., 30.}, {-41153.73113263708, 0}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{-0.1031306676211053, -2.9697668266121373`, 1.618594779724097},
  ViewVertical->{0., 0., 1.}]], "Output",
 CellChangeTimes->{3.7591983571936693`*^9, 3.759230060574064*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"e175d210-b427-416b-831f-bdcf3a281d3a"],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJx11EFq0EAARuGoe8kyyymEkmUIMYQQbBdu3AiKCFKQWuy6V/AoPUqP0iN4
hG7mIb7xn918zOrxMxd3D1/uX3dd9/ZV173pOH+uun/O+CS//r/3wYfgJfgY
fAo+B1+Cr8G34HvwI/gZ/L38st45jYf37oy7M+7OuDvj7oy7M+7OuDvj7oy7
M+7OuDvj7vyu3jmNh/fujLsz7s64O+PujLsz7s64O+PujLsz7s64O+PufFXv
nMbDe3fG3Rl3Z9ydcXfG3Rl3Z9ydcXfG3Rl3Z9ydcXX+/aHeOY2H933wIXgJ
Pgafgs/Bl+Br8C34HvwIfgZ354/1zmk8vHdn3J1xd8bdGXdn3J1xd8bdGXdn
3J1xd8bdGXfnT/XOaTy8d2fcnXF3xt0Zd2fcnXF3xt0Zd2fcnXF3xt0ZV+en
z/XOaTy874MPwUvwMfgUfA6+BF+Db8H34EfwM7g6X3+td07j4X0ffAhego/B
p+Bz8CX4GnwLvgc/gp/Bvedv9c5pPLz3nnHvGfeece8Z955x7xn3nnHvGfee
ce8Z955x7xn3nr/XO6fx8N57xr1n3HvGvWfce8a9Z9x7xr1n3HvGvWfce8a9
Z9x7vql3TuPhvfeMe8+494x7z7j3jHvPuPeMe8+494x7z7j3jHvPuPf8o945
jYf33jPuPePeM+49494z7j3j3jPuPePeM+49494z7j3j6nx7W++cxsP7PvgQ
vAQfg0/B5+BL8DX4FnwPfgQ/g6vz48965zQe3vfBh+Al+Bh8Cj4HX4Kvwbfg
e/Aj+BlcnZ/v6p3TeHjfBx+Cl+Bj8Cn4HHwJvgbfgu/Bj+BncHUuv+qd03h4
3wcfgpfgY/Ap+Bx8Cb4G34LvwY/gZ3D/z/f1zmk8vPf/jPt/xv0/4/6fcf/P
uP9n3P8z7v8Z9/+M+3/G/T/j/p/xv51fAEmUZL8=
   "], {{{}, 
     {GrayLevel[1], EdgeForm[None], 
      StyleBox[GraphicsGroup3DBox[Polygon3DBox[CompressedData["
1:eJxN2HvcDuQZB/DnkSSpMafZuxpKRWs5m1QOK6ntzXm1VikKWzmMIaeYQ8sh
esWmyKysErVOkvQqmmOpbItQsjY0wkRLetPu6/N8n4/nj9/nvu/r+l2/67p+
z/O+n5e6vQZ2HVAuk8l8kM1kTknnmQlFCd/L5N5VE77tXs67VsLpCRXFI18+
oQpOVqyaeI2EmgmnJVRPOFWumntwKrhXd6+urirNKuI16NTUP+51EurqGbN9
x3znu9eiUwcnYpVw4qydcAZeRdrfFYvcrQldEnom1DN3XahGsxLd2mYP3rkJ
lemE3iUJjdQV8bqyXJF704TzEpqYo4Z3DXpxP0ttfEZnJ3xLrKZ8fTOcW+B9
ffudg3+2mrxG+PN9HtXnXS061exTxw51cX8oFtwL7H8BD/JexPvChMY0Gpmr
sR1ry4cHzfHPx6unVx29oncD3KipYo6qNOvRLcJpYJfz+Frf2Qy/iVx4cBEf
fuC8yP1injWk9yNoJdZQfRH9ZuY/p0Cvmd0iHt+j9gmd1TXUK3a7POEKu7VI
aOndhh+XeDei14Jfbe3dRm1LszYRb8u/y2lcqba5msY0m+C2s2MDWu3M2x6n
HR+vkm9hh0sL9m2K30ou9mwtH7wfmyNm6EbrSjP+1J4N1BXRaKX2Yjqt4TKx
ZnSbmys0O4i3L+h5lZmvs2940Mn9Or2LxVvSCD+udnZw72imYnVt9GnKoyvs
UuzdVp9WBXrtxDqb6UKfaUe7BndAQv+E0QnX2vka+8T3qat7+4J3N7teitsa
p6t4zPULs4XmT/hYLH4T3Gy3y2hcS7s7H4vxgnO9Xh151MOOHfDjfYt9Q/dn
8j3sH7me7p28O4t1wb+efi+a3byvlu+uX8w2MJP73R3+3eY+0IyhcwM/ushd
IxY7/tx5g9peenX17sazPDdwo9ivE3qrCW9+lXCn+51274XTXewu8d786O7d
ibc95G7nxwAz38Wnm3Fu58Mdzjy/v5qe+P15kOcG+ojdw6cx9r3Vzn34kfcu
3n1p3WKW29QOwunLm28STiScmf446JfOX/JrEL96qR3kPi5hsFz4MyJhJC9H
iA22X2+5UWa4Uc9+6gfjjDbrKPUj8fvh96UX/CHew+T78Og3cAfOALpjxIfi
3s/HaThjCnwZKNcXf5iZ+ptnqFwf8wzRb5C6sZncz3V87+M7O9yMoTMhYSKN
2O++hMn87ocbuFtsBM5Inv/W/lEzxVxT7ThFfgjODO9x6ifjR348P4bgjDf/
WJ/JFJqjxMaJT0p4MGEWz0brP5TeBPFpvJho77yPE2nca89J9O/xmUygM148
YtNpTqU7TN1wuRnmG+s9jn/D9Yn8A/ac7z6DH39ImAMP2fs+8ckwRzxmKjHj
eDol6qbixHwPJ8yVH6/vTHUlOFPxZvPyMb5O4tFM77xfs+xyr3vUzeNP9Pqd
3GwePGLH38vN1m+qeaernafHBD2ni0X9mwlvJZR6z6cZfjye8ASfHheL/B/t
Hbkn9Zrj/ZB8SYF38V6QsMh8T8LD+HPdI/8nMy4Qj9hTfJopP03ufu9H5WP+
JWacq26e/KzMye/0oz6L2c6FPJzt/oi6xQl/lsvHF+vxtL3my4XO8wW5+fov
pvVqwjNy4dPShJf4ulRsAc5f5Jbx6QnvuL/Mk2WwSHyBurwfcT5rhqhZTnuB
uZ/Fyff6a8Ia/EVqloq/hP8c7afoLbb3c3Zf6HyBbwvdl+C+gvsYnRfx8pwV
/FmCu0KfV9S/QH9VJve9LeXrCmfUlthxplipvVfQ2ZCwzn5r7baGl6X8eEbu
ZfGIreTBa86V7q/baTn+OvxSnOVi693XF/iQ11uj3zL5DThPmyU+rzf4tZoP
q9xf9F5tx6jd6L6RB6vx3/V5/l3P7Zncz/6b9njeXBvFXhV7Xf0atf/I5H4P
xe+cu73fs8Nb9s7vv8mOK+XivYUnUfO2/Ca7R26r+zrv9WIb8N8x03s4a71f
k1+F866699WuMeta+VXqIvYverH7NvtvVBf1f/MZbIbQ/gh3O/5/EnZ4h96/
aYZnH+uzWu1m749x35DbrH4Hvzbqv01sk/gu/Q/acXfCHj236BvcD3iyVXy3
3SP2Iews8Gsn3a303sd5m1bE9hZ4stksO9W/o8cWs2ymt8s8O+h8wq/tdtsr
ts0Z8WMJ+/DCo8MJn/HssNg+ejvkjui7zYx71e/D+ae5d6n/DD/+vRV/195E
L/j76e3G2cmLT+FDnPDkaMLn4gdw4/0/M+zx3muG6H+INwd8jnv0Oir2EZ1T
srlYuWyu7qDacuJHeLZXv0+cX+AF/2vvY/w4LdV+6R0exH8YZrO52i9wDotH
PnLR74iaL3n0X/scypzkHeFLcI479+MftWOec5xnFbMnuV8llPHgc/uXz+bu
Rwvep2Zze0a8vHuZfQ/YI2LBO8SDE3Kf6nNQTd6f4FbI5vY6hP8Vfsz3jZ1P
+J7s9z04bofT1Ye/x/hcMXvSi8iHXiVnvMsyJ2OhWzmb+zfaGdncXGVmq0Cz
klyZOb5WE2fE435WNjdr6PwfnVPMsw==
         "],
         VertexColors->None]],
       Lighting->{{"Ambient", 
          GrayLevel[0.8]}}]}, {}, {}, {}}, 
    {GrayLevel[0], 
     Line3DBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 30, 45, 60,
       75, 90, 105, 120, 135, 150, 165, 180, 195, 210, 225, 240, 255, 270, 
      269, 268, 267, 266, 265, 264, 263, 262, 261, 260, 259, 258, 257, 256, 
      241, 226, 211, 196, 181, 166, 151, 136, 121, 106, 91, 76, 61, 46, 31, 
      16, 1},
      VertexColors->None]}},
   VertexColors->CompressedData["
1:eJztyKEJgEAYhuFPLSYnMHhjmP4BbIJBrgmXD/e5PdzBKobbwSzYFFzjTQ88
boljKCU1hVR91v6655BtS8M65cP69JxttxvP8zzP8zzP8zzP8zzP8zzP8zz/
/wtqgAD9
    "],
   VertexNormals->CompressedData["
1:eJztyDERwCAABLCn7HioknpAAnfMWEdCB2YcJGPesfp8krSS1Nzsz3vvvffe
e++9995777333p//AfL5QV8=
    "]],
  Axes->True,
  AxesLabel->{None, None, None},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImageSize->{346.3677003431182, 248.21994681720588`},
  ImageSizeRaw->Automatic,
  Lighting->"Neutral",
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], "RotationControl" -> "Globe"},
  PlotRange->{{0, 171.}, {0, 30.}, {-10, 10}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{-0.1031306676211053, -2.9697668266121373`, 1.618594779724097},
  ViewVertical->{0., 0., 1.}]], "Output",
 CellChangeTimes->{3.7591983571936693`*^9, 3.759230060636504*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"2b7267b1-fe05-4804-9f53-7427a2381ee1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot3D", "[", 
    RowBox[{"data2", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "10"}], "}"}]}], ",", 
     RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
     RowBox[{"InterpolationOrder", "\[Rule]", "3"}], ",", 
     RowBox[{"ColorFunction", "\[Rule]", "\"\<SouthwestColors\>\""}]}], "]"}],
    ",", 
   RowBox[{"ListPlot3D", "[", 
    RowBox[{"data", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "10"}], "}"}]}], ",", 
     RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
     RowBox[{"InterpolationOrder", "\[Rule]", "3"}], ",", 
     RowBox[{"ColorFunction", "\[Rule]", "\"\<SouthwestColors\>\""}]}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7591983637575884`*^9, 3.759198383695616*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"f14093f4-371a-439d-9152-ceeb7fba5e04"],

Cell[BoxData[
 Graphics3DBox[{GraphicsComplex3DBox[CompressedData["
1:eJx11EFq0EAARuGoe8kyyymEkmUIMYQQbBdu3AiKCFKQWuy6V/AoPUqP0iN4
hG7mIb7xn918zOrxMxd3D1/uX3dd9/ZV173pOH+uun/O+CS//r/3wYfgJfgY
fAo+B1+Cr8G34HvwI/gZ/L38st45jYf37oy7M+7OuDvj7oy7M+7OuDvj7oy7
M+7OuDvj7vyu3jmNh/fujLsz7s64O+PujLsz7s64O+PujLsz7s64O+PufFXv
nMbDe3fG3Rl3Z9ydcXfG3Rl3Z9ydcXfG3Rl3Z9ydcXX+/aHeOY2H933wIXgJ
Pgafgs/Bl+Br8C34HvwIfgZ354/1zmk8vHdn3J1xd8bdGXdn3J1xd8bdGXdn
3J1xd8bdGXfnT/XOaTy8d2fcnXF3xt0Zd2fcnXF3xt0Zd2fcnXF3xt0ZV+en
z/XOaTy874MPwUvwMfgUfA6+BF+Db8H34EfwM7g6X3+td07j4X0ffAhego/B
p+Bz8CX4GnwLvgc/gp/Bvedv9c5pPLz3nnHvGfeece8Z955x7xn3nnHvGfee
ce8Z955x7xn3nr/XO6fx8N57xr1n3HvGvWfce8a9Z9x7xr1n3HvGvWfce8a9
Z9x7vql3TuPhvfeMe8+494x7z7j3jHvPuPeMe8+494x7z7j3jHvPuPf8o945
jYf33jPuPePeM+49494z7j3j3jPuPePeM+49494z7j3j6nx7W++cxsP7PvgQ
vAQfg0/B5+BL8DX4FnwPfgQ/g6vz48965zQe3vfBh+Al+Bh8Cj4HX4Kvwbfg
e/Aj+BlcnZ/v6p3TeHjfBx+Cl+Bj8Cn4HHwJvgbfgu/Bj+BncHUuv+qd03h4
3wcfgpfgY/Ap+Bx8Cb4G34LvwY/gZ3D/z/f1zmk8vPf/jPt/xv0/4/6fcf/P
uP9n3P8z7v8Z9/+M+3/G/T/j/p/xv51fAEmUZL8=
    "], {{{}, 
      {GrayLevel[1], EdgeForm[None], 
       StyleBox[GraphicsGroup3DBox[Polygon3DBox[CompressedData["
1:eJxN2HvcDuQZB/DnkSSpMafZuxpKRWs5m1QOK6ntzXm1VikKWzmMIaeYQ8sh
esWmyKysErVOkvQqmmOpbItQsjY0wkRLetPu6/N8n4/nj9/nvu/r+l2/67p+
z/O+n5e6vQZ2HVAuk8l8kM1kTknnmQlFCd/L5N5VE77tXs67VsLpCRXFI18+
oQpOVqyaeI2EmgmnJVRPOFWumntwKrhXd6+urirNKuI16NTUP+51EurqGbN9
x3znu9eiUwcnYpVw4qydcAZeRdrfFYvcrQldEnom1DN3XahGsxLd2mYP3rkJ
lemE3iUJjdQV8bqyXJF704TzEpqYo4Z3DXpxP0ttfEZnJ3xLrKZ8fTOcW+B9
ffudg3+2mrxG+PN9HtXnXS061exTxw51cX8oFtwL7H8BD/JexPvChMY0Gpmr
sR1ry4cHzfHPx6unVx29oncD3KipYo6qNOvRLcJpYJfz+Frf2Qy/iVx4cBEf
fuC8yP1injWk9yNoJdZQfRH9ZuY/p0Cvmd0iHt+j9gmd1TXUK3a7POEKu7VI
aOndhh+XeDei14Jfbe3dRm1LszYRb8u/y2lcqba5msY0m+C2s2MDWu3M2x6n
HR+vkm9hh0sL9m2K30ou9mwtH7wfmyNm6EbrSjP+1J4N1BXRaKX2Yjqt4TKx
ZnSbmys0O4i3L+h5lZmvs2940Mn9Or2LxVvSCD+udnZw72imYnVt9GnKoyvs
UuzdVp9WBXrtxDqb6UKfaUe7BndAQv+E0QnX2vka+8T3qat7+4J3N7teitsa
p6t4zPULs4XmT/hYLH4T3Gy3y2hcS7s7H4vxgnO9Xh151MOOHfDjfYt9Q/dn
8j3sH7me7p28O4t1wb+efi+a3byvlu+uX8w2MJP73R3+3eY+0IyhcwM/ushd
IxY7/tx5g9peenX17sazPDdwo9ivE3qrCW9+lXCn+51274XTXewu8d786O7d
ibc95G7nxwAz38Wnm3Fu58Mdzjy/v5qe+P15kOcG+ojdw6cx9r3Vzn34kfcu
3n1p3WKW29QOwunLm28STiScmf446JfOX/JrEL96qR3kPi5hsFz4MyJhJC9H
iA22X2+5UWa4Uc9+6gfjjDbrKPUj8fvh96UX/CHew+T78Og3cAfOALpjxIfi
3s/HaThjCnwZKNcXf5iZ+ptnqFwf8wzRb5C6sZncz3V87+M7O9yMoTMhYSKN
2O++hMn87ocbuFtsBM5Inv/W/lEzxVxT7ThFfgjODO9x6ifjR348P4bgjDf/
WJ/JFJqjxMaJT0p4MGEWz0brP5TeBPFpvJho77yPE2nca89J9O/xmUygM148
YtNpTqU7TN1wuRnmG+s9jn/D9Yn8A/ac7z6DH39ImAMP2fs+8ckwRzxmKjHj
eDol6qbixHwPJ8yVH6/vTHUlOFPxZvPyMb5O4tFM77xfs+xyr3vUzeNP9Pqd
3GwePGLH38vN1m+qeaernafHBD2ni0X9mwlvJZR6z6cZfjye8ASfHheL/B/t
Hbkn9Zrj/ZB8SYF38V6QsMh8T8LD+HPdI/8nMy4Qj9hTfJopP03ufu9H5WP+
JWacq26e/KzMye/0oz6L2c6FPJzt/oi6xQl/lsvHF+vxtL3my4XO8wW5+fov
pvVqwjNy4dPShJf4ulRsAc5f5Jbx6QnvuL/Mk2WwSHyBurwfcT5rhqhZTnuB
uZ/Fyff6a8Ia/EVqloq/hP8c7afoLbb3c3Zf6HyBbwvdl+C+gvsYnRfx8pwV
/FmCu0KfV9S/QH9VJve9LeXrCmfUlthxplipvVfQ2ZCwzn5r7baGl6X8eEbu
ZfGIreTBa86V7q/baTn+OvxSnOVi693XF/iQ11uj3zL5DThPmyU+rzf4tZoP
q9xf9F5tx6jd6L6RB6vx3/V5/l3P7Zncz/6b9njeXBvFXhV7Xf0atf/I5H4P
xe+cu73fs8Nb9s7vv8mOK+XivYUnUfO2/Ca7R26r+zrv9WIb8N8x03s4a71f
k1+F866699WuMeta+VXqIvYverH7NvtvVBf1f/MZbIbQ/gh3O/5/EnZ4h96/
aYZnH+uzWu1m749x35DbrH4Hvzbqv01sk/gu/Q/acXfCHj236BvcD3iyVXy3
3SP2Iews8Gsn3a303sd5m1bE9hZ4stksO9W/o8cWs2ymt8s8O+h8wq/tdtsr
ts0Z8WMJ+/DCo8MJn/HssNg+ejvkjui7zYx71e/D+ae5d6n/DD/+vRV/195E
L/j76e3G2cmLT+FDnPDkaMLn4gdw4/0/M+zx3muG6H+INwd8jnv0Oir2EZ1T
srlYuWyu7qDacuJHeLZXv0+cX+AF/2vvY/w4LdV+6R0exH8YZrO52i9wDotH
PnLR74iaL3n0X/scypzkHeFLcI479+MftWOec5xnFbMnuV8llPHgc/uXz+bu
Rwvep2Zze0a8vHuZfQ/YI2LBO8SDE3Kf6nNQTd6f4FbI5vY6hP8Vfsz3jZ1P
+J7s9z04bofT1Ye/x/hcMXvSi8iHXiVnvMsyJ2OhWzmb+zfaGdncXGVmq0Cz
klyZOb5WE2fE435WNjdr6PwfnVPMsw==
          "],
          VertexColors->None]],
        Lighting->{{"Ambient", 
           GrayLevel[0.8]}}]}, {}, {}, {}}, 
     {GrayLevel[0], 
      Line3DBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 30, 45, 
       60, 75, 90, 105, 120, 135, 150, 165, 180, 195, 210, 225, 240, 255, 270,
        269, 268, 267, 266, 265, 264, 263, 262, 261, 260, 259, 258, 257, 256, 
       241, 226, 211, 196, 181, 166, 151, 136, 121, 106, 91, 76, 61, 46, 31, 
       16, 1},
       VertexColors->None]}},
    VertexColors->CompressedData["
1:eJztyKEJgEAYhuFPLSYnMHhjmP4BbIJBrgmXD/e5PdzBKobbwSzYFFzjTQ88
boljKCU1hVR91v6655BtS8M65cP69JxttxvP8zzP8zzP8zzP8zzP8zzP8zz/
/wtqgAD9
     "],
    VertexNormals->CompressedData["
1:eJztyDERwCAABLCn7HioknpAAnfMWEdCB2YcJGPesfp8krSS1Nzsz3vvvffe
e++9995777333p//AfL5QV8=
     "]], GraphicsComplex3DBox[CompressedData["
1:eJyV2X9s1OUdB/ADwwzI4rkRdkEMBznbk7XlOK6X23lyz5aCVrRCgaNdoXaV
1plAS1G6tVp3iC2/yo8USnEtoLSVdY1iABkOTTp+iD+2OBQFBnYUg7NIoXPL
GGTqvsp97sm9n3tf4vPP5Xnl4xd9+8nzfB4dX1qZXzbUZrP1DLHZbrLJGgzb
kq64qxs/LpXoduIO4k7iLuJu4h7iXuI+4n7iAeJB4iHiU8HTYr+44k7qMWdx
zFkcc06DPTrmLI45i2PO4pizOOYsjjmLY87imLM45pwd+8UVd1KPOYtjzuKY
czbs0TFnccxZHHMWx5zFMWdxzFkccxbHnMUx53DsF1fcST3mLI45i2POYdij
Y87imLM45iyOOYtjzuKYszjmLI45i0PO0ZzYHpZ2Um8n7iDuJO4i7ibuIe4l
7iPuJx4gHiQeIo4558b2sLSTesxZHHMWx5xzE/eGY87imLM45iyOOYtjzuKY
szjmLI45i2POebE9LO2kHnMWx5zFMee8xL3hmLM45iyOOYtjzuKYszjmLI45
i2PO4pBzz6zYHpZ2Um8n7iDuJO4i7ibuIe4l7iPuJx4gHiQeIg45qzmxPSzt
pN5O3EHcSdxF3E3cQ9xL3EfcTzxAPEg8RBz7ORLbw9Iu9T2JbifuIO4k7iLu
Ju4h7iXuI+4nHiAeJB4iPjXRVWFsD0s7qbcTdxB3EncRdxP3EPcS9xH3Ew8Q
DxIPEYece4pie1jaST32szj2szj2szj2szj2szj2szj2szj2szj2szj2szj2
szj2szj2c3FsD0s7qcd+Fsd+Fsd+Fsd+Fsd+Fsd+Fsd+Fsd+Fsd+Fsd+Fsd+
Fsd+FoecS0pie1jaSb2duIO4k7iLuJu4h7iXuI+4n3iAeJB4iDjk/PwvYntY
2km9nbiDuJO4i7ibuIe4l7iPuJ94gHiQeIg45HyuNLaHpZ3U24k7iDuJu4i7
iXuIe4n7iPuJB4gHiYeIQ87OhbE9LO2k3k7cQdxJ3EXcTdxD3EvcR9xPPEA8
SDxEHM/nstgelnZSj+ezOJ7P4ng+i+P5LI7nsziez+J4Povj+SyO57M4ns/i
eD6L4/ksrnNO/0vb9cKzd6qDL7nHHn+2Ef7/xmAY/f6td5WdGvCpxwc7ByeO
XAf1aYa/3nyytv/SVPXgYvuuijXroT7bcJdjc3rrshz1xtHw9J+/sBHqw4Z/
trks6H0iV31/Xe/hD883JdZHcwxvnVm/+lRVnppQcWHBms4tUJ9r+KgzLdV/
3T9L3b7u7KcXF26D+jzD689/sj7fO0dFi0s35Z3vTKy33uPo9+5Oe3nE+oia
v6+o//JDut/OvtLjqq2PqIoZZf/duUC/l1si1+5e3R5RMwcGtj92dH/8O947
89Mffs58V+adPDzXXW74jV/r3YrfaXnhI+cr3RG1ZMOHmV8v19+p+UHJiEMb
I+rr173zCrOGxL/THO0YaGw0361HP1sVvrbUcOV+79ZLm9oiat/QR08XVun6
1t9M/eLqmoiaNiTw8N4uXf9BQYHKWWW+f6unFL8W/pXhqt7fsfPu5oia8HnB
kb+t0vWlfz/9Yob1natDamd27NH1L2fO33ZHg/mOzi84EX6kxnAV+vTNcxes
HD449Kev5s/Q9dO2Tl62xvrOkaV1OVeKdH1WU86Y48+a7/GhLTWvdtcarjyT
ziz85wrznX7hAWdpw5OGq/c6V8yb3hRRw1am357fpOsbv9yx9eO1EXX2ZtvT
J17U9auvDZ994hnzvf/VmL7AlqcMV8V72n+0ZLn5Tn+0+fSVQ3WGqyP+y2N7
VYE6kn9s+SMr+qWven4ZLf910eqIOufte3//j/WfO+zfNf3HrH/eSe3HezM8
+N/TIsZ3Ql/mLFv6jPnfJVz+zT1XnjJcPVedsbbS+vd+INi18fEMXd+2t3N0
tfXnjr3nvjkVHl1f9dvmiRPi39fn89u3NFT56wxXB0uyTu1eGVHb9+y6NDJT
1xd3hKdkW99/dXf5PTs9ur5q9D8W9cbz1Of85cX92ZV1hiu3/+Bdt1nfn16x
rXdtpq7PrrUN2KzvVx733vpnj66vnN1wpj3+fX1fdL276MFtdYar7f+6dGit
1bd5S37W8p9MXT982jv3fmTl8OZbVzMue3T98/77xo2x6qM3b4rOytL9cO33
F8fvteq/l5MzY8Rk3Q9pk9rKfxr/+9H3Ubr/D119dYarw+N+MuWAde5Njg47
uSNL168adcvFZuv71+dO7B4/Wdc/mVteMzr+fX2vzXxo5abrdYarA3N39Xf9
rkiVLDr4w2nde+J99e2PKjTc1VD0v6Ypxcp5bMPiHX3tifXW+x39i8FRgZeK
SlS0oORcWXcrfL/Y8H3B7OGtbdY8P2Zud/FrzYn137ynwKtnXy+c8HGpUqf6
3yic15RYb70L0Dfc9PnIJ+5YqKLB/nG1D2xMrLfmW/TSP274pGOBNSfU9z32
fvr6xPpv5rRkbs0V0QNP123pbUz0JPND6nnDnB9Szxvm/JB63jDnh5TzRpL5
IfW8Yc4PqecNc35IOW8kmR9SzhvJ7ncyP7A5gd377H5n9zi7r9m9zO5fds+y
+5TNUew+Zfcmux/Z/cXuI3bvsPuF3SPsvmD3Ajv/2TnP7nd2zrPznJ3b7Hxm
5zm7F9j9wu4pNs+we5Ddp+xeZvc7mxPYvMHmFjb/sPmKzXtsbmTzJ3unsPmW
zcls3mZzO5v/2TuCvUfYu4a9m779STJ/svn2xl9tzg8p540k80PKeSPJ/JBy
3kgyP6ScN5LMDynnjSTzQ8p54zvMD2wO+T84uX2d
    "], {{
      {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
        GrayLevel[1], 3], 
       StyleBox[
        GraphicsGroup3DBox[{
          Polygon3DBox[{{361, 16, 362}, {371, 91, 372}, {375, 121, 376}, {367,
            61, 368}, {443, 226, 444}, {433, 151, 434}, {437, 181, 438}, {439,
            196, 440}, {373, 106, 374}, {435, 166, 436}, {448, 256, 359}, {
           363, 31, 364}, {369, 76, 370}, {445, 241, 446}, {365, 46, 366}, {
           441, 211, 442}}], Polygon3DBox[CompressedData["
1:eJwt0UkyQ1EUxvF7lQXYgTJWZQd2YGSkysxIm+gJ0QURRF+aEKILQfR9WwZ2
YAd2YAf+x/0Gv3pf7j1597xzKxqitZES51wlSvHgnbvn+YVH8g3WyUe4Jd/5
kK3mnrxs+1jDilheRR3e8EPtL97JaWwjizmksIddTGMK+1qzvScfevnGM/nF
h2zvfCUvYUM9WC/z2MImFjCLHZ2Z1hl2Vg4zklON1X740Kvj+YlWlPOzCm3k
YZzhFCNi+QSjGLf5II8J9WC9ZLCIBI5VY7VxnKOIIQziQmtxrRV1pp09gEvV
WG0/YvSWQkw9WC8FjOHKhz27w2tyEgeasc26F80uvKNPPWY0U5vtJA71n6S+
Ka8124v4MJtqRHVmQd+Y0B1ndSd2N52oobYeXeRG/z9qV4Ym68WHbDNvIXf7
UGs99pDbfTjL3tFB/gOdWWH6
           "]], Polygon3DBox[{{377, 136, 432, 431, 378}}]}],
        Lighting->"Neutral"]}, 
      {GrayLevel[1], EdgeForm[None], 
       StyleBox[GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJxNlWtPF2QYxp8HTC3Nr9Bsc6211lprrjmbrbXWmmvaetG5zHqZn8NTkmbL
ADXAIQcRpCkEGNA0SEFhAsrZJQgk4UQhBA/Xtef3X/8X1+7z/dz3/ZzWbtux
9ducEMK4kCucF+qEM+huCleFIWFYuAQ60V0XuoVRoU/oFcaEa8ROwF9F7iOv
5S5hhNhuZPNHhO+FPOGK8LfQA70B3y8MCBdZYxLdf8IU8lcxxWyPqaZe4juE
waweOpH7qH2c3B3kd9+X6XuUmv8lVy/1dBAziH0an8vEW/e16rgj+o3oHtHd
ws/ConBLuC/kyHZXdFa4FxKfK90KYaWwIPkffB2zHJv7du4YU6xpDrz9F4jJ
JX8O+e5n2Sw/Sa4F5vhIeCg8Lf0D0VWiq2Oa7wAzXxOTn33sa7v5VcQsCU8h
m39OdJfo86Lz7Nkkfov4uh7XkpEXkTP9TzHjEeY7yrxnhE3y2yn6rOhbMZ2l
t0XfiOlMvSn6EnvwMtT7kC+8ENO+vBhTvPOsg/4UUt2H2Dvzr8m2T/R10VeE
veKfEf1OtEAoDInfi/y+bAdFP2DdfGybJR8QfU/0HWG/+HdFNwg/iN8iWip6
nPULiHP8iZDuzGHW8pr76Gk3/oXYrf8wpl4+ohbnLw7p3PvM3aTXQ/S4kf43
cdYW2LNb7MEwsWOc1wlyzIV0/3wub6C3bp598n49YM05Yq6zl7bfRp4hdp5z
4nyz5JzkLAxAB+Hz6b+Mvj2fPPg85uAeS+nzLvXPksNnbIgeh5CHs3Svssfr
Y/KfwmecXPfINUad08QtYvM9XAaeiKn/NuHPkN6UsyG9Kb+jt87vUw8+fqc7
sdvvpNBEXC8+PcgX8bGujtjPteY50S9isp8l/gpx9jmHnFnL719zSH+D5+qz
eEz4USgJ6SwVw1eGdC49b5+vImzuf4l5FGHzuT/Nes7dKFQRX0LcqZDOsM99
hfAx9+GTmNY/iG8hax+Gr0D27PzntDPPPvi/0PuPasjSNUAbma3nU828q5Hb
8P8NvWdTI7QKLSG9/TVZcc53gZz17EcbfB1yM706rp+9u4Cumbz1xHndWnSt
5G+nnz/Q+U/tRu7C5xo5u6hxhL1tyVrjErZWaBc5fkXXwPrt6GrRN9NrJ2u4
fp8rnxXfR9+1MnjrfE/L2Ve/00dDevvqyV/B/DyPInzLmJf9jxBj2y/4lmOv
x1bFHlbjY76YnKeYRz/11pH/DPoJbH6D/Fb5f/M7tJx/0rzvr2Xf62Xc5Yf4
r+ZvvJ0VO0eM37+l8P8faXka3xn8v4zpDm6LqZeT9FBOf55PCX14D05Te2a2
ZfgeYK6OLcXvOLM5yhwrmXkDfAWy9/cY+WuYXWbeReSuJO4EviX411JbC/ZG
fJroJXPPq6ihnHULyL+f+hqJsd+nMdX/WUx71oTd78d5+n8MwhXl0A==
           "],
           VertexColors->None], Polygon3DBox[CompressedData["
1:eJwt0FsKQVEUgOG9ZAqe5UGSJEmSKEmSJCS53z0yDve7zMAMvHoyAzMwAyPw
75aHv/2dS3uvczzDeWXmMMa4yEk5MebAeqQ8fpLQl+sJa0H02YmKOEZbvKM4
btINLyiJu/TAd2rhDO2NnpHFXtF3l+TDflGvKIDDtMYbiuAhvfGLejglerbd
M43H9DH6zgBP/7PbeyNcEp39TAlcowu+Uh23RWe139DAfdGz7Dd0cFB0NjtT
CLtFZ7P/IIrLonvbPav4B8VXKD4=
           "],
           VertexColors->None]}],
        Lighting->{{"Ambient", 
           GrayLevel[0.8]}}]}, 
      {GrayLevel[1], EdgeForm[None], 
       StyleBox[GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJxNlulSU0EQhe/IooKoEKPsxZYYMArBoGwlsoqgIQGMYLEFELCAhB1L3FDE
F/AdfQ277S9V98epmek+vZye3NzbuJqbzl7xPO+voEAwJHgsGBT0Os/7Lmu3
rAnBhexfyXop62/BR8EfZ/u0s/OpZ/5L9r8EPwVHgh+CE2zqG5KYc1kHyK2+
Y/gX7I+JVdtXQU7wRXBIPvVFJf6zrG3O8mofH+CcwzvnfCCICO9M1jD6zrGf
UFf7axTfJ1lbZN3EtyX45lnMPjW20LKHb599jn5P4Zxg/wpvE215zXreEGx7
VndHEHfG73Sm8xiO4j3as4Jdz/Rr3BmxWWw6q3W0v8e2C+8I2yGcA/ZncHaw
qW8NrtZ+i84D7Bn07qF1Hj3f4exj13m9A/PYMsStCuqc6a93ZtvHnkVHDv4K
+znqzLPf8M1xjj6XideYZ4LXggF8aTT1C/oEE4I3aFrHl2avs1gSLJJz1zf7
JfxrxM/Sk+qcFCxwr4v418m7Sozya5zxap3pXsM/RswLck2QO4N/hvMEml+i
La9fz+OCaWaQwTZHzDa9a29JtKXYT6EtTa58ngx1c+TMwl8ifpx+0+AFGhbJ
meAeEtxFlbNztTO9s7456nkU/gIxC+RKUHOK8wwxyh/27L8shc5J7nkVzgwc
1TPCOsNe+X3MaZkau/BTcLX2c/ofpIck+yS1V+AvMwOdSw/o9tl6sQ2Scwrb
OD08ZQ75mG7OU/ATcEZ989LzE3pN0Usv+VRbjaBMcENwX+9AUOnZM6KaOgTt
nDuoqT22CbrIrXH1gjpBVBBnRl3McpR59uHvZa/38BBEsY2QU2ODzmrfdVav
lfpBQbOgBf4oMQ2CRkEF+3bOEebQiqaYT0urb0YRtAyTt4u5xoiLwFN+Jz69
q3vM7LrgAfqizOkBs6oivpraTfQWY9+Bpk50VdFLhFx1vly13FstNvWFPHtf
x7G34QuRT33NvMv0nRZHX5gZtJEzDneI+B70dKI1X2OIOUW5v3o4MeYSghcm
bzV1UsQm0dtETCucCPYY+cql13K9U2e57jPrfmfv56Qz/bcENwUBZ3d/x1lP
t3zzCXNXHc7eI49kneU7ZtpZfC38u8wtxD5EbBc9aK4xZ98UI7KWcGelynP2
vFQ6m1cLWjRPkPMddAbRrTPSZ/CJs++CBmf2UvIqP8C8bmCvxt5ELu2/DA36
29ffVCO2/O+lWFBEnPZzTXDVs2++/3NmbWCv9ivYiokLkjcAJ8yd3KOXAP4S
7FX4rlOvgLhCvR9n+W87yx+knwB9FlKzCFuQvpUz4ex7cNxZ/mv4KuAWUr+E
2v8ABIG7bg==
           "],
           VertexColors->None], Polygon3DBox[CompressedData["
1:eJwl0NuLQVEUgPG15F3ud5lIk2QkSRIlSRqS5GmevCre3cZlmH/bt1oPX+fX
Ofusvc/52OyXu4CIxClISxV5cX1SD1fphI/0iWNUxGELL9TX/tEcR9Sf2cyQ
raVffKEW7tBV/F4bJ+hLfGYUl+mAt5THKeqLr4njpvqsMzVwXd12xhqe0APf
aYwr6me3mSWcox88ozTOqNv2SOIB3cTP2MXf6t9mM6e4oH42m5HFI/W97J0h
XtO/+D9c4TfrRhpz
           "],
           VertexColors->None]}],
        Lighting->{{"Ambient", 
           GrayLevel[0.8]}}]}, {}, {}}, 
     {GrayLevel[0], 
      Line3DBox[{272, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 30, 45, 
       60, 75, 90, 105, 120, 135, 404, 342, 340, 338, 316, 336, 334, 332, 330,
        328, 326, 324, 322, 319, 314, 312, 310, 288, 308, 306, 304, 302, 300, 
       298, 296, 294, 291, 289, 292, 285, 286, 283, 284, 281, 282, 279, 280, 
       277, 278, 275, 276, 273, 274, 271, 272},
       VertexColors->None], Line3DBox[CompressedData["
1:eJwt0UkygwEQBtA/N3CDlAu4gRtYWamys0ESYiYxxRzzVARBEGKexUxZuIEb
uIEbeCkW7+te9Orr8rp4dXMoCIIYZZT2BtFIhCgxmigdxmmhlTba6aCTLrrp
IUGSXvroZ4BBUgwxzAijjDHOBGkmmWKaGWaZY54FFllimRpWWCXDGutskGWT
LbbJscMue+TZ54AChxxxzAmnnHHOBZdccc0Nt9xR5J4HHnnimRdeeeOdD+pD
f0X/GN988UmRAhnSJIhQSxWVVBD+/9UvcCA9cw==
       "],
       VertexColors->None], 
      Line3DBox[{343, 150, 165, 180, 195, 210, 225, 240, 255, 270, 269, 268, 
       267, 266, 265, 264, 263, 262, 261, 260, 259, 258, 257, 447, 357, 358, 
       355, 356, 353, 354, 351, 352, 349, 350, 347, 348, 345, 346, 317, 320, 
       290, 293, 295, 297, 299, 301, 303, 305, 307, 287, 309, 311, 313, 318, 
       321, 323, 325, 327, 329, 331, 333, 335, 315, 337, 339, 341, 343},
       VertexColors->None]}},
    VertexColors->CompressedData["
1:eJxTTMoPSmViYGA4wMjAwAykJabZ3xfTeWUv9O2tipLNc/t3b7T5LwXftheT
2LTravE1+1t9K3dv4n5sP0dcfd+twNej4mSKj4bzaDgPJ/HRcB4N5+EkPhrO
o+E8nMRHw3k0nIeTOK5w5oh+8y0y9ab99jnehaE3L9tbzvl5VUbh1Kg4meKj
4TwazsNJfDScR8N5OImPhvNoOA8n8dFwHg3n4SQ+2PpNI02cWvEyUOaMqh9V
T4z6wWbOqPpR9YOh/h2u4oOtnh0VHxUfFR/84oOtHBsVHxUfFR884gBAILGd

     "],
    VertexNormals->CompressedData["
1:eJzt2mlUU2caB/CwKnaEIwYUrCzuBUFFWkQtD4JWtE6hAkJAFtkNsimLrEag
EMBtIstoAEE2oWABCYqob4WAhEUWQXFBAxEUQrjAsJQxQm/my8yZM/fD9PRD
cg734+/kJP/87/s+yXkTbbeAo57SJBLpVykSSYb076vUNXz28wKGniUznxd0
HAPS/7zGF/0PupNG+G4e2EDBo0grId5z16sl8d2r7cQup6Q7Jcn6fbPyKVAs
5vpN4D1HTQ1n1C+1F7ucku4d7NCwfKuzQPeN8O/Fey6tMeVO9VPELqekOxZt
m3EvLhYMkqxkivCee+OXhnjIOIldTkn3giUNLzx0U6Agr+mtGd7zYZVapZdf
nhC7nJLuWQyt2teWqZDGSpc9Po+hBi+a8gjLU+xySrofjrao0srNAa3N9Sey
P2GIxTRNydwSIHY5Jd1LKatsWjQrAa2T3WXMx9BZC463HilG7HJKup+g0sum
fEehcGtCY5f1G7AlRz4bykBil1PSffznutmAvNtQ8d6ozUyAgTfzqmaeWo7Y
5ZR01zBbqbGk/QZMmHKSJj5hUILNtcZdCha7nJLuVf6tjLDaVNC1O0y2mMfA
KTCA7+t4UuxySrqrhKgpj1tdBJ3wG7HrFzDYfSf2XNqMm9jllHQfP32NX2/6
E3QGtVikiHouDo1fsclF7HJKuhvEsr5e4x0Dss3n7evxnodP9xcW6jiKXU5J
d/b6/d8YBweDi/rBYB7e8zn7HlZE4+J53Z/tYXKNK7rDguBRr8+vI3jPA3E2
g+qZi+fPi77oi77oi77oi07sRw4cGYmew8Dfr+btmFM+bBLMfn2n313sckq6
Owiu3OKEnYfZob/crMC/p32yneiG//ifwH//T6OwSNa4x8UZ3lToWf8T9+GK
fNUn8nbgyZnbJfLPIx6HRO57vZnE32sHSzgvdqgrhkDsYIPyAO6TJT+zUI8d
SFUy/+Xb3Sam+3Ff4XZBWORvDz9si8mi7Y0FBTCyKsE9oj/WYjaeAjEJnZki
5zvTVomcuznBMIrpAPEL+lFFDSlAZivI7sW9gapuIvQ5DiyGY7jIB9SMr+/B
nR+oNitt5AyrO1nyxa6pMJnJ8xL9HqSyqsNmkukKf52cJIkcTQ+kOeJ+RLdv
v/paN3iwjvZR92w28JSv5NsLMRRPWXlqvs0DDj980iry9g2tDcdwr+rR9DQ5
7w1ZW6uMkiZvASO7o9RoBkOxKUe3OBn5wfitvg467tarqYM7cD+4+bp+ZFQQ
aHiMpq4xrIWG0SmZoE4MYcZkhRJWBFxc+5KrivspZwf/73EnO0mTJ76MBd80
drbVTj5YtKu36rRxEXVrt5oxKgCynJbeBe4oXJqcohZHvEZyjCaXpKib4LJx
INJnFx/G99HDn7dzkan7TuZCeioYs0wsh9EoyJmXDaaR3yAT5/RcVTcGOL7e
eDJRdxS4mdVUW8pbtG/9mbqL4SmQaP4Nh3pMABUbP/AGUl6iZtO7vTEzdKhf
olDepSwAZcuuxJH7r9Dy3HMJPvfjYSVFTi7vowBsOn/se4CeI/4PHNLtpXHw
bkWeRiVbAGtmXUrawl+gT6FqgrxcGgxmhZ557DAGbUP6LY9Nu9HSXIGBeWsM
fNv+ld+1A2NgUuC6R/9RNzJf11snUxUJPWExP2aVjIFB0Jj3sYNdyLbDpq2o
IxySp4uDDzHG4MhXmq5DH7pQyDL3RHfZUKghnZKzXYPBOu9zVy7JP0Xz+1J7
9XzPwN6+x1pZKhic7RxsH/V4iobke1z99U8DS3BUpcAEf3ztFeuFvBZk6VYe
xTIKgjTqy1zN3RgM+RtU+k23oKqDZO2C3YFgtWw7eRsFg3G6pvJkBQfN3m+9
uvyVPzhsctjSbYvBbxOOB3b9g4O0l5vxbu7xA8M668q7fhjsG4zfzFnZhPbU
HEnJe+cLAz2H0rf6YpBt1vxLvUUTisugj+n/RAVBRLRLSzQGSoz4Jp37jWjp
gWs37zmcBC/q2es9kRh8uFblRB9sRDwko7TM0AcYXZRqWjIGPCVDTOdaA2pm
XjhF2uEN36Vvd5yjYyCYSmb0PGhANelVfy818IIQqUDF7FQMRubX9SUUsZFd
Wf2yUEtPyHqieo56FQONE2cyeWw20j+vfc8gyOP/nttEz0P0ukQ5id4XUQ9E
vRH1THRfiO4j0X0nWidE64poHRKtW6J1TrQviPYR0b4j2qdE+5poDhDNDaI5
QzSXiOYY0dzb5v68dw+HC2Svy+VOW/hwvHDn2oCjFdBE03TJ/VwNXKvpdrUX
GORcSEqkHSqEZOv2Z51z1TDFe76h5i0G9bqNQjaKhgHPOKb0myLovZsj+G0G
A+3vbK3LuKGw03qTHQn34J5UnsIsBm2KGsKoxgD49h1/jKl2AzjvnhroCTGY
qGZkzM1Q4d6KL1JFTqUyh7fjfo/j5qmi5QXSFt8Le4VpsEFax111HgOG0+py
qcfuUM55PCpy2Qg6exXu4U8UXZVcT0D3x2EZs/7LYP4Q8T7j/jCJcny/vCvE
BGYL9+FuooclzeNuWVcbkWfnBBM03zvObQmg9L5FOhL/fO9tytXvYznCF/T4
CpELcyocRH55oycteaUDpPxNRfX47RiQCg+tqsNdu0Oe8UCNAt3euioiv92Z
8l7k+b9EhJZpEp+bEZ3//A77/cj/
     "]]},
  Axes->True,
  AxesLabel->{None, None, None},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImageSize->{418.82552686976027`, 338.68963680974224`},
  ImageSizeRaw->Automatic,
  Lighting->"Neutral",
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], "RotationControl" -> "Globe"},
  PlotRange->{{0, 171.}, {0, 30.}, {-10, 10}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{2.3952875773990563`, -1.5453007074123897`, 1.8233603991610117`},
  ViewVertical->{0., 0., 1.}]], "Output",
 CellChangeTimes->{3.759198384634552*^9, 3.7592300607446437`*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"9372d5e1-df2c-4739-b21c-e2197ede2f13"]
}, Open  ]],

Cell["\<\
Point of intersection of the planes is AVS!!!!!! ~140 for this boat\
\>", "Text",
 CellChangeTimes->{{3.7591986167167983`*^9, 3.7591986293529205`*^9}, {
  3.7591987123929033`*^9, 
  3.75919871856668*^9}},ExpressionUUID->"b614b16c-01da-45b3-9f4e-\
84d121e544fb"]
},
WindowSize->{927, 825},
WindowMargins->{{Automatic, 21}, {Automatic, 0}},
Magnification:>0.9 Inherited,
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 7227, 177, 362, "Input",ExpressionUUID->"2f6ff26d-771a-4b03-a8f4-d7ffe4270b88"],
Cell[7810, 201, 1450, 22, 32, "Output",ExpressionUUID->"8e786322-4ca6-4099-8ccb-7c163651586f"],
Cell[9263, 225, 1769, 30, 32, "Output",ExpressionUUID->"a4319e93-8586-4451-aedb-309ce6d822b9"],
Cell[11035, 257, 1655, 28, 30, "Output",ExpressionUUID->"ef61e226-247e-4218-b5b4-b1080b84806d"],
Cell[12693, 287, 1452, 22, 32, "Output",ExpressionUUID->"c9eb769b-fbbd-4caf-a5e9-5fb8fb851f72"],
Cell[14148, 311, 1914, 34, 35, "Output",ExpressionUUID->"a4c5fa1c-580a-4ec4-b716-7cd8908b3853"],
Cell[16065, 347, 43546, 746, 226, "Output",ExpressionUUID->"2a60e949-78d4-4d6d-a25b-b39e6384ece9"],
Cell[59614, 1095, 1372, 19, 30, "Output",ExpressionUUID->"a166b19a-3740-4016-b194-cb25982c6a1e"],
Cell[60989, 1116, 1389, 19, 30, "Output",ExpressionUUID->"c392e46a-5757-4ce4-8261-2efb7f74a16c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62415, 1140, 616, 11, 63, "Input",ExpressionUUID->"148f209f-1c4c-4a67-bd1b-e73e94ce68a7"],
Cell[63034, 1153, 685, 9, 30, "Output",ExpressionUUID->"399908be-a345-493e-8cd3-d6138c621489"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63756, 1167, 1083, 19, 45, "Input",ExpressionUUID->"bbe2e87c-4594-4617-88eb-689f8882b028"],
Cell[64842, 1188, 1166, 19, 36, "Output",ExpressionUUID->"c418cea2-9b00-44af-a549-966d04d736ac"]
}, Open  ]],
Cell[66023, 1210, 6865, 185, 279, "Input",ExpressionUUID->"0440646f-917b-4090-ad63-896091dbb2a8"],
Cell[CellGroupData[{
Cell[72913, 1399, 263, 4, 26, "Input",ExpressionUUID->"da32146b-9e71-4c78-b35f-e68576bce3fd"],
Cell[73179, 1405, 592, 9, 30, "Output",ExpressionUUID->"7962d674-dd1a-481d-b651-0349f083e4e2"]
}, Open  ]],
Cell[73786, 1417, 275, 4, 26, "Input",ExpressionUUID->"580cb8bb-96a9-47b0-8cd3-674498d32907"],
Cell[CellGroupData[{
Cell[74086, 1425, 322, 6, 26, "Input",ExpressionUUID->"ea65a17a-7f9c-4f1d-9057-0e171d1fee1f"],
Cell[74411, 1433, 340, 8, 30, "Output",ExpressionUUID->"6689821b-d76a-4f9b-8037-08143b0ef557"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74788, 1446, 363, 8, 26, InheritFromParent,ExpressionUUID->"e85e40f9-cba6-41b8-a400-56058b2c9d91"],
Cell[75154, 1456, 413, 9, 36, "Output",ExpressionUUID->"bba9417a-f0aa-4e25-8ca7-cc7bc457ff4b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[75604, 1470, 515, 9, 26, "Input",ExpressionUUID->"78c14fa7-2771-443b-9bc2-26805db7c946"],
Cell[76122, 1481, 1169, 18, 30, "Output",ExpressionUUID->"850a0dbf-cbea-4af2-a0c7-83171cb4d07c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77328, 1504, 7912, 211, 333, "Input",ExpressionUUID->"b677da27-0834-4a54-b1eb-70a1b1a91310"],
Cell[85243, 1717, 2368, 51, 67, "Output",ExpressionUUID->"18e4817e-3f77-485a-af8e-8f4b27ac5db4"],
Cell[87614, 1770, 2832, 60, 85, "Output",ExpressionUUID->"284f900d-b6ff-4f70-a5ec-e9f1338991a0"],
Cell[90449, 1832, 2837, 60, 85, "Output",ExpressionUUID->"26e6822b-8de4-46ea-887b-42dbf92c0157"],
Cell[93289, 1894, 2832, 60, 85, "Output",ExpressionUUID->"cac49505-5eed-43a0-9b7b-baf1e5191b71"],
Cell[96124, 1956, 2829, 60, 85, "Output",ExpressionUUID->"c1b00fe1-c359-4966-8987-7492ebd4c85e"],
Cell[98956, 2018, 2849, 60, 85, "Output",ExpressionUUID->"17721048-0a92-4b37-9a9a-8cfaf6593b6b"],
Cell[101808, 2080, 2845, 60, 85, "Output",ExpressionUUID->"0e788d94-6a04-493d-aaa9-1c9d82145880"],
Cell[104656, 2142, 2844, 60, 85, "Output",ExpressionUUID->"97abdd9a-f4df-4124-9638-0a73744d5242"],
Cell[107503, 2204, 2850, 60, 85, "Output",ExpressionUUID->"ec4704d6-cd61-48d3-a636-2ad30f55be40"],
Cell[110356, 2266, 2847, 60, 85, "Output",ExpressionUUID->"70e7fd34-8936-4d56-adda-365f48d641b1"],
Cell[113206, 2328, 2851, 60, 85, "Output",ExpressionUUID->"4ab9ab24-e7fd-4a6d-b3b3-b8d1c99f8b18"],
Cell[116060, 2390, 2854, 60, 85, "Output",ExpressionUUID->"72fe78d7-a0d1-4d5d-9383-a156387e3d3b"],
Cell[118917, 2452, 2853, 60, 85, "Output",ExpressionUUID->"d5993fcb-2c8a-4990-b085-ea330b5caefd"],
Cell[121773, 2514, 2853, 60, 85, "Output",ExpressionUUID->"40075bb7-cc06-40e9-8e00-f2605d36303f"],
Cell[124629, 2576, 2853, 60, 85, "Output",ExpressionUUID->"a0af03ca-c209-4d2a-984f-21a964776d22"],
Cell[127485, 2638, 2851, 60, 85, "Output",ExpressionUUID->"4d295817-307f-455e-b69d-4ade4fd8abb8"]
}, Open  ]],
Cell[130351, 2701, 865, 15, 45, "Input",ExpressionUUID->"ee9e9f72-07c4-4e3d-9b16-f66f6d8cb214"],
Cell[CellGroupData[{
Cell[131241, 2720, 1238, 24, 45, "Input",ExpressionUUID->"270990cd-b0fa-4642-8be6-25faae0e0bf3"],
Cell[132482, 2746, 24612, 419, 268, "Output",ExpressionUUID->"1a829126-2f47-40ae-ab82-9ca9d188569f"],
Cell[157097, 3167, 13559, 246, 268, "Output",ExpressionUUID->"24a4efa5-81b5-4a88-afc0-d61b335997b4"]
}, Open  ]],
Cell[170671, 3416, 149, 2, 26, "Input",ExpressionUUID->"ac3f5c0e-5ae3-466b-a608-695a01b955a2"],
Cell[170823, 3420, 171, 2, 26, InheritFromParent,ExpressionUUID->"9746a387-c41c-4313-a403-49059d9aa502"],
Cell[CellGroupData[{
Cell[171019, 3426, 7362, 204, 315, "Input",ExpressionUUID->"382d7fa0-8bd0-4e05-9f75-36bb44ac7ece"],
Cell[178384, 3632, 2227, 58, 85, "Output",ExpressionUUID->"3c78b5f5-79b2-47ea-9da6-7a028e134d72"],
Cell[180614, 3692, 2228, 58, 85, "Output",ExpressionUUID->"036e0328-7831-4e0f-8457-5dbd91084c64"],
Cell[182845, 3752, 2230, 58, 85, "Output",ExpressionUUID->"828c17df-9708-4815-aeb2-7e54be4350ce"],
Cell[185078, 3812, 2230, 58, 85, "Output",ExpressionUUID->"b4be128a-8d45-49e1-90cb-9ab26e98369f"],
Cell[187311, 3872, 2221, 58, 85, "Output",ExpressionUUID->"a938fc26-3b9f-4fd8-a289-6e3f1efdb9ad"],
Cell[189535, 3932, 2243, 58, 85, "Output",ExpressionUUID->"ab082e2d-fefb-417f-ba91-5c0b88bd15b6"],
Cell[191781, 3992, 2245, 58, 85, "Output",ExpressionUUID->"5007b8d5-f512-482e-9f7c-9741df860aea"],
Cell[194029, 4052, 2245, 58, 85, "Output",ExpressionUUID->"80ceaa56-24f5-4a22-9369-e6f9a64037f5"],
Cell[196277, 4112, 2248, 58, 85, "Output",ExpressionUUID->"5d07f11c-924c-49b2-99e7-3f5f606f758f"],
Cell[198528, 4172, 2242, 58, 85, "Output",ExpressionUUID->"ce51c261-1084-475c-b601-32401a3ac210"],
Cell[200773, 4232, 2246, 58, 85, "Output",ExpressionUUID->"c1a6db8c-04fd-4b2e-b1dc-d025d3e152b8"],
Cell[203022, 4292, 2244, 58, 85, "Output",ExpressionUUID->"d2d1ecc9-fb5a-4cc2-b653-48ad048075b8"],
Cell[205269, 4352, 2248, 58, 85, "Output",ExpressionUUID->"b1dfd497-eab6-4a29-90ab-3347486203ea"],
Cell[207520, 4412, 2243, 58, 85, "Output",ExpressionUUID->"06d1fbdb-c718-42ac-b13d-1ef904346ac8"],
Cell[209766, 4472, 2242, 58, 85, "Output",ExpressionUUID->"cf31d0d6-c29e-40cb-b265-ec4718ade11b"],
Cell[212011, 4532, 2249, 58, 85, "Output",ExpressionUUID->"83fc20b3-2208-4564-ad05-2e4647210f1f"]
}, Open  ]],
Cell[214275, 4593, 670, 12, 45, "Input",ExpressionUUID->"28ac1d7e-b785-4f17-8f2a-6ba070ad1a4f"],
Cell[CellGroupData[{
Cell[214970, 4609, 793, 18, 45, "Input",ExpressionUUID->"2c22b76c-93c3-4c0f-8f7c-3ff57cac1d81"],
Cell[215766, 4629, 24261, 415, 239, "Output",ExpressionUUID->"e175d210-b427-416b-831f-bdcf3a281d3a"],
Cell[240030, 5046, 5375, 106, 239, "Output",ExpressionUUID->"2b7267b1-fe05-4804-9f53-7427a2381ee1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[245442, 5157, 977, 24, 45, "Input",ExpressionUUID->"f14093f4-371a-439d-9152-ceeb7fba5e04"],
Cell[246422, 5183, 17611, 321, 354, "Output",ExpressionUUID->"9372d5e1-df2c-4739-b21c-e2197ede2f13"]
}, Open  ]],
Cell[264048, 5507, 271, 6, 31, "Text",ExpressionUUID->"b614b16c-01da-45b3-9f4e-84d121e544fb"]
}
]
*)