dev.nb

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

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

(* CreatedBy='Mathematica 13.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    787450,      16958]
NotebookOptionsPosition[    773324,      16710]
NotebookOutlinePosition[    773753,      16727]
CellTagsIndexPosition[    773710,      16724]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:5b9e\:7528\:51fd\:6570", "Section",
 CellChangeTimes->{{3.944895553556322*^9, 3.944895600363716*^9}, {
  3.944896748403494*^9, 
  3.944896754378689*^9}},ExpressionUUID->"d6008720-894f-d64f-9678-\
80743e9b000b"],

Cell[CellGroupData[{

Cell["TimingTest    \:6027\:80fd\:6d4b\:8bd5", "Subsection",
 CellChangeTimes->{{3.89757954595344*^9, 3.897579549115928*^9}, {
   3.8984495412998533`*^9, 3.898449541536955*^9}, 3.898449654484482*^9, {
   3.898449714178988*^9, 3.898449715221871*^9}, {3.898588344295373*^9, 
   3.898588360243471*^9}, 3.8985894674462223`*^9, {3.914536593510252*^9, 
   3.9145365941565075`*^9}, {3.932199074783329*^9, 
   3.932199078021641*^9}},ExpressionUUID->"f90ff4e4-6a7f-4659-9fce-\
70d84e065d4d"],

Cell["\<\
TimingTest[code] \:8fd4\:56de\:6267\:884c code \:6240\:82b1\:8d39\:7684\:65f6\
\:95f4\:548c\:7ed3\:679c.
TimingTest[code,n] \:8fd4\:56de\:6267\:884c code n \:6b21\:6240\:82b1\:8d39\
\:7684\:65f6\:95f4\:548c\:7ed3\:679c.\
\>", "Text",
 CellChangeTimes->{{3.8984412729881945`*^9, 3.898441281246538*^9}, {
  3.898449268909623*^9, 3.898449299097341*^9}, {3.898449540716755*^9, 
  3.898449547897998*^9}, {3.898449721494199*^9, 3.89844972433473*^9}, {
  3.898610153759347*^9, 3.898610155946762*^9}, {3.898610468629278*^9, 
  3.898610504117638*^9}, {3.9321993820993214`*^9, 3.9321993883546124`*^9}, {
  3.942364404035696*^9, 
  3.9423644179248257`*^9}},ExpressionUUID->"f6914097-813b-4fd1-90d6-\
5b7090d2b75c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "TimingTest", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Attributes", "[", "TimingTest", "]"}], "=", 
    RowBox[{"{", "HoldAll", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"TimingTest", "[", 
     RowBox[{"code_", ",", 
      RowBox[{"n_Integer", ":", "1"}]}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ClearSystemCache", "[", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"AbsoluteTiming", "[", 
        RowBox[{
         RowBox[{"Do", "[", 
          RowBox[{"code", ",", 
           RowBox[{"n", "-", "1"}]}], "]"}], ";", "code"}], "]"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Limit", "[", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["x", "2"], "+", "1"}], 
     RowBox[{
      RowBox[{"2", 
       SuperscriptBox["x", "2"]}], "-", "1"}]], ",", 
    RowBox[{"x", "->", "\[Infinity]"}]}], "]"}], "//", 
  "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.897579228216336*^9, 3.897579542390922*^9}, {
   3.8980636618428364`*^9, 3.898063662930768*^9}, 3.898156382097151*^9, 
   3.898446040932248*^9, {3.89844678018392*^9, 3.898446830168037*^9}, {
   3.898588348833262*^9, 3.898588367248149*^9}, {3.898588422302991*^9, 
   3.898588470479357*^9}, {3.898589397459434*^9, 3.898589466370685*^9}, {
   3.898602924766616*^9, 3.898602931778031*^9}, {3.898606479845177*^9, 
   3.8986065379025097`*^9}, {3.914536597246277*^9, 3.914536601909212*^9}, {
   3.9145371791364536`*^9, 3.914537190886034*^9}, {3.91453789588152*^9, 
   3.914537897770012*^9}, {3.9321797946936035`*^9, 3.932179796489073*^9}, {
   3.932180636854418*^9, 3.9321806667694206`*^9}, 3.9322000993849964`*^9, {
   3.94236440404068*^9, 3.9423644108744564`*^9}},
 CellLabel->
  "In[197]:=",ExpressionUUID->"48c8affd-6e2b-425d-a938-be1169af55d0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0225952`", ",", 
   FractionBox["1", "2"]}], "}"}]], "Output",
 CellChangeTimes->{{3.89858942126936*^9, 3.898589430441421*^9}, 
   3.898589469902136*^9, 3.898598264269569*^9, {3.89860292544247*^9, 
   3.898602932740289*^9}, {3.898606496165317*^9, 3.898606515067354*^9}, {
   3.898606566495345*^9, 3.898606568059271*^9}, 3.8986111403687744`*^9, 
   3.9141258060526257`*^9, 3.914536603844105*^9, 3.914537194889742*^9, 
   3.9145378981830196`*^9, 3.9321796592570534`*^9, 3.9321798002122498`*^9, 
   3.932180678316551*^9, 3.9321807133078365`*^9, 3.932199165982519*^9, 
   3.932200100059372*^9, {3.942364427112463*^9, 3.9423644285455914`*^9}, 
   3.943838736145727*^9},
 CellLabel->
  "Out[200]=",ExpressionUUID->"411e25b9-9eff-c046-8e35-143071899de7"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["PassOptions    \:4f20\:9012\:9009\:9879", "Subsection",
 CellChangeTimes->{{3.9321877762717915`*^9, 3.932187778357588*^9}, {
  3.932187815503685*^9, 
  3.932187823394785*^9}},ExpressionUUID->"63549ada-cc3f-a448-9b7d-\
0be5fd27a69e"],

Cell["PassOptions[from,to,opts] \:5728 from \:548c to \:95f4\:4f20\:9012 \
opts.", "Text",
 CellChangeTimes->{{3.93219917960977*^9, 3.93219929477083*^9}, 
   3.93219939549543*^9},ExpressionUUID->"2315d219-41ea-014d-8732-\
89df22979150"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "PassOptions", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"PassOptions", "[", 
     RowBox[{"from_", ",", "to_", ",", 
      RowBox[{"opts", ":", 
       RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
    RowBox[{"Sequence", "@@", 
     RowBox[{"FilterRules", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"GatherBy", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"opts", ",", 
            RowBox[{"Sequence", "@@", 
             RowBox[{"Options", "@", "from"}]}]}], "}"}], ",", "First"}], 
         "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"Options", "@", "to"}]}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PassOptions", "[", 
   RowBox[{"Plot", ",", "Plot3D", ",", 
    RowBox[{"AspectRatio", "->", "Automatic"}]}], "]"}], "//", 
  "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.932187826372551*^9, 3.9321880316531925`*^9}, {
  3.9321881039601765`*^9, 3.9321881043869476`*^9}, {3.932188160456745*^9, 
  3.9321881859455223`*^9}, {3.9321882342012386`*^9, 3.9321882662034683`*^9}, {
  3.932188310892042*^9, 3.932188360282278*^9}, {3.9321989074791737`*^9, 
  3.9321989133754272`*^9}, {3.9321989690157413`*^9, 3.9321990157908516`*^9}, {
  3.942364404051697*^9, 3.942364410876444*^9}},
 CellLabel->
  "In[205]:=",ExpressionUUID->"19bf4f12-9b48-b043-9655-28bf3b3d1f99"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0244559`", ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"AlignmentPoint", "\[Rule]", "Center"}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"Background", "\[Rule]", "None"}], ",", 
   RowBox[{"BaselinePosition", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"ClippingStyle", "\[Rule]", "None"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ColorFunctionScaling", "\[Rule]", "True"}], ",", 
   RowBox[{"ColorOutput", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ContentSelectable", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"CoordinatesToolOptions", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"DisplayFunction", "\[RuleDelayed]", "$DisplayFunction"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"Evaluated", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"EvaluationMonitor", "\[Rule]", "None"}], ",", 
   RowBox[{"Exclusions", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ExclusionsStyle", "\[Rule]", "None"}], ",", 
   RowBox[{"Filling", "\[Rule]", "None"}], ",", 
   RowBox[{"FillingStyle", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"FormatType", "\[RuleDelayed]", "TraditionalForm"}], ",", 
   RowBox[{"ImageMargins", "\[Rule]", "0.`"}], ",", 
   RowBox[{"ImagePadding", "\[Rule]", "All"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ImageSizeRaw", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"LabelingSize", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
   RowBox[{"MeshFunctions", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"#1", "&"}], "}"}]}], ",", 
   RowBox[{"MeshShading", "\[Rule]", "None"}], ",", 
   RowBox[{"MeshStyle", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Method", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PerformanceGoal", "\[RuleDelayed]", "$PerformanceGoal"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"PlotLabels", "\[Rule]", "None"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "None"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Full", ",", "Automatic"}], "}"}]}], ",", 
   RowBox[{"PlotRangePadding", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotRegion", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotTheme", "\[RuleDelayed]", "$PlotTheme"}], ",", 
   RowBox[{"PreserveImageOptions", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Prolog", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"RegionFunction", "\[Rule]", 
    RowBox[{"(", 
     RowBox[{"True", "&"}], ")"}]}], ",", 
   RowBox[{"ScalingFunctions", "\[Rule]", "None"}], ",", 
   RowBox[{"TargetUnits", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Ticks", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"TicksStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"WorkingPrecision", "\[Rule]", "MachinePrecision"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.9321879100383854`*^9, 3.9321879273342667`*^9}, {
   3.93218797989937*^9, 3.9321879892813015`*^9}, {3.9321880215365353`*^9, 
   3.9321880407513027`*^9}, 3.9321881225333576`*^9, {3.932188252573557*^9, 
   3.9321882675253754`*^9}, {3.9321883443993893`*^9, 3.932188360836588*^9}, 
   3.932198914812832*^9, {3.9321989829937916`*^9, 3.9321990201439953`*^9}, 
   3.9321991702335625`*^9, {3.9423644311938457`*^9, 3.94236443240238*^9}, 
   3.943838740743717*^9},
 CellLabel->
  "Out[207]=",ExpressionUUID->"fd31265d-2f3f-bd4b-9687-6da7583e06ee"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8868\:8fbe\:5f0f", "Section",
 CellChangeTimes->{{3.9448967602955112`*^9, 
  3.944896772255619*^9}},ExpressionUUID->"34fa9187-3152-7242-b671-\
1f16f2d993f6"],

Cell[CellGroupData[{

Cell["AlgebraicExpressionQ    \:4ee3\:6570\:8868\:8fbe\:5f0f\:5224\:5b9a", \
"Subsection",
 CellChangeTimes->{{3.943838771435545*^9, 
  3.9438387869601707`*^9}},ExpressionUUID->"ea4ae2f8-987d-2445-8739-\
2110678b27e6"],

Cell["AlgebraicExpressionQ[expr,x] \:8fd4\:56de expr \:662f\:5426\:4e3a\:4ee3\
\:6570\:8868\:8fbe\:5f0f", "Text",
 CellChangeTimes->{{3.943838796476528*^9, 
  3.943838814429579*^9}},ExpressionUUID->"717db9db-e144-4b45-9f8b-\
5bd1008e7c6d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "AlgebraicExpressionQ", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Attributes", "[", "AlgebraicExpressionQ", "]"}], "=", 
    RowBox[{"{", "Listable", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraicExpressionQ", "[", 
     RowBox[{"expr_", ",", "x_Symbol"}], "]"}], ":=", 
    RowBox[{"Catch", "[", "\[IndentingNewLine]", 
     RowBox[{"RationalExpressionQ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"expr", "/.", 
         RowBox[{
          SqrtBox["a_"], ":>", "a"}]}], "/.", 
        RowBox[{
         SuperscriptBox["a_", "b_"], ":>", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"!", 
              RowBox[{"FreeQ", "[", 
               RowBox[{"b", ",", "x"}], "]"}]}], ",", 
             RowBox[{"Throw", "[", "False", "]"}]}], "]"}], ";", "a"}], 
          ")"}]}]}], ",", "x"}], "]"}], "\[IndentingNewLine]", "]"}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AlgebraicExpressionQ", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", 
      FractionBox["1", 
       SuperscriptBox["E", "x"]], ",", 
      FractionBox[
       RowBox[{
        RadicalBox[
         RowBox[{"1", "+", 
          SuperscriptBox["x", "3"]}], "a"], "+", "1"}], 
       RadicalBox[
        RowBox[{"1", "+", 
         SqrtBox[
          RowBox[{"1", "+", 
           SuperscriptBox["x", "3"]}]]}], 
        FractionBox["1", "b"]]], ",", 
      FractionBox[
       RowBox[{
        RadicalBox[
         RowBox[{"1", "+", 
          SuperscriptBox["x", "3"]}], "a"], "+", "1"}], 
       RadicalBox[
        RowBox[{"1", "+", 
         SqrtBox[
          RowBox[{"1", "+", 
           SuperscriptBox["x", "3"]}]]}], 
        FractionBox["1", "x"]]]}], "}"}], ",", "x"}], "]"}], "//", 
  "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.9438387535918236`*^9, 3.9438387935989685`*^9}, {
  3.943838827719124*^9, 3.9438388310889606`*^9}, {3.9438389082837257`*^9, 
  3.9438389138515625`*^9}, {3.9438389609751625`*^9, 3.943839066476063*^9}, {
  3.943839101444025*^9, 3.943839157997032*^9}, {3.943839203772999*^9, 
  3.9438392516571503`*^9}, {3.9438392984360847`*^9, 3.943839515148533*^9}, {
  3.943840697249111*^9, 3.943840837063856*^9}, {3.9438408702927494`*^9, 
  3.943840927206766*^9}, {3.943841002288948*^9, 3.943841007752527*^9}, {
  3.9438411589957924`*^9, 3.9438412059561768`*^9}, {3.9438412914518147`*^9, 
  3.943841488575884*^9}},
 CellLabel->
  "In[424]:=",ExpressionUUID->"497df628-7dd8-3f42-97d6-f9fafe492b99"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0001319`", ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", "False", ",", "True", ",", "False"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.9438391488105927`*^9, 3.943839158335827*^9}, 
   3.943839251974972*^9, 3.9438393105146313`*^9, {3.943839363641674*^9, 
   3.9438394036319637`*^9}, {3.94383949128615*^9, 3.943839515376913*^9}, {
   3.943840795591652*^9, 3.943840837548828*^9}, {3.943840882954468*^9, 
   3.9438409274299507`*^9}, {3.9438410026401405`*^9, 3.943841008231539*^9}, {
   3.943841184085758*^9, 3.9438411869569607`*^9}, 3.943841291751795*^9, {
   3.943841329291054*^9, 3.943841488843483*^9}},
 CellLabel->
  "Out[427]=",ExpressionUUID->"ebd0ccba-30ad-f34f-89ba-8237adeaaa3e"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["ExpressionPivot    \:8868\:8fbe\:5f0f\:4e3b\:5143", "Subsection",
 CellChangeTimes->{
  3.881261571343264*^9, {3.898449535119043*^9, 3.8984495362985797`*^9}, {
   3.8984497483950005`*^9, 
   3.89844974898872*^9}},ExpressionUUID->"784fc19c-62f8-4bad-881c-\
fca2328794d0"],

Cell["ExpressionPivot[expr] \:8fd4\:56de expr \:4e2d\:9996\:4e2a\:975e\:6570\
\:503c\:7b26\:53f7.", "Text",
 CellChangeTimes->{{3.898442710593676*^9, 3.898442743415276*^9}, {
   3.8984464573563857`*^9, 3.8984464700812416`*^9}, 3.898449308555183*^9, 
   3.898449534028435*^9, {3.8984495884143*^9, 3.898449593441187*^9}, {
   3.898456022092538*^9, 3.8984560381110597`*^9}, {3.898610492237751*^9, 
   3.898610501641953*^9}, 
   3.932199409986719*^9},ExpressionUUID->"fda77400-73f5-49db-93ff-\
eb185d67aebf"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "ExpressionPivot", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Attributes", "[", "ExpressionPivot", "]"}], "=", 
    RowBox[{"{", "Listable", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ExpressionPivotSymbolList", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Symbol", "[", "\"\<x\>\"", "]"}], ",", 
     RowBox[{"Symbol", "[", "\"\<y\>\"", "]"}], ",", 
     RowBox[{"Symbol", "[", "\"\<z\>\"", "]"}], ",", 
     RowBox[{"Symbol", "[", "\"\<u\>\"", "]"}], ",", 
     RowBox[{"Symbol", "[", "\"\<v\>\"", "]"}], ",", 
     RowBox[{"Symbol", "[", "\"\<w\>\"", "]"}], ",", 
     RowBox[{"Symbol", "[", "\"\<t\>\"", "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ExpressionPivot", "[", "expr_", "]"}], ":=", 
    RowBox[{"Catch", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"!", 
           RowBox[{"FreeQ", "[", 
            RowBox[{"expr", ",", "i"}], "]"}]}], ",", 
          RowBox[{"Throw", "[", "i", "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "ExpressionPivotSymbolList"}], "}"}]}], "]"}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"FirstCase", "[", 
       RowBox[{"expr", ",", 
        RowBox[{"_Symbol", "?", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"!", 
            RowBox[{"NumericQ", "@", "#"}]}], "&"}], ")"}]}], ",", "Symbol", 
        ",", 
        RowBox[{"{", 
         RowBox[{"-", "1"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}],
    ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ExpressionPivot", "[", 
   RowBox[{"{", 
    RowBox[{"1", ",", "a", ",", "x", ",", 
     FractionBox["a", 
      RowBox[{"a", "+", "x"}]], ",", 
     SuperscriptBox["E", "x"], ",", 
     RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "}"}], "]"}], "//", 
  "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.8812615801230173`*^9, 3.88126167633887*^9}, {
   3.881261766362163*^9, 3.881261823838699*^9}, {3.8812620068443146`*^9, 
   3.8812620165175595`*^9}, {3.8812620479419546`*^9, 
   3.8812620815899687`*^9}, {3.881262194686629*^9, 3.881262209021083*^9}, {
   3.881262315054818*^9, 3.881262438736573*^9}, {3.881262498457862*^9, 
   3.8812625557944126`*^9}, {3.8812626485340843`*^9, 3.881262768546598*^9}, {
   3.881262890945066*^9, 3.881262931450222*^9}, {3.881262961971888*^9, 
   3.8812631580806475`*^9}, {3.8812632173477902`*^9, 3.881263309160058*^9}, {
   3.8822005740689077`*^9, 3.882200605935709*^9}, {3.8822006542479105`*^9, 
   3.882200690746396*^9}, 3.882200810992259*^9, {3.889057643315501*^9, 
   3.889057653171678*^9}, {3.8890577545740843`*^9, 3.889057757051575*^9}, {
   3.88905778775984*^9, 3.8890578377002153`*^9}, 3.889057934251857*^9, {
   3.889057973843111*^9, 3.889057992623109*^9}, {3.889058041097636*^9, 
   3.889058125047696*^9}, {3.8890581726753273`*^9, 3.889058185687188*^9}, {
   3.8890711078797207`*^9, 3.8890711545777483`*^9}, {3.889071782661847*^9, 
   3.889071796142689*^9}, {3.889071867712634*^9, 3.889071889542471*^9}, {
   3.897557084853467*^9, 3.897557084967126*^9}, {3.897557787798626*^9, 
   3.8975578029507036`*^9}, {3.897558036835379*^9, 3.897558102170465*^9}, {
   3.897558199566718*^9, 3.897558201965173*^9}, 3.897558653653065*^9, 
   3.897569581713081*^9, {3.897575962882409*^9, 3.8975759643574305`*^9}, {
   3.8975762236015244`*^9, 3.897576227151003*^9}, {3.8975776911757145`*^9, 
   3.897577794314226*^9}, {3.897578833119809*^9, 3.897578837560462*^9}, {
   3.897578872924392*^9, 3.897578877316488*^9}, {3.897579164523292*^9, 
   3.897579166013506*^9}, {3.897579589529781*^9, 3.897579613384663*^9}, 
   3.8975796444062634`*^9, {3.897580555924001*^9, 3.897580589296524*^9}, {
   3.8984355690921297`*^9, 3.898435755255912*^9}, {3.898435806128548*^9, 
   3.89843585366317*^9}, {3.8984363368337*^9, 3.898436370067327*^9}, 
   3.898606542251979*^9, {3.8986091170233307`*^9, 3.8986091329057426`*^9}, {
   3.914536637801153*^9, 3.9145366383317833`*^9}, {3.9145379001820183`*^9, 
   3.9145379093019657`*^9}, {3.932179740839157*^9, 3.932179820550392*^9}, {
   3.932180043629032*^9, 3.9321802151917324`*^9}, {3.9321804338949394`*^9, 
   3.93218046972838*^9}, 3.932180500832758*^9, 3.932180597000017*^9, {
   3.932180932612032*^9, 3.932180990010416*^9}, {3.93220239467745*^9, 
   3.9322024024863434`*^9}, {3.9322027529848633`*^9, 3.932202823957287*^9}, {
   3.9382332008487835`*^9, 3.9382332168221855`*^9}, {3.942364404054693*^9, 
   3.9423644108774414`*^9}, {3.943839531722042*^9, 3.943839537164139*^9}, {
   3.943840511802559*^9, 3.9438405396171513`*^9}, {3.9438410276699677`*^9, 
   3.9438410982425213`*^9}, {3.9438422165507145`*^9, 
   3.9438422167938824`*^9}, {3.9438422488757*^9, 3.943842248950945*^9}, {
   3.9438425500708027`*^9, 3.943842631644781*^9}, {3.943842676560398*^9, 
   3.943842684645542*^9}, {3.9450732501926727`*^9, 3.945073275893448*^9}, {
   3.945073317701748*^9, 3.9450734499807644`*^9}},
 CellLabel->
  "In[148]:=",ExpressionUUID->"2cf80ff6-bf72-4d35-b1f5-f03543c34b66"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.000077`", ",", 
   RowBox[{"{", 
    RowBox[{
    "Symbol", ",", "a", ",", "x", ",", "x", ",", "x", ",", "\[Theta]"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.881263029681779*^9, 3.881263158365161*^9}, {
   3.8812632194657574`*^9, 3.881263309717168*^9}, 3.881263392397648*^9, 
   3.881265552205414*^9, {3.882200583154648*^9, 3.882200609133211*^9}, 
   3.882200656635619*^9, 3.88220069118622*^9, 3.8822008113864794`*^9, {
   3.8890576393829947`*^9, 3.889057653492149*^9}, 3.889057757394754*^9, 
   3.889057838372447*^9, 3.889057935132286*^9, {3.8890579797600126`*^9, 
   3.889057993077814*^9}, {3.889058076797559*^9, 3.8890581384728*^9}, {
   3.88905817566448*^9, 3.8890581861029434`*^9}, 3.889059198965727*^9, 
   3.889071163508389*^9, 3.8890717966608677`*^9, {3.889071877745415*^9, 
   3.8890718899799433`*^9}, 3.897556925879445*^9, {3.897558040982929*^9, 
   3.8975581024305673`*^9}, 3.897558204088344*^9, 3.897558236597767*^9, 
   3.897558654249855*^9, {3.897577762817846*^9, 3.897577785152034*^9}, 
   3.897578846776416*^9, 3.897578878221454*^9, 3.897579186728601*^9, {
   3.897579595429154*^9, 3.8975796448269672`*^9}, {3.8975805830664005`*^9, 
   3.897580589935274*^9}, {3.8975809589015517`*^9, 3.897580962460622*^9}, {
   3.8975826828783083`*^9, 3.8975826899554443`*^9}, 3.897766456652587*^9, 
   3.898063740571079*^9, 3.8981563840712323`*^9, 3.898408430826607*^9, 
   3.8984351548460383`*^9, {3.898435656396911*^9, 3.898435669254348*^9}, {
   3.898435723995041*^9, 3.898435756106928*^9}, {3.898435801766379*^9, 
   3.898435860363358*^9}, {3.8984363304828777`*^9, 3.898436370397313*^9}, {
   3.898446472205254*^9, 3.898446473520159*^9}, 3.8984467579835277`*^9, 
   3.898446809227191*^9, 3.898454748128085*^9, 3.8984556216634617`*^9, 
   3.898455721192382*^9, 3.898606683499403*^9, 3.898609127002952*^9, 
   3.898611142260786*^9, 3.9145366388321037`*^9, {3.9145379030524445`*^9, 
   3.9145379099596443`*^9}, {3.932179812795988*^9, 3.932179814352871*^9}, {
   3.9321800174040127`*^9, 3.9321800743540344`*^9}, {3.9321802007243156`*^9, 
   3.9321802280639744`*^9}, {3.9321802846508484`*^9, 3.932180285851782*^9}, {
   3.93218044012788*^9, 3.9321804716871586`*^9}, 3.9321806804553623`*^9, {
   3.9321809864945545`*^9, 3.9321809902642937`*^9}, 3.932199173033457*^9, 
   3.932199309312519*^9, {3.932202403415554*^9, 3.9322024111465454`*^9}, {
   3.9322027620821323`*^9, 3.9322027802294903`*^9}, {3.9322028250198784`*^9, 
   3.9322028373798237`*^9}, 3.938233332313484*^9, 3.9438387395779*^9, 
   3.943839566969303*^9, {3.9438425631638737`*^9, 3.9438426522986736`*^9}, {
   3.9438426854382553`*^9, 3.943842686578739*^9}, {3.945073302497778*^9, 
   3.9450733574917736`*^9}, {3.9450734221322727`*^9, 
   3.9450734290000744`*^9}, {3.945073460424366*^9, 3.945073461515524*^9}},
 CellLabel->
  "Out[152]=",ExpressionUUID->"95ab126d-658d-ca45-9ffc-90747a61b12c"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["CoefficientSeparation    \:7cfb\:6570\:5206\:5272", "Subsection",
 CellChangeTimes->{
  3.8812488993542614`*^9, {3.889059222842462*^9, 3.889059230348847*^9}, {
   3.889059334651242*^9, 3.8890593390963335`*^9}, {3.898449598065941*^9, 
   3.8984495983214264`*^9}, {3.898449752155682*^9, 
   3.898449752667647*^9}},ExpressionUUID->"f82db896-cd4c-4cc8-84ca-\
4dbb44229ec2"],

Cell["CoefficientSeparation[expr,x] \:8fd4\:56de expr \
\:7cfb\:6570\:548c\:4f59\:4e0b\:90e8\:5206.", "Text",
 CellChangeTimes->{{3.898442769504498*^9, 3.89844277134929*^9}, {
   3.8984428996137834`*^9, 3.89844290450721*^9}, {3.898449597409689*^9, 
   3.898449601916279*^9}, {3.8984497555514064`*^9, 3.8984497583550634`*^9}, {
   3.898457223945739*^9, 3.898457227852154*^9}, {3.898610170898191*^9, 
   3.898610180481199*^9}, 
   3.9321994254542713`*^9},ExpressionUUID->"cac3d7bd-9954-4405-a7e5-\
ac9b6cc45796"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "CoefficientSeparation", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Attributes", "[", "CoefficientSeparation", "]"}], "=", 
    RowBox[{"{", "Listable", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"CoefficientSeparation", "[", 
     RowBox[{"expr_", ",", "x_Symbol"}], "]"}], "/;", 
    RowBox[{"FreeQ", "[", 
     RowBox[{"expr", ",", "x"}], "]"}]}], ":=", 
   RowBox[{"{", 
    RowBox[{"expr", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"CoefficientSeparation", "[", 
     RowBox[{"expr_", ",", "x_Symbol"}], "]"}], ":=", 
    RowBox[{"Replace", "[", 
     RowBox[{"expr", ",", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Longest", "[", "c_.", "]"}], "r_"}], "/;", 
        RowBox[{"FreeQ", "[", 
         RowBox[{"c", ",", "x"}], "]"}]}], "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"c", ",", "r"}], "}"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CoefficientSeparation", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", 
      FractionBox[
       RowBox[{"a", "+", "b"}], "2"], ",", 
      FractionBox["2", 
       RowBox[{"a", "+", "b"}]], ",", 
      FractionBox[
       RowBox[{"a", "+", "b"}], 
       RowBox[{"2", "x"}]], ",", "x", ",", 
      RowBox[{"-", "x"}]}], "}"}], ",", "x"}], "]"}], "//", 
  "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{"CoefficientSeparation", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"2", "a", " ", 
       RowBox[{"Sin", "[", "x", "]"}]}], "+", 
      RowBox[{"4", "a", " ", "x"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"2", "a", " ", 
        RowBox[{"Sin", "[", "x", "]"}]}], "+", 
       RowBox[{"4", "a", " ", "x"}]}], "//", "Simplify"}]}], "}"}], ",", 
   "x"}], "]"}]}], "Input",
 CellChangeTimes->{{3.881241904847962*^9, 3.881241987198187*^9}, {
   3.881242031240831*^9, 3.881242046928899*^9}, {3.881242387184583*^9, 
   3.881242405022174*^9}, 3.8812525017519813`*^9, {3.8812633706399508`*^9, 
   3.8812633878811007`*^9}, {3.882200537029644*^9, 3.882200563996333*^9}, {
   3.8822006123689237`*^9, 3.882200614089099*^9}, {3.882200672506434*^9, 
   3.8822006780377517`*^9}, 3.882200806127757*^9, {3.889053751411551*^9, 
   3.889053808475528*^9}, {3.8890539727361536`*^9, 3.8890540057319794`*^9}, {
   3.8890540808730783`*^9, 3.889054096899433*^9}, 3.889054548713455*^9, {
   3.8890549209593997`*^9, 3.889054935737418*^9}, {3.889054994449294*^9, 
   3.889055019502039*^9}, 3.889055095805949*^9, {3.889055129243005*^9, 
   3.889055150173757*^9}, {3.889055359990751*^9, 3.889055390612606*^9}, {
   3.8890557736609335`*^9, 3.889055786978454*^9}, {3.889055898163913*^9, 
   3.889055938055687*^9}, {3.889058591883483*^9, 3.8890585989581165`*^9}, {
   3.8890586398201175`*^9, 3.8890586412915077`*^9}, {3.88905868475479*^9, 
   3.889058689402967*^9}, {3.889059226951191*^9, 3.889059228236294*^9}, {
   3.889059331118971*^9, 3.889059331132559*^9}, {3.889059794910117*^9, 
   3.889059809706137*^9}, {3.8890598511338387`*^9, 3.889059968589416*^9}, 
   3.889060009495178*^9, {3.889060075719466*^9, 3.889060098112715*^9}, {
   3.897558364547163*^9, 3.897558442773342*^9}, {3.8975584744493303`*^9, 
   3.897558503100176*^9}, 3.897558650637293*^9, 3.897569584801552*^9, 
   3.897575905705415*^9, {3.897579653175608*^9, 3.897579714352124*^9}, 
   3.897579766178024*^9, {3.8975800644007626`*^9, 3.897580238765965*^9}, {
   3.897580284566328*^9, 3.897580362279025*^9}, {3.897580985214338*^9, 
   3.897580997506344*^9}, 3.897581037879461*^9, {3.897582758394968*^9, 
   3.897582760290159*^9}, {3.897583549575282*^9, 3.897583550515018*^9}, {
   3.898589763371834*^9, 3.8985897911384*^9}, {3.8985908936908107`*^9, 
   3.89859091973178*^9}, {3.8985970137544985`*^9, 3.898597034357772*^9}, 
   3.898597228026992*^9, {3.898602066876213*^9, 3.8986020676554585`*^9}, 
   3.898606546101079*^9, {3.914536557099825*^9, 3.9145365598718166`*^9}, 
   3.914537112138218*^9, {3.9145379145781975`*^9, 3.9145379174891224`*^9}, {
   3.9321808872099876`*^9, 3.932180910317108*^9}, {3.9321810073520412`*^9, 
   3.9321810073700676`*^9}, {3.9423644040596905`*^9, 3.942364410879442*^9}, {
   3.9450732306608734`*^9, 
   3.9450732416059055`*^9}},ExpressionUUID->"fcfad0f7-8d74-470f-91b3-\
73e347e63cc7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0000809`", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       FractionBox[
        RowBox[{"a", "+", "b"}], "2"], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       FractionBox["2", 
        RowBox[{"a", "+", "b"}]], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       FractionBox[
        RowBox[{"a", "+", "b"}], "2"], ",", 
       FractionBox["1", "x"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "x"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "x"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.897558477849747*^9, 3.8975585118808317`*^9}, 
   3.8975586521472745`*^9, 3.8975759062882*^9, {3.897579656381521*^9, 
   3.897579714832854*^9}, 3.897579766714163*^9, 3.897580065988538*^9, 
   3.897580096336375*^9, {3.8975801533714905`*^9, 3.8975802396176*^9}, {
   3.897580292129888*^9, 3.897580296641071*^9}, {3.897580337834595*^9, 
   3.8975803654456844`*^9}, {3.897580975744693*^9, 3.8975809984897594`*^9}, 
   3.897581038282967*^9, {3.897582684765128*^9, 3.8975826887720456`*^9}, 
   3.89758276136832*^9, 3.8975836640289726`*^9, 3.897766456789195*^9, 
   3.898063740689612*^9, 3.8981563845709305`*^9, 3.898408430984356*^9, 
   3.8984351549460683`*^9, {3.898438656375563*^9, 3.898438660458484*^9}, {
   3.89844647585527*^9, 3.8984464844664927`*^9}, {3.8984467538399878`*^9, 
   3.898446759931337*^9}, 3.898446811186708*^9, 3.898455623711498*^9, 
   3.898455721272382*^9, 3.898456049671982*^9, {3.898553622416314*^9, 
   3.898553627259944*^9}, {3.8985908990145597`*^9, 3.898590920677238*^9}, {
   3.898597024824809*^9, 3.89859703921821*^9}, 3.8985972290001187`*^9, {
   3.898602068641824*^9, 3.8986020722671957`*^9}, {3.898606687769932*^9, 
   3.8986066898265033`*^9}, 3.898611144532957*^9, {3.9137928493184776`*^9, 
   3.9137928534276447`*^9}, 3.91453657856748*^9, 3.9145371195434055`*^9, 
   3.914537918371378*^9, 3.9321808543721275`*^9, {3.9321809045418797`*^9, 
   3.9321809106505833`*^9}, 3.932199310357744*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"fd918071-895f-2b43-a9c3-46b9a59f9155"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{
      RowBox[{"4", " ", "a", " ", "x"}], "+", 
      RowBox[{"2", " ", "a", " ", 
       RowBox[{"Sin", "[", "x", "]"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"2", " ", "a"}], ",", 
     RowBox[{
      RowBox[{"2", " ", "x"}], "+", 
      RowBox[{"Sin", "[", "x", "]"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.897558477849747*^9, 3.8975585118808317`*^9}, 
   3.8975586521472745`*^9, 3.8975759062882*^9, {3.897579656381521*^9, 
   3.897579714832854*^9}, 3.897579766714163*^9, 3.897580065988538*^9, 
   3.897580096336375*^9, {3.8975801533714905`*^9, 3.8975802396176*^9}, {
   3.897580292129888*^9, 3.897580296641071*^9}, {3.897580337834595*^9, 
   3.8975803654456844`*^9}, {3.897580975744693*^9, 3.8975809984897594`*^9}, 
   3.897581038282967*^9, {3.897582684765128*^9, 3.8975826887720456`*^9}, 
   3.89758276136832*^9, 3.8975836640289726`*^9, 3.897766456789195*^9, 
   3.898063740689612*^9, 3.8981563845709305`*^9, 3.898408430984356*^9, 
   3.8984351549460683`*^9, {3.898438656375563*^9, 3.898438660458484*^9}, {
   3.89844647585527*^9, 3.8984464844664927`*^9}, {3.8984467538399878`*^9, 
   3.898446759931337*^9}, 3.898446811186708*^9, 3.898455623711498*^9, 
   3.898455721272382*^9, 3.898456049671982*^9, {3.898553622416314*^9, 
   3.898553627259944*^9}, {3.8985908990145597`*^9, 3.898590920677238*^9}, {
   3.898597024824809*^9, 3.89859703921821*^9}, 3.8985972290001187`*^9, {
   3.898602068641824*^9, 3.8986020722671957`*^9}, {3.898606687769932*^9, 
   3.8986066898265033`*^9}, 3.898611144532957*^9, {3.9137928493184776`*^9, 
   3.9137928534276447`*^9}, 3.91453657856748*^9, 3.9145371195434055`*^9, 
   3.914537918371378*^9, 3.9321808543721275`*^9, {3.9321809045418797`*^9, 
   3.9321809106505833`*^9}, 3.9321993103600674`*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"088c6a99-9ad9-4642-9f3d-f00fc5b7f51f"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:591a\:9879\:5f0f", "Section",
 CellChangeTimes->{{3.9448955874510517`*^9, 3.944895592177948*^9}, {
  3.9448956332010193`*^9, 
  3.9448956333808136`*^9}},ExpressionUUID->"a3de89b7-2f6e-4048-9984-\
17fff659781c"],

Cell[CellGroupData[{

Cell["FirstCoefficient    \:9996\:7cfb\:6570", "Subsection",
 CellChangeTimes->{{3.898590933198619*^9, 
  3.8985909382322283`*^9}},ExpressionUUID->"89c387f1-dd97-41a3-90cb-\
4db1bffdf564"],

Cell["\<\
FirstCoefficient[poly,x] \:8fd4\:56de poly \:6700\:9ad8\:6b21\:9879\:7684\
\:7cfb\:6570.
\:51fa\:4e8e\:6027\:80fd\:8003\:8651\:672a\:7ea6\:675f\:53c2\:6570\
\>", "Text",
 CellChangeTimes->{{3.898610184981613*^9, 3.8986101983149424`*^9}, {
   3.8986103523489776`*^9, 3.898610353229575*^9}, 3.932199446743845*^9, 
   3.932199493085638*^9, {3.9450731927064056`*^9, 
   3.9450732046476536`*^9}},ExpressionUUID->"6493e7f2-50c6-4d8d-b495-\
c138e6c9f62d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "FirstCoefficient", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Attributes", "[", "FirstCoefficient", "]"}], "=", 
    RowBox[{"{", "Listable", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"FirstCoefficient", "[", 
     RowBox[{"poly_", ",", "x_Symbol"}], "]"}], ":=", 
    RowBox[{"Coefficient", "[", 
     RowBox[{"poly", ",", "x", ",", 
      RowBox[{"Exponent", "[", 
       RowBox[{"poly", ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FirstCoefficient", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{
       RowBox[{"3", 
        SuperscriptBox["x", "3"]}], "-", 
       SuperscriptBox["x", "2"], "+", "1"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "4"]}], 
        SuperscriptBox["x", "2"]}], "+", "1"}]}], "}"}], ",", "x"}], "]"}], "//",
   "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.898589673473645*^9, 3.8985897544065294`*^9}, {
   3.898592003069106*^9, 3.898592080184589*^9}, 3.898594848623205*^9, 
   3.898597231069063*^9, 3.898600954969085*^9, 3.898602061963065*^9, 
   3.9145371115795193`*^9, {3.9145371522661495`*^9, 3.914537153047247*^9}, {
   3.914537921816139*^9, 3.9145379240195045`*^9}, {3.9423644040616913`*^9, 
   3.942364410883444*^9}, {3.944895823017109*^9, 3.9448958337712364`*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"196e9c4c-8e73-420a-a732-bccd77d95dd9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0000462`", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", 
     RowBox[{"-", 
      FractionBox["1", "4"]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.898592046781853*^9, 3.8985920910924697`*^9}, {
   3.898594848950958*^9, 3.8985948659086447`*^9}, 3.898597231547406*^9, 
   3.898600874412503*^9, 3.898600960006827*^9, 3.898602063971583*^9, 
   3.898606702524988*^9, 3.8986111481808834`*^9, 3.91379857362611*^9, {
   3.9145371365154743`*^9, 3.914537154558874*^9}, 3.914537924323555*^9, 
   3.9321810607292023`*^9, 3.9321993126784706`*^9, {3.944895823747097*^9, 
   3.9448958361873264`*^9}},
 CellLabel->"Out[25]=",ExpressionUUID->"6550bf44-8376-fb47-90ee-7c4bbbeceae5"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["PolynomialReverse    \:591a\:9879\:5f0f\:53cd\:5411", "Subsection",
 CellChangeTimes->{{3.9147510146228924`*^9, 
  3.914751032183683*^9}},ExpressionUUID->"14e2f2e0-8ee6-3544-8c8c-\
82b3ffc96ff7"],

Cell["PolynomialReverse[poly,x] \:7ed9\:51fa poly \:7684\:53cd\:5411\:591a\
\:9879\:5f0f.", "Text",
 CellChangeTimes->{{3.932199318003521*^9, 3.9321993550889606`*^9}, 
   3.9321994529949417`*^9, 3.932199489351551*^9, {3.932199529863592*^9, 
   3.932199530180691*^9}},ExpressionUUID->"d686c8da-414c-8b4d-b201-\
25e0077e2e17"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "PolynomialReverse", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"PolynomialReverse", "[", 
     RowBox[{"poly_", ",", "x_Symbol"}], "]"}], "/;", 
    RowBox[{"PolynomialQ", "[", 
     RowBox[{"poly", ",", "x"}], "]"}]}], ":=", 
   RowBox[{"FromDigits", "[", 
    RowBox[{
     RowBox[{"CoefficientList", "[", 
      RowBox[{"poly", ",", "x"}], "]"}], ",", "x"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"PolynomialReverse", "[", 
      RowBox[{"poly_", ",", "x_Symbol", ",", "n_Integer"}], "]"}], "/;", 
     RowBox[{"PolynomialQ", "[", 
      RowBox[{"poly", ",", "x"}], "]"}]}], ":=", 
    RowBox[{"FromDigits", "[", 
     RowBox[{
      RowBox[{"PadRight", "[", 
       RowBox[{
        RowBox[{"CoefficientList", "[", 
         RowBox[{"poly", ",", "x"}], "]"}], ",", 
        RowBox[{"n", "+", "1"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PolynomialReverse", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"a", " ", 
      SuperscriptBox["x", "4"]}], "+", 
     RowBox[{"b", " ", 
      SuperscriptBox["x", "3"]}], "+", 
     RowBox[{"c", " ", 
      SuperscriptBox["x", "2"]}], "+", 
     RowBox[{"d", " ", "x"}], "+", "e"}], ",", "x"}], "]"}], "//", 
  "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PolynomialReverse", "[", 
   RowBox[{
    RowBox[{"x", "+", "1"}], ",", "x", ",", "2"}], "]"}], "//", 
  "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.914751034145424*^9, 3.9147510831051197`*^9}, {
  3.9147875042987366`*^9, 3.914787718098652*^9}, {3.9147877843168583`*^9, 
  3.9147878405667534`*^9}, {3.942364404066427*^9, 
  3.9423644108854427`*^9}},ExpressionUUID->"0d765881-d98c-5843-b3f9-\
9941a7470981"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0001692`", ",", 
   RowBox[{"a", "+", 
    RowBox[{"b", " ", "x"}], "+", 
    RowBox[{"e", " ", 
     SuperscriptBox["x", "4"]}], "+", 
    RowBox[{
     SuperscriptBox["x", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.914751084192091*^9, 3.9147875135588455`*^9, {3.914787588688801*^9, 
   3.914787598773525*^9}, {3.9147876979051495`*^9, 3.9147877185737877`*^9}, 
   3.914787793681343*^9, {3.914787827661293*^9, 3.914787841254938*^9}, 
   3.9321905763579884`*^9, 3.932199313821371*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"61f2fa8c-1e5f-f44a-b703-ceb5a7ccfa31"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0000676`", ",", 
   RowBox[{"x", "+", 
    SuperscriptBox["x", "2"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.914751084192091*^9, 3.9147875135588455`*^9, {3.914787588688801*^9, 
   3.914787598773525*^9}, {3.9147876979051495`*^9, 3.9147877185737877`*^9}, 
   3.914787793681343*^9, {3.914787827661293*^9, 3.914787841254938*^9}, 
   3.9321905763579884`*^9, 3.932199313826153*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"66c622b6-62e2-7141-8ce1-9355809b4ef3"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["PolynomialRoots    \:591a\:9879\:5f0f\:6839", "Subsection",
 CellChangeTimes->{{3.898604963887044*^9, 3.8986049783524084`*^9}, 
   3.9321848295643272`*^9},ExpressionUUID->"6c130562-e9c8-41d9-b399-\
a7890f72a94b"],

Cell["PolynomialRoots[poly,x] \:8fd4\:56de poly \:7684\:6839.", "Text",
 CellChangeTimes->{{3.898605205249858*^9, 3.898605215800286*^9}, {
   3.898609581153407*^9, 3.898609599232883*^9}, 3.898609855989557*^9, {
   3.898610211152465*^9, 3.898610320232235*^9}, {3.89861092954615*^9, 
   3.8986109402660465`*^9}, {3.9145373939703484`*^9, 
   3.9145373941642494`*^9}, {3.9321812558891163`*^9, 3.932181267894762*^9}, 
   3.932184835587734*^9, {3.9321994586794453`*^9, 
   3.932199485075964*^9}},ExpressionUUID->"db99bed0-9ac0-4477-863e-\
c037c42ecb18"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "PolynomialRoots", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Attributes", "[", "PolynomialRoots", "]"}], "=", 
   RowBox[{"{", "Listable", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "[", "PolynomialRoots", "]"}], "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Cubics", "->", "False"}], ",", 
      RowBox[{"Quartics", "->", "False"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"PolynomialRoots", "[", 
      RowBox[{"poly_", ",", "x_Symbol", ",", 
       RowBox[{"opts", ":", 
        RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], "/;", 
     RowBox[{"PolynomialQ", "[", 
      RowBox[{"poly", ",", "x"}], "]"}]}], ":=", 
    RowBox[{"Last", "@@@", 
     RowBox[{"Join", "@", 
      RowBox[{"ToRules", "@", 
       RowBox[{"Roots", "[", 
        RowBox[{
         RowBox[{"poly", "==", "0"}], ",", "x", ",", 
         RowBox[{"PassOptions", "[", 
          RowBox[{"PolynomialRoots", ",", "Roots", ",", "opts"}], "]"}]}], 
        "]"}]}]}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"SolveValues", "[", 
      RowBox[{
       RowBox[{"#", "==", "0"}], ",", "x", ",", 
       RowBox[{"Cubics", "->", "False"}], ",", 
       RowBox[{"Quartics", "->", "False"}]}], "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"x", "+", 
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{"x", "-", "1"}], ")"}]}]}], ",", 
      RowBox[{
       RowBox[{"3", 
        SuperscriptBox["x", "2"]}], "-", "4"}], ",", 
      RowBox[{
       SuperscriptBox["x", "3"], "-", "x", "+", "1"}], ",", 
      RowBox[{
       RowBox[{"2", 
        SuperscriptBox["x", "4"]}], "-", "x", "+", "1"}]}], "}"}]}], "//", 
   "Column"}], "//", "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PolynomialRoots", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"x", "+", 
        RowBox[{"2", 
         RowBox[{"(", 
          RowBox[{"x", "-", "1"}], ")"}]}]}], ",", 
       RowBox[{
        RowBox[{"3", 
         SuperscriptBox["x", "2"]}], "-", "4"}], ",", 
       RowBox[{
        SuperscriptBox["x", "3"], "-", "x", "+", "1"}], ",", 
       RowBox[{
        RowBox[{"2", 
         SuperscriptBox["x", "4"]}], "-", "x", "+", "1"}]}], "}"}], ",", 
     "x"}], "]"}], "//", "Column"}], "//", "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.898604949343793*^9, 3.898605170464751*^9}, {
   3.898605236428371*^9, 3.898605260398546*^9}, {3.898605413649922*^9, 
   3.898605436226595*^9}, {3.898605504508351*^9, 3.898605549472014*^9}, {
   3.898605625669018*^9, 3.89860569778778*^9}, {3.898605889607032*^9, 
   3.898605928834756*^9}, {3.898605988751628*^9, 3.898605991977062*^9}, {
   3.8986067180162024`*^9, 3.8986067546405725`*^9}, 3.898606856518113*^9, 
   3.898609612476538*^9, {3.8986096463184147`*^9, 3.898609686288501*^9}, {
   3.898609721154602*^9, 3.898609755319188*^9}, {3.89860982760016*^9, 
   3.898609918090876*^9}, {3.89860995617579*^9, 3.89860999697664*^9}, {
   3.898610054446308*^9, 3.898610085140223*^9}, {3.898611665285577*^9, 
   3.8986116671126413`*^9}, {3.914537111586443*^9, 3.914537111591137*^9}, {
   3.9145372416600113`*^9, 3.914537244178097*^9}, {3.914537299933201*^9, 
   3.914537318621752*^9}, {3.9145374115241203`*^9, 3.9145374343515205`*^9}, {
   3.9145379276363544`*^9, 3.9145379348548985`*^9}, {3.932181226187458*^9, 
   3.932181249857153*^9}, {3.9321816987002563`*^9, 3.9321817901295757`*^9}, {
   3.9321824874179688`*^9, 3.9321825021889954`*^9}, {3.932184007488138*^9, 
   3.9321840357372*^9}, {3.9321840754270554`*^9, 3.9321840774781303`*^9}, {
   3.9321844898970127`*^9, 3.932184493214163*^9}, {3.9321848506978474`*^9, 
   3.9321848649129353`*^9}, {3.9321849244674377`*^9, 
   3.9321849568486176`*^9}, {3.9321861468299255`*^9, 
   3.9321862260169964`*^9}, {3.932187712877239*^9, 3.932187757065958*^9}, 
   3.9321879228146896`*^9, {3.932188129721945*^9, 3.932188140292595*^9}, {
   3.932188375276291*^9, 3.9321883801862087`*^9}, {3.932188430909954*^9, 
   3.93218843661158*^9}, {3.9322005451338253`*^9, 3.9322005607251625`*^9}, {
   3.9322006140211544`*^9, 3.9322006591349087`*^9}, {3.932200696467863*^9, 
   3.9322010670063953`*^9}, {3.932201106762148*^9, 3.932201173022049*^9}, {
   3.9423644040730114`*^9, 
   3.9423644108891163`*^9}},ExpressionUUID->"c17aeeea-1832-4cc9-b6fe-\
5354c1986519"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0018774`", ",", 
   TagBox[GridBox[{
      {
       RowBox[{"{", "}"}]},
      {
       RowBox[{"{", 
        FractionBox["2", "3"], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["2", 
           SqrtBox["3"]]}], ",", 
         FractionBox["2", 
          SqrtBox["3"]]}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{
         TemplateBox[<|"icon" -> "Root", "small" -> InterpretationBox[
             StyleBox[
              TemplateBox[{"\"-1.32\"", 
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEExpressions", "NumericalApproximationElider"]]}, 
               "RowDefault"], ShowStringCharacters -> 
              False], -1.32471795724474605826515016815392300487`15.\
954589770191003, Editable -> False], "approx" -> -1.324717957244746, "interp" -> 
           InterpretationBox["", 
             Root[1 - # + #^3& , 1, 0]], "head" -> "Root", "big" -> RowBox[{
              RowBox[{"1", "-", "#1", "+", 
                SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
           "shortDegree" -> "3", "number" -> 1|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )], ",", 
         TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"0.662\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], ShowStringCharacters -> False], 
               0.66235897862237302913257508407696150243`15.987259907522022, 
               Editable -> False], "-", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"0.562\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 0.56227951206230120106965841841883957386`15.916118739030756, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
           Complex[0.662358978622373, -0.5622795120623012], "interp" -> 
           InterpretationBox["", 
             Root[1 - # + #^3& , 2, 0]], "head" -> "Root", "big" -> RowBox[{
              RowBox[{"1", "-", "#1", "+", 
                SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
           "shortDegree" -> "3", "number" -> 2|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )], ",", 
         TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"0.662\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], ShowStringCharacters -> False], 
               0.66235897862237302913257508407696150243`15.987259907522022, 
               Editable -> False], "+", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"0.562\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 0.56227951206230120106965841841883957386`15.916118739030756, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
           Complex[0.662358978622373, 0.5622795120623012], "interp" -> 
           InterpretationBox["", 
             Root[1 - # + #^3& , 3, 0]], "head" -> "Root", "big" -> RowBox[{
              RowBox[{"1", "-", "#1", "+", 
                SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
           "shortDegree" -> "3", "number" -> 3|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )]}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{
         TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"-0.607\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], ShowStringCharacters -> 
                False], \
-0.60683556279976502700890250707743689418`15.901038474216426, Editable -> 
               False], "-", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"0.758\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 0.75778361661178383901216193407890386879`15.997512661631992, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
           Complex[-0.606835562799765, -0.7577836166117838], "interp" -> 
           InterpretationBox["", 
             Root[1 - # + 2 #^4& , 1, 0]], "head" -> "Root", "big" -> RowBox[{
              RowBox[{"1", "-", "#1", "+", 
                RowBox[{"2", " ", 
                  SuperscriptBox["#1", "4"]}]}], "&"}], "degree" -> "4", 
           "shortDegree" -> "4", "number" -> 1|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )], ",", 
         TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"-0.607\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], ShowStringCharacters -> 
                False], \
-0.60683556279976502700890250707743689418`15.901038474216426, Editable -> 
               False], "+", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"0.758\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 0.75778361661178383901216193407890386879`15.997512661631992, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
           Complex[-0.606835562799765, 0.7577836166117838], "interp" -> 
           InterpretationBox["", 
             Root[1 - # + 2 #^4& , 2, 0]], "head" -> "Root", "big" -> RowBox[{
              RowBox[{"1", "-", "#1", "+", 
                RowBox[{"2", " ", 
                  SuperscriptBox["#1", "4"]}]}], "&"}], "degree" -> "4", 
           "shortDegree" -> "4", "number" -> 2|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )], ",", 
         TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"0.607\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], ShowStringCharacters -> False], 
               0.60683556279976502700890250707743689418`16.025828107895983, 
               Editable -> False], "-", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"0.403\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 0.40281855835075430771752280634245835245`15.847866554606872, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
           Complex[0.606835562799765, -0.4028185583507543], "interp" -> 
           InterpretationBox["", 
             Root[1 - # + 2 #^4& , 3, 0]], "head" -> "Root", "big" -> RowBox[{
              RowBox[{"1", "-", "#1", "+", 
                RowBox[{"2", " ", 
                  SuperscriptBox["#1", "4"]}]}], "&"}], "degree" -> "4", 
           "shortDegree" -> "4", "number" -> 3|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )], ",", 
         TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"0.607\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], ShowStringCharacters -> False], 
               0.60683556279976502700890250707743689418`16.025828107895983, 
               Editable -> False], "+", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"0.403\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 0.40281855835075430771752280634245835245`15.847866554606872, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
           Complex[0.606835562799765, 0.4028185583507543], "interp" -> 
           InterpretationBox["", 
             Root[1 - # + 2 #^4& , 4, 0]], "head" -> "Root", "big" -> RowBox[{
              RowBox[{"1", "-", "#1", "+", 
                RowBox[{"2", " ", 
                  SuperscriptBox["#1", "4"]}]}], "&"}], "degree" -> "4", 
           "shortDegree" -> "4", "number" -> 4|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )]}], "}"}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"]}], "}"}]], "Output",
 CellChangeTimes->{{3.932200786265045*^9, 3.9322009299780617`*^9}, {
  3.9322009920866795`*^9, 3.932201067321108*^9}, {3.932201108727356*^9, 
  3.9322011779385777`*^9}},
 CellLabel->
  "Out[624]=",ExpressionUUID->"d82cc32a-df4d-c14f-8780-89ba79289695"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0005171`", ",", 
   TagBox[GridBox[{
      {
       RowBox[{"{", "}"}]},
      {
       RowBox[{"{", 
        FractionBox["2", "3"], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{
         FractionBox["2", 
          SqrtBox["3"]], ",", 
         RowBox[{"-", 
          FractionBox["2", 
           SqrtBox["3"]]}]}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{
         TemplateBox[<|"icon" -> "Root", "small" -> InterpretationBox[
             StyleBox[
              TemplateBox[{"\"-1.32\"", 
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEExpressions", "NumericalApproximationElider"]]}, 
               "RowDefault"], ShowStringCharacters -> 
              False], -1.32471795724474605826515016815392300487`15.\
954589770191003, Editable -> False], "approx" -> -1.324717957244746, "interp" -> 
           InterpretationBox["", 
             Root[1 - # + #^3& , 1, 0]], "head" -> "Root", "big" -> RowBox[{
              RowBox[{"1", "-", "#1", "+", 
                SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
           "shortDegree" -> "3", "number" -> 1|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )], ",", 
         TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"0.662\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], ShowStringCharacters -> False], 
               0.66235897862237302913257508407696150243`15.987259907522022, 
               Editable -> False], "-", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"0.562\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 0.56227951206230120106965841841883957386`15.916118739030756, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
           Complex[0.662358978622373, -0.5622795120623012], "interp" -> 
           InterpretationBox["", 
             Root[1 - # + #^3& , 2, 0]], "head" -> "Root", "big" -> RowBox[{
              RowBox[{"1", "-", "#1", "+", 
                SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
           "shortDegree" -> "3", "number" -> 2|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )], ",", 
         TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"0.662\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], ShowStringCharacters -> False], 
               0.66235897862237302913257508407696150243`15.987259907522022, 
               Editable -> False], "+", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"0.562\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 0.56227951206230120106965841841883957386`15.916118739030756, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
           Complex[0.662358978622373, 0.5622795120623012], "interp" -> 
           InterpretationBox["", 
             Root[1 - # + #^3& , 3, 0]], "head" -> "Root", "big" -> RowBox[{
              RowBox[{"1", "-", "#1", "+", 
                SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
           "shortDegree" -> "3", "number" -> 3|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )]}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{
         TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"-0.607\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], ShowStringCharacters -> 
                False], \
-0.60683556279976502700890250707743689418`15.901038474216426, Editable -> 
               False], "-", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"0.758\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 0.75778361661178383901216193407890386879`15.997512661631992, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
           Complex[-0.606835562799765, -0.7577836166117838], "interp" -> 
           InterpretationBox["", 
             Root[1 - # + 2 #^4& , 1, 0]], "head" -> "Root", "big" -> RowBox[{
              RowBox[{"1", "-", "#1", "+", 
                RowBox[{"2", " ", 
                  SuperscriptBox["#1", "4"]}]}], "&"}], "degree" -> "4", 
           "shortDegree" -> "4", "number" -> 1|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )], ",", 
         TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"-0.607\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], ShowStringCharacters -> 
                False], \
-0.60683556279976502700890250707743689418`15.901038474216426, Editable -> 
               False], "+", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"0.758\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 0.75778361661178383901216193407890386879`15.997512661631992, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
           Complex[-0.606835562799765, 0.7577836166117838], "interp" -> 
           InterpretationBox["", 
             Root[1 - # + 2 #^4& , 2, 0]], "head" -> "Root", "big" -> RowBox[{
              RowBox[{"1", "-", "#1", "+", 
                RowBox[{"2", " ", 
                  SuperscriptBox["#1", "4"]}]}], "&"}], "degree" -> "4", 
           "shortDegree" -> "4", "number" -> 2|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )], ",", 
         TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"0.607\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], ShowStringCharacters -> False], 
               0.60683556279976502700890250707743689418`16.025828107895983, 
               Editable -> False], "-", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"0.403\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 0.40281855835075430771752280634245835245`15.847866554606872, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
           Complex[0.606835562799765, -0.4028185583507543], "interp" -> 
           InterpretationBox["", 
             Root[1 - # + 2 #^4& , 3, 0]], "head" -> "Root", "big" -> RowBox[{
              RowBox[{"1", "-", "#1", "+", 
                RowBox[{"2", " ", 
                  SuperscriptBox["#1", "4"]}]}], "&"}], "degree" -> "4", 
           "shortDegree" -> "4", "number" -> 3|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )], ",", 
         TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"0.607\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], ShowStringCharacters -> False], 
               0.60683556279976502700890250707743689418`16.025828107895983, 
               Editable -> False], "+", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"0.403\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 0.40281855835075430771752280634245835245`15.847866554606872, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
           Complex[0.606835562799765, 0.4028185583507543], "interp" -> 
           InterpretationBox["", 
             Root[1 - # + 2 #^4& , 4, 0]], "head" -> "Root", "big" -> RowBox[{
              RowBox[{"1", "-", "#1", "+", 
                RowBox[{"2", " ", 
                  SuperscriptBox["#1", "4"]}]}], "&"}], "degree" -> "4", 
           "shortDegree" -> "4", "number" -> 4|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )]}], "}"}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"]}], "}"}]], "Output",
 CellChangeTimes->{{3.932200786265045*^9, 3.9322009299780617`*^9}, {
  3.9322009920866795`*^9, 3.932201067321108*^9}, {3.932201108727356*^9, 
  3.932201177980564*^9}},
 CellLabel->
  "Out[625]=",ExpressionUUID->"5e8aa0f7-9380-2b4b-a986-7e90e18a90ec"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["PolynomialRootApproximant    \:591a\:9879\:5f0f\:6839\:8fd1\:4f3c", \
"Subsection",
 CellChangeTimes->{{3.914535746977701*^9, 
  3.9145357705355434`*^9}},ExpressionUUID->"fccebfb5-9dfe-6a4f-9844-\
f94c40211569"],

Cell["PolynomialRootApproximant[poly,x] \:8fd4\:56de poly \:7684\:6839\:8fd1\
\:4f3c.", "Text",
 CellChangeTimes->{{3.898605205249858*^9, 3.898605215800286*^9}, {
   3.898609581153407*^9, 3.898609599232883*^9}, 3.898609855989557*^9, {
   3.898610211152465*^9, 3.898610320232235*^9}, {3.89861092954615*^9, 
   3.8986109402660465`*^9}, {3.9145373939703484`*^9, 
   3.9145373941642494`*^9}, {3.9145376776246796`*^9, 3.9145376897933426`*^9}, 
   3.9321994784661465`*^9},ExpressionUUID->"49846e15-01eb-0f4b-b70a-\
94969f243489"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Clear", "[", "PolynomialRootApproximant", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Attributes", "@", "PolynomialRootApproximant"}], "=", 
    RowBox[{"{", "Listable", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"PolynomialRootApproximant", "[", 
      RowBox[{"poly_", ",", "x_Symbol"}], "]"}], "/;", 
     RowBox[{"PolynomialQ", "[", 
      RowBox[{"poly", ",", "x"}], "]"}]}], ":=", 
    RowBox[{"FromDigits", "[", 
     RowBox[{
      RowBox[{"RootApproximant", "/@", 
       RowBox[{"Reverse", "@", 
        RowBox[{"CoefficientList", "[", 
         RowBox[{"poly", ",", "x"}], "]"}]}]}], ",", "x"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PolynomialRootApproximant", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      InterpretationBox[
       DynamicModuleBox[{Typeset`open = False}, 
        TemplateBox[{"Expression", 
          RowBox[{"Real", "[", 
            DynamicBox[
             FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], 
            "]"}], 
          GridBox[{{
             RowBox[{
               TagBox["\"Byte count: \"", "IconizedLabel"], 
               "\[InvisibleSpace]", 
               TagBox["136", "IconizedItem"]}]}}, 
           GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
           "Column", 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
          Dynamic[Typeset`open]},
         "IconizedObject"]],
       12.\
483941188055107971999046060215190298070701454108984223898066629335007360384240\
3768400343526743627915530741297725467`94.85237999515779,
       SelectWithContents->True,
       Selectable->False], ",", 
      InterpretationBox[
       DynamicModuleBox[{Typeset`open = False}, 
        TemplateBox[{"Expression", 
          RowBox[{"Plus", "[", 
            DynamicBox[
             FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], 
            "]"}], 
          GridBox[{{
             RowBox[{
               TagBox["\"Byte count: \"", "IconizedLabel"], 
               "\[InvisibleSpace]", 
               TagBox["888", "IconizedItem"]}]}}, 
           GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
           "Column", 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
          Dynamic[Typeset`open]},
         "IconizedObject"]],
       0.000445118340937564316180999294679609853265905694618407012976021484356\
1697710836980353795023409035727841522219923812`94.58000822841214 + 
       0.031347189326856089383908974909207455348634763375991930890111330923582\
3869905837499332870757330334211854150054127592`94.65250687328087 \
$CellContext`x + 
       0.336587278251656088337740136033768575457837597700764240354803023116745\
5184808257798028720862212793023106416430504819`94.65773124633928 \
$CellContext`x^2 + 1.`94.66049314400742 $CellContext`x^3,
       SelectWithContents->True,
       Selectable->False], ",", 
      StyleBox[
       InterpretationBox[
        DynamicModuleBox[{Typeset`open = False}, 
         TemplateBox[{"Expression", 
           RowBox[{"Plus", "[", 
             DynamicBox[
              FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], 
             "]"}], 
           GridBox[{{
              RowBox[{
                TagBox["\"Byte count: \"", "IconizedLabel"], 
                "\[InvisibleSpace]", 
                TagBox["608", "IconizedItem"]}]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
            "Column", 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
           Dynamic[Typeset`open]},
          "IconizedObject"]],
        0.\
065948323572034933772224752518850152821773791119414768801692351630576959128659\
9463361129043540128113481383205426679`95.15774671459718 + 
        1.`95.20456715049112 $CellContext`x - 
        0.15844319526240245845293533817032889748345127401442805810150966378058\
6719858557240199135153126834`82.72581141179751 + 
        0``82.43377197117319 $CellContext`x,
        SelectWithContents->True,
        Selectable->False],
       FontSlant->"Italic"]}], 
     StyleBox["}",
      FontSlant->"Italic"]}], ",", "x"}], "]"}], "//", 
  "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.9145357887047176`*^9, 3.914535951580147*^9}, 
   3.9145371115943356`*^9, {3.914537460133259*^9, 3.9145375552136135`*^9}, {
   3.9145379421261597`*^9, 3.9145379456418858`*^9}, {3.9321843311022415`*^9, 
   3.932184376498148*^9}, {3.9321905962641544`*^9, 3.9321906281661034`*^9}, {
   3.932191406345354*^9, 3.93219141839233*^9}, {3.9321914791015816`*^9, 
   3.932191606075922*^9}, {3.942364404269287*^9, 
   3.9423644108962116`*^9}},ExpressionUUID->"2b34e293-549c-7b46-b10e-\
553e84fc1439"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0300574`", ",", 
   RowBox[{"{", 
    RowBox[{
     TemplateBox[<|"icon" -> "Root", "small" -> InterpretationBox[
         StyleBox[
          TemplateBox[{"\"12.5\"", 
            DynamicBox[
             FEPrivate`FrontEndResource[
             "FEExpressions", "NumericalApproximationElider"]]}, 
           "RowDefault"], ShowStringCharacters -> False], 
         12.48394118805510721870177803793922066689`15.954589770191003, 
         Editable -> False], "approx" -> 12.483941188055107`, "interp" -> 
       InterpretationBox["", 
         Root[-6075 - 405 #^2 - 153 #^4 + #^6& , 2, 0]], "head" -> "Root", 
       "big" -> RowBox[{
          RowBox[{
            RowBox[{"-", "6075"}], "-", 
            RowBox[{"405", " ", 
              SuperscriptBox["#1", "2"]}], "-", 
            RowBox[{"153", " ", 
              SuperscriptBox["#1", "4"]}], "+", 
            SuperscriptBox["#1", "6"]}], "&"}], "degree" -> "6", 
       "shortDegree" -> "6", "number" -> 2|>,
      "NumericalApproximationInterp",
      InterpretationFunction->(Slot["interp"]& )], ",", 
     RowBox[{
      RowBox[{
       SuperscriptBox["x", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"x", "+", 
         TemplateBox[<|"icon" -> "Root", "small" -> InterpretationBox[
             StyleBox[
              TemplateBox[{"\"0.337\"", 
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEExpressions", "NumericalApproximationElider"]]}, 
               "RowDefault"], ShowStringCharacters -> False], 
             0.33658727825165607461244121623167302459`15.954589770191003, 
             Editable -> False], "approx" -> 0.3365872782516561, "interp" -> 
           InterpretationBox["", 
             Root[-7 + 9 # + 30 #^2 + 15 #^3& , 1, 0]], "head" -> "Root", 
           "big" -> RowBox[{
              RowBox[{
                RowBox[{"-", "7"}], "+", 
                RowBox[{"9", " ", "#1"}], "+", 
                RowBox[{"30", " ", 
                  SuperscriptBox["#1", "2"]}], "+", 
                RowBox[{"15", " ", 
                  SuperscriptBox["#1", "3"]}]}], "&"}], "degree" -> "3", 
           "shortDegree" -> "3", "number" -> 1|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )]}], ")"}]}], "+", 
      RowBox[{"x", " ", 
       TemplateBox[<|"icon" -> "Root", "small" -> InterpretationBox[
           StyleBox[
            TemplateBox[{"\"0.0313\"", 
              DynamicBox[
               FEPrivate`FrontEndResource[
               "FEExpressions", "NumericalApproximationElider"]]}, 
             "RowDefault"], ShowStringCharacters -> False], 
           0.03134718932685608833166313047513540369`15.954589770191003, 
           Editable -> False], "approx" -> 0.03134718932685609, "interp" -> 
         InterpretationBox["", 
           Root[-1 + 36 # - 135 #^2 + 135 #^3& , 1, 0]], "head" -> "Root", 
         "big" -> RowBox[{
            RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{"36", " ", "#1"}], "-", 
              RowBox[{"135", " ", 
                SuperscriptBox["#1", "2"]}], "+", 
              RowBox[{"135", " ", 
                SuperscriptBox["#1", "3"]}]}], "&"}], "degree" -> "3", 
         "shortDegree" -> "3", "number" -> 1|>,
        "NumericalApproximationInterp",
        InterpretationFunction->(Slot["interp"]& )]}], "+", 
      TemplateBox[<|"icon" -> "Root", "small" -> InterpretationBox[
          StyleBox[
           TemplateBox[{"\"4.45\"", 
             DynamicBox[
              FEPrivate`FrontEndResource[
              "FEExpressions", "NumericalApproximationElider"]], 
             "\"\[ThinSpace]\[Times]\[ThinSpace]\"", 
             
             TemplateBox[{"\"10\"", "\"-4\""}, "Superscript", SyntaxForm -> 
              SuperscriptBox]}, "RowDefault"], ShowStringCharacters -> False],
           0.00044511834093756430259097855994809834`15.954589770191003, 
          Editable -> False], "approx" -> 0.0004451183409375643, "interp" -> 
        InterpretationBox["", 
          Root[-1 + 2214 # + 72900 #^2 + 729000 #^3& , 1, 0]], "head" -> 
        "Root", "big" -> RowBox[{
           RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"2214", " ", "#1"}], "+", 
             RowBox[{"72900", " ", 
               SuperscriptBox["#1", "2"]}], "+", 
             RowBox[{"729000", " ", 
               SuperscriptBox["#1", "3"]}]}], "&"}], "degree" -> "3", 
        "shortDegree" -> "3", "number" -> 1|>,
       "NumericalApproximationInterp",
       InterpretationFunction->(Slot["interp"]& )]}], ",", 
     RowBox[{"x", "+", 
      TemplateBox[<|"icon" -> "Root", "small" -> InterpretationBox[
          StyleBox[
           TemplateBox[{"\"-0.0925\"", 
             DynamicBox[
              FEPrivate`FrontEndResource[
              "FEExpressions", "NumericalApproximationElider"]]}, 
            "RowDefault"], ShowStringCharacters -> 
           False], -0.09249487169036751943451690749498084188`15.\
954589770191003, Editable -> False], "approx" -> -0.09249487169036752, 
        "interp" -> InterpretationBox["", 
          Root[8 + 108 # + 270 #^2 + 405 #^3& , 1, 0]], "head" -> "Root", 
        "big" -> RowBox[{
           RowBox[{"8", "+", 
             RowBox[{"108", " ", "#1"}], "+", 
             RowBox[{"270", " ", 
               SuperscriptBox["#1", "2"]}], "+", 
             RowBox[{"405", " ", 
               SuperscriptBox["#1", "3"]}]}], "&"}], "degree" -> "3", 
        "shortDegree" -> "3", "number" -> 1|>,
       "NumericalApproximationInterp",
       InterpretationFunction->(Slot["interp"]& )]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.914535922205036*^9, 3.914535924333168*^9}, 
   3.914536397094923*^9, {3.914536506798567*^9, 3.9145365164753246`*^9}, {
   3.914537547349676*^9, 3.914537557580652*^9}, 3.914537945980669*^9, 
   3.9321841299369564`*^9, 3.9321843379088745`*^9, {3.932184371726343*^9, 
   3.9321843768407173`*^9}, 3.9321906115573177`*^9, {3.932191410343071*^9, 
   3.932191419684948*^9}, 3.932191479829485*^9, 3.9321915712942295`*^9, 
   3.932191606549383*^9},
 CellLabel->
  "Out[1722]=",ExpressionUUID->"9caaa6fe-95e2-294c-808f-24d466296a41"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["ComplexFactor    \:590d\:56e0\:5f0f\:5206\:89e3", "Subsection",
 CellChangeTimes->{{3.898604816906971*^9, 
  3.8986048345730267`*^9}},ExpressionUUID->"e87325a8-6798-604c-9a32-\
34085113c871"],

Cell["\<\
ComplexFactor[poly] \:7ed9\:51fa poly \:5728\:590d\:6570\:57df\:4e0a\:7684\
\:56e0\:5f0f\:5206\:89e3.
ComplexFactor[poly,x] \:7ed9\:51fa poly \:5173\:4e8e x \:5728\:590d\:6570\
\:57df\:4e0a\:7684\:56e0\:5f0f\:5206\:89e3.\
\>", "Text",
 CellChangeTimes->{{3.898610787854246*^9, 3.898610803040274*^9}, {
   3.898610964667065*^9, 3.898610999140039*^9}, {3.9321907679468975`*^9, 
   3.9321907840149384`*^9}, 
   3.9321999104865017`*^9},ExpressionUUID->"cc913d44-d711-7840-9717-\
3f50b82e51a5"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "ComplexFactor", "]"}], ";"}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Attributes", "[", "ComplexFactor", "]"}], "=", 
   RowBox[{"{", "Listable", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "[", "ComplexFactor", "]"}], "=", 
    RowBox[{"Options", "@", "PolynomialRoots"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ComplexFactor", "[", 
     RowBox[{"poly_", ",", "x_Symbol", ",", 
      RowBox[{"opts", ":", 
       RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], "/;", 
    RowBox[{"PolynomialQ", "[", 
     RowBox[{"poly", ",", "x"}], "]"}]}], ":=", 
   RowBox[{
    RowBox[{"FirstCoefficient", "[", 
     RowBox[{"poly", ",", "x"}], "]"}], 
    RowBox[{"Times", "@@", 
     RowBox[{"(", 
      RowBox[{"x", "-", 
       RowBox[{"PolynomialRoots", "[", 
        RowBox[{"poly", ",", "x", ",", 
         RowBox[{"PassOptions", "[", 
          RowBox[{"ComplexFactor", ",", "PolynomialRoots", ",", "opts"}], 
          "]"}]}], "]"}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ComplexFactor", "[", 
     RowBox[{"poly_", ",", 
      RowBox[{"opts", ":", 
       RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
    RowBox[{"ComplexFactor", "[", 
     RowBox[{"poly", ",", 
      RowBox[{"ExpressionPivot", "@", "poly"}], ",", "opts"}], "]"}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ComplexFactor", "[", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{
      RowBox[{"2", "x"}], "-", "1"}], ",", 
     RowBox[{
      RowBox[{"3", 
       SuperscriptBox["x", "2"]}], "-", "4"}], ",", 
     RowBox[{
      SuperscriptBox["x", "3"], "-", "x", "+", "1"}], ",", 
     RowBox[{
      RowBox[{"2", 
       SuperscriptBox["x", "4"]}], "-", "x", "+", "1"}]}], "}"}], "]"}], "//",
   "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.898604865165099*^9, 3.898604924309112*^9}, {
   3.898605373655982*^9, 3.898605394045826*^9}, {3.898608998435964*^9, 
   3.898609030777879*^9}, {3.898609155675285*^9, 3.898609157902894*^9}, {
   3.8986092488892183`*^9, 3.898609250728361*^9}, {3.898609437482335*^9, 
   3.898609537326913*^9}, {3.8986110973909254`*^9, 3.898611125862608*^9}, {
   3.8986112517930098`*^9, 3.8986112602345657`*^9}, {3.898611386032428*^9, 
   3.898611388290675*^9}, 3.898611462413424*^9, 3.89861159594948*^9, {
   3.8986117166395936`*^9, 3.8986117491008224`*^9}, {3.8986118272745743`*^9, 
   3.898611841061808*^9}, {3.8986118827227592`*^9, 3.8986118834262333`*^9}, {
   3.898611954883365*^9, 3.898611967648917*^9}, 3.914537111619156*^9, {
   3.914537818853098*^9, 3.914537885054224*^9}, {3.914537992362934*^9, 
   3.9145379971884136`*^9}, {3.9321902081194*^9, 3.932190286368229*^9}, {
   3.942364404330141*^9, 
   3.9423644109173756`*^9}},ExpressionUUID->"118129e1-f86c-b94f-85aa-\
741a45c1b7a0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0007641`", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], "+", "x"}], ")"}]}], ",", 
     RowBox[{"3", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["2", 
          SqrtBox["3"]]}], "+", "x"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox["2", 
         SqrtBox["3"]], "+", "x"}], ")"}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x", "-", 
        TemplateBox[<|"icon" -> "Root", "small" -> InterpretationBox[
            StyleBox[
             TemplateBox[{"\"-1.32\"", 
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEExpressions", "NumericalApproximationElider"]]}, 
              "RowDefault"], ShowStringCharacters -> 
             False], -1.32471795724474605826515016815392300487`15.\
954589770191003, Editable -> False], "approx" -> -1.324717957244746, "interp" -> 
          InterpretationBox["", 
            Root[1 - # + #^3& , 1, 0]], "head" -> "Root", "big" -> RowBox[{
             RowBox[{"1", "-", "#1", "+", 
               SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
          "shortDegree" -> "3", "number" -> 1|>,
         "NumericalApproximationInterp",
         InterpretationFunction->(Slot["interp"]& )]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"x", "-", 
        TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
             InterpretationBox[
              StyleBox[
               TemplateBox[{"\"0.662\"", 
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEExpressions", "NumericalApproximationElider"]]}, 
                "RowDefault"], ShowStringCharacters -> False], 
              0.66235897862237302913257508407696150243`15.987259907522022, 
              Editable -> False], "-", 
             RowBox[{
               InterpretationBox[
                StyleBox[
                 TemplateBox[{"\"0.562\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], ShowStringCharacters -> False], 
                0.56227951206230120106965841841883957386`15.916118739030756, 
                Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
          Complex[0.662358978622373, -0.5622795120623012], "interp" -> 
          InterpretationBox["", 
            Root[1 - # + #^3& , 2, 0]], "head" -> "Root", "big" -> RowBox[{
             RowBox[{"1", "-", "#1", "+", 
               SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
          "shortDegree" -> "3", "number" -> 2|>,
         "NumericalApproximationInterp",
         InterpretationFunction->(Slot["interp"]& )]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"x", "-", 
        TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
             InterpretationBox[
              StyleBox[
               TemplateBox[{"\"0.662\"", 
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEExpressions", "NumericalApproximationElider"]]}, 
                "RowDefault"], ShowStringCharacters -> False], 
              0.66235897862237302913257508407696150243`15.987259907522022, 
              Editable -> False], "+", 
             RowBox[{
               InterpretationBox[
                StyleBox[
                 TemplateBox[{"\"0.562\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], ShowStringCharacters -> False], 
                0.56227951206230120106965841841883957386`15.916118739030756, 
                Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
          Complex[0.662358978622373, 0.5622795120623012], "interp" -> 
          InterpretationBox["", 
            Root[1 - # + #^3& , 3, 0]], "head" -> "Root", "big" -> RowBox[{
             RowBox[{"1", "-", "#1", "+", 
               SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
          "shortDegree" -> "3", "number" -> 3|>,
         "NumericalApproximationInterp",
         InterpretationFunction->(Slot["interp"]& )]}], ")"}]}], ",", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"x", "-", 
        TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
             InterpretationBox[
              StyleBox[
               TemplateBox[{"\"-0.607\"", 
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEExpressions", "NumericalApproximationElider"]]}, 
                "RowDefault"], ShowStringCharacters -> 
               False], \
-0.60683556279976502700890250707743689418`15.901038474216426, Editable -> 
              False], "-", 
             RowBox[{
               InterpretationBox[
                StyleBox[
                 TemplateBox[{"\"0.758\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], ShowStringCharacters -> False], 
                0.75778361661178383901216193407890386879`15.997512661631992, 
                Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
          Complex[-0.606835562799765, -0.7577836166117838], "interp" -> 
          InterpretationBox["", 
            Root[1 - # + 2 #^4& , 1, 0]], "head" -> "Root", "big" -> RowBox[{
             RowBox[{"1", "-", "#1", "+", 
               RowBox[{"2", " ", 
                 SuperscriptBox["#1", "4"]}]}], "&"}], "degree" -> "4", 
          "shortDegree" -> "4", "number" -> 1|>,
         "NumericalApproximationInterp",
         InterpretationFunction->(Slot["interp"]& )]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"x", "-", 
        TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
             InterpretationBox[
              StyleBox[
               TemplateBox[{"\"-0.607\"", 
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEExpressions", "NumericalApproximationElider"]]}, 
                "RowDefault"], ShowStringCharacters -> 
               False], \
-0.60683556279976502700890250707743689418`15.901038474216426, Editable -> 
              False], "+", 
             RowBox[{
               InterpretationBox[
                StyleBox[
                 TemplateBox[{"\"0.758\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], ShowStringCharacters -> False], 
                0.75778361661178383901216193407890386879`15.997512661631992, 
                Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
          Complex[-0.606835562799765, 0.7577836166117838], "interp" -> 
          InterpretationBox["", 
            Root[1 - # + 2 #^4& , 2, 0]], "head" -> "Root", "big" -> RowBox[{
             RowBox[{"1", "-", "#1", "+", 
               RowBox[{"2", " ", 
                 SuperscriptBox["#1", "4"]}]}], "&"}], "degree" -> "4", 
          "shortDegree" -> "4", "number" -> 2|>,
         "NumericalApproximationInterp",
         InterpretationFunction->(Slot["interp"]& )]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"x", "-", 
        TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
             InterpretationBox[
              StyleBox[
               TemplateBox[{"\"0.607\"", 
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEExpressions", "NumericalApproximationElider"]]}, 
                "RowDefault"], ShowStringCharacters -> False], 
              0.60683556279976502700890250707743689418`16.025828107895983, 
              Editable -> False], "-", 
             RowBox[{
               InterpretationBox[
                StyleBox[
                 TemplateBox[{"\"0.403\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], ShowStringCharacters -> False], 
                0.40281855835075430771752280634245835245`15.847866554606872, 
                Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
          Complex[0.606835562799765, -0.4028185583507543], "interp" -> 
          InterpretationBox["", 
            Root[1 - # + 2 #^4& , 3, 0]], "head" -> "Root", "big" -> RowBox[{
             RowBox[{"1", "-", "#1", "+", 
               RowBox[{"2", " ", 
                 SuperscriptBox["#1", "4"]}]}], "&"}], "degree" -> "4", 
          "shortDegree" -> "4", "number" -> 3|>,
         "NumericalApproximationInterp",
         InterpretationFunction->(Slot["interp"]& )]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"x", "-", 
        TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
             InterpretationBox[
              StyleBox[
               TemplateBox[{"\"0.607\"", 
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEExpressions", "NumericalApproximationElider"]]}, 
                "RowDefault"], ShowStringCharacters -> False], 
              0.60683556279976502700890250707743689418`16.025828107895983, 
              Editable -> False], "+", 
             RowBox[{
               InterpretationBox[
                StyleBox[
                 TemplateBox[{"\"0.403\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], ShowStringCharacters -> False], 
                0.40281855835075430771752280634245835245`15.847866554606872, 
                Editable -> False], " ", "\[ImaginaryI]"}]}], "approx" -> 
          Complex[0.606835562799765, 0.4028185583507543], "interp" -> 
          InterpretationBox["", 
            Root[1 - # + 2 #^4& , 4, 0]], "head" -> "Root", "big" -> RowBox[{
             RowBox[{"1", "-", "#1", "+", 
               RowBox[{"2", " ", 
                 SuperscriptBox["#1", "4"]}]}], "&"}], "degree" -> "4", 
          "shortDegree" -> "4", "number" -> 4|>,
         "NumericalApproximationInterp",
         InterpretationFunction->(Slot["interp"]& )]}], ")"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.898609526808798*^9, 3.898609538462851*^9}, {
   3.8986111124769297`*^9, 3.898611126212865*^9}, 3.89861118105873*^9, {
   3.8986112617198944`*^9, 3.898611269721369*^9}, {3.898611386506959*^9, 
   3.898611388615155*^9}, 3.898611531172167*^9, {3.898611712920952*^9, 
   3.898611751865917*^9}, {3.898611829320823*^9, 3.898611844037788*^9}, 
   3.89861188415468*^9, {3.898611961900858*^9, 3.898611969374792*^9}, 
   3.9145378033360844`*^9, {3.914537844600699*^9, 3.914537885339989*^9}, {
   3.932190276639778*^9, 3.9321902866293926`*^9}, 3.932199912319599*^9},
 CellLabel->
  "Out[128]=",ExpressionUUID->"43268a64-701c-ac41-8d92-f6eabc5c5c0e"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["RealFactor    \:5b9e\:56e0\:5f0f\:5206\:89e3", "Subsection",
 CellChangeTimes->{
  3.8812491058477163`*^9, {3.89845581960238*^9, 
   3.8984558277944374`*^9}},ExpressionUUID->"11e84cdc-6ae0-4d8f-ad5f-\
74b77672d2dc"],

Cell["\<\
RealFactor[poly] \:7ed9\:51fa poly \:5728\:5b9e\:6570\:57df\:4e0a\:7684\:56e0\
\:5f0f\:5206\:89e3.
RealFactor[poly,x] \:7ed9\:51fa poly \:5173\:4e8e x \:5728\:5b9e\:6570\:57df\
\:4e0a\:7684\:56e0\:5f0f\:5206\:89e3.\
\>", "Text",
 CellChangeTimes->{{3.898457079617493*^9, 3.8984571107143126`*^9}, {
   3.898611034385233*^9, 3.898611060840535*^9}, {3.898612454151267*^9, 
   3.898612466684787*^9}, {3.9321908892908688`*^9, 3.932190896498783*^9}, {
   3.932192502295595*^9, 3.9321925111397724`*^9}, 
   3.932199926839134*^9},ExpressionUUID->"45d043f4-4bc8-46d2-9b60-\
6acd2ac2db15"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "RealFactor", "]"}], ";"}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Attributes", "[", "RealFactor", "]"}], "=", 
   RowBox[{"{", "Listable", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "[", "RealFactor", "]"}], "=", 
    RowBox[{"{", 
     RowBox[{"WorkingPrecision", "->", "100"}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RealFactor", "[", 
     RowBox[{"poly_", ",", "x_Symbol", ",", 
      RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], "/;", 
    RowBox[{"PolynomialQ", "[", 
     RowBox[{"poly", ",", "x"}], "]"}]}], ":=", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FirstCoefficient", "[", 
     RowBox[{"poly", ",", "x"}], "]"}], 
    RowBox[{"Product", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ToRadicals", "@", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"r", "\[Element]", 
          TemplateBox[{},
           "Reals"]}], ",", "\[IndentingNewLine]", 
         RowBox[{"x", "-", "r"}], ",", "\[IndentingNewLine]", 
         RowBox[{"PolynomialRootApproximant", "[", 
          RowBox[{
           RowBox[{"N", "[", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"x", "-", 
                 RowBox[{"Re", "@", "r"}]}], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"Im", "@", "r"}], ")"}], "2"]}], ",", 
             RowBox[{"OptionValue", "@", "WorkingPrecision"}]}], "]"}], ",", 
           "x"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], 
      "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", 
        RowBox[{"DeleteDuplicates", "[", 
         RowBox[{
          RowBox[{"PolynomialRoots", "[", 
           RowBox[{"poly", ",", "x"}], "]"}], ",", 
          RowBox[{
           RowBox[{"N", "[", 
            RowBox[{
             RowBox[{"#1", "\[Conjugate]"}], "==", "#2"}], "]"}], "&"}]}], 
         "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RealFactor", "[", 
     RowBox[{"poly_", ",", 
      RowBox[{"opts", ":", 
       RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
    RowBox[{"RealFactor", "[", 
     RowBox[{"poly", ",", 
      RowBox[{"ExpressionPivot", "@", "poly"}], ",", "opts"}], "]"}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RealFactor", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"x", "-", "1"}], ",", 
      RowBox[{
       SuperscriptBox["x", "2"], "+", "1"}], ",", 
      RowBox[{
       SuperscriptBox["x", "2"], "-", "1"}], ",", 
      RowBox[{
       SuperscriptBox["x", "4"], "-", 
       SuperscriptBox["x", "2"], "+", "x", "-", "1"}], ",", 
      RowBox[{
       SuperscriptBox["x", "4"], "+", "1"}], ",", 
      RowBox[{
       SuperscriptBox["x", "5"], "-", "1"}]}], "}"}], "]"}], "//", "Column"}],
   "//", "TimingTest"}]}], "Input",
 CellChangeTimes->{
  3.88125804916836*^9, {3.881263966627664*^9, 3.881263969261916*^9}, 
   3.8812640734317923`*^9, {3.881264231738807*^9, 3.881264285878508*^9}, {
   3.8812643224956493`*^9, 3.8812643747459936`*^9}, {3.881264541201019*^9, 
   3.8812645532896304`*^9}, {3.881264600726385*^9, 3.8812646645781*^9}, {
   3.8812654068297634`*^9, 3.881265480569794*^9}, {3.881265515385543*^9, 
   3.8812656484654913`*^9}, {3.881265684440327*^9, 3.8812657084259996`*^9}, {
   3.8812657541001334`*^9, 3.881265820418854*^9}, {3.8812658768175325`*^9, 
   3.881265881414009*^9}, {3.8812659535759387`*^9, 3.881266019278482*^9}, {
   3.881266087025168*^9, 3.88126632127344*^9}, 3.881266361799769*^9, {
   3.8812667388641176`*^9, 3.881266840807033*^9}, {3.8812669414644504`*^9, 
   3.881266952569973*^9}, {3.8812670371818304`*^9, 3.881267338967295*^9}, {
   3.8812673760999093`*^9, 3.8812674060054393`*^9}, {3.8812674786771097`*^9, 
   3.88126758441547*^9}, {3.8813888028648195`*^9, 3.881388804774721*^9}, {
   3.882188264243808*^9, 3.882188264427428*^9}, {3.8822008519990673`*^9, 
   3.882200875569429*^9}, {3.8890622700363526`*^9, 3.889062280935091*^9}, {
   3.889063406169979*^9, 3.889063556769661*^9}, {3.889064390693195*^9, 
   3.889064440554367*^9}, {3.889067113605857*^9, 3.8890671237570043`*^9}, 
   3.889067172800167*^9, {3.889067259580683*^9, 3.889067330322604*^9}, {
   3.889067367207037*^9, 3.889067387381624*^9}, {3.889067442035415*^9, 
   3.889067469204762*^9}, {3.889068415022001*^9, 3.889068544281705*^9}, {
   3.889068587627345*^9, 3.889068629185186*^9}, {3.889068780231544*^9, 
   3.889068789160838*^9}, {3.889069643192693*^9, 3.889069741981399*^9}, {
   3.8890698602418704`*^9, 3.889069867443205*^9}, {3.8890700155417075`*^9, 
   3.889070192332999*^9}, {3.889070226030993*^9, 3.889070267033826*^9}, {
   3.88907031461058*^9, 3.8890703306473455`*^9}, {3.8890703747003484`*^9, 
   3.8890704668172913`*^9}, {3.8890705393665533`*^9, 
   3.8890706275687304`*^9}, {3.889070787525052*^9, 3.889070795944261*^9}, {
   3.889070827656369*^9, 3.88907086774119*^9}, {3.8890709153327303`*^9, 
   3.889071043488144*^9}, {3.889071284711914*^9, 3.889071543592747*^9}, {
   3.889071589413921*^9, 3.889071589563225*^9}, {3.889071971731643*^9, 
   3.889072000978933*^9}, {3.889072066333835*^9, 3.889072080233167*^9}, {
   3.889072740583477*^9, 3.889072878573455*^9}, {3.889072935041707*^9, 
   3.889072983479392*^9}, {3.889073671626507*^9, 3.8890736750053225`*^9}, {
   3.8890740869936304`*^9, 3.889074097085428*^9}, {3.8975845118336697`*^9, 
   3.897584513047879*^9}, {3.898408641317769*^9, 3.898408643304124*^9}, {
   3.8984562989564633`*^9, 3.898456349364777*^9}, {3.898456411377298*^9, 
   3.898456441796262*^9}, {3.898456480400753*^9, 3.898456481931044*^9}, {
   3.898456533368931*^9, 3.8984565598259387`*^9}, 3.898456630115763*^9, {
   3.8984567180398703`*^9, 3.898456827756834*^9}, {3.8984569586219893`*^9, 
   3.898456961572149*^9}, {3.898604522094077*^9, 3.8986046720465145`*^9}, 
   3.898604724763163*^9, {3.8986091613361664`*^9, 3.898609163111808*^9}, {
   3.898612435051508*^9, 3.898612441659677*^9}, {3.8986124797280846`*^9, 
   3.898612503726074*^9}, {3.898612544429895*^9, 3.898612549838505*^9}, 
   3.898613624057979*^9, 3.9145371116282425`*^9, {3.9145381199575443`*^9, 
   3.9145381225347977`*^9}, {3.9321909034796257`*^9, 
   3.9321909505056057`*^9}, {3.9321912701106777`*^9, 
   3.9321912825338135`*^9}, {3.9321916398653164`*^9, 
   3.9321916460281696`*^9}, {3.9321916780582314`*^9, 
   3.9321917128633633`*^9}, {3.932192168227913*^9, 3.932192175675625*^9}, {
   3.9321922093392105`*^9, 3.932192226694618*^9}, {3.932192280321768*^9, 
   3.932192305500717*^9}, {3.932192345170725*^9, 3.9321924509788494`*^9}, {
   3.9423644043623505`*^9, 
   3.9423644109256744`*^9}},ExpressionUUID->"4c9516ba-7077-4b96-8726-\
f5628ebd60bf"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0405524`", ",", 
   TagBox[GridBox[{
      {"1"},
      {
       RowBox[{
        RowBox[{"-", "1"}], "+", "x"}]},
      {
       RowBox[{"1", "+", 
        SuperscriptBox["x", "2"]}]},
      {
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "x"}], ")"}]}]},
      {
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["1", "3"], " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["2", 
                RowBox[{"29", "-", 
                 RowBox[{"3", " ", 
                  SqrtBox["93"]}]}]], ")"}], 
              RowBox[{"1", "/", "3"}]], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                FractionBox["1", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{"29", "-", 
                  RowBox[{"3", " ", 
                   SqrtBox["93"]}]}], ")"}]}], ")"}], 
              RowBox[{"1", "/", "3"}]]}], ")"}]}], "+", "x"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox["2", 
              RowBox[{"3", " ", 
               RowBox[{"(", 
                RowBox[{"9", "+", 
                 SqrtBox["93"]}], ")"}]}]], ")"}], 
            RowBox[{"1", "/", "3"}]]}], "+", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"9", "+", 
                SqrtBox["93"]}], ")"}]}], ")"}], 
            RowBox[{"1", "/", "3"}]], 
           SuperscriptBox["3", 
            RowBox[{"2", "/", "3"}]]], "+", 
          RowBox[{
           FractionBox["1", "3"], " ", 
           RowBox[{"(", 
            RowBox[{"2", "-", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["2", 
                RowBox[{"29", "-", 
                 RowBox[{"3", " ", 
                  SqrtBox["93"]}]}]], ")"}], 
              RowBox[{"1", "/", "3"}]], "-", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                FractionBox["1", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{"29", "-", 
                  RowBox[{"3", " ", 
                   SqrtBox["93"]}]}], ")"}]}], ")"}], 
              RowBox[{"1", "/", "3"}]]}], ")"}], " ", "x"}], "+", 
          SuperscriptBox["x", "2"]}], ")"}]}]},
      {
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           SqrtBox["2"], " ", "x"}], "+", 
          SuperscriptBox["x", "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           SqrtBox["2"], " ", "x"}], "+", 
          SuperscriptBox["x", "2"]}], ")"}]}]},
      {
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SqrtBox["5"]}], ")"}], " ", "x"}], "+", 
          SuperscriptBox["x", "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             SqrtBox["5"]}], ")"}], " ", "x"}], "+", 
          SuperscriptBox["x", "2"]}], ")"}]}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8890706438581524`*^9, 3.889070797534304*^9, {3.8890708340388527`*^9, 
   3.889070868233267*^9}, {3.889070915850756*^9, 3.889070964838138*^9}, {
   3.889070996889553*^9, 3.8890710329881725`*^9}, 3.8890712924997516`*^9, {
   3.889071460363001*^9, 3.8890714864727182`*^9}, {3.8890715226589894`*^9, 
   3.889071543868573*^9}, 3.889071589850163*^9, 3.889071940954754*^9, {
   3.8890719762681513`*^9, 3.8890720014376287`*^9}, {3.889072862923274*^9, 
   3.889072884239982*^9}, {3.889072938378009*^9, 3.889072983849284*^9}, 
   3.8890736767645307`*^9, 3.8977664605354853`*^9, 3.8980637447514076`*^9, 
   3.8981563887028203`*^9, 3.898435159246595*^9, 3.89845630667093*^9, {
   3.898456341567235*^9, 3.8984563496671333`*^9}, {3.8984564721001377`*^9, 
   3.898456482415823*^9}, {3.898456562665985*^9, 3.8984565674409385`*^9}, 
   3.898456631271831*^9, {3.898456722667754*^9, 3.8984567547317944`*^9}, 
   3.8984568393985286`*^9, {3.898456959531179*^9, 3.8984569622012863`*^9}, {
   3.898604526857566*^9, 3.8986045330537834`*^9}, {3.8986046133130836`*^9, 
   3.898604677313448*^9}, {3.898612482452852*^9, 3.8986125044396524`*^9}, {
   3.8986125459462595`*^9, 3.898612554053082*^9}, 3.898612589089037*^9, 
   3.898613624928063*^9, {3.914538110322754*^9, 3.9145381230000553`*^9}, {
   3.9321912603861065`*^9, 3.932191283388237*^9}, {3.932191641708996*^9, 
   3.9321916465293617`*^9}, {3.9321917073512917`*^9, 3.932191713299343*^9}, 
   3.932192176427143*^9, 3.9321922750595455`*^9, {3.932192353282837*^9, 
   3.9321924583974*^9}, 3.9321999281396847`*^9},
 CellLabel->
  "Out[140]=",ExpressionUUID->"7881fbc4-274e-ef40-b842-7e533fafaaf9"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:521d\:7b49\:51fd\:6570", "Section",
 CellChangeTimes->{{3.9448956363754826`*^9, 
  3.94489564279249*^9}},ExpressionUUID->"782d7b61-ef12-7845-a871-\
5fa6318890ea"],

Cell[CellGroupData[{

Cell["PolynomialFit    \:591a\:9879\:5f0f\:62df\:5408", "Subsection",
 CellChangeTimes->{{3.9145592204973927`*^9, 
  3.9145592258893414`*^9}},ExpressionUUID->"12956945-d433-c040-97c1-\
e568369ed165"],

Cell["PolynomialFit[expr,x,n] \:7ed9\:51fa expr \:7684 n \:6b21\:591a\:9879\
\:5f0f\:8fd1\:4f3c.", "Text",
 CellChangeTimes->{3.9321995472483273`*^9, 
  3.9321996915270176`*^9},ExpressionUUID->"fd382a6b-a082-ce4b-8577-\
117d8242aa58"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "PolynomialFit", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "@", "PolynomialFit"}], "=", 
    RowBox[{"{", 
     RowBox[{"InterpolatingFunction", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"RandomReal", "[", 
         RowBox[{"#", ",", 
          RowBox[{"WorkingPrecision", "->", "100"}]}], "]"}], "&"}], ")"}]}], 
     "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"PolynomialFit", "[", 
     RowBox[{"expr_", ",", "x_Symbol", ",", "n_Integer", ",", 
      RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"func", "=", 
        RowBox[{"OptionValue", "@", "InterpolatingFunction"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"InterpolatingPolynomial", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"#", ",", 
              RowBox[{"expr", "/.", 
               RowBox[{"x", "->", "#"}]}]}], "}"}], "&"}], "@", 
           RowBox[{"func", "@", "i"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], ",", "x"}], "]"}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PolynomialFit", "[", 
   RowBox[{
    InterpretationBox[
     DynamicModuleBox[{Typeset`open = False}, 
      TemplateBox[{"Expression", 
        RowBox[{"Plus", "[", 
          DynamicBox[
           FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], "]"}], 
        GridBox[{{
           RowBox[{
             TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", 
             TagBox["3352", "IconizedItem"]}]}}, 
         GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
         "Column", 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
        Dynamic[Typeset`open]},
       "IconizedObject"]],
     Sqrt[(-1.\
424393793409390353427560252118466127655876294923948384706896962329389767818205\
5765058930143822501391706888575283855`98.8616477717563 - 
        6.07874936309953703673899027809882359535398891666330080074477618639125\
57916514633380934566468811399031536693618508851`99.34451296352941 
        I) $CellContext`x^4] + (1/$CellContext`x^2) (
       0.126583831347109765609009224173833955912733273498095606116112430108201\
8973962819431060381450553047503939767784167368`98.66103012035872 - 
       0.143384177499060352747495610439037663726770451290378488276295680266379\
3694099468259038896875014593581088789647013074`98.84987441488302 I) 
      Sqrt[(-1.424393793409390353427560252118466127655876294923948384706896962\
3293897678182055765058930143822501391706888575283855`98.8616477717563 - 
         6.0787493630995370367389902780988235953539889166633008007447761863912\
557916514633380934566468811399031536693618508851`99.34451296352941 
         I) $CellContext`x^4] - (1/$CellContext`x) (
      0.6353194773398105772827576917574592113180319032906747357765553357430842\
79676082916733379590933633245481251661253907`99.45899536623044 - 
      0.0831879008572506827482387609833103049314327147977523420245821491725562\
432749498730441086414617837981003804417366339`98.816390827316 I) 
     Sqrt[(-1.4243937934093903534275602521184661276558762949239483847068969623\
293897678182055765058930143822501391706888575283855`98.8616477717563 - 
        6.07874936309953703673899027809882359535398891666330080074477618639125\
57916514633380934566468811399031536693618508851`99.34451296352941 
        I) $CellContext`x^4],
     SelectWithContents->True,
     Selectable->False], ",", "x", ",", "2"}], "]"}], "//", 
  "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.914559228623974*^9, 3.91455935621237*^9}, {
   3.914559404340658*^9, 3.914559561169567*^9}, 3.93219066393849*^9, {
   3.9321907224195976`*^9, 3.93219072472892*^9}, 3.932191457324196*^9, {
   3.9423644042922153`*^9, 
   3.942364410900543*^9}},ExpressionUUID->"2e60b2ee-3c0d-7748-bc71-\
ba2644f5c87d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0002797`", ",", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
     "2.1572827889329658586267965929657600599161661074676013657206114629189404\
154247097091994485127555123391793003444688857`98.36192385397804", "-", 
      RowBox[{
      "2.797447343817686878341116079747853315081198760527279353452630971606241\
3567040508274136541504842347711692541935072306`98.65997668650147", " ", 
       "\[ImaginaryI]"}]}], ")"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
        "2.6104100664356574506243998001335450879093912495371979358538391256643\
533531349188776276713432076670579227405760322216`98.16420308673206", "-", 
         RowBox[{
         "2.958204757171303197138332996510619073834470858754135748059745122072\
854633337724325699318233775293718731637164103699`98.36947604675436", " ", 
          "\[ImaginaryI]"}]}], ")"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
         "1.552258040032393834873985506668830502207272915092220714302098092866\
1948958974799784451406640704371947637805714830564`97.03991907026604", "-", 
          RowBox[{
          "1.95803442672865155491316915776210707124441905112026038560710654858\
01134962190007827088721014800149674408272543104585`97.26247373857386", " ", 
           "\[ImaginaryI]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
          "-", "0.716276720328793673053541127032102896969903673430174638786158\
3397665101757415949144621250753833190808276581284477872`100."}], "+", "x"}], 
         ")"}]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
       "-", "1.495794321215376689006759968572297627193008407963860880014235388\
7243124767792112737981394875633470037579934846251787`100."}], "+", "x"}], 
      ")"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.91455941043399*^9, {3.9145594510561924`*^9, 3.914559519177002*^9}, {
   3.914559555708763*^9, 3.914559570386315*^9}, 3.9147875515834045`*^9, 
   3.932190665952507*^9, {3.9321907252362785`*^9, 3.9321907284270325`*^9}, 
   3.9321995439959927`*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"31021f6b-f0bb-8a4c-ac46-c3ab1b9db83c"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["ApartArcTan    \:53cd\:6b63\:5207\:88c2\:9879", "Subsection",
 CellChangeTimes->{
  3.881249089104958*^9, {3.8984496436993237`*^9, 3.89844964401038*^9}, {
   3.898449778344522*^9, 3.898449778789234*^9}, 
   3.898456229222272*^9},ExpressionUUID->"87fd259e-20f9-4879-89a8-\
14ec4ecb826d"],

Cell["\<\
ApartArcTan[expr] \:7ed9\:51fa arctan(expr) \:7684\:88c2\:9879.
ApartArcTan[expr,x] \:7ed9\:51fa arctan(expr) \:5173\:4e8e x \:7684\:88c2\
\:9879.\
\>", "Text",
 CellChangeTimes->{{3.8984427947813187`*^9, 3.8984428039300127`*^9}, {
   3.898449320477874*^9, 3.898449511399264*^9}, 3.898449643208919*^9, {
   3.898449782755608*^9, 3.898449873480669*^9}, {3.898456107036669*^9, 
   3.898456166088855*^9}, {3.898602973344524*^9, 3.898602999732847*^9}, 
   3.8986044011689577`*^9, {3.898610629119703*^9, 3.898610725903079*^9}, {
   3.8986108082801795`*^9, 3.898610882029927*^9}, 3.9321998936664486`*^9, 
   3.9322016565829735`*^9},ExpressionUUID->"5845632a-3731-4183-8e5b-\
02ff3fb9decf"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "ApartArcTan", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Attributes", "[", "ApartArcTan", "]"}], "=", 
   RowBox[{"{", "Listable", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "[", "ApartArcTan", "]"}], "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"GenerateConstant", "\[Rule]", "True"}], ",", 
      RowBox[{"SimplifyFunction", "\[Rule]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Simplify", "@", 
          RowBox[{"FunctionExpand", "@", 
           RowBox[{"ComplexExpand", "@", 
            RowBox[{"ToRadicals", "@", "#"}]}]}]}], "&"}], ")"}]}]}], "}"}]}],
    ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ApartArcTan", "[", 
     RowBox[{"expr_", ",", "x_Symbol", ",", 
      RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], "/;", 
    RowBox[{"RationalExpressionQ", "[", 
     RowBox[{"expr", ",", "x"}], "]"}]}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"result", ",", "re", ",", "im", ",", 
       RowBox[{"count", "=", "0"}], ",", "poles", ",", "sample", ",", 
       RowBox[{"c", "=", 
        RowBox[{"{", "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"result", "=", 
       RowBox[{"Sum", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"re", ",", "im"}], "}"}], "=", 
           RowBox[{"ReIm", "@", "r"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"count", "+=", 
           RowBox[{"Sign", "@", "im"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"ArcTan", "@", 
           RowBox[{
            RowBox[{"OptionValue", "[", "SimplifyFunction", "]"}], "@", 
            FractionBox[
             RowBox[{"x", "-", "re"}], "im"]}]}]}], "\[IndentingNewLine]", 
         ",", 
         RowBox[{"{", 
          RowBox[{"r", ",", 
           RowBox[{"PolynomialRoots", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"#1", "-", 
                 RowBox[{"#2", "I"}]}], "&"}], ")"}], "@@", 
              RowBox[{"NumeratorDenominator", "@", 
               RowBox[{"Together", "@", "expr"}]}]}], ",", "x"}], "]"}]}], 
          "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"OptionValue", "@", "GenerateConstant"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"result", "+=", 
          RowBox[{
           RowBox[{"Block", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"nd", ",", "deg", ",", "ratio"}], "}"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"nd", "=", 
               RowBox[{"NumeratorDenominator", "@", 
                RowBox[{"Together", "@", "expr"}]}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"deg", "=", 
               RowBox[{"Exponent", "[", 
                RowBox[{"nd", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Subtract", "@@", "deg"}], "<", "0"}], ",", 
                "\[IndentingNewLine]", "0", ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"ratio", "=", 
                  RowBox[{"Divide", "@@", 
                   RowBox[{"Coefficient", "[", 
                    RowBox[{"nd", ",", "x", ",", "deg"}], "]"}]}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Subtract", "@@", "deg"}], ">", "0"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"Sign", "@", "ratio"}], 
                    FractionBox["\[Pi]", "2"]}], ",", "\[IndentingNewLine]", 
                   RowBox[{"ArcTan", "@", "ratio"}]}], "\[IndentingNewLine]", 
                  "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], 
            "\[IndentingNewLine]", "]"}], "-", 
           RowBox[{"count", " ", 
            FractionBox["\[Pi]", "2"]}]}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"poles", "=", 
          RowBox[{"DeleteDuplicates", "@", 
           RowBox[{"SolveValues", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Denominator", "@", 
               RowBox[{"Together", "@", "expr"}]}], "==", "0"}], ",", "x", 
             ",", "Reals"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Length", "@", "poles"}], "=!=", "0"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"sample", "=", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  FractionBox["1", "2"], 
                  RowBox[{"Table", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "+", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", 
                    RowBox[{
                    RowBox[{"Length", "@", "#"}], "-", "1"}]}], "}"}]}], 
                   "]"}]}], "&"}], "@", 
                RowBox[{"Prepend", "[", 
                 RowBox[{"#", ",", 
                  RowBox[{
                   RowBox[{"First", "@", "#"}], "-", "1"}]}], "]"}]}], "&"}], 
              "@", 
              RowBox[{"N", "@", "poles"}]}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"c", "=", 
             RowBox[{"\[Pi]", " ", 
              RowBox[{"Round", "[", 
               RowBox[{
                FractionBox["1", "\[Pi]"], 
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"ArcTan", "@", "expr"}], "-", "result"}], "/.", 
                   RowBox[{"x", "->", "i"}]}], ",", 
                  RowBox[{"{", 
                   RowBox[{"i", ",", "sample"}], "}"}]}], "]"}]}], "]"}]}]}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"result", "+=", 
             RowBox[{"Piecewise", "@", 
              RowBox[{"Prepend", "[", 
               RowBox[{
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"c", "\[LeftDoubleBracket]", 
                    RowBox[{"i", "+", "1"}], "\[RightDoubleBracket]"}], ",", 
                    RowBox[{
                    RowBox[{
                    "poles", "\[LeftDoubleBracket]", "i", 
                    "\[RightDoubleBracket]"}], "<", "x", "<", 
                    RowBox[{"poles", "\[LeftDoubleBracket]", 
                    RowBox[{"i", "+", "1"}], "\[RightDoubleBracket]"}]}]}], 
                   "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"i", ",", 
                    RowBox[{
                    RowBox[{"Length", "@", "poles"}], "-", "1"}]}], "}"}]}], 
                 "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"First", "@", "c"}], ",", 
                  RowBox[{"x", "<", 
                   RowBox[{"First", "@", "poles"}]}]}], "}"}]}], 
               "]"}]}]}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "result"}]}],
     "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ApartArcTan", "[", 
     RowBox[{"expr_", ",", 
      RowBox[{"opts", ":", 
       RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
    RowBox[{"ApartArcTan", "[", 
     RowBox[{"expr", ",", 
      RowBox[{"ExpressionPivot", "@", "expr"}], ",", "opts"}], "]"}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ApartArcTan", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "x", ",", 
      FractionBox["1", "x"], ",", 
      FractionBox[
       RowBox[{"2", "x"}], 
       RowBox[{"1", "-", 
        SuperscriptBox["x", "2"]}]], ",", 
      RowBox[{
       SuperscriptBox["x", "2"], "+", "1"}], ",", 
      FractionBox[
       RowBox[{"x", "+", 
        SqrtBox["2"]}], 
       RowBox[{"1", "-", 
        RowBox[{
         SqrtBox["2"], "x"}]}]], ",", 
      RowBox[{"x", "+", 
       FractionBox["1", "x"]}], ",", 
      FractionBox[
       SuperscriptBox["x", "2"], 
       RowBox[{
        SuperscriptBox["x", "4"], "-", "1"}]]}], "}"}], "]"}], "//", 
   "Column"}], "//", "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.881257993759953*^9, 3.881258045455429*^9}, {
   3.881258091123928*^9, 3.881258100033128*^9}, {3.881258400107002*^9, 
   3.88125848916411*^9}, 3.881258529716839*^9, {3.881258654392509*^9, 
   3.881258656763394*^9}, {3.8812587169615717`*^9, 3.881258751283495*^9}, {
   3.881258915069893*^9, 3.881259002964484*^9}, {3.881259102315869*^9, 
   3.881259106912133*^9}, {3.881259256232505*^9, 3.881259263718057*^9}, {
   3.881260942875499*^9, 3.8812609745674343`*^9}, {3.881261018392753*^9, 
   3.8812610442157116`*^9}, {3.881261083960019*^9, 3.8812612191590977`*^9}, {
   3.881261252393591*^9, 3.881261329037558*^9}, {3.8812613846207304`*^9, 
   3.881261408295324*^9}, {3.881261442822*^9, 3.881261442881712*^9}, {
   3.881263409387904*^9, 3.881263469837472*^9}, {3.88126353175771*^9, 
   3.881263535004662*^9}, {3.88126358216722*^9, 3.88126371509764*^9}, {
   3.881264007939382*^9, 3.881264008934537*^9}, {3.882200625076586*^9, 
   3.882200633522716*^9}, {3.8822008204125423`*^9, 3.882200846872743*^9}, {
   3.882200882118849*^9, 3.882200882775738*^9}, {3.889062190097275*^9, 
   3.8890622143260984`*^9}, {3.889062410071129*^9, 3.889062417400947*^9}, {
   3.889062494430724*^9, 3.8890625160054226`*^9}, {3.889062555743532*^9, 
   3.88906268127707*^9}, {3.889062761978705*^9, 3.889062780167351*^9}, {
   3.889062896028719*^9, 3.889062933833395*^9}, {3.8890631712916107`*^9, 
   3.8890631812766867`*^9}, {3.8890736824513035`*^9, 3.889073696021425*^9}, {
   3.897583404760146*^9, 3.8975834087558613`*^9}, {3.8975835163350306`*^9, 
   3.897583527201682*^9}, {3.8975836278065615`*^9, 3.897583627911426*^9}, 
   3.897583932177535*^9, {3.8975866600051374`*^9, 3.8975866624844613`*^9}, {
   3.897586758262362*^9, 3.897586767592475*^9}, {3.897586799700352*^9, 
   3.897586804563266*^9}, {3.89758685139884*^9, 3.897586865512621*^9}, {
   3.897586918595043*^9, 3.897586930192625*^9}, {3.897587237853155*^9, 
   3.8975872395821495`*^9}, {3.897587343805595*^9, 3.897587354904534*^9}, {
   3.897587466099987*^9, 3.897587498027273*^9}, {3.8975875426054807`*^9, 
   3.897587547994625*^9}, 3.898160385385048*^9, 3.898162799379886*^9, {
   3.8981628357554765`*^9, 3.898162930798507*^9}, {3.898163093910692*^9, 
   3.898163102986673*^9}, {3.898408479580517*^9, 3.8984084798299923`*^9}, {
   3.898408582652209*^9, 3.898408616387203*^9}, {3.898408688232993*^9, 
   3.898408786400687*^9}, {3.898408824635039*^9, 3.898408853073087*^9}, {
   3.898408982557528*^9, 3.898408997091161*^9}, {3.898409030021353*^9, 
   3.898409117089473*^9}, {3.89840951350434*^9, 3.898409529309238*^9}, {
   3.8984095612724385`*^9, 3.898409565797784*^9}, {3.898409603313352*^9, 
   3.8984096571925535`*^9}, 3.898409706446331*^9, {3.8984097493114653`*^9, 
   3.898409749447327*^9}, {3.898409976737854*^9, 3.898409981545915*^9}, {
   3.898410015224176*^9, 3.89841002681489*^9}, {3.898410179360048*^9, 
   3.898410221064786*^9}, {3.898410331109733*^9, 3.898410334803043*^9}, {
   3.898410897624749*^9, 3.8984109003653975`*^9}, {3.898435463332395*^9, 
   3.898435496760579*^9}, {3.8984355606089487`*^9, 3.898435564533117*^9}, {
   3.898436538314063*^9, 3.8984365949115305`*^9}, {3.898438816402205*^9, 
   3.8984388169175425`*^9}, {3.898438887203629*^9, 3.8984389561375303`*^9}, {
   3.898438991066738*^9, 3.898439016601549*^9}, 3.898441074148475*^9, {
   3.8984411200236816`*^9, 3.898441197763802*^9}, {3.898442944454067*^9, 
   3.898442948659996*^9}, {3.898442987835167*^9, 3.898442992846354*^9}, {
   3.8984430875084977`*^9, 3.8984433296296983`*^9}, {3.898443379870369*^9, 
   3.898443380513747*^9}, {3.8984434186743584`*^9, 3.898443453643227*^9}, {
   3.8984435788969684`*^9, 3.898443583470984*^9}, {3.8984437873423805`*^9, 
   3.898443794414955*^9}, {3.898446849360094*^9, 3.8984468928510385`*^9}, {
   3.898446974576357*^9, 3.898446976708641*^9}, {3.8984472266767907`*^9, 
   3.898447292980917*^9}, {3.8984473265663223`*^9, 3.898447383768875*^9}, {
   3.898447495968282*^9, 3.8984475714740987`*^9}, {3.898447659734433*^9, 
   3.898447660623749*^9}, {3.898447692720178*^9, 3.898447769317479*^9}, {
   3.898448011472704*^9, 3.8984483086969585`*^9}, {3.898448399894761*^9, 
   3.898448445601508*^9}, 3.8984484902286*^9, {3.898448693204485*^9, 
   3.8984488474977674`*^9}, {3.8984489435167637`*^9, 3.898448955114136*^9}, {
   3.8984491241198997`*^9, 3.898449245149298*^9}, {3.898450076511947*^9, 
   3.898450079513454*^9}, {3.898450403208544*^9, 3.8984505202692466`*^9}, {
   3.8984506148887405`*^9, 3.898450737077148*^9}, {3.898450767916012*^9, 
   3.89845088974694*^9}, {3.8984509464039536`*^9, 3.898450978547871*^9}, {
   3.89845102027868*^9, 3.898451052733392*^9}, {3.898451097216816*^9, 
   3.8984513408761797`*^9}, {3.8984513879869204`*^9, 3.898451484559097*^9}, {
   3.898451646008719*^9, 3.898451647582388*^9}, {3.898451733804116*^9, 
   3.898451774106515*^9}, 3.898451808321065*^9, {3.898451890546953*^9, 
   3.89845189112783*^9}, {3.898452585441124*^9, 3.89845264211676*^9}, 
   3.898452683422353*^9, {3.8984527576532965`*^9, 3.89845281745876*^9}, {
   3.898453095469536*^9, 3.898453116493117*^9}, {3.898453170730898*^9, 
   3.8984532430859027`*^9}, {3.898453300488767*^9, 3.898453324927494*^9}, {
   3.898453499223437*^9, 3.898453501242918*^9}, {3.898453657519343*^9, 
   3.898453671908953*^9}, 3.8984537137724233`*^9, {3.89845377977864*^9, 
   3.898453989759285*^9}, {3.898454020495248*^9, 3.8984540386926117`*^9}, {
   3.8984543430599937`*^9, 3.89845434469975*^9}, {3.8984545650585427`*^9, 
   3.8984545718802366`*^9}, 3.8984551199329123`*^9, {3.898455260592061*^9, 
   3.898455263468303*^9}, {3.89845535134346*^9, 3.898455382603821*^9}, {
   3.898455440981534*^9, 3.898455453168501*^9}, {3.8984565713929815`*^9, 
   3.898456573667703*^9}, {3.89845661214672*^9, 3.8984566188841667`*^9}, 
   3.8985887655904093`*^9, {3.898602899047623*^9, 3.898602919673361*^9}, 
   3.89860302224016*^9, {3.8986030528551474`*^9, 3.898603057085066*^9}, {
   3.898603693284999*^9, 3.898603729546206*^9}, {3.8986037808763847`*^9, 
   3.898603785254048*^9}, {3.898603815593438*^9, 3.898603820869196*^9}, {
   3.898603862048247*^9, 3.898603898655267*^9}, {3.8986039320416365`*^9, 
   3.898603936192954*^9}, {3.8986091418759437`*^9, 3.8986091438954463`*^9}, 
   3.898611910733864*^9, {3.914536732133383*^9, 3.914536790305361*^9}, {
   3.914536854254154*^9, 3.91453700798201*^9}, {3.9145376007634377`*^9, 
   3.9145376026907196`*^9}, {3.9145377459180818`*^9, 3.914537765134112*^9}, {
   3.91453788818866*^9, 3.914537890536913*^9}, {3.9322004003050404`*^9, 
   3.932200447560646*^9}, {3.9322004782506905`*^9, 3.9322005216089077`*^9}, {
   3.932200583244684*^9, 3.932200602541033*^9}, {3.9322012094046974`*^9, 
   3.9322012200675335`*^9}, {3.932201284740423*^9, 3.9322013383427467`*^9}, {
   3.9322013791804104`*^9, 3.9322015445684586`*^9}, {3.932201666001812*^9, 
   3.9322017033539753`*^9}, {3.9423644043251286`*^9, 
   3.942364410916376*^9}},ExpressionUUID->"c6911c1f-5536-4bac-aab2-\
4c6f9b5462be"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0590477`", ",", 
   TagBox[GridBox[{
      {
       FractionBox["\[Pi]", "4"]},
      {
       RowBox[{"ArcTan", "[", "x", "]"}]},
      {
       RowBox[{
        FractionBox["\[Pi]", "2"], "-", 
        RowBox[{"ArcTan", "[", "x", "]"}], "+", 
        RowBox[{"(", 
         TagBox[GridBox[{
            {"\[Piecewise]", GridBox[{
               {
                RowBox[{"-", "\[Pi]"}], 
                RowBox[{"x", "<", "0"}]},
               {"0", 
                TagBox["True",
                 "PiecewiseDefault",
                 AutoDelete->True]}
              },
              AllowedDimensions->{2, Automatic},
              Editable->True,
              
              GridBoxAlignment->{
               "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
              GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.84]}, 
                  Offset[0.27999999999999997`]}, "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}},
              Selectable->True]}
           },
           GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
           GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.35]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          "Piecewise",
          DeleteWithContents->True,
          Editable->False,
          SelectWithContents->True,
          Selectable->False,
          StripWrapperBoxes->True], ")"}]}]},
      {
       RowBox[{
        RowBox[{"-", "\[Pi]"}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"ArcTan", "[", "x", "]"}]}], "+", 
        RowBox[{"(", 
         TagBox[GridBox[{
            {"\[Piecewise]", GridBox[{
               {
                RowBox[{"2", " ", "\[Pi]"}], 
                RowBox[{"x", "<", 
                 RowBox[{"-", "1"}]}]},
               {"\[Pi]", 
                RowBox[{
                 RowBox[{"-", "1"}], "<", "x", "<", "1"}]},
               {"0", 
                TagBox["True",
                 "PiecewiseDefault",
                 AutoDelete->True]}
              },
              AllowedDimensions->{2, Automatic},
              Editable->True,
              
              GridBoxAlignment->{
               "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
              GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.84]}, 
                  Offset[0.27999999999999997`]}, "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}},
              Selectable->True]}
           },
           GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
           GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.35]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          "Piecewise",
          DeleteWithContents->True,
          Editable->False,
          SelectWithContents->True,
          Selectable->False,
          StripWrapperBoxes->True], ")"}]}]},
      {
       RowBox[{
        FractionBox["\[Pi]", "2"], "+", 
        RowBox[{"ArcTan", "[", 
         FractionBox[
          RowBox[{
           RowBox[{"-", 
            SqrtBox[
             RowBox[{"2", "-", 
              SqrtBox["2"]}]]}], "-", 
           RowBox[{
            SuperscriptBox["2", 
             RowBox[{"3", "/", "4"}]], " ", "x"}]}], 
          SqrtBox[
           RowBox[{"2", "+", 
            SqrtBox["2"]}]]], "]"}], "+", 
        RowBox[{"ArcTan", "[", 
         FractionBox[
          RowBox[{
           RowBox[{"-", 
            SqrtBox[
             RowBox[{"2", "-", 
              SqrtBox["2"]}]]}], "+", 
           RowBox[{
            SuperscriptBox["2", 
             RowBox[{"3", "/", "4"}]], " ", "x"}]}], 
          SqrtBox[
           RowBox[{"2", "+", 
            SqrtBox["2"]}]]], "]"}]}]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox["\[Pi]", "2"]}], "-", 
        RowBox[{"ArcTan", "[", 
         FractionBox["1", 
          SqrtBox["2"]], "]"}], "+", 
        RowBox[{"ArcTan", "[", "x", "]"}], "+", 
        RowBox[{"(", 
         TagBox[GridBox[{
            {"\[Piecewise]", GridBox[{
               {"\[Pi]", 
                RowBox[{"x", "<", 
                 FractionBox["1", 
                  SqrtBox["2"]]}]},
               {"0", 
                TagBox["True",
                 "PiecewiseDefault",
                 AutoDelete->True]}
              },
              AllowedDimensions->{2, Automatic},
              Editable->True,
              
              GridBoxAlignment->{
               "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
              GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.84]}, 
                  Offset[0.27999999999999997`]}, "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}},
              Selectable->True]}
           },
           GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
           GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.35]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          "Piecewise",
          DeleteWithContents->True,
          Editable->False,
          SelectWithContents->True,
          Selectable->False,
          StripWrapperBoxes->True], ")"}]}]},
      {
       RowBox[{
        FractionBox["\[Pi]", "2"], "-", 
        RowBox[{"ArcTan", "[", 
         FractionBox[
          RowBox[{"2", " ", "x"}], 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SqrtBox["5"]}]], "]"}], "+", 
        RowBox[{"ArcTan", "[", 
         FractionBox[
          RowBox[{"2", " ", "x"}], 
          RowBox[{"1", "+", 
           SqrtBox["5"]}]], "]"}], "+", 
        RowBox[{"(", 
         TagBox[GridBox[{
            {"\[Piecewise]", GridBox[{
               {
                RowBox[{"-", "\[Pi]"}], 
                RowBox[{"x", "<", "0"}]},
               {"0", 
                TagBox["True",
                 "PiecewiseDefault",
                 AutoDelete->True]}
              },
              AllowedDimensions->{2, Automatic},
              Editable->True,
              
              GridBoxAlignment->{
               "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
              GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.84]}, 
                  Offset[0.27999999999999997`]}, "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}},
              Selectable->True]}
           },
           GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
           GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.35]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          "Piecewise",
          DeleteWithContents->True,
          Editable->False,
          SelectWithContents->True,
          Selectable->False,
          StripWrapperBoxes->True], ")"}]}]},
      {
       RowBox[{
        RowBox[{"ArcTan", "[", 
         FractionBox[
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SqrtBox["3"], "-", 
           RowBox[{"2", " ", 
            SqrtBox["2"], " ", "x"}]}], 
          RowBox[{"1", "+", 
           SqrtBox["3"]}]], "]"}], "+", 
        RowBox[{"ArcTan", "[", 
         FractionBox[
          RowBox[{"1", "+", 
           SqrtBox["3"], "-", 
           RowBox[{"2", " ", 
            SqrtBox["2"], " ", "x"}]}], 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SqrtBox["3"]}]], "]"}], "+", 
        RowBox[{"ArcTan", "[", 
         FractionBox[
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SqrtBox["3"], "+", 
           RowBox[{"2", " ", 
            SqrtBox["2"], " ", "x"}]}], 
          RowBox[{"1", "+", 
           SqrtBox["3"]}]], "]"}], "+", 
        RowBox[{"ArcTan", "[", 
         FractionBox[
          RowBox[{"1", "+", 
           SqrtBox["3"], "+", 
           RowBox[{"2", " ", 
            SqrtBox["2"], " ", "x"}]}], 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SqrtBox["3"]}]], "]"}], "+", 
        RowBox[{"(", 
         TagBox[GridBox[{
            {"\[Piecewise]", GridBox[{
               {"0", 
                RowBox[{"x", "<", 
                 RowBox[{"-", "1"}]}]},
               {
                RowBox[{"-", "\[Pi]"}], 
                RowBox[{
                 RowBox[{"-", "1"}], "<", "x", "<", "1"}]},
               {"0", 
                TagBox["True",
                 "PiecewiseDefault",
                 AutoDelete->True]}
              },
              AllowedDimensions->{2, Automatic},
              Editable->True,
              
              GridBoxAlignment->{
               "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
              GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.84]}, 
                  Offset[0.27999999999999997`]}, "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}},
              Selectable->True]}
           },
           GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
           GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.35]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          "Piecewise",
          DeleteWithContents->True,
          Editable->False,
          SelectWithContents->True,
          Selectable->False,
          StripWrapperBoxes->True], ")"}]}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"]}], "}"}]], "Output",
 CellChangeTimes->{{3.9145369451455345`*^9, 3.914536976723414*^9}, 
   3.9145370124186*^9, {3.9145377473844576`*^9, 3.914537765965054*^9}, 
   3.914537891015007*^9, 3.9147894445614014`*^9, {3.9321998983257236`*^9, 
   3.932199902909956*^9}, {3.9322003951589527`*^9, 3.9322004484820194`*^9}, 
   3.932200523792225*^9, {3.9322005901376934`*^9, 3.9322006034746*^9}, {
   3.932201202503374*^9, 3.932201226493313*^9}, {3.932201417122528*^9, 
   3.9322014409263973`*^9}, {3.932201482216278*^9, 3.9322014852905064`*^9}, {
   3.9322015506521893`*^9, 3.932201552467222*^9}, 3.93220170400387*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"52d3ec8d-751f-b840-bc4d-d0b6ab6ea693"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["ComplexApart    \:590d\:88c2\:9879", "Subsection",
 CellChangeTimes->{{3.898604838382616*^9, 
  3.898604845563075*^9}},ExpressionUUID->"d46b8a7e-87ab-4247-8676-\
f3a683cb67c6"],

Cell["\<\
ComplexApart[expr] \:7ed9\:51fa expr \:5728\:590d\:6570\:57df\:4e0a\:7684\
\:88c2\:9879.
ComplexApart[expr,x] \:7ed9\:51fa expr \:5173\:4e8e x \
\:5728\:590d\:6570\:57df\:4e0a\:7684\:88c2\:9879.\
\>", "Text",
 CellChangeTimes->{{3.898611008786514*^9, 3.898611017272388*^9}, {
   3.932190803134754*^9, 3.9321908169076633`*^9}, 
   3.9321999185385513`*^9},ExpressionUUID->"d406cdce-3bf2-d94c-a62b-\
791526afcaab"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "ComplexApart", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Attributes", "[", "ComplexApart", "]"}], "=", 
   RowBox[{"{", "Listable", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "[", "ComplexApart", "]"}], "=", 
    RowBox[{"Options", "[", "ComplexFactor", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ComplexApart", "[", 
     RowBox[{"expr_", ",", "x_Symbol", ",", 
      RowBox[{"opts", ":", 
       RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], "/;", 
    RowBox[{"RationalExpressionQ", "[", 
     RowBox[{"expr", ",", "x"}], "]"}]}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"Apart", "[", 
      RowBox[{
       RowBox[{"#1", "/", 
        RowBox[{"ComplexFactor", "[", 
         RowBox[{"#2", ",", "x", ",", 
          RowBox[{"PassOptions", "[", 
           RowBox[{"ComplexFactor", ",", "ComplexApart", ",", "opts"}], 
           "]"}]}], "]"}]}], ",", "x"}], "]"}], "&"}], "@@", 
    RowBox[{"NumeratorDenominator", "@", 
     RowBox[{"Together", "@", "expr"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ComplexApart", "[", 
     RowBox[{"poly_", ",", 
      RowBox[{"opts", ":", 
       RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
    RowBox[{"ComplexApart", "[", 
     RowBox[{"poly", ",", 
      RowBox[{"ExpressionPivot", "@", "poly"}], ",", "opts"}], "]"}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ComplexApart", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      FractionBox[
       RowBox[{"x", "+", "2"}], 
       RowBox[{
        RowBox[{"2", "x"}], "-", "1"}]], ",", 
      FractionBox[
       RowBox[{
        RowBox[{"4", 
         SuperscriptBox["x", "4"]}], "+", 
        RowBox[{"2", 
         SuperscriptBox["x", "2"]}], "-", "x", "+", "1"}], 
       RowBox[{
        RowBox[{"3", 
         SuperscriptBox["x", "2"]}], "-", "4"}]], ",", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"x", "+", "1"}], ")"}], "2"], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x", "2"], "+", "1"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", "2"}], ")"}], "2"]}]]}], "}"}], "]"}], "//", 
   "Column"}], "//", "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.89860486851522*^9, 3.8986048692976437`*^9}, {
   3.898611855681092*^9, 3.8986119011654043`*^9}, {3.898611986178097*^9, 
   3.898612128560779*^9}, {3.898612165995791*^9, 3.898612176690178*^9}, 
   3.898612316710346*^9, {3.898612673985699*^9, 3.8986127026768675`*^9}, {
   3.8986128415451393`*^9, 3.898612864001267*^9}, 3.9145371116242237`*^9, {
   3.914538028901699*^9, 3.914538047784275*^9}, {3.9321908227158985`*^9, 
   3.932190844344837*^9}, {3.9321925786257076`*^9, 3.932192581117613*^9}, {
   3.9423644043556175`*^9, 
   3.942364410921673*^9}},ExpressionUUID->"cd63998e-19b8-4044-a6f6-\
8d506e0fe442"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0060195`", ",", 
   TagBox[GridBox[{
      {"1"},
      {
       RowBox[{
        FractionBox["1", "2"], "+", 
        FractionBox["5", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"2", " ", "x"}]}], ")"}]}]]}]},
      {
       RowBox[{
        FractionBox["22", "9"], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"-", "97"}], "+", 
          RowBox[{"6", " ", 
           SqrtBox["3"]}]}], 
         RowBox[{"12", " ", 
          SqrtBox["3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SqrtBox["3"]}], "-", 
            RowBox[{"3", " ", "x"}]}], ")"}]}]], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          SuperscriptBox["x", "2"]}], "3"], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"-", "97"}], "-", 
          RowBox[{"6", " ", 
           SqrtBox["3"]}]}], 
         RowBox[{"12", " ", 
          SqrtBox["3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SqrtBox["3"]}], "+", 
            RowBox[{"3", " ", "x"}]}], ")"}]}]]}]},
      {
       RowBox[{
        FractionBox["9", 
         RowBox[{"50", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", "x"}], ")"}], "2"]}]], "-", 
        FractionBox["21", 
         RowBox[{"125", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", "x"}], ")"}]}]], "+", 
        FractionBox[
         RowBox[{
          FractionBox["1", "25"], "-", 
          FractionBox[
           RowBox[{"3", " ", "\[ImaginaryI]"}], "100"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], "+", "x"}], ")"}], "2"]], "+", 
        FractionBox[
         RowBox[{
          FractionBox["21", "250"], "-", 
          FractionBox[
           RowBox[{"19", " ", "\[ImaginaryI]"}], "500"]}], 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "+", "x"}]], "+", 
        FractionBox[
         RowBox[{
          FractionBox["1", "25"], "+", 
          FractionBox[
           RowBox[{"3", " ", "\[ImaginaryI]"}], "100"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[ImaginaryI]", "+", "x"}], ")"}], "2"]], "+", 
        FractionBox[
         RowBox[{
          FractionBox["21", "250"], "+", 
          FractionBox[
           RowBox[{"19", " ", "\[ImaginaryI]"}], "500"]}], 
         RowBox[{"\[ImaginaryI]", "+", "x"}]]}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.89861189150058*^9, {3.898612053825051*^9, 3.898612072538858*^9}, {
   3.898612113788737*^9, 3.89861212905974*^9}, {3.8986121667419233`*^9, 
   3.898612176977474*^9}, 3.898612317434425*^9, {3.898612678405867*^9, 
   3.8986127067175922`*^9}, {3.898612852672125*^9, 3.89861286452038*^9}, {
   3.9145380309868546`*^9, 3.9145380498109703`*^9}, 3.9321908515658627`*^9, 
   3.932192581888941*^9, 3.932199921755659*^9},
 CellLabel->
  "Out[134]=",ExpressionUUID->"e072198e-bca0-d543-b498-804c7db292ff"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["RealApart    \:5b9e\:88c2\:9879", "Subsection",
 CellChangeTimes->{
  3.881249117933973*^9, {3.8984570613362913`*^9, 
   3.8984570660461025`*^9}},ExpressionUUID->"090ecfcf-eec3-4fc4-a926-\
55581966e032"],

Cell["\<\
RealApart[expr] \:7ed9\:51fa expr \:5728\:5b9e\:6570\:57df\:4e0a\:7684\:88c2\
\:9879.
RealApart[expr,x] \:7ed9\:51fa expr \:5173\:4e8e x \:5728\:5b9e\:6570\:57df\
\:4e0a\:7684\:88c2\:9879.\
\>", "Text",
 CellChangeTimes->{{3.898457079617493*^9, 3.8984571107143126`*^9}, {
   3.898611034385233*^9, 3.898611078283058*^9}, 3.8986124634938774`*^9, {
   3.932192540465122*^9, 3.9321925474844856`*^9}, 
   3.932199935978916*^9},ExpressionUUID->"33776800-7667-4388-b793-\
f59954134244"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "RealApart", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Attributes", "[", "RealApart", "]"}], "=", 
   RowBox[{"{", "Listable", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "[", "RealApart", "]"}], "=", 
    RowBox[{"Options", "[", "RealFactor", "]"}]}], ";"}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RealApart", "[", 
     RowBox[{"expr_", ",", "x_Symbol", ",", 
      RowBox[{"opts", ":", 
       RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], "/;", 
    RowBox[{"RationalExpressionQ", "[", 
     RowBox[{"expr", ",", "x"}], "]"}]}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"Apart", "[", 
      RowBox[{
       RowBox[{"#1", "/", 
        RowBox[{"RealFactor", "[", 
         RowBox[{"#2", ",", "x", ",", 
          RowBox[{"PassOptions", "[", 
           RowBox[{"RealApart", ",", "RealFactor", ",", "opts"}], "]"}]}], 
         "]"}]}], ",", "x"}], "]"}], "&"}], "@@", 
    RowBox[{"NumeratorDenominator", "@", 
     RowBox[{"Together", "@", "expr"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RealApart", "[", 
     RowBox[{"expr_", ",", 
      RowBox[{"opts", ":", 
       RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
    RowBox[{"RealApart", "[", 
     RowBox[{"expr", ",", 
      RowBox[{"ExpressionPivot", "@", "expr"}], ",", "opts"}], "]"}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RealApart", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["x", "4"], "+", "1"}]], ",", 
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["x", "2"], "-", "5"}]], ",", 
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["x", "4"], "+", 
        SuperscriptBox["x", "2"], "-", "1"}]]}], "}"}], "]"}], "//", 
   "Column"}], "//", "TimingTest"}]}], "Input",
 CellChangeTimes->{
  3.8812580521312733`*^9, {3.881263971472271*^9, 3.881263973162546*^9}, {
   3.881264076293928*^9, 3.8812640770577106`*^9}, {3.881267635295848*^9, 
   3.881267740411018*^9}, {3.882200901044587*^9, 3.88220091575585*^9}, {
   3.889071592387395*^9, 3.889071593135217*^9}, {3.889071656958829*^9, 
   3.889071659757134*^9}, {3.898456991693422*^9, 3.898457036531113*^9}, 
   3.89860471262646*^9, {3.898609165972799*^9, 3.898609192592589*^9}, {
   3.898612746769766*^9, 3.89861275081134*^9}, {3.898612790933139*^9, 
   3.898612834289519*^9}, {3.898612872648085*^9, 3.898612895534208*^9}, 
   3.914537111631466*^9, {3.91453812518614*^9, 3.914538127749363*^9}, {
   3.932192555863037*^9, 3.9321925671812935`*^9}, {3.9423644043683376`*^9, 
   3.942364410928234*^9}},ExpressionUUID->"ad4da761-711f-4c1e-b169-\
b98f33f3076e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0331758`", ",", 
   TagBox[GridBox[{
      {"1"},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"-", 
           SqrtBox["2"]}], "+", "x"}], 
         RowBox[{"2", " ", 
          SqrtBox["2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{
             SqrtBox["2"], " ", "x"}], "-", 
            SuperscriptBox["x", "2"]}], ")"}]}]], "+", 
        FractionBox[
         RowBox[{
          SqrtBox["2"], "+", "x"}], 
         RowBox[{"2", " ", 
          SqrtBox["2"], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             SqrtBox["2"], " ", "x"}], "+", 
            SuperscriptBox["x", "2"]}], ")"}]}]]}]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           SqrtBox["5"], " ", 
           RowBox[{"(", 
            RowBox[{
             SqrtBox["5"], "-", "x"}], ")"}]}]]}], "-", 
        FractionBox["1", 
         RowBox[{"2", " ", 
          SqrtBox["5"], " ", 
          RowBox[{"(", 
           RowBox[{
            SqrtBox["5"], "+", "x"}], ")"}]}]]}]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          SqrtBox[
           FractionBox["2", 
            RowBox[{"5", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SqrtBox["5"]}], ")"}]}]]], 
          RowBox[{
           SqrtBox[
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SqrtBox["5"]}], ")"}]}]], "-", 
           RowBox[{"2", " ", "x"}]}]]}], "-", 
        FractionBox[
         SqrtBox[
          FractionBox["2", 
           RowBox[{"5", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SqrtBox["5"]}], ")"}]}]]], 
         RowBox[{
          SqrtBox[
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SqrtBox["5"]}], ")"}]}]], "+", 
          RowBox[{"2", " ", "x"}]}]], "-", 
        FractionBox["2", 
         RowBox[{
          SqrtBox["5"], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            SqrtBox["5"], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["x", "2"]}]}], ")"}]}]]}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.88907299101025*^9, 3.897766460655239*^9, 3.898063744977103*^9, 
   3.8981563889186153`*^9, 3.898435159304714*^9, {3.89845700348069*^9, 
   3.8984570369094744`*^9}, {3.8986046988296223`*^9, 3.898604701333114*^9}, {
   3.898612800673457*^9, 3.898612803577638*^9}, {3.898612869907193*^9, 
   3.898612886702227*^9}, {3.9145381162138824`*^9, 3.9145381281205254`*^9}, 
   3.9321925692255573`*^9, 3.9321999371545944`*^9},
 CellLabel->
  "Out[146]=",ExpressionUUID->"b4ff6da2-e607-e344-b49a-0d281ac8d8e0"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8fde\:5206\:6570", "Section",
 CellChangeTimes->{{3.944895683021572*^9, 
  3.944895683713661*^9}},ExpressionUUID->"9f901911-be34-0746-a3dd-\
51dd11253e2b"],

Cell[CellGroupData[{

Cell["ContinuedFractionExpand    \:8fde\:5206\:6570\:5c55\:5f00", "Subsection",
 CellChangeTimes->{
  3.881249117933973*^9, {3.8984570613362913`*^9, 3.8984570660461025`*^9}, {
   3.913116431041864*^9, 
   3.9131164346039333`*^9}},ExpressionUUID->"c9fcf865-7e89-4349-ba66-\
0de628518a75"],

Cell["ContinuedFractionExpand[f,{x,n}] \:7ed9\:51fa\:51fd\:6570 f \
\:7684\:524d n \:9879\:8fde\:5206\:6570\:5c55\:5f00.", "Text",
 CellChangeTimes->{
  3.9321999445282497`*^9},ExpressionUUID->"92030c75-5c54-4c4f-bda4-\
7d70b4a62180"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "ContinuedFractionExpand", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ContinuedFractionExpand", "[", 
     RowBox[{"f_", ",", 
      RowBox[{"{", 
       RowBox[{"x_Symbol", ",", "n_Integer"}], "}"}]}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", 
        RowBox[{"b", "=", "f"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Quiet", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Table", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"a", "=", 
            RowBox[{"Normal", "@", 
             RowBox[{"Series", "[", 
              RowBox[{"b", ",", 
               RowBox[{"{", 
                RowBox[{"x", ",", "\[Infinity]", ",", "0"}], "}"}]}], 
              "]"}]}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"b", "=", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"b", "-", "a"}]], "//", "FullSimplify"}]}], ";", 
           "\[IndentingNewLine]", "a"}], "\[IndentingNewLine]", ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "n"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
        ",", 
        RowBox[{"Series", "::", "sbyc"}]}], "]"}]}], "\[IndentingNewLine]", 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ContinuedFractionExpand", "[", 
   RowBox[{
    SqrtBox[
     RowBox[{
      SuperscriptBox["x", "4"], "+", 
      RowBox[{"4", 
       SuperscriptBox["x", "3"]}], "-", 
      RowBox[{"6", 
       SuperscriptBox["x", "2"]}], "+", 
      RowBox[{"4", "x"}], "+", "1"}]], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "10"}], "}"}]}], "]"}], "//", 
  "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ContinuedFractionExpand", "[", 
    RowBox[{
     SqrtBox[
      RowBox[{
       SuperscriptBox["x", "8"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["x", "7"]}], "+", 
       RowBox[{"7", " ", 
        SuperscriptBox["x", "6"]}], "+", 
       RowBox[{"6", " ", 
        SuperscriptBox["x", "5"]}], "-", 
       SuperscriptBox["x", "4"], "-", 
       RowBox[{"10", " ", 
        SuperscriptBox["x", "3"]}], "-", 
       RowBox[{"6", " ", 
        SuperscriptBox["x", "2"]}], "+", "1"}]], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "100"}], "}"}]}], "]"}], "//", "Short"}], "//", 
  "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.9131164685107*^9, 3.9131164728911896`*^9}, 
   3.9141258258278637`*^9, {3.914127120122299*^9, 3.914127182551619*^9}, {
   3.914127219397728*^9, 3.9141272197145443`*^9}, {3.9141272966817684`*^9, 
   3.914127364369503*^9}, {3.914502236805876*^9, 3.914502269215719*^9}, {
   3.914502597102211*^9, 3.9145026790565987`*^9}, {3.914537111639139*^9, 
   3.914537111642233*^9}, {3.9145381317947865`*^9, 3.9145381366184044`*^9}, {
   3.942364404377428*^9, 
   3.94236441093322*^9}},ExpressionUUID->"6db2f9e6-15e1-214a-958f-\
1c111a856541"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.2543881`", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "5"}], "+", 
      RowBox[{"2", " ", "x"}], "+", 
      SuperscriptBox["x", "2"]}], ",", 
     RowBox[{
      FractionBox["1", "4"], "+", 
      FractionBox["x", "12"]}], ",", 
     RowBox[{
      RowBox[{"-", "12"}], "-", 
      RowBox[{"6", " ", "x"}]}], ",", 
     RowBox[{
      FractionBox["1", "9"], "+", 
      FractionBox["x", "18"]}], ",", 
     RowBox[{
      RowBox[{"-", "27"}], "-", 
      RowBox[{"9", " ", "x"}]}], ",", 
     RowBox[{
      FractionBox["5", "54"], "-", 
      FractionBox["x", "27"], "-", 
      FractionBox[
       SuperscriptBox["x", "2"], "54"]}], ",", 
     RowBox[{
      RowBox[{"-", "27"}], "-", 
      RowBox[{"9", " ", "x"}]}], ",", 
     RowBox[{
      FractionBox["1", "9"], "+", 
      FractionBox["x", "18"]}], ",", 
     RowBox[{
      RowBox[{"-", "12"}], "-", 
      RowBox[{"6", " ", "x"}]}], ",", 
     RowBox[{
      FractionBox["1", "4"], "+", 
      FractionBox["x", "12"]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.914127177732504*^9, 3.9141271832318573`*^9}, {
   3.914127220439785*^9, 3.914127232620371*^9}, 3.9141272994849243`*^9, 
   3.91412736819741*^9, {3.914502597996147*^9, 3.914502611998628*^9}, 
   3.914502681677412*^9, 3.91453813717346*^9, 3.9321926161613235`*^9, 
   3.932199946651848*^9},
 CellLabel->
  "Out[149]=",ExpressionUUID->"28529a18-267c-3b42-8322-df99ab4d8e8d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.3400128`", ",", 
   TagBox[
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "5"}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["x", "2"]}], "+", 
       SuperscriptBox["x", "3"], "+", 
       SuperscriptBox["x", "4"]}], ",", 
      RowBox[{
       FractionBox["1", "3"], "+", 
       FractionBox["x", "12"], "+", 
       FractionBox[
        SuperscriptBox["x", "2"], "12"]}], ",", 
      RowBox[{"12", "+", 
       RowBox[{"12", " ", "x"}]}], ",", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "18"]}], "+", 
       FractionBox["x", "72"], "-", 
       FractionBox[
        SuperscriptBox["x", "2"], "72"]}], ",", 
      RowBox[{"\[LeftSkeleton]", "92", "\[RightSkeleton]"}], ",", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["10240", "27"]}], "-", 
       FractionBox[
        RowBox[{"10240", " ", "x"}], "27"], "-", 
       FractionBox[
        RowBox[{"4096", " ", 
         SuperscriptBox["x", "2"]}], "27"], "-", 
       FractionBox[
        RowBox[{"2048", " ", 
         SuperscriptBox["x", "3"]}], "27"]}], ",", 
      RowBox[{
       FractionBox["27", "4096"], "-", 
       FractionBox[
        RowBox[{"27", " ", "x"}], "4096"], "-", 
       FractionBox[
        RowBox[{"9", " ", 
         SuperscriptBox["x", "3"]}], "4096"]}], ",", 
      RowBox[{
       FractionBox["2048", "9"], "+", 
       FractionBox[
        RowBox[{"2048", " ", "x"}], "9"]}], ",", 
      FractionBox[
       RowBox[{"3", " ", "x"}], "2048"]}], "}"}],
    Short]}], "}"}]], "Output",
 CellChangeTimes->{{3.914127177732504*^9, 3.9141271832318573`*^9}, {
   3.914127220439785*^9, 3.914127232620371*^9}, 3.9141272994849243`*^9, 
   3.91412736819741*^9, {3.914502597996147*^9, 3.914502611998628*^9}, 
   3.914502681677412*^9, 3.91453813717346*^9, 3.9321926161613235`*^9, 
   3.932199949994217*^9},
 CellLabel->
  "Out[150]=",ExpressionUUID->"57fa54da-9ea0-884b-ab1d-4195f2ea4820"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["ContinuedFractionExpandPeriod    \:8fde\:5206\:6570\:5c55\:5f00\:5468\
\:671f", "Subsection",
 CellChangeTimes->{{3.9145023106472263`*^9, 3.91450242515423*^9}, {
  3.914504051153412*^9, 
  3.9145040530059586`*^9}},ExpressionUUID->"4e08540a-0dea-3842-a8bc-\
f97830c4183e"],

Cell[TextData[{
 "ContinuedFractionExpandPeriod[",
 Cell[BoxData[
  FormBox[
   SqrtBox["r"], TraditionalForm]],ExpressionUUID->
  "c11d57d1-eeb4-dd45-a59f-4cacf4810763"],
 ",x] \:7ed9\:51fa\:51fd\:6570 ",
 Cell[BoxData[
  FormBox[
   SqrtBox["r"], TraditionalForm]],ExpressionUUID->
  "70f31d4d-99b3-a04e-b85b-e5e99cbf021b"],
 " \:7684\:8fde\:5206\:6570\:5c55\:5f00\:6700\:5c0f\:5468\:671f."
}], "Text",
 CellChangeTimes->{{3.932199978612953*^9, 
  3.9322000001863327`*^9}},ExpressionUUID->"535c33c5-bf0e-f64b-b8b7-\
4e44a6d5643e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "ContinuedFractionExpandPeriod", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "@", "ContinuedFractionExpandPeriod"}], "=", 
    RowBox[{"{", 
     RowBox[{"MaxIterations", "->", "100"}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ContinuedFractionExpandPeriod", "::", "lim"}], "=", 
    "\"\<Iteration limit of `1` exceeded.\>\""}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"ContinuedFractionExpandPeriod", "[", 
      RowBox[{
       SqrtBox["rad_"], ",", "x_Symbol", ",", 
       RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], "/;", 
     RowBox[{
      RowBox[{"PolynomialQ", "[", 
       RowBox[{"rad", ",", "x"}], "]"}], "&&", 
      RowBox[{"SquareFreeQ", "[", 
       RowBox[{"rad", ",", "x"}], "]"}]}]}], ":=", "\[IndentingNewLine]", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"lim", "=", 
         RowBox[{"OptionValue", "@", "MaxIterations"}]}], ",", 
        "\[IndentingNewLine]", "r", ",", "n", ",", "a", ",", "b", ",", "c"}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"n", "=", 
        RowBox[{"Exponent", "[", 
         RowBox[{"rad", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"r", "=", 
        RowBox[{"PolynomialReverse", "[", 
         RowBox[{"rad", ",", "x", ",", "n"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"a", ",", "b"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Reap", "[", 
         RowBox[{"Do", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"i", "==", "lim"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Message", "[", 
                RowBox[{
                 RowBox[{"ContinuedFractionExpandPeriod", "::", "lim"}], ",", 
                 "lim"}], "]"}], ";", "\[IndentingNewLine]", 
               RowBox[{"Abort", "[", "]"}]}]}], "\[IndentingNewLine]", "]"}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"c", "=", 
             RowBox[{"Normal", "@", 
              RowBox[{"Series", "[", 
               RowBox[{
                RowBox[{"a", "+", 
                 RowBox[{"b", 
                  SqrtBox["r"]}]}], ",", 
                RowBox[{"{", 
                 RowBox[{"x", ",", "0", ",", 
                  FractionBox["n", "2"]}], "}"}]}], "]"}]}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Head", "@", "c"}], "===", "Piecewise"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"c", "=", 
                RowBox[{"SelectFirst", "[", 
                 RowBox[{
                  RowBox[{"c", "[", 
                   RowBox[{"[", 
                    RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], ",", 
                  RowBox[{"Not", "@*", "PossibleZeroQ"}], ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";"}]}], 
             "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"i", ">", "1"}], "&&", 
               RowBox[{"!", 
                RowBox[{"PossibleZeroQ", "@", 
                 RowBox[{"Coefficient", "[", 
                  RowBox[{"c", ",", "x", ",", "0"}], "]"}]}]}]}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"Break", "[", "]"}], ",", "\[IndentingNewLine]", 
              RowBox[{"Sow", "@", 
               RowBox[{"PolynomialReverse", "[", 
                RowBox[{"c", ",", "x", ",", 
                 FractionBox["n", "2"]}], "]"}]}]}], "\[IndentingNewLine]", 
             "]"}], ";", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"a", ",", "b"}], "}"}], "=", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["x", "n"], 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"a", "-", "c"}], ",", 
                  RowBox[{"-", "b"}]}], "}"}]}], 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"a", "-", "c"}], ")"}], "2"], "-", 
                RowBox[{
                 SuperscriptBox["b", "2"], "r"}]}]], "//", "Simplify"}]}], 
            ";"}], "\[IndentingNewLine]", ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "Infinity"}], "}"}]}], "]"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ContinuedFractionExpandPeriod", "[", 
   RowBox[{
    SqrtBox[
     RowBox[{
      SuperscriptBox["x", "4"], "+", 
      RowBox[{"2", 
       SuperscriptBox["x", "2"]}], "+", 
      RowBox[{"4", "x"}], "+", "1"}]], ",", "x"}], "]"}], "//", 
  "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ContinuedFractionExpandPeriod", "[", 
   RowBox[{
    SqrtBox[
     RowBox[{
      SuperscriptBox["x", "4"], "+", 
      RowBox[{"4", 
       SuperscriptBox["x", "3"]}], "-", 
      RowBox[{"6", 
       SuperscriptBox["x", "2"]}], "+", 
      RowBox[{"4", "x"}], "+", "1"}]], ",", "x"}], "]"}], "//", 
  "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ContinuedFractionExpandPeriod", "[", 
    RowBox[{
     SqrtBox[
      RowBox[{
       SuperscriptBox["x", "8"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["x", "7"]}], "+", 
       RowBox[{"7", " ", 
        SuperscriptBox["x", "6"]}], "+", 
       RowBox[{"6", " ", 
        SuperscriptBox["x", "5"]}], "-", 
       SuperscriptBox["x", "4"], "-", 
       RowBox[{"10", " ", 
        SuperscriptBox["x", "3"]}], "-", 
       RowBox[{"6", " ", 
        SuperscriptBox["x", "2"]}], "+", "1"}]], ",", "x"}], "]"}], "//", 
   "Short"}], "//", "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ContinuedFractionExpandPeriod", "[", 
   RowBox[{
    RowBox[{"N", "[", 
     RowBox[{
      SqrtBox[
       RowBox[{"x", "+", 
        RowBox[{
         SuperscriptBox["x", "4"], " ", 
         InterpretationBox[
          TemplateBox[{"Root", 
            RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"-1.42\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"], 
                   ImageSizeCache -> {
                    11.853515625, {0.181640625, 1.166015625}}]}, 
                 "RowDefault"], ShowStringCharacters -> 
                False], \
-1.42439379340939042961622362781781703234`15.463313413551964, Editable -> 
               False], "-", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"6.08\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"], 
                    ImageSizeCache -> {
                    11.853515625, {0.181640625, 1.166015625}}]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 6.07874936309953728397204031352885067463`16.093497577994288, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], 
            TagBox[
             RowBox[{"Root", "[", 
               RowBox[{
                 RowBox[{
                   RowBox[{
                    RowBox[{"-", "6075"}], "-", 
                    RowBox[{"405", " ", "#1"}], "-", 
                    RowBox[{"153", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}], 
             Short[#, 7]& ], 
            Complex[-1.4243937934093904`, -6.078749363099537]},
           "NumericalApproximation"],
          Root[-6075 - 405 # - 153 #^2 + #^3& , 2, 0]]}], "+", 
        RowBox[{
         SuperscriptBox["x", "3"], " ", 
         InterpretationBox[
          TemplateBox[{"Root", 
            RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"2.82\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"], 
                   ImageSizeCache -> {
                    11.853515625, {0.181640625, 1.166015625}}]}, 
                 "RowDefault"], ShowStringCharacters -> False], 
               2.82124703941704790821631831931881606579`15.652410869998, 
               Editable -> False], "+", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"7.49\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"], 
                    ImageSizeCache -> {
                    11.853515625, {0.181640625, 1.166015625}}]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 7.48691107715256176646789754158817231655`16.076272428651823, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], 
            TagBox[
             RowBox[{"Root", "[", 
               RowBox[{
                 RowBox[{
                   RowBox[{
                    RowBox[{"-", "5400"}], "+", 
                    RowBox[{"540", " ", "#1"}], "-", 
                    RowBox[{"90", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}], 
             Short[#, 7]& ], 
            Complex[2.821247039417048, 7.486911077152562]},
           "NumericalApproximation"],
          Root[-5400 + 540 # - 90 #^2 + #^3& , 3, 0]]}], "+", 
        RowBox[{
         SuperscriptBox["x", "2"], " ", 
         InterpretationBox[
          TemplateBox[{"Root", 
            RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"-3.31\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"], 
                   ImageSizeCache -> {
                    11.853515625, {0.181640625, 1.166015625}}]}, 
                 "RowDefault"], ShowStringCharacters -> 
                False], \
-3.31141020820660925139122809923719614744`15.949343913355902, Editable -> 
               False], "-", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"3.39\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"], 
                    ImageSizeCache -> {
                    11.853515625, {0.181640625, 1.166015625}}]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 3.39141511006302431852077461371663957834`15.959711880874785, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], 
            TagBox[
             RowBox[{"Root", "[", 
               RowBox[{
                 RowBox[{
                   RowBox[{
                    RowBox[{"-", "351"}], "-", 
                    RowBox[{"81", " ", "#1"}], "-", 
                    RowBox[{"9", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}], 
             Short[#, 7]& ], 
            Complex[-3.3114102082066093`, -3.3914151100630243`]},
           "NumericalApproximation"],
          Root[-351 - 81 # - 9 #^2 + #^3& , 2, 0]]}]}]], ",", "100"}], "]"}], 
    ",", "x"}], "]"}], "//", "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.914502708880916*^9, 3.9145029686546535`*^9}, {
   3.9145030056820297`*^9, 3.914503032684589*^9}, {3.91450308811738*^9, 
   3.91450308990686*^9}, {3.914504056219866*^9, 3.9145040652402782`*^9}, {
   3.914537111652355*^9, 3.914537111654749*^9}, {3.914538163182358*^9, 
   3.914538168426222*^9}, {3.914745937201456*^9, 3.91474605240678*^9}, {
   3.914746148555559*^9, 3.914746257426523*^9}, {3.9147463054468937`*^9, 
   3.9147464169920673`*^9}, 3.914785581728993*^9, {3.9147869814581223`*^9, 
   3.914786983601961*^9}, {3.91478748289925*^9, 3.914787484875635*^9}, {
   3.914787854897965*^9, 3.914787884652405*^9}, {3.914790956251499*^9, 
   3.914790957148016*^9}, {3.914878879969679*^9, 3.914878883898922*^9}, {
   3.914880713323482*^9, 3.9148807145175114`*^9}, 3.9148848010377197`*^9, {
   3.9148848459914517`*^9, 3.914884847811547*^9}, {3.9423644043944263`*^9, 
   3.942364410940939*^9}},ExpressionUUID->"637f9f21-f603-0a4f-92bd-\
349d5295e2cb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0032381`", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "+", 
      SuperscriptBox["x", "2"]}], ",", 
     FractionBox["x", "2"], ",", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      RowBox[{"2", " ", "x"}]}], ",", 
     FractionBox["x", "2"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.914502898335146*^9, 3.914502970208099*^9, {3.9145030038657913`*^9, 
   3.914503033458729*^9}, 3.9145030911987743`*^9, 3.914504069856287*^9, 
   3.9145381691659813`*^9, {3.914745938107395*^9, 3.914745952759285*^9}, {
   3.914745984311348*^9, 3.9147460526927795`*^9}, 3.914746208290594*^9, 
   3.914746264007021*^9, {3.914746344703356*^9, 3.914746364623768*^9}, {
   3.9147464115826397`*^9, 3.914746417640619*^9}, 3.914785583930788*^9, 
   3.9147869841633034`*^9, 3.9147874863523636`*^9, {3.914787867779042*^9, 
   3.914787885297241*^9}, 3.914790959552143*^9, 3.9148789477619762`*^9, 
   3.9148807189874086`*^9, {3.914884805499975*^9, 3.914884809875355*^9}, 
   3.914884848626318*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"174fecfb-15cb-f74b-8e1e-505fb7463714"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0067879`", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "5"}], "+", 
      RowBox[{"2", " ", "x"}], "+", 
      SuperscriptBox["x", "2"]}], ",", 
     RowBox[{
      FractionBox["1", "4"], "+", 
      FractionBox["x", "12"]}], ",", 
     RowBox[{
      RowBox[{"-", "12"}], "-", 
      RowBox[{"6", " ", "x"}]}], ",", 
     RowBox[{
      FractionBox["1", "9"], "+", 
      FractionBox["x", "18"]}], ",", 
     RowBox[{
      RowBox[{"-", "27"}], "-", 
      RowBox[{"9", " ", "x"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.914502898335146*^9, 3.914502970208099*^9, {3.9145030038657913`*^9, 
   3.914503033458729*^9}, 3.9145030911987743`*^9, 3.914504069856287*^9, 
   3.9145381691659813`*^9, {3.914745938107395*^9, 3.914745952759285*^9}, {
   3.914745984311348*^9, 3.9147460526927795`*^9}, 3.914746208290594*^9, 
   3.914746264007021*^9, {3.914746344703356*^9, 3.914746364623768*^9}, {
   3.9147464115826397`*^9, 3.914746417640619*^9}, 3.914785583930788*^9, 
   3.9147869841633034`*^9, 3.9147874863523636`*^9, {3.914787867779042*^9, 
   3.914787885297241*^9}, 3.914790959552143*^9, 3.9148789477619762`*^9, 
   3.9148807189874086`*^9, {3.914884805499975*^9, 3.914884809875355*^9}, 
   3.914884848640915*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"93166942-bbe5-0b43-90b1-b8d61fe4b920"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.1102857`", ",", 
   TagBox[
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "5"}], "+", 
       SuperscriptBox["x", "4"], "+", 
       RowBox[{
        SuperscriptBox["x", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"3", "+", "x"}], ")"}]}]}], ",", 
      RowBox[{
       FractionBox["1", "3"], "+", 
       FractionBox["x", "12"], "+", 
       FractionBox[
        SuperscriptBox["x", "2"], "12"]}], ",", 
      RowBox[{"12", "+", 
       RowBox[{"12", " ", "x"}]}], ",", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "18"]}], "+", 
       FractionBox["x", "72"], "-", 
       FractionBox[
        SuperscriptBox["x", "2"], "72"]}], ",", 
      RowBox[{
       RowBox[{"-", "72"}], "+", 
       RowBox[{"72", " ", "x"}]}], ",", 
      RowBox[{
       FractionBox["1", "192"], "+", 
       FractionBox["x", "288"]}], ",", 
      RowBox[{
       RowBox[{"-", "192"}], "+", 
       RowBox[{"384", " ", "x"}]}], ",", 
      RowBox[{"\[LeftSkeleton]", "51", "\[RightSkeleton]"}], ",", 
      RowBox[{
       RowBox[{"-", "192"}], "+", 
       RowBox[{"384", " ", "x"}]}], ",", 
      RowBox[{
       FractionBox["1", "192"], "+", 
       FractionBox["x", "288"]}], ",", 
      RowBox[{
       RowBox[{"-", "72"}], "+", 
       RowBox[{"72", " ", "x"}]}], ",", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "18"]}], "+", 
       FractionBox["x", "72"], "-", 
       FractionBox[
        SuperscriptBox["x", "2"], "72"]}], ",", 
      RowBox[{"12", "+", 
       RowBox[{"12", " ", "x"}]}], ",", 
      RowBox[{
       FractionBox["1", "3"], "+", 
       FractionBox["x", "12"], "+", 
       FractionBox[
        SuperscriptBox["x", "2"], "12"]}]}], "}"}],
    Short]}], "}"}]], "Output",
 CellChangeTimes->{
  3.914502898335146*^9, 3.914502970208099*^9, {3.9145030038657913`*^9, 
   3.914503033458729*^9}, 3.9145030911987743`*^9, 3.914504069856287*^9, 
   3.9145381691659813`*^9, {3.914745938107395*^9, 3.914745952759285*^9}, {
   3.914745984311348*^9, 3.9147460526927795`*^9}, 3.914746208290594*^9, 
   3.914746264007021*^9, {3.914746344703356*^9, 3.914746364623768*^9}, {
   3.9147464115826397`*^9, 3.914746417640619*^9}, 3.914785583930788*^9, 
   3.9147869841633034`*^9, 3.9147874863523636`*^9, {3.914787867779042*^9, 
   3.914787885297241*^9}, 3.914790959552143*^9, 3.9148789477619762`*^9, 
   3.9148807189874086`*^9, {3.914884805499975*^9, 3.914884809875355*^9}, 
   3.914884848746334*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"f164aace-d0be-b546-826d-ea1db74adb0d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0101456`", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
        "-", "0.08426038584467615705646148993510218520192222117476697440453607\
57044971906816418358075057098490799832083147784589838`97.98607298974333"}], 
        "-", 
        RowBox[{
        "0.4704247419812026705681517518724372021708047194270830270615547824657\
89725320004156034243921496855123970635063056326`98.71756102257264", " ", 
         "\[ImaginaryI]"}]}], ")"}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
        "0.8232949929241124730627205287469249176533585660254988368913787177383\
384517033175416679050032695048248647663202815269`99.04880480534617", "-", 
         RowBox[{
         "1.373106496541687575384174180481132475231814071575284942504220638038\
8918784905203888167835567442681361327616881264003`99.27687630341096", " ", 
          "\[ImaginaryI]"}]}], ")"}], " ", "x"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
        "1.5522580400323938348739855066688305022072729150922207143020980928661\
948958974799784451406640704371947637805714830568`99.86642989624207", "-", 
         RowBox[{
         "1.958034426728651554913169157762107071244419051120260385607106548580\
1134962190007827088721014800149674408272543104588`100.19802201486922", " ", 
          "\[ImaginaryI]"}]}], ")"}], " ", 
       SuperscriptBox["x", "2"]}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
       "0.73783417120346012566071524473490238601727044426611588261832917376308\
2338201152587922568823051265927745427058586331`91.35197780134264", "-", 
        RowBox[{
        "4.1193194896250627261525225414433974256954422147258548275126619141166\
756354715611664503506702328044885574357060445372`92.09423327717607", " ", 
         "\[ImaginaryI]"}]}], ")"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
        "1.6447482801138874194294983139723671870098593340616212394062093751773\
207711228509811600491909323033760563424711113385`91.82115316638878", "+", 
         RowBox[{
         "7.019135162243567754347939727371695152151259754539705317234630926494\
6594127417647267050625368289624587541486600902205`92.41481377097247", " ", 
          "\[ImaginaryI]"}]}], ")"}], " ", "x"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.914502898335146*^9, 3.914502970208099*^9, {3.9145030038657913`*^9, 
   3.914503033458729*^9}, 3.9145030911987743`*^9, 3.914504069856287*^9, 
   3.9145381691659813`*^9, {3.914745938107395*^9, 3.914745952759285*^9}, {
   3.914745984311348*^9, 3.9147460526927795`*^9}, 3.914746208290594*^9, 
   3.914746264007021*^9, {3.914746344703356*^9, 3.914746364623768*^9}, {
   3.9147464115826397`*^9, 3.914746417640619*^9}, 3.914785583930788*^9, 
   3.9147869841633034`*^9, 3.9147874863523636`*^9, {3.914787867779042*^9, 
   3.914787885297241*^9}, 3.914790959552143*^9, 3.9148789477619762`*^9, 
   3.9148807189874086`*^9, {3.914884805499975*^9, 3.914884809875355*^9}, 
   3.914884848761385*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"f4d4c551-bea6-2844-ab21-dea5b8b5ffc5"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["FromContinuedFractionExpand    \:6784\:9020\:8fde\:5206\:6570", \
"Subsection",
 CellChangeTimes->{{3.9145030520700455`*^9, 3.914503061052962*^9}, {
  3.9145035876086025`*^9, 3.9145035901076145`*^9}, {3.914503953758726*^9, 
  3.9145039849983025`*^9}},ExpressionUUID->"fc1a37a4-3735-3b4b-9360-\
b2e945a9aa0e"],

Cell["FromContinuedFractionExpand[list] \:6839\:636e list \:6784\:9020\:8fde\
\:5206\:6570.", "Text",
 CellChangeTimes->{
  3.9321999550017204`*^9},ExpressionUUID->"2842c3c3-49da-3a4a-9e42-\
1828e65bf979"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "FromContinuedFractionExpand", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"FromContinuedFractionExpand", "[", "list_List", "]"}], ":=", 
    RowBox[{"Fold", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"#2", "+", 
        FractionBox["1", "#1"]}], "&"}], ",", 
      RowBox[{"Reverse", "@", "list"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FromContinuedFractionExpand", "@", 
   RowBox[{"ContinuedFractionExpandPeriod", "[", 
    RowBox[{
     SqrtBox[
      RowBox[{
       SuperscriptBox["x", "4"], "+", 
       RowBox[{"4", 
        SuperscriptBox["x", "3"]}], "-", 
       RowBox[{"6", 
        SuperscriptBox["x", "2"]}], "+", 
       RowBox[{"4", "x"}], "+", "1"}]], ",", "x"}], "]"}]}], "//", 
  "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"FromContinuedFractionExpand", "@", 
    RowBox[{"ContinuedFractionExpandPeriod", "[", 
     RowBox[{
      SqrtBox[
       RowBox[{
        SuperscriptBox["x", "8"], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["x", "7"]}], "+", 
        RowBox[{"7", " ", 
         SuperscriptBox["x", "6"]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["x", "5"]}], "-", 
        SuperscriptBox["x", "4"], "-", 
        RowBox[{"10", " ", 
         SuperscriptBox["x", "3"]}], "-", 
        RowBox[{"6", " ", 
         SuperscriptBox["x", "2"]}], "+", "1"}]], ",", "x"}], "]"}]}], "//", 
   "Short"}], "//", "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.914503062409197*^9, 3.914503153346737*^9}, {
   3.914503596127411*^9, 3.914503604512621*^9}, {3.91450398765399*^9, 
   3.914504103608103*^9}, {3.9145371116452312`*^9, 3.914537111647251*^9}, {
   3.914538143382353*^9, 3.914538149481045*^9}, 3.9321926453259506`*^9, {
   3.9423644043723373`*^9, 
   3.942364410931221*^9}},ExpressionUUID->"efb649b6-2413-5747-8a40-\
166e32079e86"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0067534`", ",", 
   RowBox[{
    RowBox[{"-", "5"}], "+", 
    FractionBox["1", 
     RowBox[{
      FractionBox["1", "4"], "+", 
      FractionBox["1", 
       RowBox[{
        RowBox[{"-", "12"}], "+", 
        FractionBox["1", 
         RowBox[{
          FractionBox["1", "9"], "+", 
          FractionBox["1", 
           RowBox[{
            RowBox[{"-", "27"}], "-", 
            RowBox[{"9", " ", "x"}]}]], "+", 
          FractionBox["x", "18"]}]], "-", 
        RowBox[{"6", " ", "x"}]}]], "+", 
      FractionBox["x", "12"]}]], "+", 
    RowBox[{"2", " ", "x"}], "+", 
    SuperscriptBox["x", "2"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.914503145099097*^9, 3.914503605827015*^9, {3.914504082847868*^9, 
   3.914504107012364*^9}, 3.9145381500906124`*^9, {3.9321926487362213`*^9, 
   3.932192661658514*^9}, 3.932199957275999*^9},
 CellLabel->
  "Out[153]=",ExpressionUUID->"14463ac9-8706-3245-9265-672ee1331fae"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.1089971`", ",", 
   TagBox[
    RowBox[{
     RowBox[{"-", "5"}], "+", 
     SuperscriptBox["x", "4"], "+", 
     RowBox[{
      SuperscriptBox["x", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"3", "+", "x"}], ")"}]}], "+", 
     FractionBox["1", 
      RowBox[{
       FractionBox["1", "3"], "+", 
       FractionBox["x", "12"], "+", 
       FractionBox[
        SuperscriptBox["x", "2"], "12"], "+", 
       FractionBox["1", 
        RowBox[{"12", "+", 
         RowBox[{"12", " ", "x"}], "+", 
         FractionBox["1", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["1", "18"]}], "+", 
           RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}], "+", 
           RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}]]}]]}]]}],
    Short]}], "}"}]], "Output",
 CellChangeTimes->{
  3.914503145099097*^9, 3.914503605827015*^9, {3.914504082847868*^9, 
   3.914504107012364*^9}, 3.9145381500906124`*^9, {3.9321926487362213`*^9, 
   3.932192661658514*^9}, 3.932199957384636*^9},
 CellLabel->
  "Out[154]=",ExpressionUUID->"159918de-f566-1742-b92c-b3f1073cf088"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:4e0d\:5b9a\:79ef\:5206", "Section",
 CellChangeTimes->{{3.944895606122242*^9, 
  3.944895607179329*^9}},ExpressionUUID->"5ca572ef-d95a-bf46-a9cd-\
585f04d9c551"],

Cell[CellGroupData[{

Cell["IBP    \:5206\:90e8\:79ef\:5206\:6cd5", "Subsection",
 CellChangeTimes->{
  3.881248909154277*^9, {3.898449612769623*^9, 3.898449618138991*^9}, {
   3.8984497702323017`*^9, 3.898449770671779*^9}, {3.898455839890403*^9, 
   3.898455840659336*^9}},ExpressionUUID->"0870485f-1fbb-4531-ade5-\
39dfcfc3ddc3"],

Cell[TextData[{
 "IBP[u,x] \:7ed9\:51fa \[Integral]u\[DifferentialD]v \
\:7684\:5206\:90e8\:79ef\:5206.\nIBP[u,v,x] \:7ed9\:51fa \[Integral]u\
\[DifferentialD]x \:7684\:5206\:90e8\:79ef\:5206.\nIBP[u,{x,a,b}] \
\:7ed9\:51fa ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "a", "b"], 
    RowBox[{"u", 
     RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "4e39dc37-b7da-de48-9061-9c64eb27d890"],
 " \:7684\:5206\:90e8\:79ef\:5206.\nIBP[u,v,{x,a,b}] \:7ed9\:51fa ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "a", "b"], 
    RowBox[{"u", 
     RowBox[{"\[DifferentialD]", "v"}]}]}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "a5c581d3-5ac5-624e-99c1-71a705de535d"],
 " \:7684\:5206\:90e8\:79ef\:5206."
}], "Text",
 CellChangeTimes->{{3.932199631704975*^9, 3.932199648278219*^9}, {
  3.932199699134041*^9, 3.9321997594312077`*^9}, {3.93219982808358*^9, 
  3.9321998336738567`*^9}},ExpressionUUID->"c8c4c9a1-7e3a-764e-9d87-\
f0f213d8a58a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "IBP", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "[", "IBP", "]"}], "=", 
    RowBox[{"{", 
     RowBox[{"Assumptions", "->", "$Assumptions"}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IBP", "[", 
    RowBox[{"u_", ",", "v_", ",", "x_Symbol"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "r"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"c", ",", "r"}], "}"}], "=", 
       RowBox[{"CoefficientSeparation", "[", 
        RowBox[{
         RowBox[{"v", " ", 
          RowBox[{"D", "[", 
           RowBox[{"u", ",", "x"}], "]"}]}], ",", "x"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"u", " ", "v"}], "-", 
       RowBox[{"c", " ", 
        TemplateBox[{"r", "x"},
         "InactiveIntegrate",
         DisplayFunction->(RowBox[{
            StyleBox["\[Integral]", "Inactive"], 
            RowBox[{#, 
              RowBox[{
                StyleBox["\[DifferentialD]", "Inactive"], #2}]}]}]& ),
         InterpretationFunction->(RowBox[{
            RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
            RowBox[{#, ",", #2}], "]"}]& )]}]}]}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"IBP", "[", 
     RowBox[{"f_", ",", "x_Symbol"}], "]"}], ":=", 
    RowBox[{"IBP", "[", 
     RowBox[{"f", ",", "x", ",", "x"}], "]"}]}], ";"}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IBP", "[", 
    RowBox[{"u_", ",", "v_", ",", 
     RowBox[{"{", 
      RowBox[{"x_Symbol", ",", "a_", ",", "b_"}], "}"}], ",", 
     RowBox[{"opts", ":", 
      RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "r", ",", 
       RowBox[{"optLimit", "=", 
        RowBox[{"PassOptions", "[", 
         RowBox[{"IBP", ",", "Limit", ",", "opts"}], "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"c", ",", "r"}], "}"}], "=", 
       RowBox[{"CoefficientSeparation", "[", 
        RowBox[{
         RowBox[{"v", " ", 
          RowBox[{"D", "[", 
           RowBox[{"u", ",", "x"}], "]"}]}], ",", "x"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Limit", "[", 
        RowBox[{
         RowBox[{"u", " ", "v"}], ",", 
         RowBox[{"x", "\[Rule]", "b"}], ",", "optLimit"}], "]"}], "-", 
       RowBox[{"Limit", "[", 
        RowBox[{
         RowBox[{"u", " ", "v"}], ",", 
         RowBox[{"x", "\[Rule]", "a"}], ",", "optLimit"}], "]"}], "-", 
       RowBox[{"c", " ", 
        TemplateBox[{"r", "x", "a", "b"},
         "InactiveIntegrate",
         DisplayFunction->(RowBox[{
            SubsuperscriptBox[
             StyleBox["\[Integral]", "Inactive"], #3, #4], 
            RowBox[{#, 
              RowBox[{
                StyleBox["\[DifferentialD]", "Inactive"], #2}]}]}]& ),
         InterpretationFunction->(RowBox[{
            RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
            RowBox[{#, ",", 
              RowBox[{"{", 
                RowBox[{#2, ",", #3, ",", #4}], "}"}]}], "]"}]& )]}]}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"IBP", "[", 
     RowBox[{"f_", ",", 
      RowBox[{"{", 
       RowBox[{"x_Symbol", ",", "a_", ",", "b_"}], "}"}], ",", 
      RowBox[{"opts", ":", 
       RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
    RowBox[{"IBP", "[", 
     RowBox[{"f", ",", "x", ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", "opts"}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IBP", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"a", " ", 
      SuperscriptBox["x", "2"]}], "+", 
     RowBox[{"b", " ", "x"}], "+", "c"}], ",", 
    RowBox[{"Sin", "[", 
     RowBox[{"\[Alpha]", " ", "x"}], "]"}], ",", "x"}], "]"}], "//", 
  "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IBP", "[", 
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"Log", "[", "x", "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}], "//", 
  "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IBP", "[", 
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"Log", "[", "x", "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"Assumptions", "->", 
     RowBox[{"\[Alpha]", ">", "0"}]}]}], "]"}], "//", 
  "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.881241083426021*^9, 3.881241134149821*^9}, {
   3.881241254961246*^9, 3.881241368003569*^9}, {3.881241470517207*^9, 
   3.881241501439555*^9}, {3.881241550797724*^9, 3.881241693887342*^9}, {
   3.881241853234975*^9, 3.8812418771560845`*^9}, {3.881242492384276*^9, 
   3.881242534238098*^9}, {3.881242579340028*^9, 3.881242696865223*^9}, 
   3.881252196405215*^9, 3.8812524928397193`*^9, {3.8822006961253505`*^9, 
   3.882200699226946*^9}, {3.889058504588047*^9, 3.8890585203069677`*^9}, {
   3.889059226976026*^9, 3.8890592269810314`*^9}, {3.8890593311390676`*^9, 
   3.889059331143071*^9}, {3.889060461027707*^9, 3.889060463471187*^9}, {
   3.8890605280058117`*^9, 3.8890605765441027`*^9}, {3.88906068392048*^9, 
   3.889060695482535*^9}, 3.8890607917205057`*^9, {3.897569326743843*^9, 
   3.89756936589242*^9}, {3.897569402349286*^9, 3.8975696407747946`*^9}, {
   3.897574624228169*^9, 3.897574648883714*^9}, {3.897574716315276*^9, 
   3.8975748605069766`*^9}, {3.8975749215886297`*^9, 3.897574943330426*^9}, {
   3.897575841260171*^9, 3.897575867897128*^9}, {3.897581045541628*^9, 
   3.897581075787114*^9}, {3.8975811432447233`*^9, 3.897581144527049*^9}, {
   3.897582786992747*^9, 3.8975828286316805`*^9}, 3.897582932486171*^9, {
   3.897583543386483*^9, 3.8975835632121444`*^9}, {3.898435379495925*^9, 
   3.8984353880986347`*^9}, {3.898601020303546*^9, 3.8986011069032564`*^9}, {
   3.8986011370870247`*^9, 3.898601207497484*^9}, {3.89860124689959*^9, 
   3.898601269819558*^9}, 3.898602794693407*^9, {3.898602943339274*^9, 
   3.8986029454228773`*^9}, {3.898606873016658*^9, 3.898606885951549*^9}, {
   3.8986070504557557`*^9, 3.898607071742575*^9}, {3.8986074185563354`*^9, 
   3.898607439430828*^9}, {3.898607491765839*^9, 3.8986075148122983`*^9}, {
   3.898607547842489*^9, 3.898607571395305*^9}, {3.89861168849096*^9, 
   3.898611690272242*^9}, {3.89861271876517*^9, 3.898612726129867*^9}, 
   3.901845952364461*^9, {3.9145371116008434`*^9, 3.9145371116038437`*^9}, {
   3.914537949619644*^9, 3.914537954505291*^9}, {3.9321842187792377`*^9, 
   3.932184253326929*^9}, {3.932184285737213*^9, 3.9321843152521935`*^9}, {
   3.932184388966116*^9, 3.9321843900619297`*^9}, {3.9321846323404617`*^9, 
   3.932184640500164*^9}, {3.9321846776879463`*^9, 3.9321847940543785`*^9}, {
   3.9321850422161465`*^9, 3.932185045037575*^9}, {3.932188585713297*^9, 
   3.932188596836355*^9}, {3.932188834806017*^9, 3.932188855156328*^9}, {
   3.942364404302128*^9, 
   3.942364410906147*^9}},ExpressionUUID->"d98e5719-a905-4c40-ba62-\
eee6ff6ca634"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0001848`", ",", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"a", " ", 
        SuperscriptBox["x", "2"]}]}], ")"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"x", " ", "\[Alpha]"}], "]"}]}], "-", 
    TemplateBox[{
      RowBox[{
        RowBox[{"(", 
          RowBox[{"b", "+", 
            RowBox[{"2", " ", "a", " ", "x"}]}], ")"}], " ", 
        RowBox[{"Sin", "[", 
          RowBox[{"x", " ", "\[Alpha]"}], "]"}]}], "x"},
     "InactiveIntegrate",
     DisplayFunction->(RowBox[{
        StyleBox["\[Integral]", "Inactive"], 
        RowBox[{#, 
          RowBox[{
            StyleBox["\[DifferentialD]", "Inactive"], #2}]}]}]& ),
     InterpretationFunction->(RowBox[{
        RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.881241096158072*^9, 3.881241103671297*^9}, {
   3.88124146574174*^9, 3.881241471108597*^9}, {3.881241689332575*^9, 
   3.8812416945595427`*^9}, {3.881241854792668*^9, 3.881241877430534*^9}, 
   3.881242445668012*^9, 3.881242495030967*^9, {3.881242528865363*^9, 
   3.8812425345635386`*^9}, {3.881242579969435*^9, 3.881242697442633*^9}, 
   3.881248928146804*^9, 3.881248962661623*^9, 3.881252510543561*^9, 
   3.8822007001348343`*^9, 3.889058498104919*^9, 3.8890605895369253`*^9, 
   3.889060713878621*^9, 3.889060794184311*^9, {3.897569314188194*^9, 
   3.897569366183349*^9}, {3.897569547330396*^9, 3.897569551335193*^9}, {
   3.897569606909781*^9, 3.897569641188546*^9}, {3.897574626411325*^9, 
   3.897574649330012*^9}, {3.89757472048331*^9, 3.897574860753192*^9}, {
   3.897574922864003*^9, 3.897574944251744*^9}, 3.897575857698584*^9, 
   3.897575914630079*^9, {3.897581059248187*^9, 3.897581080009032*^9}, {
   3.897581145397667*^9, 3.897581148526722*^9}, 3.8975827007862215`*^9, {
   3.897582818371396*^9, 3.897582835876215*^9}, {3.8975835448903837`*^9, 
   3.897583564478099*^9}, 3.8975836614921293`*^9, 3.897766458148295*^9, 
   3.898063741568495*^9, 3.8981563861154613`*^9, 3.898408432321066*^9, 
   3.898435156515628*^9, {3.898435384337162*^9, 3.8984353885753655`*^9}, {
   3.898446503526435*^9, 3.898446511543961*^9}, {3.898446762019667*^9, 
   3.898446765013616*^9}, 3.898446815272046*^9, 3.898455626560626*^9, 
   3.898455721809778*^9, 3.8984560725384603`*^9, {3.8985973545924406`*^9, 
   3.898597357712962*^9}, {3.8986011091174307`*^9, 3.898601111608347*^9}, {
   3.898601177372816*^9, 3.898601208476683*^9}, {3.8986013304404545`*^9, 
   3.898601338692234*^9}, 3.8986028003082666`*^9, 3.898602946612151*^9, 
   3.89860442345389*^9, 3.898606888906247*^9, {3.898607081047821*^9, 
   3.8986070878809414`*^9}, {3.898607425325408*^9, 3.8986074430014963`*^9}, {
   3.898607500646069*^9, 3.898607512695122*^9}, {3.898607548419756*^9, 
   3.898607577064682*^9}, {3.8986111619382544`*^9, 3.898611166184424*^9}, {
   3.8986127278869057`*^9, 3.8986127313395033`*^9}, 3.901845953719002*^9, 
   3.914537954861765*^9, {3.9321842456509285`*^9, 3.9321842536420403`*^9}, {
   3.9321842942303944`*^9, 3.9321843164542484`*^9}, 3.932184641020664*^9, 
   3.9321846830409374`*^9, {3.932184747634041*^9, 3.932184796027668*^9}, 
   3.9321886012304153`*^9, {3.9321888390078793`*^9, 3.9321888554710674`*^9}, 
   3.9321997992017345`*^9},
 CellLabel->
  "Out[105]=",ExpressionUUID->"27810ea7-9343-b645-89dc-38e308741855"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.4702727`", ",", 
   TemplateBox[{
     RowBox[{
       RowBox[{"-", "\[Alpha]"}], " ", 
       TemplateBox[{
         RowBox[{"Cos", "[", 
           RowBox[{"\[Alpha]", " ", 
             RowBox[{"Log", "[", "x", "]"}]}], "]"}], "x", "0", "1"}, 
        "InactiveIntegrate", DisplayFunction -> (RowBox[{
           SubsuperscriptBox[
            StyleBox["\[Integral]", "Inactive"], #3, #4], 
           RowBox[{#, 
             RowBox[{
               StyleBox["\[DifferentialD]", "Inactive"], #2}]}]}]& ), 
        InterpretationFunction -> (RowBox[{
           RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
           RowBox[{#, ",", 
             RowBox[{"{", 
               RowBox[{#2, ",", #3, ",", #4}], "}"}]}], "]"}]& )]}], 
     RowBox[{"\[Alpha]", ">", "0"}]},
    "ConditionalExpression"]}], "}"}]], "Output",
 CellChangeTimes->{{3.881241096158072*^9, 3.881241103671297*^9}, {
   3.88124146574174*^9, 3.881241471108597*^9}, {3.881241689332575*^9, 
   3.8812416945595427`*^9}, {3.881241854792668*^9, 3.881241877430534*^9}, 
   3.881242445668012*^9, 3.881242495030967*^9, {3.881242528865363*^9, 
   3.8812425345635386`*^9}, {3.881242579969435*^9, 3.881242697442633*^9}, 
   3.881248928146804*^9, 3.881248962661623*^9, 3.881252510543561*^9, 
   3.8822007001348343`*^9, 3.889058498104919*^9, 3.8890605895369253`*^9, 
   3.889060713878621*^9, 3.889060794184311*^9, {3.897569314188194*^9, 
   3.897569366183349*^9}, {3.897569547330396*^9, 3.897569551335193*^9}, {
   3.897569606909781*^9, 3.897569641188546*^9}, {3.897574626411325*^9, 
   3.897574649330012*^9}, {3.89757472048331*^9, 3.897574860753192*^9}, {
   3.897574922864003*^9, 3.897574944251744*^9}, 3.897575857698584*^9, 
   3.897575914630079*^9, {3.897581059248187*^9, 3.897581080009032*^9}, {
   3.897581145397667*^9, 3.897581148526722*^9}, 3.8975827007862215`*^9, {
   3.897582818371396*^9, 3.897582835876215*^9}, {3.8975835448903837`*^9, 
   3.897583564478099*^9}, 3.8975836614921293`*^9, 3.897766458148295*^9, 
   3.898063741568495*^9, 3.8981563861154613`*^9, 3.898408432321066*^9, 
   3.898435156515628*^9, {3.898435384337162*^9, 3.8984353885753655`*^9}, {
   3.898446503526435*^9, 3.898446511543961*^9}, {3.898446762019667*^9, 
   3.898446765013616*^9}, 3.898446815272046*^9, 3.898455626560626*^9, 
   3.898455721809778*^9, 3.8984560725384603`*^9, {3.8985973545924406`*^9, 
   3.898597357712962*^9}, {3.8986011091174307`*^9, 3.898601111608347*^9}, {
   3.898601177372816*^9, 3.898601208476683*^9}, {3.8986013304404545`*^9, 
   3.898601338692234*^9}, 3.8986028003082666`*^9, 3.898602946612151*^9, 
   3.89860442345389*^9, 3.898606888906247*^9, {3.898607081047821*^9, 
   3.8986070878809414`*^9}, {3.898607425325408*^9, 3.8986074430014963`*^9}, {
   3.898607500646069*^9, 3.898607512695122*^9}, {3.898607548419756*^9, 
   3.898607577064682*^9}, {3.8986111619382544`*^9, 3.898611166184424*^9}, {
   3.8986127278869057`*^9, 3.8986127313395033`*^9}, 3.901845953719002*^9, 
   3.914537954861765*^9, {3.9321842456509285`*^9, 3.9321842536420403`*^9}, {
   3.9321842942303944`*^9, 3.9321843164542484`*^9}, 3.932184641020664*^9, 
   3.9321846830409374`*^9, {3.932184747634041*^9, 3.932184796027668*^9}, 
   3.9321886012304153`*^9, {3.9321888390078793`*^9, 3.9321888554710674`*^9}, 
   3.932199800667145*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"b7174d2f-50db-f345-88d2-9cbfe15f5c6d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.2712567`", ",", 
   RowBox[{
    RowBox[{"-", "\[Alpha]"}], " ", 
    TemplateBox[{
      RowBox[{"Cos", "[", 
        RowBox[{"\[Alpha]", " ", 
          RowBox[{"Log", "[", "x", "]"}]}], "]"}], "x", "0", "1"},
     "InactiveIntegrate",
     DisplayFunction->(RowBox[{
        SubsuperscriptBox[
         StyleBox["\[Integral]", "Inactive"], #3, #4], 
        RowBox[{#, 
          RowBox[{
            StyleBox["\[DifferentialD]", "Inactive"], #2}]}]}]& ),
     InterpretationFunction->(RowBox[{
        RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
        RowBox[{#, ",", 
          RowBox[{"{", 
            RowBox[{#2, ",", #3, ",", #4}], "}"}]}], "]"}]& )]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.881241096158072*^9, 3.881241103671297*^9}, {
   3.88124146574174*^9, 3.881241471108597*^9}, {3.881241689332575*^9, 
   3.8812416945595427`*^9}, {3.881241854792668*^9, 3.881241877430534*^9}, 
   3.881242445668012*^9, 3.881242495030967*^9, {3.881242528865363*^9, 
   3.8812425345635386`*^9}, {3.881242579969435*^9, 3.881242697442633*^9}, 
   3.881248928146804*^9, 3.881248962661623*^9, 3.881252510543561*^9, 
   3.8822007001348343`*^9, 3.889058498104919*^9, 3.8890605895369253`*^9, 
   3.889060713878621*^9, 3.889060794184311*^9, {3.897569314188194*^9, 
   3.897569366183349*^9}, {3.897569547330396*^9, 3.897569551335193*^9}, {
   3.897569606909781*^9, 3.897569641188546*^9}, {3.897574626411325*^9, 
   3.897574649330012*^9}, {3.89757472048331*^9, 3.897574860753192*^9}, {
   3.897574922864003*^9, 3.897574944251744*^9}, 3.897575857698584*^9, 
   3.897575914630079*^9, {3.897581059248187*^9, 3.897581080009032*^9}, {
   3.897581145397667*^9, 3.897581148526722*^9}, 3.8975827007862215`*^9, {
   3.897582818371396*^9, 3.897582835876215*^9}, {3.8975835448903837`*^9, 
   3.897583564478099*^9}, 3.8975836614921293`*^9, 3.897766458148295*^9, 
   3.898063741568495*^9, 3.8981563861154613`*^9, 3.898408432321066*^9, 
   3.898435156515628*^9, {3.898435384337162*^9, 3.8984353885753655`*^9}, {
   3.898446503526435*^9, 3.898446511543961*^9}, {3.898446762019667*^9, 
   3.898446765013616*^9}, 3.898446815272046*^9, 3.898455626560626*^9, 
   3.898455721809778*^9, 3.8984560725384603`*^9, {3.8985973545924406`*^9, 
   3.898597357712962*^9}, {3.8986011091174307`*^9, 3.898601111608347*^9}, {
   3.898601177372816*^9, 3.898601208476683*^9}, {3.8986013304404545`*^9, 
   3.898601338692234*^9}, 3.8986028003082666`*^9, 3.898602946612151*^9, 
   3.89860442345389*^9, 3.898606888906247*^9, {3.898607081047821*^9, 
   3.8986070878809414`*^9}, {3.898607425325408*^9, 3.8986074430014963`*^9}, {
   3.898607500646069*^9, 3.898607512695122*^9}, {3.898607548419756*^9, 
   3.898607577064682*^9}, {3.8986111619382544`*^9, 3.898611166184424*^9}, {
   3.8986127278869057`*^9, 3.8986127313395033`*^9}, 3.901845953719002*^9, 
   3.914537954861765*^9, {3.9321842456509285`*^9, 3.9321842536420403`*^9}, {
   3.9321842942303944`*^9, 3.9321843164542484`*^9}, 3.932184641020664*^9, 
   3.9321846830409374`*^9, {3.932184747634041*^9, 3.932184796027668*^9}, 
   3.9321886012304153`*^9, {3.9321888390078793`*^9, 3.9321888554710674`*^9}, 
   3.9321998009409466`*^9},
 CellLabel->
  "Out[107]=",ExpressionUUID->"49b15062-3c40-ba48-beb2-e11b53966266"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["IBS    \:6362\:5143\:79ef\:5206\:6cd5", "Subsection",
 CellChangeTimes->{{3.881248913047449*^9, 3.88124891426944*^9}, {
  3.898449633057472*^9, 3.8984496333875437`*^9}, {3.898449775482695*^9, 
  3.898449775908897*^9}, {3.898455850664485*^9, 
  3.8984558512849026`*^9}},ExpressionUUID->"23a1a542-50f0-42ff-bd50-\
712fb6e1df74"],

Cell[TextData[{
 "IBS[f,ex==et] \:7ed9\:51fa \[Integral]f \[DifferentialD]x \:6362\:5143 \
ex==et \:540e\:7684\:7ed3\:679c.\nIBS[f,x==et,t] \:7ed9\:51fa \[Integral]f \
\[DifferentialD]x \:6362\:5143 x==et \:540e\:7684\:7ed3\:679c.\n\
IBS[f,ex==t,x] \:7ed9\:51fa \[Integral]f \[DifferentialD]x \:6362\:5143 ex==t \
\:540e\:7684\:7ed3\:679c.\nIBS[f,ex==et,x,t] \:7ed9\:51fa \[Integral]f \
\[DifferentialD]x \:6362\:5143 ex==et \:540e\:7684\:7ed3\:679c.\n\
IBS[f,{a,b},ex==et] \:7ed9\:51fa ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "a", "b"], 
    RowBox[{"f", 
     RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]],ExpressionUUID->
  "0f56362e-ea14-1e47-978e-f3335dc94d3d"],
 " \:6362\:5143 ex==et \:540e\:7684\:7ed3\:679c.\nIBS[f,{a,b},x==et,t] \:7ed9\
\:51fa ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "a", "b"], 
    RowBox[{"f", 
     RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]],ExpressionUUID->
  "e9e65591-a16f-b84a-88b5-c5636b7b4318"],
 " \:6362\:5143 x==et \:540e\:7684\:7ed3\:679c.\nIBS[f,{a,b},ex==t,x] \:7ed9\
\:51fa ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "a", "b"], 
    RowBox[{"f", 
     RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]],ExpressionUUID->
  "5e4c8468-d972-0c43-b306-e2564338462c"],
 " \:6362\:5143 ex==t \:540e\:7684\:7ed3\:679c.\nIBS[f,{a,b},ex==et,x,t] \
\:7ed9\:51fa ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "a", "b"], 
    RowBox[{"f", 
     RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]],ExpressionUUID->
  "fa42325e-e1a3-1049-9392-63cdb5cf85ad"],
 " \:6362\:5143 ex==et \:540e\:7684\:7ed3\:679c."
}], "Text",
 CellChangeTimes->{{3.8984558519343433`*^9, 3.898455855020935*^9}, {
   3.8984572588356256`*^9, 3.898457261522316*^9}, {3.898610419441634*^9, 
   3.898610430057778*^9}, {3.898610545191152*^9, 3.898610560304589*^9}, 
   3.9321844176129208`*^9, {3.932185016309643*^9, 3.932185019772024*^9}, 
   3.9321898333292904`*^9, {3.9321998039397755`*^9, 3.9321998173096504`*^9}, {
   3.9321998478781757`*^9, 3.932199868700033*^9}, {3.9323818236742935`*^9, 
   3.93238184253113*^9}},ExpressionUUID->"5370a4cf-d62c-4e72-ba84-\
09060a59965c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "IBS", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "[", "IBS", "]"}], "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Assumptions", "->", "$Assumptions"}], ",", 
      RowBox[{"Method", "->", "Automatic"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"IBS", "[", 
     RowBox[{"f_", ",", 
      RowBox[{"ex_", "==", "et_"}], ",", "x_Symbol", ",", "t_Symbol", ",", 
      RowBox[{"opts", ":", 
       RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], "/;", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{"ex", ",", "t"}], "]"}], "&&", 
     RowBox[{"!", 
      RowBox[{"FreeQ", "[", 
       RowBox[{"ex", ",", "x"}], "]"}]}], "&&", 
     RowBox[{"FreeQ", "[", 
      RowBox[{"et", ",", "x"}], "]"}], "&&", 
     RowBox[{"!", 
      RowBox[{"FreeQ", "[", 
       RowBox[{"et", ",", "t"}], "]"}]}]}]}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u", ",", "result", ",", "g", ",", 
       RowBox[{"optMethod", "=", 
        RowBox[{"OptionValue", "@", "Method"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"result", "=", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"ex", "===", "x"}], ",", "\[IndentingNewLine]", 
          RowBox[{"f", "/.", 
           RowBox[{"x", "->", "et"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"optMethod", "===", "Automatic"}], "&&", 
               RowBox[{"AlgebraicExpressionQ", "[", 
                RowBox[{"ex", ",", "x"}], "]"}]}], "||", 
              RowBox[{"optMethod", "===", "GroebnerBasis"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"First", "@", 
              RowBox[{"SolveValues", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Factor", "@", 
                  RowBox[{"GroebnerBasis", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"ex", "==", "u"}], ",", 
                    RowBox[{
                    RowBox[{"g", " ", 
                    RowBox[{"D", "[", 
                    RowBox[{"ex", ",", "x"}], "]"}]}], "==", "f"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", "u"}], "}"}], ",", 
                    RowBox[{"{", "x", "}"}]}], "]"}]}], "==", "0"}], ",", 
                "g"}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"First", "@", 
               RowBox[{"IntegrateChangeVariables", "[", 
                RowBox[{
                 TemplateBox[{"f", "x"},
                  "InactiveIntegrate",
                  DisplayFunction->(RowBox[{
                    StyleBox["\[Integral]", "Inactive"], 
                    RowBox[{#, 
                    RowBox[{
                    StyleBox["\[DifferentialD]", "Inactive"], #2}]}]}]& ),
                  InterpretationFunction->(RowBox[{
                    RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
                    RowBox[{#, ",", #2}], "]"}]& )], ",", "u", ",", 
                 RowBox[{"u", "\[Equal]", "ex"}], ",", 
                 RowBox[{"PassOptions", "[", 
                  RowBox[{
                  "IBS", ",", "IntegrateChangeVariables", ",", "opts"}], 
                  "]"}]}], "]"}]}], "/.", 
              RowBox[{
               RowBox[{"C", "[", "_", "]"}], "->", "0"}]}]}], 
            "\[IndentingNewLine]", "]"}], "/.", 
           RowBox[{"u", "->", "et"}]}]}], "\[IndentingNewLine]", "]"}], 
        RowBox[{"D", "[", 
         RowBox[{"et", ",", "t"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
      "result"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"IBS", "[", 
    RowBox[{"f_", ",", 
     RowBox[{"x_Symbol", "==", "et_"}], ",", "t_Symbol", ",", 
     RowBox[{"opts", ":", 
      RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
   RowBox[{"IBS", "[", 
    RowBox[{"f", ",", 
     RowBox[{"x", "==", "et"}], ",", "x", ",", "t", ",", "opts"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"IBS", "[", 
    RowBox[{"f_", ",", 
     RowBox[{"ex_", "==", "t_Symbol"}], ",", "x_Symbol", ",", 
     RowBox[{"opts", ":", 
      RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
   RowBox[{"IBS", "[", 
    RowBox[{"f", ",", 
     RowBox[{"ex", "==", "t"}], ",", "x", ",", "t", ",", "opts"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"IBS", "[", 
     RowBox[{"f_", ",", 
      RowBox[{"ex_", "==", "et_"}], ",", 
      RowBox[{"opts", ":", 
       RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
    RowBox[{"IBS", "[", 
     RowBox[{"f", ",", 
      RowBox[{"ex", "==", "et"}], ",", 
      RowBox[{"ExpressionPivot", "@", "ex"}], ",", 
      RowBox[{"ExpressionPivot", "@", "et"}], ",", "opts"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"IBS", "[", 
     RowBox[{"f_", ",", 
      RowBox[{"{", 
       RowBox[{"a_", ",", "b_"}], "}"}], ",", 
      RowBox[{"ex_", "==", "et_"}], ",", "x_Symbol", ",", "t_Symbol", ",", 
      RowBox[{"opts", ":", 
       RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], "/;", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{"ex", ",", "t"}], "]"}], "&&", 
     RowBox[{"!", 
      RowBox[{"FreeQ", "[", 
       RowBox[{"ex", ",", "x"}], "]"}]}], "&&", 
     RowBox[{"FreeQ", "[", 
      RowBox[{"et", ",", "x"}], "]"}], "&&", 
     RowBox[{"!", 
      RowBox[{"FreeQ", "[", 
       RowBox[{"et", ",", "t"}], "]"}]}]}]}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "u", ",", "temp", ",", "result", ",", "newA", ",", "newB", ",", "c", 
       ",", "r", ",", 
       RowBox[{"optICV", "=", 
        RowBox[{"PassOptions", "[", 
         RowBox[{"IBS", ",", "IntegrateChangeVariables", ",", "opts"}], 
         "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"temp", "=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"ex", "===", "x"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          TemplateBox[{"f", "x", "a", "b"},
           "InactiveIntegrate",
           DisplayFunction->(RowBox[{
              SubsuperscriptBox[
               StyleBox["\[Integral]", "Inactive"], #3, #4], 
              RowBox[{#, 
                RowBox[{
                  StyleBox["\[DifferentialD]", "Inactive"], #2}]}]}]& ),
           InterpretationFunction->(RowBox[{
              RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
              RowBox[{#, ",", 
                RowBox[{"{", 
                  RowBox[{#2, ",", #3, ",", #4}], "}"}]}], "]"}]& )], "/.", 
          RowBox[{"x", "->", "u"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"IntegrateChangeVariables", "[", 
          RowBox[{
           TemplateBox[{"f", "x", "a", "b"},
            "InactiveIntegrate",
            DisplayFunction->(RowBox[{
               SubsuperscriptBox[
                StyleBox["\[Integral]", "Inactive"], #3, #4], 
               RowBox[{#, 
                 RowBox[{
                   StyleBox["\[DifferentialD]", "Inactive"], #2}]}]}]& ),
            InterpretationFunction->(RowBox[{
               RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
               RowBox[{#, ",", 
                 RowBox[{"{", 
                   RowBox[{#2, ",", #3, ",", #4}], "}"}]}], "]"}]& )], ",", 
           "u", ",", 
           RowBox[{"u", "\[Equal]", "ex"}], ",", "optICV"}], "]"}]}], 
        "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"result", ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "newA", ",", "newB"}], "}"}]}], "}"}], "=", 
       RowBox[{"List", "@@", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"et", "===", "t"}], ",", "\[IndentingNewLine]", 
          RowBox[{"temp", "/.", 
           RowBox[{"u", "->", "t"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"IntegrateChangeVariables", "[", 
           RowBox[{"temp", ",", "t", ",", 
            RowBox[{"u", "==", "et"}], ",", "optICV"}], "]"}]}], 
         "\[IndentingNewLine]", "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"c", ",", "r"}], "}"}], "=", 
       RowBox[{"CoefficientSeparation", "[", 
        RowBox[{"result", ",", "t"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"c", 
       TemplateBox[{"r", "t", "newA", "newB"},
        "InactiveIntegrate",
        DisplayFunction->(RowBox[{
           SubsuperscriptBox[
            StyleBox["\[Integral]", "Inactive"], #3, #4], 
           RowBox[{#, 
             RowBox[{
               StyleBox["\[DifferentialD]", "Inactive"], #2}]}]}]& ),
        InterpretationFunction->(RowBox[{
           RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
           RowBox[{#, ",", 
             RowBox[{"{", 
               RowBox[{#2, ",", #3, ",", #4}], "}"}]}], "]"}]& )]}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"IBS", "[", 
    RowBox[{"f_", ",", 
     RowBox[{"{", 
      RowBox[{"a_", ",", "b_"}], "}"}], ",", 
     RowBox[{"x_Symbol", "==", "et_"}], ",", "t_Symbol", ",", 
     RowBox[{"opts", ":", 
      RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
   RowBox[{"IBS", "[", 
    RowBox[{"f", ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", 
     RowBox[{"x", "==", "et"}], ",", "x", ",", "t", ",", "opts"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"IBS", "[", 
    RowBox[{"f_", ",", 
     RowBox[{"{", 
      RowBox[{"a_", ",", "b_"}], "}"}], ",", 
     RowBox[{"ex_", "==", "t_Symbol"}], ",", "x_Symbol", ",", 
     RowBox[{"opts", ":", 
      RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
   RowBox[{"IBS", "[", 
    RowBox[{"f", ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", 
     RowBox[{"ex", "==", "t"}], ",", "x", ",", "t", ",", "opts"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"IBS", "[", 
     RowBox[{"f_", ",", 
      RowBox[{"{", 
       RowBox[{"a_", ",", "b_"}], "}"}], ",", 
      RowBox[{"ex_", "==", "et_"}], ",", 
      RowBox[{"opts", ":", 
       RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
    RowBox[{"IBS", "[", 
     RowBox[{"f", ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "b"}], "}"}], ",", 
      RowBox[{"ex", "==", "et"}], ",", 
      RowBox[{"ExpressionPivot", "@", "ex"}], ",", 
      RowBox[{"ExpressionPivot", "@", "et"}], ",", "opts"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IBS", "[", 
   RowBox[{
    SuperscriptBox["x", "2"], ",", 
    RowBox[{"x", "==", 
     RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], "]"}], "//", 
  "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IBS", "[", 
   RowBox[{
    SuperscriptBox["x", "2"], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], ",", 
    RowBox[{
     RowBox[{"2", "x"}], "==", 
     SuperscriptBox["E", "t"]}]}], "]"}], "//", 
  "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IBS", "[", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"1", "+", 
      SuperscriptBox["E", "x"]}]], ",", 
    RowBox[{
     SuperscriptBox["E", "x"], "==", 
     FractionBox[
      RowBox[{"Tan", "[", "t", "]"}], "2"]}]}], "]"}], "//", 
  "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IBS", "[", 
   RowBox[{
    FractionBox[
     SqrtBox[
      RowBox[{"1", "-", 
       SuperscriptBox["x", "4"]}]], 
     RowBox[{"1", "+", 
      SuperscriptBox["x", "4"]}]], ",", 
    RowBox[{
     FractionBox["x", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["x", "4"]}]]], "==", "t"}], ",", 
    RowBox[{"Method", "->", "GroebnerBasis"}]}], "]"}], "//", 
  "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IBS", "[", 
   RowBox[{
    FractionBox[
     SqrtBox[
      RowBox[{"1", "-", 
       SuperscriptBox["x", "4"]}]], 
     RowBox[{"1", "+", 
      SuperscriptBox["x", "4"]}]], ",", 
    RowBox[{
     FractionBox["x", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["x", "4"]}]]], "==", "t"}], ",", 
    RowBox[{"Method", "->", "IntegrateChangeVariables"}]}], "]"}], "//", 
  "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IBS", "[", 
   RowBox[{
    FractionBox[
     RowBox[{"x", "+", "5"}], 
     RowBox[{" ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["x", "4"], "+", 
         RowBox[{"44", "x"}], "+", "51"}], ")"}], 
       FractionBox["2", "3"]]}]], ",", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x", "-", "1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"x", "+", "3"}], ")"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["x", "4"], "+", 
         RowBox[{"44", "x"}], "+", "51"}], ")"}], 
       FractionBox["2", "3"]]], "==", 
     SuperscriptBox["t", "2"]}]}], "]"}], "//", "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.881250118598274*^9, 3.8812501595253873`*^9}, {
   3.881250441863079*^9, 3.881250450966523*^9}, 3.88125049736209*^9, {
   3.881250536109548*^9, 3.88125057562376*^9}, {3.8812506367271*^9, 
   3.881250720217284*^9}, {3.881250982739813*^9, 3.881251053927303*^9}, {
   3.88125108999737*^9, 3.881251136919894*^9}, {3.881251174754742*^9, 
   3.8812511782688627`*^9}, {3.881251237859644*^9, 3.881251242551485*^9}, {
   3.881251291751128*^9, 3.881251415917933*^9}, {3.881251729146951*^9, 
   3.881251756013675*^9}, {3.8812519373876343`*^9, 3.881252062230215*^9}, {
   3.881252174082698*^9, 3.881252246766799*^9}, {3.8812522894637127`*^9, 
   3.881252291684799*^9}, {3.8812523308504343`*^9, 3.881252354906809*^9}, {
   3.8812524346601224`*^9, 3.8812524850068865`*^9}, {3.8812525167804737`*^9, 
   3.8812526299537096`*^9}, {3.8812526683656545`*^9, 3.881252707045879*^9}, {
   3.881252759704807*^9, 3.881252793251134*^9}, {3.88125283145623*^9, 
   3.881252888075912*^9}, {3.881253001656077*^9, 3.881253021519675*^9}, {
   3.881253062374042*^9, 3.881253081762101*^9}, {3.8812532995850477`*^9, 
   3.881253342169439*^9}, {3.881253382453553*^9, 3.8812534757402163`*^9}, {
   3.881253553975247*^9, 3.8812535672880754`*^9}, {3.88125361042743*^9, 
   3.881253756248664*^9}, {3.881253794219369*^9, 3.8812538359813766`*^9}, {
   3.8812538716807528`*^9, 3.881253953197145*^9}, {3.881253999057205*^9, 
   3.881254087631789*^9}, {3.881254127972443*^9, 3.881254153029628*^9}, {
   3.8812542721658278`*^9, 3.881254425828055*^9}, {3.881254507200431*^9, 
   3.881254519974309*^9}, {3.881254655234125*^9, 3.8812546796198196`*^9}, {
   3.881254723708355*^9, 3.8812547386305695`*^9}, {3.88125481230455*^9, 
   3.881254812729741*^9}, {3.8812548850784864`*^9, 3.8812550107871747`*^9}, {
   3.881255128584787*^9, 3.881255165137235*^9}, {3.881255195355729*^9, 
   3.8812552068693247`*^9}, {3.881255244261628*^9, 3.881255268298545*^9}, {
   3.88125530242895*^9, 3.881255302469234*^9}, {3.881255335487848*^9, 
   3.881255362908206*^9}, {3.8812555215499744`*^9, 3.88125552359336*^9}, {
   3.881255555356881*^9, 3.88125566324966*^9}, {3.881255864832225*^9, 
   3.8812559721619787`*^9}, {3.881256056619758*^9, 3.8812561051948824`*^9}, {
   3.881256205719895*^9, 3.8812562710189867`*^9}, {3.881256631753805*^9, 
   3.881256655584632*^9}, {3.881256686995875*^9, 3.881257196404513*^9}, {
   3.8812572436486535`*^9, 3.881257268106858*^9}, {3.881257318711217*^9, 
   3.881257361327052*^9}, {3.881257434474887*^9, 3.8812574358273134`*^9}, {
   3.8812575497527356`*^9, 3.8812576029089355`*^9}, 3.88125791599871*^9, {
   3.882200489881076*^9, 3.882200495492883*^9}, {3.8822007138779793`*^9, 
   3.882200739319167*^9}, {3.889058870032848*^9, 3.8890588783356028`*^9}, 
   3.889060789071501*^9, {3.889061717177822*^9, 3.8890617910826645`*^9}, {
   3.889061867179408*^9, 3.889061878100355*^9}, {3.8890619675131736`*^9, 
   3.889062089948978*^9}, {3.889062164549316*^9, 3.88906216492441*^9}, {
   3.889062949346699*^9, 3.889062960534238*^9}, {3.8890631525855865`*^9, 
   3.889063155083607*^9}, {3.897575071824106*^9, 3.8975750774552045`*^9}, {
   3.897575129473181*^9, 3.8975751375146723`*^9}, {3.89757532622975*^9, 
   3.8975753349614773`*^9}, {3.897575800152473*^9, 3.89757583021003*^9}, 
   3.897575920128982*^9, {3.8975773459238987`*^9, 3.8975773666387353`*^9}, {
   3.897577417295274*^9, 3.89757745679452*^9}, {3.8975775891205997`*^9, 
   3.8975776131944747`*^9}, {3.897582966985074*^9, 3.897582993427416*^9}, {
   3.897583029338689*^9, 3.89758306453442*^9}, {3.897583094668121*^9, 
   3.897583102117505*^9}, {3.8975831497892175`*^9, 3.897583195979031*^9}, {
   3.8975832935424805`*^9, 3.897583302501735*^9}, {3.897583536397375*^9, 
   3.897583537399136*^9}, {3.897583569097215*^9, 3.897583572100858*^9}, {
   3.897587032021122*^9, 3.897587037183878*^9}, {3.898435413665518*^9, 
   3.898435441698406*^9}, {3.898436521538496*^9, 3.898436522380515*^9}, {
   3.898597447504482*^9, 3.89859749218402*^9}, {3.8985975237629414`*^9, 
   3.898597532210891*^9}, {3.898597659250287*^9, 3.898597775066695*^9}, {
   3.898597810635757*^9, 3.898597943908429*^9}, {3.898597990307012*^9, 
   3.898598073880313*^9}, {3.898598257371057*^9, 3.898598259288863*^9}, {
   3.898598375510561*^9, 3.898598414218976*^9}, {3.8985985663126516`*^9, 
   3.898598594697483*^9}, {3.898598625814254*^9, 3.8985986584260845`*^9}, {
   3.89859903789494*^9, 3.898599168951915*^9}, {3.8985992873738155`*^9, 
   3.898599302407935*^9}, {3.898599351617859*^9, 3.8985993636825457`*^9}, {
   3.898600684338275*^9, 3.898600835377078*^9}, {3.8986015334593744`*^9, 
   3.898601536151782*^9}, {3.898601574016489*^9, 3.898601590787997*^9}, {
   3.898601652490342*^9, 3.89860166518589*^9}, {3.898601773427394*^9, 
   3.89860177738178*^9}, {3.898602788841365*^9, 3.8986027916160736`*^9}, {
   3.898602910048065*^9, 3.898602913146177*^9}, {3.898602950372245*^9, 
   3.898602950531789*^9}, {3.898607103053218*^9, 3.898607293364863*^9}, {
   3.8986073977322807`*^9, 3.8986073978046913`*^9}, {3.898607589966048*^9, 
   3.898608044428811*^9}, {3.8986081144450855`*^9, 3.898608162081409*^9}, {
   3.8986082525591354`*^9, 3.8986082713199425`*^9}, {3.898608363303069*^9, 
   3.8986084267973237`*^9}, {3.8986085352209387`*^9, 3.8986086877344823`*^9}, 
   3.898609323421417*^9, {3.8986093611255207`*^9, 3.898609366005509*^9}, {
   3.914537111610529*^9, 3.9145371116136093`*^9}, {3.9145379645081406`*^9, 
   3.9145379797451706`*^9}, {3.932185033614334*^9, 3.9321850354603596`*^9}, {
   3.9321886539995003`*^9, 3.932188737098934*^9}, {3.9321887718137417`*^9, 
   3.9321888140319595`*^9}, {3.9321888716389637`*^9, 
   3.9321888843371315`*^9}, {3.932188923381441*^9, 3.932189027504072*^9}, {
   3.9321890909877872`*^9, 3.932189141984932*^9}, {3.9321891817328625`*^9, 
   3.932189200195574*^9}, {3.932189299434435*^9, 3.9321893266462727`*^9}, {
   3.9321893586898384`*^9, 3.932189359936754*^9}, {3.9321893958100796`*^9, 
   3.9321894264838696`*^9}, {3.9321897098362083`*^9, 3.932189758894928*^9}, {
   3.9321898424831486`*^9, 3.932189854514553*^9}, {3.932189949764454*^9, 
   3.9321899921011047`*^9}, {3.9321901069807644`*^9, 3.9321901229850216`*^9}, 
   3.932203211019169*^9, {3.932203253691164*^9, 3.932203260878273*^9}, {
   3.9323818873216286`*^9, 3.9323819138315487`*^9}, {3.9423644043131294`*^9, 
   3.942364410913378*^9}, {3.943838713105791*^9, 3.943838719200527*^9}, {
   3.943841647345703*^9, 3.9438420470086994`*^9}, {3.943842123889662*^9, 
   3.943842163393696*^9}, {3.9438422324866066`*^9, 3.943842276882128*^9}, {
   3.9438424893240147`*^9, 3.94384253845866*^9}, {3.943842714640045*^9, 
   3.9438429922730904`*^9}, {3.943843537931984*^9, 3.9438435406116123`*^9}, {
   3.944004786863987*^9, 3.9440047879050636`*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"3a78e23b-afa1-4afd-b071-1979d220226b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.000179`", ",", 
   RowBox[{
    RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8812570375264273`*^9, 3.8812570711812725`*^9}, {
   3.881257110046982*^9, 3.881257115804064*^9}, {3.8812571883470535`*^9, 
   3.8812571971375866`*^9}, {3.881257244572747*^9, 3.8812572684852047`*^9}, {
   3.8812573228156233`*^9, 3.8812573616958375`*^9}, 3.881257436343524*^9, {
   3.8812575507605095`*^9, 3.881257559200346*^9}, 3.881257595417079*^9, 
   3.881257916315544*^9, 3.882200718021447*^9, 3.889061735760664*^9, 
   3.889061791669753*^9, 3.889061929111568*^9, 3.8890620057909803`*^9, 
   3.889062135615346*^9, {3.897577610277429*^9, 3.8975776135017033`*^9}, {
   3.897583000138677*^9, 3.897583064942706*^9}, {3.897583099709525*^9, 
   3.897583102575756*^9}, {3.8975831545369596`*^9, 3.8975831969562097`*^9}, 
   3.8975833062271214`*^9, 3.897583537933769*^9, 3.897583572723467*^9, 
   3.897583658254287*^9, 3.897587043109377*^9, 3.8977664591434526`*^9, 
   3.898063742841867*^9, 3.898156387054894*^9, 3.898408432812724*^9, 
   3.898435157390788*^9, {3.898435420050868*^9, 3.8984354441099*^9}, {
   3.8984365196969237`*^9, 3.898436523171155*^9}, {3.898446771417082*^9, 
   3.898446774599677*^9}, 3.898446817965131*^9, {3.898455628862954*^9, 
   3.898455631854422*^9}, 3.8984557221210437`*^9, 3.898597971467004*^9, {
   3.8985980352475147`*^9, 3.898598082365463*^9}, {3.898598260889527*^9, 
   3.898598273755751*^9}, 3.8985983924510536`*^9, 3.898598648404988*^9, {
   3.898599156790344*^9, 3.898599159740578*^9}, 3.898599289309517*^9, 
   3.898600695028031*^9, 3.8986007402292585`*^9, {3.898600771563314*^9, 
   3.898600809310959*^9}, {3.898601529782813*^9, 3.898601591623485*^9}, {
   3.8986018546552324`*^9, 3.8986018609907026`*^9}, {3.8986028034397*^9, 
   3.89860280632702*^9}, {3.898602911859344*^9, 3.898602913570977*^9}, 
   3.898602950921838*^9, 3.898604420026362*^9, {3.898607246147871*^9, 
   3.8986072514466095`*^9}, 3.8986073649570985`*^9, 3.898607398257956*^9, {
   3.898607594494088*^9, 3.898607973094438*^9}, {3.8986081477798967`*^9, 
   3.898608163979354*^9}, {3.898608590695585*^9, 3.898608605348601*^9}, {
   3.8986086507898607`*^9, 3.898608710807328*^9}, {3.898609353002922*^9, 
   3.898609371550775*^9}, {3.898611173535932*^9, 3.898611175042594*^9}, {
   3.914537970650938*^9, 3.9145379805499477`*^9}, 3.932188746978552*^9, {
   3.932188785087454*^9, 3.9321887904501038`*^9}, 3.932188884738199*^9, {
   3.9321889433364506`*^9, 3.9321889491410503`*^9}, 3.9321890317901917`*^9, 
   3.932189110586384*^9, 3.9321891424034824`*^9, 3.9321892118141556`*^9, {
   3.93218930552862*^9, 3.9321893300070057`*^9}, 3.932189360581335*^9, {
   3.932189401021801*^9, 3.932189414876774*^9}, {3.9321897426009083`*^9, 
   3.932189762387039*^9}, 3.932189921057968*^9, 3.9321900184873466`*^9, {
   3.9321901182132874`*^9, 3.9321901233722687`*^9}, 3.932203219699898*^9, {
   3.9322032541019135`*^9, 3.9322032909472313`*^9}, {3.932381891647419*^9, 
   3.9323819151461945`*^9}, 3.9438420613514385`*^9, {3.943842143671484*^9, 
   3.943842190932783*^9}, {3.9438422224037457`*^9, 3.9438422374365196`*^9}, 
   3.9438422952885056`*^9, 3.943842353094158*^9, 3.943842538875307*^9, {
   3.943842707297556*^9, 3.9438427714098473`*^9}, {3.9438428194298306`*^9, 
   3.9438429757588806`*^9}, 3.9438435425954494`*^9, 3.9440047882749786`*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"4d08d899-f05c-6b4f-bbdd-0896ed2f422e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.3731803`", ",", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    TemplateBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"3", " ", "t"}]], "t", 
      RowBox[{"-", "\[Infinity]"}], 
      RowBox[{"Log", "[", "2", "]"}]},
     "InactiveIntegrate",
     DisplayFunction->(RowBox[{
        SubsuperscriptBox[
         StyleBox["\[Integral]", "Inactive"], #3, #4], 
        RowBox[{#, 
          RowBox[{
            StyleBox["\[DifferentialD]", "Inactive"], #2}]}]}]& ),
     InterpretationFunction->(RowBox[{
        RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
        RowBox[{#, ",", 
          RowBox[{"{", 
            RowBox[{#2, ",", #3, ",", #4}], "}"}]}], "]"}]& )]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8812570375264273`*^9, 3.8812570711812725`*^9}, {
   3.881257110046982*^9, 3.881257115804064*^9}, {3.8812571883470535`*^9, 
   3.8812571971375866`*^9}, {3.881257244572747*^9, 3.8812572684852047`*^9}, {
   3.8812573228156233`*^9, 3.8812573616958375`*^9}, 3.881257436343524*^9, {
   3.8812575507605095`*^9, 3.881257559200346*^9}, 3.881257595417079*^9, 
   3.881257916315544*^9, 3.882200718021447*^9, 3.889061735760664*^9, 
   3.889061791669753*^9, 3.889061929111568*^9, 3.8890620057909803`*^9, 
   3.889062135615346*^9, {3.897577610277429*^9, 3.8975776135017033`*^9}, {
   3.897583000138677*^9, 3.897583064942706*^9}, {3.897583099709525*^9, 
   3.897583102575756*^9}, {3.8975831545369596`*^9, 3.8975831969562097`*^9}, 
   3.8975833062271214`*^9, 3.897583537933769*^9, 3.897583572723467*^9, 
   3.897583658254287*^9, 3.897587043109377*^9, 3.8977664591434526`*^9, 
   3.898063742841867*^9, 3.898156387054894*^9, 3.898408432812724*^9, 
   3.898435157390788*^9, {3.898435420050868*^9, 3.8984354441099*^9}, {
   3.8984365196969237`*^9, 3.898436523171155*^9}, {3.898446771417082*^9, 
   3.898446774599677*^9}, 3.898446817965131*^9, {3.898455628862954*^9, 
   3.898455631854422*^9}, 3.8984557221210437`*^9, 3.898597971467004*^9, {
   3.8985980352475147`*^9, 3.898598082365463*^9}, {3.898598260889527*^9, 
   3.898598273755751*^9}, 3.8985983924510536`*^9, 3.898598648404988*^9, {
   3.898599156790344*^9, 3.898599159740578*^9}, 3.898599289309517*^9, 
   3.898600695028031*^9, 3.8986007402292585`*^9, {3.898600771563314*^9, 
   3.898600809310959*^9}, {3.898601529782813*^9, 3.898601591623485*^9}, {
   3.8986018546552324`*^9, 3.8986018609907026`*^9}, {3.8986028034397*^9, 
   3.89860280632702*^9}, {3.898602911859344*^9, 3.898602913570977*^9}, 
   3.898602950921838*^9, 3.898604420026362*^9, {3.898607246147871*^9, 
   3.8986072514466095`*^9}, 3.8986073649570985`*^9, 3.898607398257956*^9, {
   3.898607594494088*^9, 3.898607973094438*^9}, {3.8986081477798967`*^9, 
   3.898608163979354*^9}, {3.898608590695585*^9, 3.898608605348601*^9}, {
   3.8986086507898607`*^9, 3.898608710807328*^9}, {3.898609353002922*^9, 
   3.898609371550775*^9}, {3.898611173535932*^9, 3.898611175042594*^9}, {
   3.914537970650938*^9, 3.9145379805499477`*^9}, 3.932188746978552*^9, {
   3.932188785087454*^9, 3.9321887904501038`*^9}, 3.932188884738199*^9, {
   3.9321889433364506`*^9, 3.9321889491410503`*^9}, 3.9321890317901917`*^9, 
   3.932189110586384*^9, 3.9321891424034824`*^9, 3.9321892118141556`*^9, {
   3.93218930552862*^9, 3.9321893300070057`*^9}, 3.932189360581335*^9, {
   3.932189401021801*^9, 3.932189414876774*^9}, {3.9321897426009083`*^9, 
   3.932189762387039*^9}, 3.932189921057968*^9, 3.9321900184873466`*^9, {
   3.9321901182132874`*^9, 3.9321901233722687`*^9}, 3.932203219699898*^9, {
   3.9322032541019135`*^9, 3.9322032909472313`*^9}, {3.932381891647419*^9, 
   3.9323819151461945`*^9}, 3.9438420613514385`*^9, {3.943842143671484*^9, 
   3.943842190932783*^9}, {3.9438422224037457`*^9, 3.9438422374365196`*^9}, 
   3.9438422952885056`*^9, 3.943842353094158*^9, 3.943842538875307*^9, {
   3.943842707297556*^9, 3.9438427714098473`*^9}, {3.9438428194298306`*^9, 
   3.9438429757588806`*^9}, 3.9438435425954494`*^9, 3.9440047886560307`*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"189b979b-2f70-914f-bd43-5c0e8cb7f1b9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0239541`", ",", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"Sec", "[", "t", "]"}], "2"], 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"Tan", "[", "t", "]"}], "2"], "+", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Tan", "[", "t", "]"}], "2"], "4"]}], ")"}]}]]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8812570375264273`*^9, 3.8812570711812725`*^9}, {
   3.881257110046982*^9, 3.881257115804064*^9}, {3.8812571883470535`*^9, 
   3.8812571971375866`*^9}, {3.881257244572747*^9, 3.8812572684852047`*^9}, {
   3.8812573228156233`*^9, 3.8812573616958375`*^9}, 3.881257436343524*^9, {
   3.8812575507605095`*^9, 3.881257559200346*^9}, 3.881257595417079*^9, 
   3.881257916315544*^9, 3.882200718021447*^9, 3.889061735760664*^9, 
   3.889061791669753*^9, 3.889061929111568*^9, 3.8890620057909803`*^9, 
   3.889062135615346*^9, {3.897577610277429*^9, 3.8975776135017033`*^9}, {
   3.897583000138677*^9, 3.897583064942706*^9}, {3.897583099709525*^9, 
   3.897583102575756*^9}, {3.8975831545369596`*^9, 3.8975831969562097`*^9}, 
   3.8975833062271214`*^9, 3.897583537933769*^9, 3.897583572723467*^9, 
   3.897583658254287*^9, 3.897587043109377*^9, 3.8977664591434526`*^9, 
   3.898063742841867*^9, 3.898156387054894*^9, 3.898408432812724*^9, 
   3.898435157390788*^9, {3.898435420050868*^9, 3.8984354441099*^9}, {
   3.8984365196969237`*^9, 3.898436523171155*^9}, {3.898446771417082*^9, 
   3.898446774599677*^9}, 3.898446817965131*^9, {3.898455628862954*^9, 
   3.898455631854422*^9}, 3.8984557221210437`*^9, 3.898597971467004*^9, {
   3.8985980352475147`*^9, 3.898598082365463*^9}, {3.898598260889527*^9, 
   3.898598273755751*^9}, 3.8985983924510536`*^9, 3.898598648404988*^9, {
   3.898599156790344*^9, 3.898599159740578*^9}, 3.898599289309517*^9, 
   3.898600695028031*^9, 3.8986007402292585`*^9, {3.898600771563314*^9, 
   3.898600809310959*^9}, {3.898601529782813*^9, 3.898601591623485*^9}, {
   3.8986018546552324`*^9, 3.8986018609907026`*^9}, {3.8986028034397*^9, 
   3.89860280632702*^9}, {3.898602911859344*^9, 3.898602913570977*^9}, 
   3.898602950921838*^9, 3.898604420026362*^9, {3.898607246147871*^9, 
   3.8986072514466095`*^9}, 3.8986073649570985`*^9, 3.898607398257956*^9, {
   3.898607594494088*^9, 3.898607973094438*^9}, {3.8986081477798967`*^9, 
   3.898608163979354*^9}, {3.898608590695585*^9, 3.898608605348601*^9}, {
   3.8986086507898607`*^9, 3.898608710807328*^9}, {3.898609353002922*^9, 
   3.898609371550775*^9}, {3.898611173535932*^9, 3.898611175042594*^9}, {
   3.914537970650938*^9, 3.9145379805499477`*^9}, 3.932188746978552*^9, {
   3.932188785087454*^9, 3.9321887904501038`*^9}, 3.932188884738199*^9, {
   3.9321889433364506`*^9, 3.9321889491410503`*^9}, 3.9321890317901917`*^9, 
   3.932189110586384*^9, 3.9321891424034824`*^9, 3.9321892118141556`*^9, {
   3.93218930552862*^9, 3.9321893300070057`*^9}, 3.932189360581335*^9, {
   3.932189401021801*^9, 3.932189414876774*^9}, {3.9321897426009083`*^9, 
   3.932189762387039*^9}, 3.932189921057968*^9, 3.9321900184873466`*^9, {
   3.9321901182132874`*^9, 3.9321901233722687`*^9}, 3.932203219699898*^9, {
   3.9322032541019135`*^9, 3.9322032909472313`*^9}, {3.932381891647419*^9, 
   3.9323819151461945`*^9}, 3.9438420613514385`*^9, {3.943842143671484*^9, 
   3.943842190932783*^9}, {3.9438422224037457`*^9, 3.9438422374365196`*^9}, 
   3.9438422952885056`*^9, 3.943842353094158*^9, 3.943842538875307*^9, {
   3.943842707297556*^9, 3.9438427714098473`*^9}, {3.9438428194298306`*^9, 
   3.9438429757588806`*^9}, 3.9438435425954494`*^9, 3.94400478868038*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"c79da8fc-3d27-a143-941e-296843a25429"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0071164`", ",", 
   FractionBox["1", 
    RowBox[{"1", "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["t", "4"]}]}]]}], "}"}]], "Output",
 CellChangeTimes->{{3.8812570375264273`*^9, 3.8812570711812725`*^9}, {
   3.881257110046982*^9, 3.881257115804064*^9}, {3.8812571883470535`*^9, 
   3.8812571971375866`*^9}, {3.881257244572747*^9, 3.8812572684852047`*^9}, {
   3.8812573228156233`*^9, 3.8812573616958375`*^9}, 3.881257436343524*^9, {
   3.8812575507605095`*^9, 3.881257559200346*^9}, 3.881257595417079*^9, 
   3.881257916315544*^9, 3.882200718021447*^9, 3.889061735760664*^9, 
   3.889061791669753*^9, 3.889061929111568*^9, 3.8890620057909803`*^9, 
   3.889062135615346*^9, {3.897577610277429*^9, 3.8975776135017033`*^9}, {
   3.897583000138677*^9, 3.897583064942706*^9}, {3.897583099709525*^9, 
   3.897583102575756*^9}, {3.8975831545369596`*^9, 3.8975831969562097`*^9}, 
   3.8975833062271214`*^9, 3.897583537933769*^9, 3.897583572723467*^9, 
   3.897583658254287*^9, 3.897587043109377*^9, 3.8977664591434526`*^9, 
   3.898063742841867*^9, 3.898156387054894*^9, 3.898408432812724*^9, 
   3.898435157390788*^9, {3.898435420050868*^9, 3.8984354441099*^9}, {
   3.8984365196969237`*^9, 3.898436523171155*^9}, {3.898446771417082*^9, 
   3.898446774599677*^9}, 3.898446817965131*^9, {3.898455628862954*^9, 
   3.898455631854422*^9}, 3.8984557221210437`*^9, 3.898597971467004*^9, {
   3.8985980352475147`*^9, 3.898598082365463*^9}, {3.898598260889527*^9, 
   3.898598273755751*^9}, 3.8985983924510536`*^9, 3.898598648404988*^9, {
   3.898599156790344*^9, 3.898599159740578*^9}, 3.898599289309517*^9, 
   3.898600695028031*^9, 3.8986007402292585`*^9, {3.898600771563314*^9, 
   3.898600809310959*^9}, {3.898601529782813*^9, 3.898601591623485*^9}, {
   3.8986018546552324`*^9, 3.8986018609907026`*^9}, {3.8986028034397*^9, 
   3.89860280632702*^9}, {3.898602911859344*^9, 3.898602913570977*^9}, 
   3.898602950921838*^9, 3.898604420026362*^9, {3.898607246147871*^9, 
   3.8986072514466095`*^9}, 3.8986073649570985`*^9, 3.898607398257956*^9, {
   3.898607594494088*^9, 3.898607973094438*^9}, {3.8986081477798967`*^9, 
   3.898608163979354*^9}, {3.898608590695585*^9, 3.898608605348601*^9}, {
   3.8986086507898607`*^9, 3.898608710807328*^9}, {3.898609353002922*^9, 
   3.898609371550775*^9}, {3.898611173535932*^9, 3.898611175042594*^9}, {
   3.914537970650938*^9, 3.9145379805499477`*^9}, 3.932188746978552*^9, {
   3.932188785087454*^9, 3.9321887904501038`*^9}, 3.932188884738199*^9, {
   3.9321889433364506`*^9, 3.9321889491410503`*^9}, 3.9321890317901917`*^9, 
   3.932189110586384*^9, 3.9321891424034824`*^9, 3.9321892118141556`*^9, {
   3.93218930552862*^9, 3.9321893300070057`*^9}, 3.932189360581335*^9, {
   3.932189401021801*^9, 3.932189414876774*^9}, {3.9321897426009083`*^9, 
   3.932189762387039*^9}, 3.932189921057968*^9, 3.9321900184873466`*^9, {
   3.9321901182132874`*^9, 3.9321901233722687`*^9}, 3.932203219699898*^9, {
   3.9322032541019135`*^9, 3.9322032909472313`*^9}, {3.932381891647419*^9, 
   3.9323819151461945`*^9}, 3.9438420613514385`*^9, {3.943842143671484*^9, 
   3.943842190932783*^9}, {3.9438422224037457`*^9, 3.9438422374365196`*^9}, 
   3.9438422952885056`*^9, 3.943842353094158*^9, 3.943842538875307*^9, {
   3.943842707297556*^9, 3.9438427714098473`*^9}, {3.9438428194298306`*^9, 
   3.9438429757588806`*^9}, 3.9438435425954494`*^9, 3.9440047886923923`*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"981524d7-4373-154c-9004-78a0ce37272e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0914325`", ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["t", "3"], " ", 
     SqrtBox[
      RowBox[{"-", 
       FractionBox[
        RowBox[{"1", "+", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["t", "4"]}]}]]}], 
        SuperscriptBox["t", "4"]]}]], " ", 
     SqrtBox[
      RowBox[{"-", 
       FractionBox[
        RowBox[{"1", "+", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["t", "4"]}]}]]}], 
        SuperscriptBox["t", "2"]]}]]}], 
    RowBox[{
     SqrtBox[
      RowBox[{"1", "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["t", "4"]}]}]], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["t", "4"]}], "+", 
       SqrtBox[
        RowBox[{"1", "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["t", "4"]}]}]]}], ")"}]}]]}], "}"}]], "Output",
 CellChangeTimes->{{3.8812570375264273`*^9, 3.8812570711812725`*^9}, {
   3.881257110046982*^9, 3.881257115804064*^9}, {3.8812571883470535`*^9, 
   3.8812571971375866`*^9}, {3.881257244572747*^9, 3.8812572684852047`*^9}, {
   3.8812573228156233`*^9, 3.8812573616958375`*^9}, 3.881257436343524*^9, {
   3.8812575507605095`*^9, 3.881257559200346*^9}, 3.881257595417079*^9, 
   3.881257916315544*^9, 3.882200718021447*^9, 3.889061735760664*^9, 
   3.889061791669753*^9, 3.889061929111568*^9, 3.8890620057909803`*^9, 
   3.889062135615346*^9, {3.897577610277429*^9, 3.8975776135017033`*^9}, {
   3.897583000138677*^9, 3.897583064942706*^9}, {3.897583099709525*^9, 
   3.897583102575756*^9}, {3.8975831545369596`*^9, 3.8975831969562097`*^9}, 
   3.8975833062271214`*^9, 3.897583537933769*^9, 3.897583572723467*^9, 
   3.897583658254287*^9, 3.897587043109377*^9, 3.8977664591434526`*^9, 
   3.898063742841867*^9, 3.898156387054894*^9, 3.898408432812724*^9, 
   3.898435157390788*^9, {3.898435420050868*^9, 3.8984354441099*^9}, {
   3.8984365196969237`*^9, 3.898436523171155*^9}, {3.898446771417082*^9, 
   3.898446774599677*^9}, 3.898446817965131*^9, {3.898455628862954*^9, 
   3.898455631854422*^9}, 3.8984557221210437`*^9, 3.898597971467004*^9, {
   3.8985980352475147`*^9, 3.898598082365463*^9}, {3.898598260889527*^9, 
   3.898598273755751*^9}, 3.8985983924510536`*^9, 3.898598648404988*^9, {
   3.898599156790344*^9, 3.898599159740578*^9}, 3.898599289309517*^9, 
   3.898600695028031*^9, 3.8986007402292585`*^9, {3.898600771563314*^9, 
   3.898600809310959*^9}, {3.898601529782813*^9, 3.898601591623485*^9}, {
   3.8986018546552324`*^9, 3.8986018609907026`*^9}, {3.8986028034397*^9, 
   3.89860280632702*^9}, {3.898602911859344*^9, 3.898602913570977*^9}, 
   3.898602950921838*^9, 3.898604420026362*^9, {3.898607246147871*^9, 
   3.8986072514466095`*^9}, 3.8986073649570985`*^9, 3.898607398257956*^9, {
   3.898607594494088*^9, 3.898607973094438*^9}, {3.8986081477798967`*^9, 
   3.898608163979354*^9}, {3.898608590695585*^9, 3.898608605348601*^9}, {
   3.8986086507898607`*^9, 3.898608710807328*^9}, {3.898609353002922*^9, 
   3.898609371550775*^9}, {3.898611173535932*^9, 3.898611175042594*^9}, {
   3.914537970650938*^9, 3.9145379805499477`*^9}, 3.932188746978552*^9, {
   3.932188785087454*^9, 3.9321887904501038`*^9}, 3.932188884738199*^9, {
   3.9321889433364506`*^9, 3.9321889491410503`*^9}, 3.9321890317901917`*^9, 
   3.932189110586384*^9, 3.9321891424034824`*^9, 3.9321892118141556`*^9, {
   3.93218930552862*^9, 3.9321893300070057`*^9}, 3.932189360581335*^9, {
   3.932189401021801*^9, 3.932189414876774*^9}, {3.9321897426009083`*^9, 
   3.932189762387039*^9}, 3.932189921057968*^9, 3.9321900184873466`*^9, {
   3.9321901182132874`*^9, 3.9321901233722687`*^9}, 3.932203219699898*^9, {
   3.9322032541019135`*^9, 3.9322032909472313`*^9}, {3.932381891647419*^9, 
   3.9323819151461945`*^9}, 3.9438420613514385`*^9, {3.943842143671484*^9, 
   3.943842190932783*^9}, {3.9438422224037457`*^9, 3.9438422374365196`*^9}, 
   3.9438422952885056`*^9, 3.943842353094158*^9, 3.943842538875307*^9, {
   3.943842707297556*^9, 3.9438427714098473`*^9}, {3.9438428194298306`*^9, 
   3.9438429757588806`*^9}, 3.9438435425954494`*^9, 3.944004788781109*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"0c1d5f52-7ac8-cc4f-8c25-8315afdbef75"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0219675`", ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"3", " ", "t"}], 
     SqrtBox[
      RowBox[{"1", "-", 
       RowBox[{"24", " ", 
        SuperscriptBox["t", "6"]}]}]]]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8812570375264273`*^9, 3.8812570711812725`*^9}, {
   3.881257110046982*^9, 3.881257115804064*^9}, {3.8812571883470535`*^9, 
   3.8812571971375866`*^9}, {3.881257244572747*^9, 3.8812572684852047`*^9}, {
   3.8812573228156233`*^9, 3.8812573616958375`*^9}, 3.881257436343524*^9, {
   3.8812575507605095`*^9, 3.881257559200346*^9}, 3.881257595417079*^9, 
   3.881257916315544*^9, 3.882200718021447*^9, 3.889061735760664*^9, 
   3.889061791669753*^9, 3.889061929111568*^9, 3.8890620057909803`*^9, 
   3.889062135615346*^9, {3.897577610277429*^9, 3.8975776135017033`*^9}, {
   3.897583000138677*^9, 3.897583064942706*^9}, {3.897583099709525*^9, 
   3.897583102575756*^9}, {3.8975831545369596`*^9, 3.8975831969562097`*^9}, 
   3.8975833062271214`*^9, 3.897583537933769*^9, 3.897583572723467*^9, 
   3.897583658254287*^9, 3.897587043109377*^9, 3.8977664591434526`*^9, 
   3.898063742841867*^9, 3.898156387054894*^9, 3.898408432812724*^9, 
   3.898435157390788*^9, {3.898435420050868*^9, 3.8984354441099*^9}, {
   3.8984365196969237`*^9, 3.898436523171155*^9}, {3.898446771417082*^9, 
   3.898446774599677*^9}, 3.898446817965131*^9, {3.898455628862954*^9, 
   3.898455631854422*^9}, 3.8984557221210437`*^9, 3.898597971467004*^9, {
   3.8985980352475147`*^9, 3.898598082365463*^9}, {3.898598260889527*^9, 
   3.898598273755751*^9}, 3.8985983924510536`*^9, 3.898598648404988*^9, {
   3.898599156790344*^9, 3.898599159740578*^9}, 3.898599289309517*^9, 
   3.898600695028031*^9, 3.8986007402292585`*^9, {3.898600771563314*^9, 
   3.898600809310959*^9}, {3.898601529782813*^9, 3.898601591623485*^9}, {
   3.8986018546552324`*^9, 3.8986018609907026`*^9}, {3.8986028034397*^9, 
   3.89860280632702*^9}, {3.898602911859344*^9, 3.898602913570977*^9}, 
   3.898602950921838*^9, 3.898604420026362*^9, {3.898607246147871*^9, 
   3.8986072514466095`*^9}, 3.8986073649570985`*^9, 3.898607398257956*^9, {
   3.898607594494088*^9, 3.898607973094438*^9}, {3.8986081477798967`*^9, 
   3.898608163979354*^9}, {3.898608590695585*^9, 3.898608605348601*^9}, {
   3.8986086507898607`*^9, 3.898608710807328*^9}, {3.898609353002922*^9, 
   3.898609371550775*^9}, {3.898611173535932*^9, 3.898611175042594*^9}, {
   3.914537970650938*^9, 3.9145379805499477`*^9}, 3.932188746978552*^9, {
   3.932188785087454*^9, 3.9321887904501038`*^9}, 3.932188884738199*^9, {
   3.9321889433364506`*^9, 3.9321889491410503`*^9}, 3.9321890317901917`*^9, 
   3.932189110586384*^9, 3.9321891424034824`*^9, 3.9321892118141556`*^9, {
   3.93218930552862*^9, 3.9321893300070057`*^9}, 3.932189360581335*^9, {
   3.932189401021801*^9, 3.932189414876774*^9}, {3.9321897426009083`*^9, 
   3.932189762387039*^9}, 3.932189921057968*^9, 3.9321900184873466`*^9, {
   3.9321901182132874`*^9, 3.9321901233722687`*^9}, 3.932203219699898*^9, {
   3.9322032541019135`*^9, 3.9322032909472313`*^9}, {3.932381891647419*^9, 
   3.9323819151461945`*^9}, 3.9438420613514385`*^9, {3.943842143671484*^9, 
   3.943842190932783*^9}, {3.9438422224037457`*^9, 3.9438422374365196`*^9}, 
   3.9438422952885056`*^9, 3.943842353094158*^9, 3.943842538875307*^9, {
   3.943842707297556*^9, 3.9438427714098473`*^9}, {3.9438428194298306`*^9, 
   3.9438429757588806`*^9}, 3.9438435425954494`*^9, 3.9440047888033257`*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"3aff1246-b274-ed40-9e00-9c86e5ffa7da"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["IntegrateCF   \:8fde\:5206\:6570\:5c55\:5f00\:6cd5\:6c42\:4e0d\:5b9a\
\:79ef\:5206", "Subsection",
 CellChangeTimes->{{3.914789225537161*^9, 
  3.9147892418397827`*^9}},ExpressionUUID->"a284ef26-8e34-6a46-add0-\
58ca763030fd"],

Cell["IntegrateCF[expr,x] \:4f7f\:7528\:8fde\:5206\:6570\:5c55\:5f00\:6cd5\
\:6c42 expr \:5173\:4e8e x \:7684\:4e0d\:5b9a\:79ef\:5206.", "Text",
 CellChangeTimes->{{3.9322000187314167`*^9, 
  3.9322000260388527`*^9}},ExpressionUUID->"bac22b6e-1167-574f-b46b-\
d7977bb0ade9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", 
    RowBox[{
    "IntegrateCFReplace", ",", "IntegrateCFImpl", ",", "IntegrateCF"}], "]"}],
    ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "@", "IntegrateCFImpl"}], "=", 
    RowBox[{
     RowBox[{"Options", "@", "IntegrateCF"}], "=", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"WorkingPrecision", "->", "Automatic"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Evaluate", "->", "False"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sequence", "@@", 
        RowBox[{"Options", "@", "ContinuedFractionExpandPeriod"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Sequence", "@@", 
        RowBox[{"Options", "@", "PolynomialFit"}]}]}], "\[IndentingNewLine]", 
      "}"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IntegrateCFReplace", "/:", 
    RowBox[{"MakeBoxes", "[", 
     RowBox[{
      RowBox[{"IntegrateCFReplace", "[", 
       RowBox[{"expr_", ",", "repl_"}], "]"}], ",", "form_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"InterpretationBox", "[", 
       RowBox[{
        RowBox[{"FrameBox", "[", 
         RowBox[{
          RowBox[{"RowBox", "[", 
           RowBox[{"{", 
            RowBox[{"#1", ",", "\"\</.\>\"", ",", "#2"}], "}"}], "]"}], ",", 
          RowBox[{"RoundingRadius", "->", "5"}]}], "]"}], ",", 
        RowBox[{"expr", "/.", "repl"}]}], "]"}], "&"}], "@@", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"MakeBoxes", "[", 
        RowBox[{"expr", ",", "form"}], "]"}], ",", 
       RowBox[{"MakeBoxes", "[", 
        RowBox[{"repl", ",", "form"}], "]"}]}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"IntegrateCFImpl", "[", 
     RowBox[{"poly_", ",", "rad_", ",", "x_", ",", 
      RowBox[{"opts", ":", 
       RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
    "\[IndentingNewLine]", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"prec", "=", 
         RowBox[{"OptionValue", "@", "WorkingPrecision"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"opts1", "=", 
         RowBox[{"FilterRules", "[", 
          RowBox[{
           RowBox[{"{", "opts", "}"}], ",", 
           RowBox[{"Options", "@", "ContinuedFractionExpandPeriod"}]}], 
          "]"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"opts2", "=", 
         RowBox[{"FilterRules", "[", 
          RowBox[{
           RowBox[{"{", "opts", "}"}], ",", 
           RowBox[{"Options", "@", "PolynomialFit"}]}], "]"}]}], ",", 
        "\[IndentingNewLine]", "r", ",", "g", ",", "p", ",", "q", ",", "alg", 
        ",", "coef"}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"prec", "===", "Automatic"}], ",", 
         RowBox[{"prec", "=", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"FreeQ", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"poly", ",", "rad"}], "}"}], ",", "Root"}], "]"}], ",",
             "Infinity", ",", "100"}], "]"}]}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"r", "=", 
        RowBox[{"N", "[", 
         RowBox[{"rad", ",", "prec"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"g", "=", 
        RowBox[{
         FractionBox[
          RowBox[{"Exponent", "[", 
           RowBox[{"r", ",", "x"}], "]"}], "2"], "-", "1"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"p", ",", "q"}], "}"}], "=", 
        RowBox[{"NumeratorDenominator", "@", 
         RowBox[{"Together", "@", 
          RowBox[{"FromContinuedFractionExpand", "@", 
           RowBox[{"ContinuedFractionExpandPeriod", "[", 
            RowBox[{
             SqrtBox["r"], ",", "x", ",", "opts1"}], "]"}]}]}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"alg", "=", 
        RowBox[{
         FractionBox[
          RowBox[{"D", "[", 
           RowBox[{"p", ",", "x"}], "]"}], "q"], "//", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"prec", "===", "Infinity"}], ",", "Cancel", ",", 
           RowBox[{
            RowBox[{"PolynomialFit", "[", 
             RowBox[{"#", ",", "x", ",", "g", ",", "opts2"}], "]"}], "&"}]}], 
          "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"coef", "=", 
        FractionBox[
         RowBox[{"Coefficient", "[", 
          RowBox[{"poly", ",", "x", ",", "g"}], "]"}], 
         RowBox[{"Coefficient", "[", 
          RowBox[{"alg", ",", "x", ",", "g"}], "]"}]]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"coef", ",", "p", ",", "q", ",", 
          RowBox[{"poly", "-", 
           RowBox[{"coef", " ", "alg"}]}]}], "}"}], "//", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"prec", "===", "Infinity"}], ",", "Simplify", ",", 
          RowBox[{
           RowBox[{"PolynomialRootApproximant", "[", 
            RowBox[{"#", ",", "x"}], "]"}], "&"}]}], "]"}]}]}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"IntegrateCF", "[", 
     RowBox[{"0", ",", "x_Symbol"}], "]"}], ":=", "0"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"IntegrateCF", "[", 
      RowBox[{
       FractionBox["poly_", 
        SqrtBox["rad_"]], ",", "x_Symbol", ",", 
       RowBox[{"opts", ":", 
        RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], "/;", 
     RowBox[{
      RowBox[{"PolynomialQ", "[", 
       RowBox[{"poly", ",", "x"}], "]"}], "&&", 
      RowBox[{"PolynomialQ", "[", 
       RowBox[{"rad", ",", "x"}], "]"}], "&&", 
      RowBox[{"SquareFreeQ", "[", 
       RowBox[{"rad", ",", "x"}], "]"}]}]}], ":=", "\[IndentingNewLine]", 
    RowBox[{"Module", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"n", ",", "g"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"n", "=", 
        RowBox[{"Exponent", "[", 
         RowBox[{"rad", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"g", "=", 
        RowBox[{
         FractionBox["n", "2"], "-", "1"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"#1", 
             RowBox[{"Log", "[", 
              RowBox[{"#2", "+", 
               RowBox[{"#3", 
                SqrtBox["rad"]}]}], "]"}]}], "+", 
            RowBox[{"IntegrateCF", "[", 
             RowBox[{
              FractionBox["#4", 
               SqrtBox["rad"]], ",", "x"}], "]"}]}], "&"}], ")"}], "@@", 
         RowBox[{"IntegrateCFImpl", "[", 
          RowBox[{"poly", ",", "rad", ",", "x", ",", "opts"}], "]"}]}], "/;", 
        RowBox[{"!", 
         RowBox[{"PossibleZeroQ", "@", 
          RowBox[{"Coefficient", "[", 
           RowBox[{"poly", ",", "x", ",", "g"}], "]"}]}]}]}]}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"IntegrateCF", "[", 
      RowBox[{
       FractionBox["rat_", 
        SqrtBox["rad_"]], ",", "x_Symbol", ",", 
       RowBox[{"opts", ":", 
        RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], "/;", 
     RowBox[{
      RowBox[{"!", 
       RowBox[{"PolynomialQ", "[", 
        RowBox[{"rat", ",", "x"}], "]"}]}], "&&", 
      RowBox[{"RationalExpressionQ", "[", 
       RowBox[{"rat", ",", "x"}], "]"}], "&&", 
      RowBox[{"PolynomialQ", "[", 
       RowBox[{"rad", ",", "x"}], "]"}], "&&", 
      RowBox[{"SquareFreeQ", "[", 
       RowBox[{"rad", ",", "x"}], "]"}]}]}], ":=", "\[IndentingNewLine]", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"eval", "=", 
         RowBox[{"OptionValue", "@", "Evaluate"}]}], ",", 
        "\[IndentingNewLine]", "nume", ",", "deno", ",", "n", ",", "g", ",", 
        "alg", ",", "trans", ",", "coef", ",", "r"}], "\[IndentingNewLine]", 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"nume", ",", "deno"}], "}"}], "=", 
        RowBox[{"NumeratorDenominator", "@", 
         RowBox[{"Together", "@", "rat"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"n", "=", 
        RowBox[{"Exponent", "[", 
         RowBox[{"rad", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"g", "=", 
        RowBox[{
         RowBox[{"Ceiling", "[", 
          FractionBox["n", "2"], "]"}], "-", "1"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"alg", ",", "trans"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"PolynomialQuotient", "[", 
           RowBox[{"nume", ",", "deno", ",", "x"}], "]"}]}], "}"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Do", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"coef", "=", 
           RowBox[{"Residue", "[", 
            RowBox[{"rat", ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"r", "=", 
           RowBox[{"Collect", "[", 
            RowBox[{
             RowBox[{
              UnderoverscriptBox["\[Sum]", 
               RowBox[{"k", "=", "0"}], "n"], 
              RowBox[{
               SuperscriptBox["x", 
                RowBox[{
                 RowBox[{"2", 
                  RowBox[{"(", 
                   RowBox[{"g", "+", "1"}], ")"}]}], "-", "k"}]], 
               RowBox[{"Coefficient", "[", 
                RowBox[{"rad", ",", "x", ",", "k"}], "]"}], 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  RowBox[{"y", " ", "x"}]}], ")"}], "k"]}]}], ",", "x"}], 
            "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"alg", ",", "trans"}], "}"}], "+=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"RootReduce", "[", 
                   RowBox[{"coef", " ", "#1"}], "]"}]}], 
                 RowBox[{
                  RowBox[{"If", "[", 
                   RowBox[{
                   "eval", ",", "ReplaceAll", ",", "IntegrateCFReplace"}], 
                   "]"}], "[", 
                  RowBox[{
                   RowBox[{"Log", "[", 
                    RowBox[{"#2", "+", 
                    RowBox[{"#3", 
                    SqrtBox["r"]}]}], "]"}], ",", 
                   RowBox[{"x", "->", 
                    FractionBox["1", 
                    RowBox[{"x", "-", "y"}]]}]}], "]"}]}], ",", 
                RowBox[{"coef", 
                 RowBox[{
                  UnderoverscriptBox["\[Sum]", 
                   RowBox[{"k", "=", "0"}], 
                   RowBox[{"g", "-", "1"}]], 
                  RowBox[{
                   RowBox[{"Coefficient", "[", 
                    RowBox[{"#4", ",", "x", ",", "k"}], "]"}], 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"x", "-", "y"}], ")"}], 
                    RowBox[{"g", "-", "1", "-", "k"}]]}]}]}]}], "}"}], "&"}], 
             ")"}], "@@", 
            RowBox[{"IntegrateCFImpl", "[", 
             RowBox[{
              SuperscriptBox["x", "g"], ",", "r", ",", "x", ",", "opts"}], 
             "]"}]}]}], ";"}], "\[IndentingNewLine]", ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", 
           RowBox[{"PolynomialRoots", "[", 
            RowBox[{"deno", ",", "x"}], "]"}]}], "}"}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"alg", "+", 
        RowBox[{"IntegrateCF", "[", 
         RowBox[{
          FractionBox[
           RowBox[{"RootReduce", "@", 
            RowBox[{"Collect", "[", 
             RowBox[{"trans", ",", "x"}], "]"}]}], 
           SqrtBox["rad"]], ",", "x"}], "]"}]}]}]}], "\[IndentingNewLine]", 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IntegrateCF", "[", 
   RowBox[{
    FractionBox["x", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["x", "4"], "+", 
       RowBox[{"2", 
        SuperscriptBox["x", "2"]}], "+", 
       RowBox[{"4", "x"}], "+", "1"}]]], ",", "x"}], "]"}], "//", 
  "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IntegrateCF", "[", 
    RowBox[{
     FractionBox[
      SuperscriptBox["x", "3"], 
      SqrtBox[
       RowBox[{"1", "-", 
        RowBox[{"6", " ", 
         SuperscriptBox["x", "2"]}], "-", 
        RowBox[{"10", " ", 
         SuperscriptBox["x", "3"]}], "-", 
        SuperscriptBox["x", "4"], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["x", "5"]}], "+", 
        RowBox[{"7", " ", 
         SuperscriptBox["x", "6"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["x", "7"]}], "+", 
        SuperscriptBox["x", "8"]}]]], ",", "x"}], "]"}], "//", "Short"}], "//",
   "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IntegrateCF", "[", 
    RowBox[{
     FractionBox["x", 
      SqrtBox[
       RowBox[{"x", "+", 
        RowBox[{
         SuperscriptBox["x", "4"], " ", 
         InterpretationBox[
          TemplateBox[{"Root", 
            RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"-1.42\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"], 
                   ImageSizeCache -> {
                    11.853515625, {0.181640625, 1.166015625}}]}, 
                 "RowDefault"], ShowStringCharacters -> 
                False], \
-1.42439379340939042961622362781781703234`15.463313413551964, Editable -> 
               False], "-", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"6.08\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"], 
                    ImageSizeCache -> {
                    11.853515625, {0.181640625, 1.166015625}}]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 6.07874936309953728397204031352885067463`16.093497577994288, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], 
            TagBox[
             RowBox[{"Root", "[", 
               RowBox[{
                 RowBox[{
                   RowBox[{
                    RowBox[{"-", "6075"}], "-", 
                    RowBox[{"405", " ", "#1"}], "-", 
                    RowBox[{"153", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}], 
             Short[#, 7]& ], 
            Complex[-1.4243937934093904`, -6.078749363099537]},
           "NumericalApproximation"],
          Root[-6075 - 405 # - 153 #^2 + #^3& , 2, 0]]}], "+", 
        RowBox[{
         SuperscriptBox["x", "3"], " ", 
         InterpretationBox[
          TemplateBox[{"Root", 
            RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"2.82\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"], 
                   ImageSizeCache -> {
                    11.853515625, {0.181640625, 1.166015625}}]}, 
                 "RowDefault"], ShowStringCharacters -> False], 
               2.82124703941704790821631831931881606579`15.652410869998, 
               Editable -> False], "+", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"7.49\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"], 
                    ImageSizeCache -> {
                    11.853515625, {0.181640625, 1.166015625}}]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 7.48691107715256176646789754158817231655`16.076272428651823, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], 
            TagBox[
             RowBox[{"Root", "[", 
               RowBox[{
                 RowBox[{
                   RowBox[{
                    RowBox[{"-", "5400"}], "+", 
                    RowBox[{"540", " ", "#1"}], "-", 
                    RowBox[{"90", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}], 
             Short[#, 7]& ], 
            Complex[2.821247039417048, 7.486911077152562]},
           "NumericalApproximation"],
          Root[-5400 + 540 # - 90 #^2 + #^3& , 3, 0]]}], "+", 
        RowBox[{
         SuperscriptBox["x", "2"], " ", 
         InterpretationBox[
          TemplateBox[{"Root", 
            RowBox[{
              InterpretationBox[
               StyleBox[
                TemplateBox[{"\"-3.31\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"], 
                   ImageSizeCache -> {
                    11.853515625, {0.181640625, 1.166015625}}]}, 
                 "RowDefault"], ShowStringCharacters -> 
                False], \
-3.31141020820660925139122809923719614744`15.949343913355902, Editable -> 
               False], "-", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  TemplateBox[{"\"3.39\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"], 
                    ImageSizeCache -> {
                    11.853515625, {0.181640625, 1.166015625}}]}, 
                   "RowDefault"], ShowStringCharacters -> False], 
                 3.39141511006302431852077461371663957834`15.959711880874785, 
                 Editable -> False], " ", "\[ImaginaryI]"}]}], 
            TagBox[
             RowBox[{"Root", "[", 
               RowBox[{
                 RowBox[{
                   RowBox[{
                    RowBox[{"-", "351"}], "-", 
                    RowBox[{"81", " ", "#1"}], "-", 
                    RowBox[{"9", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}], 
             Short[#, 7]& ], 
            Complex[-3.3114102082066093`, -3.3914151100630243`]},
           "NumericalApproximation"],
          Root[-351 - 81 # - 9 #^2 + #^3& , 2, 0]]}]}]]], ",", "x"}], "]"}], "//",
    "Short"}], "//", "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IntegrateCF", "[", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["x", "3"], "+", 
        RowBox[{"3", 
         SuperscriptBox["x", "2"]}], "+", 
        RowBox[{"9", "x"}], "-", "1"}], 
       RowBox[{
        SuperscriptBox["x", "3"], "-", 
        RowBox[{"3", 
         SuperscriptBox["x", "2"]}], "-", 
        RowBox[{"9", "x"}], "-", "13"}]], 
      FractionBox["1", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["x", "3"], "+", 
         RowBox[{"3", "x"}], "-", "1"}]]]}], ",", "x", ",", 
     RowBox[{"WorkingPrecision", "->", "100"}], ",", 
     RowBox[{"Evaluate", "->", "True"}]}], "]"}], "//", "Short"}], "//", 
  "TimingTest"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IntegrateCF", "[", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"3", "x"}], "+", "2"}], 
       RowBox[{
        SuperscriptBox["x", "3"], "+", 
        SuperscriptBox["x", "2"], "-", 
        RowBox[{"3", "x"}], "+", "1"}]], 
      FractionBox["1", 
       SqrtBox[
        RowBox[{"x", "+", 
         RowBox[{"2", 
          SuperscriptBox["x", "2"]}], "+", 
         RowBox[{"2", 
          SuperscriptBox["x", "4"]}], "-", 
         SuperscriptBox["x", "5"]}]]]}], ",", "x", ",", 
     RowBox[{"WorkingPrecision", "->", "100"}]}], "]"}], "//", "Short"}], "//",
   "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.914915166771023*^9, 3.914915277152489*^9}, {
  3.914923107012251*^9, 3.9149231964025726`*^9}, {3.9149233062979965`*^9, 
  3.9149233329861298`*^9}, {3.9149235589535217`*^9, 3.9149236142992306`*^9}, {
  3.9149236661048927`*^9, 3.91492369022777*^9}, {3.9149237267785397`*^9, 
  3.914923872290102*^9}, {3.942364404416338*^9, 
  3.942364410951088*^9}},ExpressionUUID->"a4a5a2ef-82ef-db4a-aaf7-\
2532406c342e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0047092`", ",", 
   RowBox[{
    RowBox[{"IntegrateCF", "[", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", 
        RowBox[{"5", " ", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"4", " ", "x"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["x", "2"]}], "+", 
           SuperscriptBox["x", "4"]}]]}]]}], ",", "x"}], "]"}], "+", 
    RowBox[{
     FractionBox["1", "5"], " ", 
     RowBox[{"Log", "[", 
      RowBox[{"2", "+", 
       SuperscriptBox["x", "2"], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["x", "3"]}], "-", 
       SuperscriptBox["x", "4"], "+", 
       SuperscriptBox["x", "5"], "+", 
       RowBox[{"x", " ", 
        RowBox[{"(", 
         RowBox[{"2", "-", "x", "+", 
          SuperscriptBox["x", "2"]}], ")"}], " ", 
        SqrtBox[
         RowBox[{"1", "+", 
          RowBox[{"4", " ", "x"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["x", "2"]}], "+", 
          SuperscriptBox["x", "4"]}]]}]}], "]"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.9149235752633495`*^9, 3.9149236149460773`*^9}, {
   3.914923672231949*^9, 3.9149236914011345`*^9}, {3.914923783079767*^9, 
   3.914923821222479*^9}, {3.9149238549580727`*^9, 3.914923879006975*^9}, 
   3.9321988657961235`*^9, 3.932199044225622*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"d367b573-dd14-e24d-8814-cf33e2f7b6e8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.1319836`", ",", 
   TagBox[
    RowBox[{
     RowBox[{"IntegrateCF", "[", 
      RowBox[{
       FractionBox[
        RowBox[{"5", "-", 
         RowBox[{"43", " ", "x"}], "-", 
         RowBox[{"70", " ", 
          SuperscriptBox["x", "2"]}]}], 
        RowBox[{"91", " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           RowBox[{"6", " ", 
            SuperscriptBox["x", "2"]}], "-", 
           RowBox[{"10", " ", 
            SuperscriptBox["x", "3"]}], "-", 
           SuperscriptBox["x", "4"], "+", 
           RowBox[{"6", " ", 
            SuperscriptBox["x", "5"]}], "+", 
           RowBox[{"7", " ", 
            SuperscriptBox["x", "6"]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["x", "7"]}], "+", 
           SuperscriptBox["x", "8"]}]]}]], ",", "x"}], "]"}], "+", 
     RowBox[{
      FractionBox["1", "91"], " ", 
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"\[LeftSkeleton]", "123", "\[RightSkeleton]"}], "+", 
        RowBox[{
         SqrtBox[
          RowBox[{"1", "-", 
           RowBox[{"6", " ", 
            SuperscriptBox["x", "2"]}], "-", 
           RowBox[{"10", " ", 
            SuperscriptBox["x", "3"]}], "-", 
           SuperscriptBox["x", "4"], "+", 
           RowBox[{"6", " ", 
            SuperscriptBox["x", "5"]}], "+", 
           RowBox[{"7", " ", 
            SuperscriptBox["x", "6"]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["x", "7"]}], "+", 
           SuperscriptBox["x", "8"]}]], " ", 
         RowBox[{"(", 
          RowBox[{"2541597392873", "+", 
           RowBox[{"\[LeftSkeleton]", "116", "\[RightSkeleton]"}], "+", 
           SuperscriptBox["x", "87"]}], ")"}]}]}], "]"}]}]}],
    Short]}], "}"}]], "Output",
 CellChangeTimes->{{3.9149235752633495`*^9, 3.9149236149460773`*^9}, {
   3.914923672231949*^9, 3.9149236914011345`*^9}, {3.914923783079767*^9, 
   3.914923821222479*^9}, {3.9149238549580727`*^9, 3.914923879006975*^9}, 
   3.9321988657961235`*^9, 3.932199044343769*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"b0af1b42-fbf0-d544-8c57-d03a7ca5a22d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0852481`", ",", 
   TagBox[
    RowBox[{
     RowBox[{"IntegrateCF", "[", 
      RowBox[{
       FractionBox[
        TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
             TemplateBox[{"\"0.246\"", 
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEExpressions", "NumericalApproximationElider"]]}, 
              "RowDefault"], "-", 
             RowBox[{
               TemplateBox[{"\"0.132\"", 
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEExpressions", "NumericalApproximationElider"]]}, 
                "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
          Complex[0.2458882642978679, -0.1321272342340612], "interp" -> 
          InterpretationBox["", 
            Root[1 - 27 #^2 + 81 #^3& , 2, 0]], "head" -> "Root", "big" -> 
          RowBox[{
             RowBox[{"1", "-", 
               RowBox[{"27", " ", 
                 SuperscriptBox["#1", "2"]}], "+", 
               RowBox[{"81", " ", 
                 SuperscriptBox["#1", "3"]}]}], "&"}], "degree" -> "3", 
          "shortDegree" -> "3", "number" -> 2|>,
         "NumericalApproximationInterp",
         InterpretationFunction->(Slot["interp"]& )], 
        SqrtBox[
         RowBox[{"x", "+", 
          RowBox[{
           SuperscriptBox["x", "4"], " ", 
           TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                TemplateBox[{"\"-1.42\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], "-", 
                RowBox[{
                  TemplateBox[{"\"6.08\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
             Complex[-1.4243937934093904`, -6.078749363099537], "interp" -> 
             InterpretationBox["", 
               Root[-6075 - 405 # - 153 #^2 + #^3& , 2, 0]], "head" -> "Root",
              "big" -> RowBox[{
                RowBox[{
                  RowBox[{"-", "6075"}], "-", 
                  RowBox[{"405", " ", "#1"}], "-", 
                  RowBox[{"153", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                  SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
             "shortDegree" -> "3", "number" -> 2|>,
            "NumericalApproximationInterp",
            InterpretationFunction->(Slot["interp"]& )]}], "+", 
          RowBox[{
           SuperscriptBox["x", "3"], " ", 
           TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                TemplateBox[{"\"2.82\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], "+", 
                RowBox[{
                  TemplateBox[{"\"7.49\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
             Complex[2.821247039417048, 7.486911077152562], "interp" -> 
             InterpretationBox["", 
               Root[-5400 + 540 # - 90 #^2 + #^3& , 3, 0]], "head" -> "Root", 
             "big" -> RowBox[{
                RowBox[{
                  RowBox[{"-", "5400"}], "+", 
                  RowBox[{"540", " ", "#1"}], "-", 
                  RowBox[{"90", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                  SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
             "shortDegree" -> "3", "number" -> 3|>,
            "NumericalApproximationInterp",
            InterpretationFunction->(Slot["interp"]& )]}], "+", 
          RowBox[{
           SuperscriptBox["x", "2"], " ", 
           TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                TemplateBox[{"\"-3.31\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], "-", 
                RowBox[{
                  TemplateBox[{"\"3.39\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
             Complex[-3.3114102082066097`, -3.3914151100630248`], "interp" -> 
             InterpretationBox["", 
               Root[-351 - 81 # - 9 #^2 + #^3& , 2, 0]], "head" -> "Root", 
             "big" -> RowBox[{
                RowBox[{
                  RowBox[{"-", "351"}], "-", 
                  RowBox[{"81", " ", "#1"}], "-", 
                  RowBox[{"9", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                  SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
             "shortDegree" -> "3", "number" -> 2|>,
            "NumericalApproximationInterp",
            InterpretationFunction->(Slot["interp"]& )]}]}]]], ",", "x"}], 
      "]"}], "+", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{
         SqrtBox[
          RowBox[{"x", "+", 
           RowBox[{
            SuperscriptBox["x", "4"], " ", 
            TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                 TemplateBox[{"\"-1.42\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], "-", 
                 RowBox[{
                   TemplateBox[{"\"6.08\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
              Complex[-1.4243937934093904`, -6.078749363099537], "interp" -> 
              InterpretationBox["", 
                Root[-6075 - 405 # - 153 #^2 + #^3& , 2, 0]], "head" -> 
              "Root", "big" -> RowBox[{
                 RowBox[{
                   RowBox[{"-", "6075"}], "-", 
                   RowBox[{"405", " ", "#1"}], "-", 
                   RowBox[{"153", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                   SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
              "shortDegree" -> "3", "number" -> 2|>,
             "NumericalApproximationInterp",
             InterpretationFunction->(Slot["interp"]& )]}], "+", 
           RowBox[{
            SuperscriptBox["x", "3"], " ", 
            TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                 TemplateBox[{"\"2.82\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], "+", 
                 RowBox[{
                   TemplateBox[{"\"7.49\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
              Complex[2.821247039417048, 7.486911077152562], "interp" -> 
              InterpretationBox["", 
                Root[-5400 + 540 # - 90 #^2 + #^3& , 3, 0]], "head" -> "Root",
               "big" -> RowBox[{
                 RowBox[{
                   RowBox[{"-", "5400"}], "+", 
                   RowBox[{"540", " ", "#1"}], "-", 
                   RowBox[{"90", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                   SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
              "shortDegree" -> "3", "number" -> 3|>,
             "NumericalApproximationInterp",
             InterpretationFunction->(Slot["interp"]& )]}], "+", 
           RowBox[{
            SuperscriptBox["x", "2"], " ", 
            TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                 TemplateBox[{"\"-3.31\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], "-", 
                 RowBox[{
                   TemplateBox[{"\"3.39\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
              Complex[-3.3114102082066097`, -3.3914151100630248`], "interp" -> 
              InterpretationBox["", 
                Root[-351 - 81 # - 9 #^2 + #^3& , 2, 0]], "head" -> "Root", 
              "big" -> RowBox[{
                 RowBox[{
                   RowBox[{"-", "351"}], "-", 
                   RowBox[{"81", " ", "#1"}], "-", 
                   RowBox[{"9", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                   SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
              "shortDegree" -> "3", "number" -> 2|>,
             "NumericalApproximationInterp",
             InterpretationFunction->(Slot["interp"]& )]}]}]], " ", 
         RowBox[{"(", 
          RowBox[{"x", "+", 
           TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                TemplateBox[{"\"-0.533\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], "-", 
                RowBox[{
                  TemplateBox[{"\"0.230\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
             Complex[-0.5329741617860174, -0.23000590098768225`], "interp" -> 
             InterpretationBox["", 
               Root[-1 + 12 # + 45 #^2 + 45 #^3& , 2, 0]], "head" -> "Root", 
             "big" -> RowBox[{
                RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  RowBox[{"12", " ", "#1"}], "+", 
                  RowBox[{"45", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                  RowBox[{"45", " ", 
                    SuperscriptBox["#1", "3"]}]}], "&"}], "degree" -> "3", 
             "shortDegree" -> "3", "number" -> 2|>,
            "NumericalApproximationInterp",
            InterpretationFunction->(Slot["interp"]& )]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["x", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", " ", 
            TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                 TemplateBox[{"\"1.55\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], "-", 
                 RowBox[{
                   TemplateBox[{"\"1.96\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
              Complex[1.5522580400323938`, -1.9580344267286516`], "interp" -> 
              InterpretationBox["", 
                Root[-6075 - 405 #^2 - 153 #^4 + #^6& , 5, 0]], "head" -> 
              "Root", "big" -> RowBox[{
                 RowBox[{
                   RowBox[{"-", "6075"}], "-", 
                   RowBox[{"405", " ", 
                    SuperscriptBox["#1", "2"]}], "-", 
                   RowBox[{"153", " ", 
                    SuperscriptBox["#1", "4"]}], "+", 
                   SuperscriptBox["#1", "6"]}], "&"}], "degree" -> "6", 
              "shortDegree" -> "6", "number" -> 5|>,
             "NumericalApproximationInterp",
             InterpretationFunction->(Slot["interp"]& )]}], "+", 
           TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                TemplateBox[{"\"-2.10\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], "+", 
                RowBox[{
                  TemplateBox[{"\"2.06\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
             Complex[-2.1009678931706075`, 2.0596597448125316`], "interp" -> 
             InterpretationBox["", 
               Root[-1323 + 81 #^2 - 18 #^4 + #^6& , 4, 0]], "head" -> "Root",
              "big" -> RowBox[{
                RowBox[{
                  RowBox[{"-", "1323"}], "+", 
                  RowBox[{"81", " ", 
                    SuperscriptBox["#1", "2"]}], "-", 
                  RowBox[{"18", " ", 
                    SuperscriptBox["#1", "4"]}], "+", 
                  SuperscriptBox["#1", "6"]}], "&"}], "degree" -> "6", 
             "shortDegree" -> "6", "number" -> 4|>,
            "NumericalApproximationInterp",
            InterpretationFunction->(Slot["interp"]& )]}], ")"}]}], "+", 
        RowBox[{"x", " ", 
         TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
              TemplateBox[{"\"0.670\"", 
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEExpressions", "NumericalApproximationElider"]]}, 
               "RowDefault"], "-", 
              RowBox[{
                TemplateBox[{"\"1.01\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
           Complex[0.6703571698007885, -1.0128923193922856`], "interp" -> 
           InterpretationBox["", 
             Root[-1 + 6 #^2 + 3 #^4 + 3 #^6& , 5, 0]], "head" -> "Root", 
           "big" -> RowBox[{
              RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"6", " ", 
                  SuperscriptBox["#1", "2"]}], "+", 
                RowBox[{"3", " ", 
                  SuperscriptBox["#1", "4"]}], "+", 
                RowBox[{"3", " ", 
                  SuperscriptBox["#1", "6"]}]}], "&"}], "degree" -> "6", 
           "shortDegree" -> "6", "number" -> 5|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )]}], "+", 
        TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
             TemplateBox[{"\"-0.0316\"", 
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEExpressions", "NumericalApproximationElider"]]}, 
              "RowDefault"], "+", 
             RowBox[{
               TemplateBox[{"\"0.135\"", 
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEExpressions", "NumericalApproximationElider"]]}, 
                "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
          Complex[-0.0316459290544759, 0.13505230925230477`], "interp" -> 
          InterpretationBox["", 
            Root[-1 + 32292 #^2 + 3013200 #^4 + 87480000 #^6& , 4, 0]], 
          "head" -> "Root", "big" -> RowBox[{
             RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"32292", " ", 
                 SuperscriptBox["#1", "2"]}], "+", 
               RowBox[{"3013200", " ", 
                 SuperscriptBox["#1", "4"]}], "+", 
               RowBox[{"87480000", " ", 
                 SuperscriptBox["#1", "6"]}]}], "&"}], "degree" -> "6", 
          "shortDegree" -> "6", "number" -> 4|>,
         "NumericalApproximationInterp",
         InterpretationFunction->(Slot["interp"]& )]}], "]"}], " ", 
      TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
           TemplateBox[{"\"0.0829\"", 
             DynamicBox[
              FEPrivate`FrontEndResource[
              "FEExpressions", "NumericalApproximationElider"]]}, 
            "RowDefault"], "+", 
           RowBox[{
             TemplateBox[{"\"0.105\"", 
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEExpressions", "NumericalApproximationElider"]]}, 
              "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
        Complex[0.08287456009766424, 0.10453883155137837`], "interp" -> 
        InterpretationBox["", 
          Root[-1 + 1377 #^2 + 32805 #^4 + 4428675 #^6& , 6, 0]], "head" -> 
        "Root", "big" -> RowBox[{
           RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"1377", " ", 
               SuperscriptBox["#1", "2"]}], "+", 
             RowBox[{"32805", " ", 
               SuperscriptBox["#1", "4"]}], "+", 
             RowBox[{"4428675", " ", 
               SuperscriptBox["#1", "6"]}]}], "&"}], "degree" -> "6", 
        "shortDegree" -> "6", "number" -> 6|>,
       "NumericalApproximationInterp",
       InterpretationFunction->(Slot["interp"]& )]}]}],
    Short]}], "}"}]], "Output",
 CellChangeTimes->{{3.9149235752633495`*^9, 3.9149236149460773`*^9}, {
   3.914923672231949*^9, 3.9149236914011345`*^9}, {3.914923783079767*^9, 
   3.914923821222479*^9}, {3.9149238549580727`*^9, 3.914923879006975*^9}, 
   3.9321988657961235`*^9, 3.932199044462612*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"ec6384b4-7485-9d4a-8d30-72432a23b48c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.3290631`", ",", 
   TagBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"Log", "[", 
        RowBox[{
         RowBox[{
          SqrtBox[
           RowBox[{
            FractionBox["1", 
             RowBox[{"x", "-", 
              
              TemplateBox[<|
               "icon" -> "Root", "small" -> TemplateBox[{"\"5.21\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], "approx" -> 5.207606805471073, "interp" -> 
                InterpretationBox["", 
                  Root[-13 - 9 # - 3 #^2 + #^3& , 1, 0]], "head" -> "Root", 
                "big" -> RowBox[{
                   RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
                "shortDegree" -> "3", "number" -> 1|>,
               "NumericalApproximationInterp",
               InterpretationFunction->(Slot["interp"]& )]}]], "+", 
            FractionBox[
             RowBox[{"3", " ", 
              
              TemplateBox[<|
               "icon" -> "Root", "small" -> TemplateBox[{"\"5.21\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], "approx" -> 5.207606805471073, "interp" -> 
                InterpretationBox["", 
                  Root[-13 - 9 # - 3 #^2 + #^3& , 1, 0]], "head" -> "Root", 
                "big" -> RowBox[{
                   RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
                "shortDegree" -> "3", "number" -> 1|>,
               "NumericalApproximationInterp",
               InterpretationFunction->(Slot["interp"]& )]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"x", "-", 
                
                TemplateBox[<|
                 "icon" -> "Root", "small" -> TemplateBox[{"\"5.21\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], "approx" -> 5.207606805471073, "interp" -> 
                  InterpretationBox["", 
                    Root[-13 - 9 # - 3 #^2 + #^3& , 1, 0]], "head" -> "Root", 
                  "big" -> RowBox[{
                    RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
                  "shortDegree" -> "3", "number" -> 1|>,
                 "NumericalApproximationInterp",
                 InterpretationFunction->(Slot["interp"]& )]}], ")"}], "2"]], 
            "+", 
            FractionBox[
             RowBox[{"3", "+", 
              RowBox[{"3", " ", 
               SuperscriptBox[
                
                TemplateBox[<|
                 "icon" -> "Root", "small" -> TemplateBox[{"\"5.21\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], "approx" -> 5.207606805471073, "interp" -> 
                  InterpretationBox["", 
                    Root[-13 - 9 # - 3 #^2 + #^3& , 1, 0]], "head" -> "Root", 
                  "big" -> RowBox[{
                    RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
                  "shortDegree" -> "3", "number" -> 1|>,
                 "NumericalApproximationInterp",
                 InterpretationFunction->(Slot["interp"]& )], "2"]}]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"x", "-", 
                
                TemplateBox[<|
                 "icon" -> "Root", "small" -> TemplateBox[{"\"5.21\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], "approx" -> 5.207606805471073, "interp" -> 
                  InterpretationBox["", 
                    Root[-13 - 9 # - 3 #^2 + #^3& , 1, 0]], "head" -> "Root", 
                  "big" -> RowBox[{
                    RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
                  "shortDegree" -> "3", "number" -> 1|>,
                 "NumericalApproximationInterp",
                 InterpretationFunction->(Slot["interp"]& )]}], ")"}], "3"]], 
            "+", 
            FractionBox[
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{"3", " ", 
               
               TemplateBox[<|
                "icon" -> "Root", "small" -> TemplateBox[{"\"5.21\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], "approx" -> 5.207606805471073, "interp" -> 
                 InterpretationBox["", 
                   Root[-13 - 9 # - 3 #^2 + #^3& , 1, 0]], "head" -> "Root", 
                 "big" -> RowBox[{
                    RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
                 "shortDegree" -> "3", "number" -> 1|>,
                "NumericalApproximationInterp",
                InterpretationFunction->(Slot["interp"]& )]}], "+", 
              SuperscriptBox[
               
               TemplateBox[<|
                "icon" -> "Root", "small" -> TemplateBox[{"\"5.21\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], "approx" -> 5.207606805471073, "interp" -> 
                 InterpretationBox["", 
                   Root[-13 - 9 # - 3 #^2 + #^3& , 1, 0]], "head" -> "Root", 
                 "big" -> RowBox[{
                    RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
                 "shortDegree" -> "3", "number" -> 1|>,
                "NumericalApproximationInterp",
                InterpretationFunction->(Slot["interp"]& )], "3"]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"x", "-", 
                
                TemplateBox[<|
                 "icon" -> "Root", "small" -> TemplateBox[{"\"5.21\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], "approx" -> 5.207606805471073, "interp" -> 
                  InterpretationBox["", 
                    Root[-13 - 9 # - 3 #^2 + #^3& , 1, 0]], "head" -> "Root", 
                  "big" -> RowBox[{
                    RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
                  "shortDegree" -> "3", "number" -> 1|>,
                 "NumericalApproximationInterp",
                 InterpretationFunction->(Slot["interp"]& )]}], ")"}], 
              "4"]]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", 
             RowBox[{"x", "-", 
              
              TemplateBox[<|
               "icon" -> "Root", "small" -> TemplateBox[{"\"5.21\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], "approx" -> 5.207606805471073, "interp" -> 
                InterpretationBox["", 
                  Root[-13 - 9 # - 3 #^2 + #^3& , 1, 0]], "head" -> "Root", 
                "big" -> RowBox[{
                   RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
                "shortDegree" -> "3", "number" -> 1|>,
               "NumericalApproximationInterp",
               InterpretationFunction->(Slot["interp"]& )]}]], "+", 
            
            TemplateBox[<|
             "icon" -> "Root", "small" -> TemplateBox[{"\"0.0659\"", 
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEExpressions", "NumericalApproximationElider"]]}, 
                "RowDefault"], "approx" -> 0.06594832357203494, "interp" -> 
              InterpretationBox["", 
                Root[-1 + 12 # + 45 #^2 + 45 #^3& , 1, 0]], "head" -> "Root", 
              "big" -> RowBox[{
                 RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"12", " ", "#1"}], "+", 
                   RowBox[{"45", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                   RowBox[{"45", " ", 
                    SuperscriptBox["#1", "3"]}]}], "&"}], "degree" -> "3", 
              "shortDegree" -> "3", "number" -> 1|>,
             "NumericalApproximationInterp",
             InterpretationFunction->(Slot["interp"]& )]}], ")"}]}], "+", 
         FractionBox[
          RowBox[{
           FractionBox[
            
            TemplateBox[<|
             "icon" -> "Root", "small" -> TemplateBox[{"\"12.5\"", 
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEExpressions", "NumericalApproximationElider"]]}, 
                "RowDefault"], "approx" -> 12.483941188055107`, "interp" -> 
              InterpretationBox["", 
                Root[-6075 - 405 #^2 - 153 #^4 + #^6& , 2, 0]], "head" -> 
              "Root", "big" -> RowBox[{
                 RowBox[{
                   RowBox[{"-", "6075"}], "-", 
                   RowBox[{"405", " ", 
                    SuperscriptBox["#1", "2"]}], "-", 
                   RowBox[{"153", " ", 
                    SuperscriptBox["#1", "4"]}], "+", 
                   SuperscriptBox["#1", "6"]}], "&"}], "degree" -> "6", 
              "shortDegree" -> "6", "number" -> 2|>,
             "NumericalApproximationInterp",
             InterpretationFunction->(Slot["interp"]& )], 
            RowBox[{"x", "-", 
             
             TemplateBox[<|
              "icon" -> "Root", "small" -> TemplateBox[{"\"5.21\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], "approx" -> 5.207606805471073, "interp" -> 
               InterpretationBox["", 
                 Root[-13 - 9 # - 3 #^2 + #^3& , 1, 0]], "head" -> "Root", 
               "big" -> RowBox[{
                  RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
               "shortDegree" -> "3", "number" -> 1|>,
              "NumericalApproximationInterp",
              InterpretationFunction->(Slot["interp"]& )]}]], "+", 
           TemplateBox[<|"icon" -> "Root", "small" -> TemplateBox[{"\"4.20\"", 
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEExpressions", "NumericalApproximationElider"]]}, 
               "RowDefault"], "approx" -> 4.201935786341215, "interp" -> 
             InterpretationBox["", 
               Root[-1323 + 81 #^2 - 18 #^4 + #^6& , 2, 0]], "head" -> "Root",
              "big" -> RowBox[{
                RowBox[{
                  RowBox[{"-", "1323"}], "+", 
                  RowBox[{"81", " ", 
                    SuperscriptBox["#1", "2"]}], "-", 
                  RowBox[{"18", " ", 
                    SuperscriptBox["#1", "4"]}], "+", 
                  SuperscriptBox["#1", "6"]}], "&"}], "degree" -> "6", 
             "shortDegree" -> "6", "number" -> 2|>,
            "NumericalApproximationInterp",
            InterpretationFunction->(Slot["interp"]& )]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "-", 
             
             TemplateBox[<|
              "icon" -> "Root", "small" -> TemplateBox[{"\"5.21\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], "approx" -> 5.207606805471073, "interp" -> 
               InterpretationBox["", 
                 Root[-13 - 9 # - 3 #^2 + #^3& , 1, 0]], "head" -> "Root", 
               "big" -> RowBox[{
                  RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
               "shortDegree" -> "3", "number" -> 1|>,
              "NumericalApproximationInterp",
              InterpretationFunction->(Slot["interp"]& )]}], ")"}], "2"]], 
         "+", 
         FractionBox[
          TemplateBox[<|"icon" -> "Root", "small" -> TemplateBox[{"\"0.391\"", 
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEExpressions", "NumericalApproximationElider"]]}, 
              "RowDefault"], "approx" -> 0.3913364679673002, "interp" -> 
            InterpretationBox["", 
              Root[-1 + 6 #^2 + 3 #^4 + 3 #^6& , 2, 0]], "head" -> "Root", 
            "big" -> RowBox[{
               RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"6", " ", 
                   SuperscriptBox["#1", "2"]}], "+", 
                 RowBox[{"3", " ", 
                   SuperscriptBox["#1", "4"]}], "+", 
                 RowBox[{"3", " ", 
                   SuperscriptBox["#1", "6"]}]}], "&"}], "degree" -> "6", 
            "shortDegree" -> "6", "number" -> 2|>,
           "NumericalApproximationInterp",
           InterpretationFunction->(Slot["interp"]& )], 
          RowBox[{"x", "-", 
           TemplateBox[<|"icon" -> "Root", "small" -> TemplateBox[{"\"5.21\"", 
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEExpressions", "NumericalApproximationElider"]]}, 
               "RowDefault"], "approx" -> 5.207606805471073, "interp" -> 
             InterpretationBox["", 
               Root[-13 - 9 # - 3 #^2 + #^3& , 1, 0]], "head" -> "Root", 
             "big" -> RowBox[{
                RowBox[{
                  RowBox[{"-", "13"}], "-", 
                  RowBox[{"9", " ", "#1"}], "-", 
                  RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                  SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
             "shortDegree" -> "3", "number" -> 1|>,
            "NumericalApproximationInterp",
            InterpretationFunction->(Slot["interp"]& )]}]], "+", 
         TemplateBox[<|"icon" -> "Root", "small" -> TemplateBox[{"\"5.56\"", 
              DynamicBox[
               FEPrivate`FrontEndResource[
               "FEExpressions", "NumericalApproximationElider"]], 
              "\"\[ThinSpace]\[Times]\[ThinSpace]\"", 
              
              TemplateBox[{"\"10\"", "\"-3\""}, "Superscript", SyntaxForm -> 
               SuperscriptBox]}, "RowDefault"], "approx" -> 
           0.005556831189989215, "interp" -> InterpretationBox["", 
             Root[-1 + 32292 #^2 + 3013200 #^4 + 87480000 #^6& , 2, 0]], 
           "head" -> "Root", "big" -> RowBox[{
              RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"32292", " ", 
                  SuperscriptBox["#1", "2"]}], "+", 
                RowBox[{"3013200", " ", 
                  SuperscriptBox["#1", "4"]}], "+", 
                RowBox[{"87480000", " ", 
                  SuperscriptBox["#1", "6"]}]}], "&"}], "degree" -> "6", 
           "shortDegree" -> "6", "number" -> 2|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )]}], "]"}]}], " ", 
      TemplateBox[<|"icon" -> "Root", "small" -> TemplateBox[{"\"0.174\"", 
           DynamicBox[
            FEPrivate`FrontEndResource[
            "FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
         "approx" -> 0.17435178153367673`, "interp" -> InterpretationBox["", 
          Root[-1 + 243 #^2 - 21870 #^4 + 492075 #^6& , 2, 0]], "head" -> 
        "Root", "big" -> RowBox[{
           RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"243", " ", 
               SuperscriptBox["#1", "2"]}], "-", 
             RowBox[{"21870", " ", 
               SuperscriptBox["#1", "4"]}], "+", 
             RowBox[{"492075", " ", 
               SuperscriptBox["#1", "6"]}]}], "&"}], "degree" -> "6", 
        "shortDegree" -> "6", "number" -> 2|>,
       "NumericalApproximationInterp",
       InterpretationFunction->(Slot["interp"]& )]}], "-", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{
         SqrtBox[
          RowBox[{
           FractionBox["1", 
            RowBox[{"x", "-", 
             TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                  TemplateBox[{"\"-1.10\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], "+", 
                  RowBox[{
                    TemplateBox[{"\"1.13\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
               Complex[-1.1038034027355366`, 1.1304717033543414`], "interp" -> 
               InterpretationBox["", 
                 Root[-13 - 9 # - 3 #^2 + #^3& , 3, 0]], "head" -> "Root", 
               "big" -> RowBox[{
                  RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
               "shortDegree" -> "3", "number" -> 3|>,
              "NumericalApproximationInterp",
              InterpretationFunction->(Slot["interp"]& )]}]], "+", 
           FractionBox[
            RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], 
            RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]], "+", 
           RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "+", 
           FractionBox[
            RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], 
            RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]]}]], " ", 
         RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "+", 
        RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}]}], "]"}], " ", 
      TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
           TemplateBox[{"\"-0.0872\"", 
             DynamicBox[
              FEPrivate`FrontEndResource[
              "FEExpressions", "NumericalApproximationElider"]]}, 
            "RowDefault"], "-", 
           RowBox[{
             TemplateBox[{"\"0.0240\"", 
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEExpressions", "NumericalApproximationElider"]]}, 
              "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
        Complex[-0.08717589076683836, -0.02401427847662679], "interp" -> 
        InterpretationBox["", 
          Root[-1 + 243 #^2 - 21870 #^4 + 492075 #^6& , 3, 0]], "head" -> 
        "Root", "big" -> RowBox[{
           RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"243", " ", 
               SuperscriptBox["#1", "2"]}], "-", 
             RowBox[{"21870", " ", 
               SuperscriptBox["#1", "4"]}], "+", 
             RowBox[{"492075", " ", 
               SuperscriptBox["#1", "6"]}]}], "&"}], "degree" -> "6", 
        "shortDegree" -> "6", "number" -> 3|>,
       "NumericalApproximationInterp",
       InterpretationFunction->(Slot["interp"]& )]}], "-", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{
         SqrtBox[
          RowBox[{
           FractionBox["1", 
            RowBox[{"x", "-", 
             TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                  TemplateBox[{"\"-1.10\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], "-", 
                  RowBox[{
                    TemplateBox[{"\"1.13\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
               Complex[-1.1038034027355366`, -1.1304717033543414`], "interp" -> 
               InterpretationBox["", 
                 Root[-13 - 9 # - 3 #^2 + #^3& , 2, 0]], "head" -> "Root", 
               "big" -> RowBox[{
                  RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
               "shortDegree" -> "3", "number" -> 2|>,
              "NumericalApproximationInterp",
              InterpretationFunction->(Slot["interp"]& )]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                  TemplateBox[{"\"-1.10\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], "-", 
                  RowBox[{
                    TemplateBox[{"\"1.13\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
               Complex[-1.1038034027355366`, -1.1304717033543414`], "interp" -> 
               InterpretationBox["", 
                 Root[-13 - 9 # - 3 #^2 + #^3& , 2, 0]], "head" -> "Root", 
               "big" -> RowBox[{
                  RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
               "shortDegree" -> "3", "number" -> 2|>,
              "NumericalApproximationInterp",
              InterpretationFunction->(Slot["interp"]& )]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"x", "-", 
               TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                    TemplateBox[{"\"-1.10\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], "-", 
                    RowBox[{
                    TemplateBox[{"\"1.13\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
                 Complex[-1.1038034027355366`, -1.1304717033543414`], 
                 "interp" -> InterpretationBox["", 
                   Root[-13 - 9 # - 3 #^2 + #^3& , 2, 0]], "head" -> "Root", 
                 "big" -> RowBox[{
                    RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
                 "shortDegree" -> "3", "number" -> 2|>,
                "NumericalApproximationInterp",
                InterpretationFunction->(Slot["interp"]& )]}], ")"}], "2"]], 
           "+", 
           FractionBox[
            RowBox[{"3", "+", 
             RowBox[{"3", " ", 
              SuperscriptBox[
               TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                    TemplateBox[{"\"-1.10\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], "-", 
                    RowBox[{
                    TemplateBox[{"\"1.13\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
                 Complex[-1.1038034027355366`, -1.1304717033543414`], 
                 "interp" -> InterpretationBox["", 
                   Root[-13 - 9 # - 3 #^2 + #^3& , 2, 0]], "head" -> "Root", 
                 "big" -> RowBox[{
                    RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
                 "shortDegree" -> "3", "number" -> 2|>,
                "NumericalApproximationInterp",
                InterpretationFunction->(Slot["interp"]& )], "2"]}]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"x", "-", 
               TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                    TemplateBox[{"\"-1.10\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], "-", 
                    RowBox[{
                    TemplateBox[{"\"1.13\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
                 Complex[-1.1038034027355366`, -1.1304717033543414`], 
                 "interp" -> InterpretationBox["", 
                   Root[-13 - 9 # - 3 #^2 + #^3& , 2, 0]], "head" -> "Root", 
                 "big" -> RowBox[{
                    RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
                 "shortDegree" -> "3", "number" -> 2|>,
                "NumericalApproximationInterp",
                InterpretationFunction->(Slot["interp"]& )]}], ")"}], "3"]], 
           "+", 
           FractionBox[
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"3", " ", 
              TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                   TemplateBox[{"\"-1.10\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], "-", 
                   RowBox[{
                    TemplateBox[{"\"1.13\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
                Complex[-1.1038034027355366`, -1.1304717033543414`], "interp" -> 
                InterpretationBox["", 
                  Root[-13 - 9 # - 3 #^2 + #^3& , 2, 0]], "head" -> "Root", 
                "big" -> RowBox[{
                   RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
                "shortDegree" -> "3", "number" -> 2|>,
               "NumericalApproximationInterp",
               InterpretationFunction->(Slot["interp"]& )]}], "+", 
             SuperscriptBox[
              TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                   TemplateBox[{"\"-1.10\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], "-", 
                   RowBox[{
                    TemplateBox[{"\"1.13\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
                Complex[-1.1038034027355366`, -1.1304717033543414`], "interp" -> 
                InterpretationBox["", 
                  Root[-13 - 9 # - 3 #^2 + #^3& , 2, 0]], "head" -> "Root", 
                "big" -> RowBox[{
                   RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
                "shortDegree" -> "3", "number" -> 2|>,
               "NumericalApproximationInterp",
               InterpretationFunction->(Slot["interp"]& )], "3"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"x", "-", 
               TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                    TemplateBox[{"\"-1.10\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], "-", 
                    RowBox[{
                    TemplateBox[{"\"1.13\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
                 Complex[-1.1038034027355366`, -1.1304717033543414`], 
                 "interp" -> InterpretationBox["", 
                   Root[-13 - 9 # - 3 #^2 + #^3& , 2, 0]], "head" -> "Root", 
                 "big" -> RowBox[{
                    RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
                 "shortDegree" -> "3", "number" -> 2|>,
                "NumericalApproximationInterp",
                InterpretationFunction->(Slot["interp"]& )]}], ")"}], 
             "4"]]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", 
            RowBox[{"x", "-", 
             TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                  TemplateBox[{"\"-1.10\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], "-", 
                  RowBox[{
                    TemplateBox[{"\"1.13\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
               Complex[-1.1038034027355366`, -1.1304717033543414`], "interp" -> 
               InterpretationBox["", 
                 Root[-13 - 9 # - 3 #^2 + #^3& , 2, 0]], "head" -> "Root", 
               "big" -> RowBox[{
                  RowBox[{
                    RowBox[{"-", "13"}], "-", 
                    RowBox[{"9", " ", "#1"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
               "shortDegree" -> "3", "number" -> 2|>,
              "NumericalApproximationInterp",
              InterpretationFunction->(Slot["interp"]& )]}]], "+", 
           TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                TemplateBox[{"\"-0.533\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], "-", 
                RowBox[{
                  TemplateBox[{"\"0.230\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
             Complex[-0.5329741617860174, -0.23000590098768225`], "interp" -> 
             InterpretationBox["", 
               Root[-1 + 12 # + 45 #^2 + 45 #^3& , 2, 0]], "head" -> "Root", 
             "big" -> RowBox[{
                RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  RowBox[{"12", " ", "#1"}], "+", 
                  RowBox[{"45", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                  RowBox[{"45", " ", 
                    SuperscriptBox["#1", "3"]}]}], "&"}], "degree" -> "3", 
             "shortDegree" -> "3", "number" -> 2|>,
            "NumericalApproximationInterp",
            InterpretationFunction->(Slot["interp"]& )]}], ")"}]}], "+", 
        FractionBox[
         RowBox[{
          FractionBox[
           TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                TemplateBox[{"\"1.55\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], "-", 
                RowBox[{
                  TemplateBox[{"\"1.96\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
             Complex[1.5522580400323938`, -1.9580344267286516`], "interp" -> 
             InterpretationBox["", 
               Root[-6075 - 405 #^2 - 153 #^4 + #^6& , 5, 0]], "head" -> 
             "Root", "big" -> RowBox[{
                RowBox[{
                  RowBox[{"-", "6075"}], "-", 
                  RowBox[{"405", " ", 
                    SuperscriptBox["#1", "2"]}], "-", 
                  RowBox[{"153", " ", 
                    SuperscriptBox["#1", "4"]}], "+", 
                  SuperscriptBox["#1", "6"]}], "&"}], "degree" -> "6", 
             "shortDegree" -> "6", "number" -> 5|>,
            "NumericalApproximationInterp",
            InterpretationFunction->(Slot["interp"]& )], 
           RowBox[{"x", "-", 
            TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                 TemplateBox[{"\"-1.10\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], "-", 
                 RowBox[{
                   TemplateBox[{"\"1.13\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
              Complex[-1.1038034027355366`, -1.1304717033543414`], "interp" -> 
              InterpretationBox["", 
                Root[-13 - 9 # - 3 #^2 + #^3& , 2, 0]], "head" -> "Root", 
              "big" -> RowBox[{
                 RowBox[{
                   RowBox[{"-", "13"}], "-", 
                   RowBox[{"9", " ", "#1"}], "-", 
                   RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                   SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
              "shortDegree" -> "3", "number" -> 2|>,
             "NumericalApproximationInterp",
             InterpretationFunction->(Slot["interp"]& )]}]], "+", 
          TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
               TemplateBox[{"\"-2.10\"", 
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEExpressions", "NumericalApproximationElider"]]}, 
                "RowDefault"], "+", 
               RowBox[{
                 TemplateBox[{"\"2.06\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
            Complex[-2.1009678931706075`, 2.0596597448125316`], "interp" -> 
            InterpretationBox["", 
              Root[-1323 + 81 #^2 - 18 #^4 + #^6& , 4, 0]], "head" -> "Root", 
            "big" -> RowBox[{
               RowBox[{
                 RowBox[{"-", "1323"}], "+", 
                 RowBox[{"81", " ", 
                   SuperscriptBox["#1", "2"]}], "-", 
                 RowBox[{"18", " ", 
                   SuperscriptBox["#1", "4"]}], "+", 
                 SuperscriptBox["#1", "6"]}], "&"}], "degree" -> "6", 
            "shortDegree" -> "6", "number" -> 4|>,
           "NumericalApproximationInterp",
           InterpretationFunction->(Slot["interp"]& )]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "-", 
            TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
                 TemplateBox[{"\"-1.10\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], "-", 
                 RowBox[{
                   TemplateBox[{"\"1.13\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
              Complex[-1.1038034027355366`, -1.1304717033543414`], "interp" -> 
              InterpretationBox["", 
                Root[-13 - 9 # - 3 #^2 + #^3& , 2, 0]], "head" -> "Root", 
              "big" -> RowBox[{
                 RowBox[{
                   RowBox[{"-", "13"}], "-", 
                   RowBox[{"9", " ", "#1"}], "-", 
                   RowBox[{"3", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                   SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
              "shortDegree" -> "3", "number" -> 2|>,
             "NumericalApproximationInterp",
             InterpretationFunction->(Slot["interp"]& )]}], ")"}], "2"]], "+", 
        FractionBox[
         TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
              TemplateBox[{"\"0.670\"", 
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEExpressions", "NumericalApproximationElider"]]}, 
               "RowDefault"], "-", 
              RowBox[{
                TemplateBox[{"\"1.01\"", 
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEExpressions", "NumericalApproximationElider"]]}, 
                 "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
           Complex[0.6703571698007885, -1.0128923193922856`], "interp" -> 
           InterpretationBox["", 
             Root[-1 + 6 #^2 + 3 #^4 + 3 #^6& , 5, 0]], "head" -> "Root", 
           "big" -> RowBox[{
              RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"6", " ", 
                  SuperscriptBox["#1", "2"]}], "+", 
                RowBox[{"3", " ", 
                  SuperscriptBox["#1", "4"]}], "+", 
                RowBox[{"3", " ", 
                  SuperscriptBox["#1", "6"]}]}], "&"}], "degree" -> "6", 
           "shortDegree" -> "6", "number" -> 5|>,
          "NumericalApproximationInterp",
          InterpretationFunction->(Slot["interp"]& )], 
         RowBox[{"x", "-", 
          TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
               TemplateBox[{"\"-1.10\"", 
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEExpressions", "NumericalApproximationElider"]]}, 
                "RowDefault"], "-", 
               RowBox[{
                 TemplateBox[{"\"1.13\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
            Complex[-1.1038034027355366`, -1.1304717033543414`], "interp" -> 
            InterpretationBox["", 
              Root[-13 - 9 # - 3 #^2 + #^3& , 2, 0]], "head" -> "Root", "big" -> 
            RowBox[{
               RowBox[{
                 RowBox[{"-", "13"}], "-", 
                 RowBox[{"9", " ", "#1"}], "-", 
                 RowBox[{"3", " ", 
                   SuperscriptBox["#1", "2"]}], "+", 
                 SuperscriptBox["#1", "3"]}], "&"}], "degree" -> "3", 
            "shortDegree" -> "3", "number" -> 2|>,
           "NumericalApproximationInterp",
           InterpretationFunction->(Slot["interp"]& )]}]], "+", 
        TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
             TemplateBox[{"\"-0.0316\"", 
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEExpressions", "NumericalApproximationElider"]]}, 
              "RowDefault"], "+", 
             RowBox[{
               TemplateBox[{"\"0.135\"", 
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEExpressions", "NumericalApproximationElider"]]}, 
                "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
          Complex[-0.0316459290544759, 0.13505230925230477`], "interp" -> 
          InterpretationBox["", 
            Root[-1 + 32292 #^2 + 3013200 #^4 + 87480000 #^6& , 4, 0]], 
          "head" -> "Root", "big" -> RowBox[{
             RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"32292", " ", 
                 SuperscriptBox["#1", "2"]}], "+", 
               RowBox[{"3013200", " ", 
                 SuperscriptBox["#1", "4"]}], "+", 
               RowBox[{"87480000", " ", 
                 SuperscriptBox["#1", "6"]}]}], "&"}], "degree" -> "6", 
          "shortDegree" -> "6", "number" -> 4|>,
         "NumericalApproximationInterp",
         InterpretationFunction->(Slot["interp"]& )]}], "]"}], " ", 
      TemplateBox[<|"icon" -> "Root", "small" -> RowBox[{
           TemplateBox[{"\"-0.0872\"", 
             DynamicBox[
              FEPrivate`FrontEndResource[
              "FEExpressions", "NumericalApproximationElider"]]}, 
            "RowDefault"], "+", 
           RowBox[{
             TemplateBox[{"\"0.0240\"", 
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEExpressions", "NumericalApproximationElider"]]}, 
              "RowDefault"], " ", "\[ImaginaryI]"}]}], "approx" -> 
        Complex[-0.08717589076683836, 0.02401427847662679], "interp" -> 
        InterpretationBox["", 
          Root[-1 + 243 #^2 - 21870 #^4 + 492075 #^6& , 4, 0]], "head" -> 
        "Root", "big" -> RowBox[{
           RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"243", " ", 
               SuperscriptBox["#1", "2"]}], "-", 
             RowBox[{"21870", " ", 
               SuperscriptBox["#1", "4"]}], "+", 
             RowBox[{"492075", " ", 
               SuperscriptBox["#1", "6"]}]}], "&"}], "degree" -> "6", 
        "shortDegree" -> "6", "number" -> 4|>,
       "NumericalApproximationInterp",
       InterpretationFunction->(Slot["interp"]& )]}]}],
    Short]}], "}"}]], "Output",
 CellChangeTimes->{{3.9149235752633495`*^9, 3.9149236149460773`*^9}, {
   3.914923672231949*^9, 3.9149236914011345`*^9}, {3.914923783079767*^9, 
   3.914923821222479*^9}, {3.9149238549580727`*^9, 3.914923879006975*^9}, 
   3.9321988657961235`*^9, 3.9321990448767204`*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"882c8cc0-c776-5e4e-82bc-4d42531b7c40"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.8153146`", ",", 
   TagBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "4"]}], " ", 
      InterpretationBox[
       FrameBox[
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{
           FractionBox["1", "8"], "-", 
           FractionBox["x", "4"], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "-", 
              FractionBox["x", "2"]}], ")"}], " ", 
            SuperscriptBox["x", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["x", "4"], " ", 
            RowBox[{"(", 
             RowBox[{"2", "+", 
              RowBox[{"2", " ", "x"}]}], ")"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox["1", "4"]}], "+", 
              SuperscriptBox["x", "2"]}], ")"}], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", "x"}], "-", 
              RowBox[{"3", " ", 
               SuperscriptBox["x", "2"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["x", "3"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["x", "4"]}], "+", 
              RowBox[{"8", " ", 
               SuperscriptBox["x", "5"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["x", "6"]}]}]]}]}], "]"}], "/.", 
         RowBox[{"x", "\[Rule]", 
          FractionBox["1", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "x"}]]}]}],
        RoundingRadius->5],
       ReplaceAll[
        Log[
        Rational[1, 8] + 
         Rational[-1, 4] $CellContext`x + (-1 + 
           Rational[-1, 
              2] $CellContext`x) $CellContext`x^2 + $CellContext`x^4 (2 + 
           2 $CellContext`x) + (
           Rational[-1, 4] + $CellContext`x^2) (-$CellContext`x - 
            3 $CellContext`x^2 - 2 $CellContext`x^3 + 4 $CellContext`x^4 + 
            8 $CellContext`x^5 + 4 $CellContext`x^6)^
           Rational[1, 2]], $CellContext`x -> (-1 + $CellContext`x)^(-1)]]}], 
     "-", 
     RowBox[{
      InterpretationBox[
       FrameBox[
        RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}],
        RoundingRadius->5],
       ReplaceAll[
        Log[
        Rational[1, 11589] (-22954 + 525982174^Rational[1, 2]) + (
           Rational[1, 8] (3 - 2 2^Rational[1, 2]) + (1 - 2^
             Rational[
              1, 2]) $CellContext`x + $CellContext`x^2) (-$CellContext`x + (2 - 
              5 (-1 - 2^Rational[1, 2])) $CellContext`x^2 + (
              8 (-1 - 2^Rational[1, 2]) - 
              10 (-1 - 2^Rational[1, 2])^2) $CellContext`x^3 + (2 + 
              12 (-1 - 2^Rational[1, 2])^2 - 
              10 (-1 - 2^Rational[1, 2])^3) $CellContext`x^4 + (1 + 
              4 (-1 - 2^Rational[1, 2]) + 8 (-1 - 2^Rational[1, 2])^3 - 
              5 (-1 - 2^Rational[1, 2])^4) $CellContext`x^5 + (-1 - 2^
              Rational[1, 2] + 2 (-1 - 2^Rational[1, 2])^2 + 
              2 (-1 - 2^Rational[1, 2])^4 - (-1 - 2^
               Rational[1, 2])^5) $CellContext`x^6)^
           Rational[1, 2] + $CellContext`x 
          Root[45 - 374 # + 250 #^2 + 414 #^3& , 2, 0] + $CellContext`x^4 (
           Rational[1, 149] (52 + 2 835374^Rational[1, 2]) $CellContext`x + 
           Root[-11 - 10 # - 35 #^2 + 77 #^3 + 55 #^4 + 3 #^5& , 1, 
             0]) + $CellContext`x^2 ($CellContext`x 
            Root[-10 + 5 # + 9 #^2 - 10 #^3 + 23 #^4 - 6 #^5 - 16 #^6 + 
              2 #^7& , 3, 0] + 
           Root[1 - 4 # + 2 #^2 + #^4 - 2 #^6 - #^7 - 
             3 #^9 - #^10 - #^11 + #^13 - #^14 + #^15 + #^16& , 1, 
             0])], $CellContext`x -> (1 + 
          2^Rational[1, 2] + $CellContext`x)^(-1)]], " ", 
      TemplateBox[<|"icon" -> "Root", "small" -> TemplateBox[{"\"-8.61\"", 
           DynamicBox[
            FEPrivate`FrontEndResource[
            "FEExpressions", "NumericalApproximationElider"]], 
           "\"\[ThinSpace]\[Times]\[ThinSpace]\"", 
           
           TemplateBox[{"\"10\"", "\"-3\""}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}, "RowDefault"], 
        "approx" -> -0.008605545243461016, "interp" -> InterpretationBox["", 
          Root[
          83521 + 11791200 # + 223172736 #^2 - 2217779200 #^3 + 
           1537927680 #^4 + 5047705600 #^5 - 3634266112 #^6 - 1009254400 #^7 + 
           388562944 #^8& , 4, 0]], "head" -> "Root", "big" -> RowBox[{
           RowBox[{"83521", "+", 
             RowBox[{"11791200", " ", "#1"}], "+", 
             RowBox[{"223172736", " ", 
               SuperscriptBox["#1", "2"]}], "-", 
             RowBox[{"2217779200", " ", 
               SuperscriptBox["#1", "3"]}], "+", 
             RowBox[{"1537927680", " ", 
               SuperscriptBox["#1", "4"]}], "+", 
             RowBox[{"5047705600", " ", 
               SuperscriptBox["#1", "5"]}], "-", 
             RowBox[{"3634266112", " ", 
               SuperscriptBox["#1", "6"]}], "-", 
             RowBox[{"1009254400", " ", 
               SuperscriptBox["#1", "7"]}], "+", 
             RowBox[{"388562944", " ", 
               SuperscriptBox["#1", "8"]}]}], "&"}], "degree" -> "8", 
        "shortDegree" -> "8", "number" -> 4|>,
       "NumericalApproximationInterp",
       InterpretationFunction->(Slot["interp"]& )]}], "-", 
     RowBox[{
      InterpretationBox[
       FrameBox[
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox["1", "8"], " ", 
               RowBox[{"(", 
                RowBox[{"3", "+", 
                 RowBox[{"2", " ", 
                  SqrtBox["2"]}]}], ")"}]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 SqrtBox["2"]}], ")"}], " ", "x"}], "+", 
              SuperscriptBox["x", "2"]}], ")"}], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", "x"}], "+", 
              RowBox[{"\[LeftSkeleton]", "4", "\[RightSkeleton]"}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ")"}], 
               " ", 
               SuperscriptBox["x", "6"]}]}]]}], "+", 
           RowBox[{"x", " ", 
            
            TemplateBox[<|
             "icon" -> "Root", "small" -> TemplateBox[{"\"0.327\"", 
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEExpressions", "NumericalApproximationElider"]]}, 
                "RowDefault"], "approx" -> 0.32664074121909414`, "interp" -> 
              InterpretationBox["", 
                Root[1 - 64 #^2 + 512 #^4& , 4, 0]], "head" -> "Root", "big" -> 
              RowBox[{
                 RowBox[{"1", "-", 
                   RowBox[{"64", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                   RowBox[{"512", " ", 
                    SuperscriptBox["#1", "4"]}]}], "&"}], "degree" -> "4", 
              "shortDegree" -> "4", "number" -> 4|>,
             "NumericalApproximationInterp",
             InterpretationFunction->(Slot["interp"]& )]}], "+", 
           RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "+", 
           
           TemplateBox[<|
            "icon" -> "Root", "small" -> TemplateBox[{"\"-0.812\"", 
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEExpressions", "NumericalApproximationElider"]]}, 
               "RowDefault"], "approx" -> -0.81249822203807, "interp" -> 
             InterpretationBox["", 
               Root[
               1 + # - #^4 - #^5 - 2 #^6 - 5 #^7 - 4 #^8 - #^9 - 2 #^10 - 
                2 #^11 + #^13 + 2 #^14 + 2 #^15& , 1, 0]], "head" -> "Root", 
             "big" -> RowBox[{
                RowBox[{"1", "+", "#1", "-", 
                  SuperscriptBox["#1", "4"], "-", 
                  SuperscriptBox["#1", "5"], "-", 
                  RowBox[{"2", " ", 
                    SuperscriptBox["#1", "6"]}], "-", 
                  RowBox[{"5", " ", 
                    SuperscriptBox["#1", "7"]}], "-", 
                  RowBox[{"4", " ", 
                    SuperscriptBox["#1", "8"]}], "-", 
                  SuperscriptBox["#1", "9"], "-", 
                  RowBox[{"2", " ", 
                    SuperscriptBox["#1", "10"]}], "-", 
                  RowBox[{"2", " ", 
                    SuperscriptBox["#1", "11"]}], "+", 
                  SuperscriptBox["#1", "13"], "+", 
                  RowBox[{"2", " ", 
                    SuperscriptBox["#1", "14"]}], "+", 
                  RowBox[{"2", " ", 
                    SuperscriptBox["#1", "15"]}]}], "&"}], "degree" -> "15", 
             "shortDegree" -> "15", "number" -> 1|>,
            "NumericalApproximationInterp",
            InterpretationFunction->(Slot["interp"]& )], "+", 
           RowBox[{
            SuperscriptBox["x", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", " ", 
               
               TemplateBox[<|
                "icon" -> "Root", "small" -> TemplateBox[{"\"5.02\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                   "RowDefault"], "approx" -> 5.021311906235273, "interp" -> 
                 InterpretationBox["", 
                   Root[
                   6 - 16 # - 15 #^2 - 9 #^3 + 5 #^4 - 11 #^6 - 13 #^7 - 
                    2 #^8 + #^9& , 3, 0]], "head" -> "Root", "big" -> RowBox[{
                    RowBox[{"6", "-", 
                    RowBox[{"16", " ", "#1"}], "-", 
                    RowBox[{"15", " ", 
                    SuperscriptBox["#1", "2"]}], "-", 
                    RowBox[{"9", " ", 
                    SuperscriptBox["#1", "3"]}], "+", 
                    RowBox[{"5", " ", 
                    SuperscriptBox["#1", "4"]}], "-", 
                    RowBox[{"11", " ", 
                    SuperscriptBox["#1", "6"]}], "-", 
                    RowBox[{"13", " ", 
                    SuperscriptBox["#1", "7"]}], "-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["#1", "8"]}], "+", 
                    SuperscriptBox["#1", "9"]}], "&"}], "degree" -> "9", 
                 "shortDegree" -> "9", "number" -> 3|>,
                "NumericalApproximationInterp",
                InterpretationFunction->(Slot["interp"]& )]}], "+", 
              
              TemplateBox[<|
               "icon" -> "Root", "small" -> TemplateBox[{"\"2.25\"", 
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                  "RowDefault"], "approx" -> 2.2536561401322213`, "interp" -> 
                InterpretationBox["", 
                  
                  Root[-1 - 4 # - 2 #^2 - 2 #^3 - 2 #^4 - 2 #^5 - 3 #^6 - 
                   4 #^7 - 4 #^8 - 2 #^9 - 3 #^10 - 4 #^11 - 4 #^12 - 
                   4 #^13 - #^14 - #^15 - #^16 + #^17& , 3, 0]], "head" -> 
                "Root", "big" -> RowBox[{
                   RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"4", " ", "#1"}], "-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["#1", "2"]}], "-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["#1", "3"]}], "-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["#1", "4"]}], "-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["#1", "5"]}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "6"]}], "-", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["#1", "7"]}], "-", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["#1", "8"]}], "-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["#1", "9"]}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["#1", "10"]}], "-", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["#1", "11"]}], "-", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["#1", "12"]}], "-", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["#1", "13"]}], "-", 
                    SuperscriptBox["#1", "14"], "-", 
                    SuperscriptBox["#1", "15"], "-", 
                    SuperscriptBox["#1", "16"], "+", 
                    SuperscriptBox["#1", "17"]}], "&"}], "degree" -> "17", 
                "shortDegree" -> "17", "number" -> 3|>,
               "NumericalApproximationInterp",
               InterpretationFunction->(Slot["interp"]& )]}], ")"}]}]}], 
          "]"}], "/.", 
         RowBox[{"x", "\[Rule]", 
          RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}]}],
        RoundingRadius->5],
       ReplaceAll[
        Log[(
           Rational[1, 8] (3 + 2 2^Rational[1, 2]) + (1 + 
             2^Rational[
               1, 2]) $CellContext`x + $CellContext`x^2) (-$CellContext`x + (
              2 - 5 (-1 + 2^Rational[1, 2])) $CellContext`x^2 + (
              8 (-1 + 2^Rational[1, 2]) - 
              10 (-1 + 2^Rational[1, 2])^2) $CellContext`x^3 + (2 + 
              12 (-1 + 2^Rational[1, 2])^2 - 
              10 (-1 + 2^Rational[1, 2])^3) $CellContext`x^4 + (1 + 
              4 (-1 + 2^Rational[1, 2]) + 8 (-1 + 2^Rational[1, 2])^3 - 
              5 (-1 + 2^Rational[1, 2])^4) $CellContext`x^5 + (-1 + 
              2^Rational[1, 2] + 2 (-1 + 2^Rational[1, 2])^2 + 
              2 (-1 + 2^Rational[1, 2])^4 - (-1 + 
               2^Rational[1, 2])^5) $CellContext`x^6)^
           Rational[1, 2] + $CellContext`x 
          Root[1 - 64 #^2 + 512 #^4& , 4, 
            0] + $CellContext`x^4 ($CellContext`x 
            Root[128 - 160 #^2 + #^4& , 3, 0] + 
           Root[-24 - # - 10 #^3 + #^4 - 6 #^5 - 6 #^6 - 4 #^7 + 2 #^8 - 
             4 #^9 + #^10& , 2, 0]) + 
         Root[1 + # - #^4 - #^5 - 2 #^6 - 5 #^7 - 4 #^8 - #^9 - 2 #^10 - 
           2 #^11 + #^13 + 2 #^14 + 2 #^15& , 1, 
           0] + $CellContext`x^2 ($CellContext`x 
            Root[6 - 16 # - 15 #^2 - 9 #^3 + 5 #^4 - 11 #^6 - 13 #^7 - 
              2 #^8 + #^9& , 3, 0] + 
           Root[-1 - 4 # - 2 #^2 - 2 #^3 - 2 #^4 - 2 #^5 - 3 #^6 - 4 #^7 - 
             4 #^8 - 2 #^9 - 3 #^10 - 4 #^11 - 4 #^12 - 
             4 #^13 - #^14 - #^15 - #^16 + #^17& , 3, 
             0])], $CellContext`x -> (1 - 2^
          Rational[1, 2] + $CellContext`x)^(-1)]], " ", 
      TemplateBox[<|"icon" -> "Root", "small" -> TemplateBox[{"\"-0.437\"", 
           DynamicBox[
            FEPrivate`FrontEndResource[
            "FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
         "approx" -> -0.4365214136685033, "interp" -> InterpretationBox["", 
          Root[
          118587876497 + 1395151488200 # + 3656938253776 #^2 + 
           2247690425280 #^3 + 4206956779008 #^4 + 4664133360640 #^5 - 
           21309288061952 #^6 - 12016623329280 #^7 + 2294356852736 #^8 + 
           38065926307840 #^9 + 143121802854400 #^10 + 32416643153920 #^11 - 
           6146626682880 #^12 + 14576045260800 #^13 - 5914908164096 #^14 - 
           1097901015040 #^15 + 301721452544 #^16 - 171798691840 #^17 + 
           274877906944 #^18& , 4, 0]], "head" -> "Root", "big" -> RowBox[{
           RowBox[{"118587876497", "+", 
             RowBox[{"1395151488200", " ", "#1"}], "+", 
             RowBox[{"3656938253776", " ", 
               SuperscriptBox["#1", "2"]}], "+", 
             RowBox[{"2247690425280", " ", 
               SuperscriptBox["#1", "3"]}], "+", 
             RowBox[{"4206956779008", " ", 
               SuperscriptBox["#1", "4"]}], "+", 
             RowBox[{"4664133360640", " ", 
               SuperscriptBox["#1", "5"]}], "-", 
             RowBox[{"21309288061952", " ", 
               SuperscriptBox["#1", "6"]}], "-", 
             RowBox[{"12016623329280", " ", 
               SuperscriptBox["#1", "7"]}], "+", 
             RowBox[{"2294356852736", " ", 
               SuperscriptBox["#1", "8"]}], "+", 
             RowBox[{"38065926307840", " ", 
               SuperscriptBox["#1", "9"]}], "+", 
             RowBox[{"143121802854400", " ", 
               SuperscriptBox["#1", "10"]}], "+", 
             RowBox[{"32416643153920", " ", 
               SuperscriptBox["#1", "11"]}], "-", 
             RowBox[{"6146626682880", " ", 
               SuperscriptBox["#1", "12"]}], "+", 
             RowBox[{"14576045260800", " ", 
               SuperscriptBox["#1", "13"]}], "-", 
             RowBox[{"5914908164096", " ", 
               SuperscriptBox["#1", "14"]}], "-", 
             RowBox[{"1097901015040", " ", 
               SuperscriptBox["#1", "15"]}], "+", 
             RowBox[{"301721452544", " ", 
               SuperscriptBox["#1", "16"]}], "-", 
             RowBox[{"171798691840", " ", 
               SuperscriptBox["#1", "17"]}], "+", 
             RowBox[{"274877906944", " ", 
               SuperscriptBox["#1", "18"]}]}], "&"}], "degree" -> "18", 
        "shortDegree" -> "18", "number" -> 4|>,
       "NumericalApproximationInterp",
       InterpretationFunction->(Slot["interp"]& )]}]}],
    Short]}], "}"}]], "Output",
 CellChangeTimes->{{3.9149235752633495`*^9, 3.9149236149460773`*^9}, {
   3.914923672231949*^9, 3.9149236914011345`*^9}, {3.914923783079767*^9, 
   3.914923821222479*^9}, {3.9149238549580727`*^9, 3.914923879006975*^9}, 
   3.9321988657961235`*^9, 3.932199046704323*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"6893501a-cecf-3746-8349-602ae851c0a8"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:4ee3\:6570\:66f2\:7ebf", "Section",
 CellChangeTimes->{{3.9448957022763004`*^9, 3.944895704404892*^9}, 
   3.9448959891853905`*^9},ExpressionUUID->"5f78e609-93e3-6949-b5aa-\
23a56c58bdda"],

Cell[CellGroupData[{

Cell["IgusaClebschInvariants    Igusa-Clebsch \:4e0d\:53d8\:91cf", \
"Subsection",
 CellChangeTimes->{{3.944894597428402*^9, 
  3.9448946118503437`*^9}},ExpressionUUID->"d059c78b-2c42-3747-b06d-\
d1d707520fbb"],

Cell[TextData[{
 "IgusaClebschI2[poly,x] \:8fd4\:56de\:4e8f\:683c 2 \:66f2\:7ebf ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["y", "2"], "=", 
    RowBox[{"p", "(", "x", ")"}]}], TraditionalForm]],ExpressionUUID->
  "0df9a4da-5472-5c45-847a-bd103373c988"],
 " \:7684 Igusa-Clebsch \:4e0d\:53d8\:91cf ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["I", "2"], TraditionalForm]],ExpressionUUID->
  "1b9553bc-8363-4e4e-a49c-f6c17855b4ac"],
 "\nIgusaClebschI4[poly,x] \:8fd4\:56de\:4e8f\:683c 2 \:66f2\:7ebf ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["y", "2"], "=", 
    RowBox[{"p", "(", "x", ")"}]}], TraditionalForm]],ExpressionUUID->
  "64fc5423-5647-0744-8ba5-c44d24150b6e"],
 " \:7684 Igusa-Clebsch \:4e0d\:53d8\:91cf ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["I", "4"], TraditionalForm]],ExpressionUUID->
  "6f7a44c9-923a-174e-8251-90fa3ac08557"],
 "\nIgusaClebschI6[poly,x] \:8fd4\:56de\:4e8f\:683c 2 \:66f2\:7ebf ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["y", "2"], "=", 
    RowBox[{"p", "(", "x", ")"}]}], TraditionalForm]],ExpressionUUID->
  "3be26fdb-8700-c848-9312-e9e43ffbbc49"],
 " \:7684 Igusa-Clebsch \:4e0d\:53d8\:91cf ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["I", "6"], TraditionalForm]],ExpressionUUID->
  "06c1cb83-848c-de4e-8184-7441c49deadf"],
 "\nIgusaClebschI10[poly,x] \:8fd4\:56de\:4e8f\:683c 2 \:66f2\:7ebf ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["y", "2"], "=", 
    RowBox[{"p", "(", "x", ")"}]}], TraditionalForm]],ExpressionUUID->
  "d75ec635-a2b8-2040-a29a-45540633ed25"],
 " \:7684 Igusa-Clebsch \:4e0d\:53d8\:91cf ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["I", "10"], TraditionalForm]],ExpressionUUID->
  "e1120f83-3a59-6247-a8f9-76be453796d2"],
 "\nIgusaClebschInvariants[poly,x] \:8fd4\:56de\:4e8f\:683c 2 \:66f2\:7ebf ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["y", "2"], "=", 
    RowBox[{"p", "(", "x", ")"}]}], TraditionalForm]],ExpressionUUID->
  "b57dea80-a401-824b-bede-1f4d98e2ec4f"],
 " \:7684 Igusa-Clebsch \:4e0d\:53d8\:91cf\n\:51fa\:4e8e\:6027\:80fd\:8003\
\:8651\:524d\:56db\:4e2a\:51fd\:6570\:672a\:7ea6\:675f\:53c2\:6570"
}], "Text",
 CellChangeTimes->{{3.9448948156331577`*^9, 3.944894894029215*^9}, {
  3.9449018636407967`*^9, 3.9449018638346977`*^9}, {3.944901970038332*^9, 
  3.944901970436186*^9}, {3.9449057070397587`*^9, 3.9449057251703644`*^9}, {
  3.945073094571739*^9, 3.9450731167302856`*^9}, {3.945073548897354*^9, 
  3.945073576035303*^9}, {3.9450752583046513`*^9, 
  3.9450752706196136`*^9}},ExpressionUUID->"7b536043-849c-8648-89d2-\
0aa1ca543f86"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", 
    RowBox[{
    "IgusaClebschI2", ",", "IgusaClebschI4", ",", "IgusaClebschI6", ",", 
     "IgusaClebschI10", ",", "IgusaClebschInvariants"}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"IgusaClebschI2", "[", 
     RowBox[{"poly_", ",", "x_Symbol"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a0", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", 
        "a6"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "a0", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", 
          "a6"}], "}"}], "=", 
        RowBox[{"PadRight", "[", 
         RowBox[{
          RowBox[{"CoefficientList", "[", 
           RowBox[{"poly", ",", "x"}], "]"}], ",", "7"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox["a3", "2"]}], "-", 
          RowBox[{"8", " ", "a2", " ", "a4"}], "+", 
          RowBox[{"20", " ", "a1", " ", "a5"}], "-", 
          RowBox[{"120", " ", "a0", " ", "a6"}]}], ")"}]}]}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"IgusaClebschI4", "[", 
     RowBox[{"poly_", ",", "x_Symbol"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a0", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", 
        "a6"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "a0", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", 
          "a6"}], "}"}], "=", 
        RowBox[{"PadRight", "[", 
         RowBox[{
          RowBox[{"CoefficientList", "[", 
           RowBox[{"poly", ",", "x"}], "]"}], ",", "7"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["a2", "2"], " ", 
           SuperscriptBox["a4", "2"]}], "-", 
          RowBox[{"3", " ", "a1", " ", "a3", " ", 
           SuperscriptBox["a4", "2"]}], "+", 
          RowBox[{"12", " ", "a0", " ", 
           SuperscriptBox["a4", "3"]}], "-", 
          RowBox[{"3", " ", 
           SuperscriptBox["a2", "2"], " ", "a3", " ", "a5"}], "+", 
          RowBox[{"9", " ", "a1", " ", 
           SuperscriptBox["a3", "2"], " ", "a5"}], "+", 
          RowBox[{"a1", " ", "a2", " ", "a4", " ", "a5"}], "-", 
          RowBox[{"45", " ", "a0", " ", "a3", " ", "a4", " ", "a5"}], "-", 
          RowBox[{"20", " ", 
           SuperscriptBox["a1", "2"], " ", 
           SuperscriptBox["a5", "2"]}], "+", 
          RowBox[{"75", " ", "a0", " ", "a2", " ", 
           SuperscriptBox["a5", "2"]}], "+", 
          RowBox[{"12", " ", 
           SuperscriptBox["a2", "3"], " ", "a6"}], "-", 
          RowBox[{"45", " ", "a1", " ", "a2", " ", "a3", " ", "a6"}], "+", 
          RowBox[{"81", " ", "a0", " ", 
           SuperscriptBox["a3", "2"], " ", "a6"}], "+", 
          RowBox[{"75", " ", 
           SuperscriptBox["a1", "2"], " ", "a4", " ", "a6"}], "-", 
          RowBox[{"126", " ", "a0", " ", "a2", " ", "a4", " ", "a6"}], "-", 
          RowBox[{"135", " ", "a0", " ", "a1", " ", "a5", " ", "a6"}], "+", 
          RowBox[{"405", " ", 
           SuperscriptBox["a0", "2"], " ", 
           SuperscriptBox["a6", "2"]}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"IgusaClebschI6", "[", 
     RowBox[{"poly_", ",", "x_Symbol"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a0", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", 
        "a6"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "a0", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", 
          "a6"}], "}"}], "=", 
        RowBox[{"PadRight", "[", 
         RowBox[{
          RowBox[{"CoefficientList", "[", 
           RowBox[{"poly", ",", "x"}], "]"}], ",", "7"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           SuperscriptBox["a2", "2"], " ", 
           SuperscriptBox["a3", "2"], " ", 
           SuperscriptBox["a4", "2"]}], "+", 
          RowBox[{"12", " ", "a1", " ", 
           SuperscriptBox["a3", "3"], " ", 
           SuperscriptBox["a4", "2"]}], "+", 
          RowBox[{"12", " ", 
           SuperscriptBox["a2", "3"], " ", 
           SuperscriptBox["a4", "3"]}], "-", 
          RowBox[{"38", " ", "a1", " ", "a2", " ", "a3", " ", 
           SuperscriptBox["a4", "3"]}], "-", 
          RowBox[{"30", " ", "a0", " ", 
           SuperscriptBox["a3", "2"], " ", 
           SuperscriptBox["a4", "3"]}], "+", 
          RowBox[{"18", " ", 
           SuperscriptBox["a1", "2"], " ", 
           SuperscriptBox["a4", "4"]}], "+", 
          RowBox[{"80", " ", "a0", " ", "a2", " ", 
           SuperscriptBox["a4", "4"]}], "+", 
          RowBox[{"12", " ", 
           SuperscriptBox["a2", "2"], " ", 
           SuperscriptBox["a3", "3"], " ", "a5"}], "-", 
          RowBox[{"36", " ", "a1", " ", 
           SuperscriptBox["a3", "4"], " ", "a5"}], "-", 
          RowBox[{"38", " ", 
           SuperscriptBox["a2", "3"], " ", "a3", " ", "a4", " ", "a5"}], "+", 
          RowBox[{"119", " ", "a1", " ", "a2", " ", 
           SuperscriptBox["a3", "2"], " ", "a4", " ", "a5"}], "+", 
          RowBox[{"99", " ", "a0", " ", 
           SuperscriptBox["a3", "3"], " ", "a4", " ", "a5"}], "-", 
          RowBox[{"14", " ", "a1", " ", 
           SuperscriptBox["a2", "2"], " ", 
           SuperscriptBox["a4", "2"], " ", "a5"}], "-", 
          RowBox[{"13", " ", 
           SuperscriptBox["a1", "2"], " ", "a3", " ", 
           SuperscriptBox["a4", "2"], " ", "a5"}], "-", 
          RowBox[{"246", " ", "a0", " ", "a2", " ", "a3", " ", 
           SuperscriptBox["a4", "2"], " ", "a5"}], "-", 
          RowBox[{"308", " ", "a0", " ", "a1", " ", 
           SuperscriptBox["a4", "3"], " ", "a5"}], "+", 
          RowBox[{"18", " ", 
           SuperscriptBox["a2", "4"], " ", 
           SuperscriptBox["a5", "2"]}], "-", 
          RowBox[{"13", " ", "a1", " ", 
           SuperscriptBox["a2", "2"], " ", "a3", " ", 
           SuperscriptBox["a5", "2"]}], "-", 
          RowBox[{"88", " ", 
           SuperscriptBox["a1", "2"], " ", 
           SuperscriptBox["a3", "2"], " ", 
           SuperscriptBox["a5", "2"]}], "-", 
          RowBox[{"165", " ", "a0", " ", "a2", " ", 
           SuperscriptBox["a3", "2"], " ", 
           SuperscriptBox["a5", "2"]}], "-", 
          RowBox[{"32", " ", 
           SuperscriptBox["a1", "2"], " ", "a2", " ", "a4", " ", 
           SuperscriptBox["a5", "2"]}], "+", 
          RowBox[{"320", " ", "a0", " ", 
           SuperscriptBox["a2", "2"], " ", "a4", " ", 
           SuperscriptBox["a5", "2"]}], "+", 
          RowBox[{"930", " ", "a0", " ", "a1", " ", "a3", " ", "a4", " ", 
           SuperscriptBox["a5", "2"]}], "+", 
          RowBox[{"450", " ", 
           SuperscriptBox["a0", "2"], " ", 
           SuperscriptBox["a4", "2"], " ", 
           SuperscriptBox["a5", "2"]}], "+", 
          RowBox[{"160", " ", 
           SuperscriptBox["a1", "3"], " ", 
           SuperscriptBox["a5", "3"]}], "-", 
          RowBox[{"800", " ", "a0", " ", "a1", " ", "a2", " ", 
           SuperscriptBox["a5", "3"]}], "-", 
          RowBox[{"1125", " ", 
           SuperscriptBox["a0", "2"], " ", "a3", " ", 
           SuperscriptBox["a5", "3"]}], "-", 
          RowBox[{"30", " ", 
           SuperscriptBox["a2", "3"], " ", 
           SuperscriptBox["a3", "2"], " ", "a6"}], "+", 
          RowBox[{"99", " ", "a1", " ", "a2", " ", 
           SuperscriptBox["a3", "3"], " ", "a6"}], "-", 
          RowBox[{"81", " ", "a0", " ", 
           SuperscriptBox["a3", "4"], " ", "a6"}], "+", 
          RowBox[{"80", " ", 
           SuperscriptBox["a2", "4"], " ", "a4", " ", "a6"}], "-", 
          RowBox[{"246", " ", "a1", " ", 
           SuperscriptBox["a2", "2"], " ", "a3", " ", "a4", " ", "a6"}], "-", 
          RowBox[{"165", " ", 
           SuperscriptBox["a1", "2"], " ", 
           SuperscriptBox["a3", "2"], " ", "a4", " ", "a6"}], "+", 
          RowBox[{"234", " ", "a0", " ", "a2", " ", 
           SuperscriptBox["a3", "2"], " ", "a4", " ", "a6"}], "+", 
          RowBox[{"320", " ", 
           SuperscriptBox["a1", "2"], " ", "a2", " ", 
           SuperscriptBox["a4", "2"], " ", "a6"}], "-", 
          RowBox[{"212", " ", "a0", " ", 
           SuperscriptBox["a2", "2"], " ", 
           SuperscriptBox["a4", "2"], " ", "a6"}], "+", 
          RowBox[{"438", " ", "a0", " ", "a1", " ", "a3", " ", 
           SuperscriptBox["a4", "2"], " ", "a6"}], "+", 
          RowBox[{"48", " ", 
           SuperscriptBox["a0", "2"], " ", 
           SuperscriptBox["a4", "3"], " ", "a6"}], "-", 
          RowBox[{"308", " ", "a1", " ", 
           SuperscriptBox["a2", "3"], " ", "a5", " ", "a6"}], "+", 
          RowBox[{"930", " ", 
           SuperscriptBox["a1", "2"], " ", "a2", " ", "a3", " ", "a5", " ", 
           "a6"}], "+", 
          RowBox[{"438", " ", "a0", " ", 
           SuperscriptBox["a2", "2"], " ", "a3", " ", "a5", " ", "a6"}], "-", 
          RowBox[{"909", " ", "a0", " ", "a1", " ", 
           SuperscriptBox["a3", "2"], " ", "a5", " ", "a6"}], "-", 
          RowBox[{"800", " ", 
           SuperscriptBox["a1", "3"], " ", "a4", " ", "a5", " ", "a6"}], "-", 
          RowBox[{
          "1736", " ", "a0", " ", "a1", " ", "a2", " ", "a4", " ", "a5", " ", 
           "a6"}], "-", 
          RowBox[{"1530", " ", 
           SuperscriptBox["a0", "2"], " ", "a3", " ", "a4", " ", "a5", " ", 
           "a6"}], "+", 
          RowBox[{"1120", " ", "a0", " ", 
           SuperscriptBox["a1", "2"], " ", 
           SuperscriptBox["a5", "2"], " ", "a6"}], "+", 
          RowBox[{"9300", " ", 
           SuperscriptBox["a0", "2"], " ", "a2", " ", 
           SuperscriptBox["a5", "2"], " ", "a6"}], "+", 
          RowBox[{"450", " ", 
           SuperscriptBox["a1", "2"], " ", 
           SuperscriptBox["a2", "2"], " ", 
           SuperscriptBox["a6", "2"]}], "+", 
          RowBox[{"48", " ", "a0", " ", 
           SuperscriptBox["a2", "3"], " ", 
           SuperscriptBox["a6", "2"]}], "-", 
          RowBox[{"1125", " ", 
           SuperscriptBox["a1", "3"], " ", "a3", " ", 
           SuperscriptBox["a6", "2"]}], "-", 
          RowBox[{"1530", " ", "a0", " ", "a1", " ", "a2", " ", "a3", " ", 
           SuperscriptBox["a6", "2"]}], "+", 
          RowBox[{"5022", " ", 
           SuperscriptBox["a0", "2"], " ", 
           SuperscriptBox["a3", "2"], " ", 
           SuperscriptBox["a6", "2"]}], "+", 
          RowBox[{"9300", " ", "a0", " ", 
           SuperscriptBox["a1", "2"], " ", "a4", " ", 
           SuperscriptBox["a6", "2"]}], "-", 
          RowBox[{"10332", " ", 
           SuperscriptBox["a0", "2"], " ", "a2", " ", "a4", " ", 
           SuperscriptBox["a6", "2"]}], "-", 
          RowBox[{"29970", " ", 
           SuperscriptBox["a0", "2"], " ", "a1", " ", "a5", " ", 
           SuperscriptBox["a6", "2"]}], "+", 
          RowBox[{"59940", " ", 
           SuperscriptBox["a0", "3"], " ", 
           SuperscriptBox["a6", "3"]}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"IgusaClebschI10", "[", 
     RowBox[{"poly_", ",", "x_Symbol"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Exponent", "[", 
         RowBox[{"poly", ",", "x"}], "]"}], "==", "5"}], ",", 
       SuperscriptBox[
        RowBox[{"FirstCoefficient", "[", 
         RowBox[{"poly", ",", "x"}], "]"}], "2"], ",", "1"}], "]"}], 
     RowBox[{"Discriminant", "[", 
      RowBox[{"poly", ",", "x"}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Attributes", "@", "IgusaClebschInvariants"}], "=", 
    RowBox[{"{", "Listable", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"IgusaClebschInvariants", "[", 
      RowBox[{"poly_", ",", "x_Symbol"}], "]"}], "/;", 
     RowBox[{
      RowBox[{"PolynomialQ", "[", 
       RowBox[{"poly", ",", "x"}], "]"}], "&&", 
      RowBox[{"5", "<=", 
       RowBox[{"Exponent", "[", 
        RowBox[{"poly", ",", "x"}], "]"}], "<=", "6"}]}]}], ":=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"IgusaClebschI2", "[", 
       RowBox[{"poly", ",", "x"}], "]"}], ",", 
      RowBox[{"IgusaClebschI4", "[", 
       RowBox[{"poly", ",", "x"}], "]"}], ",", 
      RowBox[{"IgusaClebschI6", "[", 
       RowBox[{"poly", ",", "x"}], "]"}], ",", 
      RowBox[{"IgusaClebschI10", "[", 
       RowBox[{"poly", ",", "x"}], "]"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IgusaClebschInvariants", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox["x", "3"]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["x", "2"]}], "+", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["x", "3"]}], "+", 
          RowBox[{"4", " ", "x"}], "-", "1"}], ")"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["x", "3"], "+", 
          RowBox[{"420", " ", "x"}], "-", "5600"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["x", "3"], "+", 
          RowBox[{"42", " ", 
           SuperscriptBox["x", "2"]}], "+", "1120"}], ")"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"x", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "x"}], ")"}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "7744"}], "+", 
          RowBox[{"20247", " ", "x"}], "-", 
          RowBox[{"16326", " ", 
           SuperscriptBox["x", "2"]}], "+", 
          RowBox[{"2527", " ", 
           SuperscriptBox["x", "3"]}]}], ")"}]}]}], "\[IndentingNewLine]", 
      "}"}], ",", "x"}], "]"}], "//", "Column"}], "//", 
  "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.944894935848648*^9, 3.944895066804102*^9}, {
  3.9448950996429195`*^9, 3.9448951732924633`*^9}, {3.9448952321271095`*^9, 
  3.9448952884911404`*^9}, {3.9448999268174267`*^9, 3.9448999539321976`*^9}, {
  3.944905789719019*^9, 3.944905792947201*^9}, {3.9450731341281204`*^9, 
  3.9450731636772594`*^9}, {3.945073649709059*^9, 3.945073717509081*^9}, {
  3.9450738533497353`*^9, 3.945073880914852*^9}, {3.9450742495058384`*^9, 
  3.9450744732239246`*^9}, {3.9450745202015934`*^9, 3.945074555324396*^9}, {
  3.9450748590154552`*^9, 3.945074871226164*^9}, {3.945074912711035*^9, 
  3.9450749970350227`*^9}, {3.945075123476038*^9, 3.9450752076595726`*^9}, {
  3.945075245670374*^9, 3.9450752559049225`*^9}, {3.9450752911430683`*^9, 
  3.9450753596275806`*^9}, {3.945075428586769*^9, 3.9450754285877666`*^9}, {
  3.94507548975791*^9, 3.945075534712509*^9}, {3.94507560825173*^9, 
  3.9450756088675537`*^9}},
 CellLabel->
  "In[340]:=",ExpressionUUID->"6b24ca7e-2b93-1c44-843d-46e0d2841a5f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0012649`", ",", 
   TagBox[GridBox[{
      {
       RowBox[{"{", 
        RowBox[{
        "6390", ",", "1065024", ",", "2249930808", ",", "715217250384"}], 
        "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"4915209600", ",", 
         RowBox[{"-", "104529087774720000"}], ",", 
         "298710683552061849600000000", ",", 
         "4995832841641613258827627411537920000000000"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"364840326", ",", 
         RowBox[{"-", "10019256779358144"}], ",", 
         RowBox[{"-", "908474055722533442270592"}], ",", 
         RowBox[{"-", "2141239791895012445840977296007102464"}]}], "}"}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"]}], "}"}]], "Output",
 CellChangeTimes->{{3.9448951093317947`*^9, 3.944895174362316*^9}, {
   3.9448952519320908`*^9, 3.9448952888201847`*^9}, 3.944905934376581*^9, {
   3.945073165470661*^9, 3.945073172281395*^9}, 3.945073583902794*^9, {
   3.9450736935835342`*^9, 3.945073723564188*^9}, {3.945074415080536*^9, 
   3.945074436660036*^9}, {3.9450744762696495`*^9, 3.9450744792086735`*^9}, {
   3.9450745583823986`*^9, 3.9450745675288315`*^9}, 3.9450751591424007`*^9, {
   3.9450751920569134`*^9, 3.9450752403114777`*^9}, {3.945075279534073*^9, 
   3.9450752809561977`*^9}, {3.945075319449524*^9, 3.945075340013958*^9}, {
   3.945075501463793*^9, 3.9450755413823223`*^9}, {3.945075609377386*^9, 
   3.9450756105181255`*^9}},
 CellLabel->
  "Out[347]=",ExpressionUUID->"cdcd46c6-74c3-2341-817a-745698baca93"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["EllipticIntegralTransformOrder    \:692d\:5706\:79ef\:5206\:53d8\:6362\
\:9636\:6570", "Subsection",
 CellChangeTimes->{{3.945058472384674*^9, 3.9450584819273815`*^9}, {
   3.9450770413511086`*^9, 3.945077072954401*^9}, {3.945077174217724*^9, 
   3.9450771829440136`*^9}, 3.9450772211225204`*^9, 3.9450773315240917`*^9, {
   3.945077385666336*^9, 
   3.945077386260376*^9}},ExpressionUUID->"b59711b6-6669-3a4f-a257-\
a2f48375a655"],

Cell[TextData[{
 "EllipticIntegralTransformOrder[poly,x] \:8fd4\:56de\:5c06\:4e8f\:683c 2 \
\:66f2\:7ebf ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["y", "2"], "=", 
    RowBox[{"p", "(", "x", ")"}]}], TraditionalForm]],ExpressionUUID->
  "dd9e7151-92a9-d24b-9a96-72377c796dda"],
 " \:76f8\:5173\:8d85\:692d\:5706\:79ef\:5206\:53d8\:6362\:4e3a\:692d\:5706\
\:79ef\:5206\:9700\:8981\:7684\:9636\:6570"
}], "Text",
 CellChangeTimes->{{3.945058484724228*^9, 3.945058583749048*^9}, {
   3.945077191399477*^9, 3.9450772183245373`*^9}, {3.9450773347457542`*^9, 
   3.945077338762928*^9}, 3.9450773884376907`*^9, {3.945077454073349*^9, 
   3.9450774592394524`*^9}},ExpressionUUID->"f828c16b-64de-d54e-957f-\
0052765629d0"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "EllipticIntegralTransformOrder", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Attributes", "@", "EllipticIntegralTransformOrder"}], "=", 
    RowBox[{"{", "Listable", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"EllipticIntegralTransformOrder", "[", 
      RowBox[{"poly_", ",", "x_Symbol"}], "]"}], "/;", 
     RowBox[{
      RowBox[{"PolynomialQ", "[", 
       RowBox[{"poly", ",", "x"}], "]"}], "&&", 
      RowBox[{"5", "<=", 
       RowBox[{"Exponent", "[", 
        RowBox[{"poly", ",", "x"}], "]"}], "<=", "6"}]}]}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"inv", ",", "solvable", ",", "r", ",", "s", ",", "\[Lambda]"}],
        "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"inv", "=", 
        RowBox[{"IgusaClebschInvariants", "[", 
         RowBox[{"poly", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"solvable", "[", "equ_", "]"}], ":=", 
        RowBox[{
         RowBox[{"Length", "[", 
          RowBox[{"NSolveValues", "[", 
           RowBox[{
            RowBox[{"inv", "==", "equ"}], ",", 
            RowBox[{"{", 
             RowBox[{"r", ",", "s", ",", "\[Lambda]"}], "}"}], ",", 
            RowBox[{"MaxRoots", "->", "1"}]}], "]"}], "]"}], "=!=", "0"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"solvable", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{"8", " ", 
               RowBox[{"(", 
                RowBox[{"r", "+", 
                 RowBox[{"3", " ", "s"}]}], ")"}], " "}], "r"], 
             SuperscriptBox["\[Lambda]", "2"]}], ",", 
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"3", " ", "r"}]}], ")"}], " ", 
             SuperscriptBox["\[Lambda]", "4"]}], ",", 
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"4", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "r"}], "+", 
                  RowBox[{"5", " ", 
                   SuperscriptBox["r", "2"]}], "-", 
                  RowBox[{"8", " ", "s"}], "+", 
                  RowBox[{"6", " ", "r", " ", "s"}]}], ")"}]}], "r"]}], " ", 
             SuperscriptBox["\[Lambda]", "6"]}], ",", 
            RowBox[{"4", " ", "r", " ", "s", " ", 
             SuperscriptBox["\[Lambda]", "10"]}]}], "}"}], "]"}], ",", 
         RowBox[{"Return", "@", "2"}]}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"solvable", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"8", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "+", 
               RowBox[{"4", " ", "s"}], "+", 
               SuperscriptBox["s", "2"]}], ")"}], " ", 
             SuperscriptBox["\[Lambda]", "2"]}], ",", 
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "-", 
               RowBox[{"192", " ", "r"}], "+", 
               RowBox[{"4", " ", "s"}], "+", 
               RowBox[{"48", " ", "r", " ", "s"}], "-", 
               RowBox[{"6", " ", 
                SuperscriptBox["s", "2"]}], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["s", "3"]}], "-", 
               SuperscriptBox["s", "4"]}], ")"}], " ", 
             SuperscriptBox["\[Lambda]", "4"]}], ",", 
            RowBox[{"8", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3"}], "-", 
               RowBox[{"320", " ", "r"}], "-", 
               RowBox[{"288", " ", 
                SuperscriptBox["r", "2"]}], "+", 
               RowBox[{"18", " ", "s"}], "+", 
               RowBox[{"792", " ", "r", " ", "s"}], "-", 
               RowBox[{"41", " ", 
                SuperscriptBox["s", "2"]}], "+", 
               RowBox[{"144", " ", "r", " ", 
                SuperscriptBox["s", "2"]}], "+", 
               RowBox[{"44", " ", 
                SuperscriptBox["s", "3"]}], "-", 
               RowBox[{"40", " ", "r", " ", 
                SuperscriptBox["s", "3"]}], "-", 
               RowBox[{"21", " ", 
                SuperscriptBox["s", "4"]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox["s", "5"]}], "+", 
               SuperscriptBox["s", "6"]}], ")"}], " ", 
             SuperscriptBox["\[Lambda]", "6"]}], ",", 
            RowBox[{"16384", " ", 
             SuperscriptBox["r", "3"], " ", 
             SuperscriptBox["\[Lambda]", "10"]}]}], "}"}], "]"}], ",", 
         RowBox[{"Return", "@", "3"}]}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"solvable", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"24", " ", 
                   SuperscriptBox["r", "3"]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "4"]}], "-", 
                  RowBox[{"48", " ", 
                   SuperscriptBox["r", "3"], " ", "s"}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "4"], " ", "s"}], "+", 
                  RowBox[{"36", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["s", "2"]}], "+", 
                  RowBox[{"28", " ", 
                   SuperscriptBox["r", "3"], " ", 
                   SuperscriptBox["s", "2"]}], "-", 
                  RowBox[{"48", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["s", "3"]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "3"], " ", 
                   SuperscriptBox["s", "3"]}], "+", 
                  RowBox[{"18", " ", "r", " ", 
                   SuperscriptBox["s", "4"]}], "+", 
                  RowBox[{"13", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["s", "4"]}], "-", 
                  RowBox[{"12", " ", "r", " ", 
                   SuperscriptBox["s", "5"]}], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["s", "6"]}]}], ")"}]}], 
               RowBox[{
                SuperscriptBox["r", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "r"}], "+", 
                  RowBox[{"2", " ", "r", " ", "s"}], "-", 
                  SuperscriptBox["s", "2"]}], ")"}]}]]}], 
             SuperscriptBox["\[Lambda]", "2"]}], ",", 
            RowBox[{
             FractionBox["1", "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["r", "2"], "+", 
               RowBox[{"48", " ", "r", " ", "s"}], "+", 
               RowBox[{"4", " ", "r", " ", 
                SuperscriptBox["s", "2"]}], "+", 
               RowBox[{"24", " ", 
                SuperscriptBox["s", "3"]}], "+", 
               SuperscriptBox["s", "4"]}], ")"}], " ", 
             SuperscriptBox["\[Lambda]", "4"]}], ",", 
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", 
               RowBox[{"16", " ", 
                SuperscriptBox["r", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "r"}], "+", 
                  RowBox[{"2", " ", "r", " ", "s"}], "-", 
                  SuperscriptBox["s", "2"]}], ")"}]}]]}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"208", " ", 
                SuperscriptBox["r", "5"]}], "+", 
               RowBox[{"12", " ", 
                SuperscriptBox["r", "6"]}], "+", 
               RowBox[{"3072", " ", 
                SuperscriptBox["r", "4"], " ", "s"}], "+", 
               RowBox[{"480", " ", 
                SuperscriptBox["r", "5"], " ", "s"}], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["r", "6"], " ", "s"}], "-", 
               RowBox[{"5576", " ", 
                SuperscriptBox["r", "4"], " ", 
                SuperscriptBox["s", "2"]}], "+", 
               RowBox[{"124", " ", 
                SuperscriptBox["r", "5"], " ", 
                SuperscriptBox["s", "2"]}], "+", 
               RowBox[{"6144", " ", 
                SuperscriptBox["r", "3"], " ", 
                SuperscriptBox["s", "3"]}], "+", 
               RowBox[{"3488", " ", 
                SuperscriptBox["r", "4"], " ", 
                SuperscriptBox["s", "3"]}], "+", 
               RowBox[{"26", " ", 
                SuperscriptBox["r", "5"], " ", 
                SuperscriptBox["s", "3"]}], "-", 
               RowBox[{"8612", " ", 
                SuperscriptBox["r", "3"], " ", 
                SuperscriptBox["s", "4"]}], "-", 
               RowBox[{"109", " ", 
                SuperscriptBox["r", "4"], " ", 
                SuperscriptBox["s", "4"]}], "+", 
               RowBox[{"4608", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["s", "5"]}], "+", 
               RowBox[{"3000", " ", 
                SuperscriptBox["r", "3"], " ", 
                SuperscriptBox["s", "5"]}], "-", 
               RowBox[{"8", " ", 
                SuperscriptBox["r", "4"], " ", 
                SuperscriptBox["s", "5"]}], "-", 
               RowBox[{"4294", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["s", "6"]}], "-", 
               RowBox[{"16", " ", 
                SuperscriptBox["r", "3"], " ", 
                SuperscriptBox["s", "6"]}], "+", 
               RowBox[{"1536", " ", "r", " ", 
                SuperscriptBox["s", "7"]}], "+", 
               RowBox[{"624", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["s", "7"]}], "-", 
               RowBox[{"4", " ", 
                SuperscriptBox["r", "3"], " ", 
                SuperscriptBox["s", "7"]}], "-", 
               RowBox[{"688", " ", "r", " ", 
                SuperscriptBox["s", "8"]}], "+", 
               RowBox[{"34", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["s", "8"]}], "+", 
               RowBox[{"192", " ", 
                SuperscriptBox["s", "9"]}], "-", 
               RowBox[{"32", " ", "r", " ", 
                SuperscriptBox["s", "9"]}], "+", 
               RowBox[{"8", " ", 
                SuperscriptBox["s", "10"]}]}], ")"}], " ", 
             SuperscriptBox["\[Lambda]", "6"]}], ",", 
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "256"]}], " ", 
             SuperscriptBox["r", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "r"}], "+", 
               RowBox[{"2", " ", "r", " ", "s"}], "-", 
               SuperscriptBox["s", "2"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "r"}], "+", 
               SuperscriptBox["s", "2"]}], ")"}], " ", 
             SuperscriptBox["\[Lambda]", "10"]}]}], "}"}], "]"}], ",", 
         RowBox[{"Return", "@", "4"}]}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"solvable", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"3", "-", 
               RowBox[{"6", " ", "r"}], "+", 
               SuperscriptBox["r", "2"], "-", 
               RowBox[{"6", " ", "s"}], "+", 
               RowBox[{"22", " ", "r", " ", "s"}], "-", 
               RowBox[{"12", " ", 
                SuperscriptBox["r", "2"], " ", "s"}], "+", 
               SuperscriptBox["s", "2"], "+", 
               RowBox[{"20", " ", "r", " ", 
                SuperscriptBox["s", "2"]}], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["s", "2"]}]}], ")"}], " ", 
             SuperscriptBox["\[Lambda]", "2"]}], ",", 
            RowBox[{
             FractionBox["1", "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["r", "4"], "+", 
               RowBox[{"20", " ", 
                SuperscriptBox["r", "3"], " ", "s"}], "-", 
               RowBox[{"24", " ", 
                SuperscriptBox["r", "4"], " ", "s"}], "+", 
               RowBox[{"198", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["s", "2"]}], "-", 
               RowBox[{"392", " ", 
                SuperscriptBox["r", "3"], " ", 
                SuperscriptBox["s", "2"]}], "+", 
               RowBox[{"56", " ", 
                SuperscriptBox["r", "4"], " ", 
                SuperscriptBox["s", "2"]}], "-", 
               RowBox[{"220", " ", "r", " ", 
                SuperscriptBox["s", "3"]}], "+", 
               RowBox[{"904", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["s", "3"]}], "-", 
               RowBox[{"976", " ", 
                SuperscriptBox["r", "3"], " ", 
                SuperscriptBox["s", "3"]}], "+", 
               RowBox[{"96", " ", 
                SuperscriptBox["r", "4"], " ", 
                SuperscriptBox["s", "3"]}], "+", 
               SuperscriptBox["s", "4"], "-", 
               RowBox[{"8", " ", "r", " ", 
                SuperscriptBox["s", "4"]}], "+", 
               RowBox[{"24", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["s", "4"]}], "-", 
               RowBox[{"32", " ", 
                SuperscriptBox["r", "3"], " ", 
                SuperscriptBox["s", "4"]}], "+", 
               RowBox[{"16", " ", 
                SuperscriptBox["r", "4"], " ", 
                SuperscriptBox["s", "4"]}]}], ")"}], " ", 
             SuperscriptBox["\[Lambda]", "4"]}], ",", 
            RowBox[{
             FractionBox["1", "8"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["r", "4"]}], "-", 
               RowBox[{"8", " ", 
                SuperscriptBox["r", "5"]}], "+", 
               SuperscriptBox["r", "6"], "+", 
               RowBox[{"80", " ", 
                SuperscriptBox["r", "3"], " ", "s"}], "-", 
               RowBox[{"264", " ", 
                SuperscriptBox["r", "4"], " ", "s"}], "+", 
               RowBox[{"238", " ", 
                SuperscriptBox["r", "5"], " ", "s"}], "-", 
               RowBox[{"36", " ", 
                SuperscriptBox["r", "6"], " ", "s"}], "+", 
               RowBox[{"792", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["s", "2"]}], "-", 
               RowBox[{"3312", " ", 
                SuperscriptBox["r", "3"], " ", 
                SuperscriptBox["s", "2"]}], "+", 
               RowBox[{"4543", " ", 
                SuperscriptBox["r", "4"], " ", 
                SuperscriptBox["s", "2"]}], "-", 
               RowBox[{"2228", " ", 
                SuperscriptBox["r", "5"], " ", 
                SuperscriptBox["s", "2"]}], "+", 
               RowBox[{"364", " ", 
                SuperscriptBox["r", "6"], " ", 
                SuperscriptBox["s", "2"]}], "-", 
               RowBox[{"880", " ", "r", " ", 
                SuperscriptBox["s", "3"]}], "+", 
               RowBox[{"3792", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["s", "3"]}], "-", 
               RowBox[{"1732", " ", 
                SuperscriptBox["r", "3"], " ", 
                SuperscriptBox["s", "3"]}], "-", 
               RowBox[{"7152", " ", 
                SuperscriptBox["r", "4"], " ", 
                SuperscriptBox["s", "3"]}], "+", 
               RowBox[{"6192", " ", 
                SuperscriptBox["r", "5"], " ", 
                SuperscriptBox["s", "3"]}], "-", 
               RowBox[{"896", " ", 
                SuperscriptBox["r", "6"], " ", 
                SuperscriptBox["s", "3"]}], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["s", "4"]}], "+", 
               RowBox[{"1720", " ", "r", " ", 
                SuperscriptBox["s", "4"]}], "-", 
               RowBox[{"10769", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["s", "4"]}], "+", 
               RowBox[{"30368", " ", 
                SuperscriptBox["r", "3"], " ", 
                SuperscriptBox["s", "4"]}], "-", 
               RowBox[{"35208", " ", 
                SuperscriptBox["r", "4"], " ", 
                SuperscriptBox["s", "4"]}], "+", 
               RowBox[{"10304", " ", 
                SuperscriptBox["r", "5"], " ", 
                SuperscriptBox["s", "4"]}], "-", 
               RowBox[{"1616", " ", 
                SuperscriptBox["r", "6"], " ", 
                SuperscriptBox["s", "4"]}], "-", 
               RowBox[{"8", " ", 
                SuperscriptBox["s", "5"]}], "-", 
               RowBox[{"378", " ", "r", " ", 
                SuperscriptBox["s", "5"]}], "-", 
               RowBox[{"3692", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["s", "5"]}], "+", 
               RowBox[{"18544", " ", 
                SuperscriptBox["r", "3"], " ", 
                SuperscriptBox["s", "5"]}], "-", 
               RowBox[{"17120", " ", 
                SuperscriptBox["r", "4"], " ", 
                SuperscriptBox["s", "5"]}], "-", 
               RowBox[{"4128", " ", 
                SuperscriptBox["r", "5"], " ", 
                SuperscriptBox["s", "5"]}], "+", 
               RowBox[{"64", " ", 
                SuperscriptBox["r", "6"], " ", 
                SuperscriptBox["s", "5"]}], "+", 
               SuperscriptBox["s", "6"], "+", 
               RowBox[{"20", " ", "r", " ", 
                SuperscriptBox["s", "6"]}], "-", 
               RowBox[{"196", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["s", "6"]}], "+", 
               RowBox[{"608", " ", 
                SuperscriptBox["r", "3"], " ", 
                SuperscriptBox["s", "6"]}], "-", 
               RowBox[{"784", " ", 
                SuperscriptBox["r", "4"], " ", 
                SuperscriptBox["s", "6"]}], "+", 
               RowBox[{"320", " ", 
                SuperscriptBox["r", "5"], " ", 
                SuperscriptBox["s", "6"]}], "+", 
               RowBox[{"64", " ", 
                SuperscriptBox["r", "6"], " ", 
                SuperscriptBox["s", "6"]}]}], ")"}], " ", 
             SuperscriptBox["\[Lambda]", "6"]}], ",", 
            RowBox[{
             RowBox[{"-", "16"}], " ", 
             SuperscriptBox["r", "7"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"2", " ", "r"}]}], ")"}], "2"], " ", 
             SuperscriptBox["s", "5"], " ", 
             SuperscriptBox["\[Lambda]", "10"]}]}], "}"}], "]"}], ",", 
         RowBox[{"Return", "@", "5"}]}], "]"}], ";", "\[IndentingNewLine]", 
       "False"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EllipticIntegralTransformOrder", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       SuperscriptBox["x", "5"], "+", "x"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", "-", "x"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"6", "-", "x"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "3"}], "+", "x"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", "x"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "x"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "+", 
         SuperscriptBox["x", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "11"}], "-", 
         RowBox[{"4", " ", "x"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["x", "2"]}]}], ")"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "+", 
         SuperscriptBox["x", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["x", "3"]}], "+", 
         RowBox[{"25", " ", 
          SuperscriptBox["x", "2"]}], "+", 
         RowBox[{"48", " ", "x"}], "+", "27"}], ")"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["x", "3"], "+", 
         RowBox[{"420", " ", "x"}], "-", "5600"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["x", "3"], "+", 
         RowBox[{"42", " ", 
          SuperscriptBox["x", "2"]}], "+", "1120"}], ")"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", " ", 
          SuperscriptBox["x", "3"]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["x", "2"]}], "+", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["x", "3"]}], "+", 
         RowBox[{"4", " ", "x"}], "-", "1"}], ")"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x", "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", "x"}], "+", "5"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", " ", 
          SuperscriptBox["x", "3"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["x", "2"]}], "-", 
         RowBox[{"4", " ", "x"}], "+", "4"}], ")"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"x", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "x"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "7744"}], "+", 
         RowBox[{"20247", " ", "x"}], "-", 
         RowBox[{"16326", " ", 
          SuperscriptBox["x", "2"]}], "+", 
         RowBox[{"2527", " ", 
          SuperscriptBox["x", "3"]}]}], ")"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x", "+", "2"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["x", "4"], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["x", "2"]}], "+", "2"}], ")"}]}]}], 
     "\[IndentingNewLine]", "}"}], ",", "x"}], "]"}], "//", 
  "TimingTest"}]}], "Input",
 CellChangeTimes->{{3.9450586435098705`*^9, 3.945058669815302*^9}, {
   3.9450763098279495`*^9, 3.94507632068816*^9}, {3.9450764727901707`*^9, 
   3.9450766606786213`*^9}, {3.945076703352049*^9, 3.945076741776949*^9}, {
   3.9450767997859287`*^9, 3.9450768225011253`*^9}, {3.9450768686599026`*^9, 
   3.945076870022232*^9}, 3.945076910767786*^9, {3.9450773479685917`*^9, 
   3.9450773510588036`*^9}, {3.945077389256317*^9, 3.945077392174263*^9}, {
   3.9450775767666874`*^9, 3.945077769220236*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"2e4ea7f8-4622-2d48-84ea-dd86f71c3b5b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.0627101`", ",", 
   RowBox[{"{", 
    RowBox[{
    "2", ",", "2", ",", "3", ",", "3", ",", "3", ",", "3", ",", "5", ",", "5",
      ",", "False"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.9450585939634647`*^9, 3.945058672544697*^9, {3.945076304744177*^9, 
   3.9450763067844734`*^9}, {3.945076483257551*^9, 3.945076534341305*^9}, {
   3.94507670496237*^9, 3.945076745777382*^9}, {3.9450768254568977`*^9, 
   3.9450768279726753`*^9}, 3.9450768752215652`*^9, 3.945076912844679*^9, 
   3.9450773528261166`*^9, 3.9450773947978344`*^9, 3.945077733144884*^9, 
   3.9450777733152237`*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"43a1081e-3a7d-a049-9996-38a99d92f42c"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:7ed8\:56fe", "Section",
 CellChangeTimes->{{3.9448987094110966`*^9, 
  3.944898709692051*^9}},ExpressionUUID->"e797e4fd-a8b8-7d45-a3a4-\
805b2896677b"],

Cell[CellGroupData[{

Cell["FastComplexPlot3D    \:5feb\:901f\:4e09\:7ef4\:590d\:5e73\:9762\:7ed8\
\:56fe", "Subsection",
 CellChangeTimes->{{3.9371244172238464`*^9, 3.937124470807968*^9}, {
  3.9371322145844746`*^9, 
  3.93713223303586*^9}},ExpressionUUID->"d6ceac55-b101-ca4a-9fd0-\
40d523931a9e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "FastComplexPlot3D", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "@", "FastComplexPlot3D"}], "=", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Mesh", "->", "None"}], ",", 
        RowBox[{"AxesLabel", "->", 
         RowBox[{"{", 
          RowBox[{"Re", ",", "Im"}], "}"}]}], ",", 
        RowBox[{"InterpolationOrder", "->", "0"}], ",", 
        RowBox[{"WorkingPrecision", "->", "MachinePrecision"}], ",", 
        RowBox[{"Chop", "->", 
         SuperscriptBox["10", 
          RowBox[{"-", "10"}]]}], ",", 
        RowBox[{"DiscretePlot", "->", "True"}]}], "}"}], ",", 
      RowBox[{"Options", "@", "ListPlot3D"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"FastComplexPlot3D", "[", 
      RowBox[{"fn_", ",", 
       RowBox[{"{", 
        RowBox[{"z_Symbol", ",", "zmin_", ",", "zmax_"}], "}"}], ",", 
       "n_Integer", ",", 
       RowBox[{"opts", ":", 
        RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], "/;", 
     RowBox[{"n", ">", "0"}]}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "delta", ",", "prec", ",", "rmin", ",", "rmax", ",", "imin", ",", 
        "imax", ",", "f", ",", "data", ",", "colorf", ",", "cnt", ",", "cur", 
        ",", "colorfd", ",", "ticks"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"delta", "=", 
        RowBox[{"OptionValue", "@", "Chop"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"prec", "=", 
        RowBox[{"OptionValue", "@", "WorkingPrecision"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"rmin", ",", "imin"}], "}"}], "=", 
        RowBox[{"ReIm", "@", 
         RowBox[{"N", "[", 
          RowBox[{"zmin", ",", "prec"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"rmax", ",", "imax"}], "}"}], "=", 
        RowBox[{"ReIm", "@", 
         RowBox[{"N", "[", 
          RowBox[{"zmax", ",", "prec"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"f", "=", 
        RowBox[{"Function", "[", 
         RowBox[{"z", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"NumericQ", "@", "#"}], ",", 
              RowBox[{"Chop", "[", 
               RowBox[{"#", ",", "delta"}], "]"}], ",", "Indeterminate"}], 
             "]"}], "&"}], "@", 
           RowBox[{"N", "[", 
            RowBox[{"fn", ",", "prec"}], "]"}]}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"data", "=", 
        RowBox[{"Quiet", "@", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"f", "[", 
            RowBox[{"a", "+", 
             RowBox[{"b", " ", "I"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"a", ",", "rmin", ",", "rmax", ",", 
             FractionBox[
              RowBox[{"rmax", "-", "rmin"}], "n"]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"b", ",", "imin", ",", "imax", ",", 
             FractionBox[
              RowBox[{"imax", "-", "imin"}], "n"]}], "}"}]}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"colorf", "=", 
        RowBox[{"Function", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x", ",", "y"}], "}"}], ",", 
          RowBox[{"Hue", "[", 
           RowBox[{
            FractionBox[
             RowBox[{"Arg", "@", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"Round", "[", 
                  RowBox[{
                   RowBox[{"n", " ", "x"}], "+", "1"}], "]"}], ",", 
                 RowBox[{"Round", "[", 
                  RowBox[{
                   RowBox[{"n", " ", "y"}], "+", "1"}], "]"}]}], "]"}], 
               "]"}]}], 
             RowBox[{"2", "\[Pi]"}]], ",", ".75"}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"cnt", "=", "0"}], ";", "\[IndentingNewLine]", 
       RowBox[{"colorfd", "=", 
        RowBox[{"Function", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x", ",", "y"}], "}"}], ",", 
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"cnt", "++"}], ",", "4"}], "]"}], "==", "0"}], ",", 
             RowBox[{"cur", "=", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"Round", "[", 
                  RowBox[{
                   RowBox[{"n", " ", "x"}], "+", "1"}], "]"}], ",", 
                 RowBox[{"Round", "[", 
                  RowBox[{
                   RowBox[{"n", " ", "y"}], "+", "1"}], "]"}]}], "]"}], 
               "]"}]}]}], "]"}], ";", 
           RowBox[{"Hue", "[", 
            RowBox[{
             FractionBox[
              RowBox[{"Arg", "@", "cur"}], 
              RowBox[{"2", "\[Pi]"}]], ",", ".75"}], "]"}]}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"ticks", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{"n", " ", "i"}], "4"], "+", "1"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Abs", "[", 
                  RowBox[{"#", "-", 
                   RowBox[{"Round", "@", "#"}]}], "]"}], "<", ".01"}], ",", 
                RowBox[{"Round", "@", "#"}], ",", "#"}], "]"}], "&"}], "@", 
             RowBox[{"Round", "[", 
              RowBox[{
               RowBox[{"rmin", "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"rmax", "-", "rmin"}], "4"], "i"}]}], ",", ".01"}], 
              "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0", ",", "4"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"ListPlot3D", "[", 
        RowBox[{
         RowBox[{"Map", "[", 
          RowBox[{"Abs", ",", 
           RowBox[{"Transpose", "@", "data"}], ",", 
           RowBox[{"{", "2", "}"}]}], "]"}], "\[IndentingNewLine]", ",", 
         RowBox[{"ColorFunction", "->", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"OptionValue", "@", "DiscretePlot"}], ",", "colorfd", ",",
             "colorf"}], "]"}]}], "\[IndentingNewLine]", ",", 
         RowBox[{"Ticks", "->", 
          RowBox[{"{", 
           RowBox[{"ticks", ",", "ticks", ",", "Automatic"}], "}"}]}], 
         "\[IndentingNewLine]", ",", 
         RowBox[{"PassOptions", "[", 
          RowBox[{"FastComplexPlot3D", ",", "ListPlot3D", ",", "opts"}], 
          "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"{", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"FastComplexPlot3D", "[", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{
        RowBox[{"-", "10"}], "-", 
        RowBox[{"10", "I"}]}], ",", 
       RowBox[{"10", "+", 
        RowBox[{"10", "I"}]}]}], "}"}], ",", "30"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ComplexPlot3D", "[", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{
        RowBox[{"-", "10"}], "-", 
        RowBox[{"10", "I"}]}], ",", 
       RowBox[{"10", "+", 
        RowBox[{"10", "I"}]}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
  "}"}]}], "Input",
 CellChangeTimes->{{3.9371292634420586`*^9, 3.9371294880616016`*^9}, {
   3.9371295339302063`*^9, 3.937129637128401*^9}, {3.9371298411690636`*^9, 
   3.9371301549080048`*^9}, {3.9371302196152153`*^9, 
   3.9371302884820423`*^9}, {3.9371303452392273`*^9, 
   3.9371304584122066`*^9}, {3.9371304893132553`*^9, 
   3.9371305621378345`*^9}, {3.9371306202949867`*^9, 
   3.9371308559195843`*^9}, {3.937131089801815*^9, 3.937131140274637*^9}, {
   3.9371311809664707`*^9, 3.9371312113637543`*^9}, {3.9371312683558846`*^9, 
   3.93713127985174*^9}, 3.937131325379259*^9, {3.937131368193367*^9, 
   3.937131369092516*^9}, {3.937131582107996*^9, 3.937131637555853*^9}, {
   3.937131672499628*^9, 3.937132106292013*^9}, {3.9371321471696415`*^9, 
   3.937132166428627*^9}, 3.9371322398747177`*^9, {3.9371324380580482`*^9, 
   3.9371324414597454`*^9}, {3.9371325422325916`*^9, 
   3.9371325442061863`*^9}, {3.9371326580819798`*^9, 
   3.9371327553500633`*^9}, {3.9371328238328133`*^9, 
   3.9371329092980366`*^9}, {3.937132946683817*^9, 3.937133047129896*^9}, {
   3.937133096436634*^9, 3.937133227187977*^9}, {3.9371332706882687`*^9, 
   3.937133741124153*^9}, {3.9371337740571365`*^9, 3.9371338580004654`*^9}, {
   3.937133904866108*^9, 3.9371339303111134`*^9}, {3.937134185545679*^9, 
   3.9371342532935143`*^9}, {3.937134315324436*^9, 3.9371343369853077`*^9}, {
   3.937134372402338*^9, 3.937134374206421*^9}, {3.937140518047453*^9, 
   3.9371405275843945`*^9}, 3.937173144381838*^9, {3.937173204564049*^9, 
   3.9371733343896847`*^9}, {3.937173366383732*^9, 3.937173389472025*^9}, {
   3.9371735200498295`*^9, 3.9371735619934483`*^9}, {3.9371735984179707`*^9, 
   3.9371736601256657`*^9}, {3.9371736905976276`*^9, 
   3.9371736906864166`*^9}, {3.937173734615328*^9, 3.93717374795055*^9}, {
   3.937173913454178*^9, 3.937173913571823*^9}, {3.9371747371804657`*^9, 
   3.9371748236756935`*^9}, 3.9371749146802025`*^9, {3.938239918843439*^9, 
   3.9382399617180977`*^9}, {3.9382400258878326`*^9, 3.938240088929737*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"bafe4e56-b55b-464e-a028-9e7def16664d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   Graphics3DBox[{GraphicsComplex3DBox[CompressedData["
1:eJyV3Xu4VHW5B/ANKGwvGwYdafAsaBqHYRrHce73ma1FKopUeEExUQQvpCKS
RxNI0lJIvJ6D4SU5mOD9ho9I3lKwEiEvUIaaWlpcEoiLqaSo558zazXf9X7P
t+0/Ps/Hep/1rHnX+/vumbV+6ytnXDDmzN4dHR2B/h0dfTpa/2zvbv37p1e/
ss8PBz542P/9h8P+f+84rN1bdf5dZ3Va3knqcH/8vHu+cB66y1fH9gB4qw73
7//XCee+P3K+r47tQfBWHe7zD2zsXv+32b46tofAW3W4R1/v++nB133fV8d2
B7xVh/vnKzdkXi9O9tWxPQzeqsN91/Jrj+r915N9dWyPgLfqcL+gtvmqh286
2lfH9ih4qw73SXf+9qTbjqn56tgeA2/V4T5n6IfPnLZH0lfH9jh4qw73R2b8
fp/Sk46vju0J8FYd7qecfM47G0/s8tWxPQneqsN9UXb9hblrP+vGOranwFt1
uP9y9Q0XdL28xVfH9jR4qw73Md/84MMF57zrq2N7BrxVh/tD5nEyz4K36nCf
Z55n5jnwVh3udp8wz5M+4f6A2efMC+CtOtynm9cp8yJ4qw53e84wL5E5w32y
OSeZl8Fbdbi/b8555hXwVh3u9jrFvErWKe77m+ss8xp4qw73a82cwLwO3qrD
3c45zBsk53C/z8xpzJvgrTrc7ZzJvJvkTHSWkzuF9zQPo7M6ne6//71c7Xm4
kvind946hQfAO6S/9uO9x3ife6fwIHiH9PjTS2/x+rZTeAi8Q/pXtxVmJNzr
rlO4A94h/ZQtz41b686NTuFh8A7pwc2pOZv/crKvju0R8A7pK99rrD/Rndud
wqPgHdL/65klfb92dM1Xx/YYeIf0kZf/6sEhXxzsq2N7HLxD+twpG694aLHj
q2N7ArxD+vp11T6Jvl2+OrYnwTukbz1yrwGHH7m7G+vYngLvkJ4aVl56ZmSj
r47tafAO6de8PGL3Dacv89WxPQPeIf1A8ziZZ8E7pL9lnmfmOfAO6XafMM+T
PuF+pdnnzAvgHdLr5nXKvAjeId2eM8xLZM5wX27OSeZl8A7pfc05z7wC3iHd
XqeYV8k6xT1krrPMa+Ad0oeYOYF5HbxDup1zmDdIzuEeNHMa8yZ4h3Q7ZzJn
ORmd5eSA8J7mYXRWJ+D+//69XO35QZ8v7jPEPW8B4QHwTulv9H93uve5B4QH
wTulPxBYXd7g9m1AeAi8U/r8w9/fkHSvu4BwB7xT+rgRv135R3duBISHwTul
3zBr8IiA+71BQHgEvFP6D5ZEvljvzu2A8Ch4p/TH3onNvWBUzVfH9hh4p/S9
a49cdWu/pK+O7XHwTulfOW7m6S//xvHVsT0B3in9S6N7vTB4Tpevju1J8E7p
35uS+9lToz/vxjq2p8A7pQ8eWa8tX7XNV8f2NHin9DlXbzz73I4Nvjq2Z8A7
pe9tHifzLHin9InmeWaeA++UbvcJ8zzpE+6O2efMC+Cd0j+rWtcp8yJ4p3R7
zjAvkTnD/WJzTjIvg3dKv9yc88wr4J3S7XWKeZWsU9xnm+ss8xp4p/Q7zJzA
vA7eKd3OOcwbJOdwH2TmNOZN8E7pds5kznIyOsvJQeE9zcPorE7LMSezXO35
Mev2G+Cdt6DwAHhA+gdLz7jb+9yDwoPgAemn35/Y4PVtUHgIPCD9if1HXn2o
e90FhTvgAemLhz04YIM7N4LCw+AB6f23Xjmq7M69oPAIeED6oG+N3375T4/2
1bE9Ch6QfuS2R3a8PLrmq2N7DDwgfd7Xv/HzdYGkr47tcfCA9PqpB/zq6fcd
Xx3bE+AB6Z//PTupuH9/Xx3bk+AB6aNDp122/dAOXx3bU+AB6YtOmntv8NoP
urGO7WnwgPQZr8QXrr1nm6+O7RnwgPQF5nEyz4IHpB9pnmfmOfCAdLtPmOdJ
n3Avmn3OvAAekD7bvE6ZF8ED0u05w7xE5gz3AeacZF4GD0jvZc555hXwgHR7
nWJeJesU93vMdZZ5DTwg/QQzJzCvgwek2zmHeYPkHO7dZk5j3gQPSLdzJnOW
k9FZTg4J72keRmd1Wo45meVqz3930Md7eectJDwAHpT+n7fO/G/vcw8JD4IH
pa945q6bvb4NCQ+BB6VPXX7cd1LudRcS7oAHpae+NfmSd925ERIeBg9KP238
9LNi7twLCY+AB6XP6N27XHfndkh4FDwo/ZCJc8569tiar47tMfCg9BeHP37j
4/smfXVsj4MHpe/5QGHJkjcdXx3bE+BB6ccPOXj48a91+erYngQPSt/3m8vr
N1/yRTfWsT0FHpR+3yelpV/rvdNXx/Y0eFB6YPE1q+es2OyrY3sGPCh9kXmc
zLPgQemfjLbOM/MceFC63SfM86RPuH9+v9XnzAvgQelPmdcp8yJ4ULo9Z5iX
yJzhfpE5J5mXwYPSx5hznnkFPCjdXqeYV8k6xf10c51lXgMPSv+FmROY18GD
0u2cw7xBcg73lWZOY94ED0q3cyZzlpPRWU52hPc0D6OzOt7vWv9ervb8i30P
2u3d9+IID4CHpM8YteBU73N3hAfBQ9JH7vvKb7z7jhzhIfCQ9DdP/2vCe+7A
Ee6Ah6SHnaH9XnPnhiM8DB6SvmjHQTs/dO9bc4RHwEPSV+z6+OJZ7u+GjvAo
eEj6C6svDf3ZvW/QER4DD0k/bNkbW67slfTVsT0OHpJ+/7hhpw162PHVsT0B
HpJ+6e1vv1o9uMtXx/YkeEh6bXL32No7rftmHeEp8JD0t/qOGTf1vb/56tie
Bg9JP2X78x2hnet8dWzPgIekrzKPk3kWPCT9q+Z5Zp4DD0m3+4R5nvQJ98Vm
nzMvgIek58zrlHkRPCTdnjPMS2TOcH/KnJPMy+Ah6fPMOc+8Ah6Sbq9TzKtk
neL+ornOMq+Bh6R3mzmBeR08JN3OOcwbJOdw/8DMacyb4CHpds5kznIyOsvJ
YeE9zcPorE7LMSezXO358dVnPvHOW1h4ANyRnpucPMn73MPCg+CO9Fm5W5Z4
fRsWHgJ3pI+4YcTr3nMHYeEOuCN97C2H//p37twICw+DO9LH3TNm3x3u3AsL
j4A70q+d/aMzznPndlh4FNyRvvea65ff5K47YeExcEf6uVOS4UkdSV8d2+Pg
jvQnrxsx5r77HF8d2xPgjvQfXHbj3msHd/nq2J4Ed6T/edfS8O3zW7krLDwF
7kh/a+V1Z375jk2+OranwR3pz/38kat3vLvGV8f2DLgj/UXzOJlnwR3pr5jn
mXkO3JFu9wnzPOkT7o+Zfc68AO5IH29ep8yL4I50e84wL5E5w/0qc04yL4M7
0keZc555BdyRbq9TzKtkneKeNddZ5jVwR/pFZk5gXgd3pNs5h3mD5BzuR5k5
jXkT3JFu50zmLCejs5wcEd7TPIzO6rQcczLL1Z5P2rWpn/e9fUR4ADwsfcjW
6XO9zz0iPAgeln7a0Rdf6v1uEhEeAg9L3++W3793iHvdRYQ74GHpd6bCC/7k
zo2I8DB4WPrss9dmv+z+7hYRHgEPS9/jqFGJsPu7YUR4FDwsPd7viK+McX/3
jAiPgYelX9s4cP+ufZK+OrbHwcPSfzO/uqj6e8dXx/YEeFj6XedOnzXy6S5f
HduT4GHpQx9Nn1oOtX73jwhPgYelj5235NgrTt7hq2N7GjwsfcDAwndW933f
V8f2DHhY+rfM42SeBQ9LH2CeZ+Y58LB0u0+Y50mfcH/W7HPmBfCw9Fnmdcq8
CB6Wbs8Z5iUyZ7jvPtKak8zL4GHpl5pznnkFPCzdXqeYV8k6xb23uc4yr4GH
pR9v5gTmdfCwdDvnMG+QnMP9JDOnMW+Ch6XbOZM5y8norf895uSo8J7mYXRW
p+WYkyPSK0Mu/5f7xqPCA+AR6Y8fEbjX+9yjwoPgEen9+j22xevbqPAQeER6
/5uevdN77iAq3AGPSP/bvW9P856biAoPg0ekX91r08sVd+5FhUfAI9K3Tvvu
mtnu3I4Kj4JHpJeHRtetd5+7iQqPgUekvzpl5i/TA5O+OrbHwSPS+0wavmTQ
FsdXx/YEeET6qD+cMPOcUH9fHduT4BHpexTLj95U6fDVsT0FHpE+8Jh+9374
QOu5uajwNHhE+muLJx479eNtvjq2Z8Aj0vcxj5N5FjwifXfBOs/Mc+AR6Xaf
MM+TPuH+2USrz5kXwCPSnzevU+ZF8Ih0e84wL5E5w32DOSeZl8Ej0meac555
BTwi3V6nmFfJOsX9s3nWOsu8Bh6RvruvlROY18Ej0u2cw7xBcg73Q8ycxrwJ
HpFu50zmLCejs5wcE97TPIzO6rQcczLL1Z537bNpT++8xYQHwKPSV772wI+8
zz0mPAgelT5tVf9TvL6NCQ+BR6WPrU06z/u7NSbcAY9K3z7yuVffdudGTHgY
PCp9TfT6Q0Lu3IsJj4BHpf9kUWXNHu7cjgmPgkelb1125q0b3X2fYsJj4FHp
C+L3ZabslfTVsT0OHpX+0YrIG5tfcnx1bE+AR6Uf2IysXX1nl6+O7UnwqPQL
dz3SFXmyte9ZTHgKPCp9yin7N+c/tN1Xx/Y0eFT6Q0PfevuJ0iZfHdsz4FHp
Z5nHyTwLHpU+wTzPzHPgUel2nzDPkz7hvsPsc+YF8Kj0G83rlHkRPCrdnjPM
S2TOcL/CnJPMy+BR6c+bc555BTwq3V6nmFfJOsX9G+Y6y7wGHpV+lpkTmNfB
o9LtnMO8QXIO915mTmPeBI9Kt3Mmc5aT0VlOjgvvaR5GZ3VajjmZ5WrP525a
/S/7ZseFB8Bj0l865YfHe597XHgQPCb9lsOPudO77yguPAQekx66fu5C776p
uHAHPCb9Z5ent3j7xseFh8Fj0i945qlfbnXvW4sLj4DHpC846ZQfn+bedxcX
HgWPSb9y8vcXTHTvG4wLj4HHpM96defdC933JsSFx8Fj0idNr37/obsdXx3b
E+Ax6Xdt3XJR//5dvjq2J8Fj0v85Y/I7t5zdum82LjwFHpN+/vs/+966X270
1bE9DR6TPmL+f2yfPWmlr47tGfCY9HHmcTLPgsekbzLPM/MceEy63SfM86RP
uI83+5x5ATwmfZp5nTIvgsek23OGeYnMGe7zzTnJvAwekz7BnPPMK+Ax6fY6
xbxK1inufc11lnkNPCb9OjMnMK+Dx6TbOYd5g+Qc7rPMnMa8CR6TbudM5iwn
o7OcnBDe0zyMzuq0HHMyy9Wen3fho5955y0hPAAel37+0Ecnep97QngQPC79
1EdnvOP1bUJ4CDwu/Y//OWS299xuQrgDHpd+zsvjp/zBnRsJ4WHwuPSpA2+f
/Kk79xLCI+Bx6QtnvLRinju3E8Kj4HHpHx9w4sCc+97bhPAYeFz6D9afd+KL
vZO+OrbHwePSZ/79pq/s+Zjjq2N7AjwufXr6F/9xe7PLV8f2JHhc+iM3r3j3
68nWe58TwlPgcenDDujX67bSZl8d29Pgcel/vSB9zj++/ravju0Z8Lj0A8zj
ZJ4Fj0v/H/M8M8+Bx6XbfcI8T/qE+8VmnzMvgMelTzWvU+ZF8Lh0e84wL5E5
w/1mc04yL4PHpU8w5zzzCnhcur1OMa+SdYr7KnOdZV4Dj0sfY+YE5nXwuHQ7
5zBvkJzDfYKZ05g3wePS7ZzJnOVkdJaTk8J7mofRWR3vvUn/Xq72fL9TF+3j
fW+fFB4AT0j/5h173Op97knhQfCE9GEDQ496v5skhYfAE9JXpac+6+0bmRTu
gCekz7nhsn++586NpPAweEL6q+svOCLp/u6WFB4BT0h/6MTJBx7n/m6YFB4F
T0i/7rYfzAm59w0mhcfAE9JfcAbePLB/0lfH9jh4Qvo14T8/+dGfHF8d2xPg
CekL938w/Ojfunx1bE+CJ6S/cMczl9z4q9ZzZ0nhKfCE9PNPfOHVS2fv9NWx
PQ2ekH7EY2ve/yi01VfH9gx4QvrZ5nEyz4InpC8zzzPzHHhCut0nzPOkT7jP
NvuceQE8If0J8zplXgRPSLfnDPMSmTPc7zbnJPMyeEL6CnPOM6+AJ6Tb6xTz
KlmnuP/CXGeZ18AT0g80cwLzOnhCup1zmDdIzuHe18xpzJvgCel2zmTOcjI6
y8kp4T3Nw+isTssxJ7Nc7fnXJx7b3ztvKeEB8KT0ZT+ZsMj73FPCg+BJ6a9P
uPhNr29TwkPgSen7xJZ8x3vuICXcAU9KP/nxgePXu3MjJTwMnpS+fdX9Nxfc
uZcSHgFPSn/9pAsnX+LO7ZTwKHhS+viHB+1c7K47KeEx8KT0YZecECi77x1L
CY+DJ6UPab6V/fYmx1fH9gR4Uvq4ySf/cMNe/X11bE+CJ6XP/MnWFT8b2uGr
Y3sKPCn92tv+MXbmca3n5lLC0+BJ6aOG/ehHQw7c5qtjewY8KX22eZzMs+BJ
6ReZ55l5Djwp3e4T5nnSJ9wHmX3OvACelB4yr1PmRfCkdHvOMC+ROcN9rTkn
mZfBk9L/Ys555hXwpHR7nWJeJesU90+HWess8xp4UvpLZk5gXgdPSrdzDvMG
yTncy2ZOY94ET0q3cyZzlpPRWU5OC+9pHkZndVqOOZnlas9H/em2Xt55SwsP
gKek/3j4tmne554WHgRPSX+n/+uDvb5NCw+Bp6T3nTJuStK97tLCHfCU9IMP
Gv7BG+7cSAsPg6ekL7v5tqF7uXMvLTwCnpL+3Ulj46vc3w3TwqPgKem9/vjh
l/q4z92khcfAU9J37/per3/smfTVsT0OnpL++ck/vOO05xxfHdsT4CnpT4wa
PPaLKV2+OrYnwVPSr3v40aFTtrR+908LT4GnpF8/76NpY4/9u6+O7WnwlPQp
88Pff/jFv/jq2J4BT0mfZR4n8yx4Svpl5nlmngNPSbf7hHme9An3f5p9zrwA
npK+zbxOmRfBU9LtOcO8ROYM9zPMOcm8DJ6Sfq8555lXwFPS7XWKeZWsU9w/
PN9aZ5nXwFPSf2fmBOZ18JR0O+cwb5Ccw/0wM6cxb4KnpNs5kznLyegsJ2eE
9zQPo7M6LceczHK150M7P9nl3feSER4AT0s/e9Xob3ufe0Z4EDwtve+0N3/q
3XeUER4CT0svlw6Y6j13kBHugKel91159qHecxMZ4WHwtPTVC779p/fd+9Yy
wiPgaemf3DPpuOPduZ0RHgVPS08Xp/Ypu8/dZITHwNPSD9096c6PPj/YV8f2
OHha+kv3VP56wGLHV8f2BHha+sJ3H5/4Sp8uXx3bk+Bp6ZcduvDpmxqt584y
wlPgaen37ex97Ec7N/jq2J4GT0vvaPsnIzwDnpb+U/M4mWfB09LPN88z8xx4
WrrdJ8zzpE+4v2D2OfMCeFp6xLxOmRfB09LtOcO8ROYM9w/MOcm8DJ6W/ow5
55lXwNPS7XWKeZWsU9yHm+ss8xp4WvqnF1o5gXkdPC3dzjnMGyTncN/PzGnM
m+Bp6XbOZM5yMjrLyVnhPc3D6KxOyzEns1zt+TFtf3dkhQfAM9Lb/27KCsfv
mTPS2783zgrH75kz0tu/N84Kx++ZM9ITbX93Z4WHwTPSl7Z9b5AVHgHPSG//
3jgrHL9nzkjv3fa9TVZ4DDwj/dO2752ywuPgGelftH1vlhWeAM9IX9b2vV9W
eBI8I31u2/eWWeEp8Iz0q9q+d80KT4NnpE9o+944KzwDnpF+iXmczLPgGekz
zPPMPAeekW73CfM86RPu/zT7nDl+z5yR/nfzOmVeBM9It+cM8xKZM9wnmnOS
eRk8I/1uc84zr4BnpNvrFPMqWae4f3S+tc4yr4FnpK81cwLzOnhGup1zmOP3
zBnph5k5jTl+z5yRbudM5iwno7OcnBPe0zyMzuq0HHMyy9Wet9+3nBOO9zln
pbfft5MTjvc5Z6W337ecE473OWel791233JOuAOeld5+31dOON7nnJXeft9y
Tjje55yV3n7fck443uecld5+32BOON7nnJXeft9yTjje55yV7rTdt5kTngDP
Sj+57b7TnPAkeFb6jLb7ZnPCU+BZ6de03febE54Gz0o/qu2+5ZzwDHhW+lXm
cTLPgmelX2SeZ+Z4n3NWut0nzPOkT7gPMvucOd7nnJUeMq9T5nifc1a6PWeY
433OWelrzDnJvAyelf6eOeeZV8Cz0u11ijne55yVvmuYtc4yr4Fnpb9k5gTm
eJ9zVrqdc5jjfc5Z6SUzpzFvgmel2zmTOcvJ6Cwn54X3NA+jszotx5zMcrXn
7ftm5IXjPhs56e3PjeaF4z4bOent+2bkheM+Gznp7ftm5IXjPhs56e3PHeeF
4z4bOent+2bkheM+Gznp7ftm5IXjPhs56e3PreeF4z4bOent+2bkheM+Gznp
7ftm5IXjPhs56e37HuSF4z4bOent+2bkheM+Gznp7ftm5IXjPhs56e37ZuSF
4z4bOelnm8fJHPfZyElfZp5n5rjPRk663SfMcZ+NnPTZZp8zx302ctKfMK9T
5rjPRk66PWeY4z4bOel3m3OSOe6zkZO+wpzzzHGfjZx0e51ijvts5KT/wlxn
meM+GznpB5o5gTnus5GTbucc5rjPRk56XzOnMcd9NnLS7ZzJnOVkdJaTC8J7
mofRWZ2WY05mudrz89v2/SsID4DnpZ/Xtm9hQXgQPC99fNu+iwXhIfC89Dfb
9o0sCHfA89Lb970sCMd9nvPSL2jbt7MgPAKel76gbd/RgvAoeF76R237phaE
x8Dz0me27ftaEB4Hz2tv27e2IBz3ec5Lb993tyAc93nOS1/Stm9wQXgKPC89
0bbvcUF4GjwvfWfbvs0F4RnwvPTB5nEyz4LnpS80zzPzHHheut0nzHGf57z0
i80+Z477POelX2Bep8yL4Hnp9pxhXiJzhvt8c04yL4PnpU8w5zxz3Oc5L91e
p5jjPs956avMdZY57vOcl36cmROY18Hz0u2cw7xBcg73082cxrwJnpdu50zm
LCejs5xcFN7TPIzO6rQcczLL1Z63vzewKBzfM1iQ/tu29+YUhQfBC9Lb3xtY
FI7vGSxIb39vYFE4vmewIP22tvcuFYWHwQvSp7a9N6ooPAJekP4/be+9KgqP
ghekt7+3qygc3zNYkH5Z23vHisLj4AXp7e8NLArH9wwWpN/d9t63ovAkeEH6
rrb31hWFp8AL0ie3vXevKDwNXpC+Z9t7A4vCM+AF6SeYx8k8C16QvtE8z8xz
4AXpdp8wz5M+4T7e7HPm+J7BgvRp5nXKHN8zWJBuzxnm+J7BgvT55pxkju8Z
LEifYM555viewYJ0e51iXiXrFPd+5jrLvAZekH6dmROY43sGC9LtnMO8QXIO
98vMnMa8CV6QbudM5iwno7OcXBLe0zyMzuq0HHMyy9Wed7W997wkPABelN7+
3vaS8CB4Ufq0tvfOl4SHwIvSx9YmnXeIe92VhDvgRenbRz736tvu3CgJD4MX
pa+JXn9IyP3drSQ8Al6U/pNFlTV7uL8bloRHwYvSty4789aN7nM3JeEx8KL0
BfH7MlP2Svrq2B4HL0r/aEXkjc0vOb46tifAi9IPbEbWrr6zy1fH9iR4UfqF
ux7pijz5eTfWsT0FXpQ+5ZT9m/Mf2u6rY3savCj9oaFvvf1EaZOvju0Z8KL0
s8zjZJ4FL0qfYJ5n5jnwonS7T5jnSZ9w32H2OfMCeFH6jeZ1yrwIXpRuzxnm
JTJnuF9hzknmZfCi9OfNOc+8Al6Ubq9TzKtkneL+DXOdZV4DL0o/y8wJzOvg
Rel2zmHeIDmHey8zpzFvghel2zmTOcvJ6Cwnl4X3NA+jszotx5zMcrXnlSGX
D/DOW1l4ALwk/fEjAvd6n3tZeBC8JL1fv8e2eH1bFh4CL0nvf9Ozd3rPHZSF
O+Al6ZvvfXvaBndulIWHwUvSr+616eWKO/fKwiPgJelbp313zWx3bpeFR8FL
0stDo+vWu/cNloXHwEvS106Z+cv0wKSvju1x8JL0PpOGLxm0xfHVsT0BXpI+
6g8nzDwn1N9Xx/YkeEn6HsXyozdVOnx1bE+Bl6QPPKbfvR8+0Hpuriw8DV6S
/triicdO/Xibr47tGfCS9H3M42SeBS9J312wzjPzHHhJut0nzPOkT7h/NtHq
c+YF8JL0X5vXKfMieEm6PWeYl8ic4b7BnJPMy+Al6TPNOc+8Al6Sbq9TzKtk
neL+2TxrnWVeAy9J393XygnM6+Al6XbOYd4gOYf7IWZOY94EL0m3cyZzlpPR
WU6uCO9pHkZndVqOOZnlas8n7trUzztvFeEB8LL0oVunz/U+94rwIHhZ+mlH
X3yp17cV4SHwsvT9bvn9e97frRXhDnhZ+p2p8II/uXOjIjwMXpY+++y12S+7
c68iPAJelt7nqFGJsDu3K8Kj4GXpX+13xFfGHFvz1bE9Bl6Wfk3jwP279kn6
6tgeBy9L//X86qLq7x1fHdsT4GXpd507fdbIp7t8dWxPgpelhx9Nn1oOtZ47
qwhPgZelj5u35NgrTt7hq2N7GrwsPTSw8J3Vfd/31bE9A16Wfpx5nMyz4GXp
A8zzzDwHXpZu9wnzPOkT7s+Zfc68AF6W/kPzOmVeBC9Lt+cM8xKZM9w/PdKa
k8zL4GXpl5pznnkFvCzdXqeYV8k6xb23uc4yr4GXpR9v5gTmdfCydDvnMG+Q
nMP9JDOnMW+Cl6XbOZM5y8noLCdXhfc0D6OzOi3HnMxytefHV5/5xLvvpSo8
AF6RnpucPMn73KvCg+AV6bNytyzx7juqCg+BV6SPuGHE6959U1XhDnhF+thb
Dv/179y5URUeBq9IH3fPmH13uPetVYVHwCvSr539ozPOc++7qwqPglek773m
+uU3ufcNVoXHwCvSz52SDE/6l/fF/v8eB69If/K6EWPuu8/x1bE9AV6R/oPL
btx77eAuXx3bk+AV6X/etTR8+/zWfbNV4SnwivS3Vl535pfv2OSrY3savCL9
uZ8/cvWOd9f46tieAa9If9E8TuZZ8Ir0V8zzzDwHXpFu9wnzPOkT7o+Zfc68
AF6RPt68TpkXwSvS7TnDvETmDPerzDnJvAxekT7KnPPMK+AV6fY6xbxK1inu
WXOdZV4Dr0i/yMwJzOvgFel2zmHeIDmH+1FmTmPeBK9It3Mmc5aT0VlOrgnv
aR5GZ3VajjmZ5WrPv9j3oN3eeasJD4BXpc8YteBU73OvCQ+CV6Ufve8rv/H6
tiY8BF6V/ubpf014z+3WhDvgVelhZ2i/19y5URMeBq9K//mOg3Z+6M69mvAI
eFX687s+vniWO7drwqPgVem/Xn1p6M/uulMTHgOvSu9e9saWK3slfXVsj4NX
pT8wbthpgx52fHVsT4BXpV96+9uvVg/u8tWxPQlelV6e3D229k4rd9WEp8Cr
0tf2HTNu6nt/89WxPQ1elZ7a/nxHaOc6Xx3bM+BV6c+Zx8k8C16VPtw8z8xz
4FXpdp8wz5M+4b7Y7HPmBfCq9Kx5nTIvglel23OGeYnMGe5PmXOSeRm8Kn2e
OeeZV8Cr0u11inmVrFPcXzTXWeY18Kr0bjMnMK+DV6XbOYd5g+Qc7h+YOY15
E7wq3c6ZzFlORmc5uS68p3kYndVpOeZklqs9f+2gj/fyvrevCw+A16RffOvM
//Y+97rwIHhN+vPP3HWz97tJXXgIvCZ92vLjvuPtG1kX7oDXpGe+NfmSd925
URceBq9JnzB++lkx93e3uvAIeE36jN69y3X3d8O68Ch4TfohE+ec9eyxNV8d
22PgNemrhj9+4+P7Jn11bI+D16Tv+UBhyZI3HV8d2xPgNenHDzl4+PGvdfnq
2J4Er0nf55vL6zdf0vrdvy48BV6Tfs8npaVf673TV8f2NHhN+l6Lr1k9Z8Vm
Xx3bM+A16QvN42SeBa9J/3S0dZ6Z58Br0u0+YZ4nfcL9i/utPmdeAK9Jf9q8
TpkXwWvS7TnDvETmDPeLzDnJvAxek36cOeeZV8Br0u11inmVrFPcJ5jrLPMa
eE36MjMnMK+D16TbOYd5g+Qc7i+aOY15E7wm3c6ZzFlORmc5uSG8p3kYndVp
OeZklqs9P2bdfv9y33hDeAC8Lv2DpWfc7X3uDeFB8Lr00+9PbPD6tiE8BF6X
/sT+I6/2njtoCHfA69IXD3twgPfcREN4GLwuvf/WK0eV3bnXEB4Br0sf9K3x
2y9353ZDeBS8Lv3IbY/seHl0zVfH9hh4Xfq8r3/j5+vc9441hMfB69Lrpx7w
q6ffd3x1bE+A16V//vfspOL+/X11bE+C16WPDp122fZDO3x1bE+B16UvOmnu
vcFrW8/NNYSnwevSZ7wSX7j2nm2+OrZnwOvSF5jHyTwLXpd+pHmemefA69Lt
PmGeJ33CvWj2OfMCeF36bPM6ZV4Er0u35wzzEpkz3AeYc5J5GbwuvZc555lX
wOvS7XWKeZWsU9zvMddZ5jXwuvQTzJzAvA5el27nHOYNknO4d5s5jXkTvC7d
zpnMWU5GZzm5KbyneRid1Wk55mSWqz2PfL64j3femsID4A3pb/R/d7r3uTeF
B8Eb0h8MrC57fdsUHgJvSJ9/+Psbku511xTugDekjxvx25V/dOdGU3gYvCH9
+lmDRwTcudcUHgFvSJ+5JPLFevd3w6bwKHhD+mPvxOZeMKrmq2N7DLwhfe/a
I1fd2i/pq2N7HLwhPXLczNNf/o3jq2N7Arwh/Uuje70weE6Xr47tSfCG9Iun
5H721OjWvmdN4SnwhvTwyHpt+aptvjq2p8Eb0uddvfHsczs2+OrYngFvSA+a
x8k8C96QfqZ5npnnwBvS7T5hnid9wt0x+5x5Abwh/bOqdZ0yL4I3pNtzhnmJ
zBnul5hzknkZvCH9CnPOM6+AN6Tb6xTzKlmnuM8211nmNfCG9IVmTmBeB29I
t3MO8wbJOdwHmTmNeRO8Id3OmcxZTkZnOblbeE/zMDqr03LMySxXex6uJP5l
3+xu4QHwpvTXfrz3GO9z7xYeBG9KH/700lu8+466hYfAm9IT2wozvOcOuoU7
4E3pp2x5bpy3b3y38DB4U3pwc2rOZve+tW7hEfCm9JXvNdaf6M7tbuFR8Kb0
G59Z0vdrR9d8dWyPgTelH335rx4c4r43oVt4HLwpfe6UjVc8tNjx1bE9Ad6U
vmFdtU+ib5evju1J8Kb0rUfuNeDwI1v3zXYLT4E3pR86rLz0zMhGXx3b0+BN
6fu+MmL3Dacv89WxPQPelO6Yx8k8C96U/pZ5npnnwJvS7T5hnid9wv1Ks8+Z
F8Cb0hvmdcq8CN6Ubs8Z5iUyZ7gvN+ck8zJ4U3pfc84zr4A3pdvrFPMqWae4
DzbXWeY18KZ0x8wJzOvgTel2zmHeIDmHe9DMacyb4E3pds5kznKy5/8LPOMv
Gg==
      "], {{
        {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
          GrayLevel[1], 3], 
         StyleBox[GraphicsGroup3DBox[Polygon3DBox[CompressedData["
1:eJwt2mPUHMnfBuDYtm1rY9u2bVsbb6xNsrFtO9l4Y3uTbGzbeK857//DdeY8
91PVXfWrrumeOZO0aaeqHYMFCRIkXfAgQUJ4bRIqSJCmNKM5cWXxiE8CYhKL
2MQhKtGITgxCRgoSJBShCUNKWSpSk4aEJCIxSUhKMpKTInB+mtKM5jSgIY1o
TFjCEZ4IRMRpgkQmCmkDcyE9GahARSpRmTKUpRzlKUFJSlGaOtSlHvWpQU1q
UZsqVKUa1dnPAQ5yiIxkIjNZ+I2c5CI3LWhJK1qTh7zkIz9taEs72rOAhSxi
MeMYzwQm8kUBvvKN7wRVjGAEJwQ/ZD/59b9CjfIymjGMZTBDGMow/mA4IxjJ
X0GDBJnKNKbzJ5OYzBQ6aNORTnSmC13pRnf+ZBKTmcIa1rKO9axgJatYzRzm
Mo/5bGAjm9jM3+xhL/vYwU52sTswXqYyjenMYCazmM0WtrKN7SxhKctYTgEK
UojCFKEoxShOVrKRnRy8Ude3vOM9D2QPecRj7nCXe9znP25yi9t80Ocjn/hM
WjVNR3oy8ESbpzzjOWmD//9eTU8GsmqTjezk4Jw257nARS5xmStc5V+ucZ0b
pNQnFalJQ1ziEZ8ExCQWsYlDUpKRnBQkJBGJSUJQghGcELwwp5e84jUZZZnI
TBa+GMNXvvGdJ9o85RnP6aFNT3rRmy50pRvduaPNXe5xnwqyilSiMmUoSznK
U4KSlKI0dahLPepTg5rUojZVqEo1qvOPMR7mCEc5xnFOcJJTnOYMZ8mjT17y
kZ8ZzGQWsylAQQpRmAY0pBGNGcwQhjKM3xnAQAbRh770oz/jGM8EJjKK0Yxh
LH8wnBGM5DdykovcNKEpzWjOAzV9yCMeU0RWlGIUJyrRiE6MwPzcTGYyi9ks
YSnLWM4GbTayic2sYS3rWM8CFrKIxSxhKctYzha2so3t/M0e9rKP/RzgIIcC
1xdf+cZ3drCTXexmBStZxerA+nKYIxzlmDkf5wQnucRlrnCVf7nGdW4E/q/P
Za5wlSc85RnP+cBHPvGZN7zlHe8D5+M4JzjJOc5zgYu84CWveM0PfvKLIOr7
r9drXOcGQWXBCE4IilCUYhQnLvGITwKiEo3oxCAmsYhNHMISjvBEIC3pSE8G
kpKM5KQgJalITRpqeKaoSS1qk1CWiMQkISKRiEwUMpKJzGQhK9nITg5KUJJS
lCYPeclHfgpQkEIUpgxlKUd5KlCRSlTmlDU8zRnO8pssJ7nITRWqUo3qnNPm
PBe4SEhZKEIThv9kN7nFbU5Zk9Oc4SxzmMs85gf2tz4DGMgg+tCXfvSnA4EH
tk50pgtd6UZ3BjOEoQxjFKMZw1jGMZ4JTOQfDnOEo/zBcEYwkh70pBe9+ZNJ
TGYKLWhJK1qzgY1sYjNrWMs61rOAhSxiMVvYyja2s58DHOQQf7OHvezjL6Yy
jenMYS7zmM8OdrKL3RzjOCc4GZivNTjMEY6ynwMc5BAR3VMjEZkoPNDnIY94
HFhPbnKL29zhLve4zwc+8onPvOEt73jPC17yitc0oSnNaE4b2tKO9jzhKc94
HqiHMe5hL/tYIVvJKlbzL9e4zg1+8JNfBDGfqEQjOjEISShCE4awhCM8EYhJ
LGITh7jEIz4JSEkqUpOGoAQjeODzBAlJRGKSkJRkJCcFX4zrK9/4Tkh7IBSh
CUNYwhGeCEQkEpGJwgY12MgmNlPFMatSjerUoCa1qE0d6lKP+oxjPBOYyN8+
BO1hL/v4SzaVaUznEpe5wlVmMJNZzGaLMWxlG9sD90tZUYpRnB2ynexiN3/I
hjOCkYxiNGMYy+8MYCCDGMwQhjKMFrSkFa1pQlOa0Zw85CUf+SlAQQpRmAY0
pBGNOcd5LnCRPvSlH/05xWnOcJb/uMktbrOBjWxic6AebGUb2wPzZye72M0a
NVjLOtazQ813sovd1HGPqEs96rNfdoCDHOJcSOPlAhfZzwEOcog1zrGWdaxn
CUtZxnJWsJJVrOYJT3nGc17wkle85g53ucd9HvCQRzzmGMc5wcnA+cxpKctY
zhzZXOYxnwUsZBGLA+PRZiWrWB14vpBd4zo36EFPetGbNrSlHe3pQEc60Zm4
ahSP+CQgIYlITBJqUJNa1CYq0YhODGISi9jEoQENaURjqlCValTni3N+5Rvf
qSOrSz3qE5ZwhCcCEYlEZKIQlGAEJwRZyUZ2clCBilSiMmUoSznKU4KSlKI0
C9RwIYtYHPh8JUtHejIQklCEJgwpSUVq0pCUZCQnBTOYySxmB94fmMo0pvMn
k5jMFOYwl3nMpw996Ud/fmcAAxnEYIYwlGH0oCe96M0PNf3JLwJf2Lzx+pZ3
vKcLXelGd/5kEpOZwgc+8onPgfaO0ZVudOeUPXOaM5yljawt7WhPE5rSjOaM
U9PxTGAiS2RLWcbyQP1ZyCIWB+qjzSQmMyVw/5KtZBWrA8djPBOYSAta0orW
/MFwRjCSUYxmDGPpQEc60Zlj5nCcE5zkEpe5wlX+5RrXucETfZ7yjOf8x01u
cZt/ucZ1bnCJy1zhKg94yCMeB64fx0xGclJwR3aXe9wPzEcNhjOCkYxiNGMY
yzFtjnOCk4H14TRnOMs5znOBiyR0jkQkJglRiUZ0YhCRSEQmCnGJR3wSEJNY
xCYOXxzzK9/4zgte8orXgfFrM5wRjOSN7C3veB+4ns1hCEMZRhtt2tKO9rSg
Ja1oTROa0ozmVKAilahMFapSjeoUoSjFKE4ZylKO8pSgJKUozW+u+ZzkIjc/
bKOf/CKI54mMskxkJgtZyUZ2cpDHMfKSj/yEJRzhiUABClKIwoHzkZNc5KYH
PelFb7rQlW50pwMd6URnBjOEoQzjdwYwkEH0oS/96E8NalKL2tShLvWoTwMa
0ojGZCUb2cnB/gjunxzkED+s4U9+EcT/QxKK0IRhAxvZxGa2sJVtbGcFK1nF
6sD8XQM96UVv1sjWso71fOAjn/jMC17yitek9QyQjvRk4B/jOswRjgbeXx2z
L/3oz1/6TGUa05nBTGYxmwc85BGPecJTnvGc/7jJLW5zh7vc4z7/cJgjHOVv
9rCXfYH1MoYBDGRQ4PlGtpNd7OYNb3nHe/KYU17ykZ/fyEkucpOVbGQnBwUo
SCEK08Y52tKO9kSVRSM6MYhIJCIThQ7adKQTnelCV7rRnT+NaRKTmRJYHzX+
yCc+B95/ZaMZw1jGMZ4JTCSsc4QjPBEIKgtGcELwg5/8Ioj/hyQUoQlDFapS
jeqUoCSlKE0RilKM4lSgIpWoTBnKUo7yZCQTmclCUpKRnBR8MY6vfOM7KWWp
SE2awPgJRnBC0ICGNKIxf4VzvTGN6SxhKctYTgttWtKK1oH1oi3taB9YDzrS
ic6MYjRjGEsXutKN7vShL/3oTw960oveDGYIQxnGHwxnBCMD8w9t/iQnBS2s
eUta0ZoGNKQRjZmhz0xmMZs5zGUe81nAQhaxmCUsZRnLWcFKVrGaNaxlHevZ
wEY2sZktbGUb29nBTnaxm98ZwEAG0cQYm9KM5vwt28Ne9vEPhznCUf7lGte5
wSlOc4aznOM8F7jIG97yjvdc4jJXuMoLXvKK1/zHTW5xmwc85BGPecJTnvGc
D3zkE5/5wle+8Z2Y1igWsYlDUIIRnBCEjWS/EZ4IHNPnOCc4yQ9+8osg2tdR
o7rUoz41qEktahNXm3jEJwEJSURikhCVaEQnBvsd9wAHOcS4sN4PmMBEUmqT
itSkISOZyEwWspKN7OTgN3KSi9zkIS/5yE8NalKL2hSgIIUoTAlKUorSFKEo
xShOBSpSicpUoSrVqE5a0pGeDIF6UZd61KcJTWlG88D+oSWtaE0b2tKO9nSg
I53oTBe60o3u9KAnvehNH/rSj/6B8VmTqlSjOhWoSCUqU4aylKN84G99ylKO
8oxiNGMYyzjGM4GJ/MkkJjOFJSxlGcuZwUxmMZs5zGUe81nAQhaxmBWsZBWr
2cFOdrGbNaxlHevZwEY2sZktbGUb2/mbPexlH3dcY3e5x332yw5wkEOB/3OX
e9znFKc5w1nOcZ4LXOQvpjKN6RzjOCc4ySUuc4Wr/Ms1rnODBzzkEY95wlOe
8Zz/uMktbvMPhznCUV7wkle85g1vecd7SljTkpSiNGHD2O+EJwIFZAUpRGGC
yoIRnBAkJRnJSUFIQhGaMCQkEYlJQkQiEZkoxCQWsYlDXOIRnwSkJBWpSUNa
0pGeDJSgJKUoTVaykZ0c/EZOcpGbGtSkFrXJSCYyk4U85CUf+QPzpyCFKEwZ
ylKO8lSgIpWoTBGKUoziRCUa0YlBFapSjerUoS71qM8WtrKN7YHxqHle8pGf
JrKmNKM5LWhJK1rThra0o31g/vrkJBe5GSwbwlCGBeoly0Z2ctBH1pd+9Od3
BjCQQfzBcEYwkh3sZBe7GcVoxjCWFaxkFav5i6lMYzozmMksZtOAhjSiMX8y
iclMYQ5zmcd8FrCQRSxmDWtZx3o2sJFNbGYJS1nGcsYxnglMDJzfnmhIIxoH
3h9ke9jLPkq455SkFKU5JjvOCU5yitOc4Sxp1TQd6ckQ+P6WohSjOP9oc5gj
HOUSl7nCVc5xngtcJKM+mchMlsD3ebJrXOcGb3jLO97zha984zsxjTkWsYlD
UIIRnBCEJBShCcMHfT7yic/84Ce/CPx4JizhCE8EIhKJyEQhLvGITwISkojE
JCEq0YhODO447l3ucZ//uMktbpNUm2QkJ0Xg/k8qUpOGrGQjOzn4jZzkIjc1
qEktalOAghSiMHnISz7yU4SiFKM4ZShLOcpTgYpUojJVqEo1qlOHutSjPvvN
4QAHOURcaxiP+CQIfH+vzXBGMJIudKUb3clIJjKThbSkIz0Z6EBHOtGZNrSl
He3pQU960ZtRjGYMY/mdAQxkEH3oSz/6M5ghDGVYoD4+sxWlGMUD38fJJjGZ
KcxgJrOYzQpWsorVzGEu85jPAhayiMUsYSnLWM4a1rKO9fzNHvayjw1sZBOb
2cJWtrGdHexkF7sD68EBDnIosF4+U9WlHvX5R3aYIxwlojWKRGSicE52ngtc
JKYsFrGJwx3ZXe5xnwc85BGPecNb3vGeU5zmDGd5wlOe8ZwXvOQVr/nARz7x
majOGY3oxOCL7Cvf+E5QcwpGcEIQkUhEJgpRiUZ0YhCSUIQmDGEJR3giEJNY
xCYOSUlGclKQklSkJg1xiUd8EpCQRCQmCWlJR3oykJFMZCYLWclGdnLwGznJ
RW7ykJd85KcABSlEYYpQlGIUpwQlKUVpylCWcpQPzFcNwxGeCIQkFKEJE3ge
IhjBCcEPNf7JLwI/LDzm9TgnOBnYr+HNj/RkoIE2DWlEY3rQk170pg1taUd7
OtCRTnSmC13pRnf60Jd+9GcUoxnDWH5nAAMZxGCGMJRh/MFwRjCScYxnAhNp
QlOa0Zw/mcRkprCClaxiNXOYyzzms4CFLGIxa1jLOtazgY1sYjN/s4e97GMG
M5nFbLawlW1sZwc72cVu9nOAgxziRwTrw6///djzi9evfOM7H/jIJz7zrz7X
uM4N/uMmt7jNOc5zgYvc4S73uM8b3vKO97zgJa94TQta0orWPOAhj3jME57y
jOdc4jJXuEpK11AqUpOGD7KPfOJzYL785BeBH7kGJRjBCUFIQhGaMIQlHOGJ
QEQiEZkoRCUa0YlBTGIRmzjEJR7xSUBCEpGYJCQlGclJwRfj+so3vpNRlonM
ZOFva7CHvewLrAfXuM4NftMmJ7nITR7yko/8vNHmLe94Tx1ZXepRnxeyl7zi
NWVkZSlHeZ7InvKM51SRVaUa1alBTWpRO3A+3vKO94H9TUMa0ZgWtKQVrWlD
W9rRng50pBOd6UJXutGdHvSkF73pQ1/60Z/fGcBABjGYIQxlGH8wnBGMZBSj
GcNYKlCRSlRmHOOZwET+ZBKTmcJfTGUa01nBSlaxmjnMZR7zWcBCFrGYJSxl
GctZw1rWsZ7/1Pwmt7jNBtlGNrGZB7KHPOIxd7jLPe6zX5sDHOQQTWhKM5rz
D4c5wtHA8XjIIx5zjvNc4CKXuMwVrjKDmcxiNqc4zRnO8i/XuM6NwHy4yS1u
84SnPOM5L3jJK15zh7vc4z7HOM4JTgbq754ylWlMJ6ssG9nJwQ9+8ovAD9yD
EozghCAkoQhNGMISjvBEICWpSE0aIhKJyEQhJrGITRyiEo3oxCAhiUhMEpKS
jOSk4ItxfeUb30krS0d6MnCJy1zhKuc4zwUukoe85CM/BShIIQpThKIUozgl
KEkpSgf2O2UpR3kqUJFKVA7sd6pSjerUoCa1qE1c4hGfBIH3F+pSj/o0oCGN
aEwTmtKM5vSgJ73oTRva0o72dKAjnehMF7rSje70oS/96M8oRjOGsfzOAAYy
iMEMYSjD+IPhjGAk4xjPBCbywZp85BOfA/tfNonJTGEDG9nEZuYwl3nMZwEL
WcRiWtCSVrRmBjOZxWxOcZoznOUYxznBSbawlW1sZwc72cVu/uEwRzjKX0xl
GtPJ6DNKJjKThf8DvbuY/Q==
            "]]],
          Lighting->"Neutral"]}, {}, 
        {GrayLevel[0.82], EdgeForm[None], 
         GraphicsGroup3DBox[Polygon3DBox[CompressedData["
1:eJwt01WUUFUUBuAjXQO8AAKSSkjn0M3QJUhKSwszNAiSCvKCoHSDioB0dzdK
w1AS0qC0pNTHWjx8D/df5+x97r1nZ2kbUz86TgihGfGYEBHCRCYxmQpJQ6hI
JSoTRRWqUo25yUL4jXnMpyiRFKM4BSlEYYpQxp6ylKM8m9nCVraR15p85KcA
ZxKHcJZz/MVnSUKoTwM+pzZ1qEs90iYIIR3p+YgMZCQTmRnND4xhLPvtOcAf
/Mlu9rCXfZzX8wIXuURDWSMa04SDHOIwR1jtHdawlnWsZwMb2cRi77SEpSyj
hZotaUVr7iQK4S73uM8tbvMP/3KN69zgJn3oSz/68yphCK95Q/DcjWhi6E57
PTrQkU48t+4F//OSxzzhKc9ITBKSkoxhDOdbvqONGm35knacJJZTnObvD0K4
zBWuMsiewQxhKBEkJwUpGcFIvmcUP/pHPzGO8UxgIpOYzHk1L3CRS6SSpSYN
H3JNdp0b3GRzXPeNrWyjNnWoSz22s4Od7KI6NahJLRYbkiUsZRm7ZXvYyz7m
xjcPzGM+q61Zw1rWUYaylKM8RYmkGMUpQUlKUZpsZjA7OcjJDGYyi9lMYSrT
mM4cPX/mF34liywrH/MJPkF4N+9x3897BllGMpGZBe7k7yxkEfH9gwQkJBE9
3KGe9KI3yxVZwUpW8ameuchNHtpr2IGOdKIzXfiKrnQjmhi6c9DhDnGYI7Sg
Ja1ozdfOPICBfENDWSMa04SmNOMLmuMIwTUI78ch9KEv/ejPIAYzhKFE+TBV
qEo18iqQj/wUIBvZyUFOZjCTWczmpJ6xnOI0D9R8yCP+46jsGMc5wWPZE57y
jDvc5R73iUhuPkhBSt4CrGDAzA==
           "],
           VertexColors->None]]}, {}, {}}, 
       {GrayLevel[0], Line3DBox[{2, 1, 4, 3, 2},
         VertexColors->None], Line3DBox[{6, 5, 8, 7, 6},
         VertexColors->None], Line3DBox[{10, 9, 12, 11, 10},
         VertexColors->None], Line3DBox[{14, 13, 16, 15, 14},
         VertexColors->None], Line3DBox[{18, 17, 20, 19, 18},
         VertexColors->None], Line3DBox[{22, 21, 24, 23, 22},
         VertexColors->None], Line3DBox[{26, 25, 28, 27, 26},
         VertexColors->None], Line3DBox[{30, 29, 32, 31, 30},
         VertexColors->None], Line3DBox[{34, 33, 36, 35, 34},
         VertexColors->None], Line3DBox[{38, 37, 40, 39, 38},
         VertexColors->None], Line3DBox[{42, 41, 44, 43, 42},
         VertexColors->None], Line3DBox[{46, 45, 48, 47, 46},
         VertexColors->None], Line3DBox[{50, 49, 52, 51, 50},
         VertexColors->None], Line3DBox[{54, 53, 56, 55, 54},
         VertexColors->None], Line3DBox[{58, 57, 60, 59, 58},
         VertexColors->None], Line3DBox[{62, 61, 64, 63, 62},
         VertexColors->None], Line3DBox[{66, 65, 68, 67, 66},
         VertexColors->None], Line3DBox[{70, 69, 72, 71, 70},
         VertexColors->None], Line3DBox[{74, 73, 76, 75, 74},
         VertexColors->None], Line3DBox[{78, 77, 80, 79, 78},
         VertexColors->None], Line3DBox[{82, 81, 84, 83, 82},
         VertexColors->None], Line3DBox[{86, 85, 88, 87, 86},
         VertexColors->None], Line3DBox[{90, 89, 92, 91, 90},
         VertexColors->None], Line3DBox[{94, 93, 96, 95, 94},
         VertexColors->None], Line3DBox[{98, 97, 100, 99, 98},
         VertexColors->None], Line3DBox[{102, 101, 104, 103, 102},
         VertexColors->None], Line3DBox[{106, 105, 108, 107, 106},
         VertexColors->None], Line3DBox[{110, 109, 112, 111, 110},
         VertexColors->None], Line3DBox[{114, 113, 116, 115, 114},
         VertexColors->None], Line3DBox[{118, 117, 120, 119, 118},
         VertexColors->None], Line3DBox[{122, 121, 124, 123, 122},
         VertexColors->None], Line3DBox[{126, 125, 128, 127, 126},
         VertexColors->None], Line3DBox[{130, 129, 132, 131, 130},
         VertexColors->None], Line3DBox[{134, 133, 136, 135, 134},
         VertexColors->None], Line3DBox[{138, 137, 140, 139, 138},
         VertexColors->None], Line3DBox[{142, 141, 144, 143, 142},
         VertexColors->None], Line3DBox[{146, 145, 148, 147, 146},
         VertexColors->None], Line3DBox[{150, 149, 152, 151, 150},
         VertexColors->None], Line3DBox[{154, 153, 156, 155, 154},
         VertexColors->None], Line3DBox[{158, 157, 160, 159, 158},
         VertexColors->None], Line3DBox[{162, 161, 164, 163, 162},
         VertexColors->None], Line3DBox[{166, 165, 168, 167, 166},
         VertexColors->None], Line3DBox[{170, 169, 172, 171, 170},
         VertexColors->None], Line3DBox[{174, 173, 176, 175, 174},
         VertexColors->None], Line3DBox[{178, 177, 180, 179, 178},
         VertexColors->None], Line3DBox[{182, 181, 184, 183, 182},
         VertexColors->None], Line3DBox[{186, 185, 188, 187, 186},
         VertexColors->None], Line3DBox[{190, 189, 192, 191, 190},
         VertexColors->None], Line3DBox[{194, 193, 196, 195, 194},
         VertexColors->None], Line3DBox[{198, 197, 200, 199, 198},
         VertexColors->None], Line3DBox[{202, 201, 204, 203, 202},
         VertexColors->None], Line3DBox[{206, 205, 208, 207, 206},
         VertexColors->None], Line3DBox[{210, 209, 212, 211, 210},
         VertexColors->None], Line3DBox[{214, 213, 216, 215, 214},
         VertexColors->None], Line3DBox[{218, 217, 220, 219, 218},
         VertexColors->None], Line3DBox[{222, 221, 224, 223, 222},
         VertexColors->None], Line3DBox[{226, 225, 228, 227, 226},
         VertexColors->None], Line3DBox[{230, 229, 232, 231, 230},
         VertexColors->None], Line3DBox[{234, 233, 236, 235, 234},
         VertexColors->None], Line3DBox[{238, 237, 240, 239, 238},
         VertexColors->None], Line3DBox[{242, 241, 244, 243, 242},
         VertexColors->None], Line3DBox[{246, 245, 248, 247, 246},
         VertexColors->None], Line3DBox[{250, 249, 252, 251, 250},
         VertexColors->None], Line3DBox[{254, 253, 256, 255, 254},
         VertexColors->None], Line3DBox[{258, 257, 260, 259, 258},
         VertexColors->None], Line3DBox[{262, 261, 264, 263, 262},
         VertexColors->None], Line3DBox[{266, 265, 268, 267, 266},
         VertexColors->None], Line3DBox[{270, 269, 272, 271, 270},
         VertexColors->None], Line3DBox[{274, 273, 276, 275, 274},
         VertexColors->None], Line3DBox[{278, 277, 280, 279, 278},
         VertexColors->None], Line3DBox[{282, 281, 284, 283, 282},
         VertexColors->None], Line3DBox[{286, 285, 288, 287, 286},
         VertexColors->None], Line3DBox[{290, 289, 292, 291, 290},
         VertexColors->None], Line3DBox[{294, 293, 296, 295, 294},
         VertexColors->None], Line3DBox[{298, 297, 300, 299, 298},
         VertexColors->None], Line3DBox[{302, 301, 304, 303, 302},
         VertexColors->None], Line3DBox[{306, 305, 308, 307, 306},
         VertexColors->None], Line3DBox[{310, 309, 312, 311, 310},
         VertexColors->None], Line3DBox[{314, 313, 316, 315, 314},
         VertexColors->None], Line3DBox[{318, 317, 320, 319, 318},
         VertexColors->None], Line3DBox[{322, 321, 324, 323, 322},
         VertexColors->None], Line3DBox[{326, 325, 328, 327, 326},
         VertexColors->None], Line3DBox[{330, 329, 332, 331, 330},
         VertexColors->None], Line3DBox[{334, 333, 336, 335, 334},
         VertexColors->None], Line3DBox[{338, 337, 340, 339, 338},
         VertexColors->None], Line3DBox[{342, 341, 344, 343, 342},
         VertexColors->None], Line3DBox[{346, 345, 348, 347, 346},
         VertexColors->None], Line3DBox[{350, 349, 352, 351, 350},
         VertexColors->None], Line3DBox[{354, 353, 356, 355, 354},
         VertexColors->None], Line3DBox[{358, 357, 360, 359, 358},
         VertexColors->None], Line3DBox[{362, 361, 364, 363, 362},
         VertexColors->None], Line3DBox[{366, 365, 368, 367, 366},
         VertexColors->None], Line3DBox[{370, 369, 372, 371, 370},
         VertexColors->None], Line3DBox[{374, 373, 376, 375, 374},
         VertexColors->None], Line3DBox[{378, 377, 380, 379, 378},
         VertexColors->None], Line3DBox[{382, 381, 384, 383, 382},
         VertexColors->None], Line3DBox[{386, 385, 388, 387, 386},
         VertexColors->None], Line3DBox[{390, 389, 392, 391, 390},
         VertexColors->None], Line3DBox[{394, 393, 396, 395, 394},
         VertexColors->None], Line3DBox[{398, 397, 400, 399, 398},
         VertexColors->None], Line3DBox[{402, 401, 404, 403, 402},
         VertexColors->None], Line3DBox[{406, 405, 408, 407, 406},
         VertexColors->None], Line3DBox[{410, 409, 412, 411, 410},
         VertexColors->None], Line3DBox[{414, 413, 416, 415, 414},
         VertexColors->None], Line3DBox[{418, 417, 420, 419, 418},
         VertexColors->None], Line3DBox[{422, 421, 424, 423, 422},
         VertexColors->None], Line3DBox[{426, 425, 428, 427, 426},
         VertexColors->None], Line3DBox[{430, 429, 432, 431, 430},
         VertexColors->None], Line3DBox[{434, 433, 436, 435, 434},
         VertexColors->None], Line3DBox[{438, 437, 440, 439, 438},
         VertexColors->None], Line3DBox[{442, 441, 444, 443, 442},
         VertexColors->None], Line3DBox[{446, 445, 448, 447, 446},
         VertexColors->None], Line3DBox[{450, 449, 452, 451, 450},
         VertexColors->None], Line3DBox[{454, 453, 456, 455, 454},
         VertexColors->None], Line3DBox[{458, 457, 460, 459, 458},
         VertexColors->None], Line3DBox[{462, 461, 464, 463, 462},
         VertexColors->None], Line3DBox[{466, 465, 468, 467, 466},
         VertexColors->None], Line3DBox[{470, 469, 472, 471, 470},
         VertexColors->None], Line3DBox[{474, 473, 476, 475, 474},
         VertexColors->None], Line3DBox[{478, 477, 480, 479, 478},
         VertexColors->None], Line3DBox[{482, 481, 484, 483, 482},
         VertexColors->None], Line3DBox[{486, 485, 488, 487, 486},
         VertexColors->None], Line3DBox[{490, 489, 492, 491, 490},
         VertexColors->None], Line3DBox[{494, 493, 496, 495, 494},
         VertexColors->None], Line3DBox[{498, 497, 500, 499, 498},
         VertexColors->None], Line3DBox[{502, 501, 504, 503, 502},
         VertexColors->None], Line3DBox[{506, 505, 508, 507, 506},
         VertexColors->None], Line3DBox[{510, 509, 512, 511, 510},
         VertexColors->None], Line3DBox[{514, 513, 516, 515, 514},
         VertexColors->None], Line3DBox[{518, 517, 520, 519, 518},
         VertexColors->None], Line3DBox[{522, 521, 524, 523, 522},
         VertexColors->None], Line3DBox[{526, 525, 528, 527, 526},
         VertexColors->None], Line3DBox[{530, 529, 532, 531, 530},
         VertexColors->None], Line3DBox[{534, 533, 536, 535, 534},
         VertexColors->None], Line3DBox[{538, 537, 540, 539, 538},
         VertexColors->None], Line3DBox[{542, 541, 544, 543, 542},
         VertexColors->None], Line3DBox[{546, 545, 548, 547, 546},
         VertexColors->None], Line3DBox[{550, 549, 552, 551, 550},
         VertexColors->None], Line3DBox[{554, 553, 556, 555, 554},
         VertexColors->None], Line3DBox[{558, 557, 560, 559, 558},
         VertexColors->None], Line3DBox[{562, 561, 564, 563, 562},
         VertexColors->None], Line3DBox[{566, 565, 568, 567, 566},
         VertexColors->None], Line3DBox[{570, 569, 572, 571, 570},
         VertexColors->None], Line3DBox[{574, 573, 576, 575, 574},
         VertexColors->None], Line3DBox[{578, 577, 580, 579, 578},
         VertexColors->None], Line3DBox[{582, 581, 584, 583, 582},
         VertexColors->None], Line3DBox[{586, 585, 588, 587, 586},
         VertexColors->None], Line3DBox[{590, 589, 592, 591, 590},
         VertexColors->None], Line3DBox[{594, 593, 596, 595, 594},
         VertexColors->None], Line3DBox[{598, 597, 600, 599, 598},
         VertexColors->None], Line3DBox[{602, 601, 604, 603, 602},
         VertexColors->None], Line3DBox[{606, 605, 608, 607, 606},
         VertexColors->None], Line3DBox[{610, 609, 612, 611, 610},
         VertexColors->None], Line3DBox[{614, 613, 616, 615, 614},
         VertexColors->None], Line3DBox[{618, 617, 620, 619, 618},
         VertexColors->None], Line3DBox[{622, 621, 624, 623, 622},
         VertexColors->None], Line3DBox[{626, 625, 628, 627, 626},
         VertexColors->None], Line3DBox[{630, 629, 632, 631, 630},
         VertexColors->None], Line3DBox[{634, 633, 636, 635, 634},
         VertexColors->None], Line3DBox[{638, 637, 640, 639, 638},
         VertexColors->None], Line3DBox[{642, 641, 644, 643, 642},
         VertexColors->None], Line3DBox[{646, 645, 648, 647, 646},
         VertexColors->None], Line3DBox[{650, 649, 652, 651, 650},
         VertexColors->None], Line3DBox[{654, 653, 656, 655, 654},
         VertexColors->None], Line3DBox[{658, 657, 660, 659, 658},
         VertexColors->None], Line3DBox[{662, 661, 664, 663, 662},
         VertexColors->None], Line3DBox[{666, 665, 668, 667, 666},
         VertexColors->None], Line3DBox[{670, 669, 672, 671, 670},
         VertexColors->None], Line3DBox[{674, 673, 676, 675, 674},
         VertexColors->None], Line3DBox[{678, 677, 680, 679, 678},
         VertexColors->None], Line3DBox[{682, 681, 684, 683, 682},
         VertexColors->None], Line3DBox[{686, 685, 688, 687, 686},
         VertexColors->None], Line3DBox[{690, 689, 692, 691, 690},
         VertexColors->None], Line3DBox[{694, 693, 696, 695, 694},
         VertexColors->None], Line3DBox[{698, 697, 700, 699, 698},
         VertexColors->None], Line3DBox[{702, 701, 704, 703, 702},
         VertexColors->None], Line3DBox[{706, 705, 708, 707, 706},
         VertexColors->None], Line3DBox[{710, 709, 712, 711, 710},
         VertexColors->None], Line3DBox[{714, 713, 716, 715, 714},
         VertexColors->None], Line3DBox[{718, 717, 720, 719, 718},
         VertexColors->None], Line3DBox[{722, 721, 724, 723, 722},
         VertexColors->None], Line3DBox[{726, 725, 728, 727, 726},
         VertexColors->None], Line3DBox[{730, 729, 732, 731, 730},
         VertexColors->None], Line3DBox[{734, 733, 736, 735, 734},
         VertexColors->None], Line3DBox[{738, 737, 740, 739, 738},
         VertexColors->None], Line3DBox[{742, 741, 744, 743, 742},
         VertexColors->None], Line3DBox[{746, 745, 748, 747, 746},
         VertexColors->None], Line3DBox[{750, 749, 752, 751, 750},
         VertexColors->None], Line3DBox[{754, 753, 756, 755, 754},
         VertexColors->None], Line3DBox[{758, 757, 760, 759, 758},
         VertexColors->None], Line3DBox[{762, 761, 764, 763, 762},
         VertexColors->None], Line3DBox[{766, 765, 768, 767, 766},
         VertexColors->None], Line3DBox[{770, 769, 772, 771, 770},
         VertexColors->None], Line3DBox[{774, 773, 776, 775, 774},
         VertexColors->None], Line3DBox[{778, 777, 780, 779, 778},
         VertexColors->None], Line3DBox[{782, 781, 784, 783, 782},
         VertexColors->None], Line3DBox[{786, 785, 788, 787, 786},
         VertexColors->None], Line3DBox[{790, 789, 792, 791, 790},
         VertexColors->None], Line3DBox[{794, 793, 796, 795, 794},
         VertexColors->None], Line3DBox[{798, 797, 800, 799, 798},
         VertexColors->None], Line3DBox[{802, 801, 804, 803, 802},
         VertexColors->None], Line3DBox[{806, 805, 808, 807, 806},
         VertexColors->None], Line3DBox[{810, 809, 812, 811, 810},
         VertexColors->None], Line3DBox[{814, 813, 816, 815, 814},
         VertexColors->None], Line3DBox[{818, 817, 820, 819, 818},
         VertexColors->None], Line3DBox[{822, 821, 824, 823, 822},
         VertexColors->None], Line3DBox[{826, 825, 828, 827, 826},
         VertexColors->None], Line3DBox[{830, 829, 832, 831, 830},
         VertexColors->None], Line3DBox[{834, 833, 836, 835, 834},
         VertexColors->None], Line3DBox[{838, 837, 840, 839, 838},
         VertexColors->None], Line3DBox[{842, 841, 844, 843, 842},
         VertexColors->None], Line3DBox[{846, 845, 848, 847, 846},
         VertexColors->None], Line3DBox[{850, 849, 852, 851, 850},
         VertexColors->None], Line3DBox[{854, 853, 856, 855, 854},
         VertexColors->None], Line3DBox[{858, 857, 860, 859, 858},
         VertexColors->None], Line3DBox[{862, 861, 864, 863, 862},
         VertexColors->None], Line3DBox[{866, 865, 868, 867, 866},
         VertexColors->None], Line3DBox[{870, 869, 872, 871, 870},
         VertexColors->None], Line3DBox[{874, 873, 876, 875, 874},
         VertexColors->None], Line3DBox[{878, 877, 880, 879, 878},
         VertexColors->None], Line3DBox[{882, 881, 884, 883, 882},
         VertexColors->None], Line3DBox[{886, 885, 888, 887, 886},
         VertexColors->None], Line3DBox[{890, 889, 892, 891, 890},
         VertexColors->None], Line3DBox[{894, 893, 896, 895, 894},
         VertexColors->None], Line3DBox[{898, 897, 900, 899, 898},
         VertexColors->None], Line3DBox[{902, 901, 904, 903, 902},
         VertexColors->None], Line3DBox[{906, 905, 908, 907, 906},
         VertexColors->None], Line3DBox[{910, 909, 912, 911, 910},
         VertexColors->None], Line3DBox[{914, 913, 916, 915, 914},
         VertexColors->None], Line3DBox[{918, 917, 920, 919, 918},
         VertexColors->None], Line3DBox[{922, 921, 924, 923, 922},
         VertexColors->None], Line3DBox[{926, 925, 928, 927, 926},
         VertexColors->None], Line3DBox[{930, 929, 932, 931, 930},
         VertexColors->None], Line3DBox[{934, 933, 936, 935, 934},
         VertexColors->None], Line3DBox[{938, 937, 940, 939, 938},
         VertexColors->None], Line3DBox[{942, 941, 944, 943, 942},
         VertexColors->None], Line3DBox[{946, 945, 948, 947, 946},
         VertexColors->None], Line3DBox[{950, 949, 952, 951, 950},
         VertexColors->None], Line3DBox[{954, 953, 956, 955, 954},
         VertexColors->None], Line3DBox[{958, 957, 960, 959, 958},
         VertexColors->None], Line3DBox[{962, 961, 964, 963, 962},
         VertexColors->None], Line3DBox[{966, 965, 968, 967, 966},
         VertexColors->None], Line3DBox[{970, 969, 972, 971, 970},
         VertexColors->None], Line3DBox[{974, 973, 976, 975, 974},
         VertexColors->None], Line3DBox[{978, 977, 980, 979, 978},
         VertexColors->None], Line3DBox[{982, 981, 984, 983, 982},
         VertexColors->None], Line3DBox[{986, 985, 988, 987, 986},
         VertexColors->None], Line3DBox[{990, 989, 992, 991, 990},
         VertexColors->None], Line3DBox[{994, 993, 996, 995, 994},
         VertexColors->None], Line3DBox[{998, 997, 1000, 999, 998},
         VertexColors->None], Line3DBox[{1002, 1001, 1004, 1003, 1002},
         VertexColors->None], Line3DBox[{1006, 1005, 1008, 1007, 1006},
         VertexColors->None], Line3DBox[{1010, 1009, 1012, 1011, 1010},
         VertexColors->None], Line3DBox[{1014, 1013, 1016, 1015, 1014},
         VertexColors->None], Line3DBox[{1018, 1017, 1020, 1019, 1018},
         VertexColors->None], Line3DBox[{1022, 1021, 1024, 1023, 1022},
         VertexColors->None], Line3DBox[{1026, 1025, 1028, 1027, 1026},
         VertexColors->None], Line3DBox[{1030, 1029, 1032, 1031, 1030},
         VertexColors->None], Line3DBox[{1034, 1033, 1036, 1035, 1034},
         VertexColors->None], Line3DBox[{1038, 1037, 1040, 1039, 1038},
         VertexColors->None], Line3DBox[{1042, 1041, 1044, 1043, 1042},
         VertexColors->None], Line3DBox[{1046, 1045, 1048, 1047, 1046},
         VertexColors->None], Line3DBox[{1050, 1049, 1052, 1051, 1050},
         VertexColors->None], Line3DBox[{1054, 1053, 1056, 1055, 1054},
         VertexColors->None], Line3DBox[{1058, 1057, 1060, 1059, 1058},
         VertexColors->None], Line3DBox[{1062, 1061, 1064, 1063, 1062},
         VertexColors->None], Line3DBox[{1066, 1065, 1068, 1067, 1066},
         VertexColors->None], Line3DBox[{1070, 1069, 1072, 1071, 1070},
         VertexColors->None], Line3DBox[{1074, 1073, 1076, 1075, 1074},
         VertexColors->None], Line3DBox[{1078, 1077, 1080, 1079, 1078},
         VertexColors->None], Line3DBox[{1082, 1081, 1084, 1083, 1082},
         VertexColors->None], Line3DBox[{1086, 1085, 1088, 1087, 1086},
         VertexColors->None], Line3DBox[{1090, 1089, 1092, 1091, 1090},
         VertexColors->None], Line3DBox[{1094, 1093, 1096, 1095, 1094},
         VertexColors->None], Line3DBox[{1098, 1097, 1100, 1099, 1098},
         VertexColors->None], Line3DBox[{1102, 1101, 1104, 1103, 1102},
         VertexColors->None], Line3DBox[{1106, 1105, 1108, 1107, 1106},
         VertexColors->None], Line3DBox[{1110, 1109, 1112, 1111, 1110},
         VertexColors->None], Line3DBox[{1114, 1113, 1116, 1115, 1114},
         VertexColors->None], Line3DBox[{1118, 1117, 1120, 1119, 1118},
         VertexColors->None], Line3DBox[{1122, 1121, 1124, 1123, 1122},
         VertexColors->None], Line3DBox[{1126, 1125, 1128, 1127, 1126},
         VertexColors->None], Line3DBox[{1130, 1129, 1132, 1131, 1130},
         VertexColors->None], Line3DBox[{1134, 1133, 1136, 1135, 1134},
         VertexColors->None], Line3DBox[{1138, 1137, 1140, 1139, 1138},
         VertexColors->None], Line3DBox[{1142, 1141, 1144, 1143, 1142},
         VertexColors->None], Line3DBox[{1146, 1145, 1148, 1147, 1146},
         VertexColors->None], Line3DBox[{1150, 1149, 1152, 1151, 1150},
         VertexColors->None], Line3DBox[{1154, 1153, 1156, 1155, 1154},
         VertexColors->None], Line3DBox[{1158, 1157, 1160, 1159, 1158},
         VertexColors->None], Line3DBox[{1162, 1161, 1164, 1163, 1162},
         VertexColors->None], Line3DBox[{1166, 1165, 1168, 1167, 1166},
         VertexColors->None], Line3DBox[{1170, 1169, 1172, 1171, 1170},
         VertexColors->None], Line3DBox[{1174, 1173, 1176, 1175, 1174},
         VertexColors->None], Line3DBox[{1178, 1177, 1180, 1179, 1178},
         VertexColors->None], Line3DBox[{1182, 1181, 1184, 1183, 1182},
         VertexColors->None], Line3DBox[{1186, 1185, 1188, 1187, 1186},
         VertexColors->None], Line3DBox[{1190, 1189, 1192, 1191, 1190},
         VertexColors->None], Line3DBox[{1194, 1193, 1196, 1195, 1194},
         VertexColors->None], Line3DBox[{1198, 1197, 1200, 1199, 1198},
         VertexColors->None], Line3DBox[{1202, 1201, 1204, 1203, 1202},
         VertexColors->None], Line3DBox[{1206, 1205, 1208, 1207, 1206},
         VertexColors->None], Line3DBox[{1210, 1209, 1212, 1211, 1210},
         VertexColors->None], Line3DBox[{1214, 1213, 1216, 1215, 1214},
         VertexColors->None], Line3DBox[{1218, 1217, 1220, 1219, 1218},
         VertexColors->None], Line3DBox[{1222, 1221, 1224, 1223, 1222},
         VertexColors->None], Line3DBox[{1226, 1225, 1228, 1227, 1226},
         VertexColors->None], Line3DBox[{1230, 1229, 1232, 1231, 1230},
         VertexColors->None], Line3DBox[{1234, 1233, 1236, 1235, 1234},
         VertexColors->None], Line3DBox[{1238, 1237, 1240, 1239, 1238},
         VertexColors->None], Line3DBox[{1242, 1241, 1244, 1243, 1242},
         VertexColors->None], Line3DBox[{1246, 1245, 1248, 1247, 1246},
         VertexColors->None], Line3DBox[{1250, 1249, 1252, 1251, 1250},
         VertexColors->None], Line3DBox[{1254, 1253, 1256, 1255, 1254},
         VertexColors->None], Line3DBox[{1258, 1257, 1260, 1259, 1258},
         VertexColors->None], Line3DBox[{1262, 1261, 1264, 1263, 1262},
         VertexColors->None], Line3DBox[{1266, 1265, 1268, 1267, 1266},
         VertexColors->None], Line3DBox[{1270, 1269, 1272, 1271, 1270},
         VertexColors->None], Line3DBox[{1274, 1273, 1276, 1275, 1274},
         VertexColors->None], Line3DBox[{1278, 1277, 1280, 1279, 1278},
         VertexColors->None], Line3DBox[{1282, 1281, 1284, 1283, 1282},
         VertexColors->None], Line3DBox[{1286, 1285, 1288, 1287, 1286},
         VertexColors->None], Line3DBox[{1290, 1289, 1292, 1291, 1290},
         VertexColors->None], Line3DBox[{1294, 1293, 1296, 1295, 1294},
         VertexColors->None], Line3DBox[{1298, 1297, 1300, 1299, 1298},
         VertexColors->None], Line3DBox[{1302, 1301, 1304, 1303, 1302},
         VertexColors->None], Line3DBox[{1306, 1305, 1308, 1307, 1306},
         VertexColors->None], Line3DBox[{1310, 1309, 1312, 1311, 1310},
         VertexColors->None], Line3DBox[{1314, 1313, 1316, 1315, 1314},
         VertexColors->None], Line3DBox[{1318, 1317, 1320, 1319, 1318},
         VertexColors->None], Line3DBox[{1322, 1321, 1324, 1323, 1322},
         VertexColors->None], Line3DBox[{1326, 1325, 1328, 1327, 1326},
         VertexColors->None], Line3DBox[{1330, 1329, 1332, 1331, 1330},
         VertexColors->None], Line3DBox[{1334, 1333, 1336, 1335, 1334},
         VertexColors->None], Line3DBox[{1338, 1337, 1340, 1339, 1338},
         VertexColors->None], Line3DBox[{1342, 1341, 1344, 1343, 1342},
         VertexColors->None], Line3DBox[{1346, 1345, 1348, 1347, 1346},
         VertexColors->None], Line3DBox[{1350, 1349, 1352, 1351, 1350},
         VertexColors->None], Line3DBox[{1354, 1353, 1356, 1355, 1354},
         VertexColors->None], Line3DBox[{1358, 1357, 1360, 1359, 1358},
         VertexColors->None], Line3DBox[{1362, 1361, 1364, 1363, 1362},
         VertexColors->None], Line3DBox[{1366, 1365, 1368, 1367, 1366},
         VertexColors->None], Line3DBox[{1370, 1369, 1372, 1371, 1370},
         VertexColors->None], Line3DBox[{1374, 1373, 1376, 1375, 1374},
         VertexColors->None], Line3DBox[{1378, 1377, 1380, 1379, 1378},
         VertexColors->None], Line3DBox[{1382, 1381, 1384, 1383, 1382},
         VertexColors->None], Line3DBox[{1386, 1385, 1388, 1387, 1386},
         VertexColors->None], Line3DBox[{1390, 1389, 1392, 1391, 1390},
         VertexColors->None], Line3DBox[{1394, 1393, 1396, 1395, 1394},
         VertexColors->None], Line3DBox[{1398, 1397, 1400, 1399, 1398},
         VertexColors->None], Line3DBox[{1402, 1401, 1404, 1403, 1402},
         VertexColors->None], Line3DBox[{1406, 1405, 1408, 1407, 1406},
         VertexColors->None], Line3DBox[{1410, 1409, 1412, 1411, 1410},
         VertexColors->None], Line3DBox[{1414, 1413, 1416, 1415, 1414},
         VertexColors->None], Line3DBox[{1418, 1417, 1420, 1419, 1418},
         VertexColors->None], Line3DBox[{1422, 1421, 1424, 1423, 1422},
         VertexColors->None], Line3DBox[{1426, 1425, 1428, 1427, 1426},
         VertexColors->None], Line3DBox[{1430, 1429, 1432, 1431, 1430},
         VertexColors->None], Line3DBox[{1434, 1433, 1436, 1435, 1434},
         VertexColors->None], Line3DBox[{1438, 1437, 1440, 1439, 1438},
         VertexColors->None], Line3DBox[{1442, 1441, 1444, 1443, 1442},
         VertexColors->None], Line3DBox[{1446, 1445, 1448, 1447, 1446},
         VertexColors->None], Line3DBox[{1450, 1449, 1452, 1451, 1450},
         VertexColors->None], Line3DBox[{1454, 1453, 1456, 1455, 1454},
         VertexColors->None], Line3DBox[{1458, 1457, 1460, 1459, 1458},
         VertexColors->None], Line3DBox[{1462, 1461, 1464, 1463, 1462},
         VertexColors->None], Line3DBox[{1466, 1465, 1468, 1467, 1466},
         VertexColors->None], Line3DBox[{1470, 1469, 1472, 1471, 1470},
         VertexColors->None], Line3DBox[{1474, 1473, 1476, 1475, 1474},
         VertexColors->None], Line3DBox[{1478, 1477, 1480, 1479, 1478},
         VertexColors->None], Line3DBox[{1482, 1481, 1484, 1483, 1482},
         VertexColors->None], Line3DBox[{1486, 1485, 1488, 1487, 1486},
         VertexColors->None], Line3DBox[{1490, 1489, 1492, 1491, 1490},
         VertexColors->None], Line3DBox[{1494, 1493, 1496, 1495, 1494},
         VertexColors->None], Line3DBox[{1498, 1497, 1500, 1499, 1498},
         VertexColors->None], Line3DBox[{1502, 1501, 1504, 1503, 1502},
         VertexColors->None], Line3DBox[{1506, 1505, 1508, 1507, 1506},
         VertexColors->None], Line3DBox[{1510, 1509, 1512, 1511, 1510},
         VertexColors->None], Line3DBox[{1514, 1513, 1516, 1515, 1514},
         VertexColors->None], Line3DBox[{1518, 1517, 1520, 1519, 1518},
         VertexColors->None], Line3DBox[{1522, 1521, 1524, 1523, 1522},
         VertexColors->None], Line3DBox[{1526, 1525, 1528, 1527, 1526},
         VertexColors->None], Line3DBox[{1530, 1529, 1532, 1531, 1530},
         VertexColors->None], Line3DBox[{1534, 1533, 1536, 1535, 1534},
         VertexColors->None], Line3DBox[{1538, 1537, 1540, 1539, 1538},
         VertexColors->None], Line3DBox[{1542, 1541, 1544, 1543, 1542},
         VertexColors->None], Line3DBox[{1546, 1545, 1548, 1547, 1546},
         VertexColors->None], Line3DBox[{1550, 1549, 1552, 1551, 1550},
         VertexColors->None], Line3DBox[{1554, 1553, 1556, 1555, 1554},
         VertexColors->None], Line3DBox[{1558, 1557, 1560, 1559, 1558},
         VertexColors->None], Line3DBox[{1562, 1561, 1564, 1563, 1562},
         VertexColors->None], Line3DBox[{1566, 1565, 1568, 1567, 1566},
         VertexColors->None], Line3DBox[{1570, 1569, 1572, 1571, 1570},
         VertexColors->None], Line3DBox[{1574, 1573, 1576, 1575, 1574},
         VertexColors->None], Line3DBox[{1578, 1577, 1580, 1579, 1578},
         VertexColors->None], Line3DBox[{1582, 1581, 1584, 1583, 1582},
         VertexColors->None], Line3DBox[{1586, 1585, 1588, 1587, 1586},
         VertexColors->None], Line3DBox[{1590, 1589, 1592, 1591, 1590},
         VertexColors->None], Line3DBox[{1594, 1593, 1596, 1595, 1594},
         VertexColors->None], Line3DBox[{1598, 1597, 1600, 1599, 1598},
         VertexColors->None], Line3DBox[{1602, 1601, 1604, 1603, 1602},
         VertexColors->None], Line3DBox[{1606, 1605, 1608, 1607, 1606},
         VertexColors->None], Line3DBox[{1610, 1609, 1612, 1611, 1610},
         VertexColors->None], Line3DBox[{1614, 1613, 1616, 1615, 1614},
         VertexColors->None], Line3DBox[{1618, 1617, 1620, 1619, 1618},
         VertexColors->None], Line3DBox[{1622, 1621, 1624, 1623, 1622},
         VertexColors->None], Line3DBox[{1626, 1625, 1628, 1627, 1626},
         VertexColors->None], Line3DBox[{1630, 1629, 1632, 1631, 1630},
         VertexColors->None], Line3DBox[{1634, 1633, 1636, 1635, 1634},
         VertexColors->None], Line3DBox[{1638, 1637, 1640, 1639, 1638},
         VertexColors->None], Line3DBox[{1642, 1641, 1644, 1643, 1642},
         VertexColors->None], Line3DBox[{1646, 1645, 1648, 1647, 1646},
         VertexColors->None], Line3DBox[{1650, 1649, 1652, 1651, 1650},
         VertexColors->None], Line3DBox[{1654, 1653, 1656, 1655, 1654},
         VertexColors->None], Line3DBox[{1658, 1657, 1660, 1659, 1658},
         VertexColors->None], Line3DBox[{1662, 1661, 1664, 1663, 1662},
         VertexColors->None], Line3DBox[{1666, 1665, 1668, 1667, 1666},
         VertexColors->None], Line3DBox[{1670, 1669, 1672, 1671, 1670},
         VertexColors->None], Line3DBox[{1674, 1673, 1676, 1675, 1674},
         VertexColors->None], Line3DBox[{1678, 1677, 1680, 1679, 1678},
         VertexColors->None], Line3DBox[{1682, 1681, 1684, 1683, 1682},
         VertexColors->None], Line3DBox[{1686, 1685, 1688, 1687, 1686},
         VertexColors->None], Line3DBox[{1690, 1689, 1692, 1691, 1690},
         VertexColors->None], Line3DBox[{1694, 1693, 1696, 1695, 1694},
         VertexColors->None], Line3DBox[{1698, 1697, 1700, 1699, 1698},
         VertexColors->None], Line3DBox[{1702, 1701, 1704, 1703, 1702},
         VertexColors->None], Line3DBox[{1706, 1705, 1708, 1707, 1706},
         VertexColors->None], Line3DBox[{1710, 1709, 1712, 1711, 1710},
         VertexColors->None], Line3DBox[{1714, 1713, 1716, 1715, 1714},
         VertexColors->None], Line3DBox[{1718, 1717, 1720, 1719, 1718},
         VertexColors->None], Line3DBox[{1722, 1721, 1724, 1723, 1722},
         VertexColors->None], Line3DBox[{1726, 1725, 1728, 1727, 1726},
         VertexColors->None], Line3DBox[{1730, 1729, 1732, 1731, 1730},
         VertexColors->None], Line3DBox[{1734, 1733, 1736, 1735, 1734},
         VertexColors->None], Line3DBox[{1738, 1737, 1740, 1739, 1738},
         VertexColors->None], Line3DBox[{1742, 1741, 1744, 1743, 1742},
         VertexColors->None], Line3DBox[{1746, 1745, 1748, 1747, 1746},
         VertexColors->None], Line3DBox[{1750, 1749, 1752, 1751, 1750},
         VertexColors->None], Line3DBox[{1754, 1753, 1756, 1755, 1754},
         VertexColors->None], Line3DBox[{1758, 1757, 1760, 1759, 1758},
         VertexColors->None], Line3DBox[{1762, 1761, 1764, 1763, 1762},
         VertexColors->None], Line3DBox[{1766, 1765, 1768, 1767, 1766},
         VertexColors->None], Line3DBox[{1770, 1769, 1772, 1771, 1770},
         VertexColors->None], Line3DBox[{1774, 1773, 1776, 1775, 1774},
         VertexColors->None], Line3DBox[{1778, 1777, 1780, 1779, 1778},
         VertexColors->None], Line3DBox[{1782, 1781, 1784, 1783, 1782},
         VertexColors->None], Line3DBox[{1786, 1785, 1788, 1787, 1786},
         VertexColors->None], Line3DBox[{1790, 1789, 1792, 1791, 1790},
         VertexColors->None], Line3DBox[{1794, 1793, 1796, 1795, 1794},
         VertexColors->None], Line3DBox[{1798, 1797, 1800, 1799, 1798},
         VertexColors->None], Line3DBox[{1802, 1801, 1804, 1803, 1802},
         VertexColors->None], Line3DBox[{1806, 1805, 1808, 1807, 1806},
         VertexColors->None], Line3DBox[{1810, 1809, 1812, 1811, 1810},
         VertexColors->None], Line3DBox[{1814, 1813, 1816, 1815, 1814},
         VertexColors->None], Line3DBox[{1818, 1817, 1820, 1819, 1818},
         VertexColors->None], Line3DBox[{1822, 1821, 1824, 1823, 1822},
         VertexColors->None], Line3DBox[{1826, 1825, 1828, 1827, 1826},
         VertexColors->None], Line3DBox[{1830, 1829, 1832, 1831, 1830},
         VertexColors->None], Line3DBox[{1834, 1833, 1836, 1835, 1834},
         VertexColors->None], Line3DBox[{1838, 1837, 1840, 1839, 1838},
         VertexColors->None], Line3DBox[{1842, 1841, 1844, 1843, 1842},
         VertexColors->None], Line3DBox[{1846, 1845, 1848, 1847, 1846},
         VertexColors->None], Line3DBox[{1850, 1849, 1852, 1851, 1850},
         VertexColors->None], Line3DBox[{1854, 1853, 1856, 1855, 1854},
         VertexColors->None], Line3DBox[{1858, 1857, 1860, 1859, 1858},
         VertexColors->None], Line3DBox[{1862, 1861, 1864, 1863, 1862},
         VertexColors->None], Line3DBox[{1866, 1865, 1868, 1867, 1866},
         VertexColors->None], Line3DBox[{1870, 1869, 1872, 1871, 1870},
         VertexColors->None], Line3DBox[{1874, 1873, 1876, 1875, 1874},
         VertexColors->None], Line3DBox[{1878, 1877, 1880, 1879, 1878},
         VertexColors->None], Line3DBox[{1882, 1881, 1884, 1883, 1882},
         VertexColors->None], Line3DBox[{1886, 1885, 1888, 1887, 1886},
         VertexColors->None], Line3DBox[{1890, 1889, 1892, 1891, 1890},
         VertexColors->None], Line3DBox[{1894, 1893, 1896, 1895, 1894},
         VertexColors->None], Line3DBox[{1898, 1897, 1900, 1899, 1898},
         VertexColors->None], Line3DBox[{1902, 1901, 1904, 1903, 1902},
         VertexColors->None], Line3DBox[{1906, 1905, 1908, 1907, 1906},
         VertexColors->None], Line3DBox[{1910, 1909, 1912, 1911, 1910},
         VertexColors->None], Line3DBox[{1914, 1913, 1916, 1915, 1914},
         VertexColors->None], Line3DBox[{1918, 1917, 1920, 1919, 1918},
         VertexColors->None], Line3DBox[{1922, 1921, 1924, 1923, 1922},
         VertexColors->None], Line3DBox[{1926, 1925, 1928, 1927, 1926},
         VertexColors->None], Line3DBox[{1930, 1929, 1932, 1931, 1930},
         VertexColors->None], Line3DBox[{1934, 1933, 1936, 1935, 1934},
         VertexColors->None], Line3DBox[{1938, 1937, 1940, 1939, 1938},
         VertexColors->None], Line3DBox[{1942, 1941, 1944, 1943, 1942},
         VertexColors->None], Line3DBox[{1946, 1945, 1948, 1947, 1946},
         VertexColors->None], Line3DBox[{1950, 1949, 1952, 1951, 1950},
         VertexColors->None], Line3DBox[{1954, 1953, 1956, 1955, 1954},
         VertexColors->None], Line3DBox[{1958, 1957, 1960, 1959, 1958},
         VertexColors->None], Line3DBox[{1962, 1961, 1964, 1963, 1962},
         VertexColors->None], Line3DBox[{1966, 1965, 1968, 1967, 1966},
         VertexColors->None], Line3DBox[{1970, 1969, 1972, 1971, 1970},
         VertexColors->None], Line3DBox[{1974, 1973, 1976, 1975, 1974},
         VertexColors->None], Line3DBox[{1978, 1977, 1980, 1979, 1978},
         VertexColors->None], Line3DBox[{1982, 1981, 1984, 1983, 1982},
         VertexColors->None], Line3DBox[{1986, 1985, 1988, 1987, 1986},
         VertexColors->None], Line3DBox[{1990, 1989, 1992, 1991, 1990},
         VertexColors->None], Line3DBox[{1994, 1993, 1996, 1995, 1994},
         VertexColors->None], Line3DBox[{1998, 1997, 2000, 1999, 1998},
         VertexColors->None], Line3DBox[{2002, 2001, 2004, 2003, 2002},
         VertexColors->None], Line3DBox[{2006, 2005, 2008, 2007, 2006},
         VertexColors->None], Line3DBox[{2010, 2009, 2012, 2011, 2010},
         VertexColors->None], Line3DBox[{2014, 2013, 2016, 2015, 2014},
         VertexColors->None], Line3DBox[{2018, 2017, 2020, 2019, 2018},
         VertexColors->None], Line3DBox[{2022, 2021, 2024, 2023, 2022},
         VertexColors->None], Line3DBox[{2026, 2025, 2028, 2027, 2026},
         VertexColors->None], Line3DBox[{2030, 2029, 2032, 2031, 2030},
         VertexColors->None], Line3DBox[{2034, 2033, 2036, 2035, 2034},
         VertexColors->None], Line3DBox[{2038, 2037, 2040, 2039, 2038},
         VertexColors->None], Line3DBox[{2042, 2041, 2044, 2043, 2042},
         VertexColors->None], Line3DBox[{2046, 2045, 2048, 2047, 2046},
         VertexColors->None], Line3DBox[{2050, 2049, 2052, 2051, 2050},
         VertexColors->None], Line3DBox[{2054, 2053, 2056, 2055, 2054},
         VertexColors->None], Line3DBox[{2058, 2057, 2060, 2059, 2058},
         VertexColors->None], Line3DBox[{2062, 2061, 2064, 2063, 2062},
         VertexColors->None], Line3DBox[{2066, 2065, 2068, 2067, 2066},
         VertexColors->None], Line3DBox[{2070, 2069, 2072, 2071, 2070},
         VertexColors->None], Line3DBox[{2074, 2073, 2076, 2075, 2074},
         VertexColors->None], Line3DBox[{2078, 2077, 2080, 2079, 2078},
         VertexColors->None], Line3DBox[{2082, 2081, 2084, 2083, 2082},
         VertexColors->None], Line3DBox[{2086, 2085, 2088, 2087, 2086},
         VertexColors->None], Line3DBox[{2090, 2089, 2092, 2091, 2090},
         VertexColors->None], Line3DBox[{2094, 2093, 2096, 2095, 2094},
         VertexColors->None], Line3DBox[{2098, 2097, 2100, 2099, 2098},
         VertexColors->None], Line3DBox[{2102, 2101, 2104, 2103, 2102},
         VertexColors->None], Line3DBox[{2106, 2105, 2108, 2107, 2106},
         VertexColors->None], Line3DBox[{2110, 2109, 2112, 2111, 2110},
         VertexColors->None], Line3DBox[{2114, 2113, 2116, 2115, 2114},
         VertexColors->None], Line3DBox[{2118, 2117, 2120, 2119, 2118},
         VertexColors->None], Line3DBox[{2122, 2121, 2124, 2123, 2122},
         VertexColors->None], Line3DBox[{2126, 2125, 2128, 2127, 2126},
         VertexColors->None], Line3DBox[{2130, 2129, 2132, 2131, 2130},
         VertexColors->None], Line3DBox[{2134, 2133, 2136, 2135, 2134},
         VertexColors->None], Line3DBox[{2138, 2137, 2140, 2139, 2138},
         VertexColors->None], Line3DBox[{2142, 2141, 2144, 2143, 2142},
         VertexColors->None], Line3DBox[{2146, 2145, 2148, 2147, 2146},
         VertexColors->None], Line3DBox[{2150, 2149, 2152, 2151, 2150},
         VertexColors->None], Line3DBox[{2154, 2153, 2156, 2155, 2154},
         VertexColors->None], Line3DBox[{2158, 2157, 2160, 2159, 2158},
         VertexColors->None], Line3DBox[{2162, 2161, 2164, 2163, 2162},
         VertexColors->None], Line3DBox[{2166, 2165, 2168, 2167, 2166},
         VertexColors->None], Line3DBox[{2170, 2169, 2172, 2171, 2170},
         VertexColors->None], Line3DBox[{2174, 2173, 2176, 2175, 2174},
         VertexColors->None], Line3DBox[{2178, 2177, 2180, 2179, 2178},
         VertexColors->None], Line3DBox[{2182, 2181, 2184, 2183, 2182},
         VertexColors->None], Line3DBox[{2186, 2185, 2188, 2187, 2186},
         VertexColors->None], Line3DBox[{2190, 2189, 2192, 2191, 2190},
         VertexColors->None], Line3DBox[{2194, 2193, 2196, 2195, 2194},
         VertexColors->None], Line3DBox[{2198, 2197, 2200, 2199, 2198},
         VertexColors->None], Line3DBox[{2202, 2201, 2204, 2203, 2202},
         VertexColors->None], Line3DBox[{2206, 2205, 2208, 2207, 2206},
         VertexColors->None], Line3DBox[{2210, 2209, 2212, 2211, 2210},
         VertexColors->None], Line3DBox[{2214, 2213, 2216, 2215, 2214},
         VertexColors->None], Line3DBox[{2218, 2217, 2220, 2219, 2218},
         VertexColors->None], Line3DBox[{2222, 2221, 2224, 2223, 2222},
         VertexColors->None], Line3DBox[{2226, 2225, 2228, 2227, 2226},
         VertexColors->None], Line3DBox[{2230, 2229, 2232, 2231, 2230},
         VertexColors->None], Line3DBox[{2234, 2233, 2236, 2235, 2234},
         VertexColors->None], Line3DBox[{2238, 2237, 2240, 2239, 2238},
         VertexColors->None], Line3DBox[{2242, 2241, 2244, 2243, 2242},
         VertexColors->None], Line3DBox[{2246, 2245, 2248, 2247, 2246},
         VertexColors->None], Line3DBox[{2250, 2249, 2252, 2251, 2250},
         VertexColors->None], Line3DBox[{2254, 2253, 2256, 2255, 2254},
         VertexColors->None], Line3DBox[{2258, 2257, 2260, 2259, 2258},
         VertexColors->None], Line3DBox[{2262, 2261, 2264, 2263, 2262},
         VertexColors->None], Line3DBox[{2266, 2265, 2268, 2267, 2266},
         VertexColors->None], Line3DBox[{2270, 2269, 2272, 2271, 2270},
         VertexColors->None], Line3DBox[{2274, 2273, 2276, 2275, 2274},
         VertexColors->None], Line3DBox[{2278, 2277, 2280, 2279, 2278},
         VertexColors->None], Line3DBox[{2282, 2281, 2284, 2283, 2282},
         VertexColors->None], Line3DBox[{2286, 2285, 2288, 2287, 2286},
         VertexColors->None], Line3DBox[{2290, 2289, 2292, 2291, 2290},
         VertexColors->None], Line3DBox[{2294, 2293, 2296, 2295, 2294},
         VertexColors->None], Line3DBox[{2298, 2297, 2300, 2299, 2298},
         VertexColors->None], Line3DBox[{2302, 2301, 2304, 2303, 2302},
         VertexColors->None], Line3DBox[{2306, 2305, 2308, 2307, 2306},
         VertexColors->None], Line3DBox[{2310, 2309, 2312, 2311, 2310},
         VertexColors->None], Line3DBox[{2314, 2313, 2316, 2315, 2314},
         VertexColors->None], Line3DBox[{2318, 2317, 2320, 2319, 2318},
         VertexColors->None], Line3DBox[{2322, 2321, 2324, 2323, 2322},
         VertexColors->None], Line3DBox[{2326, 2325, 2328, 2327, 2326},
         VertexColors->None], Line3DBox[{2330, 2329, 2332, 2331, 2330},
         VertexColors->None], Line3DBox[{2334, 2333, 2336, 2335, 2334},
         VertexColors->None], Line3DBox[{2338, 2337, 2340, 2339, 2338},
         VertexColors->None], Line3DBox[{2342, 2341, 2344, 2343, 2342},
         VertexColors->None], Line3DBox[{2346, 2345, 2348, 2347, 2346},
         VertexColors->None], Line3DBox[{2350, 2349, 2352, 2351, 2350},
         VertexColors->None], Line3DBox[{2354, 2353, 2356, 2355, 2354},
         VertexColors->None], Line3DBox[{2358, 2357, 2360, 2359, 2358},
         VertexColors->None], Line3DBox[{2362, 2361, 2364, 2363, 2362},
         VertexColors->None], Line3DBox[{2366, 2365, 2368, 2367, 2366},
         VertexColors->None], Line3DBox[{2370, 2369, 2372, 2371, 2370},
         VertexColors->None], Line3DBox[{2374, 2373, 2376, 2375, 2374},
         VertexColors->None], Line3DBox[{2378, 2377, 2380, 2379, 2378},
         VertexColors->None], Line3DBox[{2382, 2381, 2384, 2383, 2382},
         VertexColors->None], Line3DBox[{2386, 2385, 2388, 2387, 2386},
         VertexColors->None], Line3DBox[{2390, 2389, 2392, 2391, 2390},
         VertexColors->None], Line3DBox[{2394, 2393, 2396, 2395, 2394},
         VertexColors->None], Line3DBox[{2398, 2397, 2400, 2399, 2398},
         VertexColors->None], Line3DBox[{2402, 2401, 2404, 2403, 2402},
         VertexColors->None], Line3DBox[{2406, 2405, 2408, 2407, 2406},
         VertexColors->None], Line3DBox[{2410, 2409, 2412, 2411, 2410},
         VertexColors->None], Line3DBox[{2414, 2413, 2416, 2415, 2414},
         VertexColors->None], Line3DBox[{2418, 2417, 2420, 2419, 2418},
         VertexColors->None], Line3DBox[{2422, 2421, 2424, 2423, 2422},
         VertexColors->None], Line3DBox[{2426, 2425, 2428, 2427, 2426},
         VertexColors->None], Line3DBox[{2430, 2429, 2432, 2431, 2430},
         VertexColors->None], Line3DBox[{2434, 2433, 2436, 2435, 2434},
         VertexColors->None], Line3DBox[{2438, 2437, 2440, 2439, 2438},
         VertexColors->None], Line3DBox[{2442, 2441, 2444, 2443, 2442},
         VertexColors->None], Line3DBox[{2446, 2445, 2448, 2447, 2446},
         VertexColors->None], Line3DBox[{2450, 2449, 2452, 2451, 2450},
         VertexColors->None], Line3DBox[{2454, 2453, 2456, 2455, 2454},
         VertexColors->None], Line3DBox[{2458, 2457, 2460, 2459, 2458},
         VertexColors->None], Line3DBox[{2462, 2461, 2464, 2463, 2462},
         VertexColors->None], Line3DBox[{2466, 2465, 2468, 2467, 2466},
         VertexColors->None], Line3DBox[{2470, 2469, 2472, 2471, 2470},
         VertexColors->None], Line3DBox[{2474, 2473, 2476, 2475, 2474},
         VertexColors->None], Line3DBox[{2478, 2477, 2480, 2479, 2478},
         VertexColors->None], Line3DBox[{2482, 2481, 2484, 2483, 2482},
         VertexColors->None], Line3DBox[{2486, 2485, 2488, 2487, 2486},
         VertexColors->None], Line3DBox[{2490, 2489, 2492, 2491, 2490},
         VertexColors->None], Line3DBox[{2494, 2493, 2496, 2495, 2494},
         VertexColors->None], Line3DBox[{2498, 2497, 2500, 2499, 2498},
         VertexColors->None], Line3DBox[{2502, 2501, 2504, 2503, 2502},
         VertexColors->None], Line3DBox[{2506, 2505, 2508, 2507, 2506},
         VertexColors->None], Line3DBox[{2510, 2509, 2512, 2511, 2510},
         VertexColors->None], Line3DBox[{2514, 2513, 2516, 2515, 2514},
         VertexColors->None], Line3DBox[{2518, 2517, 2520, 2519, 2518},
         VertexColors->None], Line3DBox[{2522, 2521, 2524, 2523, 2522},
         VertexColors->None], Line3DBox[{2526, 2525, 2528, 2527, 2526},
         VertexColors->None], Line3DBox[{2530, 2529, 2532, 2531, 2530},
         VertexColors->None], Line3DBox[{2534, 2533, 2536, 2535, 2534},
         VertexColors->None], Line3DBox[{2538, 2537, 2540, 2539, 2538},
         VertexColors->None], Line3DBox[{2542, 2541, 2544, 2543, 2542},
         VertexColors->None], Line3DBox[{2546, 2545, 2548, 2547, 2546},
         VertexColors->None], Line3DBox[{2550, 2549, 2552, 2551, 2550},
         VertexColors->None], Line3DBox[{2554, 2553, 2556, 2555, 2554},
         VertexColors->None], Line3DBox[{2558, 2557, 2560, 2559, 2558},
         VertexColors->None], Line3DBox[{2562, 2561, 2564, 2563, 2562},
         VertexColors->None], Line3DBox[{2566, 2565, 2568, 2567, 2566},
         VertexColors->None], Line3DBox[{2570, 2569, 2572, 2571, 2570},
         VertexColors->None], Line3DBox[{2574, 2573, 2576, 2575, 2574},
         VertexColors->None], Line3DBox[{2578, 2577, 2580, 2579, 2578},
         VertexColors->None], Line3DBox[{2582, 2581, 2584, 2583, 2582},
         VertexColors->None], Line3DBox[{2586, 2585, 2588, 2587, 2586},
         VertexColors->None], Line3DBox[{2590, 2589, 2592, 2591, 2590},
         VertexColors->None], Line3DBox[{2594, 2593, 2596, 2595, 2594},
         VertexColors->None], Line3DBox[{2598, 2597, 2600, 2599, 2598},
         VertexColors->None], Line3DBox[{2602, 2601, 2604, 2603, 2602},
         VertexColors->None], Line3DBox[{2606, 2605, 2608, 2607, 2606},
         VertexColors->None], Line3DBox[{2610, 2609, 2612, 2611, 2610},
         VertexColors->None], Line3DBox[{2614, 2613, 2616, 2615, 2614},
         VertexColors->None], Line3DBox[{2618, 2617, 2620, 2619, 2618},
         VertexColors->None], Line3DBox[{2622, 2621, 2624, 2623, 2622},
         VertexColors->None], Line3DBox[{2626, 2625, 2628, 2627, 2626},
         VertexColors->None], Line3DBox[{2630, 2629, 2632, 2631, 2630},
         VertexColors->None], Line3DBox[{2634, 2633, 2636, 2635, 2634},
         VertexColors->None], Line3DBox[{2638, 2637, 2640, 2639, 2638},
         VertexColors->None], Line3DBox[{2642, 2641, 2644, 2643, 2642},
         VertexColors->None], Line3DBox[{2646, 2645, 2648, 2647, 2646},
         VertexColors->None], Line3DBox[{2650, 2649, 2652, 2651, 2650},
         VertexColors->None], Line3DBox[{2654, 2653, 2656, 2655, 2654},
         VertexColors->None], Line3DBox[{2658, 2657, 2660, 2659, 2658},
         VertexColors->None], Line3DBox[{2662, 2661, 2664, 2663, 2662},
         VertexColors->None], Line3DBox[{2666, 2665, 2668, 2667, 2666},
         VertexColors->None], Line3DBox[{2670, 2669, 2672, 2671, 2670},
         VertexColors->None], Line3DBox[{2674, 2673, 2676, 2675, 2674},
         VertexColors->None], Line3DBox[{2678, 2677, 2680, 2679, 2678},
         VertexColors->None], Line3DBox[{2682, 2681, 2684, 2683, 2682},
         VertexColors->None], Line3DBox[{2686, 2685, 2688, 2687, 2686},
         VertexColors->None], Line3DBox[{2690, 2689, 2692, 2691, 2690},
         VertexColors->None], Line3DBox[{2694, 2693, 2696, 2695, 2694},
         VertexColors->None], Line3DBox[{2698, 2697, 2700, 2699, 2698},
         VertexColors->None], Line3DBox[{2702, 2701, 2704, 2703, 2702},
         VertexColors->None], Line3DBox[{2706, 2705, 2708, 2707, 2706},
         VertexColors->None], Line3DBox[{2710, 2709, 2712, 2711, 2710},
         VertexColors->None], Line3DBox[{2714, 2713, 2716, 2715, 2714},
         VertexColors->None], Line3DBox[{2718, 2717, 2720, 2719, 2718},
         VertexColors->None], Line3DBox[{2722, 2721, 2724, 2723, 2722},
         VertexColors->None], Line3DBox[{2726, 2725, 2728, 2727, 2726},
         VertexColors->None], Line3DBox[{2730, 2729, 2732, 2731, 2730},
         VertexColors->None], Line3DBox[{2734, 2733, 2736, 2735, 2734},
         VertexColors->None], Line3DBox[{2738, 2737, 2740, 2739, 2738},
         VertexColors->None], Line3DBox[{2742, 2741, 2744, 2743, 2742},
         VertexColors->None], Line3DBox[{2746, 2745, 2748, 2747, 2746},
         VertexColors->None], Line3DBox[{2750, 2749, 2752, 2751, 2750},
         VertexColors->None], Line3DBox[{2754, 2753, 2756, 2755, 2754},
         VertexColors->None], Line3DBox[{2758, 2757, 2760, 2759, 2758},
         VertexColors->None], Line3DBox[{2762, 2761, 2764, 2763, 2762},
         VertexColors->None], Line3DBox[{2766, 2765, 2768, 2767, 2766},
         VertexColors->None], Line3DBox[{2770, 2769, 2772, 2771, 2770},
         VertexColors->None], Line3DBox[{2774, 2773, 2776, 2775, 2774},
         VertexColors->None], Line3DBox[{2778, 2777, 2780, 2779, 2778},
         VertexColors->None], Line3DBox[{2782, 2781, 2784, 2783, 2782},
         VertexColors->None], Line3DBox[{2786, 2785, 2788, 2787, 2786},
         VertexColors->None], Line3DBox[{2790, 2789, 2792, 2791, 2790},
         VertexColors->None], Line3DBox[{2794, 2793, 2796, 2795, 2794},
         VertexColors->None], Line3DBox[{2798, 2797, 2800, 2799, 2798},
         VertexColors->None], Line3DBox[{2802, 2801, 2804, 2803, 2802},
         VertexColors->None], Line3DBox[{2806, 2805, 2808, 2807, 2806},
         VertexColors->None], Line3DBox[{2810, 2809, 2812, 2811, 2810},
         VertexColors->None], Line3DBox[{2814, 2813, 2816, 2815, 2814},
         VertexColors->None], Line3DBox[{2818, 2817, 2820, 2819, 2818},
         VertexColors->None], Line3DBox[{2822, 2821, 2824, 2823, 2822},
         VertexColors->None], Line3DBox[{2826, 2825, 2828, 2827, 2826},
         VertexColors->None], Line3DBox[{2830, 2829, 2832, 2831, 2830},
         VertexColors->None], Line3DBox[{2834, 2833, 2836, 2835, 2834},
         VertexColors->None], Line3DBox[{2838, 2837, 2840, 2839, 2838},
         VertexColors->None], Line3DBox[{2842, 2841, 2844, 2843, 2842},
         VertexColors->None], Line3DBox[{2846, 2845, 2848, 2847, 2846},
         VertexColors->None], Line3DBox[{2850, 2849, 2852, 2851, 2850},
         VertexColors->None], Line3DBox[{2854, 2853, 2856, 2855, 2854},
         VertexColors->None], Line3DBox[{2858, 2857, 2860, 2859, 2858},
         VertexColors->None], Line3DBox[{2862, 2861, 2864, 2863, 2862},
         VertexColors->None], Line3DBox[{2866, 2865, 2868, 2867, 2866},
         VertexColors->None], Line3DBox[{2870, 2869, 2872, 2871, 2870},
         VertexColors->None], Line3DBox[{2874, 2873, 2876, 2875, 2874},
         VertexColors->None], Line3DBox[{2878, 2877, 2880, 2879, 2878},
         VertexColors->None], Line3DBox[{2882, 2881, 2884, 2883, 2882},
         VertexColors->None], Line3DBox[{2886, 2885, 2888, 2887, 2886},
         VertexColors->None], Line3DBox[{2890, 2889, 2892, 2891, 2890},
         VertexColors->None], Line3DBox[{2894, 2893, 2896, 2895, 2894},
         VertexColors->None], Line3DBox[{2898, 2897, 2900, 2899, 2898},
         VertexColors->None], Line3DBox[{2902, 2901, 2904, 2903, 2902},
         VertexColors->None], Line3DBox[{2906, 2905, 2908, 2907, 2906},
         VertexColors->None], Line3DBox[{2910, 2909, 2912, 2911, 2910},
         VertexColors->None], Line3DBox[{2914, 2913, 2916, 2915, 2914},
         VertexColors->None], Line3DBox[{2918, 2917, 2920, 2919, 2918},
         VertexColors->None], Line3DBox[{2922, 2921, 2924, 2923, 2922},
         VertexColors->None], Line3DBox[{2926, 2925, 2928, 2927, 2926},
         VertexColors->None], Line3DBox[{2930, 2929, 2932, 2931, 2930},
         VertexColors->None], Line3DBox[{2934, 2933, 2936, 2935, 2934},
         VertexColors->None], Line3DBox[{2938, 2937, 2940, 2939, 2938},
         VertexColors->None], Line3DBox[{2942, 2941, 2944, 2943, 2942},
         VertexColors->None], Line3DBox[{2946, 2945, 2948, 2947, 2946},
         VertexColors->None], Line3DBox[{2950, 2949, 2952, 2951, 2950},
         VertexColors->None], Line3DBox[{2954, 2953, 2956, 2955, 2954},
         VertexColors->None], Line3DBox[{2958, 2957, 2960, 2959, 2958},
         VertexColors->None], Line3DBox[{2962, 2961, 2964, 2963, 2962},
         VertexColors->None], Line3DBox[{2966, 2965, 2968, 2967, 2966},
         VertexColors->None], Line3DBox[{2970, 2969, 2972, 2971, 2970},
         VertexColors->None], Line3DBox[{2974, 2973, 2976, 2975, 2974},
         VertexColors->None], Line3DBox[{2978, 2977, 2980, 2979, 2978},
         VertexColors->None], Line3DBox[{2982, 2981, 2984, 2983, 2982},
         VertexColors->None], Line3DBox[{2986, 2985, 2988, 2987, 2986},
         VertexColors->None], Line3DBox[{2990, 2989, 2992, 2991, 2990},
         VertexColors->None], Line3DBox[{2994, 2993, 2996, 2995, 2994},
         VertexColors->None], Line3DBox[{2998, 2997, 3000, 2999, 2998},
         VertexColors->None], Line3DBox[{3002, 3001, 3004, 3003, 3002},
         VertexColors->None], Line3DBox[{3006, 3005, 3008, 3007, 3006},
         VertexColors->None], Line3DBox[{3010, 3009, 3012, 3011, 3010},
         VertexColors->None], Line3DBox[{3014, 3013, 3016, 3015, 3014},
         VertexColors->None], Line3DBox[{3018, 3017, 3020, 3019, 3018},
         VertexColors->None], Line3DBox[{3022, 3021, 3024, 3023, 3022},
         VertexColors->None], Line3DBox[{3026, 3025, 3028, 3027, 3026},
         VertexColors->None], Line3DBox[{3030, 3029, 3032, 3031, 3030},
         VertexColors->None], Line3DBox[{3034, 3033, 3036, 3035, 3034},
         VertexColors->None], Line3DBox[{3038, 3037, 3040, 3039, 3038},
         VertexColors->None], Line3DBox[{3042, 3041, 3044, 3043, 3042},
         VertexColors->None], Line3DBox[{3046, 3045, 3048, 3047, 3046},
         VertexColors->None], Line3DBox[{3050, 3049, 3052, 3051, 3050},
         VertexColors->None], Line3DBox[{3054, 3053, 3056, 3055, 3054},
         VertexColors->None], Line3DBox[{3058, 3057, 3060, 3059, 3058},
         VertexColors->None], Line3DBox[{3062, 3061, 3064, 3063, 3062},
         VertexColors->None], Line3DBox[{3066, 3065, 3068, 3067, 3066},
         VertexColors->None], Line3DBox[{3070, 3069, 3072, 3071, 3070},
         VertexColors->None], Line3DBox[{3074, 3073, 3076, 3075, 3074},
         VertexColors->None], Line3DBox[{3078, 3077, 3080, 3079, 3078},
         VertexColors->None], Line3DBox[{3082, 3081, 3084, 3083, 3082},
         VertexColors->None], Line3DBox[{3086, 3085, 3088, 3087, 3086},
         VertexColors->None], Line3DBox[{3090, 3089, 3092, 3091, 3090},
         VertexColors->None], Line3DBox[{3094, 3093, 3096, 3095, 3094},
         VertexColors->None], Line3DBox[{3098, 3097, 3100, 3099, 3098},
         VertexColors->None], Line3DBox[{3102, 3101, 3104, 3103, 3102},
         VertexColors->None], Line3DBox[{3106, 3105, 3108, 3107, 3106},
         VertexColors->None], Line3DBox[{3110, 3109, 3112, 3111, 3110},
         VertexColors->None], Line3DBox[{3114, 3113, 3116, 3115, 3114},
         VertexColors->None], Line3DBox[{3118, 3117, 3120, 3119, 3118},
         VertexColors->None], Line3DBox[{3122, 3121, 3124, 3123, 3122},
         VertexColors->None], Line3DBox[{3126, 3125, 3128, 3127, 3126},
         VertexColors->None], Line3DBox[{3130, 3129, 3132, 3131, 3130},
         VertexColors->None], Line3DBox[{3134, 3133, 3136, 3135, 3134},
         VertexColors->None], Line3DBox[{3138, 3137, 3140, 3139, 3138},
         VertexColors->None], Line3DBox[{3142, 3141, 3144, 3143, 3142},
         VertexColors->None], Line3DBox[{3146, 3145, 3148, 3147, 3146},
         VertexColors->None], Line3DBox[{3150, 3149, 3152, 3151, 3150},
         VertexColors->None], Line3DBox[{3154, 3153, 3156, 3155, 3154},
         VertexColors->None], Line3DBox[{3158, 3157, 3160, 3159, 3158},
         VertexColors->None], Line3DBox[{3162, 3161, 3164, 3163, 3162},
         VertexColors->None], Line3DBox[{3166, 3165, 3168, 3167, 3166},
         VertexColors->None], Line3DBox[{3170, 3169, 3172, 3171, 3170},
         VertexColors->None], Line3DBox[{3174, 3173, 3176, 3175, 3174},
         VertexColors->None], Line3DBox[{3178, 3177, 3180, 3179, 3178},
         VertexColors->None], Line3DBox[{3182, 3181, 3184, 3183, 3182},
         VertexColors->None], Line3DBox[{3186, 3185, 3188, 3187, 3186},
         VertexColors->None], Line3DBox[{3190, 3189, 3192, 3191, 3190},
         VertexColors->None], Line3DBox[{3194, 3193, 3196, 3195, 3194},
         VertexColors->None], Line3DBox[{3198, 3197, 3200, 3199, 3198},
         VertexColors->None], Line3DBox[{3202, 3201, 3204, 3203, 3202},
         VertexColors->None], Line3DBox[{3206, 3205, 3208, 3207, 3206},
         VertexColors->None], Line3DBox[{3210, 3209, 3212, 3211, 3210},
         VertexColors->None], Line3DBox[{3214, 3213, 3216, 3215, 3214},
         VertexColors->None], Line3DBox[{3218, 3217, 3220, 3219, 3218},
         VertexColors->None], Line3DBox[{3222, 3221, 3224, 3223, 3222},
         VertexColors->None], Line3DBox[{3226, 3225, 3228, 3227, 3226},
         VertexColors->None], Line3DBox[{3230, 3229, 3232, 3231, 3230},
         VertexColors->None], Line3DBox[{3234, 3233, 3236, 3235, 3234},
         VertexColors->None], Line3DBox[{3238, 3237, 3240, 3239, 3238},
         VertexColors->None], Line3DBox[{3242, 3241, 3244, 3243, 3242},
         VertexColors->None], Line3DBox[{3246, 3245, 3248, 3247, 3246},
         VertexColors->None], Line3DBox[{3250, 3249, 3252, 3251, 3250},
         VertexColors->None], Line3DBox[{3254, 3253, 3256, 3255, 3254},
         VertexColors->None], Line3DBox[{3258, 3257, 3260, 3259, 3258},
         VertexColors->None], Line3DBox[{3262, 3261, 3264, 3263, 3262},
         VertexColors->None], Line3DBox[{3266, 3265, 3268, 3267, 3266},
         VertexColors->None], Line3DBox[{3270, 3269, 3272, 3271, 3270},
         VertexColors->None], Line3DBox[{3274, 3273, 3276, 3275, 3274},
         VertexColors->None], Line3DBox[{3278, 3277, 3280, 3279, 3278},
         VertexColors->None], Line3DBox[{3282, 3281, 3284, 3283, 3282},
         VertexColors->None], Line3DBox[{3286, 3285, 3288, 3287, 3286},
         VertexColors->None], Line3DBox[{3290, 3289, 3292, 3291, 3290},
         VertexColors->None], Line3DBox[{3294, 3293, 3296, 3295, 3294},
         VertexColors->None], Line3DBox[{3298, 3297, 3300, 3299, 3298},
         VertexColors->None], Line3DBox[{3302, 3301, 3304, 3303, 3302},
         VertexColors->None], Line3DBox[{3306, 3305, 3308, 3307, 3306},
         VertexColors->None], Line3DBox[{3310, 3309, 3312, 3311, 3310},
         VertexColors->None], Line3DBox[{3314, 3313, 3316, 3315, 3314},
         VertexColors->None], Line3DBox[{3318, 3317, 3320, 3319, 3318},
         VertexColors->None], Line3DBox[{3322, 3321, 3324, 3323, 3322},
         VertexColors->None], Line3DBox[{3326, 3325, 3328, 3327, 3326},
         VertexColors->None], Line3DBox[{3330, 3329, 3332, 3331, 3330},
         VertexColors->None], Line3DBox[{3334, 3333, 3336, 3335, 3334},
         VertexColors->None], Line3DBox[{3338, 3337, 3340, 3339, 3338},
         VertexColors->None], Line3DBox[{3342, 3341, 3344, 3343, 3342},
         VertexColors->None], Line3DBox[{3346, 3345, 3348, 3347, 3346},
         VertexColors->None], Line3DBox[{3350, 3349, 3352, 3351, 3350},
         VertexColors->None], Line3DBox[{3354, 3353, 3356, 3355, 3354},
         VertexColors->None], Line3DBox[{3358, 3357, 3360, 3359, 3358},
         VertexColors->None], Line3DBox[{3362, 3361, 3364, 3363, 3362},
         VertexColors->None], Line3DBox[{3366, 3365, 3368, 3367, 3366},
         VertexColors->None], Line3DBox[{3370, 3369, 3372, 3371, 3370},
         VertexColors->None], Line3DBox[{3374, 3373, 3376, 3375, 3374},
         VertexColors->None], Line3DBox[{3378, 3377, 3380, 3379, 3378},
         VertexColors->None], Line3DBox[{3382, 3381, 3384, 3383, 3382},
         VertexColors->None], Line3DBox[{3386, 3385, 3388, 3387, 3386},
         VertexColors->None], Line3DBox[{3390, 3389, 3392, 3391, 3390},
         VertexColors->None], Line3DBox[{3394, 3393, 3396, 3395, 3394},
         VertexColors->None], Line3DBox[{3398, 3397, 3400, 3399, 3398},
         VertexColors->None], Line3DBox[{3402, 3401, 3404, 3403, 3402},
         VertexColors->None], Line3DBox[{3406, 3405, 3408, 3407, 3406},
         VertexColors->None], Line3DBox[{3410, 3409, 3412, 3411, 3410},
         VertexColors->None], Line3DBox[{3414, 3413, 3416, 3415, 3414},
         VertexColors->None], Line3DBox[{3418, 3417, 3420, 3419, 3418},
         VertexColors->None], Line3DBox[{3422, 3421, 3424, 3423, 3422},
         VertexColors->None], Line3DBox[{3426, 3425, 3428, 3427, 3426},
         VertexColors->None], Line3DBox[{3430, 3429, 3432, 3431, 3430},
         VertexColors->None], Line3DBox[{3434, 3433, 3436, 3435, 3434},
         VertexColors->None], Line3DBox[{3438, 3437, 3440, 3439, 3438},
         VertexColors->None], Line3DBox[{3442, 3441, 3444, 3443, 3442},
         VertexColors->None], Line3DBox[{3446, 3445, 3448, 3447, 3446},
         VertexColors->None], Line3DBox[{3450, 3449, 3452, 3451, 3450},
         VertexColors->None], Line3DBox[{3454, 3453, 3456, 3455, 3454},
         VertexColors->None], Line3DBox[{3458, 3457, 3460, 3459, 3458},
         VertexColors->None], Line3DBox[{3462, 3461, 3464, 3463, 3462},
         VertexColors->None], Line3DBox[{3466, 3465, 3468, 3467, 3466},
         VertexColors->None], Line3DBox[{3470, 3469, 3472, 3471, 3470},
         VertexColors->None], Line3DBox[{3474, 3473, 3476, 3475, 3474},
         VertexColors->None], Line3DBox[{3478, 3477, 3480, 3479, 3478},
         VertexColors->None], Line3DBox[{3482, 3481, 3484, 3483, 3482},
         VertexColors->None], Line3DBox[{3486, 3485, 3488, 3487, 3486},
         VertexColors->None], Line3DBox[{3490, 3489, 3492, 3491, 3490},
         VertexColors->None], Line3DBox[{3494, 3493, 3496, 3495, 3494},
         VertexColors->None], Line3DBox[{3498, 3497, 3500, 3499, 3498},
         VertexColors->None], Line3DBox[{3502, 3501, 3504, 3503, 3502},
         VertexColors->None], Line3DBox[{3506, 3505, 3508, 3507, 3506},
         VertexColors->None], Line3DBox[{3510, 3509, 3512, 3511, 3510},
         VertexColors->None], Line3DBox[{3514, 3513, 3516, 3515, 3514},
         VertexColors->None], Line3DBox[{3518, 3517, 3520, 3519, 3518},
         VertexColors->None], Line3DBox[{3522, 3521, 3524, 3523, 3522},
         VertexColors->None], Line3DBox[{3526, 3525, 3528, 3527, 3526},
         VertexColors->None], Line3DBox[{3530, 3529, 3532, 3531, 3530},
         VertexColors->None], Line3DBox[{3534, 3533, 3536, 3535, 3534},
         VertexColors->None], Line3DBox[{3538, 3537, 3540, 3539, 3538},
         VertexColors->None], Line3DBox[{3542, 3541, 3544, 3543, 3542},
         VertexColors->None], Line3DBox[{3546, 3545, 3548, 3547, 3546},
         VertexColors->None], Line3DBox[{3550, 3549, 3552, 3551, 3550},
         VertexColors->None], Line3DBox[{3554, 3553, 3556, 3555, 3554},
         VertexColors->None], Line3DBox[{3558, 3557, 3560, 3559, 3558},
         VertexColors->None], Line3DBox[{3562, 3561, 3564, 3563, 3562},
         VertexColors->None], Line3DBox[{3566, 3565, 3568, 3567, 3566},
         VertexColors->None], Line3DBox[{3570, 3569, 3572, 3571, 3570},
         VertexColors->None], Line3DBox[{3574, 3573, 3576, 3575, 3574},
         VertexColors->None], Line3DBox[{3578, 3577, 3580, 3579, 3578},
         VertexColors->None], Line3DBox[{3582, 3581, 3584, 3583, 3582},
         VertexColors->None], Line3DBox[{3586, 3585, 3588, 3587, 3586},
         VertexColors->None], Line3DBox[{3590, 3589, 3592, 3591, 3590},
         VertexColors->None], Line3DBox[{3594, 3593, 3596, 3595, 3594},
         VertexColors->None], Line3DBox[{3598, 3597, 3600, 3599, 3598},
         VertexColors->None]}},
      VertexColors->{
        Hue[0.15845056878156155`, 0.75], 
        Hue[0.15845056878156155`, 0.75], 
        Hue[0.15845056878156155`, 0.75], 
        Hue[0.15845056878156155`, 0.75], 
        Hue[0.15845056794489962`, 0.75], 
        Hue[0.15845056794489962`, 0.75], 
        Hue[0.15845056794489962`, 0.75], 
        Hue[0.15845056794489962`, 0.75], 
        Hue[0.1584505647708821, 0.75], 
        Hue[0.1584505647708821, 0.75], 
        Hue[0.1584505647708821, 0.75], 
        Hue[0.1584505647708821, 0.75], 
        Hue[0.15845055272971323`, 0.75], 
        Hue[0.15845055272971323`, 0.75], 
        Hue[0.15845055272971323`, 0.75], 
        Hue[0.15845055272971323`, 0.75], 
        Hue[0.15845050704951, 0.75], 
        Hue[0.15845050704951, 0.75], 
        Hue[0.15845050704951, 0.75], 
        Hue[0.15845050704951, 0.75], 
        Hue[0.15845033375388304`, 0.75], 
        Hue[0.15845033375388304`, 0.75], 
        Hue[0.15845033375388304`, 0.75], 
        Hue[0.15845033375388304`, 0.75], 
        Hue[0.15844967632629287`, 0.75], 
        Hue[0.15844967632629287`, 0.75], 
        Hue[0.15844967632629287`, 0.75], 
        Hue[0.15844967632629287`, 0.75], 
        Hue[0.15844718224227608`, 0.75], 
        Hue[0.15844718224227608`, 0.75], 
        Hue[0.15844718224227608`, 0.75], 
        Hue[0.15844718224227608`, 0.75], 
        Hue[0.15843772019812188`, 0.75], 
        Hue[0.15843772019812188`, 0.75], 
        Hue[0.15843772019812188`, 0.75], 
        Hue[0.15843772019812188`, 0.75], 
        Hue[0.15840181977319617`, 0.75], 
        Hue[0.15840181977319617`, 0.75], 
        Hue[0.15840181977319617`, 0.75], 
        Hue[0.15840181977319617`, 0.75], 
        Hue[0.15826555970930492`, 0.75], 
        Hue[0.15826555970930492`, 0.75], 
        Hue[0.15826555970930492`, 0.75], 
        Hue[0.15826555970930492`, 0.75], 
        Hue[0.15774768890300261`, 0.75], 
        Hue[0.15774768890300261`, 0.75], 
        Hue[0.15774768890300261`, 0.75], 
        Hue[0.15774768890300261`, 0.75], 
        Hue[0.15576952418378134`, 0.75], 
        Hue[0.15576952418378134`, 0.75], 
        Hue[0.15576952418378134`, 0.75], 
        Hue[0.15576952418378134`, 0.75], 
        Hue[0.1480747421284545, 0.75], 
        Hue[0.1480747421284545, 0.75], 
        Hue[0.1480747421284545, 0.75], 
        Hue[0.1480747421284545, 0.75], 
        Hue[0.11653048549688477`, 0.75], 
        Hue[0.11653048549688477`, 0.75], 
        Hue[0.11653048549688477`, 0.75], 
        Hue[0.11653048549688477`, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[-0.11653048549688462`, 0.75], 
        Hue[-0.11653048549688462`, 0.75], 
        Hue[-0.11653048549688462`, 0.75], 
        Hue[-0.11653048549688462`, 0.75], 
        Hue[-0.14807474212845448`, 0.75], 
        Hue[-0.14807474212845448`, 0.75], 
        Hue[-0.14807474212845448`, 0.75], 
        Hue[-0.14807474212845448`, 0.75], 
        Hue[-0.15576952418378134`, 0.75], 
        Hue[-0.15576952418378134`, 0.75], 
        Hue[-0.15576952418378134`, 0.75], 
        Hue[-0.15576952418378134`, 0.75], 
        Hue[-0.15774768890300261`, 0.75], 
        Hue[-0.15774768890300261`, 0.75], 
        Hue[-0.15774768890300261`, 0.75], 
        Hue[-0.15774768890300261`, 0.75], 
        Hue[-0.15826555970930492`, 0.75], 
        Hue[-0.15826555970930492`, 0.75], 
        Hue[-0.15826555970930492`, 0.75], 
        Hue[-0.15826555970930492`, 0.75], 
        Hue[-0.15840181977319617`, 0.75], 
        Hue[-0.15840181977319617`, 0.75], 
        Hue[-0.15840181977319617`, 0.75], 
        Hue[-0.15840181977319617`, 0.75], 
        Hue[-0.15843772019812188`, 0.75], 
        Hue[-0.15843772019812188`, 0.75], 
        Hue[-0.15843772019812188`, 0.75], 
        Hue[-0.15843772019812188`, 0.75], 
        Hue[-0.15844718224227608`, 0.75], 
        Hue[-0.15844718224227608`, 0.75], 
        Hue[-0.15844718224227608`, 0.75], 
        Hue[-0.15844718224227608`, 0.75], 
        Hue[-0.15844967632629287`, 0.75], 
        Hue[-0.15844967632629287`, 0.75], 
        Hue[-0.15844967632629287`, 0.75], 
        Hue[-0.15844967632629287`, 0.75], 
        Hue[-0.15845033375388304`, 0.75], 
        Hue[-0.15845033375388304`, 0.75], 
        Hue[-0.15845033375388304`, 0.75], 
        Hue[-0.15845033375388304`, 0.75], 
        Hue[-0.15845050704951, 0.75], 
        Hue[-0.15845050704951, 0.75], 
        Hue[-0.15845050704951, 0.75], 
        Hue[-0.15845050704951, 0.75], 
        Hue[-0.15845055272971323`, 0.75], 
        Hue[-0.15845055272971323`, 0.75], 
        Hue[-0.15845055272971323`, 0.75], 
        Hue[-0.15845055272971323`, 0.75], 
        Hue[-0.1584505647708821, 0.75], 
        Hue[-0.1584505647708821, 0.75], 
        Hue[-0.1584505647708821, 0.75], 
        Hue[-0.1584505647708821, 0.75], 
        Hue[-0.15845056794489962`, 0.75], 
        Hue[-0.15845056794489962`, 0.75], 
        Hue[-0.15845056794489962`, 0.75], 
        Hue[-0.15845056794489962`, 0.75], 
        Hue[0.26455386453530505`, 0.75], 
        Hue[0.26455386453530505`, 0.75], 
        Hue[0.26455386453530505`, 0.75], 
        Hue[0.26455386453530505`, 0.75], 
        Hue[0.2645538647019797, 0.75], 
        Hue[0.2645538647019797, 0.75], 
        Hue[0.2645538647019797, 0.75], 
        Hue[0.2645538647019797, 0.75], 
        Hue[0.2645538653342882, 0.75], 
        Hue[0.2645538653342882, 0.75], 
        Hue[0.2645538653342882, 0.75], 
        Hue[0.2645538653342882, 0.75], 
        Hue[0.26455386773305684`, 0.75], 
        Hue[0.26455386773305684`, 0.75], 
        Hue[0.26455386773305684`, 0.75], 
        Hue[0.26455386773305684`, 0.75], 
        Hue[0.26455387683319176`, 0.75], 
        Hue[0.26455387683319176`, 0.75], 
        Hue[0.26455387683319176`, 0.75], 
        Hue[0.26455387683319176`, 0.75], 
        Hue[0.26455391135613265`, 0.75], 
        Hue[0.26455391135613265`, 0.75], 
        Hue[0.26455391135613265`, 0.75], 
        Hue[0.26455391135613265`, 0.75], 
        Hue[0.2645540423254415, 0.75], 
        Hue[0.2645540423254415, 0.75], 
        Hue[0.2645540423254415, 0.75], 
        Hue[0.2645540423254415, 0.75], 
        Hue[0.26455453919010075`, 0.75], 
        Hue[0.26455453919010075`, 0.75], 
        Hue[0.26455453919010075`, 0.75], 
        Hue[0.26455453919010075`, 0.75], 
        Hue[0.26455642428213094`, 0.75], 
        Hue[0.26455642428213094`, 0.75], 
        Hue[0.26455642428213094`, 0.75], 
        Hue[0.26455642428213094`, 0.75], 
        Hue[0.2645635778910662, 0.75], 
        Hue[0.2645635778910662, 0.75], 
        Hue[0.2645635778910662, 0.75], 
        Hue[0.2645635778910662, 0.75], 
        Hue[0.2645907479481271, 0.75], 
        Hue[0.2645907479481271, 0.75], 
        Hue[0.2645907479481271, 0.75], 
        Hue[0.2645907479481271, 0.75], 
        Hue[0.264694279596651, 0.75], 
        Hue[0.264694279596651, 0.75], 
        Hue[0.264694279596651, 0.75], 
        Hue[0.264694279596651, 0.75], 
        Hue[0.2650937453652493, 0.75], 
        Hue[0.2650937453652493, 0.75], 
        Hue[0.2650937453652493, 0.75], 
        Hue[0.2650937453652493, 0.75], 
        Hue[0.2667124768912603, 0.75], 
        Hue[0.2667124768912603, 0.75], 
        Hue[0.2667124768912603, 0.75], 
        Hue[0.2667124768912603, 0.75], 
        Hue[0.2748392275855409, 0.75], 
        Hue[0.2748392275855409, 0.75], 
        Hue[0.2748392275855409, 0.75], 
        Hue[0.2748392275855409, 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[-0.27483922758554097`, 0.75], 
        Hue[-0.27483922758554097`, 0.75], 
        Hue[-0.27483922758554097`, 0.75], 
        Hue[-0.27483922758554097`, 0.75], 
        Hue[-0.2667124768912603, 0.75], 
        Hue[-0.2667124768912603, 0.75], 
        Hue[-0.2667124768912603, 0.75], 
        Hue[-0.2667124768912603, 0.75], 
        Hue[-0.2650937453652493, 0.75], 
        Hue[-0.2650937453652493, 0.75], 
        Hue[-0.2650937453652493, 0.75], 
        Hue[-0.2650937453652493, 0.75], 
        Hue[-0.264694279596651, 0.75], 
        Hue[-0.264694279596651, 0.75], 
        Hue[-0.264694279596651, 0.75], 
        Hue[-0.264694279596651, 0.75], 
        Hue[-0.2645907479481271, 0.75], 
        Hue[-0.2645907479481271, 0.75], 
        Hue[-0.2645907479481271, 0.75], 
        Hue[-0.2645907479481271, 0.75], 
        Hue[-0.2645635778910662, 0.75], 
        Hue[-0.2645635778910662, 0.75], 
        Hue[-0.2645635778910662, 0.75], 
        Hue[-0.2645635778910662, 0.75], 
        Hue[-0.26455642428213094`, 0.75], 
        Hue[-0.26455642428213094`, 0.75], 
        Hue[-0.26455642428213094`, 0.75], 
        Hue[-0.26455642428213094`, 0.75], 
        Hue[-0.26455453919010075`, 0.75], 
        Hue[-0.26455453919010075`, 0.75], 
        Hue[-0.26455453919010075`, 0.75], 
        Hue[-0.26455453919010075`, 0.75], 
        Hue[-0.2645540423254415, 0.75], 
        Hue[-0.2645540423254415, 0.75], 
        Hue[-0.2645540423254415, 0.75], 
        Hue[-0.2645540423254415, 0.75], 
        Hue[-0.26455391135613265`, 0.75], 
        Hue[-0.26455391135613265`, 0.75], 
        Hue[-0.26455391135613265`, 0.75], 
        Hue[-0.26455391135613265`, 0.75], 
        Hue[-0.26455387683319176`, 0.75], 
        Hue[-0.26455387683319176`, 0.75], 
        Hue[-0.26455387683319176`, 0.75], 
        Hue[-0.26455387683319176`, 0.75], 
        Hue[-0.26455386773305684`, 0.75], 
        Hue[-0.26455386773305684`, 0.75], 
        Hue[-0.26455386773305684`, 0.75], 
        Hue[-0.26455386773305684`, 0.75], 
        Hue[-0.2645538653342882, 0.75], 
        Hue[-0.2645538653342882, 0.75], 
        Hue[-0.2645538653342882, 0.75], 
        Hue[-0.2645538653342882, 0.75], 
        Hue[-0.2645538647019797, 0.75], 
        Hue[-0.2645538647019797, 0.75], 
        Hue[-0.2645538647019797, 0.75], 
        Hue[-0.2645538647019797, 0.75], 
        Hue[0.37065716019779493`, 0.75], 
        Hue[0.37065716019779493`, 0.75], 
        Hue[0.37065716019779493`, 0.75], 
        Hue[0.37065716019779493`, 0.75], 
        Hue[0.37065716111287317`, 0.75], 
        Hue[0.37065716111287317`, 0.75], 
        Hue[0.37065716111287317`, 0.75], 
        Hue[0.37065716111287317`, 0.75], 
        Hue[0.3706571645843761, 0.75], 
        Hue[0.3706571645843761, 0.75], 
        Hue[0.3706571645843761, 0.75], 
        Hue[0.3706571645843761, 0.75], 
        Hue[0.37065717775410517`, 0.75], 
        Hue[0.37065717775410517`, 0.75], 
        Hue[0.37065717775410517`, 0.75], 
        Hue[0.37065717775410517`, 0.75], 
        Hue[0.3706572277156849, 0.75], 
        Hue[0.3706572277156849, 0.75], 
        Hue[0.3706572277156849, 0.75], 
        Hue[0.3706572277156849, 0.75], 
        Hue[0.3706574172533413, 0.75], 
        Hue[0.3706574172533413, 0.75], 
        Hue[0.3706574172533413, 0.75], 
        Hue[0.3706574172533413, 0.75], 
        Hue[0.37065813629648736`, 0.75], 
        Hue[0.37065813629648736`, 0.75], 
        Hue[0.37065813629648736`, 0.75], 
        Hue[0.37065813629648736`, 0.75], 
        Hue[0.37066086411061244`, 0.75], 
        Hue[0.37066086411061244`, 0.75], 
        Hue[0.37066086411061244`, 0.75], 
        Hue[0.37066086411061244`, 0.75], 
        Hue[0.3706712125778943, 0.75], 
        Hue[0.3706712125778943, 0.75], 
        Hue[0.3706712125778943, 0.75], 
        Hue[0.3706712125778943, 0.75], 
        Hue[0.37071047189262596`, 0.75], 
        Hue[0.37071047189262596`, 0.75], 
        Hue[0.37071047189262596`, 0.75], 
        Hue[0.37071047189262596`, 0.75], 
        Hue[0.3708594182161973, 0.75], 
        Hue[0.3708594182161973, 0.75], 
        Hue[0.3708594182161973, 0.75], 
        Hue[0.3708594182161973, 0.75], 
        Hue[0.37142460417104506`, 0.75], 
        Hue[0.37142460417104506`, 0.75], 
        Hue[0.37142460417104506`, 0.75], 
        Hue[0.37142460417104506`, 0.75], 
        Hue[0.3735704299455073, 0.75], 
        Hue[0.3735704299455073, 0.75], 
        Hue[0.3735704299455073, 0.75], 
        Hue[0.3735704299455073, 0.75], 
        Hue[0.3817234723010004, 0.75], 
        Hue[0.3817234723010004, 0.75], 
        Hue[0.3817234723010004, 0.75], 
        Hue[0.3817234723010004, 0.75], 
        Hue[0.4121894337298767, 0.75], 
        Hue[0.4121894337298767, 0.75], 
        Hue[0.4121894337298767, 0.75], 
        Hue[0.4121894337298767, 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[-0.41218943372987693`, 0.75], 
        Hue[-0.41218943372987693`, 0.75], 
        Hue[-0.41218943372987693`, 0.75], 
        Hue[-0.41218943372987693`, 0.75], 
        Hue[-0.3817234723010004, 0.75], 
        Hue[-0.3817234723010004, 0.75], 
        Hue[-0.3817234723010004, 0.75], 
        Hue[-0.3817234723010004, 0.75], 
        Hue[-0.3735704299455073, 0.75], 
        Hue[-0.3735704299455073, 0.75], 
        Hue[-0.3735704299455073, 0.75], 
        Hue[-0.3735704299455073, 0.75], 
        Hue[-0.37142460417104506`, 0.75], 
        Hue[-0.37142460417104506`, 0.75], 
        Hue[-0.37142460417104506`, 0.75], 
        Hue[-0.37142460417104506`, 0.75], 
        Hue[-0.3708594182161973, 0.75], 
        Hue[-0.3708594182161973, 0.75], 
        Hue[-0.3708594182161973, 0.75], 
        Hue[-0.3708594182161973, 0.75], 
        Hue[-0.37071047189262596`, 0.75], 
        Hue[-0.37071047189262596`, 0.75], 
        Hue[-0.37071047189262596`, 0.75], 
        Hue[-0.37071047189262596`, 0.75], 
        Hue[-0.37067121257789437`, 0.75], 
        Hue[-0.37067121257789437`, 0.75], 
        Hue[-0.37067121257789437`, 0.75], 
        Hue[-0.37067121257789437`, 0.75], 
        Hue[-0.37066086411061244`, 0.75], 
        Hue[-0.37066086411061244`, 0.75], 
        Hue[-0.37066086411061244`, 0.75], 
        Hue[-0.37066086411061244`, 0.75], 
        Hue[-0.37065813629648736`, 0.75], 
        Hue[-0.37065813629648736`, 0.75], 
        Hue[-0.37065813629648736`, 0.75], 
        Hue[-0.37065813629648736`, 0.75], 
        Hue[-0.3706574172533413, 0.75], 
        Hue[-0.3706574172533413, 0.75], 
        Hue[-0.3706574172533413, 0.75], 
        Hue[-0.3706574172533413, 0.75], 
        Hue[-0.3706572277156849, 0.75], 
        Hue[-0.3706572277156849, 0.75], 
        Hue[-0.3706572277156849, 0.75], 
        Hue[-0.3706572277156849, 0.75], 
        Hue[-0.37065717775410517`, 0.75], 
        Hue[-0.37065717775410517`, 0.75], 
        Hue[-0.37065717775410517`, 0.75], 
        Hue[-0.37065717775410517`, 0.75], 
        Hue[-0.3706571645843761, 0.75], 
        Hue[-0.3706571645843761, 0.75], 
        Hue[-0.3706571645843761, 0.75], 
        Hue[-0.3706571645843761, 0.75], 
        Hue[-0.37065716111287317`, 0.75], 
        Hue[-0.37065716111287317`, 0.75], 
        Hue[-0.37065716111287317`, 0.75], 
        Hue[-0.37065716111287317`, 0.75], 
        Hue[0.47676045535928196`, 0.75], 
        Hue[0.47676045535928196`, 0.75], 
        Hue[0.47676045535928196`, 0.75], 
        Hue[0.47676045535928196`, 0.75], 
        Hue[0.4767604556231288, 0.75], 
        Hue[0.4767604556231288, 0.75], 
        Hue[0.4767604556231288, 0.75], 
        Hue[0.4767604556231288, 0.75], 
        Hue[0.4767604566240762, 0.75], 
        Hue[0.4767604566240762, 0.75], 
        Hue[0.4767604566240762, 0.75], 
        Hue[0.4767604566240762, 0.75], 
        Hue[0.4767604604213376, 0.75], 
        Hue[0.4767604604213376, 0.75], 
        Hue[0.4767604604213376, 0.75], 
        Hue[0.4767604604213376, 0.75], 
        Hue[0.47676047482688083`, 0.75], 
        Hue[0.47676047482688083`, 0.75], 
        Hue[0.47676047482688083`, 0.75], 
        Hue[0.47676047482688083`, 0.75], 
        Hue[0.47676052947664904`, 0.75], 
        Hue[0.47676052947664904`, 0.75], 
        Hue[0.47676052947664904`, 0.75], 
        Hue[0.47676052947664904`, 0.75], 
        Hue[0.47676073679858494`, 0.75], 
        Hue[0.47676073679858494`, 0.75], 
        Hue[0.47676073679858494`, 0.75], 
        Hue[0.47676073679858494`, 0.75], 
        Hue[0.47676152329282057`, 0.75], 
        Hue[0.47676152329282057`, 0.75], 
        Hue[0.47676152329282057`, 0.75], 
        Hue[0.47676152329282057`, 0.75], 
        Hue[0.4767645067556586, 0.75], 
        Hue[0.4767645067556586, 0.75], 
        Hue[0.4767645067556586, 0.75], 
        Hue[0.4767645067556586, 0.75], 
        Hue[0.4767758216404392, 0.75], 
        Hue[0.4767758216404392, 0.75], 
        Hue[0.4767758216404392, 0.75], 
        Hue[0.4767758216404392, 0.75], 
        Hue[0.47681869793272, 0.75], 
        Hue[0.47681869793272, 0.75], 
        Hue[0.47681869793272, 0.75], 
        Hue[0.47681869793272, 0.75], 
        Hue[0.4769806596376583, 0.75], 
        Hue[0.4769806596376583, 0.75], 
        Hue[0.4769806596376583, 0.75], 
        Hue[0.4769806596376583, 0.75], 
        Hue[0.47758522635903156`, 0.75], 
        Hue[0.47758522635903156`, 0.75], 
        Hue[0.47758522635903156`, 0.75], 
        Hue[0.47758522635903156`, 0.75], 
        Hue[0.47974528461897714`, 0.75], 
        Hue[0.47974528461897714`, 0.75], 
        Hue[0.47974528461897714`, 0.75], 
        Hue[0.47974528461897714`, 0.75], 
        Hue[0.48639255919379576`, 0.75], 
        Hue[0.48639255919379576`, 0.75], 
        Hue[0.48639255919379576`, 0.75], 
        Hue[0.48639255919379576`, 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[-0.48639255919379576`, 0.75], 
        Hue[-0.48639255919379576`, 0.75], 
        Hue[-0.48639255919379576`, 0.75], 
        Hue[-0.48639255919379576`, 0.75], 
        Hue[-0.47974528461897714`, 0.75], 
        Hue[-0.47974528461897714`, 0.75], 
        Hue[-0.47974528461897714`, 0.75], 
        Hue[-0.47974528461897714`, 0.75], 
        Hue[-0.47758522635903156`, 0.75], 
        Hue[-0.47758522635903156`, 0.75], 
        Hue[-0.47758522635903156`, 0.75], 
        Hue[-0.47758522635903156`, 0.75], 
        Hue[-0.4769806596376583, 0.75], 
        Hue[-0.4769806596376583, 0.75], 
        Hue[-0.4769806596376583, 0.75], 
        Hue[-0.4769806596376583, 0.75], 
        Hue[-0.47681869793272, 0.75], 
        Hue[-0.47681869793272, 0.75], 
        Hue[-0.47681869793272, 0.75], 
        Hue[-0.47681869793272, 0.75], 
        Hue[-0.4767758216404392, 0.75], 
        Hue[-0.4767758216404392, 0.75], 
        Hue[-0.4767758216404392, 0.75], 
        Hue[-0.4767758216404392, 0.75], 
        Hue[-0.4767645067556586, 0.75], 
        Hue[-0.4767645067556586, 0.75], 
        Hue[-0.4767645067556586, 0.75], 
        Hue[-0.4767645067556586, 0.75], 
        Hue[-0.47676152329282057`, 0.75], 
        Hue[-0.47676152329282057`, 0.75], 
        Hue[-0.47676152329282057`, 0.75], 
        Hue[-0.47676152329282057`, 0.75], 
        Hue[-0.47676073679858494`, 0.75], 
        Hue[-0.47676073679858494`, 0.75], 
        Hue[-0.47676073679858494`, 0.75], 
        Hue[-0.47676073679858494`, 0.75], 
        Hue[-0.47676052947664904`, 0.75], 
        Hue[-0.47676052947664904`, 0.75], 
        Hue[-0.47676052947664904`, 0.75], 
        Hue[-0.47676052947664904`, 0.75], 
        Hue[-0.4767604748268809, 0.75], 
        Hue[-0.4767604748268809, 0.75], 
        Hue[-0.4767604748268809, 0.75], 
        Hue[-0.4767604748268809, 0.75], 
        Hue[-0.4767604604213376, 0.75], 
        Hue[-0.4767604604213376, 0.75], 
        Hue[-0.4767604604213376, 0.75], 
        Hue[-0.4767604604213376, 0.75], 
        Hue[-0.4767604566240762, 0.75], 
        Hue[-0.4767604566240762, 0.75], 
        Hue[-0.4767604566240762, 0.75], 
        Hue[-0.4767604566240762, 0.75], 
        Hue[-0.4767604556231288, 0.75], 
        Hue[-0.4767604556231288, 0.75], 
        Hue[-0.4767604556231288, 0.75], 
        Hue[-0.4767604556231288, 0.75], 
        Hue[-0.4171362496236865, 0.75], 
        Hue[-0.4171362496236865, 0.75], 
        Hue[-0.4171362496236865, 0.75], 
        Hue[-0.4171362496236865, 0.75], 
        Hue[-0.41713625041463126`, 0.75], 
        Hue[-0.41713625041463126`, 0.75], 
        Hue[-0.41713625041463126`, 0.75], 
        Hue[-0.41713625041463126`, 0.75], 
        Hue[-0.41713625341521327`, 0.75], 
        Hue[-0.41713625341521327`, 0.75], 
        Hue[-0.41713625341521327`, 0.75], 
        Hue[-0.41713625341521327`, 0.75], 
        Hue[-0.4171362647984241, 0.75], 
        Hue[-0.4171362647984241, 0.75], 
        Hue[-0.4171362647984241, 0.75], 
        Hue[-0.4171362647984241, 0.75], 
        Hue[-0.4171363079825369, 0.75], 
        Hue[-0.4171363079825369, 0.75], 
        Hue[-0.4171363079825369, 0.75], 
        Hue[-0.4171363079825369, 0.75], 
        Hue[-0.41713647180859476`, 0.75], 
        Hue[-0.41713647180859476`, 0.75], 
        Hue[-0.41713647180859476`, 0.75], 
        Hue[-0.41713647180859476`, 0.75], 
        Hue[-0.41713709330845583`, 0.75], 
        Hue[-0.41713709330845583`, 0.75], 
        Hue[-0.41713709330845583`, 0.75], 
        Hue[-0.41713709330845583`, 0.75], 
        Hue[-0.4171394510466947, 0.75], 
        Hue[-0.4171394510466947, 0.75], 
        Hue[-0.4171394510466947, 0.75], 
        Hue[-0.4171394510466947, 0.75], 
        Hue[-0.41714839515080804`, 0.75], 
        Hue[-0.41714839515080804`, 0.75], 
        Hue[-0.41714839515080804`, 0.75], 
        Hue[-0.41714839515080804`, 0.75], 
        Hue[-0.4171823207612909, 0.75], 
        Hue[-0.4171823207612909, 0.75], 
        Hue[-0.4171823207612909, 0.75], 
        Hue[-0.4171823207612909, 0.75], 
        Hue[-0.41731094626322573`, 0.75], 
        Hue[-0.41731094626322573`, 0.75], 
        Hue[-0.41731094626322573`, 0.75], 
        Hue[-0.41731094626322573`, 0.75], 
        Hue[-0.4177978006485882, 0.75], 
        Hue[-0.4177978006485882, 0.75], 
        Hue[-0.4177978006485882, 0.75], 
        Hue[-0.4177978006485882, 0.75], 
        Hue[-0.419628824812953, 0.75], 
        Hue[-0.419628824812953, 0.75], 
        Hue[-0.419628824812953, 0.75], 
        Hue[-0.419628824812953, 0.75], 
        Hue[-0.42634660764184606`, 0.75], 
        Hue[-0.42634660764184606`, 0.75], 
        Hue[-0.42634660764184606`, 0.75], 
        Hue[-0.42634660764184606`, 0.75], 
        Hue[-0.4486704012437367, 0.75], 
        Hue[-0.4486704012437367, 0.75], 
        Hue[-0.4486704012437367, 0.75], 
        Hue[-0.4486704012437367, 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[0.44867040124373686`, 0.75], 
        Hue[0.44867040124373686`, 0.75], 
        Hue[0.44867040124373686`, 0.75], 
        Hue[0.44867040124373686`, 0.75], 
        Hue[0.42634660764184606`, 0.75], 
        Hue[0.42634660764184606`, 0.75], 
        Hue[0.42634660764184606`, 0.75], 
        Hue[0.42634660764184606`, 0.75], 
        Hue[0.419628824812953, 0.75], 
        Hue[0.419628824812953, 0.75], 
        Hue[0.419628824812953, 0.75], 
        Hue[0.419628824812953, 0.75], 
        Hue[0.4177978006485882, 0.75], 
        Hue[0.4177978006485882, 0.75], 
        Hue[0.4177978006485882, 0.75], 
        Hue[0.4177978006485882, 0.75], 
        Hue[0.41731094626322573`, 0.75], 
        Hue[0.41731094626322573`, 0.75], 
        Hue[0.41731094626322573`, 0.75], 
        Hue[0.41731094626322573`, 0.75], 
        Hue[0.4171823207612909, 0.75], 
        Hue[0.4171823207612909, 0.75], 
        Hue[0.4171823207612909, 0.75], 
        Hue[0.4171823207612909, 0.75], 
        Hue[0.41714839515080804`, 0.75], 
        Hue[0.41714839515080804`, 0.75], 
        Hue[0.41714839515080804`, 0.75], 
        Hue[0.41714839515080804`, 0.75], 
        Hue[0.4171394510466947, 0.75], 
        Hue[0.4171394510466947, 0.75], 
        Hue[0.4171394510466947, 0.75], 
        Hue[0.4171394510466947, 0.75], 
        Hue[0.41713709330845583`, 0.75], 
        Hue[0.41713709330845583`, 0.75], 
        Hue[0.41713709330845583`, 0.75], 
        Hue[0.41713709330845583`, 0.75], 
        Hue[0.41713647180859476`, 0.75], 
        Hue[0.41713647180859476`, 0.75], 
        Hue[0.41713647180859476`, 0.75], 
        Hue[0.41713647180859476`, 0.75], 
        Hue[0.4171363079825369, 0.75], 
        Hue[0.4171363079825369, 0.75], 
        Hue[0.4171363079825369, 0.75], 
        Hue[0.4171363079825369, 0.75], 
        Hue[0.4171362647984241, 0.75], 
        Hue[0.4171362647984241, 0.75], 
        Hue[0.4171362647984241, 0.75], 
        Hue[0.4171362647984241, 0.75], 
        Hue[0.41713625341521327`, 0.75], 
        Hue[0.41713625341521327`, 0.75], 
        Hue[0.41713625341521327`, 0.75], 
        Hue[0.41713625341521327`, 0.75], 
        Hue[0.41713625041463126`, 0.75], 
        Hue[0.41713625041463126`, 0.75], 
        Hue[0.41713625041463126`, 0.75], 
        Hue[0.41713625041463126`, 0.75], 
        Hue[-0.31103295417361476`, 0.75], 
        Hue[-0.31103295417361476`, 0.75], 
        Hue[-0.31103295417361476`, 0.75], 
        Hue[-0.31103295417361476`, 0.75], 
        Hue[-0.31103295480958154`, 0.75], 
        Hue[-0.31103295480958154`, 0.75], 
        Hue[-0.31103295480958154`, 0.75], 
        Hue[-0.31103295480958154`, 0.75], 
        Hue[-0.31103295722222823`, 0.75], 
        Hue[-0.31103295722222823`, 0.75], 
        Hue[-0.31103295722222823`, 0.75], 
        Hue[-0.31103295722222823`, 0.75], 
        Hue[-0.31103296637500927`, 0.75], 
        Hue[-0.31103296637500927`, 0.75], 
        Hue[-0.31103296637500927`, 0.75], 
        Hue[-0.31103296637500927`, 0.75], 
        Hue[-0.3110330010976309, 0.75], 
        Hue[-0.3110330010976309, 0.75], 
        Hue[-0.3110330010976309, 0.75], 
        Hue[-0.3110330010976309, 0.75], 
        Hue[-0.3110331328238685, 0.75], 
        Hue[-0.3110331328238685, 0.75], 
        Hue[-0.3110331328238685, 0.75], 
        Hue[-0.3110331328238685, 0.75], 
        Hue[-0.3110336325515243, 0.75], 
        Hue[-0.3110336325515243, 0.75], 
        Hue[-0.3110336325515243, 0.75], 
        Hue[-0.3110336325515243, 0.75], 
        Hue[-0.3110355283818948, 0.75], 
        Hue[-0.3110355283818948, 0.75], 
        Hue[-0.3110355283818948, 0.75], 
        Hue[-0.3110355283818948, 0.75], 
        Hue[-0.31104272095882296`, 0.75], 
        Hue[-0.31104272095882296`, 0.75], 
        Hue[-0.31104272095882296`, 0.75], 
        Hue[-0.31104272095882296`, 0.75], 
        Hue[-0.3110700133406492, 0.75], 
        Hue[-0.3110700133406492, 0.75], 
        Hue[-0.3110700133406492, 0.75], 
        Hue[-0.3110700133406492, 0.75], 
        Hue[-0.31117363990319774`, 0.75], 
        Hue[-0.31117363990319774`, 0.75], 
        Hue[-0.31117363990319774`, 0.75], 
        Hue[-0.31117363990319774`, 0.75], 
        Hue[-0.311568038896097, 0.75], 
        Hue[-0.311568038896097, 0.75], 
        Hue[-0.311568038896097, 0.75], 
        Hue[-0.311568038896097, 0.75], 
        Hue[-0.3130827599354616, 0.75], 
        Hue[-0.3130827599354616, 0.75], 
        Hue[-0.3130827599354616, 0.75], 
        Hue[-0.3130827599354616, 0.75], 
        Hue[-0.31910433835687724`, 0.75], 
        Hue[-0.31910433835687724`, 0.75], 
        Hue[-0.31910433835687724`, 0.75], 
        Hue[-0.31910433835687724`, 0.75], 
        Hue[-0.3463735776237326, 0.75], 
        Hue[-0.3463735776237326, 0.75], 
        Hue[-0.3463735776237326, 0.75], 
        Hue[-0.3463735776237326, 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[0.3463735776237328, 0.75], 
        Hue[0.3463735776237328, 0.75], 
        Hue[0.3463735776237328, 0.75], 
        Hue[0.3463735776237328, 0.75], 
        Hue[0.31910433835687724`, 0.75], 
        Hue[0.31910433835687724`, 0.75], 
        Hue[0.31910433835687724`, 0.75], 
        Hue[0.31910433835687724`, 0.75], 
        Hue[0.3130827599354616, 0.75], 
        Hue[0.3130827599354616, 0.75], 
        Hue[0.3130827599354616, 0.75], 
        Hue[0.3130827599354616, 0.75], 
        Hue[0.311568038896097, 0.75], 
        Hue[0.311568038896097, 0.75], 
        Hue[0.311568038896097, 0.75], 
        Hue[0.311568038896097, 0.75], 
        Hue[0.31117363990319774`, 0.75], 
        Hue[0.31117363990319774`, 0.75], 
        Hue[0.31117363990319774`, 0.75], 
        Hue[0.31117363990319774`, 0.75], 
        Hue[0.3110700133406492, 0.75], 
        Hue[0.3110700133406492, 0.75], 
        Hue[0.3110700133406492, 0.75], 
        Hue[0.3110700133406492, 0.75], 
        Hue[0.31104272095882296`, 0.75], 
        Hue[0.31104272095882296`, 0.75], 
        Hue[0.31104272095882296`, 0.75], 
        Hue[0.31104272095882296`, 0.75], 
        Hue[0.31103552838189474`, 0.75], 
        Hue[0.31103552838189474`, 0.75], 
        Hue[0.31103552838189474`, 0.75], 
        Hue[0.31103552838189474`, 0.75], 
        Hue[0.3110336325515243, 0.75], 
        Hue[0.3110336325515243, 0.75], 
        Hue[0.3110336325515243, 0.75], 
        Hue[0.3110336325515243, 0.75], 
        Hue[0.3110331328238685, 0.75], 
        Hue[0.3110331328238685, 0.75], 
        Hue[0.3110331328238685, 0.75], 
        Hue[0.3110331328238685, 0.75], 
        Hue[0.3110330010976309, 0.75], 
        Hue[0.3110330010976309, 0.75], 
        Hue[0.3110330010976309, 0.75], 
        Hue[0.3110330010976309, 0.75], 
        Hue[0.31103296637500927`, 0.75], 
        Hue[0.31103296637500927`, 0.75], 
        Hue[0.31103296637500927`, 0.75], 
        Hue[0.31103296637500927`, 0.75], 
        Hue[0.31103295722222823`, 0.75], 
        Hue[0.31103295722222823`, 0.75], 
        Hue[0.31103295722222823`, 0.75], 
        Hue[0.31103295722222823`, 0.75], 
        Hue[0.31103295480958154`, 0.75], 
        Hue[0.31103295480958154`, 0.75], 
        Hue[0.31103295480958154`, 0.75], 
        Hue[0.31103295480958154`, 0.75], 
        Hue[-0.20492965837535312`, 0.75], 
        Hue[-0.20492965837535312`, 0.75], 
        Hue[-0.20492965837535312`, 0.75], 
        Hue[-0.20492965837535312`, 0.75], 
        Hue[-0.2049296578836149, 0.75], 
        Hue[-0.2049296578836149, 0.75], 
        Hue[-0.2049296578836149, 0.75], 
        Hue[-0.2049296578836149, 0.75], 
        Hue[-0.20492965601812307`, 0.75], 
        Hue[-0.20492965601812307`, 0.75], 
        Hue[-0.20492965601812307`, 0.75], 
        Hue[-0.20492965601812307`, 0.75], 
        Hue[-0.20492964894106613`, 0.75], 
        Hue[-0.20492964894106613`, 0.75], 
        Hue[-0.20492964894106613`, 0.75], 
        Hue[-0.20492964894106613`, 0.75], 
        Hue[-0.20492962209305343`, 0.75], 
        Hue[-0.20492962209305343`, 0.75], 
        Hue[-0.20492962209305343`, 0.75], 
        Hue[-0.20492962209305343`, 0.75], 
        Hue[-0.20492952024048, 0.75], 
        Hue[-0.20492952024048, 0.75], 
        Hue[-0.20492952024048, 0.75], 
        Hue[-0.20492952024048, 0.75], 
        Hue[-0.2049291338437781, 0.75], 
        Hue[-0.2049291338437781, 0.75], 
        Hue[-0.2049291338437781, 0.75], 
        Hue[-0.2049291338437781, 0.75], 
        Hue[-0.20492766795618572`, 0.75], 
        Hue[-0.20492766795618572`, 0.75], 
        Hue[-0.20492766795618572`, 0.75], 
        Hue[-0.20492766795618572`, 0.75], 
        Hue[-0.20492210647933323`, 0.75], 
        Hue[-0.20492210647933323`, 0.75], 
        Hue[-0.20492210647933323`, 0.75], 
        Hue[-0.20492210647933323`, 0.75], 
        Hue[-0.20490100252428964`, 0.75], 
        Hue[-0.20490100252428964`, 0.75], 
        Hue[-0.20490100252428964`, 0.75], 
        Hue[-0.20490100252428964`, 0.75], 
        Hue[-0.20482086105189962`, 0.75], 
        Hue[-0.20482086105189962`, 0.75], 
        Hue[-0.20482086105189962`, 0.75], 
        Hue[-0.20482086105189962`, 0.75], 
        Hue[-0.20451567448029262`, 0.75], 
        Hue[-0.20451567448029262`, 0.75], 
        Hue[-0.20451567448029262`, 0.75], 
        Hue[-0.20451567448029262`, 0.75], 
        Hue[-0.20334103397079448`, 0.75], 
        Hue[-0.20334103397079448`, 0.75], 
        Hue[-0.20334103397079448`, 0.75], 
        Hue[-0.20334103397079448`, 0.75], 
        Hue[-0.1986295971559433, 0.75], 
        Hue[-0.1986295971559433, 0.75], 
        Hue[-0.1986295971559433, 0.75], 
        Hue[-0.1986295971559433, 0.75], 
        Hue[-0.17629238805963643`, 0.75], 
        Hue[-0.17629238805963643`, 0.75], 
        Hue[-0.17629238805963643`, 0.75], 
        Hue[-0.17629238805963643`, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0.17629238805963632`, 0.75], 
        Hue[0.17629238805963632`, 0.75], 
        Hue[0.17629238805963632`, 0.75], 
        Hue[0.17629238805963632`, 0.75], 
        Hue[0.1986295971559433, 0.75], 
        Hue[0.1986295971559433, 0.75], 
        Hue[0.1986295971559433, 0.75], 
        Hue[0.1986295971559433, 0.75], 
        Hue[0.20334103397079448`, 0.75], 
        Hue[0.20334103397079448`, 0.75], 
        Hue[0.20334103397079448`, 0.75], 
        Hue[0.20334103397079448`, 0.75], 
        Hue[0.2045156744802926, 0.75], 
        Hue[0.2045156744802926, 0.75], 
        Hue[0.2045156744802926, 0.75], 
        Hue[0.2045156744802926, 0.75], 
        Hue[0.20482086105189962`, 0.75], 
        Hue[0.20482086105189962`, 0.75], 
        Hue[0.20482086105189962`, 0.75], 
        Hue[0.20482086105189962`, 0.75], 
        Hue[0.20490100252428964`, 0.75], 
        Hue[0.20490100252428964`, 0.75], 
        Hue[0.20490100252428964`, 0.75], 
        Hue[0.20490100252428964`, 0.75], 
        Hue[0.20492210647933323`, 0.75], 
        Hue[0.20492210647933323`, 0.75], 
        Hue[0.20492210647933323`, 0.75], 
        Hue[0.20492210647933323`, 0.75], 
        Hue[0.20492766795618572`, 0.75], 
        Hue[0.20492766795618572`, 0.75], 
        Hue[0.20492766795618572`, 0.75], 
        Hue[0.20492766795618572`, 0.75], 
        Hue[0.2049291338437781, 0.75], 
        Hue[0.2049291338437781, 0.75], 
        Hue[0.2049291338437781, 0.75], 
        Hue[0.2049291338437781, 0.75], 
        Hue[0.20492952024048, 0.75], 
        Hue[0.20492952024048, 0.75], 
        Hue[0.20492952024048, 0.75], 
        Hue[0.20492952024048, 0.75], 
        Hue[0.20492962209305343`, 0.75], 
        Hue[0.20492962209305343`, 0.75], 
        Hue[0.20492962209305343`, 0.75], 
        Hue[0.20492962209305343`, 0.75], 
        Hue[0.20492964894106613`, 0.75], 
        Hue[0.20492964894106613`, 0.75], 
        Hue[0.20492964894106613`, 0.75], 
        Hue[0.20492964894106613`, 0.75], 
        Hue[0.20492965601812307`, 0.75], 
        Hue[0.20492965601812307`, 0.75], 
        Hue[0.20492965601812307`, 0.75], 
        Hue[0.20492965601812307`, 0.75], 
        Hue[0.2049296578836149, 0.75], 
        Hue[0.2049296578836149, 0.75], 
        Hue[0.2049296578836149, 0.75], 
        Hue[0.2049296578836149, 0.75], 
        Hue[-0.09882636284631689, 0.75], 
        Hue[-0.09882636284631689, 0.75], 
        Hue[-0.09882636284631689, 0.75], 
        Hue[-0.09882636284631689, 0.75], 
        Hue[-0.09882636197899952, 0.75], 
        Hue[-0.09882636197899952, 0.75], 
        Hue[-0.09882636197899952, 0.75], 
        Hue[-0.09882636197899952, 0.75], 
        Hue[-0.09882635868868543, 0.75], 
        Hue[-0.09882635868868543, 0.75], 
        Hue[-0.09882635868868543, 0.75], 
        Hue[-0.09882635868868543, 0.75], 
        Hue[-0.09882634620632687, 0.75], 
        Hue[-0.09882634620632687, 0.75], 
        Hue[-0.09882634620632687, 0.75], 
        Hue[-0.09882634620632687, 0.75], 
        Hue[-0.09882629885241008, 0.75], 
        Hue[-0.09882629885241008, 0.75], 
        Hue[-0.09882629885241008, 0.75], 
        Hue[-0.09882629885241008, 0.75], 
        Hue[-0.09882611920746365, 0.75], 
        Hue[-0.09882611920746365, 0.75], 
        Hue[-0.09882611920746365, 0.75], 
        Hue[-0.09882611920746365, 0.75], 
        Hue[-0.09882543769545654, 0.75], 
        Hue[-0.09882543769545654, 0.75], 
        Hue[-0.09882543769545654, 0.75], 
        Hue[-0.09882543769545654, 0.75], 
        Hue[-0.09882285228334903, 0.75], 
        Hue[-0.09882285228334903, 0.75], 
        Hue[-0.09882285228334903, 0.75], 
        Hue[-0.09882285228334903, 0.75], 
        Hue[-0.09881304434914648, 0.75], 
        Hue[-0.09881304434914648, 0.75], 
        Hue[-0.09881304434914648, 0.75], 
        Hue[-0.09881304434914648, 0.75], 
        Hue[-0.09877584005682512, 0.75], 
        Hue[-0.09877584005682512, 0.75], 
        Hue[-0.09877584005682512, 0.75], 
        Hue[-0.09877584005682512, 0.75], 
        Hue[-0.09863475337760753, 0.75], 
        Hue[-0.09863475337760753, 0.75], 
        Hue[-0.09863475337760753, 0.75], 
        Hue[-0.09863475337760753, 0.75], 
        Hue[-0.09810029745243282, 0.75], 
        Hue[-0.09810029745243282, 0.75], 
        Hue[-0.09810029745243282, 0.75], 
        Hue[-0.09810029745243282, 0.75], 
        Hue[-0.09608409299345226, 0.75], 
        Hue[-0.09608409299345226, 0.75], 
        Hue[-0.09608409299345226, 0.75], 
        Hue[-0.09608409299345226, 0.75], 
        Hue[-0.08860433425528662, 0.75], 
        Hue[-0.08860433425528662, 0.75], 
        Hue[-0.08860433425528662, 0.75], 
        Hue[-0.08860433425528662, 0.75], 
        Hue[-0.06286261904958947, 0.75], 
        Hue[-0.06286261904958947, 0.75], 
        Hue[-0.06286261904958947, 0.75], 
        Hue[-0.06286261904958947, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0.06286261904958934, 0.75], 
        Hue[0.06286261904958934, 0.75], 
        Hue[0.06286261904958934, 0.75], 
        Hue[0.06286261904958934, 0.75], 
        Hue[0.08860433425528659, 0.75], 
        Hue[0.08860433425528659, 0.75], 
        Hue[0.08860433425528659, 0.75], 
        Hue[0.08860433425528659, 0.75], 
        Hue[0.09608409299345226, 0.75], 
        Hue[0.09608409299345226, 0.75], 
        Hue[0.09608409299345226, 0.75], 
        Hue[0.09608409299345226, 0.75], 
        Hue[0.09810029745243282, 0.75], 
        Hue[0.09810029745243282, 0.75], 
        Hue[0.09810029745243282, 0.75], 
        Hue[0.09810029745243282, 0.75], 
        Hue[0.09863475337760752, 0.75], 
        Hue[0.09863475337760752, 0.75], 
        Hue[0.09863475337760752, 0.75], 
        Hue[0.09863475337760752, 0.75], 
        Hue[0.09877584005682512, 0.75], 
        Hue[0.09877584005682512, 0.75], 
        Hue[0.09877584005682512, 0.75], 
        Hue[0.09877584005682512, 0.75], 
        Hue[0.09881304434914648, 0.75], 
        Hue[0.09881304434914648, 0.75], 
        Hue[0.09881304434914648, 0.75], 
        Hue[0.09881304434914648, 0.75], 
        Hue[0.09882285228334903, 0.75], 
        Hue[0.09882285228334903, 0.75], 
        Hue[0.09882285228334903, 0.75], 
        Hue[0.09882285228334903, 0.75], 
        Hue[0.09882543769545654, 0.75], 
        Hue[0.09882543769545654, 0.75], 
        Hue[0.09882543769545654, 0.75], 
        Hue[0.09882543769545654, 0.75], 
        Hue[0.09882611920746363, 0.75], 
        Hue[0.09882611920746363, 0.75], 
        Hue[0.09882611920746363, 0.75], 
        Hue[0.09882611920746363, 0.75], 
        Hue[0.09882629885241008, 0.75], 
        Hue[0.09882629885241008, 0.75], 
        Hue[0.09882629885241008, 0.75], 
        Hue[0.09882629885241008, 0.75], 
        Hue[0.09882634620632687, 0.75], 
        Hue[0.09882634620632687, 0.75], 
        Hue[0.09882634620632687, 0.75], 
        Hue[0.09882634620632687, 0.75], 
        Hue[0.09882635868868543, 0.75], 
        Hue[0.09882635868868543, 0.75], 
        Hue[0.09882635868868543, 0.75], 
        Hue[0.09882635868868543, 0.75], 
        Hue[0.09882636197899952, 0.75], 
        Hue[0.09882636197899952, 0.75], 
        Hue[0.09882636197899952, 0.75], 
        Hue[0.09882636197899952, 0.75], 
        Hue[0.007276932207865759, 0.75], 
        Hue[0.007276932207865759, 0.75], 
        Hue[0.007276932207865759, 0.75], 
        Hue[0.007276932207865759, 0.75], 
        Hue[0.007276932124178755, 0.75], 
        Hue[0.007276932124178755, 0.75], 
        Hue[0.007276932124178755, 0.75], 
        Hue[0.007276932124178755, 0.75], 
        Hue[0.007276931806698062, 0.75], 
        Hue[0.007276931806698062, 0.75], 
        Hue[0.007276931806698062, 0.75], 
        Hue[0.007276931806698062, 0.75], 
        Hue[0.007276930602281878, 0.75], 
        Hue[0.007276930602281878, 0.75], 
        Hue[0.007276930602281878, 0.75], 
        Hue[0.007276930602281878, 0.75], 
        Hue[0.007276926033128673, 0.75], 
        Hue[0.007276926033128673, 0.75], 
        Hue[0.007276926033128673, 0.75], 
        Hue[0.007276926033128673, 0.75], 
        Hue[0.007276908699304865, 0.75], 
        Hue[0.007276908699304865, 0.75], 
        Hue[0.007276908699304865, 0.75], 
        Hue[0.007276908699304865, 0.75], 
        Hue[0.0072768429409083854`, 0.75], 
        Hue[0.0072768429409083854`, 0.75], 
        Hue[0.0072768429409083854`, 0.75], 
        Hue[0.0072768429409083854`, 0.75], 
        Hue[0.007276593480778903, 0.75], 
        Hue[0.007276593480778903, 0.75], 
        Hue[0.007276593480778903, 0.75], 
        Hue[0.007276593480778903, 0.75], 
        Hue[0.007275647189432392, 0.75], 
        Hue[0.007275647189432392, 0.75], 
        Hue[0.007275647189432392, 0.75], 
        Hue[0.007275647189432392, 0.75], 
        Hue[0.007272058389883454, 0.75], 
        Hue[0.007272058389883454, 0.75], 
        Hue[0.007272058389883454, 0.75], 
        Hue[0.007272058389883454, 0.75], 
        Hue[0.007258459711282478, 0.75], 
        Hue[0.007258459711282478, 0.75], 
        Hue[0.007258459711282478, 0.75], 
        Hue[0.007258459711282478, 0.75], 
        Hue[0.007207100534668768, 0.75], 
        Hue[0.007207100534668768, 0.75], 
        Hue[0.007207100534668768, 0.75], 
        Hue[0.007207100534668768, 0.75], 
        Hue[0.007015508636229097, 0.75], 
        Hue[0.007015508636229097, 0.75], 
        Hue[0.007015508636229097, 0.75], 
        Hue[0.007015508636229097, 0.75], 
        Hue[0.006332451712510925, 0.75], 
        Hue[0.006332451712510925, 0.75], 
        Hue[0.006332451712510925, 0.75], 
        Hue[0.006332451712510925, 0.75], 
        Hue[0.004242824326539344, 0.75], 
        Hue[0.004242824326539344, 0.75], 
        Hue[0.004242824326539344, 0.75], 
        Hue[0.004242824326539344, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[-0.004242824326539336, 0.75], 
        Hue[-0.004242824326539336, 0.75], 
        Hue[-0.004242824326539336, 0.75], 
        Hue[-0.004242824326539336, 0.75], 
        Hue[-0.006332451712510922, 0.75], 
        Hue[-0.006332451712510922, 0.75], 
        Hue[-0.006332451712510922, 0.75], 
        Hue[-0.006332451712510922, 0.75], 
        Hue[-0.007015508636229097, 0.75], 
        Hue[-0.007015508636229097, 0.75], 
        Hue[-0.007015508636229097, 0.75], 
        Hue[-0.007015508636229097, 0.75], 
        Hue[-0.007207100534668766, 0.75], 
        Hue[-0.007207100534668766, 0.75], 
        Hue[-0.007207100534668766, 0.75], 
        Hue[-0.007207100534668766, 0.75], 
        Hue[-0.007258459711282478, 0.75], 
        Hue[-0.007258459711282478, 0.75], 
        Hue[-0.007258459711282478, 0.75], 
        Hue[-0.007258459711282478, 0.75], 
        Hue[-0.007272058389883454, 0.75], 
        Hue[-0.007272058389883454, 0.75], 
        Hue[-0.007272058389883454, 0.75], 
        Hue[-0.007272058389883454, 0.75], 
        Hue[-0.007275647189432392, 0.75], 
        Hue[-0.007275647189432392, 0.75], 
        Hue[-0.007275647189432392, 0.75], 
        Hue[-0.007275647189432392, 0.75], 
        Hue[-0.007276593480778903, 0.75], 
        Hue[-0.007276593480778903, 0.75], 
        Hue[-0.007276593480778903, 0.75], 
        Hue[-0.007276593480778903, 0.75], 
        Hue[-0.0072768429409083854`, 0.75], 
        Hue[-0.0072768429409083854`, 0.75], 
        Hue[-0.0072768429409083854`, 0.75], 
        Hue[-0.0072768429409083854`, 0.75], 
        Hue[-0.007276908699304864, 0.75], 
        Hue[-0.007276908699304864, 0.75], 
        Hue[-0.007276908699304864, 0.75], 
        Hue[-0.007276908699304864, 0.75], 
        Hue[-0.007276926033128673, 0.75], 
        Hue[-0.007276926033128673, 0.75], 
        Hue[-0.007276926033128673, 0.75], 
        Hue[-0.007276926033128673, 0.75], 
        Hue[-0.007276930602281878, 0.75], 
        Hue[-0.007276930602281878, 0.75], 
        Hue[-0.007276930602281878, 0.75], 
        Hue[-0.007276930602281878, 0.75], 
        Hue[-0.007276931806698062, 0.75], 
        Hue[-0.007276931806698062, 0.75], 
        Hue[-0.007276931806698062, 0.75], 
        Hue[-0.007276931806698062, 0.75], 
        Hue[-0.007276932124178756, 0.75], 
        Hue[-0.007276932124178756, 0.75], 
        Hue[-0.007276932124178756, 0.75], 
        Hue[-0.007276932124178756, 0.75], 
        Hue[0.11338022730786682`, 0.75], 
        Hue[0.11338022730786682`, 0.75], 
        Hue[0.11338022730786682`, 0.75], 
        Hue[0.11338022730786682`, 0.75], 
        Hue[0.1133802264011768, 0.75], 
        Hue[0.1133802264011768, 0.75], 
        Hue[0.1133802264011768, 0.75], 
        Hue[0.1133802264011768, 0.75], 
        Hue[0.11338022296149589`, 0.75], 
        Hue[0.11338022296149589`, 0.75], 
        Hue[0.11338022296149589`, 0.75], 
        Hue[0.11338022296149589`, 0.75], 
        Hue[0.11338020991248908`, 0.75], 
        Hue[0.11338020991248908`, 0.75], 
        Hue[0.11338020991248908`, 0.75], 
        Hue[0.11338020991248908`, 0.75], 
        Hue[0.11338016040889372`, 0.75], 
        Hue[0.11338016040889372`, 0.75], 
        Hue[0.11338016040889372`, 0.75], 
        Hue[0.11338016040889372`, 0.75], 
        Hue[0.11337997260873454`, 0.75], 
        Hue[0.11337997260873454`, 0.75], 
        Hue[0.11337997260873454`, 0.75], 
        Hue[0.11337997260873454`, 0.75], 
        Hue[0.11337926015789275`, 0.75], 
        Hue[0.11337926015789275`, 0.75], 
        Hue[0.11337926015789275`, 0.75], 
        Hue[0.11337926015789275`, 0.75], 
        Hue[0.11337655736453783`, 0.75], 
        Hue[0.11337655736453783`, 0.75], 
        Hue[0.11337655736453783`, 0.75], 
        Hue[0.11337655736453783`, 0.75], 
        Hue[0.11336630398694857`, 0.75], 
        Hue[0.11336630398694857`, 0.75], 
        Hue[0.11336630398694857`, 0.75], 
        Hue[0.11336630398694857`, 0.75], 
        Hue[0.1133274078459401, 0.75], 
        Hue[0.1133274078459401, 0.75], 
        Hue[0.1133274078459401, 0.75], 
        Hue[0.1133274078459401, 0.75], 
        Hue[0.11317987432127441`, 0.75], 
        Hue[0.11317987432127441`, 0.75], 
        Hue[0.11317987432127441`, 0.75], 
        Hue[0.11317987432127441`, 0.75], 
        Hue[0.11262055198558604`, 0.75], 
        Hue[0.11262055198558604`, 0.75], 
        Hue[0.11262055198558604`, 0.75], 
        Hue[0.11262055198558604`, 0.75], 
        Hue[0.11050420246061383`, 0.75], 
        Hue[0.11050420246061383`, 0.75], 
        Hue[0.11050420246061383`, 0.75], 
        Hue[0.11050420246061383`, 0.75], 
        Hue[0.10256545647440553`, 0.75], 
        Hue[0.10256545647440553`, 0.75], 
        Hue[0.10256545647440553`, 0.75], 
        Hue[0.10256545647440553`, 0.75], 
        Hue[0.07421707066580702, 0.75], 
        Hue[0.07421707066580702, 0.75], 
        Hue[0.07421707066580702, 0.75], 
        Hue[0.07421707066580702, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[-0.07421707066580689, 0.75], 
        Hue[-0.07421707066580689, 0.75], 
        Hue[-0.07421707066580689, 0.75], 
        Hue[-0.07421707066580689, 0.75], 
        Hue[-0.10256545647440551`, 0.75], 
        Hue[-0.10256545647440551`, 0.75], 
        Hue[-0.10256545647440551`, 0.75], 
        Hue[-0.10256545647440551`, 0.75], 
        Hue[-0.11050420246061383`, 0.75], 
        Hue[-0.11050420246061383`, 0.75], 
        Hue[-0.11050420246061383`, 0.75], 
        Hue[-0.11050420246061383`, 0.75], 
        Hue[-0.11262055198558603`, 0.75], 
        Hue[-0.11262055198558603`, 0.75], 
        Hue[-0.11262055198558603`, 0.75], 
        Hue[-0.11262055198558603`, 0.75], 
        Hue[-0.1131798743212744, 0.75], 
        Hue[-0.1131798743212744, 0.75], 
        Hue[-0.1131798743212744, 0.75], 
        Hue[-0.1131798743212744, 0.75], 
        Hue[-0.1133274078459401, 0.75], 
        Hue[-0.1133274078459401, 0.75], 
        Hue[-0.1133274078459401, 0.75], 
        Hue[-0.1133274078459401, 0.75], 
        Hue[-0.11336630398694857`, 0.75], 
        Hue[-0.11336630398694857`, 0.75], 
        Hue[-0.11336630398694857`, 0.75], 
        Hue[-0.11336630398694857`, 0.75], 
        Hue[-0.11337655736453782`, 0.75], 
        Hue[-0.11337655736453782`, 0.75], 
        Hue[-0.11337655736453782`, 0.75], 
        Hue[-0.11337655736453782`, 0.75], 
        Hue[-0.11337926015789275`, 0.75], 
        Hue[-0.11337926015789275`, 0.75], 
        Hue[-0.11337926015789275`, 0.75], 
        Hue[-0.11337926015789275`, 0.75], 
        Hue[-0.11337997260873454`, 0.75], 
        Hue[-0.11337997260873454`, 0.75], 
        Hue[-0.11337997260873454`, 0.75], 
        Hue[-0.11337997260873454`, 0.75], 
        Hue[-0.11338016040889375`, 0.75], 
        Hue[-0.11338016040889375`, 0.75], 
        Hue[-0.11338016040889375`, 0.75], 
        Hue[-0.11338016040889375`, 0.75], 
        Hue[-0.11338020991248908`, 0.75], 
        Hue[-0.11338020991248908`, 0.75], 
        Hue[-0.11338020991248908`, 0.75], 
        Hue[-0.11338020991248908`, 0.75], 
        Hue[-0.11338022296149589`, 0.75], 
        Hue[-0.11338022296149589`, 0.75], 
        Hue[-0.11338022296149589`, 0.75], 
        Hue[-0.11338022296149589`, 0.75], 
        Hue[-0.1133802264011768, 0.75], 
        Hue[-0.1133802264011768, 0.75], 
        Hue[-0.1133802264011768, 0.75], 
        Hue[-0.1133802264011768, 0.75], 
        Hue[0.21948352290427783`, 0.75], 
        Hue[0.21948352290427783`, 0.75], 
        Hue[0.21948352290427783`, 0.75], 
        Hue[0.21948352290427783`, 0.75], 
        Hue[0.21948352256138973`, 0.75], 
        Hue[0.21948352256138973`, 0.75], 
        Hue[0.21948352256138973`, 0.75], 
        Hue[0.21948352256138973`, 0.75], 
        Hue[0.219483521260586, 0.75], 
        Hue[0.219483521260586, 0.75], 
        Hue[0.219483521260586, 0.75], 
        Hue[0.219483521260586, 0.75], 
        Hue[0.21948351632576818`, 0.75], 
        Hue[0.21948351632576818`, 0.75], 
        Hue[0.21948351632576818`, 0.75], 
        Hue[0.21948351632576818`, 0.75], 
        Hue[0.21948349760470137`, 0.75], 
        Hue[0.21948349760470137`, 0.75], 
        Hue[0.21948349760470137`, 0.75], 
        Hue[0.21948349760470137`, 0.75], 
        Hue[0.21948342658309197`, 0.75], 
        Hue[0.21948342658309197`, 0.75], 
        Hue[0.21948342658309197`, 0.75], 
        Hue[0.21948342658309197`, 0.75], 
        Hue[0.21948315714926409`, 0.75], 
        Hue[0.21948315714926409`, 0.75], 
        Hue[0.21948315714926409`, 0.75], 
        Hue[0.21948315714926409`, 0.75], 
        Hue[0.21948213498624147`, 0.75], 
        Hue[0.21948213498624147`, 0.75], 
        Hue[0.21948213498624147`, 0.75], 
        Hue[0.21948213498624147`, 0.75], 
        Hue[0.21947825694328016`, 0.75], 
        Hue[0.21947825694328016`, 0.75], 
        Hue[0.21947825694328016`, 0.75], 
        Hue[0.21947825694328016`, 0.75], 
        Hue[0.2194635406761262, 0.75], 
        Hue[0.2194635406761262, 0.75], 
        Hue[0.2194635406761262, 0.75], 
        Hue[0.2194635406761262, 0.75], 
        Hue[0.2194076506679703, 0.75], 
        Hue[0.2194076506679703, 0.75], 
        Hue[0.2194076506679703, 0.75], 
        Hue[0.2194076506679703, 0.75], 
        Hue[0.21919473550631458`, 0.75], 
        Hue[0.21919473550631458`, 0.75], 
        Hue[0.21919473550631458`, 0.75], 
        Hue[0.21919473550631458`, 0.75], 
        Hue[0.21837403569305433`, 0.75], 
        Hue[0.21837403569305433`, 0.75], 
        Hue[0.21837403569305433`, 0.75], 
        Hue[0.21837403569305433`, 0.75], 
        Hue[0.21506208265007934`, 0.75], 
        Hue[0.21506208265007934`, 0.75], 
        Hue[0.21506208265007934`, 0.75], 
        Hue[0.21506208265007934`, 0.75], 
        Hue[0.19882510909946705`, 0.75], 
        Hue[0.19882510909946705`, 0.75], 
        Hue[0.19882510909946705`, 0.75], 
        Hue[0.19882510909946705`, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[-0.19882510909946696`, 0.75], 
        Hue[-0.19882510909946696`, 0.75], 
        Hue[-0.19882510909946696`, 0.75], 
        Hue[-0.19882510909946696`, 0.75], 
        Hue[-0.21506208265007934`, 0.75], 
        Hue[-0.21506208265007934`, 0.75], 
        Hue[-0.21506208265007934`, 0.75], 
        Hue[-0.21506208265007934`, 0.75], 
        Hue[-0.21837403569305433`, 0.75], 
        Hue[-0.21837403569305433`, 0.75], 
        Hue[-0.21837403569305433`, 0.75], 
        Hue[-0.21837403569305433`, 0.75], 
        Hue[-0.21919473550631458`, 0.75], 
        Hue[-0.21919473550631458`, 0.75], 
        Hue[-0.21919473550631458`, 0.75], 
        Hue[-0.21919473550631458`, 0.75], 
        Hue[-0.2194076506679703, 0.75], 
        Hue[-0.2194076506679703, 0.75], 
        Hue[-0.2194076506679703, 0.75], 
        Hue[-0.2194076506679703, 0.75], 
        Hue[-0.2194635406761262, 0.75], 
        Hue[-0.2194635406761262, 0.75], 
        Hue[-0.2194635406761262, 0.75], 
        Hue[-0.2194635406761262, 0.75], 
        Hue[-0.21947825694328016`, 0.75], 
        Hue[-0.21947825694328016`, 0.75], 
        Hue[-0.21947825694328016`, 0.75], 
        Hue[-0.21947825694328016`, 0.75], 
        Hue[-0.21948213498624147`, 0.75], 
        Hue[-0.21948213498624147`, 0.75], 
        Hue[-0.21948213498624147`, 0.75], 
        Hue[-0.21948213498624147`, 0.75], 
        Hue[-0.21948315714926409`, 0.75], 
        Hue[-0.21948315714926409`, 0.75], 
        Hue[-0.21948315714926409`, 0.75], 
        Hue[-0.21948315714926409`, 0.75], 
        Hue[-0.21948342658309197`, 0.75], 
        Hue[-0.21948342658309197`, 0.75], 
        Hue[-0.21948342658309197`, 0.75], 
        Hue[-0.21948342658309197`, 0.75], 
        Hue[-0.21948349760470137`, 0.75], 
        Hue[-0.21948349760470137`, 0.75], 
        Hue[-0.21948349760470137`, 0.75], 
        Hue[-0.21948349760470137`, 0.75], 
        Hue[-0.21948351632576818`, 0.75], 
        Hue[-0.21948351632576818`, 0.75], 
        Hue[-0.21948351632576818`, 0.75], 
        Hue[-0.21948351632576818`, 0.75], 
        Hue[-0.21948352126058598`, 0.75], 
        Hue[-0.21948352126058598`, 0.75], 
        Hue[-0.21948352126058598`, 0.75], 
        Hue[-0.21948352126058598`, 0.75], 
        Hue[-0.21948352256138973`, 0.75], 
        Hue[-0.21948352256138973`, 0.75], 
        Hue[-0.21948352256138973`, 0.75], 
        Hue[-0.21948352256138973`, 0.75], 
        Hue[0.32558681868841927`, 0.75], 
        Hue[0.32558681868841927`, 0.75], 
        Hue[0.32558681868841927`, 0.75], 
        Hue[0.32558681868841927`, 0.75], 
        Hue[0.325586819433789, 0.75], 
        Hue[0.325586819433789, 0.75], 
        Hue[0.325586819433789, 0.75], 
        Hue[0.325586819433789, 0.75], 
        Hue[0.3255868222614741, 0.75], 
        Hue[0.3255868222614741, 0.75], 
        Hue[0.3255868222614741, 0.75], 
        Hue[0.3255868222614741, 0.75], 
        Hue[0.3255868329887733, 0.75], 
        Hue[0.3255868329887733, 0.75], 
        Hue[0.3255868329887733, 0.75], 
        Hue[0.3255868329887733, 0.75], 
        Hue[0.32558687368459305`, 0.75], 
        Hue[0.32558687368459305`, 0.75], 
        Hue[0.32558687368459305`, 0.75], 
        Hue[0.32558687368459305`, 0.75], 
        Hue[0.3255870280711533, 0.75], 
        Hue[0.3255870280711533, 0.75], 
        Hue[0.3255870280711533, 0.75], 
        Hue[0.3255870280711533, 0.75], 
        Hue[0.32558761376443845`, 0.75], 
        Hue[0.32558761376443845`, 0.75], 
        Hue[0.32558761376443845`, 0.75], 
        Hue[0.32558761376443845`, 0.75], 
        Hue[0.32558983571828914`, 0.75], 
        Hue[0.32558983571828914`, 0.75], 
        Hue[0.32558983571828914`, 0.75], 
        Hue[0.32558983571828914`, 0.75], 
        Hue[0.3255982654768123, 0.75], 
        Hue[0.3255982654768123, 0.75], 
        Hue[0.3255982654768123, 0.75], 
        Hue[0.3255982654768123, 0.75], 
        Hue[0.32563025098912884`, 0.75], 
        Hue[0.32563025098912884`, 0.75], 
        Hue[0.32563025098912884`, 0.75], 
        Hue[0.32563025098912884`, 0.75], 
        Hue[0.3257516770103472, 0.75], 
        Hue[0.3257516770103472, 0.75], 
        Hue[0.3257516770103472, 0.75], 
        Hue[0.3257516770103472, 0.75], 
        Hue[0.3262135314615559, 0.75], 
        Hue[0.3262135314615559, 0.75], 
        Hue[0.3262135314615559, 0.75], 
        Hue[0.3262135314615559, 0.75], 
        Hue[0.32798304882570983`, 0.75], 
        Hue[0.32798304882570983`, 0.75], 
        Hue[0.32798304882570983`, 0.75], 
        Hue[0.32798304882570983`, 0.75], 
        Hue[0.3349492362429095, 0.75], 
        Hue[0.3349492362429095, 0.75], 
        Hue[0.3349492362429095, 0.75], 
        Hue[0.3349492362429095, 0.75], 
        Hue[0.3650593320155424, 0.75], 
        Hue[0.3650593320155424, 0.75], 
        Hue[0.3650593320155424, 0.75], 
        Hue[0.3650593320155424, 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[-0.3650593320155425, 0.75], 
        Hue[-0.3650593320155425, 0.75], 
        Hue[-0.3650593320155425, 0.75], 
        Hue[-0.3650593320155425, 0.75], 
        Hue[-0.33494923624290956`, 0.75], 
        Hue[-0.33494923624290956`, 0.75], 
        Hue[-0.33494923624290956`, 0.75], 
        Hue[-0.33494923624290956`, 0.75], 
        Hue[-0.32798304882570983`, 0.75], 
        Hue[-0.32798304882570983`, 0.75], 
        Hue[-0.32798304882570983`, 0.75], 
        Hue[-0.32798304882570983`, 0.75], 
        Hue[-0.3262135314615559, 0.75], 
        Hue[-0.3262135314615559, 0.75], 
        Hue[-0.3262135314615559, 0.75], 
        Hue[-0.3262135314615559, 0.75], 
        Hue[-0.3257516770103472, 0.75], 
        Hue[-0.3257516770103472, 0.75], 
        Hue[-0.3257516770103472, 0.75], 
        Hue[-0.3257516770103472, 0.75], 
        Hue[-0.32563025098912884`, 0.75], 
        Hue[-0.32563025098912884`, 0.75], 
        Hue[-0.32563025098912884`, 0.75], 
        Hue[-0.32563025098912884`, 0.75], 
        Hue[-0.3255982654768123, 0.75], 
        Hue[-0.3255982654768123, 0.75], 
        Hue[-0.3255982654768123, 0.75], 
        Hue[-0.3255982654768123, 0.75], 
        Hue[-0.32558983571828914`, 0.75], 
        Hue[-0.32558983571828914`, 0.75], 
        Hue[-0.32558983571828914`, 0.75], 
        Hue[-0.32558983571828914`, 0.75], 
        Hue[-0.32558761376443845`, 0.75], 
        Hue[-0.32558761376443845`, 0.75], 
        Hue[-0.32558761376443845`, 0.75], 
        Hue[-0.32558761376443845`, 0.75], 
        Hue[-0.3255870280711533, 0.75], 
        Hue[-0.3255870280711533, 0.75], 
        Hue[-0.3255870280711533, 0.75], 
        Hue[-0.3255870280711533, 0.75], 
        Hue[-0.32558687368459305`, 0.75], 
        Hue[-0.32558687368459305`, 0.75], 
        Hue[-0.32558687368459305`, 0.75], 
        Hue[-0.32558687368459305`, 0.75], 
        Hue[-0.3255868329887733, 0.75], 
        Hue[-0.3255868329887733, 0.75], 
        Hue[-0.3255868329887733, 0.75], 
        Hue[-0.3255868329887733, 0.75], 
        Hue[-0.3255868222614741, 0.75], 
        Hue[-0.3255868222614741, 0.75], 
        Hue[-0.3255868222614741, 0.75], 
        Hue[-0.3255868222614741, 0.75], 
        Hue[-0.325586819433789, 0.75], 
        Hue[-0.325586819433789, 0.75], 
        Hue[-0.325586819433789, 0.75], 
        Hue[-0.325586819433789, 0.75], 
        Hue[0.43169011406447294`, 0.75], 
        Hue[0.43169011406447294`, 0.75], 
        Hue[0.43169011406447294`, 0.75], 
        Hue[0.43169011406447294`, 0.75], 
        Hue[0.431690114758039, 0.75], 
        Hue[0.431690114758039, 0.75], 
        Hue[0.431690114758039, 0.75], 
        Hue[0.431690114758039, 0.75], 
        Hue[0.43169011738919816`, 0.75], 
        Hue[0.43169011738919816`, 0.75], 
        Hue[0.43169011738919816`, 0.75], 
        Hue[0.43169011738919816`, 0.75], 
        Hue[0.43169012737094165`, 0.75], 
        Hue[0.43169012737094165`, 0.75], 
        Hue[0.43169012737094165`, 0.75], 
        Hue[0.43169012737094165`, 0.75], 
        Hue[0.4316901652383515, 0.75], 
        Hue[0.4316901652383515, 0.75], 
        Hue[0.4316901652383515, 0.75], 
        Hue[0.4316901652383515, 0.75], 
        Hue[0.431690308894587, 0.75], 
        Hue[0.431690308894587, 0.75], 
        Hue[0.431690308894587, 0.75], 
        Hue[0.431690308894587, 0.75], 
        Hue[0.4316908538765989, 0.75], 
        Hue[0.4316908538765989, 0.75], 
        Hue[0.4316908538765989, 0.75], 
        Hue[0.4316908538765989, 0.75], 
        Hue[0.43169292132804965`, 0.75], 
        Hue[0.43169292132804965`, 0.75], 
        Hue[0.43169292132804965`, 0.75], 
        Hue[0.43169292132804965`, 0.75], 
        Hue[0.43170076413041497`, 0.75], 
        Hue[0.43170076413041497`, 0.75], 
        Hue[0.43170076413041497`, 0.75], 
        Hue[0.43170076413041497`, 0.75], 
        Hue[0.4317305110477761, 0.75], 
        Hue[0.4317305110477761, 0.75], 
        Hue[0.4317305110477761, 0.75], 
        Hue[0.4317305110477761, 0.75], 
        Hue[0.43184327365115605`, 0.75], 
        Hue[0.43184327365115605`, 0.75], 
        Hue[0.43184327365115605`, 0.75], 
        Hue[0.43184327365115605`, 0.75], 
        Hue[0.432269802949216, 0.75], 
        Hue[0.432269802949216, 0.75], 
        Hue[0.432269802949216, 0.75], 
        Hue[0.432269802949216, 0.75], 
        Hue[0.43386997655371023`, 0.75], 
        Hue[0.43386997655371023`, 0.75], 
        Hue[0.43386997655371023`, 0.75], 
        Hue[0.43386997655371023`, 0.75], 
        Hue[0.4396889805397501, 0.75], 
        Hue[0.4396889805397501, 0.75], 
        Hue[0.4396889805397501, 0.75], 
        Hue[0.4396889805397501, 0.75], 
        Hue[0.4585166568751331, 0.75], 
        Hue[0.4585166568751331, 0.75], 
        Hue[0.4585166568751331, 0.75], 
        Hue[0.4585166568751331, 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[-0.45851665687513316`, 0.75], 
        Hue[-0.45851665687513316`, 0.75], 
        Hue[-0.45851665687513316`, 0.75], 
        Hue[-0.45851665687513316`, 0.75], 
        Hue[-0.4396889805397501, 0.75], 
        Hue[-0.4396889805397501, 0.75], 
        Hue[-0.4396889805397501, 0.75], 
        Hue[-0.4396889805397501, 0.75], 
        Hue[-0.43386997655371023`, 0.75], 
        Hue[-0.43386997655371023`, 0.75], 
        Hue[-0.43386997655371023`, 0.75], 
        Hue[-0.43386997655371023`, 0.75], 
        Hue[-0.432269802949216, 0.75], 
        Hue[-0.432269802949216, 0.75], 
        Hue[-0.432269802949216, 0.75], 
        Hue[-0.432269802949216, 0.75], 
        Hue[-0.43184327365115605`, 0.75], 
        Hue[-0.43184327365115605`, 0.75], 
        Hue[-0.43184327365115605`, 0.75], 
        Hue[-0.43184327365115605`, 0.75], 
        Hue[-0.4317305110477761, 0.75], 
        Hue[-0.4317305110477761, 0.75], 
        Hue[-0.4317305110477761, 0.75], 
        Hue[-0.4317305110477761, 0.75], 
        Hue[-0.43170076413041497`, 0.75], 
        Hue[-0.43170076413041497`, 0.75], 
        Hue[-0.43170076413041497`, 0.75], 
        Hue[-0.43170076413041497`, 0.75], 
        Hue[-0.43169292132804965`, 0.75], 
        Hue[-0.43169292132804965`, 0.75], 
        Hue[-0.43169292132804965`, 0.75], 
        Hue[-0.43169292132804965`, 0.75], 
        Hue[-0.4316908538765989, 0.75], 
        Hue[-0.4316908538765989, 0.75], 
        Hue[-0.4316908538765989, 0.75], 
        Hue[-0.4316908538765989, 0.75], 
        Hue[-0.431690308894587, 0.75], 
        Hue[-0.431690308894587, 0.75], 
        Hue[-0.431690308894587, 0.75], 
        Hue[-0.431690308894587, 0.75], 
        Hue[-0.4316901652383515, 0.75], 
        Hue[-0.4316901652383515, 0.75], 
        Hue[-0.4316901652383515, 0.75], 
        Hue[-0.4316901652383515, 0.75], 
        Hue[-0.43169012737094165`, 0.75], 
        Hue[-0.43169012737094165`, 0.75], 
        Hue[-0.43169012737094165`, 0.75], 
        Hue[-0.43169012737094165`, 0.75], 
        Hue[-0.43169011738919816`, 0.75], 
        Hue[-0.43169011738919816`, 0.75], 
        Hue[-0.43169011738919816`, 0.75], 
        Hue[-0.43169011738919816`, 0.75], 
        Hue[-0.431690114758039, 0.75], 
        Hue[-0.431690114758039, 0.75], 
        Hue[-0.431690114758039, 0.75], 
        Hue[-0.431690114758039, 0.75], 
        Hue[-0.4622065909391989, 0.75], 
        Hue[-0.4622065909391989, 0.75], 
        Hue[-0.4622065909391989, 0.75], 
        Hue[-0.4622065909391989, 0.75], 
        Hue[-0.462206591358263, 0.75], 
        Hue[-0.462206591358263, 0.75], 
        Hue[-0.462206591358263, 0.75], 
        Hue[-0.462206591358263, 0.75], 
        Hue[-0.46220659294805305`, 0.75], 
        Hue[-0.46220659294805305`, 0.75], 
        Hue[-0.46220659294805305`, 0.75], 
        Hue[-0.46220659294805305`, 0.75], 
        Hue[-0.46220659897918787`, 0.75], 
        Hue[-0.46220659897918787`, 0.75], 
        Hue[-0.46220659897918787`, 0.75], 
        Hue[-0.46220659897918787`, 0.75], 
        Hue[-0.4622066218593024, 0.75], 
        Hue[-0.4622066218593024, 0.75], 
        Hue[-0.4622066218593024, 0.75], 
        Hue[-0.4622066218593024, 0.75], 
        Hue[-0.46220670865874197`, 0.75], 
        Hue[-0.46220670865874197`, 0.75], 
        Hue[-0.46220670865874197`, 0.75], 
        Hue[-0.46220670865874197`, 0.75], 
        Hue[-0.46220703794531487`, 0.75], 
        Hue[-0.46220703794531487`, 0.75], 
        Hue[-0.46220703794531487`, 0.75], 
        Hue[-0.46220703794531487`, 0.75], 
        Hue[-0.46220828712511913`, 0.75], 
        Hue[-0.46220828712511913`, 0.75], 
        Hue[-0.46220828712511913`, 0.75], 
        Hue[-0.46220828712511913`, 0.75], 
        Hue[-0.46221302575168105`, 0.75], 
        Hue[-0.46221302575168105`, 0.75], 
        Hue[-0.46221302575168105`, 0.75], 
        Hue[-0.46221302575168105`, 0.75], 
        Hue[-0.46223099753797914`, 0.75], 
        Hue[-0.46223099753797914`, 0.75], 
        Hue[-0.46223099753797914`, 0.75], 
        Hue[-0.46223099753797914`, 0.75], 
        Hue[-0.46229910479585595`, 0.75], 
        Hue[-0.46229910479585595`, 0.75], 
        Hue[-0.46229910479585595`, 0.75], 
        Hue[-0.46229910479585595`, 0.75], 
        Hue[-0.46255645272439083`, 0.75], 
        Hue[-0.46255645272439083`, 0.75], 
        Hue[-0.46255645272439083`, 0.75], 
        Hue[-0.46255645272439083`, 0.75], 
        Hue[-0.46351815793659, 0.75], 
        Hue[-0.46351815793659, 0.75], 
        Hue[-0.46351815793659, 0.75], 
        Hue[-0.46351815793659, 0.75], 
        Hue[-0.46696768841512903`, 0.75], 
        Hue[-0.46696768841512903`, 0.75], 
        Hue[-0.46696768841512903`, 0.75], 
        Hue[-0.46696768841512903`, 0.75], 
        Hue[-0.47769821967798454`, 0.75], 
        Hue[-0.47769821967798454`, 0.75], 
        Hue[-0.47769821967798454`, 0.75], 
        Hue[-0.47769821967798454`, 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[0.4776982196779846, 0.75], 
        Hue[0.4776982196779846, 0.75], 
        Hue[0.4776982196779846, 0.75], 
        Hue[0.4776982196779846, 0.75], 
        Hue[0.46696768841512903`, 0.75], 
        Hue[0.46696768841512903`, 0.75], 
        Hue[0.46696768841512903`, 0.75], 
        Hue[0.46696768841512903`, 0.75], 
        Hue[0.46351815793659, 0.75], 
        Hue[0.46351815793659, 0.75], 
        Hue[0.46351815793659, 0.75], 
        Hue[0.46351815793659, 0.75], 
        Hue[0.4625564527243908, 0.75], 
        Hue[0.4625564527243908, 0.75], 
        Hue[0.4625564527243908, 0.75], 
        Hue[0.4625564527243908, 0.75], 
        Hue[0.46229910479585584`, 0.75], 
        Hue[0.46229910479585584`, 0.75], 
        Hue[0.46229910479585584`, 0.75], 
        Hue[0.46229910479585584`, 0.75], 
        Hue[0.46223099753797914`, 0.75], 
        Hue[0.46223099753797914`, 0.75], 
        Hue[0.46223099753797914`, 0.75], 
        Hue[0.46223099753797914`, 0.75], 
        Hue[0.46221302575168105`, 0.75], 
        Hue[0.46221302575168105`, 0.75], 
        Hue[0.46221302575168105`, 0.75], 
        Hue[0.46221302575168105`, 0.75], 
        Hue[0.46220828712511913`, 0.75], 
        Hue[0.46220828712511913`, 0.75], 
        Hue[0.46220828712511913`, 0.75], 
        Hue[0.46220828712511913`, 0.75], 
        Hue[0.46220703794531487`, 0.75], 
        Hue[0.46220703794531487`, 0.75], 
        Hue[0.46220703794531487`, 0.75], 
        Hue[0.46220703794531487`, 0.75], 
        Hue[0.46220670865874197`, 0.75], 
        Hue[0.46220670865874197`, 0.75], 
        Hue[0.46220670865874197`, 0.75], 
        Hue[0.46220670865874197`, 0.75], 
        Hue[0.4622066218593024, 0.75], 
        Hue[0.4622066218593024, 0.75], 
        Hue[0.4622066218593024, 0.75], 
        Hue[0.4622066218593024, 0.75], 
        Hue[0.46220659897918787`, 0.75], 
        Hue[0.46220659897918787`, 0.75], 
        Hue[0.46220659897918787`, 0.75], 
        Hue[0.46220659897918787`, 0.75], 
        Hue[0.46220659294805305`, 0.75], 
        Hue[0.46220659294805305`, 0.75], 
        Hue[0.46220659294805305`, 0.75], 
        Hue[0.46220659294805305`, 0.75], 
        Hue[0.462206591358263, 0.75], 
        Hue[0.462206591358263, 0.75], 
        Hue[0.462206591358263, 0.75], 
        Hue[0.462206591358263, 0.75], 
        Hue[-0.35610329571343435`, 0.75], 
        Hue[-0.35610329571343435`, 0.75], 
        Hue[-0.35610329571343435`, 0.75], 
        Hue[-0.35610329571343435`, 0.75], 
        Hue[-0.3561032966041596, 0.75], 
        Hue[-0.3561032966041596, 0.75], 
        Hue[-0.3561032966041596, 0.75], 
        Hue[-0.3561032966041596, 0.75], 
        Hue[-0.3561032999832756, 0.75], 
        Hue[-0.3561032999832756, 0.75], 
        Hue[-0.3561032999832756, 0.75], 
        Hue[-0.3561032999832756, 0.75], 
        Hue[-0.3561033128025199, 0.75], 
        Hue[-0.3561033128025199, 0.75], 
        Hue[-0.3561033128025199, 0.75], 
        Hue[-0.3561033128025199, 0.75], 
        Hue[-0.3561033614344796, 0.75], 
        Hue[-0.3561033614344796, 0.75], 
        Hue[-0.3561033614344796, 0.75], 
        Hue[-0.3561033614344796, 0.75], 
        Hue[-0.35610354592804955`, 0.75], 
        Hue[-0.35610354592804955`, 0.75], 
        Hue[-0.35610354592804955`, 0.75], 
        Hue[-0.35610354592804955`, 0.75], 
        Hue[-0.3561042458363236, 0.75], 
        Hue[-0.3561042458363236, 0.75], 
        Hue[-0.3561042458363236, 0.75], 
        Hue[-0.3561042458363236, 0.75], 
        Hue[-0.3561069010694194, 0.75], 
        Hue[-0.3561069010694194, 0.75], 
        Hue[-0.3561069010694194, 0.75], 
        Hue[-0.3561069010694194, 0.75], 
        Hue[-0.3561169743369152, 0.75], 
        Hue[-0.3561169743369152, 0.75], 
        Hue[-0.3561169743369152, 0.75], 
        Hue[-0.3561169743369152, 0.75], 
        Hue[-0.35615519177305954`, 0.75], 
        Hue[-0.35615519177305954`, 0.75], 
        Hue[-0.35615519177305954`, 0.75], 
        Hue[-0.35615519177305954`, 0.75], 
        Hue[-0.3563002163421313, 0.75], 
        Hue[-0.3563002163421313, 0.75], 
        Hue[-0.3563002163421313, 0.75], 
        Hue[-0.3563002163421313, 0.75], 
        Hue[-0.3568509684557805, 0.75], 
        Hue[-0.3568509684557805, 0.75], 
        Hue[-0.3568509684557805, 0.75], 
        Hue[-0.3568509684557805, 0.75], 
        Hue[-0.35894847486671366`, 0.75], 
        Hue[-0.35894847486671366`, 0.75], 
        Hue[-0.35894847486671366`, 0.75], 
        Hue[-0.35894847486671366`, 0.75], 
        Hue[-0.3670130831967591, 0.75], 
        Hue[-0.3670130831967591, 0.75], 
        Hue[-0.3670130831967591, 0.75], 
        Hue[-0.3670130831967591, 0.75], 
        Hue[-0.3985392693781568, 0.75], 
        Hue[-0.3985392693781568, 0.75], 
        Hue[-0.3985392693781568, 0.75], 
        Hue[-0.3985392693781568, 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[0.398539269378157, 0.75], 
        Hue[0.398539269378157, 0.75], 
        Hue[0.398539269378157, 0.75], 
        Hue[0.398539269378157, 0.75], 
        Hue[0.3670130831967591, 0.75], 
        Hue[0.3670130831967591, 0.75], 
        Hue[0.3670130831967591, 0.75], 
        Hue[0.3670130831967591, 0.75], 
        Hue[0.35894847486671366`, 0.75], 
        Hue[0.35894847486671366`, 0.75], 
        Hue[0.35894847486671366`, 0.75], 
        Hue[0.35894847486671366`, 0.75], 
        Hue[0.3568509684557805, 0.75], 
        Hue[0.3568509684557805, 0.75], 
        Hue[0.3568509684557805, 0.75], 
        Hue[0.3568509684557805, 0.75], 
        Hue[0.35630021634213127`, 0.75], 
        Hue[0.35630021634213127`, 0.75], 
        Hue[0.35630021634213127`, 0.75], 
        Hue[0.35630021634213127`, 0.75], 
        Hue[0.35615519177305954`, 0.75], 
        Hue[0.35615519177305954`, 0.75], 
        Hue[0.35615519177305954`, 0.75], 
        Hue[0.35615519177305954`, 0.75], 
        Hue[0.3561169743369152, 0.75], 
        Hue[0.3561169743369152, 0.75], 
        Hue[0.3561169743369152, 0.75], 
        Hue[0.3561169743369152, 0.75], 
        Hue[0.3561069010694194, 0.75], 
        Hue[0.3561069010694194, 0.75], 
        Hue[0.3561069010694194, 0.75], 
        Hue[0.3561069010694194, 0.75], 
        Hue[0.3561042458363236, 0.75], 
        Hue[0.3561042458363236, 0.75], 
        Hue[0.3561042458363236, 0.75], 
        Hue[0.3561042458363236, 0.75], 
        Hue[0.35610354592804955`, 0.75], 
        Hue[0.35610354592804955`, 0.75], 
        Hue[0.35610354592804955`, 0.75], 
        Hue[0.35610354592804955`, 0.75], 
        Hue[0.3561033614344796, 0.75], 
        Hue[0.3561033614344796, 0.75], 
        Hue[0.3561033614344796, 0.75], 
        Hue[0.3561033614344796, 0.75], 
        Hue[0.3561033128025199, 0.75], 
        Hue[0.3561033128025199, 0.75], 
        Hue[0.3561033128025199, 0.75], 
        Hue[0.3561033128025199, 0.75], 
        Hue[0.3561032999832756, 0.75], 
        Hue[0.3561032999832756, 0.75], 
        Hue[0.3561032999832756, 0.75], 
        Hue[0.3561032999832756, 0.75], 
        Hue[0.3561032966041596, 0.75], 
        Hue[0.3561032966041596, 0.75], 
        Hue[0.3561032966041596, 0.75], 
        Hue[0.3561032966041596, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[-0.25, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[0.25, 0.75], 
        Hue[-0.14389670428656598`, 0.75], 
        Hue[-0.14389670428656598`, 0.75], 
        Hue[-0.14389670428656598`, 0.75], 
        Hue[-0.14389670428656598`, 0.75], 
        Hue[-0.1438967033958407, 0.75], 
        Hue[-0.1438967033958407, 0.75], 
        Hue[-0.1438967033958407, 0.75], 
        Hue[-0.1438967033958407, 0.75], 
        Hue[-0.1438967000167247, 0.75], 
        Hue[-0.1438967000167247, 0.75], 
        Hue[-0.1438967000167247, 0.75], 
        Hue[-0.1438967000167247, 0.75], 
        Hue[-0.14389668719748047`, 0.75], 
        Hue[-0.14389668719748047`, 0.75], 
        Hue[-0.14389668719748047`, 0.75], 
        Hue[-0.14389668719748047`, 0.75], 
        Hue[-0.14389663856552068`, 0.75], 
        Hue[-0.14389663856552068`, 0.75], 
        Hue[-0.14389663856552068`, 0.75], 
        Hue[-0.14389663856552068`, 0.75], 
        Hue[-0.1438964540719508, 0.75], 
        Hue[-0.1438964540719508, 0.75], 
        Hue[-0.1438964540719508, 0.75], 
        Hue[-0.1438964540719508, 0.75], 
        Hue[-0.14389575416367667`, 0.75], 
        Hue[-0.14389575416367667`, 0.75], 
        Hue[-0.14389575416367667`, 0.75], 
        Hue[-0.14389575416367667`, 0.75], 
        Hue[-0.14389309893058094`, 0.75], 
        Hue[-0.14389309893058094`, 0.75], 
        Hue[-0.14389309893058094`, 0.75], 
        Hue[-0.14389309893058094`, 0.75], 
        Hue[-0.1438830256630851, 0.75], 
        Hue[-0.1438830256630851, 0.75], 
        Hue[-0.1438830256630851, 0.75], 
        Hue[-0.1438830256630851, 0.75], 
        Hue[-0.1438448082269408, 0.75], 
        Hue[-0.1438448082269408, 0.75], 
        Hue[-0.1438448082269408, 0.75], 
        Hue[-0.1438448082269408, 0.75], 
        Hue[-0.14369978365786903`, 0.75], 
        Hue[-0.14369978365786903`, 0.75], 
        Hue[-0.14369978365786903`, 0.75], 
        Hue[-0.14369978365786903`, 0.75], 
        Hue[-0.1431490315442198, 0.75], 
        Hue[-0.1431490315442198, 0.75], 
        Hue[-0.1431490315442198, 0.75], 
        Hue[-0.1431490315442198, 0.75], 
        Hue[-0.14105152513328664`, 0.75], 
        Hue[-0.14105152513328664`, 0.75], 
        Hue[-0.14105152513328664`, 0.75], 
        Hue[-0.14105152513328664`, 0.75], 
        Hue[-0.13298691680324123`, 0.75], 
        Hue[-0.13298691680324123`, 0.75], 
        Hue[-0.13298691680324123`, 0.75], 
        Hue[-0.13298691680324123`, 0.75], 
        Hue[-0.10146073062184352`, 0.75], 
        Hue[-0.10146073062184352`, 0.75], 
        Hue[-0.10146073062184352`, 0.75], 
        Hue[-0.10146073062184352`, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0.10146073062184335`, 0.75], 
        Hue[0.10146073062184335`, 0.75], 
        Hue[0.10146073062184335`, 0.75], 
        Hue[0.10146073062184335`, 0.75], 
        Hue[0.13298691680324123`, 0.75], 
        Hue[0.13298691680324123`, 0.75], 
        Hue[0.13298691680324123`, 0.75], 
        Hue[0.13298691680324123`, 0.75], 
        Hue[0.14105152513328664`, 0.75], 
        Hue[0.14105152513328664`, 0.75], 
        Hue[0.14105152513328664`, 0.75], 
        Hue[0.14105152513328664`, 0.75], 
        Hue[0.1431490315442198, 0.75], 
        Hue[0.1431490315442198, 0.75], 
        Hue[0.1431490315442198, 0.75], 
        Hue[0.1431490315442198, 0.75], 
        Hue[0.14369978365786903`, 0.75], 
        Hue[0.14369978365786903`, 0.75], 
        Hue[0.14369978365786903`, 0.75], 
        Hue[0.14369978365786903`, 0.75], 
        Hue[0.1438448082269408, 0.75], 
        Hue[0.1438448082269408, 0.75], 
        Hue[0.1438448082269408, 0.75], 
        Hue[0.1438448082269408, 0.75], 
        Hue[0.1438830256630851, 0.75], 
        Hue[0.1438830256630851, 0.75], 
        Hue[0.1438830256630851, 0.75], 
        Hue[0.1438830256630851, 0.75], 
        Hue[0.14389309893058097`, 0.75], 
        Hue[0.14389309893058097`, 0.75], 
        Hue[0.14389309893058097`, 0.75], 
        Hue[0.14389309893058097`, 0.75], 
        Hue[0.14389575416367667`, 0.75], 
        Hue[0.14389575416367667`, 0.75], 
        Hue[0.14389575416367667`, 0.75], 
        Hue[0.14389575416367667`, 0.75], 
        Hue[0.1438964540719508, 0.75], 
        Hue[0.1438964540719508, 0.75], 
        Hue[0.1438964540719508, 0.75], 
        Hue[0.1438964540719508, 0.75], 
        Hue[0.14389663856552068`, 0.75], 
        Hue[0.14389663856552068`, 0.75], 
        Hue[0.14389663856552068`, 0.75], 
        Hue[0.14389663856552068`, 0.75], 
        Hue[0.14389668719748047`, 0.75], 
        Hue[0.14389668719748047`, 0.75], 
        Hue[0.14389668719748047`, 0.75], 
        Hue[0.14389668719748047`, 0.75], 
        Hue[0.1438967000167247, 0.75], 
        Hue[0.1438967000167247, 0.75], 
        Hue[0.1438967000167247, 0.75], 
        Hue[0.1438967000167247, 0.75], 
        Hue[0.1438967033958407, 0.75], 
        Hue[0.1438967033958407, 0.75], 
        Hue[0.1438967033958407, 0.75], 
        Hue[0.1438967033958407, 0.75], 
        Hue[-0.03779340906080142, 0.75], 
        Hue[-0.03779340906080142, 0.75], 
        Hue[-0.03779340906080142, 0.75], 
        Hue[-0.03779340906080142, 0.75], 
        Hue[-0.03779340864173731, 0.75], 
        Hue[-0.03779340864173731, 0.75], 
        Hue[-0.03779340864173731, 0.75], 
        Hue[-0.03779340864173731, 0.75], 
        Hue[-0.03779340705194729, 0.75], 
        Hue[-0.03779340705194729, 0.75], 
        Hue[-0.03779340705194729, 0.75], 
        Hue[-0.03779340705194729, 0.75], 
        Hue[-0.037793401020812446`, 0.75], 
        Hue[-0.037793401020812446`, 0.75], 
        Hue[-0.037793401020812446`, 0.75], 
        Hue[-0.037793401020812446`, 0.75], 
        Hue[-0.03779337814069792, 0.75], 
        Hue[-0.03779337814069792, 0.75], 
        Hue[-0.03779337814069792, 0.75], 
        Hue[-0.03779337814069792, 0.75], 
        Hue[-0.03779329134125834, 0.75], 
        Hue[-0.03779329134125834, 0.75], 
        Hue[-0.03779329134125834, 0.75], 
        Hue[-0.03779329134125834, 0.75], 
        Hue[-0.03779296205468543, 0.75], 
        Hue[-0.03779296205468543, 0.75], 
        Hue[-0.03779296205468543, 0.75], 
        Hue[-0.03779296205468543, 0.75], 
        Hue[-0.03779171287488115, 0.75], 
        Hue[-0.03779171287488115, 0.75], 
        Hue[-0.03779171287488115, 0.75], 
        Hue[-0.03779171287488115, 0.75], 
        Hue[-0.03778697424831924, 0.75], 
        Hue[-0.03778697424831924, 0.75], 
        Hue[-0.03778697424831924, 0.75], 
        Hue[-0.03778697424831924, 0.75], 
        Hue[-0.03776900246202117, 0.75], 
        Hue[-0.03776900246202117, 0.75], 
        Hue[-0.03776900246202117, 0.75], 
        Hue[-0.03776900246202117, 0.75], 
        Hue[-0.037700895204144415`, 0.75], 
        Hue[-0.037700895204144415`, 0.75], 
        Hue[-0.037700895204144415`, 0.75], 
        Hue[-0.037700895204144415`, 0.75], 
        Hue[-0.0374435472756095, 0.75], 
        Hue[-0.0374435472756095, 0.75], 
        Hue[-0.0374435472756095, 0.75], 
        Hue[-0.0374435472756095, 0.75], 
        Hue[-0.036481842063410305`, 0.75], 
        Hue[-0.036481842063410305`, 0.75], 
        Hue[-0.036481842063410305`, 0.75], 
        Hue[-0.036481842063410305`, 0.75], 
        Hue[-0.033032311584871236`, 0.75], 
        Hue[-0.033032311584871236`, 0.75], 
        Hue[-0.033032311584871236`, 0.75], 
        Hue[-0.033032311584871236`, 0.75], 
        Hue[-0.022301780322015675`, 0.75], 
        Hue[-0.022301780322015675`, 0.75], 
        Hue[-0.022301780322015675`, 0.75], 
        Hue[-0.022301780322015675`, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0.02230178032201563, 0.75], 
        Hue[0.02230178032201563, 0.75], 
        Hue[0.02230178032201563, 0.75], 
        Hue[0.02230178032201563, 0.75], 
        Hue[0.03303231158487122, 0.75], 
        Hue[0.03303231158487122, 0.75], 
        Hue[0.03303231158487122, 0.75], 
        Hue[0.03303231158487122, 0.75], 
        Hue[0.036481842063410305`, 0.75], 
        Hue[0.036481842063410305`, 0.75], 
        Hue[0.036481842063410305`, 0.75], 
        Hue[0.036481842063410305`, 0.75], 
        Hue[0.0374435472756095, 0.75], 
        Hue[0.0374435472756095, 0.75], 
        Hue[0.0374435472756095, 0.75], 
        Hue[0.0374435472756095, 0.75], 
        Hue[0.037700895204144415`, 0.75], 
        Hue[0.037700895204144415`, 0.75], 
        Hue[0.037700895204144415`, 0.75], 
        Hue[0.037700895204144415`, 0.75], 
        Hue[0.03776900246202117, 0.75], 
        Hue[0.03776900246202117, 0.75], 
        Hue[0.03776900246202117, 0.75], 
        Hue[0.03776900246202117, 0.75], 
        Hue[0.03778697424831924, 0.75], 
        Hue[0.03778697424831924, 0.75], 
        Hue[0.03778697424831924, 0.75], 
        Hue[0.03778697424831924, 0.75], 
        Hue[0.03779171287488115, 0.75], 
        Hue[0.03779171287488115, 0.75], 
        Hue[0.03779171287488115, 0.75], 
        Hue[0.03779171287488115, 0.75], 
        Hue[0.03779296205468543, 0.75], 
        Hue[0.03779296205468543, 0.75], 
        Hue[0.03779296205468543, 0.75], 
        Hue[0.03779296205468543, 0.75], 
        Hue[0.03779329134125834, 0.75], 
        Hue[0.03779329134125834, 0.75], 
        Hue[0.03779329134125834, 0.75], 
        Hue[0.03779329134125834, 0.75], 
        Hue[0.03779337814069792, 0.75], 
        Hue[0.03779337814069792, 0.75], 
        Hue[0.03779337814069792, 0.75], 
        Hue[0.03779337814069792, 0.75], 
        Hue[0.037793401020812446`, 0.75], 
        Hue[0.037793401020812446`, 0.75], 
        Hue[0.037793401020812446`, 0.75], 
        Hue[0.037793401020812446`, 0.75], 
        Hue[0.03779340705194728, 0.75], 
        Hue[0.03779340705194728, 0.75], 
        Hue[0.03779340705194728, 0.75], 
        Hue[0.03779340705194728, 0.75], 
        Hue[0.03779340864173731, 0.75], 
        Hue[0.03779340864173731, 0.75], 
        Hue[0.03779340864173731, 0.75], 
        Hue[0.03779340864173731, 0.75], 
        Hue[0.06830988593552706, 0.75], 
        Hue[0.06830988593552706, 0.75], 
        Hue[0.06830988593552706, 0.75], 
        Hue[0.06830988593552706, 0.75], 
        Hue[0.06830988524196104, 0.75], 
        Hue[0.06830988524196104, 0.75], 
        Hue[0.06830988524196104, 0.75], 
        Hue[0.06830988524196104, 0.75], 
        Hue[0.06830988261080184, 0.75], 
        Hue[0.06830988261080184, 0.75], 
        Hue[0.06830988261080184, 0.75], 
        Hue[0.06830988261080184, 0.75], 
        Hue[0.0683098726290584, 0.75], 
        Hue[0.0683098726290584, 0.75], 
        Hue[0.0683098726290584, 0.75], 
        Hue[0.0683098726290584, 0.75], 
        Hue[0.06830983476164854, 0.75], 
        Hue[0.06830983476164854, 0.75], 
        Hue[0.06830983476164854, 0.75], 
        Hue[0.06830983476164854, 0.75], 
        Hue[0.06830969110541302, 0.75], 
        Hue[0.06830969110541302, 0.75], 
        Hue[0.06830969110541302, 0.75], 
        Hue[0.06830969110541302, 0.75], 
        Hue[0.06830914612340114, 0.75], 
        Hue[0.06830914612340114, 0.75], 
        Hue[0.06830914612340114, 0.75], 
        Hue[0.06830914612340114, 0.75], 
        Hue[0.06830707867195043, 0.75], 
        Hue[0.06830707867195043, 0.75], 
        Hue[0.06830707867195043, 0.75], 
        Hue[0.06830707867195043, 0.75], 
        Hue[0.06829923586958507, 0.75], 
        Hue[0.06829923586958507, 0.75], 
        Hue[0.06829923586958507, 0.75], 
        Hue[0.06829923586958507, 0.75], 
        Hue[0.06826948895222397, 0.75], 
        Hue[0.06826948895222397, 0.75], 
        Hue[0.06826948895222397, 0.75], 
        Hue[0.06826948895222397, 0.75], 
        Hue[0.06815672634884398, 0.75], 
        Hue[0.06815672634884398, 0.75], 
        Hue[0.06815672634884398, 0.75], 
        Hue[0.06815672634884398, 0.75], 
        Hue[0.06773019705078402, 0.75], 
        Hue[0.06773019705078402, 0.75], 
        Hue[0.06773019705078402, 0.75], 
        Hue[0.06773019705078402, 0.75], 
        Hue[0.06613002344628978, 0.75], 
        Hue[0.06613002344628978, 0.75], 
        Hue[0.06613002344628978, 0.75], 
        Hue[0.06613002344628978, 0.75], 
        Hue[0.06031101946024994, 0.75], 
        Hue[0.06031101946024994, 0.75], 
        Hue[0.06031101946024994, 0.75], 
        Hue[0.06031101946024994, 0.75], 
        Hue[0.04148334312486695, 0.75], 
        Hue[0.04148334312486695, 0.75], 
        Hue[0.04148334312486695, 0.75], 
        Hue[0.04148334312486695, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[-0.041483343124866866`, 0.75], 
        Hue[-0.041483343124866866`, 0.75], 
        Hue[-0.041483343124866866`, 0.75], 
        Hue[-0.041483343124866866`, 0.75], 
        Hue[-0.06031101946024993, 0.75], 
        Hue[-0.06031101946024993, 0.75], 
        Hue[-0.06031101946024993, 0.75], 
        Hue[-0.06031101946024993, 0.75], 
        Hue[-0.06613002344628978, 0.75], 
        Hue[-0.06613002344628978, 0.75], 
        Hue[-0.06613002344628978, 0.75], 
        Hue[-0.06613002344628978, 0.75], 
        Hue[-0.06773019705078401, 0.75], 
        Hue[-0.06773019705078401, 0.75], 
        Hue[-0.06773019705078401, 0.75], 
        Hue[-0.06773019705078401, 0.75], 
        Hue[-0.06815672634884398, 0.75], 
        Hue[-0.06815672634884398, 0.75], 
        Hue[-0.06815672634884398, 0.75], 
        Hue[-0.06815672634884398, 0.75], 
        Hue[-0.06826948895222397, 0.75], 
        Hue[-0.06826948895222397, 0.75], 
        Hue[-0.06826948895222397, 0.75], 
        Hue[-0.06826948895222397, 0.75], 
        Hue[-0.06829923586958506, 0.75], 
        Hue[-0.06829923586958506, 0.75], 
        Hue[-0.06829923586958506, 0.75], 
        Hue[-0.06829923586958506, 0.75], 
        Hue[-0.06830707867195043, 0.75], 
        Hue[-0.06830707867195043, 0.75], 
        Hue[-0.06830707867195043, 0.75], 
        Hue[-0.06830707867195043, 0.75], 
        Hue[-0.06830914612340114, 0.75], 
        Hue[-0.06830914612340114, 0.75], 
        Hue[-0.06830914612340114, 0.75], 
        Hue[-0.06830914612340114, 0.75], 
        Hue[-0.06830969110541302, 0.75], 
        Hue[-0.06830969110541302, 0.75], 
        Hue[-0.06830969110541302, 0.75], 
        Hue[-0.06830969110541302, 0.75], 
        Hue[-0.06830983476164854, 0.75], 
        Hue[-0.06830983476164854, 0.75], 
        Hue[-0.06830983476164854, 0.75], 
        Hue[-0.06830983476164854, 0.75], 
        Hue[-0.0683098726290584, 0.75], 
        Hue[-0.0683098726290584, 0.75], 
        Hue[-0.0683098726290584, 0.75], 
        Hue[-0.0683098726290584, 0.75], 
        Hue[-0.06830988261080184, 0.75], 
        Hue[-0.06830988261080184, 0.75], 
        Hue[-0.06830988261080184, 0.75], 
        Hue[-0.06830988261080184, 0.75], 
        Hue[-0.06830988524196104, 0.75], 
        Hue[-0.06830988524196104, 0.75], 
        Hue[-0.06830988524196104, 0.75], 
        Hue[-0.06830988524196104, 0.75], 
        Hue[0.17441318131158062`, 0.75], 
        Hue[0.17441318131158062`, 0.75], 
        Hue[0.17441318131158062`, 0.75], 
        Hue[0.17441318131158062`, 0.75], 
        Hue[0.1744131805662109, 0.75], 
        Hue[0.1744131805662109, 0.75], 
        Hue[0.1744131805662109, 0.75], 
        Hue[0.1744131805662109, 0.75], 
        Hue[0.17441317773852574`, 0.75], 
        Hue[0.17441317773852574`, 0.75], 
        Hue[0.17441317773852574`, 0.75], 
        Hue[0.17441317773852574`, 0.75], 
        Hue[0.1744131670112266, 0.75], 
        Hue[0.1744131670112266, 0.75], 
        Hue[0.1744131670112266, 0.75], 
        Hue[0.1744131670112266, 0.75], 
        Hue[0.17441312631540684`, 0.75], 
        Hue[0.17441312631540684`, 0.75], 
        Hue[0.17441312631540684`, 0.75], 
        Hue[0.17441312631540684`, 0.75], 
        Hue[0.17441297192884658`, 0.75], 
        Hue[0.17441297192884658`, 0.75], 
        Hue[0.17441297192884658`, 0.75], 
        Hue[0.17441297192884658`, 0.75], 
        Hue[0.1744123862355614, 0.75], 
        Hue[0.1744123862355614, 0.75], 
        Hue[0.1744123862355614, 0.75], 
        Hue[0.1744123862355614, 0.75], 
        Hue[0.1744101642817107, 0.75], 
        Hue[0.1744101642817107, 0.75], 
        Hue[0.1744101642817107, 0.75], 
        Hue[0.1744101642817107, 0.75], 
        Hue[0.17440173452318755`, 0.75], 
        Hue[0.17440173452318755`, 0.75], 
        Hue[0.17440173452318755`, 0.75], 
        Hue[0.17440173452318755`, 0.75], 
        Hue[0.17436974901087102`, 0.75], 
        Hue[0.17436974901087102`, 0.75], 
        Hue[0.17436974901087102`, 0.75], 
        Hue[0.17436974901087102`, 0.75], 
        Hue[0.17424832298965268`, 0.75], 
        Hue[0.17424832298965268`, 0.75], 
        Hue[0.17424832298965268`, 0.75], 
        Hue[0.17424832298965268`, 0.75], 
        Hue[0.173786468538444, 0.75], 
        Hue[0.173786468538444, 0.75], 
        Hue[0.173786468538444, 0.75], 
        Hue[0.173786468538444, 0.75], 
        Hue[0.17201695117429008`, 0.75], 
        Hue[0.17201695117429008`, 0.75], 
        Hue[0.17201695117429008`, 0.75], 
        Hue[0.17201695117429008`, 0.75], 
        Hue[0.16505076375709035`, 0.75], 
        Hue[0.16505076375709035`, 0.75], 
        Hue[0.16505076375709035`, 0.75], 
        Hue[0.16505076375709035`, 0.75], 
        Hue[0.13494066798445745`, 0.75], 
        Hue[0.13494066798445745`, 0.75], 
        Hue[0.13494066798445745`, 0.75], 
        Hue[0.13494066798445745`, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[-0.13494066798445728`, 0.75], 
        Hue[-0.13494066798445728`, 0.75], 
        Hue[-0.13494066798445728`, 0.75], 
        Hue[-0.13494066798445728`, 0.75], 
        Hue[-0.16505076375709032`, 0.75], 
        Hue[-0.16505076375709032`, 0.75], 
        Hue[-0.16505076375709032`, 0.75], 
        Hue[-0.16505076375709032`, 0.75], 
        Hue[-0.17201695117429008`, 0.75], 
        Hue[-0.17201695117429008`, 0.75], 
        Hue[-0.17201695117429008`, 0.75], 
        Hue[-0.17201695117429008`, 0.75], 
        Hue[-0.173786468538444, 0.75], 
        Hue[-0.173786468538444, 0.75], 
        Hue[-0.173786468538444, 0.75], 
        Hue[-0.173786468538444, 0.75], 
        Hue[-0.17424832298965268`, 0.75], 
        Hue[-0.17424832298965268`, 0.75], 
        Hue[-0.17424832298965268`, 0.75], 
        Hue[-0.17424832298965268`, 0.75], 
        Hue[-0.17436974901087102`, 0.75], 
        Hue[-0.17436974901087102`, 0.75], 
        Hue[-0.17436974901087102`, 0.75], 
        Hue[-0.17436974901087102`, 0.75], 
        Hue[-0.17440173452318755`, 0.75], 
        Hue[-0.17440173452318755`, 0.75], 
        Hue[-0.17440173452318755`, 0.75], 
        Hue[-0.17440173452318755`, 0.75], 
        Hue[-0.1744101642817107, 0.75], 
        Hue[-0.1744101642817107, 0.75], 
        Hue[-0.1744101642817107, 0.75], 
        Hue[-0.1744101642817107, 0.75], 
        Hue[-0.1744123862355614, 0.75], 
        Hue[-0.1744123862355614, 0.75], 
        Hue[-0.1744123862355614, 0.75], 
        Hue[-0.1744123862355614, 0.75], 
        Hue[-0.17441297192884658`, 0.75], 
        Hue[-0.17441297192884658`, 0.75], 
        Hue[-0.17441297192884658`, 0.75], 
        Hue[-0.17441297192884658`, 0.75], 
        Hue[-0.17441312631540684`, 0.75], 
        Hue[-0.17441312631540684`, 0.75], 
        Hue[-0.17441312631540684`, 0.75], 
        Hue[-0.17441312631540684`, 0.75], 
        Hue[-0.1744131670112266, 0.75], 
        Hue[-0.1744131670112266, 0.75], 
        Hue[-0.1744131670112266, 0.75], 
        Hue[-0.1744131670112266, 0.75], 
        Hue[-0.17441317773852574`, 0.75], 
        Hue[-0.17441317773852574`, 0.75], 
        Hue[-0.17441317773852574`, 0.75], 
        Hue[-0.17441317773852574`, 0.75], 
        Hue[-0.17441318056621094`, 0.75], 
        Hue[-0.17441318056621094`, 0.75], 
        Hue[-0.17441318056621094`, 0.75], 
        Hue[-0.17441318056621094`, 0.75], 
        Hue[0.2805164770957219, 0.75], 
        Hue[0.2805164770957219, 0.75], 
        Hue[0.2805164770957219, 0.75], 
        Hue[0.2805164770957219, 0.75], 
        Hue[0.28051647743861, 0.75], 
        Hue[0.28051647743861, 0.75], 
        Hue[0.28051647743861, 0.75], 
        Hue[0.28051647743861, 0.75], 
        Hue[0.28051647873941377`, 0.75], 
        Hue[0.28051647873941377`, 0.75], 
        Hue[0.28051647873941377`, 0.75], 
        Hue[0.28051647873941377`, 0.75], 
        Hue[0.2805164836742316, 0.75], 
        Hue[0.2805164836742316, 0.75], 
        Hue[0.2805164836742316, 0.75], 
        Hue[0.2805164836742316, 0.75], 
        Hue[0.28051650239529835`, 0.75], 
        Hue[0.28051650239529835`, 0.75], 
        Hue[0.28051650239529835`, 0.75], 
        Hue[0.28051650239529835`, 0.75], 
        Hue[0.2805165734169078, 0.75], 
        Hue[0.2805165734169078, 0.75], 
        Hue[0.2805165734169078, 0.75], 
        Hue[0.2805165734169078, 0.75], 
        Hue[0.2805168428507357, 0.75], 
        Hue[0.2805168428507357, 0.75], 
        Hue[0.2805168428507357, 0.75], 
        Hue[0.2805168428507357, 0.75], 
        Hue[0.28051786501375825`, 0.75], 
        Hue[0.28051786501375825`, 0.75], 
        Hue[0.28051786501375825`, 0.75], 
        Hue[0.28051786501375825`, 0.75], 
        Hue[0.2805217430567196, 0.75], 
        Hue[0.2805217430567196, 0.75], 
        Hue[0.2805217430567196, 0.75], 
        Hue[0.2805217430567196, 0.75], 
        Hue[0.28053645932387355`, 0.75], 
        Hue[0.28053645932387355`, 0.75], 
        Hue[0.28053645932387355`, 0.75], 
        Hue[0.28053645932387355`, 0.75], 
        Hue[0.2805923493320295, 0.75], 
        Hue[0.2805923493320295, 0.75], 
        Hue[0.2805923493320295, 0.75], 
        Hue[0.2805923493320295, 0.75], 
        Hue[0.28080526449368515`, 0.75], 
        Hue[0.28080526449368515`, 0.75], 
        Hue[0.28080526449368515`, 0.75], 
        Hue[0.28080526449368515`, 0.75], 
        Hue[0.28162596430694536`, 0.75], 
        Hue[0.28162596430694536`, 0.75], 
        Hue[0.28162596430694536`, 0.75], 
        Hue[0.28162596430694536`, 0.75], 
        Hue[0.28493791734992036`, 0.75], 
        Hue[0.28493791734992036`, 0.75], 
        Hue[0.28493791734992036`, 0.75], 
        Hue[0.28493791734992036`, 0.75], 
        Hue[0.3011748909005325, 0.75], 
        Hue[0.3011748909005325, 0.75], 
        Hue[0.3011748909005325, 0.75], 
        Hue[0.3011748909005325, 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[-0.3011748909005326, 0.75], 
        Hue[-0.3011748909005326, 0.75], 
        Hue[-0.3011748909005326, 0.75], 
        Hue[-0.3011748909005326, 0.75], 
        Hue[-0.2849379173499204, 0.75], 
        Hue[-0.2849379173499204, 0.75], 
        Hue[-0.2849379173499204, 0.75], 
        Hue[-0.2849379173499204, 0.75], 
        Hue[-0.28162596430694536`, 0.75], 
        Hue[-0.28162596430694536`, 0.75], 
        Hue[-0.28162596430694536`, 0.75], 
        Hue[-0.28162596430694536`, 0.75], 
        Hue[-0.28080526449368515`, 0.75], 
        Hue[-0.28080526449368515`, 0.75], 
        Hue[-0.28080526449368515`, 0.75], 
        Hue[-0.28080526449368515`, 0.75], 
        Hue[-0.2805923493320295, 0.75], 
        Hue[-0.2805923493320295, 0.75], 
        Hue[-0.2805923493320295, 0.75], 
        Hue[-0.2805923493320295, 0.75], 
        Hue[-0.28053645932387355`, 0.75], 
        Hue[-0.28053645932387355`, 0.75], 
        Hue[-0.28053645932387355`, 0.75], 
        Hue[-0.28053645932387355`, 0.75], 
        Hue[-0.28052174305671956`, 0.75], 
        Hue[-0.28052174305671956`, 0.75], 
        Hue[-0.28052174305671956`, 0.75], 
        Hue[-0.28052174305671956`, 0.75], 
        Hue[-0.28051786501375825`, 0.75], 
        Hue[-0.28051786501375825`, 0.75], 
        Hue[-0.28051786501375825`, 0.75], 
        Hue[-0.28051786501375825`, 0.75], 
        Hue[-0.2805168428507357, 0.75], 
        Hue[-0.2805168428507357, 0.75], 
        Hue[-0.2805168428507357, 0.75], 
        Hue[-0.2805168428507357, 0.75], 
        Hue[-0.2805165734169078, 0.75], 
        Hue[-0.2805165734169078, 0.75], 
        Hue[-0.2805165734169078, 0.75], 
        Hue[-0.2805165734169078, 0.75], 
        Hue[-0.28051650239529835`, 0.75], 
        Hue[-0.28051650239529835`, 0.75], 
        Hue[-0.28051650239529835`, 0.75], 
        Hue[-0.28051650239529835`, 0.75], 
        Hue[-0.2805164836742316, 0.75], 
        Hue[-0.2805164836742316, 0.75], 
        Hue[-0.2805164836742316, 0.75], 
        Hue[-0.2805164836742316, 0.75], 
        Hue[-0.28051647873941377`, 0.75], 
        Hue[-0.28051647873941377`, 0.75], 
        Hue[-0.28051647873941377`, 0.75], 
        Hue[-0.28051647873941377`, 0.75], 
        Hue[-0.28051647743861, 0.75], 
        Hue[-0.28051647743861, 0.75], 
        Hue[-0.28051647743861, 0.75], 
        Hue[-0.28051647743861, 0.75], 
        Hue[0.3866197726921332, 0.75], 
        Hue[0.3866197726921332, 0.75], 
        Hue[0.3866197726921332, 0.75], 
        Hue[0.3866197726921332, 0.75], 
        Hue[0.3866197735988232, 0.75], 
        Hue[0.3866197735988232, 0.75], 
        Hue[0.3866197735988232, 0.75], 
        Hue[0.3866197735988232, 0.75], 
        Hue[0.38661977703850414`, 0.75], 
        Hue[0.38661977703850414`, 0.75], 
        Hue[0.38661977703850414`, 0.75], 
        Hue[0.38661977703850414`, 0.75], 
        Hue[0.38661979008751096`, 0.75], 
        Hue[0.38661979008751096`, 0.75], 
        Hue[0.38661979008751096`, 0.75], 
        Hue[0.38661979008751096`, 0.75], 
        Hue[0.3866198395911063, 0.75], 
        Hue[0.3866198395911063, 0.75], 
        Hue[0.3866198395911063, 0.75], 
        Hue[0.3866198395911063, 0.75], 
        Hue[0.3866200273912655, 0.75], 
        Hue[0.3866200273912655, 0.75], 
        Hue[0.3866200273912655, 0.75], 
        Hue[0.3866200273912655, 0.75], 
        Hue[0.3866207398421073, 0.75], 
        Hue[0.3866207398421073, 0.75], 
        Hue[0.3866207398421073, 0.75], 
        Hue[0.3866207398421073, 0.75], 
        Hue[0.38662344263546217`, 0.75], 
        Hue[0.38662344263546217`, 0.75], 
        Hue[0.38662344263546217`, 0.75], 
        Hue[0.38662344263546217`, 0.75], 
        Hue[0.3866336960130515, 0.75], 
        Hue[0.3866336960130515, 0.75], 
        Hue[0.3866336960130515, 0.75], 
        Hue[0.3866336960130515, 0.75], 
        Hue[0.3866725921540599, 0.75], 
        Hue[0.3866725921540599, 0.75], 
        Hue[0.3866725921540599, 0.75], 
        Hue[0.3866725921540599, 0.75], 
        Hue[0.38682012567872565`, 0.75], 
        Hue[0.38682012567872565`, 0.75], 
        Hue[0.38682012567872565`, 0.75], 
        Hue[0.38682012567872565`, 0.75], 
        Hue[0.387379448014414, 0.75], 
        Hue[0.387379448014414, 0.75], 
        Hue[0.387379448014414, 0.75], 
        Hue[0.387379448014414, 0.75], 
        Hue[0.38949579753938623`, 0.75], 
        Hue[0.38949579753938623`, 0.75], 
        Hue[0.38949579753938623`, 0.75], 
        Hue[0.38949579753938623`, 0.75], 
        Hue[0.3974345435255945, 0.75], 
        Hue[0.3974345435255945, 0.75], 
        Hue[0.3974345435255945, 0.75], 
        Hue[0.3974345435255945, 0.75], 
        Hue[0.425782929334193, 0.75], 
        Hue[0.425782929334193, 0.75], 
        Hue[0.425782929334193, 0.75], 
        Hue[0.425782929334193, 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[-0.42578292933419315`, 0.75], 
        Hue[-0.42578292933419315`, 0.75], 
        Hue[-0.42578292933419315`, 0.75], 
        Hue[-0.42578292933419315`, 0.75], 
        Hue[-0.39743454352559454`, 0.75], 
        Hue[-0.39743454352559454`, 0.75], 
        Hue[-0.39743454352559454`, 0.75], 
        Hue[-0.39743454352559454`, 0.75], 
        Hue[-0.38949579753938623`, 0.75], 
        Hue[-0.38949579753938623`, 0.75], 
        Hue[-0.38949579753938623`, 0.75], 
        Hue[-0.38949579753938623`, 0.75], 
        Hue[-0.387379448014414, 0.75], 
        Hue[-0.387379448014414, 0.75], 
        Hue[-0.387379448014414, 0.75], 
        Hue[-0.387379448014414, 0.75], 
        Hue[-0.38682012567872565`, 0.75], 
        Hue[-0.38682012567872565`, 0.75], 
        Hue[-0.38682012567872565`, 0.75], 
        Hue[-0.38682012567872565`, 0.75], 
        Hue[-0.3866725921540599, 0.75], 
        Hue[-0.3866725921540599, 0.75], 
        Hue[-0.3866725921540599, 0.75], 
        Hue[-0.3866725921540599, 0.75], 
        Hue[-0.3866336960130515, 0.75], 
        Hue[-0.3866336960130515, 0.75], 
        Hue[-0.3866336960130515, 0.75], 
        Hue[-0.3866336960130515, 0.75], 
        Hue[-0.38662344263546217`, 0.75], 
        Hue[-0.38662344263546217`, 0.75], 
        Hue[-0.38662344263546217`, 0.75], 
        Hue[-0.38662344263546217`, 0.75], 
        Hue[-0.3866207398421073, 0.75], 
        Hue[-0.3866207398421073, 0.75], 
        Hue[-0.3866207398421073, 0.75], 
        Hue[-0.3866207398421073, 0.75], 
        Hue[-0.3866200273912655, 0.75], 
        Hue[-0.3866200273912655, 0.75], 
        Hue[-0.3866200273912655, 0.75], 
        Hue[-0.3866200273912655, 0.75], 
        Hue[-0.3866198395911063, 0.75], 
        Hue[-0.3866198395911063, 0.75], 
        Hue[-0.3866198395911063, 0.75], 
        Hue[-0.3866198395911063, 0.75], 
        Hue[-0.38661979008751096`, 0.75], 
        Hue[-0.38661979008751096`, 0.75], 
        Hue[-0.38661979008751096`, 0.75], 
        Hue[-0.38661979008751096`, 0.75], 
        Hue[-0.38661977703850414`, 0.75], 
        Hue[-0.38661977703850414`, 0.75], 
        Hue[-0.38661977703850414`, 0.75], 
        Hue[-0.38661977703850414`, 0.75], 
        Hue[-0.3866197735988232, 0.75], 
        Hue[-0.3866197735988232, 0.75], 
        Hue[-0.3866197735988232, 0.75], 
        Hue[-0.3866197735988232, 0.75], 
        Hue[0.49272306779213415`, 0.75], 
        Hue[0.49272306779213415`, 0.75], 
        Hue[0.49272306779213415`, 0.75], 
        Hue[0.49272306779213415`, 0.75], 
        Hue[0.49272306787582115`, 0.75], 
        Hue[0.49272306787582115`, 0.75], 
        Hue[0.49272306787582115`, 0.75], 
        Hue[0.49272306787582115`, 0.75], 
        Hue[0.4927230681933018, 0.75], 
        Hue[0.4927230681933018, 0.75], 
        Hue[0.4927230681933018, 0.75], 
        Hue[0.4927230681933018, 0.75], 
        Hue[0.492723069397718, 0.75], 
        Hue[0.492723069397718, 0.75], 
        Hue[0.492723069397718, 0.75], 
        Hue[0.492723069397718, 0.75], 
        Hue[0.4927230739668712, 0.75], 
        Hue[0.4927230739668712, 0.75], 
        Hue[0.4927230739668712, 0.75], 
        Hue[0.4927230739668712, 0.75], 
        Hue[0.492723091300695, 0.75], 
        Hue[0.492723091300695, 0.75], 
        Hue[0.492723091300695, 0.75], 
        Hue[0.492723091300695, 0.75], 
        Hue[0.49272315705909153`, 0.75], 
        Hue[0.49272315705909153`, 0.75], 
        Hue[0.49272315705909153`, 0.75], 
        Hue[0.49272315705909153`, 0.75], 
        Hue[0.492723406519221, 0.75], 
        Hue[0.492723406519221, 0.75], 
        Hue[0.492723406519221, 0.75], 
        Hue[0.492723406519221, 0.75], 
        Hue[0.49272435281056753`, 0.75], 
        Hue[0.49272435281056753`, 0.75], 
        Hue[0.49272435281056753`, 0.75], 
        Hue[0.49272435281056753`, 0.75], 
        Hue[0.49272794161011646`, 0.75], 
        Hue[0.49272794161011646`, 0.75], 
        Hue[0.49272794161011646`, 0.75], 
        Hue[0.49272794161011646`, 0.75], 
        Hue[0.49274154028871736`, 0.75], 
        Hue[0.49274154028871736`, 0.75], 
        Hue[0.49274154028871736`, 0.75], 
        Hue[0.49274154028871736`, 0.75], 
        Hue[0.4927928994653311, 0.75], 
        Hue[0.4927928994653311, 0.75], 
        Hue[0.4927928994653311, 0.75], 
        Hue[0.4927928994653311, 0.75], 
        Hue[0.49298449136377076`, 0.75], 
        Hue[0.49298449136377076`, 0.75], 
        Hue[0.49298449136377076`, 0.75], 
        Hue[0.49298449136377076`, 0.75], 
        Hue[0.493667548287489, 0.75], 
        Hue[0.493667548287489, 0.75], 
        Hue[0.493667548287489, 0.75], 
        Hue[0.493667548287489, 0.75], 
        Hue[0.4957571756734606, 0.75], 
        Hue[0.4957571756734606, 0.75], 
        Hue[0.4957571756734606, 0.75], 
        Hue[0.4957571756734606, 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[-0.4957571756734606, 0.75], 
        Hue[-0.4957571756734606, 0.75], 
        Hue[-0.4957571756734606, 0.75], 
        Hue[-0.4957571756734606, 0.75], 
        Hue[-0.493667548287489, 0.75], 
        Hue[-0.493667548287489, 0.75], 
        Hue[-0.493667548287489, 0.75], 
        Hue[-0.493667548287489, 0.75], 
        Hue[-0.49298449136377076`, 0.75], 
        Hue[-0.49298449136377076`, 0.75], 
        Hue[-0.49298449136377076`, 0.75], 
        Hue[-0.49298449136377076`, 0.75], 
        Hue[-0.4927928994653311, 0.75], 
        Hue[-0.4927928994653311, 0.75], 
        Hue[-0.4927928994653311, 0.75], 
        Hue[-0.4927928994653311, 0.75], 
        Hue[-0.49274154028871736`, 0.75], 
        Hue[-0.49274154028871736`, 0.75], 
        Hue[-0.49274154028871736`, 0.75], 
        Hue[-0.49274154028871736`, 0.75], 
        Hue[-0.49272794161011646`, 0.75], 
        Hue[-0.49272794161011646`, 0.75], 
        Hue[-0.49272794161011646`, 0.75], 
        Hue[-0.49272794161011646`, 0.75], 
        Hue[-0.49272435281056753`, 0.75], 
        Hue[-0.49272435281056753`, 0.75], 
        Hue[-0.49272435281056753`, 0.75], 
        Hue[-0.49272435281056753`, 0.75], 
        Hue[-0.492723406519221, 0.75], 
        Hue[-0.492723406519221, 0.75], 
        Hue[-0.492723406519221, 0.75], 
        Hue[-0.492723406519221, 0.75], 
        Hue[-0.49272315705909153`, 0.75], 
        Hue[-0.49272315705909153`, 0.75], 
        Hue[-0.49272315705909153`, 0.75], 
        Hue[-0.49272315705909153`, 0.75], 
        Hue[-0.492723091300695, 0.75], 
        Hue[-0.492723091300695, 0.75], 
        Hue[-0.492723091300695, 0.75], 
        Hue[-0.492723091300695, 0.75], 
        Hue[-0.4927230739668712, 0.75], 
        Hue[-0.4927230739668712, 0.75], 
        Hue[-0.4927230739668712, 0.75], 
        Hue[-0.4927230739668712, 0.75], 
        Hue[-0.492723069397718, 0.75], 
        Hue[-0.492723069397718, 0.75], 
        Hue[-0.492723069397718, 0.75], 
        Hue[-0.492723069397718, 0.75], 
        Hue[-0.4927230681933018, 0.75], 
        Hue[-0.4927230681933018, 0.75], 
        Hue[-0.4927230681933018, 0.75], 
        Hue[-0.4927230681933018, 0.75], 
        Hue[-0.49272306787582115`, 0.75], 
        Hue[-0.49272306787582115`, 0.75], 
        Hue[-0.49272306787582115`, 0.75], 
        Hue[-0.49272306787582115`, 0.75], 
        Hue[-0.4011736371536834, 0.75], 
        Hue[-0.4011736371536834, 0.75], 
        Hue[-0.4011736371536834, 0.75], 
        Hue[-0.4011736371536834, 0.75], 
        Hue[-0.40117363802100076`, 0.75], 
        Hue[-0.40117363802100076`, 0.75], 
        Hue[-0.40117363802100076`, 0.75], 
        Hue[-0.40117363802100076`, 0.75], 
        Hue[-0.4011736413113149, 0.75], 
        Hue[-0.4011736413113149, 0.75], 
        Hue[-0.4011736413113149, 0.75], 
        Hue[-0.4011736413113149, 0.75], 
        Hue[-0.4011736537936734, 0.75], 
        Hue[-0.4011736537936734, 0.75], 
        Hue[-0.4011736537936734, 0.75], 
        Hue[-0.4011736537936734, 0.75], 
        Hue[-0.40117370114759027`, 0.75], 
        Hue[-0.40117370114759027`, 0.75], 
        Hue[-0.40117370114759027`, 0.75], 
        Hue[-0.40117370114759027`, 0.75], 
        Hue[-0.4011738807925367, 0.75], 
        Hue[-0.4011738807925367, 0.75], 
        Hue[-0.4011738807925367, 0.75], 
        Hue[-0.4011738807925367, 0.75], 
        Hue[-0.4011745623045438, 0.75], 
        Hue[-0.4011745623045438, 0.75], 
        Hue[-0.4011745623045438, 0.75], 
        Hue[-0.4011745623045438, 0.75], 
        Hue[-0.4011771477166513, 0.75], 
        Hue[-0.4011771477166513, 0.75], 
        Hue[-0.4011771477166513, 0.75], 
        Hue[-0.4011771477166513, 0.75], 
        Hue[-0.4011869556508538, 0.75], 
        Hue[-0.4011869556508538, 0.75], 
        Hue[-0.4011869556508538, 0.75], 
        Hue[-0.4011869556508538, 0.75], 
        Hue[-0.40122415994317523`, 0.75], 
        Hue[-0.40122415994317523`, 0.75], 
        Hue[-0.40122415994317523`, 0.75], 
        Hue[-0.40122415994317523`, 0.75], 
        Hue[-0.4013652466223928, 0.75], 
        Hue[-0.4013652466223928, 0.75], 
        Hue[-0.4013652466223928, 0.75], 
        Hue[-0.4013652466223928, 0.75], 
        Hue[-0.4018997025475675, 0.75], 
        Hue[-0.4018997025475675, 0.75], 
        Hue[-0.4018997025475675, 0.75], 
        Hue[-0.4018997025475675, 0.75], 
        Hue[-0.40391590700654806`, 0.75], 
        Hue[-0.40391590700654806`, 0.75], 
        Hue[-0.40391590700654806`, 0.75], 
        Hue[-0.40391590700654806`, 0.75], 
        Hue[-0.4113956657447137, 0.75], 
        Hue[-0.4113956657447137, 0.75], 
        Hue[-0.4113956657447137, 0.75], 
        Hue[-0.4113956657447137, 0.75], 
        Hue[-0.43713738095041077`, 0.75], 
        Hue[-0.43713738095041077`, 0.75], 
        Hue[-0.43713738095041077`, 0.75], 
        Hue[-0.43713738095041077`, 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[0.4371373809504109, 0.75], 
        Hue[0.4371373809504109, 0.75], 
        Hue[0.4371373809504109, 0.75], 
        Hue[0.4371373809504109, 0.75], 
        Hue[0.4113956657447137, 0.75], 
        Hue[0.4113956657447137, 0.75], 
        Hue[0.4113956657447137, 0.75], 
        Hue[0.4113956657447137, 0.75], 
        Hue[0.40391590700654806`, 0.75], 
        Hue[0.40391590700654806`, 0.75], 
        Hue[0.40391590700654806`, 0.75], 
        Hue[0.40391590700654806`, 0.75], 
        Hue[0.4018997025475675, 0.75], 
        Hue[0.4018997025475675, 0.75], 
        Hue[0.4018997025475675, 0.75], 
        Hue[0.4018997025475675, 0.75], 
        Hue[0.4013652466223928, 0.75], 
        Hue[0.4013652466223928, 0.75], 
        Hue[0.4013652466223928, 0.75], 
        Hue[0.4013652466223928, 0.75], 
        Hue[0.40122415994317523`, 0.75], 
        Hue[0.40122415994317523`, 0.75], 
        Hue[0.40122415994317523`, 0.75], 
        Hue[0.40122415994317523`, 0.75], 
        Hue[0.4011869556508538, 0.75], 
        Hue[0.4011869556508538, 0.75], 
        Hue[0.4011869556508538, 0.75], 
        Hue[0.4011869556508538, 0.75], 
        Hue[0.4011771477166513, 0.75], 
        Hue[0.4011771477166513, 0.75], 
        Hue[0.4011771477166513, 0.75], 
        Hue[0.4011771477166513, 0.75], 
        Hue[0.4011745623045438, 0.75], 
        Hue[0.4011745623045438, 0.75], 
        Hue[0.4011745623045438, 0.75], 
        Hue[0.4011745623045438, 0.75], 
        Hue[0.4011738807925367, 0.75], 
        Hue[0.4011738807925367, 0.75], 
        Hue[0.4011738807925367, 0.75], 
        Hue[0.4011738807925367, 0.75], 
        Hue[0.40117370114759027`, 0.75], 
        Hue[0.40117370114759027`, 0.75], 
        Hue[0.40117370114759027`, 0.75], 
        Hue[0.40117370114759027`, 0.75], 
        Hue[0.4011736537936734, 0.75], 
        Hue[0.4011736537936734, 0.75], 
        Hue[0.4011736537936734, 0.75], 
        Hue[0.4011736537936734, 0.75], 
        Hue[0.4011736413113149, 0.75], 
        Hue[0.4011736413113149, 0.75], 
        Hue[0.4011736413113149, 0.75], 
        Hue[0.4011736413113149, 0.75], 
        Hue[0.40117363802100076`, 0.75], 
        Hue[0.40117363802100076`, 0.75], 
        Hue[0.40117363802100076`, 0.75], 
        Hue[0.40117363802100076`, 0.75], 
        Hue[-0.2950703416246469, 0.75], 
        Hue[-0.2950703416246469, 0.75], 
        Hue[-0.2950703416246469, 0.75], 
        Hue[-0.2950703416246469, 0.75], 
        Hue[-0.29507034211638516`, 0.75], 
        Hue[-0.29507034211638516`, 0.75], 
        Hue[-0.29507034211638516`, 0.75], 
        Hue[-0.29507034211638516`, 0.75], 
        Hue[-0.295070343981877, 0.75], 
        Hue[-0.295070343981877, 0.75], 
        Hue[-0.295070343981877, 0.75], 
        Hue[-0.295070343981877, 0.75], 
        Hue[-0.29507035105893387`, 0.75], 
        Hue[-0.29507035105893387`, 0.75], 
        Hue[-0.29507035105893387`, 0.75], 
        Hue[-0.29507035105893387`, 0.75], 
        Hue[-0.2950703779069466, 0.75], 
        Hue[-0.2950703779069466, 0.75], 
        Hue[-0.2950703779069466, 0.75], 
        Hue[-0.2950703779069466, 0.75], 
        Hue[-0.29507047975952005`, 0.75], 
        Hue[-0.29507047975952005`, 0.75], 
        Hue[-0.29507047975952005`, 0.75], 
        Hue[-0.29507047975952005`, 0.75], 
        Hue[-0.2950708661562219, 0.75], 
        Hue[-0.2950708661562219, 0.75], 
        Hue[-0.2950708661562219, 0.75], 
        Hue[-0.2950708661562219, 0.75], 
        Hue[-0.29507233204381433`, 0.75], 
        Hue[-0.29507233204381433`, 0.75], 
        Hue[-0.29507233204381433`, 0.75], 
        Hue[-0.29507233204381433`, 0.75], 
        Hue[-0.2950778935206668, 0.75], 
        Hue[-0.2950778935206668, 0.75], 
        Hue[-0.2950778935206668, 0.75], 
        Hue[-0.2950778935206668, 0.75], 
        Hue[-0.29509899747571033`, 0.75], 
        Hue[-0.29509899747571033`, 0.75], 
        Hue[-0.29509899747571033`, 0.75], 
        Hue[-0.29509899747571033`, 0.75], 
        Hue[-0.2951791389481004, 0.75], 
        Hue[-0.2951791389481004, 0.75], 
        Hue[-0.2951791389481004, 0.75], 
        Hue[-0.2951791389481004, 0.75], 
        Hue[-0.29548432551970744`, 0.75], 
        Hue[-0.29548432551970744`, 0.75], 
        Hue[-0.29548432551970744`, 0.75], 
        Hue[-0.29548432551970744`, 0.75], 
        Hue[-0.29665896602920555`, 0.75], 
        Hue[-0.29665896602920555`, 0.75], 
        Hue[-0.29665896602920555`, 0.75], 
        Hue[-0.29665896602920555`, 0.75], 
        Hue[-0.3013704028440567, 0.75], 
        Hue[-0.3013704028440567, 0.75], 
        Hue[-0.3013704028440567, 0.75], 
        Hue[-0.3013704028440567, 0.75], 
        Hue[-0.3237076119403636, 0.75], 
        Hue[-0.3237076119403636, 0.75], 
        Hue[-0.3237076119403636, 0.75], 
        Hue[-0.3237076119403636, 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[
         Rational[1, 2], 0.75], 
        Hue[0.3237076119403637, 0.75], 
        Hue[0.3237076119403637, 0.75], 
        Hue[0.3237076119403637, 0.75], 
        Hue[0.3237076119403637, 0.75], 
        Hue[0.30137040284405675`, 0.75], 
        Hue[0.30137040284405675`, 0.75], 
        Hue[0.30137040284405675`, 0.75], 
        Hue[0.30137040284405675`, 0.75], 
        Hue[0.29665896602920555`, 0.75], 
        Hue[0.29665896602920555`, 0.75], 
        Hue[0.29665896602920555`, 0.75], 
        Hue[0.29665896602920555`, 0.75], 
        Hue[0.29548432551970744`, 0.75], 
        Hue[0.29548432551970744`, 0.75], 
        Hue[0.29548432551970744`, 0.75], 
        Hue[0.29548432551970744`, 0.75], 
        Hue[0.2951791389481004, 0.75], 
        Hue[0.2951791389481004, 0.75], 
        Hue[0.2951791389481004, 0.75], 
        Hue[0.2951791389481004, 0.75], 
        Hue[0.29509899747571033`, 0.75], 
        Hue[0.29509899747571033`, 0.75], 
        Hue[0.29509899747571033`, 0.75], 
        Hue[0.29509899747571033`, 0.75], 
        Hue[0.2950778935206668, 0.75], 
        Hue[0.2950778935206668, 0.75], 
        Hue[0.2950778935206668, 0.75], 
        Hue[0.2950778935206668, 0.75], 
        Hue[0.2950723320438143, 0.75], 
        Hue[0.2950723320438143, 0.75], 
        Hue[0.2950723320438143, 0.75], 
        Hue[0.2950723320438143, 0.75], 
        Hue[0.2950708661562219, 0.75], 
        Hue[0.2950708661562219, 0.75], 
        Hue[0.2950708661562219, 0.75], 
        Hue[0.2950708661562219, 0.75], 
        Hue[0.29507047975952005`, 0.75], 
        Hue[0.29507047975952005`, 0.75], 
        Hue[0.29507047975952005`, 0.75], 
        Hue[0.29507047975952005`, 0.75], 
        Hue[0.2950703779069466, 0.75], 
        Hue[0.2950703779069466, 0.75], 
        Hue[0.2950703779069466, 0.75], 
        Hue[0.2950703779069466, 0.75], 
        Hue[0.29507035105893387`, 0.75], 
        Hue[0.29507035105893387`, 0.75], 
        Hue[0.29507035105893387`, 0.75], 
        Hue[0.29507035105893387`, 0.75], 
        Hue[0.295070343981877, 0.75], 
        Hue[0.295070343981877, 0.75], 
        Hue[0.295070343981877, 0.75], 
        Hue[0.295070343981877, 0.75], 
        Hue[0.29507034211638516`, 0.75], 
        Hue[0.29507034211638516`, 0.75], 
        Hue[0.29507034211638516`, 0.75], 
        Hue[0.29507034211638516`, 0.75], 
        Hue[-0.18896704582638568`, 0.75], 
        Hue[-0.18896704582638568`, 0.75], 
        Hue[-0.18896704582638568`, 0.75], 
        Hue[-0.18896704582638568`, 0.75], 
        Hue[-0.18896704519041893`, 0.75], 
        Hue[-0.18896704519041893`, 0.75], 
        Hue[-0.18896704519041893`, 0.75], 
        Hue[-0.18896704519041893`, 0.75], 
        Hue[-0.18896704277777224`, 0.75], 
        Hue[-0.18896704277777224`, 0.75], 
        Hue[-0.18896704277777224`, 0.75], 
        Hue[-0.18896704277777224`, 0.75], 
        Hue[-0.18896703362499118`, 0.75], 
        Hue[-0.18896703362499118`, 0.75], 
        Hue[-0.18896703362499118`, 0.75], 
        Hue[-0.18896703362499118`, 0.75], 
        Hue[-0.1889669989023696, 0.75], 
        Hue[-0.1889669989023696, 0.75], 
        Hue[-0.1889669989023696, 0.75], 
        Hue[-0.1889669989023696, 0.75], 
        Hue[-0.18896686717613195`, 0.75], 
        Hue[-0.18896686717613195`, 0.75], 
        Hue[-0.18896686717613195`, 0.75], 
        Hue[-0.18896686717613195`, 0.75], 
        Hue[-0.18896636744847622`, 0.75], 
        Hue[-0.18896636744847622`, 0.75], 
        Hue[-0.18896636744847622`, 0.75], 
        Hue[-0.18896636744847622`, 0.75], 
        Hue[-0.18896447161810567`, 0.75], 
        Hue[-0.18896447161810567`, 0.75], 
        Hue[-0.18896447161810567`, 0.75], 
        Hue[-0.18896447161810567`, 0.75], 
        Hue[-0.18895727904117748`, 0.75], 
        Hue[-0.18895727904117748`, 0.75], 
        Hue[-0.18895727904117748`, 0.75], 
        Hue[-0.18895727904117748`, 0.75], 
        Hue[-0.18892998665935126`, 0.75], 
        Hue[-0.18892998665935126`, 0.75], 
        Hue[-0.18892998665935126`, 0.75], 
        Hue[-0.18892998665935126`, 0.75], 
        Hue[-0.1888263600968027, 0.75], 
        Hue[-0.1888263600968027, 0.75], 
        Hue[-0.1888263600968027, 0.75], 
        Hue[-0.1888263600968027, 0.75], 
        Hue[-0.18843196110390348`, 0.75], 
        Hue[-0.18843196110390348`, 0.75], 
        Hue[-0.18843196110390348`, 0.75], 
        Hue[-0.18843196110390348`, 0.75], 
        Hue[-0.1869172400645389, 0.75], 
        Hue[-0.1869172400645389, 0.75], 
        Hue[-0.1869172400645389, 0.75], 
        Hue[-0.1869172400645389, 0.75], 
        Hue[-0.18089566164312326`, 0.75], 
        Hue[-0.18089566164312326`, 0.75], 
        Hue[-0.18089566164312326`, 0.75], 
        Hue[-0.18089566164312326`, 0.75], 
        Hue[-0.15362642237626803`, 0.75], 
        Hue[-0.15362642237626803`, 0.75], 
        Hue[-0.15362642237626803`, 0.75], 
        Hue[-0.15362642237626803`, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0.1536264223762679, 0.75], 
        Hue[0.1536264223762679, 0.75], 
        Hue[0.1536264223762679, 0.75], 
        Hue[0.1536264223762679, 0.75], 
        Hue[0.18089566164312326`, 0.75], 
        Hue[0.18089566164312326`, 0.75], 
        Hue[0.18089566164312326`, 0.75], 
        Hue[0.18089566164312326`, 0.75], 
        Hue[0.1869172400645389, 0.75], 
        Hue[0.1869172400645389, 0.75], 
        Hue[0.1869172400645389, 0.75], 
        Hue[0.1869172400645389, 0.75], 
        Hue[0.18843196110390348`, 0.75], 
        Hue[0.18843196110390348`, 0.75], 
        Hue[0.18843196110390348`, 0.75], 
        Hue[0.18843196110390348`, 0.75], 
        Hue[0.1888263600968027, 0.75], 
        Hue[0.1888263600968027, 0.75], 
        Hue[0.1888263600968027, 0.75], 
        Hue[0.1888263600968027, 0.75], 
        Hue[0.18892998665935126`, 0.75], 
        Hue[0.18892998665935126`, 0.75], 
        Hue[0.18892998665935126`, 0.75], 
        Hue[0.18892998665935126`, 0.75], 
        Hue[0.18895727904117748`, 0.75], 
        Hue[0.18895727904117748`, 0.75], 
        Hue[0.18895727904117748`, 0.75], 
        Hue[0.18895727904117748`, 0.75], 
        Hue[0.18896447161810567`, 0.75], 
        Hue[0.18896447161810567`, 0.75], 
        Hue[0.18896447161810567`, 0.75], 
        Hue[0.18896447161810567`, 0.75], 
        Hue[0.18896636744847622`, 0.75], 
        Hue[0.18896636744847622`, 0.75], 
        Hue[0.18896636744847622`, 0.75], 
        Hue[0.18896636744847622`, 0.75], 
        Hue[0.18896686717613195`, 0.75], 
        Hue[0.18896686717613195`, 0.75], 
        Hue[0.18896686717613195`, 0.75], 
        Hue[0.18896686717613195`, 0.75], 
        Hue[0.1889669989023696, 0.75], 
        Hue[0.1889669989023696, 0.75], 
        Hue[0.1889669989023696, 0.75], 
        Hue[0.1889669989023696, 0.75], 
        Hue[0.18896703362499118`, 0.75], 
        Hue[0.18896703362499118`, 0.75], 
        Hue[0.18896703362499118`, 0.75], 
        Hue[0.18896703362499118`, 0.75], 
        Hue[0.18896704277777224`, 0.75], 
        Hue[0.18896704277777224`, 0.75], 
        Hue[0.18896704277777224`, 0.75], 
        Hue[0.18896704277777224`, 0.75], 
        Hue[0.18896704519041896`, 0.75], 
        Hue[0.18896704519041896`, 0.75], 
        Hue[0.18896704519041896`, 0.75], 
        Hue[0.18896704519041896`, 0.75], 
        Hue[-0.08286375037631383, 0.75], 
        Hue[-0.08286375037631383, 0.75], 
        Hue[-0.08286375037631383, 0.75], 
        Hue[-0.08286375037631383, 0.75], 
        Hue[-0.082863749585369, 0.75], 
        Hue[-0.082863749585369, 0.75], 
        Hue[-0.082863749585369, 0.75], 
        Hue[-0.082863749585369, 0.75], 
        Hue[-0.08286374658478705, 0.75], 
        Hue[-0.08286374658478705, 0.75], 
        Hue[-0.08286374658478705, 0.75], 
        Hue[-0.08286374658478705, 0.75], 
        Hue[-0.0828637352015762, 0.75], 
        Hue[-0.0828637352015762, 0.75], 
        Hue[-0.0828637352015762, 0.75], 
        Hue[-0.0828637352015762, 0.75], 
        Hue[-0.08286369201746334, 0.75], 
        Hue[-0.08286369201746334, 0.75], 
        Hue[-0.08286369201746334, 0.75], 
        Hue[-0.08286369201746334, 0.75], 
        Hue[-0.08286352819140552, 0.75], 
        Hue[-0.08286352819140552, 0.75], 
        Hue[-0.08286352819140552, 0.75], 
        Hue[-0.08286352819140552, 0.75], 
        Hue[-0.08286290669154452, 0.75], 
        Hue[-0.08286290669154452, 0.75], 
        Hue[-0.08286290669154452, 0.75], 
        Hue[-0.08286290669154452, 0.75], 
        Hue[-0.08286054895330558, 0.75], 
        Hue[-0.08286054895330558, 0.75], 
        Hue[-0.08286054895330558, 0.75], 
        Hue[-0.08286054895330558, 0.75], 
        Hue[-0.08285160484919227, 0.75], 
        Hue[-0.08285160484919227, 0.75], 
        Hue[-0.08285160484919227, 0.75], 
        Hue[-0.08285160484919227, 0.75], 
        Hue[-0.08281767923870939, 0.75], 
        Hue[-0.08281767923870939, 0.75], 
        Hue[-0.08281767923870939, 0.75], 
        Hue[-0.08281767923870939, 0.75], 
        Hue[-0.08268905373677457, 0.75], 
        Hue[-0.08268905373677457, 0.75], 
        Hue[-0.08268905373677457, 0.75], 
        Hue[-0.08268905373677457, 0.75], 
        Hue[-0.08220219935141218, 0.75], 
        Hue[-0.08220219935141218, 0.75], 
        Hue[-0.08220219935141218, 0.75], 
        Hue[-0.08220219935141218, 0.75], 
        Hue[-0.08037117518704733, 0.75], 
        Hue[-0.08037117518704733, 0.75], 
        Hue[-0.08037117518704733, 0.75], 
        Hue[-0.08037117518704733, 0.75], 
        Hue[-0.07365339235815421, 0.75], 
        Hue[-0.07365339235815421, 0.75], 
        Hue[-0.07365339235815421, 0.75], 
        Hue[-0.07365339235815421, 0.75], 
        Hue[-0.0513295987562635, 0.75], 
        Hue[-0.0513295987562635, 0.75], 
        Hue[-0.0513295987562635, 0.75], 
        Hue[-0.0513295987562635, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0.0513295987562634, 0.75], 
        Hue[0.0513295987562634, 0.75], 
        Hue[0.0513295987562634, 0.75], 
        Hue[0.0513295987562634, 0.75], 
        Hue[0.07365339235815418, 0.75], 
        Hue[0.07365339235815418, 0.75], 
        Hue[0.07365339235815418, 0.75], 
        Hue[0.07365339235815418, 0.75], 
        Hue[0.08037117518704733, 0.75], 
        Hue[0.08037117518704733, 0.75], 
        Hue[0.08037117518704733, 0.75], 
        Hue[0.08037117518704733, 0.75], 
        Hue[0.08220219935141218, 0.75], 
        Hue[0.08220219935141218, 0.75], 
        Hue[0.08220219935141218, 0.75], 
        Hue[0.08220219935141218, 0.75], 
        Hue[0.08268905373677456, 0.75], 
        Hue[0.08268905373677456, 0.75], 
        Hue[0.08268905373677456, 0.75], 
        Hue[0.08268905373677456, 0.75], 
        Hue[0.08281767923870939, 0.75], 
        Hue[0.08281767923870939, 0.75], 
        Hue[0.08281767923870939, 0.75], 
        Hue[0.08281767923870939, 0.75], 
        Hue[0.08285160484919227, 0.75], 
        Hue[0.08285160484919227, 0.75], 
        Hue[0.08285160484919227, 0.75], 
        Hue[0.08285160484919227, 0.75], 
        Hue[0.08286054895330561, 0.75], 
        Hue[0.08286054895330561, 0.75], 
        Hue[0.08286054895330561, 0.75], 
        Hue[0.08286054895330561, 0.75], 
        Hue[0.08286290669154452, 0.75], 
        Hue[0.08286290669154452, 0.75], 
        Hue[0.08286290669154452, 0.75], 
        Hue[0.08286290669154452, 0.75], 
        Hue[0.08286352819140552, 0.75], 
        Hue[0.08286352819140552, 0.75], 
        Hue[0.08286352819140552, 0.75], 
        Hue[0.08286352819140552, 0.75], 
        Hue[0.08286369201746334, 0.75], 
        Hue[0.08286369201746334, 0.75], 
        Hue[0.08286369201746334, 0.75], 
        Hue[0.08286369201746334, 0.75], 
        Hue[0.0828637352015762, 0.75], 
        Hue[0.0828637352015762, 0.75], 
        Hue[0.0828637352015762, 0.75], 
        Hue[0.0828637352015762, 0.75], 
        Hue[0.08286374658478705, 0.75], 
        Hue[0.08286374658478705, 0.75], 
        Hue[0.08286374658478705, 0.75], 
        Hue[0.08286374658478705, 0.75], 
        Hue[0.08286374958536902, 0.75], 
        Hue[0.08286374958536902, 0.75], 
        Hue[0.08286374958536902, 0.75], 
        Hue[0.08286374958536902, 0.75], 
        Hue[0.023239544640718084`, 0.75], 
        Hue[0.023239544640718084`, 0.75], 
        Hue[0.023239544640718084`, 0.75], 
        Hue[0.023239544640718084`, 0.75], 
        Hue[0.023239544376871223`, 0.75], 
        Hue[0.023239544376871223`, 0.75], 
        Hue[0.023239544376871223`, 0.75], 
        Hue[0.023239544376871223`, 0.75], 
        Hue[0.023239543375923877`, 0.75], 
        Hue[0.023239543375923877`, 0.75], 
        Hue[0.023239543375923877`, 0.75], 
        Hue[0.023239543375923877`, 0.75], 
        Hue[0.023239539578662448`, 0.75], 
        Hue[0.023239539578662448`, 0.75], 
        Hue[0.023239539578662448`, 0.75], 
        Hue[0.023239539578662448`, 0.75], 
        Hue[0.023239525173119165`, 0.75], 
        Hue[0.023239525173119165`, 0.75], 
        Hue[0.023239525173119165`, 0.75], 
        Hue[0.023239525173119165`, 0.75], 
        Hue[0.02323947052335098, 0.75], 
        Hue[0.02323947052335098, 0.75], 
        Hue[0.02323947052335098, 0.75], 
        Hue[0.02323947052335098, 0.75], 
        Hue[0.0232392632014151, 0.75], 
        Hue[0.0232392632014151, 0.75], 
        Hue[0.0232392632014151, 0.75], 
        Hue[0.0232392632014151, 0.75], 
        Hue[0.023238476707179476`, 0.75], 
        Hue[0.023238476707179476`, 0.75], 
        Hue[0.023238476707179476`, 0.75], 
        Hue[0.023238476707179476`, 0.75], 
        Hue[0.023235493244341366`, 0.75], 
        Hue[0.023235493244341366`, 0.75], 
        Hue[0.023235493244341366`, 0.75], 
        Hue[0.023235493244341366`, 0.75], 
        Hue[0.023224178359560862`, 0.75], 
        Hue[0.023224178359560862`, 0.75], 
        Hue[0.023224178359560862`, 0.75], 
        Hue[0.023224178359560862`, 0.75], 
        Hue[0.023181302067280012`, 0.75], 
        Hue[0.023181302067280012`, 0.75], 
        Hue[0.023181302067280012`, 0.75], 
        Hue[0.023181302067280012`, 0.75], 
        Hue[0.02301934036234175, 0.75], 
        Hue[0.02301934036234175, 0.75], 
        Hue[0.02301934036234175, 0.75], 
        Hue[0.02301934036234175, 0.75], 
        Hue[0.02241477364096848, 0.75], 
        Hue[0.02241477364096848, 0.75], 
        Hue[0.02241477364096848, 0.75], 
        Hue[0.02241477364096848, 0.75], 
        Hue[0.020254715381022907`, 0.75], 
        Hue[0.020254715381022907`, 0.75], 
        Hue[0.020254715381022907`, 0.75], 
        Hue[0.020254715381022907`, 0.75], 
        Hue[0.01360744080620428, 0.75], 
        Hue[0.01360744080620428, 0.75], 
        Hue[0.01360744080620428, 0.75], 
        Hue[0.01360744080620428, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[-0.013607440806204253`, 0.75], 
        Hue[-0.013607440806204253`, 0.75], 
        Hue[-0.013607440806204253`, 0.75], 
        Hue[-0.013607440806204253`, 0.75], 
        Hue[-0.020254715381022893`, 0.75], 
        Hue[-0.020254715381022893`, 0.75], 
        Hue[-0.020254715381022893`, 0.75], 
        Hue[-0.020254715381022893`, 0.75], 
        Hue[-0.02241477364096848, 0.75], 
        Hue[-0.02241477364096848, 0.75], 
        Hue[-0.02241477364096848, 0.75], 
        Hue[-0.02241477364096848, 0.75], 
        Hue[-0.023019340362341753`, 0.75], 
        Hue[-0.023019340362341753`, 0.75], 
        Hue[-0.023019340362341753`, 0.75], 
        Hue[-0.023019340362341753`, 0.75], 
        Hue[-0.023181302067280012`, 0.75], 
        Hue[-0.023181302067280012`, 0.75], 
        Hue[-0.023181302067280012`, 0.75], 
        Hue[-0.023181302067280012`, 0.75], 
        Hue[-0.023224178359560862`, 0.75], 
        Hue[-0.023224178359560862`, 0.75], 
        Hue[-0.023224178359560862`, 0.75], 
        Hue[-0.023224178359560862`, 0.75], 
        Hue[-0.023235493244341366`, 0.75], 
        Hue[-0.023235493244341366`, 0.75], 
        Hue[-0.023235493244341366`, 0.75], 
        Hue[-0.023235493244341366`, 0.75], 
        Hue[-0.023238476707179472`, 0.75], 
        Hue[-0.023238476707179472`, 0.75], 
        Hue[-0.023238476707179472`, 0.75], 
        Hue[-0.023238476707179472`, 0.75], 
        Hue[-0.0232392632014151, 0.75], 
        Hue[-0.0232392632014151, 0.75], 
        Hue[-0.0232392632014151, 0.75], 
        Hue[-0.0232392632014151, 0.75], 
        Hue[-0.02323947052335098, 0.75], 
        Hue[-0.02323947052335098, 0.75], 
        Hue[-0.02323947052335098, 0.75], 
        Hue[-0.02323947052335098, 0.75], 
        Hue[-0.023239525173119165`, 0.75], 
        Hue[-0.023239525173119165`, 0.75], 
        Hue[-0.023239525173119165`, 0.75], 
        Hue[-0.023239525173119165`, 0.75], 
        Hue[-0.023239539578662448`, 0.75], 
        Hue[-0.023239539578662448`, 0.75], 
        Hue[-0.023239539578662448`, 0.75], 
        Hue[-0.023239539578662448`, 0.75], 
        Hue[-0.023239543375923877`, 0.75], 
        Hue[-0.023239543375923877`, 0.75], 
        Hue[-0.023239543375923877`, 0.75], 
        Hue[-0.023239543375923877`, 0.75], 
        Hue[-0.023239544376871223`, 0.75], 
        Hue[-0.023239544376871223`, 0.75], 
        Hue[-0.023239544376871223`, 0.75], 
        Hue[-0.023239544376871223`, 0.75], 
        Hue[0.1293428398022048, 0.75], 
        Hue[0.1293428398022048, 0.75], 
        Hue[0.1293428398022048, 0.75], 
        Hue[0.1293428398022048, 0.75], 
        Hue[0.12934283888712658`, 0.75], 
        Hue[0.12934283888712658`, 0.75], 
        Hue[0.12934283888712658`, 0.75], 
        Hue[0.12934283888712658`, 0.75], 
        Hue[0.1293428354156237, 0.75], 
        Hue[0.1293428354156237, 0.75], 
        Hue[0.1293428354156237, 0.75], 
        Hue[0.1293428354156237, 0.75], 
        Hue[0.12934282224589455`, 0.75], 
        Hue[0.12934282224589455`, 0.75], 
        Hue[0.12934282224589455`, 0.75], 
        Hue[0.12934282224589455`, 0.75], 
        Hue[0.12934277228431487`, 0.75], 
        Hue[0.12934277228431487`, 0.75], 
        Hue[0.12934277228431487`, 0.75], 
        Hue[0.12934277228431487`, 0.75], 
        Hue[0.12934258274665847`, 0.75], 
        Hue[0.12934258274665847`, 0.75], 
        Hue[0.12934258274665847`, 0.75], 
        Hue[0.12934258274665847`, 0.75], 
        Hue[0.12934186370351233`, 0.75], 
        Hue[0.12934186370351233`, 0.75], 
        Hue[0.12934186370351233`, 0.75], 
        Hue[0.12934186370351233`, 0.75], 
        Hue[0.1293391358893873, 0.75], 
        Hue[0.1293391358893873, 0.75], 
        Hue[0.1293391358893873, 0.75], 
        Hue[0.1293391358893873, 0.75], 
        Hue[0.1293287874221054, 0.75], 
        Hue[0.1293287874221054, 0.75], 
        Hue[0.1293287874221054, 0.75], 
        Hue[0.1293287874221054, 0.75], 
        Hue[0.12928952810737376`, 0.75], 
        Hue[0.12928952810737376`, 0.75], 
        Hue[0.12928952810737376`, 0.75], 
        Hue[0.12928952810737376`, 0.75], 
        Hue[0.12914058178380244`, 0.75], 
        Hue[0.12914058178380244`, 0.75], 
        Hue[0.12914058178380244`, 0.75], 
        Hue[0.12914058178380244`, 0.75], 
        Hue[0.1285753958289547, 0.75], 
        Hue[0.1285753958289547, 0.75], 
        Hue[0.1285753958289547, 0.75], 
        Hue[0.1285753958289547, 0.75], 
        Hue[0.1264295700544924, 0.75], 
        Hue[0.1264295700544924, 0.75], 
        Hue[0.1264295700544924, 0.75], 
        Hue[0.1264295700544924, 0.75], 
        Hue[0.11827652769899935`, 0.75], 
        Hue[0.11827652769899935`, 0.75], 
        Hue[0.11827652769899935`, 0.75], 
        Hue[0.11827652769899935`, 0.75], 
        Hue[0.08781056627012306, 0.75], 
        Hue[0.08781056627012306, 0.75], 
        Hue[0.08781056627012306, 0.75], 
        Hue[0.08781056627012306, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[-0.0878105662701229, 0.75], 
        Hue[-0.0878105662701229, 0.75], 
        Hue[-0.0878105662701229, 0.75], 
        Hue[-0.0878105662701229, 0.75], 
        Hue[-0.11827652769899932`, 0.75], 
        Hue[-0.11827652769899932`, 0.75], 
        Hue[-0.11827652769899932`, 0.75], 
        Hue[-0.11827652769899932`, 0.75], 
        Hue[-0.1264295700544924, 0.75], 
        Hue[-0.1264295700544924, 0.75], 
        Hue[-0.1264295700544924, 0.75], 
        Hue[-0.1264295700544924, 0.75], 
        Hue[-0.1285753958289547, 0.75], 
        Hue[-0.1285753958289547, 0.75], 
        Hue[-0.1285753958289547, 0.75], 
        Hue[-0.1285753958289547, 0.75], 
        Hue[-0.12914058178380244`, 0.75], 
        Hue[-0.12914058178380244`, 0.75], 
        Hue[-0.12914058178380244`, 0.75], 
        Hue[-0.12914058178380244`, 0.75], 
        Hue[-0.12928952810737376`, 0.75], 
        Hue[-0.12928952810737376`, 0.75], 
        Hue[-0.12928952810737376`, 0.75], 
        Hue[-0.12928952810737376`, 0.75], 
        Hue[-0.12932878742210538`, 0.75], 
        Hue[-0.12932878742210538`, 0.75], 
        Hue[-0.12932878742210538`, 0.75], 
        Hue[-0.12932878742210538`, 0.75], 
        Hue[-0.1293391358893873, 0.75], 
        Hue[-0.1293391358893873, 0.75], 
        Hue[-0.1293391358893873, 0.75], 
        Hue[-0.1293391358893873, 0.75], 
        Hue[-0.12934186370351233`, 0.75], 
        Hue[-0.12934186370351233`, 0.75], 
        Hue[-0.12934186370351233`, 0.75], 
        Hue[-0.12934186370351233`, 0.75], 
        Hue[-0.12934258274665847`, 0.75], 
        Hue[-0.12934258274665847`, 0.75], 
        Hue[-0.12934258274665847`, 0.75], 
        Hue[-0.12934258274665847`, 0.75], 
        Hue[-0.12934277228431487`, 0.75], 
        Hue[-0.12934277228431487`, 0.75], 
        Hue[-0.12934277228431487`, 0.75], 
        Hue[-0.12934277228431487`, 0.75], 
        Hue[-0.12934282224589455`, 0.75], 
        Hue[-0.12934282224589455`, 0.75], 
        Hue[-0.12934282224589455`, 0.75], 
        Hue[-0.12934282224589455`, 0.75], 
        Hue[-0.1293428354156237, 0.75], 
        Hue[-0.1293428354156237, 0.75], 
        Hue[-0.1293428354156237, 0.75], 
        Hue[-0.1293428354156237, 0.75], 
        Hue[-0.12934283888712658`, 0.75], 
        Hue[-0.12934283888712658`, 0.75], 
        Hue[-0.12934283888712658`, 0.75], 
        Hue[-0.12934283888712658`, 0.75], 
        Hue[0.23544613546469467`, 0.75], 
        Hue[0.23544613546469467`, 0.75], 
        Hue[0.23544613546469467`, 0.75], 
        Hue[0.23544613546469467`, 0.75], 
        Hue[0.23544613529801997`, 0.75], 
        Hue[0.23544613529801997`, 0.75], 
        Hue[0.23544613529801997`, 0.75], 
        Hue[0.23544613529801997`, 0.75], 
        Hue[0.23544613466571154`, 0.75], 
        Hue[0.23544613466571154`, 0.75], 
        Hue[0.23544613466571154`, 0.75], 
        Hue[0.23544613466571154`, 0.75], 
        Hue[0.23544613226694291`, 0.75], 
        Hue[0.23544613226694291`, 0.75], 
        Hue[0.23544613226694291`, 0.75], 
        Hue[0.23544613226694291`, 0.75], 
        Hue[0.235446123166808, 0.75], 
        Hue[0.235446123166808, 0.75], 
        Hue[0.235446123166808, 0.75], 
        Hue[0.235446123166808, 0.75], 
        Hue[0.23544608864386707`, 0.75], 
        Hue[0.23544608864386707`, 0.75], 
        Hue[0.23544608864386707`, 0.75], 
        Hue[0.23544608864386707`, 0.75], 
        Hue[0.23544595767455823`, 0.75], 
        Hue[0.23544595767455823`, 0.75], 
        Hue[0.23544595767455823`, 0.75], 
        Hue[0.23544595767455823`, 0.75], 
        Hue[0.235445460809899, 0.75], 
        Hue[0.235445460809899, 0.75], 
        Hue[0.235445460809899, 0.75], 
        Hue[0.235445460809899, 0.75], 
        Hue[0.2354435757178688, 0.75], 
        Hue[0.2354435757178688, 0.75], 
        Hue[0.2354435757178688, 0.75], 
        Hue[0.2354435757178688, 0.75], 
        Hue[0.23543642210893348`, 0.75], 
        Hue[0.23543642210893348`, 0.75], 
        Hue[0.23543642210893348`, 0.75], 
        Hue[0.23543642210893348`, 0.75], 
        Hue[0.23540925205187266`, 0.75], 
        Hue[0.23540925205187266`, 0.75], 
        Hue[0.23540925205187266`, 0.75], 
        Hue[0.23540925205187266`, 0.75], 
        Hue[0.23530572040334877`, 0.75], 
        Hue[0.23530572040334877`, 0.75], 
        Hue[0.23530572040334877`, 0.75], 
        Hue[0.23530572040334877`, 0.75], 
        Hue[0.2349062546347504, 0.75], 
        Hue[0.2349062546347504, 0.75], 
        Hue[0.2349062546347504, 0.75], 
        Hue[0.2349062546347504, 0.75], 
        Hue[0.2332875231087394, 0.75], 
        Hue[0.2332875231087394, 0.75], 
        Hue[0.2332875231087394, 0.75], 
        Hue[0.2332875231087394, 0.75], 
        Hue[0.22516077241445864`, 0.75], 
        Hue[0.22516077241445864`, 0.75], 
        Hue[0.22516077241445864`, 0.75], 
        Hue[0.22516077241445864`, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[0, 0.75], 
        Hue[-0.2251607724144586, 0.75], 
        Hue[-0.2251607724144586, 0.75], 
        Hue[-0.2251607724144586, 0.75], 
        Hue[-0.2251607724144586, 0.75], 
        Hue[-0.23328752310873935`, 0.75], 
        Hue[-0.23328752310873935`, 0.75], 
        Hue[-0.23328752310873935`, 0.75], 
        Hue[-0.23328752310873935`, 0.75], 
        Hue[-0.2349062546347504, 0.75], 
        Hue[-0.2349062546347504, 0.75], 
        Hue[-0.2349062546347504, 0.75], 
        Hue[-0.2349062546347504, 0.75], 
        Hue[-0.23530572040334877`, 0.75], 
        Hue[-0.23530572040334877`, 0.75], 
        Hue[-0.23530572040334877`, 0.75], 
        Hue[-0.23530572040334877`, 0.75], 
        Hue[-0.23540925205187266`, 0.75], 
        Hue[-0.23540925205187266`, 0.75], 
        Hue[-0.23540925205187266`, 0.75], 
        Hue[-0.23540925205187266`, 0.75], 
        Hue[-0.23543642210893348`, 0.75], 
        Hue[-0.23543642210893348`, 0.75], 
        Hue[-0.23543642210893348`, 0.75], 
        Hue[-0.23543642210893348`, 0.75], 
        Hue[-0.2354435757178688, 0.75], 
        Hue[-0.2354435757178688, 0.75], 
        Hue[-0.2354435757178688, 0.75], 
        Hue[-0.2354435757178688, 0.75], 
        Hue[-0.235445460809899, 0.75], 
        Hue[-0.235445460809899, 0.75], 
        Hue[-0.235445460809899, 0.75], 
        Hue[-0.235445460809899, 0.75], 
        Hue[-0.23544595767455823`, 0.75], 
        Hue[-0.23544595767455823`, 0.75], 
        Hue[-0.23544595767455823`, 0.75], 
        Hue[-0.23544595767455823`, 0.75], 
        Hue[-0.23544608864386707`, 0.75], 
        Hue[-0.23544608864386707`, 0.75], 
        Hue[-0.23544608864386707`, 0.75], 
        Hue[-0.23544608864386707`, 0.75], 
        Hue[-0.235446123166808, 0.75], 
        Hue[-0.235446123166808, 0.75], 
        Hue[-0.235446123166808, 0.75], 
        Hue[-0.235446123166808, 0.75], 
        Hue[-0.23544613226694291`, 0.75], 
        Hue[-0.23544613226694291`, 0.75], 
        Hue[-0.23544613226694291`, 0.75], 
        Hue[-0.23544613226694291`, 0.75], 
        Hue[-0.23544613466571154`, 0.75], 
        Hue[-0.23544613466571154`, 0.75], 
        Hue[-0.23544613466571154`, 0.75], 
        Hue[-0.23544613466571154`, 0.75], 
        Hue[-0.23544613529801997`, 0.75], 
        Hue[-0.23544613529801997`, 0.75], 
        Hue[-0.23544613529801997`, 0.75], 
        Hue[-0.23544613529801997`, 0.75]},
      VertexNormals->CompressedData["
1:eJztyEENwCAABLAL+xMsTMk8IIGEN9aRMAUYIO2z71h9liStJk9O9ue99957
77333nvvvffee++9995777333nvvvffee++9995777333nvvvffee++99957
77333nvvvffee++9995777333nvvvffee++9995777333nvvvffee++99957
77333nvvvffee++9995777333nvvvffee++9995777333nvvvffee++99957
77333nvvvffee++9995777333nvvvffee++9995777333nvvvffee++99957
77333nvvvffee++9995777333nvvvffe3/Q/39OnrQ==
       "]], {}, {{}, {}}},
    Axes->True,
    AxesLabel->{
      FormBox["Re", TraditionalForm], 
      FormBox["Im", TraditionalForm], None},
    BoxRatios->{1, 1, 0.4},
    DisplayFunction->Identity,
    Lighting->"Neutral",
    Method->{"DefaultBoundaryStyle" -> Directive[
        GrayLevel[0.3]], 
      "DefaultGraphicsInteraction" -> {
       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
        "Effects" -> {
         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
          "Droplines" -> {
           "freeformCursorMode" -> True, 
            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
      "RotationControl" -> "Globe"},
    PlotRange->{Full, Full, All},
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.02]}},
    Ticks->{{{1, 
        FormBox[
         RowBox[{"-", "10"}], TraditionalForm]}, {
        NCache[
         Rational[17, 2], 8.5], 
        FormBox[
         RowBox[{"-", "5"}], TraditionalForm]}, {16, 
        FormBox["0", TraditionalForm]}, {
        NCache[
         Rational[47, 2], 23.5], 
        FormBox["5", TraditionalForm]}, {31, 
        FormBox["10", TraditionalForm]}}, {{1, 
        FormBox[
         RowBox[{"-", "10"}], TraditionalForm]}, {
        NCache[
         Rational[17, 2], 8.5], 
        FormBox[
         RowBox[{"-", "5"}], TraditionalForm]}, {16, 
        FormBox["0", TraditionalForm]}, {
        NCache[
         Rational[47, 2], 23.5], 
        FormBox["5", TraditionalForm]}, {31, 
        FormBox["10", TraditionalForm]}}, Automatic}], ",", 
   Graphics3DBox[{GraphicsComplex3DBox[CompressedData["
1:eJydnXd81EUXryNVQbpEQDoSei8Cgjt0KdKUjkgvKigoKApIb9IEpEpTQYoU
pUrLghRpAtI7CYROEggQEAl3l8xzcvfsO3/c+/6zn3zf4/ymPHPmTCVfp0+a
dU0WEhKS58WQkOS+32rXz15/9qyAl98cswbU7Vlgufmi64XeUfPyB+m/RV66
v69aviD9ePjuBx3+yBOkv71p/wvF43MG6ZvXHk4XXz5HkF5y1fHsO/q+GqQv
XHqm4ITVrwTpr/x8sUyr6ExBevpqe7+u0yp9kH6/zNGp546+GKSfCTu/vG/j
5EH6kDf+Hp1p+pNwrTfMF7mh2oTYIL1T8VPzf8l0Ikj/OFH3aL1RYjpB+rDE
7wbpZxPzabT+ILFcQXqGxHoI0m29Bem2noN02y5Bum3HIN22e5BuOQnSLVdB
uuUwSLd/u3Qv/GqetQ7PWodnrcOz1uFZ6/CsdXjWOjxrHZ61Ds9ah2etw7PW
4Vnr8Kx1eNY6PGsdnrUOz1qHZ63Ds6PegnR4drRLkA7PjnYP0uHZwVWQDs9a
h2eH7oXTKXOnbi6/dJHYoWdYdHmtX+dvfg+0Pen16/CM3jc+ywG/Ds/oE8p0
3+nX4Rn95Ma31vt1eEZPfmX0Rr8Oz+hls0/a49fhGf1Ik4R9fh2eJf+7am/1
6/CMnmLC3Oflgmf0IqPShPt1eEYfsHjZfr8Oz+gXY9Pu9uvwjL6w9Nsb/Do8
oy+wOjyjX7DpwLP+LjyjF7b5hGddLnhGz2jrAZ51vcGzrmd41u0Cz7od4Vm3
OzxrTuBZcwXPmkN41tzCMzzGRP/+3ewt3wvP6BdupfnCr/Pfo9/JuWqxX+dv
fu/2HnDUr8Mz+tMtEWv9OjyjZ+nSd6Bfh2f0B9cmjvTr8Iz+w6v9t/t1eEaf
sibskF+HZ/TXv+k306/DM/rlkXH9/Do8o7cvN2y+X4dn9JCfjh/x6/CM3upc
781+HZ7RF0yaNsSvw7PW4VmnA8/6u/CM/r7NJzzrcsEzekFbD/Cs6w2edT3D
s24XeNbtCM+63eFZcwLPmit41hzCs+YWnuEuJMutOZkOjxSe0bMVX1bGr8Mz
+rLIyTF+nXTRo2vn+DGzT+dvfruuLVzYr8MzetyO8nX96cCz6A1HfeTX4Rn9
QMV32vjTgWf0/nsuTPbr8Iw+u+z59f504Bm954AmJfw6PKMPO/3wH78Oz+gn
YifP8acPz+gn/65dw6/DM3rZ1Stb+tOBZ/RyVodnnQ48i26/C886n/CsywXP
6LNsPcCzrjd41vUMz7pd4Fm3IzzrdodnzQk8a67gWXMIz5pbeIavPNU79px1
uZ/wjN7xyKntM3w6PKPPiz64frZPh2f02NT9B8/16XwPvVCJzjPn+HT+5nd+
4/WvzvTp8Ix+9fxXS/w6PKPvKFWjww8+HZ7Ro2fsquz/Ljyjd52695i/XPCM
3mP80NX+csEz+qDI/bX85YJn6X9pe3Txpw/P6G3afhXizw88o4+t3Lm1P//w
rHV41unAs/4uPOt8wrMuFzzreoBnXW/wrOsZnnW7wLNuR3jW7Q7PmhN41lzB
s+YQnjW38AxHf6w/9VLp+K7CM/qc5HP7FPHp8Ix+YXZUlQo+HZ7RM3ed0dj4
dHhGH5o567ZKPp18oLeOv7SnqE/nb3435oh5sYRPh2f0Zhn3nHnTp8Mzevtq
+6t5fDo8ozc/8u+6Mj4dntHf3DyouL9c8Iy+vs3nn5fz6fCMfn7Olmv+9OEZ
fVj803ZVfDo8o18dvuxgMZ8Oz+hRVodnnQ486+/CM/oGm0941uWCZ10P8Kzr
DZ51PcOzbhd41u0Iz7rd4VlzAs+aK3jWHMKz5hae4WVsvaPTDqZpITyj/1Kh
WYM1Pl3mOVbPumpEnUifDs/oX5ec3Sd92hbCM/qgn9fWifXZwzP6zQc/zd/o
08kf+r4+Z+ds9+n8ze+M/i1X/ufT4Rn9XVO9ZBrfd+FZ1vkedvMc89nDM/qw
gvve+N2nwzP6iE+zljvr0+EZvXnVn4++7EsfntG3/Tduy0OfPTyjp79ZeM0W
nw7P6OmsDs86HXjW34VnnU941uWCZ10P8KzrDZ51PcOzbhd41u0Iz7rd4Vlz
As+aK3jWHMKz5hae4WJfye4tm+WuIzyjpy742YQbueoIz+hX16049rPPHp7R
0+d+PeK9PHWEZ/Syk8r8dM5nD8/oFZKXPJDgSx+ehdMcP8/N77Mn3+hP1ke+
kt6XPn/zW6Vzu8s1fTo8o7+RLP/Nj33pwDN6pbgMNaN834Vn9Jxpiy8Y47OH
Z/SxFSp/0siXPjzLfHRg5c4PffbwjJ7mZOqXM/h0eEZPa3V4Rj9p04Fn/V14
1vmEZ10ueNb1AM+63uBZ1zM863aBZ92O8KzbHZ41J/CsuYJnzSE8a27hmfa/
X/2vS54yFYVn9NRvPMo8r1RF4Rl9zeaW68aUrSg8ox8puq9xnQoVhWf04bny
vN69XEXhGb3JkFl77/nSh2f0iLnFZg8tXVF4Ri8R3bJM8fIVk+rF6jHjRs5J
5vsuf/ObsVijw0t95YJn9M6/Z4sf7/suPKPn+Hdq3Wy+csEz+u2W4xcW96UP
z+hnJ5qdB33lgmf0AhnzTyvnyz88o+e3OjzrdOBZfxeedT7hWZcLnnU9wLOu
N3jW9QzPul3gWbcjPOt2h2fNCTxrruBZcwjPmlt4lnY+Hz56fvUw4Rk9LKxd
95xvhgnP6A/bfLJwW50w4Rk9jSd59qVNw4Rn9Ksn9r1QoX6Y8Iwe+bDot72r
hgnP6KfDOn6x5K0w4Rl9fdjNa7XfCROe0d/PPn/OnCZhSeW0+rFvOiSrUzNM
eOZ3R9jdHKeqhAnP6E9SV+yXUCtMeEb/rHiyyBq+csEzetemnY8ebBAmPKM/
q98jT59qYcKz1uFZpwPP6P3sd+EZ/V+bT3jW5YJnWae09QDPut7gWdczPOt2
gWfdjvCs2x2eNSfwrLmCZ80hPGtu4Zn2rONttGxd3VDhGf2lZWuO/1wiVHhG
r9v9t88KtgsVntEjejXJOWp0qPCMXiJfuVHRPUOFZ/SL/4bnjS0bKjyj//Te
grfPvBkqPKPneGlwvdz9Q4Vn9C69y0e3Hh4qPKN/Xbvwy+80CpXyo/dOV/Lx
lOKhwjO/K5c+WFS0eajwjH7ym7Kp744MFZ7RC/VPyPr2p6HCM/r7j8pEPakY
Kjyjt7M6POt04Fl/F57RV9h8wrMuFzzreoBnXW/wrOsZnnW7wLNuR3jW7Q7P
mhN41lzBs+YQnjW38Ey7hWSO718uLJXwjL6q8bMbU7ekFJ7Rh9V7L+G/L1IJ
z+hneyxItid/auEZ3XusYPPlK1MJz+gt69bPWeiflMKznJs4X6h4y4cphWf0
lS+eurX6QirhGb1U/7eyDMucWnhGT3Wx5JNfTSrhGf300E8uVdiYUuoFfcuk
Hl8WapdKeOb3UdeB43/ImVp4Rh9+pUqzTXtSCc/o00bG1JwVmVJ41jo8S33a
dOBZfxee0bfafMKzLhc8o6e09QDPut7gWdczPOt2gWfdjvCs2x2eNSfwrLmC
Z80hPGtu4Zn2+blb5OPvhj6QcwPou5Zka1jIGyf7r+h3b59rknn/Q9nHQh/b
9c0VU5o9lv0A9FstTx4+Oj9e1lXRWyxduPmT3PdlfQo9qlvyFbP/uC/zfPRC
8y/mqdXikcyX5HzQR1kr3Q59LHEneqn/Yj46eueBjN/oW+v1Soj6NU78IPoL
oWGpx7V7KDyJ/mHuZMmrPvbwN7/Dk427N/xZvAee0TMMWfNnt673PfAscbfV
4VmnA8/6u/CMHmLzCc+6XPCMXtrWAzzreoNnXc/wrNsFnnU7wrNud3jWnMCz
5gqeNYfwrLmFZ9phVq7ey49uuiI8o5eaO2n7+8tOCs/oN0Ycz7Zn0Q3hGb3j
2UwbvrqZtO+F3izP951bfXNbeEavs+FxxaxlzwnP8t05lbpOqR4hPKP3vJay
16SD0cIz+t7rFfIsm5w0v0LPGXdlyIzeV4Vn9Cpxe0dn+DkpDkB/qfNSb8NX
rgvP6Kf/uXhn4V9J/KFHfrzu5U833hGeZd974vHQ9ypdFJ7Rz1odntGv2HTg
WX8XntFT2nzCM3plWy54Rs9j6wGedb3Bs65neNbtAs+6HeFZtzs8a07gWXMF
z5pDeNbcwjP1/YPiGb2S4hn9tuJZ2k3xjP6u4hm9keIZvZziGb2X4hl9n+IZ
PbfiGb2W4hn9ZcWzxL+KZ/Srimf0c4pnfi8rntGvK571d+EZ/SXFM3pNxTN6
PsWzrjd41vUMz7pd4Fm3IzzrdodnzQk8a67gWXMIz5pbeKZel6p4A32vijdk
Xq7iDfRvVbyBfkfFG+htVLyBfkPFG+hFVLyB7lHxBno5FW+gb1fxBnpKFW+g
J1fxBvpIFW+gZ1LxBnpmFW/wO0rFG/q78Cy6ijd0ueBZ1wM863qDZ13P8Kzb
BZ51O8Kzbnd41pzAs+YKnjWH8Ky5hWfqL7maD8q5RTUfRB+p5oPo59V8EH27
mg+it1bzQXSPmg+ir1LzQfQyaj6InlrNB9HPqvkgeriaD6L/q+aDUg9qPog+
Xc0HtU57oI9Q80H9XXhG36bmg7pc8Iz+opoP6nqDZ13P8KzbBZ51O8Kzbnd4
1pzAs+YKnjWH8Ky5hWfqqb5ar0N/Wa3Xib1ar0O/otbr0Muo9Tr0SLVeh75I
rdeh51Lrdejd1Xod+iC1XofeR63XyflitV4n62RqvQ69qFqvQ++g1uvQP1Dr
dejF1Hqd/i5/87tardfpcsEz+mC1XqfrDZ51PcOzbhd41u0Iz7rd4VlzAs+a
K3jWHMKz5haeqY9Maj8FvYjaT0F/pPZT0NOp/RT062o/BT1K7acktU/gfgr6
H2o/Bb2D2k9BP6H2U9B3qf0U9AS1n4LeX+2noPdQ+ynoyRoE7qdoHZ7Re6r9
FPQv1X4K+lO1n6LLBc/oJ9V+iq43eNb1DM+6XeBZtyM863aHZ80JPGuu4Flz
CM+aW3im3PFqvxs9jdrvRl+n9rvRj6n9bvSRar8b/V21341+Re13o5dS+93o
99R+t5xfUPvd6N3Ufjd6LrXfjR6j9rvRL6r9bvSCar9b6/Cs04Fn/V141vmk
XXW5+JvfzGq/W9cbPOt6hmfdLvCs2xGedbvDs+YEnjVX8Kw5hGfNrTqPZBzn
kYzjPJJxnEcyjvNIxnEeyTjOIxnHeSTjOI9kHOeRjOM8knGcRzKO80jGcR7J
OM4jGcd5JOM4j2Qc55GM4zyScZxHMo7zSMZxHsk4ziMZx3kk4ziPZBznkYzj
PJJxnEcyjvNIxnEeyejzSJTDcV7UOM6LGsd5UeM4L2oc50WN47yocZwXNY7z
osZxXtQ4zosax3lR4zgvahznRY3jvKhxnBc1jvOixnFe1DjOixrHeVHjOC9q
HOdFjeO8qHGcFzWO86LGcV7UOM6LGsd5UeM4L2oc50WNPi9Kfh3n+Y3jPL9x
nOc3jvP8xnGe3zjO8xvHeX7jOM9vHOf5jeM8v3Gc5zeO8/zGcZ7fOM7zG8d5
fuM4z28c5/mN4zy/cZznN47z/MZxnt84zvMbx3l+4zjPbxzn+Y3jPL9xnOc3
jvP8xnGe3+jz/OTLcd/KOO5bGcd9K+O4b2Uc962M476Vcdy3Mo77VsZx38o4
7lsZx30r47hvZRz3rYzjvpVx3LcyjvtWxnHfyjjuWxnHfSvjuG9lHPetjOO+
lXHctzKO+1bGcd/KOO5bGcd9K+O4b2Uc962Mvm/F9x33YY3jPqxx3Ic1jvuw
xnEf1jjuwxrHfVjjuA9rHPdhjeM+rHHchzWO+7DGcR/WOO7DGsd9WOO4D2sc
92GN4z6scdyHNY77sMZxH9Y47sMax31Y47gPaxz3YY3jPqxx3Ic1jvuwxnEf
1uj7sHzH8V6BcbxXYBzvFRjHewXG8V6BcbxXYBzvFRjHewXG8V6BcbxXYBzv
FRjHewXG8V6BcbxXYBzvFRjHewXG8V6BcbxXYBzvFRjHewXG8V6BcbxXYBzv
FRjHewXG8V6BcbxXYBzvFRjHewXG8V6B0e8VkJ7jPRnjeE/GON6TMY73ZIzj
PRnjeE/GON6TMY73ZIzjPRnjeE/GON6TMY73ZIzjPRnjeE/GON6TMY73ZIzj
PRnjeE/GON6TMY73ZIzjPRnjeE/GON6TMY73ZIzjPRnjeE9GOFHvyRjHezLG
8Z6M0e/J8N853vsyjve+jOO9L+N478s43vsyjve+jOO9L+N478s43vsyjve+
jOO9L+N478s43vsyjve+jOO9L+N478s43vsyjve+jOO9L+N470vXW5Cu3vvS
7RKkq/e+dLsH6eq9L81VkK7e+zKO9760zjuEQTxrXb3HGMSz1tV7jEE8a129
xxjEs9bVe4xBPGtdvccYxLPW1XuMQTxrXb3HGMSz1tV7jEE8a129xxjEs9bV
e4xBPDvqOUhX7zEG8exo9yBdvccYxLODwyBdvceo6u01b5fn9X01/P5fGT75
9fVoD3/z27tJx8E33o/x9Hj+dyqD/tWRI/E9V9+0eqjoQ4cuy/56ffYJ8ol+
s2j6MuV33EL39kzUPTFWt+mIPtym0z3xu6IPtd/lb3772Xzachn0x7Zcidxy
vyz4XUqt27+Nwz5I5+9uz7/7MHzg538Nn/nfUykvumd5g2zemQmi6/pJ5Dyv
2JevHlKi4tQQg479hfWlnhY7c8+eJ8wt9q+fHbO8wp8hBh37Kenr3UszNM6e
M8wm9ntbdCywb+9T0bGvWS7r2Rz/XZN2wX5PZPSPtf58Jrpu98R6yCL2U+9P
aH3pQohBx751x4SIyRfjbHkzJuV/8qB/f32X8mYU+1vJL5ZKH39XeMC+2bjf
0v7QNkF07L+2nLzzPJ0Qsc+3e+qY/P1CDLrk5/ioFjM/uefBjt9505/1WH00
xPA39qP23ssx8I84T8jz/62tyv+f0XtySdc/n4qO/ZlXu7Ste+6a8Ir9oit7
B//1+TPRse8T0O8eiv18mx907Efb/CTWW1J+KS869q1seRP7S1qxv5BQeUVo
oQTRsY/fkDLZg603aC/jaC+j28u2u3HwYDQP+BMHbzKetD3z2f7/pj6U/o59
rUotEk4Xeia69m+2XxhHfzG6v9h+Zxz90ej+iN/QfgAd+7CBIQPevX9d/JLW
iSvQs5k8ZQYWSLKHr37ZW9SKrnJQzpdi/zBq8W3P2DviZ7BvVGjtqgPtz8m5
aOzf+XRR5ORbUl6xf/ZW5Q6by9yR89KSft9ql7Ktvyv+B/siTQ+NSncuWs5R
Y//+xGTJ+r97g3YR+6mXn+Qd+lGknK/Gvt0bdxY+rXBL/BL2eZsfjD0xbI34
H/Rvv5zf8GRJOQ8v6awoV7DyyPlx4pewz7M69adr98aI/0FfX6B53yznb3qG
JvIv6Tyw/BMXSb84V7VEzSvXxJ50Fn1RtGTDZkfFL6GvKhBepO3Nk3J+m3Rq
dFkVc+bvOPFX2B+c/eWx5jlvy7lu7Nc+KVU9vnySv8L+96U/1Kv9YYz4BfQn
FT5o0bzdFTnvzf9/vtzx9svL3hR/xa83TZ6Q3W9vqYpfEh5sOsRdOv/4JezX
2Pzgf9D323IRj+n6JN7AfomtN/wS+gpbz8Rput3xS7p9id+wH5+x4txNi++J
v9Kc4H80b5ZPSYdxk3hP84+95hl/pfsFcaDup/gr3e+ID7E/Mq3T60Wmx4of
0/2auFH7GeI37PEbxD/az+DfsMcv4cfQC5f5c2vxN7eKH4OvItbv4cew/2pQ
3fC5PSLEj8Fv+ye1i418LTLpXVRrv3LWyvm/XYsRP0b6F61/lncVrX3VgUt/
aVrypvgx7KdZ/48fwz5bTJvCaZ8cFj+m40z8GPZPV/fO9VmRM+LHsK9nOWG+
hn3a4YNGfPDrbfFvlDfdqmd/Xrt4Xfwb9j82uHX+YeEY8W+k31bFV+h37LiM
HyOd+qvSegeM+kn8GPZPrN/Dj5GflQd6jv7ro0vix0inV2SzLy7NjxE/Rjpt
bLwh91Gt/cPXGz04OvSW+DHsx9h4hnki9puetErR9sfj4new/8zGS+QP+53W
nr+xv2TjMeaV/P+PbH6wI73M3x+ZOK/mNfF7urz4Pf67sSoe0/WA3yOdNLb+
8XvYD7FxLH4PPcG2C35P84Df0+2O39O84fc0P8xnNc/4Qz1fw+/p/oLf0/zL
vo7qj/hD6v/70U1/SzU9KmlfQfV3/KHuv/g97Qfwe9ov4ff0/BS/p/0Sfk/7
Mfweem4Vv8HLEBsf4vew/8/6VdaR0I9Zf47fQ2+s4jfSr2jjVfwbepiNe/Fv
pNNJxWnYv23javwV9hPsuIm/wn6/jdvxV9ivUvEY9tPsvAB/hV7Qzi/wV6Tz
VMVd2F+y8xf8Eva1VHyFfQE7P8L/oC+w8yy5D2zTibDxEv4H+yV2Hgcf6K/Y
+SB+hnTW2/gNf6LzyX+v84M/0fmXc/OqfvAn2Lew82X8hm4X/Iauf/yDbi/8
A+l0tHE7/kHzgH/QvOEfsD9o1yVkn9vaP7LzDvyA5h8/oDnHD+h+gR/Q/RQ/
gH1Nu26DH9D9lP6LfeMRs1ePT/ZM/IPu72o9KmidWetqPSpI/9/rtMH/fpCy
D1oHox80sPkn7mLcbt3staGXr90XP4P+aufSufcMeiRxFPp3IT1Ccz17JPEP
+qO7s0sWXCvzfa+e1+Mf5L2uf/cULFDvscQz6Es+7bdxxeF4iU/QTxQbnDdk
4n3p7+g1D1SrnKv4I4k30L9f8XUOU+yx9F/0b7qUODhgWZz0T/Ryrd7PlLZg
Uv9En27ToZ/q7zKOo098r/X+XOa+9DtdLvqdrgfGR7mvEBe+tNKGB8K/rn/4
1+0FN7rd4QT78d/Gd18Ycl+4xS9+Ms3nK06cEU7Q29r4HE7kPtDi0MhT9WS8
Fn3T2BKhIz6OlXEHfYod9+EHff8L+Ue/+OJJ4Qc9jY2T4Qf9x086fdXyXKzw
gz4uRakGb+S9I+MI+mTv2lwZl50XrtCX2bgXrtBn3F33z5K60cIV+q/e3292
XhUr4wV6OhtPwht6xVfavFxv2AnhDT2TtYc39BU2fXhD/97mB/+P/ovNPxyi
T7flhUNdP3Co6xM/r+sff67bC251+8Kt5gFuNT/4Z80b3Go+4ZZ48kurwyf6
Q8WnnE9UfOq4FD7lvIwtLxyi/6Q4RB+vOESfZdsF3tBnKt7QVyje5H6S4g3d
WN7gSuZ3iiv06Yor9OWKK/S5iitdXrjS9QNXev4LV7qe4Ue3F/zo9oUfvZ4A
P5oT+CGOm2T9IfygZ1PjIPr31g/Dj7zDYP02fgy9vRoH0R+qcVDeGbDjBfyg
T7XjC/yg11LjIPoMO37BD3oFO97BD/pwOz7CD/pMNQ6i17bfhR+5x2zHazjR
5YITXQ9wousNTtD/s/EGnOh2gRPdjnCC/r6Nfxg3HfFe0P642jcMOidAO4wc
czRkxM1nMr9DP78lZGvPyBDZ35f9owbH0v80IkT299FL5p5y7NUDIbJfj75g
QLXJ9+Y8k/kR+r0DXc4/OJ3UTugDyq4rvbdLiOyza3u5l2j1ov98t/OFRjLv
Mzo/rD/o/BPnyz7bG2kKRFUPkX1wXQ/Um17npH70ui7nHNArtRgVW2E7+8LJ
RZ+donnyyMcxwrFeb+dcAfpMa089oFex6VMuvW9C/ulP33ac0+9C2muST/Rq
m/fXHdP9suQTvVVkz7wT6kVJftCbW538oBubDuvD+rvy7+uoeRb5Qa+q6g19
vq0H4kU9zyWf6D+oekN/y6YPJ3qdgfy71kPojxctJ5RL9lEtV3CCvlj1I/TS
llvqAb245Zx+hH7f9gvqAf1r1Y+0PfWD/pPtp/QjnR/qR+ef/qLrgXpDHxfg
ZzJ46z/P76XwVVk7Zv6lKPuGLxj0dBsG9tnfL9rTqWaHqZmm5/P2eZ7Obk+m
0qENGv122fPdp8daNC6QTfSK4/d1PVXzqGfT8/l+GtFfyh7V8UCqA54Fz/Of
QvTw+7v7Ld4R4eFvfie+lXLl4wqH7DpkaoM+btHTchk6HLHcviz67wdXlJ48
4qKnVdyRwz1HZBc9ddzGIaPa7PXsTvHB4Xl18ov+LOO7GTe9eVzKNfh5+9wK
z17r2eZhFe55QoZ1bDEiKq/Uz7mZ2fcOXhLjSfHR6U45OmYV+/mHdx1pW+m+
563nfj6L2D+Zv3lj3A93pbzYX5xd8Mvxa+9Sz15dz4mc3PJgP7Pz7YVLtsXZ
fhTnwf7P9Ee7569zV+oB+ybbxs9aWPmu50Ri+0o7/mbbN+rRgZ3z6uQU+xGl
p3WJeSvOs/zrfW/98Ususe/0+cZC233xmK037/uJ9Rb+WNUbegbLA/a6nm27
iP2De4ntAj/opS0/2Ot2tOUV+5W23eENPT5bIm/Ya04sV2I/3HJFe6Fvtnxi
rznEjt8+llvs0L+xutjZ/x/9x8TvGv7/tYHfNTqf2JPOemu/JbEexP7l7AH1
YHS9YU86Oa29bRfjaBfjaEej/YDlxDg4MQ6ujPYzcMX4dTT7rl6jXvsHbr1N
Ern1dLXcwg/2ybbV3nr7u43w76WfjbL8wyH2C7PEJAsfekj8JOmvtf2IdWny
mXnkkG1T1+0WDkmn9oeH2ozKv134QW92JXvJdd59wif5edf2X/wD381s/cPp
RD8Qjr7T+gHqkfRfadP4x7UPdokfIX38CfmWfRBrj//X32Wdmf8ugy0vfOpy
wRV6F1sPcEt+Iqw/xF/x3fW2nq1fFf2p9avwptvL+mdJf4H1z3CrebB+XtKP
sH4ePjVv8En6Oe14wToA7TBizrA0K6v8JfMy9DHPXmqVoW7SPiX6orQf3VxV
YrfMo9EnWnvmNTp9vku7TFffRZ+gvov+h/ou+lT1XZ3++NHt6v/xSwEvv8xr
7N9G64V3v5+ueHx+Ge/CSydv+Gq3CA865So1aPugfZ32SPrYh2VMeNSvfZSM
O+ih9Qr3GzDvhuis/4Qv+vhRu4Qozw/eTtnjyyeN46vz9Sv62va7ovPdJVVq
PWs8JEb8iR4H0bEfNfOFd3YNuOPJ3f9Q/RFROcT+7qTNS0amuSo69j3rT2ny
5KvzEj9gX3THkdVfZk6KK7Dvcrrta0263bT7iZnF/v0F49q2LnpPdOyvte9X
rlfFWPFX6Dt+rrt4S97r4pdIJybn178O+CdCdOqtcA3PpKlZT8k4iP34PsnT
tCp6XXTs38qxxJP/7SuedM/j5IRw7K/cSXjxzmd3RSc/++s1feX6kSQ/hv0O
68fQsV8RXX9H6g+jJe5Bj756r8s7Oy9JvMT/v3xF5isJ/9wRHfuyvStnrXiL
d1YfiX3zwh32TS91T3TsU6z5JaFB1Vjxh+hrWj3eWGrFDfF7pNPx2ZrTxcZH
ik799E6YOyqh5BkZf7Gfk+HamsJbroqOfd0T3UrcmBBp5zuZxH7eL0eP/57l
rujkJyFZzWnV45P8pI4/0bHvOjDb5A0lYzz775w4V35HqOgf97sZ8e2WSIkP
SedApio1uw66LTr2r/21vXSBRtc8fRP2bDz6Yh6xb/HKxl0Ree6JLuN+h9in
vxWNFX+r42p07GNafLu4Zugt8cPYZxt9q8ekUUnxA/U2sl/02e6Xz+E3jPYb
6KQ/9c/z55/1Oiv79egNBudqtmLSPvFL+L2a1i+hM17stn4Mf4X9DJs+fgn7
nNZf2frx6vrBL5HOMuuX0Ennd+vH8EvYj7F+CZ31zP3hMxv1yBAjfgn7XtYv
oZP+Q+vH8EvYd7N+CR37ktaPWT69mk/8Felct/4KnXQ+sP4NP4b9n9aPoVOu
i51u7Cif5qbEY/LdEYHxmJTL+j38GPp31r/FJfqBcO0H8GPk56D1Y+ikc9X6
PfwY9qusH0Mn/+9ElT63Iy5G/BH2sda/oZP+5mKvHLzc55r4N+zLW/+Gjv1K
6w8T11sSxL/ts/nH75FOSltedNJpaf0k/hD7ddYfolOu3bu2dsj79S2JG/nu
vyMC40bS7279J/4QfaH1k5YTo8c7/KHEs8kTeUMnnQXWf+IPse9u/SE6+a8x
OWvDWS1jxU9i39v6SXTSL7B1aoUaV66Ln8Q+l/WT6Ngfsn7V9muj4xD8J+lk
tP4BnXRaWX+L/8T+nvWf6JRrtLlYc97B2/gxo+Mu/Crp57b+lnVs7E+VGny0
bO1I8ava76GTTnHrh5nH6fSZH2kemEegP7b9l/xrP0w+0bO1Pvf0xrjrOl41
jng16J6aPi9Nf+R3ve2PnIfR59jhBPvclhPOi+rzM9beq7mi/bC/YvPD+Q0d
b1PPetxkHGFeeKLIhYGfPHogOvnveOb8H1Umx8k45RjfJZ1+D49lblj7ofhz
dJNvyYIj7yTppF+47EdDo2PiZLxwxDmSTsbTd8ZW7/VAONFxF34Y+39mbx1q
Nj0QXe7LjL50o379OPHzOg5EJ53Ln09vF9rsofht9LIran869vsHopP+Z98N
3381b5z4T50OutjvPHNy7f048c/k57IdR9BJ54gtF/0C+3u2X+D3dL2h891H
hW992D1O5hHGMb8wuh3xk+jtcz0ZW+PsA9FJ/8MtjUP7fBIn83HHfMfodVT8
m+YKnfS922qN7Ho1TvynY35nNOf4DT0PxW+gZ7F+g/gQ/9ZWxYeyn/I4e/OG
y1eIn9FxJjr2Exe/u2pK6Gnxh/TvCTaOpX9p/08/JZ3Re95t0zOZjBeiJy97
avmeM0nzWfS3Pzx5LmOcxPNexzjl1XE+8SHp9KvdKd3aJmfFXznGR6+eXxA3
ks7pxbnipxy6IevnjnHZ65i/SL3FV/3gfqPXo8Rv6HgA/yPrLuVLFph5Lyle
RW8ae63K/r53xM+Qfj87j8M/6HgJP0M68xrlaVCiabTYow9qdHX6sIQY8Rvo
+Wf0vzDh2h3p56Rf2sZ16DJeWx1eSafl79vLL1x0UeI20nlo40l00rmv5tGk
039jhr71G1yXfQfSWW3jWHRZT7Y66fO7zY6P+DHSOaDiT10/2KPPtfWJX9Lz
CPybbkfsdbvjr9Bn5O5SdNiqaPFLjvmOxD+szzC+k85PqWJ+XR8VQX8xjnmW
pMO6EPEh6dT+tE7OYz9elX0Zx/xO0lHrUUbP4/CHel6JX9V+A3vtZ/Cfjnmx
2OMP8avYn1Fxo/aH+EkdN+L34PSk9ef4PfT+geOFV8fJ+B+9PoyfQf8gcFyT
dFh/xp9gX92Oj/gT9EyB469Xz0fwG9gfteM7fgP9io0f0PW8jP6IfTkbn6Dr
/QL6nU6ffodOHIWu57n0O11e+p2uH3Q934dD3Y5wqNsdXa+HwJU+5wxXxPVl
PYvGND1zSc7t4Eczn/gw1fw9ch5Mxp2ohSlLTWj1j4zXet2J/WK9fgWH2I84
3DRFlyuxck5M1kV/9Jaf2CZGxl/H+puk807GUikn1r0h+1bYb+67s2ixZJdl
/0vWyWdVuvnouwgZN/V8BF3OW9rxFP7Rq9t5MefTSKdSpkFTO2aTe5RSru1j
kx95O7/4Z0nn0bX8c6ePipH9L8e6qFevizIu6/VV9sv0Oi39Rc7f5snSoNqD
pHNOfLfpTyXHjIq+KzrpbLvaPcuUqzEy/mL/i11XQZd/F736qNlVd9+UcQ77
NCvHZusQFinjJfqLVodj9E123EQn/biTE4fd/vCy9Gv0BnYdiXMepNPMlgud
74fbctGvSWfrR0M/al0sVvbpSGeUXR9Dl39P0K7/Mx+Rf7fO7iOwr8d3d9l1
PPyA7CPMfTx7XoxwZRxcGc0V4zLptPz7fsluhW/Lfp/mn31D3V8YNx37OJL+
3F/D9g75PULGX/n3BO36KucMdb/GX2G/Pt2YPOMGx8p+omM/y+j9LMZZ9E8f
7N/9+NAJOb/q8GNG+zH8IfFtBeUP4fe2tUeXdRWbPn7Pse4k9uyr4g/57kjl
D2V9VflDvW6Gf5N19cD2FX27bV/8mF7fw1/x3R2WK3TSqWI5xI+Rzr/Kj+l1
S/ySY73Uq9dL8Vfo6ZW/Ih2v7b/ofPdd29/lPJDV2ReDA/QM1v+QLnomq+Nn
5N+nVX6G/267zQ866bxn84OfIZ1tys9gzz4j/gT7ysqf8N3d1p+gYx9p9wXw
M+ge5Wcc7W50u+Nn9H4H/kTzhv/RfOI39HkV/IbmH79B/jcov6H3lfAP2A9Q
/sHRr43u1/gH13lmxzpq0L0zZR90HkD7Mf57vQ5D/K/9J+sb2g+zXqH9NvG/
Hi+I5/V4xH4T+jnLFXE7Ojwzr0evp/Z30GPsOE5ci57Fxg/E5zpuYZ8F/U/r
N4jDdXzFPFfHb8xbdbzHPFTHmcTnOo5lfwF9lN1fgA8db9Pumk/aXc8T2T/F
frsdBzn3iz+7+88HI9OXSVof0/0FHtAXKB7QW1seOA9M+nnqzChUa3GMcKL9
CfuM6GXVOQoZd2y8xPlh0n+a9sfzK9MlrSNhH265gh/0e4of+fdbLD+cN9bp
w5UeX9iP0+td7Meh17dxOOeTdf3AoR4f4U2v18Gb/Hukljd5L1i1Lxzq+IH7
vHofn/0svb4Knzr+Yb0Xf3j/vVPf9FoZIfvLoudbW3hTywjZ39Q6+dHpqP2a
oH2o//0eYzY5f35Qvdum77lwbxH7luqdNH3vhnNf2Eeod8Cwn2LvE3F/R7/D
hs7595M2fcZ34pEL9rwf+1jUz1cdouZv2XBT6h/e79h6I27U6//EY3pfg/Nv
cn/Elgtd38MlftPnqGl3yY9tX+I01z6O3m+CE50O8YneFyPekPspnw0aUnbq
XTmP53jHz+h71sQnlOvLSj3LfJNe/KTR+31wq+sfbvX+L35Y4n/bT4nb9Xom
6wx6vZT4XK/H4odJP5/1M/hP9ATr3ygn6Xxm17HhDL2TXScnvkUvYNfhsRd/
FeBvn3j0d/GHOp+0o97vYF6Jzn4K8SE6+zXY6/ELP6nrn3bU+1a0o94fZ9yk
X3ZW+7/oO2y/Y9yUez2WT9oRvZfdB2TcRC+q9n/lPSXbfxkH5V0dtW8r73/a
fkc7iq72YbU9/VSnz/il80M/1flnPNL1Q//S9cm8WMdL+HP6XcOchXKO+DJC
5ok63oMP7CuPqxW1sWGEzIOwDzwflbTuQfrkR58Pof/qcZl8ynzTpoP/1HEC
/VHeU7LxCfknHWPzz3iBfVUbL9GPdJxGuXR+6Ef6/BvzJh1Psm5APPW19ZPE
b+iRdvwiLtLn9jnXwXiaZ/eiS2UHJEj6cFpkZta4l5c/kvt02P9s73/xXewH
TMqRcsKux3JvDvuS9j4a+cH+WOHp1zf0eSx8Y79UvTuq7/lSHn5n2fsC2P3v
e223pP+VrXbpwLSK8s64t2mn2MbrZuQLem/kuzGTA3TuRTbKUjtAZ3zxpvi5
0f+tc78vOmXmAHveNVoUdy5Ap126lt4SoHMfsOy+KwHpM+40n7wmQOc+4OHK
XwakQ5zwb6P7Abq8A3+pfYDO+FX95tKA9Bm/W37xb4BOf14Z+ndAOnJvX+m0
l06H8Ut/V96BV/kkbtHlgkNdD4yDut64t6jrmXNTul14L0i3o/y7MqrdGQc1
J9x/1FwxPjr4NJpPxXPQuz3WPuh+t/1u0DvwNp9B78DbcgW9A2/rIegdeFtv
Qe/A23oOegfetkvQO/C2HYPegbftHvzvGiRyEvQOvOUq6B14y2HQ+TrLbdA7
8FpXPAe9A6+/q3gOegdel0vxHPQOvK43xXPQO/C6XRTPQe/A63ZXPAe9A6+5
UjwHrddpPrtfuLj30KP83oVtIwM43/56Yv/nF71jlm3HZlfM6y00fXNA/7rz
d7r1IctzeZPfeSHQn/ed8Of+6zm8v1YPD9BrRHx/aHpYNu/mJ94A/eawfGc6
dsnqbdE4RYA+rPvUqOI/Zvb22Lkp4LvLBq6JignP4J3Zt22A/ZXqp56NfDON
d0VYYLmmf188NOeGFN4O2z4P0Mc1vNmiS9eE8GZddwakH/pVkzGT28WF71sR
HaCPOnto4IBfLoWnyrMqIJ2BrTuP2LhkV5Af3jDozQPHffHas97ZA/SZKwv9
sW33I8/fa9YFpJ86Z+Mae6+9YLp1rRVg/9mjc4XKfZzaZOpzIUBv7ymQaW7s
yyZXp3EBettNIYOHV8lkJrY8HJD+zhoRfTb+l8XkmX4+QE+Xu32XO9tCTY3l
PwSkM7hIZMv8Q7ObJoVPBehnM5R8p2XNnOb6hlIB+qV6eWuMT5nHLM+1NiD9
r2tOm33pcl5zbWiJAPv68deyPKmV31xocjJAX/Fm7olZFxcw1SfN+1+61+pG
peO16Rj1Xa/9rlH59Np8GlUury2XUfXgtfVgVL15bb0ZVc9eW89GtYvXtovo
7RLb0WvbUfS+ie3ute0ueqpETryWE9GnJ3IVbrkSfW0ih+GWwyR/m8htkB8e
n8i5x3IuerbEfuGx/SLJPrEfeWw/En1GYr8ztt+JfjWxnxrbT0W3/drYfp3k
5xP9gLF+QHTrN4z1G6JbP2Osn0nyn4l+yVi/JLr1Y8b6MdGt3zPW74lu/aP8
Kr9qrF91xQleZR/kh13xs8s/u+Jnl992xdUuf+6Kt11+3hWHu/y/Kz53jQuu
uN01Xrjiedc44orzXeOLK/53jTuueYFrPHLNF1zjlGse4Rq/XPML17jmmne4
xjvXfMQ1DrrmKa7x0TV/cY2brnmNazx1zXdc46xrHuQaf13zI9e47Jo3ucZr
13zKNY675lmu8d01/3KN+655mSse+H+dr7niB9d8zRVXuOZ9rnjDNe9zxSGu
+aArPnHNE11xi2v+6IpnXPNKV5zjmm+64h/XPNQVF7nmp654yTVvdcVRrvms
K75yzXNdcZdr/uuKx5zzYkec5povu+I31zzaFde55teueM8173bFga75uCs+
dM3TXXGja/7uiidd83pXnOma77viT9c6gCsuda0PuOJV17qBK451rSe44tv/
z3WGoHj4/wB07l5Q
      "], {{
        {Texture[
          GraphicsBox[
           TagBox[
            RasterBox[CompressedData["
1:eJztmmV4VHf6/vf6/a+rQAtFtludCdricZkYhBAIFiJEcZcAAYIGD27FrTjF
irsnxH0sMjghSEKwzABF+u5/P99zzsyZyQRru9vunhfba3fpi+d6Pvf3vu/n
DA0HjgkZ+n//+Mc/xlfHP0IGTG4XGzsgrkcd/I+wmPEjhsUMGdw5ZsKQYUNi
FQP/H/7Plfx/6L+rZQeyZAlJ9ZUnWxftdbu5se39xR2fzAzWT+qrHxVtGDDB
EDZL32N5WeCWYv/9OvezStdLiYrUA4qMDU458+yVY31UA7qqA0M1nr20DSbk
11lZ+Pn+os9SdNV1hdWLc+o+uPSV/qTs9b4Gr9c3/3Wew7Oxbk97ej7s0K7M
O+i+S987rUYWN4q7Ll9cJNuklh3MkiVeaqg6Yavbo7i1wad0UcenM0P0E/vp
R0Yb+k80hM2u6LGirPvWWx0PFrmdy3NNuqhI3e+Wud4pZ46jckw7Vb9u6u6h
Go9eWptJ+XVWF9Y6WPRZqq765YIat7PrlSd+bTghe723wet1zX+d42CIcXsS
6Vnu51vmHXzfpd+dVqOKG069Jl9SJNuskh3OlF1KbKQ6bqfbrbi13qd0of/T
GT30E/rrR4409JtkCIuv6LGytPu2Wx0OFbmexxgX3FP3uWWudcqNd1LG+Kr6
Bqi7hWkUvbXfTcmvs7aw1uGiT9NpjE9LsuqVJ3xtOC5/s6fB67Utfo13NIx2
exLhVe7Xvswr5L5z/zstY4obTLsmX1Yo26qSHcmQJSc0Vh+zv7zLvXhdu7L5
/hXTQ/UTBuglXhIviZfES+Il8ZJ4SbwkXhIviZfES+Il8ZJ4SbwkXhIviZfE
S+Il8ZJ4SbwkXhIviZfES+Il8ZJ4SbwkXhIviZfES+Il8ZJ4SbwkXhIviZfE
S+Il8ZJ4SbwkXhIviZfES+Il8ZJ4SbwkXhIviZfES+L1V+UVIPGSeEm8/qq8
lkq8JF4Sr78+r44HKvMaJ/H643iN/vfyavi/wevp35SXs8Trb85rvMTrb8PL
60/kNfLvxKvbfxEvg8Trr8/rxJ/Na67Dn8lrgcAr+i/E6+LfnNfYdqr+/yZe
czheN815rXsfXg8Tvn72Xry2MF5JH8Nr4vvwCrLK67YFr7mVeLWuxKvBH8kr
7WN4HfpTeOWb81rzZ/HqXyWvje/mlf17ec0Q84q34JXwYbyO/25eo6ri9Qvx
ynl/Xg2J1+x38Mr8IF4hIl6zfzevvW/ntcicV5GJVw+eV7938fIR8ZpYBa83
xKvFx/AK5Xn1fQcvLkbBy92C15VKvF6A16gP5BVGvDSy/e/iVQFe3a3wmm+n
HNf27bwSvzKIeY1xe2Lk5dqH8ZrCeP3EeCVcaqA08loo5sV9CFpRasFLIeLF
YhS86lfJiwsO67ziOF7qj+dlrKkcL5l1XsfMeYVb8Joq8Dpsldf4qnlhUVXz
OmjBqwfxalSZV/nv59X/7bw2mPPyFPH6lOdlUcwsefUVeHG2zHg1FPOqqMwr
4EN4ZVjw2m2VVz/iRc98adG7eGWb81ok8BppxuuWNV6xbVUDuxAv7yp4iYLe
jFcgz6sx8dIRrwOWvPyt8+pgyYv7maBKXlaKtIlXEM/LFKPglWiF1wDGa/L7
8OrO8ZpswSuz3sOLRl4tGS+FNV7GmpqU0Eh9zM6c10CO14UkG2u8xMXMGi9b
nlcw49U4lvE6wPOyVsyMvNpwvKIZr4Vv4WVZzMx4Va6p9DNBZV5WinSVvChG
LXhNF/Oa+zRkVWVedLaLa09vrVzEqxrj9U8jr1erLXhxtmzB61JCI5WR17xO
Rl6/MF55Il6mYiYImwW9Ga+fnHMWgFcb1SDGq01PxmsF45VaOTi4oLfCazLj
tZGzZeu8zILDCi+LGJ0g8DI7fAQjEnh5mXhZ2jKdgcdteV5cMYMRjRht6MPz
uh+w/abfoULG66LAyyJGbSx43SFe3zw7Kv+N4zVLxMssRheLY9SMVzjHa1+2
7HyyBS9mRNEWwWHidYjxWthaOZ7xCmG8mowz58UZkUjYLDiiiNcDxuuubfRt
4rVAJ9sgtmWOFx/05kZEQc/xupQgqj3iZ94IvFYV1jpkDPrKRiTm5dpXsGXx
M6ezgniJjIh4TTGEzXtiwUtky+Kv3/VxVqxhvDLBS/sZeD268M1z8NrV8NUq
xmtkJV5mtszXHvBaS7z008L1sYMMWo6XPO9Uq0Li5XPfTNiTTUaEoFecA69L
jNcml2zwmuCtGtxZ3SNE07an9nsjLzMjEgvbjFfvu7YjbjeZdEM+Xydbzz9z
M14WwmaLYkbkdp7jZXzmYtk0Hm/OixZ1UVgUL2yuSPsKtcfqMyde4uAYHmPo
zfFaDV43/A6LeNEz59rXQOGZN+B4HWG8roJXBuN1RP7bz41erWz1YqaTOS8r
z5yzZY7XXBOvPTmyc8nyXI4Xb0SVHIATNs8rBbw2u2QvtlVO9FIN6aQODdG0
66ltOja/rpGXmQPsEhx7tJFX9/tujNf3E2/I512Wr+Nkw9nyHqMRWVlUJV6W
smkSK/DK4IRtWpQgbBgRz4t75kbZbDDKxsjLKOxhMYZecYaw+Y9D1twL2MF4
XeB4cc/cmA4h3DOfKPDKIl4176Z/8fj8Ny+O2Py2s9GrFa1ezHDSRyuehHG8
OFsWy4Y9cxOvB8QrQj9usCFftjtHdiZFnmPktaCqRZl4HVZkbHHJXmKXN9lT
NcxfHR6s9o3SNI/Jr7uc8WLCNi7KhhS1qhUv7Egjr1537Ybf/mHCDZu5l+Vr
BdmYeMGx+UWNMV/UoULGi7NlTjaTRLL5YZzAixM2v6jDWFRjblEk7Aivh36+
9Myty4ZilONlXNTQMYaeUw2hCx6HrL3XbaeRV5WyGS/wytZVu6apeQ9jnPv2
xSGbN9sbv1re+sV0J/0IES8uHczchp45x2uN74M5nfVTI/Vjh4DXz7my0yny
7NMteV4QtnFRPePYhGxREDZ4uRCvI4r0ra7Zy+zz4txVIzqqIoPUHaI0LUcx
XjhUM4yLwoRY1A7RoiK9OF6lip537Yfebjr+pk38FfnqfNmuXJINPfM9wqKm
cosaa4jCohY+Mi6K58XLZqld3hQPkk1EsLo9ZDMmvy5q6mEmbFpU2hdPzn37
Ky2qyasf2aKiyYgYL042wyCbmzZzrsjXMNmc5WQDXjAi46KGjDNETjOELnoU
vO5ut53X2x8pIF70zHnZ2OVN8lQN7aQO42QTy2rP0aJPc3TVrqtr3U/915Oz
3/56sP6brd+/XNb6+VRn/XAjL5YOUC9kw6t3L8mGPXOeVxd9XJR+zFBDgWx7
nuxEqjzzTMuCfW43IWxalJUJaVGMV5Ii5agifbtr1nKH3OmuypF+ql6Bav9I
jV10ft0fiRe3qFr30swmfDGNLQrC7uDzoG1AqSLqnsOQkmbjbtnMvCpfUSDb
mSc7lSrPZrxurmOL4iYcHGuImG4IXfwweP3dbj9fb8/z4mSzzTXrR/u8aW7K
6A6qqCB1x0hNq9HMlg+LFvX0zHcvD9R/s+WHl0ttjYt66GeSTUmz2Js2s67I
VwrqzSFe7rdoUV31cT31Y4YZBsUawjHGkofBG+503XUNvFwu5PKysVSvX5Sm
BWQDXseKPs3TVbuh+rw05cuK09+93F//zeYfXi6xfR7nrB/m/jiUbBnPvBSy
sR/G1Dv7inwV1MvJBs8cvFb7lsd300/ppY8ZbsA1rZQdTZOnn2lBvGhRXWhC
/NHA8YawGZiwnCbkFnUuj/E6rkj/2S1rtWPubCflGPYjeNcIjdNQbd1lBZ8f
YouiCZO/rDj13atf6r/Z1PTlYjuacDgTNvHqVuoecc9xUEmLMcYffZSyY2ny
jNMtC8ALi4rvShOOHsF+05mpD11aHrSxhFsUgp4982OK9B1uWSsdc2c5K0e3
V/Xpru4SoXEYwZ75Ebaom8raZUlf6k/KXu1r8Hpjs5eL7J5PdsGiiBeeOWTj
HnnPcXBJ87G36k9nf7d2G1NvFmQDXqsxRoB+cm/9qBHCp+9lD4J+Kumy+5rv
0XyBF6feFQ65M1yUo/xUvQPVnSI1tnAb2PLxok9VGCOv9oMk4dP3hmYvF9o/
n+SiH+L+uAfHqzuvXoxhM+OqfHmBbEee7CQnG/Ba1b58dnf9pD70xQkhixKb
IUs+1ywfvNawCfFHpuNreVnQT7e77L7qe7TAjRaVrEg+6Z62G0c9SpFQ6YPC
NIr+2npLCkjYmPBWbh36eMiVeRzL8+2fT3TRD+UW5fPAp2upR/g95/70Exhf
6TeixKbLU882zwcvKIom7CvqqCvKAjfd7rIHY+QzXkmK5BPuabvot0I6wWJZ
NwsM17gO1tbDM4ewNbpPinPqlBs7Km6KeQ7PJrhWDCZhM17daAynAaxLU6VH
N1PJjqTL0yEb8FrZvnxWIJ2ifJmfS1U5cHNx571X2h3jeF0i9ab97Ja5BicY
q/Q4mQPCNc7DmC2fKPo0X/fJ7ey6uCm4joqb4te5Ds/Gu1YMcn8cwniRbCLu
OQ2kTxx8pd/MHlEGZANeK/wezgym02b4aAMzgd0osRd+0Oxzu7HKt3xWEJVD
hFcUF6+r76PMd95HEzJeKW7Jp3Ekskq/1D5vqkI1wl8VEaLx6a39ZlHB50fZ
hCjzlPJcaiC8Zjs+G4cJPaAoxqtLmWcPClm74SWCCcC0UWLPN9XuVdxc2f7h
zBDKUIQXeTLCa809HMud9l32Oa5FcDDZnHJP3YesR/NhXjS8kzoclb6P9oul
BbSoQt0n6KjI0F8P2rzZ1oRSfpbjs7FuFQM9sCjiRWOEoptxzYcl6RocpJmy
JMgGvJb7PcJpgwxFNESwaECG4qbo9AuNAV5MNlDvXlREFmFUwNB8cIJBvXjm
p4pqFBVVv5vxT0QDefLW7ylDUebHuFX093gc7E227NO1zDMMJxg1H5akiDBc
FhmyFJjezx7Fyzo8RgMcN4SigYlqM7ID19k+1xuYEGUjZhj7pXJ2RY8fHwRt
KEF44Vhue0ILYTsnprolnWOmvZOJij4vQFTd1Z0RsvMKasMBdIU1kBr0NzfY
l96XC8kM0aKf9uMW5VPerhOODjIBx0FMVHR3wBJROS42UYMXJkQrGz1c+CXl
xzKYIcKLjaGhRSWmuCWdpayHJWauFj4H9UWSoksvLKBF4aZAasCF+De+wP75
FGd0nqd92aIgm3ad2Rg92Rgx3Ff6Qtl2NFWoF7yWdHgyNYrMkP/AQlZTgmjA
KdrmpMb5Yi5T7xmqiOnb3bJWOeXGOyrHwJlRwHpp5ZDN2aIaqF5lyV/Sdx7u
jcNq4MnRiqd9PB8HeZNsMIZXCCLsnsPgkhYx3FdfWCIui3PNtOC1qONTJBQc
D+fVrQbTEPcokHDLX1xvLO74BGaIx8VH/Lq7uLzw/FE2vE/RopwT0+jogBfh
iaVvgW8jPlyVo9DqwzUuMwpqny6qcV31OU5UahqbKeLRDPG4YIZPe3ETti33
7QgTIFGhF3G+XX86XjqcGSGLmoqbAi40ZKwQoOvuBrAx2tMYamGMC/Ai9sS2
sPIzA60D2kaEzSmofb6oBsILb5xUjQBdYotmiMeF1HjS0/NRIPEq9/VHdpR5
hNFLR+toTuUHZVUlO4wuvdu9GNULLjR4HALUgAANXn8Hd02nfVeQoV6n1eDF
1IsxjrEnthnlBx0MrQNXWKSm9YKC2om66ogGFNRX++tTgC62Q++ixzXYHafo
o+6mMeDM9NLth6GDofzgicESExqrd3rcRqPAeYXCgwBF4iPj0PlhiftdrqOH
IOLJCRks2tKeq7i88Pw9z6icaVEZMAH2xI4xZFtdKfFneqiGI2dxMmNCNHnc
p9THuC0B1jB3qBpl41GA98OObcvb+0FU6EVsV71Z1GKMmTrZT/Ai8EJqQE7k
hEv4LQEWDgqM4YExaFHpyA56YrQrDhklPho1tD05v06qrjreOK6JN5t+oC0R
LG4MT2QojQHZtO9AlugdSLsCMqYcmDMMB0mK4IAnI0CpFi6l0sWNgQMQVoMx
nIxjJGOMowKy5eirOMSCNb5QL25A9C66Jn5qSm1nmrMBmoF0+3g+CfV61I3x
4scI4segvgpkc2A4afLMHZ4l00PpFoZ00XaIqe0IvEE06kNOVxHx2FKPFZSq
KGP++3XQEsaDnFDmsSinhExo24V2dQEJglLtnraHfReaj1311DZW66rRj+/r
6YP8swn08JEXT3t7AhYe16MujJefL4YsBzK8MjiSewRz72i8MlxAiFEEaDjG
W1nafUsxyhhskBvD87QKHRWLckrEGKkM2Xk2xmFUIPa3xOei//TWflVUVA35
zn2QR7jzY/QiWGyMNsYxHnBjwJHcI+l3jdYjoRyN7ACMCMmFakqfd7beQuPC
GChdMGRIF1HudDHHfIyTipRDrAKtd8qJR0agMMOToZnX7DsYjTFCUTFAGCNQ
NAYMRzQGa2KjoByUn63ed3BNIJu4BH/Qrgv3GEENWY9nBUyQEJQMA8Rg7meV
dO9cyAMsx4Qcx4Rsp4Qsp8QMSAujIvfRadlzQ8nfie6BYKVTi1NypBeaGO2n
uze09Khzm4edMGEbaBu6wsWKa5HAwRB8uDEi0BgPOV1DbgITTJiNoTaO4WJt
DBcaIwmnK/fqESVtVQPQCemC4JQc4YWew4/RlY3hbxyjXaUxAqGfOy1itnrd
gWDQSK2NkfvWMc6ykr8FtxjcmNJqiPkYAVbGKDcfo4zGiMRhiEYRsvoelwUY
Ay6KooIygFaQrqvunDOPEiH5JJ4PZAMceE0YBkLCYJgQooIronjguWF4vDsk
L6ojtAfzRPcukm2CPMq8eqAt4wVBOXA/TEKbAaOObWnCTm3w0IhgoPfjYC+I
DZkC4RlGuyHvcMGha7mn7sfDceXHSKk8hoswhsdZFTcGqj4MAW8BPQppiDcL
ubIxOglj+JrG8BfGCPCG1FGEMMZTbowYN3RaXE/II0XqAfRh8zEyRGPkWoyB
14c36L//MgwKlo46B4sr8wp+2xid2xA+4xjhXniAcAOkLfxhfH4dNBlUGjbG
RVQmkELrxoGARQWrfVG0XLOWIZgonlKOof/gX2Pg0iEnjAdMEJvP8XwID822
287rKG8IGhy2OJoSG6oQ2eilSKX7br1QKiAVVFbIBqPSnP5taDYMFumFUIP2
sB+8BaTMbzsbPbj01a6iz1DzbJWxyAJF+jYCx4+RUHkMSAVugA6AEosqC38Y
NN4wp7Me9QmHZ0nTWJQuNkboA7MxfAgWxuiBMTxRXPESUQOeT3VG5uJKQrHc
VFgzQN3NVjkRyYg3S9/hU47j7ZiPkcfGIMUiXmmMHTcQuDhAcAIs9H+KUw5l
D3mEClrq1lMYowuNQRoWjRFlGuPFNOeXy2xRa9EEIBuct3Z5U4ha+g4ICeNV
nPoObWpf0We9tPVRsVBK8dBwEZPFpR7gnhvUBVHBDbAlKBkPCs4ZuKUYB1rY
/Mc4rtFhlnV4dLpVIVz3qvzH4sZTkAW4RtHb2XMLYEP6YkLUaXrXAz3QrnFH
/xrv8GpVS9Tdp2e+u66u9XNRTZwG/uoIe+VY55wFiAM2xkGM4Wo5BpTMxthc
jJQJm/cEZ8iE/nqcbzig1LKD2NXtJpPvtI7Gk2djsOfm6//QOEZPNsYoxfNJ
LjhjX61uiS2hzqGEbymsGaVp1UEVhWPcOXuhInMD7mK6IOjVX8RBAV6Kc3ne
eNdH6EGh5+Oih4XirB443oAmsMb3Ae4CXFI4gW9/PwmJcx9juEeKxmgHV4R0
6V0PcjeMcoN54qh/vaYFTiGU28sFNdYX1kLj9VP1aq0c75K96LedjZ8dlaPD
IKD3FH02Ir9uiKadr6ovriqGbC2Y8o/x0iX4AB4+ch8HiGlL8x/3nmIYFW3A
4YYJj9vpMmWXcD7gpCpuPBl5hMud3xXkDW1jUaFepKVotqU5BOu3nxs9Oy6/
n/IvHLk7i2oO0tYLVvu1U/WzVY5nyDjlHOLHSMiCqmHmvGY23Q7BluY9wXmC
covTcl27spOti9B4C2XbrssX3G4yyaQc72CSt197LAoGSFkAzUzmYUG6hhOy
e2n/0ug+2VpYs6+2XpC6o49qQGvlBCAj5QBZymE8dkSVMAaTrgnWE4RCzHAD
Du2Nbe+fblmYLTtfJNtyQz7/9vcTeeUAGcZox8bo4g0DJBOGZqYAlj1gQbq4
XvG4lLpqPxXW6q39BuctepStchICEXIqyaqn0lXbXfTZhPw64RqnLupglD1c
68gRlC6qXinHICoEKybE48LDx10WvPYu/AeXGt7++IEGlPD1PqVHHa6kyrPU
skOX5etu2sTDGElXLv1QaeiJte8Au0by4gBBz38x0xH3Pq5+HGuQ0+3surm6
ajuKauIuCNe4dlb38FANs8uLc8leosjYSEU05TjsCLJBncbjQgojrVCcQhc9
Qq0dOtaAc2l2AC3qmP3lNHkGDrrL8jUoWrebjr9rNxxluNQjjI3hh24GJ4Qb
P4t1fTHb8dXy1m+2NUHxfnThm+LcOlm6auA1Mr9umMa9kzoMJ5V93lSX7KVo
wtTbk0+gZYEXGgiKa+e9V/kxFj7CKYTrdWJ/PS6jTW3unbDV4TTAeXtFvuqW
zSz0h7t2wyjRPMPoiWGMrmQ1sEG0R1RZ2N2b7Y1RKRFPt/LqoFFsKqw1LL9u
qMYTF65CGY0e9SDxK5ghJkRwTC2oE6VpjkvKV9XHSRnjmDvbLWslc+9DqKyI
WiwKsYXyRnJaUYarH3JCsE7uo8dZh0UddryaZKPMk52Ctq/Jl+BSQNci9yZt
ByFwSdiYcDhT9QL71+uaw4JwAiC5bqg+x4Q7CmvigIIXdVd3wRODOTvlxnPu
TdpOugBeKPaILTyuoJ9KeiwvC4uvgCHjjU/ppceRi0VBNsny3DzZiULZFthR
caO4Oy1Hc2MgQSAbLAqxjoLNEtweBwgsCI+rLPlLeDLON/BC1kdq7ALUXVHO
7ZXjnHLmuGWuoZeecoTUm5CFgoHYwuNCgqPTonX3n0hvPK6nfl6nii3edyEb
JKlSdgw1jAyn0ZQ7rUaT4bhHog/TGN28cewYYDVI8EV2rzc0e72vAR4XAvSa
pmYS8SL1whK7qQPQeytOfwcXwh+l6aqD18yC2r20DWCJiA931XB7Xtub6C/T
Jp1FyGJROJ/RMShVl5TjiEO+40CYGqWf71+BReGIS2ykggnky3ZDVNB2CWkb
ouqNmgTThrCxKDx/1H60QfoGsr8+kgvnLVIjhfGaVlAHp1ywuj0qsYJp2zV7
Ga5RamtJ5/DMsSh4MoX7OnrjOGnRCccONUyN0C/wf7q5zd0jjlcuNVDlyM7m
y36+Kl+Jk4q0bT+Uuod3MMkGvPp4opG+mOH0ahm9cbKas9/eS/sCR9MlxmtK
PsZoGqT2Q4q5KUc65E2nxpi+lQIi6TxOUWQoFePtzGoWPYqYRlYzdghFw6KO
T7d63z3qcDmpvjJXdgbnLfrPLZsZ6B44zEtpjCDiFeCN0oXG9WKmE1kN3vhB
cjyYIcIrQVd9c2HNiaTe5nBmpBj3R5gwWVcdQR9fUBtuidfXRR2CI701iw9E
LUwA2QFetCg2IT3/BY/x/OFCuCunh+sXdsSiwOvaxSbqLFkicvayfP0N+TwW
H9HwIrSOct9OxAuLwoSz6Pn/toOeP8zwTsY/MeElxmsmjSHvofGGJXqphqCk
UeLDElN/cUs+C15YFFX3bTe5ttMzjlwodpBheqh+cccnEDaeeUJjjHFRI9t3
Wb72hs1cxAdzZowRQrLpxhY11o3MkAXo8yNkhncy/6krrI5FbWOyYeptC0tE
QNjmTULiwxKZeiGbTBwR/r9cJjNkbadXnGF4DPUuhNeSDo9x6h5xuILCnC27
oJXtZc48hwICzsxKPskmwBsZimig0sUCFGf+o4vfIKHQKC4U1djMy6Yxe0Th
mLAkkxaVxHjNLajdR1svTOPWTd0dJoBuz0xgLUVY8imOF3fjcBOiaYwYbRg/
gCbEoiDsg07XUIoyZMmIMMEE4nCt01HmGYobBAmLRdGEc6gI/ba7IQoP7BoT
YlGJjNds4vUVsqOrOhAmYEdeNBetQ5ANeGlwSnTfcovrY2gaI0ZRM5wZol9K
i7p72OnqxSYaNB+0RJ1sI+4g6qutRt537lfm2YPjRYuKdUXTwJnzZk9DREN5
wtfIUG5R4DWDxviOqTeYxX2sc858ReZ697R9TDbEC1GO3sVHwyRD9CjDxH76
mcGoyo+3ed3BM2eyIfXqZBtuUPmZLKg3hHh190bZoPCaZ4qG8sSvi3Pqonqd
Y7yYbGyYekPYhPyiwGteQe3+2nrhGmeYNiLMWTnaMXcWssM9bRfqNK5FCBuL
Qo03m5AtCoqCsA86XzvfVIuQVcmOIjvQqIsbTLvTMoZM2yMMFzQZUT+2KBRX
TLjXNCEWdVFXA7zimWxQOXABcRHmiAjLXEO/u5FsMkyLQnjNpvBChmJRs9ii
IGzYMicblexwkWwzn6SIMOcBvGy6sUVNcP11vv3rDXx4IUOLc+pgUecZr1nE
68swjaKSevegIoIXrmN0HopyhNcsPcILGYomj+r1o98j8MIzh9tkypIs1Huf
1MtkA144jSe6UIZubPaKhVdZ0le3cuvk6z45W1RjCy+bb0M1HlBveeJX3KIS
GK/5BbXRpSM0jiiQcEtX5SiH3BmuVDl2ohTxvPZdNi7KNGEQCZvjdY54pSll
x1E5cIjdqj+9pMUYynpURMaLhA1FoWwI8UqLyqVFQdjgNVeQDSpHe1UfFzPZ
8LzEi8KpPmqEYVIfflEcr/M/kGyUJJut1+TLbjWYVtKCZFNGsmG8+EXZvf6p
6atfGuhPsUXl0aLOMV6zRbLBjcMXsMzVTDanGS8tyiE6T+iy8rCZ9Is8ysbk
3vrZ3fXLBV4XvodsUnCTFpF6zWXD8RrkjrsGZePNpqav9tfHLYzOczOvtkbg
NZN3G8gmwLioBF0N8FpQUHuwFm3EPlDt30HV000Z7ZA3jX1n2CHwYsLGopbx
ixrNLSqIhM3zapaPLo1uhivsqnwFZX3zsfccB5d6RPC8SNi0qDdsURWneEUV
iHgNNJPNSF42OH/omadzvGhRS4VFDecXJfDinjknm+0kG2R9c142xCuAeBkX
hc6D6lXKFqUVeOGZ9zPJpjeTzUxONkZeXfZc5T7vhLPqhcsLHRU3xQq/h9s5
Xj9ozGRD6mWy8QzjeQ12R1V+uYRVrwNUvVAObyhrq3WfnGG8ZpFsvuBkwy0K
vC4W8byGauuixKKNdFRF8d2MShG69HGOF1vU7VDwEi2KE7Y5r5MoRVeom82i
DzIOg0vdRbwmihR1mldUPjMi8JrHP3MHk2xyp7PvQjtNvLhFLeU7Ki1KJGyO
V5o8XZDNckE2Il6DPGhRi+34RZ2mReG04YQNXnPYM4/QOFnIxp1kc8rEawOq
Mt2h6KioyuAVD17twasEvNgzh2yOmbkN98zBK5Dxwk2BqszuUK4q47RR66qJ
eEE2LpANFgUHKBDxwnUWqbENUndAl+YqPfucuJ3nJRa2sCiRsInX2eb5qfLM
XNkpdGm+0jeLvYcSC14+XYgXJ2zxogRhG3kJz7xjB1424meejuAwCVu0KAh7
ud9Djte5Zlrhme/knzl9xxvMeHVmvARhb/meEzZOmxvKz8W8BrBnjoPUj2Qz
kpeNwMvnuBanaDB4LX6IMj94nGHMUDq+cCzzvGDLwjMvoGfOKj0vmzBqy+A1
xJ2OL/DaBl42uCnA67rqc5Wu2mnGC7bcl3/mnblFcUYEXgsLPme8WuPo8FdF
eKiG2+VNodtH4MUbERM2OUCsIWYYL2xrvHYJJxjHK9KS1xaTA0DYRl6I0SGm
Zx7pLn7mYl4bSioLm+N10MSLf+Y3jc/cI4LnZSnsb43CNvIaKHrmCj4duGcu
4oVTdNHDSO74EnitZLwO8bzSK6WD8MwDvfUcr2X8BxZ2A4JXLaWIVz/hmZcK
RmTkNZx4tQoGL3U4+xwEXksV6dtEvEzC5nn1MvE6wPPKypWdZrxW37SJp5PZ
ghcvbCMvCJsPDhEvi2demdcd7oOYSdgsOARevC2bP3OyZau8OGGLec3lbZlL
c/EzJ1s250UfxIaMpWM5LsqSl2DLwjNvPs7I6zHHa6oz3ezbm7wAr3OMl9qM
V3/hmZOwrfNqD16exGuyC8/rmDmvh2ZGxIKjEq/dHC/6fGc/1BovwbEFIzLy
GmriRc9c4LVd4EXBwRkRJ2yTEZnxqsKWLXgJwhYHhzkvcZobeWWAV1eBV5SY
V9eqeAlpztsy4zWU8fpRzOsLMa94C15KM14j8utGaVoKvIa+hVeEZXBY5bXm
bbzERlQFL8GWhRg18tptxmusKDiMvKqwZRGvOPZLk4gXFxxiXpEae3NbNue1
C7zoYxT3qacKXpVs2Tov9qnHGi8hRv3fwqtTVbz2vCevMwKvOZa8BpnzOlsV
L2OMDjPFqAWvSsHB83L+KF5plrwGEy+rMWrOa6GJ19Qo/RziVf6hvPhPcyJe
p8x4ORh5aa3zChN4LbHCSxQcb+ElfDSzxqtScFjnpa6al7Wgr4IXF6NWeQlB
zwXHR/BaZ+I1rhKvcwIvZssfwCvvw3j5CrwmMV5bzXhtMOfVszKvbPDS/g5e
XE0Nfn9eQtB/DK/tYl61zHlxNdVYe/4gXg6VeC0343Xt38TrThW8JvwOXuFv
5WVZzCrxMquplXlZFrN38Ip7N6/It/BaxXjFvo3X+W/vpX88L9u38Jpm4hX/
obymfDSv47+H193/PK/ZVnhNewevgSZe/xLzWmTOy+v9eMVVyWvPe/Cy+a/i
Nfh/iJf6fXilvC+vsx/HS/2RvHr+J3m1eBevSl/M/gO8rH9YkHi9hdeQ38lr
23vx8jR9FpN4WfKKlnhJvP5MXlF/HV5j/h28bnwgry7vxyvnv41XhMTrXbxa
SbxEvOzFvM5LvP5cXqckXhIviZfES+Il8fqf5XX/f5nXEImXxEviJfGSeEm8
JF4SL4mXxEviJfGSeEm8JF4SL4mXxEviJfGSeEm8JF4SL4mXxEviJfGSeEm8
JF4SL4mXxEviJfGSeEm8JF4SL4mXxEviJfGSeEm8JF4SL4mXxEviJfGSeEm8
JF4SL4mXxEvi9Ufy+v+Zqy4R
             "], {{0, 144.}, {144., 0}}, {0, 255}, ColorFunction -> RGBColor], 
            BoxForm`ImageTag[
            "Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> 
            False], DefaultBaseStyle -> "ImageGraphics", 
           ImageSizeRaw -> {144., 144.}, 
           PlotRange -> {{0, 144.}, {0, 144.}}]], EdgeForm[None], 
         GraphicsGroup3DBox[
          TagBox[{Polygon3DBox[CompressedData["
1:eJxN3Qfc/lP9P/D7uq/r+nwlI4SIomSVHSllr1CZDSJ77xHZI1uyMrKyQnb2
KGQmZGVvSSQlvySr//v5Pa/r8f3fj8d5nPf1Oedz9nmf93idzz37xjusuf34
WP1NOTbWr+jQ4dhYbzA2dl/92Lx+r1Rh5QpbJP56hU0qLF9hhQqbVVgx+bZM
+ioVtkq8aoVtK3yjwjcrbJf4WxW2TvpqFbbPs9UrbJNn3rlqwtjYshXvWvHj
FdYu+pCKX6zwvaKPrPj5Ct8t+oiKH6qwRtEHiSusW/RRFT9b4TtFH17x0xW+
XfRhFT9aYa2iD674kQprFv3jip+ssI7xqPi6Ca2/P6z4mgrLFb1bxZtmDPT/
1/V7mYp3qfj1iu+rcH+Fvyf+Y4VXK9xT4Q8V/lbh3uR7I+kPVPhH4gcrvFXh
kQp/qvB/iR+t8M+kP1ThY72xsTcr/leFjcda27T1l9qujxU2qLBUhaUrXDqh
0TtVfHGFJYveseKNxto4e//yCS3vzhVvX2GlWgufnmxs7Pv17Gtj7Z0fpDx9
3jCx99dPujrONa7mK+17OP15YEKb5wMr/u2EtnZ+VPFpFe9TYd8Kpyfer8Ip
FfassFeFUyvsnXxnJH3/CmcmPqDC2ebfPFY4J7F2/CLpB+rzWFsn5vusPPPO
kWNtvVqne4y1NWYN7TLW1p41sWvib6ct62eMdx5ra0m+3ZJuzf0w8XfTj/XG
2ljuldj7uyddfYePtb1hH9w7oe2X/Sv+ed5R51Fpo31z94S2X/at+M4JbU/t
U/H9E9qeOqDieya0/bRfxbdPaHtz74p/N6Ht2b0qvmlCW8t7VHzDhLa2d6/4
lglt7+9Z8XmZT2vrZPOWPu0w1ubUmB6fMTIGRyfNeP808U4VTkyfjfFP0g/5
jkm6sTw2sbE/IeUZy58l9v5xSd81762ZOTgi42cuXxtre85+e7vCYxUeH2t7
6NcVrhxre0l81Vjbr5dVuHys7cUrks/avbrCNWNtL4qvTVnXV7ihwhOJbxxr
e1X6dRWezLObUv91eefWsbZerdNLM0bG4ML0wXr8VeKj0pbjMsYXZK3Id1HS
jeXFiY9OP47JWF6e2PuXJF19N4+1vWEf3JJYm/6Yd9T5u7TRnp5Q/OCvdWi8
WmGyfotfqzAo+uWK/1KhK/qV8ZbvI/2W/rcKk/db/HqFqYr+R8X/rDB1v8Vv
Vvhov6X/vcJcdR49XefRYNB45aXp0+S1Fo+stC/W899njIzB7WNtjeJ/dyQ+
P3N/Sd6/Lf2Q786kG8u7Ehv7e1LexVk7F+f9u5OuvsmqDYdVGxauNvx1rLXj
nqwV83NC5hsvw6sm9Fo+58BkvRZbm4OiX674LxW6ol8Za/k+0mvpzorJey12
tkzZa2eGs2KqXoudCR/ttXRnztMVflPhtxWm6LVn3vlP1qt1+ueMkTF4LnNv
PT6f2Jy/kj7r27NZK/K9kHRj+WJiY/9yyrsr/bkr77+UdPX9e6ztDfvAfrOf
8YNhr72jznfSRvvGHsJrnAPXJcYLr8wYe99ePCn5rk+6s+KGxKdlPMzDmRkX
8S/G2r48LfNkLTgz7at+r42RPj2VuVTG/zJGxuDdpBnv9xI/U2G81/rs/f+m
H/K9n3Rj+UFiYz/Wa+UZy16vxd7/MOnP573fZg6m6Lf98cZ4OwudP85kvJms
Rhb7WpXzqQqfrrBk4tkqfKXCJyvMUuGrFWZNvqWSPnuFpRN/psJyFeao8LkK
yyees8IySf9shRXybK4Ky+aZd77Qa+vVOp2518bIGEzfa7zYepyh12Jzri0f
Zow/3mtrRb4Zey3dWH6i12Jjrx/vZyz154OM2Uy9lq6+eXttb9gHn0+sTUtk
DNQ5f4Wpe02emqz29J9qT99ujItevcI7+FOFwyucYx/Xs1Ur/B8eVvGaFd4t
+l8Vr13h/aLfrfi7FcarrO9V/GjFD9TzOYv+aIUPi963yvpBhQ0rfDljpE/7
VNggaYv22hgZgwUrTFNh2goLJZ6uwuK91mfvL5B+yLdw0o3lIomN/WIpz1h+
KbH3v5h09e1dYf2049/V3m9XGBu0tfK/rFnzjZfhVbtWWKfCtyvslvg7FXaq
sGaFtSrsUmHt5Pth0r9bYffE36uwZ4X1Kny/wl6JtWOPpK9bYZOsRevuR3nm
nY2zXqWtnjEyBqtk7q3H1SrMlzlfK302xl/vtbUi3zeSbiy/mdjYr5HyFkmf
Fsn730q6+jbqtT2gHfaT/Ywf7Jz69H/TtH3FXttDeI1z4LOJ8UL7dSzvz54y
5Jsj6c6KzyV2tsydeXBWzJPYup8z6ZOlvrmSd8f0Rz9WyjPvbZv+6/fmSVu5
whaJjdMOGV/vb5Zy5dsy6cZ76wqrZry3S3nGafvE3t8m6d9I2fNkDsj1G441
veRftU9urnBuPZ+m1uBjtQYfqd+/r3BwhaPq+R8qPrXCT4p+j6xQ4Wf1+64K
p1Q4sp5/UM/ur3B6/b6nyvl9hfuL/p99WeGcov/omf2PrmdnVXxMvftwPXtI
3fX7oQoPVji2nl/ab2v0lAqHZIyMwQFZi9bpgYnN+a1V5on9Nsb7Z63Id1DS
jeWPExv74/ttHA+rcEu9e0K/jdnBSVffnfX8V/22D+4q+uJ+20N3VnvvEOr3
M13bzz/vNR2IrkiPPzAxXXbfnCHGff+MvXwHJZ2u/+PEbAOH5pzZKmemmN5y
cNKdQ3gQ3Y8ue2u145Z+6wu+5Rm99t5q8w39Nga/L/rX4Yv3FH1V0ftZq0X/
tt/G+O6iL+83HnlNv43jGRX+3rVxP7PCTf02jmf3Gr/+ccbsD/Xudf02J/ii
+p0xb9Sz3/Rb/pP7bb1aM7/sNz51QoWv1ljOVuFzVcZsVdeeRc9V9AxF7yyt
6B9W/GTF/9C+oucp+t/6UPQXij5CH4pesOgPzFm9e0v9/l/RXcmTBxY9X6U9
Wb8vrHBi1fvZevZUPXuvfn9Y9A8qTGY8Kj6s3/r+UP2+rN/W4fMVH9pvc/1i
5Xmhwuv1+08VP1LhmaL7FT9c71xR9JNFP1HhJbI82b7fxnAof+W5vn4/670K
Lxc9T8VTVRhW2s/7jRfYd5+svuxazz9Tz8eK3qjoyYu+rcIZ/XYO/KLf+KA9
dVT4An7wu8pzWr/xpD937Zywv26v52f329nys16bC2fFBf12HhifOyrPuf12
5lgrG2ZffaXqn7XCpyr9pooP6bcyZtbfevZi/V6w6I/rT/3uqt5Ni/5Y0dMV
vWPRsxTdL3rjoqco+qNFb170tEVvUfHjFT9X5UxVz7er35+o3x8reoeiZy56
kYpnrDB90b2KH6z4on47A5w5zuFhv+lM9KVpyBAVv1XhxAq7V9ijwnEVdqmw
a4VjK+yc3ydU2K3CDyscn3S/z61wcIVDKlxV4Wcp78gK21bYrsIvKxxa4bAK
x1TYKeVeV+GUCj+v8JMKDIQ7VPhphR2T75wKP04dv6hwQIUDK5xZYf/8PrvC
Qcl3VtIPSrl7Vdi7wknp348qnJf2atPJebZnhaNTv7rPqLBf6rg2+bT1+pR7
aoXLM0bG7JK8r+0Xpz9+X5Y+y3dp0v0+KmOjz5tUWL7CChW+XeFLFRavcESF
bTKOF+Ud5V6T/mjTBRUOT95fZdzl+23GyJjdWOG0CqdXuCFt9/s36ad8NyXd
76szh+q4Iv0z5+dnDtX36zyzLi5M/ereosLKFb6eeoz9Pil734zpL2p9Loef
VTil6KUq/gl+Vev5d/V76vq9UMXPVfzxClOz2dXvpYv+c4UFKrxc63n5iv8P
j68yP1Xhfz0KUZ3rlX+eCo9VeSfVe1+tfFNW+HqFdyrPDOYAn6nfR1W98xX9
rD1X4aUK86un8l1F3i56bvyLfF7xnPZXvf9ipb9Ehhg0Wr0XVJ6V6/eszvOi
n694Rn2p8JfKM6g801S7zq20FerZFEUfX/SXB20+9skY/b1+r1ThP+Saiv9b
8Yz1fJHKv3CFBSq8Ws+XqPBGpf214q9U+HvRS1b8z4qnqvxfcz4UPWXRa1X4
YoVFs473zN64OWvEvlmnwmJZf1+oOj5f4Ykaw9ernBUrvF1l/aXiRSu8WvTi
Ff+t4o9YS0WvXeHD+v1Gxd90jhT9ifHW/ncrrOEswr/r2T+K/laF9+v3/FXP
fBWeqrpeq2fLVPhXPX8ZX2PzKPpvFS9b4a2iX6l4sQqvFb1Ejd+LRc9RYfMq
d6Wsvy2zBlcZb+fNU5Xvhsq/7bCdQ549EfpKtqKq++miryYzDRp9Gv7etXc9
p/vQI+gbb9bzl+v5rUXvYL0UfZazv+jHh+28o6vR2e7uT6pPmc42Z9zpvXZm
OjtvpPd1rRzywfaDlub5UdZlnjtf0TfXu7vk3dfT5mfSTvGzobcPrc5tBq0N
+vt61fV8zvXXK34j7aSD0kXvLHrvYdM/6Z6rhv4dWaLiv6CdfVXOq0Wf12vx
axXeJleFln+rqvexok+uPK91bXyu67X0V5NHXa9UuJ3cmDbQhT+S59pwdcV/
q/Af/cr4k9cPyjjTi/dPX7zr9z+Lvov8VfnfLPqeerZs6AvJhl3r/53O/NDG
4bhBe/eetOFvadtmtZ5WzDozps+Zo3p+bb+NpzndsNKWqbBshfUrLFlhqQrf
tyfz+wcVlk6+DZK+dM6Db1VYPbxAvg3Dc7fOeeB8WqPCmhXWq/DVlHtgzpJN
K3wnZ8iXK6xbYYnkc+Z8M3Uob9UKq1XYKnvFb+fNN5Jvm6R/I+WukP5vlP4t
N97OzNXTpo3zzHn23dT/FefGoI2V9XZA8mnrQSl3s/Cj72fMnNXfS9t/mP58
N3xrveT7UdL93mDQ5GmytP3wQvbjGhXvNmi62d3Dlg9Ndvl2yt0//dGmncMr
1x5vMs46yXdYxsiYkUXwGmfdj9N2vw8N35HvkKT7vV/mUB17p3/mfKfMofr2
yTPzvUvqV3e/2vrn8WbvPqHW5yrV/k+TG4tfXlL9+cag2bDvq3D/eLPVif84
3uzl91T4w3izhd+bfG8k/YHxZgt/sMJD400WfKTCnyr8X+JHx5utXPrDFf6d
Z4+NN/nx4bzz9HiTJ8gdvx9vsgiZ5fbxJm+RAe9IfH7aQmYiE9023uRI+e5M
OrnmrsQXph/Kuzj9uTjv35109T053mQdssxTibXptbyjzmfSRufexjWGS9CH
Jqu5KforRQ+K3oy/sugpit6k6K8WPVnRGxb95aLHi/5B0YsXPcZfWfSi+E3F
61X4YtHvVLxBhS/RpSq+dbzJqeTZv2aM9Gm+fvNPTJ15viNj8FyFW8bbe88n
/t14k93vzvvPph/yvZB0Y/li4tuzbu7MWP4lsfdfSrr65u03Xwhb7/rV1sUq
fn9CWyvm57LMN3md/PuZfluX/DCfTUy3+LTxqNCrMLtxSr45ks5X87nEfDtz
95vPhq9mnsTaMWfS+Xz+U/U9XuGJCnPlmXem7bf1ap3+L2NkDN7N3FuP7yU2
59qiz8b4v1kr8r2fdGP5QWJjrx8vZCz158WM2YdJV9/H+m1v2Af2E32AvDxb
xkCd0/VbG+0be+jK8aYnPZyYrH1/xtj7D6QM8vUjSSfv/ynxtRkP83BDxuWG
rPtHk26evlD1Tpm19al+GyN9ejtzqYyZ+22MjMH0STPeM2Tc36kwa7/12fsf
77d+yDdjv6Uby0/0W2zsP9lv5RnLWfot9v5M/Zb+Xsp9InPwq+JhqxUPO7rS
N6019zXroPbU98i6xq7ieSvfRytMYQ1UmGy8yZxzVpiQ3/NUmDz55k66387A
mfR1vMmF8ilvtvEmx4+Pt/OJTDpLhc9V6FKuc2++CvNb8xX6402Gn6PCMPnI
yp9IHeTr6cebfrGI8cpvMvWMybdo0mdMuVNbRxU+n/6R1b+c9mrTF/KMPP/Z
1K/uhStMlzpWTT5t/UbKXWC8ndVzZsyWzfvavkz64/fy6bN8yyXd79kzNvr8
JbadmqNPDtq5tGj69OnxpvcYx6XzjnJXSX+0iVzyqeRdKuMu35oZI2NGFlmw
wkLjTeZYIL/XSD/lWz3pfn89c6iOFdM/c06+mTX1rZRn5nvJ1K/uzeFS7IvJ
Wj3GfpqUPW3GdNY6ZwcTmv1tLXoQuwnMzoS2r/5a8YITmj5GF5s//Bs/cIbY
A9a+c2PW7L+vJcYjl0yMT3xbGRW/kXbNFt65Tsp9HZ5IfWTZireFlyh65mr/
dnAU6ip6C1gabSh6Gziioj9R9JbwQvhl0VsVvWzRHy/6u0UvVPS/YJf0xf6v
eGu4o6JnqDxrT2jn02sT2nxMkzFaOm10Diwfno5nr5AYn3Ye4iP4xGKJ8YmV
wvfx+5UTO3+cXc7Gc7OOp8re+GmtvS+xmQ3aOUdPdY5+KeXhK8ukLc4iZ+/0
qXvh8F98a4nMiflYNnmdS8sl1gdn+8yZvxXTD21dPPVIWyDzzH62YGJn0UKJ
1bdI6tSOg4fNV8dPt07scPxgfF38oPyfP4hNfJ/YxPfL741iH/d7hO8Z4X3E
I3yQGDYFBge+BV4HTmeb2MnhcbbN7w1SD2zPCCcnbf08g/uBD9o99cFhwQ7B
Ei2ZfH6vEFv9JmOTcHts8SNM3pax6R+QPsAb7ZFylQXLA9Ozatq41dgkrJK0
FWP/Vwe8zw7pG8wNrA4MDl83/yx/7QsV+LD4C18ca74sv59I+giPIObnhTmB
U4BXGOHh/IbV+Wd+j3B1sA4LxEbEjrR2xls7nh9rdfIFj3zt/MQwArACcDyw
SjumD2um7X7DEFybfCPMgd8vjzXfHB8cX/676efI9+/3M6nH7+dSv7ph3/hB
YPVWypwYx+UyHxtl/uEQTs3cw/wckbVwVH6PsHHyWX9n5Le5PDO/Rxgg+BUY
n0vyG9bn0vzePvmUCx90WdK2SZ2Hj03y6xw6NgmPdUzWwSkZJ+vi5/k9wngd
nX7zq/Ov75BnP0m/Dx5rfiRr85D83jL1+L116lf38mNtLW88NgnDpK0wH7Aj
MCDW4kFjzZe1Wco+KGWdN9awPpsk3br/eupT/zJjbW/b68tmHvyGX7Qn7aul
k75B2vjLlAtHdUXapK3nJ+3g1HlOxtc8wAvBBP0675yQtv96bBLGa4T5El+Q
9p411jAq+nN2fv84ZZ+d/kg/M2N2QdqBZ5yauYGzsbf4uUZYUr63EY4Nrg2u
xNq1luFLns3vq5Nu/V6Xska4tkfzPlyM/WDf/yZl+A2H83jeuWWs7Qfl3pi8
eMAIJ2RvwRjBPb0yNgmTZ9/DVL2atF/nGd5w21jjKXjM7xI/PzYJw6S+O1P2
n8ca9kj80ljDIr2U9+9OnX/JXOJBeMwIz6cPX4s9k52ZfjNtzhg6xHQ5Y8jg
H89ZM8K6jbBv4hFWTkyPgn2jB9AH2AfoeSPsm9j7ZPrpc25NSc7pml2a7D5r
zs6xyC3kmJHc71wn08+cM5KtferYncn5M/Yn6RMz5EykB8yU83ukJzhzxyNX
kIHoEJ/MmUv3+FTO7kezvv4v6/HmrKmzMx+3ZM3x+04Tvyv/q994JdwK/Ake
KR1+ZYSTG+HmxLAO+D5cA3wDfBzMg3wjnJzfeDAcjXLxXOXB94xwQtJGWCI4
GHMPU4G/WyN4PLzFI2m3dsEQquO1rBdt8c4IwwQ340xTnt/GA95GP+0/6X47
J/RV3WdlbIzXCM8Hm+R8g1PSz3Oz1q3x87J2/R5hHP0+LftqhHe7IfvvjOxJ
e/SclGE+Rhg4aacn3fuXpJ8wj85dbdEOZ8N9SRthIu3Ln6ee6/LstexVeV/P
eF2R/WpfXZj9NsJa3pU9elHKG2E5f5985yddPy/LvlQ23X6ayHzkFWeRs32E
Dz5hbBIOZu7eJKzMHL1JOJvPZK1IH+GYxCO8zJx5B94HzmX1rCc4rcV7k7BT
i2UdzJFyra2vJJ81BLszW+Zy3rRpupQ7wnCJF8wahTuarzcJsyUfnAfsw8FZ
W3zHX+xNwrTNm3XzhfyePune76evs2dfLZA6vAOrs3LGAH5nxfQBfmmZ9Gm5
/NYHsvGSKU/6CCe4dNI2TxvhLebgM4+Mvd6gYVkOTRpMBqwFLBmc4lczLiun
HSPMorRZk75E2g0rNMJwiVdNn1dJfxbKXI0wWeIRhuubeX+EZVwu87xCfs+V
MfB7ltRpLqceNvzew/3GnxZMeSMc2BopC5Zno9QD27BtyoPn2TTjKH3DjJ/4
B6lP+iZpn/e2ybhKH+kl4vXT1k1S3wgzdFDGC15uvYzf+vltnfKPrZP+wNHB
23058XcydrBLI5zXFpnP1dKWrTMe6+b9r6aedTMH0rfK/G2eduFzi6f+EfZr
u7QLHgl2ChYC3mOEjxPvlPHQpwPTPtiPEa5QPMIb7pr38V17cdGEtXuT8H1r
/X/zBGMywq/tkDatmTp3TN9gS3bPeO+TtuorXNWPepOwiXtmfvZNPvO5X36P
sF8HZIx+lHLN//7Jt3HS9+9NwkFOxLiMNUw0XvZerb3/DhuOdN6Kpx027A3M
DFzN0b2GsYGt+Wmv4WeOyTjCRJ2R8mGf4Kx+0Wu+Pjgh/tCxYcO/nVf0Xyv/
A8OGf4PLgqPir4HBOTbjfN+wYeDg5WB2fpJxhAU6KuMJxwW7xa8KxwWnxQcH
t/XzjCccF6zXqekzbA6cFTwP3NXxvYZ5g5c7vNewc3xJR/QaLgjm57isJ/Xy
McG5nZK5WbNreD24n293DVMFe0MHxcvwmBfr+V3DhpFbpmt4QZhCsiHeLS89
Ep/Ch+iIdCB6Dl2TDkAvoesfn9+75fzxe/mu4RRhE9fpGg4JrmuFrmEWYRFX
q2e39Rs2bnzYMEKXkBUrz6PDhtf6ftcwXnBdq3YNmwiD+JJyhg3H+OGg4RvP
LPr2YcPbwUCOpa/6AEOH9+LR7w8aTvIkcmaV83a9A98LQwjXyC8MV3hi1u0u
XcNF80Hz8cJD8/Nu0zX8HGz0Z4bNL8svzI+8b/zO71WeCV3DVn2xnn1y2DBR
nxg2DNULlWeKSp+8a9gqPveX4kOHlYOPg9XYrGu4Nxi1btjwaXzx77INdg3H
9b96/sGwYeT26xpe9NHKM786hw3H9d963usaPu3fFb81bHhsPurX46eGtYRV
xNf4qf8ZX/bmXcPJwcXBof0s+/Zzw4bTg+uD6Tuy4lfq+SyVf+au4eJmHzZ8
4Jvk9a7ZNNkzeyXbz9g1DCEMwHPBBvwtOAc4BThP2M6Teg3DeGZ4x2DYsHzw
A2NVzse7hnmbUPRnu4Yn/F/F03QNk/aTruHf/txvWJuPqLPK+Sh8Ttfu1Hyk
6Dm7dreFnQ8eB6bk88N2H4fdD57xv/2Gt5m68k7ZNfzb5wcN8/hCr+EfYR5h
cRavdz81bJg6PNyZ4GzgqyHHsdX2omdM9FnFPsxuDJcCp8L+Ds/CBg+zMh67
NRsy7A1szRSxj38maYPY1P0expbudxebut8wSp+KnfqNYGBmig19trQDnge2
hy8DTgqGCM5pKjbhruGlPsZ+2zVMFJzRTMai8kzL/9g1fNEq8avA38Dx8IkY
2y/Hng+ntHL8yXBRfB5zpq2LDhv+CkYLlofvAoYHHon/Qn7+bv5cflv+8fPz
G1bhgvyGC7swv+HS+HD5amHK+Ln4vGDi+Bn5c2HjLstvWLeL886ReU9Z+qM9
fCh8GXzr/Ob8C3zoEzEXg+Y3oYey0bMnw0XBT8EXsS3DGsEU8QHAF8GTsXHD
IbFzG3O4JNgnfgE4KLgsPhcYLXgy/p2lU7+6j04/tJtf67ODNm6wY3Bk1hL/
DiwD7AH/EXwBXz9fCCzAmpkH/hv+GdgNOAd4iCXTP/iHRZKXn4TvY73k+1rS
/earWTvlLpy8fCmLpU5p1gVfCT+KceE/Gtngxfw41iKfC3+K8Vog+aZLuSP/
iXjBrCFt51OyB5bNXE2TdO8vnjHQ/4/zlXcNz7BQ2vit1Mdvx58Dmwf7Zy+u
NWjYO/vJnrd/7GOYP/sQD4dfg4vjB4QHhCWzL+HKYNjsS3g2WDJrH64Mpo0/
EQZQmXjOgmkL3xT8ITyffT9ZxmzOjM3X01bPVsz8zZ22+81ftUryGdNV83uB
lM13N3n6PHfGfrXkmz/pq2V9wTLANEyRctUPc2Iv8qHApfCn8JXArNiTh2Xt
wKCMsDZimBq4I/tthEsVjzC8YvsYXsX+HOFzxSPM7NF5f72UB5sDPwMjelz6
DAuzRfqjTVulP9vk9zdS3zYZj+3y2zjCCI1wsuIRzki8UcZd2SMMoHiE1dos
76+SOrfMfG6fOnZJG49N3UdkvEZ6y0iPES8R+ZxOQgf6Ts6WL0f2XiJp30/6
kpHb6VcjPUxMP1s/6fSt2WvdDmuN3tZrGKRjM9abZS4PSv/M8cHpw6H5je/s
k3ndKvN8aMYFtmmEPxKPMGX75p1NU/YIOyYe4bMOyPubp84RDvvcrC17FzYL
lmrdzPkeSYc/4dOzHm/Pb+cBLModeV86XMsIGyTfCPcj3wjrAyeD79+dNBhz
2AlYimXTT/27KHl/n3UHQ3FF+gDjDNtsvcNvn5LxOjW/jYG9wr+4Z9JPzhid
lnzG7PT8Nja/SLkH5r1fZIzPSD5z6Hxznn0vYwNn/6u08e68x68Jx4OX22P2
Fr5sXe6cd05Mv9dI+ghzJ7aO10pe7387czLC6J+Q8Vgnz3ZJW05KuWdnHm7J
HJ6cNH2Aoboxz2BLrkmfYah+kz7fnN8nJX2EH78682Qsr8v7Z+S9mzKmsCsj
TP31yXda6pQ2urM90X493vgmfufcdV46A+FI2KPZm0d4HbZqeJ3xyHpPJH2E
JxKPsDBiNnV4JzZxNvURls5v2J438ht+qB9b9YNpH/s6rNBYfxIWScx2bv2y
y7+aOYf9eiX9VDfMDowWDJVyn8t77OJwSezg7OsjfJLfcEvvps8jnJPf96bt
r2UsH08dcEdvpq2Ppq/8CTcPGy7zsOhq9Cq2st3r+U8G7Te9cobiS7sPmv4+
Y9GXV55vdo3eZ9D0lVkmNJztrvX8k0UfU8/XJqdPaHoobCyMrLpgn/6VNjm7
j4hs/5vKs9+g6dFs/fAT/PZwUG/lnRE20e8RlgK2wr0BdwjIeM9Vvc92TYel
r9Oz6exrVZ4fDtpvupR62AG2rOc/js67e9f6Av87wlc9Pj4Jg6UtdAg4APiM
EQ7A7xEOYMHoGNLhJ/hg4CJG2DcxzAFfDXzBCNc2V/INkw6jwP8BlwCDMMLJ
eYdv5CtJmynpMBEjvAX8hXXWpTxrC0aCf4UPBk5ihFMQj7ASC6cPI2yfdz6R
spU7Q8r2/iyZH+24NmvLGE2VfsPK8C/Nm3b/Juv1qfCLZ/L7zuyBP49Pwm6O
sJxPZg5GmDlr+erMg9/4+wPZo1cm3b4c4R2VO2XaAsdzd/aftHuyL+3JEUbH
mpM2zBhIm5B5G2Er7fURLnOE03wue9QZ9lLy/S555bs56fp8R/oqH10CDyND
75K9c0etyU3p0BOa/cG9mNmK/nmtyce7dr+FnMumMXvRf+o1G8Oni36g6B+H
PsVaz7tTxybwuaKfZQOr53MUfc6g2QPQT/ea7v4Z9z6KPrlr+c8bNOzxZ4s+
u+jjkueswSQcz0r9SRigESZIvFzWq/QRpmbF5COfu2fCJnBk1/pyepW5L7tC
0ScOmt4qH7n4+LSBvjrC7sDyGAvyPdlebHzYQ+jbZEQyAp2bXkRPotPD/NHD
6NtLJo3eTkcZYdnEdEr6Lj3KeUPnXCy/Z0u69+mjX0oaPWOetIFuv3jSZk39
9Lknq81zpe/097knND3/6a7RdHm2nTknNJuUeZ8zZbKleJethJ7s3ML7yRn3
5/fl2RN+z5y+asdmWVeHDxovgOVaKnvdWMJSfavq3TX2OjZPtlB+gvVjIz0i
tPTDY7fic2GTX6xr2HR63PNsDuxB9Kqu6Xiefym0OzufK/qiQbNh6ZNxOSr1
qYs/4NCUz0b2g0qfqfIdMmj2KPT1vWbzdNbsP2j3RNwRca7cOmzfGVO+O7Cz
Vp7jB61cdjdt//6g0fryjcq/y6DZM7+fWL2fydgYr2sqz4TYqmaybmNn0Xbr
2ZplN5g/80gH/Xzm+qmk0ZvZFeZLHnjChSq8GRvFIqHZKhYOzY6BpqNbJ8pX
3kLBIzr/6OwLJM8iee7dJSvf9BPavLLHos/vNVuKtrNRLJezng15j4yVtccn
ZT/e22t1KPOfafMCoWfLOnIes08tlPa4F+5+uLXCzuwekPvDxpjt2PhuOGj2
afZ9NFs/XwMfCZrNf6NB80HwO/CfoKWvU2Xskffd7Tok9skHi96s6PP7zebP
zs+X84NB8x+oa+tB8xOcmuf6fVTqOjNt8A77P9+P8pRDZvh+lb/3oPkmNhg2
OYhfY9PE/AVo7/IvrFx9/07l+9Gg+Uv4UPRj40Gj+VGMvTkga71Z4aBBGytj
tlVoMZs538MWg2Y3Z6fl80Gzn9sHZC97gd+ILVf6JlXOAYPmm9giMZv74fV8
z0H7Zshe9d4R9fsE9q2i/5M2K5cNmv1580GjTwxNviNPbTlodbHnr17vbsgu
P2jjzP/DH8N3Zcz5ZbYetvty0jYZNN+Pcdsmc2he+Lf4bvZJ+Zekv9+r8jer
9w8cNB+MMdkz78rPH7SXfRofwb3DNtZnZS7Vxce0Uz0/YtBs7Hxo7N1s3eRU
8iqf1nZJPzO0PHxbL1QbVon/Y8mKJx+2uXMXj0+KH+qrXbvjtvOg+aauzfPl
4pe5qNfuGLqnd+igpV+TepdI+d7dadB8IOR0e+bW8KWJ32voNx7pTpy7eUcP
2t3AIwfNZ8G3eUP6514h+qzQN6Yv/Hbq5SuEWSX/uvv2ZmRmtD32h+wdMjQf
1pHhLfgKf83d8XE5I9y9ksc9O3f6jkkedyuN0dWZd3uIz+/oev6x+By1wxia
/2+lzAvS19vS3wnh1b6f869B4/no/wtP8G3Jnbp2t/Cn9Xu5it8aNP5/b3xZ
+Mk/B239WxvfyfNLeo0f/D48Yemu3S10l8w9QXcOjx00nUKeX/XafSxnH5vv
zyvPlfX7l0XvUPTlmRf3Js2Rb40sVfGUFfbKGDyUcfhL5X+5a3635a3fQZOF
Noi/9IrK8+9BO4N8n2Sz+O6ucVYP23n7dL+N5d7Js27qeTD85Jns01e6lqZu
Oh0+xodlvb+aNb92fJpXFT3eNR3tiX7jH0+GDwy7xlvUuwJf3KDJq8fh/SkT
P+An/bXxNFbDxqMeTL+Oz/mOh/MZbVz02dkXz8dPZe/MEH2NLw/veD68xd1S
upzfK/KtOTMqLENOCK/5z6DJmN71/aVvDts5uHz4rnl0P5SP1ro/rOJTK8+p
+jNsPNl3GE4v+rTQ28Zv5n7xtF3TqV/B04s+r9J+MWj7W/vdFT1/2GRneeig
j+VM2TT+vt8U/Q++zq7J/+tWPFnXeN3TqQt/O6foMzNWZDrvk+vWqPjY8N4D
iz6h6JOtoWHTCczdbsPmS72FnFV5Lh42XWArclTXeMel9ezcQfvGyEXDdg8Z
zS7gXbaCo5zhOTvo/vY4X517tQfEv3nhsMlIf+s3vsTX6v7yn0PjRe5Tszvw
9V6XvebdnbtmG7V/3QPeO/z8/EHz/bEf3NS1Mwxu4dqufQMFL/hXeC+/MN75
z/DPT8e+wTf67qDpN2h3fD+Sd/FbPmzfArqxa9/fI0c6D/muL+41fv9+9v7B
oe8u+sJB+4aKbxTgN/y9v3c+D5rPlm+CneG4/F623p1l2OZupYr/O2h61vRd
O5uMG37DJ8zG8mZofHWOrvGh98L3PsyZ8pl6fkHmYm+6RtfO9P/kfDdWc5v3
ivsV3hk237Q+zh2egw/P27X59V1E8iC5EP+ki9BJyIeHZkzuwQOT19383bJm
3FuHG7opZ5H78jdl/RxEHu7a+rx80L7B4JsG1iyf+QPhOWh84/CiF+jafly4
a3vQNyKMH3/vTc7wQfNt8lFay3zdvy3680VfNmh+6POT/8l6/oXwKM/f6RrP
4tP/IHsfTuD2ru1/9PtdwwDgs7d17RsW6CsG7X4AnyMd/JT8viX7cbLsQbiA
B3uN/6GvLPrmrn2TAk+/dtDuWvn+A137rPTHuuBvf6qe3x3eyA++WPgAHzDd
kW5Al/ywazxCHnaAr6Ze7fxaxpl8Sk49LjIyGRcf5leSh8312mHjo8q8etB8
wnyjCw8bP4WvODM8Fm2/G3P2BGtYm/G0qzJXvuFw/aDp8fSPBZ2VRU83aPo9
Pd/6x0vhCPBM9oHTU/ciRV+T/uKv8rBXHFvPF+0av8UvYUCuJj8Omv2DnuJc
gt14qOj7cy7DRbB14ANw1zcl/iB7mc/R90DsVRgR+/cPXbu7iK9dOmh+Q2ue
TxDNp2pdw1D/sdfuk+E16rpx0HRf376gF5+b3/d2jc/Cb9i7fJDsovyQaH5P
+3q+tGeO0L5d8FDX9FIYCrISvYsMdmo9vy5yCJsPHk8+oaffEPrTkVXmSp/5
qX3Hw/fKNsna+Hz64hsjeIBxwOvwEDgO3wOZN/Qfeo2v8LH6dkd/Qjtf9Gs8
uJHRuMF3/C3yg3khY7BXWa/kB/KMeXy41+w7bCv8tmwGaPYQvA1+5J7wWP5Z
vJfPGo5i4r3KQVv/9iZbEp1cOp6zRPqFN3hOT9euL6VteNpi6SO/r/L5mD+X
evVRm/SXH1mQ31ogn5IzyKVnR94l4/nGm73m3OdPh0PgG7cP6PwT7QBdw3c8
kr0jj++i0O3l8Z49tEr2ETsP7Ar7lv0Fq4EHslGsEr6xYMpUjnwwLu692ucw
ExPtB13T4Y05PwucAxvYCC/yTsrxXR5l4bfy4Ff2rjz4qv7AVMAF2LfLhW88
3DWeslz4yfLhCWwGS6Xv1t/aWY/8/Pz9cD72N4wLfAvbGvyMftuvqyc/W9w3
k26vyeNbNO8PG6YRj2VjPDHrjxziTHJOwT479+HWzu3aNzbJgfaKMt/NnmXH
eqbXbCer5bn9hcb3YHNgdPA7/GqatPmLaT/+vnDyGEN2YNgS4+37QPLPFF60
RnjFYqlXXx7Jvl49c2Ou2Sbt3TWzf0c2pok25q7V/3bGEP14r9lX2FzodL5b
iGb3YCNhE6H7nBpaHvo9PZwOTudmj6BH+A4MfCFd9Wtds+1Y+3jvktl3vrvh
+xt0xpND41G+o8jWxv7G5rd+aN8x2yJ1sTewNbAz+LbcloNJuEF56CA3R24j
s12Y/J6zr9D96Xr44vqplw1po/TXNxo3Sp6zkp9NxjcanY/HZ10onwxJb5gs
ffT9OnYBejTdevvQvsNDz6WzsBnIQ59ia9Rfuju7Jsw626kzzXyxB5IBVsp8
+faVveZ8pBMrk/zvWz7bhGZTYWehB/nmHpr95JyufYeI3srmx/ZHVx/ZktiR
luoaNlWeX3TtWz/m8eyufQ9o1+wNe4TMxr6yTcr3nRX9JcPflDxnZax2zFw4
t5yhE7Fyw6a344d0DNhKNogVu4ZVpbef17VvwKJX6hrelA3ql137zi16la7h
Uent53ftu7fo1bqGW6Xrrjds3w9Ef6NreGL68PrD9n1P9CVd+74evY4/k4+T
DvytruGT6VBsy/RUctqFXfveoOdrdQ37Sx/+Ttewv3Tg9buGo6WjXtS1b/15
/t2u4W7pcRd37ft+6PW6hr/Vhgu69t1Fbdhq2L7pp5zduoYXJetv1zVcLHvC
NsP2nUG6LVs4mzj9+dKufScQvWHXsJ306Mu69s1A9CZdvslT9OVd+w4hmo+A
LkKWnjV6Cflti65hUukkV3TtW5ToLbs2j+bz1137NiN6665ha+kAV3btm5Xo
bbuG5aWD7TFs37pE/6pr3z80nld17buX+rhj1/C9dMCru/a9SzRfGZ8ZnfP6
rn3TEr1B13DnxgS2lCzijPb9RfNIxvjxsH3v0nj+pmvfeKcfuUdCvyHb8Beg
6W77dA0bTxf6ybB9Lx69f9ewv/SHu7r23TeyMns5u7kz5rddu8eO3rNr+Gd1
/b5rvJ7sfmvXvgWnnJ8N2zfp6ERHdA2rTM85tGvYZrrP77r2bTs6xtFdw9oq
54xh+3ae/Ed1Df+sPfyBfITy87PxHZKn7+za9/jQB3QNz6xePnB+fToqbC85
mMxJnySbkkthbMnpzvpfDtt3IsjefIP8iPSWEyLLkz3mCPaYDHrZsH27jex7
Q9e+Vaqu+7pmR5PnpK7hmeW5p2vf11MmnyRfJnn9j137Nh/6lK7hnMm65OUL
0uZ/x17wQmQJNLsBnqRfZMWJsvag8aqfdg1jrC9kzIuyfh7o2jcBlU8GJGvS
BfiW5CGLwmb/KmWSB609ciO88yWh4RMeCu+lK5CDJ35Hb9BkUPKnM9PZSWeB
hZaHfvGV5CGvuqN5eWi6Gr3OOTt13kWTbeWh68EOky8n+pKGLb/nZEnPyYSw
weQ5shx5k9xJNoMHvjo0eQ1NliOjOLecWWQb59bbOY/cu3BGkA2VSW4kr14f
2vl2beoiL12VNqyaPGRa+gnZi3z1zdDkHzId2Y5c5M7sTaHJSugPIj/6LuEs
kWmninw5f2jnqbPY3Y+R7IHeJrR7IEdEVkHzSfJd3pg2kJ3cjTk6soS7MeQH
cr57I/Smc0Pvmjzy7xiZRH4+oBUzhm8nv3spx0e2gcU/KXIX+keh3Z04OTIY
mu/jl3l3t5zRxn+f0O7JkBOuCr1vaHdmyCfXhN4vsoo7PCN5Bn1gaHd1Rmc9
mj2Hz9T9DnZUfr77Mp58c+6JsJXxp92fsWJvd6/k0l6zdaPJWnxq7gfBF/Gh
PZAx5LdyV4Uuz//zYMaEj8w+urbXfBB/Shv4ldxT4BfmR3o465Cvxz0OtiAy
xyPpI9+Bd+Eu2DPdv+PrdIeDDspmMmWeazMby/NZ82zmj6XNbMLumMBjzBBa
29ih3YN4rNfs20+kbeyr7mjAY3w6NHssW95T4SHshGh2P3a1p8MH6C9Pp538
5s+Eb7Bloe/vNVvas9nj7FFo9jQ6yXPZy+wqz6XNdNZLUj6b0vNpM13lhcEk
exSavYXN4sXsO/aTF9MXvonH0gbYFWPI3nJH12RZ55f/S8DeflHqhb2eLHoz
TDY+iffCanexqbyStuFp7mBMEf3efQk8kCz3ZsacTPjPzNdXkuej0dGViZ9b
jx9mfS6aeidEt3Y3gH5tfSmTvIz/uLMxU3Q1dwCmjw76RniCtaxeOgRe9I+M
z7Ip81+h3TeYJu/KM3Psba9mvuyh97KPfA+c7YiN2lnKDug8JVew097Xa9/K
Rrs3ygb+r6xn82A++IDMw9uZC9+jRj/Vb/ek2O58p5rshPZ9TjbJf2ce/S8J
tux7+00mQpOLfHeaDZA/hSyBfrTX9Bvt56t0Rmv/c732rWztf63f9px20gWW
z5i8lb6/n71sjuil+IZ9Yy9pJ1nrnazPEabhpOiy8vNV4qvubIx0a/TbOY/+
nvX8vcjkI76CxmfolPTPi8I/yNX2LL2KfnVFnqPxFryKvQy/4mckRxorfuGP
hpaHfoFX7BP6vNSrLjxthGvBt/gTlEMW5fvgm/ANUuNG9zQ+fBUTn/eb3oHv
WP/8AOq1v+wzvgp+CjyPvorvbRf6+vBCMjze6D715GmzMZ85fWerxhPxQ7Y6
8jRZmm7F13hZr/kryb3WIX6JxqPoWnQu6/Cx0MbBPdOP5flEO+ug6YkrR+87
MzYzY3tOypwy5fMXT5V6lwrtOf8FO499QR+UHx/Aj42PtcpHqS/WP9v1jFnz
/JIfz3My8SeSnw42Y2j2o2nTZvoEOz7d0L2/6fLu43kXX2UPofP+stfGdcmM
rT1hb7MJu7PGh2FfsKuT2+2jFUNb8+zo9DG6GJ/RrMlPn3J+ODvsS3vV/PNv
kNHJ5/xKn0p++py66HfOkLkyR84f5eAz9LHZQluDc6TNziJ6k/OIzD178tj3
eMH0WWvyv581OGfefTL5nRHKISs7434Vmn2dTV69vqv8s7RtkHU3f8bW/CwY
2tqxhoaZk3kzL+i581wfydDODmejM5KsTXdD42/WHvmfvrBQ1qG2XZp32Qmt
r3myxvDaeVK+c5W+5mz1fO6sPfxVO6dKHjI33n5FaDZpZ+9CWSf28Weyl0/L
c2e1+V84YzvRXzZsZ/t0GRP70vgvnDVjnS4yWqspk8/02Mwd+UKZX8y64jeh
u43OebTznYxP7p8h62jxrB+yPD1h1uRH46XW1LLJ4wxZJuXPknetR7oq2QLf
Jl+gZ8q6/kredT6grfePZr/gYeR6sv6cWZtfzdqbOXXR98Uzp177fqnMl7Fa
OmuGnLJE1uG5oefI/Mq/V3ib/Pb3i6nXOQ7Pwz7mm9UwOPA5MCnmeoWUj+fh
g/R9+3G5rH9rWB7nsD6ulP6aC/ucnj5T5mX6rA3j/1ZkyBXTL/tRmc5h6235
9NEcKZOMwPfkOz58Nmd1zTbrG90wUdqPF7E3+Ab9RzL+5g5vYANcJXmWyLv6
yOZJ1nfufCHlW4d8Q1OkLme3PM59sXfYSGED3OMlk9DH3delgz/YNbym33R8
fln8ig/hgtBnhbbe+N34F9nYZwjNP84uzm7AJs8G/6vk8b9C+J7+3m8+J8/Z
7Nkc+Oydrb7Ph4Zxsj/YhvA3/6MH5sYZzS6Hhr25JTa6K3KOo+Fb/O8eGBeY
Q3ZCNJ813/VGoWEz0I/3275l73J2uLvN9wdfsV+ew2lsnefwEvblL7M3+ab4
+2BQ+VH4U/hn+eUOSb/OyZjQofk+rglfYhe6NrzCuBv/I8KfL00b2FL4F8hs
92UMjS2/AZsV38GZoe1fNkb+aBgYbTwv7TwvbWZLsb7PSjufD40PTJ13/9Jv
/9PkvNDsY+ekrqlCw7pMl3XySmQn+iE5ja0VTX7jM9w0NHsv3ZK8wUbMVgyv
At/InvzHfvs/TbBf5A1YKJioBxOvF54wVWjyBts0GzWMmWfr5jkbtXLgx25K
+ehHUy85BE/eK/tr1dD48w6xeb7Vb/uCnZO8x+a5d2jf4N87/Ifv1f+n5HMl
i9J7yaVidmH8cCztpOOwq68TmlyNJifzEcDqwZPAObBLw5IdkDGE6fI/feDM
Lolsw2ZOziTHrZ+xPSjPYaJgsGCx3Klhx0aTr8R+k6fYwDdLXfxY1hv/1bpp
w7P9Nm/KJz/CvKyZdpL5+SbgCWEMtZ9/CU5PHt/wh8uDz4NV5MNbO3ucHK5c
8iQfnzxkY/LK2qFnTDu1me3ONwvIIfOGNuZsgdcPm7+Nnc980Fv5mdlmycmn
hHbW+78/J2c8vT9P8sPjsEGzCV+S5+qCOYI94te2jqwnuB223xNTfj80XkEu
YDsmh/Ap/DxjyybMNkHGEPtNvmALg13h52V3dh44C25LOz33/5VOCL9S9gkp
/4TUxVZ8aNoJO+QOK7yWbzMcmX7BA8C/4Jt4pnmD8YLv2j80bCddkO5Kp4Hh
QjsvfpB34Wdgc9jKTwrvwSPwB+eD88N5AXfE38DXwG9wTdcwYAul78bB3rKv
7Cl7jr/B/7Og79J7yfjwOOj7I9fRt53pbPlovBSvdZbgtweHZsfeO+XzU8DB
8U/wTRwYGmbjR6mXjwMe1O+bs79Ozz7iG2YzgQEgG5yZNcmHzm6Ph9NT0OQ0
Mjl7OBkJJkRbtZMczW9BzsfH6E5k14+FxruOSh5ytzH59bBhQvwPsivDl/id
le9csPbtged7DWdyVfYvHN3V4VcP5F15yFns/uSuS0OTv3yf5PKUv11o8r/0
S5N/NO7k8BkzDmSkZzJP5sj3WI7NWvX/y6wV57LvGsEH4vn+V6b9hudbR/LA
53w56x/t3op94f7CFNlH5sL/5Do1fOmO0ObFGlemdX54bFxsy3yU6sX/F85+
tpeN8VGZi9E6c47zOWr/FTkvjkqb4ffsJTi9L2Zfqeu4nPX0Jv830z50HtmL
h6auXurlo7DWrDHr3NzuGXrnnDXkMr5BZ7Dz1xnrrJ2oRw4abofdafbQ5C7n
tvMbxuy8vAuPxX8ydcohv/EHOa9nDk024E+ED6PPwgXNlPJhVdDkND7GGVLX
haFhy2BW+ZLIdb5FM33ySPOc7McvCf/HpgGDxJdEhvENnE/kXb7KT4beMf3V
Tt+xmTb0JqFvjL6gHDKS/6MHjzXyiaHpjzBZnw2ND+KHxhYmnH/KOocHQ9tH
1rs9wA7g2aeSh9xHLoSb4jecK2fB6BtYvn/l+zme93MGzRmaPwo+iZ2TH5j8
RHa6OP1Vpu/2wJDRB/mX5whfujDt91xfZ0l/F075yvQ/qZVvXZFB5k699jo8
mf3OBgFTyk4I3w1Lwa8B2+zbSu44+E6Ve79w0Py/6Il4yGHLw0YhnnhXud9w
qremTD7rm5MHHtV9OT446bckzy3Jr538Yu4J86m5l4ZmC3W/YOL/sOw3bAiM
CFui+x1wLOQ02BAYEfKhfPASzizf9XLngexhHsyHcYKluGs4CfMiD1+SuwXK
4ScS35MyyU4wAOzM9Aa6BFw4eRXOYYRJuTfv0kXoJxPHtd/y4DO+03Vv8sP2
3xfeDsNi/M/LPPwxNLlKHrKQsh4I/yEH0YvIS+7yeE6vgb0hC5IDfcPtwTyf
+P9Khw3PBtf2UJ4/lL6gn8n7/FbfSd+1fbOU+UzyGAdyC4zPI6lLmQ9m/dAD
nPv0D9gA++u2nOOzZe/QZeAN2MSOCm0Nw62TD+BZYA92z1lDXtgt+dlC+YrY
ReEc0HgIPrhj1tthofEHmHl8BA+Bf4Bxp6/hRTvnXfhgmGGyH6wIvCPb6buh
PYdZsh9gnOyDm7IX8Ht7zP46ImXidf73l7r4su5NG9QL++FOAl3M/zdDsyez
i9AL2HLhh7dLnpFcgo+xq+yRMZkvz/EE+HN6MRuS2G868j9Ck7fJWeQtc7FT
aHoKvZ88R5bzf73IQ+T2qTIm9uBI5qOH+jba/inTHRBnknPE/zFzj8K9IXZy
7f9zzhR58Gf4lu1Dw/ubX/cVyFwHpC/GYOuMw+7pL3snHNT+2ddXZi2Rf8jX
5Gz6OnkejoK8TU6CCXFGk8/JFuQK8ir5g+xxXGiyK+y9/M5uOpkz23mNP+Fr
zmo4KDh+dvt/h5YHLoN8Q7Zxp+OD0GwJZHS0999KfndPpsz5a79MlTOaDYAt
gNxBNiEbjacf76Uv76R8stC0yX9f9JR3k//QtJ9+KcC0OJvcH3w74/BW+oUP
k5XIT/Dz8CzkKjIV2WqKPHfXBr6FfEV/R9NB6CJ0J89grtwHYEv5b2hzsWny
2Eebpy7lbJy5k2fyzB39Be93BpDxjs3YmiN4M3c86Mhvh9aXEzLOyvgwY0vv
cEdAf8iB8F1w52wO74XWBvcFPpJ1flr6/1xkJ/vQHjQX9Ds8nJzDzkXOgvuD
tSVPwmig+RDhJuAt2GxhGRZIHtiVRdM2eKEFMobsc+x09Dt4EPY7trsvh+Y/
pdfSb+meMCafz3O4IPbEiethQitfvbAYMKn8nu6uukM18e7woGH52BbYEODi
2Gdg++GBYEBGWFj+OFhX+FR2JBgQWBB2b5iIRZIHTnbhPF86eYwDfNTCGX/j
M3/GYYTzgHVhp5wv/XWe88c40yeEZp+EjYQhYNucM+c4fsvX5jl+5c467C9b
MZsozCubKhsOuzDMJLspmyl76avJ4zksk3fJn+7vuGPGJuE+5XIZNzZutL3P
dmE82SJGd+aNs/uFxpxNj93DPTX2EHyL7QPPRONlIxkEjafJu2zym5Pv5Ay6
MeXr15opZ+I9x0F75+D0RR/x82HeNbfuGsNHXhjZgawAG2lPrRG+hP5Wnm+Y
PCOZYc3sZZhNvjr2MT70VUPjf3iiNfVh9ufF2S/0K/LRXsnPXmfdrZgxfCD1
kmf4ApS/V9YA2e7WyHFkuFOi77AhnJV5fCHrBC4UzoONi/xM93DWwwTaL/g5
GYoflKz1sdBkK75O7zoL4N9gxOkm+Iq+wLKShfg7yYH6uHKe80XzT8OI8lvy
77KbwTby07MDbJY8ZKSZ8pzdD+/5bt7lw1g7c02mMF/kCrwTP2Vvdo9z7cyj
er8bPgbHql62vjWT33xphzT2PX1hS/1jzsGvp/1/yBzhaRtlPVgD6lMWmf8P
mTPz9VDKVJdzgQ3roLTt22m/frEPPhs5UR6yIp6/bvq7WvagfQcTC3PjrOfL
RpMZ4F7pdeQEsgM5AyaW7OA+NhmDzicPWe+pPJeHPgIjSw50X9O9S/c06XHs
F+w5L4cmR/Gp8tFO/KbSoOWn88Kv8ouQi85OG5zXytw8eeBn+QDIdXTWrbL2
6Lv0Z/Kge3mwqu7iuQe6WdpzUd4l/6ob5pYs5B3lX596tkhdZGN5yMDibUOT
734Y3kJHpCuSA+GR0WQqMjg7Aj2XLQHN9sUOtlP4xr6hPZd/x9Dsf6tH7qKH
0cfoX3Ca8Jpwm77ziPaNxyMiU8Kgwqh/K+8qX5nkT+O/febCvLCt0wv4nWGq
2ExgXNHk2NfTR/2iMxpPcgt/yh4Z2+NDs/Wp39yRmfdM+eqCoWB3IPM7O3bJ
/B4T2jnyo7SNrc+cyg8vTX7fKjQZis5PpqJXsgE5j+gCaLZiuGM+bLYv+ffK
cz5tz0+KXLdPeBRMMtwYuxOfOLoLj9ov5ZwUGr/C27xLziUPkgPIAM5SNNsv
W7e7WnRrz/mnnbPwxjBnZC17h3+InKOcA/PuCaGdEWzXB+U5X7l32czJaTBk
ZCfyIJmGPOOO2CGpd4E8n3hHO+1hGydzseWR8cifh4Vv8KPxefNJkR3IEKel
HPY78gMb3uEpE14aTo7dePLkJ2/wz3rO7sqfxq/Gx2W+9sxcHJF5wRs/mTyP
hhfBbPN/nRkaXxIfned842jpZK6fps3sbMeEV5BDj8lzefSLbAaDDav3RMbt
sPSFv95zvtQpU+bj4T8bhr/xH7vHxZbOFkdmY5dbOc/Jb3g1HDP+z1ZqnOm4
fvv2mnsoZG82HWeNc59PFP+nH/GnXhE9Vx5nwkbJ43zht+R3JC/Bofsu9j3h
sTAi+OpsodnNNkiZ/LH0vLfCl5xHfHLOIP43uEByBR36iuxTNiS2pMNyFsvv
/NopefDLHZPnppw1fFfOnYm+x26Srwx9dc5leZxH8IDqJauQo9xLPy88yr13
eurraTOfiHv/bGTsY2jf1h99gxvtWx1/Tb4z8+yN5Lfe/pP9jrewdbJDwBrB
4fEP0EnfyV72XQXfAfdtAvvUd8CdfU+HfilnpTyHRaejl9Ix/5u66INvZo7e
jTxAd6IXOlvp5DeGR72dvbB7+m4enaf6q0/OO99kZ5/5c2jfCPi/1MumSO+/
NPwENhPuc+R7RJMf7N87sk9hY2AT+UnIFbdn7k5NHvuCfYgNyHmHD7PjOHPJ
gfAQO0eugKXw/REYA7IcOXzzlEmHtRduC49iN+CrG/kAfxe+dHHWNv88PAJd
j0zI/3Br5sXZfW/awBbLVsseu2ues9/yn98VXnFy6rUH+YLuDJ+BG7krfMm4
0TfZAcgP7Obs+nOkfPYeZ6kzlX+VDYTN2rnJLo129wENH8B2zWd7Sp6zGfKn
0lnYN/ibyerbZr4OiXx1WfjMLhln5x2MDQwxv5X7HWh+H7b8EzNWbNEnhSes
lbroKKunzWSAdVIvfYEuw7d9YXQ080ieXyPP6Ths2JPFZrt4ymfj1y8+Lf6s
q0LrI1+K/OzJ/gcEXuceh/8H4n+ErJ1z5/3Mxejbbe6J+D6Yb4O56+H+sO/W
udM8b76lwHYtfiz5fafFN7PYRPnNfd+EzP94aD52vJ2twbk2WWh2Emv7g6z/
L+S7avDhg7TNeeqOuva4D02nY4tkk3s09bJFu7vrG2PukvL78f/x1X8864cd
8ro8tx58e0B+d0P4Q7qsK2PIF8gvcGVo46nMP+Zd65Zfc4RneThrmN+PLxPm
hV8RNoJvcZ/QMCz8Z09mbNl42IbYfNgvtYGcNkgf2YjGk4c9B3aDrZzu5rs7
7iS4j0D+5wdiX/Tc/ztxd5sdmu17ZC9H02fvSzkP5Qx8LmuD7Z+OeUeeWzfO
R/oRez1bvW9RKX/nrHl8m5xvnPnGnL/0Ym2j586U52xE+An/ln0xTdr8SmSD
D7PfPwjPZ+Miw3wQfnVNxpZ9b/T9QXPHZuhdsoGzg7/qubTx5YyPdrycMbk3
fWHP920vffRdrvnzPQp3Jexf7cS7/h9UK2ng
             "]], Polygon3DBox[CompressedData["
1:eJwlk2lLVVEUhjdecW1ERCIiQhQ/m1Zmk6XmbHPdnJvNJiu1ybKyUW2wXxIR
EREiIRIRERERIhEh0YcICZGICInwWbwfHu7znrXX2evcfU5ee3eyKyWEUAKp
MGwhtPLbAl/x67AN3wpv8HvQjDfBF/wONOIN8Am/b+r1NVP4IOzGkzCB34Dt
Qfd8i9+CnfgOeI8/gLagGb7hA6beXfARv21y7/mAD5n29j0m8XNQgW+EJ3hm
DKE8QYZj5F+wAi+CVnwR9Sq8Gk6Sz0A5vWXwCO8xeSk8xJewvoa1tXCanB3l
ddBFPg+VQTM8xRdH3dt7TpFzo9bWQw6+ECoTmqGT+iWopbcGRvGzpmfxmR7j
F6AqaI9n+FXYjG+Cl3g/bAm69gq/Zjo7v/Yav2JaWw/j+EXTXtUwgvdBXdAM
L/DLprV+bQxfwLwVCc18gvwPVuNrYD+eSr0EXw/t5O+Qjy+FJP4TCvFl0ITf
NJ29vxPv8BlTbTk047Mm9zNrwX+Y7lUADfhv01muhDb8j8mLYQ8+bVrrezbi
f021VbAXnzO5P8M+PC1q9g1wmBzIa/F1cJCcEuX+jIfId03fgn8Dn/EY1VsK
HeSsqHfP/7Pj5PSoWhkcIf83/Xe+xwE8I6rm7+xRcq/pbPzMn+PzOjVgmg==

             "]]},
           Annotation[#, "Charting`Private`Tag$114768#1"]& ]]}, {}, 
        {GrayLevel[0.82], EdgeForm[None], 
         GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJxNVmmIVmUYvXq/73veaXJr3M1yLLXJMp3Gcb7G9m1mtHFyXMbJatSWaXO0
xUxT2/6W47SXS/tCRERElNQQEhFREaEREREEERERERERdQ7nXOrH4TzPve/z
vu991lu/fmD5xpFZln0K5MDPkWWXQBgEry5l2b2Qrwbaylm2BvpuyMdn4hng
9eC7gbuADcA91q/KZUv9IGyPVLKsB/ZjYXMaMA84BlgAzAdagT1Yu9jyscB0
oLek55TX+ZxdQA9wO7AFWANstd4L3GF9JXArcAuwCrjN+mrbUefeQz63z3vv
BK4AdgB3AofK+v5ByO1lraddFTZTgWnAGWbeuxmYBEwGFgITrTcBE6yfDoy3
3gjUWV9gv9TZL+Os02djrdN3Y6yfCoy2vshnTgFOAUb53clALXA0cBJQAxwF
zPUzrmuxHb+nwe9pc7l9sB2YDR1pkSXgRACuyBDW7ASgZH2m84h6PTDS+iyv
Dd91nu++1ntvA6607+n3ifZdk33XbH2yv7PZPmq0z8bbp432aZP1bux1M7AZ
uBTYBAzkilPr/+JGrtq/8+3vqX7W4txsdU52eY+NwDLzTUCn+cZcNUS+AVhq
vh5YYr4OWO578U4dftYPvANHroIDV5YUkxZ/84GK8u84yHsrWvce1uyrqMaG
S8pT5uuITGurFa3nWtpcm8uGOvenDW1Z60e8z31Ys8J1Q99NT+oBL4Vsadfv
WuCdhtwf9lfUI7gH78R9DvuePJc9g++ZE1V/C+ubdm2+M+/R475zmfOC9cwz
6ZN29xOu4doOv+Nz7sU9GatB34lnXpNrLb8hd44yN+c4l1kPw96Pa88P5edH
4AtCufAxuCWU62+Am0N7vAZeFNrzdXA1VBtvgi8M5dIn4M5QLn0LXhLK36/A
S0Ox/Zp9NxTrb8DLQjn5HbgrlHvfgy8K5ftnfBaqybfBZ4XqdjgUs27HkL5n
DOi7zc65bsd2hXvkJtcG3y0O+eVgyHeM1QzgnFC/OBSKDfs7/XlmqKe8C14Y
mg2vgM8O9Z33weeG+tEH4I5QHX8JvjhUr5+D20L1+gW4LqkXPwt5XFJfeAby
hKQZ8Bzk2qTecQDypKQ59DzkaUl3exHymKQ+/jTk30Pf+BD4p1BN7gb/Fqrn
B8E/hPLpfvAvoXreA/4xVLcPgKckzbkXIP8aqv8hcE1Svu6HPCqpbz4FeUTS
vHmC8Qz1wbfA7aEedZgc8vGr4Dxptj0JOZLm2T7I/4Rm2OPgctLM2wv5j1Dc
Hgb/GYrtI+C/QvF9FPx3KM6PheYf5WIeknm/80L9+MPQHOUdeEaNZ8Ycz4QG
67WeKw3u67M8E7bajvdmr5/td9tcz2s9T+gfxiZ5b64b7ZlQzC5yMaPm+ryy
z2Ed8j+DcS/+OzY4Lwfz//5T+L+wzuuKHs2Y7fD5zC3O/D6v2+478n4lnzPT
c6zetbDTdn3u2R3u6wOh/vFyaD50ua6KOUG9mA2d7lu07XeP67WPijnBHN3i
+DAexSyh/b+I79+f
            "]], Polygon3DBox[CompressedData["
1:eJwtkulLUFEQR689Y4qICBERiTIzy0xtMU2tLLVyN7O0PW35WH+Jlktp2WJp
VkREhIREREiIRERERIRIpIhISEhERNQZfn04cObN3Dtzh5fcfL7u3LwQQj7E
wn0L4WwUwhlYtiCEceKt//M1+BU4SO4A/MEnoIBcIXzFe6CRXAPEcP6L6azX
1OJjkBd0ZzX+GXKDvlXh72Ajvgn24h8hB98CFfgzSMPXwDb8Fhyn1zFYTL9e
kx+FRcT9xE34SYgjvk18ItKZJcR9ppx/W0p803T2CCwkvkZ8KNKbIuLrxIcj
fZtPfM+0q9OQRHzV9Hbf0V/8ril3ChLJ3yFujjRTPPENUy+/04jfm96+Gcrw
J5CCr/Kd4U8hFV/tO8Xfwoagne3BP5jO+s7K8RewFk+HHfgn0y5955X4c9Mu
vWY7PmCa1WdMYJ4hUy/feSH+BrKDeu7Gh2EdngE78deQFVRTir8y5dbDLnwU
MoNqSvCXptn8jiJ8xFTrNcX4oOnt/uZ8/AEsx1f4jvCLUMWslTCDt0A5XgaT
eLfpX62H3/hD09lk/6fwx7AyaMd5+CNTzr/l4m1QHanHN7wVKiL1mMIvw368
Dn7iF0yzeM00fsmU2wc/8A6oxWvgO95lms3v+IV3mmq9Zg5vN9X6DLP4PyOL
Yl4=
            "]]}]}, {}, {}}, 
       {GrayLevel[0], Line3DBox[CompressedData["
1:eJwl0dkqBGAYBuAPw9iNfTe5B9vY933LGYdyzK3IBXABkiRJkjRJkiRJkiQu
xDM5ePrfs/f/vq9zc2dtOy8ittgvisjlbGHEbkFEWu5ORhzSxRE9HNPLCX2c
kuGMfs4Z4IJBLhniimGuGeGGUbKMccs4d0xwzyQPTPHINE/M8MwsL8zxyjxv
LPDOIh8s8ckyX6zwzSq//OT+at49cx/YQ4ec8W4kItrlNlppoZkmGmmgnjpq
qaGaFFVUUkE5ZZRSQjEqQ0VYd6gJ1ZHPeuL/Fn/W+Smh
         "]], Line3DBox[CompressedData["
1:eJwl0slLVWEYwOE3cyLMJCQiNGkVZP4DRvuoVdcG9dp0mzTLrMyheVKblmbr
oDYRETeTiozQkIgQM4mICGshEWF2CYkI64EWD7/vPZzzcc7HWZY6mGiaExED
3M6LWK1JOrjOA97wgwVurGAdDSSzI7p1aG7EjdyIW9YZnTH365A5x57l7vtk
XaV/tTQrYhU1tHGN+7zmO/M9X06VZydJ8IUNfGUj39jEFJuZppoMNfyklhmS
/KKO32zhD1uZZRuRH7Fds3SHZmtKc3Wn5usunae7tUD3aKHu1SKt14XaoMW6
Txdpoy7W/bpED2iJNmmZLmWN711BAVPOYJQ0PbRSTSUlDDjHWeeY0Ec5ERPW
Zc57uTltHjRPasZeN62bXe/SetaykkKmffYYffTSTi3rvddVPnOFCS7zkUt8
4CLv6eYdXbylk3EuMMZ5RjnHCGd5xRlecpoXnGKYkzznBIMc5xnHeEoHT2jn
MW08pJV+jtJHC2mOcI/D3OUQd2jO+/+//wNDU2ip
         "]], Line3DBox[CompressedData["
1:eJwl0ckqBWAUwPFzM1ySJEmShcextZC1ZHaveZ7ZmmfuNY8vwVPwBpIkSZIk
frL49T9ndb76ahrTdalERDRxn4yozYmoz424zY9oMWf02t5qbqOdDjrpIkWa
bnropY9+BhhkiGFGGGWMcSaYZIppZphljgY379yeN2f1xt78d8sbr6guiLjU
Kr3QSj3XCj3Tcj3VMj3RUj3WEj3SYj3UIj3QQt3XpGY1TzOao3ua0F39YYdv
tvlii082+WCDd9Z5Y41XVnlhhWeWeWKJRxZ5YCH5/xe/xYw41g==
         "]]}},
      VertexNormals->CompressedData["
1:eJzsvGk4V1/0B0qJzJRIRYiMKSVp8N1UhshQQqbQaEiKFIWIJvOYIY0qRUgk
Q313gwyFBnMh8xxSUQr3rHPOr/993Htf3ufeF39vvo/Pc5611/A5e6+199pH
cq/bzgOzWFhYls5lYZnN8v/0N4L+F/9f/H/x/8X/F///Fm8wGeYc7XVjSGYK
NU9PD6NQwd9TginrkJEF7+oQfxOmLo0bFduPA94z64FJ8aljTD4ar+0IZptH
4BKHBM0Lm7YyJzIovHj/GkHAoxiPS6MLjzLY6OfFNwrPBbzYpX275CZ7hhaN
V7Du/wXyM9wTOtxVHJmqNB6yeHACcHOVBjaGiwtzipa/QmUZD8hR7dFoWM1i
y/hL474XM/kBV9c4/uiq9VHGYlpOROg0C4mbPbeWO8lgbqPxMJkvYyC/8UZW
EfuyY0xhGhd8M2sWPG8nGMLJcDH4N66W7CoB0i6n1MHHEYcZc+jnD4hc4QT8
0oJ9XnUhrow1NM7R0vsb5L/1cSbsOMRUo3Hq/3VoH+fWr4Qc5mwaX563hAvk
WJPjWjP+0OMietyprwKpZtVujAX08zEc7LP/xy5lxky7LHPjCsGuRTRe9dWX
9MP3zicqEil2zJl+W9wa+2lFritjksaVaD9P+3Nr3lznwlCh5Vyi41Lgaxv0
YWQvE/1nFx1HMaX2DEJPJjuNL6XjLj3Xdu/Del3GTJ7QvGLM5NWig4ds5E4a
MWbykOYtcyZvzdkjg05WRDBEEgw8AT+8XCf5d5guUn4/wKy47sa0TKLwyjaj
M4BPbW5f5oGimMOXKTwu/XI24Cv7lNI36xxklsZReGb4zg7AI8VUeMK3RDLM
6OePLzj6AnBD1tU8pecDGLWJFG7aveMc4FaOf/d3NF9i8tF4vkNyOODrVLY/
e70zhMlJy8n+FlYFOCv3Ph/c4seoocd97/65mdTH98uQ3cNIRko8hcd3D6YA
fm8w/N3vYnPmadouh+XpvoCPxfiFVjhEMdfRz197xpEO+ByfykLNNSeY72n5
z1niWwG/nprSVm8UweCn9WmoFS4HfJOOzKXfYRcYzrT+1P+6KPgqy+4NyUHM
EBrfReNGuc7oYnsYU5GW82wwuAxw87/3bYX8jjPq6HFf0+Oe3RnuUzQ/irGF
1jOV1vMuZRdjpl02onlfCT8w8+jnFytuuwV4jMSioiQ1P2Y9Lf8j7bfgUg2V
M50hDFZan3Taz3RcGDPjIlGg9OTj7wDmRxrfQceRjjtzZtxPj65xWHnxAKOM
HjeL5smyieMlCi5RjD76+SiaV+Zs6zXbJ48wZvIwJPZqeOndCOYimrduNG/D
rX188ckshoQAd+Mkgf+5fOTPqJcFqnMvuREVGMG0WEPh72P9ggH38Xb/e2Zt
NtPpLxeJNx+0N/9O4D/94zs2C59j6g5QeP30HuEfBO6c/0c+XPkh4+h3Cs+9
wRoDzzu9XnN16a2bDGNFSn7shNBNkO/Vajy7LO8+87Y4hXstNCkDvOm0qW39
0XSm2BAl5w+raDnIKeObOm2UeI1xlB635Pm32TDugrNiuqduPmT8nkvJMfkU
vhCer3vu65xQcZypvJbCuwVkzoH8pcuZvCMi2cxdsyhc/sbJdfB8uIZhUU5D
LFONlq+4rJYf5HPPjTK9JpXJcBihcNVnl7Lg+e0cPs/OpNxheMlQcozWnM0B
+eNMpQv7WO8yj9F4cdOOR4AvNJX/Zu+byeSi5fx8SslxWVhSSIzLMKXHHRjf
RI4rTunJmKknz2L+3deZnowVtF1dtF0nZgdHFVx8yBTgpPB7c2RF/09+Y870
G+1nxkw/03FhzIzLy8Ubpt7E3GSa03FMouNIx505M+5LR9q3X9U+x9Cmx62j
efKXv7aXd1U2w5PmVRfNq9xvDXc7V0cwrGkeVtM83Ohzddev/VnMNTRvOeMp
3u51W/u8Y8M7xnm7cx7jBL5qEWf/xL5DSLTtYnL/rCxmZfgFEr/J9VXmN+C3
f55qXPCBeVs+iMTjGteY/CXwPXO2atQP3GaKLgkk8YsDozrTBH7m7kCXk/B7
RkkShUebj2hOErhe9yyHIP8XjNl8lHyhj30BIH+Bxo/q9jPlzGCd8yRu260s
Bvoc//RFVF71LVNOj5KzzPGr8BSBF5yzM2fsYjI+i1P4E6G2ScDF5Wc1cPq+
ZywYpvSsDDlr+4fACxOL5YzGYpmT96hxP+caC8G4HK1j66Um3jPPnqee75dV
rYPnZcdmcYmU5DLPLabkv9NYowR2WVanyz/mqGIEu1D4+68qWWCXXKCe+ijz
NaPlIaX/F1W7MpB/uqwDcOZ+GvdQZy8H3Mt8OGyHeBVzrTMlp36QkqN7ZXvH
x4hcRjw97oLNn8hxQ1N9QU/GH1rP9dJhtaCn2tIkv1mFsQyO+5Rd7bRdezpP
gh+YSUPU8ycj5PfA8xf9eV9XbWMyZy+l5NfQfiubdaU0U/0to1+XwscOUX4u
0vcwag0sZ1jQcVlHx6Wy+dXhUZ8XTEk6jop0HN9uK7biWPieGUXH/TAd99tZ
HkZus+8wuGie+NI8oXnFmMkr+aZB9XGeLMYrmodJNA/H3yfJqqm9Y76jeXuQ
5u3v3UpTbCzDjJ9JCtwtBK723aeXzfgkstKQ1Il6X8UsETYk8ZV1Qb2TRifR
0nWbjluMjzBH40RIfFegqjMX8fxmfZ9zm6uLmZu62El8+U4FJWEC7+ZjrdEa
HWZkvOQj8UAJDRk+Aj+9mmXPXLs2hpSCNolfEZ0wnSbk7yo90S5t1scMalMn
8cJb/vmsxPNEjpaiwDbA9MjiJHGx5RvcBQm8R1c06KtoC0ODn4PE/R9OcC8g
8CM8bawP7EYYDx8tI/HxpScy2Qk8as+jFUfzcpnnnxuR+F+99Gtgl2e6k9Pd
5hGm3jYxEncr+nthLvG8JNO+46hvDXPvIGXXV44aJsgXahM0N6r7yvCq5CZx
w8E5TfwEvtDLov3N9S5GhiMicY8AFmeW/8GZM3GG66AFIYepVU7JYbvt1Qxy
ml3eWqwJqmEYDVDjStPjzkEbXT63jDCe6lB6xhVQetJ2MWbapXfS1rZnzwjT
No/yw8fXTzPAD3HVzrcklrYw2fgov13JovxG+5kx088sJtI2y8z7GEWtVFxk
6bhYWhsw39m3MRXkqTh2L6Ti+FvgQ13z92Gm4Asq7hZLqbiXH+JPmd9UzGjt
pOzq2EHxhOYVYyavDDy/2QlUVTGGaB5up3lovVFUMYllmHmA5m3lKMXbcc/c
Mc8yPnSZTUbSm8B5U/wffVl/AUWNBRo/TBxiFvZsXQb41ig71mICr/4t7z2r
UQBfrvq1FPAtHgIBPwl86HL4QdHcTiaX1zdxwOWP93BJb7iANJQFdlkX8KOn
T1zJ50Xv3dRiI/Be5dUf5TRZkf5oqRQp/43NtXJCzgIPodWxcpz4khg7iY8q
MYWrCdzhykajX9VceF+SGCnHZ4O1qSAhZ4OU5rykrkmG8skf5Li/1gmELSXw
Dk03KdHNAmjdxBMJwJfY7i3oJuQ8GQsWbI6sYU6x2JF2RYyubH1J4Ad615vc
wQKYPXcn+fzOmm6eIQJP3L9ccaXVD2aHyCgpf6J/sbkUId/Ay9tj6CovCp9m
kPo8aCzi5ybw02fKC7uPz0GsVq6k/rMbxfsrCTlLT+r+rDw5B+9ToXCxXcMk
HjH4N9vsOi82aaPkxNuHCoAcwx/3rcNsfzB28FPjvuykxi3wlzDbjQVQeCml
531dYVLPJNXeZUvDahjxrJRd07RdNprNkoQfcMbsfPL51PKofPDDcvP5W390
TjITvCm/Fayn/Eb7Gc30Mx0XNDMub+66BTtosmKHESqObWVUHPcfuL/tZwE/
Xp1JxX3FTSruy/eXjdvmdDKCaJ6cpXnSbmAyMNgggFw+ULza6UnxatFKBsux
hCHGQC/FQ6loioc0b/FM3lpIjOcpRSqjG82Nh3snh5HIAZRQtiwesbQYnHB3
4MOJ7VbhgO/rf8VnTeA+5axHlhSuwvWctlaAHwg2qBOXjkeSqhYmY2FsODdA
Wh/wE/5j43UEXnVZP/HMmZXob/zbHYDnRu5cbUngyq/nb6uRkERGK+6dB5xb
KHTzMUL+nEdrtC9NyGH17fmnAJcRuJR7mcDLeyXSym8p4DMSTdsBt161pj+U
kFPvxJKhmimG5naakuP2TrOsfk3gTa0fXu6XXoXmL1p2EHDNoma7TpAvdkva
0OUHU7pqLAJw0eahWHMCzzq5iLfsxiq8YbzbDvDrahaWrIQcN4ZGgPQ6Ifz5
xApSvmbhkQ3vCfxV4pI7Kx1XoNTl/UaAK25/KnmcwKsPFTeXbpdBYk5CAYBP
avqjs4T82ujeJgLHhrEU/uRYFAPwOTvfL73kuALfme4j5QyuqJQAOa7UuGjm
uPfrjvAQeiIXqR5ST1Fbx92gJ7vdhr9uTj8YXR8pu4JbKbs61CfGjkqvwlvq
pEg/3PSvsAc/0H7DM/1m9K004vMtBZQkSPk5VobyMx0XNDMusxvvyZVISOJm
VSqOgaJUHD+v3KaQeGYlrvGj4n7Wj4o7j2lZtmk4G/rpS/HkuS/Fk+uBFQqy
havQge82JK/kT1G8unshe32SAx9itFI8zOqleEjzFs/kbZHN6ESdqRFyXnBz
ds74MEoJjhbCnKlIu9ebK0lGGbPycs9/TOCS98Lr+eamotrqDgWxRBPMdjiu
NZvAt8s8vTqfOxWpjam17D8gjWs+bmx7SOB6r+s3DfCmIvPOYTs7LWPEXJJj
Cc9fuiWxfIJ4no1zNsuvKU20TrQ5MZfAO7InXQ8S8tuXXPPRKtfDP2zHmkEf
he0y8hME7svH4qlwRB/PPsPOA3KWJ8b5lvCkooHJvuhYDw3UuFO2E8aViNQd
u02M2xhy4EUEmwmyGBtKfETg8VLpWIkrFY0+/mUdrCWE8fJDSmCX5be9MpMc
qei6DcezwTMm2OzAm3Xw/N6MLbLXiedDRotelvOpYhvPt6RdXcKhse8J+XzB
yfqeyoZovo6lEugTuut9+H5CH4ZWU8UvKW00niSwGex60Pj82H1Cf9V552r5
l2njslR+EvdQoPA3/hyfbiob4sin5qQcTf8qUs6XrG+MaT5VtH/4DeXPvBBy
3N9KSuM9Z0xQxqy3pJ4V4ltJPblNdmo2aAqhns2UXbfm7CPt4jifnh/KZoIH
wig/OLK9eg5+oP2GZ/rtdcXNPWuO6CNLTsrPxlspPyeU3g/XKNdDSeFUXNTd
qLiYsXL6/JjSxPzrqDjuL6Xi2FW9QsVGyxgfMaLiblNCxZ3mCZrJk2cbOQPE
E03QI0TxymoOxSu3N0usfWSU0YgcxUOtpxQPad7imbwNYFUILmI/glw3KtQo
fSHWI967LdNf8pDIvCr/qQZDvDXSjduQwFePO/gdaMxD6hnlYa1HjuLZ6bK8
iwn84WWn22pdeehYh3eet8pWrG3tdJybwH+4TITtG8lDbk3TcZXfjiBLebH3
8wh8U45dIe7NQ2bPxeQqqu2RUavNbW0CP6zzurDoUx76MKteVSvYEX8Zk1XY
QOCuQ1u0J5vykDBfsWaHgjNWXRMhyEfg1d0r2TsG8tBUThZ3tJwtUhpecAvG
1Y8czjEazkM3BzPvXX/ihoRO2dktJ/BP7r89M9ry0LoIoZQKXlX8YE5PvBGB
L7H+5CRB2PVK7rb3V7OjOEK40V6CwHe9nt/g2pGHDm+fzCr8bIo7Tqn6gnzl
+utBE4R89783yrZ2HkY73rVzCRB4b7PXgEN/HjpuIfh4y9f9KP/EMV1NAj/D
6Xbvxec8pKtd4bzt63783J/CI/8uSQXcjZKDZ8pJnZ1v9uKzKVqguY4cl8vR
MBDG/SG83GDQ7CiqfVJP6jnn5YFG0FPswe2+Z7yqyE2BsuuEJ2WX3YvfUtee
uOHhIEfSD62HrDzADx6Dw19D5Wyx+UIR0m+SB0dIvwWl2Nt0KjgT83A46edc
TcrP5iYeypuDHZG6OhWXtANUXCpHbDkqq+2xgwsVx5jRYjKOQ318rBXfjmCb
LHEy7jFv7cm4H3Hn/nhCZSuy8aJ40ulP8cR3EQ5tO3IU7b0pQ/Lq11JHklc0
D9FMHtK8xTN5u2JlyqtArzC032b/gqYzw8hstq3FW+8SJFDbPLzd0BWry9aw
lAYQdVafcmKTfQkyvuE+fUkiEvOGvNhZ6Uesa/7NyqlhJcha8NqJ1Pf7cFBS
fdMX32FklP0x7Gl+CbrTM6JUbxuOZh+70WZMPN9x/22R6pUSdOioxpaPQf4o
m2+vojkhf/bxIz0dB0oQ676hZ/HCF/G6AN4tqf7Eeid7//eBIyVIs7RlV1jG
JXzr+Yu7HISc5Xv1zQxSS1DpY6U1Zck+aFH0r5h2YlxB/Y/rLuWWoPhNio+4
JSPQvoCkZ96EXbVqbtsU/UvQIsu6Jb+yTPGK4NLkFmLc6+zrOBvtStDlp7pB
qnMj8VIbbndx4vktyke+1Z0vQVuf8uQH+HhgrVSvva2E/KNdN/ZJPylBHocK
Mv9YhqKlpfy5MoQ+vG8aR31vliCJsTCzluAg1Bpzx42NkG+mlvSO6VSCDBrd
R5qCg7DFiZskvlKQ8QHw7SiTZ9IyFA/m/M0BOb+EKkg5W6hx0cxxqwpkRtbM
jUSmSyk9DVVEv4Oeb16znf2RZYqGFpSRdjU7UXYtNpMb5ZKMwBuO5pN++O7y
SRf88EZhUVRpsg+Oq5gg/ebQVU36beTodCvhZ1RVW0j62cxRm/QzHRc0My7O
MjcfEnHES+L2kHGM++NCxtFGoG0PEXd88/xVMu4S0eVk3DUTdnbde78P8RbV
kTyZL0DxhOYVmsmraOuwi/qGrmhiRx3Jw/Meq0gevggM4Q7yCsPy2+xJ3v5c
ZEXy9qne+MPF7A+Q7dynfQ5SQyjTYNBbHtWiKy4idr+/h+A+p4XbeTWGEM+Z
ujcGgzWo3rZgyeermXjRvTvWZfOHUPbDlDtKgbWosECr5WHpWew99+0DLo4h
tLlwzh1jsTrk36rHK1P5AGXkX3Dn5h1CzNIufP9RLXIzcjuxw+86usLzEnWr
DaH8eVtU3vytQcX22zRuDN/Ft3kWJ+1bMYTmSmiYjC6sRcZzhkIrLe7hsxc2
yCpxDqFWUVHxsuZa9Dzs1zJj8SvI3HFvx0piXPbulO5m3jq0pLdTeiQ2Axlw
pC+eJzaEDgrvSHy7qxbVjjFWZpe5Y67VrEYWjCHkPP/+qz+9Nejv71k/ij0y
sZP0GpHlC4dQrI7xr5sutSh9+GPHj5PRWDHfq0aQkP+g9+KSoyJ1qEp484Wp
tjRkNe+xSxnXEDq9YdmxqbJapNt708Y2OgXlay4557F6CK1ofaN+lvMfjmfi
EWxbPhNy8Ntb7qScg7zfj4Ic7eMf/Ylxkfndl9UwbnxMgQSMi155DBF6ouje
flLPYsWDP0BPt1d17zPK3NHn9LmkXcmMTNKulqlsTcIPOAu1LwI/PL0tfRX8
EDr77nkj8Sv4fW4A6bfK9kLSb1GN29oIP6OrclPLwc+xy7+KgZ91zq6cR8QF
PdFQJ+MSd3EHGZd2c60tO/2u4yGXaDKOPpOSZBxXSR3rk658gOuX3CXjblzw
h4y731er5EelZ5F3RhHJkxUuE7eBJzSv0ExezV85VT/2PQR9rFxP8jAl8SvJ
Q00T3UGCt/j+r2CStxq55SRv7TdHbjjDKEO9b/aPSTX1ocjb6n+/NrShD3eu
KByRu48dDsUrtE31I1nJtBy0pA21J33VRT/K8Rv/7SrX9PvQPo2VH4bOtKM/
CcUlyobX8aLVB7TCPvYi3fMFkV2KncilYtesbJUyxM6h5mrN1Yfy9/B+7fzT
jkoOhSYrCD1FY9tK+bPz+5HrYdeHyZptaLvfd+G18sU498HYud/G/UgoRj6a
3b8Nnd7VcIt9dzEefX9z2druXmRgrFq5xb0DfczbkHQjKQ/h6gKVjupeVMQb
9uj4ZAdSOdYTnXCwHJUEsB2Sv9uHeDsf1ZbxtKNqwew1/iORWNTBpLuOdwDp
GSmdnL2gDd0KsQ/U+VWOraQCDdU8+9DNi8a+5VvbUUXTOdOYsky81frqWBVh
V/o6s9+SizoR6uGZkxNYgtQcpS8o/exFPodjJbzVO9D84h8bTc1eIEMhfEzu
Qj+quhPvxG3bhnT8CxCB4zTJpW6Ap/LvcQW8yjmRg5CDp67uPAdy0rxfSIEc
m68yFsS4qEA48weMO6CV8wfGjSwR9yH0RD47PpB6JqZcIPWs4gue9huJROXN
7qRdr4Q2k3alyGomEX7A1yu2HgA/dKVfqgc/9DG4VhF+w2zut1eD36Z+bMsB
v6kmv28k/IysTnZIgp9zH9e/BT9/iFYZUpUvRpGiOy5AXI5O8MdAXBzTNykr
Cj3FYyIifBDHAgfzLIjjyN72xocqZfih8KsjEHf2AxuGIO7PpbrzVAyvo1P7
6jSBJ/e8tUmerJpvZk7wCoUcebQKeNUbzHwPvJpcdGXVYbn7KOl9jyLw0MPq
TC7wUMSoaR/BW7x71YsfwNsfPCJ/gLfGTd5ZzzNaUa2956NIxmcUxZ+7ySO9
B/2MsF20neMtVjEJmLNybTdKci09VcjejR7YNzTI+33BK6MOxqefqUeXldRy
Nm7uQ2iTpJekTzYe8FstPr6xFt3Ub/6YuXgIMZbfbe+c24TefipJTF1Xh1Z9
TAycuNiPHizy3rJquBHd0FH78q2rHT3j9rrzbVc30nwreM8g9Qv2YvNUGb35
BcWxcmw619qNumTz+bJn12MJ9t9s/lG1yLfFZxlvwwB67bD4oqpOOerk9zDL
0KpFL+3d174I/IqMjeU1dJJbUdAip4H0rEZ0xtmugmV5L/LeMPBq4usjHLV4
cNvG5T3IT+Nx3I7xLhQYnR5tpd+Kd17/XJF6vAFd0GSbmpfZi6b7VRnFq19g
1jMx9fwatYQ+sr5/Wr8ijo2DDPv8RnRSN1y3oaYWVZ48LuOmMoBk2E3Vio81
o0XCYd/ziLjeD5ponB3TjfwslDYRON5xtnEEcLMPUp8Al2o5spWQg9PupuqA
nN7VZtIgxyVcw54YF2lkVdbBuI75Aj4wrkYJXzyhJ1oYmfga9JwvN/AX9HwU
bL3z99dH6Iyy43awy6BSIAHsSv64fR3hB/w02fM7+ME7fksV+KF/Wk2Y8Bs+
22tmCX5bnl+/Afzm8vclg/AzSl6zbeoM4WfLX58WgZ8tShwuE3FBHFbK6yAu
e54raEJcXhmKhxJxxAFV72ogjtJ1KxIhjqXPdmcQcccRl6pSIO5L/GMjIO4f
Vk+vXeaTjVZ/vLcYeGIotvUd8OScmQybgt8XdKt/fhjwalaC2D3g1T4PHl19
jrcoPf+wCPCw3zIsFHgY/3nWfYK32CHvQB7wVnChhCbwlq/qQybwOazA8AmB
442RrzcCrsNYJgJ8TuazmUvIwSmcy71AjitvSw3wmXfXYCoxLj5Tc+UhjGuq
yXkc+Mxisk+H0BNH5L1/C3q6p35pBj7/bNbMJuzC09mjZ8CuU3WLEfC59cST
TsIP+HD3/FvghxK+1hTgs53DYQbhN6zxZ0od/LbJooET+Pzy4DsRgs84ub5B
Avw8sHtTEPB5yc7HbkRcsOy8r6sgLr8DszcAn0dvD08QccQJC76VQxxfHGa+
BD7LKGw0IOKOrVfujoW4Zxh7RQGfu/cdqCd4gq8+X03yROxd8Ebg87SEwijB
K8z4dc4LeLW1V2Uj8HluZpwdwUOc7hcoSfLwVuIq4POctJ5fBG/x2Zbn9cBb
x7Zo4DneJ/yZxPM+1NcCfu5I6Drgc8QVr10gZ5nmFZLPge4xtsBn9R37v8G4
/FluJ2HcCB3Vy8DngoHeGtBT1P3hb9BT4JnyDuDzfI0nhmCXLM65DHbpNnKp
AZ9PP7k8CX647u9GvtcS4xbzgM/PFBI8wG8XnHaqgd8u8MWQfD4c7SUAfu63
sBMBPz/LHYwGPj++17sF4iIYPUbOM2vXLLkIfL7+bcsniGPa1sI4iCPrNt40
4HP6etYiiPuBVQkhEHc/tR4V4PPWlMYtwBPGpXVlwJO0pQUswGeFipNXgVes
tXvuAK9kvbW2AJ+XzjZcBDzcc+LbJeAhx6+oe8Dnu+5LioC3jANCCHjbrlqg
DvlG+W/0m5i38b1VGr9g3j4Z3SwL+UZRUhnM87joVkU2zPMZQ/zakG/ME5pY
TawLOH6b9DtYFwy70osg39hmrK5LrCM4qSf6EqwjH1MiJoh1B9n/UnYj1h3c
WiI4AOvO1cM/7kK+8dP5HuQb+IevJZlvGNH5Rg6Vb+AFdL5xrPjMA8g3JK6F
wDqIVzxmvIN10FB6OBbyDUvz6LXEuonzNFoyYN28Q62z6Bq1zuIeep29uahB
BfKNnve+PcS6jK9ZG3vCuhzI2nwc8o2r/kuNiHUcRzMxuY6nFWlvh3zDvPP0
BLHu4xXLEn/Auv+RyhPQXypPwA/oPGFpTrMo5BuOsfnuRF6B9X9scIa8IrCZ
XR7yjfTKEA/AJReyOwJuIJ7w8xGRb7Qxf5JyGhehZSBHfMpsOJrIN1aceUGO
2+3/gRy3ZHGGL+Qb+/qfm4Cexm3bvUFPpkj2JOQb8YY3SLtEpQ6Qdi3L8I6H
fOOhQM1B8MOCykgy7/J9wFSAfOP6Dx818Ntv6SuZ4Ddr5rImyDdGSudKgJ9P
XhaoAj/LGOgNQL6xqsEJ8g0c4iZB5hvVGUfXQL7heY8D8g3s67ydzDdCLijW
Q76x4GDwUYj7ASXRQYg755HKdMg30vzv6wBP/n4SJ3kycfCkKeQb1az2JK+W
xOdUAa9W261eC/lG9TKhFcDD4eJrj4CHVxnLrCHfMDFqHwfe/mkyGAfeDiRZ
50I9aBZ/qJ/Iq3H5Et4TkFfXfBYwgXpwehe3EZGHY78d8RjycJE6Gy6oB9ua
X9sQeTue2vf8OuTtS0+q1EM96GZtmknk+Rgfyk2GPJ+Vb3KaqAsQu+W+40Rd
gA+daHtM1gU+312hHnwcjzWJOgL7vLiiCHUE/yy2tVAP/nnmeYWoO3COz009
qDsenZ0VD/Wg5FoTOaJOwb/Pj4lAnZJ5pkIU6sF9YX2dRF2DrZftaYG6Jnzy
IDvUg81OVUuIOghf/hgaA3UQ/0DtcqgHb4ReNybqJrx01/ZCqJv6ZB8MQD14
/43OQqLOwnbXjo1CncVaI9wO9WBQ9ieoB7F8puciqMvUnpWdgXpQ51PNYaKO
w7mPhFygjlN91ZUJ9aDzGi2o+zBrQrEa1H0iAUssoR501CslcfU/rGsBT/uh
7wv1YFypqivIKf3E7wRy7CWvnYZ6cG90Lznu3M4z5LinlhmWQT1oHHGQ1JNl
40VST8UC1zKoB4+xp5J27Tizg7Rr7wcRTqgHu6o8SD/Mu+gbB354/NPbB+rB
5sa5XeA3KQlP0m9h9c/zoR5U4Fcn/ewx2kn6+aNy6J/rRD04Py2ZjMurR0/J
uBQEvd4A9SDHeAQZR/TgFBnHs50ivVAPVl45ScbdQ2SEjPvGNP04qAePsGwl
eZK28D7Jk03qWuJQD/7syyF59SE0h+TVvRvjZVAP9uYrkTwUOpxJ8nCJRUEL
1IPioVtJ3nof+uEJvP30a0EB7NfNbXwO+x44/5uJMex7FHGd7YH9OqfCJayl
AcPYNb8iGvZJ+MJSf8N+3Y/FS00r/YZxp+er5bCvUnnc3Q326+YEqzV/8R3G
c6sTz8E+zArd9nOwX5eDf8G+DT77PiUH9m0+sqh7wn5dzdr7sM+D2xhz22Cf
Z8GyDyOwX1f43Av2hXBr/NwR2Bcqq3y+DfbrhlevSeUg5FheO20A+0i+3DVy
sF8ncsQitp0Yl88zeSXsOx1RWqoH+3W1PJOwT4XbivZqwT7VpLKzEOzX1Rqq
Xm0hxv0ec3u6wa4Ehb5vXwP7daVvjsE+GHa+aNcH+2AegizZsF+XH1EP+2Z4
n7KTNeyb9UWG6kxYhiIrtQDYr8NvduN+2GfTS80yhv06npwh2JfDZovWlMO+
HPv7Fd2wX9d5WPIo4KtucJYAXvMqXo+Qg2UsjpBy+CfsB0HOaan4LNivmxXS
T4674mixJYy7P4TRB/t1c6ZPkXreEDtI6ql+NcEb9uviGim7VMYpu2rS4rYT
fsB+PfWkH8JDk7eCHwr9X5yH/broe5ak32wFrpF+C5D6EAH7dUHPVpJ+Pirp
TfrZfjgxB/br7l0+TcalJJmLjMvWz33psF/H6Z1KxjFtFgcZx/afrFKwX+cd
O0XGnZPlHhn3FX+Wt8B+XXjaWpInFSoUT2heoZm8GopS8Yf9OqUucZKHxzdX
kTwUWcbVTPAWO79jkry96GtM8lYx5YwnnKdcCbCAfWlslNlTBfvSCWVTrnCe
MrspAfax8ebCP26wj/1w7RnFtiNH8bS/Bex749O3dsbAvnfPp84UOE8JkrwL
++T4QHiLF+yTv76R7g/nKbm39WFfHe8wjUuDffUFWt7icJ6S5nkW9uGx3M0H
GbAPX3ZLfsnmYEfcL78b9u3x02vrVWHf/rzBuhVwnpJ5/jns82OFv/w/2wfy
0Lnvn0ei5GyR+qOdcC6ARR7WXoNzgU1qHFFwnmIWEwnnCHgyv3c/nCPcXjod
Decp56IWJxgRePraCxZw7vDO8LgrnKcEbeJykCDwV8dYSuGcgqvp8zU4T7nv
4QrnGjj9cN1RONe4ceeRLOo8jEzbl3ALEHhfPm8jnIPc+eB9B85T0mxuwbkJ
vrfgUDycm3i+T7KF85Sm1iQSL3mbkwB4cYK1PCGHmL9ESTnyJXs+gRzcX6gN
5ymXDh8mx92eVUuO+11//xFCT/TgODup5+YckzLQ00IvohHOU3TzKLvmmFB2
1Wf/5IPzlBMC0aQfkt/0kX4QnffXIULOFlfqmJJ+m724jvQb7Wc008+TZmFS
WsGOKKqXiou/7AYyLjzHCiaJOOKnLFQcTQypONJxxzPjHnb4BIbzlEQGxZNd
KRRPaF6hmbyieYhm8nAjU7SjkP0IPsy1m+RtgEAvydsTsy4qNJoaIaPT2XBu
iM8GpUwyOVPRS6lrfYkyylh0mRicM+Ll2seZcM4YGbp8MZx3GyvfgXNJnLe1
/QKcS17b2fwGzrt/JhjAOSYWCfi1HM4xVRt559loGSOppldw7oldnFbww7nn
z02PR8anNJEs9yCck2IHU01LOCcV/KlwUqNcD2cZsLeAPvsuGs+Hc1X1tRlW
cN7dxSsC57D48J0bB+EcdpgZ4wnn3ent6+DcFpu1mXyBc9sD544/jWYzQbUh
k3DOi+ca9qfBOe+30E86cN6t6+EF58I4bbE9L5wLL/7M7O45Y4Kzwj7DOTJG
x00F4By5TeLeQzjvPnvsE2mX9e/iM3Du7Ca+2TNE2RBlRDjCOTW+u/7zSTin
LolXeNgmpY109CXhXBt/3DBoDefa6q+rC35JaeOHYUtJPGfWbFvAD1Ny8Ew5
j0T7FeG8+9hjatz02w/8YNxFlJ5opp6FraqKcN59JIKy6/tKyq4N5h7ZEWwm
eLP/NOmHSOuie+CHFv1LSsEeGvjMXHXSb1f/Un6j/Yxm+pmOC5oZFzf1osNw
3j0lR8WxzZGK4/PvUW57tYzxKy8q7qWSVNxpnqCZPKF5hWbySldGawOcd89F
FA91LCke0rzFM3l7SbY4EvqRIhZ+gb4OPHTF9DT0dbQpbTCDfqRDR+2gDwTv
3hf704rAzWvdraAf6daQA/SNYP+bm4qgb2TphOR66Ee6vFEe+kxwYXVNM/SZ
PE5f5QH9SEvuvYe+FPyKsUsY+lIC5zHXQj+SXfcD6GPBb8Nd5aCPhSV5cjn0
I5VbP4O+FxwRG5oAfS+nHWsvQj/SgHUb9MngEB/tSuiTsRM0CIZ+pCXlu8lx
WaNHhKGvJiTCIAv6kXrk5aAPB38KbN0CfThOxmLc0I90a+5f6NvB71axeUHf
zrZfO36V3liFLVYPQp8Pvv3FeRP0+RzKKXOEfiTZC6tJ+VZ6buLQF9Ttb+UP
/Uhz9w5DHxE2qqtigz4idXfWYuhHuuolCn1H+MtY4DLoO1LVbQYcuxpSuFSJ
uzTgD08nT110XIEdC4ZIObb2D9hBzkFqXDRzXP3ESdATSXNQei4vsNQAPZld
T9qhH2k/L2WXpipl19rry9uhH8lnE+WH1qRvm8EPtN/wTL/dtPI5Av1I7IaU
n4uPUX6m44JmxkVfzXQB9CMNfaXiuDmWimOdzEo26Ef6EU7FPVKJintSVnQS
9CPVr6N4wvaB4snAWQ0R6Eda1UDxaksUxSuN9OsLoR+J+wjFwxQHioc0b/FM
3sYU1ryDflENy+XQd4eLfinGQd/dl86C5dAvqmOsA316uJnLuf0VgZ9yENsL
/aK30QT09WHXmm0O0NfXZLFRH/pFxfvI/kY8ZSYxsGwDIccpVBb6RbeudiOf
32/AJQl9g3tPVhVBv6iDSTn0GeLtJev8oc8wf2uIAPSLip7jIHEzv7LxjwSe
7ntZDvpFB4WWknIWFbxaDX2MO89t703smmTkfftJjns/3Osw9D2uWPGKB/pF
KxwKoE8Sy546nAR9krZ7HX82RdYwWdztSbsYLU7Poa+y3L17PfSLXlm8i3y+
tnnk61cC//uNTQD6RQPOfCflL3KSWQd9m7HBP/ShX/TmUU1Sn8/TP4a5CHz2
lpFr0C+6MP8IqX9n+e+30Bea1tlbD/2ijrcoPFZSnsTLeA9fhH7RemtKTvEI
JceCLUgT+kWHTlDjtu2lxlWu34egXzRDhtJTuovSk8l8wwH9okm0XRm0XfeV
VMAPeLML5Ye87iuJ4IfemxKLoF9U6gflN5dIym+0n9FMP9NxQTPjknqH+zj0
i3oZUXHsK6bi+LdMWgz6RQvkqLif3ErF/azMic/QLxpP88TMnOIJ+4ctNdAv
emozxSufOopXnKWe9UcThhgnTSgeFnJTPKR5i2fytvtb3Ufo5+/6TfZF46DB
nlLoi3bfMnsJ9PMnepB91PiNxv0y6KNmeRBtC/38aSNk3zXWlJ5nAH3Xlbkm
ztDP36BB9ofj3pUveKFPe+Xv3anQz58syU/ik9OpbNDX7atSoQP9/PVBZB84
lmmoV4U+8EzHG8+hn3/TpvUk3ma1JxH6xm8KXPeFfn4HPi4St/57ewf0mYvq
rLOAfn7/49S4So7r+4TgHsHiWYPpdiOMA7zSJN70xjQC+thZ1HbMh37+2SLG
lL0v/viDXZt32eyEfv7Fd8k+eczKLukIffLhGnal0M+vto2Sv0f51zXoe49d
vE4Z+vlXyvGQeJZfx1Pow3+wwvM19PPve0X27WNhjRZ96Nv/vK68GPr5/V9T
+Jp2aRKPouQwZ8q5Z3dqA/TzW22nxpXzPHcVxn0XrW4G/fwW1yk9hwpjnEDP
6bWkXYyZdp1/yqoH/fy/+Cg/sFTQfhAM8IR+fl0PSr7eIcpvtJ8ZM/189Or2
DdDPf2wjFRdDOi6iE0Kp0M/fFkjF0b2eiuOuouVp0M/PKkHF/eMUFfegHQ0X
oJ/fh+bJHZonNK8YM3ll3VO3Fvr5Mc3DLpqHL2e/mk5kGWaa0bxdTPO2ddI1
Au5bbTxF3lvBOUb+r+HeCp/R2GG4b0Xf38Eqetyz4J7LyTl79sB9Ky0d8l4M
7pjgk4d7MZPhl5fAfasqNfIeDXaa5ywF92gabd3fwn2r3jwK9/NyXwT3btiz
V2rDfSsVeUq+G0ehDcg3mJWbBvetVPaS93qwqvDuccAtdlsOyqm+ZRbvp+T4
B5YNg5zBZ7LL4b4V1wYKv6We3QD3g7pPvn0G9622cFF2oaKd6nDP6HGlNjvc
t5J4TY17rvPD118EvrOJXRzuW92+Rdl1xigvC56/VXmoV7gkl6m8jpKvZ2vD
DnYtkSueyOWoYjDOU/gD0fvBoM+NqkUL4L7V+QpK/7IDF2/9/h+cORNXsOrc
A/et+oIoOTkLKTnLkzqew32rNeoU/sHy8RwY14TSkzFTT6lQPxu4byVP2xVC
2yWzRosJ963KOSk/9DB/k37gNemOhftWKrTfmLTfDIZ5kuC+1QXaz6a0n32v
KMnAfaspB0p/PjouUWZjJnDfyoSO4zk6jsW79TThvtVjOu676bgL2d1cAfet
mDRP9tA8oXnFmMmruy36nHDfaoq6H4cVaB6yZX4aW6v2jhlE87aP5u1JHX8d
uA97R4S8V4gbRp0/wr3Co4FBB+E+rMFGCo/WXmQH+NwewWa4D6vFRuGtKFYR
7i2miCU/hfuwG6n7j7gtbaIf8F0xp3jgPuy2PxTe5LXWEfDIE2d84T4sD3XP
EVuytp0A+ZdellSX5t1nJiyncLOygWTA98gmKsB92HljlBypzNyrIOd48Jqt
cB9Wjx53R7xMI+Dp2nwKcB/Wj7ovicvXhgyDnFsbF2rDfdiBTRQusPCbFeCn
T8UMDYtkM5W4KPyqdzoPyGE9uykW7sPq0vL5Uxo6ADeI+LwY7sNa/KLwp04y
QYA/CjsdB/dhXVdQcrw6xC6C/PAMBXu4DytI4yf48kjcpiiqAO7Ddo1Tch7H
PiPlSKS+gnEZivS4hlVHOwFfYDBrmNCTIUjr+f72Fl7A2w+PrYL7sP20Xfy0
XW0n9nvAfdg+2g+hX6yGRv/Hb8yZfqP9zJjpZzoujJlxmRN1vQXuw86n42hH
x5GOO3Nm3L/PipSB+7Ab6HFbaZ7YuviVw31YI5pX/TSv/sooucJ92B00Dy/T
PPys9lIM7sPm07ztpnm7e+8SbfhegRZ1HxwLV2u7wr1v6ZKrvvC9gvhkCj9d
nWYE+FrfrbPgewU81P10vEEhMxBwfVU1P/hewS/qXjyev6Mkh7y/L/RsIGxL
JOMMda8cX3rhFg34u7eOvSXnAxg8tHy+F+vNAC/c+XoVfK+AcYXC3WUE7AD3
1eO+CN8rkKXldLnduQF4n7e6JnyvYIQet3RkNAtwM96KCvheQSOtZ83zGg/A
h5UFb8L3CrLpcTewxhgCbiLu6ATfK3Ckn+/xP30a8HTmxQj4XsFXWn6GX+Yj
wJdkKaTA9wrW0/q8CxBOAnz1d2kr+F5BLK0/9b8uatvVqgzfK8ilcX0ab32s
OAe+V6BHy5nrcouUE2pYsBa+V/CNHjebHlfSY4EVfK/Ag9ZziNZT8UgC2MVI
o+2y6xcn47WL8gNzph+Mddb5w/cKvtPyy2m/jTe2Tvh1hjDEaX1aaD/TcWHM
jEtQslc0fK9gLj0uNx1HOu7MmXHXHXq6Fr5XMJMnOdMBt+F7Bey0nmtpXt0z
X88C3yuYyUMdaU9j+F7BVpq3C2neGqRcePWt141RRH2XAzut/vgGvsvxfnSK
F74n00rjXEFFrwAX7jqlAN+TuUvju1O63gOuXsUpB9+TiaPxHed4mgHnrghM
ge/JXKFxk8TRGsBfRS5WgO/J1NI4y/SL14CHu7/Ogu/JvKHxvIX6ZYB/uzRc
puHiwrxM42Ejvg2AKx5rTYDvyfw37ntdzibARSVmh8P3ZB7T+G0+iwrAYx7U
icL3ZGba1aiSfBm+u5JB47ZyX6oA7+flqdRwMWAm0PhHWn7PhFcWfE/mP7t2
CP2uA3z5uZp18D2Z//TPv7qlBPCn5O8h5nsaf0rjgtZNmfA9mWQaj/I8Scrp
Jse1/r/Y1TTUYA/fk8mi8T20npRdyoyZdrUaSMeBXTk0vjejgfTD1hfxg0tT
7JixNP6Olv9KITMRvifz37ihtJ+bJJhz4HsypTSeS8clvPqNNXxPZmYct67n
cILvyVyj8Z103DUFXq6A78nM5AnNK8ZMXlF2Gf1f7KJ5y5zJ2/+/fa/pf/H/
xf8X/1/8f3EK983hWjZ+tBa1OanKSK/sQsUeqz/aH+9Cs8ZOm7F9qkWrQxdv
aM3pRLsOKD9w+dCFBHpEZdYv+YDu3Zo3f87PbqS679EOlsud6JBftCB/ZS06
JS433K7fiZq2uu/aq9aNuDeikM8LqlFjYW2Rjnk3Ukm4YyNZ24lYxc9lEDge
nvz9jMDxp/X+OwH/e1+HnZCDDc0jvxNysJGUiinI2b/QQ5UYFxdylcG4WCrl
iSGMOzlvvimhJ+720NUg9MSTx0vug56S8lGyhF24bsxKlrALKzh+qwK7/t/2
51fzuAXTYmlITyNuk3TDIEpnd9dffe4zmueavfrgyifYd3HEZd/UQaR+kXu9
TNdnxKvnlQN+UHbUeAL+0fa32Q1+aPT8Kf32+GN8OntCNF51EEnqurD14Wb0
4Fr17Z19VfhAbFTNRY0O5HbQo7XArhftLU0cGtfPQFbfs2XtVw2ilBahzZGC
LeiKaWR036zXKMh5UvKDTAdaXTlhum9hH4pzqWCGdkVh886jHdl9g+hstFWO
6qHP6K3ICu1OzYc48mfSiZfNvYjTaLjtM2cn+mhjm7f+y1MsMvj46YD9ILIf
/xr7N6MJpdQ+mAvx2uLMGIG4y3TdMoN4xU1/1L+lloSdVW/kBq0cRFpfAsO1
N7egFIU5gjvLH2H2jXuSOSQ7UAXj/dGrIX1IIplhIKJRiBwY4kss0SDSb2V5
zWPZjHIaKp4vXVKN3uj6s3qf7kB24mv0moJ60COV4ppVOrlY0U3wb1zBIOJ6
w5/axvyMukwlNwBP+pyu8AE/bdOMdgJPHN/cf2+/NB/n9lis/qk+iL49c9nm
H96MNFKyViw7/gEb7OVUdzPvQPVL/b6U/uhBPbU/5tx2v4OSbZrPFhD6f/N7
Yeeq3IIyuPr3JmAmenTv2iplqQ505NbOZ6ts+lDiyipV730bGa4dUjfHBgbp
/z//xxP/qCO+w3fHe9HGRu8ydrZOtF0qJFLf9SmW4wnQjj86iJK/az+sPNGE
WC8ZWgGfj5kGrIf37lhzSDrwWVtFzSLF/Q7+nrs1EPR5JbvKHvS5FaxtR+iD
e9yzVUGfbSE7CkGfQ5S9aKa9ITaH1Al7kaXUgnVgb/8l4xawV23+W4sjXx5i
XjG59UveDKK2nr4rRdc+IwmltCI3xUrcXJqkOyuqB+l1bJ/qduhE8ySXSRLx
wtfcE8l4qbT5k/EKGvK/T8QLzzlSPRviVRDLagDxepHkczJFLQm5DTuRfLBM
3kbyoX+fbxXBB+T9YecV4EO7lIsb8KFZ8UwRwTc0oXeH5NsC2WaSb8WjTYl1
c98gDjGVx/x2fajgo14k5952VCC8Cv/aWYQ7+aqlfgYMorwrHzIPbW5CiutH
5WEeaLphIQ3zm0zjzg8wD+Rzl2gS7wsej2XIwftS15pGvi/He4fYiPcF6x2I
lIH3xevv/d3wvvAev3GKeB8RC1OZfB8l5GNnw/to53JT0rSvChn+fPEO3sc6
BetP8D763pzHxSKehp/2tG6EeUD11+ttMA8Ytg+bjfKX4gpHfs0S8V4Usabx
/pL1nei5s3PcN/5S9LH9vQ7g7xmBWYAb7T59GUnn49tFMZtXMHuRyoF8TRlB
Auc9uzJsZzequzK39s5Xcyb1242SS94KV/PWohs8No7iHl3o05Vt19W2daEH
hfs+jFp34SFTL8+5NbpM6rcHuUzdLRDWuo+l7r443yHRgey/3O9oTOpDA4Jf
pM9rNuD/+DvOLX6B7+pXdFT9nIR5ZTViHTNy0I/pQMl7hp8rbO9BY60fQkr3
vP/Hd/mbSZGnh4fQ5PpQPw7GG1RQ5cR64lMPynv485bQ9k7kfvsiV55WJ9Ln
cNz1+LU6k/rtRdMZ5hsfKHzEl7mkXtre6UbpRsMJa3M7kdragwtWJHTjDp5e
NSsnd+bBjN3RPPe7kes9qyPvHrf/03Ph2kNmb3/2obAHqo+2MF4ikcCivqhl
Hag4dkVVyqY+tHaRYlfsxmf/nq89y7PN+c0wumXW9cQnvOWf/psj7bgmxQZR
guiNQIL/SOzBAn3gvxyLO0sPwX/Ou+xnCyxv4L3M3SslvvUixct3xX3mdKK4
26LzU4S60VV19Z+/9uxg+hjc+GYg34PW3E4O+vuyC0+eimIROqHLpH57kLXE
8+GzdfnYdl6T/SGC/zwheiM3T/Shs5oXFqbEf/6n5xeTWXnhXwaReMp+i1Om
H1FyyJODeoc6UL5z9ZW1z3rQDrOX++yHSv/pvyJ+vlyY2zA6Fr556aeQjn/4
C4t6YQXzPuQX/k2xveYdljzfdJh9aw8quyd6PuxUJ6qSKN6a6t2O//sttJDT
JX7/k4Nnyjnlx3IusC4f/Sl4ZA367xto/wb6f9v6eh2hz7/n+/cqKoA+s3Zp
riTs+qePZ2TsQ7CrWCHTIN/yBqo4/24V+PPHsg9i4M+6DS8uEH5DoStSJ+cT
fqN+e1DOsTkChJ9xeLnLOPjZ8UnED/Azh2OAMxF3nF+uPwBxt5u36T3EncdT
KYaI7z99FB9aCkF8D99d79Hj9x7ZNibeva5H+H/j4DoxxV6UdnCZwOWNz/7p
efPT863Ak8JryX4E3/7hZyOztgHfDOdP/m7XfIi4v6V6wbrZZnO5A9bN+5LM
MYL/OPLmtb+eBP8TT7ZdA/6fePxamOAzstj2di3wuW31RCTwuXbu0z+PtTpx
JcdZe3gvqN9eJMx03i+qdR/pF/udg/c0K/13G7yn0qICUsR798+uncYJ1+C9
O5dXqX0+uRbxMFU5ncQ6kdMufM/ahRgPtwQS7/U//d+2pXnAe20y6/xzDel8
VLysWwfmmbS89Vthnjnff7KFmDeQhRB2gnmD+iX4srNNlphn8Ild6CDMM/PY
VK7CPCO4eUqOmJfwUTP7zzAvUb/dSD0gSywurBvv2WMYc93bkTlLsSk/Pqcb
KWWyRMG8h+7P1iPmPfzhy4FMmPfCuHPXXY3qRJ+72IPPBaozqd9edGVug2nx
ylZsr611rtGuBecJZfmy8/Ygd2S5/OOdnH9+WDzCalHXM4z8E7fdhHzpYLRn
AzE/42dT95phfj5etT1upPvLPz889BBZnPNsANkY7I6AfIlTbZ4UMf9jHT7h
XTD/PzKLYfxe242kLq33YNHdwQx0GB8y4+xBc/ZbSUL+/CJdUg7yzPN3C9/B
+sI5n/vi5uguHJBdmqVcqMU0j7fr773Vg75Wr90M+dUYb5w3wRNcv163BXiy
7FfBJo1fjf/zvqgILtiCvqJFrZlbL3O34s4rojdWj9Zj3SD+iy/GepHS/k82
UY4V//R/42Yil71meGZ+hf/Lr74NznsKedSJbM85xLqMrzu3acO67LBt/cuz
17qx+a8sYcXzZ5mGw4ENBbe60UFGfwDMe2fkNQ2IeQ//5NachnV/2fWjA2EP
W3BzwmF284BW7Pr93J/6J93IIaS1+rbpq3/6s+QPFAjdGkYiBnmKkF8NZdVt
JPINfOJsWRPkGycuhOv2izf/09+p/bLUZ79BFMy1exfkVz4f+jSJfAZ/0jbK
hnxmV26Utd1QF8pJSdf7KmHIfGV86UawYQ86E6S7C+oUHv/sjZD/y7lOpEG+
tOTvWyvieeynEbsNnj+wf8tNeP6/8TLneI0Q+Rhu2aJVCvkYW8LCzYQ+//Me
cf5dBvq4KvnJ1Z5qxWVRt79fntuIo89vzz7s2Itix+9z3jF99U9ezdfmJ2Bv
VPBfC8jHtnPUbwL9WWyNc0H/NetfaUDe5TDrihr44Scjvxn84K+UAP5Hg3Z7
Sf83iMmQ/sdpDWSddTNYWgjqnTF9SxPIY9tcXj+BfOxxaZYOxOX188dkXGyd
/RsiHSv+6T/Hu2El8GFWum0q5GPTeec5IO6PeezJ/Hl3wuUTBN/+6Z88e/1c
4NuMfAz/l48Z7mqLIPiMDp1wTgM+t1xV7wA+J77Zzwt1n3ZO9ijUa61HNHZC
/i+71nw98b7gil2zT8L7InCM7Qe8L+nv5ozDPHmU89Zp4H+G3tAX4H9mykEL
4n38p7/Dug4leB85wrvPZWa0Yvn3JRceuXzCP0Pb+H5196CHEwzxmjs5//Q/
ki+3E973Gfkb/i9/0z+0YzHkaU07XlTDPLDMLace5gEjwScSxLyEOLP4ImFe
8slofAzzUl1Y9TmoWzXrzr6E+lS/vdAc6rJx00XSxLyEo5d6J8G8RP32olcX
kiwgryuO4taCeWwxV/g9mMfergiPgfztsUrCVmJexYcfbGPAvGq1MIYL6sS6
4H2IyA/xbbsGBuSH07/dhSB/W7pF34WYV3HQqv5kmFe5hfcqEfM5fq5uzU/M
5zhz3Oo+zOfV/A+eQv6m7XP7LLEu4IsPCrphXbBmqC2E+nFDyBtxIl/FlU+Z
o71Evup1w7kN6sSfl6wVibwXHzQLVYW8l0Xa/TTkaVUc6bOJPA1f9I+4AeuU
p690PJFXozhR8+VEXo1d9gimQF4tIa69nVg38blLFzOIdRPLf+FcD+tmt/N4
OtSJjw19MJG345UvEoMhb5db35MB+ZiAYd03Yl3Gn9vWl8G6nLxC4BjUiaKe
uvlEXYDH+Er8oS4ICbunAvVgm1blUqK+wAu3aOZDfTEj78L/5V0yb9msifoF
LXFl3UjULzhnXCgW6hfpXbmjkF9FNxbbEPkJfltu/B3yE+1U55dQD+peWbSO
qI+wPtv4OqiPZOcXzoK6z2KzSBBRZ+FFQmrWUGfNWx/NSeRL6GB+yzEiX8I2
VTgQ8iWdQ1JGRB2HRlP79Yg6Dhemlt6FOq78gqoi1IPGRY4pRD2Iqf8/owvW
TGsif8ODdyaOEvkb/rYiMRrytxl5FP4vj+p4bpUOdV/gkD6pT6CjK6mPdqlB
O9R3U6NX14L+5dfZNoH+wTsztkMedVOwhvSPeBznUvCPYC9/NlEvo8vS+lNE
vYwfLPS7DvXyox9rDkK+9DDmwHeIy3E7vTcQl7D915dBfbfddIz0v+CQM+l/
OxSwHuo4Md1lZLyy110n4yUokShK5O3oTa9SGZG340+ihYmQt4+sF82GOi4h
zYXkQ+fIRZIP795eIfOirLAXU0RehHv9HJKBbzEvzm8N6YpCfJtsurP7BnFy
2HQq7EtIXpT9a1ZZja/piB0g6g5sMHriNdQdVe/cDkFedDjJIQD4X+vF2QX8
F+u6vAbqu2jFXpLniRZSa4Hnq1OfHYQ67vFlfvK9GA/5/Q3eC7aGhGeQ/9Qk
9uvBe9o5+UYL3tPPrBa1B1Y+QYrz9l3xTR3E2pf5FGDfRu78RRnIf34Er3CC
97Qo4UMSvKftxuydCy4WotnvnMOFQwbx4jdterHyTShwr8A08b5jg7VZDHjf
lXcoke87y//t3/93+4FSi2MGQP+4zF2hhP5IZ1+XCeh/93VcTpnDa7x/O7uD
zpp+FCD5/MKnmDbEMyUQ4C38Ci/dL3D4eWsvyvHPtw8N60CyLrZdZeyFyFfO
8DhrbS+6HGbAvXegA+mff7zbuvUGtjjxV3Tl3AEkMdB4r1CkDe2K844h6np8
v8OTrOvzU0+Rdf1XGWZVtV4q/tjyQfP6x15k+EJlyk26E53W+3qFzaUU/ah3
iRme6kV8jcffuyzqQE1tltYr373EMbeybgge7keKA6zzn7m2obq7eUODPq+x
4H7dM78Ge1H6vtFjNWYdKODGrw533hz09lsk5+rqXiSepFwlwtv5b13JcEy7
/ZR/AL1rNYhaLNSGRr+YK2q+LMcXA5bNGwvtQ+y2Inamcu2os+NDMSEHa8bl
coOc0omptyDnwI8Ega8+r5HCZCc57vn8iiMwblDE4RSR0xh38R+Oq73Rj9Rj
xQ0mDdvQqfOyAYRdeMcqp1iwq+2k2gewS+mUVmqNXip64GhB+sF0b9Uk+CEh
3cPRoKsM+69S/nDjeR96nT7srTfahqQr3LcR/scOnZ88wf8rk4J5wP/RMsnv
iHihezZPnSBevLydeyBewnh4kfDFQjyXrzQE4h5y15KMux53TMbkqXzMFXGq
xKyqH7X3Ri8eVW1DbrWBzRYx9Yhjp4eSWXEHYrOKi3u8sRsd0xkwg/y8ZG/T
SSI/R+eupPhDfq547PJwaFAt5rm2b6Wbdy26dmmcUS83iK7FBvCLLa1E9aJ4
u5dOLfr1/Sf76LavaKBaIpxY91HFy5fexLqPvtnO5oV1X9wrbbI2+iWec17k
clFpN+rzyHiycLILpbDo6kCeHLNJNo7IkxHnhvuXIE/WLDltnzm7EL/rXiCw
dVMtOu7ne+fbrCF0/0/fV62vn1CYa7/1Z9Y6dDrwEvei5n5U0Fkc8evLZ1Sx
/fp4NW87uvh2ZQe3ezeybERDkPdmH9OaReS9KNYmaRLy3oZda68ccW7AeetW
KD/MqkURKrMKd54bQBauJ/Q1DV6je9+GjZ4wapHWRd8e67yvqMD+kSyRT6L3
W0TqiXwSHdeXK4B88mdfNvOZuwFTXthp1VedHlS8Kzxh/88u9JNrATyPTe02
N8HzXVtQPjxvdyxagpCPM05JmIB8zWOyfSDf5tpINqEPYql9qgD6JI3efgz6
6A5GthH6I6N2fTbQf9UCR5YGQv+I367phL34zj3dH2Cvcci2ZrBXU0/lHeEf
PG/CxAH8kyorOQ/882O9ilvW7EL0OqWUF/x5Vn/jLfCnk/fjHYT/kfq+wxHg
/xqOh4Hg/4dG96/WRL9EtY/tr0O8pjhvP4d4TQ+0nIe8Tu4Ejx/Et+RIpwDE
N7ZJaseSpZX44g3zXcCHugtOgsCHd8+tdMKCatFpVytp4E9gnd8q4I+99FYj
gm+o52SFD/DtQe/eIODbPPbGA7tj6rHdvIBFwE/FtgMBwM/f8cKNwNsNuidX
Ezj2v+UYBXhuvMUI8HOIxwD4iW/trCf5uWn7TU7g5yr5AUtCH7xn3jAb6DPq
KRcG/HyzxDcQ8lIJHxZu0N90dPNf4Kfl69IEwl7M6jSeC/bKZXjuAR62eBwV
I/yGN76RTQG/3SUqM+BhplMd+Bk/toniAj8vUvkTCjzsLzX8S8QFc+/d1gpx
OXn5bjzwbX3yJR0ivjjyxjQZ3zl6wdrAt7GNCScIPuDc1ddbgQ/PKhykgG/t
XvKjUL+MjFc+Bv6M+/x5Cnwr+ZmjQvANK8WvjAe+Be3WFwNebXgQ6Qxy1NRj
OkHO2xPB6cCrRu0LW2BcP07lRzDuuJBVM/BK4GoIF9SDx09uI9+LOX5/UoFX
xkX8v0H/v6NnP4H+j5LaK4BXMfO8D4G9fA7ugmBvmYSiK/CqepXUYvDPtstd
18E/x5eOmQCvCheNJkL9O8l9JwB4xV+ulQy8kvspcAv8PH/66zPwM2v5gBHw
p9jY1gHitXz1Sn6Il05SojbwJ3HKHfiDz/BeJ/njnfHdAPij+Hl3MOwnaNuE
BgB/LBYqOQB/3jqFSQBPHsVv9gWeVMgLvft7Kh8JyxeWEfMhLtrHJgbzIY9l
1DlYB2V2SjgT8yoesunbC/Oq5/a2IVgHrbt+nyTmYSwtdI4d5uGlb9YYE/M2
WsB2o5qYt7E//zUvmLdnvWgNhnVwatqxkFgHcfZdx2BYBwe4/EtgHfxUekuH
mP+xw0GBcZj/W84VhME6OFlmGU+sFxgrHqqA9WKuqZgjsb4gDS2Vy8T6grkL
r5Hry7vkkN+wDpboKgcR6xFOEmx1hvUoN1urGdbBV4+t+In1Cw9Gi5XC+iXz
4+UmYr1Db0odBYn1Dr9Ji94D691/62PYnvo7xPqI9aePRMD6+N86yKDWQVxG
r4NFPwM5YB18t3qNP4ybto/TDcZ9MGGlTqzX6Mpa09vEeo2TBxv5Yb1u2bDl
EqyDe2cFkXa1H71A2tWyZ/Z1WAdzd8iRfjjEkTEGfjgqvjUKzgVs1kuTfvs/
2vnyaCy/720qlJAmyRAic4YM0fCcMhaRoiIkFBqU0ogkZGwShTJEZSqZMmR4
TpmTlMxk5jEPCSVD772fHn3Wa62v9fmu9f7Wev/4/WXZa69zn/uca1/72vvc
50kuV6SumwVdCNvhlidIN+EuF6E38LEFm2NBbxRu/6UE+XFr3/ursC+uOhNM
sC/umdeo+XHj4SFr2MfQyzLmsI9fOjdeIvQPulPgcozQPzjw51aq/hnPDmaH
vLnJrfM26L1o9SNUvfff6i7ld6ZxDrXZWFDVd6rRqB+lFV2dUCn5ilIuK5iE
hPlh7zHTLc7S/SiDf5Prw11EffR4QudzfRq2MrvQ4aPYj1g6M3w+RjeihIss
3yLPxaK1u3qVJwj/J2K6ocsFmpBti1jd1axsPLAojd7Nph8Jdmv95L3/FV35
5d1box+BJ1fgrw8If7pMXOKh3IRUpI3Xxe94gwszokxat/Yj2Ye/JGUuNKLL
f/zRXP+iffLD30ezcJWyTivnVWKe5mkiMiZfkcmUCxcxH8zW57IF5sO7cYg6
Hx7FLfeJ+SPfVUXtMH9O8gLq/Bmynr2UW5mF1+vc3HZMtR8xH+sLVt/eiH6t
zmEKC/NDKdzi1HWoOPnrBqzD+vW90lAXJ8xULIU+p4jTixdQF6vfeqQJ9WlS
2ZY46OsGuVzZBvXpj6eVDa9fV6FCz1sf9wx1IMu4O74VEZ3IrbNsfXVrFd4w
M71+6bUOdCzN4QDdQgraxjtgDvVaom/Gcei3i9s9fgT12pKuUEHCH7lnmwqB
//LG3/rg7xnhV0+Mj98xpFLHj7+RQR1/Tv2CZuuXXbt+VTze/s/5xc/OydoP
Wr1I19BUPrC3HTmzGbWPLVUm//nbg9j7P/it2PBPH14KdU9LPOtBUpl5gYT9
b1y+97CfALtcXL4EMQ7+8UOqF8b587cHjU27DRHP/esftKS1AJ4753wHz57v
rLQ/UgfrdnZyxyfivfCJIx4+8F7xb+j4Yd0uhWwTI9YBuyiY6sE6bJrO3gXn
FCYjm89CnWt/53UgrFvqwAQ3rNsrs2yq/5krFKr/98sdsC/Y8fdQGYxfm7CJ
On54qfhZ6M/XH4mAfcT7L1gpwD4Ku/urQX87cu9FFuiHCCzjj4J91wy8uw/i
xXaVFiJwgvOYO88CTjLPRlYSuEInJHeTCFxhK1x0D3C1IkFeE+JISLaOQuAQ
t+sN3wAcntqvPABxlHNXcCuBW+z5pjAIcKtEb1dH4By96QxvJ3COr+q95wOc
+13kaIE4eh4Z00rEBbbLd8+AuDjH1s9BxBGK37rIjIgjPFmtKwRxZBhwtRHi
6A5jexv4L2MaTwF/7c8/vxBxipRMjBcScYqfvVs/AnGqVBfPAXGUvCmTOp9F
OdbBMJ9y6dUuEEdcxbuo88+/aUidv6/8mulQIl4ebuGgrkOTQTx1HTSXn00k
eAZprhf6TfAMDg9oHASeae/N9E08U49aWCu8e7RakG6L+9dOsW6UXLD/2EW1
OnRyz+TTqo5mlHIkv1IipRtxm3xht+Fpx7yKC3fvVijFoyOc9u/iu9HXllOH
r69owyde54rue1aPJ0wdnx7/SEE/029Grj7YgO6GnH0pv64NJ389slbyLgXp
m79/MerWjheEMFQVPi3DDNUmHgwbu9GMn2aMhmkzXvLbpWBMrwV3M/Ivzg+n
IOnDQSkjBH+/DKF/23SiEV+8xsFz4zUF7V0hv8grvR2znjBYFfj9M+Z5QPph
n92Fzle57KlMq8K6jrVh66fasane5540Vwpa8P3Q9jPkNjT07fqTdq1a7OQy
oXChl4KOccQpBz75jMmXdtS1xnehbtuITcH17ejTtSnNn69q8CbF0KQYs2Y0
PD3YGL+jB/ncFl3f3PQJ0+n77nj/ioIGrPp/nFvXiaQXxWcVzZTgL9ycjA3O
TchMQb13aG8fSji01NnuzSd8UrXVGTF1o93+ap9rHrYj66XJhsQ641SupChY
Z9KrxmpYZxkljS8Hnn/Gj16Z1r39SkGMflrP+d93oG3WW7wu3f6MGVO9Bk4+
aEIXWrpa+Akdtcf86u19Jz9inJZz+7pVN3KryC89drgdVXd0uRL7i9+lpLnD
/tJVHm2D/X0SOll2YUE5jrXppnPg6EK9r3MEKy52IBk/VhWbXRU4gk3tWWFO
E0r3QRV1xr0oKiJ4H7Fu2Kyz04VYN/Str2gjrFuKBPMKwMOa8pINBB6Q5qMX
FwAP/I6se8HfZoNbAKzzZGicOPgX5fuaVaRVoat32tOIfUFfb4ewphP74hNc
YAr4kbTatJzAD8oLSI0G/PhpqpmA/6/6x1mwj1waiszgTzf6fQmx7yjo9Y6p
h98/oxyb/HHY95J7P6IBbxePGz4j8IZc2JXWAd7o1y1aDP4JjftXAE6Srp8d
Bf9Sm9ECAld4YrlVBIErtCZ1Iyfgiv+7/yvAZ2bclSQCn2iwq5+Kzx855bng
/3zUNxVweNZ74Srwv+YhEUbgFrHaqWACt6ijQYAdcDsqIvgS8MziMp4Ndtkn
Iyxgf10jFgT+ORYixYBz9Kp0KdidHxYlEs9F2U9PJ8BzJ2z33oTnLmLISgP8
z7xpeAHzXB+7gx+ea/lDAOaJ1L98+A5x1DLF5Ar+aSO7Joh1wKpPHgXDOpxZ
q8gG66DbLcgI8TKKVGZg3cSc/SdgHfJV5MfA/75JUTjE6UPma8zgv9Zirxax
L8ieO3Id7IvAfYUU2BdW04d7Ib44xIUfwT62G2wfgPjydCrVAH+eGl1F4IG+
hJUJ1H3UlxUkcIIs7d+tAZwsrrG0AZzwXpxBEI/G9Z9vAa4+TDAoA04m3CYE
wN+odmIL8Ey6dLkV+N9a7WjrL0zBhiQLW+79+8j8+rV+QpxdiGdvqQuBW8TJ
wwu4xVaK5UWA2+ALfLFy/hQ02GB8N/aELXnblWE5eiJe60qO1xL4Rz55Q7+v
cnThEePW9YB/2ZyrXKfUKVjRmyff+tdB8p+/FLRlxt4HeLIvUvAOEUd42mWs
DuJoxne8JU4nDwvtR6+G1ShY1b34QcJlCirM3vDEzIOC9lxZ8Gtb8DEyH6m7
iZxJQdt3+zwJMKPgjNJaBdYcI/LXQd09Qy0UdDo3346IX8TTNnSPiF8sa3r5
A8QvRcdKD/ghXiUlleAHrO0mROVhnu/m0QQPoJP7bHoIHsBVE5qNwAPa7tar
N12koH4dQ3peQzPyZutfdBkfKCij8EEXwSfoyOKOSoJP8BPbESqf5P5kBn/8
Ia6K6u/kf4Ae/PnexB8F/o8f7EqC5wprypfDc5Xsqs/H6uQhm8yVGfC+5P0p
4fC+X8V2RxLvhS6ID8jBe9X1B2vBeyklfAsj1gEbCKyZhHVovbm2BdbB9nTF
WYIPETn5wXWCDzFbfA2VD8/K73EEvrJpmbwN6/xJX6EJ1jn3kI9w8UwJGv/Q
xkzwKvYpM2gDXs3ZWrCO2C/0uWkEw379+UtBLwZHtAh+RsmuktsIfsYHhQt+
Aj8r3T8WTeABZ94P9AM8KO6NVQA8CFqXORM8j2Tt1kQRPI/PZMRUAs9X1Ste
JPCGXq/+Yg14Uz9v6wN4q1pGkiXyBQpJXVdP5AvsXWAsB/nC+V6Gr9iyL1hj
kfkxts4OxC+TdrbpGgV1//g5fZGOeL8mBYquUg0ql9ParThJ4JJ5B7uv0FGy
6JRKuDax7gltjzmeEPu3Y2n6wkt07fhn0qdG8Hf8HKsB/leLvp0XXfYF0Sc5
usD4S7LGb8P4a8stveG5bBP0NoQdB0yUnQZ77AnvSXhuHn39D2IcnMpQRx3n
nsPvZfBcT+fH8FyczKZCfS5TtREdPFchYmgc/NkU16qCv9MLazt47vppAXcY
X0dttS+M/9/WO3vLk54N0SWjChuONI3uLvTwuWh1unAn0muJPbLxSinKJHfH
B0V2ogc7KMyWDhR063GxgkkksS+ZYs37BDtQjdbSdQWtncj9QlWoi34Dzsri
fxsb1orIXmspnKMUtL5Uo8EqugVbqAc2p7HVI+sCPqEPi7rRLraUAo03RTjM
ze++5ZUmxDa444mYax+6d8Ai1qb4I362JHxcuKMAIaO7B+ifDiLNzxw3gE9Y
HbY+gjyoLPS8BPhkn8Lgbv0DtegFgxwykCtEt3KZPY6uGEDjvMYBxxJrEWe1
hDCObkfvIx4+vcREQcsrf12OetOOlhpkpe+cKEcxS1XGjH26UFwok2KZRy1m
yaU7JBHajKR0Xtx8NNGNPmC71AXOzRhf6dzzY0sRUjDmCe8l9aG1OV9a88Ki
UAnllUPW2Sa0VbvEfwtvP5rSCzTjMn+JCm68+W5cX4B+nGpwG3EYQoLVAiyU
/a1o1+/1g6HnilH07l6GZLle1C4TlO61OR85huCnkye6kOCW9POMSp3ohD5L
gCXnJ2RoaHertLYTRany9qqwUhB3PsO22rf1+LDo28XGRm2o6q7E7TW3KKhj
oTevVVQLzrx0eltnagNaI9jv0n+7C60OX8Vlwl+GFbm3jmh5NSHm8MDEJM4+
dLTdKTd38At+HVhEJztegB6lGc2sXjGImIeYY4HHvCeZm0HP+CdPNAOPZRx/
6yVdUYmkvzy+xs9QiC4flLTufTuAUnN5JnuetaM4cv9OgZWfUa9uUFLCSBdi
Euoe0euqwxe5vMMyuVvQS3xb5ZNtNzrwJTnOsaYFb/AKTT03UYSW1V/h8fbp
RaKZVy7MbL6DfZRFmFOJ9YzPvtWmt6EfFV0W/lY0eh/3FolkGRDr6a02tk3X
YwjRdTJZDhL5O7A8mcP3fhGafjvAk9vei9LYry4qX1uG0I4AnctPKGh/w/hm
tkOd6H3665CTEtXobJWPnohSB7rgeMuDV4aCTpJ+Pz97uw7bVjukP5FtR5Wj
Wx7YE3YrifTPrwxacN2NJU2a+Y1om2TE6IsNXWhnl+XS3rFy7MNpOzwZ1YQM
NC+ajoT2oji1iMsqT6rx6s+jj6XXFqKp8k2JB08NoLJfu8SAJ7feN6AD/dmT
xN0JPCkcF6k7SeT7UhX1FIe+AhSRXZpUajqI/HZeN+c/2I52rXQ7yn7wI6o4
fETL+lQ3+uLd6FhQV49X5tzOMHRpQWxKK7/ndxF6qZMr3SKvFQ9JBH3aM12M
WPva2cKae9CmmE18i4qSsc6ZPiEKsZ67xZ9XSrH2I9Pui2Xjd9LxJunNHLeI
9XQ/P+Vkd2xoLt+iWb6VcSIb9as0IVey1O6Z4UL02fOXxrXHfSjAZvVhNsEK
9CyXx9XoRSfKNvtyudCtE50OF41W761Hwke2rVt9rQ0dLxIXP2NBrLPrLVuC
N7Daj5ga4I0Lsh2rgTcWmnQv5I9px6syXpD8JCpQ4JplObYmXUhFZb3v1cha
rPutSEKUsx0VVp4N3+hFQRpTNibAS/TPpRMJXsIvW9oWAy/N4TE8y2O737DC
+Cg7UkKfGB+fOnf/DYzfZNEVCHzlGCtXTPAVXp8e1wp89X5zW8LPO+noTqbV
ClifmyU3LsP6zOElPMtLp6pPkoHH1h93SCZ4DFfpfgoEHjPhrd8FvKTce+ky
wUt46/IHbsBL2SdlXK+gakRqmeDScK/Cwxsqpw8v6EeHv/dfBF5K02ooIXgJ
iwobfAdecnRn8QMea4pMFiN4DDPrH4kAHqt5EJoCvFS9/dQFgpfwNWmvUOAl
yQWOcsBj3nu+HSN4DPNtb7sBPDYdTIkh8ImMNq5+APg8t50lGvA5h6/wLF8x
hkp3AL9pSJadJfgNJ67KfAj8RrfPixl4TJ3FaFXYuWJsmUReBDzGPS25Z4FQ
Mxopr+Ic2l2D+2P1fZxP9qBbulltoMdOiwvGE/oEba1//xD0iemiqSTgPXMf
3SiC9/Ag+xY74L3Vg71UfuP6tYCF4DfML7/DB/htDV+4f/HofbTIcA2VB3bf
aaTyAKP4+FvgsX2ewlsJHsNV/AOTwGMs364zAu8ZW44zaXs14Zy8yhfAe1Ij
treBx1JelgQTPIYLl7MeBx67eZefsYS9AinyB3LkH6nCU65ff7CE9SP2KdYp
4DfLY0p7CH7D8cKcCcBvOxi6+h5uq0eklfTa39+14Qu6n0temVDQ6rw9McBv
Zqf70wh+wwuC+3iB30JVWyaBD2vk7ocTfIjZVJ0R8OGusPuVxPwR1638GRmC
hwWuB1HnT3/0zhDw3qFh05/E+2LxYN0t8L4D5dMngSelPn8RJ3gS9+/NqAOe
XCGvZQ582K67XZbgQyzX70nlQ/lFyioHPRuRkPNDfqeQavyumbu9jLkXqS8Y
PQe68WPZknTYF3O2oiewLydeLKYH/myYzgT+xIPHuJWAP0OnFkQCTw5GlmUT
PIkPTuX7AU9mjxh/X2P+Er/as2kM8l2Wwq+bgJ85fIhn+fD7p3eMwJ/SpZyT
BH/il13ixsCfB29oUflQU3JBLsGHmFQhReXD88PRCc7sn9BkFbJt3V2Fexy7
n+uJDaC+z1FHgSf9uKMuEzyJry3S2Q08ufaY1JtfPA3ocadGhMJPghflc1qC
yET9UpyQBjyZYeo5SvAk9k4eYQGe7FF66QC8+poxN5vgVeyz0HUYeNXab8m9
E8UfkW5Fbz/okM3JvzQh3nfUOpUCf+68JaFP8AN+eNbYAfiBJWo7L/CtX2+B
NMG3eDA1oxz4dvXAEkPgz0pFJ2eCP7HspXg14M+BeEvuHrcG1J7sjV/yVOPf
8VYNWkm9SOaO/HbZK6X41u0sD9Bdrns3tVkQ/NYWPGMIfJvh6edG8C2+1x90
Cfj2mZ1BXIxtOy4ts2ORHf6I9BYIZo/t6UabJHPpgVcNAoaovLdI+UYm8J6b
p8dJ4OFjhkwNBA/jV16PVwIP717dmE6Mj8/oMlyF8WPH+U7D+OoFAnoEHnD1
KNICPPxgqpAHPNzPWifsvTkf8ylffQLx22KHz0L8Jo6X2o/QJeNGw0NJwMMf
Y8bKgYdFE0Mqg8bq8b4Dnjs7N7Th+rBnVyee//d6Vd4lch18/9NQlX0Wvpf2
F+B3h+9/HGofDkI8qscc0CTiESXe5voI8fhe5xoPfA+zMd+lAL5jv8qyKAS+
h+EMOZwFOLktrBhO4ASZS79pBZw811dRhu/exRzT8+H7GdtH9x6CPw1XeC6u
fA8wrYbvt/X2y9nB90g3TntR5/Of5j/T/j0D1tnI+95lyJvlJ4xsYZ2vC1gN
jDlg3DwZOqKqT9SlCnwr6h9Q0O5+1VGF5DzsU1FtHCrUjswmetiNxHuQbZZ5
CENRMsop9xeA/H4u9B4Vb7+5B7Y8HIxBP5PuanroUZDPx9hK1jZCz/RoGTYs
DkOSEzudrhD2ohQe2XdEXf87gD5s3/tI1OmuL9/I346KWr0mbJ/0IFWOIzJE
nKJvv5n6QOdI0BUaQpxOxAg0fH1bhPReiE1tJvL67982SZ6rKXNxgmZxwu3Q
dFHwRx7ubrxYa2FIQbd1PNlZjYl6X05z/MdMMY7gbnrnLNGOlL1ZYnXqupH4
Hx2I5urAm7omdQ3L3BGXLOvZS8T8SxT4WgWGCD0/vTpXidBP2kJ+u4OJ/bas
pFtzSZmolwu2GM3Yf0CDauX1YoSuG/h+ar/6i240sO4CXf0yd7yPl4s6Tuc1
Seo4pVffcTRyeuP9e83P1RPrUHWizvF2VA8y9fEXIfIIasyz/Qb6WdeyNQHy
yOavTbeI90L3PMtr4L1C2tuWwXtdqu8QgrgYT30dAXo+nP7SGYiLpzvzw4l1
wxftRGdg3WSHjqbAuhUPn3lwJf8jVjnBcS1bidDRT8xZtzt0I3Vl1653YVG4
YHKhE9QXU0YMDyD/MkentNUuDsPDK2Op+3gq0IO6j3SKUnWLut6hnJffXYwO
UJBIkwfz2FUKuhjaWsFqU4gE6Rh/nRBpR8YqDzIqFvYgjs29hwidgEa/O+6F
eif0deZ10Amfbg9Q6/Qesyck6KO27REchzpd2+nxnoDBGGxDCdkFuIprzKkC
XFWtIJ28JZOAD1XyJg0R61YptUNWPaAHjTw+a6/5pgjJWET4QH13zoAjGHSR
xtRQz7gDRmJLmoYA5+Nsh5YBzufwBvoPvIFmeSMpzNwT9KGJtbwsoQ9xYkHj
Y9CHXjE93eTHFJTT8CmMb/sV8iPJqBonwn9tjxwD6MBrhV3bQWdO7+XPBj5c
/zznjEFcJxLpW3pzuZ0O+c2B6s/1t7oQ6tCZInQs5n8Rw0HoWGwRXskBOtZd
pCce9OH9NcZ7gf+DilouAP/Lu4Q0Cr8q+3seZBe7fpXc8iF049HKUBa1jL/n
OytU313ibRhCW3yDHoZz/PPd74TDTOIBuwG0YvpbCZGn0MxAVRfkKT3dst+h
RJ5KW//qA9i9xlNyQeerjPnQQ/4qe++yOesSwbtdU+eHS3eSHzRPqvZldaF6
K95DRH7EbNY/r0N+3LVrix7kR5eaMar97ZEqG6gvwsO094E9pi073X9Xy9/5
l1vuOLPqVh/6ecODmcjL2KEqrBjyckPWoUzIy4VxTVT7RF/rG6hftj0fo9qn
gj5c/5XQgnWCVDSPVtdjytFVb+4XdaHmL8fiQH/W1DcHgB5I3lEQBXrgoy7D
eqWt8X/XYaeTmMHTkSEUcW1sgfr+mr/2Dk4lgbelA+hpfV0RUcdhPR57HaKO
wyNjD52hjlNjYroP+tDeRYeql/raFKl6SWd3jVvJjYq/73VxoItF3mEQjS5b
edvBw//v+AHC2pmuM0OohXQy79PFqr/2wQdbhbM2DKKbogUvCV2HNDJ53oGu
sxZ35QJdVzHsnAD2RPw7GepZYRP/tWDXqipXWj3TgdbYFUq1CyuR//ztRk6U
/T8JPYlVmJbrgp4s16yl1stPj6ZOgN1t1fbtUEfvO+WVAna7oEJK1oXWv/Nn
DODhKyvvRZw5nU6EjsWlQV8fg4615qqj1uOqF1LPg32PxREXqNMjWbpOgl2Z
3e0nkR/x3t4vWqBXA6XViiA/DnYsrQD9meIoqAz62axHYgL058f6+uErHv5/
nzvA7ENdn9Ka18HEev5dH+YdNktgPefoQDyrA3fL/v6ktr/m7zjTj2UkYB/j
GHOqFLbG/3NPBKsehH3Xw7cQ7+Xyv+PnicksYX8/iNaOrGwm6h3kxLnxJNQ7
Rh/c/aDeYeXpagH7Bf1oFejPsP3g9Af7rlEzacHTHWivSChLUaQS+c/fbkR2
4j9P1Fn4yN5fpVBn1Rhxj0Odpd7VbQ92ifX0mdAXkmLZ9hPsw4p66+yv/HMu
/PYQj3agQC+qj73xY/+BWoxu0rtDfbfOkj4A6juxc6cnwK7sGaIN/Si3bO2H
YM/MYEwg6jis5OSxAeq4y+JJIVDHzdGZeFZn5p0ufc2slvH3uaGL/JyAN5jD
V+SJvCr7uz66dBMMwDMKlyy3gG5sElnsDXXx3a/yLaAbpe+YdBF8iLkkrjwB
PuQP2VQHfJjx8HIs6EbW8ycECd2IswrYskA3bj5hYEHwIdYL2ucPfBilsfMr
8CFn8nY56Psdu3W5DXTj0meJ3KAbA9SFx0C3uEp+6Sf4HGelv1oDfD5pW74Z
dEjJMhctIl9gB7dP5ZAv+N6cfgS6hU73jCTo5DViz8pAtxj5BYrB+d3+TeTt
0B8+KrT1F+QdMW77e0Rew9vVh64TeQ2PO4sug7y20XwwA8717hyIYof+8+99
zl3QV2mtYzYBnVN1Ve8qkR9xpciEHORHk51Z7aBbdoq//k7kX/yxxfoN5N9R
sQAp0Dnhl3aPQT0yYcZ3EHSO+IsjN0C35CQLgm7BDzgVqLpljg7Bszpk6E9d
hubWZRf6mpIJfYJ7zTU0CX2CPXURF+gTub6Q+3BuWOEv2g/nBQ/9k6l9tjn6
BM/qkzl6A8/qDRTAtAn0Sd+xNZOEPsFsIWdegj75VmcaA3rDaih5DN6X7rNZ
FryvYqA9BfRDcEA6dX2uLLWUh/WZ5GzuAb1B2il4Dup9O8GxQNAb7mXXd0Pe
36J2Wxv2Mci//QvsYxB/4jfI4x+VV/TCvtv7UVbBvndaipyGvJ+s6hMH/RCU
+uwe5P3/pIffem9JUFRuRrxbRTnSBVuQ0FWd3e6lFCQvXbeBQe4zOh7zjvWp
JQWFRiRuOWLeieI+9ivmPW9FWlIVQWm9DUhhYN3SwbcUxB4tQKdB5Ot74VzL
oe+0LlqNC/L15eSUFUT9hdc2JRpC/4pd4JkR1F9c4uXFMkGpiP5z1Mrl26rQ
F5NqtWn2QbSxL2OGu/gTOmSm80W7qwA99khUjHMdRH3aBx8SdSJyX7MqFfpv
rseZB6FO3JSsJztZ0owiUrsN8Osa5GCVve4lbw9yqrIYrZIvx5VV0glmYhT0
fYeLaOqpTtR+45l5oEMOOvNGnP/A6y4UOV6bFr2xE51K8MqE+oLvgQG1HuF8
3UytR65FH3CBfKq4qG87kU/RQY2DWZBPJWR+bCfqYpyR6qFN1MVouCYiBepi
dy2L2vqwNLw7rUKF164J6YXtSyqg70erlDodTpln4yti95JKiDr960/R+gsG
Q6hjzCy1PqUSMX5zdV5+tgqJemmVfdrXjxaPWj8i6n30y03gDfRF6YMFA6He
5971reyVQQsKbpBshr6oS5bbGPRFgzuqiyEvXyxl1Yb+qmmUhwvk5TNKqsaD
ei14q/gzLujTrhWyFYC+BEOX0/kdR/2QuadDW/vWKtT2PWpTptQgemv1yPSO
Wy662fyVruB8E8p4paR2Iq8PjQZc6X+wtQiJ+jt2ljQWoKHV3R3npgeR2UKV
Cb2uOuQpG/kY+sw3Q4upfeZLEcuWRFk0IXZZyWeD/dXoi22jdOybHmRR8CFF
0/g9Nry4bTiFpQvF3yP7Vqh3Ik16a2/CjpZ7L/4OdlOZZqpdQbjjB+TNGPK0
OtSVMndcPkDefHN7cUqeVwsei9C4vy3hK1rFMcA3dKgLrdoQOf6evQJbv6Rb
kX+kCvFa7ZmEPtJlacf1xHthubfDC+C9HGJ4NeC9sodlUon3wl8P72X4QLwX
pW4NBd7r64Azm+yhcnTv2qLhx/urkIZeX5A0pR9tiDbbXvu2Hpm3NDBC///T
8r13oD82LHSUxyqqBWUUqGpB/9+54cU16P9fdp2ROsb5CT97QucJ5wiLNte2
wjnCgcWvZzr3t+JHrDNjcB6xdvoAG/TxRPCv5ksL4/CehJ/xPcS+7PrCXPlO
aBAtpV+X0hCWhsxKXHcArmxZZRIAV9L27yJOm2cjl+bsV4ArV06easCV/N5C
NZP7X5G9xvrttoeqkXP2e083015kNfB6Q7BDDmaU3sUN+F+e6JgM+LdbzvuC
iBc0I+aTBvFyK/qxNMTLQF1kEuTNlx6c6+Ecx0GPIRzypoTBUPFGphbcf0bv
fNR4E7ofr9Aj/YOCHnauUb6CqjGX5DVODfcqdE/nC4vxgn7E8H5wExHX+HaE
ZwPEdQajryrEtYlq1btmrQ9oQqAhrUu1Chk5eZj7WA2gdz4ST130G9AJIxMM
51nvUtZ2Qn94v9lkp1V0C0o/daQOzrPafC3XwXmWTZywrLtXNjb5tDVLd4qI
d77bkTUTnch0y/MnBI9hJx/BBcBj5p5B0sBjTLq7jhA8hplYQq8Bj/lv/DY6
QPCYu9rGWODD1BOZ6wg+xGsjddWBD9UW35AD3ns7Up9A+OOnuamMwHs/fAyo
PPlNvgx4EluHZlN5Mt8scxnwXsJW9TvQd2oxe3kIeE9gV7IGfD9DCmtLop6r
Ngg3QZ//sYN9AfBh8VUbKYIPcWq48A7gQxZVx0ngwxXIkGdPVwEWZwuQg3VT
fGp8H/iwmDHqDfTNzBro+oEPt5hKHgV+Wz9Gz0fsL+7X3ZgB+zt0UJHKh7/M
rycS+4s3LJESgf01Ve5SBB6TjLc9D/093qd08cBjc/gKz/KV8qr4CuA367zr
hgQOcdupay8Ah5EqNSnAY5c0VvsSPIYLDGVLgce2JZ96CDzmoHeRDH3LG0/i
/YHHRJ5EHAZe2nspTB76pXYVFvzASwF1mzcd9GzEfVMUQeiXUngHKNAvNerI
Pwt8JZJ2cJrgKzw+PrAR+Mo4iKkPeKnpQsgKIn5xQOdkG8Qvs0jzIeAx+f5V
AkS84zvWT7ZCvA+5Sw4BXyUzHH0OfWBjz8XUPnD5lTZP4B/9VXqjBP9gka3B
PsA/vs99ooCvfsVLAi9hR+1b3mCXuUSZAJ5hfe4oBP3qyjYdar+65Vvqa+CT
PL3Dq2A+Re/tO2E+LAyx64B/DO1PccJ8zMosdsB8EvIEGIFnXrDcniZ4Bsee
iw8EnqGb2acMPKOT4UXtw7f5dlD78BKUOHHgE7YwTW+CTzCrys9m4JMUe3Uq
nxRtuckN5wIs386wAJ/oXk/ctECoGadt3iEG5wL7Xc3uwLlATF5rHfBMyFOF
aoJnsNaCX6XAM3P4BM/yiX+JzSvgH+caqYOw7/QNxrGw7/sPmulDHyMnvdEU
zjtGObSdoI/RdX84DvhEKK0uHfCWc3a3FOCNfUGJOPDPUm1WLsAnVw1OAXyO
uXqS4DsrjxOxr+B7lXN3vn6G8+Vx/iRp4I3jN+5vAPyr3jmzA/DfmfW7AHgj
3DclhOANnGyw0Ap4Y2BVIZyDo8ynxkVwrlS3x68FeCNKwVsG+CF32+1sgh9w
pqV0BPBDhHbuYeABz9G0AIhr5dKHw8ADQU1iEcAbQ9McwBs40PcWlTf+k476
f2X3FDxddd0rG01s9CkEHjtgYhIP8zw6zPApaKweJa49pAJ9mNzuaAfow/i0
+A82aX3AJYLJZODP23tMT8M6KJyqcINzroSB22zAw0bR7b/hnGvbteG3BG+j
jminy8DbsvVLB4C3Dyhp8RD5Atc5LVSHfHFoJ4cf5ItIcmXJlYVxKFJp6CXk
o58//b4ATrxrf2nDeVPao6NsBK6Q2t7iW4CrHvWFP2UOleMEqYEZyJs42ScY
8PxWFk8R8YJ+nWBbCnlZNs2fmpdX0iklEnkcxTpqBUEef3FiBT/k8a7wZkZC
P+AzLhYJoB9k9i6UAv2wpZT456gfTvb1ouqWUy2ZVN1StMJGHc5ZVrg6LyN4
A/kk93YCb+x9X+NO8BJO3GThDvpqSzpLNfCSYVd6Gpxr3Gky1AD9lp7o/RJ4
r5OX4k7oPSTBs3Er6D3yoe4M0Hu7c6VZCZ2Jv/Jlm4LOPCjDIQo6c/Rc61rp
oFRsT0rkAB07vV5wN/D278AE6vlCAaNUwUueaqTxW6QezheeWjNWEPkF90cc
ZQe9bWImuBPyy7Vi9y+w77t9W4sAnyo6i17CvouHyL4h6kTE5KS6GurEcw33
E6BO9Bt6Wg/fdSyPCu4g8iDe2S4vCHlQ7Iwfg+LKFHyCRdf4NKEHvhWm0YXa
DaFRQ/II4MT6ts8ziJceoXo7wAm3sCgZ8BCfsdKbwAMmSS+j5vG3O1S5AQ9e
2z9qEXjAl4IE7wEezqxm4mUJ+ID6r4pSTrUWIJ7kZQMr8wdRYm5WPuBkWFKy
CvhkUvTGB8DJlPaGe/AdxYbs4nvAV9M7RSjAVww7WLnge4lLmiv1CL2El7Q+
ouolpS+W7cZ5udhr2TLL/IYCtEAt4FXNxqG5uMKzuDoSbEDFz3L+wWcEfvAp
cR4ewI9JXxzoT7zwk8sbAj/4+/SgOODH89HOtSZ5uahl/xlVGJ/ffDgexo96
L18JuLqSeYyaX66300sBruQOsD6C7xYuim/Qh35X+kS1O+hqPp9Dn+D7hLUn
ubsIHY6NC1+NgA7PvxDovzTgA95pcbkP1ifsrMcorA87x143wKGg1+g9yI81
nt8rAIdTesFugDfVlxNq0K9bwcWWDnjr/7yEDfBW4hBrQeANn/SNFga8LTj4
pGnzyhTkekHTEPb3obnJVAixv2m5bhyAw23d52RBP3w9bk+tp06sSLe5ElmL
RscH98M5fvjepx+hT2t/cNVT+E4gaahCEPqrhzQLhaFes/PeUwb4zFqYzQn6
ZzVfzTbA59kDSq6LbN5hdv00U5J/F5Z6bKolv6kTmQSaXFd4H41dToXc8Jjo
whpn8vIuC3UizLnJSe59NIof86fajz9iLwS7Zv/XLQtt3iHvCnYrGCdHp2Uf
jPPf8uSBVrV0+N02B4uN1PvR2sIV1PvR2rR7tQf+3KvFArR7tTEMsrnwO2kW
Jzl+w73vhRTrx3Dve5qpYRfck80UW/Mc7t2oDvuzwr0boT/36PHce/Rmm5Lu
w31Vf3u+ILhP9NvWThPuE9lJHE6Fe+UJayqov8Pmvcb0OYw/qGW1Be71dK+Y
ioR7uJoV5OUwvpjUiuPwvV8ZXuEK3z9nDreUwfd+5ZELFm6zbMBTfqSHSze0
4hJbbukmrS4kt2GXG6z/tIyLCbFuaFVwjDasW8ryxYN3ZBJQz8HnCdD/b8za
JQ39/yPRHVVX8j+iVolUBzjXaC41YoZzjc1/ft8Mzf19szqSoQHckzo8dR7u
SaG9595T70l97BO9AN9hvj7bcwe+o267lfwRvsMc6i50g32XXLzemdhfVMef
WAT7W/bnHAfNPcfx03ux5OdMMUpet/w9nDddjdCIhPOmOThBszjpeCMhqvc+
Ene1VVPPxQJblH7BudhjxbDDM3yVqGKZf+2miHZUrxClkyDVhTZrs+2B+/K9
OeHU3/GrnPCg/o7fUdq9J70/956QJe3ekyDnC75HPe+Q9oTE0/0OPejw2y3v
tla3ofCZ0puKyXno2lMbQzjvk3O1ZoHzvh9Z/VsBt5eS6o/B+j/TltCH9V9z
iS0T+PlzrdaMzPBHxMgZnQj8zL1WYiHw8PiqljQiTnGqUi41TqsKZOTtr/xz
30Q/9vlW6GfudasQFDzdgY3HpDmgX/rnbzcK/CA+yXO5/G8f8gxL+wrox87h
YTzLw/jM9w7gT9Eed2GC3/CIrmQS8JupnUBP1oXWf/r58gG80MdmCVi7efVM
B55Yqy4DffI/f7uRy9X3yZ8uVv197nM+WTHow9P4Fs/l2482S7iAVxOR2AZ4
bpDVtgR47hw+xLN8+HxVykf/XS1/56O5RN0czjte310ilXWpE0s52lyF85Ru
Xd89cJ7SHnJKNZzjn98FWsaangvnNUumhQuhDn19vcsN8lfEAuVOyF+ZdFu+
Ak8uulaXAutvWmH9E9a/wsH/GPChQL6NIZxbWc/wlwAfztFXeFZfpZb97oXz
X+mXv08ReMCXxVYyAB7yzgdQIO7sPRvTibjDy1UlxSDuclLbVAh84omz15oI
fOKiKyVUfFJUHzqx2hTikDbzqRMi7Zg8EJsF54DuG3Y+gfPf5RcUZAic4+CF
j6YA50/FuT5C/KaolTsT8YtN40qYIH6vZO74Aee2106dLCfiCKfLzoRAHB3e
QmaHuJs6EX6ViDtsrPT6IsTdp5NsB2fsP+CfUvlNYkT9dW3Sby+cwxr+8cdz
/fcK5jFCnH7MYPkI4wdVWYTD+JI5FoFwTlr/o9QF5iMrs4/KJ9u0TolDnK74
kkGdv80CrWmYv/OFEgs4l2xbdPANrA9TmqAErM+HFi8niC9BJz8bWM/9yffo
YD1jvmbUdrs14OFi83LQS1W1bd2gl44roO8Z99Jxne5zYYMvXWj9TQPvMLFO
JNJtpQB1Yi3dpxWg95KGs3pA71WMC4q/Xa9A1n14fVkFYzft/06k6M6uCHVQ
sWsafB+F3JP4/UCvlq7L4E+/l46usseLw/j0PD23YPz7oWl1MB9fixsf4PsQ
84V1PTAfi35RGeg3Xniofxjy8i3yF17Iy5vGP3yDeXYrV4gQ4+Dt/ExeME7g
iCi1XzfwvJGqEzw/q38HnbC+P5cZ+mMHojtTQJ+osn6VAH0yZ/54dv5fDqZx
Q3/p1XOWvaCXdj7NcgK9FHYIq0Kfh5+pXwV0WtjKGg/QaenNanzwXj6T9RIw
H970x74wH/7OC5uhPxO/rkcIvn8TLM1lhv5Mrqshta9iVXq0CfQkjr3CC3qS
Oc38KsGT+PWt3ZEET2J7Rs4c4MlSQanTcH9HyCvjBnyvXmsZSM1fNvwMN+He
zTcuOup3+9rSb0qo924cCnSDPqRifP7M15eJ/fjI2ovtu8obkGDhY7liuRRs
dJD12Oe2Pnwzr6nuG0Mz0vlz/wvPvf91NN2w0i79He42suN/adWHmQvMR4Zq
m5GLhUI/3LsU0zNrg/toHEkxgnAf7SVL6Mu2HW+xCcl1/0KvPiya4ukYHNiM
tjGf9YHfHeUwFNCE36uR/CwSB79X83ZkWBl+18J19Df8rgWOyXhgAvd8A8Td
e+D+0VSB4Re4L1BfYBwD9wUWOsuvhPuh/NObjsK9tqM/fvLBvTZ89/Lx4C15
2MytZujXeC/GgmYd33xb/sfrx/+1/6/9f8JOyV6NlfYdJ2/XP931+/cQuq+W
I+hUKYe0ws0239yjTs79Y8eew1eGHQn7ZROH+017rEnRNPs9zuKfYHe2eGNy
NNOGHEyza/otmQF72IMTpG90JLIrze4zNMIM47c0HXeu0LAm3aPZLV2j6cG+
ibzhSbSiISmbZufpqByBcV4arll/1t6SnEKzJ9oUj4L9je2PAjUJS7Ivzf5o
wR4GGEfORrrugoEhyW32uRVhS8BuW7AoXqjKhhRBs7tkn/oF4/h3uyWpSaiS
82f9RwWp7zu2XYTMl3KS/JhmH5FjmwL74COPkQy6Q+TZ8fd/96eOn5i3FOZD
uk2zb1YyXAT2GF/e746V+qQsmv3P/3Lo1mDH0KP3NuTXNPtTml1E1uL/eq+n
T5Ko47B5uKT57NhHml1PiXwN6nqK8i+zMHxuQ5qdp6It1zSMs1aRQYXxrhhp
7nud/rMO5LnrEPZe2G1Btz7ZnWb3pa0bbZ1Jc9f5yq2KxqFHFqS5+0LbR/Lc
ffRxY/u+etyafJdmt6DtOw0npLk4oeGKNBdXytI92QW2mqS5+PxPOP8VHHCt
Y7Uy6SAN5/s8TvLA+I+H6Q6d5bYmb6bZM3tDNoB9+9v78Yu2HyJz0ewLtvTK
gf38bt33K9MtSOto9pdnsmTArspo2TwoaknaRbPLnefiB/seHrFVckYHyPto
9qFvC9eB/eIPc48YSWuyAM0eprpHCuz1q8vyFzHJktbS7DpDugpgL1lWwF6T
ZU3aSLM7mZ4TAzv3qkf+9kIqf9+LLSWP+l4G2rq/9y37J64ffQulxrU1o/xV
e87D5NnxT97TkQe7UP+G22stj5J4aXbPI0s3gb2v3VbAqdKSpEaz//mf4Adn
Rl6nSlWSAc3+53859GPHMsXHBJ5FaXZJayTh9M++uHDQ7Bz2BxTBTuG5Y3TE
1IYkRrP3nOKg+tfGn6C7/foQSZ9m5xzgpI7fT1+mf+7OMTKJZr8wYEJ9L9n3
Ny9VqJr/3a/m42PU+R+67FCc8OnQ3/eK1l9E3cel+znlrfqPkbbS7B8OCwmB
fc0Qe+6SWBXy7HuRa5ZTn3v5kkWV7x0bsgTNbrRnjzjYyz3QdMAFtb/r+ZBp
kLqeNzvWtYfpWpE20OxFy1dvBDuZZ7L8M8th0iweJNfxUvGwLH3EVz/WnKxJ
s9/8TC/gNA+e/9f+v/b/r+3Mo/mgE7bR8OxH0xX/yV/qTPtx0BuHaP6f3Yu4
5/N/diDYH/TGbDzGjDOLz+e/gXLzBuiQVbM6J0dn83z+SehSMuiT9TT/nXoL
pObzd2wKrgTdMhvXC9lLeOfzZ4vv2QN6RoPmf/W4Hf98/sx6N4ZBD/DQ/Llt
dGTn86es6WC9SOgfTpp/zW9/+fn8V2z93Aa6SJHm7919dMN8/vRKx76CXprN
O5y5zjzz+SNt6wnQUVI0/93By0Tn89deHCzyhtBXy2n+LJYG8+4X44fuQdAn
s/m0rjRKej7/muF1fE6EHtOdXR/q///Z/1rvJWHIa7P7dcyrYN18/l6m92E+
5Fn8nD6mM+98DsuvaQRdN4vPTfcjFOddn9KAh6D35Gj+54pNRObzf6kl4wg6
8N/uV5jsjnbQh7N4GNfLnBcPnCoar0A3/lu80fBM+rd4Nt75nnGY0Jn/Nl5o
8Uj+t/Go2BUlykHo0n8b7zQ+If1bPqHxFenf8hVd4cph0Lf/lg//W3tiH/tx
Qm+Qkmn6OaPCaGw+/bySaU0woVv+6vka77KR+fzD7dTeb3S0Js/WdzLXCunn
m7+IyipbkYWapOs0/2Od6Uvn87eWV1cQUzlBCpytF5y/Tc83HzYvmbjMtYj0
juZvp5r3bT5/567LDXlxVuRYmv/NsfU/5/NPr9NpjflgRPacrWtEli2eb/7L
DuY9keA9SvKg+UuVRzHN5y9v/vNjiLQl6RXNv5hvwY/55kP+zZweP6hHxjR/
hXeC8+6XEV+hEKHDyf40/yIkQDfffLqUX6vfCVH+W19fYzVgns+/1M+RPpNs
S7pF829cOj3v+Mf2Lyfma0nKnMUD9f//7H9CMPo71NEvZ+vBvXzj8/lLqaTk
NTseI9+k+de+z2acbz6SIU9e6qlZ/H1fdf/n8+7vRc6EcqL+IsXQ/IMLYubF
j9oSriNvt+mSZ/FpkMY9Lz7Tx9d+rc6y/tuX4P15dl78381uGfLwUf7br5jJ
NZp3v8YDCvSJ+vTvftEnTC+Yz39heNxiK43DpLTZOv031+h88+Fxak0l6mXy
LP/s1NgwL//YcY85/1hq8bcfEnxuJcN884lr9Yvju/RP/0foku6SefWA7gd9
9VIbUjjNn0uEfnK++UwVdt2Dvtns/s72waqVx+/6d8mT82b7JN651L7E/wEr
mVnD
       "],
      VertexTextureCoordinates->CompressedData["
1:eJyF3Xu8V1WZx/GTjoaXLmgmYaaG+RoTkwwvY+LWV0qkJoqXIbsopClW1iDd
RA3zpEx11NLIlyVqF480psdLKt5CNOXiDUEEORoKBxQQLCdJbXI8v7Pf6zd8
nd+rv/brw7P2Pvus73qe9axnrX3YaezXRp28UVtb2w792tp6r21tk/Yaft7Y
A1yvOvrZCXd0Xl3hv+304NLpnTcW3vHy7S+YMvGOwrtsdseU6Z33Ft7vkJ4X
Ovs/UPjIc989bMrEOYVPuvvjF7f3PFL4rrNu/o/pnfMKPzjwUz/v6p5f+PHb
n7m/s//Cwt3HTVg7dfiiwiv+e7MBUyY+VfjPP7nyoI6u7sKvD9nry+09zxQ+
75ST5wzrWFp48t5DTpje+Wzhjk1ef3nozOcK/2TBHyd3dS8rfNmvLt5+8Prl
ha8Y/9mbOvuvKPzLg3b55KDBKwt3vvvPS6YOf77wdX+68+sDx7xQ+Kbrz99k
ysRVhW89+6jL+09Z3eyfw9+/R0fXmsL3brfyvn5zXyz8wKobR7f3rC08Z/pZ
L77xxrqqla55pS+mL6Yvpi+mL6Yvpi+mL6Yvpi+mL6Yvpi+mL6Yvpi+mL6Yv
pi+mL6Yvpi+mL6Zv6Z9aX0xfTF9M31Z+mrrmlb6Yvpi+mL6Yvpi+mL6Yvpi+
mL6Yvpi+mL6Yvpi+mL6Yvpi+mL6Yvpi+mL6YvqV/an0xfTF9MX1bxd3009Q1
r/TF9MX0xfTF9MX0xfTF9MX0xfTF9MX0xfTF9MX0xfTF9MX0xfTF9MX0xfQt
/VPri+mL6Yvp22oezbibfpq65pW+mL6Yvpi+mL6Yvpi+mL6Yvpi+mL6Yvpi+
mL6Yvpi+mL6Yvpi+mL6YvqV/an0xfTF9MX1b5UU5j2bcTT9NXfNKX0xfTF9M
X0xfTF9MX0xfTF9MX0xfTF9MX0xfTF9MX0xfTF9MX0zf0j+1vpi+mL6Yvq3y
3MyLch7NuJt+mrrmlb6Yvpi+mL6Yvpi+mL6Yvpi+mL6Yvpi+mL6Yvpi+mL6Y
vpi+mL6lf2p9MX0xfTF9W61bMs/NvCjn0Yy76aepa17pi+mL6Yvpi+mL6Yvp
i+mL6Yvpi+mL6Yvpi+mL6Yvpi+mL6Vv6p9YX0xfTF9O31To01y2Z52ZelPNo
xt3009Q1r/TF9MX0xfTF9MX0xfTF9MX0xfTF9MX0xfTF9MX0xfTF9C39UuuL
6Yvpi+nbqq6Q69Bct2Sem3lRzqMZd9NPU9e80hfTF9MX0xfTF9MX0xfTF9MX
0xfTF9MX0xfTF9MX07f0T60vpi+mL6ZvqzpR1hVyHZrrlsxzMy/KeTTjbvpp
6ppX+mL6Yvpi+mL6Yvpi+mL6Yvpi+mL6Yvpi+mL6YvqW/qn1xfTF9MX0bVX3
yzpR1hVyHZrrlsxzMy/KeTTjbvpp6ppX+mL6Yvpi+mL6Yvpi+mL6Yvpi+mL6
Yvpi+mL6lv6p9cX0xfTF9G1Vx826X9aJsq6Q69Bct2Sem3lRzqMZd9NPU9e8
0hfTF9MX0xfTF9MX0xfTF9MX0xfTF9MX07f0T60vpi+mL6Zvq7p81nGz7pd1
oqwr5Do01y2Z52ZelPNoxt3009Q1r/TF9MX0xfTF9MX0xfTF9MX0xfTF9MX0
Lf1T64vpi+mL6dtqnyXr8lnHzbpf1omyrpDr0Fy3ZJ6beVHOoxl3009T17zS
F9MX0xfTF9MX0xfTF9MX0xfTF9O39E+tL6Yvpi+mb6t9s9xnybp81nGz7pd1
oqwr5Do01y2Z52ZelPNoxt3009Q1r/TF9MX0xfTF9MX0xfTF9MX0xfQt/VPr
i+mL6Yvp22ofNPfNcp8l6/JZx826X9aJsq6Q69Bct2Sem3lRzqMZd9NPU9e8
0hfTF9MX0xfTF9MX0xfTF9O39E+tL6Yvpi+mb6t97dwHzX2z3GfJunzWcbPu
l3WirCvkOjTXLZnnZl6U82jG3fTT1DWv9MX0xfTF9MX0xfTF9MX0Lf1T64vp
i+mL6dvqnELua+c+aO6b5T5L1uWzjpt1v6wTZV0h16G5bsk8N/OinEcz7qaf
pq55pS+mL6Yvpi+mL6Yvpm/pn1pfTF9MX0zfVudO8pxC7mvnPmjum+U+S9bl
s46bdb+sE2VdIdehuW7JPDfzopxHM+6mn6aueaUvpi+mL6Yvpi+mb+mfWl9M
X0xfTN9W54jy3EmeU8h97dwHzX2z3GfJunzWcbPul3WirCvkOjTXLZnnZl6U
82jG3fTT1DWv9MX0xfTF9MX0Lf1T64vpi+mL6dvqXFieI8pzJ3lOIfe1cx80
981ynyXr8lnHzbpf1omyrpDr0Fy3ZJ6beVHOoxl3009T17zSF9MX0xfTt/RP
rS+mL6Yvpm+rc355LizPEeW5kzynkPvauQ+a+2a5z5J1+azjZt0v60RZV8h1
aK5bMs/NvCjn0Yy76aepa17pi+mL6Vv6p9YX0xfTF9O31bnNPOeX58LyHFGe
O8lzCrmvnfuguW+W+yxZl886btb9sk6UdYVch+a6JfPczItyHs24m36auuaV
vpi+pX9qfTF9MX0xfVudw81zm3nOL8+F5TmiPHeS5xRyXzv3QXPfLPdZsi6f
ddys+2WdKOsKuQ7NdUvmuZkX5TyacTf9NHXNK31L/9T6Yvpi+mL6tjpXnedw
89xmnvPLc2F5jijPneQ5hdzXzn3Q3DfLfZasy2cdN+t+WSfKukKuQ3Pdknlu
5kU5j2bcTT9NXfNKX0xfTF9M31bn5PNcdZ7DzXObec4vz4XlOaI8d5LnFHJf
O/dBc98s91myLp913Kz7ZZ0o6wq5Ds11S+a5mRflPJpxN/00dc1rOb9Rczm/
UXM5v9Hiu4c8J5/nqvMcbp7bzHN+eS4szxHluZM8p5D72rkPmvtmuc+Sdfms
42bdL+tEWVfIdWiuWzLPzbwo59GMu+mnqWte6Yvp2+o7lvzuIc/J57nqPIeb
5zbznF+eC8tzRHnuJM8p5L527oPmvlnus2RdPuu4WffLOlHWFXIdmuuWzHMz
L8p5NONu+mnqmlf6tvouKb9jye8e8px8nqvOc7h5bjPP+eW5sDxHlOdO8pxC
7mvnPmjum+U+S9bls46bdb+sE2VdIdehuW7JPDfzopxHM+6mn6aueR3SOXJG
V/d91StjTlvYb+7Tb7lus/9uR68dt7zwh7993DXd858vfPB5h184fPTawrPm
7rPdzyb+ttrk0TmXThz4bHX8Dtd8qaProcILL5j2mUGDnyyc16HvXfPo/H6r
C7fdts0Vd3b+uHn1XVzNI0ZtO2jm+HXFXr6fi/vW3Lfguv5TlpT3S/b+W37h
Lx+7tv+txY7Z91044qn2nnuKHbMPX3bm1lcOn1XsmF1/sGP223/3fPewjseK
HbPPPOycTfea+XixY3b9y47Zn/1Qdd7AMYuLHbP797yyNz45bVta/h2z040d
s28+9ae7rh/6XLFj9nd/9cR7xo9cVuyYfeAWr6wc195T7Jh9h6dmnNUzdUWx
Y/adp/2w/5jpK4sd5/hmx+KG8cmO3f9vPbeeNHLQmmLH7Afccu6rc4a9WOyY
3Xhmx6X/6/GMxeO004W/pH+yi9c5/tnF7xz/7OI5u3jCLr6nf7Ab/1i8T39g
N97xQy9sPWTw+gWlvfkAs2vPH7D5If2Dne7pHznusfkj/921xLWazSfpH+zG
Pza/ZHxm5w/YfJP+wW7+Sf9gN/7xRz6508dHr32htDc/YXbt+UfRt56v0l/Y
zV/pL+zms5x/2MX/9Cf25ne3tS61vzR18d11n52/5PkYdv7i/uZ3Y312/sLe
/O6oz85f2JvfrfTZ+Qt787uHDf0nz9uw8x/38x/cPKe7oT/lfJ3ncbTnL9o3
z5X12XMeaJ5L2tB/2JvnWv5/v2mei9jw3/PcADt/0o4/4eY+Xl97/sTOn3Bz
36CvPX9ib9ad++z8ib1Zt9zQv9ibda8N/Y29WTfZ0L+yrsDOv9zPn3Azz+9r
z5/Ym3+PoM/On9j5U+ZrzTjW50/s1guYP2H+5H7+g/mP9vyHnX9k/snOP9j5
Bzv/wPxDe/7Bzh/Y+UOrPMf4b5UX5bg13rU3vrF2rsY3Nr61N77ZjWd245nd
+MXGr/bGL7vxy278shu/7MYrNl61N16x8aq98cpuvGY8Zzd+S3/nOqJuj1td
37LOiPvy73fkekOcNN6x8Y7Ff2w8Y+MXG79Y/MbGJ/ZeGbdxxnX9ho03LF5i
4wkbT5lPY/pj+ue6PfPj8v61HvxMf2P9jfU3Fk+w/sf6H+t/rP+xeIHpgemB
/V5YfMh5M+MIzjhDH8z/Mb0wvTC9MH/H/BvTE9MT0xPzX0zP8vvWeprf6Ifp
h+mH6YfphemF6YXpg+mTeX7mLZgemB6YHpgemB6YHpgemB5Y/2P9j/U/1v/l
96n73zyk/7H+x/of8xes/7H+x/of63+s/7H+z7wQ5zyq/7H+x/ob62+sv7H+
xvob62+sv7OumPNR1unoIn/SD/InLP/B8h2sPorlL9mvWL6B1TOx/AHLf7H5
vrxPPd9jvw8dvT9W78XeP3XH6rHY+2Lvg5t/p6dv3DS/S+3j5ndufdw819nH
zXNifdzcF+lj60Fx2vOx5+c8i/087OflegP7+ZlfG1/eJ/PlzI+x9818N/MA
bLxg75/5Jvb+5efX4wP7ffDBNy97bPzI+dV3Zj961fDRz1TzdrzkV/2nLCu8
9O1fPP37PddX9968Z8/U4UurQ2865NqBY2YXHnnUd14b1/5E4ePXvXPnMdOf
LJzXhes+v29H1/LCS+7514f7ze0p/NJrR++4fuiqwpvs890zeqauLex9znjt
X7acO+zpqm3G5za/sfvm8r4nrv366/3mPlzsQ4eft1Vb22PF7v3Yv3DP4tu7
5y8q9ge+9z/fGTjm2WL/1KqxB49e+2yxe99y/y4X/mz46BXF/srsD/x+/MjV
xf7tj7Z/t6t7dbF3XbTlrGv7X1Odc9nle80c/6fy+2B2v++B7+k6Z9DgB4td
/2P2os/3rj957bgFxU6fcn9t1/6YHQ++qGfqwmLXP5hde//u+s/+/ZjJf/vq
yEHLy7/Tvzy/tmv/mX+/b6O5w3qKXX9jdu1Pv2TtsdM7Xyh24weza/+9R983
rbP/2mI3vjC79vQQf3bcb93bDuiYUR283WU3dM9v6lPqD4vad9tr5swyjuhV
6gG1v7m/7JeHP2mv/zH9PN/49bzTd9vvWyMHdRf2e7nfuHS/n8vO/91f9s/D
f7WnR3nfWs/yfrV/eN6Kz93zyhtvrGy+b62P+0+9f9C9wzqeL/fTk73t1Fue
Gdf+Yrmffuz0c798VT/Ih7JfsHwRy0ew5+kPz8t+xJ6HPQ9POvucF+/uPLdc
N9/00H5jpq8rPGSPr3zisomXl/iBvY92Ga+T5f8D/n7B568cfnuxY88zvtkx
+97fHHjs4PX3FztmF38zHrPvt80RnRMHzit2zM4/Mn5pj8v6sY5XGd/L97Ed
v/706LWLix2X+FD7Cztm9+/YuMr5ooyvo2a9c8rE54ods/OvjIfaY+8v/uX8
w7604+Ux7T3N+Qd7Pn9jx+yrd/vPH04c2Bzf5q+cz9hfu+yFT60dt6bYcfGn
2j/ZccZbdlzW2/X4Z8fuVx/F/IE/YfGBf2T+wD5435u7OrruKs/jD9pj7fkD
O7a+4w/s2P38gR2zV8sH7L9+6ONv8Rftsfb8hR3n98DpT+7nL3jc57723Px+
S0p7/uL5OOebMh/X7OfTkR27P+chzH7E9N0Xz++37C3+VeJvzdrzL3ac31Gl
/7mff+Ev/nX04Jnjm/7Cv8p4qjnnN3bs5/M3dux+/saO2c9uG/mewevXvMUf
tcfa878yP9Xsfc6funzYoMHr3uKf7rdeZuePnoe1ly9h+QuWL2A/P39e+q+f
k9es6xlfrurr7Pqb3f6g9d0xRy6Z13/K3PLz9VPWv72X3zfnU3kW9vPFG+2x
9vw72f3ig/ux9vo75zt27Hn8XXusPX9OLucBav9jx+z81/Ox9sZDzl/s2PP4
o/ZYe/6W7H75pfux9vwn2f38z/1Ye+OZ3XjG5bxuzFfyRuMq8zt24824NH5y
vtKePdcvuV5xP858r+T3tX+U9V3Nmf9pb/2tPS7rv/p+v4/xnPOd57Hn+sj9
xm/OV9qzY+M510fux5kPlvVcHSfK/BvrLvOZ9uoJ2uOS/5rXY/7L+c7z2DF/
yPkp7Zh/5PrL/TjzRe3Hj52+aujMZr0GZz6pvXqI9lh79+d8l/Ob57Fj/qc9
Zi/nOmP+Sv/z8/kTHflTcuZ37MZ7svbGN7vxnay98cxuPCdrb3yxY3bjid14
StbeeGI3npK1pxc7vZK1b+qx4Tyb+1fFD2vO+llpX9cH2emV+5Xs4p/nY+3V
c9jVf7B4llz282r9c79Te+x96F9+fl3/0R6zi4dYfcjzjI/cH/U8rL34x47L
dxqR12ecpGuy+43H3G8t67+aPdd4LL9vXW8q/V0zu/yi9Eddj/I84zX3Zz0P
ay8eaq8+VeoHdT0Li2fJ7hf/cn/Xz+Mf7OpbnofZxbvc/9UeZ36R+5NlvVBz
WU/U/lTsNed6OveTM7/I+inmX5i/5H6z5+FcP2vPP9j5g/tx5g+5P6099jz+
kPN+q7zAeM/97DIf2ZeJ+V974zvXU+zGd/n9amY33nP/W3vs+cZ71mux8Y+N
Z2w8e77x7Ocbv7kezP1z9+NcH+b+btZR87ubrK/m33fL9Vz5e311/ozlx9j8
X/5+Xz2/l/MZdX0m65NYPoq9R/luqp43y3mYev7G6h1ZHyx/36/O97B8rqyj
63wNm79L/9T1g6zXlfM+dX/m31PL+lue/836W9bTsP7N87lZL2NX78LqXXn+
NutdWb8q36nV/Z/nY7M+xa6+hNWX8u+CZH0p60XlfEytT55PzXpQfleX9Z0S
f2r98u8Z5v5U7geV+l39/DI/OB8YdRp+Z/9EnMPOHTjPxY7Z7aew4zx/Ik5j
++rip7hdzj3W7+/3z/pM1l/yewg/D/t55h8/T39mvSXrJVh/Z70j6xn5vYD3
wd5H/PY+4rH76dlc5/bpWfaHfE8c83nWB3L9j8v3w+qjvgeO9Xaur3P9nPb0
R88r3/fGejbXr7k+TXv6W6lX+w607P/19VeuH40z4wmLZ+V7vbq/yvcNdTzD
xl/5fqGOV9h4wvqrnLeu4xM23rD4g403LL5g46fUR+t8MM97Gk/yrTx/Wex1
vpLnIct4rJ9fzuvV4y/PJ5Z8svY/duMrzxeWenUdH9iNlzwPmPlO5jMl/6zz
WfOG+QebD7B6tPjmfjo638TueezOM7F7fo6D/I6jfHddv4drnvvLOkL5/9du
uPThyY9dX8b/6J+c8HgvOw824msfWtjL4seJr+z5TC87PzVi5U2Letn3CC+d
1vFIL+uPGQ8OeayXna9auuyvT/WyeDLj9S8/3cvl7/H9fsr8XhZvJ50xtvF+
+u/A3Zcs6GXxZ8ZZKxv3i5OLTl+6uJeNw0m/PezRXqYr1j/aiz+e57yWnyee
e5/yd9zq9xWv/D7Oc/l97WfoD98H6C/n8fSneKW/nf+iR/k7ArV+5mn60fed
v9/ljPVbNb9ff2rTp8b3Mn23nHZFg+l7+WPvbzB9fzRvQoPpe9Su2zaeR9/2
l//esNN35tVHNpi+Bx+4a4Ppe82lDzSYvrMW7dp4Hn0Hf/qmhp2+Qyfv1GD6
bvXqmAbTd/QhWzTupy+mr/b09Tz6+nn09T709b709fvQ1+9LX/1BX/1FX/1J
X/1NX3rQl370pd+BF+298ZVHXV69tM+Ixvh56aLlC/7v9eLtF79np/1vrxYd
ukljPK665dbuf1wwo+r38qTGeD90m/bdX/zz/dWQ9s0a43HWnGmTlnx2drVo
3MsN//jgrCELZ//x4Wrp6WMb7ff83aBturedV1324Lsaz5s89PZh8w+fX7Vt
9fYnenmLw7/5pTnnPlHNePrQxvt8Yf0dF99765NV24j7Gv5xzt2n3Xn76sVV
1+RLu3t57C13Lb9hx+5q0shvNfxjy9M+8I7OY9/01y0XNd5n9bCDtht5SNNf
33vJL7rmnPCmv255TMM/3rXbbYcMP/O5asAvjmy8z6mPv+upey9dVo3Y6SMN
/1h+0gmnD7theTVj9JmN99n6jK9uPH12TzX6sOsb/jF624cvG7p8RTXiyteX
9PLzn+7YvesfK6t+A0Y1eN/qD/fu9r4Xqq7975/XiI/fOv64zo+tqmbNmtN4
3uhNr1v9wSPezDce2fvJRjy8bfGkqaeuqa5adVLjfYaM+8Q2A897sVo08OiG
/fQTzp/20yvWVpMufKJx/85Tzjmg/+3rqsmbXef5J3a9fm51atXT0HfAZpef
8ptdrqkGdG7V0L/91uXH7rHy5mrUIz9o2B8avuerW9x5V3XcjX3j8aoVI4+a
8ODMasdLftTgjXaecs3Yjz5YTTh668b9H9h441eP/Pncaq+7ljXsQ07q+fWV
Gz1WTXrm0AYfOe/kR6bs83i15fADG7zkfR96teMrC6pDt3uiwfvufdCg71+9
sJpw/IDG8z762aWHnbVwUbVm+77x+ty0H084Y4sl1QGvfLjBCxY/MPW0A5+u
9vzDmQ3+cPvZs8d840/FP1+b8/XvDH5iabXvd//SsD/6m6vfce26Z6t+Pxzd
4IOuPvSXgzZfVn3jtr0bPKr9l/tcufOb8XfufX3+v/j+hwZWPdXOo7ZrPO+u
nkFjpnxmRbX0whsa9lN2Pf2v/SesrM7feI++ePfwGT/ouPD5aqvF4xp8RMcT
O2w27YVq7Oy2xv3Xvzb1lvb7VlV3n/JGn/+NenxE2zOrq8deOqWvffdJT0/8
25pq1H/1Pe9tt924wfX8w1a8/Yzd11XnnrXdBvFWPE5/zfk3/Tfn3/TnnI/T
v3N+Tn/P+Tr9P+fvjAc5n2d8yPk940XO9xk/cv7PeJL5QMaXzA8y3mS+kPEn
84eMR5lPZHzK/CLjVeYbGb8y/8h4lvlIxrfMTzLeZb6S8S/zl4yHmc9kfMz8
JuNl5jsZPzP/yXia+VDG13+WH70l/kZ+lPE486mMz5lPZbzO/Crjd+ZbGc8z
/8r4nvlYxvvMzzL+Z76W80Hmbzk/ZD6X80Xmdzl/ZL6X80nmfzm/ZD6Y803m
hzn/ZL6Y81Hmjzk/ZT6Z81Xmlzl/Zb6Z81nmnzm/ZT6a813mpzn/Zb6a82Hm
rzk/Zj6b82Xmtzl//rN8N+fX/wXCGOOf
       "]], {}},
    Axes->True,
    AxesLabel->{None, None, None},
    AxesOrigin->{Automatic, Automatic, Automatic},
    BoxRatios->{1, 1, 0.4},
    DisplayFunction->Identity,
    FaceGrids->None,
    Lighting->"Neutral",
    Method->{"RotationControl" -> "Globe"},
    PlotRange->{{-10., 10.}, {-10., 10.}, {0., 3473.705623435916}},
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02], 
      Scaled[0.02]},
    Ticks->{Automatic, Automatic, Automatic}]}], "}"}]], "Output",
 CellChangeTimes->{{3.937132021199053*^9, 3.9371320241095257`*^9}, {
   3.937132057420519*^9, 3.9371321079947224`*^9}, {3.937132149504919*^9, 
   3.9371321682162914`*^9}, 3.9371322405912685`*^9, {3.93713272756946*^9, 
   3.9371327560001297`*^9}, {3.937132825308119*^9, 3.937132846444193*^9}, {
   3.9371328783978024`*^9, 3.937132909965763*^9}, {3.9371329554760838`*^9, 
   3.9371329792664585`*^9}, 3.9371330096735287`*^9, 3.9371330480378227`*^9, {
   3.937133132770315*^9, 3.937133136877947*^9}, {3.937133171173744*^9, 
   3.937133228072052*^9}, {3.9371332761871357`*^9, 3.937133283500763*^9}, {
   3.937133313668209*^9, 3.9371334398086433`*^9}, {3.937133493382963*^9, 
   3.9371337418190613`*^9}, {3.9371337817608013`*^9, 3.93713386259997*^9}, 
   3.9371339384289207`*^9, {3.937134198636421*^9, 3.9371342542446957`*^9}, {
   3.9371343308323555`*^9, 3.937134337648468*^9}, 3.9371343755214043`*^9, {
   3.937173139900299*^9, 3.93717314491654*^9}, 3.937173401514284*^9, {
   3.9371736504230785`*^9, 3.937173691251993*^9}, {3.9371737435709724`*^9, 
   3.937173751687525*^9}, 3.937173914798441*^9, {3.9371747637207108`*^9, 
   3.937174824195051*^9}, 3.9371749159494343`*^9, {3.938239955714798*^9, 
   3.9382399639477444`*^9}, {3.9382400376793404`*^9, 3.9382400896293945`*^9}},
 CellLabel->"Out[32]=",ExpressionUUID->"ac9b86f1-05f7-ea46-92c1-9a421990f13e"]
}, Open  ]]
}, Closed]]
}, Open  ]]
},
WindowSize->{1269, 759.5},
WindowMargins->{{-5.5, Automatic}, {Automatic, 0}},
Magnification:>1. Inherited,
FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)",
StyleDefinitions->"style.nb",
ExpressionUUID->"a163f4b3-f4d9-472b-8962-64ed1464bf9e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 218, 4, 66, "Section",ExpressionUUID->"d6008720-894f-d64f-9678-80743e9b000b"],
Cell[CellGroupData[{
Cell[823, 30, 482, 7, 53, "Subsection",ExpressionUUID->"f90ff4e4-6a7f-4659-9fce-70d84e065d4d"],
Cell[1308, 39, 713, 13, 55, "Text",ExpressionUUID->"f6914097-813b-4fd1-90d6-5b7090d2b75c"],
Cell[CellGroupData[{
Cell[2046, 56, 2111, 52, 234, "Input",ExpressionUUID->"48c8affd-6e2b-425d-a938-be1169af55d0"],
Cell[4160, 110, 789, 14, 45, "Output",ExpressionUUID->"411e25b9-9eff-c046-8e35-143071899de7"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4998, 130, 238, 4, 37, "Subsection",ExpressionUUID->"63549ada-cc3f-a448-9b7d-0be5fd27a69e"],
Cell[5239, 136, 236, 4, 33, "Text",ExpressionUUID->"2315d219-41ea-014d-8732-89df22979150"],
Cell[CellGroupData[{
Cell[5500, 144, 1551, 39, 120, "Input",ExpressionUUID->"19bf4f12-9b48-b043-9655-28bf3b3d1f99"],
Cell[7054, 185, 3966, 78, 184, "Output",ExpressionUUID->"fd31265d-2f3f-bd4b-9687-6da7583e06ee"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11081, 270, 165, 3, 66, "Section",ExpressionUUID->"34fa9187-3152-7242-b671-1f16f2d993f6"],
Cell[CellGroupData[{
Cell[11271, 277, 218, 4, 53, "Subsection",ExpressionUUID->"ea4ae2f8-987d-2445-8739-2110678b27e6"],
Cell[11492, 283, 239, 4, 33, "Text",ExpressionUUID->"717db9db-e144-4b45-9f8b-5bd1008e7c6d"],
Cell[CellGroupData[{
Cell[11756, 291, 2737, 75, 243, "Input",ExpressionUUID->"497df628-7dd8-3f42-97d6-f9fafe492b99"],
Cell[14496, 368, 740, 14, 32, "Output",ExpressionUUID->"ebd0ccba-30ad-f34f-89ba-8237adeaaa3e"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[15285, 388, 276, 5, 37, "Subsection",ExpressionUUID->"784fc19c-62f8-4bad-881c-fca2328794d0"],
Cell[15564, 395, 504, 8, 33, "Text",ExpressionUUID->"fda77400-73f5-49db-93ff-eb185d67aebf"],
Cell[CellGroupData[{
Cell[16093, 407, 5245, 103, 248, "Input",ExpressionUUID->"2cf80ff6-bf72-4d35-b1f5-f03543c34b66"],
Cell[21341, 512, 2910, 44, 32, "Output",ExpressionUUID->"95ab126d-658d-ca45-9ffc-90747a61b12c"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[24300, 562, 375, 6, 37, "Subsection",ExpressionUUID->"f82db896-cd4c-4cc8-84ca-4dbb44229ec2"],
Cell[24678, 570, 510, 8, 33, "Text",ExpressionUUID->"cac3d7bd-9954-4405-a7e5-ac9b6cc45796"],
Cell[CellGroupData[{
Cell[25213, 582, 4500, 98, 214, "Input",ExpressionUUID->"fcfad0f7-8d74-470f-91b3-73e347e63cc7"],
Cell[29716, 682, 2222, 45, 46, "Output",ExpressionUUID->"fd918071-895f-2b43-a9c3-46b9a59f9155"],
Cell[31941, 729, 1940, 35, 32, "Output",ExpressionUUID->"088c6a99-9ad9-4642-9f3d-f00fc5b7f51f"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[33942, 771, 218, 4, 66, "Section",ExpressionUUID->"a3de89b7-2f6e-4048-9984-17fff659781c"],
Cell[CellGroupData[{
Cell[34185, 779, 188, 3, 53, "Subsection",ExpressionUUID->"89c387f1-dd97-41a3-90cb-4db1bffdf564"],
Cell[34376, 784, 458, 9, 55, "Text",ExpressionUUID->"6493e7f2-50c6-4d8d-b495-c138e6c9f62d"],
Cell[CellGroupData[{
Cell[34859, 797, 1629, 42, 173, "Input",ExpressionUUID->"196e9c4c-8e73-420a-a732-bccd77d95dd9"],
Cell[36491, 841, 727, 14, 45, "Output",ExpressionUUID->"6550bf44-8376-fb47-90ee-7c4bbbeceae5"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[37267, 861, 201, 3, 37, "Subsection",ExpressionUUID->"14e2f2e0-8ee6-3544-8c8c-82b3ffc96ff7"],
Cell[37471, 866, 324, 5, 33, "Text",ExpressionUUID->"d686c8da-414c-8b4d-b201-25e0077e2e17"],
Cell[CellGroupData[{
Cell[37820, 875, 1895, 54, 160, "Input",ExpressionUUID->"0d765881-d98c-5843-b3f9-9941a7470981"],
Cell[39718, 931, 706, 17, 34, "Output",ExpressionUUID->"61f2fa8c-1e5f-f44a-b703-ceb5a7ccfa31"],
Cell[40427, 950, 502, 10, 34, "Output",ExpressionUUID->"66c622b6-62e2-7141-8ce1-9355809b4ef3"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[40978, 966, 218, 3, 37, "Subsection",ExpressionUUID->"6c130562-e9c8-41d9-b399-a7890f72a94b"],
Cell[41199, 971, 547, 8, 33, "Text",ExpressionUUID->"db99bed0-9ac0-4477-863e-c037c42ecb18"],
Cell[CellGroupData[{
Cell[41771, 983, 4628, 108, 220, "Input",ExpressionUUID->"c17aeeea-1832-4cc9-b6fe-5354c1986519"],
Cell[46402, 1093, 10664, 222, 128, "Output",ExpressionUUID->"d82cc32a-df4d-c14f-8780-89ba79289695"],
Cell[57069, 1317, 10662, 222, 128, "Output",ExpressionUUID->"5e8aa0f7-9380-2b4b-a986-7e90e18a90ec"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[67780, 1545, 217, 4, 37, "Subsection",ExpressionUUID->"fccebfb5-9dfe-6a4f-9844-f94c40211569"],
Cell[68000, 1551, 523, 8, 33, "Text",ExpressionUUID->"49846e15-01eb-0f4b-b70a-94969f243489"],
Cell[CellGroupData[{
Cell[68548, 1563, 5032, 121, 163, "Input",ExpressionUUID->"2b34e293-549c-7b46-b10e-553e84fc1439"],
Cell[73583, 1686, 6244, 133, 35, "Output",ExpressionUUID->"9caaa6fe-95e2-294c-808f-24d466296a41"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[79876, 1825, 197, 3, 37, "Subsection",ExpressionUUID->"e87325a8-6798-604c-9a32-34085113c871"],
Cell[80076, 1830, 499, 10, 55, "Text",ExpressionUUID->"cc913d44-d711-7840-9717-3f50b82e51a5"],
Cell[CellGroupData[{
Cell[80600, 1844, 3014, 75, 217, "Input",ExpressionUUID->"118129e1-f86c-b94f-85aa-741a45c1b7a0"],
Cell[83617, 1921, 11189, 236, 80, "Output",ExpressionUUID->"43268a64-701c-ac41-8d92-f6eabc5c5c0e"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[94855, 2163, 221, 4, 37, "Subsection",ExpressionUUID->"11e84cdc-6ae0-4d8f-ad5f-74b77672d2dc"],
Cell[95079, 2169, 589, 11, 55, "Text",ExpressionUUID->"45d043f4-4bc8-46d2-9b60-6acd2ac2db15"],
Cell[CellGroupData[{
Cell[95693, 2184, 6998, 146, 342, "Input",ExpressionUUID->"4c9516ba-7077-4b96-8726-f5628ebd60bf"],
Cell[102694, 2332, 5633, 149, 169, "Output",ExpressionUUID->"7881fbc4-274e-ef40-b842-7e533fafaaf9"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[108388, 2488, 170, 3, 66, "Section",ExpressionUUID->"782d7b61-ef12-7845-a871-5fa6318890ea"],
Cell[CellGroupData[{
Cell[108583, 2495, 199, 3, 53, "Subsection",ExpressionUUID->"12956945-d433-c040-97c1-e568369ed165"],
Cell[108785, 2500, 234, 4, 33, "Text",ExpressionUUID->"fd382a6b-a082-ce4b-8577-117d8242aa58"],
Cell[CellGroupData[{
Cell[109044, 2508, 4299, 96, 201, "Input",ExpressionUUID->"2e60b2ee-3c0d-7748-bc71-ba2644f5c87d"],
Cell[113346, 2606, 2194, 49, 165, "Output",ExpressionUUID->"31021f6b-f0bb-8a4c-ac46-c3ab1b9db83c"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[115589, 2661, 292, 5, 37, "Subsection",ExpressionUUID->"87fd259e-20f9-4879-89a8-14ec4ecb826d"],
Cell[115884, 2668, 693, 12, 55, "Text",ExpressionUUID->"5845632a-3731-4183-8e5b-02ff3fb9decf"],
Cell[CellGroupData[{
Cell[116602, 2684, 15982, 326, 941, "Input",ExpressionUUID->"c6911c1f-5536-4bac-aab2-4c6f9b5462be"],
Cell[132587, 3012, 12075, 333, 293, "Output",ExpressionUUID->"52d3ec8d-751f-b840-bc4d-d0b6ab6ea693"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[144711, 3351, 182, 3, 37, "Subsection",ExpressionUUID->"d46b8a7e-87ab-4247-8676-f3a683cb67c6"],
Cell[144896, 3356, 421, 9, 55, "Text",ExpressionUUID->"d406cdce-3bf2-d94c-a62b-791526afcaab"],
Cell[CellGroupData[{
Cell[145342, 3369, 3172, 87, 241, "Input",ExpressionUUID->"cd63998e-19b8-4044-a6f6-8d506e0fe442"],
Cell[148517, 3458, 3356, 100, 123, "Output",ExpressionUUID->"e072198e-bca0-d543-b498-804c7db292ff"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[151922, 3564, 209, 4, 37, "Subsection",ExpressionUUID->"090ecfcf-eec3-4fc4-a926-55581966e032"],
Cell[152134, 3570, 489, 10, 55, "Text",ExpressionUUID->"33776800-7667-4388-b793-f59954134244"],
Cell[CellGroupData[{
Cell[152648, 3584, 2895, 75, 231, "Input",ExpressionUUID->"ad4da761-711f-4c1e-b169-b98f33f3076e"],
Cell[155546, 3661, 3180, 100, 134, "Output",ExpressionUUID->"b4ff6da2-e607-e344-b49a-0d281ac8d8e0"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[158787, 3768, 163, 3, 66, "Section",ExpressionUUID->"9f901911-be34-0746-a3dd-51dd11253e2b"],
Cell[CellGroupData[{
Cell[158975, 3775, 287, 5, 53, "Subsection",ExpressionUUID->"c9fcf865-7e89-4349-ba66-0de628518a75"],
Cell[159265, 3782, 234, 4, 33, "Text",ExpressionUUID->"92030c75-5c54-4c4f-bda4-7d70b4a62180"],
Cell[CellGroupData[{
Cell[159524, 3790, 3065, 82, 375, "Input",ExpressionUUID->"6db2f9e6-15e1-214a-958f-1c111a856541"],
Cell[162592, 3874, 1472, 44, 48, "Output",ExpressionUUID->"28529a18-267c-3b42-8322-df99ab4d8e8d"],
Cell[164067, 3920, 1965, 57, 48, "Output",ExpressionUUID->"57fa54da-9ea0-884b-ab1d-4195f2ea4820"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[166081, 3983, 277, 5, 37, "Subsection",ExpressionUUID->"4e08540a-0dea-3842-a8bc-f97830c4183e"],
Cell[166361, 3990, 532, 15, 34, "Text",ExpressionUUID->"535c33c5-bf0e-f64b-b8b7-4e44a6d5643e"],
Cell[CellGroupData[{
Cell[166918, 4009, 13316, 322, 835, "Input",ExpressionUUID->"637f9f21-f603-0a4f-92bd-349d5295e2cb"],
Cell[180237, 4333, 1114, 23, 44, "Output",ExpressionUUID->"174fecfb-15cb-f74b-8e1e-505fb7463714"],
Cell[181354, 4358, 1366, 32, 46, "Output",ExpressionUUID->"93166942-bbe5-0b43-90b1-b8d61fe4b920"],
Cell[182723, 4392, 2567, 70, 88, "Output",ExpressionUUID->"f164aace-d0be-b546-826d-ea1db74adb0d"],
Cell[185293, 4464, 3118, 65, 208, "Output",ExpressionUUID->"f4d4c551-bea6-2844-ab21-dea5b8b5ffc5"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[188460, 4535, 314, 5, 37, "Subsection",ExpressionUUID->"fc1a37a4-3735-3b4b-9360-b2e945a9aa0e"],
Cell[188777, 4542, 205, 4, 33, "Text",ExpressionUUID->"2842c3c3-49da-3a4a-9e42-1828e65bf979"],
Cell[CellGroupData[{
Cell[189007, 4550, 2009, 55, 172, "Input",ExpressionUUID->"efb649b6-2413-5747-8a40-166e32079e86"],
Cell[191019, 4607, 971, 28, 73, "Output",ExpressionUUID->"14463ac9-8706-3245-9265-672ee1331fae"],
Cell[191993, 4637, 1133, 32, 76, "Output",ExpressionUUID->"159918de-f566-1742-b92c-b3f1073cf088"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[193187, 4676, 169, 3, 66, "Section",ExpressionUUID->"5ca572ef-d95a-bf46-a9cd-585f04d9c551"],
Cell[CellGroupData[{
Cell[193381, 4683, 309, 5, 53, "Subsection",ExpressionUUID->"0870485f-1fbb-4531-ade5-39dfcfc3ddc3"],
Cell[193693, 4690, 1083, 27, 104, "Text",ExpressionUUID->"c8c4c9a1-7e3a-764e-9d87-f0f213d8a58a"],
Cell[CellGroupData[{
Cell[194801, 4721, 7453, 181, 457, "Input",ExpressionUUID->"d98e5719-a905-4c40-ba62-eee6ff6ca634"],
Cell[202257, 4904, 3456, 63, 45, "Output",ExpressionUUID->"27810ea7-9343-b645-89dc-38e308741855"],
Cell[205716, 4969, 3400, 58, 55, "Output",ExpressionUUID->"b7174d2f-50db-f345-88d2-9cbfe15f5c6d"],
Cell[209119, 5029, 3268, 57, 46, "Output",ExpressionUUID->"49b15062-3c40-ba48-beb2-e11b53966266"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[212436, 5092, 332, 5, 37, "Subsection",ExpressionUUID->"23a1a542-50f0-42ff-bd50-712fb6e1df74"],
Cell[212771, 5099, 2255, 51, 196, "Text",ExpressionUUID->"5370a4cf-d62c-4e72-ba84-09060a59965c"],
Cell[CellGroupData[{
Cell[215051, 5154, 20302, 468, 1111, "Input",ExpressionUUID->"3a78e23b-afa1-4afd-b071-1979d220226b"],
Cell[235356, 5624, 3539, 51, 34, "Output",ExpressionUUID->"4d08d899-f05c-6b4f-bbdd-0896ed2f422e"],
Cell[238898, 5677, 4089, 67, 47, "Output",ExpressionUUID->"189b979b-2f70-914f-bd43-5c0e8cb7f1b9"],
Cell[242990, 5746, 3725, 59, 62, "Output",ExpressionUUID->"c79da8fc-3d27-a143-941e-296843a25429"],
Cell[246718, 5807, 3512, 51, 46, "Output",ExpressionUUID->"981524d7-4373-154c-9004-78a0ce37272e"],
Cell[250233, 5860, 4323, 81, 71, "Output",ExpressionUUID->"0c1d5f52-7ac8-cc4f-8c25-8315afdbef75"],
Cell[254559, 5943, 3580, 54, 51, "Output",ExpressionUUID->"3aff1246-b274-ed40-9e00-9c86e5ffa7da"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[258188, 6003, 232, 4, 37, "Subsection",ExpressionUUID->"a284ef26-8e34-6a46-add0-58ca763030fd"],
Cell[258423, 6009, 274, 4, 33, "Text",ExpressionUUID->"bac22b6e-1167-574f-b46b-d7977bb0ade9"],
Cell[CellGroupData[{
Cell[258722, 6017, 21233, 553, 1649, "Input",ExpressionUUID->"a4a5a2ef-82ef-db4a-aaf7-2532406c342e"],
Cell[279958, 6572, 1427, 38, 51, "Output",ExpressionUUID->"d367b573-dd14-e24d-8814-cf33e2f7b6e8"],
Cell[281388, 6612, 2133, 56, 54, "Output",ExpressionUUID->"b0af1b42-fbf0-d544-8c57-d03a7ca5a22d"],
Cell[283524, 6670, 17827, 375, 121, "Output",ExpressionUUID->"ec6384b4-7485-9d4a-8d30-72432a23b48c"],
Cell[301354, 7047, 46716, 971, 286, "Output",ExpressionUUID->"882c8cc0-c776-5e4e-82bc-4d42531b7c40"],
Cell[348073, 8020, 17830, 382, 104, "Output",ExpressionUUID->"6893501a-cecf-3746-8349-602ae851c0a8"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[365964, 8409, 196, 3, 66, "Section",ExpressionUUID->"5f78e609-93e3-6949-b5aa-23a56c58bdda"],
Cell[CellGroupData[{
Cell[366185, 8416, 210, 4, 53, "Subsection",ExpressionUUID->"d059c78b-2c42-3747-b06d-d1d707520fbb"],
Cell[366398, 8422, 2607, 65, 143, "Text",ExpressionUUID->"7b536043-849c-8648-89d2-0aa1ca543f86"],
Cell[CellGroupData[{
Cell[369030, 8491, 15901, 379, 750, "Input",ExpressionUUID->"6b24ca7e-2b93-1c44-843d-46e0d2841a5f"],
Cell[384934, 8872, 1678, 37, 62, "Output",ExpressionUUID->"cdcd46c6-74c3-2341-817a-745698baca93"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[386661, 8915, 437, 7, 37, "Subsection",ExpressionUUID->"b59711b6-6669-3a4f-a257-a2f48375a655"],
Cell[387101, 8924, 731, 16, 33, "Text",ExpressionUUID->"f828c16b-64de-d54e-957f-0052765629d0"],
Cell[CellGroupData[{
Cell[387857, 8944, 23837, 580, 850, "Input",ExpressionUUID->"2e4ea7f8-4622-2d48-84ea-dd86f71c3b5b"],
Cell[411697, 9526, 713, 14, 32, "Output",ExpressionUUID->"43a1081e-3a7d-a049-9996-38a99d92f42c"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[412471, 9547, 159, 3, 66, "Section",ExpressionUUID->"e797e4fd-a8b8-7d45-a3a4-805b2896677b"],
Cell[CellGroupData[{
Cell[412655, 9554, 277, 5, 53, "Subsection",ExpressionUUID->"d6ceac55-b101-ca4a-9fd0-40d523931a9e"],
Cell[CellGroupData[{
Cell[412957, 9563, 9991, 244, 651, "Input",ExpressionUUID->"bafe4e56-b55b-464e-a028-9e7def16664d"],
Cell[422951, 9809, 350333, 6896, 176, "Output",ExpressionUUID->"ac9b86f1-05f7-ea46-92c1-9a421990f13e"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}
]
*)