(* 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[ 311387, 6955] NotebookOptionsPosition[ 308984, 6920] NotebookOutlinePosition[ 309355, 6936] CellTagsIndexPosition[ 309312, 6933] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"F", "[", "x_", "]"}], ":=", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"PolyLog", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["\[ExponentialE]", "x"]}]}], "]"}], "-", RowBox[{"PolyLog", "[", RowBox[{"2", ",", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", "x"]}]}], "]"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.737196866673444*^9, 3.737196875196076*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"748eabe5-c3d2-4801-b8b7-aa7a789097c7"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"G3", "[", RowBox[{"a_", ",", "b_"}], "]"}], ":=", RowBox[{ RowBox[{"F", "[", RowBox[{"a", "-", "b"}], "]"}], "+", RowBox[{"F", "[", RowBox[{"b", "-", "a"}], "]"}], "-", RowBox[{ FractionBox["\[Pi]", "2"], RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}]}]}]}], ";"}]], "Input", CellChangeTimes->{ 3.737201965981352*^9, {3.737202002231657*^9, 3.737202033142387*^9}, { 3.737202126146511*^9, 3.7372021534299583`*^9}, {3.7378972597648673`*^9, 3.7378972820313244`*^9}, {3.737897408257219*^9, 3.7378974198940997`*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"0ab29ce4-3405-44f4-bf4a-16ef730ff686"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"EnergySetup", "[", RowBox[{"n_", ",", "FacesCW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "i", ",", "rhoV", ",", "rhoF", ",", "include", ",", "LineFaces", ",", "f", ",", "Faces", ",", "NM", ",", "nonlinefaces", ",", "radii", ",", "RADII"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Faces", "=", RowBox[{"Sort", "/@", "FacesCW"}]}], ";", "\[IndentingNewLine]", RowBox[{"f", "=", RowBox[{"Length", "[", "Faces", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"LineFaces", "=", RowBox[{"{", "}"}]}], ";", RowBox[{"rhoV", "=", RowBox[{"Table", "[", RowBox[{ SubscriptBox["rV", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}]}], ";", RowBox[{"rhoF", "=", RowBox[{"Table", "[", RowBox[{ SubscriptBox["rF", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"f", "-", "2"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"include", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"nonlinefaces", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "f"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"-", "2"}]}], "]"}], "]"}], "\[Equal]", RowBox[{"n", "-", "1"}]}], "&&", RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"-", "1"}]}], "]"}], "]"}], "\[Equal]", "n"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "then", " ", "*)"}], " ", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"include", ",", "i"}], "]"}], ";", RowBox[{"AppendTo", "[", RowBox[{"nonlinefaces", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "else", " ", "*)"}], " ", RowBox[{"AppendTo", "[", RowBox[{"LineFaces", ",", "i"}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"NM", "=", RowBox[{"NMinimize", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], RowBox[{"f", "-", "2"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"Length", "[", RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"include", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "]"}], "]"}]], RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{ RowBox[{"include", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "<", RowBox[{"n", "-", "1"}]}], ",", RowBox[{"G3", "[", RowBox[{ SubscriptBox["rV", RowBox[{"Faces", "[", RowBox[{"[", RowBox[{ RowBox[{"include", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "i"}], "]"}], "]"}]], ",", SubscriptBox["rF", "k"]}], "]"}], ",", "0"}], "]"}]}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"n", "-", "2"}]], RowBox[{ SubscriptBox["rV", "i"], "\[Pi]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Flatten", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "m", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ",", "i"}], "]"}], ",", RowBox[{"(*", " ", "then", " ", "*)"}], " ", "1", ",", RowBox[{"(*", " ", "else", " ", "*)"}], " ", "2"}], "]"}]}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"f", "-", "2"}]], RowBox[{ SubscriptBox["rF", "j"], "\[Pi]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"include", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], "||", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"include", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], ",", "n"}], "]"}]}], ",", RowBox[{"(*", " ", "then", " ", "*)"}], " ", "1", ",", RowBox[{"(*", " ", "else", " ", "*)"}], " ", "2"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"n", "-", "2"}]], SubscriptBox["rV", "i"]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"f", "-", "2"}]], SubscriptBox["rF", "j"]}]}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"Join", "[", RowBox[{"rhoV", ",", "rhoF"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"RADII", "=", RowBox[{"Exp", "[", RowBox[{"Re", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{"rhoV", ",", "rhoF"}], "]"}], "/.", RowBox[{"(", RowBox[{"NM", "[", RowBox[{"[", "2", "]"}], "]"}], ")"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"RADII", "/=", RowBox[{"RADII", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"radii", "=", RowBox[{"<|", "|>"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"n", "-", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"radii", "[", "i", "]"}], "=", RowBox[{"RADII", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "nonlinefaces", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"radii", "[", RowBox[{"nonlinefaces", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "=", RowBox[{"RADII", "[", RowBox[{"[", RowBox[{"n", "-", "2", "+", "i"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"radii", ",", "LineFaces"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7372045119396753`*^9, 3.7372046545187597`*^9}, { 3.737204685631832*^9, 3.7372047308167467`*^9}, {3.737204773625032*^9, 3.7372048110040503`*^9}, {3.737204842780097*^9, 3.737204924806987*^9}, { 3.7372050053122187`*^9, 3.737205008911607*^9}, {3.73720504639081*^9, 3.7372051214979887`*^9}, {3.7372051736233463`*^9, 3.737205179673382*^9}, { 3.737205261713398*^9, 3.7372052618754*^9}, {3.737205306100531*^9, 3.737205373527009*^9}, {3.737205491627762*^9, 3.737205535178033*^9}, { 3.737206922016953*^9, 3.737206989324239*^9}, {3.737207032865409*^9, 3.737207073209803*^9}, {3.737284915566703*^9, 3.737284955928123*^9}, { 3.737371291071519*^9, 3.7373713419977837`*^9}, {3.737468221809287*^9, 3.737468222498644*^9}, 3.737468268451545*^9, {3.7374683559250183`*^9, 3.737468513179357*^9}, {3.737468554130938*^9, 3.7374685561663094`*^9}, { 3.7374686045167637`*^9, 3.737468621354309*^9}, {3.737468670066434*^9, 3.737468700374711*^9}, {3.73746873598547*^9, 3.737468789149178*^9}, { 3.737469118685132*^9, 3.737469121422579*^9}, {3.737891244695794*^9, 3.737891247299219*^9}, {3.737995135349449*^9, 3.73799513678258*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"72e544ec-21b3-4511-8714-78e40bf96f8f"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Boundary", "[", RowBox[{"n_", ",", "FacesCW_", ",", "LineFaces_", ",", "radii_", ",", RowBox[{"\[Epsilon]_:", "0"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "i", ",", "j", ",", "faces", ",", "vertices", ",", "lastvisited", ",", "d", ",", "h", ",", "H", ",", "breaker", ",", "unvisited", ",", "f", ",", "endcircle", ",", "ComputeEndcircle", ",", "ComputeEndcircle2", ",", "delete"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"unvisited", " ", "=", "FacesCW"}], ";", RowBox[{"(*", RowBox[{ "Keeps", " ", "track", " ", "of", " ", "the", " ", "faces", " ", "we", " ", RowBox[{"haven", "'"}], "t", " ", "visited"}], "*)"}], "\[IndentingNewLine]", RowBox[{"f", "=", RowBox[{"Length", "[", "FacesCW", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"faces", "=", RowBox[{"<|", "|>"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"centers", " ", "of", " ", "face", " ", "circles", " ", RowBox[{"(", RowBox[{ RowBox[{"or", " ", "normals"}], ",", " ", RowBox[{"for", " ", "lines"}]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "f"}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"vertices", "=", RowBox[{"<|", "|>"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"centers", " ", "of", " ", "vertex", " ", "circles", " ", RowBox[{"(", RowBox[{ RowBox[{"or", " ", "normals"}], ",", " ", RowBox[{"for", " ", "lines"}]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"n", "-", "2"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Radii", " ", "is", " ", "an", " ", "assoc", " ", "from", " ", "v"}], "\[Rule]", RowBox[{ RowBox[{"rad", " ", "and", " ", "facelist"}], "\[Rule]", "rad"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Vertex", " ", "circles", " ", "going", " ", "vertically", " ", "upwards", " ", "along", " ", "first", " ", "FaceLine"}], "*)"}], "\[IndentingNewLine]", RowBox[{"h", "=", "0"}], ";", " ", RowBox[{"(*", " ", RowBox[{"height", " ", "along", " ", "the", " ", "left", " ", "line"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{ RowBox[{"Length", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "]"}], "-", "2"}]}], RowBox[{"(*", RowBox[{ "Number", " ", "of", " ", "vertex", " ", "circles", " ", "that", " ", "lie", " ", "along", " ", "first", " ", "LineFace"}], "*)"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"vertices", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"h", "+", RowBox[{"radii", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}]}]}], "}"}]}], ";", RowBox[{"(*", RowBox[{ "Set", " ", "the", " ", "center", " ", "of", " ", "this", " ", "vertex", " ", "circle"}], "*)"}], "\[IndentingNewLine]", RowBox[{"h", "+=", RowBox[{"2", RowBox[{"radii", "[", RowBox[{"[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}], "]"}]}]}]}]}], "]"}], ";", RowBox[{"(*", RowBox[{ "Keeps", " ", "track", " ", "of", " ", "our", " ", "cumulative", " ", "height", " ", "as", " ", "we", " ", "climb", " ", "up", " ", "the", " ", "first", " ", "FaceLine"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"unvisited", "=", RowBox[{"Delete", "[", RowBox[{"unvisited", ",", RowBox[{"Position", "[", RowBox[{"unvisited", ",", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"d", "=", "0"}], ";", RowBox[{"(*", RowBox[{"Horizontal", " ", "distance"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ComputeEndcircle", "[", RowBox[{"prev_", ",", "face_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Returns", " ", "which", " ", "vertex", " ", "circle", " ", "we", " ", "calculated", " ", "last", " ", "based", " ", "on", " ", "previous", " ", "vertex", " ", "circle", " ", "and", " ", "face"}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", RowBox[{"n", "-", "1"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "2"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}], "\[Equal]", "prev"}], ",", "\[IndentingNewLine]", RowBox[{"(*", "then", "*)"}], RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", RowBox[{"n", "-", "1"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", "else", "*)"}], " ", RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", RowBox[{"n", "-", "1"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "2"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"endcircle", "=", RowBox[{"ComputeEndcircle", "[", RowBox[{"n", ",", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], ";", RowBox[{"(*", RowBox[{ RowBox[{ "Previous", " ", "vertex", " ", "circle", " ", "is", " ", "bottom", " ", "line"}], ",", " ", RowBox[{"face", " ", "is", " ", "first", " ", "FaceLine"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Face", " ", "circles", " ", "going", " ", "horizontally", " ", "across", " ", "upper", " ", "vertex", " ", "line"}], "*)"}], "\[IndentingNewLine]", RowBox[{"breaker", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "f"}], " ", ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "unvisited", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], ",", " ", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"determine", " ", "if", " ", "this", " ", "face"}], "-", RowBox[{"circle", " ", "contains", " ", "n"}], "-", "1"}], ",", " ", RowBox[{ "so", " ", "it", " ", "is", " ", "on", " ", "the", " ", "upper", " ", "vertex", " ", "line"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"ComputeEndcircle", "[", RowBox[{"endcircle", ",", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"determine", " ", "if", " ", "this", " ", "face"}], "-", RowBox[{ "circle", " ", "also", " ", "contains", " ", "the", " ", "vertex", " ", "right", " ", "before", " ", "n"}], "-", RowBox[{ "1", " ", "to", " ", "ensure", " ", "we", " ", "are", " ", "going", " ", "horizontally", " ", "across", " ", "in", " ", "the", " ", "right", " ", "order"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"If", " ", RowBox[{"we", "'"}], "ve", " ", "reached", " ", "the", " ", "second", " ", "faceline"}], ",", " ", RowBox[{"then", " ", "do", " ", RowBox[{"nothing", "--"}], "find", " ", "the", " ", "other", " ", "face", " ", "circle", " ", "containing", " ", "endcircle"}]}], "*)"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "else", " ", "if", " ", "the", " ", "face", " ", "circle", " ", "is", " ", "not", " ", "a", " ", "line"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"d", "+", RowBox[{"radii", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", "h"}], "}"}]}], ";", " ", RowBox[{"(*", RowBox[{ "Set", " ", "the", " ", "center", " ", "of", " ", "this", " ", "face", " ", "circle"}], "*)"}], "\[IndentingNewLine]", RowBox[{"d", "+=", RowBox[{"2", RowBox[{"radii", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{ "update", " ", "how", " ", "far", " ", "along", " ", "the", " ", "top", " ", "line", " ", "we", " ", "are"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"endcircle", "=", RowBox[{"ComputeEndcircle", "[", RowBox[{"endcircle", ",", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"(*", RowBox[{"Update", " ", "endcircle"}], "*)"}], "\[IndentingNewLine]", RowBox[{"unvisited", "=", RowBox[{"Delete", "[", RowBox[{"unvisited", ",", "i"}], "]"}]}], ";"}]}], "]"}]}], " ", RowBox[{"(*", " ", RowBox[{ "remove", " ", "that", " ", "face", " ", "from", " ", "the", " ", "unvisited", " ", "list"}], " ", "*)"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "Vertex", " ", "circles", " ", "along", " ", "the", " ", "second", " ", "FaceLine"}], ",", " ", RowBox[{"climbing", " ", "vertically", " ", "upwards"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"h", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{ RowBox[{"Length", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "]"}], "-", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"vertices", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{"d", ",", RowBox[{"h", "+", RowBox[{"radii", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}]}]}], "}"}]}], ";", RowBox[{"h", "+=", RowBox[{"2", RowBox[{"radii", "[", RowBox[{"[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}], "]"}]}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"H", "=", "h"}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", "0"}], ";", RowBox[{"(*", RowBox[{"Reset", " ", "height"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ComputeEndcircle2", "[", RowBox[{"prev_", ",", "face_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", "n"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "2"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}], "\[Equal]", "prev"}], ",", "\[IndentingNewLine]", RowBox[{"(*", "then", "*)"}], RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", "n"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", "else", "*)"}], " ", RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", "n"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "2"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"endcircle", "=", RowBox[{"ComputeEndcircle2", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "Face", " ", "circles", " ", "along", " ", "lower", " ", "vertex", " ", "line"}], ",", " ", RowBox[{ "moving", " ", "horizontally", " ", "from", " ", "origin", " ", "to", " ", "second", " ", "FaceLine"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"d", "=", "0"}], ";", RowBox[{"(*", RowBox[{"Reset", " ", "distance"}], "*)"}], "\[IndentingNewLine]", RowBox[{"breaker", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "f"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "unvisited", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "n"}], "]"}], ",", " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"determine", " ", "if", " ", "this", " ", "face"}], "-", RowBox[{"circle", " ", "contains", " ", "n"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "endcircle"}], RowBox[{"(*", " ", RowBox[{"ComputeEndcircle2", "[", RowBox[{"endcircle", ",", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], " ", "*)"}], "]"}], ",", RowBox[{"(*", " ", RowBox[{ RowBox[{"determine", " ", "if", " ", "this", " ", "face"}], "-", RowBox[{ "cirlce", " ", "also", " ", "contains", " ", "the", " ", "vertex", " ", "right", " ", "before", " ", "n"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"If", " ", RowBox[{"we", "'"}], "ve", " ", "reached", " ", "the", " ", "second", " ", "faceline"}], ",", " ", RowBox[{"then", " ", "do", " ", "nothing"}]}], "*)"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "else", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"d", "+", RowBox[{"radii", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", "h"}], "}"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"then", " ", RowBox[{"we", "'"}], "ll", " ", "make", " ", "this", " ", RowBox[{"face", "'"}], "s", " ", "center", " ", "be", " ", "where", " ", "we", " ", "know", " ", "it", " ", "is"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"d", "+=", RowBox[{"2", RowBox[{"radii", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{ "update", " ", "how", " ", "far", " ", "along", " ", "the", " ", "bottom", " ", "line", " ", "we", " ", "are"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"endcircle", "=", RowBox[{"ComputeEndcircle2", "[", RowBox[{"endcircle", ",", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"unvisited", "=", RowBox[{"Delete", "[", RowBox[{"unvisited", ",", "i"}], "]"}]}], ";"}]}], "]"}]}], " ", RowBox[{"(*", " ", RowBox[{ "remove", " ", "that", " ", "face", " ", "from", " ", "the", " ", "unvisited", " ", "list"}], " ", "*)"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Set", " ", "the", " ", "normals", " ", "of", " ", "the", " ", "vertex", " ", "lines", " ", "and", " ", "face", " ", "lines"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"vertices", "[", "n", "]"}], "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"vertices", "[", RowBox[{"n", "-", "1"}], "]"}], "=", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"ThrowOrderError", "[", RowBox[{ "faces", ",", "vertices", ",", "radii", ",", "d", ",", "H", ",", "n", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "]"}], "*=", RowBox[{"-", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "]"}], "*=", RowBox[{"-", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"i", "\[Equal]", RowBox[{"n", "-", "1"}]}], "||", RowBox[{"i", "\[Equal]", "n"}]}], ",", "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", "d"}], "]"}], "\[LessEqual]", "\[Epsilon]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", "0"}], "]"}], "\[LessEqual]", "\[Epsilon]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "=", RowBox[{"{", RowBox[{"d", ",", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}]}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Return", " ", "the", " ", RowBox[{"assoc", "'"}], "s", " ", "of", " ", "the", " ", "faces", " ", "to", " ", "their", " ", "centers", " ", "and", " ", "vertices", " ", "to", " ", "their", " ", "centers"}], "*)"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{"vertices", ",", "faces", ",", "d", ",", "H"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.737219030683413*^9, 3.737219068499385*^9}, { 3.737219129031519*^9, 3.737219157331717*^9}, {3.737219214776095*^9, 3.737219232499251*^9}, {3.737219530428797*^9, 3.737219737723432*^9}, { 3.737219973681823*^9, 3.737219981058498*^9}, {3.7372852522441998`*^9, 3.737285273052194*^9}, {3.737285379557729*^9, 3.7372853808850813`*^9}, { 3.737285506667365*^9, 3.737285515803762*^9}, {3.7372856044249487`*^9, 3.737285632285976*^9}, {3.7372857006889677`*^9, 3.7372857800137577`*^9}, { 3.73728584887117*^9, 3.737285857200169*^9}, {3.737286074306966*^9, 3.7372860829425373`*^9}, {3.7372861272847137`*^9, 3.737286147655734*^9}, { 3.737286180526772*^9, 3.737286183012919*^9}, {3.737286465705851*^9, 3.7372864888059*^9}, {3.7372865215606728`*^9, 3.737286606697309*^9}, { 3.737286645970365*^9, 3.737286648042437*^9}, {3.737286686140306*^9, 3.7372867642027607`*^9}, {3.737287269374832*^9, 3.737287342750917*^9}, { 3.737287384822444*^9, 3.7372877639349957`*^9}, {3.737287798168841*^9, 3.737287798698641*^9}, {3.737287874201215*^9, 3.737287886754616*^9}, { 3.73728794855105*^9, 3.73728794906709*^9}, {3.737287984087804*^9, 3.737287984258391*^9}, {3.737288167935055*^9, 3.7372881688958406`*^9}, { 3.737288229464828*^9, 3.7372884829941387`*^9}, {3.7372889651024017`*^9, 3.737289028710766*^9}, {3.73728913478118*^9, 3.7372891349574013`*^9}, { 3.737289176488153*^9, 3.7372892189711437`*^9}, {3.737289296434997*^9, 3.737289307920455*^9}, {3.737289377154367*^9, 3.7372893780167713`*^9}, { 3.73728946731621*^9, 3.7372894685890083`*^9}, {3.737289519964464*^9, 3.7372895646104527`*^9}, {3.737289627498472*^9, 3.7372896504948683`*^9}, { 3.737289698936853*^9, 3.7372897006060762`*^9}, {3.737289761143084*^9, 3.737289790713337*^9}, {3.737289852057372*^9, 3.737289856144655*^9}, { 3.7372899307846327`*^9, 3.737289954524984*^9}, {3.737290111472128*^9, 3.737290137729048*^9}, {3.7372903101204*^9, 3.7372903238682327`*^9}, { 3.737290363021036*^9, 3.737290395639821*^9}, {3.737290434642714*^9, 3.737290436215727*^9}, {3.737290481178443*^9, 3.737290524071663*^9}, { 3.737290651768982*^9, 3.7372906712458363`*^9}, {3.737290704533799*^9, 3.7372907061133537`*^9}, {3.737290744976763*^9, 3.737290766875083*^9}, { 3.737290999240056*^9, 3.737291019271243*^9}, {3.737291057840662*^9, 3.737291080456534*^9}, {3.737291128953987*^9, 3.737291140451013*^9}, { 3.737291260286092*^9, 3.7372914176080303`*^9}, {3.7372914768350573`*^9, 3.737291536874617*^9}, {3.7372915673943977`*^9, 3.73729157857458*^9}, { 3.73729459361259*^9, 3.737294594755714*^9}, {3.737294841256043*^9, 3.737294872151122*^9}, {3.73729499894667*^9, 3.737295013697496*^9}, { 3.737295117321186*^9, 3.737295146177869*^9}, {3.737295198600103*^9, 3.737295201561144*^9}, {3.737295332216126*^9, 3.7372953659228153`*^9}, { 3.7372958344031277`*^9, 3.737296025548025*^9}, {3.737302057273785*^9, 3.737302228939927*^9}, 3.7373022837982073`*^9, {3.737302343644175*^9, 3.737302375974662*^9}, 3.737302421339328*^9, {3.737302477569655*^9, 3.737302565791008*^9}, {3.737302777019927*^9, 3.737302823909573*^9}, { 3.737303123387793*^9, 3.737303214311923*^9}, {3.7373032530403357`*^9, 3.7373032965502157`*^9}, {3.737303417213832*^9, 3.737303518053563*^9}, { 3.737303590633803*^9, 3.737303600566893*^9}, {3.737303631996339*^9, 3.737303736869626*^9}, {3.737303779146243*^9, 3.737303825046517*^9}, { 3.737304130063211*^9, 3.737304181026523*^9}, {3.7373042470907288`*^9, 3.737304349277087*^9}, {3.7373043812177143`*^9, 3.737304407351365*^9}, { 3.737304581411367*^9, 3.737304616831106*^9}, {3.7373046620344*^9, 3.7373047068712873`*^9}, {3.737304771496949*^9, 3.7373048444644938`*^9}, { 3.737305306432076*^9, 3.7373053158581667`*^9}, {3.7373053546618013`*^9, 3.737305355635768*^9}, 3.7373054429132357`*^9, {3.737306098271888*^9, 3.737306106600956*^9}, {3.737306417696192*^9, 3.737306447095158*^9}, { 3.7373064781213903`*^9, 3.737306483985478*^9}, {3.737306573567268*^9, 3.737306587589746*^9}, {3.737306720838073*^9, 3.73730674819695*^9}, { 3.737306852180376*^9, 3.737306861658111*^9}, {3.737306929352565*^9, 3.7373069458296127`*^9}, {3.737306985973919*^9, 3.73730703321769*^9}, { 3.737307104020858*^9, 3.737307104380198*^9}, {3.7373072016479588`*^9, 3.737307219827284*^9}, {3.737307283259153*^9, 3.737307449938692*^9}, { 3.737307507268676*^9, 3.737307531627266*^9}, {3.737307624863483*^9, 3.737307630803578*^9}, 3.7373692366355057`*^9, {3.737378768428591*^9, 3.737378772696554*^9}, {3.737456548739272*^9, 3.737456676468967*^9}, { 3.737456732055797*^9, 3.737456785246457*^9}, {3.737456880379624*^9, 3.73745693261576*^9}, {3.7374569872793217`*^9, 3.737457002918715*^9}, { 3.737457034354722*^9, 3.7374570868457327`*^9}, {3.7374573446089993`*^9, 3.737457359698818*^9}, {3.737457621684537*^9, 3.737457654757286*^9}, { 3.7374577893447638`*^9, 3.7374578203273153`*^9}, 3.73745786787053*^9, { 3.737458414579453*^9, 3.7374584346434393`*^9}, {3.73745848723744*^9, 3.737458515616708*^9}, {3.737458663428769*^9, 3.73745867379788*^9}, { 3.737458742757172*^9, 3.7374588188135767`*^9}, {3.7374589524311037`*^9, 3.737458970370059*^9}, {3.737459004685546*^9, 3.737459017734614*^9}, { 3.737469143102393*^9, 3.737469152438889*^9}, {3.7374723221463118`*^9, 3.7374723517302732`*^9}, {3.737472517403573*^9, 3.73747252044235*^9}, { 3.737472566196344*^9, 3.737472599816885*^9}, {3.737472901109223*^9, 3.737472904411367*^9}, {3.737472959283648*^9, 3.737472959747048*^9}, { 3.737472997133112*^9, 3.737473040080291*^9}, {3.7374732109292183`*^9, 3.73747321567245*^9}, {3.737474220810277*^9, 3.737474243746545*^9}, { 3.737720030799748*^9, 3.7377200552173643`*^9}, {3.737720087337412*^9, 3.7377201185616283`*^9}, {3.737720170734948*^9, 3.737720176149166*^9}, { 3.7377202115121927`*^9, 3.7377202116963243`*^9}, {3.7377202481305037`*^9, 3.737720253754922*^9}, {3.73772028641499*^9, 3.7377203344757833`*^9}, { 3.737891223277732*^9, 3.7378912238571*^9}, {3.737906075544756*^9, 3.7379060758948555`*^9}, {3.737991347709439*^9, 3.7379913481113663`*^9}, { 3.7379951711905804`*^9, 3.7379951715466285`*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"34558bf5-30de-4efd-a85d-1e42927d2f41"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"FindRest", "[", RowBox[{ RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], ",", "r_", ",", "face_", ",", "vertices_", ",", "radii_", ",", "lines_"}], "]"}], ":=", RowBox[{"(*", " ", RowBox[{ "face", " ", "is", " ", "all", " ", "the", " ", "vertices", " ", "that", " ", "the", " ", "face", " ", "intersects"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], ",", RowBox[{"r", ":", " ", RowBox[{ "known", " ", "center", " ", "of", " ", "opposite", " ", "kind", " ", "and", " ", "its", " ", "radius", "\[IndentingNewLine]", "face"}], ":", " ", RowBox[{ "all", " ", "the", " ", "circles", " ", "of", " ", "its", " ", "kind", " ", "that", " ", "pass", " ", "thru", " ", "that", " ", "opposite", " ", "known", " ", "circle", "\[IndentingNewLine]", RowBox[{"vertices", ":", " ", RowBox[{ "all", " ", "the", " ", "circles", " ", "of", " ", "its", " ", "kind", " ", "that", " ", "are", " ", "tangent", " ", "to", " ", "the", " ", "one", " ", RowBox[{"we", "'"}], "e", " ", "looking", " ", "for"}]}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"verts", "=", "vertices"}], ",", "i", ",", "j", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Omega]", ",", RowBox[{"face2", "=", "face"}], ",", "b", ",", RowBox[{"b2", "=", "True"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], "||", RowBox[{"MemberQ", "[", RowBox[{"lines", ",", RowBox[{"face2", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{ RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "face2", "]"}]}], "&&", "b2"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], "&&", RowBox[{"!", RowBox[{"MemberQ", "[", RowBox[{"lines", ",", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"face2", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"face2", "[", RowBox[{"[", RowBox[{"i", ";;"}], "]"}], "]"}], ",", RowBox[{"face2", "[", RowBox[{"[", RowBox[{";;", RowBox[{"i", "-", "1"}]}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"b2", "=", "False"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"b", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{ RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "face2", "]"}]}], "&&", "b"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"lines", ",", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"face2", ",", RowBox[{"face2", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{ RowBox[{"Length", "[", "face2", "]"}], "-", "1"}]}], ",", RowBox[{"j", ">", "i"}], ",", RowBox[{"j", "--"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Phi]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", "x"}], ",", RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", "y"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "]"}], "/", "r"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"j", "+", RowBox[{ "1", " ", "refers", " ", "to", " ", "previously", " ", RowBox[{"computed", " ", "/", " ", "known"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Omega]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "/", "r"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"x", "+", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["r", "2"], "+", SuperscriptBox[ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "2"]}]], RowBox[{"Cos", "[", RowBox[{"\[Phi]", "-", "\[Theta]", "-", "\[Omega]"}], "]"}]}]}], ",", RowBox[{"y", "+", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["r", "2"], "+", SuperscriptBox[ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "2"]}]], RowBox[{"Sin", "[", RowBox[{"\[Phi]", "-", "\[Theta]", "-", "\[Omega]"}], "]"}]}]}]}], "}"}]}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";", RowBox[{"b", "=", "False"}], ";", "Break"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Phi]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", "x"}], ",", RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", "y"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "]"}], "/", "r"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"i", "-", RowBox[{ "1", " ", "refers", " ", "to", " ", "previously", " ", RowBox[{"computed", " ", "/", " ", "known"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Omega]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "/", "r"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"x", "+", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["r", "2"], "+", SuperscriptBox[ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "2"]}]], RowBox[{"Cos", "[", RowBox[{"\[Phi]", "+", "\[Theta]", "+", "\[Omega]"}], "]"}]}]}], ",", RowBox[{"y", "+", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["r", "2"], "+", SuperscriptBox[ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "2"]}]], RowBox[{"Sin", "[", RowBox[{"\[Phi]", "+", "\[Theta]", "+", "\[Omega]"}], "]"}]}]}]}], "}"}]}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", "verts"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->CompressedData[" 1:eJwd030s1HEcB/BfylGhk+tmultSuqz0uKhUSsyVHk/IlWr0YDJEU5e7DCc0 xE8RihBdiLsJV1mblsgqD7XuGnk4VNfJUw/S1Pq9v3989vrn8/lsn733WRwY LjplRFHUbqagpUVmqkRr2NG6wv0a7HQYuQXPRnmXwOv+3EpokxSqhF+2f38I lZsLGqBOPdYCk/t9u2FwUvkgPLRzgQFSUv4kVJm++QOL5xwwucQoqxYT51v7 mUGnzw+JDds9raDUoOPDKKO/ofC6yjQCpi1nxcGy28OJcBEtS4NU/lAWDGfb 58Nkn7W3oLjOuQwq3aOI5W6FatgYW/ACjnq2vyLzWroT0q+tNfC4W2sXbNHv 0sGevSnERzZheii6T8+IYbR0KjSFuoxG4nBt8xGomNtOFA28CyJ9m35JoTwj RQ7NFV40XHfKIhveiPxBvLxzpADy7vNL4Pkuk2pYvLRQBV/lmb2FNQFUNzT1 2DYIs/VaImvAVw+nDyYRU/7uG4WRvMeT8MJklbGM0VbQSdwaqOmNZbyaOasP zlJXfILdnDaiE+fpnnjk4K8lardZ1EDbc5wGmDplPgrr+DQrgXHEksODD35X Ewd/S4TQ7n3FMbhJ4BcEKcd1wVB+xicUFj35FA63rF9zAXI/512CPar5V6BP 2+l00n+6loZ3J1xyoNgvpgDuize+A1ewKAVkf/xeAQUlC5TwnOZ9ExwLbP4I n2kbB+BGrnoY9ndMjcEjs4t2p+GuLuF+yB2mg+CcBMcQyBp/GQYpm3lSyLZ1 yYIeFvJiyAt9Vg4V3hNKuKiqvgmK3AJa4HOxuo3st/PvgBnCsSEYwa00wD5b q5mFyCvagQ1POKa332HcvLKmAzYFeWlgvGU6UajzHoScEGocrr4pnYbub4X/ YH1tolER/qU3h8h2dHWGkqyFG+FRL9VBqBt6RPxl3HMYTn/7EwATv+VGwH/H FkZC694l0fCrRC6BveuzY6H96ityOFsWdg+WunYr4A8zWStcddmlDZaXxq2J /sD888pcYp/m5DIpY7PxBgEUXHT7qWBMtooi/gegIJ/I "], CellLabel->"In[5]:=",ExpressionUUID->"1669407f-19e4-41f4-83d2-404c097a4b8c"], Cell[BoxData[ RowBox[{ RowBox[{"Cull", "[", "assoc_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"vis", "=", RowBox[{"{", "}"}]}], ",", RowBox[{"unv", "=", RowBox[{"{", "}"}]}], ",", "i"}], "}"}], ",", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"Keys", "[", "assoc", "]"}], "]"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"assoc", "[", RowBox[{ RowBox[{"Keys", "[", "assoc", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], ",", RowBox[{"AppendTo", "[", RowBox[{"unv", ",", RowBox[{ RowBox[{"Keys", "[", "assoc", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"AppendTo", "[", RowBox[{"vis", ",", RowBox[{ RowBox[{"Keys", "[", "assoc", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";", RowBox[{"{", RowBox[{"vis", ",", "unv"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.737378883847493*^9, 3.7373790220179577`*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"0ca661cb-0814-4baa-8045-ccb6be11fd34"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Interior", "[", RowBox[{ "n_", ",", "FacesCW_", ",", "LineFaces_", ",", "radii_", ",", "vertices_", ",", "faces_", ",", "d_", ",", "h_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Vunv", "=", RowBox[{"{", "}"}]}], ",", RowBox[{"Funv", "=", RowBox[{"{", "}"}]}], ",", RowBox[{"Vvis", "=", RowBox[{"{", "}"}]}], ",", RowBox[{"Fvis", "=", RowBox[{"{", "}"}]}], ",", "i", ",", "j", ",", "f", ",", RowBox[{"verts", "=", "vertices"}], ",", "verts2", ",", RowBox[{"fcs", "=", "faces"}], ",", "fcs2", ",", "fi", ",", "vi", ",", "x", ",", "y", ",", "k", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "=", RowBox[{"Length", "[", "FacesCW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], ",", RowBox[{"AppendTo", "[", RowBox[{"Vunv", ",", "i"}], "]"}], ",", RowBox[{"AppendTo", "[", RowBox[{"Vvis", ",", "i"}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "f"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], ",", RowBox[{"AppendTo", "[", RowBox[{"Funv", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"AppendTo", "[", RowBox[{"Fvis", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{ RowBox[{"j", "\[LessEqual]", RowBox[{"n", "+", RowBox[{"Length", "[", "FacesCW", "]"}]}]}], "&&", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Length", "[", "Vunv", "]"}], "+", RowBox[{"Length", "[", "Funv", "]"}]}], ">", "0"}], ")"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "Fvis", "]"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"(*", " ", RowBox[{ "for", " ", "a", " ", "known", " ", "face", " ", "circle"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Intersection", "[", RowBox[{"Vvis", ",", RowBox[{"Fvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "]"}], "*", RowBox[{"Length", "[", RowBox[{"Intersection", "[", RowBox[{"Vunv", ",", RowBox[{"Fvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "]"}]}], ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"fi", "=", RowBox[{"Fvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "=", RowBox[{"fcs", "[", "fi", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"verts2", "=", RowBox[{"FindRest", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"radii", "[", "fi", "]"}], ",", "fi", ",", "verts", ",", "radii", ",", RowBox[{"{", RowBox[{ RowBox[{"n", "-", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"ThrowOrderError", "[", RowBox[{ "fcs", ",", "verts2", ",", "radii", ",", "d", ",", "h", ",", "n", ",", RowBox[{"{", RowBox[{ RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", "0"}], "]"}], ",", RowBox[{"verts", "=", RowBox[{"FindRest", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"radii", "[", "fi", "]"}], ",", RowBox[{"Reverse", "[", "fi", "]"}], ",", "verts", ",", "radii", ",", RowBox[{"{", RowBox[{ RowBox[{"n", "-", "1"}], ",", "n"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"verts", "=", "verts2"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Vvis", ",", "Vunv"}], "}"}], "=", RowBox[{"Cull", "[", "verts", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "Vvis", "]"}]}], ",", RowBox[{"i", "++"}], ",", " ", RowBox[{"(*", " ", RowBox[{ "for", " ", "a", " ", "known", " ", "vertex", " ", "circle"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"b", "=", "False"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "\[LessEqual]", RowBox[{"Length", "[", "Fvis", "]"}]}], ",", RowBox[{"k", "++"}], ",", RowBox[{"b", "=", RowBox[{"b", "||", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Fvis", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"Vvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", "True", ",", "False"}], "]"}]}]}]}], "]"}], ";", "b"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"b", "=", "False"}], ";", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "\[LessEqual]", RowBox[{"Length", "[", "Funv", "]"}]}], ",", RowBox[{"k", "++"}], ",", RowBox[{"b", "=", RowBox[{"b", "||", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Funv", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"Vvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", "True", ",", "False"}], "]"}]}]}]}], "]"}], ";", "b"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "then", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vi", "=", RowBox[{"Vvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "=", RowBox[{"verts", "[", "vi", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fcs2", "=", RowBox[{"FindRest", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"radii", "[", "vi", "]"}], ",", RowBox[{"FacesList", "[", RowBox[{"vi", ",", "FacesCW"}], "]"}], ",", "fcs", ",", "radii", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"ThrowOrderError", "[", RowBox[{ "fcs2", ",", "verts", ",", "radii", ",", "d", ",", "h", ",", "n", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"fcs", "=", RowBox[{"FindRest", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"radii", "[", "vi", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Reverse", "[", RowBox[{"FacesList", "[", RowBox[{"vi", ",", "FacesCW"}], "]"}], "]"}], ",", "fcs", ",", "radii", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"fcs", "=", "fcs2"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Fvis", ",", "Funv"}], "}"}], "=", RowBox[{"Cull", "[", "fcs", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"verts", ",", "fcs"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.737371589519445*^9, 3.7373715939907503`*^9}, { 3.7373717937672253`*^9, 3.737371867174656*^9}, {3.737371907831069*^9, 3.73737217884262*^9}, {3.7373722186269712`*^9, 3.737372303076326*^9}, { 3.737372765799387*^9, 3.737372795651403*^9}, {3.737372858097958*^9, 3.73737290560703*^9}, {3.7373729483086967`*^9, 3.737372962791078*^9}, { 3.737376949244026*^9, 3.737377199857114*^9}, {3.737378821576833*^9, 3.737378856709831*^9}, {3.737379029954533*^9, 3.737379249070065*^9}, { 3.737379302218759*^9, 3.737379442833221*^9}, {3.737379504802657*^9, 3.737379571504554*^9}, {3.73737972110927*^9, 3.737379741421777*^9}, { 3.737380015082492*^9, 3.737380027586205*^9}, {3.737380096483328*^9, 3.737380123433268*^9}, {3.737380170681796*^9, 3.7373801708619337`*^9}, { 3.737380320948838*^9, 3.7373804262726393`*^9}, {3.73738047325154*^9, 3.737380485443796*^9}, {3.737380518592564*^9, 3.737380537424242*^9}, { 3.737380576718589*^9, 3.737380596012712*^9}, {3.7373859949503098`*^9, 3.7373860041894217`*^9}, {3.7373893401960897`*^9, 3.737389340516891*^9}, { 3.737390296785729*^9, 3.7373904116517477`*^9}, {3.7373904724338512`*^9, 3.737390578698831*^9}, {3.737390622302457*^9, 3.737390636926055*^9}, 3.737390871387472*^9, {3.737391458456609*^9, 3.7373915337313957`*^9}, { 3.7373916762920856`*^9, 3.7373916866307707`*^9}, {3.737391755289661*^9, 3.737391760387761*^9}, {3.737392424160388*^9, 3.737392446839201*^9}, { 3.7373926496569033`*^9, 3.7373926770265007`*^9}, {3.737415538959766*^9, 3.737415550423221*^9}, {3.7374157811082497`*^9, 3.737415783008522*^9}, { 3.737416229137042*^9, 3.73741626934859*^9}, {3.737416301320304*^9, 3.7374164268381977`*^9}, {3.737416488079246*^9, 3.737416506542727*^9}, { 3.737418543755864*^9, 3.737418614467947*^9}, {3.73745208819372*^9, 3.7374521079510527`*^9}, {3.737452248507903*^9, 3.737452260807358*^9}, 3.737452337464182*^9, {3.737452547756901*^9, 3.737452552175274*^9}, { 3.737452597327281*^9, 3.737452623027234*^9}, {3.737452951467626*^9, 3.7374529538565903`*^9}, {3.7374529931356688`*^9, 3.73745300450865*^9}, { 3.737453253031118*^9, 3.7374532838306513`*^9}, {3.737453448755361*^9, 3.7374535016621037`*^9}, {3.737453540364457*^9, 3.7374535737880087`*^9}, { 3.7374536292349997`*^9, 3.737453661316655*^9}, {3.737453692604967*^9, 3.737453705446292*^9}, {3.7374538230331917`*^9, 3.737453850633659*^9}, { 3.7374540473125362`*^9, 3.73745406845465*^9}, {3.737454116980228*^9, 3.737454141500236*^9}, {3.737454665545776*^9, 3.737454752199181*^9}, { 3.737454823087352*^9, 3.737454936342786*^9}, {3.73745497887639*^9, 3.7374549822716417`*^9}, {3.737455062923647*^9, 3.737455067024728*^9}, { 3.7374592709534693`*^9, 3.737459282809087*^9}, {3.737459718460556*^9, 3.7374598283067007`*^9}, {3.737459871128312*^9, 3.737459943923081*^9}, { 3.737460424909642*^9, 3.737460468107106*^9}, {3.737460531451869*^9, 3.7374605342064867`*^9}, {3.737460570370933*^9, 3.73746065914788*^9}, { 3.737469228334271*^9, 3.7374692297752113`*^9}, {3.7374759421424723`*^9, 3.737475959220735*^9}, {3.737475996982561*^9, 3.737476043275124*^9}, { 3.7374760741261263`*^9, 3.7374762044096413`*^9}, {3.737476237384112*^9, 3.737476257932431*^9}, {3.737476290722767*^9, 3.7374763178872833`*^9}, { 3.737476633241235*^9, 3.73747668584684*^9}, {3.737476775880768*^9, 3.737476807271324*^9}, {3.737476934280177*^9, 3.7374769365813828`*^9}, { 3.737476994438554*^9, 3.7374770257193117`*^9}, {3.737478615746154*^9, 3.737478664034655*^9}, {3.737478700737122*^9, 3.737478703803566*^9}, { 3.737891193943988*^9, 3.7378911945027657`*^9}, {3.7379034272313843`*^9, 3.737903448515432*^9}, 3.737903546475888*^9}, CellLabel->"In[7]:=",ExpressionUUID->"8eb99bd7-ecdf-447b-9254-91418df0046a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ThrowOrderError", "[", RowBox[{ "fcs2_", ",", "verts_", ",", "radii_", ",", "d_", ",", "h_", ",", "n_", ",", "fls_", ",", "\[Epsilon]_"}], "]"}], RowBox[{"(*", " ", RowBox[{"fcs2", " ", "is", " ", "proposed", " ", "fcs", " ", RowBox[{"association", ".", " ", "fls"}], " ", "is", " ", "facelines"}], " ", "*)"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", "b", ",", "b2", ",", "K"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"K", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"Keys", "[", "fcs2", "]"}], "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"!", RowBox[{"MemberQ", "[", RowBox[{"fls", ",", RowBox[{ RowBox[{"Keys", "[", "fcs2", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ",", RowBox[{"AppendTo", "[", RowBox[{"K", ",", RowBox[{ RowBox[{"Keys", "[", "fcs2", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"b", "=", "False"}], ";", " ", RowBox[{"(*", " ", "\"\\"", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{ RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "K", "]"}]}], "&&", RowBox[{"!", "b"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"b2", "=", "False"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"-", "\[Infinity]"}], "<", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "<", "0"}], "\[IndentingNewLine]", "||", RowBox[{ RowBox[{"-", "\[Infinity]"}], "<", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "<", "0"}], "\[IndentingNewLine]", "||", RowBox[{ RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ">", "d"}], "\[IndentingNewLine]", "||", RowBox[{ RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ">", "h"}], "\[IndentingNewLine]", "||", RowBox[{"(", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"K", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"n", "-", "1"}]}], "&&", RowBox[{ RowBox[{"K", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "n"}], "&&", RowBox[{ RowBox[{"verts", "[", RowBox[{"K", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], "&&", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"EuclideanDistance", "[", RowBox[{ RowBox[{"verts", "[", RowBox[{"K", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], ",", RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "]"}], "\[GreaterEqual]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Epsilon]"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"radii", "[", RowBox[{"K", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], "+", RowBox[{"radii", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"b2", "=", "True"}], ";", "Break"}]}], "]"}]}], "]"}]}], "]"}], ";", "b2"}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"b", "=", "True"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{ RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "K", "]"}]}], "&&", RowBox[{"!", "b"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"i", "\[NotEqual]", "j"}], "&&", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], "&&", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], "&&", "\[IndentingNewLine]", RowBox[{ RowBox[{"EuclideanDistance", "[", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "]"}], "<", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "\[Epsilon]"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"radii", "[", RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"radii", "[", RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}]}], ")"}]}]}]}], "\[IndentingNewLine]", ",", RowBox[{"(*", " ", RowBox[{"then", ",", " ", "bad"}], " ", "*)"}], " ", RowBox[{"b", "=", "True"}]}], "]"}]}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{ RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"fls", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "&&", RowBox[{"!", "b"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"fls", "[", RowBox[{"[", RowBox[{"1", ",", "i"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{ FractionBox["d", "2"], "+", RowBox[{ RowBox[{ RowBox[{"fcs2", "[", RowBox[{"fls", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FractionBox["d", "2"]}]}]}], "&&", RowBox[{ RowBox[{"fls", "[", RowBox[{"[", RowBox[{"1", ",", "i"}], "]"}], "]"}], "<", RowBox[{"n", "-", "1"}]}]}], ",", RowBox[{"b", "=", "True"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{ RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"fls", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "&&", RowBox[{"!", "b"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"fls", "[", RowBox[{"[", RowBox[{"2", ",", "i"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{ FractionBox["d", "2"], "+", RowBox[{ RowBox[{ RowBox[{"fcs2", "[", RowBox[{"fls", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FractionBox["d", "2"]}]}]}], "&&", RowBox[{ RowBox[{"fls", "[", RowBox[{"[", RowBox[{"2", ",", "i"}], "]"}], "]"}], "<", RowBox[{"n", "-", "1"}]}]}], ",", RowBox[{"b", "=", "True"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "b"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7373860513513117`*^9, 3.737386324009047*^9}, { 3.7373863565686207`*^9, 3.737386763058362*^9}, {3.737387011692689*^9, 3.7373874131979523`*^9}, {3.737387444285528*^9, 3.737387446417802*^9}, { 3.737387501724284*^9, 3.7373875162781897`*^9}, {3.7373875865809803`*^9, 3.7373876073787117`*^9}, {3.737387674890192*^9, 3.737387682382772*^9}, { 3.737387740454358*^9, 3.7373877582071867`*^9}, {3.737387870977488*^9, 3.737387912943714*^9}, {3.737388020284473*^9, 3.7373880216503363`*^9}, { 3.7373881133311872`*^9, 3.7373881231093473`*^9}, {3.737388218003031*^9, 3.737388251234787*^9}, {3.737388306336886*^9, 3.7373884325997267`*^9}, { 3.73738859353605*^9, 3.737388596101646*^9}, {3.7373886515625*^9, 3.737388731115857*^9}, {3.737388764603668*^9, 3.7373887825179358`*^9}, { 3.737388827395173*^9, 3.73738885534306*^9}, {3.7373889569580507`*^9, 3.7373891513974247`*^9}, {3.737389185971114*^9, 3.737389229300188*^9}, { 3.7373892871568117`*^9, 3.73738930336942*^9}, {3.737451960169162*^9, 3.737451962438613*^9}, {3.737452188533687*^9, 3.7374522140811863`*^9}, { 3.7374523846778708`*^9, 3.737452411688586*^9}, {3.7374524423850327`*^9, 3.7374525059763308`*^9}, {3.7374527627193413`*^9, 3.7374528272523108`*^9}, {3.7374529127507477`*^9, 3.737452943447597*^9}, { 3.737453021653625*^9, 3.737453033081242*^9}, 3.737453194007431*^9, { 3.737457949590412*^9, 3.737458106215234*^9}, {3.737458155680525*^9, 3.737458160666041*^9}, {3.7374582249762278`*^9, 3.737458233452886*^9}, 3.7379035853422227`*^9, {3.7379952037395506`*^9, 3.7379952046351557`*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"df3b60f9-0301-4a00-901e-3f42ad1f6dcc"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FacesList", "[", RowBox[{"v_", ",", "Faces_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ContainV", "=", RowBox[{"{", "}"}]}], ",", "i", ",", RowBox[{"L", "=", "2"}], ",", RowBox[{"p", "=", "3"}], ",", "temp"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "Faces", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "v"}], "]"}], ",", RowBox[{"AppendTo", "[", RowBox[{"ContainV", ",", RowBox[{"Faces", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"L", "<", RowBox[{"Length", "[", "ContainV", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{"p", "\[LessEqual]", RowBox[{"Length", "[", "ContainV", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Intersection", "[", RowBox[{ RowBox[{"ContainV", "[", RowBox[{"[", RowBox[{"L", "-", "1"}], "]"}], "]"}], ",", RowBox[{"ContainV", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], "]"}], "\[Equal]", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"temp", "=", RowBox[{"ContainV", "[", RowBox[{"[", "p", "]"}], "]"}]}], ";", RowBox[{ RowBox[{"ContainV", "[", RowBox[{"[", "p", "]"}], "]"}], "=", RowBox[{"ContainV", "[", RowBox[{"[", "L", "]"}], "]"}]}], ";", RowBox[{ RowBox[{"ContainV", "[", RowBox[{"[", "L", "]"}], "]"}], "=", "temp"}], ";", RowBox[{"p", "=", RowBox[{"1", "+", RowBox[{"Length", "[", "ContainV", "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{"p", "++"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"L", "++"}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"L", "+", "1"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "ContainV"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7373893963188553`*^9, 3.737389499461423*^9}, { 3.737389625681715*^9, 3.7373896502694798`*^9}, {3.7373897037433033`*^9, 3.737389735684783*^9}, {3.737389775354559*^9, 3.737389877602042*^9}, { 3.737389938671054*^9, 3.737389955021085*^9}, {3.737390098064752*^9, 3.7373901898598967`*^9}, {3.7373902333090754`*^9, 3.737390260404229*^9}, { 3.737477725750886*^9, 3.7374777259423532`*^9}, {3.737477772140749*^9, 3.737477809678876*^9}, {3.737477865110086*^9, 3.7374778881276903`*^9}, { 3.7374781429692793`*^9, 3.737478158525076*^9}, {3.737478266335372*^9, 3.737478275141066*^9}, {3.7374783969519587`*^9, 3.7374784008097754`*^9}, { 3.737903596846489*^9, 3.737903597250413*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"94e58c8f-e9bc-4bc5-9f72-1e7d65b723b4"], Cell[BoxData[ RowBox[{ RowBox[{"Q", "=", RowBox[{"(", GridBox[{ {"0", RowBox[{"1", "/", "2"}], "0", "0"}, { RowBox[{"1", "/", "2"}], "0", "0", "0"}, {"0", "0", RowBox[{"-", "1"}], "0"}, {"0", "0", "0", RowBox[{"-", "1"}]} }], ")"}]}], ";"}]], "Input", CellLabel->"In[10]:=",ExpressionUUID->"e0269727-13f8-41e1-9bed-e3d214f9ade5"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"InvCoords", "[", RowBox[{"z_", ",", "r_", ",", RowBox[{"d_:", "0"}]}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"r", "\[Equal]", "\[Infinity]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "d"}], ",", "0", ",", "z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"Norm", "[", "z", "]"}], "2"], "r"], "-", "r"}], ",", RowBox[{"1", "/", "r"}], ",", RowBox[{"z", "/", "r"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellLabel->"In[11]:=",ExpressionUUID->"335fc47c-61a3-4d42-b8dc-1a6e429b3dbb"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Gram", "[", "SC_", "]"}], ":=", RowBox[{"SC", ".", "Q", ".", RowBox[{"Transpose", "[", "SC", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SuperCluster", "[", RowBox[{ "vertices_", ",", "faces_", ",", "radii_", ",", "fls_", ",", "d_", ",", "h_", ",", "n_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sc", "=", RowBox[{"{", "}"}]}], ",", "i"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"n", "-", "2"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], ",", RowBox[{"radii", "[", "i", "]"}]}], "]"}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"vertices", "[", RowBox[{"n", "-", "1"}], "]"}], ",", "\[Infinity]", ",", RowBox[{ FractionBox["h", "2"], "+", RowBox[{ RowBox[{ RowBox[{"vertices", "[", RowBox[{"n", "-", "1"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], FractionBox["h", "2"]}]}]}], "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"vertices", "[", "n", "]"}], ",", "\[Infinity]", ",", RowBox[{ FractionBox["h", "2"], "+", RowBox[{ RowBox[{ RowBox[{"vertices", "[", "n", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], FractionBox["h", "2"]}]}]}], "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"Keys", "[", "faces", "]"}], "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"!", RowBox[{"MemberQ", "[", RowBox[{"fls", ",", RowBox[{ RowBox[{"Keys", "[", "faces", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"faces", "[", RowBox[{ RowBox[{"Keys", "[", "faces", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"radii", "[", RowBox[{ RowBox[{"Keys", "[", "faces", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"faces", "[", RowBox[{"fls", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", "\[Infinity]", ",", RowBox[{ FractionBox["d", "2"], "+", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"fls", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FractionBox["d", "2"]}]}]}], "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"faces", "[", RowBox[{"fls", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", "\[Infinity]", ",", RowBox[{ FractionBox["d", "2"], "+", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"fls", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FractionBox["d", "2"]}]}]}], "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "sc"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellLabel->"In[12]:=",ExpressionUUID->"8f83b82e-c1db-40d9-ac4c-a723737f7704"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DrawCircle", "[", RowBox[{"{", RowBox[{"bhat_", ",", "b_", ",", "bx_", ",", "by_"}], "}"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "b", "]"}], "\[GreaterEqual]", " ", ".01"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"bx", ",", "by"}], "}"}], "/", "b"}], ",", RowBox[{"1", "/", "b"}]}], "]"}], ",", RowBox[{"InfiniteLine", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"bx", ",", "by"}], "}"}], RowBox[{"bhat", "/", "2"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "by"}], ",", "bx"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7383666121648498`*^9, 3.7383666304241414`*^9}, { 3.738366663056327*^9, 3.738366710683964*^9}, {3.7383669102892475`*^9, 3.73836691462473*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"d37cc6ff-e0b5-488e-9c86-c606b2039282"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Packing", "[", RowBox[{"n_", ",", "FacesCW_", ",", RowBox[{"\[Epsilon]_:", "0"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "radii", ",", "LineFaces", ",", "vertices", ",", "faces", ",", "d", ",", "h"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"radii", ",", "LineFaces"}], "}"}], "=", RowBox[{"EnergySetup", "[", RowBox[{"n", ",", "FacesCW"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"vertices", ",", "faces", ",", "d", ",", "h"}], "}"}], "=", RowBox[{"Boundary", "[", RowBox[{ "n", ",", "FacesCW", ",", "LineFaces", ",", "radii", ",", "\[Epsilon]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"vertices", ",", "faces"}], "}"}], "=", RowBox[{"Interior", "[", RowBox[{ "n", ",", "FacesCW", ",", "LineFaces", ",", "radii", ",", "vertices", ",", "faces", ",", "d", ",", "h"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "vertices", ",", "faces", ",", "radii", ",", "d", ",", "h", ",", "LineFaces"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.737469007369687*^9, 3.737469107407995*^9}, { 3.73746916343927*^9, 3.737469194858486*^9}, {3.737469239984439*^9, 3.737469246965393*^9}, {3.737469315964088*^9, 3.737469336634994*^9}, { 3.737469428057992*^9, 3.737469432696295*^9}, {3.737469465014307*^9, 3.737469481114959*^9}, {3.7374695687460957`*^9, 3.7374696091341476`*^9}, { 3.737470455200612*^9, 3.7374704661283417`*^9}, {3.737478361306628*^9, 3.7374783619053802`*^9}, {3.737720455890616*^9, 3.737720462414033*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"9a3eb7b4-a69e-4770-9009-32f6122d8145"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Render", "[", RowBox[{ "radii_", ",", "fcs_", ",", "verts_", ",", "fls_", ",", "n_", ",", "d_", ",", "h_"}], "]"}], ":=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", "Thick", ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", RowBox[{"n", "-", "1"}]}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}], ",", "h"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"d", "+", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}], ",", "h"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", "n"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"d", "+", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}], ",", "0"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"verts", "[", RowBox[{ RowBox[{"Keys", "[", "verts", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"radii", "[", RowBox[{ RowBox[{"Keys", "[", "verts", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", "Dashed", ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Keys", "[", "fcs", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", RowBox[{"fls", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"h", "+", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Keys", "[", "fcs", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", RowBox[{"fls", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d", ",", RowBox[{"-", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"d", ",", RowBox[{"h", "+", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"fcs", "[", RowBox[{ RowBox[{"Keys", "[", "fcs", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"radii", "[", RowBox[{ RowBox[{"Keys", "[", "fcs", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", RowBox[{"Keys", "[", "fcs", "]"}], "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7373911026555433`*^9, 3.737391276476068*^9}, { 3.737391324439508*^9, 3.737391325806115*^9}, {3.7373913655803022`*^9, 3.73739137356105*^9}, {3.737460834501174*^9, 3.7374608791258917`*^9}, { 3.737460909495472*^9, 3.737460979640925*^9}, {3.737469858560081*^9, 3.737469918056663*^9}, {3.73746995156046*^9, 3.7374701969102716`*^9}, { 3.737470230362206*^9, 3.737470299948655*^9}, 3.7378928141832247`*^9}, CellLabel->"In[16]:=",ExpressionUUID->"affbea28-f93e-449d-873a-65b52e624ef9"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SendToInt", "[", RowBox[{"\[Epsilon]_:", "0"}], "]"}], "[", "y_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"x", "=", RowBox[{"Simplify", "[", "y", "]"}]}], "}"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "-", RowBox[{"Floor", "[", "x", "]"}]}], "]"}], "\[LessEqual]", "\[Epsilon]"}], " ", ",", RowBox[{"Floor", "[", "x", "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "-", RowBox[{"Ceiling", "[", "x", "]"}]}], "]"}], "\[LessEqual]", " ", "\[Epsilon]"}], " ", ",", RowBox[{"Ceiling", "[", "x", "]"}], ",", "x"}], "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7384110559425135`*^9, 3.7384110603257904`*^9}, { 3.7384111195493803`*^9, 3.7384111627798147`*^9}, {3.738880289322649*^9, 3.7388803034648275`*^9}}, CellLabel-> "In[102]:=",ExpressionUUID->"15495297-a588-42f2-9830-ff3a5a9d76a4"], Cell[BoxData[{ RowBox[{ RowBox[{"R", "[", "vhat_", "]"}], ":=", RowBox[{ RowBox[{"IdentityMatrix", "[", "4", "]"}], "+", RowBox[{"2", RowBox[{"Q", ".", RowBox[{"Transpose", "[", RowBox[{"{", "vhat", "}"}], "]"}], ".", RowBox[{"{", "vhat", "}"}]}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BMat", "[", "n_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"b", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7378245147847567`*^9, 3.737824531315222*^9}, { 3.737995674554207*^9, 3.7379956992022705`*^9}, 3.7380623568729105`*^9, { 3.7391230063641863`*^9, 3.73912300670897*^9}}, CellLabel-> "In[617]:=",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", "]"}]}], "}"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "B", "]"}], ">", "0"}], ",", RowBox[{"{", RowBox[{"B", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Bend3", "[", RowBox[{"V", ",", "n", ",", "Reals"}], "]"}], "[", "i", "]"}], ",", "\"\\""}], "}"}]}], "]"}]}], "]"}]}], "\n"}], "\[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"}], "}"}], ",", RowBox[{ RowBox[{"cl", "=", RowBox[{"V", "[", RowBox[{"[", RowBox[{";;", "n"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"co", "=", RowBox[{"V", "[", RowBox[{"[", RowBox[{ RowBox[{"n", "+", "1"}], ";;"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BMat", "[", "n", "]"}], ".", "cl"}], "\[Equal]", RowBox[{"cl", ".", RowBox[{"R", "[", RowBox[{"co", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}], ",", "RING"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"sol", "\[Equal]", RowBox[{"{", "}"}]}], ",", "Null", ",", RowBox[{ RowBox[{"sol", "=", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"assignments", "=", RowBox[{"Association", "[", "sol", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rest", "=", RowBox[{"Complement", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"BMat", "[", "n", "]"}], "]"}], ",", RowBox[{"Keys", "[", "assignments", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"l", "=", RowBox[{"Length", "[", "rest", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"l", "\[Equal]", "0"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"BMat", "[", "n", "]"}], "/.", "assignments"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"others1", "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{"rest", "\[Equal]", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "l"}], "}"}]}], "]"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"others2", "=", RowBox[{"<|", "|>"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "l"}], ",", RowBox[{"j", "++"}], ",", RowBox[{ RowBox[{"others2", "[", RowBox[{"rest", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "=", RowBox[{"Subscript", "[", RowBox[{"a", ",", "j"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"others2", "=", RowBox[{"Normal", "[", "others2", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BMat", "[", "n", "]"}], "/.", RowBox[{"(", RowBox[{"assignments", "/.", "others1"}], ")"}]}], ")"}], "/.", "others1"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.739123016450575*^9, 3.7391230251790323`*^9}}, CellLabel-> "In[621]:=",ExpressionUUID->"51955373-aeda-4085-ab72-d223f9f8f3f2"], Cell[BoxData[ RowBox[{ RowBox[{"Everything", "[", RowBox[{"n_", ",", "FacesCW_", ",", RowBox[{"\[Epsilon]_:", "0"}], ",", "steps_", ",", RowBox[{"sizemax_:", "\[Infinity]"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"vertices", ",", "faces", ",", RowBox[{"f", "=", RowBox[{"Length", "[", "FacesCW", "]"}]}], ",", "radii", ",", "d", ",", "h", ",", "LineFaces", ",", "Vnye", ",", "Vout", ",", RowBox[{"bends", "=", RowBox[{"{", "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ "vertices", ",", "faces", ",", "radii", ",", "d", ",", "h", ",", "LineFaces"}], "}"}], "=", RowBox[{"Packing", "[", RowBox[{"n", ",", "FacesCW", ",", "\[Epsilon]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Vnye", "=", RowBox[{ RowBox[{"SendToInt", "[", "\[Epsilon]", "]"}], "//@", RowBox[{"SuperCluster", "[", RowBox[{"vertices", ",", "faces", ",", "radii", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}], ",", "d", ",", "h", ",", "n"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Vout", "=", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"RootApproximant", "[", "Vnye", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"bends", "=", RowBox[{ RowBox[{"Bend4", "[", RowBox[{ RowBox[{"Vout", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "n"}], "]"}], "/@", RowBox[{"Range", "@", "f"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Render", "[", RowBox[{"radii", ",", "faces", ",", "vertices", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}], ",", "n", ",", "d", ",", "h"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Thick", ",", " ", RowBox[{"DrawCircle", "/@", RowBox[{"Orbit", "[", RowBox[{ RowBox[{"Vnye", "[", RowBox[{"[", RowBox[{ RowBox[{"-", "f"}], ";;"}], "]"}], "]"}], ",", RowBox[{"Vnye", "[", RowBox[{"[", RowBox[{";;", "n"}], "]"}], "]"}], ",", "steps", ",", "sizemax"}], "]"}]}], ",", "Red", ",", RowBox[{"DrawCircle", "/@", RowBox[{"Vnye", "[", RowBox[{"[", RowBox[{ RowBox[{"-", "f"}], ";;"}], "]"}], "]"}]}], ",", " ", "Blue", ",", " ", RowBox[{"DrawCircle", "/@", RowBox[{"Vnye", "[", RowBox[{"[", RowBox[{";;", "n"}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "d"}], ",", RowBox[{"2", " ", "d"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1.2"}], " ", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}], ",", RowBox[{"h", "+", RowBox[{"1.2", " ", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}]}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotRangeClipping", "->", "True"}]}], "]"}], ",", "\[IndentingNewLine]", "Vout", ",", "\[IndentingNewLine]", "bends", ",", "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"RootApproximant", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"SendToInt", "[", "\[Epsilon]", "]"}], "//@", RowBox[{"Gram", "[", RowBox[{"SuperCluster", "[", RowBox[{"vertices", ",", "faces", ",", "radii", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}], ",", "d", ",", "h", ",", "n"}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.737470377365205*^9, 3.737470438059895*^9}, { 3.737470482386249*^9, 3.7374706291316*^9}, {3.737471365625141*^9, 3.737471391640571*^9}, {3.737471696917704*^9, 3.7374717170638113`*^9}, { 3.737471876518211*^9, 3.737471941864938*^9}, {3.737716963448217*^9, 3.737716980888073*^9}, {3.737720445151472*^9, 3.737720446702874*^9}, { 3.737824443162737*^9, 3.737824455449666*^9}, {3.7378912948360367`*^9, 3.73789135603367*^9}, {3.737891444682703*^9, 3.7378914866810017`*^9}, { 3.7378915925235357`*^9, 3.737891593055147*^9}, {3.737905867803301*^9, 3.737905868137411*^9}, {3.73799267567642*^9, 3.737992677471591*^9}, { 3.7379929469710035`*^9, 3.7379929651434455`*^9}, {3.7379930588897543`*^9, 3.737993076943515*^9}, {3.7380635255102654`*^9, 3.7380635290957108`*^9}, { 3.7380636676088915`*^9, 3.7380636745872297`*^9}, {3.7380638177433786`*^9, 3.738063855095478*^9}, {3.738063909642552*^9, 3.7380639110946693`*^9}, { 3.7380639502698975`*^9, 3.738063956902152*^9}, {3.7380640873173466`*^9, 3.7380641169740276`*^9}, {3.7380642823624744`*^9, 3.738064323475514*^9}, { 3.7380643636749973`*^9, 3.7380643981976967`*^9}, {3.738064443997203*^9, 3.738064444270455*^9}, {3.7380646319055905`*^9, 3.7380646323294573`*^9}, { 3.738064693256534*^9, 3.738064738370883*^9}, {3.738064780948996*^9, 3.738064783577959*^9}, {3.738064816492895*^9, 3.738064820860215*^9}, { 3.738064905554728*^9, 3.738064908135788*^9}, {3.73806511977873*^9, 3.7380651218093004`*^9}, {3.738065157856887*^9, 3.7380651636254597`*^9}, { 3.738065275188075*^9, 3.738065299386354*^9}, {3.738065349198165*^9, 3.738065417491501*^9}, {3.738065502923974*^9, 3.7380655312192965`*^9}, { 3.738065586862509*^9, 3.7380656114477196`*^9}, {3.7383667450964403`*^9, 3.7383667808971167`*^9}, {3.7383668404673557`*^9, 3.7383668491723013`*^9}, {3.738366884492676*^9, 3.738366899165487*^9}, { 3.7383669350551987`*^9, 3.738366935597023*^9}, {3.738406454334059*^9, 3.7384064778900304`*^9}, {3.7384065311871557`*^9, 3.7384065390999947`*^9}, {3.7384088785270195`*^9, 3.738408882012842*^9}, { 3.7384089293051987`*^9, 3.738408929489704*^9}, {3.7384091549149723`*^9, 3.7384091574651527`*^9}, {3.7384095341398277`*^9, 3.738409537195654*^9}, { 3.738410849524389*^9, 3.7384108842784495`*^9}, {3.73841104193098*^9, 3.738411045112468*^9}, {3.738411222945875*^9, 3.738411223086499*^9}, { 3.738411291901064*^9, 3.7384112938647933`*^9}, {3.7384113284900064`*^9, 3.738411336118482*^9}, {3.7384113742605715`*^9, 3.738411385112833*^9}, { 3.738411497441986*^9, 3.7384115195708466`*^9}, {3.7384115693655043`*^9, 3.73841163508772*^9}, {3.738411670899951*^9, 3.7384116724797554`*^9}, { 3.738411750114659*^9, 3.73841176516743*^9}, {3.738411889531969*^9, 3.738411889696562*^9}, {3.7385985625147996`*^9, 3.738598562667409*^9}, { 3.738598719985386*^9, 3.738598730957058*^9}, {3.7386013106761007`*^9, 3.7386013108386655`*^9}, {3.738683755836348*^9, 3.7386837560148706`*^9}, { 3.738880307916935*^9, 3.73888032094709*^9}, 3.739123031176894*^9}, CellLabel-> "In[623]:=",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", "]"}], ",", ".01"}], "]"}], ",", RowBox[{"Round", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{ "orbit", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ".", RowBox[{"R", "[", RowBox[{ "co", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], "]"}]}], "]"}], ",", ".01"}], "]"}]}], 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}, {3.7390222554360676`*^9, 3.739022257202338*^9}}, CellLabel-> "In[150]:=",ExpressionUUID->"b43a5c15-ff8f-4841-a157-1d63bba9b7c4"], Cell[BoxData[ RowBox[{"Everything", "[", RowBox[{"7", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "}"}]}], "}"}], ",", RowBox[{"1", "/", "100000"}], ",", "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.7386720871598883`*^9, 3.7386721271908216`*^9}, {3.738672284788164*^9, 3.7386723201066904`*^9}, {3.738672546516434*^9, 3.7386725957080126`*^9}, { 3.738674291114772*^9, 3.7386743277567606`*^9}, {3.7386805166571894`*^9, 3.7386805668060427`*^9}, {3.7386810791624017`*^9, 3.7386811396127415`*^9}, {3.7386814782713137`*^9, 3.738681543363078*^9}, { 3.7386816898976307`*^9, 3.738681719544482*^9}, {3.7386818477562714`*^9, 3.738681859596021*^9}, {3.738682701484929*^9, 3.738682756230011*^9}, { 3.7386843903984723`*^9, 3.7386843904992466`*^9}, {3.738684424708892*^9, 3.7386844619238653`*^9}, {3.7386846401115694`*^9, 3.7386846425530405`*^9}, {3.7386848908844295`*^9, 3.738684919541772*^9}, { 3.738685450783483*^9, 3.7386855285324697`*^9}, {3.7386872872275896`*^9, 3.7386873330789165`*^9}, {3.73868750337795*^9, 3.7386875618149843`*^9}, { 3.7386877182904544`*^9, 3.738687719129985*^9}, {3.7388803260424805`*^9, 3.7388803284290786`*^9}, {3.738943661825966*^9, 3.7389437317041388`*^9}, { 3.738945752646738*^9, 3.738945814797018*^9}, {3.7389461878935165`*^9, 3.7389462474933977`*^9}, {3.7389463042200804`*^9, 3.7389463061510944`*^9}, {3.738947430358354*^9, 3.7389474910990067`*^9}, { 3.7389476549317975`*^9, 3.7389477193936634`*^9}, {3.7389491314577756`*^9, 3.738949175313188*^9}, {3.7389492629880686`*^9, 3.738949265018903*^9}, { 3.7389493726925898`*^9, 3.7389494349093714`*^9}, {3.739012796166075*^9, 3.739012841483301*^9}, {3.739013315059049*^9, 3.739013358113399*^9}, { 3.7390134780032296`*^9, 3.739013479287998*^9}, {3.739017071725794*^9, 3.7390171141831636`*^9}, {3.7390221425511665`*^9, 3.7390221694680996`*^9}, {3.7395477947188063`*^9, 3.7395478144061785`*^9}, {3.7395483280656304`*^9, 3.739548328353859*^9}, { 3.7395486339608693`*^9, 3.739548635795001*^9}}, CellLabel-> "In[135]:=",ExpressionUUID->"8c0d00eb-3a38-4d87-9e21-66e5a04e235e"], Cell[BoxData[ TagBox[GridBox[{ { GraphicsBox[ {RGBColor[0, 0, 1], Thickness[ Large], {CircleBox[{6.000000000000003, 7.0000000000000036}], CircleBox[{5.250000000000002, 9.187500000000004}, 1.3125000000000002], CircleBox[{0, 5.250000000000002}, 5.250000000000002], CircleBox[{8.400000000000002, 3.36}, 3.36], CircleBox[{8.400000000000002, 8.61}, 1.8900000000000001], LineBox[{{-5.250000000000002, 10.5}, {13.650000000000004`, 10.5}}], LineBox[{{-5.250000000000002, 0}, {13.650000000000004`, 0}}]}, {RGBColor[1, 0, 0], Dashing[{Small, Small}], CircleBox[{4.772727272727275, 7.636363636363639}, 0.9545454545454546], CircleBox[{5.41935483870968, 5.41935483870968}, 1.3548387096774193], CircleBox[{2.625000000000001, 10.500000000000004}, 2.625000000000001], CircleBox[{6.402439024390246, 8.195121951219516}, 0.7682926829268292], CircleBox[{7.392000000000005, 6.720000000000001}, 1.008], CircleBox[{6.825000000000002, 10.500000000000004}, 1.5750000000000002], CircleBox[{4.200000000000001, 0}, 4.200000000000001], LineBox[{{0, -5.250000000000002}, {0, 15.750000000000002`}}], LineBox[{{8.400000000000002, -5.250000000000002}, {8.400000000000002, 15.750000000000002`}}]}}, ImageSize->{405., Automatic}]}, { GraphicsBox[ {Thickness[ Large], {CircleBox[{6, 7}], CircleBox[{5.250000000000001, 9.187500000000002}, 1.3125000000000002], CircleBox[{0., 5.250000000000002}, 5.250000000000002], CircleBox[{8.4, 3.36}, 3.36], CircleBox[{8.400000000000002, 8.61}, 1.8900000000000001], TagBox[ ConicHullRegionBox[NCache[{0, Rational[21, 2]}, {0, 10.5}], {{-1, 0}}], "InfiniteLine"], TagBox[ConicHullRegionBox[{0, 0}, {{1, 0}}], "InfiniteLine"], CircleBox[{4.936708860759496, 7.443037974683549}, 0.1518987341772154], CircleBox[{5.086505190311393, 7.7205882352940955}, 0.16349480968858063], CircleBox[{4.772727272727273, 7.795454545454547}, 0.15909090909090912], CircleBox[{4.7727272727272725, 7.576704545454545}, 0.059659090909090905], CircleBox[{5.394495412844044, 5.972477064220192}, 0.19266055045871588], CircleBox[{5.772511848341229, 5.797393364928901}, 0.2239336492890992], CircleBox[{5.419354838709676, 5.599999999999999}, 0.18064516129032254], CircleBox[{5.419354838709677, 5.25}, 0.1693548387096774], CircleBox[{3.652173913043479, 9.434782608695647}, 0.30434782608695693], CircleBox[{3.169811320754719, 9.826415094339628}, 0.316981132075472], CircleBox[{3.818181818181823, 10.109504132231404}, 0.39049586776859546], CircleBox[{2.625000000000001, 10.171875000000004}, 0.3281250000000001], CircleBox[{6.231454005934723, 8.116468842729978}, 0.14020771513353178], CircleBox[{6.475770925110129, 8.017621145374434}, 0.1233480176211459], CircleBox[{6.402439024390245, 8.323170731707329}, 0.12804878048780505], CircleBox[{6.402439024390246, 8.15910823170732}, 0.03601371951219509], CircleBox[{7.148936170212766, 7.000000000000015}, 0.14893617021276737], CircleBox[{7.135135135135138, 6.668918918918918}, 0.18243243243243262], CircleBox[{7.392000000000007, 6.854400000000003}, 0.13440000000000005], CircleBox[{7.392000000000005, 6.644400000000001}, 0.07559999999999999], CircleBox[{6.653465346534636, 9.772277227722729}, 0.2079207920792085], CircleBox[{6.46153846153846, 10.22041420118343}, 0.27958579881656853], CircleBox[{6.917647058823526, 10.079999999999986}, 0.1976470588235296], CircleBox[{6.825000000000002, 10.381875000000004}, 0.11812499999999998], CircleBox[{4.8196721311475414, 2.409836065573772}, 0.34426229508196743], CircleBox[{4.421052631578949, 1.9342105263157907}, 0.2763157894736844], CircleBox[{5.040000000000001, 1.7220000000000004}, 0.3780000000000001], CircleBox[{4.200000000000001, 0.8400000000000005}, 0.8400000000000005], CircleBox[{-6, 7}], CircleBox[{-5.250000000000001, 9.187500000000002}, 1.3125000000000002], CircleBox[{-8.4, 3.36}, 3.36], CircleBox[{-8.400000000000002, 8.61}, 1.8900000000000001], CircleBox[{10.800000000000004, 7.}], CircleBox[{11.550000000000002, 9.187500000000002}, 1.3125000000000002], CircleBox[{16.800000000000004, 5.250000000000002}, 5.250000000000002], CircleBox[{4.954423592493262, 7.150134048257273}, 0.05630026809651638], CircleBox[{4.983050847457633, 7.249501495513493}, 0.04710867397806483], CircleBox[{4.902723735408568, 7.226977950713346}, 0.03631647211413742], CircleBox[{4.540540540540571, 8.009009009008993}, 0.06306306306306429], CircleBox[{4.571699006152356, 7.9110269758636935}, 0.03975390440132546], CircleBox[{4.6462212486309, 7.964129244249777}, 0.05175246440306797], CircleBox[{5.3410404624278, 7.823410404624255}, 0.05462427745665021], CircleBox[{5.284768211920474, 7.750993377483366}, 0.037086092715230445], CircleBox[{5.250000000000014, 7.837499999999969}, 0.03750000000000181], CircleBox[{4.861976847729297, 7.6186553873552985}, 0.03895814781834371], CircleBox[{5.213569776407106, 6.282189668465718}, 0.06476484194294616], CircleBox[{5.305785123966927, 6.204545454545375}, 0.055785123966938265], CircleBox[{5.222797927461164, 6.141623488773776}, 0.048359240069084854], CircleBox[{5.249999999999999, 5.804166666666669}, 0.029166666666666844], CircleBox[{5.29894344313238, 5.7720633934120595}, 0.029366065879428416], CircleBox[{5.607708189951848, 6.044907088781858}, 0.03251892635925721], CircleBox[{5.666323377960863, 6.02677651905252}, 0.028836251287332634], CircleBox[{6.000000000000034, 5.950000000000033}, 0.05000000000000085], CircleBox[{6.123613312202882, 5.932250396196532}, 0.07488114104596015], CircleBox[{6.029702970297018, 5.863366336633651}, 0.0415841584158419], CircleBox[{5.300970873786405, 4.825242718446599}, 0.06796116504854376], CircleBox[{5.279112754158969, 4.929759704251389}, 0.03881700554528657], CircleBox[{5.368421052631582, 4.922932330827071}, 0.05075187969924818], CircleBox[{5.316455696202533, 5.032911392405064}, 0.07088607594936716], CircleBox[{5.281437125748502, 5.39880239520958}, 0.03353293413173652], CircleBox[{5.743713399931106, 5.514640027557698}, 0.06028246641405441], CircleBox[{5.6441470345586255, 5.557521312677609}, 0.04812540104500868], CircleBox[{5.624190064794818, 5.416306695464364}, 0.09449244060475158], CircleBox[{3.711129991503837, 9.06372132540358}, 0.07136788445199733], CircleBox[{3.8578856152512504, 9.107885615251321}, 0.0818890814558031], CircleBox[{3.8684210526315974, 8.934210526315814}, 0.09210526315789543], CircleBox[{3.750000000000006, 8.968750000000004}, 0.03125000000000011], CircleBox[{3.30337078651686, 9.39101123595505}, 0.047191011235955406], CircleBox[{3.3033707865168496, 9.486465781409605}, 0.048263534218590164], CircleBox[{3.2307692307692317, 9.43776223776224}, 0.03916083916083917], CircleBox[{3.1698113207547176, 9.476415094339623}, 0.03301886792452833], CircleBox[{3.956188389923343, 9.620208105147867}, 0.051752464403067515], CircleBox[{3.8900144717800265, 9.684515195369054}, 0.04052098408104199], CircleBox[{3.9955752212389553, 9.710176991150439}, 0.04646017699115113], CircleBox[{3.5784753363228803, 9.76233183856503}, 0.03139013452914851], CircleBox[{3.5133079847908792, 9.745437262357415}, 0.035931558935361374], CircleBox[{4.285714285714156, 10.200000000000019}, 0.08571428571427932], CircleBox[{4.421052631578952, 10.369113573407226}, 0.13088642659279817], CircleBox[{4.218340611353698, 10.344104803493465}, 0.07336244541484656], CircleBox[{4.265625000000008, 10.453857421874982}, 0.04614257812500037], CircleBox[{2.8405797101449286, 9.705314009661839}, 0.03381642512077299], CircleBox[{2.826115922718189, 9.768987341772156}, 0.03147901399067291], CircleBox[{2.73913043478261, 9.800000000000004}, 0.060869565217391376], CircleBox[{1.9310344827586208, 10.218390804597703}, 0.08045977011494258], CircleBox[{1.7500000000000004, 10.354166666666673}, 0.14583333333333354], CircleBox[{2.1538461538461546, 10.194871794871798}, 0.14358974358974366], CircleBox[{2.0000000000000004, 10.392857142857146}, 0.10714285714285718], CircleBox[{3.346444780635402, 10.191124558749372}, 0.08825012607160873], CircleBox[{3.397058823529414, 10.386461937716263}, 0.11353806228373714], CircleBox[{3.1111111111111125, 10.319958847736629}, 0.18004115226337467], CircleBox[{6.080920269734212, 8.030146767155879}, 0.0333201110670391], CircleBox[{6.000000000000091, 8.050000000000079}, 0.04999999999998863], CircleBox[{6.057692307692281, 8.11057692307691}, 0.03365384615384737], CircleBox[{6.626865671641769, 7.8358208955223185}, 0.04477611940298933], CircleBox[{6.55510860820603, 7.877111826226956}, 0.03801287208367122], CircleBox[{6.614173228346354, 7.908250599109864}, 0.02875727490585576], CircleBox[{6.461538461538427, 8.566433566433513}, 0.048951048951025755], CircleBox[{6.411101474414663, 8.491977450130214}, 0.04098005203816217], CircleBox[{6.482910694597421, 8.489525909591938}, 0.03087100330760623], CircleBox[{6.533758034241513, 8.159433479324289}, 0.02986178260622274], CircleBox[{6.5203941338221805, 8.217862053162241}, 0.030075618698441862], CircleBox[{6.471228204298865, 8.175637331294666}, 0.03473345290952399], CircleBox[{6.9421487603306264, 6.551652892562011}, 0.043388429752068386], CircleBox[{6.911392405063279, 6.446202531645592}, 0.06645569620253095], CircleBox[{7.000000000000026, 6.497435897435917}, 0.03589743589743637], CircleBox[{7.032198712051432, 7.152943882244733}, 0.04346826126955173], CircleBox[{7.020820939916653, 7.245687091017324}, 0.049970255800118844], CircleBox[{7.107409031126644, 7.181060938185056}, 0.03682595352915585], CircleBox[{7.715837104072425, 6.7466063348416405}, 0.09502262443439022], CircleBox[{7.5870967741935615, 6.835777126099713}, 0.061583577712610284], CircleBox[{7.543470483005373, 6.696332737030416}, 0.0845259391771022], CircleBox[{6.461538461538463, 9.911590671771652}, 0.029237730595197086], CircleBox[{6.422738190552454, 9.856885508406721}, 0.03783026421136682], CircleBox[{6.382352941176455, 9.916666666666622}, 0.03431372549019625], CircleBox[{6.116504854368906, 10.262135922330055}, 0.06796116504854444], CircleBox[{6.163822525597287, 10.378156996587036}, 0.05733788395904526], CircleBox[{5.999999999999975, 10.39285714285711}, 0.10714285714285932], CircleBox[{6.23437499999998, 10.453857421874956}, 0.04614257812500024], CircleBox[{6.580171358629093, 9.516829865360917}, 0.05783353733170353], CircleBox[{6.686809994189441, 9.517722254503195}, 0.048808832074374676], CircleBox[{6.611111111111023, 9.398148148148103}, 0.06481481481481857], CircleBox[{6.8901569186875555, 9.796005706134038}, 0.029957203994294607], CircleBox[{6.877192982456158, 9.855263157894736}, 0.030701754385965303], CircleBox[{6.685888324873098, 10.434761421319802}, 0.0307005076142132], CircleBox[{7.189519650655034, 10.179039301310011}, 0.09170305676855912], CircleBox[{7.350000000000014, 10.354166666666636}, 0.14583333333333384], CircleBox[{7.0736842105263165, 10.369113573407192}, 0.1308864265927979], CircleBox[{4.432401597261839, 2.347974900171138}, 0.04791785510553345], CircleBox[{4.459049544994937, 2.2560667340748157}, 0.04777553083923133], CircleBox[{4.3654266958424515, 2.2516411378555814}, 0.04595185995623635], CircleBox[{4.768558951965069, 2.842794759825331}, 0.09170305676855907], CircleBox[{4.969837587006961, 2.8381670533642707}, 0.1096287703016242], CircleBox[{4.8554913294797695, 3.0104046242774585}, 0.09710982658959544], CircleBox[{4.9411764705882355, 3.1911764705882373}, 0.1029411764705883], CircleBox[{4.091690544412607, 1.8653295128939855}, 0.06017191977077384], CircleBox[{4.013651877133108, 1.7774744027303773}, 0.057337883959044454], CircleBox[{4.1340941512125555, 1.745007132667621}, 0.06740370898716141], CircleBox[{3.9375000000000004, 1.6953125000000009}, 0.05468750000000003], CircleBox[{4.712041884816756, 2.04581151832461}, 0.035340314136125824], CircleBox[{4.778067885117496, 2.0365535248041793}, 0.03133159268929526], CircleBox[{4.7242380261248185, 1.981132075471701}, 0.03047895500725694], CircleBox[{5.101952277657268, 2.1409978308026045}, 0.04555314533622596], CircleBox[{5.175866495507063, 2.217265725288836}, 0.060654685494223544], CircleBox[{5.185185185185189, 2.1155555555555585}, 0.041481481481481536], CircleBox[{4.626506024096382, 1.6987951807228763}, 0.03614457831325295], CircleBox[{4.564346997140133, 1.646568160152526}, 0.0450428979980935], CircleBox[{4.6400000000000015, 1.6319999999999992}, 0.032000000000000056], CircleBox[{3.0165745856353596, 0.812154696132597}, 0.11602209944751386], CircleBox[{3.230769230769231, 0.9423076923076926}, 0.13461538461538466], CircleBox[{2.8, 0.3733333333333334}, 0.3733333333333334], CircleBox[{3.2307692307692317, 0.6623076923076924}, 0.14538461538461542], CircleBox[{5.471559633027525, 1.3486238532110097}, 0.19266055045871566], CircleBox[{5.148387096774195, 1.1854838709677427}, 0.16935483870967752], CircleBox[{5.600000000000002, 0.5833333333333337}, 0.5833333333333337], CircleBox[{-4.936708860759496, 7.443037974683549}, 0.1518987341772154], CircleBox[{-5.086505190311393, 7.7205882352940955}, 0.16349480968858063], CircleBox[{-4.772727272727273, 7.795454545454547}, 0.15909090909090912], CircleBox[{-4.7727272727272725, 7.576704545454545}, 0.059659090909090905], CircleBox[{-5.394495412844044, 5.972477064220192}, 0.19266055045871588], CircleBox[{-5.772511848341229, 5.797393364928901}, 0.2239336492890992], CircleBox[{-5.419354838709676, 5.599999999999999}, 0.18064516129032254], CircleBox[{-5.419354838709677, 5.25}, 0.1693548387096774], CircleBox[{-3.652173913043479, 9.434782608695647}, 0.30434782608695693], CircleBox[{-3.169811320754719, 9.826415094339628}, 0.316981132075472], CircleBox[{-3.818181818181823, 10.109504132231404}, 0.39049586776859546], CircleBox[{-2.625000000000001, 10.171875000000004}, 0.3281250000000001], CircleBox[{-6.231454005934723, 8.116468842729978}, 0.14020771513353178], CircleBox[{-6.475770925110129, 8.017621145374434}, 0.1233480176211459], CircleBox[{-6.402439024390245, 8.323170731707329}, 0.12804878048780505], CircleBox[{-6.402439024390246, 8.15910823170732}, 0.03601371951219509], CircleBox[{-7.148936170212766, 7.000000000000015}, 0.14893617021276737], CircleBox[{-7.135135135135138, 6.668918918918918}, 0.18243243243243262], CircleBox[{-7.392000000000007, 6.854400000000003}, 0.13440000000000005], CircleBox[{-7.392000000000005, 6.644400000000001}, 0.07559999999999999], CircleBox[{-6.653465346534636, 9.772277227722729}, 0.2079207920792085], CircleBox[{-6.46153846153846, 10.22041420118343}, 0.27958579881656853], CircleBox[{-6.917647058823526, 10.079999999999986}, 0.1976470588235296], CircleBox[{-6.825000000000002, 10.381875000000004}, 0.11812499999999998], CircleBox[{-4.8196721311475414, 2.409836065573772}, 0.34426229508196743], CircleBox[{-4.421052631578949, 1.9342105263157907}, 0.2763157894736844], CircleBox[{-5.040000000000001, 1.7220000000000004}, 0.3780000000000001], CircleBox[{-4.200000000000001, 0.8400000000000005}, 0.8400000000000005], CircleBox[{-10.800000000000004, 7.}], CircleBox[{-11.550000000000002, 9.187500000000002}, 1.3125000000000002], CircleBox[{-16.800000000000004, 5.250000000000002}, 5.250000000000002], CircleBox[{11.863291139240511, 7.443037974683549}, 0.1518987341772154], CircleBox[{11.713494809688612, 7.7205882352940955}, 0.16349480968858063], CircleBox[{12.027272727272731, 7.795454545454547}, 0.15909090909090912], CircleBox[{12.027272727272731, 7.576704545454545}, 0.059659090909090905], CircleBox[{11.405504587155958, 5.972477064220192}, 0.19266055045871588], CircleBox[{11.027488151658776, 5.797393364928901}, 0.2239336492890992], CircleBox[{11.380645161290328, 5.599999999999999}, 0.18064516129032254], CircleBox[{11.380645161290326, 5.25}, 0.1693548387096774], CircleBox[{13.147826086956526, 9.434782608695647}, 0.30434782608695693], CircleBox[{13.630188679245283, 9.826415094339628}, 0.316981132075472], CircleBox[{12.981818181818182, 10.109504132231404}, 0.39049586776859546], CircleBox[{14.175000000000004, 10.171875000000004}, 0.3281250000000001], CircleBox[{10.568545994065282, 8.116468842729978}, 0.14020771513353178], CircleBox[{10.324229074889876, 8.017621145374434}, 0.1233480176211459], CircleBox[{10.39756097560976, 8.323170731707329}, 0.12804878048780505], CircleBox[{10.397560975609759, 8.15910823170732}, 0.03601371951219509], CircleBox[{9.65106382978724, 7.000000000000015}, 0.14893617021276737], CircleBox[{9.664864864864867, 6.668918918918918}, 0.18243243243243262], CircleBox[{9.407999999999998, 6.854400000000003}, 0.13440000000000005], CircleBox[{9.408, 6.644400000000001}, 0.07559999999999999], CircleBox[{10.146534653465368, 9.772277227722729}, 0.2079207920792085], CircleBox[{10.338461538461546, 10.22041420118343}, 0.27958579881656853], CircleBox[{9.882352941176478, 10.079999999999986}, 0.1976470588235296], CircleBox[{9.975000000000003, 10.381875000000004}, 0.11812499999999998], CircleBox[{11.980327868852463, 2.409836065573772}, 0.34426229508196743], CircleBox[{12.378947368421057, 1.9342105263157907}, 0.2763157894736844], CircleBox[{11.760000000000003, 1.7220000000000004}, 0.3780000000000001], CircleBox[{12.600000000000003, 0.8400000000000005}, 0.8400000000000005], CircleBox[{22.800000000000004, 7.}], CircleBox[{22.050000000000004, 9.187500000000002}, 1.3125000000000002], CircleBox[{25.200000000000006, 3.36}, 3.36], CircleBox[{25.200000000000006, 8.61}, 1.8900000000000001], CircleBox[{4.971190558833787, 7.026726830961505}, 0.02915654286706547], CircleBox[{4.442307692307661, 8.110576923077176}, 0.033653846153853806], CircleBox[{5.153374233128834, 6.409509202453814}, 0.03220858895705228], CircleBox[{6.255319148936489, 5.994680851064083}, 0.03723404255320326], CircleBox[{5.298943443132389, 4.727936606587954}, 0.029366065879428242], CircleBox[{5.250000000000014, 4.695833333333346}, 0.029166666666666747], CircleBox[{5.250000000000013, 4.6302083333333455}, 0.036458333333333426], CircleBox[{5.433722163308588, 5.034729586426296}, 0.04639448568398731], CircleBox[{3.962264150943434, 8.761006289308192}, 0.04402515723270549], CircleBox[{3.9497487437187617, 8.837939698492326}, 0.03391959798995454], CircleBox[{4.590163934425977, 10.366120218579258}, 0.0382513661202143], CircleBox[{4.570356472795446, 10.433020637898679}, 0.031519699812382285], CircleBox[{4.666666666666564, 10.4351851851852}, 0.06481481481481308], CircleBox[{4.127781931105834, 10.394329748691701}, 0.030191500373798794], CircleBox[{4.083333333333282, 10.454989711934143}, 0.04501028806584203], CircleBox[{4.173913043478248, 10.45442884147988}, 0.04557115852011841], CircleBox[{2.816852966466037, 9.860490111779882}, 0.03761822871883065], CircleBox[{1.555555555555556, 10.318518518518538}, 0.051851851851852065], CircleBox[{1.4482758620689604, 10.363218390804596}, 0.06436781609195429], CircleBox[{1.5555555555555534, 10.435185185185203}, 0.0648148148148151], CircleBox[{1.3124999999999953, 10.41796875}, 0.08203125000000029], CircleBox[{2.2871287128712883, 10.021782178217828}, 0.04158415841584163], CircleBox[{2.1418877236273914, 10.374048940982936}, 0.03598601686201934], CircleBox[{2.1388888888888897, 10.454989711934163}, 0.04501028806584365], CircleBox[{2.270270270270271, 10.404127100073051}, 0.09587289992695407], CircleBox[{3.5183246073298444, 10.467620131027118}, 0.03237986897289003], CircleBox[{2.982783357245337, 10.153515064562411}, 0.03012912482065999], CircleBox[{2.9081786251881607, 10.410436527847475}, 0.042147516307074785], CircleBox[{6.812454742939702, 6.360065170166404}, 0.03421433743665144], CircleBox[{7.836871508379934, 6.775139664804527}, 0.029329608938548777], CircleBox[{7.841711229946573, 6.709893048128373}, 0.03609625668449325], CircleBox[{7.896000000000131, 6.753600000000033}, 0.03360000000000199], CircleBox[{5.860465116279093, 10.386046511627862}, 0.03255813953487727], CircleBox[{5.7931034482758035, 10.4438168846609}, 0.056183115338883094], CircleBox[{6.157068062827201, 10.467620131027159}, 0.032379868972890385], CircleBox[{6.591928251120985, 9.260089686098446}, 0.03139013452913585], CircleBox[{7.540298507462556, 10.343283582089525}, 0.04477611940297896], CircleBox[{7.531034482758647, 10.443816884661107}, 0.05618311533888256], CircleBox[{7.62461538461533, 10.390153846153785}, 0.051692307692306684], CircleBox[{7.612500000000016, 10.470468750000022}, 0.029531250000000734], CircleBox[{5.072609633357316, 2.691049604601031}, 0.03396836808051843], CircleBox[{4.993006993006991, 3.4755244755244736}, 0.048951048951049], CircleBox[{5.005181347150262, 3.392487046632129}, 0.03497409326424877], CircleBox[{4.941176470588237, 3.3411764705882394}, 0.04705882352941186], CircleBox[{5.030452776576689, 2.9666440175427753}, 0.032429427388967806], CircleBox[{5.001215066828677, 3.0470838396111812}, 0.05315917375455651], CircleBox[{4.021577882670263, 1.6909979770735002}, 0.029501011463250196], CircleBox[{5.271724137931046, 2.0565517241379374}, 0.02896551724137968], CircleBox[{2.877435575109993, 0.7688560653676929}, 0.029698302954116896], CircleBox[{3.280135823429541, 1.1052631578947376}, 0.035653650254669024], CircleBox[{3.3377483443708624, 1.1496688741721863}, 0.03708609271523183], CircleBox[{3.349693251533742, 1.0720858895705532}, 0.04141104294478536], CircleBox[{3.3970588235294126, 1.196691176470589}, 0.03860294117647061], CircleBox[{2.372093023255814, 0.4883720930232561}, 0.06976744186046516], CircleBox[{2.2500000000000004, 0.4375000000000003}, 0.06250000000000004], CircleBox[{2.3520000000000003, 0.34440000000000004}, 0.07560000000000001], CircleBox[{2.1000000000000005, 0.21000000000000013}, 0.21000000000000013], CircleBox[{3.2307692307692313, 0.4523076923076923}, 0.06461538461538462], CircleBox[{3.360000000000001, 0.49000000000000016}, 0.07000000000000002], CircleBox[{3.360000000000001, 0.21000000000000013}, 0.21000000000000013], CircleBox[{5.651756007393716, 1.203327171903885}, 0.03881700554528661], CircleBox[{5.7021897810219, 1.2755474452554727}, 0.04927007299270067], CircleBox[{5.728146453089247, 1.1917620137299771}, 0.038443935926773455], CircleBox[{5.801438848920864, 1.170863309352518}, 0.03776978417266187], CircleBox[{5.134039334341909, 0.9848714069591535}, 0.031770045385779204], CircleBox[{5.097307001795333, 0.9350089766606832}, 0.030161579892280115], CircleBox[{5.0646053702196925, 0.9953213995117994}, 0.03844589096826698], CircleBox[{5.421939586645469, 1.5691573926868054}, 0.03338632750397483], CircleBox[{5.497341888175988, 1.5831805682859783}, 0.043308890925756294], CircleBox[{5.440000000000003, 1.6320000000000043}, 0.032000000000000084], CircleBox[{4.962233651726674, 1.2691036002939016}, 0.03471711976487883], CircleBox[{6.272489082969436, 0.6419213973799133}, 0.09170305676855904], CircleBox[{6.244736842105265, 0.4835526315789478}, 0.06907894736842111], CircleBox[{6.423529411764706, 0.5064705882352941}, 0.11117647058823531], CircleBox[{6.300000000000002, 0.21000000000000016}, 0.21000000000000016], CircleBox[{5.032835820895523, 0.3134328358208956}, 0.044776119402985086], CircleBox[{4.9846153846153864, 0.40384615384615397}, 0.05769230769230771], CircleBox[{5.040000000000002, 0.13440000000000002}, 0.13440000000000002], CircleBox[{4.924137931034484, 0.296896551724138}, 0.06517241379310346], CircleBox[{-4.954423592493262, 7.150134048257273}, 0.05630026809651638], CircleBox[{-4.983050847457633, 7.249501495513493}, 0.04710867397806483], CircleBox[{-4.902723735408568, 7.226977950713346}, 0.03631647211413742], CircleBox[{-4.540540540540571, 8.009009009008993}, 0.06306306306306429], CircleBox[{-4.571699006152356, 7.9110269758636935}, 0.03975390440132546], CircleBox[{-4.6462212486309, 7.964129244249777}, 0.05175246440306797], CircleBox[{-5.3410404624278, 7.823410404624255}, 0.05462427745665021], CircleBox[{-5.284768211920474, 7.750993377483366}, 0.037086092715230445], CircleBox[{-5.250000000000014, 7.837499999999969}, 0.03750000000000181], CircleBox[{-4.861976847729297, 7.6186553873552985}, 0.03895814781834371], CircleBox[{-5.213569776407106, 6.282189668465718}, 0.06476484194294616], CircleBox[{-5.305785123966927, 6.204545454545375}, 0.055785123966938265], CircleBox[{-5.222797927461164, 6.141623488773776}, 0.048359240069084854], CircleBox[{-5.249999999999999, 5.804166666666669}, 0.029166666666666844], CircleBox[{-5.29894344313238, 5.7720633934120595}, 0.029366065879428416], CircleBox[{-5.607708189951848, 6.044907088781858}, 0.03251892635925721], CircleBox[{-5.666323377960863, 6.02677651905252}, 0.028836251287332634], CircleBox[{-6.000000000000034, 5.950000000000033}, 0.05000000000000085], CircleBox[{-6.123613312202882, 5.932250396196532}, 0.07488114104596015], CircleBox[{-6.029702970297018, 5.863366336633651}, 0.0415841584158419], CircleBox[{-5.300970873786405, 4.825242718446599}, 0.06796116504854376], CircleBox[{-5.279112754158969, 4.929759704251389}, 0.03881700554528657], CircleBox[{-5.368421052631582, 4.922932330827071}, 0.05075187969924818], CircleBox[{-5.316455696202533, 5.032911392405064}, 0.07088607594936716], CircleBox[{-5.281437125748502, 5.39880239520958}, 0.03353293413173652], CircleBox[{-5.743713399931106, 5.514640027557698}, 0.06028246641405441], CircleBox[{-5.6441470345586255, 5.557521312677609}, 0.04812540104500868], CircleBox[{-5.624190064794818, 5.416306695464364}, 0.09449244060475158], CircleBox[{-3.711129991503837, 9.06372132540358}, 0.07136788445199733], CircleBox[{-3.8578856152512504, 9.107885615251321}, 0.0818890814558031], CircleBox[{-3.8684210526315974, 8.934210526315814}, 0.09210526315789543], CircleBox[{-3.750000000000006, 8.968750000000004}, 0.03125000000000011], CircleBox[{-3.30337078651686, 9.39101123595505}, 0.047191011235955406], CircleBox[{-3.3033707865168496, 9.486465781409605}, 0.048263534218590164], CircleBox[{-3.2307692307692317, 9.43776223776224}, 0.03916083916083917], CircleBox[{-3.1698113207547176, 9.476415094339623}, 0.03301886792452833], CircleBox[{-3.956188389923343, 9.620208105147867}, 0.051752464403067515], CircleBox[{-3.8900144717800265, 9.684515195369054}, 0.04052098408104199], CircleBox[{-3.9955752212389553, 9.710176991150439}, 0.04646017699115113], CircleBox[{-3.5784753363228803, 9.76233183856503}, 0.03139013452914851], CircleBox[{-3.5133079847908792, 9.745437262357415}, 0.035931558935361374], CircleBox[{-4.285714285714156, 10.200000000000019}, 0.08571428571427932], CircleBox[{-4.421052631578952, 10.369113573407226}, 0.13088642659279817], CircleBox[{-4.218340611353698, 10.344104803493465}, 0.07336244541484656], CircleBox[{-4.265625000000008, 10.453857421874982}, 0.04614257812500037], CircleBox[{-2.8405797101449286, 9.705314009661839}, 0.03381642512077299], CircleBox[{-2.826115922718189, 9.768987341772156}, 0.03147901399067291], CircleBox[{-2.73913043478261, 9.800000000000004}, 0.060869565217391376], CircleBox[{-1.9310344827586208, 10.218390804597703}, 0.08045977011494258], CircleBox[{-1.7500000000000004, 10.354166666666673}, 0.14583333333333354], CircleBox[{-2.1538461538461546, 10.194871794871798}, 0.14358974358974366], CircleBox[{-2.0000000000000004, 10.392857142857146}, 0.10714285714285718], CircleBox[{-3.346444780635402, 10.191124558749372}, 0.08825012607160873], CircleBox[{-3.397058823529414, 10.386461937716263}, 0.11353806228373714], CircleBox[{-3.1111111111111125, 10.319958847736629}, 0.18004115226337467], CircleBox[{-6.080920269734212, 8.030146767155879}, 0.0333201110670391], CircleBox[{-6.000000000000091, 8.050000000000079}, 0.04999999999998863], CircleBox[{-6.057692307692281, 8.11057692307691}, 0.03365384615384737], CircleBox[{-6.626865671641769, 7.8358208955223185}, 0.04477611940298933], CircleBox[{-6.55510860820603, 7.877111826226956}, 0.03801287208367122], CircleBox[{-6.614173228346354, 7.908250599109864}, 0.02875727490585576], CircleBox[{-6.461538461538427, 8.566433566433513}, 0.048951048951025755], CircleBox[{-6.411101474414663, 8.491977450130214}, 0.04098005203816217], CircleBox[{-6.482910694597421, 8.489525909591938}, 0.03087100330760623], CircleBox[{-6.533758034241513, 8.159433479324289}, 0.02986178260622274], CircleBox[{-6.5203941338221805, 8.217862053162241}, 0.030075618698441862], CircleBox[{-6.471228204298865, 8.175637331294666}, 0.03473345290952399], CircleBox[{-6.9421487603306264, 6.551652892562011}, 0.043388429752068386], CircleBox[{-6.911392405063279, 6.446202531645592}, 0.06645569620253095], CircleBox[{-7.000000000000026, 6.497435897435917}, 0.03589743589743637], CircleBox[{-7.032198712051432, 7.152943882244733}, 0.04346826126955173], CircleBox[{-7.020820939916653, 7.245687091017324}, 0.049970255800118844], CircleBox[{-7.107409031126644, 7.181060938185056}, 0.03682595352915585], CircleBox[{-7.715837104072425, 6.7466063348416405}, 0.09502262443439022], CircleBox[{-7.5870967741935615, 6.835777126099713}, 0.061583577712610284], CircleBox[{-7.543470483005373, 6.696332737030416}, 0.0845259391771022], CircleBox[{-6.461538461538463, 9.911590671771652}, 0.029237730595197086], CircleBox[{-6.422738190552454, 9.856885508406721}, 0.03783026421136682], CircleBox[{-6.382352941176455, 9.916666666666622}, 0.03431372549019625], CircleBox[{-6.116504854368906, 10.262135922330055}, 0.06796116504854444], CircleBox[{-6.163822525597287, 10.378156996587036}, 0.05733788395904526], CircleBox[{-5.999999999999975, 10.39285714285711}, 0.10714285714285932], CircleBox[{-6.23437499999998, 10.453857421874956}, 0.04614257812500024], CircleBox[{-6.580171358629093, 9.516829865360917}, 0.05783353733170353], CircleBox[{-6.686809994189441, 9.517722254503195}, 0.048808832074374676], CircleBox[{-6.611111111111023, 9.398148148148103}, 0.06481481481481857], CircleBox[{-6.8901569186875555, 9.796005706134038}, 0.029957203994294607], CircleBox[{-6.877192982456158, 9.855263157894736}, 0.030701754385965303], CircleBox[{-6.685888324873098, 10.434761421319802}, 0.0307005076142132], CircleBox[{-7.189519650655034, 10.179039301310011}, 0.09170305676855912], CircleBox[{-7.350000000000014, 10.354166666666636}, 0.14583333333333384], CircleBox[{-7.0736842105263165, 10.369113573407192}, 0.1308864265927979], CircleBox[{-4.432401597261839, 2.347974900171138}, 0.04791785510553345], CircleBox[{-4.459049544994937, 2.2560667340748157}, 0.04777553083923133], CircleBox[{-4.3654266958424515, 2.2516411378555814}, 0.04595185995623635], CircleBox[{-4.768558951965069, 2.842794759825331}, 0.09170305676855907], CircleBox[{-4.969837587006961, 2.8381670533642707}, 0.1096287703016242], CircleBox[{-4.8554913294797695, 3.0104046242774585}, 0.09710982658959544], CircleBox[{-4.9411764705882355, 3.1911764705882373}, 0.1029411764705883], CircleBox[{-4.091690544412607, 1.8653295128939855}, 0.06017191977077384], CircleBox[{-4.013651877133108, 1.7774744027303773}, 0.057337883959044454], CircleBox[{-4.1340941512125555, 1.745007132667621}, 0.06740370898716141], CircleBox[{-3.9375000000000004, 1.6953125000000009}, 0.05468750000000003], CircleBox[{-4.712041884816756, 2.04581151832461}, 0.035340314136125824], CircleBox[{-4.778067885117496, 2.0365535248041793}, 0.03133159268929526], CircleBox[{-4.7242380261248185, 1.981132075471701}, 0.03047895500725694], CircleBox[{-5.101952277657268, 2.1409978308026045}, 0.04555314533622596], CircleBox[{-5.175866495507063, 2.217265725288836}, 0.060654685494223544], CircleBox[{-5.185185185185189, 2.1155555555555585}, 0.041481481481481536], CircleBox[{-4.626506024096382, 1.6987951807228763}, 0.03614457831325295], CircleBox[{-4.564346997140133, 1.646568160152526}, 0.0450428979980935], CircleBox[{-4.6400000000000015, 1.6319999999999992}, 0.032000000000000056], CircleBox[{-3.0165745856353596, 0.812154696132597}, 0.11602209944751386], CircleBox[{-3.230769230769231, 0.9423076923076926}, 0.13461538461538466], CircleBox[{-2.8, 0.3733333333333334}, 0.3733333333333334], CircleBox[{-3.2307692307692317, 0.6623076923076924}, 0.14538461538461542], CircleBox[{-5.471559633027525, 1.3486238532110097}, 0.19266055045871566], CircleBox[{-5.148387096774195, 1.1854838709677427}, 0.16935483870967752], CircleBox[{-5.600000000000002, 0.5833333333333337}, 0.5833333333333337], CircleBox[{-11.863291139240511, 7.443037974683549}, 0.1518987341772154], CircleBox[{-11.713494809688612, 7.7205882352940955}, 0.16349480968858063], CircleBox[{-12.027272727272731, 7.795454545454547}, 0.15909090909090912], CircleBox[{-12.027272727272731, 7.576704545454545}, 0.059659090909090905], CircleBox[{-11.405504587155958, 5.972477064220192}, 0.19266055045871588], CircleBox[{-11.027488151658776, 5.797393364928901}, 0.2239336492890992], CircleBox[{-11.380645161290328, 5.599999999999999}, 0.18064516129032254], CircleBox[{-11.380645161290326, 5.25}, 0.1693548387096774], CircleBox[{-13.147826086956526, 9.434782608695647}, 0.30434782608695693], CircleBox[{-13.630188679245283, 9.826415094339628}, 0.316981132075472], CircleBox[{-12.981818181818182, 10.109504132231404}, 0.39049586776859546], CircleBox[{-14.175000000000004, 10.171875000000004}, 0.3281250000000001], CircleBox[{-10.568545994065282, 8.116468842729978}, 0.14020771513353178], CircleBox[{-10.324229074889876, 8.017621145374434}, 0.1233480176211459], CircleBox[{-10.39756097560976, 8.323170731707329}, 0.12804878048780505], CircleBox[{-10.397560975609759, 8.15910823170732}, 0.03601371951219509], CircleBox[{-9.65106382978724, 7.000000000000015}, 0.14893617021276737], CircleBox[{-9.664864864864867, 6.668918918918918}, 0.18243243243243262], CircleBox[{-9.407999999999998, 6.854400000000003}, 0.13440000000000005], CircleBox[{-9.408, 6.644400000000001}, 0.07559999999999999], CircleBox[{-10.146534653465368, 9.772277227722729}, 0.2079207920792085], CircleBox[{-10.338461538461546, 10.22041420118343}, 0.27958579881656853], CircleBox[{-9.882352941176478, 10.079999999999986}, 0.1976470588235296], CircleBox[{-9.975000000000003, 10.381875000000004}, 0.11812499999999998], CircleBox[{-11.980327868852463, 2.409836065573772}, 0.34426229508196743], CircleBox[{-12.378947368421057, 1.9342105263157907}, 0.2763157894736844], CircleBox[{-11.760000000000003, 1.7220000000000004}, 0.3780000000000001], CircleBox[{-12.600000000000003, 0.8400000000000005}, 0.8400000000000005], CircleBox[{-22.800000000000004, 7.}], CircleBox[{-22.050000000000004, 9.187500000000002}, 1.3125000000000002], CircleBox[{-25.200000000000006, 3.36}, 3.36], CircleBox[{-25.200000000000006, 8.61}, 1.8900000000000001], CircleBox[{11.845576407506744, 7.150134048257273}, 0.05630026809651638], CircleBox[{11.81694915254237, 7.249501495513493}, 0.04710867397806483], CircleBox[{11.897276264591435, 7.226977950713346}, 0.03631647211413742], CircleBox[{12.259459459459432, 8.009009009008993}, 0.06306306306306429], CircleBox[{12.22830099384765, 7.9110269758636935}, 0.03975390440132546], CircleBox[{12.153778751369105, 7.964129244249777}, 0.05175246440306797], CircleBox[{11.458959537572204, 7.823410404624255}, 0.05462427745665021], CircleBox[{11.51523178807953, 7.750993377483366}, 0.037086092715230445], CircleBox[{11.549999999999988, 7.837499999999969}, 0.03750000000000181], CircleBox[{11.93802315227071, 7.6186553873552985}, 0.03895814781834371], CircleBox[{11.586430223592897, 6.282189668465718}, 0.06476484194294616], CircleBox[{11.494214876033078, 6.204545454545375}, 0.055785123966938265], CircleBox[{11.577202072538839, 6.141623488773776}, 0.048359240069084854], CircleBox[{11.550000000000008, 5.804166666666669}, 0.029166666666666844], CircleBox[{11.501056556867626, 5.7720633934120595}, 0.029366065879428416], CircleBox[{11.192291810048157, 6.044907088781858}, 0.03251892635925721], CircleBox[{11.133676622039143, 6.02677651905252}, 0.028836251287332634], CircleBox[{10.79999999999997, 5.950000000000033}, 0.05000000000000085], CircleBox[{10.676386687797121, 5.932250396196532}, 0.07488114104596015], CircleBox[{10.770297029702986, 5.863366336633651}, 0.0415841584158419], CircleBox[{11.499029126213602, 4.825242718446599}, 0.06796116504854376], CircleBox[{11.520887245841037, 4.929759704251389}, 0.03881700554528657], CircleBox[{11.431578947368422, 4.922932330827071}, 0.05075187969924818], CircleBox[{11.483544303797473, 5.032911392405064}, 0.07088607594936716], CircleBox[{11.5185628742515, 5.39880239520958}, 0.03353293413173652], CircleBox[{11.0562866000689, 5.514640027557698}, 0.06028246641405441], CircleBox[{11.155852965441381, 5.557521312677609}, 0.04812540104500868], CircleBox[{11.175809935205185, 5.416306695464364}, 0.09449244060475158], CircleBox[{13.088870008496166, 9.06372132540358}, 0.07136788445199733], CircleBox[{12.942114384748754, 9.107885615251321}, 0.0818890814558031], CircleBox[{12.931578947368406, 8.934210526315814}, 0.09210526315789543], CircleBox[{13.049999999999997, 8.968750000000004}, 0.03125000000000011], CircleBox[{13.496629213483144, 9.39101123595505}, 0.047191011235955406], CircleBox[{13.496629213483155, 9.486465781409605}, 0.048263534218590164], CircleBox[{13.569230769230773, 9.43776223776224}, 0.03916083916083917], CircleBox[{13.630188679245288, 9.476415094339623}, 0.03301886792452833], CircleBox[{12.84381161007666, 9.620208105147867}, 0.051752464403067515], CircleBox[{12.909985528219979, 9.684515195369054}, 0.04052098408104199], CircleBox[{12.80442477876105, 9.710176991150439}, 0.04646017699115113], CircleBox[{13.221524663677126, 9.76233183856503}, 0.03139013452914851], CircleBox[{13.286692015209125, 9.745437262357415}, 0.035931558935361374], CircleBox[{12.51428571428585, 10.200000000000019}, 0.08571428571427932], CircleBox[{12.378947368421052, 10.369113573407226}, 0.13088642659279817], CircleBox[{12.581659388646306, 10.344104803493465}, 0.07336244541484656], CircleBox[{12.534374999999997, 10.453857421874982}, 0.04614257812500037], CircleBox[{13.959420289855075, 9.705314009661839}, 0.03381642512077299], CircleBox[{13.973884077281815, 9.768987341772156}, 0.03147901399067291], CircleBox[{14.060869565217395, 9.800000000000004}, 0.060869565217391376], CircleBox[{14.868965517241381, 10.218390804597703}, 0.08045977011494258], CircleBox[{15.050000000000002, 10.354166666666673}, 0.14583333333333354], CircleBox[{14.64615384615385, 10.194871794871798}, 0.14358974358974366], CircleBox[{14.800000000000004, 10.392857142857146}, 0.10714285714285718], CircleBox[{13.4535552193646, 10.191124558749372}, 0.08825012607160873], CircleBox[{13.40294117647059, 10.386461937716263}, 0.11353806228373714], CircleBox[{13.688888888888894, 10.319958847736629}, 0.18004115226337467], CircleBox[{10.719079730265793, 8.030146767155879}, 0.0333201110670391], CircleBox[{10.799999999999914, 8.050000000000079}, 0.04999999999998863], CircleBox[{10.742307692307723, 8.11057692307691}, 0.03365384615384737], CircleBox[{10.173134328358236, 7.8358208955223185}, 0.04477611940298933], CircleBox[{10.244891391793974, 7.877111826226956}, 0.03801287208367122], CircleBox[{10.185826771653652, 7.908250599109864}, 0.02875727490585576], CircleBox[{10.338461538461578, 8.566433566433513}, 0.048951048951025755], CircleBox[{10.38889852558534, 8.491977450130214}, 0.04098005203816217], CircleBox[{10.317089305402586, 8.489525909591938}, 0.03087100330760623], CircleBox[{10.266241965758491, 8.159433479324289}, 0.02986178260622274], CircleBox[{10.279605866177825, 8.217862053162241}, 0.030075618698441862], CircleBox[{10.328771795701138, 8.175637331294666}, 0.03473345290952399], CircleBox[{9.85785123966938, 6.551652892562011}, 0.043388429752068386], CircleBox[{9.888607594936726, 6.446202531645592}, 0.06645569620253095], CircleBox[{9.799999999999978, 6.497435897435917}, 0.03589743589743637], CircleBox[{9.767801287948574, 7.152943882244733}, 0.04346826126955173], CircleBox[{9.779179060083354, 7.245687091017324}, 0.049970255800118844], CircleBox[{9.69259096887336, 7.181060938185056}, 0.03682595352915585], CircleBox[{9.08416289592758, 6.7466063348416405}, 0.09502262443439022], CircleBox[{9.212903225806444, 6.835777126099713}, 0.061583577712610284], CircleBox[{9.256529516994632, 6.696332737030416}, 0.0845259391771022], CircleBox[{10.33846153846154, 9.911590671771652}, 0.029237730595197086], CircleBox[{10.37726180944755, 9.856885508406721}, 0.03783026421136682], CircleBox[{10.41764705882355, 9.916666666666622}, 0.03431372549019625], CircleBox[{10.683495145631097, 10.262135922330055}, 0.06796116504854444], CircleBox[{10.636177474402716, 10.378156996587036}, 0.05733788395904526], CircleBox[{10.80000000000003, 10.39285714285711}, 0.10714285714285932], CircleBox[{10.565625000000024, 10.453857421874956}, 0.04614257812500024], CircleBox[{10.21982864137091, 9.516829865360917}, 0.05783353733170353], CircleBox[{10.113190005810562, 9.517722254503195}, 0.048808832074374676], CircleBox[{10.18888888888898, 9.398148148148103}, 0.06481481481481857], CircleBox[{9.90984308131245, 9.796005706134038}, 0.029957203994294607], CircleBox[{9.922807017543848, 9.855263157894736}, 0.030701754385965303], CircleBox[{10.114111675126908, 10.434761421319802}, 0.0307005076142132], CircleBox[{9.610480349344972, 10.179039301310011}, 0.09170305676855912], CircleBox[{9.449999999999989, 10.354166666666636}, 0.14583333333333384], CircleBox[{9.726315789473688, 10.369113573407192}, 0.1308864265927979], CircleBox[{12.367598402738166, 2.347974900171138}, 0.04791785510553345], CircleBox[{12.340950455005068, 2.2560667340748157}, 0.04777553083923133], CircleBox[{12.434573304157553, 2.2516411378555814}, 0.04595185995623635], CircleBox[{12.031441048034935, 2.842794759825331}, 0.09170305676855907], CircleBox[{11.830162412993042, 2.8381670533642707}, 0.1096287703016242], CircleBox[{11.944508670520234, 3.0104046242774585}, 0.09710982658959544], CircleBox[{11.858823529411769, 3.1911764705882373}, 0.1029411764705883], CircleBox[{12.708309455587397, 1.8653295128939855}, 0.06017191977077384], CircleBox[{12.786348122866897, 1.7774744027303773}, 0.057337883959044454], CircleBox[{12.66590584878745, 1.745007132667621}, 0.06740370898716141], CircleBox[{12.862500000000004, 1.6953125000000009}, 0.05468750000000003], CircleBox[{12.087958115183246, 2.04581151832461}, 0.035340314136125824], CircleBox[{12.02193211488251, 2.0365535248041793}, 0.03133159268929526], CircleBox[{12.075761973875187, 1.981132075471701}, 0.03047895500725694], CircleBox[{11.698047722342736, 2.1409978308026045}, 0.04555314533622596], CircleBox[{11.62413350449294, 2.217265725288836}, 0.060654685494223544], CircleBox[{11.614814814814816, 2.1155555555555585}, 0.041481481481481536], CircleBox[{12.173493975903623, 1.6987951807228763}, 0.03614457831325295], CircleBox[{12.23565300285987, 1.646568160152526}, 0.0450428979980935], CircleBox[{12.160000000000004, 1.6319999999999992}, 0.032000000000000056], CircleBox[{13.783425414364645, 0.812154696132597}, 0.11602209944751386], CircleBox[{13.569230769230773, 0.9423076923076926}, 0.13461538461538466], CircleBox[{14.000000000000004, 0.3733333333333334}, 0.3733333333333334], CircleBox[{13.569230769230774, 0.6623076923076924}, 0.14538461538461542], CircleBox[{11.328440366972481, 1.3486238532110097}, 0.19266055045871566], CircleBox[{11.65161290322581, 1.1854838709677427}, 0.16935483870967752], CircleBox[{11.200000000000001, 0.5833333333333337}, 0.5833333333333337], CircleBox[{21.7367088607595, 7.443037974683549}, 0.1518987341772154], CircleBox[{21.886505190311397, 7.7205882352940955}, 0.16349480968858063], CircleBox[{21.57272727272728, 7.795454545454547}, 0.15909090909090912], CircleBox[{21.572727272727278, 7.576704545454545}, 0.059659090909090905], CircleBox[{22.19449541284405, 5.972477064220192}, 0.19266055045871588], CircleBox[{22.572511848341232, 5.797393364928901}, 0.2239336492890992], CircleBox[{22.21935483870968, 5.599999999999999}, 0.18064516129032254], CircleBox[{22.219354838709684, 5.25}, 0.1693548387096774], CircleBox[{20.452173913043485, 9.434782608695647}, 0.30434782608695693], CircleBox[{19.969811320754722, 9.826415094339628}, 0.316981132075472], CircleBox[{20.618181818181828, 10.109504132231404}, 0.39049586776859546], CircleBox[{19.425000000000004, 10.171875000000004}, 0.3281250000000001], CircleBox[{23.03145400593473, 8.116468842729978}, 0.14020771513353178], CircleBox[{23.275770925110134, 8.017621145374434}, 0.1233480176211459], CircleBox[{23.20243902439025, 8.323170731707329}, 0.12804878048780505], CircleBox[{23.202439024390248, 8.15910823170732}, 0.03601371951219509], CircleBox[{23.948936170212775, 7.000000000000015}, 0.14893617021276737], CircleBox[{23.93513513513514, 6.668918918918918}, 0.18243243243243262], CircleBox[{24.192000000000007, 6.854400000000003}, 0.13440000000000005], CircleBox[{24.192000000000007, 6.644400000000001}, 0.07559999999999999], CircleBox[{23.453465346534642, 9.772277227722729}, 0.2079207920792085], CircleBox[{23.261538461538468, 10.22041420118343}, 0.27958579881656853], CircleBox[{23.717647058823527, 10.079999999999986}, 0.1976470588235296], CircleBox[{23.625000000000007, 10.381875000000004}, 0.11812499999999998], CircleBox[{21.619672131147546, 2.409836065573772}, 0.34426229508196743], CircleBox[{21.221052631578953, 1.9342105263157907}, 0.2763157894736844], CircleBox[{21.840000000000003, 1.7220000000000004}, 0.3780000000000001], CircleBox[{21.000000000000007, 0.8400000000000005}, 0.8400000000000005], CircleBox[{27.60000000000001, 7.}], CircleBox[{28.350000000000005, 9.187500000000002}, 1.3125000000000002], CircleBox[{33.60000000000001, 5.250000000000002}, 5.250000000000002], CircleBox[{4.79999999999878, 10.461428571428486}, 0.03857142857140802], CircleBox[{1.049999999999986, 10.447500000000003}, 0.0525000000000005], CircleBox[{1.1876606683804591, 10.408226221079707}, 0.04318766066838069], CircleBox[{1.1351351351351275, 10.465485756026315}, 0.03451424397370365], CircleBox[{1.4237288135593205, 10.462295317437531}, 0.03770468256248218], CircleBox[{2.8474576271186454, 10.462295317437523}, 0.03770468256248208], CircleBox[{7.994202898550931, 6.72946859903388}, 0.033816425120780376], CircleBox[{5.675675675675591, 10.465485756026272}, 0.034514243973703514], CircleBox[{7.704827586206805, 10.398620689655045}, 0.028965517241378073], CircleBox[{7.769999999999837, 10.447499999999854}, 0.052499999999994704], CircleBox[{7.6799999999999295, 10.461428571428465}, 0.03857142857142747], CircleBox[{5.009979113483408, 3.305465305175218}, 0.03045950336504996], CircleBox[{1.7855822550831797, 0.27171903881700565}, 0.038817005545286526], CircleBox[{1.8629032258064522, 0.29637096774193566}, 0.04233870967741938], CircleBox[{1.6800000000000002, 0.13440000000000005}, 0.13440000000000005], CircleBox[{1.8439024390243905, 0.21000000000000002}, 0.04609756097560976], CircleBox[{2.4101867572156204, 0.2495755517826826}, 0.03565365025466894], CircleBox[{2.342307692307693, 0.23557692307692316}, 0.033653846153846166], CircleBox[{2.4000000000000004, 0.10714285714285719}, 0.10714285714285719], CircleBox[{3.150000000000001, 0.05250000000000004}, 0.05250000000000004], CircleBox[{3.600000000000001, 0.21000000000000008}, 0.03000000000000001], CircleBox[{3.6000000000000005, 0.06857142857142857}, 0.06857142857142857], CircleBox[{3.645283018867925, 0.16245283018867926}, 0.03566037735849057], CircleBox[{6.23125386040766, 0.7555589870290305}, 0.029184681902408905], CircleBox[{5.999999999999999, 0.06857142857142857}, 0.06857142857142857], CircleBox[{6.073846153846158, 0.13246153846153855}, 0.029076923076923094], CircleBox[{6.590769230769233, 0.45230769230769263}, 0.06461538461538466], CircleBox[{6.510000000000004, 0.3675000000000005}, 0.05250000000000007], CircleBox[{6.72, 0.2100000000000002}, 0.2100000000000002], CircleBox[{5.250000000000002, 0.05250000000000005}, 0.05250000000000005], CircleBox[{4.893088857545841, 0.2073342736248237}, 0.029619181946403388], CircleBox[{4.839735099337751, 0.24337748344370874}, 0.03476821192052982], CircleBox[{4.800000000000001, 0.10714285714285719}, 0.10714285714285719], CircleBox[{-4.971190558833787, 7.026726830961505}, 0.02915654286706547], CircleBox[{-4.442307692307661, 8.110576923077176}, 0.033653846153853806], CircleBox[{-5.153374233128834, 6.409509202453814}, 0.03220858895705228], CircleBox[{-6.255319148936489, 5.994680851064083}, 0.03723404255320326], CircleBox[{-5.298943443132389, 4.727936606587954}, 0.029366065879428242], CircleBox[{-5.250000000000014, 4.695833333333346}, 0.029166666666666747], CircleBox[{-5.250000000000013, 4.6302083333333455}, 0.036458333333333426], CircleBox[{-5.433722163308588, 5.034729586426296}, 0.04639448568398731], CircleBox[{-3.962264150943434, 8.761006289308192}, 0.04402515723270549], CircleBox[{-3.9497487437187617, 8.837939698492326}, 0.03391959798995454], CircleBox[{-4.590163934425977, 10.366120218579258}, 0.0382513661202143], CircleBox[{-4.570356472795446, 10.433020637898679}, 0.031519699812382285], CircleBox[{-4.666666666666564, 10.4351851851852}, 0.06481481481481308], CircleBox[{-4.127781931105834, 10.394329748691701}, 0.030191500373798794], CircleBox[{-4.083333333333282, 10.454989711934143}, 0.04501028806584203], CircleBox[{-4.173913043478248, 10.45442884147988}, 0.04557115852011841], CircleBox[{-2.816852966466037, 9.860490111779882}, 0.03761822871883065], CircleBox[{-1.555555555555556, 10.318518518518538}, 0.051851851851852065], CircleBox[{-1.4482758620689604, 10.363218390804596}, 0.06436781609195429], CircleBox[{-1.5555555555555534, 10.435185185185203}, 0.0648148148148151], CircleBox[{-1.3124999999999953, 10.41796875}, 0.08203125000000029], CircleBox[{-2.2871287128712883, 10.021782178217828}, 0.04158415841584163], CircleBox[{-2.1418877236273914, 10.374048940982936}, 0.03598601686201934], CircleBox[{-2.1388888888888897, 10.454989711934163}, 0.04501028806584365], CircleBox[{-2.270270270270271, 10.404127100073051}, 0.09587289992695407], CircleBox[{-3.5183246073298444, 10.467620131027118}, 0.03237986897289003], CircleBox[{-2.982783357245337, 10.153515064562411}, 0.03012912482065999], CircleBox[{-2.9081786251881607, 10.410436527847475}, 0.042147516307074785], CircleBox[{-6.812454742939702, 6.360065170166404}, 0.03421433743665144], CircleBox[{-7.836871508379934, 6.775139664804527}, 0.029329608938548777], CircleBox[{-7.841711229946573, 6.709893048128373}, 0.03609625668449325], CircleBox[{-7.896000000000131, 6.753600000000033}, 0.03360000000000199], CircleBox[{-5.860465116279093, 10.386046511627862}, 0.03255813953487727], CircleBox[{-5.7931034482758035, 10.4438168846609}, 0.056183115338883094], CircleBox[{-6.157068062827201, 10.467620131027159}, 0.032379868972890385], CircleBox[{-6.591928251120985, 9.260089686098446}, 0.03139013452913585], CircleBox[{-7.540298507462556, 10.343283582089525}, 0.04477611940297896], CircleBox[{-7.531034482758647, 10.443816884661107}, 0.05618311533888256], CircleBox[{-7.62461538461533, 10.390153846153785}, 0.051692307692306684], CircleBox[{-7.612500000000016, 10.470468750000022}, 0.029531250000000734], CircleBox[{-5.072609633357316, 2.691049604601031}, 0.03396836808051843], CircleBox[{-4.993006993006991, 3.4755244755244736}, 0.048951048951049], CircleBox[{-5.005181347150262, 3.392487046632129}, 0.03497409326424877], CircleBox[{-4.941176470588237, 3.3411764705882394}, 0.04705882352941186], CircleBox[{-5.030452776576689, 2.9666440175427753}, 0.032429427388967806], CircleBox[{-5.001215066828677, 3.0470838396111812}, 0.05315917375455651], CircleBox[{-4.021577882670263, 1.6909979770735002}, 0.029501011463250196], CircleBox[{-5.271724137931046, 2.0565517241379374}, 0.02896551724137968], CircleBox[{-2.877435575109993, 0.7688560653676929}, 0.029698302954116896], CircleBox[{-3.280135823429541, 1.1052631578947376}, 0.035653650254669024], CircleBox[{-3.3377483443708624, 1.1496688741721863}, 0.03708609271523183], CircleBox[{-3.349693251533742, 1.0720858895705532}, 0.04141104294478536], CircleBox[{-3.3970588235294126, 1.196691176470589}, 0.03860294117647061], CircleBox[{-2.372093023255814, 0.4883720930232561}, 0.06976744186046516], CircleBox[{-2.2500000000000004, 0.4375000000000003}, 0.06250000000000004], CircleBox[{-2.3520000000000003, 0.34440000000000004}, 0.07560000000000001], CircleBox[{-2.1000000000000005, 0.21000000000000013}, 0.21000000000000013], CircleBox[{-3.2307692307692313, 0.4523076923076923}, 0.06461538461538462], CircleBox[{-3.360000000000001, 0.49000000000000016}, 0.07000000000000002], CircleBox[{-3.360000000000001, 0.21000000000000013}, 0.21000000000000013], CircleBox[{-5.651756007393716, 1.203327171903885}, 0.03881700554528661], CircleBox[{-5.7021897810219, 1.2755474452554727}, 0.04927007299270067], CircleBox[{-5.728146453089247, 1.1917620137299771}, 0.038443935926773455], CircleBox[{-5.801438848920864, 1.170863309352518}, 0.03776978417266187], CircleBox[{-5.134039334341909, 0.9848714069591535}, 0.031770045385779204], CircleBox[{-5.097307001795333, 0.9350089766606832}, 0.030161579892280115], CircleBox[{-5.0646053702196925, 0.9953213995117994}, 0.03844589096826698], CircleBox[{-5.421939586645469, 1.5691573926868054}, 0.03338632750397483], CircleBox[{-5.497341888175988, 1.5831805682859783}, 0.043308890925756294], CircleBox[{-5.440000000000003, 1.6320000000000043}, 0.032000000000000084], CircleBox[{-4.962233651726674, 1.2691036002939016}, 0.03471711976487883], CircleBox[{-6.272489082969436, 0.6419213973799133}, 0.09170305676855904], CircleBox[{-6.244736842105265, 0.4835526315789478}, 0.06907894736842111], CircleBox[{-6.423529411764706, 0.5064705882352941}, 0.11117647058823531], CircleBox[{-6.300000000000002, 0.21000000000000016}, 0.21000000000000016], CircleBox[{-5.032835820895523, 0.3134328358208956}, 0.044776119402985086], CircleBox[{-4.9846153846153864, 0.40384615384615397}, 0.05769230769230771], CircleBox[{-5.040000000000002, 0.13440000000000002}, 0.13440000000000002], CircleBox[{-4.924137931034484, 0.296896551724138}, 0.06517241379310346], CircleBox[{-11.845576407506744, 7.150134048257273}, 0.05630026809651638], CircleBox[{-11.81694915254237, 7.249501495513493}, 0.04710867397806483], CircleBox[{-11.897276264591435, 7.226977950713346}, 0.03631647211413742], CircleBox[{-12.259459459459432, 8.009009009008993}, 0.06306306306306429], CircleBox[{-12.22830099384765, 7.9110269758636935}, 0.03975390440132546], CircleBox[{-12.153778751369105, 7.964129244249777}, 0.05175246440306797], CircleBox[{-11.458959537572204, 7.823410404624255}, 0.05462427745665021], CircleBox[{-11.51523178807953, 7.750993377483366}, 0.037086092715230445], CircleBox[{-11.549999999999988, 7.837499999999969}, 0.03750000000000181], CircleBox[{-11.93802315227071, 7.6186553873552985}, 0.03895814781834371], CircleBox[{-11.586430223592897, 6.282189668465718}, 0.06476484194294616], CircleBox[{-11.494214876033078, 6.204545454545375}, 0.055785123966938265], CircleBox[{-11.577202072538839, 6.141623488773776}, 0.048359240069084854], CircleBox[{-11.550000000000008, 5.804166666666669}, 0.029166666666666844], CircleBox[{-11.501056556867626, 5.7720633934120595}, 0.029366065879428416], CircleBox[{-11.192291810048157, 6.044907088781858}, 0.03251892635925721], CircleBox[{-11.133676622039143, 6.02677651905252}, 0.028836251287332634], CircleBox[{-10.79999999999997, 5.950000000000033}, 0.05000000000000085], CircleBox[{-10.676386687797121, 5.932250396196532}, 0.07488114104596015], CircleBox[{-10.770297029702986, 5.863366336633651}, 0.0415841584158419], CircleBox[{-11.499029126213602, 4.825242718446599}, 0.06796116504854376], CircleBox[{-11.520887245841037, 4.929759704251389}, 0.03881700554528657], CircleBox[{-11.431578947368422, 4.922932330827071}, 0.05075187969924818], CircleBox[{-11.483544303797473, 5.032911392405064}, 0.07088607594936716], CircleBox[{-11.5185628742515, 5.39880239520958}, 0.03353293413173652], CircleBox[{-11.0562866000689, 5.514640027557698}, 0.06028246641405441], CircleBox[{-11.155852965441381, 5.557521312677609}, 0.04812540104500868], CircleBox[{-11.175809935205185, 5.416306695464364}, 0.09449244060475158], CircleBox[{-13.088870008496166, 9.06372132540358}, 0.07136788445199733], CircleBox[{-12.942114384748754, 9.107885615251321}, 0.0818890814558031], CircleBox[{-12.931578947368406, 8.934210526315814}, 0.09210526315789543], CircleBox[{-13.049999999999997, 8.968750000000004}, 0.03125000000000011], CircleBox[{-13.496629213483144, 9.39101123595505}, 0.047191011235955406], CircleBox[{-13.496629213483155, 9.486465781409605}, 0.048263534218590164], CircleBox[{-13.569230769230773, 9.43776223776224}, 0.03916083916083917], CircleBox[{-13.630188679245288, 9.476415094339623}, 0.03301886792452833], CircleBox[{-12.84381161007666, 9.620208105147867}, 0.051752464403067515], CircleBox[{-12.909985528219979, 9.684515195369054}, 0.04052098408104199], CircleBox[{-12.80442477876105, 9.710176991150439}, 0.04646017699115113], CircleBox[{-13.221524663677126, 9.76233183856503}, 0.03139013452914851], CircleBox[{-13.286692015209125, 9.745437262357415}, 0.035931558935361374], CircleBox[{-12.51428571428585, 10.200000000000019}, 0.08571428571427932], CircleBox[{-12.378947368421052, 10.369113573407226}, 0.13088642659279817], CircleBox[{-12.581659388646306, 10.344104803493465}, 0.07336244541484656], CircleBox[{-12.534374999999997, 10.453857421874982}, 0.04614257812500037], CircleBox[{-13.959420289855075, 9.705314009661839}, 0.03381642512077299], CircleBox[{-13.973884077281815, 9.768987341772156}, 0.03147901399067291], CircleBox[{-14.060869565217395, 9.800000000000004}, 0.060869565217391376], CircleBox[{-14.868965517241381, 10.218390804597703}, 0.08045977011494258], CircleBox[{-15.050000000000002, 10.354166666666673}, 0.14583333333333354], CircleBox[{-14.64615384615385, 10.194871794871798}, 0.14358974358974366], CircleBox[{-14.800000000000004, 10.392857142857146}, 0.10714285714285718], CircleBox[{-13.4535552193646, 10.191124558749372}, 0.08825012607160873], CircleBox[{-13.40294117647059, 10.386461937716263}, 0.11353806228373714], CircleBox[{-13.688888888888894, 10.319958847736629}, 0.18004115226337467], CircleBox[{-10.719079730265793, 8.030146767155879}, 0.0333201110670391], CircleBox[{-10.799999999999914, 8.050000000000079}, 0.04999999999998863], CircleBox[{-10.742307692307723, 8.11057692307691}, 0.03365384615384737], CircleBox[{-10.173134328358236, 7.8358208955223185}, 0.04477611940298933], CircleBox[{-10.244891391793974, 7.877111826226956}, 0.03801287208367122], CircleBox[{-10.185826771653652, 7.908250599109864}, 0.02875727490585576], CircleBox[{-10.338461538461578, 8.566433566433513}, 0.048951048951025755], CircleBox[{-10.38889852558534, 8.491977450130214}, 0.04098005203816217], CircleBox[{-10.317089305402586, 8.489525909591938}, 0.03087100330760623], CircleBox[{-10.266241965758491, 8.159433479324289}, 0.02986178260622274], CircleBox[{-10.279605866177825, 8.217862053162241}, 0.030075618698441862], CircleBox[{-10.328771795701138, 8.175637331294666}, 0.03473345290952399], CircleBox[{-9.85785123966938, 6.551652892562011}, 0.043388429752068386], CircleBox[{-9.888607594936726, 6.446202531645592}, 0.06645569620253095], CircleBox[{-9.799999999999978, 6.497435897435917}, 0.03589743589743637], CircleBox[{-9.767801287948574, 7.152943882244733}, 0.04346826126955173], CircleBox[{-9.779179060083354, 7.245687091017324}, 0.049970255800118844], CircleBox[{-9.69259096887336, 7.181060938185056}, 0.03682595352915585], CircleBox[{-9.08416289592758, 6.7466063348416405}, 0.09502262443439022], CircleBox[{-9.212903225806444, 6.835777126099713}, 0.061583577712610284], CircleBox[{-9.256529516994632, 6.696332737030416}, 0.0845259391771022], CircleBox[{-10.33846153846154, 9.911590671771652}, 0.029237730595197086], CircleBox[{-10.37726180944755, 9.856885508406721}, 0.03783026421136682], CircleBox[{-10.41764705882355, 9.916666666666622}, 0.03431372549019625], CircleBox[{-10.683495145631097, 10.262135922330055}, 0.06796116504854444], CircleBox[{-10.636177474402716, 10.378156996587036}, 0.05733788395904526], CircleBox[{-10.80000000000003, 10.39285714285711}, 0.10714285714285932], CircleBox[{-10.565625000000024, 10.453857421874956}, 0.04614257812500024], CircleBox[{-10.21982864137091, 9.516829865360917}, 0.05783353733170353], CircleBox[{-10.113190005810562, 9.517722254503195}, 0.048808832074374676], CircleBox[{-10.18888888888898, 9.398148148148103}, 0.06481481481481857], CircleBox[{-9.90984308131245, 9.796005706134038}, 0.029957203994294607], CircleBox[{-9.922807017543848, 9.855263157894736}, 0.030701754385965303], CircleBox[{-10.114111675126908, 10.434761421319802}, 0.0307005076142132], CircleBox[{-9.610480349344972, 10.179039301310011}, 0.09170305676855912], CircleBox[{-9.449999999999989, 10.354166666666636}, 0.14583333333333384], CircleBox[{-9.726315789473688, 10.369113573407192}, 0.1308864265927979], CircleBox[{-12.367598402738166, 2.347974900171138}, 0.04791785510553345], CircleBox[{-12.340950455005068, 2.2560667340748157}, 0.04777553083923133], CircleBox[{-12.434573304157553, 2.2516411378555814}, 0.04595185995623635], CircleBox[{-12.031441048034935, 2.842794759825331}, 0.09170305676855907], CircleBox[{-11.830162412993042, 2.8381670533642707}, 0.1096287703016242], CircleBox[{-11.944508670520234, 3.0104046242774585}, 0.09710982658959544], CircleBox[{-11.858823529411769, 3.1911764705882373}, 0.1029411764705883], CircleBox[{-12.708309455587397, 1.8653295128939855}, 0.06017191977077384], CircleBox[{-12.786348122866897, 1.7774744027303773}, 0.057337883959044454], CircleBox[{-12.66590584878745, 1.745007132667621}, 0.06740370898716141], CircleBox[{-12.862500000000004, 1.6953125000000009}, 0.05468750000000003], CircleBox[{-12.087958115183246, 2.04581151832461}, 0.035340314136125824], CircleBox[{-12.02193211488251, 2.0365535248041793}, 0.03133159268929526], CircleBox[{-12.075761973875187, 1.981132075471701}, 0.03047895500725694], CircleBox[{-11.698047722342736, 2.1409978308026045}, 0.04555314533622596], CircleBox[{-11.62413350449294, 2.217265725288836}, 0.060654685494223544], CircleBox[{-11.614814814814816, 2.1155555555555585}, 0.041481481481481536], CircleBox[{-12.173493975903623, 1.6987951807228763}, 0.03614457831325295], CircleBox[{-12.23565300285987, 1.646568160152526}, 0.0450428979980935], CircleBox[{-12.160000000000004, 1.6319999999999992}, 0.032000000000000056], CircleBox[{-13.783425414364645, 0.812154696132597}, 0.11602209944751386], CircleBox[{-13.569230769230773, 0.9423076923076926}, 0.13461538461538466], CircleBox[{-14.000000000000004, 0.3733333333333334}, 0.3733333333333334], CircleBox[{-13.569230769230774, 0.6623076923076924}, 0.14538461538461542], CircleBox[{-11.328440366972481, 1.3486238532110097}, 0.19266055045871566], CircleBox[{-11.65161290322581, 1.1854838709677427}, 0.16935483870967752], CircleBox[{-11.200000000000001, 0.5833333333333337}, 0.5833333333333337], CircleBox[{-21.7367088607595, 7.443037974683549}, 0.1518987341772154], CircleBox[{-21.886505190311397, 7.7205882352940955}, 0.16349480968858063], CircleBox[{-21.57272727272728, 7.795454545454547}, 0.15909090909090912], CircleBox[{-21.572727272727278, 7.576704545454545}, 0.059659090909090905], CircleBox[{-22.19449541284405, 5.972477064220192}, 0.19266055045871588], CircleBox[{-22.572511848341232, 5.797393364928901}, 0.2239336492890992], CircleBox[{-22.21935483870968, 5.599999999999999}, 0.18064516129032254], CircleBox[{-22.219354838709684, 5.25}, 0.1693548387096774], CircleBox[{-20.452173913043485, 9.434782608695647}, 0.30434782608695693], CircleBox[{-19.969811320754722, 9.826415094339628}, 0.316981132075472], CircleBox[{-20.618181818181828, 10.109504132231404}, 0.39049586776859546], CircleBox[{-19.425000000000004, 10.171875000000004}, 0.3281250000000001], CircleBox[{-23.03145400593473, 8.116468842729978}, 0.14020771513353178], CircleBox[{-23.275770925110134, 8.017621145374434}, 0.1233480176211459], CircleBox[{-23.20243902439025, 8.323170731707329}, 0.12804878048780505], CircleBox[{-23.202439024390248, 8.15910823170732}, 0.03601371951219509], CircleBox[{-23.948936170212775, 7.000000000000015}, 0.14893617021276737], CircleBox[{-23.93513513513514, 6.668918918918918}, 0.18243243243243262], CircleBox[{-24.192000000000007, 6.854400000000003}, 0.13440000000000005], CircleBox[{-24.192000000000007, 6.644400000000001}, 0.07559999999999999], CircleBox[{-23.453465346534642, 9.772277227722729}, 0.2079207920792085], CircleBox[{-23.261538461538468, 10.22041420118343}, 0.27958579881656853], CircleBox[{-23.717647058823527, 10.079999999999986}, 0.1976470588235296], CircleBox[{-23.625000000000007, 10.381875000000004}, 0.11812499999999998], CircleBox[{-21.619672131147546, 2.409836065573772}, 0.34426229508196743], CircleBox[{-21.221052631578953, 1.9342105263157907}, 0.2763157894736844], CircleBox[{-21.840000000000003, 1.7220000000000004}, 0.3780000000000001], CircleBox[{-21.000000000000007, 0.8400000000000005}, 0.8400000000000005], CircleBox[{-27.60000000000001, 7.}], CircleBox[{-28.350000000000005, 9.187500000000002}, 1.3125000000000002], CircleBox[{-33.60000000000001, 5.250000000000002}, 5.250000000000002], CircleBox[{11.828809441166214, 7.026726830961505}, 0.02915654286706547], CircleBox[{12.357692307692343, 8.110576923077176}, 0.033653846153853806], CircleBox[{11.646625766871171, 6.409509202453814}, 0.03220858895705228], CircleBox[{10.544680851063514, 5.994680851064083}, 0.03723404255320326], CircleBox[{11.501056556867615, 4.727936606587954}, 0.029366065879428242], CircleBox[{11.549999999999988, 4.695833333333346}, 0.029166666666666747], CircleBox[{11.54999999999999, 4.6302083333333455}, 0.036458333333333426], CircleBox[{11.366277836691415, 5.034729586426296}, 0.04639448568398731], CircleBox[{12.837735849056571, 8.761006289308192}, 0.04402515723270549], CircleBox[{12.850251256281242, 8.837939698492326}, 0.03391959798995454], CircleBox[{12.209836065574025, 10.366120218579258}, 0.0382513661202143], CircleBox[{12.229643527204558, 10.433020637898679}, 0.031519699812382285], CircleBox[{12.133333333333441, 10.4351851851852}, 0.06481481481481308], CircleBox[{12.672218068894171, 10.394329748691701}, 0.030191500373798794], CircleBox[{12.716666666666722, 10.454989711934143}, 0.04501028806584203], CircleBox[{12.626086956521755, 10.45442884147988}, 0.04557115852011841], CircleBox[{13.983147033533966, 9.860490111779882}, 0.03761822871883065], CircleBox[{15.244444444444449, 10.318518518518538}, 0.051851851851852065], CircleBox[{15.351724137931042, 10.363218390804596}, 0.06436781609195429], CircleBox[{15.24444444444445, 10.435185185185203}, 0.0648148148148151], CircleBox[{15.48750000000001, 10.41796875}, 0.08203125000000029], CircleBox[{14.512871287128714, 10.021782178217828}, 0.04158415841584163], CircleBox[{14.658112276372613, 10.374048940982936}, 0.03598601686201934], CircleBox[{14.661111111111117, 10.454989711934163}, 0.04501028806584365], CircleBox[{14.529729729729734, 10.404127100073051}, 0.09587289992695407], CircleBox[{13.28167539267016, 10.467620131027118}, 0.03237986897289003], CircleBox[{13.817216642754667, 10.153515064562411}, 0.03012912482065999], CircleBox[{13.891821374811846, 10.410436527847475}, 0.042147516307074785], CircleBox[{9.987545257060301, 6.360065170166404}, 0.03421433743665144], CircleBox[{8.96312849162007, 6.775139664804527}, 0.029329608938548777], CircleBox[{8.95828877005343, 6.709893048128373}, 0.03609625668449325], CircleBox[{8.903999999999872, 6.753600000000033}, 0.03360000000000199], CircleBox[{10.939534883720912, 10.386046511627862}, 0.03255813953487727], CircleBox[{11.0068965517242, 10.4438168846609}, 0.056183115338883094], CircleBox[{10.642931937172802, 10.467620131027159}, 0.032379868972890385], CircleBox[{10.208071748879021, 9.260089686098446}, 0.03139013452913585], CircleBox[{9.259701492537447, 10.343283582089525}, 0.04477611940297896], CircleBox[{9.268965517241357, 10.443816884661107}, 0.05618311533888256], CircleBox[{9.175384615384674, 10.390153846153785}, 0.051692307692306684], CircleBox[{9.18749999999999, 10.470468750000022}, 0.029531250000000734], CircleBox[{11.72739036664269, 2.691049604601031}, 0.03396836808051843], CircleBox[{11.806993006993014, 3.4755244755244736}, 0.048951048951049], CircleBox[{11.794818652849743, 3.392487046632129}, 0.03497409326424877], CircleBox[{11.858823529411767, 3.3411764705882394}, 0.04705882352941186], CircleBox[{11.769547223423315, 2.9666440175427753}, 0.032429427388967806], CircleBox[{11.798784933171328, 3.0470838396111812}, 0.05315917375455651], CircleBox[{12.778422117329741, 1.6909979770735002}, 0.029501011463250196], CircleBox[{11.528275862068957, 2.0565517241379374}, 0.02896551724137968], CircleBox[{13.922564424890009, 0.7688560653676929}, 0.029698302954116896], CircleBox[{13.519864176570463, 1.1052631578947376}, 0.035653650254669024], CircleBox[{13.462251655629142, 1.1496688741721863}, 0.03708609271523183], CircleBox[{13.450306748466264, 1.0720858895705532}, 0.04141104294478536], CircleBox[{13.402941176470593, 1.196691176470589}, 0.03860294117647061], CircleBox[{14.427906976744191, 0.4883720930232561}, 0.06976744186046516], CircleBox[{14.550000000000002, 0.4375000000000003}, 0.06250000000000004], CircleBox[{14.448000000000002, 0.34440000000000004}, 0.07560000000000001], CircleBox[{14.700000000000003, 0.21000000000000013}, 0.21000000000000013], CircleBox[{13.569230769230773, 0.4523076923076923}, 0.06461538461538462], CircleBox[{13.440000000000001, 0.49000000000000016}, 0.07000000000000002], CircleBox[{13.440000000000003, 0.21000000000000013}, 0.21000000000000013], CircleBox[{11.148243992606288, 1.203327171903885}, 0.03881700554528661], CircleBox[{11.097810218978106, 1.2755474452554727}, 0.04927007299270067], CircleBox[{11.071853546910758, 1.1917620137299771}, 0.038443935926773455], CircleBox[{10.998561151079139, 1.170863309352518}, 0.03776978417266187], CircleBox[{11.665960665658092, 0.9848714069591535}, 0.031770045385779204], CircleBox[{11.702692998204672, 0.9350089766606832}, 0.030161579892280115], CircleBox[{11.735394629780311, 0.9953213995117994}, 0.03844589096826698], CircleBox[{11.378060413354534, 1.5691573926868054}, 0.03338632750397483], CircleBox[{11.302658111824018, 1.5831805682859783}, 0.043308890925756294], CircleBox[{11.360000000000001, 1.6320000000000043}, 0.032000000000000084], CircleBox[{11.837766348273327, 1.2691036002939016}, 0.03471711976487883], CircleBox[{10.527510917030568, 0.6419213973799133}, 0.09170305676855904], CircleBox[{10.55526315789474, 0.4835526315789478}, 0.06907894736842111], CircleBox[{10.3764705882353, 0.5064705882352941}, 0.11117647058823531], CircleBox[{10.500000000000002, 0.21000000000000016}, 0.21000000000000016], CircleBox[{11.767164179104482, 0.3134328358208956}, 0.044776119402985086], CircleBox[{11.815384615384618, 0.40384615384615397}, 0.05769230769230771], CircleBox[{11.760000000000002, 0.13440000000000002}, 0.13440000000000002], CircleBox[{11.875862068965521, 0.296896551724138}, 0.06517241379310346], CircleBox[{21.754423592493268, 7.150134048257273}, 0.05630026809651638], CircleBox[{21.783050847457638, 7.249501495513493}, 0.04710867397806483], CircleBox[{21.702723735408572, 7.226977950713346}, 0.03631647211413742], CircleBox[{21.340540540540577, 8.009009009008993}, 0.06306306306306429], CircleBox[{21.371699006152365, 7.9110269758636935}, 0.03975390440132546], CircleBox[{21.446221248630906, 7.964129244249777}, 0.05175246440306797], CircleBox[{22.141040462427803, 7.823410404624255}, 0.05462427745665021], CircleBox[{22.084768211920476, 7.750993377483366}, 0.037086092715230445], CircleBox[{22.050000000000015, 7.837499999999969}, 0.03750000000000181], CircleBox[{21.6619768477293, 7.6186553873552985}, 0.03895814781834371], CircleBox[{22.01356977640711, 6.282189668465718}, 0.06476484194294616], CircleBox[{22.105785123966932, 6.204545454545375}, 0.055785123966938265], CircleBox[{22.022797927461166, 6.141623488773776}, 0.048359240069084854], CircleBox[{22.050000000000004, 5.804166666666669}, 0.029166666666666844], CircleBox[{22.098943443132384, 5.7720633934120595}, 0.029366065879428416], CircleBox[{22.40770818995185, 6.044907088781858}, 0.03251892635925721], CircleBox[{22.46632337796087, 6.02677651905252}, 0.028836251287332634], CircleBox[{22.800000000000036, 5.950000000000033}, 0.05000000000000085], CircleBox[{22.923613312202885, 5.932250396196532}, 0.07488114104596015], CircleBox[{22.829702970297024, 5.863366336633651}, 0.0415841584158419], CircleBox[{22.10097087378641, 4.825242718446599}, 0.06796116504854376], CircleBox[{22.07911275415897, 4.929759704251389}, 0.03881700554528657], CircleBox[{22.168421052631587, 4.922932330827071}, 0.05075187969924818], CircleBox[{22.11645569620254, 5.032911392405064}, 0.07088607594936716], CircleBox[{22.081437125748504, 5.39880239520958}, 0.03353293413173652], CircleBox[{22.54371339993111, 5.514640027557698}, 0.06028246641405441], CircleBox[{22.444147034558632, 5.557521312677609}, 0.04812540104500868], CircleBox[{22.42419006479482, 5.416306695464364}, 0.09449244060475158], CircleBox[{20.51112999150384, 9.06372132540358}, 0.07136788445199733], CircleBox[{20.657885615251253, 9.107885615251321}, 0.0818890814558031], CircleBox[{20.6684210526316, 8.934210526315814}, 0.09210526315789543], CircleBox[{20.55000000000001, 8.968750000000004}, 0.03125000000000011], CircleBox[{20.103370786516862, 9.39101123595505}, 0.047191011235955406], CircleBox[{20.103370786516855, 9.486465781409605}, 0.048263534218590164], CircleBox[{20.030769230769238, 9.43776223776224}, 0.03916083916083917], CircleBox[{19.969811320754726, 9.476415094339623}, 0.03301886792452833], CircleBox[{20.756188389923345, 9.620208105147867}, 0.051752464403067515], CircleBox[{20.69001447178003, 9.684515195369054}, 0.04052098408104199], CircleBox[{20.79557522123896, 9.710176991150439}, 0.04646017699115113], CircleBox[{20.378475336322886, 9.76233183856503}, 0.03139013452914851], CircleBox[{20.31330798479088, 9.745437262357415}, 0.035931558935361374], CircleBox[{21.08571428571416, 10.200000000000019}, 0.08571428571427932], CircleBox[{21.221052631578956, 10.369113573407226}, 0.13088642659279817], CircleBox[{21.0183406113537, 10.344104803493465}, 0.07336244541484656], CircleBox[{21.065625000000015, 10.453857421874982}, 0.04614257812500037], CircleBox[{19.640579710144934, 9.705314009661839}, 0.03381642512077299], CircleBox[{19.626115922718192, 9.768987341772156}, 0.03147901399067291], CircleBox[{19.539130434782617, 9.800000000000004}, 0.060869565217391376], CircleBox[{18.731034482758623, 10.218390804597703}, 0.08045977011494258], CircleBox[{18.550000000000004, 10.354166666666673}, 0.14583333333333354], CircleBox[{18.95384615384616, 10.194871794871798}, 0.14358974358974366], CircleBox[{18.800000000000004, 10.392857142857146}, 0.10714285714285718], CircleBox[{20.146444780635406, 10.191124558749372}, 0.08825012607160873], CircleBox[{20.197058823529417, 10.386461937716263}, 0.11353806228373714], CircleBox[{19.91111111111112, 10.319958847736629}, 0.18004115226337467], CircleBox[{22.880920269734215, 8.030146767155879}, 0.0333201110670391], CircleBox[{22.800000000000097, 8.050000000000079}, 0.04999999999998863], CircleBox[{22.857692307692282, 8.11057692307691}, 0.03365384615384737], CircleBox[{23.426865671641774, 7.8358208955223185}, 0.04477611940298933], CircleBox[{23.355108608206034, 7.877111826226956}, 0.03801287208367122], CircleBox[{23.41417322834636, 7.908250599109864}, 0.02875727490585576], CircleBox[{23.261538461538432, 8.566433566433513}, 0.048951048951025755], CircleBox[{23.211101474414665, 8.491977450130214}, 0.04098005203816217], CircleBox[{23.282910694597426, 8.489525909591938}, 0.03087100330760623], CircleBox[{23.33375803424152, 8.159433479324289}, 0.02986178260622274], CircleBox[{23.320394133822187, 8.217862053162241}, 0.030075618698441862], CircleBox[{23.271228204298872, 8.175637331294666}, 0.03473345290952399], CircleBox[{23.74214876033063, 6.551652892562011}, 0.043388429752068386], CircleBox[{23.711392405063282, 6.446202531645592}, 0.06645569620253095], CircleBox[{23.80000000000003, 6.497435897435917}, 0.03589743589743637], CircleBox[{23.83219871205144, 7.152943882244733}, 0.04346826126955173], CircleBox[{23.820820939916658, 7.245687091017324}, 0.049970255800118844], CircleBox[{23.90740903112665, 7.181060938185056}, 0.03682595352915585], CircleBox[{24.51583710407243, 6.7466063348416405}, 0.09502262443439022], CircleBox[{24.387096774193566, 6.835777126099713}, 0.061583577712610284], CircleBox[{24.343470483005376, 6.696332737030416}, 0.0845259391771022], CircleBox[{23.261538461538468, 9.911590671771652}, 0.029237730595197086], CircleBox[{23.22273819055246, 9.856885508406721}, 0.03783026421136682], CircleBox[{23.182352941176458, 9.916666666666622}, 0.03431372549019625], CircleBox[{22.91650485436891, 10.262135922330055}, 0.06796116504854444], CircleBox[{22.96382252559729, 10.378156996587036}, 0.05733788395904526], CircleBox[{22.79999999999998, 10.39285714285711}, 0.10714285714285932], CircleBox[{23.034374999999983, 10.453857421874956}, 0.04614257812500024], CircleBox[{23.380171358629095, 9.516829865360917}, 0.05783353733170353], CircleBox[{23.486809994189446, 9.517722254503195}, 0.048808832074374676], CircleBox[{23.411111111111026, 9.398148148148103}, 0.06481481481481857], CircleBox[{23.69015691868756, 9.796005706134038}, 0.029957203994294607], CircleBox[{23.677192982456162, 9.855263157894736}, 0.030701754385965303], CircleBox[{23.485888324873105, 10.434761421319802}, 0.0307005076142132], CircleBox[{23.989519650655037, 10.179039301310011}, 0.09170305676855912], CircleBox[{24.150000000000016, 10.354166666666636}, 0.14583333333333384], CircleBox[{23.873684210526317, 10.369113573407192}, 0.1308864265927979], CircleBox[{21.232401597261845, 2.347974900171138}, 0.04791785510553345], CircleBox[{21.25904954499494, 2.2560667340748157}, 0.04777553083923133], CircleBox[{21.165426695842456, 2.2516411378555814}, 0.04595185995623635], CircleBox[{21.568558951965073, 2.842794759825331}, 0.09170305676855907], CircleBox[{21.769837587006965, 2.8381670533642707}, 0.1096287703016242], CircleBox[{21.655491329479773, 3.0104046242774585}, 0.09710982658959544], CircleBox[{21.74117647058824, 3.1911764705882373}, 0.1029411764705883], CircleBox[{20.89169054441261, 1.8653295128939855}, 0.06017191977077384], CircleBox[{20.813651877133115, 1.7774744027303773}, 0.057337883959044454], CircleBox[{20.93409415121256, 1.745007132667621}, 0.06740370898716141], CircleBox[{20.737500000000008, 1.6953125000000009}, 0.05468750000000003], CircleBox[{21.512041884816757, 2.04581151832461}, 0.035340314136125824], CircleBox[{21.5780678851175, 2.0365535248041793}, 0.03133159268929526], CircleBox[{21.524238026124824, 1.981132075471701}, 0.03047895500725694], CircleBox[{21.901952277657273, 2.1409978308026045}, 0.04555314533622596], CircleBox[{21.97586649550707, 2.217265725288836}, 0.060654685494223544], CircleBox[{21.985185185185195, 2.1155555555555585}, 0.041481481481481536], CircleBox[{21.426506024096387, 1.6987951807228763}, 0.03614457831325295], CircleBox[{21.364346997140135, 1.646568160152526}, 0.0450428979980935], CircleBox[{21.440000000000005, 1.6319999999999992}, 0.032000000000000056], CircleBox[{19.816574585635365, 0.812154696132597}, 0.11602209944751386], CircleBox[{20.030769230769234, 0.9423076923076926}, 0.13461538461538466], CircleBox[{19.600000000000005, 0.3733333333333334}, 0.3733333333333334], CircleBox[{20.030769230769238, 0.6623076923076924}, 0.14538461538461542], CircleBox[{22.27155963302753, 1.3486238532110097}, 0.19266055045871566], CircleBox[{21.9483870967742, 1.1854838709677427}, 0.16935483870967752], CircleBox[{22.400000000000006, 0.5833333333333337}, 0.5833333333333337], CircleBox[{28.663291139240517, 7.443037974683549}, 0.1518987341772154], CircleBox[{28.513494809688616, 7.7205882352940955}, 0.16349480968858063], CircleBox[{28.827272727272735, 7.795454545454547}, 0.15909090909090912], CircleBox[{28.827272727272735, 7.576704545454545}, 0.059659090909090905], CircleBox[{28.205504587155964, 5.972477064220192}, 0.19266055045871588], CircleBox[{27.82748815165878, 5.797393364928901}, 0.2239336492890992], CircleBox[{28.180645161290332, 5.599999999999999}, 0.18064516129032254], CircleBox[{28.180645161290332, 5.25}, 0.1693548387096774], CircleBox[{29.94782608695653, 9.434782608695647}, 0.30434782608695693], CircleBox[{30.430188679245287, 9.826415094339628}, 0.316981132075472], CircleBox[{29.781818181818185, 10.109504132231404}, 0.39049586776859546], CircleBox[{30.97500000000001, 10.171875000000004}, 0.3281250000000001], CircleBox[{27.368545994065286, 8.116468842729978}, 0.14020771513353178], CircleBox[{27.12422907488988, 8.017621145374434}, 0.1233480176211459], CircleBox[{27.19756097560977, 8.323170731707329}, 0.12804878048780505], CircleBox[{27.197560975609765, 8.15910823170732}, 0.03601371951219509], CircleBox[{26.451063829787245, 7.000000000000015}, 0.14893617021276737], CircleBox[{26.46486486486487, 6.668918918918918}, 0.18243243243243262], CircleBox[{26.208000000000002, 6.854400000000003}, 0.13440000000000005], CircleBox[{26.208000000000002, 6.644400000000001}, 0.07559999999999999], CircleBox[{26.946534653465374, 9.772277227722729}, 0.2079207920792085], CircleBox[{27.138461538461552, 10.22041420118343}, 0.27958579881656853], CircleBox[{26.682352941176482, 10.079999999999986}, 0.1976470588235296], CircleBox[{26.77500000000001, 10.381875000000004}, 0.11812499999999998], CircleBox[{28.780327868852467, 2.409836065573772}, 0.34426229508196743], CircleBox[{29.178947368421063, 1.9342105263157907}, 0.2763157894736844], CircleBox[{28.56000000000001, 1.7220000000000004}, 0.3780000000000001], CircleBox[{29.400000000000006, 0.8400000000000005}, 0.8400000000000005], CircleBox[{39.60000000000001, 7.}], CircleBox[{38.85000000000001, 9.187500000000002}, 1.3125000000000002], CircleBox[{42.00000000000001, 3.36}, 3.36], CircleBox[{42.000000000000014, 8.61}, 1.8900000000000001], CircleBox[{0.8750000000000012, 10.463541666666664}, 0.036458333333333384], CircleBox[{1.514754098360656, 0.1411475409836066}, 0.030983606557377058], CircleBox[{1.4000000000000004, 0.0933333333333334}, 0.0933333333333334], CircleBox[{1.8666666666666674, 0.06481481481481485}, 0.06481481481481485], CircleBox[{2.520000000000001, 0.033600000000000026}, 0.033600000000000026], CircleBox[{3.0545454545454547, 0.04338842975206615}, 0.04338842975206615], CircleBox[{3.7333333333333347, 0.06481481481481485}, 0.06481481481481485], CircleBox[{5.880000000000002, 0.033600000000000026}, 0.033600000000000026], CircleBox[{6.109090909090912, 0.043388429752066165}, 0.043388429752066165], CircleBox[{6.960000000000004, 0.28000000000000064}, 0.04000000000000009], CircleBox[{6.959999999999999, 0.2100000000000001}, 0.030000000000000016], CircleBox[{7.03783783783784, 0.2327027027027027}, 0.05108108108108109], CircleBox[{7.0000000000000036, 0.09333333333333345}, 0.09333333333333345], CircleBox[{6.533333333333333, 0.04148148148148147}, 0.04148148148148147], CircleBox[{5.169230769230771, 0.031065088757396477}, 0.031065088757396477], CircleBox[{4.666666666666668, 0.04148148148148149}, 0.04148148148148149], CircleBox[{-4.79999999999878, 10.461428571428486}, 0.03857142857140802], CircleBox[{-1.049999999999986, 10.447500000000003}, 0.0525000000000005], CircleBox[{-1.1876606683804591, 10.408226221079707}, 0.04318766066838069], CircleBox[{-1.1351351351351275, 10.465485756026315}, 0.03451424397370365], CircleBox[{-1.4237288135593205, 10.462295317437531}, 0.03770468256248218], CircleBox[{-2.8474576271186454, 10.462295317437523}, 0.03770468256248208], CircleBox[{-7.994202898550931, 6.72946859903388}, 0.033816425120780376], CircleBox[{-5.675675675675591, 10.465485756026272}, 0.034514243973703514], CircleBox[{-7.704827586206805, 10.398620689655045}, 0.028965517241378073], CircleBox[{-7.769999999999837, 10.447499999999854}, 0.052499999999994704], CircleBox[{-7.6799999999999295, 10.461428571428465}, 0.03857142857142747], CircleBox[{-5.009979113483408, 3.305465305175218}, 0.03045950336504996], CircleBox[{-1.7855822550831797, 0.27171903881700565}, 0.038817005545286526], CircleBox[{-1.8629032258064522, 0.29637096774193566}, 0.04233870967741938], CircleBox[{-1.6800000000000002, 0.13440000000000005}, 0.13440000000000005], CircleBox[{-1.8439024390243905, 0.21000000000000002}, 0.04609756097560976], CircleBox[{-2.4101867572156204, 0.2495755517826826}, 0.03565365025466894], CircleBox[{-2.342307692307693, 0.23557692307692316}, 0.033653846153846166], CircleBox[{-2.4000000000000004, 0.10714285714285719}, 0.10714285714285719], CircleBox[{-3.150000000000001, 0.05250000000000004}, 0.05250000000000004], CircleBox[{-3.600000000000001, 0.21000000000000008}, 0.03000000000000001], CircleBox[{-3.6000000000000005, 0.06857142857142857}, 0.06857142857142857], CircleBox[{-3.645283018867925, 0.16245283018867926}, 0.03566037735849057], CircleBox[{-6.23125386040766, 0.7555589870290305}, 0.029184681902408905], CircleBox[{-5.999999999999999, 0.06857142857142857}, 0.06857142857142857], CircleBox[{-6.073846153846158, 0.13246153846153855}, 0.029076923076923094], CircleBox[{-6.590769230769233, 0.45230769230769263}, 0.06461538461538466], CircleBox[{-6.510000000000004, 0.3675000000000005}, 0.05250000000000007], CircleBox[{-6.72, 0.2100000000000002}, 0.2100000000000002], CircleBox[{-5.250000000000002, 0.05250000000000005}, 0.05250000000000005], CircleBox[{-4.893088857545841, 0.2073342736248237}, 0.029619181946403388], CircleBox[{-4.839735099337751, 0.24337748344370874}, 0.03476821192052982], CircleBox[{-4.800000000000001, 0.10714285714285719}, 0.10714285714285719], CircleBox[{-11.828809441166214, 7.026726830961505}, 0.02915654286706547], CircleBox[{-12.357692307692343, 8.110576923077176}, 0.033653846153853806], CircleBox[{-11.646625766871171, 6.409509202453814}, 0.03220858895705228], CircleBox[{-10.544680851063514, 5.994680851064083}, 0.03723404255320326], CircleBox[{-11.501056556867615, 4.727936606587954}, 0.029366065879428242], CircleBox[{-11.549999999999988, 4.695833333333346}, 0.029166666666666747], CircleBox[{-11.54999999999999, 4.6302083333333455}, 0.036458333333333426], CircleBox[{-11.366277836691415, 5.034729586426296}, 0.04639448568398731], CircleBox[{-12.837735849056571, 8.761006289308192}, 0.04402515723270549], CircleBox[{-12.850251256281242, 8.837939698492326}, 0.03391959798995454], CircleBox[{-12.209836065574025, 10.366120218579258}, 0.0382513661202143], CircleBox[{-12.229643527204558, 10.433020637898679}, 0.031519699812382285], CircleBox[{-12.133333333333441, 10.4351851851852}, 0.06481481481481308], CircleBox[{-12.672218068894171, 10.394329748691701}, 0.030191500373798794], CircleBox[{-12.716666666666722, 10.454989711934143}, 0.04501028806584203], CircleBox[{-12.626086956521755, 10.45442884147988}, 0.04557115852011841], CircleBox[{-13.983147033533966, 9.860490111779882}, 0.03761822871883065], CircleBox[{-15.244444444444449, 10.318518518518538}, 0.051851851851852065], CircleBox[{-15.351724137931042, 10.363218390804596}, 0.06436781609195429], CircleBox[{-15.24444444444445, 10.435185185185203}, 0.0648148148148151], CircleBox[{-15.48750000000001, 10.41796875}, 0.08203125000000029], CircleBox[{-14.512871287128714, 10.021782178217828}, 0.04158415841584163], CircleBox[{-14.658112276372613, 10.374048940982936}, 0.03598601686201934], CircleBox[{-14.661111111111117, 10.454989711934163}, 0.04501028806584365], CircleBox[{-14.529729729729734, 10.404127100073051}, 0.09587289992695407], CircleBox[{-13.28167539267016, 10.467620131027118}, 0.03237986897289003], CircleBox[{-13.817216642754667, 10.153515064562411}, 0.03012912482065999], CircleBox[{-13.891821374811846, 10.410436527847475}, 0.042147516307074785], CircleBox[{-9.987545257060301, 6.360065170166404}, 0.03421433743665144], CircleBox[{-8.96312849162007, 6.775139664804527}, 0.029329608938548777], CircleBox[{-8.95828877005343, 6.709893048128373}, 0.03609625668449325], CircleBox[{-8.903999999999872, 6.753600000000033}, 0.03360000000000199], CircleBox[{-10.939534883720912, 10.386046511627862}, 0.03255813953487727], CircleBox[{-11.0068965517242, 10.4438168846609}, 0.056183115338883094], CircleBox[{-10.642931937172802, 10.467620131027159}, 0.032379868972890385], CircleBox[{-10.208071748879021, 9.260089686098446}, 0.03139013452913585], CircleBox[{-9.259701492537447, 10.343283582089525}, 0.04477611940297896], CircleBox[{-9.268965517241357, 10.443816884661107}, 0.05618311533888256], CircleBox[{-9.175384615384674, 10.390153846153785}, 0.051692307692306684], CircleBox[{-9.18749999999999, 10.470468750000022}, 0.029531250000000734], CircleBox[{-11.72739036664269, 2.691049604601031}, 0.03396836808051843], CircleBox[{-11.806993006993014, 3.4755244755244736}, 0.048951048951049], CircleBox[{-11.794818652849743, 3.392487046632129}, 0.03497409326424877], CircleBox[{-11.858823529411767, 3.3411764705882394}, 0.04705882352941186], CircleBox[{-11.769547223423315, 2.9666440175427753}, 0.032429427388967806], CircleBox[{-11.798784933171328, 3.0470838396111812}, 0.05315917375455651], CircleBox[{-12.778422117329741, 1.6909979770735002}, 0.029501011463250196], CircleBox[{-11.528275862068957, 2.0565517241379374}, 0.02896551724137968], CircleBox[{-13.922564424890009, 0.7688560653676929}, 0.029698302954116896], CircleBox[{-13.519864176570463, 1.1052631578947376}, 0.035653650254669024], CircleBox[{-13.462251655629142, 1.1496688741721863}, 0.03708609271523183], CircleBox[{-13.450306748466264, 1.0720858895705532}, 0.04141104294478536], CircleBox[{-13.402941176470593, 1.196691176470589}, 0.03860294117647061], CircleBox[{-14.427906976744191, 0.4883720930232561}, 0.06976744186046516], CircleBox[{-14.550000000000002, 0.4375000000000003}, 0.06250000000000004], CircleBox[{-14.448000000000002, 0.34440000000000004}, 0.07560000000000001], CircleBox[{-14.700000000000003, 0.21000000000000013}, 0.21000000000000013], CircleBox[{-13.569230769230773, 0.4523076923076923}, 0.06461538461538462], CircleBox[{-13.440000000000001, 0.49000000000000016}, 0.07000000000000002], CircleBox[{-13.440000000000003, 0.21000000000000013}, 0.21000000000000013], CircleBox[{-11.148243992606288, 1.203327171903885}, 0.03881700554528661], CircleBox[{-11.097810218978106, 1.2755474452554727}, 0.04927007299270067], CircleBox[{-11.071853546910758, 1.1917620137299771}, 0.038443935926773455], CircleBox[{-10.998561151079139, 1.170863309352518}, 0.03776978417266187], CircleBox[{-11.665960665658092, 0.9848714069591535}, 0.031770045385779204], CircleBox[{-11.702692998204672, 0.9350089766606832}, 0.030161579892280115], CircleBox[{-11.735394629780311, 0.9953213995117994}, 0.03844589096826698], CircleBox[{-11.378060413354534, 1.5691573926868054}, 0.03338632750397483], CircleBox[{-11.302658111824018, 1.5831805682859783}, 0.043308890925756294], CircleBox[{-11.360000000000001, 1.6320000000000043}, 0.032000000000000084], CircleBox[{-11.837766348273327, 1.2691036002939016}, 0.03471711976487883], CircleBox[{-10.527510917030568, 0.6419213973799133}, 0.09170305676855904], CircleBox[{-10.55526315789474, 0.4835526315789478}, 0.06907894736842111], CircleBox[{-10.3764705882353, 0.5064705882352941}, 0.11117647058823531], CircleBox[{-10.500000000000002, 0.21000000000000016}, 0.21000000000000016], CircleBox[{-11.767164179104482, 0.3134328358208956}, 0.044776119402985086], CircleBox[{-11.815384615384618, 0.40384615384615397}, 0.05769230769230771], CircleBox[{-11.760000000000002, 0.13440000000000002}, 0.13440000000000002], CircleBox[{-11.875862068965521, 0.296896551724138}, 0.06517241379310346], CircleBox[{-21.754423592493268, 7.150134048257273}, 0.05630026809651638], CircleBox[{-21.783050847457638, 7.249501495513493}, 0.04710867397806483], CircleBox[{-21.702723735408572, 7.226977950713346}, 0.03631647211413742], CircleBox[{-21.340540540540577, 8.009009009008993}, 0.06306306306306429], CircleBox[{-21.371699006152365, 7.9110269758636935}, 0.03975390440132546], CircleBox[{-21.446221248630906, 7.964129244249777}, 0.05175246440306797], CircleBox[{-22.141040462427803, 7.823410404624255}, 0.05462427745665021], CircleBox[{-22.084768211920476, 7.750993377483366}, 0.037086092715230445], CircleBox[{-22.050000000000015, 7.837499999999969}, 0.03750000000000181], CircleBox[{-21.6619768477293, 7.6186553873552985}, 0.03895814781834371], CircleBox[{-22.01356977640711, 6.282189668465718}, 0.06476484194294616], CircleBox[{-22.105785123966932, 6.204545454545375}, 0.055785123966938265], CircleBox[{-22.022797927461166, 6.141623488773776}, 0.048359240069084854], CircleBox[{-22.050000000000004, 5.804166666666669}, 0.029166666666666844], CircleBox[{-22.098943443132384, 5.7720633934120595}, 0.029366065879428416], CircleBox[{-22.40770818995185, 6.044907088781858}, 0.03251892635925721], CircleBox[{-22.46632337796087, 6.02677651905252}, 0.028836251287332634], CircleBox[{-22.800000000000036, 5.950000000000033}, 0.05000000000000085], CircleBox[{-22.923613312202885, 5.932250396196532}, 0.07488114104596015], CircleBox[{-22.829702970297024, 5.863366336633651}, 0.0415841584158419], CircleBox[{-22.10097087378641, 4.825242718446599}, 0.06796116504854376], CircleBox[{-22.07911275415897, 4.929759704251389}, 0.03881700554528657], CircleBox[{-22.168421052631587, 4.922932330827071}, 0.05075187969924818], CircleBox[{-22.11645569620254, 5.032911392405064}, 0.07088607594936716], CircleBox[{-22.081437125748504, 5.39880239520958}, 0.03353293413173652], CircleBox[{-22.54371339993111, 5.514640027557698}, 0.06028246641405441], CircleBox[{-22.444147034558632, 5.557521312677609}, 0.04812540104500868], CircleBox[{-22.42419006479482, 5.416306695464364}, 0.09449244060475158], CircleBox[{-20.51112999150384, 9.06372132540358}, 0.07136788445199733], CircleBox[{-20.657885615251253, 9.107885615251321}, 0.0818890814558031], CircleBox[{-20.6684210526316, 8.934210526315814}, 0.09210526315789543], CircleBox[{-20.55000000000001, 8.968750000000004}, 0.03125000000000011], CircleBox[{-20.103370786516862, 9.39101123595505}, 0.047191011235955406], CircleBox[{-20.103370786516855, 9.486465781409605}, 0.048263534218590164], CircleBox[{-20.030769230769238, 9.43776223776224}, 0.03916083916083917], CircleBox[{-19.969811320754726, 9.476415094339623}, 0.03301886792452833], CircleBox[{-20.756188389923345, 9.620208105147867}, 0.051752464403067515], CircleBox[{-20.69001447178003, 9.684515195369054}, 0.04052098408104199], CircleBox[{-20.79557522123896, 9.710176991150439}, 0.04646017699115113], CircleBox[{-20.378475336322886, 9.76233183856503}, 0.03139013452914851], CircleBox[{-20.31330798479088, 9.745437262357415}, 0.035931558935361374], CircleBox[{-21.08571428571416, 10.200000000000019}, 0.08571428571427932], CircleBox[{-21.221052631578956, 10.369113573407226}, 0.13088642659279817], CircleBox[{-21.0183406113537, 10.344104803493465}, 0.07336244541484656], CircleBox[{-21.065625000000015, 10.453857421874982}, 0.04614257812500037], CircleBox[{-19.640579710144934, 9.705314009661839}, 0.03381642512077299], CircleBox[{-19.626115922718192, 9.768987341772156}, 0.03147901399067291], CircleBox[{-19.539130434782617, 9.800000000000004}, 0.060869565217391376], CircleBox[{-18.731034482758623, 10.218390804597703}, 0.08045977011494258], CircleBox[{-18.550000000000004, 10.354166666666673}, 0.14583333333333354], CircleBox[{-18.95384615384616, 10.194871794871798}, 0.14358974358974366], CircleBox[{-18.800000000000004, 10.392857142857146}, 0.10714285714285718], CircleBox[{-20.146444780635406, 10.191124558749372}, 0.08825012607160873], CircleBox[{-20.197058823529417, 10.386461937716263}, 0.11353806228373714], CircleBox[{-19.91111111111112, 10.319958847736629}, 0.18004115226337467], CircleBox[{-22.880920269734215, 8.030146767155879}, 0.0333201110670391], CircleBox[{-22.800000000000097, 8.050000000000079}, 0.04999999999998863], CircleBox[{-22.857692307692282, 8.11057692307691}, 0.03365384615384737], CircleBox[{-23.426865671641774, 7.8358208955223185}, 0.04477611940298933], CircleBox[{-23.355108608206034, 7.877111826226956}, 0.03801287208367122], CircleBox[{-23.41417322834636, 7.908250599109864}, 0.02875727490585576], CircleBox[{-23.261538461538432, 8.566433566433513}, 0.048951048951025755], CircleBox[{-23.211101474414665, 8.491977450130214}, 0.04098005203816217], CircleBox[{-23.282910694597426, 8.489525909591938}, 0.03087100330760623], CircleBox[{-23.33375803424152, 8.159433479324289}, 0.02986178260622274], CircleBox[{-23.320394133822187, 8.217862053162241}, 0.030075618698441862], CircleBox[{-23.271228204298872, 8.175637331294666}, 0.03473345290952399], CircleBox[{-23.74214876033063, 6.551652892562011}, 0.043388429752068386], CircleBox[{-23.711392405063282, 6.446202531645592}, 0.06645569620253095], CircleBox[{-23.80000000000003, 6.497435897435917}, 0.03589743589743637], CircleBox[{-23.83219871205144, 7.152943882244733}, 0.04346826126955173], CircleBox[{-23.820820939916658, 7.245687091017324}, 0.049970255800118844], CircleBox[{-23.90740903112665, 7.181060938185056}, 0.03682595352915585], CircleBox[{-24.51583710407243, 6.7466063348416405}, 0.09502262443439022], CircleBox[{-24.387096774193566, 6.835777126099713}, 0.061583577712610284], CircleBox[{-24.343470483005376, 6.696332737030416}, 0.0845259391771022], CircleBox[{-23.261538461538468, 9.911590671771652}, 0.029237730595197086], CircleBox[{-23.22273819055246, 9.856885508406721}, 0.03783026421136682], CircleBox[{-23.182352941176458, 9.916666666666622}, 0.03431372549019625], CircleBox[{-22.91650485436891, 10.262135922330055}, 0.06796116504854444], CircleBox[{-22.96382252559729, 10.378156996587036}, 0.05733788395904526], CircleBox[{-22.79999999999998, 10.39285714285711}, 0.10714285714285932], CircleBox[{-23.034374999999983, 10.453857421874956}, 0.04614257812500024], CircleBox[{-23.380171358629095, 9.516829865360917}, 0.05783353733170353], CircleBox[{-23.486809994189446, 9.517722254503195}, 0.048808832074374676], CircleBox[{-23.411111111111026, 9.398148148148103}, 0.06481481481481857], CircleBox[{-23.69015691868756, 9.796005706134038}, 0.029957203994294607], CircleBox[{-23.677192982456162, 9.855263157894736}, 0.030701754385965303], CircleBox[{-23.485888324873105, 10.434761421319802}, 0.0307005076142132], CircleBox[{-23.989519650655037, 10.179039301310011}, 0.09170305676855912], CircleBox[{-24.150000000000016, 10.354166666666636}, 0.14583333333333384], CircleBox[{-23.873684210526317, 10.369113573407192}, 0.1308864265927979], CircleBox[{-21.232401597261845, 2.347974900171138}, 0.04791785510553345], CircleBox[{-21.25904954499494, 2.2560667340748157}, 0.04777553083923133], CircleBox[{-21.165426695842456, 2.2516411378555814}, 0.04595185995623635], CircleBox[{-21.568558951965073, 2.842794759825331}, 0.09170305676855907], CircleBox[{-21.769837587006965, 2.8381670533642707}, 0.1096287703016242], CircleBox[{-21.655491329479773, 3.0104046242774585}, 0.09710982658959544], CircleBox[{-21.74117647058824, 3.1911764705882373}, 0.1029411764705883], CircleBox[{-20.89169054441261, 1.8653295128939855}, 0.06017191977077384], CircleBox[{-20.813651877133115, 1.7774744027303773}, 0.057337883959044454], CircleBox[{-20.93409415121256, 1.745007132667621}, 0.06740370898716141], CircleBox[{-20.737500000000008, 1.6953125000000009}, 0.05468750000000003], CircleBox[{-21.512041884816757, 2.04581151832461}, 0.035340314136125824], CircleBox[{-21.5780678851175, 2.0365535248041793}, 0.03133159268929526], CircleBox[{-21.524238026124824, 1.981132075471701}, 0.03047895500725694], CircleBox[{-21.901952277657273, 2.1409978308026045}, 0.04555314533622596], CircleBox[{-21.97586649550707, 2.217265725288836}, 0.060654685494223544], CircleBox[{-21.985185185185195, 2.1155555555555585}, 0.041481481481481536], CircleBox[{-21.426506024096387, 1.6987951807228763}, 0.03614457831325295], CircleBox[{-21.364346997140135, 1.646568160152526}, 0.0450428979980935], CircleBox[{-21.440000000000005, 1.6319999999999992}, 0.032000000000000056], CircleBox[{-19.816574585635365, 0.812154696132597}, 0.11602209944751386], CircleBox[{-20.030769230769234, 0.9423076923076926}, 0.13461538461538466], CircleBox[{-19.600000000000005, 0.3733333333333334}, 0.3733333333333334], CircleBox[{-20.030769230769238, 0.6623076923076924}, 0.14538461538461542], CircleBox[{-22.27155963302753, 1.3486238532110097}, 0.19266055045871566], CircleBox[{-21.9483870967742, 1.1854838709677427}, 0.16935483870967752], CircleBox[{-22.400000000000006, 0.5833333333333337}, 0.5833333333333337], CircleBox[{-28.663291139240517, 7.443037974683549}, 0.1518987341772154], CircleBox[{-28.513494809688616, 7.7205882352940955}, 0.16349480968858063], CircleBox[{-28.827272727272735, 7.795454545454547}, 0.15909090909090912], CircleBox[{-28.827272727272735, 7.576704545454545}, 0.059659090909090905], CircleBox[{-28.205504587155964, 5.972477064220192}, 0.19266055045871588], CircleBox[{-27.82748815165878, 5.797393364928901}, 0.2239336492890992], CircleBox[{-28.180645161290332, 5.599999999999999}, 0.18064516129032254], CircleBox[{-28.180645161290332, 5.25}, 0.1693548387096774], CircleBox[{-29.94782608695653, 9.434782608695647}, 0.30434782608695693], CircleBox[{-30.430188679245287, 9.826415094339628}, 0.316981132075472], CircleBox[{-29.781818181818185, 10.109504132231404}, 0.39049586776859546], CircleBox[{-30.97500000000001, 10.171875000000004}, 0.3281250000000001], CircleBox[{-27.368545994065286, 8.116468842729978}, 0.14020771513353178], CircleBox[{-27.12422907488988, 8.017621145374434}, 0.1233480176211459], CircleBox[{-27.19756097560977, 8.323170731707329}, 0.12804878048780505], CircleBox[{-27.197560975609765, 8.15910823170732}, 0.03601371951219509], CircleBox[{-26.451063829787245, 7.000000000000015}, 0.14893617021276737], CircleBox[{-26.46486486486487, 6.668918918918918}, 0.18243243243243262], CircleBox[{-26.208000000000002, 6.854400000000003}, 0.13440000000000005], CircleBox[{-26.208000000000002, 6.644400000000001}, 0.07559999999999999], CircleBox[{-26.946534653465374, 9.772277227722729}, 0.2079207920792085], CircleBox[{-27.138461538461552, 10.22041420118343}, 0.27958579881656853], CircleBox[{-26.682352941176482, 10.079999999999986}, 0.1976470588235296], CircleBox[{-26.77500000000001, 10.381875000000004}, 0.11812499999999998], CircleBox[{-28.780327868852467, 2.409836065573772}, 0.34426229508196743], CircleBox[{-29.178947368421063, 1.9342105263157907}, 0.2763157894736844], CircleBox[{-28.56000000000001, 1.7220000000000004}, 0.3780000000000001], CircleBox[{-29.400000000000006, 0.8400000000000005}, 0.8400000000000005], CircleBox[{-39.60000000000001, 7.}], CircleBox[{-38.85000000000001, 9.187500000000002}, 1.3125000000000002], CircleBox[{-42.00000000000001, 3.36}, 3.36], CircleBox[{-42.000000000000014, 8.61}, 1.8900000000000001], CircleBox[{12.000000000001222, 10.461428571428486}, 0.03857142857140802], CircleBox[{15.750000000000018, 10.447500000000003}, 0.0525000000000005], CircleBox[{15.612339331619545, 10.408226221079707}, 0.04318766066838069], CircleBox[{15.664864864864876, 10.465485756026315}, 0.03451424397370365], CircleBox[{15.376271186440684, 10.462295317437531}, 0.03770468256248218], CircleBox[{13.952542372881359, 10.462295317437523}, 0.03770468256248208], CircleBox[{8.805797101449073, 6.72946859903388}, 0.033816425120780376], CircleBox[{11.124324324324412, 10.465485756026272}, 0.034514243973703514], CircleBox[{9.095172413793199, 10.398620689655045}, 0.028965517241378073], CircleBox[{9.030000000000166, 10.447499999999854}, 0.052499999999994704], CircleBox[{9.120000000000074, 10.461428571428465}, 0.03857142857142747], CircleBox[{11.790020886516597, 3.305465305175218}, 0.03045950336504996], CircleBox[{15.014417744916825, 0.27171903881700565}, 0.038817005545286526], CircleBox[{14.937096774193552, 0.29637096774193566}, 0.04233870967741938], CircleBox[{15.120000000000001, 0.13440000000000005}, 0.13440000000000005], CircleBox[{14.956097560975612, 0.21000000000000002}, 0.04609756097560976], CircleBox[{14.389813242784385, 0.2495755517826826}, 0.03565365025466894], CircleBox[{14.45769230769231, 0.23557692307692316}, 0.033653846153846166], CircleBox[{14.4, 0.10714285714285719}, 0.10714285714285719], CircleBox[{13.650000000000004, 0.05250000000000004}, 0.05250000000000004], CircleBox[{13.200000000000001, 0.21000000000000008}, 0.03000000000000001], CircleBox[{13.200000000000003, 0.06857142857142857}, 0.06857142857142857], CircleBox[{13.154716981132077, 0.16245283018867926}, 0.03566037735849057], CircleBox[{10.568746139592344, 0.7555589870290305}, 0.029184681902408905], CircleBox[{10.800000000000004, 0.06857142857142857}, 0.06857142857142857], CircleBox[{10.726153846153846, 0.13246153846153855}, 0.029076923076923094], CircleBox[{10.209230769230775, 0.45230769230769263}, 0.06461538461538466], CircleBox[{10.29, 0.3675000000000005}, 0.05250000000000007], CircleBox[{10.080000000000004, 0.2100000000000002}, 0.2100000000000002], CircleBox[{11.55, 0.05250000000000005}, 0.05250000000000005], CircleBox[{11.906911142454161, 0.2073342736248237}, 0.029619181946403388], CircleBox[{11.960264900662253, 0.24337748344370874}, 0.03476821192052982], CircleBox[{12.000000000000002, 0.10714285714285719}, 0.10714285714285719], CircleBox[{21.77119055883379, 7.026726830961505}, 0.02915654286706547], CircleBox[{21.242307692307666, 8.110576923077176}, 0.033653846153853806], CircleBox[{21.953374233128837, 6.409509202453814}, 0.03220858895705228], CircleBox[{23.055319148936494, 5.994680851064083}, 0.03723404255320326], CircleBox[{22.09894344313239, 4.727936606587954}, 0.029366065879428242], CircleBox[{22.05000000000002, 4.695833333333346}, 0.029166666666666747], CircleBox[{22.05000000000002, 4.6302083333333455}, 0.036458333333333426], CircleBox[{22.23372216330859, 5.034729586426296}, 0.04639448568398731], CircleBox[{20.76226415094344, 8.761006289308192}, 0.04402515723270549], CircleBox[{20.74974874371876, 8.837939698492326}, 0.03391959798995454], CircleBox[{21.390163934425978, 10.366120218579258}, 0.0382513661202143], CircleBox[{21.37035647279545, 10.433020637898679}, 0.031519699812382285], CircleBox[{21.46666666666657, 10.4351851851852}, 0.06481481481481308], CircleBox[{20.92778193110584, 10.394329748691701}, 0.030191500373798794], CircleBox[{20.883333333333287, 10.454989711934143}, 0.04501028806584203], CircleBox[{20.97391304347825, 10.45442884147988}, 0.04557115852011841], CircleBox[{19.61685296646604, 9.860490111779882}, 0.03761822871883065], CircleBox[{18.35555555555556, 10.318518518518538}, 0.051851851851852065], CircleBox[{18.24827586206896, 10.363218390804596}, 0.06436781609195429], CircleBox[{18.355555555555558, 10.435185185185203}, 0.0648148148148151], CircleBox[{18.1125, 10.41796875}, 0.08203125000000029], CircleBox[{19.087128712871294, 10.021782178217828}, 0.04158415841584163], CircleBox[{18.941887723627396, 10.374048940982936}, 0.03598601686201934], CircleBox[{18.938888888888897, 10.454989711934163}, 0.04501028806584365], CircleBox[{19.070270270270274, 10.404127100073051}, 0.09587289992695407], CircleBox[{20.31832460732985, 10.467620131027118}, 0.03237986897289003], CircleBox[{19.78278335724534, 10.153515064562411}, 0.03012912482065999], CircleBox[{19.708178625188165, 10.410436527847475}, 0.042147516307074785], CircleBox[{23.612454742939704, 6.360065170166404}, 0.03421433743665144], CircleBox[{24.63687150837994, 6.775139664804527}, 0.029329608938548777], CircleBox[{24.641711229946576, 6.709893048128373}, 0.03609625668449325], CircleBox[{24.696000000000133, 6.753600000000033}, 0.03360000000000199], CircleBox[{22.6604651162791, 10.386046511627862}, 0.03255813953487727], CircleBox[{22.59310344827581, 10.4438168846609}, 0.056183115338883094], CircleBox[{22.957068062827204, 10.467620131027159}, 0.032379868972890385], CircleBox[{23.39192825112099, 9.260089686098446}, 0.03139013452913585], CircleBox[{24.34029850746256, 10.343283582089525}, 0.04477611940297896], CircleBox[{24.33103448275865, 10.443816884661107}, 0.05618311533888256], CircleBox[{24.424615384615333, 10.390153846153785}, 0.051692307692306684], CircleBox[{24.412500000000023, 10.470468750000022}, 0.029531250000000734], CircleBox[{21.872609633357317, 2.691049604601031}, 0.03396836808051843], CircleBox[{21.793006993006994, 3.4755244755244736}, 0.048951048951049], CircleBox[{21.805181347150267, 3.392487046632129}, 0.03497409326424877], CircleBox[{21.741176470588243, 3.3411764705882394}, 0.04705882352941186], CircleBox[{21.830452776576696, 2.9666440175427753}, 0.032429427388967806], CircleBox[{21.801215066828686, 3.0470838396111812}, 0.05315917375455651], CircleBox[{20.821577882670265, 1.6909979770735002}, 0.029501011463250196], CircleBox[{22.07172413793105, 2.0565517241379374}, 0.02896551724137968], CircleBox[{19.677435575109996, 0.7688560653676929}, 0.029698302954116896], CircleBox[{20.080135823429544, 1.1052631578947376}, 0.035653650254669024], CircleBox[{20.13774834437087, 1.1496688741721863}, 0.03708609271523183], CircleBox[{20.149693251533748, 1.0720858895705532}, 0.04141104294478536], CircleBox[{20.197058823529417, 1.196691176470589}, 0.03860294117647061], CircleBox[{19.17209302325582, 0.4883720930232561}, 0.06976744186046516], CircleBox[{19.050000000000008, 0.4375000000000003}, 0.06250000000000004], CircleBox[{19.152000000000005, 0.34440000000000004}, 0.07560000000000001], CircleBox[{18.900000000000006, 0.21000000000000013}, 0.21000000000000013], CircleBox[{20.030769230769234, 0.4523076923076923}, 0.06461538461538462], CircleBox[{20.160000000000007, 0.49000000000000016}, 0.07000000000000002], CircleBox[{20.160000000000007, 0.21000000000000013}, 0.21000000000000013], CircleBox[{22.451756007393715, 1.203327171903885}, 0.03881700554528661], CircleBox[{22.502189781021908, 1.2755474452554727}, 0.04927007299270067], CircleBox[{22.528146453089253, 1.1917620137299771}, 0.038443935926773455], CircleBox[{22.601438848920868, 1.170863309352518}, 0.03776978417266187], CircleBox[{21.93403933434191, 0.9848714069591535}, 0.031770045385779204], CircleBox[{21.897307001795337, 0.9350089766606832}, 0.030161579892280115], CircleBox[{21.864605370219696, 0.9953213995117994}, 0.03844589096826698], CircleBox[{22.221939586645476, 1.5691573926868054}, 0.03338632750397483], CircleBox[{22.29734188817599, 1.5831805682859783}, 0.043308890925756294], CircleBox[{22.24000000000001, 1.6320000000000043}, 0.032000000000000084], CircleBox[{21.762233651726678, 1.2691036002939016}, 0.03471711976487883], CircleBox[{23.07248908296944, 0.6419213973799133}, 0.09170305676855904], CircleBox[{23.04473684210527, 0.4835526315789478}, 0.06907894736842111], CircleBox[{23.223529411764712, 0.5064705882352941}, 0.11117647058823531], CircleBox[{23.100000000000005, 0.21000000000000016}, 0.21000000000000016], CircleBox[{21.832835820895525, 0.3134328358208956}, 0.044776119402985086], CircleBox[{21.784615384615392, 0.40384615384615397}, 0.05769230769230771], CircleBox[{21.840000000000007, 0.13440000000000002}, 0.13440000000000002], CircleBox[{21.724137931034488, 0.296896551724138}, 0.06517241379310346], CircleBox[{28.64557640750675, 7.150134048257273}, 0.05630026809651638], CircleBox[{28.616949152542375, 7.249501495513493}, 0.04710867397806483], CircleBox[{28.697276264591437, 7.226977950713346}, 0.03631647211413742], CircleBox[{29.059459459459436, 8.009009009008993}, 0.06306306306306429], CircleBox[{29.028300993847658, 7.9110269758636935}, 0.03975390440132546], CircleBox[{28.95377875136911, 7.964129244249777}, 0.05175246440306797], CircleBox[{28.258959537572206, 7.823410404624255}, 0.05462427745665021], CircleBox[{28.315231788079533, 7.750993377483366}, 0.037086092715230445], CircleBox[{28.34999999999999, 7.837499999999969}, 0.03750000000000181], CircleBox[{28.738023152270713, 7.6186553873552985}, 0.03895814781834371], CircleBox[{28.3864302235929, 6.282189668465718}, 0.06476484194294616], CircleBox[{28.29421487603308, 6.204545454545375}, 0.055785123966938265], CircleBox[{28.377202072538843, 6.141623488773776}, 0.048359240069084854], CircleBox[{28.350000000000012, 5.804166666666669}, 0.029166666666666844], CircleBox[{28.301056556867632, 5.7720633934120595}, 0.029366065879428416], CircleBox[{27.99229181004816, 6.044907088781858}, 0.03251892635925721], CircleBox[{27.93367662203915, 6.02677651905252}, 0.028836251287332634], CircleBox[{27.599999999999973, 5.950000000000033}, 0.05000000000000085], CircleBox[{27.476386687797124, 5.932250396196532}, 0.07488114104596015], CircleBox[{27.57029702970299, 5.863366336633651}, 0.0415841584158419], CircleBox[{28.299029126213608, 4.825242718446599}, 0.06796116504854376], CircleBox[{28.320887245841043, 4.929759704251389}, 0.03881700554528657], CircleBox[{28.231578947368426, 4.922932330827071}, 0.05075187969924818], CircleBox[{28.283544303797477, 5.032911392405064}, 0.07088607594936716], CircleBox[{28.318562874251505, 5.39880239520958}, 0.03353293413173652], CircleBox[{27.856286600068902, 5.514640027557698}, 0.06028246641405441], CircleBox[{27.955852965441384, 5.557521312677609}, 0.04812540104500868], CircleBox[{27.975809935205188, 5.416306695464364}, 0.09449244060475158], CircleBox[{29.88887000849617, 9.06372132540358}, 0.07136788445199733], CircleBox[{29.742114384748756, 9.107885615251321}, 0.0818890814558031], CircleBox[{29.73157894736841, 8.934210526315814}, 0.09210526315789543], CircleBox[{29.85, 8.968750000000004}, 0.03125000000000011], CircleBox[{30.296629213483147, 9.39101123595505}, 0.047191011235955406], CircleBox[{30.296629213483158, 9.486465781409605}, 0.048263534218590164], CircleBox[{30.36923076923078, 9.43776223776224}, 0.03916083916083917], CircleBox[{30.43018867924529, 9.476415094339623}, 0.03301886792452833], CircleBox[{29.643811610076664, 9.620208105147867}, 0.051752464403067515], CircleBox[{29.709985528219985, 9.684515195369054}, 0.04052098408104199], CircleBox[{29.604424778761054, 9.710176991150439}, 0.04646017699115113], CircleBox[{30.02152466367713, 9.76233183856503}, 0.03139013452914851], CircleBox[{30.086692015209128, 9.745437262357415}, 0.035931558935361374], CircleBox[{29.314285714285855, 10.200000000000019}, 0.08571428571427932], CircleBox[{29.178947368421056, 10.369113573407226}, 0.13088642659279817], CircleBox[{29.38165938864631, 10.344104803493465}, 0.07336244541484656], CircleBox[{29.334375000000005, 10.453857421874982}, 0.04614257812500037], CircleBox[{30.75942028985508, 9.705314009661839}, 0.03381642512077299], CircleBox[{30.773884077281817, 9.768987341772156}, 0.03147901399067291], CircleBox[{30.8608695652174, 9.800000000000004}, 0.060869565217391376], CircleBox[{31.668965517241386, 10.218390804597703}, 0.08045977011494258], CircleBox[{31.85000000000001, 10.354166666666673}, 0.14583333333333354], CircleBox[{31.446153846153855, 10.194871794871798}, 0.14358974358974366], CircleBox[{31.600000000000005, 10.392857142857146}, 0.10714285714285718], CircleBox[{30.2535552193646, 10.191124558749372}, 0.08825012607160873], CircleBox[{30.20294117647059, 10.386461937716263}, 0.11353806228373714], CircleBox[{30.488888888888898, 10.319958847736629}, 0.18004115226337467], CircleBox[{27.519079730265798, 8.030146767155879}, 0.0333201110670391], CircleBox[{27.59999999999992, 8.050000000000079}, 0.04999999999998863], CircleBox[{27.542307692307727, 8.11057692307691}, 0.03365384615384737], CircleBox[{26.973134328358242, 7.8358208955223185}, 0.04477611940298933], CircleBox[{27.044891391793982, 7.877111826226956}, 0.03801287208367122], CircleBox[{26.985826771653656, 7.908250599109864}, 0.02875727490585576], CircleBox[{27.138461538461584, 8.566433566433513}, 0.048951048951025755], CircleBox[{27.188898525585344, 8.491977450130214}, 0.04098005203816217], CircleBox[{27.117089305402594, 8.489525909591938}, 0.03087100330760623], CircleBox[{27.066241965758497, 8.159433479324289}, 0.02986178260622274], CircleBox[{27.07960586617783, 8.217862053162241}, 0.030075618698441862], CircleBox[{27.12877179570114, 8.175637331294666}, 0.03473345290952399], CircleBox[{26.657851239669384, 6.551652892562011}, 0.043388429752068386], CircleBox[{26.68860759493673, 6.446202531645592}, 0.06645569620253095], CircleBox[{26.59999999999998, 6.497435897435917}, 0.03589743589743637], CircleBox[{26.56780128794858, 7.152943882244733}, 0.04346826126955173], CircleBox[{26.57917906008336, 7.245687091017324}, 0.049970255800118844], CircleBox[{26.492590968873362, 7.181060938185056}, 0.03682595352915585], CircleBox[{25.884162895927584, 6.7466063348416405}, 0.09502262443439022], CircleBox[{26.01290322580645, 6.835777126099713}, 0.061583577712610284], CircleBox[{26.056529516994637, 6.696332737030416}, 0.0845259391771022], CircleBox[{27.138461538461545, 9.911590671771652}, 0.029237730595197086], CircleBox[{27.177261809447554, 9.856885508406721}, 0.03783026421136682], CircleBox[{27.21764705882355, 9.916666666666622}, 0.03431372549019625], CircleBox[{27.483495145631103, 10.262135922330055}, 0.06796116504854444], CircleBox[{27.43617747440272, 10.378156996587036}, 0.05733788395904526], CircleBox[{27.600000000000033, 10.39285714285711}, 0.10714285714285932], CircleBox[{27.365625000000026, 10.453857421874956}, 0.04614257812500024], CircleBox[{27.01982864137091, 9.516829865360917}, 0.05783353733170353], CircleBox[{26.913190005810566, 9.517722254503195}, 0.048808832074374676], CircleBox[{26.988888888888987, 9.398148148148103}, 0.06481481481481857], CircleBox[{26.709843081312457, 9.796005706134038}, 0.029957203994294607], CircleBox[{26.722807017543854, 9.855263157894736}, 0.030701754385965303], CircleBox[{26.914111675126914, 10.434761421319802}, 0.0307005076142132], CircleBox[{26.410480349344976, 10.179039301310011}, 0.09170305676855912], CircleBox[{26.249999999999993, 10.354166666666636}, 0.14583333333333384], CircleBox[{26.526315789473692, 10.369113573407192}, 0.1308864265927979], CircleBox[{29.16759840273817, 2.347974900171138}, 0.04791785510553345], CircleBox[{29.140950455005072, 2.2560667340748157}, 0.04777553083923133], CircleBox[{29.234573304157557, 2.2516411378555814}, 0.04595185995623635], CircleBox[{28.83144104803494, 2.842794759825331}, 0.09170305676855907], CircleBox[{28.630162412993045, 2.8381670533642707}, 0.1096287703016242], CircleBox[{28.74450867052024, 3.0104046242774585}, 0.09710982658959544], CircleBox[{28.65882352941177, 3.1911764705882373}, 0.1029411764705883], CircleBox[{29.5083094555874, 1.8653295128939855}, 0.06017191977077384], CircleBox[{29.586348122866898, 1.7774744027303773}, 0.057337883959044454], CircleBox[{29.465905848787457, 1.745007132667621}, 0.06740370898716141], CircleBox[{29.66250000000001, 1.6953125000000009}, 0.05468750000000003], CircleBox[{28.88795811518325, 2.04581151832461}, 0.035340314136125824], CircleBox[{28.821932114882514, 2.0365535248041793}, 0.03133159268929526], CircleBox[{28.875761973875193, 1.981132075471701}, 0.03047895500725694], CircleBox[{28.49804772234274, 2.1409978308026045}, 0.04555314533622596], CircleBox[{28.424133504492943, 2.217265725288836}, 0.060654685494223544], CircleBox[{28.414814814814825, 2.1155555555555585}, 0.041481481481481536], CircleBox[{28.97349397590363, 1.6987951807228763}, 0.03614457831325295], CircleBox[{29.035653002859874, 1.646568160152526}, 0.0450428979980935], CircleBox[{28.960000000000008, 1.6319999999999992}, 0.032000000000000056], CircleBox[{30.58342541436465, 0.812154696132597}, 0.11602209944751386], CircleBox[{30.369230769230775, 0.9423076923076926}, 0.13461538461538466], CircleBox[{30.800000000000004, 0.3733333333333334}, 0.3733333333333334], CircleBox[{30.36923076923078, 0.6623076923076924}, 0.14538461538461542], CircleBox[{28.128440366972487, 1.3486238532110097}, 0.19266055045871566], CircleBox[{28.451612903225815, 1.1854838709677427}, 0.16935483870967752], CircleBox[{28., 0.5833333333333337}, 0.5833333333333337], CircleBox[{38.53670886075951, 7.443037974683549}, 0.1518987341772154], CircleBox[{38.6865051903114, 7.7205882352940955}, 0.16349480968858063], CircleBox[{38.37272727272729, 7.795454545454547}, 0.15909090909090912], CircleBox[{38.37272727272728, 7.576704545454545}, 0.059659090909090905], CircleBox[{38.99449541284405, 5.972477064220192}, 0.19266055045871588], CircleBox[{39.37251184834124, 5.797393364928901}, 0.2239336492890992], CircleBox[{39.01935483870968, 5.599999999999999}, 0.18064516129032254], CircleBox[{39.01935483870969, 5.25}, 0.1693548387096774], CircleBox[{37.252173913043485, 9.434782608695647}, 0.30434782608695693], CircleBox[{36.76981132075473, 9.826415094339628}, 0.316981132075472], CircleBox[{37.418181818181836, 10.109504132231404}, 0.39049586776859546], CircleBox[{36.22500000000001, 10.171875000000004}, 0.3281250000000001], CircleBox[{39.83145400593474, 8.116468842729978}, 0.14020771513353178], CircleBox[{40.075770925110135, 8.017621145374434}, 0.1233480176211459], CircleBox[{40.002439024390256, 8.323170731707329}, 0.12804878048780505], CircleBox[{40.002439024390256, 8.15910823170732}, 0.03601371951219509], CircleBox[{40.74893617021278, 7.000000000000015}, 0.14893617021276737], CircleBox[{40.735135135135145, 6.668918918918918}, 0.18243243243243262], CircleBox[{40.99200000000001, 6.854400000000003}, 0.13440000000000005], CircleBox[{40.99200000000001, 6.644400000000001}, 0.07559999999999999], CircleBox[{40.25346534653465, 9.772277227722729}, 0.2079207920792085], CircleBox[{40.06153846153847, 10.22041420118343}, 0.27958579881656853], CircleBox[{40.517647058823535, 10.079999999999986}, 0.1976470588235296], CircleBox[{40.42500000000001, 10.381875000000004}, 0.11812499999999998], CircleBox[{38.41967213114755, 2.409836065573772}, 0.34426229508196743], CircleBox[{38.021052631578954, 1.9342105263157907}, 0.2763157894736844], CircleBox[{38.64000000000001, 1.7220000000000004}, 0.3780000000000001], CircleBox[{37.80000000000001, 0.8400000000000005}, 0.8400000000000005], CircleBox[{44.40000000000001, 7.}], CircleBox[{45.15000000000001, 9.187500000000002}, 1.3125000000000002], CircleBox[{50.40000000000001, 5.250000000000002}, 5.250000000000002]}, {RGBColor[1, 0, 0], CircleBox[{4.7727272727272725, 7.636363636363636}, 0.9545454545454545], CircleBox[{5.419354838709677, 5.419354838709677}, 1.3548387096774193], CircleBox[{2.625000000000001, 10.500000000000004}, 2.625000000000001], CircleBox[{6.402439024390246, 8.195121951219514}, 0.7682926829268291], CircleBox[{7.392000000000005, 6.7200000000000015}, 1.008], CircleBox[{6.825000000000002, 10.500000000000005}, 1.5750000000000002], CircleBox[{4.200000000000001, 0.}, 4.200000000000001], TagBox[ConicHullRegionBox[{0, 0}, {{0, -1}}], "InfiniteLine"], TagBox[ConicHullRegionBox[{8.400000000000002, 0.}, {{0, 1}}], "InfiniteLine"]}, {RGBColor[0, 0, 1], CircleBox[{6, 7}], CircleBox[{5.250000000000001, 9.187500000000002}, 1.3125000000000002], CircleBox[{0., 5.250000000000002}, 5.250000000000002], CircleBox[{8.4, 3.36}, 3.36], CircleBox[{8.400000000000002, 8.61}, 1.8900000000000001], TagBox[ ConicHullRegionBox[NCache[{0, Rational[21, 2]}, {0, 10.5}], {{-1, 0}}], "InfiniteLine"], TagBox[ConicHullRegionBox[{0, 0}, {{1, 0}}], "InfiniteLine"]}}, ImageSize->{332., Automatic}, PlotRange->{{-8.400000000000002, 16.800000000000004`}, {-6.300000000000002, 16.8}}, PlotRangeClipping->True]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"84", "1", "6", "7"}, {"84", FractionBox["16", "21"], "4", "7"}, {"0", FractionBox["4", "21"], "0", "1"}, {"21", FractionBox["25", "84"], FractionBox["5", "2"], "1"}, { FractionBox["224", "3"], FractionBox["100", "189"], FractionBox["40", "9"], FractionBox["41", "9"]}, {"21", "0", "0", "1"}, {"0", "0", "0", RowBox[{"-", "1"}]}, {"84", FractionBox["22", "21"], "5", "8"}, {"42", FractionBox["31", "42"], "4", "4"}, {"42", FractionBox["8", "21"], "1", "4"}, {"140", FractionBox["82", "63"], FractionBox["25", "3"], FractionBox["32", "3"]}, {"98", FractionBox["125", "126"], FractionBox["22", "3"], FractionBox["20", "3"]}, {"98", FractionBox["40", "63"], FractionBox["13", "3"], FractionBox["20", "3"]}, {"0", FractionBox["5", "21"], "1", "0"}, {"0", "0", RowBox[{"-", "1"}], "0"}, { FractionBox["84", "5"], "0", "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", FractionBox["3", "2"], "0", FractionBox["27", "20"], RowBox[{"-", FractionBox["4", "5"]}], RowBox[{"-", FractionBox["3", "20"]}]}, {"0", "0", FractionBox["3", "2"], "0", FractionBox["9", "10"], FractionBox["4", "5"], RowBox[{"-", FractionBox["3", "5"]}]}, {"0", "0", "1", "0", "0", "0", "0"}, {"0", "0", FractionBox["57", "4"], "0", FractionBox["117", "16"], RowBox[{"-", "1"}], RowBox[{"-", FractionBox["39", "16"]}]}, {"0", "0", FractionBox["38", "3"], "0", "7", "0", RowBox[{"-", FractionBox["8", "3"]}]}, {"0", "0", FractionBox["57", "4"], "0", FractionBox["27", "4"], "1", RowBox[{"-", "3"}]}, {"0", "0", "38", "0", "18", "0", RowBox[{"-", "7"}]} }, 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[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", FractionBox["3", "2"], "0", FractionBox["27", "20"], RowBox[{"-", FractionBox["4", "5"]}], RowBox[{"-", FractionBox["3", "20"]}]}, {"0", "0", FractionBox["39", "4"], "0", FractionBox["63", "10"], RowBox[{"-", FractionBox["32", "5"]}], FractionBox["21", "20"]}, {"0", "0", "1", "0", "0", "0", "0"}, {"0", "0", "0", "0", FractionBox["9", "16"], RowBox[{"-", "1"}], FractionBox["9", "16"]}, {"0", "0", FractionBox["22", "3"], "0", FractionBox["29", "5"], RowBox[{"-", FractionBox["32", "5"]}], FractionBox["22", "15"]}, {"0", "0", FractionBox["165", "16"], "0", FractionBox["27", "4"], RowBox[{"-", "8"}], FractionBox["33", "16"]}, {"0", "0", "11", "0", FractionBox["36", "5"], RowBox[{"-", FractionBox["48", "5"]}], FractionBox["16", "5"]} }, 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[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", FractionBox["39", "4"], "0", FractionBox["27", "10"], FractionBox["32", "5"], RowBox[{"-", FractionBox["51", "20"]}]}, {"0", "0", FractionBox["3", "2"], "0", FractionBox["9", "10"], FractionBox["4", "5"], RowBox[{"-", FractionBox["3", "5"]}]}, {"0", "0", "1", "0", "0", "0", "0"}, {"0", "0", FractionBox["165", "16"], "0", FractionBox["9", "4"], "8", RowBox[{"-", FractionBox["39", "16"]}]}, {"0", "0", FractionBox["22", "3"], "0", FractionBox["11", "5"], FractionBox["32", "5"], RowBox[{"-", FractionBox["32", "15"]}]}, {"0", "0", "0", "0", "0", "1", "0"}, {"0", "0", "11", "0", FractionBox["9", "5"], FractionBox["48", "5"], RowBox[{"-", FractionBox["11", "5"]}]} }, 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[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", FractionBox["3", "2"], "0", FractionBox["27", "20"], RowBox[{"-", FractionBox["4", "5"]}], RowBox[{"-", FractionBox["3", "20"]}]}, {"0", "0", FractionBox["3", "2"], "0", FractionBox["9", "10"], FractionBox["4", "5"], RowBox[{"-", FractionBox["3", "5"]}]}, {"0", "0", FractionBox["29", "3"], "0", "10", "0", RowBox[{"-", FractionBox["8", "3"]}]}, {"0", "0", FractionBox["39", "4"], "0", FractionBox["189", "16"], RowBox[{"-", "1"}], RowBox[{"-", FractionBox["39", "16"]}]}, {"0", "0", "0", "0", "1", "0", "0"}, {"0", "0", FractionBox["39", "4"], "0", FractionBox["45", "4"], "1", RowBox[{"-", "3"}]}, {"0", "0", FractionBox["104", "3"], "0", "40", "0", RowBox[{"-", FractionBox["29", "3"]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", FractionBox["3", "2"], "0", FractionBox["27", "20"], RowBox[{"-", FractionBox["4", "5"]}], RowBox[{"-", FractionBox["3", "20"]}]}, {"0", "0", FractionBox["21", "4"], "0", FractionBox["54", "5"], RowBox[{"-", FractionBox["32", "5"]}], FractionBox["21", "20"]}, {"0", "0", FractionBox["13", "3"], "0", FractionBox["44", "5"], RowBox[{"-", FractionBox["32", "5"]}], FractionBox["22", "15"]}, {"0", "0", "0", "0", FractionBox["9", "16"], RowBox[{"-", "1"}], FractionBox["9", "16"]}, {"0", "0", "0", "0", "1", "0", "0"}, {"0", "0", FractionBox["75", "16"], "0", FractionBox["99", "8"], RowBox[{"-", "8"}], FractionBox["33", "16"]}, {"0", "0", FractionBox["25", "3"], "0", "22", RowBox[{"-", "16"}], FractionBox["14", "3"]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", FractionBox["21", "4"], "0", FractionBox["36", "5"], FractionBox["32", "5"], RowBox[{"-", FractionBox["51", "20"]}]}, {"0", "0", FractionBox["3", "2"], "0", FractionBox["9", "10"], FractionBox["4", "5"], RowBox[{"-", FractionBox["3", "5"]}]}, {"0", "0", FractionBox["13", "3"], "0", FractionBox["26", "5"], FractionBox["32", "5"], RowBox[{"-", FractionBox["32", "15"]}]}, {"0", "0", FractionBox["75", "16"], "0", FractionBox["63", "8"], "8", RowBox[{"-", FractionBox["39", "16"]}]}, {"0", "0", "0", "0", "1", "0", "0"}, {"0", "0", "0", "0", "0", "1", "0"}, {"0", "0", FractionBox["25", "3"], "0", "13", "16", RowBox[{"-", FractionBox["13", "3"]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", FractionBox["13", "2"], "0", FractionBox["63", "20"], RowBox[{"-", FractionBox["36", "5"]}], FractionBox["133", "20"]}, {"0", "0", "9", "0", FractionBox["18", "5"], RowBox[{"-", FractionBox["44", "5"]}], FractionBox["48", "5"]}, {"0", "0", "1", "0", "0", "0", "0"}, {"0", "0", "0", "0", FractionBox["9", "16"], RowBox[{"-", "1"}], FractionBox["9", "16"]}, {"0", "0", FractionBox["50", "9"], "0", "3", RowBox[{"-", FractionBox["64", "9"]}], FractionBox["68", "9"]}, {"0", "0", FractionBox["25", "8"], "0", FractionBox["9", "8"], RowBox[{"-", "3"}], FractionBox["17", "4"]}, {"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$]]], ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "9", "0", RowBox[{"-", FractionBox["27", "20"]}], FractionBox["44", "5"], FractionBox["93", "20"]}, {"0", "0", FractionBox["13", "2"], "0", RowBox[{"-", FractionBox["9", "10"]}], FractionBox["36", "5"], FractionBox["13", "5"]}, {"0", "0", "1", "0", "0", "0", "0"}, {"0", "0", FractionBox["25", "8"], "0", RowBox[{"-", FractionBox["9", "16"]}], "3", FractionBox["41", "16"]}, {"0", "0", FractionBox["50", "9"], "0", RowBox[{"-", "1"}], FractionBox["64", "9"], FractionBox["32", "9"]}, {"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$]]], ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", RowBox[{"-", FractionBox["3", "2"]}], "0", FractionBox["243", "100"], RowBox[{"-", FractionBox["4", "5"]}], FractionBox["177", "100"]}, {"0", "0", RowBox[{"-", FractionBox["3", "2"]}], "0", FractionBox["99", "50"], FractionBox["4", "5"], FractionBox["33", "25"]}, {"0", "0", RowBox[{"-", "1"}], "0", FractionBox["18", "25"], "0", FractionBox["32", "25"]}, {"0", "0", "0", "0", FractionBox["9", "16"], RowBox[{"-", "1"}], FractionBox["9", "16"]}, {"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$]]], ",", "\"\\""}], "}"}]}], "}"}]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "1"}], "1", "1", "1", "1", FractionBox["7", "2"], "7", "0", "0", "3", "0", "0", "3", "4", "6", FractionBox["12", "5"]}, {"1", RowBox[{"-", "1"}], "1", FractionBox["7", "2"], "1", "1", "7", "0", "3", "0", "0", "3", "0", "6", "4", FractionBox["12", "5"]}, {"1", "1", RowBox[{"-", "1"}], "1", FractionBox["23", "9"], "1", "1", "0", "0", "0", FractionBox["8", "3"], FractionBox["8", "3"], FractionBox["8", "3"], "0", "0", FractionBox["8", "5"]}, {"1", FractionBox["7", "2"], "1", RowBox[{"-", "1"}], "1", FractionBox["17", "8"], "1", "3", "0", FractionBox["15", "4"], "3", "0", FractionBox["15", "4"], "0", FractionBox["5", "2"], "0"}, {"1", "1", FractionBox["23", "9"], "1", RowBox[{"-", "1"}], "1", FractionBox["41", "9"], FractionBox["8", "3"], FractionBox["8", "3"], FractionBox["8", "3"], "0", "0", "0", FractionBox["40", "9"], FractionBox["40", "9"], "0"}, { FractionBox["7", "2"], "1", "1", FractionBox["17", "8"], "1", RowBox[{"-", "1"}], "1", "3", FractionBox["15", "4"], "0", "3", FractionBox["15", "4"], "0", FractionBox["5", "2"], "0", "0"}, {"7", "7", "1", "1", FractionBox["41", "9"], "1", RowBox[{"-", "1"}], "8", "4", "4", FractionBox["32", "3"], FractionBox["20", "3"], FractionBox["20", "3"], "0", "0", "0"}, {"0", "0", "0", "3", FractionBox["8", "3"], "3", "8", RowBox[{"-", "1"}], "1", "1", "1", "3", "3", "5", "5", FractionBox["19", "5"]}, {"0", "3", "0", "0", FractionBox["8", "3"], FractionBox["15", "4"], "4", "1", RowBox[{"-", "1"}], FractionBox["7", "2"], "3", "1", FractionBox["11", "2"], "1", "4", FractionBox["11", "5"]}, {"3", "0", "0", FractionBox["15", "4"], FractionBox["8", "3"], "0", "4", "1", FractionBox["7", "2"], RowBox[{"-", "1"}], "3", FractionBox["11", "2"], "1", "4", "1", FractionBox["11", "5"]}, {"0", "0", FractionBox["8", "3"], "3", "0", "3", FractionBox["32", "3"], "1", "3", "3", RowBox[{"-", "1"}], "1", "1", FractionBox["25", "3"], FractionBox["25", "3"], FractionBox["13", "5"]}, {"0", "3", FractionBox["8", "3"], "0", "0", FractionBox["15", "4"], FractionBox["20", "3"], "3", "1", FractionBox["11", "2"], "1", RowBox[{"-", "1"}], FractionBox["7", "2"], FractionBox["13", "3"], FractionBox["22", "3"], "1"}, {"3", "0", FractionBox["8", "3"], FractionBox["15", "4"], "0", "0", FractionBox["20", "3"], "3", FractionBox["11", "2"], "1", "1", FractionBox["7", "2"], RowBox[{"-", "1"}], FractionBox["22", "3"], FractionBox["13", "3"], "1"}, {"4", "6", "0", "0", FractionBox["40", "9"], FractionBox["5", "2"], "0", "5", "1", "4", FractionBox["25", "3"], FractionBox["13", "3"], FractionBox["22", "3"], RowBox[{"-", "1"}], "1", "1"}, {"6", "4", "0", FractionBox["5", "2"], FractionBox["40", "9"], "0", "0", "5", "4", "1", FractionBox["25", "3"], FractionBox["22", "3"], FractionBox["13", "3"], "1", RowBox[{"-", "1"}], "1"}, { FractionBox["12", "5"], FractionBox["12", "5"], FractionBox["8", "5"], "0", "0", "0", "0", FractionBox["19", "5"], FractionBox["11", "5"], FractionBox["11", "5"], FractionBox["13", "5"], "1", "1", "1", "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"]], "Input", CellChangeTimes->{{3.7395503078596916`*^9, 3.7395503105624733`*^9}},ExpressionUUID->"d83b528d-2e9d-4409-87e8-\ 79db4d071904"] }, WindowSize->{922, 668}, WindowMargins->{{-8, Automatic}, {Automatic, 0}}, Magnification:>1.1 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, 56, "Input",ExpressionUUID->"748eabe5-c3d2-4801-b8b7-aa7a789097c7"], Cell[1225, 40, 695, 18, 54, "Input",ExpressionUUID->"0ab29ce4-3405-44f4-bf4a-16ef730ff686"], Cell[1923, 60, 9875, 235, 887, "Input",ExpressionUUID->"72e544ec-21b3-4511-8714-78e40bf96f8f"], Cell[11801, 297, 35696, 782, 2519, "Input",ExpressionUUID->"34558bf5-30de-4efd-a85d-1e42927d2f41"], Cell[47500, 1081, 13766, 317, 1077, "Input",ExpressionUUID->"1669407f-19e4-41f4-83d2-404c097a4b8c"], Cell[61269, 1400, 1572, 43, 121, "Input",ExpressionUUID->"0ca661cb-0814-4baa-8045-ccb6be11fd34"], Cell[62844, 1445, 16048, 333, 1001, "Input",ExpressionUUID->"8eb99bd7-ecdf-447b-9254-91418df0046a"], Cell[78895, 1780, 13582, 313, 998, "Input",ExpressionUUID->"df3b60f9-0301-4a00-901e-3f42ad1f6dcc"], Cell[92480, 2095, 3768, 87, 385, "Input",ExpressionUUID->"94e58c8f-e9bc-4bc5-9f72-1e7d65b723b4"], Cell[96251, 2184, 397, 13, 87, "Input",ExpressionUUID->"e0269727-13f8-41e1-9bed-e3d214f9ade5"], Cell[96651, 2199, 682, 20, 60, "Input",ExpressionUUID->"335fc47c-61a3-4d42-b8dc-1a6e429b3dbb"], Cell[97336, 2221, 4976, 131, 452, "Input",ExpressionUUID->"8f83b82e-c1db-40d9-ac4c-a723737f7704"], Cell[102315, 2354, 1032, 29, 55, "Input",ExpressionUUID->"d37cc6ff-e0b5-488e-9c86-c606b2039282"], Cell[103350, 2385, 1961, 44, 143, "Input",ExpressionUUID->"9a3eb7b4-a69e-4770-9009-32f6122d8145"], Cell[105314, 2431, 5280, 132, 209, "Input",ExpressionUUID->"affbea28-f93e-449d-873a-65b52e624ef9"], Cell[110597, 2565, 1188, 32, 55, "Input",ExpressionUUID->"15495297-a588-42f2-9830-ff3a5a9d76a4"], Cell[111788, 2599, 933, 25, 55, "Input",ExpressionUUID->"cd35cdcc-79cb-420e-8b24-2c510cf42e01"], Cell[112724, 2626, 4711, 128, 385, "Input",ExpressionUUID->"51955373-aeda-4085-ab72-d223f9f8f3f2"], Cell[117438, 2756, 7713, 154, 407, "Input",ExpressionUUID->"b49300f9-4eb0-4e74-b00e-238ad2cc61d5"], Cell[125154, 2912, 3802, 89, 297, "Input",ExpressionUUID->"b43a5c15-ff8f-4841-a157-1d63bba9b7c4"], Cell[128959, 3003, 4486, 74, 55, "Input",ExpressionUUID->"8c0d00eb-3a38-4d87-9e21-66e5a04e235e"], Cell[133448, 3079, 175532, 3839, 2977, InheritFromParent,ExpressionUUID->"d83b528d-2e9d-4409-87e8-79db4d071904"] } ] *)