(* 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[ 297394, 6537] NotebookOptionsPosition[ 294962, 6500] NotebookOutlinePosition[ 295336, 6516] CellTagsIndexPosition[ 295293, 6513] 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.738925426599176*^9, 3.7389254396961565`*^9}}, CellLabel->"In[17]:=",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"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7378245147847567`*^9, 3.737824531315222*^9}, { 3.737995674554207*^9, 3.7379956992022705`*^9}, 3.7380623568729105`*^9, { 3.7391189420276732`*^9, 3.7391189430300665`*^9}}, CellLabel-> "In[546]:=",ExpressionUUID->"cd35cdcc-79cb-420e-8b24-2c510cf42e01"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bend4", "[", RowBox[{"V_", ",", "n_"}], "]"}], "[", "i_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"B", "=", RowBox[{ RowBox[{"Bend3", "[", RowBox[{"V", ",", "n", ",", "Integers"}], "]"}], "[", "i", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "B", "]"}], ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"B", ",", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Bend3", "[", RowBox[{"V", ",", "n", ",", "Reals"}], "]"}], "[", "i", "]"}], ",", "\"\\""}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 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"}], "}"}], ",", "\[IndentingNewLine]", 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"}], "==", RowBox[{"cl", ".", RowBox[{"R", "[", RowBox[{ "co", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "]"}]}]}], ",", "RING"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"sol", "==", RowBox[{"{", "}"}]}], ",", "Null", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{ "sol", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ";", "\[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", "==", "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"}]}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"others1", "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{"rest", "==", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "l"}], "}"}]}], "]"}]}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ";", "\[IndentingNewLine]", RowBox[{"others2", "=", RowBox[{"<|", "|>"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "l"}], ",", RowBox[{"j", "++"}], ",", RowBox[{ RowBox[{"others2", "[", RowBox[{ "rest", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], "]"}], "=", 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"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellChangeTimes->{{3.7391189560742416`*^9, 3.7391189566526594`*^9}, 3.73911902986786*^9}, CellLabel-> "In[552]:=",ExpressionUUID->"fdeac3c3-374d-41ae-bc6b-594cdf3b953f"], 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.738925446423208*^9, 3.738925461203683*^9}, 3.7391189614120574`*^9}, CellLabel-> "In[554]:=",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", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "}"}]}], "}"}], ",", RowBox[{"1", "/", "100"}], ",", "5", ",", "35"}], "]"}]], "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.738925466173388*^9, 3.73892546844529*^9}}, CellLabel-> "In[555]:=",ExpressionUUID->"8c0d00eb-3a38-4d87-9e21-66e5a04e235e"], Cell[BoxData[ TagBox[GridBox[{ { GraphicsBox[ {RGBColor[0, 0, 1], Thickness[ Large], {CircleBox[{3.9999999999999996, 14.999999999999991}], CircleBox[{7.9999999999999964, 11.999999999999995}, 3.9999999999999987], CircleBox[{7.9999999999999964, 3.9999999999999982}, 3.9999999999999982], CircleBox[{0, 3.9999999999999982}, 3.9999999999999982], CircleBox[{0, 11.999999999999996}, 4.], LineBox[{{-4., 15.999999999999996`}, {11.999999999999996`, 15.999999999999996`}}], LineBox[{{-4., 0}, {11.999999999999996`, 0}}]}, {RGBColor[1, 0, 0], Dashing[{Small, Small}], CircleBox[{2., 15.999999999999993}, 2.], CircleBox[{5.999999999999999, 15.999999999999993}, 1.9999999999999993], LineBox[{{0, -4.}, {0, 19.999999999999996`}}], CircleBox[{3.9999999999999982, 0}, 3.9999999999999982], CircleBox[{3.999999999999999, 7.999999999999996}, 3.9999999999999987], CircleBox[{3.999999999999998, 13.333333333333325}, 1.333333333333333], LineBox[{{7.9999999999999964`, -4.}, {7.9999999999999964`, 19.999999999999996`}}]}}]}, { GraphicsBox[ {Thickness[ Large], {CircleBox[{4, 15}], CircleBox[{7.9999999999999964, 11.999999999999995}, 3.9999999999999982], CircleBox[{7.9999999999999964, 3.9999999999999982}, 3.9999999999999982], CircleBox[{0., 3.9999999999999982}, 3.9999999999999982], CircleBox[{0., 12.}, 4.], TagBox[ConicHullRegionBox[{0, 16}, {{-1, 0}}], "InfiniteLine"], TagBox[ConicHullRegionBox[{0, 0}, {{1, 0}}], "InfiniteLine"], CircleBox[{2.6666666666666643, 15.555555555555557}, 0.44444444444444303], CircleBox[{2.1463414634146343, 15.707317073170731}, 0.09756097560975603], CircleBox[{1.9393939393939394, 15.636363636363637}, 0.1212121212121211], CircleBox[{2., 15.875}, 0.125], CircleBox[{6.06060606060606, 15.63636363636363}, 0.12121212121212105], CircleBox[{5.853658536585364, 15.707317073170726}, 0.09756097560975599], CircleBox[{5.3333333333333375, 15.555555555555557}, 0.44444444444444375], CircleBox[{5.999999999999997, 15.874999999999993}, 0.12499999999999994], CircleBox[{3.999999999999998, 1.0714285714285703}, 0.07142857142857136], CircleBox[{4.444444444444443, 1.3333333333333321}, 0.44444444444444403], CircleBox[{3.5555555555555545, 1.3333333333333321}, 0.4444444444444441], CircleBox[{3.9999999999999982, 0.49999999999999956}, 0.49999999999999956], CircleBox[{4., 10.333333333333327}, 0.33333333333333254], CircleBox[{3.9999999999999982, 8.999999999999995}, 0.9999999999999987], CircleBox[{3.9999999999999982, 6.9999999999999964}, 0.9999999999999996], CircleBox[{4.081632653061225, 13.142857142857148}, 0.0816326530612244], CircleBox[{3.9183673469387745, 13.142857142857142}, 0.0816326530612244], CircleBox[{4., 13.666666666666654}, 0.33333333333333254], CircleBox[{3.999999999999999, 13.266666666666664}, 0.06666666666666665], CircleBox[{12, 15}], CircleBox[{16., 3.9999999999999982}, 3.9999999999999982], CircleBox[{16., 12.}, 4.], CircleBox[{-4, 15}], CircleBox[{-7.9999999999999964, 11.999999999999995}, 3.9999999999999982], CircleBox[{-7.9999999999999964, 3.9999999999999982}, 3.9999999999999982], CircleBox[{2.9781021897810027, 15.91240875912409}, 0.029197080291970223], CircleBox[{3.2, 15.84}, 0.16], CircleBox[{2.999999999999993, 15.96875}, 0.031249999999999778], CircleBox[{2.2222222222222214, 15.370370370370374}, 0.03703703703703688], CircleBox[{2.1538461538461537, 15.461538461538465}, 0.07692307692307668], CircleBox[{2.095238095238095, 15.571428571428571}, 0.047619047619047554], CircleBox[{2.8571428571428292, 15.000000000000032}, 0.14285714285713821], CircleBox[{2.4, 15.96}, 0.04], CircleBox[{2.1728395061728394, 15.851851851851851}, 0.04938271604938268], CircleBox[{2.2857142857142856, 15.918367346938775}, 0.08163265306122448], CircleBox[{1.3333333333333333, 15.888888888888888}, 0.1111111111111111], CircleBox[{1.6000000000000003, 15.84}, 0.1599999999999998], CircleBox[{1.824561403508772, 15.789473684210527}, 0.0701754385964912], CircleBox[{4.800000000000029, 15.84}, 0.15999999999999853], CircleBox[{5.021897810218965, 15.912408759123984}, 0.029197080291970417], CircleBox[{5.000000000000021, 15.96875}, 0.031249999999999778], CircleBox[{5.7777777777777874, 15.370370370370374}, 0.03703703703703688], CircleBox[{5.846153846153836, 15.461538461538446}, 0.0769230769230765], CircleBox[{5.904761904761903, 15.57142857142856}, 0.04761904761904752], CircleBox[{5.142857142857236, 15.000000000000032}, 0.14285714285713821], CircleBox[{6.66666666666665, 15.88888888888889}, 0.11111111111111041], CircleBox[{6.175438596491225, 15.78947368421052}, 0.07017543859649113], CircleBox[{6.399999999999998, 15.840000000000009}, 0.15999999999999973], CircleBox[{5.600000000000002, 15.959999999999999}, 0.03999999999999995], CircleBox[{5.714285714285711, 15.918367346938771}, 0.08163265306122437], CircleBox[{5.827160493827158, 15.851851851851844}, 0.04938271604938267], CircleBox[{3.912408759124086, 1.021897810218977}, 0.02919708029197068], CircleBox[{4.087591240875909, 1.021897810218977}, 0.02919708029197073], CircleBox[{3.9999999999999987, 1.5499999999999998}, 0.049999999999999906], CircleBox[{3.999999999999998, 1.7999999999999985}, 0.19999999999999968], CircleBox[{3.9999999999999987, 2.3333333333333313}, 0.33333333333333304], CircleBox[{3.9999999999999973, 1.1714285714285702}, 0.0285714285714285], CircleBox[{4.444444444444443, 0.8333333333333326}, 0.055555555555555504], CircleBox[{5.33333333333333, 0.44444444444444375}, 0.44444444444444375], CircleBox[{4.705882352941174, 0.7058823529411757}, 0.23529411764705857], CircleBox[{3.5555555555555545, 0.8333333333333327}, 0.05555555555555551], CircleBox[{3.294117647058822, 0.7058823529411759}, 0.23529411764705863], CircleBox[{2.666666666666666, 0.4444444444444442}, 0.4444444444444442], CircleBox[{3.636363636363635, 10.060606060606048}, 0.12121212121212048], CircleBox[{3.472868217054262, 9.953488372093013}, 0.031007751937984388], CircleBox[{3.515151515151516, 9.909090909090907}, 0.030303030303030252], CircleBox[{4.5271317829457285, 9.953488372092997}, 0.03100775193798425], CircleBox[{4.363636363636359, 10.060606060606046}, 0.1212121212121208], CircleBox[{4.48484848484848, 9.909090909090898}, 0.030303030303030224], CircleBox[{4.159999999999998, 5.6000000000000005}, 0.15999999999999973], CircleBox[{3.8399999999999994, 5.599999999999999}, 0.15999999999999978], CircleBox[{3.999999999999998, 5.857142857142854}, 0.14285714285714263], CircleBox[{4.049382716049382, 11.111111111111093}, 0.049382716049382436], CircleBox[{3.9506172839506175, 11.111111111111093}, 0.049382716049382436], CircleBox[{3.9999999999999956, 10.833333333333304}, 0.1666666666666655], CircleBox[{3.9999999999999956, 11.038461538461512}, 0.03846153846153825], CircleBox[{5.142857142857141, 8.999999999999998}, 0.14285714285714263], CircleBox[{5.33333333333333, 7.555555555555552}, 0.44444444444444364], CircleBox[{5.33333333333333, 8.444444444444441}, 0.4444444444444438], CircleBox[{2.857142857142858, 8.999999999999998}, 0.1428571428571427], CircleBox[{2.6666666666666674, 8.444444444444443}, 0.44444444444444403], CircleBox[{2.666666666666666, 7.555555555555553}, 0.4444444444444441], CircleBox[{3.636363636363641, 13.939393939393858}, 0.12121212121211954], CircleBox[{4.363636363636363, 13.93939393939394}, 0.12121212121212122], CircleBox[{4.000000000000015, 12.73333333333336}, 0.06666666666666617], CircleBox[{4., 12.899999999999995}, 0.09999999999999944], CircleBox[{4., 13.045454545454554}, 0.04545454545454534], CircleBox[{4.099173553719008, 13.256198347107434}, 0.03305785123966938], CircleBox[{4.16438356164384, 13.315068493150692}, 0.05479452054794518], CircleBox[{3.835616438356166, 13.315068493150687}, 0.05479452054794516], CircleBox[{3.9008264462809903, 13.256198347107436}, 0.033057851239669395], CircleBox[{13.333333333333336, 15.555555555555557}, 0.44444444444444303], CircleBox[{13.853658536585368, 15.707317073170731}, 0.09756097560975603], CircleBox[{14.06060606060606, 15.636363636363637}, 0.1212121212121211], CircleBox[{14., 15.875}, 0.125], CircleBox[{9.93939393939394, 15.63636363636363}, 0.12121212121212105], CircleBox[{10.146341463414636, 15.707317073170726}, 0.09756097560975599], CircleBox[{10.666666666666663, 15.555555555555557}, 0.44444444444444375], CircleBox[{10.000000000000002, 15.874999999999993}, 0.12499999999999994], CircleBox[{12.000000000000002, 1.0714285714285703}, 0.07142857142857136], CircleBox[{11.555555555555557, 1.3333333333333321}, 0.44444444444444403], CircleBox[{12.444444444444445, 1.3333333333333321}, 0.4444444444444441], CircleBox[{12.000000000000002, 0.49999999999999956}, 0.49999999999999956], CircleBox[{12., 10.333333333333327}, 0.33333333333333254], CircleBox[{12.000000000000002, 8.999999999999995}, 0.9999999999999987], CircleBox[{12.000000000000002, 6.9999999999999964}, 0.9999999999999996], CircleBox[{11.918367346938776, 13.142857142857148}, 0.0816326530612244], CircleBox[{12.081632653061225, 13.142857142857142}, 0.0816326530612244], CircleBox[{12., 13.666666666666654}, 0.33333333333333254], CircleBox[{12.000000000000002, 13.266666666666664}, 0.06666666666666665], CircleBox[{20, 15}], CircleBox[{23.999999999999996, 11.999999999999995}, 3.9999999999999982], CircleBox[{23.999999999999996, 3.9999999999999982}, 3.9999999999999982], CircleBox[{-2.6666666666666643, 15.555555555555557}, 0.44444444444444303], CircleBox[{-2.1463414634146343, 15.707317073170731}, 0.09756097560975603], CircleBox[{-1.9393939393939394, 15.636363636363637}, 0.1212121212121211], CircleBox[{-2., 15.875}, 0.125], CircleBox[{-6.06060606060606, 15.63636363636363}, 0.12121212121212105], CircleBox[{-5.853658536585364, 15.707317073170726}, 0.09756097560975599], CircleBox[{-5.3333333333333375, 15.555555555555557}, 0.44444444444444375], CircleBox[{-5.999999999999997, 15.874999999999993}, 0.12499999999999994], CircleBox[{-3.999999999999998, 1.0714285714285703}, 0.07142857142857136], CircleBox[{-4.444444444444443, 1.3333333333333321}, 0.44444444444444403], CircleBox[{-3.5555555555555545, 1.3333333333333321}, 0.4444444444444441], CircleBox[{-3.9999999999999982, 0.49999999999999956}, 0.49999999999999956], CircleBox[{-4., 10.333333333333327}, 0.33333333333333254], CircleBox[{-3.9999999999999982, 8.999999999999995}, 0.9999999999999987], CircleBox[{-3.9999999999999982, 6.9999999999999964}, 0.9999999999999996], CircleBox[{-4.081632653061225, 13.142857142857148}, 0.0816326530612244], CircleBox[{-3.9183673469387745, 13.142857142857142}, 0.0816326530612244], CircleBox[{-4., 13.666666666666654}, 0.33333333333333254], CircleBox[{-3.999999999999999, 13.266666666666664}, 0.06666666666666665], CircleBox[{-12, 15}], CircleBox[{-16., 3.9999999999999982}, 3.9999999999999982], CircleBox[{-16., 12.}, 4.], CircleBox[{3.428571428571519, 15.918367346938773}, 0.08163265306122752], CircleBox[{3.157894736842052, 15.63157894736846}, 0.05263157894736275], CircleBox[{2.9090909090909163, 15.966942148760332}, 0.03305785123966967], CircleBox[{2.0465116279069764, 15.472868217054264}, 0.03100775193798444], CircleBox[{2.947368421052428, 14.807017543859796}, 0.07017543859647499], CircleBox[{2.962962962962963, 15.160493827160494}, 0.04938271604938271], CircleBox[{2.5882352941176485, 15.088235294117665}, 0.029411764705881763], CircleBox[{2.181818181818182, 15.966942148760332}, 0.03305785123966941], CircleBox[{1.1428571428571428, 15.918367346938775}, 0.08163265306122448], CircleBox[{0.9922480620155039, 15.906976744186046}, 0.031007751937984496], CircleBox[{1., 15.96875}, 0.03125], CircleBox[{1.4545454545454546, 15.966942148760332}, 0.03305785123966942], CircleBox[{1.7142857142857149, 15.666666666666666}, 0.04761904761904752], CircleBox[{1.793103448275862, 15.689655172413794}, 0.03448275862068962], CircleBox[{1.4193548387096817, 15.774193548387098}, 0.032258064516128795], CircleBox[{1.84070796460177, 15.893805309734514}, 0.03539823008849556], CircleBox[{1.7777777777777777, 15.950617283950617}, 0.04938271604938271], CircleBox[{4.571428571428603, 15.918367346938926}, 0.08163265306122373], CircleBox[{4.842105263157854, 15.631578947368437}, 0.0526315789473659], CircleBox[{5.090909090909132, 15.96694214876039}, 0.0330578512396693], CircleBox[{5.9534883720930205, 15.472868217054266}, 0.031007751937984388], CircleBox[{5.037037037037266, 15.160493827160636}, 0.0493827160493744], CircleBox[{5.052631578947416, 14.807017543859669}, 0.07017543859649011], CircleBox[{5.411764705882368, 15.088235294117672}, 0.029411764705881565], CircleBox[{6.545454545454541, 15.96694214876033}, 0.03305785123966917], CircleBox[{7.007751937984496, 15.906976744186048}, 0.03100775193798362], CircleBox[{6.857142857142894, 15.918367346938775}, 0.08163265306122448], CircleBox[{6.999999999999993, 15.96875}, 0.031249999999999334], CircleBox[{6.285714285714278, 15.666666666666657}, 0.047619047619047394], CircleBox[{6.206896551724137, 15.689655172413792}, 0.034482758620689585], CircleBox[{6.580645161290324, 15.7741935483871}, 0.03225806451612868], CircleBox[{6.222222222222221, 15.95061728395061}, 0.04938271604938262], CircleBox[{6.159292035398226, 15.893805309734503}, 0.035398230088495526], CircleBox[{5.818181818181816, 15.966942148760324}, 0.033057851239669395], CircleBox[{4.081632653061222, 2.857142857142854}, 0.08163265306122425], CircleBox[{3.9183673469387728, 2.8571428571428537}, 0.08163265306122429], CircleBox[{3.9999999999999982, 2.7333333333333303}, 0.06666666666666653], CircleBox[{4.3636363636363615, 2.060606060606058}, 0.1212121212121209], CircleBox[{4.292682926829266, 1.853658536585364}, 0.09756097560975589], CircleBox[{3.7073170731707306, 1.8536585365853646}, 0.09756097560975596], CircleBox[{3.6363636363636345, 2.0606060606060588}, 0.12121212121212105], CircleBox[{6.0606060606060534, 0.3636363636363625}, 0.12121212121212083], CircleBox[{5.853658536585362, 0.29268292682926766}, 0.09756097560975588], CircleBox[{5.999999999999992, 0.12499999999999961}, 0.12499999999999961], CircleBox[{4.749999999999998, 0.9687499999999992}, 0.031249999999999917], CircleBox[{4.888888888888887, 0.9999999999999983}, 0.11111111111111084], CircleBox[{5.142857142857141, 0.9999999999999984}, 0.14285714285714263], CircleBox[{4.5333333333333306, 0.49999999999999944}, 0.0333333333333333], CircleBox[{4.606060606060604, 0.36363636363636315}, 0.12121212121212105], CircleBox[{4.799999999999997, 0.15999999999999978}, 0.15999999999999978], CircleBox[{2.146341463414633, 0.292682926829268}, 0.09756097560975599], CircleBox[{1.9393939393939386, 0.3636363636363633}, 0.1212121212121211], CircleBox[{1.9999999999999991, 0.12499999999999989}, 0.12499999999999989], CircleBox[{3.2499999999999987, 0.9687499999999997}, 0.03124999999999993], CircleBox[{3.1111111111111094, 0.9999999999999992}, 0.11111111111111094], CircleBox[{2.8571428571428563, 0.9999999999999993}, 0.14285714285714277], CircleBox[{3.466666666666665, 0.49999999999999956}, 0.033333333333333305], CircleBox[{3.1999999999999984, 0.1599999999999998}, 0.1599999999999998], CircleBox[{3.3939393939393923, 0.3636363636363633}, 0.1212121212121211], CircleBox[{3.7938144329896915, 10.020618556701027}, 0.041237113402061785], CircleBox[{3.6363636363636296, 10.227272727272705}, 0.04545454545454343], CircleBox[{3.4285714285714284, 9.866666666666656}, 0.038095238095237974], CircleBox[{4.206185567010316, 10.020618556701034}, 0.04123711340206164], CircleBox[{4.363636363636382, 10.227272727272682}, 0.04545454545454296], CircleBox[{4.571428571428574, 9.86666666666667}, 0.038095238095237974], CircleBox[{3.9999999999999987, 5.416666666666666}, 0.0833333333333331], CircleBox[{4.000000000000002, 5.166666666666672}, 0.16666666666666638], CircleBox[{4.3636363636363615, 5.939393939393938}, 0.12121212121212095], CircleBox[{4.210526315789472, 5.824561403508771}, 0.07017543859649111], CircleBox[{3.7894736842105248, 5.82456140350877}, 0.07017543859649113], CircleBox[{3.636363636363635, 5.939393939393937}, 0.12121212121212108], CircleBox[{3.8356164383561677, 10.684931506849257}, 0.05479452054794401], CircleBox[{4.164383561643835, 10.684931506849306}, 0.054794520547945036], CircleBox[{4.000000000000011, 11.38095238095252}, 0.04761904761904897], CircleBox[{4., 11.266666666666632}, 0.06666666666666565], CircleBox[{3.9999999999999933, 11.17142857142854}, 0.028571428571428293], CircleBox[{4.093023255813954, 11.007751937984478}, 0.031007751937984388], CircleBox[{3.906976744186047, 11.007751937984478}, 0.031007751937984388], CircleBox[{5.0370370370370345, 8.839506172839505}, 0.04938271604938247], CircleBox[{5.052631578947366, 9.192982456140347}, 0.07017543859649109], CircleBox[{5.192982456140348, 6.947368421052631}, 0.07017543859649106], CircleBox[{5.169230769230766, 7.076923076923076}, 0.0615384615384614], CircleBox[{5.066666666666664, 6.999999999999997}, 0.06666666666666653], CircleBox[{5.8461538461538405, 8.538461538461531}, 0.07692307692307662], CircleBox[{5.999999999999991, 8.24999999999999}, 0.2499999999999989], CircleBox[{5.9999999999999964, 7.750000000000001}, 0.24999999999999933], CircleBox[{5.333333333333328, 8.944444444444438}, 0.055555555555555296], CircleBox[{4.842105263157892, 8.368421052631575}, 0.05263157894736836], CircleBox[{4.799999999999996, 8.159999999999995}, 0.15999999999999973], CircleBox[{4.799999999999995, 7.839999999999992}, 0.15999999999999973], CircleBox[{2.9473684210526305, 9.192982456140346}, 0.07017543859649092], CircleBox[{2.9629629629629615, 8.839506172839501}, 0.049382716049382575], CircleBox[{2.83076923076923, 7.076923076923075}, 0.06153846153846146], CircleBox[{2.807017543859648, 6.947368421052629}, 0.07017543859649115], CircleBox[{2.9333333333333313, 6.999999999999996}, 0.06666666666666658], CircleBox[{2.1538461538461546, 8.538461538461538}, 0.07692307692307672], CircleBox[{1.9999999999999982, 8.249999999999991}, 0.24999999999999933], CircleBox[{2.0000000000000018, 7.75}, 0.24999999999999978], CircleBox[{2.6666666666666674, 8.944444444444438}, 0.05555555555555534], CircleBox[{3.1578947368421053, 8.368421052631579}, 0.05263157894736838], CircleBox[{3.1999999999999984, 7.839999999999996}, 0.1599999999999998], CircleBox[{3.1999999999999997, 8.159999999999998}, 0.15999999999999986], CircleBox[{3.793814432989695, 13.979381443298857}, 0.041237113402061085], CircleBox[{3.5000000000000924, 14.062500000000137}, 0.06249999999999556], CircleBox[{4.2061855670103565, 13.979381443299024}, 0.04123711340206379], CircleBox[{4.500000000000014, 14.06249999999993}, 0.062499999999987566], CircleBox[{4.000000000000022, 12.619047619047667}, 0.04761904761904453], CircleBox[{4.093023255813954, 12.9922480620155}, 0.031007751937984388], CircleBox[{3.906976744186047, 12.992248062015486}, 0.031007751937984388], CircleBox[{13.021897810218999, 15.91240875912409}, 0.029197080291970223], CircleBox[{12.8, 15.84}, 0.16], CircleBox[{13.000000000000007, 15.96875}, 0.031249999999999778], CircleBox[{13.777777777777779, 15.370370370370374}, 0.03703703703703688], CircleBox[{13.846153846153848, 15.461538461538465}, 0.07692307692307668], CircleBox[{13.904761904761905, 15.571428571428571}, 0.047619047619047554], CircleBox[{13.14285714285717, 15.000000000000032}, 0.14285714285713821], CircleBox[{13.6, 15.96}, 0.04], CircleBox[{13.827160493827162, 15.851851851851851}, 0.04938271604938268], CircleBox[{13.714285714285714, 15.918367346938775}, 0.08163265306122448], CircleBox[{14.666666666666666, 15.888888888888888}, 0.1111111111111111], CircleBox[{14.399999999999999, 15.84}, 0.1599999999999998], CircleBox[{14.17543859649123, 15.789473684210527}, 0.0701754385964912], CircleBox[{11.19999999999997, 15.84}, 0.15999999999999853], CircleBox[{10.978102189781037, 15.912408759123984}, 0.029197080291970417], CircleBox[{10.999999999999979, 15.96875}, 0.031249999999999778], CircleBox[{10.222222222222213, 15.370370370370374}, 0.03703703703703688], CircleBox[{10.153846153846164, 15.461538461538446}, 0.0769230769230765], CircleBox[{10.095238095238095, 15.57142857142856}, 0.04761904761904752], CircleBox[{10.857142857142764, 15.000000000000032}, 0.14285714285713821], CircleBox[{9.33333333333335, 15.88888888888889}, 0.11111111111111041], CircleBox[{9.824561403508776, 15.78947368421052}, 0.07017543859649113], CircleBox[{9.600000000000001, 15.840000000000009}, 0.15999999999999973], CircleBox[{10.399999999999997, 15.959999999999999}, 0.03999999999999995], CircleBox[{10.28571428571429, 15.918367346938771}, 0.08163265306122437], CircleBox[{10.172839506172842, 15.851851851851844}, 0.04938271604938267], CircleBox[{12.087591240875913, 1.021897810218977}, 0.02919708029197068], CircleBox[{11.91240875912409, 1.021897810218977}, 0.02919708029197073], CircleBox[{12.000000000000004, 1.5499999999999998}, 0.049999999999999906], CircleBox[{12.000000000000002, 1.7999999999999985}, 0.19999999999999968], CircleBox[{12.000000000000002, 2.3333333333333313}, 0.33333333333333304], CircleBox[{12.000000000000004, 1.1714285714285702}, 0.0285714285714285], CircleBox[{11.555555555555557, 0.8333333333333326}, 0.055555555555555504], CircleBox[{10.66666666666667, 0.44444444444444375}, 0.44444444444444375], CircleBox[{11.294117647058824, 0.7058823529411757}, 0.23529411764705857], CircleBox[{12.444444444444445, 0.8333333333333327}, 0.05555555555555551], CircleBox[{12.705882352941178, 0.7058823529411759}, 0.23529411764705863], CircleBox[{13.333333333333336, 0.4444444444444442}, 0.4444444444444442], CircleBox[{12.363636363636365, 10.060606060606048}, 0.12121212121212048], CircleBox[{12.52713178294574, 9.953488372093013}, 0.031007751937984388], CircleBox[{12.484848484848484, 9.909090909090907}, 0.030303030303030252], CircleBox[{11.472868217054272, 9.953488372092997}, 0.03100775193798425], CircleBox[{11.636363636363642, 10.060606060606046}, 0.1212121212121208], CircleBox[{11.51515151515152, 9.909090909090898}, 0.030303030303030224], CircleBox[{11.840000000000002, 5.6000000000000005}, 0.15999999999999973], CircleBox[{12.160000000000002, 5.599999999999999}, 0.15999999999999978], CircleBox[{12.000000000000002, 5.857142857142854}, 0.14285714285714263], CircleBox[{11.950617283950617, 11.111111111111093}, 0.049382716049382436], CircleBox[{12.049382716049381, 11.111111111111093}, 0.049382716049382436], CircleBox[{12.000000000000005, 10.833333333333304}, 0.1666666666666655], CircleBox[{12.000000000000004, 11.038461538461512}, 0.03846153846153825], CircleBox[{10.857142857142858, 8.999999999999998}, 0.14285714285714263], CircleBox[{10.66666666666667, 7.555555555555552}, 0.44444444444444364], CircleBox[{10.66666666666667, 8.444444444444441}, 0.4444444444444438], CircleBox[{13.142857142857142, 8.999999999999998}, 0.1428571428571427], CircleBox[{13.333333333333334, 8.444444444444443}, 0.44444444444444403], CircleBox[{13.333333333333334, 7.555555555555553}, 0.4444444444444441], CircleBox[{12.363636363636358, 13.939393939393858}, 0.12121212121211954], CircleBox[{11.636363636363637, 13.93939393939394}, 0.12121212121212122], CircleBox[{11.999999999999986, 12.73333333333336}, 0.06666666666666617], CircleBox[{12., 12.899999999999995}, 0.09999999999999944], CircleBox[{12., 13.045454545454554}, 0.04545454545454534], CircleBox[{11.900826446280993, 13.256198347107434}, 0.03305785123966938], CircleBox[{11.835616438356158, 13.315068493150692}, 0.05479452054794518], CircleBox[{12.164383561643833, 13.315068493150687}, 0.05479452054794516], CircleBox[{12.09917355371901, 13.256198347107436}, 0.033057851239669395], CircleBox[{18.666666666666664, 15.555555555555557}, 0.44444444444444303], CircleBox[{18.146341463414632, 15.707317073170731}, 0.09756097560975603], CircleBox[{17.939393939393938, 15.636363636363637}, 0.1212121212121211], CircleBox[{18., 15.875}, 0.125], CircleBox[{22.06060606060606, 15.63636363636363}, 0.12121212121212105], CircleBox[{21.853658536585364, 15.707317073170726}, 0.09756097560975599], CircleBox[{21.33333333333334, 15.555555555555557}, 0.44444444444444375], CircleBox[{21.999999999999996, 15.874999999999993}, 0.12499999999999994], CircleBox[{19.999999999999996, 1.0714285714285703}, 0.07142857142857136], CircleBox[{20.444444444444443, 1.3333333333333321}, 0.44444444444444403], CircleBox[{19.555555555555554, 1.3333333333333321}, 0.4444444444444441], CircleBox[{19.999999999999996, 0.49999999999999956}, 0.49999999999999956], CircleBox[{20., 10.333333333333327}, 0.33333333333333254], CircleBox[{19.999999999999996, 8.999999999999995}, 0.9999999999999987], CircleBox[{19.999999999999996, 6.9999999999999964}, 0.9999999999999996], CircleBox[{20.081632653061227, 13.142857142857148}, 0.0816326530612244], CircleBox[{19.918367346938776, 13.142857142857142}, 0.0816326530612244], CircleBox[{20., 13.666666666666654}, 0.33333333333333254], CircleBox[{20., 13.266666666666664}, 0.06666666666666665], CircleBox[{28, 15}], CircleBox[{32., 3.9999999999999982}, 3.9999999999999982], CircleBox[{32., 12.}, 4.], CircleBox[{-2.9781021897810027, 15.91240875912409}, 0.029197080291970223], CircleBox[{-3.2, 15.84}, 0.16], CircleBox[{-2.999999999999993, 15.96875}, 0.031249999999999778], CircleBox[{-2.2222222222222214, 15.370370370370374}, 0.03703703703703688], CircleBox[{-2.1538461538461537, 15.461538461538465}, 0.07692307692307668], CircleBox[{-2.095238095238095, 15.571428571428571}, 0.047619047619047554], CircleBox[{-2.8571428571428292, 15.000000000000032}, 0.14285714285713821], CircleBox[{-2.4, 15.96}, 0.04], CircleBox[{-2.1728395061728394, 15.851851851851851}, 0.04938271604938268], CircleBox[{-2.2857142857142856, 15.918367346938775}, 0.08163265306122448], CircleBox[{-1.3333333333333333, 15.888888888888888}, 0.1111111111111111], CircleBox[{-1.6000000000000003, 15.84}, 0.1599999999999998], CircleBox[{-1.824561403508772, 15.789473684210527}, 0.0701754385964912], CircleBox[{-4.800000000000029, 15.84}, 0.15999999999999853], CircleBox[{-5.021897810218965, 15.912408759123984}, 0.029197080291970417], CircleBox[{-5.000000000000021, 15.96875}, 0.031249999999999778], CircleBox[{-5.7777777777777874, 15.370370370370374}, 0.03703703703703688], CircleBox[{-5.846153846153836, 15.461538461538446}, 0.0769230769230765], CircleBox[{-5.904761904761903, 15.57142857142856}, 0.04761904761904752], CircleBox[{-5.142857142857236, 15.000000000000032}, 0.14285714285713821], CircleBox[{-6.66666666666665, 15.88888888888889}, 0.11111111111111041], CircleBox[{-6.175438596491225, 15.78947368421052}, 0.07017543859649113], CircleBox[{-6.399999999999998, 15.840000000000009}, 0.15999999999999973], CircleBox[{-5.600000000000002, 15.959999999999999}, 0.03999999999999995], CircleBox[{-5.714285714285711, 15.918367346938771}, 0.08163265306122437], CircleBox[{-5.827160493827158, 15.851851851851844}, 0.04938271604938267], CircleBox[{-3.912408759124086, 1.021897810218977}, 0.02919708029197068], CircleBox[{-4.087591240875909, 1.021897810218977}, 0.02919708029197073], CircleBox[{-3.9999999999999987, 1.5499999999999998}, 0.049999999999999906], CircleBox[{-3.999999999999998, 1.7999999999999985}, 0.19999999999999968], CircleBox[{-3.9999999999999987, 2.3333333333333313}, 0.33333333333333304], CircleBox[{-3.9999999999999973, 1.1714285714285702}, 0.0285714285714285], CircleBox[{-4.444444444444443, 0.8333333333333326}, 0.055555555555555504], CircleBox[{-5.33333333333333, 0.44444444444444375}, 0.44444444444444375], CircleBox[{-4.705882352941174, 0.7058823529411757}, 0.23529411764705857], CircleBox[{-3.5555555555555545, 0.8333333333333327}, 0.05555555555555551], CircleBox[{-3.294117647058822, 0.7058823529411759}, 0.23529411764705863], CircleBox[{-2.666666666666666, 0.4444444444444442}, 0.4444444444444442], CircleBox[{-3.636363636363635, 10.060606060606048}, 0.12121212121212048], CircleBox[{-3.472868217054262, 9.953488372093013}, 0.031007751937984388], CircleBox[{-3.515151515151516, 9.909090909090907}, 0.030303030303030252], CircleBox[{-4.5271317829457285, 9.953488372092997}, 0.03100775193798425], CircleBox[{-4.363636363636359, 10.060606060606046}, 0.1212121212121208], CircleBox[{-4.48484848484848, 9.909090909090898}, 0.030303030303030224], CircleBox[{-4.159999999999998, 5.6000000000000005}, 0.15999999999999973], CircleBox[{-3.8399999999999994, 5.599999999999999}, 0.15999999999999978], CircleBox[{-3.999999999999998, 5.857142857142854}, 0.14285714285714263], CircleBox[{-4.049382716049382, 11.111111111111093}, 0.049382716049382436], CircleBox[{-3.9506172839506175, 11.111111111111093}, 0.049382716049382436], CircleBox[{-3.9999999999999956, 10.833333333333304}, 0.1666666666666655], CircleBox[{-3.9999999999999956, 11.038461538461512}, 0.03846153846153825], CircleBox[{-5.142857142857141, 8.999999999999998}, 0.14285714285714263], CircleBox[{-5.33333333333333, 7.555555555555552}, 0.44444444444444364], CircleBox[{-5.33333333333333, 8.444444444444441}, 0.4444444444444438], CircleBox[{-2.857142857142858, 8.999999999999998}, 0.1428571428571427], CircleBox[{-2.6666666666666674, 8.444444444444443}, 0.44444444444444403], CircleBox[{-2.666666666666666, 7.555555555555553}, 0.4444444444444441], CircleBox[{-3.636363636363641, 13.939393939393858}, 0.12121212121211954], CircleBox[{-4.363636363636363, 13.93939393939394}, 0.12121212121212122], CircleBox[{-4.000000000000015, 12.73333333333336}, 0.06666666666666617], CircleBox[{-4., 12.899999999999995}, 0.09999999999999944], CircleBox[{-4., 13.045454545454554}, 0.04545454545454534], CircleBox[{-4.099173553719008, 13.256198347107434}, 0.03305785123966938], CircleBox[{-4.16438356164384, 13.315068493150692}, 0.05479452054794518], CircleBox[{-3.835616438356166, 13.315068493150687}, 0.05479452054794516], CircleBox[{-3.9008264462809903, 13.256198347107436}, 0.033057851239669395], CircleBox[{-13.333333333333336, 15.555555555555557}, 0.44444444444444303], CircleBox[{-13.853658536585368, 15.707317073170731}, 0.09756097560975603], CircleBox[{-14.06060606060606, 15.636363636363637}, 0.1212121212121211], CircleBox[{-14., 15.875}, 0.125], CircleBox[{-9.93939393939394, 15.63636363636363}, 0.12121212121212105], CircleBox[{-10.146341463414636, 15.707317073170726}, 0.09756097560975599], CircleBox[{-10.666666666666663, 15.555555555555557}, 0.44444444444444375], CircleBox[{-10.000000000000002, 15.874999999999993}, 0.12499999999999994], CircleBox[{-12.000000000000002, 1.0714285714285703}, 0.07142857142857136], CircleBox[{-11.555555555555557, 1.3333333333333321}, 0.44444444444444403], CircleBox[{-12.444444444444445, 1.3333333333333321}, 0.4444444444444441], CircleBox[{-12.000000000000002, 0.49999999999999956}, 0.49999999999999956], CircleBox[{-12., 10.333333333333327}, 0.33333333333333254], CircleBox[{-12.000000000000002, 8.999999999999995}, 0.9999999999999987], CircleBox[{-12.000000000000002, 6.9999999999999964}, 0.9999999999999996], CircleBox[{-11.918367346938776, 13.142857142857148}, 0.0816326530612244], CircleBox[{-12.081632653061225, 13.142857142857142}, 0.0816326530612244], CircleBox[{-12., 13.666666666666654}, 0.33333333333333254], CircleBox[{-12.000000000000002, 13.266666666666664}, 0.06666666666666665], CircleBox[{-20, 15}], CircleBox[{-23.999999999999996, 11.999999999999995}, 3.9999999999999982], CircleBox[{-23.999999999999996, 3.9999999999999982}, 3.9999999999999982], CircleBox[{3.555555555556229, 15.950617283950777}, 0.049382716049402677], CircleBox[{3.000000000000919, 14.708333333332318}, 0.04166666666669943], CircleBox[{0.8, 15.96}, 0.04], CircleBox[{0.8888888888888888, 15.950617283950617}, 0.04938271604938271], CircleBox[{4.444444444444365, 15.95061728395079}, 0.04938271604938881], CircleBox[{4.999999999999848, 14.70833333333303}, 0.041666666666666664], CircleBox[{7.199999999999978, 15.960000000000147}, 0.03999999999999927], CircleBox[{7.111111111111151, 15.950617283950706}, 0.04938271604938299], CircleBox[{3.9999999999999996, 2.9545454545454524}, 0.0454545454545453], CircleBox[{4., 3.099999999999997}, 0.09999999999999963], CircleBox[{4.164383561643834, 2.684931506849313}, 0.05479452054794506], CircleBox[{4.099173553719007, 2.7438016528925595}, 0.03305785123966934], CircleBox[{3.9008264462809903, 2.743801652892559}, 0.03305785123966935], CircleBox[{3.8356164383561624, 2.6849315068493125}, 0.05479452054794511], CircleBox[{4.444444444444441, 1.8333333333333313}, 0.05555555555555532], CircleBox[{4.499999999999998, 1.9375000000000002}, 0.06249999999999983], CircleBox[{4.190476190476188, 1.9428571428571413}, 0.03809523809523802], CircleBox[{4.206185567010306, 2.0206185567010277}, 0.041237113402061765], CircleBox[{3.5555555555555527, 1.833333333333331}, 0.0555555555555554], CircleBox[{3.4999999999999996, 1.9374999999999991}, 0.06249999999999992], CircleBox[{3.7938144329896906, 2.020618556701029}, 0.041237113402061785], CircleBox[{3.809523809523808, 1.9428571428571413}, 0.03809523809523804], CircleBox[{5.904761904761901, 0.4285714285714275}, 0.047619047619047464], CircleBox[{5.846153846153842, 0.5384615384615371}, 0.07692307692307673], CircleBox[{6.399999999999995, 0.15999999999999942}, 0.15999999999999942], CircleBox[{6.175438596491222, 0.210526315789473}, 0.070175438596491], CircleBox[{5.827160493827156, 0.14814814814814778}, 0.049382716049382595], CircleBox[{5.714285714285711, 0.08163265306122434}, 0.08163265306122434], CircleBox[{5.052631578947366, 1.1929824561403481}, 0.07017543859649097], CircleBox[{4.92307692307692, 1.169230769230767}, 0.06153846153846136], CircleBox[{4.9438202247191, 0.8539325842696622}, 0.04494382022471903], CircleBox[{5.037037037037035, 0.8395061728395053}, 0.049382716049382644], CircleBox[{5.0218978102189755, 0.08759124087591226}, 0.029197080291970753], CircleBox[{4.999999999999997, 0.031249999999999944}, 0.031249999999999944], CircleBox[{4.761904761904759, 0.428571428571428}, 0.04761904761904752], CircleBox[{4.842105263157894, 0.36842105263157854}, 0.05263157894736836], CircleBox[{4.571428571428569, 0.08163265306122437}, 0.08163265306122437], CircleBox[{4.491228070175437, 0.2105263157894735}, 0.07017543859649117], CircleBox[{2.095238095238094, 0.4285714285714282}, 0.04761904761904754], CircleBox[{2.153846153846153, 0.5384615384615379}, 0.07692307692307684], CircleBox[{2.2857142857142847, 0.08163265306122437}, 0.08163265306122437], CircleBox[{2.1728395061728385, 0.148148148148148}, 0.049382716049382665], CircleBox[{1.8245614035087712, 0.2105263157894735}, 0.07017543859649117], CircleBox[{1.5999999999999994, 0.1599999999999999}, 0.1599999999999999], CircleBox[{2.962962962962962, 0.8395061728395055}, 0.04938271604938261], CircleBox[{3.0561797752808983, 0.8539325842696626}, 0.04494382022471903], CircleBox[{3.0769230769230758, 1.1692307692307684}, 0.061538461538461445], CircleBox[{2.94736842105263, 1.19298245614035}, 0.07017543859649114], CircleBox[{2.978102189781021, 0.08759124087591225}, 0.02919708029197075], CircleBox[{2.999999999999999, 0.031249999999999944}, 0.031249999999999944], CircleBox[{3.238095238095237, 0.428571428571428}, 0.04761904761904752], CircleBox[{3.157894736842104, 0.3684210526315784}, 0.05263157894736835], CircleBox[{3.50877192982456, 0.21052631578947345}, 0.07017543859649115], CircleBox[{3.4285714285714266, 0.0816326530612244}, 0.0816326530612244], CircleBox[{4.049382716049379, 4.888888888888891}, 0.04938271604938246], CircleBox[{3.950617283950613, 4.88888888888889}, 0.04938271604938247], CircleBox[{3.999999999999997, 4.9615384615384635}, 0.038461538461538304], CircleBox[{4.164383561643834, 5.315068493150687}, 0.054794520547944994], CircleBox[{4.123711340206182, 5.402061855670102}, 0.04123711340206171], CircleBox[{3.876288659793811, 5.4020618556701}, 0.041237113402061744], CircleBox[{3.835616438356162, 5.315068493150683}, 0.05479452054794506], CircleBox[{4.527131782945733, 6.046511627906976}, 0.031007751937984374], CircleBox[{4.484848484848481, 6.090909090909088}, 0.030303030303030186], CircleBox[{4.285714285714285, 5.75}, 0.0357142857142856], CircleBox[{4.3636363636363615, 5.772727272727272}, 0.045454545454545345], CircleBox[{4.165289256198344, 5.917355371900824}, 0.03305785123966935], CircleBox[{4.206185567010306, 5.9793814432989665}, 0.041237113402061765], CircleBox[{3.472868217054262, 6.046511627906975}, 0.031007751937984454], CircleBox[{3.515151515151514, 6.090909090909089}, 0.030303030303030262], CircleBox[{3.714285714285713, 5.75}, 0.035714285714285636], CircleBox[{3.636363636363635, 5.772727272727271}, 0.045454545454545386], CircleBox[{3.7938144329896897, 5.979381443298968}, 0.04123711340206179], CircleBox[{3.8347107438016512, 5.917355371900824}, 0.033057851239669374], CircleBox[{4.000000000000016, 11.464285714285483}, 0.03571428571428064], CircleBox[{5.249999999999999, 7.031250000000001}, 0.031249999999999917], CircleBox[{5.333333333333331, 7.055555555555555}, 0.05555555555555542], CircleBox[{5.052631578947366, 6.807017543859648}, 0.07017543859649103], CircleBox[{5.097345132743361, 6.902654867256637}, 0.03539823008849549], CircleBox[{5.080291970802918, 7.094890510948906}, 0.02919708029197075], CircleBox[{5.0370370370370345, 7.160493827160492}, 0.04938271604938264], CircleBox[{5.953488372093012, 8.527131782945725}, 0.031007751937984235], CircleBox[{5.866666666666662, 7.4285714285714235}, 0.03809523809523796], CircleBox[{5.805309734513268, 7.469026548672562}, 0.03539823008849545], CircleBox[{5.8666666666666565, 7.499999999999994}, 0.03333333333333318], CircleBox[{5.7777777777777715, 8.629629629629617}, 0.037037037037036646], CircleBox[{6.285714285714282, 8.333333333333337}, 0.04761904761904743], CircleBox[{6.399999999999989, 7.840000000000002}, 0.15999999999999892], CircleBox[{6.399999999999987, 8.15999999999999}, 0.15999999999999917], CircleBox[{5.714285714285711, 8.08163265306122}, 0.0816326530612243], CircleBox[{5.714285714285711, 7.918367346938771}, 0.0816326530612243], CircleBox[{4.999999999999996, 8.062499999999993}, 0.06249999999999983], CircleBox[{4.999999999999997, 7.9374999999999964}, 0.0624999999999999], CircleBox[{4.571428571428569, 7.918367346938772}, 0.08163265306122437], CircleBox[{4.571428571428569, 8.081632653061222}, 0.08163265306122441], CircleBox[{2.7499999999999996, 7.031249999999998}, 0.031249999999999944], CircleBox[{2.666666666666666, 7.055555555555554}, 0.055555555555555476], CircleBox[{2.962962962962962, 7.160493827160491}, 0.04938271604938263], CircleBox[{2.91970802919708, 7.094890510948903}, 0.029197080291970767], CircleBox[{2.902654867256636, 6.902654867256634}, 0.03539823008849553], CircleBox[{2.9473684210526305, 6.807017543859647}, 0.07017543859649117], CircleBox[{2.046511627906979, 8.527131782945736}, 0.03100775193798429], CircleBox[{2.1946902654867255, 7.469026548672564}, 0.035398230088495505], CircleBox[{2.1333333333333324, 7.4285714285714235}, 0.038095238095238], CircleBox[{2.1333333333333337, 7.499999999999997}, 0.033333333333333263], CircleBox[{2.2222222222222228, 8.629629629629623}, 0.037037037037036764], CircleBox[{2.285714285714286, 7.918367346938771}, 0.08163265306122425], CircleBox[{2.285714285714287, 8.081632653061225}, 0.08163265306122433], CircleBox[{1.7142857142857162, 8.333333333333329}, 0.04761904761904752], CircleBox[{1.5999999999999999, 8.15999999999999}, 0.15999999999999953], CircleBox[{1.600000000000001, 7.839999999999992}, 0.15999999999999964], CircleBox[{2.9999999999999987, 8.062499999999995}, 0.06249999999999985], CircleBox[{2.9999999999999987, 7.9374999999999964}, 0.0624999999999999], CircleBox[{3.428571428571427, 8.08163265306122}, 0.0816326530612244], CircleBox[{3.4285714285714266, 7.918367346938772}, 0.0816326530612244], CircleBox[{3.4285714285716664, 14.133333333333075}, 0.03809523809520378], CircleBox[{4.57142857142874, 14.133333333333288}, 0.0380952380952447], CircleBox[{12.571428571428482, 15.918367346938773}, 0.08163265306122752], CircleBox[{12.842105263157947, 15.63157894736846}, 0.05263157894736275], CircleBox[{13.090909090909085, 15.966942148760332}, 0.03305785123966967], CircleBox[{13.953488372093023, 15.472868217054264}, 0.03100775193798444], CircleBox[{13.05263157894757, 14.807017543859796}, 0.07017543859647499], CircleBox[{13.037037037037036, 15.160493827160494}, 0.04938271604938271], CircleBox[{13.411764705882351, 15.088235294117665}, 0.029411764705881763], CircleBox[{13.81818181818182, 15.966942148760332}, 0.03305785123966941], CircleBox[{14.857142857142856, 15.918367346938775}, 0.08163265306122448], CircleBox[{15.007751937984496, 15.906976744186046}, 0.031007751937984496], CircleBox[{15., 15.96875}, 0.03125], CircleBox[{14.545454545454547, 15.966942148760332}, 0.03305785123966942], CircleBox[{14.285714285714283, 15.666666666666666}, 0.04761904761904752], CircleBox[{14.206896551724137, 15.689655172413794}, 0.03448275862068962], CircleBox[{14.580645161290319, 15.774193548387098}, 0.032258064516128795], CircleBox[{14.159292035398233, 15.893805309734514}, 0.03539823008849556], CircleBox[{14.222222222222221, 15.950617283950617}, 0.04938271604938271], CircleBox[{11.428571428571397, 15.918367346938926}, 0.08163265306122373], CircleBox[{11.157894736842145, 15.631578947368437}, 0.0526315789473659], CircleBox[{10.909090909090867, 15.96694214876039}, 0.0330578512396693], CircleBox[{10.04651162790698, 15.472868217054266}, 0.031007751937984388], CircleBox[{10.962962962962735, 15.160493827160636}, 0.0493827160493744], CircleBox[{10.947368421052586, 14.807017543859669}, 0.07017543859649011], CircleBox[{10.58823529411763, 15.088235294117672}, 0.029411764705881565], CircleBox[{9.454545454545459, 15.96694214876033}, 0.03305785123966917], CircleBox[{8.992248062015504, 15.906976744186048}, 0.03100775193798362], CircleBox[{9.142857142857105, 15.918367346938775}, 0.08163265306122448], CircleBox[{9.000000000000007, 15.96875}, 0.031249999999999334], CircleBox[{9.714285714285722, 15.666666666666657}, 0.047619047619047394], CircleBox[{9.793103448275861, 15.689655172413792}, 0.034482758620689585], CircleBox[{9.419354838709676, 15.7741935483871}, 0.03225806451612868], CircleBox[{9.777777777777779, 15.95061728395061}, 0.04938271604938262], CircleBox[{9.840707964601773, 15.893805309734503}, 0.035398230088495526], CircleBox[{10.181818181818185, 15.966942148760324}, 0.033057851239669395], CircleBox[{11.91836734693878, 2.857142857142854}, 0.08163265306122425], CircleBox[{12.081632653061227, 2.8571428571428537}, 0.08163265306122429], CircleBox[{12.000000000000002, 2.7333333333333303}, 0.06666666666666653], CircleBox[{11.636363636363637, 2.060606060606058}, 0.1212121212121209], CircleBox[{11.707317073170733, 1.853658536585364}, 0.09756097560975589], CircleBox[{12.292682926829269, 1.8536585365853646}, 0.09756097560975596], CircleBox[{12.363636363636365, 2.0606060606060588}, 0.12121212121212105], CircleBox[{9.939393939393947, 0.3636363636363625}, 0.12121212121212083], CircleBox[{10.146341463414638, 0.29268292682926766}, 0.09756097560975588], CircleBox[{10.000000000000007, 0.12499999999999961}, 0.12499999999999961], CircleBox[{11.250000000000002, 0.9687499999999992}, 0.031249999999999917], CircleBox[{11.111111111111112, 0.9999999999999983}, 0.11111111111111084], CircleBox[{10.85714285714286, 0.9999999999999984}, 0.14285714285714263], CircleBox[{11.46666666666667, 0.49999999999999944}, 0.0333333333333333], CircleBox[{11.393939393939396, 0.36363636363636315}, 0.12121212121212105], CircleBox[{11.200000000000003, 0.15999999999999978}, 0.15999999999999978], CircleBox[{13.853658536585368, 0.292682926829268}, 0.09756097560975599], CircleBox[{14.060606060606062, 0.3636363636363633}, 0.1212121212121211], CircleBox[{14.000000000000002, 0.12499999999999989}, 0.12499999999999989], CircleBox[{12.750000000000002, 0.9687499999999997}, 0.03124999999999993], CircleBox[{12.888888888888891, 0.9999999999999992}, 0.11111111111111094], CircleBox[{13.142857142857142, 0.9999999999999993}, 0.14285714285714277], CircleBox[{12.533333333333333, 0.49999999999999956}, 0.033333333333333305], CircleBox[{12.8, 0.1599999999999998}, 0.1599999999999998], CircleBox[{12.606060606060607, 0.3636363636363633}, 0.1212121212121211], CircleBox[{12.20618556701031, 10.020618556701027}, 0.041237113402061785], CircleBox[{12.36363636363637, 10.227272727272705}, 0.04545454545454343], CircleBox[{12.571428571428573, 9.866666666666656}, 0.038095238095237974], CircleBox[{11.793814432989684, 10.020618556701034}, 0.04123711340206164], CircleBox[{11.636363636363617, 10.227272727272682}, 0.04545454545454296], CircleBox[{11.428571428571427, 9.86666666666667}, 0.038095238095237974], CircleBox[{12., 5.416666666666666}, 0.0833333333333331], CircleBox[{11.999999999999998, 5.166666666666672}, 0.16666666666666638], CircleBox[{11.636363636363638, 5.939393939393938}, 0.12121212121212095], CircleBox[{11.789473684210527, 5.824561403508771}, 0.07017543859649111], CircleBox[{12.210526315789474, 5.82456140350877}, 0.07017543859649113], CircleBox[{12.363636363636363, 5.939393939393937}, 0.12121212121212108], CircleBox[{12.164383561643831, 10.684931506849257}, 0.05479452054794401], CircleBox[{11.835616438356166, 10.684931506849306}, 0.054794520547945036], CircleBox[{11.999999999999988, 11.38095238095252}, 0.04761904761904897], CircleBox[{12., 11.266666666666632}, 0.06666666666666565], CircleBox[{12.000000000000007, 11.17142857142854}, 0.028571428571428293], CircleBox[{11.906976744186048, 11.007751937984478}, 0.031007751937984388], CircleBox[{12.093023255813954, 11.007751937984478}, 0.031007751937984388], CircleBox[{10.962962962962965, 8.839506172839505}, 0.04938271604938247], CircleBox[{10.947368421052634, 9.192982456140347}, 0.07017543859649109], CircleBox[{10.80701754385965, 6.947368421052631}, 0.07017543859649106], CircleBox[{10.830769230769235, 7.076923076923076}, 0.0615384615384614], CircleBox[{10.933333333333337, 6.999999999999997}, 0.06666666666666653], CircleBox[{10.153846153846159, 8.538461538461531}, 0.07692307692307662], CircleBox[{10.000000000000009, 8.24999999999999}, 0.2499999999999989], CircleBox[{10.000000000000004, 7.750000000000001}, 0.24999999999999933], CircleBox[{10.666666666666673, 8.944444444444438}, 0.055555555555555296], CircleBox[{11.157894736842108, 8.368421052631575}, 0.05263157894736836], CircleBox[{11.200000000000003, 8.159999999999995}, 0.15999999999999973], CircleBox[{11.200000000000003, 7.839999999999992}, 0.15999999999999973], CircleBox[{13.05263157894737, 9.192982456140346}, 0.07017543859649092], CircleBox[{13.037037037037038, 8.839506172839501}, 0.049382716049382575], CircleBox[{13.16923076923077, 7.076923076923075}, 0.06153846153846146], CircleBox[{13.192982456140353, 6.947368421052629}, 0.07017543859649115], CircleBox[{13.066666666666666, 6.999999999999996}, 0.06666666666666658], CircleBox[{13.846153846153847, 8.538461538461538}, 0.07692307692307672], CircleBox[{14.000000000000002, 8.249999999999991}, 0.24999999999999933], CircleBox[{13.999999999999998, 7.75}, 0.24999999999999978], CircleBox[{13.333333333333334, 8.944444444444438}, 0.05555555555555534], CircleBox[{12.842105263157894, 8.368421052631579}, 0.05263157894736838], CircleBox[{12.8, 7.839999999999996}, 0.1599999999999998], CircleBox[{12.8, 8.159999999999998}, 0.15999999999999986], CircleBox[{12.206185567010307, 13.979381443298857}, 0.041237113402061085], CircleBox[{12.499999999999908, 14.062500000000137}, 0.06249999999999556], CircleBox[{11.793814432989643, 13.979381443299024}, 0.04123711340206379], CircleBox[{11.499999999999986, 14.06249999999993}, 0.062499999999987566], CircleBox[{11.999999999999979, 12.619047619047667}, 0.04761904761904453], CircleBox[{11.906976744186048, 12.9922480620155}, 0.031007751937984388], CircleBox[{12.093023255813954, 12.992248062015486}, 0.031007751937984388], CircleBox[{18.978102189781, 15.91240875912409}, 0.029197080291970223], CircleBox[{19.2, 15.84}, 0.16], CircleBox[{18.999999999999993, 15.96875}, 0.031249999999999778], CircleBox[{18.22222222222222, 15.370370370370374}, 0.03703703703703688], CircleBox[{18.153846153846153, 15.461538461538465}, 0.07692307692307668], CircleBox[{18.095238095238095, 15.571428571428571}, 0.047619047619047554], CircleBox[{18.85714285714283, 15.000000000000032}, 0.14285714285713821], CircleBox[{18.400000000000002, 15.96}, 0.04], CircleBox[{18.17283950617284, 15.851851851851851}, 0.04938271604938268], CircleBox[{18.285714285714285, 15.918367346938775}, 0.08163265306122448], CircleBox[{17.333333333333332, 15.888888888888888}, 0.1111111111111111], CircleBox[{17.599999999999998, 15.84}, 0.1599999999999998], CircleBox[{17.82456140350877, 15.789473684210527}, 0.0701754385964912], CircleBox[{20.80000000000003, 15.84}, 0.15999999999999853], CircleBox[{21.021897810218967, 15.912408759123984}, 0.029197080291970417], CircleBox[{21.00000000000002, 15.96875}, 0.031249999999999778], CircleBox[{21.77777777777779, 15.370370370370374}, 0.03703703703703688], CircleBox[{21.846153846153836, 15.461538461538446}, 0.0769230769230765], CircleBox[{21.9047619047619, 15.57142857142856}, 0.04761904761904752], CircleBox[{21.142857142857235, 15.000000000000032}, 0.14285714285713821], CircleBox[{22.66666666666665, 15.88888888888889}, 0.11111111111111041], CircleBox[{22.17543859649123, 15.78947368421052}, 0.07017543859649113], CircleBox[{22.4, 15.840000000000009}, 0.15999999999999973], CircleBox[{21.6, 15.959999999999999}, 0.03999999999999995], CircleBox[{21.71428571428571, 15.918367346938771}, 0.08163265306122437], CircleBox[{21.827160493827158, 15.851851851851844}, 0.04938271604938267], CircleBox[{19.912408759124084, 1.021897810218977}, 0.02919708029197068], CircleBox[{20.08759124087591, 1.021897810218977}, 0.02919708029197073], CircleBox[{20., 1.5499999999999998}, 0.049999999999999906], CircleBox[{19.999999999999996, 1.7999999999999985}, 0.19999999999999968], CircleBox[{20., 2.3333333333333313}, 0.33333333333333304], CircleBox[{19.999999999999996, 1.1714285714285702}, 0.0285714285714285], CircleBox[{20.444444444444443, 0.8333333333333326}, 0.055555555555555504], CircleBox[{21.333333333333332, 0.44444444444444375}, 0.44444444444444375], CircleBox[{20.705882352941174, 0.7058823529411757}, 0.23529411764705857], CircleBox[{19.555555555555554, 0.8333333333333327}, 0.05555555555555551], CircleBox[{19.29411764705882, 0.7058823529411759}, 0.23529411764705863], CircleBox[{18.666666666666664, 0.4444444444444442}, 0.4444444444444442], CircleBox[{19.636363636363633, 10.060606060606048}, 0.12121212121212048], CircleBox[{19.472868217054263, 9.953488372093013}, 0.031007751937984388], CircleBox[{19.515151515151516, 9.909090909090907}, 0.030303030303030252], CircleBox[{20.527131782945727, 9.953488372092997}, 0.03100775193798425], CircleBox[{20.36363636363636, 10.060606060606046}, 0.1212121212121208], CircleBox[{20.48484848484848, 9.909090909090898}, 0.030303030303030224], CircleBox[{20.159999999999997, 5.6000000000000005}, 0.15999999999999973], CircleBox[{19.84, 5.599999999999999}, 0.15999999999999978], CircleBox[{19.999999999999996, 5.857142857142854}, 0.14285714285714263], CircleBox[{20.049382716049383, 11.111111111111093}, 0.049382716049382436], CircleBox[{19.950617283950617, 11.111111111111093}, 0.049382716049382436], CircleBox[{19.999999999999996, 10.833333333333304}, 0.1666666666666655], CircleBox[{19.999999999999993, 11.038461538461512}, 0.03846153846153825], CircleBox[{21.142857142857142, 8.999999999999998}, 0.14285714285714263], CircleBox[{21.33333333333333, 7.555555555555552}, 0.44444444444444364], CircleBox[{21.33333333333333, 8.444444444444441}, 0.4444444444444438], CircleBox[{18.857142857142858, 8.999999999999998}, 0.1428571428571427], CircleBox[{18.666666666666668, 8.444444444444443}, 0.44444444444444403], CircleBox[{18.666666666666664, 7.555555555555553}, 0.4444444444444441], CircleBox[{19.63636363636364, 13.939393939393858}, 0.12121212121211954], CircleBox[{20.363636363636363, 13.93939393939394}, 0.12121212121212122], CircleBox[{20.000000000000018, 12.73333333333336}, 0.06666666666666617], CircleBox[{20., 12.899999999999995}, 0.09999999999999944], CircleBox[{20., 13.045454545454554}, 0.04545454545454534], CircleBox[{20.09917355371901, 13.256198347107434}, 0.03305785123966938], CircleBox[{20.164383561643838, 13.315068493150692}, 0.05479452054794518], CircleBox[{19.835616438356166, 13.315068493150687}, 0.05479452054794516], CircleBox[{19.90082644628099, 13.256198347107436}, 0.033057851239669395], CircleBox[{29.333333333333336, 15.555555555555557}, 0.44444444444444303], CircleBox[{29.853658536585368, 15.707317073170731}, 0.09756097560975603], CircleBox[{30.060606060606062, 15.636363636363637}, 0.1212121212121211], CircleBox[{30., 15.875}, 0.125], CircleBox[{25.939393939393938, 15.63636363636363}, 0.12121212121212105], CircleBox[{26.146341463414632, 15.707317073170726}, 0.09756097560975599], CircleBox[{26.666666666666664, 15.555555555555557}, 0.44444444444444375], CircleBox[{26.000000000000004, 15.874999999999993}, 0.12499999999999994], CircleBox[{28.000000000000004, 1.0714285714285703}, 0.07142857142857136], CircleBox[{27.555555555555557, 1.3333333333333321}, 0.44444444444444403], CircleBox[{28.444444444444446, 1.3333333333333321}, 0.4444444444444441], CircleBox[{28.000000000000004, 0.49999999999999956}, 0.49999999999999956], CircleBox[{28., 10.333333333333327}, 0.33333333333333254], CircleBox[{28., 8.999999999999995}, 0.9999999999999987], CircleBox[{28., 6.9999999999999964}, 0.9999999999999996], CircleBox[{27.918367346938776, 13.142857142857148}, 0.0816326530612244], CircleBox[{28.081632653061227, 13.142857142857142}, 0.0816326530612244], CircleBox[{28., 13.666666666666654}, 0.33333333333333254], CircleBox[{28., 13.266666666666664}, 0.06666666666666665], CircleBox[{36, 15}], CircleBox[{39.99999999999999, 11.999999999999995}, 3.9999999999999982], CircleBox[{39.99999999999999, 3.9999999999999982}, 3.9999999999999982], CircleBox[{-3.428571428571519, 15.918367346938773}, 0.08163265306122752], CircleBox[{-3.157894736842052, 15.63157894736846}, 0.05263157894736275], CircleBox[{-2.9090909090909163, 15.966942148760332}, 0.03305785123966967], CircleBox[{-2.0465116279069764, 15.472868217054264}, 0.03100775193798444], CircleBox[{-2.947368421052428, 14.807017543859796}, 0.07017543859647499], CircleBox[{-2.962962962962963, 15.160493827160494}, 0.04938271604938271], CircleBox[{-2.5882352941176485, 15.088235294117665}, 0.029411764705881763], CircleBox[{-2.181818181818182, 15.966942148760332}, 0.03305785123966941], CircleBox[{-1.1428571428571428, 15.918367346938775}, 0.08163265306122448], CircleBox[{-0.9922480620155039, 15.906976744186046}, 0.031007751937984496], CircleBox[{-1., 15.96875}, 0.03125], CircleBox[{-1.4545454545454546, 15.966942148760332}, 0.03305785123966942], CircleBox[{-1.7142857142857149, 15.666666666666666}, 0.04761904761904752], CircleBox[{-1.793103448275862, 15.689655172413794}, 0.03448275862068962], CircleBox[{-1.4193548387096817, 15.774193548387098}, 0.032258064516128795], CircleBox[{-1.84070796460177, 15.893805309734514}, 0.03539823008849556], CircleBox[{-1.7777777777777777, 15.950617283950617}, 0.04938271604938271], CircleBox[{-4.571428571428603, 15.918367346938926}, 0.08163265306122373], CircleBox[{-4.842105263157854, 15.631578947368437}, 0.0526315789473659], CircleBox[{-5.090909090909132, 15.96694214876039}, 0.0330578512396693], CircleBox[{-5.9534883720930205, 15.472868217054266}, 0.031007751937984388], CircleBox[{-5.037037037037266, 15.160493827160636}, 0.0493827160493744], CircleBox[{-5.052631578947416, 14.807017543859669}, 0.07017543859649011], CircleBox[{-5.411764705882368, 15.088235294117672}, 0.029411764705881565], CircleBox[{-6.545454545454541, 15.96694214876033}, 0.03305785123966917], CircleBox[{-7.007751937984496, 15.906976744186048}, 0.03100775193798362], CircleBox[{-6.857142857142894, 15.918367346938775}, 0.08163265306122448], CircleBox[{-6.999999999999993, 15.96875}, 0.031249999999999334], CircleBox[{-6.285714285714278, 15.666666666666657}, 0.047619047619047394], CircleBox[{-6.206896551724137, 15.689655172413792}, 0.034482758620689585], CircleBox[{-6.580645161290324, 15.7741935483871}, 0.03225806451612868], CircleBox[{-6.222222222222221, 15.95061728395061}, 0.04938271604938262], CircleBox[{-6.159292035398226, 15.893805309734503}, 0.035398230088495526], CircleBox[{-5.818181818181816, 15.966942148760324}, 0.033057851239669395], CircleBox[{-4.081632653061222, 2.857142857142854}, 0.08163265306122425], CircleBox[{-3.9183673469387728, 2.8571428571428537}, 0.08163265306122429], CircleBox[{-3.9999999999999982, 2.7333333333333303}, 0.06666666666666653], CircleBox[{-4.3636363636363615, 2.060606060606058}, 0.1212121212121209], CircleBox[{-4.292682926829266, 1.853658536585364}, 0.09756097560975589], CircleBox[{-3.7073170731707306, 1.8536585365853646}, 0.09756097560975596], CircleBox[{-3.6363636363636345, 2.0606060606060588}, 0.12121212121212105], CircleBox[{-6.0606060606060534, 0.3636363636363625}, 0.12121212121212083], CircleBox[{-5.853658536585362, 0.29268292682926766}, 0.09756097560975588], CircleBox[{-5.999999999999992, 0.12499999999999961}, 0.12499999999999961], CircleBox[{-4.749999999999998, 0.9687499999999992}, 0.031249999999999917], CircleBox[{-4.888888888888887, 0.9999999999999983}, 0.11111111111111084], CircleBox[{-5.142857142857141, 0.9999999999999984}, 0.14285714285714263], CircleBox[{-4.5333333333333306, 0.49999999999999944}, 0.0333333333333333], CircleBox[{-4.606060606060604, 0.36363636363636315}, 0.12121212121212105], CircleBox[{-4.799999999999997, 0.15999999999999978}, 0.15999999999999978], CircleBox[{-2.146341463414633, 0.292682926829268}, 0.09756097560975599], CircleBox[{-1.9393939393939386, 0.3636363636363633}, 0.1212121212121211], CircleBox[{-1.9999999999999991, 0.12499999999999989}, 0.12499999999999989], CircleBox[{-3.2499999999999987, 0.9687499999999997}, 0.03124999999999993], CircleBox[{-3.1111111111111094, 0.9999999999999992}, 0.11111111111111094], CircleBox[{-2.8571428571428563, 0.9999999999999993}, 0.14285714285714277], CircleBox[{-3.466666666666665, 0.49999999999999956}, 0.033333333333333305], CircleBox[{-3.1999999999999984, 0.1599999999999998}, 0.1599999999999998], CircleBox[{-3.3939393939393923, 0.3636363636363633}, 0.1212121212121211], CircleBox[{-3.7938144329896915, 10.020618556701027}, 0.041237113402061785], CircleBox[{-3.6363636363636296, 10.227272727272705}, 0.04545454545454343], CircleBox[{-3.4285714285714284, 9.866666666666656}, 0.038095238095237974], CircleBox[{-4.206185567010316, 10.020618556701034}, 0.04123711340206164], CircleBox[{-4.363636363636382, 10.227272727272682}, 0.04545454545454296], CircleBox[{-4.571428571428574, 9.86666666666667}, 0.038095238095237974], CircleBox[{-3.9999999999999987, 5.416666666666666}, 0.0833333333333331], CircleBox[{-4.000000000000002, 5.166666666666672}, 0.16666666666666638], CircleBox[{-4.3636363636363615, 5.939393939393938}, 0.12121212121212095], CircleBox[{-4.210526315789472, 5.824561403508771}, 0.07017543859649111], CircleBox[{-3.7894736842105248, 5.82456140350877}, 0.07017543859649113], CircleBox[{-3.636363636363635, 5.939393939393937}, 0.12121212121212108], CircleBox[{-3.8356164383561677, 10.684931506849257}, 0.05479452054794401], CircleBox[{-4.164383561643835, 10.684931506849306}, 0.054794520547945036], CircleBox[{-4.000000000000011, 11.38095238095252}, 0.04761904761904897], CircleBox[{-4., 11.266666666666632}, 0.06666666666666565], CircleBox[{-3.9999999999999933, 11.17142857142854}, 0.028571428571428293], CircleBox[{-4.093023255813954, 11.007751937984478}, 0.031007751937984388], CircleBox[{-3.906976744186047, 11.007751937984478}, 0.031007751937984388], CircleBox[{-5.0370370370370345, 8.839506172839505}, 0.04938271604938247], CircleBox[{-5.052631578947366, 9.192982456140347}, 0.07017543859649109], CircleBox[{-5.192982456140348, 6.947368421052631}, 0.07017543859649106], CircleBox[{-5.169230769230766, 7.076923076923076}, 0.0615384615384614], CircleBox[{-5.066666666666664, 6.999999999999997}, 0.06666666666666653], CircleBox[{-5.8461538461538405, 8.538461538461531}, 0.07692307692307662], CircleBox[{-5.999999999999991, 8.24999999999999}, 0.2499999999999989], CircleBox[{-5.9999999999999964, 7.750000000000001}, 0.24999999999999933], CircleBox[{-5.333333333333328, 8.944444444444438}, 0.055555555555555296], CircleBox[{-4.842105263157892, 8.368421052631575}, 0.05263157894736836], CircleBox[{-4.799999999999996, 8.159999999999995}, 0.15999999999999973], CircleBox[{-4.799999999999995, 7.839999999999992}, 0.15999999999999973], CircleBox[{-2.9473684210526305, 9.192982456140346}, 0.07017543859649092], CircleBox[{-2.9629629629629615, 8.839506172839501}, 0.049382716049382575], CircleBox[{-2.83076923076923, 7.076923076923075}, 0.06153846153846146], CircleBox[{-2.807017543859648, 6.947368421052629}, 0.07017543859649115], CircleBox[{-2.9333333333333313, 6.999999999999996}, 0.06666666666666658], CircleBox[{-2.1538461538461546, 8.538461538461538}, 0.07692307692307672], CircleBox[{-1.9999999999999982, 8.249999999999991}, 0.24999999999999933], CircleBox[{-2.0000000000000018, 7.75}, 0.24999999999999978], CircleBox[{-2.6666666666666674, 8.944444444444438}, 0.05555555555555534], CircleBox[{-3.1578947368421053, 8.368421052631579}, 0.05263157894736838], CircleBox[{-3.1999999999999984, 7.839999999999996}, 0.1599999999999998], CircleBox[{-3.1999999999999997, 8.159999999999998}, 0.15999999999999986], CircleBox[{-3.793814432989695, 13.979381443298857}, 0.041237113402061085], CircleBox[{-3.5000000000000924, 14.062500000000137}, 0.06249999999999556], CircleBox[{-4.2061855670103565, 13.979381443299024}, 0.04123711340206379], CircleBox[{-4.500000000000014, 14.06249999999993}, 0.062499999999987566], CircleBox[{-4.000000000000022, 12.619047619047667}, 0.04761904761904453], CircleBox[{-4.093023255813954, 12.9922480620155}, 0.031007751937984388], CircleBox[{-3.906976744186047, 12.992248062015486}, 0.031007751937984388], CircleBox[{-13.021897810218999, 15.91240875912409}, 0.029197080291970223], CircleBox[{-12.8, 15.84}, 0.16], CircleBox[{-13.000000000000007, 15.96875}, 0.031249999999999778], CircleBox[{-13.777777777777779, 15.370370370370374}, 0.03703703703703688], CircleBox[{-13.846153846153848, 15.461538461538465}, 0.07692307692307668], CircleBox[{-13.904761904761905, 15.571428571428571}, 0.047619047619047554], CircleBox[{-13.14285714285717, 15.000000000000032}, 0.14285714285713821], CircleBox[{-13.6, 15.96}, 0.04], CircleBox[{-13.827160493827162, 15.851851851851851}, 0.04938271604938268], CircleBox[{-13.714285714285714, 15.918367346938775}, 0.08163265306122448], CircleBox[{-14.666666666666666, 15.888888888888888}, 0.1111111111111111], CircleBox[{-14.399999999999999, 15.84}, 0.1599999999999998], CircleBox[{-14.17543859649123, 15.789473684210527}, 0.0701754385964912], CircleBox[{-11.19999999999997, 15.84}, 0.15999999999999853], CircleBox[{-10.978102189781037, 15.912408759123984}, 0.029197080291970417], CircleBox[{-10.999999999999979, 15.96875}, 0.031249999999999778], CircleBox[{-10.222222222222213, 15.370370370370374}, 0.03703703703703688], CircleBox[{-10.153846153846164, 15.461538461538446}, 0.0769230769230765], CircleBox[{-10.095238095238095, 15.57142857142856}, 0.04761904761904752], CircleBox[{-10.857142857142764, 15.000000000000032}, 0.14285714285713821], CircleBox[{-9.33333333333335, 15.88888888888889}, 0.11111111111111041], CircleBox[{-9.824561403508776, 15.78947368421052}, 0.07017543859649113], CircleBox[{-9.600000000000001, 15.840000000000009}, 0.15999999999999973], CircleBox[{-10.399999999999997, 15.959999999999999}, 0.03999999999999995], CircleBox[{-10.28571428571429, 15.918367346938771}, 0.08163265306122437], CircleBox[{-10.172839506172842, 15.851851851851844}, 0.04938271604938267], CircleBox[{-12.087591240875913, 1.021897810218977}, 0.02919708029197068], CircleBox[{-11.91240875912409, 1.021897810218977}, 0.02919708029197073], CircleBox[{-12.000000000000004, 1.5499999999999998}, 0.049999999999999906], CircleBox[{-12.000000000000002, 1.7999999999999985}, 0.19999999999999968], CircleBox[{-12.000000000000002, 2.3333333333333313}, 0.33333333333333304], CircleBox[{-12.000000000000004, 1.1714285714285702}, 0.0285714285714285], CircleBox[{-11.555555555555557, 0.8333333333333326}, 0.055555555555555504], CircleBox[{-10.66666666666667, 0.44444444444444375}, 0.44444444444444375], CircleBox[{-11.294117647058824, 0.7058823529411757}, 0.23529411764705857], CircleBox[{-12.444444444444445, 0.8333333333333327}, 0.05555555555555551], CircleBox[{-12.705882352941178, 0.7058823529411759}, 0.23529411764705863], CircleBox[{-13.333333333333336, 0.4444444444444442}, 0.4444444444444442], CircleBox[{-12.363636363636365, 10.060606060606048}, 0.12121212121212048], CircleBox[{-12.52713178294574, 9.953488372093013}, 0.031007751937984388], CircleBox[{-12.484848484848484, 9.909090909090907}, 0.030303030303030252], CircleBox[{-11.472868217054272, 9.953488372092997}, 0.03100775193798425], CircleBox[{-11.636363636363642, 10.060606060606046}, 0.1212121212121208], CircleBox[{-11.51515151515152, 9.909090909090898}, 0.030303030303030224], CircleBox[{-11.840000000000002, 5.6000000000000005}, 0.15999999999999973], CircleBox[{-12.160000000000002, 5.599999999999999}, 0.15999999999999978], CircleBox[{-12.000000000000002, 5.857142857142854}, 0.14285714285714263], CircleBox[{-11.950617283950617, 11.111111111111093}, 0.049382716049382436], CircleBox[{-12.049382716049381, 11.111111111111093}, 0.049382716049382436], CircleBox[{-12.000000000000005, 10.833333333333304}, 0.1666666666666655], CircleBox[{-12.000000000000004, 11.038461538461512}, 0.03846153846153825], CircleBox[{-10.857142857142858, 8.999999999999998}, 0.14285714285714263], CircleBox[{-10.66666666666667, 7.555555555555552}, 0.44444444444444364], CircleBox[{-10.66666666666667, 8.444444444444441}, 0.4444444444444438], CircleBox[{-13.142857142857142, 8.999999999999998}, 0.1428571428571427], CircleBox[{-13.333333333333334, 8.444444444444443}, 0.44444444444444403], CircleBox[{-13.333333333333334, 7.555555555555553}, 0.4444444444444441], CircleBox[{-12.363636363636358, 13.939393939393858}, 0.12121212121211954], CircleBox[{-11.636363636363637, 13.93939393939394}, 0.12121212121212122], CircleBox[{-11.999999999999986, 12.73333333333336}, 0.06666666666666617], CircleBox[{-12., 12.899999999999995}, 0.09999999999999944], CircleBox[{-12., 13.045454545454554}, 0.04545454545454534], CircleBox[{-11.900826446280993, 13.256198347107434}, 0.03305785123966938], CircleBox[{-11.835616438356158, 13.315068493150692}, 0.05479452054794518], CircleBox[{-12.164383561643833, 13.315068493150687}, 0.05479452054794516], CircleBox[{-12.09917355371901, 13.256198347107436}, 0.033057851239669395], CircleBox[{-18.666666666666664, 15.555555555555557}, 0.44444444444444303], CircleBox[{-18.146341463414632, 15.707317073170731}, 0.09756097560975603], CircleBox[{-17.939393939393938, 15.636363636363637}, 0.1212121212121211], CircleBox[{-18., 15.875}, 0.125], CircleBox[{-22.06060606060606, 15.63636363636363}, 0.12121212121212105], CircleBox[{-21.853658536585364, 15.707317073170726}, 0.09756097560975599], CircleBox[{-21.33333333333334, 15.555555555555557}, 0.44444444444444375], CircleBox[{-21.999999999999996, 15.874999999999993}, 0.12499999999999994], CircleBox[{-19.999999999999996, 1.0714285714285703}, 0.07142857142857136], CircleBox[{-20.444444444444443, 1.3333333333333321}, 0.44444444444444403], CircleBox[{-19.555555555555554, 1.3333333333333321}, 0.4444444444444441], CircleBox[{-19.999999999999996, 0.49999999999999956}, 0.49999999999999956], CircleBox[{-20., 10.333333333333327}, 0.33333333333333254], CircleBox[{-19.999999999999996, 8.999999999999995}, 0.9999999999999987], CircleBox[{-19.999999999999996, 6.9999999999999964}, 0.9999999999999996], CircleBox[{-20.081632653061227, 13.142857142857148}, 0.0816326530612244], CircleBox[{-19.918367346938776, 13.142857142857142}, 0.0816326530612244], CircleBox[{-20., 13.666666666666654}, 0.33333333333333254], CircleBox[{-20., 13.266666666666664}, 0.06666666666666665], CircleBox[{-28, 15}], CircleBox[{-32., 3.9999999999999982}, 3.9999999999999982], CircleBox[{-32., 12.}, 4.], CircleBox[{3.636363636364429, 15.96694214876055}, 0.033057851239690295], CircleBox[{0.7272727272727273, 15.966942148760332}, 0.03305785123966942], CircleBox[{4.363636363635237, 15.966942148760525}, 0.03305785123971464], CircleBox[{7.272727272727349, 15.966942148760328}, 0.03305785123967141], CircleBox[{4.033057851239668, 3.272727272727265}, 0.03305785123966915], CircleBox[{3.9669421487603285, 3.272727272727263}, 0.03305785123966915], CircleBox[{4.093023255813949, 3.00775193798449}, 0.031007751937984305], CircleBox[{3.9069767441860455, 3.0077519379844926}, 0.031007751937984388], CircleBox[{4.5714285714285685, 1.866666666666667}, 0.038095238095237835], CircleBox[{4.530973451327429, 1.8053097345132725}, 0.0353982300884954], CircleBox[{3.4690265486725647, 1.8053097345132731}, 0.03539823008849549], CircleBox[{3.4285714285714275, 1.8666666666666656}, 0.03809523809523803], CircleBox[{5.953488372093015, 0.5271317829457345}, 0.03100775193798434], CircleBox[{6.684931506849306, 0.16438356164383433}, 0.05479452054794478], CircleBox[{6.597938144329889, 0.12371134020618492}, 0.04123711340206164], CircleBox[{6.666666666666655, 0.055555555555555095}, 0.055555555555555095], CircleBox[{6.206896551724132, 0.3103448275862057}, 0.034482758620689495], CircleBox[{6.285714285714277, 0.33333333333333187}, 0.04761904761904741], CircleBox[{6.159292035398225, 0.10619469026548636}, 0.03539823008849546], CircleBox[{6.222222222222216, 0.049382716049382526}, 0.049382716049382526], CircleBox[{5.818181818181817, 0.033057851239669346}, 0.033057851239669346], CircleBox[{5.411764705882348, 0.9117647058823525}, 0.029411764705882255], CircleBox[{4.923076923076922, 1.2692307692307652}, 0.038461538461538214], CircleBox[{5., 1.2916666666666656}, 0.04166666666666652], CircleBox[{5.090909090909088, 0.03305785123966937}, 0.03305785123966937], CircleBox[{4.404494382022469, 0.13483146067415713}, 0.044943820224719044], CircleBox[{4.444444444444443, 0.04938271604938266}, 0.04938271604938266], CircleBox[{2.046511627906976, 0.5271317829457359}, 0.031007751937984454], CircleBox[{2.1818181818181803, 0.03305785123966938}, 0.03305785123966938], CircleBox[{1.4020618556701023, 0.12371134020618543}, 0.04123711340206181], CircleBox[{1.3150684931506844, 0.1643835616438355}, 0.05479452054794516], CircleBox[{1.3333333333333328, 0.05555555555555551}, 0.05555555555555551], CircleBox[{1.7931034482758614, 0.3103448275862067}, 0.034482758620689606], CircleBox[{1.714285714285714, 0.33333333333333315}, 0.04761904761904759], CircleBox[{1.777777777777777, 0.04938271604938266}, 0.04938271604938266], CircleBox[{1.8407079646017692, 0.10619469026548664}, 0.03539823008849555], CircleBox[{2.5882352941176467, 0.9117647058823527}, 0.029411764705882266], CircleBox[{3.0769230769230753, 1.269230769230768}, 0.038461538461538367], CircleBox[{2.999999999999999, 1.2916666666666656}, 0.041666666666666595], CircleBox[{2.9090909090909083, 0.03305785123966934}, 0.03305785123966934], CircleBox[{3.555555555555554, 0.04938271604938266}, 0.04938271604938266], CircleBox[{3.595505617977527, 0.13483146067415722}, 0.04494382022471907], CircleBox[{4.000000000000002, 4.828571428571434}, 0.028571428571428456], CircleBox[{4.000000000000002, 4.733333333333339}, 0.06666666666666635], CircleBox[{4.093023255813951, 4.992248062015505}, 0.03100775193798436], CircleBox[{3.9069767441860446, 4.992248062015506}, 0.031007751937984374], CircleBox[{4.5714285714285685, 6.133333333333331}, 0.038095238095237946], CircleBox[{3.428571428571427, 6.13333333333333}, 0.03809523809523805], CircleBox[{5.777777777777776, 7.37037037037037}, 0.03703703703703696], CircleBox[{5.953488372093016, 7.472868217054261}, 0.031007751937984333], CircleBox[{6.58064516129031, 8.225806451612895}, 0.032258064516128754], CircleBox[{6.66666666666665, 8.111111111111109}, 0.11111111111110962], CircleBox[{6.666666666666664, 7.888888888888887}, 0.11111111111111059], CircleBox[{6.222222222222207, 8.04938271604937}, 0.04938271604938242], CircleBox[{6.222222222222211, 7.950617283950612}, 0.049382716049382366], CircleBox[{5.599999999999995, 8.039999999999997}, 0.03999999999999979], CircleBox[{5.599999999999995, 7.959999999999996}, 0.03999999999999992], CircleBox[{5.818181818181812, 7.966942148760331}, 0.0330578512396693], CircleBox[{5.81818181818181, 8.033057851239663}, 0.033057851239669304], CircleBox[{5.090909090909087, 8.033057851239667}, 0.03305785123966934], CircleBox[{5.090909090909089, 7.966942148760329}, 0.03305785123966936], CircleBox[{4.444444444444441, 8.049382716049376}, 0.049382716049382644], CircleBox[{4.444444444444443, 7.9506172839506135}, 0.04938271604938266], CircleBox[{2.222222222222221, 7.370370370370368}, 0.037037037037036966], CircleBox[{2.0465116279069773, 7.472868217054261}, 0.03100775193798444], CircleBox[{2.3999999999999986, 8.039999999999994}, 0.03999999999999981], CircleBox[{2.399999999999999, 7.959999999999999}, 0.03999999999999991], CircleBox[{2.181818181818181, 8.033057851239667}, 0.03305785123966935], CircleBox[{2.1818181818181834, 7.966942148760332}, 0.033057851239669346], CircleBox[{1.4193548387096764, 8.225806451612899}, 0.03225806451612893], CircleBox[{1.3333333333333417, 8.111111111111104}, 0.1111111111111105], CircleBox[{1.3333333333333364, 7.888888888888886}, 0.11111111111111084], CircleBox[{1.7777777777777797, 7.950617283950614}, 0.049382716049382575], CircleBox[{1.777777777777779, 8.049382716049374}, 0.049382716049382595], CircleBox[{2.9090909090909096, 7.96694214876033}, 0.03305785123966931], CircleBox[{2.9090909090909074, 8.033057851239663}, 0.033057851239669325], CircleBox[{3.555555555555554, 7.9506172839506135}, 0.04938271604938266], CircleBox[{3.5555555555555545, 8.04938271604938}, 0.04938271604938268], CircleBox[{12.44444444444377, 15.950617283950777}, 0.049382716049402677], CircleBox[{12.999999999999082, 14.708333333332318}, 0.04166666666669943], CircleBox[{15.200000000000001, 15.96}, 0.04], CircleBox[{15.11111111111111, 15.950617283950617}, 0.04938271604938271], CircleBox[{11.555555555555635, 15.95061728395079}, 0.04938271604938881], CircleBox[{11.000000000000151, 14.70833333333303}, 0.041666666666666664], CircleBox[{8.800000000000022, 15.960000000000147}, 0.03999999999999927], CircleBox[{8.888888888888848, 15.950617283950706}, 0.04938271604938299], CircleBox[{12.000000000000002, 2.9545454545454524}, 0.0454545454545453], CircleBox[{12.000000000000002, 3.099999999999997}, 0.09999999999999963], CircleBox[{11.835616438356167, 2.684931506849313}, 0.05479452054794506], CircleBox[{11.900826446280995, 2.7438016528925595}, 0.03305785123966934], CircleBox[{12.099173553719009, 2.743801652892559}, 0.03305785123966935], CircleBox[{12.164383561643838, 2.6849315068493125}, 0.05479452054794511], CircleBox[{11.555555555555559, 1.8333333333333313}, 0.05555555555555532], CircleBox[{11.500000000000002, 1.9375000000000002}, 0.06249999999999983], CircleBox[{11.809523809523814, 1.9428571428571413}, 0.03809523809523802], CircleBox[{11.793814432989693, 2.0206185567010277}, 0.041237113402061765], CircleBox[{12.444444444444448, 1.833333333333331}, 0.0555555555555554], CircleBox[{12.500000000000002, 1.9374999999999991}, 0.06249999999999992], CircleBox[{12.20618556701031, 2.020618556701029}, 0.041237113402061785], CircleBox[{12.190476190476192, 1.9428571428571413}, 0.03809523809523804], CircleBox[{10.095238095238098, 0.4285714285714275}, 0.047619047619047464], CircleBox[{10.153846153846157, 0.5384615384615371}, 0.07692307692307673], CircleBox[{9.600000000000007, 0.15999999999999942}, 0.15999999999999942], CircleBox[{9.824561403508778, 0.210526315789473}, 0.070175438596491], CircleBox[{10.172839506172844, 0.14814814814814778}, 0.049382716049382595], CircleBox[{10.285714285714288, 0.08163265306122434}, 0.08163265306122434], CircleBox[{10.947368421052634, 1.1929824561403481}, 0.07017543859649097], CircleBox[{11.07692307692308, 1.169230769230767}, 0.06153846153846136], CircleBox[{11.056179775280901, 0.8539325842696622}, 0.04494382022471903], CircleBox[{10.962962962962964, 0.8395061728395053}, 0.049382716049382644], CircleBox[{10.978102189781023, 0.08759124087591226}, 0.029197080291970753], CircleBox[{11.000000000000002, 0.031249999999999944}, 0.031249999999999944], CircleBox[{11.238095238095239, 0.428571428571428}, 0.04761904761904752], CircleBox[{11.157894736842106, 0.36842105263157854}, 0.05263157894736836], CircleBox[{11.42857142857143, 0.08163265306122437}, 0.08163265306122437], CircleBox[{11.508771929824563, 0.2105263157894735}, 0.07017543859649117], CircleBox[{13.904761904761907, 0.4285714285714282}, 0.04761904761904754], CircleBox[{13.846153846153845, 0.5384615384615379}, 0.07692307692307684], CircleBox[{13.714285714285715, 0.08163265306122437}, 0.08163265306122437], CircleBox[{13.827160493827163, 0.148148148148148}, 0.049382716049382665], CircleBox[{14.17543859649123, 0.2105263157894735}, 0.07017543859649117], CircleBox[{14.400000000000002, 0.1599999999999999}, 0.1599999999999999], CircleBox[{13.037037037037036, 0.8395061728395055}, 0.04938271604938261], CircleBox[{12.9438202247191, 0.8539325842696626}, 0.04494382022471903], CircleBox[{12.923076923076925, 1.1692307692307684}, 0.061538461538461445], CircleBox[{13.05263157894737, 1.19298245614035}, 0.07017543859649114], CircleBox[{13.021897810218979, 0.08759124087591225}, 0.02919708029197075], CircleBox[{13.000000000000002, 0.031249999999999944}, 0.031249999999999944], CircleBox[{12.761904761904763, 0.428571428571428}, 0.04761904761904752], CircleBox[{12.842105263157896, 0.3684210526315784}, 0.05263157894736835], CircleBox[{12.49122807017544, 0.21052631578947345}, 0.07017543859649115], CircleBox[{12.571428571428571, 0.0816326530612244}, 0.0816326530612244], CircleBox[{11.95061728395062, 4.888888888888891}, 0.04938271604938246], CircleBox[{12.049382716049386, 4.88888888888889}, 0.04938271604938247], CircleBox[{12.000000000000004, 4.9615384615384635}, 0.038461538461538304], CircleBox[{11.835616438356167, 5.315068493150687}, 0.054794520547944994], CircleBox[{11.876288659793818, 5.402061855670102}, 0.04123711340206171], CircleBox[{12.123711340206189, 5.4020618556701}, 0.041237113402061744], CircleBox[{12.164383561643838, 5.315068493150683}, 0.05479452054794506], CircleBox[{11.472868217054268, 6.046511627906976}, 0.031007751937984374], CircleBox[{11.51515151515152, 6.090909090909088}, 0.030303030303030186], CircleBox[{11.714285714285715, 5.75}, 0.0357142857142856], CircleBox[{11.636363636363638, 5.772727272727272}, 0.045454545454545345], CircleBox[{11.834710743801656, 5.917355371900824}, 0.03305785123966935], CircleBox[{11.793814432989693, 5.9793814432989665}, 0.041237113402061765], CircleBox[{12.527131782945737, 6.046511627906975}, 0.031007751937984454], CircleBox[{12.484848484848484, 6.090909090909089}, 0.030303030303030262], CircleBox[{12.285714285714286, 5.75}, 0.035714285714285636], CircleBox[{12.363636363636365, 5.772727272727271}, 0.045454545454545386], CircleBox[{12.206185567010309, 5.979381443298968}, 0.04123711340206179], CircleBox[{12.16528925619835, 5.917355371900824}, 0.033057851239669374], CircleBox[{11.999999999999984, 11.464285714285483}, 0.03571428571428064], CircleBox[{10.75, 7.031250000000001}, 0.031249999999999917], CircleBox[{10.666666666666668, 7.055555555555555}, 0.05555555555555542], CircleBox[{10.947368421052635, 6.807017543859648}, 0.07017543859649103], CircleBox[{10.90265486725664, 6.902654867256637}, 0.03539823008849549], CircleBox[{10.919708029197084, 7.094890510948906}, 0.02919708029197075], CircleBox[{10.962962962962965, 7.160493827160492}, 0.04938271604938264], CircleBox[{10.046511627906987, 8.527131782945725}, 0.031007751937984235], CircleBox[{10.133333333333336, 7.4285714285714235}, 0.03809523809523796], CircleBox[{10.194690265486733, 7.469026548672562}, 0.03539823008849545], CircleBox[{10.133333333333342, 7.499999999999994}, 0.03333333333333318], CircleBox[{10.222222222222229, 8.629629629629617}, 0.037037037037036646], CircleBox[{9.714285714285719, 8.333333333333337}, 0.04761904761904743], CircleBox[{9.600000000000012, 7.840000000000002}, 0.15999999999999892], CircleBox[{9.600000000000012, 8.15999999999999}, 0.15999999999999917], CircleBox[{10.28571428571429, 8.08163265306122}, 0.0816326530612243], CircleBox[{10.28571428571429, 7.918367346938771}, 0.0816326530612243], CircleBox[{11.000000000000004, 8.062499999999993}, 0.06249999999999983], CircleBox[{11.000000000000002, 7.9374999999999964}, 0.0624999999999999], CircleBox[{11.42857142857143, 7.918367346938772}, 0.08163265306122437], CircleBox[{11.428571428571429, 8.081632653061222}, 0.08163265306122441], CircleBox[{13.250000000000002, 7.031249999999998}, 0.031249999999999944], CircleBox[{13.333333333333334, 7.055555555555554}, 0.055555555555555476], CircleBox[{13.037037037037036, 7.160493827160491}, 0.04938271604938263], CircleBox[{13.08029197080292, 7.094890510948903}, 0.029197080291970767], CircleBox[{13.097345132743365, 6.902654867256634}, 0.03539823008849553], CircleBox[{13.05263157894737, 6.807017543859647}, 0.07017543859649117], CircleBox[{13.953488372093021, 8.527131782945736}, 0.03100775193798429], CircleBox[{13.805309734513274, 7.469026548672564}, 0.035398230088495505], CircleBox[{13.866666666666667, 7.4285714285714235}, 0.038095238095238], CircleBox[{13.866666666666667, 7.499999999999997}, 0.033333333333333263], CircleBox[{13.777777777777777, 8.629629629629623}, 0.037037037037036764], CircleBox[{13.714285714285714, 7.918367346938771}, 0.08163265306122425], CircleBox[{13.714285714285715, 8.081632653061225}, 0.08163265306122433], CircleBox[{14.285714285714283, 8.333333333333329}, 0.04761904761904752], CircleBox[{14.399999999999999, 8.15999999999999}, 0.15999999999999953], CircleBox[{14.4, 7.839999999999992}, 0.15999999999999964], CircleBox[{13., 8.062499999999995}, 0.06249999999999985], CircleBox[{13.000000000000002, 7.9374999999999964}, 0.0624999999999999], CircleBox[{12.571428571428575, 8.08163265306122}, 0.0816326530612244], CircleBox[{12.571428571428575, 7.918367346938772}, 0.0816326530612244], CircleBox[{12.571428571428335, 14.133333333333075}, 0.03809523809520378], CircleBox[{11.428571428571262, 14.133333333333288}, 0.0380952380952447], CircleBox[{19.42857142857152, 15.918367346938773}, 0.08163265306122752], CircleBox[{19.15789473684205, 15.63157894736846}, 0.05263157894736275], CircleBox[{18.909090909090917, 15.966942148760332}, 0.03305785123966967], CircleBox[{18.046511627906977, 15.472868217054264}, 0.03100775193798444], CircleBox[{18.947368421052428, 14.807017543859796}, 0.07017543859647499], CircleBox[{18.962962962962962, 15.160493827160494}, 0.04938271604938271], CircleBox[{18.58823529411765, 15.088235294117665}, 0.029411764705881763], CircleBox[{18.181818181818183, 15.966942148760332}, 0.03305785123966941], CircleBox[{17.142857142857142, 15.918367346938775}, 0.08163265306122448], CircleBox[{16.992248062015502, 15.906976744186046}, 0.031007751937984496], CircleBox[{17., 15.96875}, 0.03125], CircleBox[{17.454545454545453, 15.966942148760332}, 0.03305785123966942], CircleBox[{17.714285714285715, 15.666666666666666}, 0.04761904761904752], CircleBox[{17.79310344827586, 15.689655172413794}, 0.03448275862068962], CircleBox[{17.419354838709683, 15.774193548387098}, 0.032258064516128795], CircleBox[{17.84070796460177, 15.893805309734514}, 0.03539823008849556], CircleBox[{17.77777777777778, 15.950617283950617}, 0.04938271604938271], CircleBox[{20.571428571428605, 15.918367346938926}, 0.08163265306122373], CircleBox[{20.842105263157855, 15.631578947368437}, 0.0526315789473659], CircleBox[{21.090909090909133, 15.96694214876039}, 0.0330578512396693], CircleBox[{21.95348837209302, 15.472868217054266}, 0.031007751937984388], CircleBox[{21.03703703703727, 15.160493827160636}, 0.0493827160493744], CircleBox[{21.052631578947416, 14.807017543859669}, 0.07017543859649011], CircleBox[{21.41176470588237, 15.088235294117672}, 0.029411764705881565], CircleBox[{22.54545454545454, 15.96694214876033}, 0.03305785123966917], CircleBox[{23.007751937984494, 15.906976744186048}, 0.03100775193798362], CircleBox[{22.857142857142893, 15.918367346938775}, 0.08163265306122448], CircleBox[{22.999999999999993, 15.96875}, 0.031249999999999334], CircleBox[{22.285714285714278, 15.666666666666657}, 0.047619047619047394], CircleBox[{22.206896551724135, 15.689655172413792}, 0.034482758620689585], CircleBox[{22.580645161290324, 15.7741935483871}, 0.03225806451612868], CircleBox[{22.22222222222222, 15.95061728395061}, 0.04938271604938262], CircleBox[{22.159292035398227, 15.893805309734503}, 0.035398230088495526], CircleBox[{21.818181818181817, 15.966942148760324}, 0.033057851239669395], CircleBox[{20.081632653061224, 2.857142857142854}, 0.08163265306122425], CircleBox[{19.918367346938773, 2.8571428571428537}, 0.08163265306122429], CircleBox[{20., 2.7333333333333303}, 0.06666666666666653], CircleBox[{20.363636363636363, 2.060606060606058}, 0.1212121212121209], CircleBox[{20.292682926829265, 1.853658536585364}, 0.09756097560975589], CircleBox[{19.70731707317073, 1.8536585365853646}, 0.09756097560975596], CircleBox[{19.636363636363633, 2.0606060606060588}, 0.12121212121212105], CircleBox[{22.06060606060605, 0.3636363636363625}, 0.12121212121212083], CircleBox[{21.85365853658536, 0.29268292682926766}, 0.09756097560975588], CircleBox[{21.999999999999993, 0.12499999999999961}, 0.12499999999999961], CircleBox[{20.749999999999996, 0.9687499999999992}, 0.031249999999999917], CircleBox[{20.888888888888886, 0.9999999999999983}, 0.11111111111111084], CircleBox[{21.142857142857142, 0.9999999999999984}, 0.14285714285714263], CircleBox[{20.53333333333333, 0.49999999999999944}, 0.0333333333333333], CircleBox[{20.606060606060602, 0.36363636363636315}, 0.12121212121212105], CircleBox[{20.799999999999997, 0.15999999999999978}, 0.15999999999999978], CircleBox[{18.146341463414632, 0.292682926829268}, 0.09756097560975599], CircleBox[{17.939393939393938, 0.3636363636363633}, 0.1212121212121211], CircleBox[{17.999999999999996, 0.12499999999999989}, 0.12499999999999989], CircleBox[{19.25, 0.9687499999999997}, 0.03124999999999993], CircleBox[{19.11111111111111, 0.9999999999999992}, 0.11111111111111094], CircleBox[{18.857142857142858, 0.9999999999999993}, 0.14285714285714277], CircleBox[{19.466666666666665, 0.49999999999999956}, 0.033333333333333305], CircleBox[{19.2, 0.1599999999999998}, 0.1599999999999998], CircleBox[{19.39393939393939, 0.3636363636363633}, 0.1212121212121211], CircleBox[{19.79381443298969, 10.020618556701027}, 0.041237113402061785], CircleBox[{19.63636363636363, 10.227272727272705}, 0.04545454545454343], CircleBox[{19.42857142857143, 9.866666666666656}, 0.038095238095237974], CircleBox[{20.206185567010316, 10.020618556701034}, 0.04123711340206164], CircleBox[{20.36363636363638, 10.227272727272682}, 0.04545454545454296], CircleBox[{20.571428571428577, 9.86666666666667}, 0.038095238095237974], CircleBox[{19.999999999999996, 5.416666666666666}, 0.0833333333333331], CircleBox[{20.000000000000004, 5.166666666666672}, 0.16666666666666638], CircleBox[{20.36363636363636, 5.939393939393938}, 0.12121212121212095], CircleBox[{20.210526315789473, 5.824561403508771}, 0.07017543859649111], CircleBox[{19.78947368421052, 5.82456140350877}, 0.07017543859649113], CircleBox[{19.636363636363637, 5.939393939393937}, 0.12121212121212108], CircleBox[{19.83561643835617, 10.684931506849257}, 0.05479452054794401], CircleBox[{20.164383561643834, 10.684931506849306}, 0.054794520547945036], CircleBox[{20.00000000000001, 11.38095238095252}, 0.04761904761904897], CircleBox[{20., 11.266666666666632}, 0.06666666666666565], CircleBox[{19.999999999999993, 11.17142857142854}, 0.028571428571428293], CircleBox[{20.093023255813954, 11.007751937984478}, 0.031007751937984388], CircleBox[{19.906976744186046, 11.007751937984478}, 0.031007751937984388], CircleBox[{21.037037037037035, 8.839506172839505}, 0.04938271604938247], CircleBox[{21.052631578947366, 9.192982456140347}, 0.07017543859649109], CircleBox[{21.192982456140346, 6.947368421052631}, 0.07017543859649106], CircleBox[{21.169230769230765, 7.076923076923076}, 0.0615384615384614], CircleBox[{21.066666666666663, 6.999999999999997}, 0.06666666666666653], CircleBox[{21.84615384615384, 8.538461538461531}, 0.07692307692307662], CircleBox[{21.99999999999999, 8.24999999999999}, 0.2499999999999989], CircleBox[{21.999999999999996, 7.750000000000001}, 0.24999999999999933], CircleBox[{21.33333333333333, 8.944444444444438}, 0.055555555555555296], CircleBox[{20.842105263157894, 8.368421052631575}, 0.05263157894736836], CircleBox[{20.799999999999997, 8.159999999999995}, 0.15999999999999973], CircleBox[{20.799999999999997, 7.839999999999992}, 0.15999999999999973], CircleBox[{18.947368421052634, 9.192982456140346}, 0.07017543859649092], CircleBox[{18.96296296296296, 8.839506172839501}, 0.049382716049382575], CircleBox[{18.83076923076923, 7.076923076923075}, 0.06153846153846146], CircleBox[{18.80701754385965, 6.947368421052629}, 0.07017543859649115], CircleBox[{18.933333333333334, 6.999999999999996}, 0.06666666666666658], CircleBox[{18.153846153846157, 8.538461538461538}, 0.07692307692307672], CircleBox[{17.999999999999996, 8.249999999999991}, 0.24999999999999933], CircleBox[{18., 7.75}, 0.24999999999999978], CircleBox[{18.666666666666668, 8.944444444444438}, 0.05555555555555534], CircleBox[{19.157894736842106, 8.368421052631579}, 0.05263157894736838], CircleBox[{19.2, 7.839999999999996}, 0.1599999999999998], CircleBox[{19.2, 8.159999999999998}, 0.15999999999999986], CircleBox[{19.793814432989695, 13.979381443298857}, 0.041237113402061085], CircleBox[{19.500000000000092, 14.062500000000137}, 0.06249999999999556], CircleBox[{20.20618556701036, 13.979381443299024}, 0.04123711340206379], CircleBox[{20.500000000000014, 14.06249999999993}, 0.062499999999987566], CircleBox[{20.00000000000002, 12.619047619047667}, 0.04761904761904453], CircleBox[{20.093023255813954, 12.9922480620155}, 0.031007751937984388], CircleBox[{19.906976744186046, 12.992248062015486}, 0.031007751937984388], CircleBox[{29.021897810219, 15.91240875912409}, 0.029197080291970223], CircleBox[{28.8, 15.84}, 0.16], CircleBox[{29.000000000000007, 15.96875}, 0.031249999999999778], CircleBox[{29.77777777777778, 15.370370370370374}, 0.03703703703703688], CircleBox[{29.846153846153847, 15.461538461538465}, 0.07692307692307668], CircleBox[{29.90476190476191, 15.571428571428571}, 0.047619047619047554], CircleBox[{29.14285714285717, 15.000000000000032}, 0.14285714285713821], CircleBox[{29.6, 15.96}, 0.04], CircleBox[{29.82716049382716, 15.851851851851851}, 0.04938271604938268], CircleBox[{29.71428571428571, 15.918367346938775}, 0.08163265306122448], CircleBox[{30.666666666666664, 15.888888888888888}, 0.1111111111111111], CircleBox[{30.4, 15.84}, 0.1599999999999998], CircleBox[{30.17543859649123, 15.789473684210527}, 0.0701754385964912], CircleBox[{27.199999999999967, 15.84}, 0.15999999999999853], CircleBox[{26.978102189781037, 15.912408759123984}, 0.029197080291970417], CircleBox[{26.99999999999998, 15.96875}, 0.031249999999999778], CircleBox[{26.222222222222214, 15.370370370370374}, 0.03703703703703688], CircleBox[{26.15384615384616, 15.461538461538446}, 0.0769230769230765], CircleBox[{26.095238095238095, 15.57142857142856}, 0.04761904761904752], CircleBox[{26.857142857142765, 15.000000000000032}, 0.14285714285713821], CircleBox[{25.33333333333335, 15.88888888888889}, 0.11111111111111041], CircleBox[{25.824561403508774, 15.78947368421052}, 0.07017543859649113], CircleBox[{25.6, 15.840000000000009}, 0.15999999999999973], CircleBox[{26.399999999999995, 15.959999999999999}, 0.03999999999999995], CircleBox[{26.28571428571429, 15.918367346938771}, 0.08163265306122437], CircleBox[{26.17283950617284, 15.851851851851844}, 0.04938271604938267], CircleBox[{28.087591240875913, 1.021897810218977}, 0.02919708029197068], CircleBox[{27.91240875912409, 1.021897810218977}, 0.02919708029197073], CircleBox[{28.000000000000004, 1.5499999999999998}, 0.049999999999999906], CircleBox[{28., 1.7999999999999985}, 0.19999999999999968], CircleBox[{28.000000000000004, 2.3333333333333313}, 0.33333333333333304], CircleBox[{28.000000000000004, 1.1714285714285702}, 0.0285714285714285], CircleBox[{27.555555555555557, 0.8333333333333326}, 0.055555555555555504], CircleBox[{26.666666666666668, 0.44444444444444375}, 0.44444444444444375], CircleBox[{27.294117647058826, 0.7058823529411757}, 0.23529411764705857], CircleBox[{28.444444444444446, 0.8333333333333327}, 0.05555555555555551], CircleBox[{28.705882352941178, 0.7058823529411759}, 0.23529411764705863], CircleBox[{29.333333333333336, 0.4444444444444442}, 0.4444444444444442], CircleBox[{28.363636363636363, 10.060606060606048}, 0.12121212121212048], CircleBox[{28.52713178294574, 9.953488372093013}, 0.031007751937984388], CircleBox[{28.484848484848484, 9.909090909090907}, 0.030303030303030252], CircleBox[{27.47286821705427, 9.953488372092997}, 0.03100775193798425], CircleBox[{27.636363636363644, 10.060606060606046}, 0.1212121212121208], CircleBox[{27.51515151515152, 9.909090909090898}, 0.030303030303030224], CircleBox[{27.840000000000003, 5.6000000000000005}, 0.15999999999999973], CircleBox[{28.160000000000004, 5.599999999999999}, 0.15999999999999978], CircleBox[{28., 5.857142857142854}, 0.14285714285714263], CircleBox[{27.950617283950617, 11.111111111111093}, 0.049382716049382436], CircleBox[{28.04938271604938, 11.111111111111093}, 0.049382716049382436], CircleBox[{28.000000000000007, 10.833333333333304}, 0.1666666666666655], CircleBox[{28.000000000000004, 11.038461538461512}, 0.03846153846153825], CircleBox[{26.857142857142854, 8.999999999999998}, 0.14285714285714263], CircleBox[{26.666666666666668, 7.555555555555552}, 0.44444444444444364], CircleBox[{26.666666666666668, 8.444444444444441}, 0.4444444444444438], CircleBox[{29.142857142857142, 8.999999999999998}, 0.1428571428571427], CircleBox[{29.333333333333332, 8.444444444444443}, 0.44444444444444403], CircleBox[{29.333333333333336, 7.555555555555553}, 0.4444444444444441], CircleBox[{28.363636363636356, 13.939393939393858}, 0.12121212121211954], CircleBox[{27.636363636363637, 13.93939393939394}, 0.12121212121212122], CircleBox[{27.999999999999986, 12.73333333333336}, 0.06666666666666617], CircleBox[{28., 12.899999999999995}, 0.09999999999999944], CircleBox[{28., 13.045454545454554}, 0.04545454545454534], CircleBox[{27.900826446280995, 13.256198347107434}, 0.03305785123966938], CircleBox[{27.83561643835616, 13.315068493150692}, 0.05479452054794518], CircleBox[{28.16438356164383, 13.315068493150687}, 0.05479452054794516], CircleBox[{28.09917355371901, 13.256198347107436}, 0.033057851239669395], CircleBox[{34.666666666666664, 15.555555555555557}, 0.44444444444444303], CircleBox[{34.146341463414636, 15.707317073170731}, 0.09756097560975603], CircleBox[{33.93939393939394, 15.636363636363637}, 0.1212121212121211], CircleBox[{34., 15.875}, 0.125], CircleBox[{38.060606060606055, 15.63636363636363}, 0.12121212121212105], CircleBox[{37.853658536585364, 15.707317073170726}, 0.09756097560975599], CircleBox[{37.333333333333336, 15.555555555555557}, 0.44444444444444375], CircleBox[{38., 15.874999999999993}, 0.12499999999999994], CircleBox[{35.99999999999999, 1.0714285714285703}, 0.07142857142857136], CircleBox[{36.44444444444445, 1.3333333333333321}, 0.44444444444444403], CircleBox[{35.55555555555555, 1.3333333333333321}, 0.4444444444444441], CircleBox[{35.99999999999999, 0.49999999999999956}, 0.49999999999999956], CircleBox[{36., 10.333333333333327}, 0.33333333333333254], CircleBox[{35.99999999999999, 8.999999999999995}, 0.9999999999999987], CircleBox[{36., 6.9999999999999964}, 0.9999999999999996], CircleBox[{36.08163265306123, 13.142857142857148}, 0.0816326530612244], CircleBox[{35.91836734693878, 13.142857142857142}, 0.0816326530612244], CircleBox[{36., 13.666666666666654}, 0.33333333333333254], CircleBox[{36., 13.266666666666664}, 0.06666666666666665], CircleBox[{44, 15}], CircleBox[{48., 3.9999999999999982}, 3.9999999999999982], CircleBox[{48., 12.}, 4.], CircleBox[{-3.555555555556229, 15.950617283950777}, 0.049382716049402677], CircleBox[{-3.000000000000919, 14.708333333332318}, 0.04166666666669943], CircleBox[{-0.8, 15.96}, 0.04], CircleBox[{-0.8888888888888888, 15.950617283950617}, 0.04938271604938271], CircleBox[{-4.444444444444365, 15.95061728395079}, 0.04938271604938881], CircleBox[{-4.999999999999848, 14.70833333333303}, 0.041666666666666664], CircleBox[{-7.199999999999978, 15.960000000000147}, 0.03999999999999927], CircleBox[{-7.111111111111151, 15.950617283950706}, 0.04938271604938299], CircleBox[{-3.9999999999999996, 2.9545454545454524}, 0.0454545454545453], CircleBox[{-4., 3.099999999999997}, 0.09999999999999963], CircleBox[{-4.164383561643834, 2.684931506849313}, 0.05479452054794506], CircleBox[{-4.099173553719007, 2.7438016528925595}, 0.03305785123966934], CircleBox[{-3.9008264462809903, 2.743801652892559}, 0.03305785123966935], CircleBox[{-3.8356164383561624, 2.6849315068493125}, 0.05479452054794511], CircleBox[{-4.444444444444441, 1.8333333333333313}, 0.05555555555555532], CircleBox[{-4.499999999999998, 1.9375000000000002}, 0.06249999999999983], CircleBox[{-4.190476190476188, 1.9428571428571413}, 0.03809523809523802], CircleBox[{-4.206185567010306, 2.0206185567010277}, 0.041237113402061765], CircleBox[{-3.5555555555555527, 1.833333333333331}, 0.0555555555555554], CircleBox[{-3.4999999999999996, 1.9374999999999991}, 0.06249999999999992], CircleBox[{-3.7938144329896906, 2.020618556701029}, 0.041237113402061785], CircleBox[{-3.809523809523808, 1.9428571428571413}, 0.03809523809523804], CircleBox[{-5.904761904761901, 0.4285714285714275}, 0.047619047619047464], CircleBox[{-5.846153846153842, 0.5384615384615371}, 0.07692307692307673], CircleBox[{-6.399999999999995, 0.15999999999999942}, 0.15999999999999942], CircleBox[{-6.175438596491222, 0.210526315789473}, 0.070175438596491], CircleBox[{-5.827160493827156, 0.14814814814814778}, 0.049382716049382595], CircleBox[{-5.714285714285711, 0.08163265306122434}, 0.08163265306122434], CircleBox[{-5.052631578947366, 1.1929824561403481}, 0.07017543859649097], CircleBox[{-4.92307692307692, 1.169230769230767}, 0.06153846153846136], CircleBox[{-4.9438202247191, 0.8539325842696622}, 0.04494382022471903], CircleBox[{-5.037037037037035, 0.8395061728395053}, 0.049382716049382644], CircleBox[{-5.0218978102189755, 0.08759124087591226}, 0.029197080291970753], CircleBox[{-4.999999999999997, 0.031249999999999944}, 0.031249999999999944], CircleBox[{-4.761904761904759, 0.428571428571428}, 0.04761904761904752], CircleBox[{-4.842105263157894, 0.36842105263157854}, 0.05263157894736836], CircleBox[{-4.571428571428569, 0.08163265306122437}, 0.08163265306122437], CircleBox[{-4.491228070175437, 0.2105263157894735}, 0.07017543859649117], CircleBox[{-2.095238095238094, 0.4285714285714282}, 0.04761904761904754], CircleBox[{-2.153846153846153, 0.5384615384615379}, 0.07692307692307684], CircleBox[{-2.2857142857142847, 0.08163265306122437}, 0.08163265306122437], CircleBox[{-2.1728395061728385, 0.148148148148148}, 0.049382716049382665], CircleBox[{-1.8245614035087712, 0.2105263157894735}, 0.07017543859649117], CircleBox[{-1.5999999999999994, 0.1599999999999999}, 0.1599999999999999], CircleBox[{-2.962962962962962, 0.8395061728395055}, 0.04938271604938261], CircleBox[{-3.0561797752808983, 0.8539325842696626}, 0.04494382022471903], CircleBox[{-3.0769230769230758, 1.1692307692307684}, 0.061538461538461445], CircleBox[{-2.94736842105263, 1.19298245614035}, 0.07017543859649114], CircleBox[{-2.978102189781021, 0.08759124087591225}, 0.02919708029197075], CircleBox[{-2.999999999999999, 0.031249999999999944}, 0.031249999999999944], CircleBox[{-3.238095238095237, 0.428571428571428}, 0.04761904761904752], CircleBox[{-3.157894736842104, 0.3684210526315784}, 0.05263157894736835], CircleBox[{-3.50877192982456, 0.21052631578947345}, 0.07017543859649115], CircleBox[{-3.4285714285714266, 0.0816326530612244}, 0.0816326530612244], CircleBox[{-4.049382716049379, 4.888888888888891}, 0.04938271604938246], CircleBox[{-3.950617283950613, 4.88888888888889}, 0.04938271604938247], CircleBox[{-3.999999999999997, 4.9615384615384635}, 0.038461538461538304], CircleBox[{-4.164383561643834, 5.315068493150687}, 0.054794520547944994], CircleBox[{-4.123711340206182, 5.402061855670102}, 0.04123711340206171], CircleBox[{-3.876288659793811, 5.4020618556701}, 0.041237113402061744], CircleBox[{-3.835616438356162, 5.315068493150683}, 0.05479452054794506], CircleBox[{-4.527131782945733, 6.046511627906976}, 0.031007751937984374], CircleBox[{-4.484848484848481, 6.090909090909088}, 0.030303030303030186], CircleBox[{-4.285714285714285, 5.75}, 0.0357142857142856], CircleBox[{-4.3636363636363615, 5.772727272727272}, 0.045454545454545345], CircleBox[{-4.165289256198344, 5.917355371900824}, 0.03305785123966935], CircleBox[{-4.206185567010306, 5.9793814432989665}, 0.041237113402061765], CircleBox[{-3.472868217054262, 6.046511627906975}, 0.031007751937984454], CircleBox[{-3.515151515151514, 6.090909090909089}, 0.030303030303030262], CircleBox[{-3.714285714285713, 5.75}, 0.035714285714285636], CircleBox[{-3.636363636363635, 5.772727272727271}, 0.045454545454545386], CircleBox[{-3.7938144329896897, 5.979381443298968}, 0.04123711340206179], CircleBox[{-3.8347107438016512, 5.917355371900824}, 0.033057851239669374], CircleBox[{-4.000000000000016, 11.464285714285483}, 0.03571428571428064], CircleBox[{-5.249999999999999, 7.031250000000001}, 0.031249999999999917], CircleBox[{-5.333333333333331, 7.055555555555555}, 0.05555555555555542], CircleBox[{-5.052631578947366, 6.807017543859648}, 0.07017543859649103], CircleBox[{-5.097345132743361, 6.902654867256637}, 0.03539823008849549], CircleBox[{-5.080291970802918, 7.094890510948906}, 0.02919708029197075], CircleBox[{-5.0370370370370345, 7.160493827160492}, 0.04938271604938264], CircleBox[{-5.953488372093012, 8.527131782945725}, 0.031007751937984235], CircleBox[{-5.866666666666662, 7.4285714285714235}, 0.03809523809523796], CircleBox[{-5.805309734513268, 7.469026548672562}, 0.03539823008849545], CircleBox[{-5.8666666666666565, 7.499999999999994}, 0.03333333333333318], CircleBox[{-5.7777777777777715, 8.629629629629617}, 0.037037037037036646], CircleBox[{-6.285714285714282, 8.333333333333337}, 0.04761904761904743], CircleBox[{-6.399999999999989, 7.840000000000002}, 0.15999999999999892], CircleBox[{-6.399999999999987, 8.15999999999999}, 0.15999999999999917], CircleBox[{-5.714285714285711, 8.08163265306122}, 0.0816326530612243], CircleBox[{-5.714285714285711, 7.918367346938771}, 0.0816326530612243], CircleBox[{-4.999999999999996, 8.062499999999993}, 0.06249999999999983], CircleBox[{-4.999999999999997, 7.9374999999999964}, 0.0624999999999999], CircleBox[{-4.571428571428569, 7.918367346938772}, 0.08163265306122437], CircleBox[{-4.571428571428569, 8.081632653061222}, 0.08163265306122441], CircleBox[{-2.7499999999999996, 7.031249999999998}, 0.031249999999999944], CircleBox[{-2.666666666666666, 7.055555555555554}, 0.055555555555555476], CircleBox[{-2.962962962962962, 7.160493827160491}, 0.04938271604938263], CircleBox[{-2.91970802919708, 7.094890510948903}, 0.029197080291970767], CircleBox[{-2.902654867256636, 6.902654867256634}, 0.03539823008849553], CircleBox[{-2.9473684210526305, 6.807017543859647}, 0.07017543859649117], CircleBox[{-2.046511627906979, 8.527131782945736}, 0.03100775193798429], CircleBox[{-2.1946902654867255, 7.469026548672564}, 0.035398230088495505], CircleBox[{-2.1333333333333324, 7.4285714285714235}, 0.038095238095238], CircleBox[{-2.1333333333333337, 7.499999999999997}, 0.033333333333333263], CircleBox[{-2.2222222222222228, 8.629629629629623}, 0.037037037037036764], CircleBox[{-2.285714285714286, 7.918367346938771}, 0.08163265306122425], CircleBox[{-2.285714285714287, 8.081632653061225}, 0.08163265306122433], CircleBox[{-1.7142857142857162, 8.333333333333329}, 0.04761904761904752], CircleBox[{-1.5999999999999999, 8.15999999999999}, 0.15999999999999953], CircleBox[{-1.600000000000001, 7.839999999999992}, 0.15999999999999964], CircleBox[{-2.9999999999999987, 8.062499999999995}, 0.06249999999999985], CircleBox[{-2.9999999999999987, 7.9374999999999964}, 0.0624999999999999], CircleBox[{-3.428571428571427, 8.08163265306122}, 0.0816326530612244], CircleBox[{-3.4285714285714266, 7.918367346938772}, 0.0816326530612244], CircleBox[{-3.4285714285716664, 14.133333333333075}, 0.03809523809520378], CircleBox[{-4.57142857142874, 14.133333333333288}, 0.0380952380952447], CircleBox[{-12.571428571428482, 15.918367346938773}, 0.08163265306122752], CircleBox[{-12.842105263157947, 15.63157894736846}, 0.05263157894736275], CircleBox[{-13.090909090909085, 15.966942148760332}, 0.03305785123966967], CircleBox[{-13.953488372093023, 15.472868217054264}, 0.03100775193798444], CircleBox[{-13.05263157894757, 14.807017543859796}, 0.07017543859647499], CircleBox[{-13.037037037037036, 15.160493827160494}, 0.04938271604938271], CircleBox[{-13.411764705882351, 15.088235294117665}, 0.029411764705881763], CircleBox[{-13.81818181818182, 15.966942148760332}, 0.03305785123966941], CircleBox[{-14.857142857142856, 15.918367346938775}, 0.08163265306122448], CircleBox[{-15.007751937984496, 15.906976744186046}, 0.031007751937984496], CircleBox[{-15., 15.96875}, 0.03125], CircleBox[{-14.545454545454547, 15.966942148760332}, 0.03305785123966942], CircleBox[{-14.285714285714283, 15.666666666666666}, 0.04761904761904752], CircleBox[{-14.206896551724137, 15.689655172413794}, 0.03448275862068962], CircleBox[{-14.580645161290319, 15.774193548387098}, 0.032258064516128795], CircleBox[{-14.159292035398233, 15.893805309734514}, 0.03539823008849556], CircleBox[{-14.222222222222221, 15.950617283950617}, 0.04938271604938271], CircleBox[{-11.428571428571397, 15.918367346938926}, 0.08163265306122373], CircleBox[{-11.157894736842145, 15.631578947368437}, 0.0526315789473659], CircleBox[{-10.909090909090867, 15.96694214876039}, 0.0330578512396693], CircleBox[{-10.04651162790698, 15.472868217054266}, 0.031007751937984388], CircleBox[{-10.962962962962735, 15.160493827160636}, 0.0493827160493744], CircleBox[{-10.947368421052586, 14.807017543859669}, 0.07017543859649011], CircleBox[{-10.58823529411763, 15.088235294117672}, 0.029411764705881565], CircleBox[{-9.454545454545459, 15.96694214876033}, 0.03305785123966917], CircleBox[{-8.992248062015504, 15.906976744186048}, 0.03100775193798362], CircleBox[{-9.142857142857105, 15.918367346938775}, 0.08163265306122448], CircleBox[{-9.000000000000007, 15.96875}, 0.031249999999999334], CircleBox[{-9.714285714285722, 15.666666666666657}, 0.047619047619047394], CircleBox[{-9.793103448275861, 15.689655172413792}, 0.034482758620689585], CircleBox[{-9.419354838709676, 15.7741935483871}, 0.03225806451612868], CircleBox[{-9.777777777777779, 15.95061728395061}, 0.04938271604938262], CircleBox[{-9.840707964601773, 15.893805309734503}, 0.035398230088495526], CircleBox[{-10.181818181818185, 15.966942148760324}, 0.033057851239669395], CircleBox[{-11.91836734693878, 2.857142857142854}, 0.08163265306122425], CircleBox[{-12.081632653061227, 2.8571428571428537}, 0.08163265306122429], CircleBox[{-12.000000000000002, 2.7333333333333303}, 0.06666666666666653], CircleBox[{-11.636363636363637, 2.060606060606058}, 0.1212121212121209], CircleBox[{-11.707317073170733, 1.853658536585364}, 0.09756097560975589], CircleBox[{-12.292682926829269, 1.8536585365853646}, 0.09756097560975596], CircleBox[{-12.363636363636365, 2.0606060606060588}, 0.12121212121212105], CircleBox[{-9.939393939393947, 0.3636363636363625}, 0.12121212121212083], CircleBox[{-10.146341463414638, 0.29268292682926766}, 0.09756097560975588], CircleBox[{-10.000000000000007, 0.12499999999999961}, 0.12499999999999961], CircleBox[{-11.250000000000002, 0.9687499999999992}, 0.031249999999999917], CircleBox[{-11.111111111111112, 0.9999999999999983}, 0.11111111111111084], CircleBox[{-10.85714285714286, 0.9999999999999984}, 0.14285714285714263], CircleBox[{-11.46666666666667, 0.49999999999999944}, 0.0333333333333333], CircleBox[{-11.393939393939396, 0.36363636363636315}, 0.12121212121212105], CircleBox[{-11.200000000000003, 0.15999999999999978}, 0.15999999999999978], CircleBox[{-13.853658536585368, 0.292682926829268}, 0.09756097560975599], CircleBox[{-14.060606060606062, 0.3636363636363633}, 0.1212121212121211], CircleBox[{-14.000000000000002, 0.12499999999999989}, 0.12499999999999989], CircleBox[{-12.750000000000002, 0.9687499999999997}, 0.03124999999999993], CircleBox[{-12.888888888888891, 0.9999999999999992}, 0.11111111111111094], CircleBox[{-13.142857142857142, 0.9999999999999993}, 0.14285714285714277], CircleBox[{-12.533333333333333, 0.49999999999999956}, 0.033333333333333305], CircleBox[{-12.8, 0.1599999999999998}, 0.1599999999999998], CircleBox[{-12.606060606060607, 0.3636363636363633}, 0.1212121212121211], CircleBox[{-12.20618556701031, 10.020618556701027}, 0.041237113402061785], CircleBox[{-12.36363636363637, 10.227272727272705}, 0.04545454545454343], CircleBox[{-12.571428571428573, 9.866666666666656}, 0.038095238095237974], CircleBox[{-11.793814432989684, 10.020618556701034}, 0.04123711340206164], CircleBox[{-11.636363636363617, 10.227272727272682}, 0.04545454545454296], CircleBox[{-11.428571428571427, 9.86666666666667}, 0.038095238095237974], CircleBox[{-12., 5.416666666666666}, 0.0833333333333331], CircleBox[{-11.999999999999998, 5.166666666666672}, 0.16666666666666638], CircleBox[{-11.636363636363638, 5.939393939393938}, 0.12121212121212095], CircleBox[{-11.789473684210527, 5.824561403508771}, 0.07017543859649111], CircleBox[{-12.210526315789474, 5.82456140350877}, 0.07017543859649113], CircleBox[{-12.363636363636363, 5.939393939393937}, 0.12121212121212108], CircleBox[{-12.164383561643831, 10.684931506849257}, 0.05479452054794401], CircleBox[{-11.835616438356166, 10.684931506849306}, 0.054794520547945036], CircleBox[{-11.999999999999988, 11.38095238095252}, 0.04761904761904897], CircleBox[{-12., 11.266666666666632}, 0.06666666666666565], CircleBox[{-12.000000000000007, 11.17142857142854}, 0.028571428571428293], CircleBox[{-11.906976744186048, 11.007751937984478}, 0.031007751937984388], CircleBox[{-12.093023255813954, 11.007751937984478}, 0.031007751937984388], CircleBox[{-10.962962962962965, 8.839506172839505}, 0.04938271604938247], CircleBox[{-10.947368421052634, 9.192982456140347}, 0.07017543859649109], CircleBox[{-10.80701754385965, 6.947368421052631}, 0.07017543859649106], CircleBox[{-10.830769230769235, 7.076923076923076}, 0.0615384615384614], CircleBox[{-10.933333333333337, 6.999999999999997}, 0.06666666666666653], CircleBox[{-10.153846153846159, 8.538461538461531}, 0.07692307692307662], CircleBox[{-10.000000000000009, 8.24999999999999}, 0.2499999999999989], CircleBox[{-10.000000000000004, 7.750000000000001}, 0.24999999999999933], CircleBox[{-10.666666666666673, 8.944444444444438}, 0.055555555555555296], CircleBox[{-11.157894736842108, 8.368421052631575}, 0.05263157894736836], CircleBox[{-11.200000000000003, 8.159999999999995}, 0.15999999999999973], CircleBox[{-11.200000000000003, 7.839999999999992}, 0.15999999999999973], CircleBox[{-13.05263157894737, 9.192982456140346}, 0.07017543859649092], CircleBox[{-13.037037037037038, 8.839506172839501}, 0.049382716049382575], CircleBox[{-13.16923076923077, 7.076923076923075}, 0.06153846153846146], CircleBox[{-13.192982456140353, 6.947368421052629}, 0.07017543859649115], CircleBox[{-13.066666666666666, 6.999999999999996}, 0.06666666666666658], CircleBox[{-13.846153846153847, 8.538461538461538}, 0.07692307692307672], CircleBox[{-14.000000000000002, 8.249999999999991}, 0.24999999999999933], CircleBox[{-13.999999999999998, 7.75}, 0.24999999999999978], CircleBox[{-13.333333333333334, 8.944444444444438}, 0.05555555555555534], CircleBox[{-12.842105263157894, 8.368421052631579}, 0.05263157894736838], CircleBox[{-12.8, 7.839999999999996}, 0.1599999999999998], CircleBox[{-12.8, 8.159999999999998}, 0.15999999999999986], CircleBox[{-12.206185567010307, 13.979381443298857}, 0.041237113402061085], CircleBox[{-12.499999999999908, 14.062500000000137}, 0.06249999999999556], CircleBox[{-11.793814432989643, 13.979381443299024}, 0.04123711340206379], CircleBox[{-11.499999999999986, 14.06249999999993}, 0.062499999999987566], CircleBox[{-11.999999999999979, 12.619047619047667}, 0.04761904761904453], CircleBox[{-11.906976744186048, 12.9922480620155}, 0.031007751937984388], CircleBox[{-12.093023255813954, 12.992248062015486}, 0.031007751937984388], CircleBox[{-18.978102189781, 15.91240875912409}, 0.029197080291970223], CircleBox[{-19.2, 15.84}, 0.16], CircleBox[{-18.999999999999993, 15.96875}, 0.031249999999999778], CircleBox[{-18.22222222222222, 15.370370370370374}, 0.03703703703703688], CircleBox[{-18.153846153846153, 15.461538461538465}, 0.07692307692307668], CircleBox[{-18.095238095238095, 15.571428571428571}, 0.047619047619047554], CircleBox[{-18.85714285714283, 15.000000000000032}, 0.14285714285713821], CircleBox[{-18.400000000000002, 15.96}, 0.04], CircleBox[{-18.17283950617284, 15.851851851851851}, 0.04938271604938268], CircleBox[{-18.285714285714285, 15.918367346938775}, 0.08163265306122448], CircleBox[{-17.333333333333332, 15.888888888888888}, 0.1111111111111111], CircleBox[{-17.599999999999998, 15.84}, 0.1599999999999998], CircleBox[{-17.82456140350877, 15.789473684210527}, 0.0701754385964912], CircleBox[{-20.80000000000003, 15.84}, 0.15999999999999853], CircleBox[{-21.021897810218967, 15.912408759123984}, 0.029197080291970417], CircleBox[{-21.00000000000002, 15.96875}, 0.031249999999999778], CircleBox[{-21.77777777777779, 15.370370370370374}, 0.03703703703703688], CircleBox[{-21.846153846153836, 15.461538461538446}, 0.0769230769230765], CircleBox[{-21.9047619047619, 15.57142857142856}, 0.04761904761904752], CircleBox[{-21.142857142857235, 15.000000000000032}, 0.14285714285713821], CircleBox[{-22.66666666666665, 15.88888888888889}, 0.11111111111111041], CircleBox[{-22.17543859649123, 15.78947368421052}, 0.07017543859649113], CircleBox[{-22.4, 15.840000000000009}, 0.15999999999999973], CircleBox[{-21.6, 15.959999999999999}, 0.03999999999999995], CircleBox[{-21.71428571428571, 15.918367346938771}, 0.08163265306122437], CircleBox[{-21.827160493827158, 15.851851851851844}, 0.04938271604938267], CircleBox[{-19.912408759124084, 1.021897810218977}, 0.02919708029197068], CircleBox[{-20.08759124087591, 1.021897810218977}, 0.02919708029197073], CircleBox[{-20., 1.5499999999999998}, 0.049999999999999906], CircleBox[{-19.999999999999996, 1.7999999999999985}, 0.19999999999999968], CircleBox[{-20., 2.3333333333333313}, 0.33333333333333304], CircleBox[{-19.999999999999996, 1.1714285714285702}, 0.0285714285714285], CircleBox[{-20.444444444444443, 0.8333333333333326}, 0.055555555555555504], CircleBox[{-21.333333333333332, 0.44444444444444375}, 0.44444444444444375], CircleBox[{-20.705882352941174, 0.7058823529411757}, 0.23529411764705857], CircleBox[{-19.555555555555554, 0.8333333333333327}, 0.05555555555555551], CircleBox[{-19.29411764705882, 0.7058823529411759}, 0.23529411764705863], CircleBox[{-18.666666666666664, 0.4444444444444442}, 0.4444444444444442], CircleBox[{-19.636363636363633, 10.060606060606048}, 0.12121212121212048], CircleBox[{-19.472868217054263, 9.953488372093013}, 0.031007751937984388], CircleBox[{-19.515151515151516, 9.909090909090907}, 0.030303030303030252], CircleBox[{-20.527131782945727, 9.953488372092997}, 0.03100775193798425], CircleBox[{-20.36363636363636, 10.060606060606046}, 0.1212121212121208], CircleBox[{-20.48484848484848, 9.909090909090898}, 0.030303030303030224], CircleBox[{-20.159999999999997, 5.6000000000000005}, 0.15999999999999973], CircleBox[{-19.84, 5.599999999999999}, 0.15999999999999978], CircleBox[{-19.999999999999996, 5.857142857142854}, 0.14285714285714263], CircleBox[{-20.049382716049383, 11.111111111111093}, 0.049382716049382436], CircleBox[{-19.950617283950617, 11.111111111111093}, 0.049382716049382436], CircleBox[{-19.999999999999996, 10.833333333333304}, 0.1666666666666655], CircleBox[{-19.999999999999993, 11.038461538461512}, 0.03846153846153825], CircleBox[{-21.142857142857142, 8.999999999999998}, 0.14285714285714263], CircleBox[{-21.33333333333333, 7.555555555555552}, 0.44444444444444364], CircleBox[{-21.33333333333333, 8.444444444444441}, 0.4444444444444438] , CircleBox[{-18.857142857142858, 8.999999999999998}, 0.1428571428571427], CircleBox[{-18.666666666666668, 8.444444444444443}, 0.44444444444444403], CircleBox[{-18.666666666666664, 7.555555555555553}, 0.4444444444444441], CircleBox[{-19.63636363636364, 13.939393939393858}, 0.12121212121211954], CircleBox[{-20.363636363636363, 13.93939393939394}, 0.12121212121212122], CircleBox[{-20.000000000000018, 12.73333333333336}, 0.06666666666666617], CircleBox[{-20., 12.899999999999995}, 0.09999999999999944], CircleBox[{-20., 13.045454545454554}, 0.04545454545454534], CircleBox[{-20.09917355371901, 13.256198347107434}, 0.03305785123966938], CircleBox[{-20.164383561643838, 13.315068493150692}, 0.05479452054794518], CircleBox[{-19.835616438356166, 13.315068493150687}, 0.05479452054794516], CircleBox[{-19.90082644628099, 13.256198347107436}, 0.033057851239669395], CircleBox[{-29.333333333333336, 15.555555555555557}, 0.44444444444444303], CircleBox[{-29.853658536585368, 15.707317073170731}, 0.09756097560975603], CircleBox[{-30.060606060606062, 15.636363636363637}, 0.1212121212121211], CircleBox[{-30., 15.875}, 0.125], CircleBox[{-25.939393939393938, 15.63636363636363}, 0.12121212121212105], CircleBox[{-26.146341463414632, 15.707317073170726}, 0.09756097560975599], CircleBox[{-26.666666666666664, 15.555555555555557}, 0.44444444444444375], CircleBox[{-26.000000000000004, 15.874999999999993}, 0.12499999999999994], CircleBox[{-28.000000000000004, 1.0714285714285703}, 0.07142857142857136], CircleBox[{-27.555555555555557, 1.3333333333333321}, 0.44444444444444403], CircleBox[{-28.444444444444446, 1.3333333333333321}, 0.4444444444444441], CircleBox[{-28.000000000000004, 0.49999999999999956}, 0.49999999999999956], CircleBox[{-28., 10.333333333333327}, 0.33333333333333254], CircleBox[{-28., 8.999999999999995}, 0.9999999999999987], CircleBox[{-28., 6.9999999999999964}, 0.9999999999999996], CircleBox[{-27.918367346938776, 13.142857142857148}, 0.0816326530612244], CircleBox[{-28.081632653061227, 13.142857142857142}, 0.0816326530612244], CircleBox[{-28., 13.666666666666654}, 0.33333333333333254], CircleBox[{-28., 13.266666666666664}, 0.06666666666666665], CircleBox[{-36, 15}], CircleBox[{-39.99999999999999, 11.999999999999995}, 3.9999999999999982], CircleBox[{-39.99999999999999, 3.9999999999999982}, 3.9999999999999982]}, {RGBColor[1, 0, 0], CircleBox[{2., 16.}, 2.], CircleBox[{5.999999999999997, 15.999999999999993}, 1.9999999999999991], CircleBox[{3.9999999999999982, 0.}, 3.9999999999999982], CircleBox[{3.9999999999999982, 7.9999999999999964}, 3.9999999999999982], CircleBox[{3.999999999999999, 13.33333333333333}, 1.333333333333333], TagBox[ConicHullRegionBox[{8, 0}, {{0, 1}}], "InfiniteLine"], TagBox[ConicHullRegionBox[{0, 0}, {{0, -1}}], "InfiniteLine"]}, {RGBColor[0, 0, 1], CircleBox[{4, 15}], CircleBox[{7.9999999999999964, 11.999999999999995}, 3.9999999999999982], CircleBox[{7.9999999999999964, 3.9999999999999982}, 3.9999999999999982], CircleBox[{0., 3.9999999999999982}, 3.9999999999999982], CircleBox[{0., 12.}, 4.], TagBox[ConicHullRegionBox[{0, 16}, {{-1, 0}}], "InfiniteLine"], TagBox[ConicHullRegionBox[{0, 0}, {{1, 0}}], "InfiniteLine"]}}, PlotRange->{{-7.9999999999999964`, 15.999999999999993`}, {-4.8, 20.799999999999997`}}, PlotRangeClipping->True]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"240", "1", "4", "15"}, {"48", FractionBox["1", "4"], "2", "3"}, {"16", FractionBox["1", "4"], "2", "1"}, {"0", FractionBox["1", "4"], "0", "1"}, {"32", FractionBox["1", "4"], "0", "3"}, {"32", "0", "0", "1"}, {"0", "0", "0", RowBox[{"-", "1"}]}, {"128", FractionBox["1", "2"], "1", "8"}, {"144", FractionBox["1", "2"], "3", "8"}, {"0", FractionBox["1", "4"], "1", "0"}, {"16", FractionBox["1", "4"], "1", "2"}, {"144", FractionBox["3", "4"], "3", "10"}, {"16", "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[{ {"1", "0", "0", "0", "0", "0", "0"}, {"0", "0", "3", "0", "6", "10", RowBox[{"-", "4"}]}, {"0", "0", "11", "0", "30", "45", RowBox[{"-", "15"}]}, {"0", "0", "8", "0", "25", "35", RowBox[{"-", "11"}]}, {"0", "0", "0", "0", "1", "0", "0"}, {"0", "0", "0", "0", "0", "1", "0"}, {"0", "0", "8", "0", "24", "36", RowBox[{"-", "11"}]} }, 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$]]], ",", "\<\"integral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0", "0", "0", "0"}, {"0", "0", "1", "0", "0", "1", RowBox[{"-", "1"}]}, {"0", "0", "25", "0", "8", "52", RowBox[{"-", "28"}]}, {"0", "0", "30", "0", "11", "64", RowBox[{"-", "34"}]}, {"0", "0", "6", "0", "3", "13", RowBox[{"-", "7"}]}, {"0", "0", "0", "0", "0", "1", "0"}, {"0", "0", "24", "0", "8", "52", RowBox[{"-", "27"}]} }, 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$]]], ",", "\<\"integral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "26", "0", "26", RowBox[{"-", "39"}], "65"}, {"0", "0", "5", "0", "4", RowBox[{"-", "5"}], "9"}, {"0", "0", "1", "0", "0", "0", "0"}, {"0", "0", "0", "0", "1", RowBox[{"-", "1"}], "1"}, {"0", "0", "4", "0", "5", RowBox[{"-", "6"}], "10"}, {"0", "0", "4", "0", "4", RowBox[{"-", "5"}], "10"}, {"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$]]], ",", "\<\"integral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "4", "0", "4", RowBox[{"-", "2"}], RowBox[{"-", "2"}]}, {"0", "0", "1", "0", "0", "1", RowBox[{"-", "1"}]}, {"0", "0", "1", "0", "0", "0", "0"}, {"0", "0", "0", "0", "1", RowBox[{"-", "1"}], "1"}, {"0", "0", "0", "0", "1", "0", "0"}, {"0", "0", "2", "0", "2", "0", RowBox[{"-", "1"}]}, {"0", "0", "2", "0", "2", 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$]]], ",", "\<\"integral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0", "0", "0", "0"}, {"0", "0", "1", "0", "0", "1", RowBox[{"-", "1"}]}, {"0", "0", "25", "0", "24", "36", RowBox[{"-", "28"}]}, {"0", "0", "24", "0", "25", "35", RowBox[{"-", "27"}]}, {"0", "0", "0", "0", "1", "0", "0"}, {"0", "0", "6", "0", "6", "10", RowBox[{"-", "7"}]}, {"0", "0", "30", "0", "30", "45", RowBox[{"-", "34"}]} }, 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$]]], ",", "\<\"integral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "4", "0", RowBox[{"-", "4"}], "6", RowBox[{"-", "2"}]}, {"0", "0", "1", "0", "0", "1", RowBox[{"-", "1"}]}, {"0", "0", "1", "0", "0", "0", "0"}, {"0", "0", "2", "0", RowBox[{"-", "1"}], "2", "0"}, {"0", "0", "2", "0", RowBox[{"-", "1"}], "3", RowBox[{"-", "1"}]}, {"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$]]], ",", "\<\"integral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", RowBox[{"-", "4"}], "0", "4", RowBox[{"-", "2"}], "6"}, {"0", "0", RowBox[{"-", "1"}], "0", "2", "0", "2"}, {"0", "0", RowBox[{"-", "1"}], "0", "2", RowBox[{"-", "1"}], "3"}, {"0", "0", "0", "0", "1", RowBox[{"-", "1"}], "1"}, {"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$]]], ",", "\<\"integral\"\>"}], "}"}]}], "}"}]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "1"}], "1", "15", "15", "1", "1", "15", "0", "0", "26", "4", "0", "4", "4"}, {"1", RowBox[{"-", "1"}], "1", "3", "1", "1", "3", "2", "0", "4", "0", "0", "0", "2"}, {"15", "1", RowBox[{"-", "1"}], "1", "3", "3", "1", "10", "8", "0", "0", "8", "0", "2"}, {"15", "3", "1", RowBox[{"-", "1"}], "1", "3", "1", "8", "10", "0", "0", "8", "2", "0"}, {"1", "1", "3", "1", RowBox[{"-", "1"}], "1", "3", "0", "2", "4", "0", "0", "2", "0"}, {"1", "1", "3", "3", "1", RowBox[{"-", "1"}], "1", "0", "0", "4", "2", "2", "0", "0"}, {"15", "3", "1", "1", "3", "1", RowBox[{"-", "1"}], "8", "8", "0", "2", "10", "0", "0"}, {"0", "2", "10", "8", "0", "0", "8", RowBox[{"-", "1"}], "1", "15", "3", "1", "3", "1"}, {"0", "0", "8", "10", "2", "0", "8", "1", RowBox[{"-", "1"}], "15", "3", "1", "1", "3"}, {"26", "4", "0", "0", "4", "4", "0", "15", "15", RowBox[{"-", "1"}], "1", "15", "1", "1"}, {"4", "0", "0", "0", "0", "2", "2", "3", "3", "1", RowBox[{"-", "1"}], "1", "1", "1"}, {"0", "0", "8", "8", "0", "2", "10", "1", "1", "15", "1", RowBox[{"-", "1"}], "3", "3"}, {"4", "0", "0", "2", "2", "0", "0", "3", "1", "1", "1", "3", RowBox[{"-", "1"}], "1"}, {"4", "2", "2", "0", "0", "0", "0", "1", "3", "1", "1", "3", "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->{3.7386051751436386`*^9, 3.738605367660136*^9, 3.7386060480549717`*^9, 3.7386061985278535`*^9, 3.738668734763968*^9, 3.738669010410738*^9, 3.7386693358435574`*^9, 3.7386695798026056`*^9, 3.738670667579774*^9, 3.7386714826378083`*^9, 3.738671552141263*^9, 3.7386717206944356`*^9, 3.738671867578534*^9, 3.738925501838003*^9, 3.739118999448401*^9, 3.7391190744822087`*^9}, CellLabel-> "Out[555]=",ExpressionUUID->"fc8785be-c83f-4f1a-b5dc-82ec1dd520a8"] }, Open ]] }, WindowSize->{1060, 661}, WindowMargins->{{22, Automatic}, {Automatic, 36}}, Magnification:>1.25 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, 63, "Input",ExpressionUUID->"748eabe5-c3d2-4801-b8b7-aa7a789097c7"], Cell[1225, 40, 695, 18, 61, "Input",ExpressionUUID->"0ab29ce4-3405-44f4-bf4a-16ef730ff686"], Cell[1923, 60, 9875, 235, 1049, "Input",ExpressionUUID->"72e544ec-21b3-4511-8714-78e40bf96f8f"], Cell[11801, 297, 35696, 782, 2836, "Input",ExpressionUUID->"34558bf5-30de-4efd-a85d-1e42927d2f41"], Cell[47500, 1081, 13766, 317, 1191, "Input",ExpressionUUID->"1669407f-19e4-41f4-83d2-404c097a4b8c"], Cell[61269, 1400, 1572, 43, 132, "Input",ExpressionUUID->"0ca661cb-0814-4baa-8045-ccb6be11fd34"], Cell[62844, 1445, 16048, 333, 1194, "Input",ExpressionUUID->"8eb99bd7-ecdf-447b-9254-91418df0046a"], Cell[78895, 1780, 13582, 313, 1126, "Input",ExpressionUUID->"df3b60f9-0301-4a00-901e-3f42ad1f6dcc"], Cell[92480, 2095, 3768, 87, 422, "Input",ExpressionUUID->"94e58c8f-e9bc-4bc5-9f72-1e7d65b723b4"], Cell[96251, 2184, 397, 13, 97, "Input",ExpressionUUID->"e0269727-13f8-41e1-9bed-e3d214f9ade5"], Cell[96651, 2199, 682, 20, 67, "Input",ExpressionUUID->"335fc47c-61a3-4d42-b8dc-1a6e429b3dbb"], Cell[97336, 2221, 4976, 131, 510, "Input",ExpressionUUID->"8f83b82e-c1db-40d9-ac4c-a723737f7704"], Cell[102315, 2354, 1032, 29, 60, "Input",ExpressionUUID->"d37cc6ff-e0b5-488e-9c86-c606b2039282"], Cell[103350, 2385, 1961, 44, 156, "Input",ExpressionUUID->"9a3eb7b4-a69e-4770-9009-32f6122d8145"], Cell[105314, 2431, 5280, 132, 277, "Input",ExpressionUUID->"affbea28-f93e-449d-873a-65b52e624ef9"], Cell[110597, 2565, 1184, 31, 60, "Input",ExpressionUUID->"15495297-a588-42f2-9830-ff3a5a9d76a4"], Cell[111784, 2598, 936, 25, 60, "Input",ExpressionUUID->"cd35cdcc-79cb-420e-8b24-2c510cf42e01"], Cell[112723, 2625, 7216, 181, 760, "Input",ExpressionUUID->"fdeac3c3-374d-41ae-bc6b-594cdf3b953f"], Cell[119942, 2808, 7668, 154, 518, "Input",ExpressionUUID->"b49300f9-4eb0-4e74-b00e-238ad2cc61d5"], Cell[127613, 2964, 3749, 87, 325, "Input",ExpressionUUID->"b43a5c15-ff8f-4841-a157-1d63bba9b7c4"], Cell[CellGroupData[{ Cell[131387, 3055, 2552, 45, 60, "Input",ExpressionUUID->"8c0d00eb-3a38-4d87-9e21-66e5a04e235e"], Cell[133942, 3102, 161004, 3395, 1901, "Output",ExpressionUUID->"fc8785be-c83f-4f1a-b5dc-82ec1dd520a8"] }, Open ]] } ] *)