(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 280279, 6421] NotebookOptionsPosition[ 277946, 6385] NotebookOutlinePosition[ 278318, 6401] CellTagsIndexPosition[ 278275, 6398] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"F", "[", "x_", "]"}], ":=", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"PolyLog", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["\[ExponentialE]", "x"]}]}], "]"}], "-", RowBox[{"PolyLog", "[", RowBox[{"2", ",", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", "x"]}]}], "]"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.737196866673444*^9, 3.737196875196076*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"748eabe5-c3d2-4801-b8b7-aa7a789097c7"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"G3", "[", RowBox[{"a_", ",", "b_"}], "]"}], ":=", RowBox[{ RowBox[{"F", "[", RowBox[{"a", "-", "b"}], "]"}], "+", RowBox[{"F", "[", RowBox[{"b", "-", "a"}], "]"}], "-", RowBox[{ FractionBox["\[Pi]", "2"], RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}]}]}]}], ";"}]], "Input", CellChangeTimes->{ 3.737201965981352*^9, {3.737202002231657*^9, 3.737202033142387*^9}, { 3.737202126146511*^9, 3.7372021534299583`*^9}, {3.7378972597648673`*^9, 3.7378972820313244`*^9}, {3.737897408257219*^9, 3.7378974198940997`*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"0ab29ce4-3405-44f4-bf4a-16ef730ff686"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"EnergySetup", "[", RowBox[{"n_", ",", "FacesCW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "i", ",", "rhoV", ",", "rhoF", ",", "include", ",", "LineFaces", ",", "f", ",", "Faces", ",", "NM", ",", "nonlinefaces", ",", "radii", ",", "RADII"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Faces", "=", RowBox[{"Sort", "/@", "FacesCW"}]}], ";", "\[IndentingNewLine]", RowBox[{"f", "=", RowBox[{"Length", "[", "Faces", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"LineFaces", "=", RowBox[{"{", "}"}]}], ";", RowBox[{"rhoV", "=", RowBox[{"Table", "[", RowBox[{ SubscriptBox["rV", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}]}], ";", RowBox[{"rhoF", "=", RowBox[{"Table", "[", RowBox[{ SubscriptBox["rF", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"f", "-", "2"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"include", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"nonlinefaces", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "f"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"-", "2"}]}], "]"}], "]"}], "\[Equal]", RowBox[{"n", "-", "1"}]}], "&&", RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"-", "1"}]}], "]"}], "]"}], "\[Equal]", "n"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "then", " ", "*)"}], " ", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"include", ",", "i"}], "]"}], ";", RowBox[{"AppendTo", "[", RowBox[{"nonlinefaces", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "else", " ", "*)"}], " ", RowBox[{"AppendTo", "[", RowBox[{"LineFaces", ",", "i"}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"NM", "=", RowBox[{"NMinimize", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], RowBox[{"f", "-", "2"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"Length", "[", RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"include", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "]"}], "]"}]], RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{ RowBox[{"include", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "<", RowBox[{"n", "-", "1"}]}], ",", RowBox[{"G3", "[", RowBox[{ SubscriptBox["rV", RowBox[{"Faces", "[", RowBox[{"[", RowBox[{ RowBox[{"include", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "i"}], "]"}], "]"}]], ",", SubscriptBox["rF", "k"]}], "]"}], ",", "0"}], "]"}]}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"n", "-", "2"}]], RowBox[{ SubscriptBox["rV", "i"], "\[Pi]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Flatten", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "m", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ",", "i"}], "]"}], ",", RowBox[{"(*", " ", "then", " ", "*)"}], " ", "1", ",", RowBox[{"(*", " ", "else", " ", "*)"}], " ", "2"}], "]"}]}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"f", "-", "2"}]], RowBox[{ SubscriptBox["rF", "j"], "\[Pi]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"include", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], "||", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"include", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], ",", "n"}], "]"}]}], ",", RowBox[{"(*", " ", "then", " ", "*)"}], " ", "1", ",", RowBox[{"(*", " ", "else", " ", "*)"}], " ", "2"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"n", "-", "2"}]], SubscriptBox["rV", "i"]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"f", "-", "2"}]], SubscriptBox["rF", "j"]}]}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"Join", "[", RowBox[{"rhoV", ",", "rhoF"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"RADII", "=", RowBox[{"Exp", "[", RowBox[{"Re", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{"rhoV", ",", "rhoF"}], "]"}], "/.", RowBox[{"(", RowBox[{"NM", "[", RowBox[{"[", "2", "]"}], "]"}], ")"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"RADII", "/=", RowBox[{"RADII", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"radii", "=", RowBox[{"<|", "|>"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"n", "-", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"radii", "[", "i", "]"}], "=", RowBox[{"RADII", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "nonlinefaces", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"radii", "[", RowBox[{"nonlinefaces", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "=", RowBox[{"RADII", "[", RowBox[{"[", RowBox[{"n", "-", "2", "+", "i"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"radii", ",", "LineFaces"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7372045119396753`*^9, 3.7372046545187597`*^9}, { 3.737204685631832*^9, 3.7372047308167467`*^9}, {3.737204773625032*^9, 3.7372048110040503`*^9}, {3.737204842780097*^9, 3.737204924806987*^9}, { 3.7372050053122187`*^9, 3.737205008911607*^9}, {3.73720504639081*^9, 3.7372051214979887`*^9}, {3.7372051736233463`*^9, 3.737205179673382*^9}, { 3.737205261713398*^9, 3.7372052618754*^9}, {3.737205306100531*^9, 3.737205373527009*^9}, {3.737205491627762*^9, 3.737205535178033*^9}, { 3.737206922016953*^9, 3.737206989324239*^9}, {3.737207032865409*^9, 3.737207073209803*^9}, {3.737284915566703*^9, 3.737284955928123*^9}, { 3.737371291071519*^9, 3.7373713419977837`*^9}, {3.737468221809287*^9, 3.737468222498644*^9}, 3.737468268451545*^9, {3.7374683559250183`*^9, 3.737468513179357*^9}, {3.737468554130938*^9, 3.7374685561663094`*^9}, { 3.7374686045167637`*^9, 3.737468621354309*^9}, {3.737468670066434*^9, 3.737468700374711*^9}, {3.73746873598547*^9, 3.737468789149178*^9}, { 3.737469118685132*^9, 3.737469121422579*^9}, {3.737891244695794*^9, 3.737891247299219*^9}, {3.737995135349449*^9, 3.73799513678258*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"72e544ec-21b3-4511-8714-78e40bf96f8f"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Boundary", "[", RowBox[{"n_", ",", "FacesCW_", ",", "LineFaces_", ",", "radii_", ",", RowBox[{"\[Epsilon]_:", "0"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "i", ",", "j", ",", "faces", ",", "vertices", ",", "lastvisited", ",", "d", ",", "h", ",", "H", ",", "breaker", ",", "unvisited", ",", "f", ",", "endcircle", ",", "ComputeEndcircle", ",", "ComputeEndcircle2", ",", "delete"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"unvisited", " ", "=", "FacesCW"}], ";", RowBox[{"(*", RowBox[{ "Keeps", " ", "track", " ", "of", " ", "the", " ", "faces", " ", "we", " ", RowBox[{"haven", "'"}], "t", " ", "visited"}], "*)"}], "\[IndentingNewLine]", RowBox[{"f", "=", RowBox[{"Length", "[", "FacesCW", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"faces", "=", RowBox[{"<|", "|>"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"centers", " ", "of", " ", "face", " ", "circles", " ", RowBox[{"(", RowBox[{ RowBox[{"or", " ", "normals"}], ",", " ", RowBox[{"for", " ", "lines"}]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "f"}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"vertices", "=", RowBox[{"<|", "|>"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"centers", " ", "of", " ", "vertex", " ", "circles", " ", RowBox[{"(", RowBox[{ RowBox[{"or", " ", "normals"}], ",", " ", RowBox[{"for", " ", "lines"}]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"n", "-", "2"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Radii", " ", "is", " ", "an", " ", "assoc", " ", "from", " ", "v"}], "\[Rule]", RowBox[{ RowBox[{"rad", " ", "and", " ", "facelist"}], "\[Rule]", "rad"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Vertex", " ", "circles", " ", "going", " ", "vertically", " ", "upwards", " ", "along", " ", "first", " ", "FaceLine"}], "*)"}], "\[IndentingNewLine]", RowBox[{"h", "=", "0"}], ";", " ", RowBox[{"(*", " ", RowBox[{"height", " ", "along", " ", "the", " ", "left", " ", "line"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{ RowBox[{"Length", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "]"}], "-", "2"}]}], RowBox[{"(*", RowBox[{ "Number", " ", "of", " ", "vertex", " ", "circles", " ", "that", " ", "lie", " ", "along", " ", "first", " ", "LineFace"}], "*)"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"vertices", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"h", "+", RowBox[{"radii", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}]}]}], "}"}]}], ";", RowBox[{"(*", RowBox[{ "Set", " ", "the", " ", "center", " ", "of", " ", "this", " ", "vertex", " ", "circle"}], "*)"}], "\[IndentingNewLine]", RowBox[{"h", "+=", RowBox[{"2", RowBox[{"radii", "[", RowBox[{"[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}], "]"}]}]}]}]}], "]"}], ";", RowBox[{"(*", RowBox[{ "Keeps", " ", "track", " ", "of", " ", "our", " ", "cumulative", " ", "height", " ", "as", " ", "we", " ", "climb", " ", "up", " ", "the", " ", "first", " ", "FaceLine"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"unvisited", "=", RowBox[{"Delete", "[", RowBox[{"unvisited", ",", RowBox[{"Position", "[", RowBox[{"unvisited", ",", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"d", "=", "0"}], ";", RowBox[{"(*", RowBox[{"Horizontal", " ", "distance"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ComputeEndcircle", "[", RowBox[{"prev_", ",", "face_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Returns", " ", "which", " ", "vertex", " ", "circle", " ", "we", " ", "calculated", " ", "last", " ", "based", " ", "on", " ", "previous", " ", "vertex", " ", "circle", " ", "and", " ", "face"}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", RowBox[{"n", "-", "1"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "2"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}], "\[Equal]", "prev"}], ",", "\[IndentingNewLine]", RowBox[{"(*", "then", "*)"}], RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", RowBox[{"n", "-", "1"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", "else", "*)"}], " ", RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", RowBox[{"n", "-", "1"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "2"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"endcircle", "=", RowBox[{"ComputeEndcircle", "[", RowBox[{"n", ",", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], ";", RowBox[{"(*", RowBox[{ RowBox[{ "Previous", " ", "vertex", " ", "circle", " ", "is", " ", "bottom", " ", "line"}], ",", " ", RowBox[{"face", " ", "is", " ", "first", " ", "FaceLine"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Face", " ", "circles", " ", "going", " ", "horizontally", " ", "across", " ", "upper", " ", "vertex", " ", "line"}], "*)"}], "\[IndentingNewLine]", RowBox[{"breaker", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "f"}], " ", ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "unvisited", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], ",", " ", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"determine", " ", "if", " ", "this", " ", "face"}], "-", RowBox[{"circle", " ", "contains", " ", "n"}], "-", "1"}], ",", " ", RowBox[{ "so", " ", "it", " ", "is", " ", "on", " ", "the", " ", "upper", " ", "vertex", " ", "line"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"ComputeEndcircle", "[", RowBox[{"endcircle", ",", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"determine", " ", "if", " ", "this", " ", "face"}], "-", RowBox[{ "circle", " ", "also", " ", "contains", " ", "the", " ", "vertex", " ", "right", " ", "before", " ", "n"}], "-", RowBox[{ "1", " ", "to", " ", "ensure", " ", "we", " ", "are", " ", "going", " ", "horizontally", " ", "across", " ", "in", " ", "the", " ", "right", " ", "order"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"If", " ", RowBox[{"we", "'"}], "ve", " ", "reached", " ", "the", " ", "second", " ", "faceline"}], ",", " ", RowBox[{"then", " ", "do", " ", RowBox[{"nothing", "--"}], "find", " ", "the", " ", "other", " ", "face", " ", "circle", " ", "containing", " ", "endcircle"}]}], "*)"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "else", " ", "if", " ", "the", " ", "face", " ", "circle", " ", "is", " ", "not", " ", "a", " ", "line"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"d", "+", RowBox[{"radii", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", "h"}], "}"}]}], ";", " ", RowBox[{"(*", RowBox[{ "Set", " ", "the", " ", "center", " ", "of", " ", "this", " ", "face", " ", "circle"}], "*)"}], "\[IndentingNewLine]", RowBox[{"d", "+=", RowBox[{"2", RowBox[{"radii", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{ "update", " ", "how", " ", "far", " ", "along", " ", "the", " ", "top", " ", "line", " ", "we", " ", "are"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"endcircle", "=", RowBox[{"ComputeEndcircle", "[", RowBox[{"endcircle", ",", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"(*", RowBox[{"Update", " ", "endcircle"}], "*)"}], "\[IndentingNewLine]", RowBox[{"unvisited", "=", RowBox[{"Delete", "[", RowBox[{"unvisited", ",", "i"}], "]"}]}], ";"}]}], "]"}]}], " ", RowBox[{"(*", " ", RowBox[{ "remove", " ", "that", " ", "face", " ", "from", " ", "the", " ", "unvisited", " ", "list"}], " ", "*)"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "Vertex", " ", "circles", " ", "along", " ", "the", " ", "second", " ", "FaceLine"}], ",", " ", RowBox[{"climbing", " ", "vertically", " ", "upwards"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"h", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{ RowBox[{"Length", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "]"}], "-", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"vertices", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{"d", ",", RowBox[{"h", "+", RowBox[{"radii", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}]}]}], "}"}]}], ";", RowBox[{"h", "+=", RowBox[{"2", RowBox[{"radii", "[", RowBox[{"[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}], "]"}]}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"H", "=", "h"}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", "0"}], ";", RowBox[{"(*", RowBox[{"Reset", " ", "height"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ComputeEndcircle2", "[", RowBox[{"prev_", ",", "face_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", "n"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "2"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}], "\[Equal]", "prev"}], ",", "\[IndentingNewLine]", RowBox[{"(*", "then", "*)"}], RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", "n"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", "else", "*)"}], " ", RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", "n"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "2"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"endcircle", "=", RowBox[{"ComputeEndcircle2", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "Face", " ", "circles", " ", "along", " ", "lower", " ", "vertex", " ", "line"}], ",", " ", RowBox[{ "moving", " ", "horizontally", " ", "from", " ", "origin", " ", "to", " ", "second", " ", "FaceLine"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"d", "=", "0"}], ";", RowBox[{"(*", RowBox[{"Reset", " ", "distance"}], "*)"}], "\[IndentingNewLine]", RowBox[{"breaker", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "f"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "unvisited", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "n"}], "]"}], ",", " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"determine", " ", "if", " ", "this", " ", "face"}], "-", RowBox[{"circle", " ", "contains", " ", "n"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "endcircle"}], RowBox[{"(*", " ", RowBox[{"ComputeEndcircle2", "[", RowBox[{"endcircle", ",", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], " ", "*)"}], "]"}], ",", RowBox[{"(*", " ", RowBox[{ RowBox[{"determine", " ", "if", " ", "this", " ", "face"}], "-", RowBox[{ "cirlce", " ", "also", " ", "contains", " ", "the", " ", "vertex", " ", "right", " ", "before", " ", "n"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"If", " ", RowBox[{"we", "'"}], "ve", " ", "reached", " ", "the", " ", "second", " ", "faceline"}], ",", " ", RowBox[{"then", " ", "do", " ", "nothing"}]}], "*)"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "else", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"d", "+", RowBox[{"radii", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", "h"}], "}"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"then", " ", RowBox[{"we", "'"}], "ll", " ", "make", " ", "this", " ", RowBox[{"face", "'"}], "s", " ", "center", " ", "be", " ", "where", " ", "we", " ", "know", " ", "it", " ", "is"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"d", "+=", RowBox[{"2", RowBox[{"radii", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{ "update", " ", "how", " ", "far", " ", "along", " ", "the", " ", "bottom", " ", "line", " ", "we", " ", "are"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"endcircle", "=", RowBox[{"ComputeEndcircle2", "[", RowBox[{"endcircle", ",", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"unvisited", "=", RowBox[{"Delete", "[", RowBox[{"unvisited", ",", "i"}], "]"}]}], ";"}]}], "]"}]}], " ", RowBox[{"(*", " ", RowBox[{ "remove", " ", "that", " ", "face", " ", "from", " ", "the", " ", "unvisited", " ", "list"}], " ", "*)"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Set", " ", "the", " ", "normals", " ", "of", " ", "the", " ", "vertex", " ", "lines", " ", "and", " ", "face", " ", "lines"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"vertices", "[", "n", "]"}], "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"vertices", "[", RowBox[{"n", "-", "1"}], "]"}], "=", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"ThrowOrderError", "[", RowBox[{ "faces", ",", "vertices", ",", "radii", ",", "d", ",", "H", ",", "n", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "]"}], "*=", RowBox[{"-", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "]"}], "*=", RowBox[{"-", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"i", "\[Equal]", RowBox[{"n", "-", "1"}]}], "||", RowBox[{"i", "\[Equal]", "n"}]}], ",", "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", "d"}], "]"}], "\[LessEqual]", "\[Epsilon]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", "0"}], "]"}], "\[LessEqual]", "\[Epsilon]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "=", RowBox[{"{", RowBox[{"d", ",", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}]}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Return", " ", "the", " ", RowBox[{"assoc", "'"}], "s", " ", "of", " ", "the", " ", "faces", " ", "to", " ", "their", " ", "centers", " ", "and", " ", "vertices", " ", "to", " ", "their", " ", "centers"}], "*)"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{"vertices", ",", "faces", ",", "d", ",", "H"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.737219030683413*^9, 3.737219068499385*^9}, { 3.737219129031519*^9, 3.737219157331717*^9}, {3.737219214776095*^9, 3.737219232499251*^9}, {3.737219530428797*^9, 3.737219737723432*^9}, { 3.737219973681823*^9, 3.737219981058498*^9}, {3.7372852522441998`*^9, 3.737285273052194*^9}, {3.737285379557729*^9, 3.7372853808850813`*^9}, { 3.737285506667365*^9, 3.737285515803762*^9}, {3.7372856044249487`*^9, 3.737285632285976*^9}, {3.7372857006889677`*^9, 3.7372857800137577`*^9}, { 3.73728584887117*^9, 3.737285857200169*^9}, {3.737286074306966*^9, 3.7372860829425373`*^9}, {3.7372861272847137`*^9, 3.737286147655734*^9}, { 3.737286180526772*^9, 3.737286183012919*^9}, {3.737286465705851*^9, 3.7372864888059*^9}, {3.7372865215606728`*^9, 3.737286606697309*^9}, { 3.737286645970365*^9, 3.737286648042437*^9}, {3.737286686140306*^9, 3.7372867642027607`*^9}, {3.737287269374832*^9, 3.737287342750917*^9}, { 3.737287384822444*^9, 3.7372877639349957`*^9}, {3.737287798168841*^9, 3.737287798698641*^9}, {3.737287874201215*^9, 3.737287886754616*^9}, { 3.73728794855105*^9, 3.73728794906709*^9}, {3.737287984087804*^9, 3.737287984258391*^9}, {3.737288167935055*^9, 3.7372881688958406`*^9}, { 3.737288229464828*^9, 3.7372884829941387`*^9}, {3.7372889651024017`*^9, 3.737289028710766*^9}, {3.73728913478118*^9, 3.7372891349574013`*^9}, { 3.737289176488153*^9, 3.7372892189711437`*^9}, {3.737289296434997*^9, 3.737289307920455*^9}, {3.737289377154367*^9, 3.7372893780167713`*^9}, { 3.73728946731621*^9, 3.7372894685890083`*^9}, {3.737289519964464*^9, 3.7372895646104527`*^9}, {3.737289627498472*^9, 3.7372896504948683`*^9}, { 3.737289698936853*^9, 3.7372897006060762`*^9}, {3.737289761143084*^9, 3.737289790713337*^9}, {3.737289852057372*^9, 3.737289856144655*^9}, { 3.7372899307846327`*^9, 3.737289954524984*^9}, {3.737290111472128*^9, 3.737290137729048*^9}, {3.7372903101204*^9, 3.7372903238682327`*^9}, { 3.737290363021036*^9, 3.737290395639821*^9}, {3.737290434642714*^9, 3.737290436215727*^9}, {3.737290481178443*^9, 3.737290524071663*^9}, { 3.737290651768982*^9, 3.7372906712458363`*^9}, {3.737290704533799*^9, 3.7372907061133537`*^9}, {3.737290744976763*^9, 3.737290766875083*^9}, { 3.737290999240056*^9, 3.737291019271243*^9}, {3.737291057840662*^9, 3.737291080456534*^9}, {3.737291128953987*^9, 3.737291140451013*^9}, { 3.737291260286092*^9, 3.7372914176080303`*^9}, {3.7372914768350573`*^9, 3.737291536874617*^9}, {3.7372915673943977`*^9, 3.73729157857458*^9}, { 3.73729459361259*^9, 3.737294594755714*^9}, {3.737294841256043*^9, 3.737294872151122*^9}, {3.73729499894667*^9, 3.737295013697496*^9}, { 3.737295117321186*^9, 3.737295146177869*^9}, {3.737295198600103*^9, 3.737295201561144*^9}, {3.737295332216126*^9, 3.7372953659228153`*^9}, { 3.7372958344031277`*^9, 3.737296025548025*^9}, {3.737302057273785*^9, 3.737302228939927*^9}, 3.7373022837982073`*^9, {3.737302343644175*^9, 3.737302375974662*^9}, 3.737302421339328*^9, {3.737302477569655*^9, 3.737302565791008*^9}, {3.737302777019927*^9, 3.737302823909573*^9}, { 3.737303123387793*^9, 3.737303214311923*^9}, {3.7373032530403357`*^9, 3.7373032965502157`*^9}, {3.737303417213832*^9, 3.737303518053563*^9}, { 3.737303590633803*^9, 3.737303600566893*^9}, {3.737303631996339*^9, 3.737303736869626*^9}, {3.737303779146243*^9, 3.737303825046517*^9}, { 3.737304130063211*^9, 3.737304181026523*^9}, {3.7373042470907288`*^9, 3.737304349277087*^9}, {3.7373043812177143`*^9, 3.737304407351365*^9}, { 3.737304581411367*^9, 3.737304616831106*^9}, {3.7373046620344*^9, 3.7373047068712873`*^9}, {3.737304771496949*^9, 3.7373048444644938`*^9}, { 3.737305306432076*^9, 3.7373053158581667`*^9}, {3.7373053546618013`*^9, 3.737305355635768*^9}, 3.7373054429132357`*^9, {3.737306098271888*^9, 3.737306106600956*^9}, {3.737306417696192*^9, 3.737306447095158*^9}, { 3.7373064781213903`*^9, 3.737306483985478*^9}, {3.737306573567268*^9, 3.737306587589746*^9}, {3.737306720838073*^9, 3.73730674819695*^9}, { 3.737306852180376*^9, 3.737306861658111*^9}, {3.737306929352565*^9, 3.7373069458296127`*^9}, {3.737306985973919*^9, 3.73730703321769*^9}, { 3.737307104020858*^9, 3.737307104380198*^9}, {3.7373072016479588`*^9, 3.737307219827284*^9}, {3.737307283259153*^9, 3.737307449938692*^9}, { 3.737307507268676*^9, 3.737307531627266*^9}, {3.737307624863483*^9, 3.737307630803578*^9}, 3.7373692366355057`*^9, {3.737378768428591*^9, 3.737378772696554*^9}, {3.737456548739272*^9, 3.737456676468967*^9}, { 3.737456732055797*^9, 3.737456785246457*^9}, {3.737456880379624*^9, 3.73745693261576*^9}, {3.7374569872793217`*^9, 3.737457002918715*^9}, { 3.737457034354722*^9, 3.7374570868457327`*^9}, {3.7374573446089993`*^9, 3.737457359698818*^9}, {3.737457621684537*^9, 3.737457654757286*^9}, { 3.7374577893447638`*^9, 3.7374578203273153`*^9}, 3.73745786787053*^9, { 3.737458414579453*^9, 3.7374584346434393`*^9}, {3.73745848723744*^9, 3.737458515616708*^9}, {3.737458663428769*^9, 3.73745867379788*^9}, { 3.737458742757172*^9, 3.7374588188135767`*^9}, {3.7374589524311037`*^9, 3.737458970370059*^9}, {3.737459004685546*^9, 3.737459017734614*^9}, { 3.737469143102393*^9, 3.737469152438889*^9}, {3.7374723221463118`*^9, 3.7374723517302732`*^9}, {3.737472517403573*^9, 3.73747252044235*^9}, { 3.737472566196344*^9, 3.737472599816885*^9}, {3.737472901109223*^9, 3.737472904411367*^9}, {3.737472959283648*^9, 3.737472959747048*^9}, { 3.737472997133112*^9, 3.737473040080291*^9}, {3.7374732109292183`*^9, 3.73747321567245*^9}, {3.737474220810277*^9, 3.737474243746545*^9}, { 3.737720030799748*^9, 3.7377200552173643`*^9}, {3.737720087337412*^9, 3.7377201185616283`*^9}, {3.737720170734948*^9, 3.737720176149166*^9}, { 3.7377202115121927`*^9, 3.7377202116963243`*^9}, {3.7377202481305037`*^9, 3.737720253754922*^9}, {3.73772028641499*^9, 3.7377203344757833`*^9}, { 3.737891223277732*^9, 3.7378912238571*^9}, {3.737906075544756*^9, 3.7379060758948555`*^9}, {3.737991347709439*^9, 3.7379913481113663`*^9}, { 3.7379951711905804`*^9, 3.7379951715466285`*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"34558bf5-30de-4efd-a85d-1e42927d2f41"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"FindRest", "[", RowBox[{ RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], ",", "r_", ",", "face_", ",", "vertices_", ",", "radii_", ",", "lines_"}], "]"}], ":=", RowBox[{"(*", " ", RowBox[{ "face", " ", "is", " ", "all", " ", "the", " ", "vertices", " ", "that", " ", "the", " ", "face", " ", "intersects"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], ",", RowBox[{"r", ":", " ", RowBox[{ "known", " ", "center", " ", "of", " ", "opposite", " ", "kind", " ", "and", " ", "its", " ", "radius", "\[IndentingNewLine]", "face"}], ":", " ", RowBox[{ "all", " ", "the", " ", "circles", " ", "of", " ", "its", " ", "kind", " ", "that", " ", "pass", " ", "thru", " ", "that", " ", "opposite", " ", "known", " ", "circle", "\[IndentingNewLine]", RowBox[{"vertices", ":", " ", RowBox[{ "all", " ", "the", " ", "circles", " ", "of", " ", "its", " ", "kind", " ", "that", " ", "are", " ", "tangent", " ", "to", " ", "the", " ", "one", " ", RowBox[{"we", "'"}], "e", " ", "looking", " ", "for"}]}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"verts", "=", "vertices"}], ",", "i", ",", "j", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Omega]", ",", RowBox[{"face2", "=", "face"}], ",", "b", ",", RowBox[{"b2", "=", "True"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], "||", RowBox[{"MemberQ", "[", RowBox[{"lines", ",", RowBox[{"face2", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{ RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "face2", "]"}]}], "&&", "b2"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], "&&", RowBox[{"!", RowBox[{"MemberQ", "[", RowBox[{"lines", ",", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"face2", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"face2", "[", RowBox[{"[", RowBox[{"i", ";;"}], "]"}], "]"}], ",", RowBox[{"face2", "[", RowBox[{"[", RowBox[{";;", RowBox[{"i", "-", "1"}]}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"b2", "=", "False"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"b", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{ RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "face2", "]"}]}], "&&", "b"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"lines", ",", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"face2", ",", RowBox[{"face2", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{ RowBox[{"Length", "[", "face2", "]"}], "-", "1"}]}], ",", RowBox[{"j", ">", "i"}], ",", RowBox[{"j", "--"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Phi]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", "x"}], ",", RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", "y"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "]"}], "/", "r"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"j", "+", RowBox[{ "1", " ", "refers", " ", "to", " ", "previously", " ", RowBox[{"computed", " ", "/", " ", "known"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Omega]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "/", "r"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"x", "+", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["r", "2"], "+", SuperscriptBox[ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "2"]}]], RowBox[{"Cos", "[", RowBox[{"\[Phi]", "-", "\[Theta]", "-", "\[Omega]"}], "]"}]}]}], ",", RowBox[{"y", "+", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["r", "2"], "+", SuperscriptBox[ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "2"]}]], RowBox[{"Sin", "[", RowBox[{"\[Phi]", "-", "\[Theta]", "-", "\[Omega]"}], "]"}]}]}]}], "}"}]}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";", RowBox[{"b", "=", "False"}], ";", "Break"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Phi]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", "x"}], ",", RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", "y"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "]"}], "/", "r"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"i", "-", RowBox[{ "1", " ", "refers", " ", "to", " ", "previously", " ", RowBox[{"computed", " ", "/", " ", "known"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Omega]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "/", "r"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"x", "+", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["r", "2"], "+", SuperscriptBox[ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "2"]}]], RowBox[{"Cos", "[", RowBox[{"\[Phi]", "+", "\[Theta]", "+", "\[Omega]"}], "]"}]}]}], ",", RowBox[{"y", "+", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["r", "2"], "+", SuperscriptBox[ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "2"]}]], RowBox[{"Sin", "[", RowBox[{"\[Phi]", "+", "\[Theta]", "+", "\[Omega]"}], "]"}]}]}]}], "}"}]}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", "verts"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->CompressedData[" 1:eJwd030s1HEcB/BfylGhk+tmultSuqz0uKhUSsyVHk/IlWr0YDJEU5e7DCc0 xE8RihBdiLsJV1mblsgqD7XuGnk4VNfJUw/S1Pq9v3989vrn8/lsn733WRwY LjplRFHUbqagpUVmqkRr2NG6wv0a7HQYuQXPRnmXwOv+3EpokxSqhF+2f38I lZsLGqBOPdYCk/t9u2FwUvkgPLRzgQFSUv4kVJm++QOL5xwwucQoqxYT51v7 mUGnzw+JDds9raDUoOPDKKO/ofC6yjQCpi1nxcGy28OJcBEtS4NU/lAWDGfb 58Nkn7W3oLjOuQwq3aOI5W6FatgYW/ACjnq2vyLzWroT0q+tNfC4W2sXbNHv 0sGevSnERzZheii6T8+IYbR0KjSFuoxG4nBt8xGomNtOFA28CyJ9m35JoTwj RQ7NFV40XHfKIhveiPxBvLxzpADy7vNL4Pkuk2pYvLRQBV/lmb2FNQFUNzT1 2DYIs/VaImvAVw+nDyYRU/7uG4WRvMeT8MJklbGM0VbQSdwaqOmNZbyaOasP zlJXfILdnDaiE+fpnnjk4K8lardZ1EDbc5wGmDplPgrr+DQrgXHEksODD35X Ewd/S4TQ7n3FMbhJ4BcEKcd1wVB+xicUFj35FA63rF9zAXI/512CPar5V6BP 2+l00n+6loZ3J1xyoNgvpgDuize+A1ewKAVkf/xeAQUlC5TwnOZ9ExwLbP4I n2kbB+BGrnoY9ndMjcEjs4t2p+GuLuF+yB2mg+CcBMcQyBp/GQYpm3lSyLZ1 yYIeFvJiyAt9Vg4V3hNKuKiqvgmK3AJa4HOxuo3st/PvgBnCsSEYwa00wD5b q5mFyCvagQ1POKa332HcvLKmAzYFeWlgvGU6UajzHoScEGocrr4pnYbub4X/ YH1tolER/qU3h8h2dHWGkqyFG+FRL9VBqBt6RPxl3HMYTn/7EwATv+VGwH/H FkZC694l0fCrRC6BveuzY6H96ityOFsWdg+WunYr4A8zWStcddmlDZaXxq2J /sD888pcYp/m5DIpY7PxBgEUXHT7qWBMtooi/gegIJ/I "], CellLabel->"In[5]:=",ExpressionUUID->"1669407f-19e4-41f4-83d2-404c097a4b8c"], Cell[BoxData[ RowBox[{ RowBox[{"Cull", "[", "assoc_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"vis", "=", RowBox[{"{", "}"}]}], ",", RowBox[{"unv", "=", RowBox[{"{", "}"}]}], ",", "i"}], "}"}], ",", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"Keys", "[", "assoc", "]"}], "]"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"assoc", "[", RowBox[{ RowBox[{"Keys", "[", "assoc", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], ",", RowBox[{"AppendTo", "[", RowBox[{"unv", ",", RowBox[{ RowBox[{"Keys", "[", "assoc", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"AppendTo", "[", RowBox[{"vis", ",", RowBox[{ RowBox[{"Keys", "[", "assoc", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";", RowBox[{"{", RowBox[{"vis", ",", "unv"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.737378883847493*^9, 3.7373790220179577`*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"0ca661cb-0814-4baa-8045-ccb6be11fd34"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Interior", "[", RowBox[{ "n_", ",", "FacesCW_", ",", "LineFaces_", ",", "radii_", ",", "vertices_", ",", "faces_", ",", "d_", ",", "h_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Vunv", "=", RowBox[{"{", "}"}]}], ",", RowBox[{"Funv", "=", RowBox[{"{", "}"}]}], ",", RowBox[{"Vvis", "=", RowBox[{"{", "}"}]}], ",", RowBox[{"Fvis", "=", RowBox[{"{", "}"}]}], ",", "i", ",", "j", ",", "f", ",", RowBox[{"verts", "=", "vertices"}], ",", "verts2", ",", RowBox[{"fcs", "=", "faces"}], ",", "fcs2", ",", "fi", ",", "vi", ",", "x", ",", "y", ",", "k", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "=", RowBox[{"Length", "[", "FacesCW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], ",", RowBox[{"AppendTo", "[", RowBox[{"Vunv", ",", "i"}], "]"}], ",", RowBox[{"AppendTo", "[", RowBox[{"Vvis", ",", "i"}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "f"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], ",", RowBox[{"AppendTo", "[", RowBox[{"Funv", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"AppendTo", "[", RowBox[{"Fvis", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{ RowBox[{"j", "\[LessEqual]", RowBox[{"n", "+", RowBox[{"Length", "[", "FacesCW", "]"}]}]}], "&&", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Length", "[", "Vunv", "]"}], "+", RowBox[{"Length", "[", "Funv", "]"}]}], ">", "0"}], ")"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "Fvis", "]"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"(*", " ", RowBox[{ "for", " ", "a", " ", "known", " ", "face", " ", "circle"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Intersection", "[", RowBox[{"Vvis", ",", RowBox[{"Fvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "]"}], "*", RowBox[{"Length", "[", RowBox[{"Intersection", "[", RowBox[{"Vunv", ",", RowBox[{"Fvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "]"}]}], ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"fi", "=", RowBox[{"Fvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "=", RowBox[{"fcs", "[", "fi", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"verts2", "=", RowBox[{"FindRest", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"radii", "[", "fi", "]"}], ",", "fi", ",", "verts", ",", "radii", ",", RowBox[{"{", RowBox[{ RowBox[{"n", "-", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"ThrowOrderError", "[", RowBox[{ "fcs", ",", "verts2", ",", "radii", ",", "d", ",", "h", ",", "n", ",", RowBox[{"{", RowBox[{ RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", "0"}], "]"}], ",", RowBox[{"verts", "=", RowBox[{"FindRest", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"radii", "[", "fi", "]"}], ",", RowBox[{"Reverse", "[", "fi", "]"}], ",", "verts", ",", "radii", ",", RowBox[{"{", RowBox[{ RowBox[{"n", "-", "1"}], ",", "n"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"verts", "=", "verts2"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Vvis", ",", "Vunv"}], "}"}], "=", RowBox[{"Cull", "[", "verts", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "Vvis", "]"}]}], ",", RowBox[{"i", "++"}], ",", " ", RowBox[{"(*", " ", RowBox[{ "for", " ", "a", " ", "known", " ", "vertex", " ", "circle"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"b", "=", "False"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "\[LessEqual]", RowBox[{"Length", "[", "Fvis", "]"}]}], ",", RowBox[{"k", "++"}], ",", RowBox[{"b", "=", RowBox[{"b", "||", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Fvis", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"Vvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", "True", ",", "False"}], "]"}]}]}]}], "]"}], ";", "b"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"b", "=", "False"}], ";", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "\[LessEqual]", RowBox[{"Length", "[", "Funv", "]"}]}], ",", RowBox[{"k", "++"}], ",", RowBox[{"b", "=", RowBox[{"b", "||", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Funv", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"Vvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", "True", ",", "False"}], "]"}]}]}]}], "]"}], ";", "b"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "then", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vi", "=", RowBox[{"Vvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "=", RowBox[{"verts", "[", "vi", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fcs2", "=", RowBox[{"FindRest", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"radii", "[", "vi", "]"}], ",", RowBox[{"FacesList", "[", RowBox[{"vi", ",", "FacesCW"}], "]"}], ",", "fcs", ",", "radii", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"ThrowOrderError", "[", RowBox[{ "fcs2", ",", "verts", ",", "radii", ",", "d", ",", "h", ",", "n", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"fcs", "=", RowBox[{"FindRest", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"radii", "[", "vi", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Reverse", "[", RowBox[{"FacesList", "[", RowBox[{"vi", ",", "FacesCW"}], "]"}], "]"}], ",", "fcs", ",", "radii", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"fcs", "=", "fcs2"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Fvis", ",", "Funv"}], "}"}], "=", RowBox[{"Cull", "[", "fcs", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"verts", ",", "fcs"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.737371589519445*^9, 3.7373715939907503`*^9}, { 3.7373717937672253`*^9, 3.737371867174656*^9}, {3.737371907831069*^9, 3.73737217884262*^9}, {3.7373722186269712`*^9, 3.737372303076326*^9}, { 3.737372765799387*^9, 3.737372795651403*^9}, {3.737372858097958*^9, 3.73737290560703*^9}, {3.7373729483086967`*^9, 3.737372962791078*^9}, { 3.737376949244026*^9, 3.737377199857114*^9}, {3.737378821576833*^9, 3.737378856709831*^9}, {3.737379029954533*^9, 3.737379249070065*^9}, { 3.737379302218759*^9, 3.737379442833221*^9}, {3.737379504802657*^9, 3.737379571504554*^9}, {3.73737972110927*^9, 3.737379741421777*^9}, { 3.737380015082492*^9, 3.737380027586205*^9}, {3.737380096483328*^9, 3.737380123433268*^9}, {3.737380170681796*^9, 3.7373801708619337`*^9}, { 3.737380320948838*^9, 3.7373804262726393`*^9}, {3.73738047325154*^9, 3.737380485443796*^9}, {3.737380518592564*^9, 3.737380537424242*^9}, { 3.737380576718589*^9, 3.737380596012712*^9}, {3.7373859949503098`*^9, 3.7373860041894217`*^9}, {3.7373893401960897`*^9, 3.737389340516891*^9}, { 3.737390296785729*^9, 3.7373904116517477`*^9}, {3.7373904724338512`*^9, 3.737390578698831*^9}, {3.737390622302457*^9, 3.737390636926055*^9}, 3.737390871387472*^9, {3.737391458456609*^9, 3.7373915337313957`*^9}, { 3.7373916762920856`*^9, 3.7373916866307707`*^9}, {3.737391755289661*^9, 3.737391760387761*^9}, {3.737392424160388*^9, 3.737392446839201*^9}, { 3.7373926496569033`*^9, 3.7373926770265007`*^9}, {3.737415538959766*^9, 3.737415550423221*^9}, {3.7374157811082497`*^9, 3.737415783008522*^9}, { 3.737416229137042*^9, 3.73741626934859*^9}, {3.737416301320304*^9, 3.7374164268381977`*^9}, {3.737416488079246*^9, 3.737416506542727*^9}, { 3.737418543755864*^9, 3.737418614467947*^9}, {3.73745208819372*^9, 3.7374521079510527`*^9}, {3.737452248507903*^9, 3.737452260807358*^9}, 3.737452337464182*^9, {3.737452547756901*^9, 3.737452552175274*^9}, { 3.737452597327281*^9, 3.737452623027234*^9}, {3.737452951467626*^9, 3.7374529538565903`*^9}, {3.7374529931356688`*^9, 3.73745300450865*^9}, { 3.737453253031118*^9, 3.7374532838306513`*^9}, {3.737453448755361*^9, 3.7374535016621037`*^9}, {3.737453540364457*^9, 3.7374535737880087`*^9}, { 3.7374536292349997`*^9, 3.737453661316655*^9}, {3.737453692604967*^9, 3.737453705446292*^9}, {3.7374538230331917`*^9, 3.737453850633659*^9}, { 3.7374540473125362`*^9, 3.73745406845465*^9}, {3.737454116980228*^9, 3.737454141500236*^9}, {3.737454665545776*^9, 3.737454752199181*^9}, { 3.737454823087352*^9, 3.737454936342786*^9}, {3.73745497887639*^9, 3.7374549822716417`*^9}, {3.737455062923647*^9, 3.737455067024728*^9}, { 3.7374592709534693`*^9, 3.737459282809087*^9}, {3.737459718460556*^9, 3.7374598283067007`*^9}, {3.737459871128312*^9, 3.737459943923081*^9}, { 3.737460424909642*^9, 3.737460468107106*^9}, {3.737460531451869*^9, 3.7374605342064867`*^9}, {3.737460570370933*^9, 3.73746065914788*^9}, { 3.737469228334271*^9, 3.7374692297752113`*^9}, {3.7374759421424723`*^9, 3.737475959220735*^9}, {3.737475996982561*^9, 3.737476043275124*^9}, { 3.7374760741261263`*^9, 3.7374762044096413`*^9}, {3.737476237384112*^9, 3.737476257932431*^9}, {3.737476290722767*^9, 3.7374763178872833`*^9}, { 3.737476633241235*^9, 3.73747668584684*^9}, {3.737476775880768*^9, 3.737476807271324*^9}, {3.737476934280177*^9, 3.7374769365813828`*^9}, { 3.737476994438554*^9, 3.7374770257193117`*^9}, {3.737478615746154*^9, 3.737478664034655*^9}, {3.737478700737122*^9, 3.737478703803566*^9}, { 3.737891193943988*^9, 3.7378911945027657`*^9}, {3.7379034272313843`*^9, 3.737903448515432*^9}, 3.737903546475888*^9}, CellLabel->"In[7]:=",ExpressionUUID->"8eb99bd7-ecdf-447b-9254-91418df0046a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ThrowOrderError", "[", RowBox[{ "fcs2_", ",", "verts_", ",", "radii_", ",", "d_", ",", "h_", ",", "n_", ",", "fls_", ",", "\[Epsilon]_"}], "]"}], RowBox[{"(*", " ", RowBox[{"fcs2", " ", "is", " ", "proposed", " ", "fcs", " ", RowBox[{"association", ".", " ", "fls"}], " ", "is", " ", "facelines"}], " ", "*)"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", "b", ",", "b2", ",", "K"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"K", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"Keys", "[", "fcs2", "]"}], "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"!", RowBox[{"MemberQ", "[", RowBox[{"fls", ",", RowBox[{ RowBox[{"Keys", "[", "fcs2", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ",", RowBox[{"AppendTo", "[", RowBox[{"K", ",", RowBox[{ RowBox[{"Keys", "[", "fcs2", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"b", "=", "False"}], ";", " ", RowBox[{"(*", " ", "\"\\"", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{ RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "K", "]"}]}], "&&", RowBox[{"!", "b"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"b2", "=", "False"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"-", "\[Infinity]"}], "<", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "<", "0"}], "\[IndentingNewLine]", "||", RowBox[{ RowBox[{"-", "\[Infinity]"}], "<", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "<", "0"}], "\[IndentingNewLine]", "||", RowBox[{ RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ">", "d"}], "\[IndentingNewLine]", "||", RowBox[{ RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ">", "h"}], "\[IndentingNewLine]", "||", RowBox[{"(", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"K", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"n", "-", "1"}]}], "&&", RowBox[{ RowBox[{"K", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "n"}], "&&", RowBox[{ RowBox[{"verts", "[", RowBox[{"K", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], "&&", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"EuclideanDistance", "[", RowBox[{ RowBox[{"verts", "[", RowBox[{"K", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], ",", RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "]"}], "\[GreaterEqual]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Epsilon]"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"radii", "[", RowBox[{"K", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], "+", RowBox[{"radii", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"b2", "=", "True"}], ";", "Break"}]}], "]"}]}], "]"}]}], "]"}], ";", "b2"}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"b", "=", "True"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{ RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "K", "]"}]}], "&&", RowBox[{"!", "b"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"i", "\[NotEqual]", "j"}], "&&", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], "&&", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], "&&", "\[IndentingNewLine]", RowBox[{ RowBox[{"EuclideanDistance", "[", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "]"}], "<", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "\[Epsilon]"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"radii", "[", RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"radii", "[", RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}]}], ")"}]}]}]}], "\[IndentingNewLine]", ",", RowBox[{"(*", " ", RowBox[{"then", ",", " ", "bad"}], " ", "*)"}], " ", RowBox[{"b", "=", "True"}]}], "]"}]}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{ RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"fls", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "&&", RowBox[{"!", "b"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"fls", "[", RowBox[{"[", RowBox[{"1", ",", "i"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{ FractionBox["d", "2"], "+", RowBox[{ RowBox[{ RowBox[{"fcs2", "[", RowBox[{"fls", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FractionBox["d", "2"]}]}]}], "&&", RowBox[{ RowBox[{"fls", "[", RowBox[{"[", RowBox[{"1", ",", "i"}], "]"}], "]"}], "<", RowBox[{"n", "-", "1"}]}]}], ",", RowBox[{"b", "=", "True"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{ RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"fls", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "&&", RowBox[{"!", "b"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"fls", "[", RowBox[{"[", RowBox[{"2", ",", "i"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{ FractionBox["d", "2"], "+", RowBox[{ RowBox[{ RowBox[{"fcs2", "[", RowBox[{"fls", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FractionBox["d", "2"]}]}]}], "&&", RowBox[{ RowBox[{"fls", "[", RowBox[{"[", RowBox[{"2", ",", "i"}], "]"}], "]"}], "<", RowBox[{"n", "-", "1"}]}]}], ",", RowBox[{"b", "=", "True"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "b"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7373860513513117`*^9, 3.737386324009047*^9}, { 3.7373863565686207`*^9, 3.737386763058362*^9}, {3.737387011692689*^9, 3.7373874131979523`*^9}, {3.737387444285528*^9, 3.737387446417802*^9}, { 3.737387501724284*^9, 3.7373875162781897`*^9}, {3.7373875865809803`*^9, 3.7373876073787117`*^9}, {3.737387674890192*^9, 3.737387682382772*^9}, { 3.737387740454358*^9, 3.7373877582071867`*^9}, {3.737387870977488*^9, 3.737387912943714*^9}, {3.737388020284473*^9, 3.7373880216503363`*^9}, { 3.7373881133311872`*^9, 3.7373881231093473`*^9}, {3.737388218003031*^9, 3.737388251234787*^9}, {3.737388306336886*^9, 3.7373884325997267`*^9}, { 3.73738859353605*^9, 3.737388596101646*^9}, {3.7373886515625*^9, 3.737388731115857*^9}, {3.737388764603668*^9, 3.7373887825179358`*^9}, { 3.737388827395173*^9, 3.73738885534306*^9}, {3.7373889569580507`*^9, 3.7373891513974247`*^9}, {3.737389185971114*^9, 3.737389229300188*^9}, { 3.7373892871568117`*^9, 3.73738930336942*^9}, {3.737451960169162*^9, 3.737451962438613*^9}, {3.737452188533687*^9, 3.7374522140811863`*^9}, { 3.7374523846778708`*^9, 3.737452411688586*^9}, {3.7374524423850327`*^9, 3.7374525059763308`*^9}, {3.7374527627193413`*^9, 3.7374528272523108`*^9}, {3.7374529127507477`*^9, 3.737452943447597*^9}, { 3.737453021653625*^9, 3.737453033081242*^9}, 3.737453194007431*^9, { 3.737457949590412*^9, 3.737458106215234*^9}, {3.737458155680525*^9, 3.737458160666041*^9}, {3.7374582249762278`*^9, 3.737458233452886*^9}, 3.7379035853422227`*^9, {3.7379952037395506`*^9, 3.7379952046351557`*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"df3b60f9-0301-4a00-901e-3f42ad1f6dcc"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FacesList", "[", RowBox[{"v_", ",", "Faces_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ContainV", "=", RowBox[{"{", "}"}]}], ",", "i", ",", RowBox[{"L", "=", "2"}], ",", RowBox[{"p", "=", "3"}], ",", "temp"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "Faces", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "v"}], "]"}], ",", RowBox[{"AppendTo", "[", RowBox[{"ContainV", ",", RowBox[{"Faces", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"L", "<", RowBox[{"Length", "[", "ContainV", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{"p", "\[LessEqual]", RowBox[{"Length", "[", "ContainV", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Intersection", "[", RowBox[{ RowBox[{"ContainV", "[", RowBox[{"[", RowBox[{"L", "-", "1"}], "]"}], "]"}], ",", RowBox[{"ContainV", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], "]"}], "\[Equal]", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"temp", "=", RowBox[{"ContainV", "[", RowBox[{"[", "p", "]"}], "]"}]}], ";", RowBox[{ RowBox[{"ContainV", "[", RowBox[{"[", "p", "]"}], "]"}], "=", RowBox[{"ContainV", "[", RowBox[{"[", "L", "]"}], "]"}]}], ";", RowBox[{ RowBox[{"ContainV", "[", RowBox[{"[", "L", "]"}], "]"}], "=", "temp"}], ";", RowBox[{"p", "=", RowBox[{"1", "+", RowBox[{"Length", "[", "ContainV", "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{"p", "++"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"L", "++"}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"L", "+", "1"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "ContainV"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7373893963188553`*^9, 3.737389499461423*^9}, { 3.737389625681715*^9, 3.7373896502694798`*^9}, {3.7373897037433033`*^9, 3.737389735684783*^9}, {3.737389775354559*^9, 3.737389877602042*^9}, { 3.737389938671054*^9, 3.737389955021085*^9}, {3.737390098064752*^9, 3.7373901898598967`*^9}, {3.7373902333090754`*^9, 3.737390260404229*^9}, { 3.737477725750886*^9, 3.7374777259423532`*^9}, {3.737477772140749*^9, 3.737477809678876*^9}, {3.737477865110086*^9, 3.7374778881276903`*^9}, { 3.7374781429692793`*^9, 3.737478158525076*^9}, {3.737478266335372*^9, 3.737478275141066*^9}, {3.7374783969519587`*^9, 3.7374784008097754`*^9}, { 3.737903596846489*^9, 3.737903597250413*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"94e58c8f-e9bc-4bc5-9f72-1e7d65b723b4"], Cell[BoxData[ RowBox[{ RowBox[{"Q", "=", RowBox[{"(", GridBox[{ {"0", RowBox[{"1", "/", "2"}], "0", "0"}, { RowBox[{"1", "/", "2"}], "0", "0", "0"}, {"0", "0", RowBox[{"-", "1"}], "0"}, {"0", "0", "0", RowBox[{"-", "1"}]} }], ")"}]}], ";"}]], "Input", CellLabel->"In[10]:=",ExpressionUUID->"e0269727-13f8-41e1-9bed-e3d214f9ade5"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"InvCoords", "[", RowBox[{"z_", ",", "r_", ",", RowBox[{"d_:", "0"}]}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"r", "\[Equal]", "\[Infinity]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "d"}], ",", "0", ",", "z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"Norm", "[", "z", "]"}], "2"], "r"], "-", "r"}], ",", RowBox[{"1", "/", "r"}], ",", RowBox[{"z", "/", "r"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellLabel->"In[11]:=",ExpressionUUID->"335fc47c-61a3-4d42-b8dc-1a6e429b3dbb"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Gram", "[", "SC_", "]"}], ":=", RowBox[{"SC", ".", "Q", ".", RowBox[{"Transpose", "[", "SC", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SuperCluster", "[", RowBox[{ "vertices_", ",", "faces_", ",", "radii_", ",", "fls_", ",", "d_", ",", "h_", ",", "n_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sc", "=", RowBox[{"{", "}"}]}], ",", "i"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"n", "-", "2"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], ",", RowBox[{"radii", "[", "i", "]"}]}], "]"}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"vertices", "[", RowBox[{"n", "-", "1"}], "]"}], ",", "\[Infinity]", ",", RowBox[{ FractionBox["h", "2"], "+", RowBox[{ RowBox[{ RowBox[{"vertices", "[", RowBox[{"n", "-", "1"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], FractionBox["h", "2"]}]}]}], "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"vertices", "[", "n", "]"}], ",", "\[Infinity]", ",", RowBox[{ FractionBox["h", "2"], "+", RowBox[{ RowBox[{ RowBox[{"vertices", "[", "n", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], FractionBox["h", "2"]}]}]}], "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"Keys", "[", "faces", "]"}], "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"!", RowBox[{"MemberQ", "[", RowBox[{"fls", ",", RowBox[{ RowBox[{"Keys", "[", "faces", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"faces", "[", RowBox[{ RowBox[{"Keys", "[", "faces", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"radii", "[", RowBox[{ RowBox[{"Keys", "[", "faces", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"faces", "[", RowBox[{"fls", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", "\[Infinity]", ",", RowBox[{ FractionBox["d", "2"], "+", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"fls", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FractionBox["d", "2"]}]}]}], "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"faces", "[", RowBox[{"fls", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", "\[Infinity]", ",", RowBox[{ FractionBox["d", "2"], "+", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"fls", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FractionBox["d", "2"]}]}]}], "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "sc"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellLabel->"In[12]:=",ExpressionUUID->"8f83b82e-c1db-40d9-ac4c-a723737f7704"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DrawCircle", "[", RowBox[{"{", RowBox[{"bhat_", ",", "b_", ",", "bx_", ",", "by_"}], "}"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "b", "]"}], "\[GreaterEqual]", " ", ".01"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"bx", ",", "by"}], "}"}], "/", "b"}], ",", RowBox[{"1", "/", "b"}]}], "]"}], ",", RowBox[{"InfiniteLine", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"bx", ",", "by"}], "}"}], RowBox[{"bhat", "/", "2"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "by"}], ",", "bx"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7383666121648498`*^9, 3.7383666304241414`*^9}, { 3.738366663056327*^9, 3.738366710683964*^9}, {3.7383669102892475`*^9, 3.73836691462473*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"d37cc6ff-e0b5-488e-9c86-c606b2039282"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Packing", "[", RowBox[{"n_", ",", "FacesCW_", ",", RowBox[{"\[Epsilon]_:", "0"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "radii", ",", "LineFaces", ",", "vertices", ",", "faces", ",", "d", ",", "h"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"radii", ",", "LineFaces"}], "}"}], "=", RowBox[{"EnergySetup", "[", RowBox[{"n", ",", "FacesCW"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"vertices", ",", "faces", ",", "d", ",", "h"}], "}"}], "=", RowBox[{"Boundary", "[", RowBox[{ "n", ",", "FacesCW", ",", "LineFaces", ",", "radii", ",", "\[Epsilon]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"vertices", ",", "faces"}], "}"}], "=", RowBox[{"Interior", "[", RowBox[{ "n", ",", "FacesCW", ",", "LineFaces", ",", "radii", ",", "vertices", ",", "faces", ",", "d", ",", "h"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "vertices", ",", "faces", ",", "radii", ",", "d", ",", "h", ",", "LineFaces"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.737469007369687*^9, 3.737469107407995*^9}, { 3.73746916343927*^9, 3.737469194858486*^9}, {3.737469239984439*^9, 3.737469246965393*^9}, {3.737469315964088*^9, 3.737469336634994*^9}, { 3.737469428057992*^9, 3.737469432696295*^9}, {3.737469465014307*^9, 3.737469481114959*^9}, {3.7374695687460957`*^9, 3.7374696091341476`*^9}, { 3.737470455200612*^9, 3.7374704661283417`*^9}, {3.737478361306628*^9, 3.7374783619053802`*^9}, {3.737720455890616*^9, 3.737720462414033*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"9a3eb7b4-a69e-4770-9009-32f6122d8145"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Render", "[", RowBox[{ "radii_", ",", "fcs_", ",", "verts_", ",", "fls_", ",", "n_", ",", "d_", ",", "h_"}], "]"}], ":=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", "Thick", ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", RowBox[{"n", "-", "1"}]}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}], ",", "h"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"d", "+", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}], ",", "h"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", "n"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"d", "+", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}], ",", "0"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"verts", "[", RowBox[{ RowBox[{"Keys", "[", "verts", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"radii", "[", RowBox[{ RowBox[{"Keys", "[", "verts", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", "Dashed", ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Keys", "[", "fcs", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", RowBox[{"fls", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"h", "+", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Keys", "[", "fcs", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", RowBox[{"fls", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d", ",", RowBox[{"-", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"d", ",", RowBox[{"h", "+", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"fcs", "[", RowBox[{ RowBox[{"Keys", "[", "fcs", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"radii", "[", RowBox[{ RowBox[{"Keys", "[", "fcs", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", RowBox[{"Keys", "[", "fcs", "]"}], "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7373911026555433`*^9, 3.737391276476068*^9}, { 3.737391324439508*^9, 3.737391325806115*^9}, {3.7373913655803022`*^9, 3.73739137356105*^9}, {3.737460834501174*^9, 3.7374608791258917`*^9}, { 3.737460909495472*^9, 3.737460979640925*^9}, {3.737469858560081*^9, 3.737469918056663*^9}, {3.73746995156046*^9, 3.7374701969102716`*^9}, { 3.737470230362206*^9, 3.737470299948655*^9}, 3.7378928141832247`*^9}, CellLabel->"In[16]:=",ExpressionUUID->"affbea28-f93e-449d-873a-65b52e624ef9"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SendToInt", "[", RowBox[{"\[Epsilon]_:", "0"}], "]"}], "[", "y_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"x", "=", RowBox[{"Simplify", "[", "y", "]"}]}], "}"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "-", RowBox[{"Floor", "[", "x", "]"}]}], "]"}], "\[LessEqual]", "\[Epsilon]"}], " ", ",", RowBox[{"Floor", "[", "x", "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "-", RowBox[{"Ceiling", "[", "x", "]"}]}], "]"}], "\[LessEqual]", " ", "\[Epsilon]"}], " ", ",", RowBox[{"Ceiling", "[", "x", "]"}], ",", "x"}], "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7384110559425135`*^9, 3.7384110603257904`*^9}, { 3.7384111195493803`*^9, 3.7384111627798147`*^9}, {3.738880289322649*^9, 3.7388803034648275`*^9}}, CellLabel-> "In[102]:=",ExpressionUUID->"15495297-a588-42f2-9830-ff3a5a9d76a4"], Cell[BoxData[{ RowBox[{ RowBox[{"R", "[", "vhat_", "]"}], ":=", RowBox[{ RowBox[{"IdentityMatrix", "[", "4", "]"}], "+", RowBox[{"2", RowBox[{"Q", ".", RowBox[{"Transpose", "[", RowBox[{"{", "vhat", "}"}], "]"}], ".", RowBox[{"{", "vhat", "}"}]}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BMat", "[", "n_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"b", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bend4", "[", RowBox[{"V_", ",", "n_"}], "]"}], "[", "i_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"B", "=", RowBox[{ RowBox[{"Bend3", "[", RowBox[{"V", ",", "n", ",", "Integers"}], "]"}], "[", "i", "]"}]}], "}"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "B", "]"}], ">", "0"}], ",", RowBox[{"{", RowBox[{"B", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Bend3", "[", RowBox[{"V", ",", "n", ",", "Reals"}], "]"}], "[", "i", "]"}], ",", "\"\\""}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"Bend3", "[", RowBox[{"V_", ",", "n_", ",", RowBox[{"RING_:", " ", "Integers"}]}], "]"}], "[", "i_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "sol", ",", "assignments", ",", "rest", ",", "j", ",", "l", ",", "others1", ",", "others2", ",", "co", ",", "cl"}], "}"}], ",", RowBox[{ RowBox[{"cl", "=", RowBox[{"V", "[", RowBox[{"[", RowBox[{";;", "n"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"co", "=", RowBox[{"V", "[", RowBox[{"[", RowBox[{ RowBox[{"n", "+", "1"}], ";;"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BMat", "[", "n", "]"}], ".", "cl"}], "\[Equal]", RowBox[{"cl", ".", RowBox[{"R", "[", RowBox[{"co", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}], ",", "RING"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"sol", "\[Equal]", RowBox[{"{", "}"}]}], ",", "Null", ",", RowBox[{ RowBox[{"sol", "=", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"assignments", "=", RowBox[{"Association", "[", "sol", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rest", "=", RowBox[{"Complement", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"BMat", "[", "n", "]"}], "]"}], ",", RowBox[{"Keys", "[", "assignments", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"l", "=", RowBox[{"Length", "[", "rest", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"l", "\[Equal]", "0"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"BMat", "[", "n", "]"}], "/.", "assignments"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"C", "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "4", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "5", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "6", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "7", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "8", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "9", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "10", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "11", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "12", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "13", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "14", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "15", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "16", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "17", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "18", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "19", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "20", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "21", "]"}], "\[Rule]", "0"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"others1", "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{"rest", "\[Equal]", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "l"}], "}"}]}], "]"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"others2", "=", RowBox[{"<|", "|>"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "l"}], ",", RowBox[{"j", "++"}], ",", RowBox[{ RowBox[{"others2", "[", RowBox[{"rest", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "=", RowBox[{"Subscript", "[", RowBox[{"a", ",", "j"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"others2", "=", RowBox[{"Normal", "[", "others2", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BMat", "[", "n", "]"}], "/.", RowBox[{"(", RowBox[{"assignments", "/.", "others1"}], ")"}]}], ")"}], "/.", "others1"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.7378245147847567`*^9, 3.737824531315222*^9}, { 3.737995674554207*^9, 3.7379956992022705`*^9}, 3.7380623568729105`*^9, { 3.739142905332818*^9, 3.7391429137253246`*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"cd35cdcc-79cb-420e-8b24-2c510cf42e01"], Cell[BoxData[ RowBox[{ RowBox[{"Everything", "[", RowBox[{"n_", ",", "FacesCW_", ",", RowBox[{"\[Epsilon]_:", "0"}], ",", "steps_", ",", RowBox[{"sizemax_:", "\[Infinity]"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"vertices", ",", "faces", ",", RowBox[{"f", "=", RowBox[{"Length", "[", "FacesCW", "]"}]}], ",", "radii", ",", "d", ",", "h", ",", "LineFaces", ",", "Vnye", ",", "Vout", ",", RowBox[{"bends", "=", RowBox[{"{", "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ "vertices", ",", "faces", ",", "radii", ",", "d", ",", "h", ",", "LineFaces"}], "}"}], "=", RowBox[{"Packing", "[", RowBox[{"n", ",", "FacesCW", ",", "\[Epsilon]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Vnye", "=", RowBox[{ RowBox[{"SendToInt", "[", "\[Epsilon]", "]"}], "//@", RowBox[{"SuperCluster", "[", RowBox[{"vertices", ",", "faces", ",", "radii", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}], ",", "d", ",", "h", ",", "n"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Vout", "=", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"RootApproximant", "[", "Vnye", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"bends", "=", RowBox[{ RowBox[{"Bend4", "[", RowBox[{ RowBox[{"Vout", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "n"}], "]"}], "/@", RowBox[{"Range", "@", "f"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Render", "[", RowBox[{"radii", ",", "faces", ",", "vertices", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}], ",", "n", ",", "d", ",", "h"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Thick", ",", " ", RowBox[{"DrawCircle", "/@", RowBox[{"Orbit", "[", RowBox[{ RowBox[{"Vnye", "[", RowBox[{"[", RowBox[{ RowBox[{"-", "f"}], ";;"}], "]"}], "]"}], ",", RowBox[{"Vnye", "[", RowBox[{"[", RowBox[{";;", "n"}], "]"}], "]"}], ",", "steps", ",", "sizemax"}], "]"}]}], ",", "Red", ",", RowBox[{"DrawCircle", "/@", RowBox[{"Vnye", "[", RowBox[{"[", RowBox[{ RowBox[{"-", "f"}], ";;"}], "]"}], "]"}]}], ",", " ", "Blue", ",", " ", RowBox[{"DrawCircle", "/@", RowBox[{"Vnye", "[", RowBox[{"[", RowBox[{";;", "n"}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "d"}], ",", RowBox[{"2", " ", "d"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1.2"}], " ", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}], ",", RowBox[{"h", "+", RowBox[{"1.2", " ", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}]}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotRangeClipping", "->", "True"}]}], "]"}], ",", "\[IndentingNewLine]", "Vout", ",", "\[IndentingNewLine]", "bends", ",", "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"RootApproximant", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"SendToInt", "[", "\[Epsilon]", "]"}], "//@", RowBox[{"Gram", "[", RowBox[{"SuperCluster", "[", RowBox[{"vertices", ",", "faces", ",", "radii", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}], ",", "d", ",", "h", ",", "n"}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.737470377365205*^9, 3.737470438059895*^9}, { 3.737470482386249*^9, 3.7374706291316*^9}, {3.737471365625141*^9, 3.737471391640571*^9}, {3.737471696917704*^9, 3.7374717170638113`*^9}, { 3.737471876518211*^9, 3.737471941864938*^9}, {3.737716963448217*^9, 3.737716980888073*^9}, {3.737720445151472*^9, 3.737720446702874*^9}, { 3.737824443162737*^9, 3.737824455449666*^9}, {3.7378912948360367`*^9, 3.73789135603367*^9}, {3.737891444682703*^9, 3.7378914866810017`*^9}, { 3.7378915925235357`*^9, 3.737891593055147*^9}, {3.737905867803301*^9, 3.737905868137411*^9}, {3.73799267567642*^9, 3.737992677471591*^9}, { 3.7379929469710035`*^9, 3.7379929651434455`*^9}, {3.7379930588897543`*^9, 3.737993076943515*^9}, {3.7380635255102654`*^9, 3.7380635290957108`*^9}, { 3.7380636676088915`*^9, 3.7380636745872297`*^9}, {3.7380638177433786`*^9, 3.738063855095478*^9}, {3.738063909642552*^9, 3.7380639110946693`*^9}, { 3.7380639502698975`*^9, 3.738063956902152*^9}, {3.7380640873173466`*^9, 3.7380641169740276`*^9}, {3.7380642823624744`*^9, 3.738064323475514*^9}, { 3.7380643636749973`*^9, 3.7380643981976967`*^9}, {3.738064443997203*^9, 3.738064444270455*^9}, {3.7380646319055905`*^9, 3.7380646323294573`*^9}, { 3.738064693256534*^9, 3.738064738370883*^9}, {3.738064780948996*^9, 3.738064783577959*^9}, {3.738064816492895*^9, 3.738064820860215*^9}, { 3.738064905554728*^9, 3.738064908135788*^9}, {3.73806511977873*^9, 3.7380651218093004`*^9}, {3.738065157856887*^9, 3.7380651636254597`*^9}, { 3.738065275188075*^9, 3.738065299386354*^9}, {3.738065349198165*^9, 3.738065417491501*^9}, {3.738065502923974*^9, 3.7380655312192965`*^9}, { 3.738065586862509*^9, 3.7380656114477196`*^9}, {3.7383667450964403`*^9, 3.7383667808971167`*^9}, {3.7383668404673557`*^9, 3.7383668491723013`*^9}, {3.738366884492676*^9, 3.738366899165487*^9}, { 3.7383669350551987`*^9, 3.738366935597023*^9}, {3.738406454334059*^9, 3.7384064778900304`*^9}, {3.7384065311871557`*^9, 3.7384065390999947`*^9}, {3.7384088785270195`*^9, 3.738408882012842*^9}, { 3.7384089293051987`*^9, 3.738408929489704*^9}, {3.7384091549149723`*^9, 3.7384091574651527`*^9}, {3.7384095341398277`*^9, 3.738409537195654*^9}, { 3.738410849524389*^9, 3.7384108842784495`*^9}, {3.73841104193098*^9, 3.738411045112468*^9}, {3.738411222945875*^9, 3.738411223086499*^9}, { 3.738411291901064*^9, 3.7384112938647933`*^9}, {3.7384113284900064`*^9, 3.738411336118482*^9}, {3.7384113742605715`*^9, 3.738411385112833*^9}, { 3.738411497441986*^9, 3.7384115195708466`*^9}, {3.7384115693655043`*^9, 3.73841163508772*^9}, {3.738411670899951*^9, 3.7384116724797554`*^9}, { 3.738411750114659*^9, 3.73841176516743*^9}, {3.738411889531969*^9, 3.738411889696562*^9}, {3.7385985625147996`*^9, 3.738598562667409*^9}, { 3.738598719985386*^9, 3.738598730957058*^9}, {3.7386013106761007`*^9, 3.7386013108386655`*^9}, {3.738683755836348*^9, 3.7386837560148706`*^9}, { 3.738880307916935*^9, 3.73888032094709*^9}, 3.7391429176438756`*^9}, CellLabel->"In[36]:=",ExpressionUUID->"b49300f9-4eb0-4e74-b00e-238ad2cc61d5"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Orbit", "[", RowBox[{"co_", ",", "cl_", ",", "steps_", ",", RowBox[{"sizemax_:", "\[Infinity]"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", "k", ",", RowBox[{"orbit", "=", "cl"}], ",", "L"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "steps"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"L", "=", RowBox[{"Length", "[", "orbit", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "co", "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "\[LessEqual]", "L"}], ",", RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ "orbit", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ".", RowBox[{"R", "[", RowBox[{ "co", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], "]"}]}], ")"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[LessEqual]", "sizemax"}], "&&", RowBox[{"!", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"N", "[", "orbit", "]"}], ",", ".001"}], "]"}], ",", RowBox[{"Round", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{ "orbit", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ".", RowBox[{"R", "[", RowBox[{ "co", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], "]"}]}], "]"}], ",", ".001"}], "]"}]}], RowBox[{"(*", RowBox[{"new", " ", "thing"}], "*)"}], "]"}]}]}], ",", RowBox[{"AppendTo", "[", RowBox[{"orbit", ",", RowBox[{ RowBox[{ "orbit", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ".", RowBox[{"R", "[", RowBox[{ "co", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], "]"}]}]}], RowBox[{"(*", "newthing", "*)"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "orbit"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.738062389806858*^9, 3.738062427087122*^9}, { 3.7380625273360224`*^9, 3.7380625840383434`*^9}, {3.738064608037428*^9, 3.738064608439394*^9}, {3.738408767299783*^9, 3.738408799676605*^9}, { 3.7385983894314737`*^9, 3.738598391136881*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"b43a5c15-ff8f-4841-a157-1d63bba9b7c4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Everything", "[", RowBox[{"7", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "6"}], "}"}]}], "}"}], ",", RowBox[{"1", "/", "100"}], ",", "5", ",", "32"}], "]"}]], "Input", CellChangeTimes->{{3.737720388591385*^9, 3.7377204147139273`*^9}, { 3.73799104566405*^9, 3.737991046219566*^9}, {3.7379911247406125`*^9, 3.737991126272558*^9}, 3.737992714004908*^9, {3.7383399270780163`*^9, 3.738339928102619*^9}, {3.7383399833318253`*^9, 3.738340023435418*^9}, { 3.7383669397920876`*^9, 3.73836699772031*^9}, {3.7383676488210897`*^9, 3.738367650275752*^9}, {3.738411438453149*^9, 3.738411446817583*^9}, { 3.7384118416165533`*^9, 3.7384118445254*^9}, {3.738598401775426*^9, 3.7385984461068387`*^9}, {3.7385990810798445`*^9, 3.738599088815607*^9}, { 3.7386012597855043`*^9, 3.738601302494419*^9}, {3.738601598678238*^9, 3.738601639289603*^9}, {3.7386020946534925`*^9, 3.738602107358418*^9}, { 3.738602356489482*^9, 3.7386024023996735`*^9}, {3.7386031000929813`*^9, 3.738603131634983*^9}, {3.7386033447555046`*^9, 3.7386033939261928`*^9}, { 3.7386034982796383`*^9, 3.738603546222398*^9}, {3.738604540558546*^9, 3.7386046018698397`*^9}, {3.7386047974364233`*^9, 3.738604843888815*^9}, { 3.738605068506323*^9, 3.738605111398295*^9}, {3.7386052759377117`*^9, 3.738605335274602*^9}, {3.7386059315047274`*^9, 3.7386059872695265`*^9}, { 3.738606093824689*^9, 3.7386061370936213`*^9}, {3.738668592742067*^9, 3.7386686395816746`*^9}, {3.7386688556597276`*^9, 3.7386689139191813`*^9}, {3.73866909759364*^9, 3.7386691636266375`*^9}, { 3.7386693665464325`*^9, 3.73866937784991*^9}, {3.7386705904840393`*^9, 3.7386706292522974`*^9}, {3.738671416632803*^9, 3.738671464621436*^9}, { 3.7386715214288125`*^9, 3.7386715217948365`*^9}, {3.7386716018550005`*^9, 3.738671648743537*^9}, {3.7386718023143125`*^9, 3.73867183494204*^9}, { 3.7386720871598883`*^9, 3.7386721271908216`*^9}, {3.738672284788164*^9, 3.7386723201066904`*^9}, {3.738672546516434*^9, 3.7386725957080126`*^9}, { 3.738674291114772*^9, 3.7386743277567606`*^9}, {3.7386805166571894`*^9, 3.7386805668060427`*^9}, {3.7386810791624017`*^9, 3.7386811396127415`*^9}, {3.7386814782713137`*^9, 3.738681543363078*^9}, { 3.7386816898976307`*^9, 3.738681719544482*^9}, {3.7386818477562714`*^9, 3.738681859596021*^9}, {3.738682701484929*^9, 3.738682756230011*^9}, { 3.7386843903984723`*^9, 3.7386843904992466`*^9}, {3.738684424708892*^9, 3.7386844619238653`*^9}, {3.7386846401115694`*^9, 3.7386846425530405`*^9}, {3.7386848908844295`*^9, 3.738684919541772*^9}, { 3.738685450783483*^9, 3.7386855285324697`*^9}, {3.7386872872275896`*^9, 3.7386873330789165`*^9}, {3.73868750337795*^9, 3.7386875618149843`*^9}, { 3.7386877182904544`*^9, 3.738687719129985*^9}, {3.7388803260424805`*^9, 3.7388803284290786`*^9}, {3.739017603813734*^9, 3.7390176475852356`*^9}, { 3.739017796664432*^9, 3.73901782874162*^9}, {3.739017956548594*^9, 3.7390179780583763`*^9}, {3.7390180123176603`*^9, 3.7390180185059586`*^9}, {3.7391001159154167`*^9, 3.7391001533223147`*^9}, {3.7391003404593964`*^9, 3.73910037936033*^9}}, CellLabel->"In[37]:=",ExpressionUUID->"8c0d00eb-3a38-4d87-9e21-66e5a04e235e"], Cell[BoxData[ TagBox[GridBox[{ { GraphicsBox[ {RGBColor[0, 0, 1], Thickness[ Large], {CircleBox[{1.7888543819998315, 6.9999999999999964}], CircleBox[{4.770278351999551, 5.777777777777777}, 2.222222222222221], CircleBox[{4.770278351999551, 1.7777777777777777}, 1.7777777777777777], CircleBox[{0, 3.1999999999999993}, 3.1999999999999993], CircleBox[{0, 7.199999999999998}, 0.8], LineBox[{{-3.1999999999999993`, 7.999999999999998}, {7.97027835199955, 7.999999999999998}}], LineBox[{{-3.1999999999999993`, 0}, {7.97027835199955, 0}}]}, {RGBColor[1, 0, 0], Dashing[{Small, Small}], CircleBox[{2.314988023764487, 5.647058823529408}, 1.0522672835293128], CircleBox[{0.7155417527999319, 6.399999999999997}, 0.7155417527999327], CircleBox[{3.4452010319996793, 3.555555555555553}, 1.3250773199998749], CircleBox[{2.3851391759997753, 0}, 2.3851391759997753], CircleBox[{0.8944271909999159, 7.999999999999997}, 0.8944271909999159], LineBox[{{0, -3.1999999999999993`}, {0, 11.199999999999998`}}], LineBox[{{4.770278351999551, -3.1999999999999993`}, { 4.770278351999551, 11.199999999999998`}}], CircleBox[{3.279566366999691, 7.999999999999997}, 1.4907119849998594]}}]}, { GraphicsBox[ {Thickness[ Large], {CircleBox[{1.7888543819998315, 7}], CircleBox[{4.770278351999551, 5.777777777777777}, 2.222222222222221], CircleBox[{4.770278351999551, 1.7777777777777777}, 1.7777777777777777], CircleBox[{0., 3.1999999999999993}, 3.1999999999999993], CircleBox[{0., 7.2}, 0.8], TagBox[ConicHullRegionBox[{0, 8}, {{-1, 0}}], "InfiniteLine"], TagBox[ConicHullRegionBox[{0, 0}, {{1, 0}}], "InfiniteLine"], CircleBox[{2.4673853544825253, 5.406896551724136}, 0.11034482758620705], CircleBox[{-3.410605131648539*^-14, 3.1999999999999633}, 3.2000000000000544], CircleBox[{1.955517833738946, 5.888198757763964}, 0.12422360248447187], CircleBox[{2.314988023764487, 5.8823529411764675}, 0.23529411764705843], CircleBox[{2.314988023764487, 5.549019607843133}, 0.09803921568627456], CircleBox[{0.8901476350621171, 6.373205741626789}, 0.09569377990430619], CircleBox[{0.7155417527999324, 6.55999999999999}, 0.15999999999999953], CircleBox[{0.7155417527999327, 6.359999999999997}, 0.04000000000000002], CircleBox[{3.2314788836125996, 3.999999999999998}, 0.12903225806451618], CircleBox[{3.1984101271286436, 3.8166189111747824}, 0.05730659025787951], CircleBox[{3.4452010319996793, 3.7530864197530835}, 0.19753086419753058], CircleBox[{3.4452010319996793, 3.3086419753086393}, 0.24691358024691354], CircleBox[{2.3149880237644878, 0.8235294117647065}, 0.11764705882352951], CircleBox[{2.782662371999738, 0.9629629629629631}, 0.3703703703703703], CircleBox[{2.146625258399798, 0.7199999999999998}, 0.07999999999999997], CircleBox[{2.3851391759997753, 0.35555555555555546}, 0.35555555555555546], CircleBox[{1.1008334658460484, 7.881656804733721}, 0.11834319526627204], CircleBox[{0.8418138268234496, 7.717647058823524}, 0.18823529411764706], CircleBox[{0.8944271909999159, 7.949999999999997}, 0.05000000000000002], CircleBox[{3.3672553072938007, 7.633986928104572}, 0.10457516339869281], CircleBox[{2.970173313509154, 7.547169811320748}, 0.30188679245283], CircleBox[{2.601970010181578, 7.834710743801644}, 0.1652892561983472], CircleBox[{3.2795663669996915, 7.861111111111109}, 0.13888888888888884], CircleBox[{7.75170232199927, 7.}], CircleBox[{9.540556703999101, 3.1999999999999993}, 3.1999999999999993], CircleBox[{9.540556703999101, 7.2}, 0.8], CircleBox[{-1.7888543819998315, 7.}], CircleBox[{-4.770278351999551, 5.777777777777777}, 2.222222222222221], CircleBox[{-4.770278351999551, 1.7777777777777777}, 1.7777777777777777], CircleBox[{1.6958785825195741, 5.962577962577978}, 0.04158004158004166], CircleBox[{1.7888543819998375, 5.947368421052614}, 0.052631578947367634], CircleBox[{2.6019700101815695, 5.131313131313117}, 0.04040404040404022], CircleBox[{2.574328685710802, 5.212464589235117}, 0.04532577903682702], CircleBox[{2.5022012214476157, 5.2597137014314885}, 0.04089979550102242], CircleBox[{2.060992472567758, 6.0040567951318415}, 0.03245436105476655], CircleBox[{2.4987172319997626, 6.179894179894138}, 0.08465608465608303], CircleBox[{2.3806304062908965, 6.147448015122852}, 0.03780718336483731], CircleBox[{2.5130869253196013, 5.696356275303642}, 0.03643724696356281], CircleBox[{2.4818174699474316, 5.590559261159564}, 0.07388404309902513], CircleBox[{2.0578550409471745, 5.731829573934836}, 0.06265664160401027], CircleBox[{2.1417258854592043, 5.650255407020974}, 0.054341919356591696], CircleBox[{2.1884754505919677, 5.57797000238076}, 0.03174351241964926], CircleBox[{1.071399415957107, 6.253119429589975}, 0.03565062388591691], CircleBox[{1.0110916072172886, 6.3043478260869055}, 0.043478260869565], CircleBox[{0.7532018450525547, 6.79298245614033}, 0.05614035087719155], CircleBox[{0.4878693769090435, 6.454545454545427}, 0.09090909090909138], CircleBox[{0.6055809934609678, 6.387527839643648}, 0.04454342984409799], CircleBox[{3.0524495825814286, 4.299168975069253}, 0.04432132963988936], CircleBox[{3.146156344995812, 4.17120622568093}, 0.06225680933852118], CircleBox[{3.066607511999718, 4.223316912972084}, 0.03284072249589486], CircleBox[{3.279566366999693, 2.907407407407405}, 0.0925925925925925], CircleBox[{3.2795663669996937, 3.0555555555555527}, 0.055555555555555504], CircleBox[{3.393290786473908, 3.99175257731958}, 0.032989690721649347], CircleBox[{3.702305586626519, 3.7611940298507442}, 0.05970149253731352], CircleBox[{3.8410033483632766, 3.5324675324675283}, 0.2077922077922078], CircleBox[{3.204996561416866, 3.7136301055530048}, 0.045892611289582344], CircleBox[{3.2314788836126027, 3.6133657070181497}, 0.05781015146259671], CircleBox[{3.2314788836126036, 3.509307434385476}, 0.0462481211700774], CircleBox[{2.3735888652201154, 0.968523002421308}, 0.038740920096852274], CircleBox[{2.6734527027689796, 1.3626373626373613}, 0.04395604395604395], CircleBox[{2.7826623719997396, 1.4074074074074068}, 0.07407407407407399], CircleBox[{2.8872737393681516, 1.5672514619883033}, 0.1169590643274854], CircleBox[{2.7826623719997383, 0.5185185185185188}, 0.07407407407407411], CircleBox[{3.1801855679997013, 0.3555555555555555}, 0.3555555555555555], CircleBox[{2.7826623719997383, 0.4}, 0.044444444444444446], CircleBox[{2.0221832144345924, 0.6086956521739134}, 0.08695652173913049], CircleBox[{1.8740379239998235, 0.4126984126984127}, 0.15873015873015867], CircleBox[{1.5900927839998502, 0.19753086419753085}, 0.19753086419753085], CircleBox[{0.825625099384527, 7.4461538461537655}, 0.06153846153845809], CircleBox[{1.2699034520681347, 7.918088737201342}, 0.05460750853242219], CircleBox[{1.3629366719998142, 7.95464852607702}, 0.04535147392289744], CircleBox[{0.5962847939999443, 7.888888888888888}, 0.11111111111111181], CircleBox[{0.7532018450525604, 7.944598337950132}, 0.05540166204986146], CircleBox[{3.0347300950350573, 7.218295218295215}, 0.03326403326403339], CircleBox[{2.9701733135091515, 7.547169811320746}, 0.3018867924528344], CircleBox[{2.8047961802402663, 7.242761692650327}, 0.04454342984409723], CircleBox[{2.879619249072911, 7.121951219512175}, 0.09756097560975582], CircleBox[{2.970173313509155, 7.213836477987423}, 0.031446540880503075], CircleBox[{2.6187352808657396, 7.628865979381449}, 0.04123711340206128], CircleBox[{2.2596055351576902, 7.944598337950164}, 0.05540166204986111], CircleBox[{2.3747237210827463, 7.895196506550219}, 0.06986899563318721], CircleBox[{3.7764703619996496, 7.888888888888888}, 0.11111111111111147], CircleBox[{3.547130056615051, 7.79487179487179}, 0.13675213675213665], CircleBox[{3.6344977919996557, 7.954648526077095}, 0.04535147392290247], CircleBox[{2.8411216655291427, 7.913494809688581}, 0.08650519031141883], CircleBox[{3.0035085919997186, 7.923792104862064}, 0.07620789513793623], CircleBox[{3.101314712460293, 7.862218285601809}, 0.03936620411376832], CircleBox[{7.073171349516577, 5.406896551724136}, 0.11034482758620705], CircleBox[{9.540556703999135, 3.1999999999999633}, 3.2000000000000544], CircleBox[{7.5850388702601546, 5.888198757763964}, 0.12422360248447187], CircleBox[{7.225568680234615, 5.8823529411764675}, 0.23529411764705843], CircleBox[{7.225568680234614, 5.549019607843133}, 0.09803921568627456], CircleBox[{8.650409068936984, 6.373205741626789}, 0.09569377990430619], CircleBox[{8.825014951199167, 6.55999999999999}, 0.15999999999999953], CircleBox[{8.825014951199167, 6.359999999999997}, 0.04000000000000002], CircleBox[{6.309077820386501, 3.999999999999998}, 0.12903225806451618], CircleBox[{6.342146576870459, 3.8166189111747824}, 0.05730659025787951], CircleBox[{6.095355671999422, 3.7530864197530835}, 0.19753086419753058], CircleBox[{6.095355671999422, 3.3086419753086393}, 0.24691358024691354], CircleBox[{7.225568680234613, 0.8235294117647065}, 0.11764705882352951], CircleBox[{6.757894331999364, 0.9629629629629631}, 0.3703703703703703], CircleBox[{7.393931445599303, 0.7199999999999998}, 0.07999999999999997], CircleBox[{7.155417527999327, 0.35555555555555546}, 0.35555555555555546], CircleBox[{8.439723238153052, 7.881656804733721}, 0.11834319526627204], CircleBox[{8.69874287717565, 7.717647058823524}, 0.18823529411764706], CircleBox[{8.646129512999185, 7.949999999999997}, 0.05000000000000002], CircleBox[{6.1733013967053, 7.633986928104572}, 0.10457516339869281], CircleBox[{6.570383390489946, 7.547169811320748}, 0.30188679245283], CircleBox[{6.938586693817523, 7.834710743801644}, 0.1652892561983472], CircleBox[{6.26099033699941, 7.861111111111109}, 0.13888888888888884], CircleBox[{11.329411085998933, 7.}], CircleBox[{14.310835055998652, 5.777777777777777}, 2.222222222222221], CircleBox[{14.310835055998652, 1.7777777777777777}, 1.7777777777777777], CircleBox[{-2.4673853544825253, 5.406896551724136}, 0.11034482758620705], CircleBox[{-1.955517833738946, 5.888198757763964}, 0.12422360248447187], CircleBox[{-2.314988023764487, 5.8823529411764675}, 0.23529411764705843], CircleBox[{-2.314988023764487, 5.549019607843133}, 0.09803921568627456], CircleBox[{-0.8901476350621171, 6.373205741626789}, 0.09569377990430619], CircleBox[{-0.7155417527999324, 6.55999999999999}, 0.15999999999999953], CircleBox[{-0.7155417527999327, 6.359999999999997}, 0.04000000000000002], CircleBox[{-3.2314788836125996, 3.999999999999998}, 0.12903225806451618], CircleBox[{-3.1984101271286436, 3.8166189111747824}, 0.05730659025787951], CircleBox[{-3.4452010319996793, 3.7530864197530835}, 0.19753086419753058], CircleBox[{-3.4452010319996793, 3.3086419753086393}, 0.24691358024691354], CircleBox[{-2.3149880237644878, 0.8235294117647065}, 0.11764705882352951], CircleBox[{-2.782662371999738, 0.9629629629629631}, 0.3703703703703703], CircleBox[{-2.146625258399798, 0.7199999999999998}, 0.07999999999999997], CircleBox[{-2.3851391759997753, 0.35555555555555546}, 0.35555555555555546], CircleBox[{-1.1008334658460484, 7.881656804733721}, 0.11834319526627204], CircleBox[{-0.8418138268234496, 7.717647058823524}, 0.18823529411764706], CircleBox[{-0.8944271909999159, 7.949999999999997}, 0.05000000000000002], CircleBox[{-3.3672553072938007, 7.633986928104572}, 0.10457516339869281], CircleBox[{-2.970173313509154, 7.547169811320748}, 0.30188679245283], CircleBox[{-2.601970010181578, 7.834710743801644}, 0.1652892561983472], CircleBox[{-3.2795663669996915, 7.861111111111109}, 0.13888888888888884], CircleBox[{-7.75170232199927, 7.}], CircleBox[{-9.540556703999101, 3.1999999999999993}, 3.1999999999999993], CircleBox[{-9.540556703999101, 7.2}, 0.8], CircleBox[{0.8418138268241612, 7.7176470588229416}, 0.1882352941175826], CircleBox[{2.565053906939463, 5.300543863797586}, 0.03405060297942768], CircleBox[{2.5666171567823635, 6.30434782608689}, 0.04347826086956285], CircleBox[{0.3577708763999765, 6.43999999999997}, 0.03999999999999891], CircleBox[{-4.770278351998913, 1.7777777777778225}, 1.7777777777774184], CircleBox[{3.214752802434483, 2.7342995169082096}, 0.04830917874396133], CircleBox[{3.399508710620374, 3.0038314176245193}, 0.0613026819923372], CircleBox[{3.3932907864739112, 3.9917525773195837}, 0.03298969072164976], CircleBox[{4.107739691999617, 3.604938271604936}, 0.049382716049382956], CircleBox[{4.107739691999617, 3.493827160493833}, 0.06172839506172847], CircleBox[{3.7764703619996474, 3.2962962962962945}, 0.03703703703703707], CircleBox[{3.6067958271216143, 3.588604666534468}, 0.03304911097891464], CircleBox[{3.301362333107358, 3.5516171909614496}, 0.03544528134692063], CircleBox[{2.935555908922801, 1.7891737891737862}, 0.05698005698005688], CircleBox[{2.954182532710383, 1.3807106598984762}, 0.08121827411167518], CircleBox[{3.180185567999708, 0.3555555555555531}, 0.35555555555556323], CircleBox[{3.144047095636069, 0.7676767676767687}, 0.04040404040404043], CircleBox[{3.241342982768924, 0.7635327635327631}, 0.05698005698005699], CircleBox[{3.6344977919996575, 0.27513227513227506}, 0.10582010582010574], CircleBox[{3.5777087639996643, 0.08888888888888889}, 0.08888888888888889], CircleBox[{2.7826623719997383, 0.3111111111111112}, 0.04444444444444446], CircleBox[{2.7826623719997374, 0.1925925925925925}, 0.07407407407407401], CircleBox[{2.8621670111997304, 0.07111111111111111}, 0.07111111111111111], CircleBox[{1.6460819665350561, 0.4194053208137708}, 0.031298904538341124], CircleBox[{1.3159388557240141, 0.1992337164750958}, 0.07662835249042144], CircleBox[{1.1925695879998877, 0.08888888888888886}, 0.08888888888888886], CircleBox[{2.002616855320566, 0.2641509433962265}, 0.037735849056603786], CircleBox[{1.9081113407998203, 0.12799999999999997}, 0.12799999999999997], CircleBox[{0.44033338633842356, 7.926153846153803}, 0.04923076923076813], CircleBox[{2.8363817228105828, 6.966966966967004}, 0.048048048048042274], CircleBox[{2.451393041999759, 7.9657064471879275}, 0.0342935528120721], CircleBox[{3.5471300566150505, 7.794871794871789}, 0.13675213675213835], CircleBox[{3.9478165671720475, 7.908045977011523}, 0.06130268199233684], CircleBox[{4.024922359499648, 7.965277777777842}, 0.03472222222222235], CircleBox[{3.555624141999662, 7.96570644718793}, 0.03429355281207133], CircleBox[{3.4810139325402116, 7.959418878337793}, 0.0405811216622027], CircleBox[{3.1187519782515882, 7.939789262418462}, 0.04014049172102356], CircleBox[{7.844678121479527, 5.962577962577978}, 0.04158004158004166], CircleBox[{7.751702321999264, 5.947368421052614}, 0.052631578947367634], CircleBox[{6.938586693817532, 5.131313131313117}, 0.04040404040404022], CircleBox[{6.966228018288298, 5.212464589235117}, 0.04532577903682702], CircleBox[{7.038355482551487, 5.2597137014314885}, 0.04089979550102242], CircleBox[{7.479564231431342, 6.0040567951318415}, 0.03245436105476655], CircleBox[{7.041839471999339, 6.179894179894138}, 0.08465608465608303], CircleBox[{7.159926297708205, 6.147448015122852}, 0.03780718336483731], CircleBox[{7.0274697786795, 5.696356275303642}, 0.03643724696356281], CircleBox[{7.058739234051669, 5.590559261159564}, 0.07388404309902513], CircleBox[{7.482701663051927, 5.731829573934836}, 0.06265664160401027], CircleBox[{7.398830818539897, 5.650255407020974}, 0.054341919356591696], CircleBox[{7.3520812534071345, 5.57797000238076}, 0.03174351241964926], CircleBox[{8.469157288041997, 6.253119429589975}, 0.03565062388591691], CircleBox[{8.529465096781813, 6.3043478260869055}, 0.043478260869565], CircleBox[{8.787354858946546, 6.79298245614033}, 0.05614035087719155], CircleBox[{9.052687327090059, 6.454545454545427}, 0.09090909090909138], CircleBox[{8.934975710538133, 6.387527839643648}, 0.04454342984409799], CircleBox[{6.488107121417672, 4.299168975069253}, 0.04432132963988936], CircleBox[{6.39440035900329, 4.17120622568093}, 0.06225680933852118], CircleBox[{6.473949191999383, 4.223316912972084}, 0.03284072249589486], CircleBox[{6.260990336999407, 2.907407407407405}, 0.0925925925925925], CircleBox[{6.260990336999408, 3.0555555555555527}, 0.055555555555555504], CircleBox[{6.147265917525194, 3.99175257731958}, 0.032989690721649347], CircleBox[{5.8382511173725815, 3.7611940298507442}, 0.05970149253731352], CircleBox[{5.699553355635825, 3.5324675324675283}, 0.2077922077922078], CircleBox[{6.335560142582236, 3.7136301055530048}, 0.045892611289582344], CircleBox[{6.309077820386499, 3.6133657070181497}, 0.05781015146259671], CircleBox[{6.309077820386499, 3.509307434385476}, 0.0462481211700774], CircleBox[{7.1669678387789855, 0.968523002421308}, 0.038740920096852274], CircleBox[{6.867104001230123, 1.3626373626373613}, 0.04395604395604395], CircleBox[{6.757894331999362, 1.4074074074074068}, 0.07407407407407399], CircleBox[{6.653282964630951, 1.5672514619883033}, 0.1169590643274854], CircleBox[{6.7578943319993625, 0.5185185185185188}, 0.07407407407407411], CircleBox[{6.360371135999402, 0.3555555555555555}, 0.3555555555555555], CircleBox[{6.757894331999363, 0.4}, 0.044444444444444446], CircleBox[{7.5183734895645085, 0.6086956521739134}, 0.08695652173913049], CircleBox[{7.666518779999277, 0.4126984126984127}, 0.15873015873015867], CircleBox[{7.950463919999251, 0.19753086419753085}, 0.19753086419753085], CircleBox[{8.714931604614575, 7.4461538461537655}, 0.06153846153845809], CircleBox[{8.270653251930966, 7.918088737201342}, 0.05460750853242219], CircleBox[{8.177620031999288, 7.95464852607702}, 0.04535147392289744], CircleBox[{8.944271909999157, 7.888888888888888}, 0.11111111111111181], CircleBox[{8.78735485894654, 7.944598337950132}, 0.05540166204986146], CircleBox[{6.5058266089640435, 7.218295218295215}, 0.03326403326403339], CircleBox[{6.570383390489949, 7.547169811320746}, 0.3018867924528344], CircleBox[{6.735760523758835, 7.242761692650327}, 0.04454342984409723], CircleBox[{6.660937454926191, 7.121951219512175}, 0.09756097560975582], CircleBox[{6.570383390489946, 7.213836477987423}, 0.031446540880503075], CircleBox[{6.921821423133363, 7.628865979381449}, 0.04123711340206128], CircleBox[{7.280951168841411, 7.944598337950164}, 0.05540166204986111], CircleBox[{7.1658329829163545, 7.895196506550219}, 0.06986899563318721], CircleBox[{5.764086341999452, 7.888888888888888}, 0.11111111111111147], CircleBox[{5.99342664738405, 7.79487179487179}, 0.13675213675213665], CircleBox[{5.9060589119994455, 7.954648526077095}, 0.04535147392290247], CircleBox[{6.699435038469959, 7.913494809688581}, 0.08650519031141883], CircleBox[{6.5370481119993835, 7.923792104862064}, 0.07620789513793623], CircleBox[{6.4392419915388075, 7.862218285601809}, 0.03936620411376832], CircleBox[{12.007942058481627, 5.406896551724136}, 0.11034482758620705], CircleBox[{11.496074537738046, 5.888198757763964}, 0.12422360248447187], CircleBox[{11.85554472776359, 5.8823529411764675}, 0.23529411764705843], CircleBox[{11.855544727763588, 5.549019607843133}, 0.09803921568627456], CircleBox[{10.430704339061217, 6.373205741626789}, 0.09569377990430619], CircleBox[{10.256098456799034, 6.55999999999999}, 0.15999999999999953], CircleBox[{10.256098456799032, 6.359999999999997}, 0.04000000000000002], CircleBox[{12.7720355876117, 3.999999999999998}, 0.12903225806451618], CircleBox[{12.738966831127746, 3.8166189111747824}, 0.05730659025787951], CircleBox[{12.98575773599878, 3.7530864197530835}, 0.19753086419753058], CircleBox[{12.985757735998781, 3.3086419753086393}, 0.24691358024691354], CircleBox[{11.855544727763588, 0.8235294117647065}, 0.11764705882352951], CircleBox[{12.32321907599884, 0.9629629629629631}, 0.3703703703703703], CircleBox[{11.687181962398897, 0.7199999999999998}, 0.07999999999999997], CircleBox[{11.925695879998877, 0.35555555555555546}, 0.35555555555555546], CircleBox[{10.641390169845149, 7.881656804733721}, 0.11834319526627204], CircleBox[{10.38237053082255, 7.717647058823524}, 0.18823529411764706], CircleBox[{10.434983894999018, 7.949999999999997}, 0.05000000000000002], CircleBox[{12.907812011292902, 7.633986928104572}, 0.10457516339869281], CircleBox[{12.510730017508255, 7.547169811320748}, 0.30188679245283], CircleBox[{12.14252671418068, 7.834710743801644}, 0.1652892561983472], CircleBox[{12.820123070998791, 7.861111111111109}, 0.13888888888888884], CircleBox[{17.29225902599837, 7.}], CircleBox[{19.081113407998203, 3.1999999999999993}, 3.1999999999999993], CircleBox[{19.081113407998203, 7.2}, 0.8], CircleBox[{-1.6958785825195741, 5.962577962577978}, 0.04158004158004166], CircleBox[{-1.7888543819998375, 5.947368421052614}, 0.052631578947367634], CircleBox[{-2.6019700101815695, 5.131313131313117}, 0.04040404040404022], CircleBox[{-2.574328685710802, 5.212464589235117}, 0.04532577903682702], CircleBox[{-2.5022012214476157, 5.2597137014314885}, 0.04089979550102242], CircleBox[{-2.060992472567758, 6.0040567951318415}, 0.03245436105476655], CircleBox[{-2.4987172319997626, 6.179894179894138}, 0.08465608465608303], CircleBox[{-2.3806304062908965, 6.147448015122852}, 0.03780718336483731], CircleBox[{-2.5130869253196013, 5.696356275303642}, 0.03643724696356281], CircleBox[{-2.4818174699474316, 5.590559261159564}, 0.07388404309902513], CircleBox[{-2.0578550409471745, 5.731829573934836}, 0.06265664160401027], CircleBox[{-2.1417258854592043, 5.650255407020974}, 0.054341919356591696], CircleBox[{-2.1884754505919677, 5.57797000238076}, 0.03174351241964926], CircleBox[{-1.071399415957107, 6.253119429589975}, 0.03565062388591691], CircleBox[{-1.0110916072172886, 6.3043478260869055}, 0.043478260869565], CircleBox[{-0.7532018450525547, 6.79298245614033}, 0.05614035087719155], CircleBox[{-0.4878693769090435, 6.454545454545427}, 0.09090909090909138], CircleBox[{-0.6055809934609678, 6.387527839643648}, 0.04454342984409799], CircleBox[{-3.0524495825814286, 4.299168975069253}, 0.04432132963988936], CircleBox[{-3.146156344995812, 4.17120622568093}, 0.06225680933852118], CircleBox[{-3.066607511999718, 4.223316912972084}, 0.03284072249589486], CircleBox[{-3.279566366999693, 2.907407407407405}, 0.0925925925925925], CircleBox[{-3.2795663669996937, 3.0555555555555527}, 0.055555555555555504], CircleBox[{-3.393290786473908, 3.99175257731958}, 0.032989690721649347], CircleBox[{-3.702305586626519, 3.7611940298507442}, 0.05970149253731352], CircleBox[{-3.8410033483632766, 3.5324675324675283}, 0.2077922077922078], CircleBox[{-3.204996561416866, 3.7136301055530048}, 0.045892611289582344], CircleBox[{-3.2314788836126027, 3.6133657070181497}, 0.05781015146259671], CircleBox[{-3.2314788836126036, 3.509307434385476}, 0.0462481211700774], CircleBox[{-2.3735888652201154, 0.968523002421308}, 0.038740920096852274], CircleBox[{-2.6734527027689796, 1.3626373626373613}, 0.04395604395604395], CircleBox[{-2.7826623719997396, 1.4074074074074068}, 0.07407407407407399], CircleBox[{-2.8872737393681516, 1.5672514619883033}, 0.1169590643274854], CircleBox[{-2.7826623719997383, 0.5185185185185188}, 0.07407407407407411], CircleBox[{-3.1801855679997013, 0.3555555555555555}, 0.3555555555555555], CircleBox[{-2.7826623719997383, 0.4}, 0.044444444444444446], CircleBox[{-2.0221832144345924, 0.6086956521739134}, 0.08695652173913049], CircleBox[{-1.8740379239998235, 0.4126984126984127}, 0.15873015873015867], CircleBox[{-1.5900927839998502, 0.19753086419753085}, 0.19753086419753085], CircleBox[{-0.825625099384527, 7.4461538461537655}, 0.06153846153845809], CircleBox[{-1.2699034520681347, 7.918088737201342}, 0.05460750853242219], CircleBox[{-1.3629366719998142, 7.95464852607702}, 0.04535147392289744], CircleBox[{-0.5962847939999443, 7.888888888888888}, 0.11111111111111181], CircleBox[{-0.7532018450525604, 7.944598337950132}, 0.05540166204986146], CircleBox[{-3.0347300950350573, 7.218295218295215}, 0.03326403326403339], CircleBox[{-2.9701733135091515, 7.547169811320746}, 0.3018867924528344], CircleBox[{-2.8047961802402663, 7.242761692650327}, 0.04454342984409723], CircleBox[{-2.879619249072911, 7.121951219512175}, 0.09756097560975582], CircleBox[{-2.970173313509155, 7.213836477987423}, 0.031446540880503075], CircleBox[{-2.6187352808657396, 7.628865979381449}, 0.04123711340206128], CircleBox[{-2.2596055351576902, 7.944598337950164}, 0.05540166204986111], CircleBox[{-2.3747237210827463, 7.895196506550219}, 0.06986899563318721], CircleBox[{-3.7764703619996496, 7.888888888888888}, 0.11111111111111147], CircleBox[{-3.547130056615051, 7.79487179487179}, 0.13675213675213665], CircleBox[{-3.6344977919996557, 7.954648526077095}, 0.04535147392290247], CircleBox[{-2.8411216655291427, 7.913494809688581}, 0.08650519031141883], CircleBox[{-3.0035085919997186, 7.923792104862064}, 0.07620789513793623], CircleBox[{-3.101314712460293, 7.862218285601809}, 0.03936620411376832], CircleBox[{-7.073171349516577, 5.406896551724136}, 0.11034482758620705], CircleBox[{-9.540556703999135, 3.1999999999999633}, 3.2000000000000544], CircleBox[{-7.5850388702601546, 5.888198757763964}, 0.12422360248447187], CircleBox[{-7.225568680234615, 5.8823529411764675}, 0.23529411764705843], CircleBox[{-7.225568680234614, 5.549019607843133}, 0.09803921568627456], CircleBox[{-8.650409068936984, 6.373205741626789}, 0.09569377990430619], CircleBox[{-8.825014951199167, 6.55999999999999}, 0.15999999999999953], CircleBox[{-8.825014951199167, 6.359999999999997}, 0.04000000000000002], CircleBox[{-6.309077820386501, 3.999999999999998}, 0.12903225806451618], CircleBox[{-6.342146576870459, 3.8166189111747824}, 0.05730659025787951], CircleBox[{-6.095355671999422, 3.7530864197530835}, 0.19753086419753058], CircleBox[{-6.095355671999422, 3.3086419753086393}, 0.24691358024691354], CircleBox[{-7.225568680234613, 0.8235294117647065}, 0.11764705882352951], CircleBox[{-6.757894331999364, 0.9629629629629631}, 0.3703703703703703], CircleBox[{-7.393931445599303, 0.7199999999999998}, 0.07999999999999997], CircleBox[{-7.155417527999327, 0.35555555555555546}, 0.35555555555555546], CircleBox[{-8.439723238153052, 7.881656804733721}, 0.11834319526627204], CircleBox[{-8.69874287717565, 7.717647058823524}, 0.18823529411764706], CircleBox[{-8.646129512999185, 7.949999999999997}, 0.05000000000000002], CircleBox[{-6.1733013967053, 7.633986928104572}, 0.10457516339869281], CircleBox[{-6.570383390489946, 7.547169811320748}, 0.30188679245283], CircleBox[{-6.938586693817523, 7.834710743801644}, 0.1652892561983472], CircleBox[{-6.26099033699941, 7.861111111111109}, 0.13888888888888884], CircleBox[{-11.329411085998933, 7.}], CircleBox[{-14.310835055998652, 5.777777777777777}, 2.222222222222221], CircleBox[{-14.310835055998652, 1.7777777777777777}, 1.7777777777777777], CircleBox[{2.060992472567631, 6.0040567951320885}, 0.03245436105478751], CircleBox[{2.1884754505919704, 5.577970002380755}, 0.031743512419645147], CircleBox[{0.7532018450528339, 6.792982456140811}, 0.05614035087727611], CircleBox[{0.2885249003225856, 6.419354838709711}, 0.03225806451612714], CircleBox[{4.230654104035801, 3.54751131221719}, 0.07239819004524894], CircleBox[{3.7202170795468215, 3.2536687631027212}, 0.033542976939203405], CircleBox[{3.3013623331073583, 3.5516171909614505}, 0.03544528134692116], CircleBox[{1.5900927839998578, 0.1975308641975516}, 0.19753086419750668], CircleBox[{2.9633547338179063, 1.905723905723905}, 0.033670033670033676], CircleBox[{2.959435159808835, 1.7006507592190891}, 0.03470715835141002], CircleBox[{6.095355671999431, 3.753086419753089}, 0.19753086419753085], CircleBox[{7.155417527999346, 0.35555555555555646}, 0.35555555555555646], CircleBox[{-2.385139175999776, 0.35555555555555557}, 0.35555555555555557], CircleBox[{3.1902176991290387, 0.8580441640378551}, 0.05047318611987389], CircleBox[{3.5604251467822743, 0.43156199677938833}, 0.03220611916264094], CircleBox[{3.816222681599642, 0.1280000000000001}, 0.1280000000000001], CircleBox[{3.4567234434779364, 0.08373590982286638}, 0.032206119162640906], CircleBox[{3.407341679999679, 0.03628117913832199}, 0.03628117913832199], CircleBox[{2.725873343999743, 0.06530612244897957}, 0.06530612244897957], CircleBox[{1.3629366719998717, 0.06530612244897957}, 0.06530612244897957], CircleBox[{1.0600618559999002, 0.12839506172839507}, 0.0493827160493827], CircleBox[{0.9540556703999103, 0.07111111111111111}, 0.07111111111111111], CircleBox[{1.908111340799819, 0.12799999999999845}, 0.12800000000000208], CircleBox[{2.075954467999804, 0.10699588477366252}, 0.04115226337448557], CircleBox[{2.0444050079998073, 0.036281179138321996}, 0.036281179138321996], CircleBox[{-0.8418138268202962, 7.717647058823377}, 0.1882352941172926], CircleBox[{0.35777087639993754, 7.959999999999997}, 0.04000000000000218], CircleBox[{2.3747237210822782, 7.895196506549914}, 0.06986899563322135], CircleBox[{3.9478165671720338, 7.908045977011453}, 0.06130268199233727], CircleBox[{4.173993557999602, 7.960000000000018}, 0.04000000000000018], CircleBox[{4.095817402488037, 7.938303341902295}, 0.04113110539845739], CircleBox[{3.118751978251588, 7.93978926241846}, 0.04014049172102408], CircleBox[{8.69874287717494, 7.7176470588229416}, 0.1882352941175826], CircleBox[{6.975502797059639, 5.300543863797586}, 0.03405060297942768], CircleBox[{6.973939547216737, 6.30434782608689}, 0.04347826086956285], CircleBox[{9.182785827599126, 6.43999999999997}, 0.03999999999999891], CircleBox[{14.310835055998016, 1.7777777777778225}, 1.7777777777774184], CircleBox[{6.325803901564618, 2.7342995169082096}, 0.04830917874396133], CircleBox[{6.141047993378726, 3.0038314176245193}, 0.0613026819923372], CircleBox[{6.147265917525189, 3.9917525773195837}, 0.03298969072164976], CircleBox[{5.432817011999484, 3.604938271604936}, 0.049382716049382956], CircleBox[{5.432817011999485, 3.493827160493833}, 0.06172839506172847], CircleBox[{5.764086341999455, 3.2962962962962945}, 0.03703703703703707], CircleBox[{5.933760876877488, 3.588604666534468}, 0.03304911097891464], CircleBox[{6.2391943708917434, 3.5516171909614496}, 0.03544528134692063], CircleBox[{6.6050007950763, 1.7891737891737862}, 0.05698005698005688], CircleBox[{6.586374171288719, 1.3807106598984762}, 0.08121827411167518], CircleBox[{6.360371135999393, 0.3555555555555531}, 0.35555555555556323], CircleBox[{6.396509608363033, 0.7676767676767687}, 0.04040404040404043], CircleBox[{6.299213721230177, 0.7635327635327631}, 0.05698005698005699], CircleBox[{5.906058911999444, 0.27513227513227506}, 0.10582010582010574], CircleBox[{5.9628479399994365, 0.08888888888888889}, 0.08888888888888889], CircleBox[{6.7578943319993625, 0.3111111111111112}, 0.04444444444444446], CircleBox[{6.757894331999364, 0.1925925925925925}, 0.07407407407407401], CircleBox[{6.678389692799372, 0.07111111111111111}, 0.07111111111111111], CircleBox[{7.894474737464044, 0.4194053208137708}, 0.031298904538341124], CircleBox[{8.224617848275086, 0.1992337164750958}, 0.07662835249042144], CircleBox[{8.347987115999214, 0.08888888888888886}, 0.08888888888888886], CircleBox[{7.537939848678535, 0.2641509433962265}, 0.037735849056603786], CircleBox[{7.632445363199281, 0.12799999999999997}, 0.12799999999999997], CircleBox[{9.100223317660676, 7.926153846153803}, 0.04923076923076813], CircleBox[{6.704174981188519, 6.966966966967004}, 0.048048048048042274], CircleBox[{7.089163661999343, 7.9657064471879275}, 0.0342935528120721], CircleBox[{5.99342664738405, 7.794871794871789}, 0.13675213675213835], CircleBox[{5.592740136827053, 7.908045977011523}, 0.06130268199233684], CircleBox[{5.515634344499455, 7.965277777777842}, 0.03472222222222235], CircleBox[{5.984932561999438, 7.96570644718793}, 0.03429355281207133], CircleBox[{6.05954277145889, 7.959418878337793}, 0.0405811216622027], CircleBox[{6.4218047257475135, 7.939789262418462}, 0.04014049172102356], CircleBox[{11.236435286518676, 5.962577962577978}, 0.04158004158004166], CircleBox[{11.329411085998938, 5.947368421052614}, 0.052631578947367634], CircleBox[{12.14252671418067, 5.131313131313117}, 0.04040404040404022], CircleBox[{12.114885389709901, 5.212464589235117}, 0.04532577903682702], CircleBox[{12.042757925446718, 5.2597137014314885}, 0.04089979550102242], CircleBox[{11.601549176566857, 6.0040567951318415}, 0.03245436105476655], CircleBox[{12.039273935998862, 6.179894179894138}, 0.08465608465608303], CircleBox[{11.921187110289997, 6.147448015122852}, 0.03780718336483731 ], CircleBox[{12.053643629318701, 5.696356275303642}, 0.03643724696356281], CircleBox[{12.022374173946533, 5.590559261159564}, 0.07388404309902513], CircleBox[{11.598411744946276, 5.731829573934836}, 0.06265664160401027], CircleBox[{11.682282589458307, 5.650255407020974}, 0.054341919356591696], CircleBox[{11.72903215459107, 5.57797000238076}, 0.03174351241964926], CircleBox[{10.61195611995621, 6.253119429589975}, 0.03565062388591691], CircleBox[{10.55164831121639, 6.3043478260869055}, 0.043478260869565], CircleBox[{10.293758549051656, 6.79298245614033}, 0.05614035087719155], CircleBox[{10.028426080908146, 6.454545454545427}, 0.09090909090909138], CircleBox[{10.146137697460068, 6.387527839643648}, 0.04454342984409799], CircleBox[{12.593006286580529, 4.299168975069253}, 0.04432132963988936], CircleBox[{12.686713048994914, 4.17120622568093}, 0.06225680933852118], CircleBox[{12.60716421599882, 4.223316912972084}, 0.03284072249589486], CircleBox[{12.820123070998793, 2.907407407407405}, 0.0925925925925925], CircleBox[{12.820123070998795, 3.0555555555555527}, 0.055555555555555504], CircleBox[{12.93384749047301, 3.99175257731958}, 0.032989690721649347], CircleBox[{13.242862290625618, 3.7611940298507442}, 0.05970149253731352], CircleBox[{13.381560052362378, 3.5324675324675283}, 0.2077922077922078], CircleBox[{12.74555326541597, 3.7136301055530048}, 0.045892611289582344], CircleBox[{12.772035587611704, 3.6133657070181497}, 0.05781015146259671], CircleBox[{12.772035587611704, 3.509307434385476}, 0.0462481211700774], CircleBox[{11.914145569219217, 0.968523002421308}, 0.038740920096852274], CircleBox[{12.214009406768081, 1.3626373626373613}, 0.04395604395604395], CircleBox[{12.323219075998841, 1.4074074074074068}, 0.07407407407407399], CircleBox[{12.427830443367254, 1.5672514619883033}, 0.1169590643274854], CircleBox[{12.32321907599884, 0.5185185185185188}, 0.07407407407407411], CircleBox[{12.720742271998803, 0.3555555555555555}, 0.3555555555555555], CircleBox[{12.323219075998841, 0.4}, 0.044444444444444446], CircleBox[{11.562739918433692, 0.6086956521739134}, 0.08695652173913049], CircleBox[{11.414594627998925, 0.4126984126984127}, 0.15873015873015867], CircleBox[{11.13064948799895, 0.19753086419753085}, 0.19753086419753085], CircleBox[{10.366181803383629, 7.4461538461537655}, 0.06153846153845809], CircleBox[{10.810460156067235, 7.918088737201342}, 0.05460750853242219], CircleBox[{10.903493375998917, 7.95464852607702}, 0.04535147392289744], CircleBox[{10.136841497999045, 7.888888888888888}, 0.11111111111111181], CircleBox[{10.293758549051661, 7.944598337950132}, 0.05540166204986146], CircleBox[{12.575286799034158, 7.218295218295215}, 0.03326403326403339], CircleBox[{12.510730017508253, 7.547169811320746}, 0.3018867924528344], CircleBox[{12.34535288423937, 7.242761692650327}, 0.04454342984409723], CircleBox[{12.420175953072013, 7.121951219512175}, 0.09756097560975582], CircleBox[{12.510730017508257, 7.213836477987423}, 0.031446540880503075], CircleBox[{12.15929198486484, 7.628865979381449}, 0.04123711340206128], CircleBox[{11.80016223915679, 7.944598337950164}, 0.05540166204986111], CircleBox[{11.915280425081848, 7.895196506550219}, 0.06986899563318721], CircleBox[{13.31702706599875, 7.888888888888888}, 0.11111111111111147], CircleBox[{13.087686760614153, 7.79487179487179}, 0.13675213675213665], CircleBox[{13.175054495998756, 7.954648526077095}, 0.04535147392290247], CircleBox[{12.381678369528244, 7.913494809688581}, 0.08650519031141883], CircleBox[{12.54406529599882, 7.923792104862064}, 0.07620789513793623], CircleBox[{12.641871416459393, 7.862218285601809}, 0.03936620411376832], CircleBox[{16.613728053515675, 5.406896551724136}, 0.11034482758620705], CircleBox[{19.081113407998238, 3.1999999999999633}, 3.2000000000000544], CircleBox[{17.125595574259254, 5.888198757763964}, 0.12422360248447187], CircleBox[{16.766125384233717, 5.8823529411764675}, 0.23529411764705843], CircleBox[{16.766125384233714, 5.549019607843133}, 0.09803921568627456], CircleBox[{18.190965772936085, 6.373205741626789}, 0.09569377990430619], CircleBox[{18.36557165519827, 6.55999999999999}, 0.15999999999999953], CircleBox[{18.36557165519827, 6.359999999999997}, 0.04000000000000002], CircleBox[{15.849634524385602, 3.999999999999998}, 0.12903225806451618], CircleBox[{15.882703280869562, 3.8166189111747824}, 0.05730659025787951], CircleBox[{15.635912375998522, 3.7530864197530835}, 0.19753086419753058], CircleBox[{15.635912375998522, 3.3086419753086393}, 0.24691358024691354], CircleBox[{16.766125384233714, 0.8235294117647065}, 0.11764705882352951], CircleBox[{16.298451035998465, 0.9629629629629631}, 0.3703703703703703], CircleBox[{16.934488149598405, 0.7199999999999998}, 0.07999999999999997], CircleBox[{16.69597423199843, 0.35555555555555546}, 0.35555555555555546], CircleBox[{17.98027994215215, 7.881656804733721}, 0.11834319526627204], CircleBox[{18.23929958117475, 7.717647058823524}, 0.18823529411764706], CircleBox[{18.18668621699829, 7.949999999999997}, 0.05000000000000002], CircleBox[{15.713858100704403, 7.633986928104572}, 0.10457516339869281], CircleBox[{16.110940094489045, 7.547169811320748}, 0.30188679245283], CircleBox[{16.479143397816625, 7.834710743801644}, 0.1652892561983472], CircleBox[{15.801547040998514, 7.861111111111109}, 0.13888888888888884], CircleBox[{20.869967789998036, 7.}], CircleBox[{23.851391759997757, 5.777777777777777}, 2.222222222222221], CircleBox[{23.851391759997753, 1.7777777777777777}, 1.7777777777777777], CircleBox[{-2.565053906939463, 5.300543863797586}, 0.03405060297942768], CircleBox[{-2.5666171567823635, 6.30434782608689}, 0.04347826086956285], CircleBox[{-0.3577708763999765, 6.43999999999997}, 0.03999999999999891], CircleBox[{4.770278351998913, 1.7777777777778225}, 1.7777777777774184], CircleBox[{-3.214752802434483, 2.7342995169082096}, 0.04830917874396133], CircleBox[{-3.399508710620374, 3.0038314176245193}, 0.0613026819923372], CircleBox[{-3.3932907864739112, 3.9917525773195837}, 0.03298969072164976], CircleBox[{-4.107739691999617, 3.604938271604936}, 0.049382716049382956], CircleBox[{-4.107739691999617, 3.493827160493833}, 0.06172839506172847], CircleBox[{-3.7764703619996474, 3.2962962962962945}, 0.03703703703703707], CircleBox[{-3.6067958271216143, 3.588604666534468}, 0.03304911097891464], CircleBox[{-3.301362333107358, 3.5516171909614496}, 0.03544528134692063], CircleBox[{-2.935555908922801, 1.7891737891737862}, 0.05698005698005688], CircleBox[{-2.954182532710383, 1.3807106598984762}, 0.08121827411167518], CircleBox[{-3.180185567999708, 0.3555555555555531}, 0.35555555555556323], CircleBox[{-3.144047095636069, 0.7676767676767687}, 0.04040404040404043], CircleBox[{-3.241342982768924, 0.7635327635327631}, 0.05698005698005699], CircleBox[{-3.6344977919996575, 0.27513227513227506}, 0.10582010582010574], CircleBox[{-3.5777087639996643, 0.08888888888888889}, 0.08888888888888889], CircleBox[{-2.7826623719997383, 0.3111111111111112}, 0.04444444444444446], CircleBox[{-2.7826623719997374, 0.1925925925925925}, 0.07407407407407401], CircleBox[{-2.8621670111997304, 0.07111111111111111}, 0.07111111111111111], CircleBox[{-1.6460819665350561, 0.4194053208137708}, 0.031298904538341124], CircleBox[{-1.3159388557240141, 0.1992337164750958}, 0.07662835249042144], CircleBox[{-1.1925695879998877, 0.08888888888888886}, 0.08888888888888886], CircleBox[{-2.002616855320566, 0.2641509433962265}, 0.037735849056603786], CircleBox[{-1.9081113407998203, 0.12799999999999997}, 0.12799999999999997], CircleBox[{-0.44033338633842356, 7.926153846153803}, 0.04923076923076813], CircleBox[{-2.8363817228105828, 6.966966966967004}, 0.048048048048042274], CircleBox[{-2.451393041999759, 7.9657064471879275}, 0.0342935528120721], CircleBox[{-3.5471300566150505, 7.794871794871789}, 0.13675213675213835], CircleBox[{-3.9478165671720475, 7.908045977011523}, 0.06130268199233684], CircleBox[{-4.024922359499648, 7.965277777777842}, 0.03472222222222235], CircleBox[{-3.555624141999662, 7.96570644718793}, 0.03429355281207133], CircleBox[{-3.4810139325402116, 7.959418878337793}, 0.0405811216622027], CircleBox[{-3.1187519782515882, 7.939789262418462}, 0.04014049172102356], CircleBox[{-7.844678121479527, 5.962577962577978}, 0.04158004158004166], CircleBox[{-7.751702321999264, 5.947368421052614}, 0.052631578947367634], CircleBox[{-6.938586693817532, 5.131313131313117}, 0.04040404040404022], CircleBox[{-6.966228018288298, 5.212464589235117}, 0.04532577903682702], CircleBox[{-7.038355482551487, 5.2597137014314885}, 0.04089979550102242], CircleBox[{-7.479564231431342, 6.0040567951318415}, 0.03245436105476655], CircleBox[{-7.041839471999339, 6.179894179894138}, 0.08465608465608303], CircleBox[{-7.159926297708205, 6.147448015122852}, 0.03780718336483731], CircleBox[{-7.0274697786795, 5.696356275303642}, 0.03643724696356281], CircleBox[{-7.058739234051669, 5.590559261159564}, 0.07388404309902513], CircleBox[{-7.482701663051927, 5.731829573934836}, 0.06265664160401027], CircleBox[{-7.398830818539897, 5.650255407020974}, 0.054341919356591696], CircleBox[{-7.3520812534071345, 5.57797000238076}, 0.03174351241964926], CircleBox[{-8.469157288041997, 6.253119429589975}, 0.03565062388591691], CircleBox[{-8.529465096781813, 6.3043478260869055}, 0.043478260869565], CircleBox[{-8.787354858946546, 6.79298245614033}, 0.05614035087719155], CircleBox[{-9.052687327090059, 6.454545454545427}, 0.09090909090909138], CircleBox[{-8.934975710538133, 6.387527839643648}, 0.04454342984409799], CircleBox[{-6.488107121417672, 4.299168975069253}, 0.04432132963988936], CircleBox[{-6.39440035900329, 4.17120622568093}, 0.06225680933852118], CircleBox[{-6.473949191999383, 4.223316912972084}, 0.03284072249589486], CircleBox[{-6.260990336999407, 2.907407407407405}, 0.0925925925925925], CircleBox[{-6.260990336999408, 3.0555555555555527}, 0.055555555555555504], CircleBox[{-6.147265917525194, 3.99175257731958}, 0.032989690721649347], CircleBox[{-5.8382511173725815, 3.7611940298507442}, 0.05970149253731352], CircleBox[{-5.699553355635825, 3.5324675324675283}, 0.2077922077922078], CircleBox[{-6.335560142582236, 3.7136301055530048}, 0.045892611289582344], CircleBox[{-6.309077820386499, 3.6133657070181497}, 0.05781015146259671], CircleBox[{-6.309077820386499, 3.509307434385476}, 0.0462481211700774], CircleBox[{-7.1669678387789855, 0.968523002421308}, 0.038740920096852274], CircleBox[{-6.867104001230123, 1.3626373626373613}, 0.04395604395604395], CircleBox[{-6.757894331999362, 1.4074074074074068}, 0.07407407407407399], CircleBox[{-6.653282964630951, 1.5672514619883033}, 0.1169590643274854], CircleBox[{-6.7578943319993625, 0.5185185185185188}, 0.07407407407407411], CircleBox[{-6.360371135999402, 0.3555555555555555}, 0.3555555555555555], CircleBox[{-6.757894331999363, 0.4}, 0.044444444444444446], CircleBox[{-7.5183734895645085, 0.6086956521739134}, 0.08695652173913049], CircleBox[{-7.666518779999277, 0.4126984126984127}, 0.15873015873015867], CircleBox[{-7.950463919999251, 0.19753086419753085}, 0.19753086419753085], CircleBox[{-8.714931604614575, 7.4461538461537655}, 0.06153846153845809], CircleBox[{-8.270653251930966, 7.918088737201342}, 0.05460750853242219], CircleBox[{-8.177620031999288, 7.95464852607702}, 0.04535147392289744], CircleBox[{-8.944271909999157, 7.888888888888888}, 0.11111111111111181], CircleBox[{-8.78735485894654, 7.944598337950132}, 0.05540166204986146], CircleBox[{-6.5058266089640435, 7.218295218295215}, 0.03326403326403339], CircleBox[{-6.570383390489949, 7.547169811320746}, 0.3018867924528344], CircleBox[{-6.735760523758835, 7.242761692650327}, 0.04454342984409723], CircleBox[{-6.660937454926191, 7.121951219512175}, 0.09756097560975582], CircleBox[{-6.570383390489946, 7.213836477987423}, 0.031446540880503075], CircleBox[{-6.921821423133363, 7.628865979381449}, 0.04123711340206128], CircleBox[{-7.280951168841411, 7.944598337950164}, 0.05540166204986111], CircleBox[{-7.1658329829163545, 7.895196506550219}, 0.06986899563318721], CircleBox[{-5.764086341999452, 7.888888888888888}, 0.11111111111111147], CircleBox[{-5.99342664738405, 7.79487179487179}, 0.13675213675213665], CircleBox[{-5.9060589119994455, 7.954648526077095}, 0.04535147392290247], CircleBox[{-6.699435038469959, 7.913494809688581}, 0.08650519031141883], CircleBox[{-6.5370481119993835, 7.923792104862064}, 0.07620789513793623], CircleBox[{-6.4392419915388075, 7.862218285601809}, 0.03936620411376832], CircleBox[{-12.007942058481627, 5.406896551724136}, 0.11034482758620705], CircleBox[{-11.496074537738046, 5.888198757763964}, 0.12422360248447187], CircleBox[{-11.85554472776359, 5.8823529411764675}, 0.23529411764705843], CircleBox[{-11.855544727763588, 5.549019607843133}, 0.09803921568627456], CircleBox[{-10.430704339061217, 6.373205741626789}, 0.09569377990430619], CircleBox[{-10.256098456799034, 6.55999999999999}, 0.15999999999999953], CircleBox[{-10.256098456799032, 6.359999999999997}, 0.04000000000000002], CircleBox[{-12.7720355876117, 3.999999999999998}, 0.12903225806451618], CircleBox[{-12.738966831127746, 3.8166189111747824}, 0.05730659025787951], CircleBox[{-12.98575773599878, 3.7530864197530835}, 0.19753086419753058], CircleBox[{-12.985757735998781, 3.3086419753086393}, 0.24691358024691354], CircleBox[{-11.855544727763588, 0.8235294117647065}, 0.11764705882352951], CircleBox[{-12.32321907599884, 0.9629629629629631}, 0.3703703703703703], CircleBox[{-11.687181962398897, 0.7199999999999998}, 0.07999999999999997], CircleBox[{-11.925695879998877, 0.35555555555555546}, 0.35555555555555546], CircleBox[{-10.641390169845149, 7.881656804733721}, 0.11834319526627204], CircleBox[{-10.38237053082255, 7.717647058823524}, 0.18823529411764706], CircleBox[{-10.434983894999018, 7.949999999999997}, 0.05000000000000002], CircleBox[{-12.907812011292902, 7.633986928104572}, 0.10457516339869281], CircleBox[{-12.510730017508255, 7.547169811320748}, 0.30188679245283], CircleBox[{-12.14252671418068, 7.834710743801644}, 0.1652892561983472], CircleBox[{-12.820123070998791, 7.861111111111109}, 0.13888888888888884], CircleBox[{-17.29225902599837, 7.}], CircleBox[{-19.081113407998203, 3.1999999999999993}, 3.1999999999999993], CircleBox[{-19.081113407998203, 7.2}, 0.8], CircleBox[{2.467385354482474, 5.406896551724155}, 0.11034482758617603], CircleBox[{5.699553355635688, 3.5324675324675074}, 0.20779220779219798], CircleBox[{2.862167011199739, 0.07111111111111798}, 0.07111111111110181], CircleBox[{3.9925155772170164, 0.12560386473429955}, 0.048309178743961345], CircleBox[{3.975231959999628, 0.03950617283950622}, 0.03950617283950622], CircleBox[{2.7258733439997433, 0.06530612244897875}, 0.06530612244898061], CircleBox[{1.3629366719998726, 0.06530612244897899}, 0.06530612244898085], CircleBox[{0.85183541999992, 0.08253968253968255}, 0.03174603174603174], CircleBox[{0.7950463919999252, 0.039506172839506165}, 0.039506172839506165], CircleBox[{1.0600618559999002, 0.039506172839506165}, 0.039506172839506165], CircleBox[{2.1201237119998004, 0.039506172839506165}, 0.039506172839506165], CircleBox[{0.4403333863381985, 7.926153846153591}, 0.049230769230789895], CircleBox[{4.095817402488037, 7.938303341902313}, 0.041131105398457775], CircleBox[{3.3672553072937568, 7.633986928104598}, 0.10457516339866495], CircleBox[{7.479564231431469, 6.0040567951320885}, 0.03245436105478751], CircleBox[{7.35208125340713, 5.577970002380755}, 0.031743512419645147], CircleBox[{8.787354858946268, 6.792982456140811}, 0.05614035087727611], CircleBox[{9.252031803676516, 6.419354838709711}, 0.03225806451612714], CircleBox[{5.309902599963301, 3.54751131221719}, 0.07239819004524894], CircleBox[{5.820339624452279, 3.2536687631027212}, 0.033542976939203405], CircleBox[{6.239194370891744, 3.5516171909614505}, 0.03544528134692116], CircleBox[{7.950463919999243, 0.1975308641975516}, 0.19753086419750668], CircleBox[{6.577201970181196, 1.905723905723905}, 0.033670033670033676], CircleBox[{6.581121544190267, 1.7006507592190891}, 0.03470715835141002], CircleBox[{3.44520103199967, 3.753086419753089}, 0.19753086419753085], CircleBox[{2.385139175999754, 0.35555555555555646}, 0.35555555555555646], CircleBox[{11.925695879998878, 0.35555555555555557}, 0.35555555555555557], CircleBox[{6.350339004870063, 0.8580441640378551}, 0.05047318611987389], CircleBox[{5.980131557216827, 0.43156199677938833}, 0.03220611916264094], CircleBox[{5.72433402239946, 0.1280000000000001}, 0.1280000000000001], CircleBox[{6.083833260521166, 0.08373590982286638}, 0.032206119162640906], CircleBox[{6.133215023999423, 0.03628117913832199}, 0.03628117913832199], CircleBox[{6.814683359999357, 0.06530612244897957}, 0.06530612244897957], CircleBox[{8.177620031999231, 0.06530612244897957}, 0.06530612244897957], CircleBox[{8.480494847999202, 0.12839506172839507}, 0.0493827160493827], CircleBox[{8.586501033599191, 0.07111111111111111}, 0.07111111111111111], CircleBox[{7.632445363199283, 0.12799999999999845}, 0.12800000000000208], CircleBox[{7.464602235999298, 0.10699588477366252}, 0.04115226337448557], CircleBox[{7.496151695999294, 0.036281179138321996}, 0.036281179138321996], CircleBox[{10.382370530819397, 7.717647058823377}, 0.1882352941172926], CircleBox[{9.182785827599163, 7.959999999999997}, 0.04000000000000218], CircleBox[{7.1658329829168235, 7.895196506549914}, 0.06986899563322135], CircleBox[{5.592740136827067, 7.908045977011453}, 0.06130268199233727], CircleBox[{5.366563145999499, 7.960000000000018}, 0.04000000000000018], CircleBox[{5.444739301511065, 7.938303341902295}, 0.04113110539845739], CircleBox[{6.421804725747513, 7.93978926241846}, 0.04014049172102408], CircleBox[{12.105610610938564, 5.300543863797586}, 0.03405060297942768], CircleBox[{12.107173860781465, 6.30434782608689}, 0.04347826086956285], CircleBox[{9.898327580399078, 6.43999999999997}, 0.03999999999999891], CircleBox[{12.755309506433584, 2.7342995169082096}, 0.04830917874396133], CircleBox[{12.940065414619475, 3.0038314176245193}, 0.0613026819923372], CircleBox[{12.933847490473012, 3.9917525773195837}, 0.03298969072164976], CircleBox[{13.648296395998717, 3.604938271604936}, 0.049382716049382956], CircleBox[{13.648296395998718, 3.493827160493833}, 0.06172839506172847], CircleBox[{13.317027065998749, 3.2962962962962945}, 0.03703703703703707], CircleBox[{13.147352531120717, 3.588604666534468}, 0.03304911097891464], CircleBox[{12.841919037106459, 3.5516171909614496}, 0.03544528134692063], CircleBox[{12.476112612921904, 1.7891737891737862}, 0.05698005698005688], CircleBox[{12.494739236709483, 1.3807106598984762}, 0.08121827411167518], CircleBox[{12.720742271998809, 0.3555555555555531}, 0.35555555555556323], CircleBox[{12.68460379963517, 0.7676767676767687}, 0.04040404040404043], CircleBox[{12.781899686768025, 0.7635327635327631}, 0.05698005698005699], CircleBox[{13.175054495998758, 0.27513227513227506}, 0.10582010582010574], CircleBox[{13.118265467998764, 0.08888888888888889}, 0.08888888888888889], CircleBox[{12.32321907599884, 0.3111111111111112}, 0.04444444444444446], CircleBox[{12.323219075998837, 0.1925925925925925}, 0.07407407407407401], CircleBox[{12.402723715198833, 0.07111111111111111}, 0.07111111111111111], CircleBox[{11.186638670534157, 0.4194053208137708}, 0.031298904538341124], CircleBox[{10.856495559723117, 0.1992337164750958}, 0.07662835249042144], CircleBox[{10.73312629199899, 0.08888888888888886}, 0.08888888888888886], CircleBox[{11.54317355931967, 0.2641509433962265}, 0.037735849056603786], CircleBox[{11.448668044798922, 0.12799999999999997}, 0.12799999999999997], CircleBox[{9.980890090337525, 7.926153846153803}, 0.04923076923076813], CircleBox[{12.376938426809684, 6.966966966967004}, 0.048048048048042274], CircleBox[{11.99194974599886, 7.9657064471879275}, 0.0342935528120721], CircleBox[{13.087686760614151, 7.794871794871789}, 0.13675213675213835], CircleBox[{13.488373271171149, 7.908045977011523}, 0.06130268199233684], CircleBox[{13.56547906349875, 7.965277777777842}, 0.03472222222222235], CircleBox[{13.096180845998761, 7.96570644718793}, 0.03429355281207133], CircleBox[{13.021570636539312, 7.959418878337793}, 0.0405811216622027], CircleBox[{12.65930868225069, 7.939789262418462}, 0.04014049172102356], CircleBox[{17.38523482547863, 5.962577962577978}, 0.04158004158004166], CircleBox[{17.292259025998362, 5.947368421052614}, 0.052631578947367634], CircleBox[{16.479143397816635, 5.131313131313117}, 0.04040404040404022], CircleBox[{16.5067847222874, 5.212464589235117}, 0.04532577903682702], CircleBox[{16.57891218655059, 5.2597137014314885}, 0.04089979550102242], CircleBox[{17.020120935430445, 6.0040567951318415}, 0.03245436105476655], CircleBox[{16.58239617599844, 6.179894179894138}, 0.08465608465608303], CircleBox[{16.70048300170731, 6.147448015122852}, 0.03780718336483731], CircleBox[{16.5680264826786, 5.696356275303642}, 0.03643724696356281], CircleBox[{16.59929593805077, 5.590559261159564}, 0.07388404309902513], CircleBox[{17.023258367051028, 5.731829573934836}, 0.06265664160401027], CircleBox[{16.939387522539, 5.650255407020974}, 0.054341919356591696], CircleBox[{16.892637957406237, 5.57797000238076}, 0.03174351241964926], CircleBox[{18.0097139920411, 6.253119429589975}, 0.03565062388591691], CircleBox[{18.070021800780914, 6.3043478260869055}, 0.043478260869565], CircleBox[{18.327911562945648, 6.79298245614033}, 0.05614035087719155], CircleBox[{18.59324403108916, 6.454545454545427}, 0.09090909090909138], CircleBox[{18.475532414537234, 6.387527839643648}, 0.04454342984409799], CircleBox[{16.02866382541677, 4.299168975069253}, 0.04432132963988936], CircleBox[{15.934957063002392, 4.17120622568093}, 0.06225680933852118], CircleBox[{16.014505895998486, 4.223316912972084}, 0.03284072249589486], CircleBox[{15.801547040998507, 2.907407407407405}, 0.0925925925925925], CircleBox[{15.801547040998512, 3.0555555555555527}, 0.055555555555555504], CircleBox[{15.687822621524296, 3.99175257731958}, 0.032989690721649347], CircleBox[{15.378807821371684, 3.7611940298507442}, 0.05970149253731352], CircleBox[{15.240110059634928, 3.5324675324675283}, 0.2077922077922078], CircleBox[{15.876116846581338, 3.7136301055530048}, 0.045892611289582344], CircleBox[{15.8496345243856, 3.6133657070181497}, 0.05781015146259671], CircleBox[{15.8496345243856, 3.509307434385476}, 0.0462481211700774], CircleBox[{16.707524542778085, 0.968523002421308}, 0.038740920096852274], CircleBox[{16.407660705229226, 1.3626373626373613}, 0.04395604395604395], CircleBox[{16.298451035998465, 1.4074074074074068}, 0.07407407407407399], CircleBox[{16.193839668630055, 1.5672514619883033}, 0.1169590643274854], CircleBox[{16.298451035998465, 0.5185185185185188}, 0.07407407407407411], CircleBox[{15.900927839998504, 0.3555555555555555}, 0.3555555555555555], CircleBox[{16.298451035998465, 0.4}, 0.044444444444444446], CircleBox[{17.058930193563608, 0.6086956521739134}, 0.08695652173913049], CircleBox[{17.207075483998377, 0.4126984126984127}, 0.15873015873015867], CircleBox[{17.491020623998352, 0.19753086419753085}, 0.19753086419753085], CircleBox[{18.25548830861368, 7.4461538461537655}, 0.06153846153845809], CircleBox[{17.811209955930067, 7.918088737201342}, 0.05460750853242219], CircleBox[{17.718176735998387, 7.95464852607702}, 0.04535147392289744], CircleBox[{18.48482861399826, 7.888888888888888}, 0.11111111111111181], CircleBox[{18.32791156294564, 7.944598337950132}, 0.05540166204986146], CircleBox[{16.046383312963144, 7.218295218295215}, 0.03326403326403339], CircleBox[{16.110940094489052, 7.547169811320746}, 0.3018867924528344], CircleBox[{16.276317227757936, 7.242761692650327}, 0.04454342984409723], CircleBox[{16.201494158925293, 7.121951219512175}, 0.09756097560975582], CircleBox[{16.110940094489045, 7.213836477987423}, 0.031446540880503075], CircleBox[{16.462378127132464, 7.628865979381449}, 0.04123711340206128], CircleBox[{16.821507872840513, 7.944598337950164}, 0.05540166204986111], CircleBox[{16.706389686915454, 7.895196506550219}, 0.06986899563318721], CircleBox[{15.304643045998553, 7.888888888888888}, 0.11111111111111147], CircleBox[{15.533983351383153, 7.79487179487179}, 0.13675213675213665], CircleBox[{15.446615615998548, 7.954648526077095}, 0.04535147392290247], CircleBox[{16.239991742469062, 7.913494809688581}, 0.08650519031141883], CircleBox[{16.077604815998487, 7.923792104862064}, 0.07620789513793623], CircleBox[{15.979798695537909, 7.862218285601809}, 0.03936620411376832], CircleBox[{21.54849876248073, 5.406896551724136}, 0.11034482758620705], CircleBox[{21.036631241737147, 5.888198757763964}, 0.12422360248447187], CircleBox[{21.39610143176269, 5.8823529411764675}, 0.23529411764705843], CircleBox[{21.396101431762688, 5.549019607843133}, 0.09803921568627456], CircleBox[{19.971261043060316, 6.373205741626789}, 0.09569377990430619], CircleBox[{19.79665516079813, 6.55999999999999}, 0.15999999999999953], CircleBox[{19.796655160798135, 6.359999999999997}, 0.04000000000000002], CircleBox[{22.312592291610798, 3.999999999999998}, 0.12903225806451618], CircleBox[{22.279523535126845, 3.8166189111747824}, 0.05730659025787951], CircleBox[{22.526314439997883, 3.7530864197530835}, 0.19753086419753058], CircleBox[{22.52631443999788, 3.3086419753086393}, 0.24691358024691354], CircleBox[{21.396101431762688, 0.8235294117647065}, 0.11764705882352951], CircleBox[{21.86377577999794, 0.9629629629629631}, 0.3703703703703703], CircleBox[{21.227738666397997, 0.7199999999999998}, 0.07999999999999997], CircleBox[{21.466252583997978, 0.35555555555555546}, 0.35555555555555546], CircleBox[{20.18194687384425, 7.881656804733721}, 0.11834319526627204], CircleBox[{19.922927234821653, 7.717647058823524}, 0.18823529411764706], CircleBox[{19.97554059899812, 7.949999999999997}, 0.05000000000000002], CircleBox[{22.448368715292002, 7.633986928104572}, 0.10457516339869281], CircleBox[{22.051286721507356, 7.547169811320748}, 0.30188679245283], CircleBox[{21.68308341817978, 7.834710743801644}, 0.1652892561983472], CircleBox[{22.360679774997894, 7.861111111111109}, 0.13888888888888884], CircleBox[{26.83281572999747, 7.}], CircleBox[{28.621670111997304, 3.1999999999999993}, 3.1999999999999993], CircleBox[{28.621670111997304, 7.2}, 0.8], CircleBox[{-2.060992472567631, 6.0040567951320885}, 0.03245436105478751], CircleBox[{-2.1884754505919704, 5.577970002380755}, 0.031743512419645147], CircleBox[{-0.7532018450528339, 6.792982456140811}, 0.05614035087727611], CircleBox[{-0.2885249003225856, 6.419354838709711}, 0.03225806451612714], CircleBox[{-4.230654104035801, 3.54751131221719}, 0.07239819004524894], CircleBox[{-3.7202170795468215, 3.2536687631027212}, 0.033542976939203405], CircleBox[{-3.3013623331073583, 3.5516171909614505}, 0.03544528134692116], CircleBox[{-1.5900927839998578, 0.1975308641975516}, 0.19753086419750668], CircleBox[{-2.9633547338179063, 1.905723905723905}, 0.033670033670033676], CircleBox[{-2.959435159808835, 1.7006507592190891}, 0.03470715835141002], CircleBox[{-6.095355671999431, 3.753086419753089}, 0.19753086419753085], CircleBox[{-7.155417527999346, 0.35555555555555646}, 0.35555555555555646], CircleBox[{-3.1902176991290387, 0.8580441640378551}, 0.05047318611987389], CircleBox[{-3.5604251467822743, 0.43156199677938833}, 0.03220611916264094], CircleBox[{-3.816222681599642, 0.1280000000000001}, 0.1280000000000001], CircleBox[{-3.4567234434779364, 0.08373590982286638}, 0.032206119162640906], CircleBox[{-3.407341679999679, 0.03628117913832199}, 0.03628117913832199], CircleBox[{-2.725873343999743, 0.06530612244897957}, 0.06530612244897957], CircleBox[{-1.3629366719998717, 0.06530612244897957}, 0.06530612244897957], CircleBox[{-1.0600618559999002, 0.12839506172839507}, 0.0493827160493827], CircleBox[{-0.9540556703999103, 0.07111111111111111}, 0.07111111111111111], CircleBox[{-1.908111340799819, 0.12799999999999845}, 0.12800000000000208], CircleBox[{-2.075954467999804, 0.10699588477366252}, 0.04115226337448557], CircleBox[{-2.0444050079998073, 0.036281179138321996}, 0.036281179138321996], CircleBox[{-0.35777087639993754, 7.959999999999997}, 0.04000000000000218], CircleBox[{-2.3747237210822782, 7.895196506549914}, 0.06986899563322135], CircleBox[{-3.9478165671720338, 7.908045977011453}, 0.06130268199233727], CircleBox[{-4.173993557999602, 7.960000000000018}, 0.04000000000000018], CircleBox[{-4.095817402488037, 7.938303341902295}, 0.04113110539845739], CircleBox[{-3.118751978251588, 7.93978926241846}, 0.04014049172102408], CircleBox[{-8.69874287717494, 7.7176470588229416}, 0.1882352941175826], CircleBox[{-6.975502797059639, 5.300543863797586}, 0.03405060297942768], CircleBox[{-6.973939547216737, 6.30434782608689}, 0.04347826086956285], CircleBox[{-9.182785827599126, 6.43999999999997}, 0.03999999999999891], CircleBox[{-14.310835055998016, 1.7777777777778225}, 1.7777777777774184], CircleBox[{-6.325803901564618, 2.7342995169082096}, 0.04830917874396133], CircleBox[{-6.141047993378726, 3.0038314176245193}, 0.0613026819923372], CircleBox[{-6.147265917525189, 3.9917525773195837}, 0.03298969072164976], CircleBox[{-5.432817011999484, 3.604938271604936}, 0.049382716049382956], CircleBox[{-5.432817011999485, 3.493827160493833}, 0.06172839506172847], CircleBox[{-5.764086341999455, 3.2962962962962945}, 0.03703703703703707], CircleBox[{-5.933760876877488, 3.588604666534468}, 0.03304911097891464], CircleBox[{-6.2391943708917434, 3.5516171909614496}, 0.03544528134692063], CircleBox[{-6.6050007950763, 1.7891737891737862}, 0.05698005698005688], CircleBox[{-6.586374171288719, 1.3807106598984762}, 0.08121827411167518], CircleBox[{-6.360371135999393, 0.3555555555555531}, 0.35555555555556323], CircleBox[{-6.396509608363033, 0.7676767676767687}, 0.04040404040404043], CircleBox[{-6.299213721230177, 0.7635327635327631}, 0.05698005698005699], CircleBox[{-5.906058911999444, 0.27513227513227506}, 0.10582010582010574], CircleBox[{-5.9628479399994365, 0.08888888888888889}, 0.08888888888888889], CircleBox[{-6.7578943319993625, 0.3111111111111112}, 0.04444444444444446], CircleBox[{-6.757894331999364, 0.1925925925925925}, 0.07407407407407401], CircleBox[{-6.678389692799372, 0.07111111111111111}, 0.07111111111111111], CircleBox[{-7.894474737464044, 0.4194053208137708}, 0.031298904538341124], CircleBox[{-8.224617848275086, 0.1992337164750958}, 0.07662835249042144], CircleBox[{-8.347987115999214, 0.08888888888888886}, 0.08888888888888886], CircleBox[{-7.537939848678535, 0.2641509433962265}, 0.037735849056603786], CircleBox[{-7.632445363199281, 0.12799999999999997}, 0.12799999999999997], CircleBox[{-9.100223317660676, 7.926153846153803}, 0.04923076923076813], CircleBox[{-6.704174981188519, 6.966966966967004}, 0.048048048048042274], CircleBox[{-7.089163661999343, 7.9657064471879275}, 0.0342935528120721], CircleBox[{-5.99342664738405, 7.794871794871789}, 0.13675213675213835], CircleBox[{-5.592740136827053, 7.908045977011523}, 0.06130268199233684], CircleBox[{-5.515634344499455, 7.965277777777842}, 0.03472222222222235], CircleBox[{-5.984932561999438, 7.96570644718793}, 0.03429355281207133], CircleBox[{-6.05954277145889, 7.959418878337793}, 0.0405811216622027], CircleBox[{-6.4218047257475135, 7.939789262418462}, 0.04014049172102356], CircleBox[{-11.236435286518676, 5.962577962577978}, 0.04158004158004166], CircleBox[{-11.329411085998938, 5.947368421052614}, 0.052631578947367634], CircleBox[{-12.14252671418067, 5.131313131313117}, 0.04040404040404022], CircleBox[{-12.114885389709901, 5.212464589235117}, 0.04532577903682702], CircleBox[{-12.042757925446718, 5.2597137014314885}, 0.04089979550102242], CircleBox[{-11.601549176566857, 6.0040567951318415}, 0.03245436105476655], CircleBox[{-12.039273935998862, 6.179894179894138}, 0.08465608465608303], CircleBox[{-11.921187110289997, 6.147448015122852}, 0.03780718336483731], CircleBox[{-12.053643629318701, 5.696356275303642}, 0.03643724696356281], CircleBox[{-12.022374173946533, 5.590559261159564}, 0.07388404309902513], CircleBox[{-11.598411744946276, 5.731829573934836}, 0.06265664160401027], CircleBox[{-11.682282589458307, 5.650255407020974}, 0.054341919356591696], CircleBox[{-11.72903215459107, 5.57797000238076}, 0.03174351241964926], CircleBox[{-10.61195611995621, 6.253119429589975}, 0.03565062388591691], CircleBox[{-10.55164831121639, 6.3043478260869055}, 0.043478260869565], CircleBox[{-10.293758549051656, 6.79298245614033}, 0.05614035087719155], CircleBox[{-10.028426080908146, 6.454545454545427}, 0.09090909090909138], CircleBox[{-10.146137697460068, 6.387527839643648}, 0.04454342984409799], CircleBox[{-12.593006286580529, 4.299168975069253}, 0.04432132963988936], CircleBox[{-12.686713048994914, 4.17120622568093}, 0.06225680933852118], CircleBox[{-12.60716421599882, 4.223316912972084}, 0.03284072249589486], CircleBox[{-12.820123070998793, 2.907407407407405}, 0.0925925925925925], CircleBox[{-12.820123070998795, 3.0555555555555527}, 0.055555555555555504], CircleBox[{-12.93384749047301, 3.99175257731958}, 0.032989690721649347], CircleBox[{-13.242862290625618, 3.7611940298507442}, 0.05970149253731352], CircleBox[{-13.381560052362378, 3.5324675324675283}, 0.2077922077922078], CircleBox[{-12.74555326541597, 3.7136301055530048}, 0.045892611289582344], CircleBox[{-12.772035587611704, 3.6133657070181497}, 0.05781015146259671], CircleBox[{-12.772035587611704, 3.509307434385476}, 0.0462481211700774], CircleBox[{-11.914145569219217, 0.968523002421308}, 0.038740920096852274], CircleBox[{-12.214009406768081, 1.3626373626373613}, 0.04395604395604395], CircleBox[{-12.323219075998841, 1.4074074074074068}, 0.07407407407407399], CircleBox[{-12.427830443367254, 1.5672514619883033}, 0.1169590643274854], CircleBox[{-12.32321907599884, 0.5185185185185188}, 0.07407407407407411], CircleBox[{-12.720742271998803, 0.3555555555555555}, 0.3555555555555555], CircleBox[{-12.323219075998841, 0.4}, 0.044444444444444446], CircleBox[{-11.562739918433692, 0.6086956521739134}, 0.08695652173913049], CircleBox[{-11.414594627998925, 0.4126984126984127}, 0.15873015873015867], CircleBox[{-11.13064948799895, 0.19753086419753085}, 0.19753086419753085], CircleBox[{-10.366181803383629, 7.4461538461537655}, 0.06153846153845809], CircleBox[{-10.810460156067235, 7.918088737201342}, 0.05460750853242219], CircleBox[{-10.903493375998917, 7.95464852607702}, 0.04535147392289744], CircleBox[{-10.136841497999045, 7.888888888888888}, 0.11111111111111181], CircleBox[{-10.293758549051661, 7.944598337950132}, 0.05540166204986146], CircleBox[{-12.575286799034158, 7.218295218295215}, 0.03326403326403339], CircleBox[{-12.510730017508253, 7.547169811320746}, 0.3018867924528344], CircleBox[{-12.34535288423937, 7.242761692650327}, 0.04454342984409723], CircleBox[{-12.420175953072013, 7.121951219512175}, 0.09756097560975582], CircleBox[{-12.510730017508257, 7.213836477987423}, 0.031446540880503075], CircleBox[{-12.15929198486484, 7.628865979381449}, 0.04123711340206128], CircleBox[{-11.80016223915679, 7.944598337950164}, 0.05540166204986111], CircleBox[{-11.915280425081848, 7.895196506550219}, 0.06986899563318721], CircleBox[{-13.31702706599875, 7.888888888888888}, 0.11111111111111147], CircleBox[{-13.087686760614153, 7.79487179487179}, 0.13675213675213665], CircleBox[{-13.175054495998756, 7.954648526077095}, 0.04535147392290247], CircleBox[{-12.381678369528244, 7.913494809688581}, 0.08650519031141883], CircleBox[{-12.54406529599882, 7.923792104862064}, 0.07620789513793623], CircleBox[{-12.641871416459393, 7.862218285601809}, 0.03936620411376832], CircleBox[{-16.613728053515675, 5.406896551724136}, 0.11034482758620705], CircleBox[{-19.081113407998238, 3.1999999999999633}, 3.2000000000000544], CircleBox[{-17.125595574259254, 5.888198757763964}, 0.12422360248447187], CircleBox[{-16.766125384233717, 5.8823529411764675}, 0.23529411764705843], CircleBox[{-16.766125384233714, 5.549019607843133}, 0.09803921568627456], CircleBox[{-18.190965772936085, 6.373205741626789}, 0.09569377990430619], CircleBox[{-18.36557165519827, 6.55999999999999}, 0.15999999999999953], CircleBox[{-18.36557165519827, 6.359999999999997}, 0.04000000000000002], CircleBox[{-15.849634524385602, 3.999999999999998}, 0.12903225806451618], CircleBox[{-15.882703280869562, 3.8166189111747824}, 0.05730659025787951], CircleBox[{-15.635912375998522, 3.7530864197530835}, 0.19753086419753058], CircleBox[{-15.635912375998522, 3.3086419753086393}, 0.24691358024691354], CircleBox[{-16.766125384233714, 0.8235294117647065}, 0.11764705882352951], CircleBox[{-16.298451035998465, 0.9629629629629631}, 0.3703703703703703], CircleBox[{-16.934488149598405, 0.7199999999999998}, 0.07999999999999997], CircleBox[{-16.69597423199843, 0.35555555555555546}, 0.35555555555555546], CircleBox[{-17.98027994215215, 7.881656804733721}, 0.11834319526627204], CircleBox[{-18.23929958117475, 7.717647058823524}, 0.18823529411764706], CircleBox[{-18.18668621699829, 7.949999999999997}, 0.05000000000000002], CircleBox[{-15.713858100704403, 7.633986928104572}, 0.10457516339869281], CircleBox[{-16.110940094489045, 7.547169811320748}, 0.30188679245283], CircleBox[{-16.479143397816625, 7.834710743801644}, 0.1652892561983472], CircleBox[{-15.801547040998514, 7.861111111111109}, 0.13888888888888884], CircleBox[{-20.869967789998036, 7.}], CircleBox[{-23.851391759997757, 5.777777777777777}, 2.222222222222221], CircleBox[{-23.851391759997753, 1.7777777777777777}, 1.7777777777777777]}, {RGBColor[1, 0, 0], CircleBox[{2.314988023764487, 5.647058823529408}, 1.0522672835293128], CircleBox[{0.7155417527999327, 6.399999999999997}, 0.7155417527999327], CircleBox[{3.4452010319996793, 3.555555555555553}, 1.3250773199998749], CircleBox[{2.3851391759997753, 0.}, 2.3851391759997753], CircleBox[{0.8944271909999159, 7.999999999999997}, 0.8944271909999159], CircleBox[{3.2795663669996915, 7.999999999999997}, 1.4907119849998594], TagBox[ConicHullRegionBox[{4.770278351999551, 0.}, {{0, 1}}], "InfiniteLine"], TagBox[ConicHullRegionBox[{0, 0}, {{0, -1}}], "InfiniteLine"]}, {RGBColor[0, 0, 1], CircleBox[{1.7888543819998315, 7}], CircleBox[{4.770278351999551, 5.777777777777777}, 2.222222222222221], CircleBox[{4.770278351999551, 1.7777777777777777}, 1.7777777777777777], CircleBox[{0., 3.1999999999999993}, 3.1999999999999993], CircleBox[{0., 7.2}, 0.8], TagBox[ConicHullRegionBox[{0, 8}, {{-1, 0}}], "InfiniteLine"], TagBox[ConicHullRegionBox[{0, 0}, {{1, 0}}], "InfiniteLine"]}}, PlotRange->{{-4.770278351999551, 9.540556703999101}, {-3.839999999999999, 11.839999999999996`}}, PlotRangeClipping->True]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { FractionBox["256", "5"], "1", FractionBox["4", SqrtBox["5"]], "7"}, { FractionBox["576", "25"], FractionBox["9", "20"], FractionBox["24", RowBox[{"5", " ", SqrtBox["5"]}]], FractionBox["13", "5"]}, { FractionBox["64", "5"], FractionBox["9", "16"], FractionBox["6", SqrtBox["5"]], "1"}, {"0", FractionBox["5", "16"], "0", "1"}, {"64", FractionBox["5", "4"], "0", "9"}, {"16", "0", "0", "1"}, {"0", "0", "0", RowBox[{"-", "1"}]}, { RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}], FractionBox["17", RowBox[{"8", " ", SqrtBox["5"]}]], FractionBox["11", "5"], FractionBox["12", SqrtBox["5"]]}, { FractionBox["128", SqrtBox["5"]], FractionBox[ RowBox[{"5", " ", SqrtBox["5"]}], "8"], "1", RowBox[{"4", " ", SqrtBox["5"]}]}, { FractionBox["192", RowBox[{"5", " ", SqrtBox["5"]}]], FractionBox["27", RowBox[{"16", " ", SqrtBox["5"]}]], FractionBox["13", "5"], FractionBox["6", SqrtBox["5"]]}, {"0", FractionBox[ RowBox[{"3", " ", SqrtBox["5"]}], "16"], "1", "0"}, { RowBox[{"32", " ", SqrtBox["5"]}], FractionBox[ SqrtBox["5"], "2"], "1", RowBox[{"4", " ", SqrtBox["5"]}]}, { RowBox[{ FractionBox["3", "38"], " ", RowBox[{"(", RowBox[{"313", "+", SqrtBox["92003"]}], ")"}]}], FractionBox["3", RowBox[{"2", " ", SqrtBox["5"]}]], FractionBox["11", "5"], FractionBox["12", SqrtBox["5"]]}, { FractionBox["64", RowBox[{"3", " ", SqrtBox["5"]}]], "0", "1", "0"}, {"0", "0", RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", RowBox[{ FractionBox["1", "150"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4124"}], "+", RowBox[{"55", " ", SqrtBox["5"], " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}]}], ")"}]}], RowBox[{ FractionBox["1", "50"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2588"}], "+", RowBox[{"35", " ", SqrtBox["5"], " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}]}], ")"}]}], "0", RowBox[{ FractionBox["9448", "375"], "-", FractionBox[ RowBox[{"94", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}], RowBox[{"15", " ", SqrtBox["5"]}]], "+", RowBox[{ FractionBox["1", "16"], " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}], "2"]}]}], RowBox[{ FractionBox["46223", "375"], "-", FractionBox[ RowBox[{"194", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}], RowBox[{"15", " ", SqrtBox["5"]}]], "+", RowBox[{ FractionBox["1", "16"], " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}], "2"]}]}]}, {"0", "0", RowBox[{ RowBox[{"-", FractionBox["1484", "125"]}], "+", FractionBox[ RowBox[{"33", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}], RowBox[{"40", " ", SqrtBox["5"]}]]}], FractionBox[ RowBox[{"63", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "384"}], "+", RowBox[{"5", " ", SqrtBox["5"], " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}]}], ")"}]}], "1000"], "0", RowBox[{ FractionBox["6836", "625"], "-", FractionBox[ RowBox[{"141", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}], RowBox[{"50", " ", SqrtBox["5"]}]], "+", RowBox[{ FractionBox["9", "320"], " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}], "2"]}]}], RowBox[{ FractionBox["34511", "625"], "-", FractionBox[ RowBox[{"291", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}], RowBox[{"50", " ", SqrtBox["5"]}]], "+", RowBox[{ FractionBox["9", "320"], " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}], "2"]}]}]}, {"0", "0", RowBox[{ RowBox[{"-", FractionBox["563", "75"]}], "+", FractionBox[ RowBox[{"33", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}], RowBox[{"32", " ", SqrtBox["5"]}]]}], RowBox[{ FractionBox["7", "800"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1856"}], "+", RowBox[{"45", " ", SqrtBox["5"], " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}]}], ")"}]}], "0", RowBox[{ FractionBox["2552", "375"], "-", FractionBox[ RowBox[{"91", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}], RowBox[{"40", " ", SqrtBox["5"]}]], "+", RowBox[{ FractionBox["9", "256"], " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}], "2"]}]}], RowBox[{ FractionBox["14152", "375"], "-", FractionBox[ RowBox[{"241", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}], RowBox[{"40", " ", SqrtBox["5"]}]], "+", RowBox[{ FractionBox["9", "256"], " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}], "2"]}]}]}, {"0", "0", RowBox[{ RowBox[{"-", FractionBox["44", "5"]}], "+", RowBox[{ FractionBox["11", "96"], " ", SqrtBox["5"], " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}]}], RowBox[{ RowBox[{"-", FractionBox["79", "5"]}], "+", RowBox[{ FractionBox["7", "32"], " ", SqrtBox["5"], " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}]}], "0", RowBox[{ FractionBox["176", "25"], "-", FractionBox[ RowBox[{"47", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}], RowBox[{"24", " ", SqrtBox["5"]}]], "+", RowBox[{ FractionBox["5", "256"], " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}], "2"]}]}], RowBox[{ FractionBox["976", "25"], "-", FractionBox[ RowBox[{"97", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}], RowBox[{"24", " ", SqrtBox["5"]}]], "+", RowBox[{ FractionBox["5", "256"], " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}], "2"]}]}]}, {"0", "0", RowBox[{ FractionBox["11", "24"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "64"}], "+", RowBox[{ SqrtBox["5"], " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "52"}], "+", RowBox[{ FractionBox["7", "8"], " ", SqrtBox["5"], " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}]}], "0", RowBox[{ FractionBox["412", "15"], "-", FractionBox[ RowBox[{"41", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}], RowBox[{"6", " ", SqrtBox["5"]}]], "+", RowBox[{ FractionBox["5", "64"], " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}], "2"]}]}], RowBox[{ FractionBox["1937", "15"], "-", FractionBox[ RowBox[{"91", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}], RowBox[{"6", " ", SqrtBox["5"]}]], "+", RowBox[{ FractionBox["5", "64"], " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}], "2"]}]}]}, {"0", "0", FractionBox["11", "3"], "0", FractionBox["7", "4"], RowBox[{ RowBox[{"-", FractionBox["134", "15"]}], "+", RowBox[{ FractionBox["1", "8"], " ", SqrtBox["5"], " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}]}], RowBox[{ RowBox[{"-", FractionBox["871", "60"]}], "+", RowBox[{ FractionBox["1", "8"], " ", SqrtBox["5"], " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}]}]}, {"0", "0", FractionBox["44", "5"], "0", FractionBox["21", "5"], RowBox[{ RowBox[{"-", FractionBox["596", "25"]}], "+", FractionBox[ RowBox[{"3", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}], RowBox[{"2", " ", SqrtBox["5"]}]]}], RowBox[{ FractionBox["3", "50"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "564"}], "+", RowBox[{"5", " ", SqrtBox["5"], " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"10", "+", RowBox[{"72", " ", "#1"}], "-", RowBox[{"261", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"30", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "5"]}], "&"}], ",", "3"}], "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\<\"nonintegral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", FractionBox["2", "3"], "0", FractionBox["1", "2"], FractionBox["2", "3"], RowBox[{"-", FractionBox["7", "6"]}]}, {"0", "0", FractionBox["52", "15"], "0", FractionBox["34", "5"], RowBox[{"-", FractionBox["44", "15"]}], RowBox[{"-", FractionBox["73", "15"]}]}, {"0", "0", "11", "0", FractionBox["51", "2"], RowBox[{"-", "14"}], RowBox[{"-", FractionBox["29", "2"]}]}, {"0", "0", "0", "0", FractionBox["1", "4"], RowBox[{"-", "1"}], FractionBox["1", "4"]}, {"0", "0", "0", "0", "1", "0", "0"}, {"0", "0", FractionBox["5", "3"], "0", FractionBox["17", "4"], RowBox[{"-", FractionBox["4", "3"]}], RowBox[{"-", FractionBox["29", "12"]}]}, {"0", "0", FractionBox["20", "3"], "0", "17", RowBox[{"-", FractionBox["28", "3"]}], RowBox[{"-", FractionBox["26", "3"]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\<\"nonintegral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", FractionBox["28", "3"], "0", "2", RowBox[{"-", FractionBox["8", "3"]}], RowBox[{"-", FractionBox["19", "3"]}]}, {"0", "0", FractionBox["4", "5"], "0", "0", FractionBox["4", "5"], RowBox[{"-", "1"}]}, {"0", "0", "1", "0", "0", "0", "0"}, {"0", "0", "0", "0", FractionBox["1", "4"], RowBox[{"-", "1"}], FractionBox["1", "4"]}, {"0", "0", FractionBox["104", "5"], "0", FractionBox["23", "5"], RowBox[{"-", "8"}], RowBox[{"-", FractionBox["62", "5"]}]}, {"0", "0", FractionBox["13", "2"], "0", FractionBox["9", "8"], RowBox[{"-", FractionBox["3", "2"]}], RowBox[{"-", FractionBox["31", "8"]}]}, {"0", "0", FractionBox["26", "5"], "0", FractionBox["9", "10"], RowBox[{"-", "2"}], RowBox[{"-", FractionBox["21", "10"]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\<\"nonintegral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", FractionBox["22", "3"], "0", FractionBox["7", "2"], RowBox[{"-", FractionBox["50", "3"]}], FractionBox["91", "6"]}, {"0", "0", FractionBox["14", "5"], "0", FractionBox["9", "10"], RowBox[{"-", FractionBox["22", "5"]}], FractionBox["39", "10"]}, {"0", "0", "1", "0", "0", "0", "0"}, {"0", "0", "0", "0", FractionBox["1", "4"], RowBox[{"-", "1"}], FractionBox["1", "4"]}, {"0", "0", "10", "0", FractionBox["11", "2"], RowBox[{"-", "26"}], FractionBox["49", "2"]}, {"0", "0", FractionBox["5", "2"], "0", FractionBox["9", "8"], RowBox[{"-", FractionBox["11", "2"]}], FractionBox["49", "8"]}, {"0", "0", "0", "0", "0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\<\"nonintegral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", FractionBox["2", "3"], "0", FractionBox["1", "2"], FractionBox["2", "3"], RowBox[{"-", FractionBox["7", "6"]}]}, {"0", "0", FractionBox["52", "15"], "0", FractionBox["26", "5"], FractionBox["148", "15"], RowBox[{"-", FractionBox["97", "15"]}]}, {"0", "0", FractionBox["38", "3"], "0", FractionBox["91", "4"], FractionBox["119", "3"], RowBox[{"-", FractionBox["287", "12"]}]}, {"0", "0", FractionBox["5", "3"], "0", FractionBox["7", "2"], FractionBox["14", "3"], RowBox[{"-", FractionBox["19", "6"]}]}, {"0", "0", "0", "0", "1", "0", "0"}, {"0", "0", "0", "0", "0", "1", "0"}, {"0", "0", FractionBox["20", "3"], "0", "13", FractionBox["68", "3"], RowBox[{"-", FractionBox["38", "3"]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\<\"nonintegral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", FractionBox[ RowBox[{ RowBox[{"-", "223592"}], "+", RowBox[{"51645", " ", SqrtBox["5"]}], "+", RowBox[{"165", " ", SqrtBox["460015"]}]}], "5700"], FractionBox[ RowBox[{ RowBox[{"-", "58216"}], "+", RowBox[{"14085", " ", SqrtBox["5"]}], "+", RowBox[{"45", " ", SqrtBox["460015"]}]}], "1900"], "0", FractionBox[ RowBox[{"470384086", "-", RowBox[{"176982720", " ", SqrtBox["5"]}], "+", RowBox[{"1056375", " ", SqrtBox["92003"]}], "-", RowBox[{"565440", " ", SqrtBox["460015"]}]}], "4332000"], FractionBox[ RowBox[{"1268569526", "-", RowBox[{"362529120", " ", SqrtBox["5"]}], "+", RowBox[{"1056375", " ", SqrtBox["92003"]}], "-", RowBox[{"1158240", " ", SqrtBox["460015"]}]}], "4332000"]}, {"0", "0", FractionBox[ RowBox[{ RowBox[{"-", "651776"}], "+", RowBox[{"154935", " ", SqrtBox["5"]}], "+", RowBox[{"495", " ", SqrtBox["460015"]}]}], "38000"], FractionBox[ RowBox[{"27", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "20672"}], "+", RowBox[{"4695", " ", SqrtBox["5"]}], "+", RowBox[{"15", " ", SqrtBox["460015"]}]}], ")"}]}], "38000"], "0", FractionBox[ RowBox[{"1399600258", "-", RowBox[{"530948160", " ", SqrtBox["5"]}], "+", RowBox[{"3169125", " ", SqrtBox["92003"]}], "-", RowBox[{"1696320", " ", SqrtBox["460015"]}]}], "28880000"], FractionBox[ RowBox[{"3798488578", "-", RowBox[{"1087587360", " ", SqrtBox["5"]}], "+", RowBox[{"3169125", " ", SqrtBox["92003"]}], "-", RowBox[{"3474720", " ", SqrtBox["460015"]}]}], "28880000"]}, {"0", "0", FractionBox[ RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "35264"}], "+", RowBox[{"17215", " ", SqrtBox["5"]}], "+", RowBox[{"55", " ", SqrtBox["460015"]}]}], ")"}]}], "30400"], FractionBox[ RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "31616"}], "+", RowBox[{"14085", " ", SqrtBox["5"]}], "+", RowBox[{"45", " ", SqrtBox["460015"]}]}], ")"}]}], "30400"], "0", FractionBox[ RowBox[{"1173181058", "-", RowBox[{"316856160", " ", SqrtBox["5"]}], "+", RowBox[{"3169125", " ", SqrtBox["92003"]}], "-", RowBox[{"1012320", " ", SqrtBox["460015"]}]}], "23104000"], FractionBox[ RowBox[{"2422645378", "-", RowBox[{"873495360", " ", SqrtBox["5"]}], "+", RowBox[{"3169125", " ", SqrtBox["92003"]}], "-", RowBox[{"2790720", " ", SqrtBox["460015"]}]}], "23104000"]}, {"0", "0", FractionBox[ RowBox[{"11", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4864"}], "+", RowBox[{"1565", " ", SqrtBox["5"]}], "+", RowBox[{"5", " ", SqrtBox["460015"]}]}], ")"}]}], "6080"], FractionBox[ RowBox[{ RowBox[{"-", "37696"}], "+", RowBox[{"14085", " ", SqrtBox["5"]}], "+", RowBox[{"45", " ", SqrtBox["460015"]}]}], "6080"], "0", FractionBox[ RowBox[{"139389682", "-", RowBox[{"44721440", " ", SqrtBox["5"]}], "+", RowBox[{"352125", " ", SqrtBox["92003"]}], "-", RowBox[{"142880", " ", SqrtBox["460015"]}]}], "4620800"], FractionBox[ RowBox[{"331614962", "-", RowBox[{"106570240", " ", SqrtBox["5"]}], "+", RowBox[{"352125", " ", SqrtBox["92003"]}], "-", RowBox[{"340480", " ", SqrtBox["460015"]}]}], "4620800"]}, {"0", "0", RowBox[{ FractionBox["11", "304"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1216"}], "+", RowBox[{"313", " ", SqrtBox["5"]}], "+", SqrtBox["460015"]}], ")"}]}], RowBox[{ FractionBox["1", "304"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9728"}], "+", RowBox[{"2817", " ", SqrtBox["5"]}], "+", RowBox[{"9", " ", SqrtBox["460015"]}]}], ")"}]}], "0", FractionBox[ RowBox[{"30428618", "-", RowBox[{"10657024", " ", SqrtBox["5"]}], "+", RowBox[{"70425", " ", SqrtBox["92003"]}], "-", RowBox[{"34048", " ", SqrtBox["460015"]}]}], "231040"], FractionBox[ RowBox[{"77329738", "-", RowBox[{"23026784", " ", SqrtBox["5"]}], "+", RowBox[{"70425", " ", SqrtBox["92003"]}], "-", RowBox[{"73568", " ", SqrtBox["460015"]}]}], "231040"]}, {"0", "0", "0", "0", "0", "1", "0"}, {"0", "0", FractionBox["44", "5"], "0", FractionBox["9", "5"], FractionBox[ RowBox[{ RowBox[{"-", "27056"}], "+", RowBox[{"14085", " ", SqrtBox["5"]}], "+", RowBox[{"45", " ", SqrtBox["460015"]}]}], "1900"], FractionBox[ RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "29032"}], "+", RowBox[{"4695", " ", SqrtBox["5"]}], "+", RowBox[{"15", " ", SqrtBox["460015"]}]}], ")"}]}], "1900"]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\<\"nonintegral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", FractionBox["26", "9"], "0", RowBox[{"-", FractionBox["1", "2"]}], FractionBox["58", "9"], RowBox[{"-", FractionBox["13", "6"]}]}, {"0", "0", FractionBox["4", "5"], "0", "0", FractionBox["4", "5"], RowBox[{"-", "1"}]}, {"0", "0", "1", "0", "0", "0", "0"}, {"0", "0", FractionBox["10", "9"], "0", RowBox[{"-", FractionBox["1", "4"]}], FractionBox["17", "9"], RowBox[{"-", FractionBox["1", "4"]}]}, {"0", "0", FractionBox["40", "9"], "0", RowBox[{"-", "1"}], FractionBox["104", "9"], RowBox[{"-", "2"}]}, {"0", "0", "0", "0", "0", "1", "0"}, {"0", "0", "0", "0", "0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\<\"nonintegral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", RowBox[{"-", FractionBox["2", "3"]}], "0", FractionBox["11", "10"], RowBox[{"-", FractionBox["2", "3"]}], FractionBox["47", "30"]}, {"0", "0", RowBox[{"-", FractionBox["4", "5"]}], "0", FractionBox["18", "25"], RowBox[{"-", FractionBox["4", "5"]}], FractionBox["57", "25"]}, {"0", "0", RowBox[{"-", "1"}], "0", FractionBox["9", "10"], RowBox[{"-", "2"}], FractionBox["41", "10"]}, {"0", "0", "0", "0", FractionBox["1", "4"], RowBox[{"-", "1"}], FractionBox["1", "4"]}, {"0", "0", "0", "0", "1", "0", "0"}, {"0", "0", "0", "0", "0", "1", "0"}, {"0", "0", "0", "0", "0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\<\"nonintegral\"\>"}], "}"}]}], "}"}]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "1"}], "1", "9", "1", "1", "1", "7", "0", "0", RowBox[{"2", " ", SqrtBox["5"]}], RowBox[{"4", " ", SqrtBox["5"]}], "0", "0", FractionBox[ RowBox[{"4", " ", SqrtBox["5"]}], "3"], FractionBox["4", SqrtBox["5"]]}, {"1", RowBox[{"-", "1"}], "1", "1", FractionBox["27", "5"], "1", FractionBox["13", "5"], "0", FractionBox["8", SqrtBox["5"]], "0", FractionBox["6", SqrtBox["5"]], FractionBox["8", SqrtBox["5"]], "0", "0", FractionBox["24", RowBox[{"5", " ", SqrtBox["5"]}]]}, {"9", "1", RowBox[{"-", "1"}], "1", "17", FractionBox["7", "2"], "1", RowBox[{"2", " ", SqrtBox["5"]}], RowBox[{"6", " ", SqrtBox["5"]}], "0", "0", RowBox[{"7", " ", SqrtBox["5"]}], RowBox[{"3", " ", SqrtBox["5"]}], "0", FractionBox["6", SqrtBox["5"]]}, {"1", "1", "1", RowBox[{"-", "1"}], "1", FractionBox["3", "2"], "1", "0", "0", "0", "0", SqrtBox["5"], SqrtBox["5"], FractionBox[ RowBox[{"2", " ", SqrtBox["5"]}], "3"], "0"}, {"1", FractionBox["27", "5"], "17", "1", RowBox[{"-", "1"}], "1", "9", FractionBox["8", SqrtBox["5"]], "0", FractionBox["24", SqrtBox["5"]], RowBox[{"6", " ", SqrtBox["5"]}], "0", FractionBox["8", SqrtBox["5"]], FractionBox[ RowBox[{"8", " ", SqrtBox["5"]}], "3"], "0"}, {"1", "1", FractionBox["7", "2"], FractionBox["3", "2"], "1", RowBox[{"-", "1"}], "1", SqrtBox["5"], SqrtBox["5"], FractionBox[ RowBox[{"3", " ", SqrtBox["5"]}], "2"], FractionBox[ RowBox[{"3", " ", SqrtBox["5"]}], "2"], "0", "0", "0", "0"}, {"7", FractionBox["13", "5"], "1", "1", "9", "1", RowBox[{"-", "1"}], FractionBox["12", SqrtBox["5"]], RowBox[{"4", " ", SqrtBox["5"]}], FractionBox["6", SqrtBox["5"]], "0", RowBox[{"4", " ", SqrtBox["5"]}], FractionBox["12", SqrtBox["5"]], "0", "0"}, {"0", "0", RowBox[{"2", " ", SqrtBox["5"]}], "0", FractionBox["8", SqrtBox["5"]], SqrtBox["5"], FractionBox["12", SqrtBox["5"]], RowBox[{"-", "1"}], "1", "1", "5", "3", "1", FractionBox["7", "3"], FractionBox["11", "5"]}, {"0", FractionBox["8", SqrtBox["5"]], RowBox[{"6", " ", SqrtBox["5"]}], "0", "0", SqrtBox["5"], RowBox[{"4", " ", SqrtBox["5"]}], "1", RowBox[{"-", "1"}], "7", "11", "1", "3", FractionBox["17", "3"], "1"}, { RowBox[{"2", " ", SqrtBox["5"]}], "0", "0", "0", FractionBox["24", SqrtBox["5"]], FractionBox[ RowBox[{"3", " ", SqrtBox["5"]}], "2"], FractionBox["6", SqrtBox["5"]], "1", "7", RowBox[{"-", "1"}], "1", "10", "4", "1", FractionBox["13", "5"]}, { RowBox[{"4", " ", SqrtBox["5"]}], FractionBox["6", SqrtBox["5"]], "0", "0", RowBox[{"6", " ", SqrtBox["5"]}], FractionBox[ RowBox[{"3", " ", SqrtBox["5"]}], "2"], "0", "5", "11", "1", RowBox[{"-", "1"}], "14", "8", "1", "1"}, {"0", FractionBox["8", SqrtBox["5"]], RowBox[{"7", " ", SqrtBox["5"]}], SqrtBox["5"], "0", "0", RowBox[{"4", " ", SqrtBox["5"]}], "3", "1", "10", "14", RowBox[{"-", "1"}], "1", FractionBox["13", "3"], "1"}, {"0", "0", RowBox[{"3", " ", SqrtBox["5"]}], SqrtBox["5"], FractionBox["8", SqrtBox["5"]], "0", FractionBox["12", SqrtBox["5"]], "1", "3", "4", "8", "1", RowBox[{"-", "1"}], "1", FractionBox["11", "5"]}, { FractionBox[ RowBox[{"4", " ", SqrtBox["5"]}], "3"], "0", "0", FractionBox[ RowBox[{"2", " ", SqrtBox["5"]}], "3"], FractionBox[ RowBox[{"8", " ", SqrtBox["5"]}], "3"], "0", "0", FractionBox["7", "3"], FractionBox["17", "3"], "1", "1", FractionBox["13", "3"], "1", RowBox[{"-", "1"}], "1"}, { FractionBox["4", SqrtBox["5"]], FractionBox["24", RowBox[{"5", " ", SqrtBox["5"]}]], FractionBox["6", SqrtBox["5"]], "0", "0", "0", "0", FractionBox["11", "5"], "1", FractionBox["13", "5"], "1", "1", FractionBox["11", "5"], "1", RowBox[{"-", "1"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGBQA+INM56cu3TrteM1+a/PQHTIIUaby0Ba98kFPxCdW3Tj +kcgfUTF9xeIzvn3S+kTkP60rtIRRDf1Fp0E0W8zQvQ/A2mrVhYLEH3RQswX REc1F8WD6DLlu70gWmG5/jIQrWkWzPgFSG87JDUdRD9RXLjkO5CW0Xz/BkRv i5yr9ANkToKmGYj+dumCC4hee8ZqH4guiDpr9RNIdxzmmgiimbSY14Dozbdv HAbRYct5hX6B3LOl4CuIbsqykfgNpNnSKxRBdJOut27k7deOAk9i7eYA6bIL 2qEg+pp4bxaIfpcm1XIESL9wWLUARH9do5t+E0gDAAKauZs= "], CellLabel->"Out[37]=",ExpressionUUID->"a6648485-bfa3-44fb-b6fe-692954f24a91"] }, Open ]] }, WindowSize->{1207, 661}, WindowMargins->{{Automatic, 3}, {Automatic, 0}}, Magnification:>1.15 Inherited, FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 664, 18, 57, "Input",ExpressionUUID->"748eabe5-c3d2-4801-b8b7-aa7a789097c7"], Cell[1225, 40, 695, 18, 54, "Input",ExpressionUUID->"0ab29ce4-3405-44f4-bf4a-16ef730ff686"], Cell[1923, 60, 9875, 235, 1081, "Input",ExpressionUUID->"72e544ec-21b3-4511-8714-78e40bf96f8f"], Cell[11801, 297, 35696, 782, 3461, "Input",ExpressionUUID->"34558bf5-30de-4efd-a85d-1e42927d2f41"], Cell[47500, 1081, 13766, 317, 1263, "Input",ExpressionUUID->"1669407f-19e4-41f4-83d2-404c097a4b8c"], Cell[61269, 1400, 1572, 43, 149, "Input",ExpressionUUID->"0ca661cb-0814-4baa-8045-ccb6be11fd34"], Cell[62844, 1445, 16048, 333, 1345, "Input",ExpressionUUID->"8eb99bd7-ecdf-447b-9254-91418df0046a"], Cell[78895, 1780, 13582, 313, 1166, "Input",ExpressionUUID->"df3b60f9-0301-4a00-901e-3f42ad1f6dcc"], Cell[92480, 2095, 3768, 87, 402, "Input",ExpressionUUID->"94e58c8f-e9bc-4bc5-9f72-1e7d65b723b4"], Cell[96251, 2184, 397, 13, 87, "Input",ExpressionUUID->"e0269727-13f8-41e1-9bed-e3d214f9ade5"], Cell[96651, 2199, 682, 20, 85, "Input",ExpressionUUID->"335fc47c-61a3-4d42-b8dc-1a6e429b3dbb"], Cell[97336, 2221, 4976, 131, 748, "Input",ExpressionUUID->"8f83b82e-c1db-40d9-ac4c-a723737f7704"], Cell[102315, 2354, 1032, 29, 80, "Input",ExpressionUUID->"d37cc6ff-e0b5-488e-9c86-c606b2039282"], Cell[103350, 2385, 1961, 44, 195, "Input",ExpressionUUID->"9a3eb7b4-a69e-4770-9009-32f6122d8145"], Cell[105314, 2431, 5280, 132, 425, "Input",ExpressionUUID->"affbea28-f93e-449d-873a-65b52e624ef9"], Cell[110597, 2565, 1188, 32, 80, "Input",ExpressionUUID->"15495297-a588-42f2-9830-ff3a5a9d76a4"], Cell[111788, 2599, 7564, 195, 678, "Input",ExpressionUUID->"cd35cdcc-79cb-420e-8b24-2c510cf42e01"], Cell[119355, 2796, 7711, 153, 563, "Input",ExpressionUUID->"b49300f9-4eb0-4e74-b00e-238ad2cc61d5"], Cell[127069, 2951, 3749, 87, 356, "Input",ExpressionUUID->"b43a5c15-ff8f-4841-a157-1d63bba9b7c4"], Cell[CellGroupData[{ Cell[130843, 3042, 3850, 63, 57, "Input",ExpressionUUID->"8c0d00eb-3a38-4d87-9e21-66e5a04e235e"], Cell[134696, 3107, 143234, 3275, 2246, "Output",ExpressionUUID->"a6648485-bfa3-44fb-b6fe-692954f24a91"] }, Open ]] } ] *)