(* 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[ 287225, 6659] NotebookOptionsPosition[ 284830, 6623] NotebookOutlinePosition[ 285172, 6638] CellTagsIndexPosition[ 285129, 6635] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"F", "[", "x_", "]"}], ":=", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"PolyLog", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["\[ExponentialE]", "x"]}]}], "]"}], "-", RowBox[{"PolyLog", "[", RowBox[{"2", ",", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", "x"]}]}], "]"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.737196866673444*^9, 3.737196875196076*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"748eabe5-c3d2-4801-b8b7-aa7a789097c7"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"G3", "[", RowBox[{"a_", ",", "b_"}], "]"}], ":=", RowBox[{ RowBox[{"F", "[", RowBox[{"a", "-", "b"}], "]"}], "+", RowBox[{"F", "[", RowBox[{"b", "-", "a"}], "]"}], "-", RowBox[{ FractionBox["\[Pi]", "2"], RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}]}]}]}], ";"}]], "Input", CellChangeTimes->{ 3.737201965981352*^9, {3.737202002231657*^9, 3.737202033142387*^9}, { 3.737202126146511*^9, 3.7372021534299583`*^9}, {3.7378972597648673`*^9, 3.7378972820313244`*^9}, {3.737897408257219*^9, 3.7378974198940997`*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"0ab29ce4-3405-44f4-bf4a-16ef730ff686"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"EnergySetup", "[", RowBox[{"n_", ",", "FacesCW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "i", ",", "rhoV", ",", "rhoF", ",", "include", ",", "LineFaces", ",", "f", ",", "Faces", ",", "NM", ",", "nonlinefaces", ",", "radii", ",", "RADII"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Faces", "=", RowBox[{"Sort", "/@", "FacesCW"}]}], ";", "\[IndentingNewLine]", RowBox[{"f", "=", RowBox[{"Length", "[", "Faces", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"LineFaces", "=", RowBox[{"{", "}"}]}], ";", RowBox[{"rhoV", "=", RowBox[{"Table", "[", RowBox[{ SubscriptBox["rV", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}]}], ";", RowBox[{"rhoF", "=", RowBox[{"Table", "[", RowBox[{ SubscriptBox["rF", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"f", "-", "2"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"include", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"nonlinefaces", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "f"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"-", "2"}]}], "]"}], "]"}], "\[Equal]", RowBox[{"n", "-", "1"}]}], "&&", RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"-", "1"}]}], "]"}], "]"}], "\[Equal]", "n"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "then", " ", "*)"}], " ", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"include", ",", "i"}], "]"}], ";", RowBox[{"AppendTo", "[", RowBox[{"nonlinefaces", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "else", " ", "*)"}], " ", RowBox[{"AppendTo", "[", RowBox[{"LineFaces", ",", "i"}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"NM", "=", RowBox[{"NMinimize", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], RowBox[{"f", "-", "2"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"Length", "[", RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"include", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "]"}], "]"}]], RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{ RowBox[{"include", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "<", RowBox[{"n", "-", "1"}]}], ",", RowBox[{"G3", "[", RowBox[{ SubscriptBox["rV", RowBox[{"Faces", "[", RowBox[{"[", RowBox[{ RowBox[{"include", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "i"}], "]"}], "]"}]], ",", SubscriptBox["rF", "k"]}], "]"}], ",", "0"}], "]"}]}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"n", "-", "2"}]], RowBox[{ SubscriptBox["rV", "i"], "\[Pi]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Flatten", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "m", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ",", "i"}], "]"}], ",", RowBox[{"(*", " ", "then", " ", "*)"}], " ", "1", ",", RowBox[{"(*", " ", "else", " ", "*)"}], " ", "2"}], "]"}]}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"f", "-", "2"}]], RowBox[{ SubscriptBox["rF", "j"], "\[Pi]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"include", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], "||", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", RowBox[{"include", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], ",", "n"}], "]"}]}], ",", RowBox[{"(*", " ", "then", " ", "*)"}], " ", "1", ",", RowBox[{"(*", " ", "else", " ", "*)"}], " ", "2"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"n", "-", "2"}]], SubscriptBox["rV", "i"]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"f", "-", "2"}]], SubscriptBox["rF", "j"]}]}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"Join", "[", RowBox[{"rhoV", ",", "rhoF"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"RADII", "=", RowBox[{"Exp", "[", RowBox[{"Re", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{"rhoV", ",", "rhoF"}], "]"}], "/.", RowBox[{"(", RowBox[{"NM", "[", RowBox[{"[", "2", "]"}], "]"}], ")"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"RADII", "/=", RowBox[{"RADII", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"radii", "=", RowBox[{"<|", "|>"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"n", "-", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"radii", "[", "i", "]"}], "=", RowBox[{"RADII", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "nonlinefaces", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"radii", "[", RowBox[{"nonlinefaces", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "=", RowBox[{"RADII", "[", RowBox[{"[", RowBox[{"n", "-", "2", "+", "i"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"radii", ",", "LineFaces"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7372045119396753`*^9, 3.7372046545187597`*^9}, { 3.737204685631832*^9, 3.7372047308167467`*^9}, {3.737204773625032*^9, 3.7372048110040503`*^9}, {3.737204842780097*^9, 3.737204924806987*^9}, { 3.7372050053122187`*^9, 3.737205008911607*^9}, {3.73720504639081*^9, 3.7372051214979887`*^9}, {3.7372051736233463`*^9, 3.737205179673382*^9}, { 3.737205261713398*^9, 3.7372052618754*^9}, {3.737205306100531*^9, 3.737205373527009*^9}, {3.737205491627762*^9, 3.737205535178033*^9}, { 3.737206922016953*^9, 3.737206989324239*^9}, {3.737207032865409*^9, 3.737207073209803*^9}, {3.737284915566703*^9, 3.737284955928123*^9}, { 3.737371291071519*^9, 3.7373713419977837`*^9}, {3.737468221809287*^9, 3.737468222498644*^9}, 3.737468268451545*^9, {3.7374683559250183`*^9, 3.737468513179357*^9}, {3.737468554130938*^9, 3.7374685561663094`*^9}, { 3.7374686045167637`*^9, 3.737468621354309*^9}, {3.737468670066434*^9, 3.737468700374711*^9}, {3.73746873598547*^9, 3.737468789149178*^9}, { 3.737469118685132*^9, 3.737469121422579*^9}, {3.737891244695794*^9, 3.737891247299219*^9}, {3.737995135349449*^9, 3.73799513678258*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"72e544ec-21b3-4511-8714-78e40bf96f8f"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Boundary", "[", RowBox[{"n_", ",", "FacesCW_", ",", "LineFaces_", ",", "radii_", ",", RowBox[{"\[Epsilon]_:", "0"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "i", ",", "j", ",", "faces", ",", "vertices", ",", "lastvisited", ",", "d", ",", "h", ",", "H", ",", "breaker", ",", "unvisited", ",", "f", ",", "endcircle", ",", "ComputeEndcircle", ",", "ComputeEndcircle2", ",", "delete"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"unvisited", " ", "=", "FacesCW"}], ";", RowBox[{"(*", RowBox[{ "Keeps", " ", "track", " ", "of", " ", "the", " ", "faces", " ", "we", " ", RowBox[{"haven", "'"}], "t", " ", "visited"}], "*)"}], "\[IndentingNewLine]", RowBox[{"f", "=", RowBox[{"Length", "[", "FacesCW", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"faces", "=", RowBox[{"<|", "|>"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"centers", " ", "of", " ", "face", " ", "circles", " ", RowBox[{"(", RowBox[{ RowBox[{"or", " ", "normals"}], ",", " ", RowBox[{"for", " ", "lines"}]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "f"}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"vertices", "=", RowBox[{"<|", "|>"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"centers", " ", "of", " ", "vertex", " ", "circles", " ", RowBox[{"(", RowBox[{ RowBox[{"or", " ", "normals"}], ",", " ", RowBox[{"for", " ", "lines"}]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"n", "-", "2"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Radii", " ", "is", " ", "an", " ", "assoc", " ", "from", " ", "v"}], "\[Rule]", RowBox[{ RowBox[{"rad", " ", "and", " ", "facelist"}], "\[Rule]", "rad"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Vertex", " ", "circles", " ", "going", " ", "vertically", " ", "upwards", " ", "along", " ", "first", " ", "FaceLine"}], "*)"}], "\[IndentingNewLine]", RowBox[{"h", "=", "0"}], ";", " ", RowBox[{"(*", " ", RowBox[{"height", " ", "along", " ", "the", " ", "left", " ", "line"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{ RowBox[{"Length", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "]"}], "-", "2"}]}], RowBox[{"(*", RowBox[{ "Number", " ", "of", " ", "vertex", " ", "circles", " ", "that", " ", "lie", " ", "along", " ", "first", " ", "LineFace"}], "*)"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"vertices", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"h", "+", RowBox[{"radii", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}]}]}], "}"}]}], ";", RowBox[{"(*", RowBox[{ "Set", " ", "the", " ", "center", " ", "of", " ", "this", " ", "vertex", " ", "circle"}], "*)"}], "\[IndentingNewLine]", RowBox[{"h", "+=", RowBox[{"2", RowBox[{"radii", "[", RowBox[{"[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}], "]"}]}]}]}]}], "]"}], ";", RowBox[{"(*", RowBox[{ "Keeps", " ", "track", " ", "of", " ", "our", " ", "cumulative", " ", "height", " ", "as", " ", "we", " ", "climb", " ", "up", " ", "the", " ", "first", " ", "FaceLine"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"unvisited", "=", RowBox[{"Delete", "[", RowBox[{"unvisited", ",", RowBox[{"Position", "[", RowBox[{"unvisited", ",", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"d", "=", "0"}], ";", RowBox[{"(*", RowBox[{"Horizontal", " ", "distance"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ComputeEndcircle", "[", RowBox[{"prev_", ",", "face_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Returns", " ", "which", " ", "vertex", " ", "circle", " ", "we", " ", "calculated", " ", "last", " ", "based", " ", "on", " ", "previous", " ", "vertex", " ", "circle", " ", "and", " ", "face"}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", RowBox[{"n", "-", "1"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "2"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}], "\[Equal]", "prev"}], ",", "\[IndentingNewLine]", RowBox[{"(*", "then", "*)"}], RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", RowBox[{"n", "-", "1"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", "else", "*)"}], " ", RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", RowBox[{"n", "-", "1"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "2"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"endcircle", "=", RowBox[{"ComputeEndcircle", "[", RowBox[{"n", ",", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], ";", RowBox[{"(*", RowBox[{ RowBox[{ "Previous", " ", "vertex", " ", "circle", " ", "is", " ", "bottom", " ", "line"}], ",", " ", RowBox[{"face", " ", "is", " ", "first", " ", "FaceLine"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Face", " ", "circles", " ", "going", " ", "horizontally", " ", "across", " ", "upper", " ", "vertex", " ", "line"}], "*)"}], "\[IndentingNewLine]", RowBox[{"breaker", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "f"}], " ", ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "unvisited", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], ",", " ", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"determine", " ", "if", " ", "this", " ", "face"}], "-", RowBox[{"circle", " ", "contains", " ", "n"}], "-", "1"}], ",", " ", RowBox[{ "so", " ", "it", " ", "is", " ", "on", " ", "the", " ", "upper", " ", "vertex", " ", "line"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"ComputeEndcircle", "[", RowBox[{"endcircle", ",", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"determine", " ", "if", " ", "this", " ", "face"}], "-", RowBox[{ "circle", " ", "also", " ", "contains", " ", "the", " ", "vertex", " ", "right", " ", "before", " ", "n"}], "-", RowBox[{ "1", " ", "to", " ", "ensure", " ", "we", " ", "are", " ", "going", " ", "horizontally", " ", "across", " ", "in", " ", "the", " ", "right", " ", "order"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"If", " ", RowBox[{"we", "'"}], "ve", " ", "reached", " ", "the", " ", "second", " ", "faceline"}], ",", " ", RowBox[{"then", " ", "do", " ", RowBox[{"nothing", "--"}], "find", " ", "the", " ", "other", " ", "face", " ", "circle", " ", "containing", " ", "endcircle"}]}], "*)"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "else", " ", "if", " ", "the", " ", "face", " ", "circle", " ", "is", " ", "not", " ", "a", " ", "line"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"d", "+", RowBox[{"radii", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", "h"}], "}"}]}], ";", " ", RowBox[{"(*", RowBox[{ "Set", " ", "the", " ", "center", " ", "of", " ", "this", " ", "face", " ", "circle"}], "*)"}], "\[IndentingNewLine]", RowBox[{"d", "+=", RowBox[{"2", RowBox[{"radii", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{ "update", " ", "how", " ", "far", " ", "along", " ", "the", " ", "top", " ", "line", " ", "we", " ", "are"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"endcircle", "=", RowBox[{"ComputeEndcircle", "[", RowBox[{"endcircle", ",", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"(*", RowBox[{"Update", " ", "endcircle"}], "*)"}], "\[IndentingNewLine]", RowBox[{"unvisited", "=", RowBox[{"Delete", "[", RowBox[{"unvisited", ",", "i"}], "]"}]}], ";"}]}], "]"}]}], " ", RowBox[{"(*", " ", RowBox[{ "remove", " ", "that", " ", "face", " ", "from", " ", "the", " ", "unvisited", " ", "list"}], " ", "*)"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "Vertex", " ", "circles", " ", "along", " ", "the", " ", "second", " ", "FaceLine"}], ",", " ", RowBox[{"climbing", " ", "vertically", " ", "upwards"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"h", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{ RowBox[{"Length", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "]"}], "-", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"vertices", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{"d", ",", RowBox[{"h", "+", RowBox[{"radii", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}]}]}], "}"}]}], ";", RowBox[{"h", "+=", RowBox[{"2", RowBox[{"radii", "[", RowBox[{"[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{ RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "i"}], "]"}], "]"}], "]"}], "]"}]}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"H", "=", "h"}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", "0"}], ";", RowBox[{"(*", RowBox[{"Reset", " ", "height"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ComputeEndcircle2", "[", RowBox[{"prev_", ",", "face_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", "n"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "2"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}], "\[Equal]", "prev"}], ",", "\[IndentingNewLine]", RowBox[{"(*", "then", "*)"}], RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", "n"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", "else", "*)"}], " ", RowBox[{"face", "[", RowBox[{"[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"face", ",", "n"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "2"}], ",", RowBox[{"Length", "[", "face", "]"}]}], "]"}], "+", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"endcircle", "=", RowBox[{"ComputeEndcircle2", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "Face", " ", "circles", " ", "along", " ", "lower", " ", "vertex", " ", "line"}], ",", " ", RowBox[{ "moving", " ", "horizontally", " ", "from", " ", "origin", " ", "to", " ", "second", " ", "FaceLine"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"d", "=", "0"}], ";", RowBox[{"(*", RowBox[{"Reset", " ", "distance"}], "*)"}], "\[IndentingNewLine]", RowBox[{"breaker", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "f"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "unvisited", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "n"}], "]"}], ",", " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"determine", " ", "if", " ", "this", " ", "face"}], "-", RowBox[{"circle", " ", "contains", " ", "n"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "endcircle"}], RowBox[{"(*", " ", RowBox[{"ComputeEndcircle2", "[", RowBox[{"endcircle", ",", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], " ", "*)"}], "]"}], ",", RowBox[{"(*", " ", RowBox[{ RowBox[{"determine", " ", "if", " ", "this", " ", "face"}], "-", RowBox[{ "cirlce", " ", "also", " ", "contains", " ", "the", " ", "vertex", " ", "right", " ", "before", " ", "n"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"If", " ", RowBox[{"we", "'"}], "ve", " ", "reached", " ", "the", " ", "second", " ", "faceline"}], ",", " ", RowBox[{"then", " ", "do", " ", "nothing"}]}], "*)"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "else", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"d", "+", RowBox[{"radii", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", "h"}], "}"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"then", " ", RowBox[{"we", "'"}], "ll", " ", "make", " ", "this", " ", RowBox[{"face", "'"}], "s", " ", "center", " ", "be", " ", "where", " ", "we", " ", "know", " ", "it", " ", "is"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"d", "+=", RowBox[{"2", RowBox[{"radii", "[", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{ "update", " ", "how", " ", "far", " ", "along", " ", "the", " ", "bottom", " ", "line", " ", "we", " ", "are"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"endcircle", "=", RowBox[{"ComputeEndcircle2", "[", RowBox[{"endcircle", ",", RowBox[{"unvisited", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"unvisited", "=", RowBox[{"Delete", "[", RowBox[{"unvisited", ",", "i"}], "]"}]}], ";"}]}], "]"}]}], " ", RowBox[{"(*", " ", RowBox[{ "remove", " ", "that", " ", "face", " ", "from", " ", "the", " ", "unvisited", " ", "list"}], " ", "*)"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Set", " ", "the", " ", "normals", " ", "of", " ", "the", " ", "vertex", " ", "lines", " ", "and", " ", "face", " ", "lines"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"vertices", "[", "n", "]"}], "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"vertices", "[", RowBox[{"n", "-", "1"}], "]"}], "=", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"ThrowOrderError", "[", RowBox[{ "faces", ",", "vertices", ",", "radii", ",", "d", ",", "H", ",", "n", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "]"}], "*=", RowBox[{"-", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "]"}], "*=", RowBox[{"-", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"i", "\[Equal]", RowBox[{"n", "-", "1"}]}], "||", RowBox[{"i", "\[Equal]", "n"}]}], ",", "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", "d"}], "]"}], "\[LessEqual]", "\[Epsilon]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", "0"}], "]"}], "\[LessEqual]", "\[Epsilon]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "=", RowBox[{"{", RowBox[{"d", ",", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}]}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Return", " ", "the", " ", RowBox[{"assoc", "'"}], "s", " ", "of", " ", "the", " ", "faces", " ", "to", " ", "their", " ", "centers", " ", "and", " ", "vertices", " ", "to", " ", "their", " ", "centers"}], "*)"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{"vertices", ",", "faces", ",", "d", ",", "H"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.737219030683413*^9, 3.737219068499385*^9}, { 3.737219129031519*^9, 3.737219157331717*^9}, {3.737219214776095*^9, 3.737219232499251*^9}, {3.737219530428797*^9, 3.737219737723432*^9}, { 3.737219973681823*^9, 3.737219981058498*^9}, {3.7372852522441998`*^9, 3.737285273052194*^9}, {3.737285379557729*^9, 3.7372853808850813`*^9}, { 3.737285506667365*^9, 3.737285515803762*^9}, {3.7372856044249487`*^9, 3.737285632285976*^9}, {3.7372857006889677`*^9, 3.7372857800137577`*^9}, { 3.73728584887117*^9, 3.737285857200169*^9}, {3.737286074306966*^9, 3.7372860829425373`*^9}, {3.7372861272847137`*^9, 3.737286147655734*^9}, { 3.737286180526772*^9, 3.737286183012919*^9}, {3.737286465705851*^9, 3.7372864888059*^9}, {3.7372865215606728`*^9, 3.737286606697309*^9}, { 3.737286645970365*^9, 3.737286648042437*^9}, {3.737286686140306*^9, 3.7372867642027607`*^9}, {3.737287269374832*^9, 3.737287342750917*^9}, { 3.737287384822444*^9, 3.7372877639349957`*^9}, {3.737287798168841*^9, 3.737287798698641*^9}, {3.737287874201215*^9, 3.737287886754616*^9}, { 3.73728794855105*^9, 3.73728794906709*^9}, {3.737287984087804*^9, 3.737287984258391*^9}, {3.737288167935055*^9, 3.7372881688958406`*^9}, { 3.737288229464828*^9, 3.7372884829941387`*^9}, {3.7372889651024017`*^9, 3.737289028710766*^9}, {3.73728913478118*^9, 3.7372891349574013`*^9}, { 3.737289176488153*^9, 3.7372892189711437`*^9}, {3.737289296434997*^9, 3.737289307920455*^9}, {3.737289377154367*^9, 3.7372893780167713`*^9}, { 3.73728946731621*^9, 3.7372894685890083`*^9}, {3.737289519964464*^9, 3.7372895646104527`*^9}, {3.737289627498472*^9, 3.7372896504948683`*^9}, { 3.737289698936853*^9, 3.7372897006060762`*^9}, {3.737289761143084*^9, 3.737289790713337*^9}, {3.737289852057372*^9, 3.737289856144655*^9}, { 3.7372899307846327`*^9, 3.737289954524984*^9}, {3.737290111472128*^9, 3.737290137729048*^9}, {3.7372903101204*^9, 3.7372903238682327`*^9}, { 3.737290363021036*^9, 3.737290395639821*^9}, {3.737290434642714*^9, 3.737290436215727*^9}, {3.737290481178443*^9, 3.737290524071663*^9}, { 3.737290651768982*^9, 3.7372906712458363`*^9}, {3.737290704533799*^9, 3.7372907061133537`*^9}, {3.737290744976763*^9, 3.737290766875083*^9}, { 3.737290999240056*^9, 3.737291019271243*^9}, {3.737291057840662*^9, 3.737291080456534*^9}, {3.737291128953987*^9, 3.737291140451013*^9}, { 3.737291260286092*^9, 3.7372914176080303`*^9}, {3.7372914768350573`*^9, 3.737291536874617*^9}, {3.7372915673943977`*^9, 3.73729157857458*^9}, { 3.73729459361259*^9, 3.737294594755714*^9}, {3.737294841256043*^9, 3.737294872151122*^9}, {3.73729499894667*^9, 3.737295013697496*^9}, { 3.737295117321186*^9, 3.737295146177869*^9}, {3.737295198600103*^9, 3.737295201561144*^9}, {3.737295332216126*^9, 3.7372953659228153`*^9}, { 3.7372958344031277`*^9, 3.737296025548025*^9}, {3.737302057273785*^9, 3.737302228939927*^9}, 3.7373022837982073`*^9, {3.737302343644175*^9, 3.737302375974662*^9}, 3.737302421339328*^9, {3.737302477569655*^9, 3.737302565791008*^9}, {3.737302777019927*^9, 3.737302823909573*^9}, { 3.737303123387793*^9, 3.737303214311923*^9}, {3.7373032530403357`*^9, 3.7373032965502157`*^9}, {3.737303417213832*^9, 3.737303518053563*^9}, { 3.737303590633803*^9, 3.737303600566893*^9}, {3.737303631996339*^9, 3.737303736869626*^9}, {3.737303779146243*^9, 3.737303825046517*^9}, { 3.737304130063211*^9, 3.737304181026523*^9}, {3.7373042470907288`*^9, 3.737304349277087*^9}, {3.7373043812177143`*^9, 3.737304407351365*^9}, { 3.737304581411367*^9, 3.737304616831106*^9}, {3.7373046620344*^9, 3.7373047068712873`*^9}, {3.737304771496949*^9, 3.7373048444644938`*^9}, { 3.737305306432076*^9, 3.7373053158581667`*^9}, {3.7373053546618013`*^9, 3.737305355635768*^9}, 3.7373054429132357`*^9, {3.737306098271888*^9, 3.737306106600956*^9}, {3.737306417696192*^9, 3.737306447095158*^9}, { 3.7373064781213903`*^9, 3.737306483985478*^9}, {3.737306573567268*^9, 3.737306587589746*^9}, {3.737306720838073*^9, 3.73730674819695*^9}, { 3.737306852180376*^9, 3.737306861658111*^9}, {3.737306929352565*^9, 3.7373069458296127`*^9}, {3.737306985973919*^9, 3.73730703321769*^9}, { 3.737307104020858*^9, 3.737307104380198*^9}, {3.7373072016479588`*^9, 3.737307219827284*^9}, {3.737307283259153*^9, 3.737307449938692*^9}, { 3.737307507268676*^9, 3.737307531627266*^9}, {3.737307624863483*^9, 3.737307630803578*^9}, 3.7373692366355057`*^9, {3.737378768428591*^9, 3.737378772696554*^9}, {3.737456548739272*^9, 3.737456676468967*^9}, { 3.737456732055797*^9, 3.737456785246457*^9}, {3.737456880379624*^9, 3.73745693261576*^9}, {3.7374569872793217`*^9, 3.737457002918715*^9}, { 3.737457034354722*^9, 3.7374570868457327`*^9}, {3.7374573446089993`*^9, 3.737457359698818*^9}, {3.737457621684537*^9, 3.737457654757286*^9}, { 3.7374577893447638`*^9, 3.7374578203273153`*^9}, 3.73745786787053*^9, { 3.737458414579453*^9, 3.7374584346434393`*^9}, {3.73745848723744*^9, 3.737458515616708*^9}, {3.737458663428769*^9, 3.73745867379788*^9}, { 3.737458742757172*^9, 3.7374588188135767`*^9}, {3.7374589524311037`*^9, 3.737458970370059*^9}, {3.737459004685546*^9, 3.737459017734614*^9}, { 3.737469143102393*^9, 3.737469152438889*^9}, {3.7374723221463118`*^9, 3.7374723517302732`*^9}, {3.737472517403573*^9, 3.73747252044235*^9}, { 3.737472566196344*^9, 3.737472599816885*^9}, {3.737472901109223*^9, 3.737472904411367*^9}, {3.737472959283648*^9, 3.737472959747048*^9}, { 3.737472997133112*^9, 3.737473040080291*^9}, {3.7374732109292183`*^9, 3.73747321567245*^9}, {3.737474220810277*^9, 3.737474243746545*^9}, { 3.737720030799748*^9, 3.7377200552173643`*^9}, {3.737720087337412*^9, 3.7377201185616283`*^9}, {3.737720170734948*^9, 3.737720176149166*^9}, { 3.7377202115121927`*^9, 3.7377202116963243`*^9}, {3.7377202481305037`*^9, 3.737720253754922*^9}, {3.73772028641499*^9, 3.7377203344757833`*^9}, { 3.737891223277732*^9, 3.7378912238571*^9}, {3.737906075544756*^9, 3.7379060758948555`*^9}, {3.737991347709439*^9, 3.7379913481113663`*^9}, { 3.7379951711905804`*^9, 3.7379951715466285`*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"34558bf5-30de-4efd-a85d-1e42927d2f41"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"FindRest", "[", RowBox[{ RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], ",", "r_", ",", "face_", ",", "vertices_", ",", "radii_", ",", "lines_"}], "]"}], ":=", RowBox[{"(*", " ", RowBox[{ "face", " ", "is", " ", "all", " ", "the", " ", "vertices", " ", "that", " ", "the", " ", "face", " ", "intersects"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], ",", RowBox[{"r", ":", " ", RowBox[{ "known", " ", "center", " ", "of", " ", "opposite", " ", "kind", " ", "and", " ", "its", " ", "radius", "\[IndentingNewLine]", "face"}], ":", " ", RowBox[{ "all", " ", "the", " ", "circles", " ", "of", " ", "its", " ", "kind", " ", "that", " ", "pass", " ", "thru", " ", "that", " ", "opposite", " ", "known", " ", "circle", "\[IndentingNewLine]", RowBox[{"vertices", ":", " ", RowBox[{ "all", " ", "the", " ", "circles", " ", "of", " ", "its", " ", "kind", " ", "that", " ", "are", " ", "tangent", " ", "to", " ", "the", " ", "one", " ", RowBox[{"we", "'"}], "e", " ", "looking", " ", "for"}]}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"verts", "=", "vertices"}], ",", "i", ",", "j", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Omega]", ",", RowBox[{"face2", "=", "face"}], ",", "b", ",", RowBox[{"b2", "=", "True"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], "||", RowBox[{"MemberQ", "[", RowBox[{"lines", ",", RowBox[{"face2", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{ RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "face2", "]"}]}], "&&", "b2"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], "&&", RowBox[{"!", RowBox[{"MemberQ", "[", RowBox[{"lines", ",", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"face2", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"face2", "[", RowBox[{"[", RowBox[{"i", ";;"}], "]"}], "]"}], ",", RowBox[{"face2", "[", RowBox[{"[", RowBox[{";;", RowBox[{"i", "-", "1"}]}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"b2", "=", "False"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"b", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{ RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "face2", "]"}]}], "&&", "b"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"lines", ",", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"face2", ",", RowBox[{"face2", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{ RowBox[{"Length", "[", "face2", "]"}], "-", "1"}]}], ",", RowBox[{"j", ">", "i"}], ",", RowBox[{"j", "--"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Phi]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", "x"}], ",", RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", "y"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "]"}], "/", "r"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"j", "+", RowBox[{ "1", " ", "refers", " ", "to", " ", "previously", " ", RowBox[{"computed", " ", "/", " ", "known"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Omega]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "/", "r"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"x", "+", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["r", "2"], "+", SuperscriptBox[ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "2"]}]], RowBox[{"Cos", "[", RowBox[{"\[Phi]", "-", "\[Theta]", "-", "\[Omega]"}], "]"}]}]}], ",", RowBox[{"y", "+", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["r", "2"], "+", SuperscriptBox[ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "2"]}]], RowBox[{"Sin", "[", RowBox[{"\[Phi]", "-", "\[Theta]", "-", "\[Omega]"}], "]"}]}]}]}], "}"}]}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";", RowBox[{"b", "=", "False"}], ";", "Break"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Phi]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", "x"}], ",", RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", "y"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "]"}], "/", "r"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"i", "-", RowBox[{ "1", " ", "refers", " ", "to", " ", "previously", " ", RowBox[{"computed", " ", "/", " ", "known"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Omega]", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "/", "r"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"verts", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"x", "+", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["r", "2"], "+", SuperscriptBox[ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "2"]}]], RowBox[{"Cos", "[", RowBox[{"\[Phi]", "+", "\[Theta]", "+", "\[Omega]"}], "]"}]}]}], ",", RowBox[{"y", "+", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["r", "2"], "+", SuperscriptBox[ RowBox[{"radii", "[", RowBox[{"face2", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "2"]}]], RowBox[{"Sin", "[", RowBox[{"\[Phi]", "+", "\[Theta]", "+", "\[Omega]"}], "]"}]}]}]}], "}"}]}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", "verts"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->CompressedData[" 1:eJwd030s1HEcB/BfylGhk+tmultSuqz0uKhUSsyVHk/IlWr0YDJEU5e7DCc0 xE8RihBdiLsJV1mblsgqD7XuGnk4VNfJUw/S1Pq9v3989vrn8/lsn733WRwY LjplRFHUbqagpUVmqkRr2NG6wv0a7HQYuQXPRnmXwOv+3EpokxSqhF+2f38I lZsLGqBOPdYCk/t9u2FwUvkgPLRzgQFSUv4kVJm++QOL5xwwucQoqxYT51v7 mUGnzw+JDds9raDUoOPDKKO/ofC6yjQCpi1nxcGy28OJcBEtS4NU/lAWDGfb 58Nkn7W3oLjOuQwq3aOI5W6FatgYW/ACjnq2vyLzWroT0q+tNfC4W2sXbNHv 0sGevSnERzZheii6T8+IYbR0KjSFuoxG4nBt8xGomNtOFA28CyJ9m35JoTwj RQ7NFV40XHfKIhveiPxBvLxzpADy7vNL4Pkuk2pYvLRQBV/lmb2FNQFUNzT1 2DYIs/VaImvAVw+nDyYRU/7uG4WRvMeT8MJklbGM0VbQSdwaqOmNZbyaOasP zlJXfILdnDaiE+fpnnjk4K8lardZ1EDbc5wGmDplPgrr+DQrgXHEksODD35X Ewd/S4TQ7n3FMbhJ4BcEKcd1wVB+xicUFj35FA63rF9zAXI/512CPar5V6BP 2+l00n+6loZ3J1xyoNgvpgDuize+A1ewKAVkf/xeAQUlC5TwnOZ9ExwLbP4I n2kbB+BGrnoY9ndMjcEjs4t2p+GuLuF+yB2mg+CcBMcQyBp/GQYpm3lSyLZ1 yYIeFvJiyAt9Vg4V3hNKuKiqvgmK3AJa4HOxuo3st/PvgBnCsSEYwa00wD5b q5mFyCvagQ1POKa332HcvLKmAzYFeWlgvGU6UajzHoScEGocrr4pnYbub4X/ YH1tolER/qU3h8h2dHWGkqyFG+FRL9VBqBt6RPxl3HMYTn/7EwATv+VGwH/H FkZC694l0fCrRC6BveuzY6H96ityOFsWdg+WunYr4A8zWStcddmlDZaXxq2J /sD888pcYp/m5DIpY7PxBgEUXHT7qWBMtooi/gegIJ/I "], CellLabel->"In[5]:=",ExpressionUUID->"1669407f-19e4-41f4-83d2-404c097a4b8c"], Cell[BoxData[ RowBox[{ RowBox[{"Cull", "[", "assoc_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"vis", "=", RowBox[{"{", "}"}]}], ",", RowBox[{"unv", "=", RowBox[{"{", "}"}]}], ",", "i"}], "}"}], ",", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"Keys", "[", "assoc", "]"}], "]"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"assoc", "[", RowBox[{ RowBox[{"Keys", "[", "assoc", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], ",", RowBox[{"AppendTo", "[", RowBox[{"unv", ",", RowBox[{ RowBox[{"Keys", "[", "assoc", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"AppendTo", "[", RowBox[{"vis", ",", RowBox[{ RowBox[{"Keys", "[", "assoc", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";", RowBox[{"{", RowBox[{"vis", ",", "unv"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.737378883847493*^9, 3.7373790220179577`*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"0ca661cb-0814-4baa-8045-ccb6be11fd34"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Interior", "[", RowBox[{ "n_", ",", "FacesCW_", ",", "LineFaces_", ",", "radii_", ",", "vertices_", ",", "faces_", ",", "d_", ",", "h_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Vunv", "=", RowBox[{"{", "}"}]}], ",", RowBox[{"Funv", "=", RowBox[{"{", "}"}]}], ",", RowBox[{"Vvis", "=", RowBox[{"{", "}"}]}], ",", RowBox[{"Fvis", "=", RowBox[{"{", "}"}]}], ",", "i", ",", "j", ",", "f", ",", RowBox[{"verts", "=", "vertices"}], ",", "verts2", ",", RowBox[{"fcs", "=", "faces"}], ",", "fcs2", ",", "fi", ",", "vi", ",", "x", ",", "y", ",", "k", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "=", RowBox[{"Length", "[", "FacesCW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"vertices", "[", "i", "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], ",", RowBox[{"AppendTo", "[", RowBox[{"Vunv", ",", "i"}], "]"}], ",", RowBox[{"AppendTo", "[", RowBox[{"Vvis", ",", "i"}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "f"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"FacesCW", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], ",", RowBox[{"AppendTo", "[", RowBox[{"Funv", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"AppendTo", "[", RowBox[{"Fvis", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{ RowBox[{"j", "\[LessEqual]", RowBox[{"n", "+", RowBox[{"Length", "[", "FacesCW", "]"}]}]}], "&&", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Length", "[", "Vunv", "]"}], "+", RowBox[{"Length", "[", "Funv", "]"}]}], ">", "0"}], ")"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "Fvis", "]"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"(*", " ", RowBox[{ "for", " ", "a", " ", "known", " ", "face", " ", "circle"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Intersection", "[", RowBox[{"Vvis", ",", RowBox[{"Fvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "]"}], "*", RowBox[{"Length", "[", RowBox[{"Intersection", "[", RowBox[{"Vunv", ",", RowBox[{"Fvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "]"}]}], ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"fi", "=", RowBox[{"Fvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "=", RowBox[{"fcs", "[", "fi", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"verts2", "=", RowBox[{"FindRest", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"radii", "[", "fi", "]"}], ",", "fi", ",", "verts", ",", "radii", ",", RowBox[{"{", RowBox[{ RowBox[{"n", "-", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"ThrowOrderError", "[", RowBox[{ "fcs", ",", "verts2", ",", "radii", ",", "d", ",", "h", ",", "n", ",", RowBox[{"{", RowBox[{ RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"FacesCW", "[", RowBox[{"[", RowBox[{"LineFaces", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", "0"}], "]"}], ",", RowBox[{"verts", "=", RowBox[{"FindRest", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"radii", "[", "fi", "]"}], ",", RowBox[{"Reverse", "[", "fi", "]"}], ",", "verts", ",", "radii", ",", RowBox[{"{", RowBox[{ RowBox[{"n", "-", "1"}], ",", "n"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"verts", "=", "verts2"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Vvis", ",", "Vunv"}], "}"}], "=", RowBox[{"Cull", "[", "verts", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "Vvis", "]"}]}], ",", RowBox[{"i", "++"}], ",", " ", RowBox[{"(*", " ", RowBox[{ "for", " ", "a", " ", "known", " ", "vertex", " ", "circle"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"b", "=", "False"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "\[LessEqual]", RowBox[{"Length", "[", "Fvis", "]"}]}], ",", RowBox[{"k", "++"}], ",", RowBox[{"b", "=", RowBox[{"b", "||", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Fvis", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"Vvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", "True", ",", "False"}], "]"}]}]}]}], "]"}], ";", "b"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"b", "=", "False"}], ";", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "\[LessEqual]", RowBox[{"Length", "[", "Funv", "]"}]}], ",", RowBox[{"k", "++"}], ",", RowBox[{"b", "=", RowBox[{"b", "||", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Funv", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"Vvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", "True", ",", "False"}], "]"}]}]}]}], "]"}], ";", "b"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "then", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vi", "=", RowBox[{"Vvis", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "=", RowBox[{"verts", "[", "vi", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fcs2", "=", RowBox[{"FindRest", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"radii", "[", "vi", "]"}], ",", RowBox[{"FacesList", "[", RowBox[{"vi", ",", "FacesCW"}], "]"}], ",", "fcs", ",", "radii", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"ThrowOrderError", "[", RowBox[{ "fcs2", ",", "verts", ",", "radii", ",", "d", ",", "h", ",", "n", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"fcs", "=", RowBox[{"FindRest", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"radii", "[", "vi", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Reverse", "[", RowBox[{"FacesList", "[", RowBox[{"vi", ",", "FacesCW"}], "]"}], "]"}], ",", "fcs", ",", "radii", ",", RowBox[{"FacesCW", "[", RowBox[{"[", "LineFaces", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"fcs", "=", "fcs2"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Fvis", ",", "Funv"}], "}"}], "=", RowBox[{"Cull", "[", "fcs", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"verts", ",", "fcs"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.737371589519445*^9, 3.7373715939907503`*^9}, { 3.7373717937672253`*^9, 3.737371867174656*^9}, {3.737371907831069*^9, 3.73737217884262*^9}, {3.7373722186269712`*^9, 3.737372303076326*^9}, { 3.737372765799387*^9, 3.737372795651403*^9}, {3.737372858097958*^9, 3.73737290560703*^9}, {3.7373729483086967`*^9, 3.737372962791078*^9}, { 3.737376949244026*^9, 3.737377199857114*^9}, {3.737378821576833*^9, 3.737378856709831*^9}, {3.737379029954533*^9, 3.737379249070065*^9}, { 3.737379302218759*^9, 3.737379442833221*^9}, {3.737379504802657*^9, 3.737379571504554*^9}, {3.73737972110927*^9, 3.737379741421777*^9}, { 3.737380015082492*^9, 3.737380027586205*^9}, {3.737380096483328*^9, 3.737380123433268*^9}, {3.737380170681796*^9, 3.7373801708619337`*^9}, { 3.737380320948838*^9, 3.7373804262726393`*^9}, {3.73738047325154*^9, 3.737380485443796*^9}, {3.737380518592564*^9, 3.737380537424242*^9}, { 3.737380576718589*^9, 3.737380596012712*^9}, {3.7373859949503098`*^9, 3.7373860041894217`*^9}, {3.7373893401960897`*^9, 3.737389340516891*^9}, { 3.737390296785729*^9, 3.7373904116517477`*^9}, {3.7373904724338512`*^9, 3.737390578698831*^9}, {3.737390622302457*^9, 3.737390636926055*^9}, 3.737390871387472*^9, {3.737391458456609*^9, 3.7373915337313957`*^9}, { 3.7373916762920856`*^9, 3.7373916866307707`*^9}, {3.737391755289661*^9, 3.737391760387761*^9}, {3.737392424160388*^9, 3.737392446839201*^9}, { 3.7373926496569033`*^9, 3.7373926770265007`*^9}, {3.737415538959766*^9, 3.737415550423221*^9}, {3.7374157811082497`*^9, 3.737415783008522*^9}, { 3.737416229137042*^9, 3.73741626934859*^9}, {3.737416301320304*^9, 3.7374164268381977`*^9}, {3.737416488079246*^9, 3.737416506542727*^9}, { 3.737418543755864*^9, 3.737418614467947*^9}, {3.73745208819372*^9, 3.7374521079510527`*^9}, {3.737452248507903*^9, 3.737452260807358*^9}, 3.737452337464182*^9, {3.737452547756901*^9, 3.737452552175274*^9}, { 3.737452597327281*^9, 3.737452623027234*^9}, {3.737452951467626*^9, 3.7374529538565903`*^9}, {3.7374529931356688`*^9, 3.73745300450865*^9}, { 3.737453253031118*^9, 3.7374532838306513`*^9}, {3.737453448755361*^9, 3.7374535016621037`*^9}, {3.737453540364457*^9, 3.7374535737880087`*^9}, { 3.7374536292349997`*^9, 3.737453661316655*^9}, {3.737453692604967*^9, 3.737453705446292*^9}, {3.7374538230331917`*^9, 3.737453850633659*^9}, { 3.7374540473125362`*^9, 3.73745406845465*^9}, {3.737454116980228*^9, 3.737454141500236*^9}, {3.737454665545776*^9, 3.737454752199181*^9}, { 3.737454823087352*^9, 3.737454936342786*^9}, {3.73745497887639*^9, 3.7374549822716417`*^9}, {3.737455062923647*^9, 3.737455067024728*^9}, { 3.7374592709534693`*^9, 3.737459282809087*^9}, {3.737459718460556*^9, 3.7374598283067007`*^9}, {3.737459871128312*^9, 3.737459943923081*^9}, { 3.737460424909642*^9, 3.737460468107106*^9}, {3.737460531451869*^9, 3.7374605342064867`*^9}, {3.737460570370933*^9, 3.73746065914788*^9}, { 3.737469228334271*^9, 3.7374692297752113`*^9}, {3.7374759421424723`*^9, 3.737475959220735*^9}, {3.737475996982561*^9, 3.737476043275124*^9}, { 3.7374760741261263`*^9, 3.7374762044096413`*^9}, {3.737476237384112*^9, 3.737476257932431*^9}, {3.737476290722767*^9, 3.7374763178872833`*^9}, { 3.737476633241235*^9, 3.73747668584684*^9}, {3.737476775880768*^9, 3.737476807271324*^9}, {3.737476934280177*^9, 3.7374769365813828`*^9}, { 3.737476994438554*^9, 3.7374770257193117`*^9}, {3.737478615746154*^9, 3.737478664034655*^9}, {3.737478700737122*^9, 3.737478703803566*^9}, { 3.737891193943988*^9, 3.7378911945027657`*^9}, {3.7379034272313843`*^9, 3.737903448515432*^9}, 3.737903546475888*^9}, CellLabel->"In[7]:=",ExpressionUUID->"8eb99bd7-ecdf-447b-9254-91418df0046a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ThrowOrderError", "[", RowBox[{ "fcs2_", ",", "verts_", ",", "radii_", ",", "d_", ",", "h_", ",", "n_", ",", "fls_", ",", "\[Epsilon]_"}], "]"}], RowBox[{"(*", " ", RowBox[{"fcs2", " ", "is", " ", "proposed", " ", "fcs", " ", RowBox[{"association", ".", " ", "fls"}], " ", "is", " ", "facelines"}], " ", "*)"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", "b", ",", "b2", ",", "K"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"K", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"Keys", "[", "fcs2", "]"}], "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"!", RowBox[{"MemberQ", "[", RowBox[{"fls", ",", RowBox[{ RowBox[{"Keys", "[", "fcs2", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ",", RowBox[{"AppendTo", "[", RowBox[{"K", ",", RowBox[{ RowBox[{"Keys", "[", "fcs2", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"b", "=", "False"}], ";", " ", RowBox[{"(*", " ", "\"\\"", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{ RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "K", "]"}]}], "&&", RowBox[{"!", "b"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"b2", "=", "False"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"-", "\[Infinity]"}], "<", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "<", "0"}], "\[IndentingNewLine]", "||", RowBox[{ RowBox[{"-", "\[Infinity]"}], "<", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "<", "0"}], "\[IndentingNewLine]", "||", RowBox[{ RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ">", "d"}], "\[IndentingNewLine]", "||", RowBox[{ RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ">", "h"}], "\[IndentingNewLine]", "||", RowBox[{"(", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"K", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"n", "-", "1"}]}], "&&", RowBox[{ RowBox[{"K", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "n"}], "&&", RowBox[{ RowBox[{"verts", "[", RowBox[{"K", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], "&&", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"EuclideanDistance", "[", RowBox[{ RowBox[{"verts", "[", RowBox[{"K", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], ",", RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "]"}], "\[GreaterEqual]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Epsilon]"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"radii", "[", RowBox[{"K", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], "+", RowBox[{"radii", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"b2", "=", "True"}], ";", "Break"}]}], "]"}]}], "]"}]}], "]"}], ";", "b2"}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"b", "=", "True"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{ RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "K", "]"}]}], "&&", RowBox[{"!", "b"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"i", "\[NotEqual]", "j"}], "&&", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], "&&", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "\[NotEqual]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Infinity]"}]}], "}"}]}], "&&", "\[IndentingNewLine]", RowBox[{ RowBox[{"EuclideanDistance", "[", RowBox[{ RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "]"}], "<", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "\[Epsilon]"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"radii", "[", RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"radii", "[", RowBox[{"fcs2", "[", RowBox[{"K", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}]}], ")"}]}]}]}], "\[IndentingNewLine]", ",", RowBox[{"(*", " ", RowBox[{"then", ",", " ", "bad"}], " ", "*)"}], " ", RowBox[{"b", "=", "True"}]}], "]"}]}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{ RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"fls", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "&&", RowBox[{"!", "b"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"fls", "[", RowBox[{"[", RowBox[{"1", ",", "i"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{ FractionBox["d", "2"], "+", RowBox[{ RowBox[{ RowBox[{"fcs2", "[", RowBox[{"fls", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FractionBox["d", "2"]}]}]}], "&&", RowBox[{ RowBox[{"fls", "[", RowBox[{"[", RowBox[{"1", ",", "i"}], "]"}], "]"}], "<", RowBox[{"n", "-", "1"}]}]}], ",", RowBox[{"b", "=", "True"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{ RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"fls", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "&&", RowBox[{"!", "b"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"verts", "[", RowBox[{"fls", "[", RowBox[{"[", RowBox[{"2", ",", "i"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{ FractionBox["d", "2"], "+", RowBox[{ RowBox[{ RowBox[{"fcs2", "[", RowBox[{"fls", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FractionBox["d", "2"]}]}]}], "&&", RowBox[{ RowBox[{"fls", "[", RowBox[{"[", RowBox[{"2", ",", "i"}], "]"}], "]"}], "<", RowBox[{"n", "-", "1"}]}]}], ",", RowBox[{"b", "=", "True"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "b"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7373860513513117`*^9, 3.737386324009047*^9}, { 3.7373863565686207`*^9, 3.737386763058362*^9}, {3.737387011692689*^9, 3.7373874131979523`*^9}, {3.737387444285528*^9, 3.737387446417802*^9}, { 3.737387501724284*^9, 3.7373875162781897`*^9}, {3.7373875865809803`*^9, 3.7373876073787117`*^9}, {3.737387674890192*^9, 3.737387682382772*^9}, { 3.737387740454358*^9, 3.7373877582071867`*^9}, {3.737387870977488*^9, 3.737387912943714*^9}, {3.737388020284473*^9, 3.7373880216503363`*^9}, { 3.7373881133311872`*^9, 3.7373881231093473`*^9}, {3.737388218003031*^9, 3.737388251234787*^9}, {3.737388306336886*^9, 3.7373884325997267`*^9}, { 3.73738859353605*^9, 3.737388596101646*^9}, {3.7373886515625*^9, 3.737388731115857*^9}, {3.737388764603668*^9, 3.7373887825179358`*^9}, { 3.737388827395173*^9, 3.73738885534306*^9}, {3.7373889569580507`*^9, 3.7373891513974247`*^9}, {3.737389185971114*^9, 3.737389229300188*^9}, { 3.7373892871568117`*^9, 3.73738930336942*^9}, {3.737451960169162*^9, 3.737451962438613*^9}, {3.737452188533687*^9, 3.7374522140811863`*^9}, { 3.7374523846778708`*^9, 3.737452411688586*^9}, {3.7374524423850327`*^9, 3.7374525059763308`*^9}, {3.7374527627193413`*^9, 3.7374528272523108`*^9}, {3.7374529127507477`*^9, 3.737452943447597*^9}, { 3.737453021653625*^9, 3.737453033081242*^9}, 3.737453194007431*^9, { 3.737457949590412*^9, 3.737458106215234*^9}, {3.737458155680525*^9, 3.737458160666041*^9}, {3.7374582249762278`*^9, 3.737458233452886*^9}, 3.7379035853422227`*^9, {3.7379952037395506`*^9, 3.7379952046351557`*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"df3b60f9-0301-4a00-901e-3f42ad1f6dcc"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FacesList", "[", RowBox[{"v_", ",", "Faces_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ContainV", "=", RowBox[{"{", "}"}]}], ",", "i", ",", RowBox[{"L", "=", "2"}], ",", RowBox[{"p", "=", "3"}], ",", "temp"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "Faces", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Faces", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "v"}], "]"}], ",", RowBox[{"AppendTo", "[", RowBox[{"ContainV", ",", RowBox[{"Faces", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"L", "<", RowBox[{"Length", "[", "ContainV", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{"p", "\[LessEqual]", RowBox[{"Length", "[", "ContainV", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Intersection", "[", RowBox[{ RowBox[{"ContainV", "[", RowBox[{"[", RowBox[{"L", "-", "1"}], "]"}], "]"}], ",", RowBox[{"ContainV", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], "]"}], "\[Equal]", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"temp", "=", RowBox[{"ContainV", "[", RowBox[{"[", "p", "]"}], "]"}]}], ";", RowBox[{ RowBox[{"ContainV", "[", RowBox[{"[", "p", "]"}], "]"}], "=", RowBox[{"ContainV", "[", RowBox[{"[", "L", "]"}], "]"}]}], ";", RowBox[{ RowBox[{"ContainV", "[", RowBox[{"[", "L", "]"}], "]"}], "=", "temp"}], ";", RowBox[{"p", "=", RowBox[{"1", "+", RowBox[{"Length", "[", "ContainV", "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{"p", "++"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"L", "++"}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"L", "+", "1"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "ContainV"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7373893963188553`*^9, 3.737389499461423*^9}, { 3.737389625681715*^9, 3.7373896502694798`*^9}, {3.7373897037433033`*^9, 3.737389735684783*^9}, {3.737389775354559*^9, 3.737389877602042*^9}, { 3.737389938671054*^9, 3.737389955021085*^9}, {3.737390098064752*^9, 3.7373901898598967`*^9}, {3.7373902333090754`*^9, 3.737390260404229*^9}, { 3.737477725750886*^9, 3.7374777259423532`*^9}, {3.737477772140749*^9, 3.737477809678876*^9}, {3.737477865110086*^9, 3.7374778881276903`*^9}, { 3.7374781429692793`*^9, 3.737478158525076*^9}, {3.737478266335372*^9, 3.737478275141066*^9}, {3.7374783969519587`*^9, 3.7374784008097754`*^9}, { 3.737903596846489*^9, 3.737903597250413*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"94e58c8f-e9bc-4bc5-9f72-1e7d65b723b4"], Cell[BoxData[ RowBox[{ RowBox[{"Q", "=", RowBox[{"(", GridBox[{ {"0", RowBox[{"1", "/", "2"}], "0", "0"}, { RowBox[{"1", "/", "2"}], "0", "0", "0"}, {"0", "0", RowBox[{"-", "1"}], "0"}, {"0", "0", "0", RowBox[{"-", "1"}]} }], ")"}]}], ";"}]], "Input", CellLabel->"In[10]:=",ExpressionUUID->"e0269727-13f8-41e1-9bed-e3d214f9ade5"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"InvCoords", "[", RowBox[{"z_", ",", "r_", ",", RowBox[{"d_:", "0"}]}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"r", "\[Equal]", "\[Infinity]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "d"}], ",", "0", ",", "z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"Norm", "[", "z", "]"}], "2"], "r"], "-", "r"}], ",", RowBox[{"1", "/", "r"}], ",", RowBox[{"z", "/", "r"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellLabel->"In[11]:=",ExpressionUUID->"335fc47c-61a3-4d42-b8dc-1a6e429b3dbb"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Gram", "[", "SC_", "]"}], ":=", RowBox[{"SC", ".", "Q", ".", RowBox[{"Transpose", "[", "SC", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SuperCluster", "[", RowBox[{ "vertices_", ",", "faces_", ",", "radii_", ",", "fls_", ",", "d_", ",", "h_", ",", "n_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sc", "=", RowBox[{"{", "}"}]}], ",", "i"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"n", "-", "2"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"vertices", "[", "i", "]"}], ",", RowBox[{"radii", "[", "i", "]"}]}], "]"}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"vertices", "[", RowBox[{"n", "-", "1"}], "]"}], ",", "\[Infinity]", ",", RowBox[{ FractionBox["h", "2"], "+", RowBox[{ RowBox[{ RowBox[{"vertices", "[", RowBox[{"n", "-", "1"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], FractionBox["h", "2"]}]}]}], "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"vertices", "[", "n", "]"}], ",", "\[Infinity]", ",", RowBox[{ FractionBox["h", "2"], "+", RowBox[{ RowBox[{ RowBox[{"vertices", "[", "n", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], FractionBox["h", "2"]}]}]}], "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"Keys", "[", "faces", "]"}], "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"!", RowBox[{"MemberQ", "[", RowBox[{"fls", ",", RowBox[{ RowBox[{"Keys", "[", "faces", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"faces", "[", RowBox[{ RowBox[{"Keys", "[", "faces", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"radii", "[", RowBox[{ RowBox[{"Keys", "[", "faces", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"faces", "[", RowBox[{"fls", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", "\[Infinity]", ",", RowBox[{ FractionBox["d", "2"], "+", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"fls", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FractionBox["d", "2"]}]}]}], "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"sc", ",", RowBox[{"Flatten", "[", RowBox[{"InvCoords", "[", RowBox[{ RowBox[{"faces", "[", RowBox[{"fls", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", "\[Infinity]", ",", RowBox[{ FractionBox["d", "2"], "+", RowBox[{ RowBox[{ RowBox[{"faces", "[", RowBox[{"fls", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FractionBox["d", "2"]}]}]}], "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "sc"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellLabel->"In[12]:=",ExpressionUUID->"8f83b82e-c1db-40d9-ac4c-a723737f7704"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DrawCircle", "[", RowBox[{"{", RowBox[{"bhat_", ",", "b_", ",", "bx_", ",", "by_"}], "}"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "b", "]"}], "\[GreaterEqual]", " ", ".01"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"bx", ",", "by"}], "}"}], "/", "b"}], ",", RowBox[{"1", "/", "b"}]}], "]"}], ",", RowBox[{"InfiniteLine", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"bx", ",", "by"}], "}"}], RowBox[{"bhat", "/", "2"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "by"}], ",", "bx"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7383666121648498`*^9, 3.7383666304241414`*^9}, { 3.738366663056327*^9, 3.738366710683964*^9}, {3.7383669102892475`*^9, 3.73836691462473*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"d37cc6ff-e0b5-488e-9c86-c606b2039282"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Packing", "[", RowBox[{"n_", ",", "FacesCW_", ",", RowBox[{"\[Epsilon]_:", "0"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "radii", ",", "LineFaces", ",", "vertices", ",", "faces", ",", "d", ",", "h"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"radii", ",", "LineFaces"}], "}"}], "=", RowBox[{"EnergySetup", "[", RowBox[{"n", ",", "FacesCW"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"vertices", ",", "faces", ",", "d", ",", "h"}], "}"}], "=", RowBox[{"Boundary", "[", RowBox[{ "n", ",", "FacesCW", ",", "LineFaces", ",", "radii", ",", "\[Epsilon]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"vertices", ",", "faces"}], "}"}], "=", RowBox[{"Interior", "[", RowBox[{ "n", ",", "FacesCW", ",", "LineFaces", ",", "radii", ",", "vertices", ",", "faces", ",", "d", ",", "h"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "vertices", ",", "faces", ",", "radii", ",", "d", ",", "h", ",", "LineFaces"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.737469007369687*^9, 3.737469107407995*^9}, { 3.73746916343927*^9, 3.737469194858486*^9}, {3.737469239984439*^9, 3.737469246965393*^9}, {3.737469315964088*^9, 3.737469336634994*^9}, { 3.737469428057992*^9, 3.737469432696295*^9}, {3.737469465014307*^9, 3.737469481114959*^9}, {3.7374695687460957`*^9, 3.7374696091341476`*^9}, { 3.737470455200612*^9, 3.7374704661283417`*^9}, {3.737478361306628*^9, 3.7374783619053802`*^9}, {3.737720455890616*^9, 3.737720462414033*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"9a3eb7b4-a69e-4770-9009-32f6122d8145"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Render", "[", RowBox[{ "radii_", ",", "fcs_", ",", "verts_", ",", "fls_", ",", "n_", ",", "d_", ",", "h_"}], "]"}], ":=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", "Thick", ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", RowBox[{"n", "-", "1"}]}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}], ",", "h"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"d", "+", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}], ",", "h"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", "n"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"d", "+", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}], ",", "0"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"verts", "[", RowBox[{ RowBox[{"Keys", "[", "verts", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"radii", "[", RowBox[{ RowBox[{"Keys", "[", "verts", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", "Dashed", ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Keys", "[", "fcs", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", RowBox[{"fls", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"h", "+", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Keys", "[", "fcs", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", RowBox[{"fls", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d", ",", RowBox[{"-", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"d", ",", RowBox[{"h", "+", RowBox[{"Max", "[", RowBox[{"Values", "[", "radii", "]"}], "]"}]}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"fcs", "[", RowBox[{ RowBox[{"Keys", "[", "fcs", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"radii", "[", RowBox[{ RowBox[{"Keys", "[", "fcs", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", RowBox[{"Keys", "[", "fcs", "]"}], "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7373911026555433`*^9, 3.737391276476068*^9}, { 3.737391324439508*^9, 3.737391325806115*^9}, {3.7373913655803022`*^9, 3.73739137356105*^9}, {3.737460834501174*^9, 3.7374608791258917`*^9}, { 3.737460909495472*^9, 3.737460979640925*^9}, {3.737469858560081*^9, 3.737469918056663*^9}, {3.73746995156046*^9, 3.7374701969102716`*^9}, { 3.737470230362206*^9, 3.737470299948655*^9}, 3.7378928141832247`*^9}, CellLabel->"In[16]:=",ExpressionUUID->"affbea28-f93e-449d-873a-65b52e624ef9"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SendToInt", "[", RowBox[{"\[Epsilon]_:", "0"}], "]"}], "[", "y_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"x", "=", RowBox[{"Simplify", "[", "y", "]"}]}], "}"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "-", RowBox[{"Floor", "[", "x", "]"}]}], "]"}], "\[LessEqual]", "\[Epsilon]"}], " ", ",", RowBox[{"Floor", "[", "x", "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "-", RowBox[{"Ceiling", "[", "x", "]"}]}], "]"}], "\[LessEqual]", " ", "\[Epsilon]"}], " ", ",", RowBox[{"Ceiling", "[", "x", "]"}], ",", "x"}], "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7384110559425135`*^9, 3.7384110603257904`*^9}, { 3.7384111195493803`*^9, 3.7384111627798147`*^9}, {3.738880289322649*^9, 3.7388803034648275`*^9}}, CellLabel-> "In[102]:=",ExpressionUUID->"15495297-a588-42f2-9830-ff3a5a9d76a4"], Cell[BoxData[{ RowBox[{ RowBox[{"R", "[", "vhat_", "]"}], ":=", RowBox[{ RowBox[{"IdentityMatrix", "[", "4", "]"}], "+", RowBox[{"2", RowBox[{"Q", ".", RowBox[{"Transpose", "[", RowBox[{"{", "vhat", "}"}], "]"}], ".", RowBox[{"{", "vhat", "}"}]}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BMat", "[", "n_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"b", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.7378245147847567`*^9, 3.737824531315222*^9}, { 3.737995674554207*^9, 3.7379956992022705`*^9}, 3.7380623568729105`*^9, 3.7391258385776196`*^9}, CellLabel-> "In[661]:=",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[{ RowBox[{"BMat", "[", "n", "]"}], "/.", "assignments"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"C", "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "4", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "5", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "6", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "7", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "8", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "9", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "10", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "11", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "12", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "13", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "14", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "15", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "16", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "17", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "18", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "19", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "20", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"C", "[", "21", "]"}], "\[Rule]", "0"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"others1", "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{"rest", "\[Equal]", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "l"}], "}"}]}], "]"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"others2", "=", RowBox[{"<|", "|>"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "l"}], ",", RowBox[{"j", "++"}], ",", RowBox[{ RowBox[{"others2", "[", RowBox[{"rest", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "=", RowBox[{"Subscript", "[", RowBox[{"a", ",", "j"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"others2", "=", RowBox[{"Normal", "[", "others2", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BMat", "[", "n", "]"}], "/.", RowBox[{"(", RowBox[{"assignments", "/.", "others1"}], ")"}]}], ")"}], "/.", "others1"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.7391258452816734`*^9, 3.739125845298628*^9}}, CellLabel-> "In[663]:=",ExpressionUUID->"19320079-fb62-4d6b-b49d-a30846974421"], 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.7391258521573105`*^9}, CellLabel-> "In[665]:=",ExpressionUUID->"b49300f9-4eb0-4e74-b00e-238ad2cc61d5"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Orbit", "[", RowBox[{"co_", ",", "cl_", ",", "steps_", ",", RowBox[{"sizemax_:", "\[Infinity]"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", "k", ",", RowBox[{"orbit", "=", "cl"}], ",", "L"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "steps"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"L", "=", RowBox[{"Length", "[", "orbit", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "co", "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "\[LessEqual]", "L"}], ",", RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ "orbit", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ".", RowBox[{"R", "[", RowBox[{ "co", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], "]"}]}], ")"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[LessEqual]", "sizemax"}], "&&", RowBox[{"!", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"N", "[", "orbit", "]"}], ",", ".001"}], "]"}], ",", RowBox[{"Round", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{ "orbit", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ".", RowBox[{"R", "[", RowBox[{ "co", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], "]"}]}], "]"}], ",", ".001"}], "]"}]}], RowBox[{"(*", RowBox[{"new", " ", "thing"}], "*)"}], "]"}]}]}], ",", RowBox[{"AppendTo", "[", RowBox[{"orbit", ",", RowBox[{ RowBox[{ "orbit", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ".", RowBox[{"R", "[", RowBox[{ "co", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], "]"}]}]}], RowBox[{"(*", "newthing", "*)"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "orbit"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.738062389806858*^9, 3.738062427087122*^9}, { 3.7380625273360224`*^9, 3.7380625840383434`*^9}, {3.738064608037428*^9, 3.738064608439394*^9}, {3.738408767299783*^9, 3.738408799676605*^9}, { 3.7385983894314737`*^9, 3.738598391136881*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"b43a5c15-ff8f-4841-a157-1d63bba9b7c4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Everything", "[", RowBox[{"7", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"1", "/", "100"}], ",", "5", ",", "32"}], "]"}]], "Input", CellChangeTimes->{{3.737720388591385*^9, 3.7377204147139273`*^9}, { 3.73799104566405*^9, 3.737991046219566*^9}, {3.7379911247406125`*^9, 3.737991126272558*^9}, 3.737992714004908*^9, {3.7383399270780163`*^9, 3.738339928102619*^9}, {3.7383399833318253`*^9, 3.738340023435418*^9}, { 3.7383669397920876`*^9, 3.73836699772031*^9}, {3.7383676488210897`*^9, 3.738367650275752*^9}, {3.738411438453149*^9, 3.738411446817583*^9}, { 3.7384118416165533`*^9, 3.7384118445254*^9}, {3.738598401775426*^9, 3.7385984461068387`*^9}, {3.7385990810798445`*^9, 3.738599088815607*^9}, { 3.7386012597855043`*^9, 3.738601302494419*^9}, {3.738601598678238*^9, 3.738601639289603*^9}, {3.7386020946534925`*^9, 3.738602107358418*^9}, { 3.738602356489482*^9, 3.7386024023996735`*^9}, {3.7386031000929813`*^9, 3.738603131634983*^9}, {3.7386033447555046`*^9, 3.7386033939261928`*^9}, { 3.7386034982796383`*^9, 3.738603546222398*^9}, {3.738604540558546*^9, 3.7386046018698397`*^9}, {3.7386047974364233`*^9, 3.738604843888815*^9}, { 3.738605068506323*^9, 3.738605111398295*^9}, {3.7386052759377117`*^9, 3.738605335274602*^9}, {3.7386059315047274`*^9, 3.7386059872695265`*^9}, { 3.738606093824689*^9, 3.7386061370936213`*^9}, {3.738668592742067*^9, 3.7386686395816746`*^9}, {3.7386688556597276`*^9, 3.7386689139191813`*^9}, {3.73866909759364*^9, 3.7386691636266375`*^9}, { 3.7386693665464325`*^9, 3.73866937784991*^9}, {3.7386705904840393`*^9, 3.7386706292522974`*^9}, {3.738671416632803*^9, 3.738671464621436*^9}, { 3.7386715214288125`*^9, 3.7386715217948365`*^9}, {3.7386716018550005`*^9, 3.738671648743537*^9}, {3.7386718023143125`*^9, 3.73867183494204*^9}, { 3.7386720871598883`*^9, 3.7386721271908216`*^9}, {3.738672284788164*^9, 3.7386723201066904`*^9}, {3.738672546516434*^9, 3.7386725957080126`*^9}, { 3.738674291114772*^9, 3.7386743277567606`*^9}, {3.7386805166571894`*^9, 3.7386805668060427`*^9}, {3.7386810791624017`*^9, 3.7386811396127415`*^9}, {3.7386814782713137`*^9, 3.738681543363078*^9}, { 3.7386816898976307`*^9, 3.738681719544482*^9}, {3.7386818477562714`*^9, 3.738681859596021*^9}, {3.738682701484929*^9, 3.738682756230011*^9}, { 3.7386843903984723`*^9, 3.7386843904992466`*^9}, {3.738684424708892*^9, 3.7386844619238653`*^9}, {3.7386846401115694`*^9, 3.7386846425530405`*^9}, {3.7386848908844295`*^9, 3.738684919541772*^9}, { 3.738685450783483*^9, 3.7386855285324697`*^9}, {3.7386872872275896`*^9, 3.7386873330789165`*^9}, {3.73868750337795*^9, 3.7386875618149843`*^9}, { 3.7386877182904544`*^9, 3.738687719129985*^9}, {3.7388803260424805`*^9, 3.7388803284290786`*^9}, {3.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}}, CellLabel-> "In[666]:=",ExpressionUUID->"8c0d00eb-3a38-4d87-9e21-66e5a04e235e"], Cell[BoxData[ TagBox[GridBox[{ { GraphicsBox[ {RGBColor[0, 0, 1], Thickness[ Large], {CircleBox[{3.4142135623730954, 10.656854249492381}], CircleBox[{3.1876726427121103, 9.34619407771256}, 0.3300943102542602], CircleBox[{8.242640687119282, 5.82842712474619}, 5.82842712474619], CircleBox[{0, 2.9142135623730936}, 2.9142135623730936], CircleBox[{0, 8.74264068711928}, 2.914213562373094], LineBox[{{-5.82842712474619, 11.656854249492376`}, { 14.071067811865472`, 11.656854249492376`}}], LineBox[{{-5.82842712474619, 0}, {14.071067811865472`, 0}}]}, {RGBColor[1, 0, 0], Dashing[{Small, Small}], CircleBox[{2.7747741371041155, 9.752550341960932}, 0.476075976882862], CircleBox[{3.7547409554732263, 9.583168080219417}, 0.5184215423182411], CircleBox[{3.009585347288364, 8.5123928305091}, 0.7861153547458191], CircleBox[{1.7071067811865472, 11.65685424949238}, 1.7071067811865472], CircleBox[{5.82842712474619, 11.65685424949238}, 2.414213562373095], LineBox[{{0, -5.82842712474619}, {0, 17.485281374238568`}}], CircleBox[{4.121320343559641, 0}, 4.121320343559641], LineBox[{{8.242640687119282, -5.82842712474619}, {8.242640687119282, 17.485281374238568`}}], CircleBox[{2.060660171779819, 5.828427124746189}, 2.06066017177982]}}]}, { GraphicsBox[ {Thickness[ Large], {CircleBox[{3.4142135623730954, 10.656854249492381}], CircleBox[{3.1876726427121107, 9.34619407771256}, 0.3300943102542602], CircleBox[{8.242640687119282, 5.82842712474619}, 5.82842712474619], CircleBox[{0., 2.9142135623730936}, 2.9142135623730936], CircleBox[{0., 8.742640687119282}, 2.914213562373094], TagBox[ConicHullRegionBox[{0., 11.656854249492376`}, {{-1, 0}}], "InfiniteLine"], TagBox[ConicHullRegionBox[{0, 0}, {{1, 0}}], "InfiniteLine"], CircleBox[{2.8841958896174336, 9.67402164423611}, 0.11663721207389871], CircleBox[{2.7747741371041146, 9.812059839071289}, 0.059509497110357835], CircleBox[{3.594864610129875, 9.547378541243605}, 0.12408680636757133], CircleBox[{3.7547409554732245, 9.64797077300919}, 0.06480269278978026], CircleBox[{3.076045185646854, 8.864618784998756}, 0.1642491449702141], CircleBox[{2.9512910238011614, 8.403958599364898}, 0.056447014625730964], CircleBox[{3.0095853472883642, 8.61065724985233}, 0.09826441934322742], CircleBox[{3.009585347288364, 8.476094144389242}, 0.03629868611985719], CircleBox[{2.2884234031275565, 10.749616550435437}, 0.1296053855795603], CircleBox[{2.153009687409352, 11.259195445936498}, 0.39765880355588934], CircleBox[{1.6368950822489778, 11.29727764736752}, 0.11985886737495342], CircleBox[{1.7071067811865472, 11.53185424949238}, 0.12499999999999994], CircleBox[{4.567223249782437, 10.553300858899082}, 0.15765048437046775], CircleBox[{5.495093791412857, 11.156854249492381}, 0.1666666666666665], CircleBox[{4.828427124746189, 11.15685424949238}, 0.5000000000000004], CircleBox[{5.828427124746191, 11.406854249492381}, 0.24999999999999994], CircleBox[{4.015097981662433, 1.6008844192893377}, 0.15022110482233467], CircleBox[{3.941346053516656, 1.801616008065299}, 0.06363052046431499], CircleBox[{3.2970562748477126, 1.748528137423857}, 0.582842712474619], CircleBox[{4.121320343559641, 0.7285533905932734}, 0.7285533905932734], CircleBox[{2.2986981602212513, 6.677561771445905}, 0.17586154347195457], CircleBox[{2.41421356237309, 6.931980515339459}, 0.10355339059327327], CircleBox[{2.0606601717798196, 6.192703820042825}, 0.36427669529663653], CircleBox[{2.06066017177982, 5.4641504294495515}, 0.36427669529663653], CircleBox[{13.071067811865468, 10.656854249492381}], CircleBox[{13.297608731526454, 9.34619407771256}, 0.3300943102542602], CircleBox[{16.485281374238564, 2.9142135623730936}, 2.9142135623730936], CircleBox[{16.485281374238564, 8.742640687119282}, 2.914213562373094], CircleBox[{-3.4142135623730954, 10.656854249492381}], CircleBox[{-3.1876726427121107, 9.34619407771256}, 0.3300943102542602], CircleBox[{-8.242640687119282, 5.82842712474619}, 5.82842712474619], CircleBox[{3.04059197063454, 9.686047528719692}, 0.040220545321866974], CircleBox[{2.854898365719254, 9.516401427523183}, 0.0436827106524709], CircleBox[{2.718370144247724, 9.889227181113396}, 0.036074021803652954], CircleBox[{3.443818920407485, 9.615617147045329}, 0.04165790004993647], CircleBox[{3.5627262835983435, 9.37987816258361}, 0.04646889973287574], CircleBox[{3.8401331069666917, 9.708326112068328}, 0.03976588035558856], CircleBox[{2.9522506394570387, 9.043551110325518}, 0.053332717125857895], CircleBox[{3.26823976546346, 8.96978752023354}, 0.054838096515476296], CircleBox[{2.914213562373088, 8.279252339470991}, 0.03661165235168174], CircleBox[{2.939941678659236, 8.495780898109903}, 0.03607402180365227], CircleBox[{2.353896721732943, 10.567322306939111}, 0.06409011426784557], CircleBox[{2.392494088326896, 10.472591504941795}, 0.03820202401776298], CircleBox[{2.394934617165953, 10.888240770999712}, 0.04521255755839023], CircleBox[{2.1207885565266276, 10.813063966192852}, 0.04963472254703483], CircleBox[{2.5963390924116836, 11.313750972806877}, 0.04901475381222327], CircleBox[{2.464704183231816, 11.556854249492378}, 0.03333333333333346], CircleBox[{2.640754482034085, 11.507294512252695}, 0.14955973723971894], CircleBox[{2.4142135623730976, 11.613961030678947}, 0.04289321881345252], CircleBox[{1.7416245780509718, 11.123383380371571}, 0.03556472460805301], CircleBox[{1.904303907531448, 11.617967542853691}, 0.0388867066386871], CircleBox[{1.138071187457699, 11.545743138381264}, 0.1111111111111111], CircleBox[{1.2184156202017573, 11.426159645262581}, 0.032956372032826205], CircleBox[{1.4142135623730947, 11.485281374238575}, 0.17157287525380996], CircleBox[{4.4650447694779425, 10.738665842548597}, 0.05401108276139833], CircleBox[{4.4469399850851845, 10.352116395368096}, 0.07674928553672247], CircleBox[{4.377763810279187, 10.251524163602445}, 0.04533322857709305], CircleBox[{4.783015545416411, 10.596305477052711}, 0.06238522190821546], CircleBox[{4.874090278298114, 10.625544843783967}, 0.033268045345432956], CircleBox[{4.281508964068202, 11.26040764008565}, 0.05663522991524518], CircleBox[{4.242640687119289, 11.485281374238584}, 0.17157287525381174], CircleBox[{4.446939985085091, 11.538341389153468}, 0.03950428677963582], CircleBox[{4.414213562373098, 11.613961030678947}, 0.04289321881345252], CircleBox[{5.686893379934962, 11.102860946018822}, 0.032587841380797525], CircleBox[{5.746745400553131, 11.133956404733706}, 0.03485985631724505], CircleBox[{5.328427124746195, 10.93173636167456}, 0.0483411925211883], CircleBox[{5.409443748888287, 10.968212944284554}, 0.04050831207104853], CircleBox[{6.633164978870549, 11.545743138381267}, 0.1111111111111112], CircleBox[{6.541871774702683, 11.436143571373732}, 0.03153009687409361], CircleBox[{6.170627620507039, 11.376120750905429}, 0.09357783286231673], CircleBox[{6.375345285424215, 11.507294512252656}, 0.14955973723971822], CircleBox[{5.19782518726432, 11.5886267851963}, 0.06822746429607382], CircleBox[{5.414213562373096, 11.485281374238571}, 0.17157287525380993], CircleBox[{3.8984083327410715, 1.890440027724267}, 0.03502724321283064], CircleBox[{3.865105778521427, 1.4656069939198642}, 0.05176315896493799], CircleBox[{4.21761514761384, 1.5193562307708683}, 0.06809070893975326], CircleBox[{4.33938544833532, 1.4571067811865464}, 0.0319348952243207], CircleBox[{3.474762334812683, 2.368801983043401}, 0.062385221908210976], CircleBox[{3.5522847498307897, 2.3106601717798223}, 0.03451779686442446], CircleBox[{3.297056274847713, 2.4770815280171297}, 0.1457106781186546], CircleBox[{3.0909902576697315, 2.7320752147247753}, 0.18213834764831824], CircleBox[{4.910320825891035, 0.9394972509293082}, 0.08815896595133216], CircleBox[{5.030418539312238, 0.9259308136331009}, 0.0327025622117393], CircleBox[{5.495093791412854, 0.3238015069303437}, 0.3238015069303437], CircleBox[{5.072394268996481, 0.6725108220860987}, 0.22417027402869957], CircleBox[{3.3655421496875166, 1.0688317719197997}, 0.10029524162542726], CircleBox[{3.238752562979553, 1.1285617293012478}, 0.03985919856954501], CircleBox[{2.747546895706427, 0.6476030138606876}, 0.6476030138606876], CircleBox[{2.286956055890323, 6.885141718745229}, 0.03205024439711317], CircleBox[{2.463574972685946, 6.805103069686798}, 0.032587841380797414], CircleBox[{2.482441026669198, 7.089630999710042}, 0.06822746429607855], CircleBox[{2.5701173205307866, 7.301678268696202}, 0.03228872552692577], CircleBox[{2.5274840222035873, 7.19714555828442}, 0.048341192521188694], CircleBox[{2.074024076894822, 6.614314002995717}, 0.05754523434844027], CircleBox[{2.388926898060539, 6.4603969972786865}, 0.059301728046304306], CircleBox[{2.3550401963197944, 4.8570226039551585}, 0.1387720743987188], CircleBox[{2.3550401963197944, 5.099873734152916}, 0.10407905579903898], CircleBox[{2.3550401963197936, 5.7689533785753095}, 0.05947374617087943], CircleBox[{2.355040196319794, 5.887900870917068}, 0.05947374617087946], CircleBox[{1.6160440161672105, 6.220545155244006}, 0.08121030314161211], CircleBox[{1.5008586226409877, 6.203641780406435}, 0.03520876300603611], CircleBox[{1.4545836506681085, 5.828427124746192}, 0.3428486543968347], CircleBox[{13.601085484621132, 9.67402164423611}, 0.11663721207389871], CircleBox[{13.710507237134449, 9.812059839071289}, 0.059509497110357835], CircleBox[{12.89041676410869, 9.547378541243605}, 0.12408680636757133], CircleBox[{12.730540418765338, 9.64797077300919}, 0.06480269278978026], CircleBox[{13.409236188591713, 8.864618784998756}, 0.1642491449702141], CircleBox[{13.533990350437403, 8.403958599364898}, 0.056447014625730964], CircleBox[{13.4756960269502, 8.61065724985233}, 0.09826441934322742], CircleBox[{13.4756960269502, 8.476094144389242}, 0.03629868611985719], CircleBox[{14.196857971111008, 10.749616550435437}, 0.1296053855795603], CircleBox[{14.332271686829214, 11.259195445936498}, 0.39765880355588934], CircleBox[{14.848386291989586, 11.29727764736752}, 0.11985886737495342], CircleBox[{14.778174593052016, 11.53185424949238}, 0.12499999999999994], CircleBox[{11.918058124456127, 10.553300858899082}, 0.15765048437046775], CircleBox[{10.990187582825707, 11.156854249492381}, 0.1666666666666665], CircleBox[{11.656854249492376, 11.15685424949238}, 0.5000000000000004], CircleBox[{10.656854249492374, 11.406854249492381}, 0.24999999999999994], CircleBox[{12.470183392576132, 1.6008844192893377}, 0.15022110482233467], CircleBox[{12.543935320721907, 1.801616008065299}, 0.06363052046431499], CircleBox[{13.188225099390852, 1.748528137423857}, 0.582842712474619], CircleBox[{12.363961030678922, 0.7285533905932734}, 0.7285533905932734], CircleBox[{14.186583214017315, 6.677561771445905}, 0.17586154347195457], CircleBox[{14.071067811865474, 6.931980515339459}, 0.10355339059327327], CircleBox[{14.424621202458743, 6.192703820042825}, 0.36427669529663653], CircleBox[{14.424621202458743, 5.4641504294495515}, 0.36427669529663653], CircleBox[{19.89949493661166, 10.656854249492381}], CircleBox[{19.672954016950673, 9.34619407771256}, 0.3300943102542602], CircleBox[{24.727922061357848, 5.82842712474619}, 5.82842712474619], CircleBox[{-2.8841958896174336, 9.67402164423611}, 0.11663721207389871], CircleBox[{-2.7747741371041146, 9.812059839071289}, 0.059509497110357835], CircleBox[{-3.594864610129875, 9.547378541243605}, 0.12408680636757133], CircleBox[{-3.7547409554732245, 9.64797077300919}, 0.06480269278978026], CircleBox[{-3.076045185646854, 8.864618784998756}, 0.1642491449702141], CircleBox[{-2.9512910238011614, 8.403958599364898}, 0.056447014625730964], CircleBox[{-3.0095853472883642, 8.61065724985233}, 0.09826441934322742], CircleBox[{-3.009585347288364, 8.476094144389242}, 0.03629868611985719], CircleBox[{-2.2884234031275565, 10.749616550435437}, 0.1296053855795603], CircleBox[{-2.153009687409352, 11.259195445936498}, 0.39765880355588934], CircleBox[{-1.6368950822489778, 11.29727764736752}, 0.11985886737495342], CircleBox[{-1.7071067811865472, 11.53185424949238}, 0.12499999999999994], CircleBox[{-4.567223249782437, 10.553300858899082}, 0.15765048437046775], CircleBox[{-5.495093791412857, 11.156854249492381}, 0.1666666666666665], CircleBox[{-4.828427124746189, 11.15685424949238}, 0.5000000000000004], CircleBox[{-5.828427124746191, 11.406854249492381}, 0.24999999999999994], CircleBox[{-4.015097981662433, 1.6008844192893377}, 0.15022110482233467], CircleBox[{-3.941346053516656, 1.801616008065299}, 0.06363052046431499], CircleBox[{-3.2970562748477126, 1.748528137423857}, 0.582842712474619], CircleBox[{-4.121320343559641, 0.7285533905932734}, 0.7285533905932734], CircleBox[{-2.2986981602212513, 6.677561771445905}, 0.17586154347195457], CircleBox[{-2.41421356237309, 6.931980515339459}, 0.10355339059327327], CircleBox[{-2.0606601717798196, 6.192703820042825}, 0.36427669529663653], CircleBox[{-2.06066017177982, 5.4641504294495515}, 0.36427669529663653], CircleBox[{-13.071067811865468, 10.656854249492381}], CircleBox[{-13.297608731526454, 9.34619407771256}, 0.3300943102542602], CircleBox[{-16.485281374238564, 2.9142135623730936}, 2.9142135623730936], CircleBox[{-16.485281374238564, 8.742640687119282}, 2.914213562373094], CircleBox[{2.8564558612972415, 11.57908083621491}, 0.0777734132773804], CircleBox[{2.493222135932368, 11.620471140060712}, 0.036383109431700505], CircleBox[{1.8336971528526287, 11.624804005095271}, 0.03205024439711334], CircleBox[{0.9521519537657203, 11.579080836215}, 0.07777341327737507], CircleBox[{0.8535533905932725, 11.62560424949241}, 0.03125000000000011], CircleBox[{1.2612038749637418, 11.622740517344344}, 0.03411373214803703], CircleBox[{3.999999999999844, 11.571067811865515}, 0.08578643762691299], CircleBox[{4.508049883729168, 11.605533461211573}, 0.051320788280845776], CircleBox[{5.347284575472231, 11.01570092480717}, 0.03771490145207163], CircleBox[{6.513814431886546, 11.624804005095273}, 0.03205024439711346], CircleBox[{6.94824221539575, 11.548382043183686}, 0.03615740210289313], CircleBox[{6.8284271247462, 11.571067811865486}, 0.08578643762690534], CircleBox[{7.035533905932722, 11.594354249492362}, 0.06250000000000011], CircleBox[{6.136817753400268, 11.561749469650728}, 0.09510477984165606], CircleBox[{5.098179268136006, 11.620471140060674}, 0.03638310943170055], CircleBox[{5.567223249782449, 11.622740517344345}, 0.034113732148036945], CircleBox[{2.997323886225194, 3.0908325661532827}, 0.08830950189009379], CircleBox[{3.0909902576697315, 2.974926344922534}, 0.060712782549439404], CircleBox[{3.0156002513851035, 2.416664905382566}, 0.1421567591401509], CircleBox[{4.828427124746189, 1.0469181606780271}, 0.046918160678027204], CircleBox[{6.084226914709378, 0.37638496736923344}, 0.0353185807516474], CircleBox[{5.934701294725883, 0.3497056274847714}, 0.11656854249492381], CircleBox[{6.181980515339464, 0.18213834764831846}, 0.18213834764831846], CircleBox[{5.333473385783065, 0.7285533905932733}, 0.04285608179960428], CircleBox[{5.409232950922028, 0.6830188036811936}, 0.04553458691207954], CircleBox[{4.862627124027097, 0.5006915259437498}, 0.046983050928710905], CircleBox[{4.94558441227157, 0.23313708498984761}, 0.23313708498984761], CircleBox[{3.4792418933164186, 1.1522005899004304}, 0.04069408957649417], CircleBox[{3.3773331327553415, 0.9274626914139296}, 0.04156470411254717], CircleBox[{2.1109013315541696, 0.39556084064480285}, 0.03711797415861671], CircleBox[{1.9394448675574778, 0.514272981595252}, 0.17142432719841735], CircleBox[{2.0606601717798205, 0.18213834764831835}, 0.18213834764831835], CircleBox[{2.8500276325507587, 1.3222914548223335}, 0.034824120558375526], CircleBox[{2.7475468957064275, 1.3761564044539611}, 0.0809503767325859], CircleBox[{2.575825214724776, 1.3660376073623879}, 0.09106917382415913], CircleBox[{3.4058484007310357, 0.44349162812029663}, 0.04161562293501588], CircleBox[{3.297056274847712, 0.11656854249492372}, 0.11656854249492372], CircleBox[{3.4107478705321164, 0.30147036852135456}, 0.10049012284045153], CircleBox[{2.4727922061357845, 4.7113119258365}, 0.048570226039551495], CircleBox[{2.472792206135784, 4.5898863607376255}, 0.07285533905932723], CircleBox[{2.4079624479224857, 5.271779590360316}, 0.032743972610933605], CircleBox[{2.1691159702945466, 5.010402265132688}, 0.10225310745168743], CircleBox[{2.261255409740688, 5.828427124746188}, 0.051579001103948564], CircleBox[{1.6806953326161547, 6.318142997288054}, 0.035858614553206554], CircleBox[{1.5552152239847696, 5.443530993866724}, 0.054985161554209336], CircleBox[{1.6485281374238563, 5.488435542469328}, 0.04857022603955154], CircleBox[{1.1207225770728813, 6.011512229620989}, 0.03791816675382173], CircleBox[{1.0303300858899096, 5.9194962985703485}, 0.0910691738241592], CircleBox[{1.0303300858899098, 5.737357950922025}, 0.09106917382415909], CircleBox[{1.831697930470951, 5.792449179531706}, 0.03597794521448262], CircleBox[{1.8316979304709513, 5.864405069960671}, 0.03597794521448264], CircleBox[{13.444689403604023, 9.686047528719692}, 0.040220545321866974], CircleBox[{13.63038300851931, 9.516401427523183}, 0.0436827106524709], CircleBox[{13.76691122999084, 9.889227181113396}, 0.036074021803652954], CircleBox[{13.041462453831079, 9.615617147045329}, 0.04165790004993647], CircleBox[{12.922555090640222, 9.37987816258361}, 0.04646889973287574], CircleBox[{12.645148267271871, 9.708326112068328}, 0.03976588035558856], CircleBox[{13.533030734781525, 9.043551110325518}, 0.053332717125857895], CircleBox[{13.217041608775105, 8.96978752023354}, 0.054838096515476296], CircleBox[{13.571067811865476, 8.279252339470991}, 0.03661165235168174], CircleBox[{13.545339695579328, 8.495780898109903}, 0.03607402180365227], CircleBox[{14.13138465250562, 10.567322306939111}, 0.06409011426784557], CircleBox[{14.092787285911669, 10.472591504941795}, 0.03820202401776298], CircleBox[{14.090346757072613, 10.888240770999712}, 0.04521255755839023], CircleBox[{14.364492817711936, 10.813063966192852}, 0.04963472254703483], CircleBox[{13.888942281826882, 11.313750972806877}, 0.04901475381222327], CircleBox[{14.020577191006748, 11.556854249492378}, 0.03333333333333346], CircleBox[{13.84452689220448, 11.507294512252695}, 0.14955973723971894], CircleBox[{14.071067811865468, 11.613961030678947}, 0.04289321881345252], CircleBox[{14.743656796187592, 11.123383380371571}, 0.03556472460805301], CircleBox[{14.580977466707115, 11.617967542853691}, 0.0388867066386871], CircleBox[{15.347210186780863, 11.545743138381264}, 0.1111111111111111], CircleBox[{15.266865754036806, 11.426159645262581}, 0.032956372032826205], CircleBox[{15.07106781186547, 11.485281374238575}, 0.17157287525380996], CircleBox[{12.02023660476062, 10.738665842548597}, 0.05401108276139833], CircleBox[{12.038341389153379, 10.352116395368096}, 0.07674928553672247], CircleBox[{12.107517563959377, 10.251524163602445}, 0.04533322857709305], CircleBox[{11.702265828822155, 10.596305477052711}, 0.06238522190821546], CircleBox[{11.61119109594045, 10.625544843783967}, 0.033268045345432956], CircleBox[{12.203772410170362, 11.26040764008565}, 0.05663522991524518], CircleBox[{12.242640687119275, 11.485281374238584}, 0.17157287525381174], CircleBox[{12.038341389153473, 11.538341389153468}, 0.03950428677963582], CircleBox[{12.071067811865468, 11.613961030678947}, 0.04289321881345252], CircleBox[{10.7983879943036, 11.102860946018822}, 0.032587841380797525], CircleBox[{10.738535973685432, 11.133956404733706}, 0.03485985631724505], CircleBox[{11.15685424949237, 10.93173636167456}, 0.0483411925211883], CircleBox[{11.075837625350275, 10.968212944284554}, 0.04050831207104853], CircleBox[{9.852116395368014, 11.545743138381267}, 0.1111111111111112], CircleBox[{9.943409599535883, 11.436143571373732}, 0.03153009687409361], CircleBox[{10.314653753731525, 11.376120750905429}, 0.09357783286231673], CircleBox[{10.109936088814349, 11.507294512252656}, 0.14955973723971822], CircleBox[{11.287456186974241, 11.5886267851963}, 0.06822746429607382], CircleBox[{11.071067811865468, 11.485281374238571}, 0.17157287525380993], CircleBox[{12.58687304149749, 1.890440027724267}, 0.03502724321283064], CircleBox[{12.620175595717136, 1.4656069939198642}, 0.05176315896493799], CircleBox[{12.267666226624726, 1.5193562307708683}, 0.06809070893975326], CircleBox[{12.145895925903245, 1.4571067811865464}, 0.0319348952243207], CircleBox[{13.010519039425883, 2.368801983043401}, 0.062385221908210976], CircleBox[{12.932996624407776, 2.3106601717798223}, 0.03451779686442446], CircleBox[{13.188225099390852, 2.4770815280171297}, 0.1457106781186546], CircleBox[{13.394291116568834, 2.7320752147247753}, 0.18213834764831824], CircleBox[{11.574960548347528, 0.9394972509293082}, 0.08815896595133216], CircleBox[{11.454862834926326, 0.9259308136331009}, 0.0327025622117393], CircleBox[{10.99018758282571, 0.3238015069303437}, 0.3238015069303437], CircleBox[{11.412887105242085, 0.6725108220860987}, 0.22417027402869957], CircleBox[{13.11973922455105, 1.0688317719197997}, 0.10029524162542726], CircleBox[{13.246528811259012, 1.1285617293012478}, 0.03985919856954501], CircleBox[{13.737734478532136, 0.6476030138606876}, 0.6476030138606876], CircleBox[{14.198325318348243, 6.885141718745229}, 0.03205024439711317], CircleBox[{14.021706401552617, 6.805103069686798}, 0.032587841380797414], CircleBox[{14.002840347569366, 7.089630999710042}, 0.06822746429607855], CircleBox[{13.915164053707777, 7.301678268696202}, 0.03228872552692577], CircleBox[{13.957797352034977, 7.19714555828442}, 0.048341192521188694], CircleBox[{14.41125729734374, 6.614314002995717}, 0.05754523434844027], CircleBox[{14.096354476178025, 6.4603969972786865}, 0.059301728046304306], CircleBox[{14.130241177918768, 4.8570226039551585}, 0.1387720743987188], CircleBox[{14.130241177918771, 5.099873734152916}, 0.10407905579903898], CircleBox[{14.130241177918771, 5.7689533785753095}, 0.05947374617087943], CircleBox[{14.130241177918773, 5.887900870917068}, 0.05947374617087946], CircleBox[{14.869237358071354, 6.220545155244006}, 0.08121030314161211], CircleBox[{14.984422751597576, 6.203641780406435}, 0.03520876300603611], CircleBox[{15.030697723570455, 5.828427124746192}, 0.3428486543968347], CircleBox[{19.369477263855998, 9.67402164423611}, 0.11663721207389871], CircleBox[{19.260055511342678, 9.812059839071289}, 0.059509497110357835], CircleBox[{20.08014598436844, 9.547378541243605}, 0.12408680636757133], CircleBox[{20.24002232971179, 9.64797077300919}, 0.06480269278978026], CircleBox[{19.56132655988542, 8.864618784998756}, 0.1642491449702141], CircleBox[{19.436572398039722, 8.403958599364898}, 0.056447014625730964], CircleBox[{19.49486672152693, 8.61065724985233}, 0.09826441934322742], CircleBox[{19.49486672152693, 8.476094144389242}, 0.03629868611985719], CircleBox[{18.77370477736612, 10.749616550435437}, 0.1296053855795603], CircleBox[{18.638291061647916, 11.259195445936498}, 0.39765880355588934], CircleBox[{18.122176456487544, 11.29727764736752}, 0.11985886737495342], CircleBox[{18.192388155425114, 11.53185424949238}, 0.12499999999999994], CircleBox[{21.052504624021, 10.553300858899082}, 0.15765048437046775], CircleBox[{21.98037516565142, 11.156854249492381}, 0.1666666666666665], CircleBox[{21.313708498984752, 11.15685424949238}, 0.5000000000000004], CircleBox[{22.313708498984756, 11.406854249492381}, 0.24999999999999994], CircleBox[{20.500379355900996, 1.6008844192893377}, 0.15022110482233467], CircleBox[{20.426627427755218, 1.801616008065299}, 0.06363052046431499], CircleBox[{19.782337649086276, 1.748528137423857}, 0.582842712474619], CircleBox[{20.606601717798203, 0.7285533905932734}, 0.7285533905932734], CircleBox[{18.783979534459817, 6.677561771445905}, 0.17586154347195457], CircleBox[{18.899494936611653, 6.931980515339459}, 0.10355339059327327], CircleBox[{18.545941546018383, 6.192703820042825}, 0.36427669529663653], CircleBox[{18.545941546018383, 5.4641504294495515}, 0.36427669529663653], CircleBox[{29.556349186104033, 10.656854249492381}], CircleBox[{29.78289010576502, 9.34619407771256}, 0.3300943102542602], CircleBox[{32.97056274847713, 2.9142135623730936}, 2.9142135623730936], CircleBox[{32.97056274847713, 8.742640687119282}, 2.914213562373094], CircleBox[{-3.04059197063454, 9.686047528719692}, 0.040220545321866974], CircleBox[{-2.854898365719254, 9.516401427523183}, 0.0436827106524709], CircleBox[{-2.718370144247724, 9.889227181113396}, 0.036074021803652954], CircleBox[{-3.443818920407485, 9.615617147045329}, 0.04165790004993647], CircleBox[{-3.5627262835983435, 9.37987816258361}, 0.04646889973287574], CircleBox[{-3.8401331069666917, 9.708326112068328}, 0.03976588035558856], CircleBox[{-2.9522506394570387, 9.043551110325518}, 0.053332717125857895], CircleBox[{-3.26823976546346, 8.96978752023354}, 0.054838096515476296], CircleBox[{-2.914213562373088, 8.279252339470991}, 0.03661165235168174], CircleBox[{-2.939941678659236, 8.495780898109903}, 0.03607402180365227], CircleBox[{-2.353896721732943, 10.567322306939111}, 0.06409011426784557], CircleBox[{-2.392494088326896, 10.472591504941795}, 0.03820202401776298], CircleBox[{-2.394934617165953, 10.888240770999712}, 0.04521255755839023], CircleBox[{-2.1207885565266276, 10.813063966192852}, 0.04963472254703483], CircleBox[{-2.5963390924116836, 11.313750972806877}, 0.04901475381222327], CircleBox[{-2.464704183231816, 11.556854249492378}, 0.03333333333333346], CircleBox[{-2.640754482034085, 11.507294512252695}, 0.14955973723971894], CircleBox[{-2.4142135623730976, 11.613961030678947}, 0.04289321881345252], CircleBox[{-1.7416245780509718, 11.123383380371571}, 0.03556472460805301], CircleBox[{-1.904303907531448, 11.617967542853691}, 0.0388867066386871], CircleBox[{-1.138071187457699, 11.545743138381264}, 0.1111111111111111], CircleBox[{-1.2184156202017573, 11.426159645262581}, 0.032956372032826205], CircleBox[{-1.4142135623730947, 11.485281374238575}, 0.17157287525380996], CircleBox[{-4.4650447694779425, 10.738665842548597}, 0.05401108276139833], CircleBox[{-4.4469399850851845, 10.352116395368096}, 0.07674928553672247], CircleBox[{-4.377763810279187, 10.251524163602445}, 0.04533322857709305], CircleBox[{-4.783015545416411, 10.596305477052711}, 0.06238522190821546], CircleBox[{-4.874090278298114, 10.625544843783967}, 0.033268045345432956], CircleBox[{-4.281508964068202, 11.26040764008565}, 0.05663522991524518], CircleBox[{-4.242640687119289, 11.485281374238584}, 0.17157287525381174], CircleBox[{-4.446939985085091, 11.538341389153468}, 0.03950428677963582], CircleBox[{-4.414213562373098, 11.613961030678947}, 0.04289321881345252], CircleBox[{-5.686893379934962, 11.102860946018822}, 0.032587841380797525], CircleBox[{-5.746745400553131, 11.133956404733706}, 0.03485985631724505], CircleBox[{-5.328427124746195, 10.93173636167456}, 0.0483411925211883], CircleBox[{-5.409443748888287, 10.968212944284554}, 0.04050831207104853], CircleBox[{-6.633164978870549, 11.545743138381267}, 0.1111111111111112], CircleBox[{-6.541871774702683, 11.436143571373732}, 0.03153009687409361], CircleBox[{-6.170627620507039, 11.376120750905429}, 0.09357783286231673], CircleBox[{-6.375345285424215, 11.507294512252656}, 0.14955973723971822], CircleBox[{-5.19782518726432, 11.5886267851963}, 0.06822746429607382], CircleBox[{-5.414213562373096, 11.485281374238571}, 0.17157287525380993], CircleBox[{-3.8984083327410715, 1.890440027724267}, 0.03502724321283064], CircleBox[{-3.865105778521427, 1.4656069939198642}, 0.05176315896493799], CircleBox[{-4.21761514761384, 1.5193562307708683}, 0.06809070893975326], CircleBox[{-4.33938544833532, 1.4571067811865464}, 0.0319348952243207], CircleBox[{-3.474762334812683, 2.368801983043401}, 0.062385221908210976], CircleBox[{-3.5522847498307897, 2.3106601717798223}, 0.03451779686442446], CircleBox[{-3.297056274847713, 2.4770815280171297}, 0.1457106781186546], CircleBox[{-3.0909902576697315, 2.7320752147247753}, 0.18213834764831824], CircleBox[{-4.910320825891035, 0.9394972509293082}, 0.08815896595133216], CircleBox[{-5.030418539312238, 0.9259308136331009}, 0.0327025622117393], CircleBox[{-5.495093791412854, 0.3238015069303437}, 0.3238015069303437], CircleBox[{-5.072394268996481, 0.6725108220860987}, 0.22417027402869957], CircleBox[{-3.3655421496875166, 1.0688317719197997}, 0.10029524162542726], CircleBox[{-3.238752562979553, 1.1285617293012478}, 0.03985919856954501], CircleBox[{-2.747546895706427, 0.6476030138606876}, 0.6476030138606876], CircleBox[{-2.286956055890323, 6.885141718745229}, 0.03205024439711317], CircleBox[{-2.463574972685946, 6.805103069686798}, 0.032587841380797414], CircleBox[{-2.482441026669198, 7.089630999710042}, 0.06822746429607855], CircleBox[{-2.5701173205307866, 7.301678268696202}, 0.03228872552692577], CircleBox[{-2.5274840222035873, 7.19714555828442}, 0.048341192521188694], CircleBox[{-2.074024076894822, 6.614314002995717}, 0.05754523434844027], CircleBox[{-2.388926898060539, 6.4603969972786865}, 0.059301728046304306], CircleBox[{-2.3550401963197944, 4.8570226039551585}, 0.1387720743987188], CircleBox[{-2.3550401963197944, 5.099873734152916}, 0.10407905579903898], CircleBox[{-2.3550401963197936, 5.7689533785753095}, 0.05947374617087943], CircleBox[{-2.355040196319794, 5.887900870917068}, 0.05947374617087946], CircleBox[{-1.6160440161672105, 6.220545155244006}, 0.08121030314161211], CircleBox[{-1.5008586226409877, 6.203641780406435}, 0.03520876300603611], CircleBox[{-1.4545836506681085, 5.828427124746192}, 0.3428486543968347], CircleBox[{-13.601085484621132, 9.67402164423611}, 0.11663721207389871], CircleBox[{-13.710507237134449, 9.812059839071289}, 0.059509497110357835], CircleBox[{-12.89041676410869, 9.547378541243605}, 0.12408680636757133], CircleBox[{-12.730540418765338, 9.64797077300919}, 0.06480269278978026], CircleBox[{-13.409236188591713, 8.864618784998756}, 0.1642491449702141], CircleBox[{-13.533990350437403, 8.403958599364898}, 0.056447014625730964], CircleBox[{-13.4756960269502, 8.61065724985233}, 0.09826441934322742], CircleBox[{-13.4756960269502, 8.476094144389242}, 0.03629868611985719], CircleBox[{-14.196857971111008, 10.749616550435437}, 0.1296053855795603], CircleBox[{-14.332271686829214, 11.259195445936498}, 0.39765880355588934], CircleBox[{-14.848386291989586, 11.29727764736752}, 0.11985886737495342], CircleBox[{-14.778174593052016, 11.53185424949238}, 0.12499999999999994], CircleBox[{-11.918058124456127, 10.553300858899082}, 0.15765048437046775], CircleBox[{-10.990187582825707, 11.156854249492381}, 0.1666666666666665], CircleBox[{-11.656854249492376, 11.15685424949238}, 0.5000000000000004], CircleBox[{-10.656854249492374, 11.406854249492381}, 0.24999999999999994], CircleBox[{-12.470183392576132, 1.6008844192893377}, 0.15022110482233467], CircleBox[{-12.543935320721907, 1.801616008065299}, 0.06363052046431499], CircleBox[{-13.188225099390852, 1.748528137423857}, 0.582842712474619], CircleBox[{-12.363961030678922, 0.7285533905932734}, 0.7285533905932734], CircleBox[{-14.186583214017315, 6.677561771445905}, 0.17586154347195457], CircleBox[{-14.071067811865474, 6.931980515339459}, 0.10355339059327327], CircleBox[{-14.424621202458743, 6.192703820042825}, 0.36427669529663653], CircleBox[{-14.424621202458743, 5.4641504294495515}, 0.36427669529663653], CircleBox[{-19.89949493661166, 10.656854249492381}], CircleBox[{-19.672954016950673, 9.34619407771256}, 0.3300943102542602], CircleBox[{-24.727922061357848, 5.82842712474619}, 5.82842712474619], CircleBox[{2.97808335282225, 11.609301859571584}, 0.047552389920854504], CircleBox[{0.682842712474627, 11.616854249492397}, 0.03999999999999927], CircleBox[{0.7734590803390008, 11.605533461211422}, 0.051320788280845624], CircleBox[{3.8672954016950674, 11.605533461211431}, 0.05132078828085041], CircleBox[{7.276955262170016, 11.616854249492338}, 0.03999999999999982], CircleBox[{7.1897292202598, 11.609301859571596}, 0.04755238992082816], CircleBox[{6.940162121017468, 11.620471140060687}, 0.03638310943170058], CircleBox[{5.637683554915644, 11.620471140060681}, 0.036383109431700464], CircleBox[{2.997323886225193, 3.21225813125216}, 0.033116063208785115], CircleBox[{2.9438002453997436, 3.2784902576697306}, 0.05203952789951941], CircleBox[{2.9741487015378856, 2.944257001160445}, 0.06008687757470291], CircleBox[{2.943800245399743, 2.255046208979179}, 0.03469301859967967], CircleBox[{2.884924240491749, 2.294943180368811}, 0.03642766952966365], CircleBox[{5.807315029561313, 0.4967409481317774}, 0.033116063208785136], CircleBox[{6.594112549695426, 0.11656854249492372}, 0.11656854249492372], CircleBox[{6.433280536288219, 0.2132351387102263}, 0.07107837957007544], CircleBox[{5.887600490799486, 0.11894749234175891}, 0.11894749234175891], CircleBox[{5.333473385783065, 0.6476030138606877}, 0.03809429493298162], CircleBox[{5.193992761746396, 0.11976220119341487}, 0.03992073373113829], CircleBox[{5.151650429449551, 0.04553458691207959}, 0.04553458691207959], CircleBox[{4.71008039263959, 0.059473746170879464}, 0.059473746170879464], CircleBox[{4.66564567195431, 0.16495548466262797}, 0.05498516155420932], CircleBox[{2.06066017177982, 0.6880782022269805}, 0.04047518836629294], CircleBox[{2.060660171779821, 0.780592918492793}, 0.052039527899519496], CircleBox[{2.355040196319795, 0.05947374617087946}, 0.05947374617087946], CircleBox[{2.2825774210484164, 0.13450216441721974}, 0.04483405480573992], CircleBox[{1.6485281374238563, 0.23313708498984756}, 0.23313708498984756], CircleBox[{2.442263907294602, 1.2592280825068929}, 0.03597794521448265], CircleBox[{2.6630069912231535, 1.5243578633951576}, 0.08966810961147983], CircleBox[{3.148873970360175, 0.09823191783280097}, 0.032743972610933654], CircleBox[{3.0909902576697306, 0.04553458691207959}, 0.04553458691207959], CircleBox[{3.5325602944796928, 0.11894749234175898}, 0.11894749234175898], CircleBox[{2.536197134498245, 4.438571425768253}, 0.04483405480573998], CircleBox[{2.3842349094973123, 4.672375463639509}, 0.04816881921277838], CircleBox[{1.6485281374238556, 5.384356486670288}, 0.05550882975948748], CircleBox[{0.8410857843999248, 5.828427124746191}, 0.11894749234175914], CircleBox[{1.8942714622572259, 5.828427124746188}, 0.036201410712709235], CircleBox[{13.628825512941326, 11.57908083621491}, 0.0777734132773804], CircleBox[{13.992059238306194, 11.620471140060712}, 0.036383109431700505], CircleBox[{14.651584221385939, 11.624804005095271}, 0.03205024439711334], CircleBox[{15.533129420472847, 11.579080836215}, 0.07777341327737507], CircleBox[{15.631727983645293, 11.62560424949241}, 0.03125000000000011], CircleBox[{15.224077499274822, 11.622740517344344}, 0.03411373214803703], CircleBox[{12.48528137423872, 11.571067811865515}, 0.08578643762691299], CircleBox[{11.977231490509396, 11.605533461211573}, 0.051320788280845776], CircleBox[{11.137996798766334, 11.01570092480717}, 0.03771490145207163], CircleBox[{9.971466942352018, 11.624804005095273}, 0.03205024439711346], CircleBox[{9.537039158842816, 11.548382043183686}, 0.03615740210289313], CircleBox[{9.656854249492364, 11.571067811865486}, 0.08578643762690534], CircleBox[{9.449747468305842, 11.594354249492362}, 0.06250000000000011], CircleBox[{10.348463620838295, 11.561749469650728}, 0.09510477984165606], CircleBox[{11.387102106102558, 11.620471140060674}, 0.03638310943170055], CircleBox[{10.918058124456115, 11.622740517344345}, 0.034113732148036945], CircleBox[{13.487957488013372, 3.0908325661532827}, 0.08830950189009379], CircleBox[{13.394291116568834, 2.974926344922534}, 0.060712782549439404], CircleBox[{13.469681122853462, 2.416664905382566}, 0.1421567591401509], CircleBox[{11.656854249492374, 1.0469181606780271}, 0.046918160678027204], CircleBox[{10.401054459529187, 0.37638496736923344}, 0.0353185807516474], CircleBox[{10.550580079512681, 0.3497056274847714}, 0.11656854249492381], CircleBox[{10.3033008588991, 0.18213834764831846}, 0.18213834764831846], CircleBox[{11.1518079884555, 0.7285533905932733}, 0.04285608179960428], CircleBox[{11.07604842331654, 0.6830188036811936}, 0.04553458691207954], CircleBox[{11.622654250211466, 0.5006915259437498}, 0.046983050928710905], CircleBox[{11.539696961966996, 0.23313708498984761}, 0.23313708498984761], CircleBox[{13.006039480922146, 1.1522005899004304}, 0.04069408957649417], CircleBox[{13.107948241483223, 0.9274626914139296}, 0.04156470411254717], CircleBox[{14.374380042684393, 0.39556084064480285}, 0.03711797415861671], CircleBox[{14.545836506681084, 0.514272981595252}, 0.17142432719841735], CircleBox[{14.424621202458741, 0.18213834764831835}, 0.18213834764831835], CircleBox[{13.635253741687805, 1.3222914548223335}, 0.034824120558375526], CircleBox[{13.737734478532136, 1.3761564044539611}, 0.0809503767325859], CircleBox[{13.909456159513786, 1.3660376073623879}, 0.09106917382415913], CircleBox[{13.07943297350753, 0.44349162812029663}, 0.04161562293501588], CircleBox[{13.188225099390852, 0.11656854249492372}, 0.11656854249492372], CircleBox[{13.074533503706446, 0.30147036852135456}, 0.10049012284045153], CircleBox[{14.012489168102778, 4.7113119258365}, 0.048570226039551495], CircleBox[{14.01248916810278, 4.5898863607376255}, 0.07285533905932723], CircleBox[{14.077318926316078, 5.271779590360316}, 0.032743972610933605], CircleBox[{14.316165403944018, 5.010402265132688}, 0.10225310745168743], CircleBox[{14.224025964497876, 5.828427124746188}, 0.051579001103948564], CircleBox[{14.80458604162241, 6.318142997288054}, 0.035858614553206554], CircleBox[{14.930066150253793, 5.443530993866724}, 0.054985161554209336], CircleBox[{14.836753236814708, 5.488435542469328}, 0.04857022603955154], CircleBox[{15.364558797165683, 6.011512229620989}, 0.03791816675382173], CircleBox[{15.454951288348653, 5.9194962985703485}, 0.0910691738241592], CircleBox[{15.454951288348656, 5.737357950922025}, 0.09106917382415909], CircleBox[{14.653583443767616, 5.792449179531706}, 0.03597794521448262], CircleBox[{14.65358344376761, 5.864405069960671}, 0.03597794521448264], CircleBox[{19.525873344873105, 9.686047528719692}, 0.040220545321866974], CircleBox[{19.34017973995782, 9.516401427523183}, 0.0436827106524709], CircleBox[{19.203651518486286, 9.889227181113396}, 0.036074021803652954], CircleBox[{19.929100294646048, 9.615617147045329}, 0.04165790004993647], CircleBox[{20.04800765783691, 9.37987816258361}, 0.04646889973287574], CircleBox[{20.325414481205254, 9.708326112068328}, 0.03976588035558856], CircleBox[{19.437532013695602, 9.043551110325518}, 0.053332717125857895], CircleBox[{19.753521139702027, 8.96978752023354}, 0.054838096515476296], CircleBox[{19.39949493661165, 8.279252339470991}, 0.03661165235168174], CircleBox[{19.4252230528978, 8.495780898109903}, 0.03607402180365227], CircleBox[{18.839178095971505, 10.567322306939111}, 0.06409011426784557], CircleBox[{18.87777546256546, 10.472591504941795}, 0.03820202401776298], CircleBox[{18.88021599140452, 10.888240770999712}, 0.04521255755839023], CircleBox[{18.60606993076519, 10.813063966192852}, 0.04963472254703483], CircleBox[{19.081620466650246, 11.313750972806877}, 0.04901475381222327], CircleBox[{18.94998555747038, 11.556854249492378}, 0.03333333333333346], CircleBox[{19.12603585627265, 11.507294512252695}, 0.14955973723971894], CircleBox[{18.899494936611664, 11.613961030678947}, 0.04289321881345252], CircleBox[{18.226905952289535, 11.123383380371571}, 0.03556472460805301], CircleBox[{18.38958528177001, 11.617967542853691}, 0.0388867066386871], CircleBox[{17.62335256169626, 11.545743138381264}, 0.1111111111111111], CircleBox[{17.70369699444032, 11.426159645262581}, 0.032956372032826205], CircleBox[{17.89949493661166, 11.485281374238575}, 0.17157287525380996], CircleBox[{20.950326143716506, 10.738665842548597}, 0.05401108276139833], CircleBox[{20.932221359323748, 10.352116395368096}, 0.07674928553672247], CircleBox[{20.86304518451775, 10.251524163602445}, 0.04533322857709305], CircleBox[{21.268296919654976, 10.596305477052711}, 0.06238522190821546], CircleBox[{21.35937165253668, 10.625544843783967}, 0.033268045345432956], CircleBox[{20.766790338306766, 11.26040764008565}, 0.05663522991524518], CircleBox[{20.727922061357855, 11.485281374238584}, 0.17157287525381174], CircleBox[{20.932221359323655, 11.538341389153468}, 0.03950428677963582], CircleBox[{20.899494936611664, 11.613961030678947}, 0.04289321881345252], CircleBox[{22.172174754173525, 11.102860946018822}, 0.032587841380797525], CircleBox[{22.23202677479169, 11.133956404733706}, 0.03485985631724505], CircleBox[{21.813708498984763, 10.93173636167456}, 0.0483411925211883], CircleBox[{21.89472512312685, 10.968212944284554}, 0.04050831207104853], CircleBox[{23.118446353109114, 11.545743138381267}, 0.1111111111111112], CircleBox[{23.02715314894125, 11.436143571373732}, 0.03153009687409361], CircleBox[{22.6559089947456, 11.376120750905429}, 0.09357783286231673], CircleBox[{22.860626659662778, 11.507294512252656}, 0.14955973723971822], CircleBox[{21.683106561502882, 11.5886267851963}, 0.06822746429607382], CircleBox[{21.89949493661166, 11.485281374238571}, 0.17157287525380993], CircleBox[{20.383689706979634, 1.890440027724267}, 0.03502724321283064], CircleBox[{20.350387152759993, 1.4656069939198642}, 0.05176315896493799], CircleBox[{20.702896521852402, 1.5193562307708683}, 0.06809070893975326], CircleBox[{20.824666822573885, 1.4571067811865464}, 0.0319348952243207], CircleBox[{19.96004370905125, 2.368801983043401}, 0.062385221908210976], CircleBox[{20.037566124069354, 2.3106601717798223}, 0.03451779686442446], CircleBox[{19.782337649086276, 2.4770815280171297}, 0.1457106781186546], CircleBox[{19.576271631908295, 2.7320752147247753}, 0.18213834764831824], CircleBox[{21.3956022001296, 0.9394972509293082}, 0.08815896595133216], CircleBox[{21.515699913550797, 0.9259308136331009}, 0.0327025622117393], CircleBox[{21.980375165651417, 0.3238015069303437}, 0.3238015069303437], CircleBox[{21.557675643235047, 0.6725108220860987}, 0.22417027402869957], CircleBox[{19.85082352392608, 1.0688317719197997}, 0.10029524162542726], CircleBox[{19.72403393721812, 1.1285617293012478}, 0.03985919856954501], CircleBox[{19.232828269944992, 0.6476030138606876}, 0.6476030138606876], CircleBox[{18.77223743012889, 6.885141718745229}, 0.03205024439711317], CircleBox[{18.948856346924508, 6.805103069686798}, 0.032587841380797414], CircleBox[{18.96772240090776, 7.089630999710042}, 0.06822746429607855], CircleBox[{19.055398694769348, 7.301678268696202}, 0.03228872552692577], CircleBox[{19.012765396442152, 7.19714555828442}, 0.048341192521188694], CircleBox[{18.559305451133383, 6.614314002995717}, 0.05754523434844027], CircleBox[{18.874208272299104, 6.4603969972786865}, 0.059301728046304306], CircleBox[{18.840321570558356, 4.8570226039551585}, 0.1387720743987188], CircleBox[{18.84032157055836, 5.099873734152916}, 0.10407905579903898], CircleBox[{18.840321570558356, 5.7689533785753095}, 0.05947374617087943], CircleBox[{18.84032157055836, 5.887900870917068}, 0.05947374617087946], CircleBox[{18.101325390405776, 6.220545155244006}, 0.08121030314161211], CircleBox[{17.986139996879555, 6.203641780406435}, 0.03520876300603611], CircleBox[{17.939865024906673, 5.828427124746192}, 0.3428486543968347], CircleBox[{30.086366858859698, 9.67402164423611}, 0.11663721207389871], CircleBox[{30.19578861137301, 9.812059839071289}, 0.059509497110357835], CircleBox[{29.375698138347254, 9.547378541243605}, 0.12408680636757133], CircleBox[{29.2158217930039, 9.64797077300919}, 0.06480269278978026], CircleBox[{29.894517562830277, 8.864618784998756}, 0.1642491449702141], CircleBox[{30.019271724675963, 8.403958599364898}, 0.056447014625730964], CircleBox[{29.960977401188764, 8.61065724985233}, 0.09826441934322742], CircleBox[{29.960977401188764, 8.476094144389242}, 0.03629868611985719], CircleBox[{30.682139345349572, 10.749616550435437}, 0.1296053855795603], CircleBox[{30.817553061067777, 11.259195445936498}, 0.39765880355588934], CircleBox[{31.33366766622815, 11.29727764736752}, 0.11985886737495342], CircleBox[{31.263455967290582, 11.53185424949238}, 0.12499999999999994], CircleBox[{28.40333949869469, 10.553300858899082}, 0.15765048437046775], CircleBox[{27.475468957064276, 11.156854249492381}, 0.1666666666666665], CircleBox[{28.14213562373094, 11.15685424949238}, 0.5000000000000004], CircleBox[{27.142135623730937, 11.406854249492381}, 0.24999999999999994], CircleBox[{28.955464766814696, 1.6008844192893377}, 0.15022110482233467], CircleBox[{29.02921669496047, 1.801616008065299}, 0.06363052046431499], CircleBox[{29.673506473629416, 1.748528137423857}, 0.582842712474619], CircleBox[{28.84924240491749, 0.7285533905932734}, 0.7285533905932734], CircleBox[{30.67186458825588, 6.677561771445905}, 0.17586154347195457], CircleBox[{30.556349186104036, 6.931980515339459}, 0.10355339059327327], CircleBox[{30.909902576697306, 6.192703820042825}, 0.36427669529663653], CircleBox[{30.909902576697306, 5.4641504294495515}, 0.36427669529663653], CircleBox[{36.38477631085023, 10.656854249492381}], CircleBox[{36.15823539118924, 9.34619407771256}, 0.3300943102542602], CircleBox[{41.21320343559641, 5.82842712474619}, 5.82842712474619], CircleBox[{-2.8564558612972415, 11.57908083621491}, 0.0777734132773804], CircleBox[{-2.493222135932368, 11.620471140060712}, 0.036383109431700505], CircleBox[{-1.8336971528526287, 11.624804005095271}, 0.03205024439711334], CircleBox[{-0.9521519537657203, 11.579080836215}, 0.07777341327737507], CircleBox[{-0.8535533905932725, 11.62560424949241}, 0.03125000000000011], CircleBox[{-1.2612038749637418, 11.622740517344344}, 0.03411373214803703], CircleBox[{-3.999999999999844, 11.571067811865515}, 0.08578643762691299], CircleBox[{-4.508049883729168, 11.605533461211573}, 0.051320788280845776], CircleBox[{-5.347284575472231, 11.01570092480717}, 0.03771490145207163], CircleBox[{-6.513814431886546, 11.624804005095273}, 0.03205024439711346], CircleBox[{-6.94824221539575, 11.548382043183686}, 0.03615740210289313], CircleBox[{-6.8284271247462, 11.571067811865486}, 0.08578643762690534], CircleBox[{-7.035533905932722, 11.594354249492362}, 0.06250000000000011], CircleBox[{-6.136817753400268, 11.561749469650728}, 0.09510477984165606], CircleBox[{-5.098179268136006, 11.620471140060674}, 0.03638310943170055], CircleBox[{-5.567223249782449, 11.622740517344345}, 0.034113732148036945], CircleBox[{-2.997323886225194, 3.0908325661532827}, 0.08830950189009379], CircleBox[{-3.0909902576697315, 2.974926344922534}, 0.060712782549439404], CircleBox[{-3.0156002513851035, 2.416664905382566}, 0.1421567591401509], CircleBox[{-4.828427124746189, 1.0469181606780271}, 0.046918160678027204], CircleBox[{-6.084226914709378, 0.37638496736923344}, 0.0353185807516474], CircleBox[{-5.934701294725883, 0.3497056274847714}, 0.11656854249492381], CircleBox[{-6.181980515339464, 0.18213834764831846}, 0.18213834764831846], CircleBox[{-5.333473385783065, 0.7285533905932733}, 0.04285608179960428], CircleBox[{-5.409232950922028, 0.6830188036811936}, 0.04553458691207954], CircleBox[{-4.862627124027097, 0.5006915259437498}, 0.046983050928710905], CircleBox[{-4.94558441227157, 0.23313708498984761}, 0.23313708498984761], CircleBox[{-3.4792418933164186, 1.1522005899004304}, 0.04069408957649417], CircleBox[{-3.3773331327553415, 0.9274626914139296}, 0.04156470411254717], CircleBox[{-2.1109013315541696, 0.39556084064480285}, 0.03711797415861671], CircleBox[{-1.9394448675574778, 0.514272981595252}, 0.17142432719841735], CircleBox[{-2.0606601717798205, 0.18213834764831835}, 0.18213834764831835], CircleBox[{-2.8500276325507587, 1.3222914548223335}, 0.034824120558375526], CircleBox[{-2.7475468957064275, 1.3761564044539611}, 0.0809503767325859], CircleBox[{-2.575825214724776, 1.3660376073623879}, 0.09106917382415913], CircleBox[{-3.4058484007310357, 0.44349162812029663}, 0.04161562293501588], CircleBox[{-3.297056274847712, 0.11656854249492372}, 0.11656854249492372], CircleBox[{-3.4107478705321164, 0.30147036852135456}, 0.10049012284045153], CircleBox[{-2.4727922061357845, 4.7113119258365}, 0.048570226039551495], CircleBox[{-2.472792206135784, 4.5898863607376255}, 0.07285533905932723], CircleBox[{-2.4079624479224857, 5.271779590360316}, 0.032743972610933605], CircleBox[{-2.1691159702945466, 5.010402265132688}, 0.10225310745168743], CircleBox[{-2.261255409740688, 5.828427124746188}, 0.051579001103948564], CircleBox[{-1.6806953326161547, 6.318142997288054}, 0.035858614553206554], CircleBox[{-1.5552152239847696, 5.443530993866724}, 0.054985161554209336], CircleBox[{-1.6485281374238563, 5.488435542469328}, 0.04857022603955154], CircleBox[{-1.1207225770728813, 6.011512229620989}, 0.03791816675382173], CircleBox[{-1.0303300858899096, 5.9194962985703485}, 0.0910691738241592], CircleBox[{-1.0303300858899098, 5.737357950922025}, 0.09106917382415909], CircleBox[{-1.831697930470951, 5.792449179531706}, 0.03597794521448262], CircleBox[{-1.8316979304709513, 5.864405069960671}, 0.03597794521448264], CircleBox[{-13.444689403604023, 9.686047528719692}, 0.040220545321866974], CircleBox[{-13.63038300851931, 9.516401427523183}, 0.0436827106524709], CircleBox[{-13.76691122999084, 9.889227181113396}, 0.036074021803652954], CircleBox[{-13.041462453831079, 9.615617147045329}, 0.04165790004993647], CircleBox[{-12.922555090640222, 9.37987816258361}, 0.04646889973287574], CircleBox[{-12.645148267271871, 9.708326112068328}, 0.03976588035558856], CircleBox[{-13.533030734781525, 9.043551110325518}, 0.053332717125857895], CircleBox[{-13.217041608775105, 8.96978752023354}, 0.054838096515476296], CircleBox[{-13.571067811865476, 8.279252339470991}, 0.03661165235168174], CircleBox[{-13.545339695579328, 8.495780898109903}, 0.03607402180365227], CircleBox[{-14.13138465250562, 10.567322306939111}, 0.06409011426784557], CircleBox[{-14.092787285911669, 10.472591504941795}, 0.03820202401776298], CircleBox[{-14.090346757072613, 10.888240770999712}, 0.04521255755839023], CircleBox[{-14.364492817711936, 10.813063966192852}, 0.04963472254703483], CircleBox[{-13.888942281826882, 11.313750972806877}, 0.04901475381222327], CircleBox[{-14.020577191006748, 11.556854249492378}, 0.03333333333333346], CircleBox[{-13.84452689220448, 11.507294512252695}, 0.14955973723971894], CircleBox[{-14.071067811865468, 11.613961030678947}, 0.04289321881345252], CircleBox[{-14.743656796187592, 11.123383380371571}, 0.03556472460805301], CircleBox[{-14.580977466707115, 11.617967542853691}, 0.0388867066386871], CircleBox[{-15.347210186780863, 11.545743138381264}, 0.1111111111111111], CircleBox[{-15.266865754036806, 11.426159645262581}, 0.032956372032826205], CircleBox[{-15.07106781186547, 11.485281374238575}, 0.17157287525380996], CircleBox[{-12.02023660476062, 10.738665842548597}, 0.05401108276139833], CircleBox[{-12.038341389153379, 10.352116395368096}, 0.07674928553672247], CircleBox[{-12.107517563959377, 10.251524163602445}, 0.04533322857709305], CircleBox[{-11.702265828822155, 10.596305477052711}, 0.06238522190821546], CircleBox[{-11.61119109594045, 10.625544843783967}, 0.033268045345432956], CircleBox[{-12.203772410170362, 11.26040764008565}, 0.05663522991524518], CircleBox[{-12.242640687119275, 11.485281374238584}, 0.17157287525381174], CircleBox[{-12.038341389153473, 11.538341389153468}, 0.03950428677963582], CircleBox[{-12.071067811865468, 11.613961030678947}, 0.04289321881345252], CircleBox[{-10.7983879943036, 11.102860946018822}, 0.032587841380797525], CircleBox[{-10.738535973685432, 11.133956404733706}, 0.03485985631724505], CircleBox[{-11.15685424949237, 10.93173636167456}, 0.0483411925211883], CircleBox[{-11.075837625350275, 10.968212944284554}, 0.04050831207104853], CircleBox[{-9.852116395368014, 11.545743138381267}, 0.1111111111111112], CircleBox[{-9.943409599535883, 11.436143571373732}, 0.03153009687409361], CircleBox[{-10.314653753731525, 11.376120750905429}, 0.09357783286231673], CircleBox[{-10.109936088814349, 11.507294512252656}, 0.14955973723971822], CircleBox[{-11.287456186974241, 11.5886267851963}, 0.06822746429607382], CircleBox[{-11.071067811865468, 11.485281374238571}, 0.17157287525380993], CircleBox[{-12.58687304149749, 1.890440027724267}, 0.03502724321283064], CircleBox[{-12.620175595717136, 1.4656069939198642}, 0.05176315896493799], CircleBox[{-12.267666226624726, 1.5193562307708683}, 0.06809070893975326], CircleBox[{-12.145895925903245, 1.4571067811865464}, 0.0319348952243207], CircleBox[{-13.010519039425883, 2.368801983043401}, 0.062385221908210976], CircleBox[{-12.932996624407776, 2.3106601717798223}, 0.03451779686442446], CircleBox[{-13.188225099390852, 2.4770815280171297}, 0.1457106781186546], CircleBox[{-13.394291116568834, 2.7320752147247753}, 0.18213834764831824], CircleBox[{-11.574960548347528, 0.9394972509293082}, 0.08815896595133216], CircleBox[{-11.454862834926326, 0.9259308136331009}, 0.0327025622117393], CircleBox[{-10.99018758282571, 0.3238015069303437}, 0.3238015069303437], CircleBox[{-11.412887105242085, 0.6725108220860987}, 0.22417027402869957], CircleBox[{-13.11973922455105, 1.0688317719197997}, 0.10029524162542726], CircleBox[{-13.246528811259012, 1.1285617293012478}, 0.03985919856954501], CircleBox[{-13.737734478532136, 0.6476030138606876}, 0.6476030138606876], CircleBox[{-14.198325318348243, 6.885141718745229}, 0.03205024439711317], CircleBox[{-14.021706401552617, 6.805103069686798}, 0.032587841380797414], CircleBox[{-14.002840347569366, 7.089630999710042}, 0.06822746429607855], CircleBox[{-13.915164053707777, 7.301678268696202}, 0.03228872552692577], CircleBox[{-13.957797352034977, 7.19714555828442}, 0.048341192521188694], CircleBox[{-14.41125729734374, 6.614314002995717}, 0.05754523434844027], CircleBox[{-14.096354476178025, 6.4603969972786865}, 0.059301728046304306], CircleBox[{-14.130241177918768, 4.8570226039551585}, 0.1387720743987188], CircleBox[{-14.130241177918771, 5.099873734152916}, 0.10407905579903898], CircleBox[{-14.130241177918771, 5.7689533785753095}, 0.05947374617087943], CircleBox[{-14.130241177918773, 5.887900870917068}, 0.05947374617087946], CircleBox[{-14.869237358071354, 6.220545155244006}, 0.08121030314161211], CircleBox[{-14.984422751597576, 6.203641780406435}, 0.03520876300603611], CircleBox[{-15.030697723570455, 5.828427124746192}, 0.3428486543968347], CircleBox[{-19.369477263855998, 9.67402164423611}, 0.11663721207389871], CircleBox[{-19.260055511342678, 9.812059839071289}, 0.059509497110357835], CircleBox[{-20.08014598436844, 9.547378541243605}, 0.12408680636757133], CircleBox[{-20.24002232971179, 9.64797077300919}, 0.06480269278978026], CircleBox[{-19.56132655988542, 8.864618784998756}, 0.1642491449702141], CircleBox[{-19.436572398039722, 8.403958599364898}, 0.056447014625730964], CircleBox[{-19.49486672152693, 8.61065724985233}, 0.09826441934322742], CircleBox[{-19.49486672152693, 8.476094144389242}, 0.03629868611985719], CircleBox[{-18.77370477736612, 10.749616550435437}, 0.1296053855795603], CircleBox[{-18.638291061647916, 11.259195445936498}, 0.39765880355588934], CircleBox[{-18.122176456487544, 11.29727764736752}, 0.11985886737495342], CircleBox[{-18.192388155425114, 11.53185424949238}, 0.12499999999999994], CircleBox[{-21.052504624021, 10.553300858899082}, 0.15765048437046775], CircleBox[{-21.98037516565142, 11.156854249492381}, 0.1666666666666665], CircleBox[{-21.313708498984752, 11.15685424949238}, 0.5000000000000004], CircleBox[{-22.313708498984756, 11.406854249492381}, 0.24999999999999994], CircleBox[{-20.500379355900996, 1.6008844192893377}, 0.15022110482233467], CircleBox[{-20.426627427755218, 1.801616008065299}, 0.06363052046431499], CircleBox[{-19.782337649086276, 1.748528137423857}, 0.582842712474619], CircleBox[{-20.606601717798203, 0.7285533905932734}, 0.7285533905932734], CircleBox[{-18.783979534459817, 6.677561771445905}, 0.17586154347195457], CircleBox[{-18.899494936611653, 6.931980515339459}, 0.10355339059327327], CircleBox[{-18.545941546018383, 6.192703820042825}, 0.36427669529663653], CircleBox[{-18.545941546018383, 5.4641504294495515}, 0.36427669529663653], CircleBox[{-29.556349186104033, 10.656854249492381}], CircleBox[{-29.78289010576502, 9.34619407771256}, 0.3300943102542602], CircleBox[{-32.97056274847713, 2.9142135623730936}, 2.9142135623730936], CircleBox[{-32.97056274847713, 8.742640687119282}, 2.914213562373094], CircleBox[{3.056161921420798, 11.624804005095292}, 0.03205024439711022], CircleBox[{0.611232384284245, 11.62480400509529}, 0.032050244397112786], CircleBox[{3.7836116248904577, 11.622740517344367}, 0.034113732148074935], CircleBox[{7.350834874673714, 11.622740517344353}, 0.034113732148038284], CircleBox[{2.909167301336219, 3.3942016785286677}, 0.03428486543968355], CircleBox[{2.9338212615170325, 3.1941097802281373}, 0.032928966806475606], CircleBox[{2.8753397745764935, 2.2138986752911887}, 0.04518160561818758], CircleBox[{6.756262858294494, 0.1433219784773653}, 0.04777399282578843], CircleBox[{6.86886723926607, 0.08095037673258607}, 0.08095037673258607], CircleBox[{6.410942756648331, 0.07195589042896533}, 0.07195589042896533], CircleBox[{5.245316800894088, 0.04816881921277842}, 0.04816881921277842], CircleBox[{4.579244826177379, 0.07195589042896532}, 0.07195589042896532], CircleBox[{1.9854535961674185, 0.7232354826327387}, 0.04254326368427874], CircleBox[{2.2479929146688953, 0.04816881921277843}, 0.04816881921277843], CircleBox[{1.3366444357490725, 0.23628758613835907}, 0.07876252871278636], CircleBox[{1.3737734478532138, 0.08095037673258594}, 0.08095037673258594], CircleBox[{1.6859946860016715, 0.4967409481317774}, 0.033116063208785136], CircleBox[{1.8316979304709513, 0.03597794521448264}, 0.03597794521448264], CircleBox[{3.170246418122801, 0.034487734465953775}, 0.034487734465953775], CircleBox[{3.663395860941903, 0.03597794521448264}, 0.03597794521448264], CircleBox[{3.6849452483592082, 0.10285459631905039}, 0.03428486543968346], CircleBox[{2.0049666536236086, 5.07230684910344}, 0.03150501148511451], CircleBox[{0.6868867239266085, 5.868902313112497}, 0.04047518836629302], CircleBox[{0.6868867239266077, 5.787951936379893}, 0.04047518836629283], CircleBox[{13.507198021416311, 11.609301859571584}, 0.047552389920854504], CircleBox[{15.802438661763937, 11.616854249492397}, 0.03999999999999927], CircleBox[{15.711822293899564, 11.605533461211422}, 0.051320788280845624], CircleBox[{12.617985972543496, 11.605533461211431}, 0.05132078828085041], CircleBox[{9.208326112068548, 11.616854249492338}, 0.03999999999999982], CircleBox[{9.295552153978763, 11.609301859571596}, 0.04755238992082816], CircleBox[{9.545119253221095, 11.620471140060687}, 0.03638310943170058], CircleBox[{10.847597819322923, 11.620471140060681}, 0.036383109431700464], CircleBox[{13.487957488013372, 3.21225813125216}, 0.033116063208785115], CircleBox[{13.541481128838821, 3.2784902576697306}, 0.05203952789951941], CircleBox[{13.511132672700679, 2.944257001160445}, 0.06008687757470291], CircleBox[{13.541481128838821, 2.255046208979179}, 0.03469301859967967], CircleBox[{13.600357133746813, 2.294943180368811}, 0.03642766952966365], CircleBox[{10.677966344677252, 0.4967409481317774}, 0.033116063208785136], CircleBox[{9.891168824543136, 0.11656854249492372}, 0.11656854249492372], CircleBox[{10.052000837950345, 0.2132351387102263}, 0.07107837957007544], CircleBox[{10.597680883439079, 0.11894749234175891}, 0.11894749234175891], CircleBox[{11.151807988455499, 0.6476030138606877}, 0.03809429493298162], CircleBox[{11.291288612492167, 0.11976220119341487}, 0.03992073373113829], CircleBox[{11.333630944789013, 0.04553458691207959}, 0.04553458691207959], CircleBox[{11.775200981598974, 0.059473746170879464}, 0.059473746170879464], CircleBox[{11.819635702284254, 0.16495548466262797}, 0.05498516155420932], CircleBox[{14.424621202458743, 0.6880782022269805}, 0.04047518836629294], CircleBox[{14.424621202458743, 0.780592918492793}, 0.052039527899519496], CircleBox[{14.130241177918771, 0.05947374617087946}, 0.05947374617087946], CircleBox[{14.202703953190149, 0.13450216441721974}, 0.04483405480573992], CircleBox[{14.836753236814708, 0.23313708498984756}, 0.23313708498984756], CircleBox[{14.04301746694396, 1.2592280825068929}, 0.03597794521448265], CircleBox[{13.822274383015412, 1.5243578633951576}, 0.08966810961147983], CircleBox[{13.336407403878392, 0.09823191783280097}, 0.032743972610933654], CircleBox[{13.394291116568832, 0.04553458691207959}, 0.04553458691207959], CircleBox[{12.952721079758874, 0.11894749234175898}, 0.11894749234175898], CircleBox[{13.94908423974032, 4.438571425768253}, 0.04483405480573998], CircleBox[{14.101046464741252, 4.672375463639509}, 0.04816881921277838], CircleBox[{14.836753236814708, 5.384356486670288}, 0.05550882975948748], CircleBox[{15.644195589838642, 5.828427124746191}, 0.11894749234175914], CircleBox[{14.591009911981338, 5.828427124746188}, 0.036201410712709235], CircleBox[{19.34173723553581, 11.57908083621491}, 0.0777734132773804], CircleBox[{18.978503510170928, 11.620471140060712}, 0.036383109431700505], CircleBox[{18.318978527091193, 11.624804005095271}, 0.03205024439711334], CircleBox[{17.437433328004285, 11.579080836215}, 0.07777341327737507], CircleBox[{17.338834764831837, 11.62560424949241}, 0.03125000000000011], CircleBox[{17.74648524920231, 11.622740517344344}, 0.03411373214803703], CircleBox[{20.485281374238408, 11.571067811865515}, 0.08578643762691299], CircleBox[{20.993331257967732, 11.605533461211573}, 0.051320788280845776], CircleBox[{21.832565949710798, 11.01570092480717}, 0.03771490145207163], CircleBox[{22.999095806125112, 11.624804005095273}, 0.03205024439711346], CircleBox[{23.433523589634316, 11.548382043183686}, 0.03615740210289313], CircleBox[{23.313708498984766, 11.571067811865486}, 0.08578643762690534], CircleBox[{23.520815280171288, 11.594354249492362}, 0.06250000000000011], CircleBox[{22.622099127638833, 11.561749469650728}, 0.09510477984165606], CircleBox[{21.58346064237457, 11.620471140060674}, 0.03638310943170055], CircleBox[{22.052504624021015, 11.622740517344345}, 0.034113732148036945], CircleBox[{19.48260526046376, 3.0908325661532827}, 0.08830950189009379], CircleBox[{19.5762716319083, 2.974926344922534}, 0.060712782549439404], CircleBox[{19.50088162562367, 2.416664905382566}, 0.1421567591401509], CircleBox[{21.31370849898475, 1.0469181606780271}, 0.046918160678027204], CircleBox[{22.569508288947944, 0.37638496736923344}, 0.0353185807516474], CircleBox[{22.419982668964447, 0.3497056274847714}, 0.11656854249492381], CircleBox[{22.66726188957803, 0.18213834764831846}, 0.18213834764831846], CircleBox[{21.81875476002163, 0.7285533905932733}, 0.04285608179960428], CircleBox[{21.894514325160593, 0.6830188036811936}, 0.04553458691207954], CircleBox[{21.34790849826566, 0.5006915259437498}, 0.046983050928710905], CircleBox[{21.430865786510136, 0.23313708498984761}, 0.23313708498984761], CircleBox[{19.96452326755498, 1.1522005899004304}, 0.04069408957649417], CircleBox[{19.862614506993904, 0.9274626914139296}, 0.04156470411254717], CircleBox[{18.59618270579273, 0.39556084064480285}, 0.03711797415861671], CircleBox[{18.42472624179604, 0.514272981595252}, 0.17142432719841735], CircleBox[{18.545941546018383, 0.18213834764831835}, 0.18213834764831835], CircleBox[{19.335309006789323, 1.3222914548223335}, 0.034824120558375526], CircleBox[{19.232828269944992, 1.3761564044539611}, 0.0809503767325859], CircleBox[{19.06110658896334, 1.3660376073623879}, 0.09106917382415913], CircleBox[{19.891129774969603, 0.44349162812029663}, 0.04161562293501588], CircleBox[{19.782337649086276, 0.11656854249492372}, 0.11656854249492372], CircleBox[{19.896029244770677, 0.30147036852135456}, 0.10049012284045153], CircleBox[{18.958073580374347, 4.7113119258365}, 0.048570226039551495], CircleBox[{18.958073580374347, 4.5898863607376255}, 0.07285533905932723], CircleBox[{18.89324382216105, 5.271779590360316}, 0.032743972610933605], CircleBox[{18.65439734453311, 5.010402265132688}, 0.10225310745168743], CircleBox[{18.746536783979252, 5.828427124746188}, 0.051579001103948564], CircleBox[{18.165976706854718, 6.318142997288054}, 0.035858614553206554], CircleBox[{18.040496598223335, 5.443530993866724}, 0.054985161554209336], CircleBox[{18.133809511662417, 5.488435542469328}, 0.04857022603955154], CircleBox[{17.606003951311447, 6.011512229620989}, 0.03791816675382173], CircleBox[{17.515611460128476, 5.9194962985703485}, 0.0910691738241592], CircleBox[{17.515611460128476, 5.737357950922025}, 0.09106917382415909], CircleBox[{18.316979304709516, 5.792449179531706}, 0.03597794521448262], CircleBox[{18.316979304709513, 5.864405069960671}, 0.03597794521448264], CircleBox[{29.929970777842588, 9.686047528719692}, 0.040220545321866974], CircleBox[{30.115664382757874, 9.516401427523183}, 0.0436827106524709], CircleBox[{30.252192604229403, 9.889227181113396}, 0.036074021803652954], CircleBox[{29.526743828069645, 9.615617147045329}, 0.04165790004993647], CircleBox[{29.407836464878784, 9.37987816258361}, 0.04646889973287574], CircleBox[{29.130429641510435, 9.708326112068328}, 0.03976588035558856], CircleBox[{30.018312109020087, 9.043551110325518}, 0.053332717125857895], CircleBox[{29.70232298301367, 8.96978752023354}, 0.054838096515476296], CircleBox[{30.056349186104036, 8.279252339470991}, 0.03661165235168174], CircleBox[{30.030621069817894, 8.495780898109903}, 0.03607402180365227], CircleBox[{30.61666602674418, 10.567322306939111}, 0.06409011426784557], CircleBox[{30.578068660150233, 10.472591504941795}, 0.03820202401776298], CircleBox[{30.575628131311177, 10.888240770999712}, 0.04521255755839023], CircleBox[{30.849774191950498, 10.813063966192852}, 0.04963472254703483], CircleBox[{30.374223656065446, 11.313750972806877}, 0.04901475381222327], CircleBox[{30.505858565245312, 11.556854249492378}, 0.03333333333333346], CircleBox[{30.329808266443045, 11.507294512252695}, 0.14955973723971894], CircleBox[{30.556349186104033, 11.613961030678947}, 0.04289321881345252], CircleBox[{31.228938170426158, 11.123383380371571}, 0.03556472460805301], CircleBox[{31.066258840945675, 11.617967542853691}, 0.0388867066386871], CircleBox[{31.832491561019424, 11.545743138381264}, 0.1111111111111111], CircleBox[{31.752147128275364, 11.426159645262581}, 0.032956372032826205], CircleBox[{31.556349186104036, 11.485281374238575}, 0.17157287525380996], CircleBox[{28.505517978999183, 10.738665842548597}, 0.05401108276139833], CircleBox[{28.52362276339194, 10.352116395368096}, 0.07674928553672247], CircleBox[{28.59279893819794, 10.251524163602445}, 0.04533322857709305], CircleBox[{28.18754720306072, 10.596305477052711}, 0.06238522190821546], CircleBox[{28.096472470179016, 10.625544843783967}, 0.033268045345432956], CircleBox[{28.689053784408927, 11.26040764008565}, 0.05663522991524518], CircleBox[{28.727922061357837, 11.485281374238584}, 0.17157287525381174], CircleBox[{28.523622763392037, 11.538341389153468}, 0.03950428677963582], CircleBox[{28.556349186104033, 11.613961030678947}, 0.04289321881345252], CircleBox[{27.283669368542164, 11.102860946018822}, 0.032587841380797525], CircleBox[{27.223817347923994, 11.133956404733706}, 0.03485985631724505], CircleBox[{27.64213562373094, 10.93173636167456}, 0.0483411925211883], CircleBox[{27.561118999588835, 10.968212944284554}, 0.04050831207104853], CircleBox[{26.33739776960658, 11.545743138381267}, 0.1111111111111112], CircleBox[{26.42869097377445, 11.436143571373732}, 0.03153009687409361], CircleBox[{26.799935127970087, 11.376120750905429}, 0.09357783286231673], CircleBox[{26.59521746305291, 11.507294512252656}, 0.14955973723971822], CircleBox[{27.772737561212804, 11.5886267851963}, 0.06822746429607382], CircleBox[{27.556349186104036, 11.485281374238571}, 0.17157287525380993], CircleBox[{29.072154415736055, 1.890440027724267}, 0.03502724321283064], CircleBox[{29.1054569699557, 1.4656069939198642}, 0.05176315896493799], CircleBox[{28.75294760086329, 1.5193562307708683}, 0.06809070893975326], CircleBox[{28.63117730014181, 1.4571067811865464}, 0.0319348952243207], CircleBox[{29.495800413664448, 2.368801983043401}, 0.062385221908210976], CircleBox[{29.41827799864634, 2.3106601717798223}, 0.03451779686442446], CircleBox[{29.673506473629416, 2.4770815280171297}, 0.1457106781186546], CircleBox[{29.879572490807398, 2.7320752147247753}, 0.18213834764831824], CircleBox[{28.060241922586094, 0.9394972509293082}, 0.08815896595133216], CircleBox[{27.94014420916489, 0.9259308136331009}, 0.0327025622117393], CircleBox[{27.47546895706428, 0.3238015069303437}, 0.3238015069303437], CircleBox[{27.898168479480653, 0.6725108220860987}, 0.22417027402869957], CircleBox[{29.605020598789615, 1.0688317719197997}, 0.10029524162542726], CircleBox[{29.73181018549758, 1.1285617293012478}, 0.03985919856954501], CircleBox[{30.2230158527707, 0.6476030138606876}, 0.6476030138606876], CircleBox[{30.683606692586807, 6.885141718745229}, 0.03205024439711317], CircleBox[{30.506987775791178, 6.805103069686798}, 0.032587841380797414], CircleBox[{30.48812172180793, 7.089630999710042}, 0.06822746429607855], CircleBox[{30.40044542794634, 7.301678268696202}, 0.03228872552692577], CircleBox[{30.443078726273537, 7.19714555828442}, 0.048341192521188694], CircleBox[{30.896538671582306, 6.614314002995717}, 0.05754523434844027], CircleBox[{30.581635850416593, 6.4603969972786865}, 0.059301728046304306], CircleBox[{30.61552255215733, 4.8570226039551585}, 0.1387720743987188], CircleBox[{30.615522552157334, 5.099873734152916}, 0.10407905579903898], CircleBox[{30.615522552157337, 5.7689533785753095}, 0.05947374617087943], CircleBox[{30.615522552157337, 5.887900870917068}, 0.05947374617087946], CircleBox[{31.35451873230992, 6.220545155244006}, 0.08121030314161211], CircleBox[{31.46970412583614, 6.203641780406435}, 0.03520876300603611], CircleBox[{31.515979097809023, 5.828427124746192}, 0.3428486543968347], CircleBox[{35.854758638094566, 9.67402164423611}, 0.11663721207389871], CircleBox[{35.74533688558124, 9.812059839071289}, 0.059509497110357835], CircleBox[{36.565427358607, 9.547378541243605}, 0.12408680636757133], CircleBox[{36.72530370395035, 9.64797077300919}, 0.06480269278978026], CircleBox[{36.04660793412398, 8.864618784998756}, 0.1642491449702141], CircleBox[{35.92185377227828, 8.403958599364898}, 0.056447014625730964], CircleBox[{35.98014809576549, 8.61065724985233}, 0.09826441934322742], CircleBox[{35.980148095765486, 8.476094144389242}, 0.03629868611985719], CircleBox[{35.25898615160468, 10.749616550435437}, 0.1296053855795603], CircleBox[{35.12357243588648, 11.259195445936498}, 0.39765880355588934], CircleBox[{34.60745783072611, 11.29727764736752}, 0.11985886737495342], CircleBox[{34.677669529663675, 11.53185424949238}, 0.12499999999999994], CircleBox[{37.537785998259565, 10.553300858899082}, 0.15765048437046775], CircleBox[{38.465656539889984, 11.156854249492381}, 0.1666666666666665], CircleBox[{37.79898987322332, 11.15685424949238}, 0.5000000000000004], CircleBox[{38.79898987322332, 11.406854249492381}, 0.24999999999999994], CircleBox[{36.985660730139564, 1.6008844192893377}, 0.15022110482233467], CircleBox[{36.91190880199378, 1.801616008065299}, 0.06363052046431499], CircleBox[{36.26761902332484, 1.748528137423857}, 0.582842712474619], CircleBox[{37.09188309203677, 0.7285533905932734}, 0.7285533905932734], CircleBox[{35.269260908698385, 6.677561771445905}, 0.17586154347195457], CircleBox[{35.38477631085022, 6.931980515339459}, 0.10355339059327327], CircleBox[{35.031222920256944, 6.192703820042825}, 0.36427669529663653], CircleBox[{35.031222920256944, 5.4641504294495515}, 0.36427669529663653], CircleBox[{46.0416305603426, 10.656854249492381}], CircleBox[{46.26817148000358, 9.34619407771256}, 0.3300943102542602], CircleBox[{49.45584412271569, 2.9142135623730936}, 2.9142135623730936], CircleBox[{49.45584412271569, 8.742640687119282}, 2.914213562373094], CircleBox[{-2.97808335282225, 11.609301859571584}, 0.047552389920854504], CircleBox[{-0.682842712474627, 11.616854249492397}, 0.03999999999999927], CircleBox[{-0.7734590803390008, 11.605533461211422}, 0.051320788280845624], CircleBox[{-3.8672954016950674, 11.605533461211431}, 0.05132078828085041], CircleBox[{-7.276955262170016, 11.616854249492338}, 0.03999999999999982], CircleBox[{-7.1897292202598, 11.609301859571596}, 0.04755238992082816], CircleBox[{-6.940162121017468, 11.620471140060687}, 0.03638310943170058], CircleBox[{-5.637683554915644, 11.620471140060681}, 0.036383109431700464], CircleBox[{-2.997323886225193, 3.21225813125216}, 0.033116063208785115], CircleBox[{-2.9438002453997436, 3.2784902576697306}, 0.05203952789951941], CircleBox[{-2.9741487015378856, 2.944257001160445}, 0.06008687757470291], CircleBox[{-2.943800245399743, 2.255046208979179}, 0.03469301859967967], CircleBox[{-2.884924240491749, 2.294943180368811}, 0.03642766952966365], CircleBox[{-5.807315029561313, 0.4967409481317774}, 0.033116063208785136], CircleBox[{-6.594112549695426, 0.11656854249492372}, 0.11656854249492372], CircleBox[{-6.433280536288219, 0.2132351387102263}, 0.07107837957007544], CircleBox[{-5.887600490799486, 0.11894749234175891}, 0.11894749234175891], CircleBox[{-5.333473385783065, 0.6476030138606877}, 0.03809429493298162], CircleBox[{-5.193992761746396, 0.11976220119341487}, 0.03992073373113829], CircleBox[{-5.151650429449551, 0.04553458691207959}, 0.04553458691207959], CircleBox[{-4.71008039263959, 0.059473746170879464}, 0.059473746170879464], CircleBox[{-4.66564567195431, 0.16495548466262797}, 0.05498516155420932], CircleBox[{-2.06066017177982, 0.6880782022269805}, 0.04047518836629294], CircleBox[{-2.060660171779821, 0.780592918492793}, 0.052039527899519496], CircleBox[{-2.355040196319795, 0.05947374617087946}, 0.05947374617087946], CircleBox[{-2.2825774210484164, 0.13450216441721974}, 0.04483405480573992], CircleBox[{-1.6485281374238563, 0.23313708498984756}, 0.23313708498984756], CircleBox[{-2.442263907294602, 1.2592280825068929}, 0.03597794521448265], CircleBox[{-2.6630069912231535, 1.5243578633951576}, 0.08966810961147983], CircleBox[{-3.148873970360175, 0.09823191783280097}, 0.032743972610933654], CircleBox[{-3.0909902576697306, 0.04553458691207959}, 0.04553458691207959], CircleBox[{-3.5325602944796928, 0.11894749234175898}, 0.11894749234175898], CircleBox[{-2.536197134498245, 4.438571425768253}, 0.04483405480573998], CircleBox[{-2.3842349094973123, 4.672375463639509}, 0.04816881921277838], CircleBox[{-1.6485281374238556, 5.384356486670288}, 0.05550882975948748], CircleBox[{-0.8410857843999248, 5.828427124746191}, 0.11894749234175914], CircleBox[{-1.8942714622572259, 5.828427124746188}, 0.036201410712709235], CircleBox[{-13.628825512941326, 11.57908083621491}, 0.0777734132773804], CircleBox[{-13.992059238306194, 11.620471140060712}, 0.036383109431700505], CircleBox[{-14.651584221385939, 11.624804005095271}, 0.03205024439711334], CircleBox[{-15.533129420472847, 11.579080836215}, 0.07777341327737507], CircleBox[{-15.631727983645293, 11.62560424949241}, 0.03125000000000011], CircleBox[{-15.224077499274822, 11.622740517344344}, 0.03411373214803703], CircleBox[{-12.48528137423872, 11.571067811865515}, 0.08578643762691299], CircleBox[{-11.977231490509396, 11.605533461211573}, 0.051320788280845776], CircleBox[{-11.137996798766334, 11.01570092480717}, 0.03771490145207163], CircleBox[{-9.971466942352018, 11.624804005095273}, 0.03205024439711346], CircleBox[{-9.537039158842816, 11.548382043183686}, 0.03615740210289313], CircleBox[{-9.656854249492364, 11.571067811865486}, 0.08578643762690534], CircleBox[{-9.449747468305842, 11.594354249492362}, 0.06250000000000011], CircleBox[{-10.348463620838295, 11.561749469650728}, 0.09510477984165606], CircleBox[{-11.387102106102558, 11.620471140060674}, 0.03638310943170055], CircleBox[{-10.918058124456115, 11.622740517344345}, 0.034113732148036945], CircleBox[{-13.487957488013372, 3.0908325661532827}, 0.08830950189009379], CircleBox[{-13.394291116568834, 2.974926344922534}, 0.060712782549439404], CircleBox[{-13.469681122853462, 2.416664905382566}, 0.1421567591401509], CircleBox[{-11.656854249492374, 1.0469181606780271}, 0.046918160678027204], CircleBox[{-10.401054459529187, 0.37638496736923344}, 0.0353185807516474], CircleBox[{-10.550580079512681, 0.3497056274847714}, 0.11656854249492381], CircleBox[{-10.3033008588991, 0.18213834764831846}, 0.18213834764831846], CircleBox[{-11.1518079884555, 0.7285533905932733}, 0.04285608179960428], CircleBox[{-11.07604842331654, 0.6830188036811936}, 0.04553458691207954], CircleBox[{-11.622654250211466, 0.5006915259437498}, 0.046983050928710905], CircleBox[{-11.539696961966996, 0.23313708498984761}, 0.23313708498984761], CircleBox[{-13.006039480922146, 1.1522005899004304}, 0.04069408957649417], CircleBox[{-13.107948241483223, 0.9274626914139296}, 0.04156470411254717], CircleBox[{-14.374380042684393, 0.39556084064480285}, 0.03711797415861671], CircleBox[{-14.545836506681084, 0.514272981595252}, 0.17142432719841735], CircleBox[{-14.424621202458741, 0.18213834764831835}, 0.18213834764831835], CircleBox[{-13.635253741687805, 1.3222914548223335}, 0.034824120558375526], CircleBox[{-13.737734478532136, 1.3761564044539611}, 0.0809503767325859], CircleBox[{-13.909456159513786, 1.3660376073623879}, 0.09106917382415913], CircleBox[{-13.07943297350753, 0.44349162812029663}, 0.04161562293501588], CircleBox[{-13.188225099390852, 0.11656854249492372}, 0.11656854249492372], CircleBox[{-13.074533503706446, 0.30147036852135456}, 0.10049012284045153], CircleBox[{-14.012489168102778, 4.7113119258365}, 0.048570226039551495], CircleBox[{-14.01248916810278, 4.5898863607376255}, 0.07285533905932723], CircleBox[{-14.077318926316078, 5.271779590360316}, 0.032743972610933605], CircleBox[{-14.316165403944018, 5.010402265132688}, 0.10225310745168743], CircleBox[{-14.224025964497876, 5.828427124746188}, 0.051579001103948564], CircleBox[{-14.80458604162241, 6.318142997288054}, 0.035858614553206554], CircleBox[{-14.930066150253793, 5.443530993866724}, 0.054985161554209336], CircleBox[{-14.836753236814708, 5.488435542469328}, 0.04857022603955154], CircleBox[{-15.364558797165683, 6.011512229620989}, 0.03791816675382173], CircleBox[{-15.454951288348653, 5.9194962985703485}, 0.0910691738241592], CircleBox[{-15.454951288348656, 5.737357950922025}, 0.09106917382415909], CircleBox[{-14.653583443767616, 5.792449179531706}, 0.03597794521448262], CircleBox[{-14.65358344376761, 5.864405069960671}, 0.03597794521448264], CircleBox[{-19.525873344873105, 9.686047528719692}, 0.040220545321866974], CircleBox[{-19.34017973995782, 9.516401427523183}, 0.0436827106524709], CircleBox[{-19.203651518486286, 9.889227181113396}, 0.036074021803652954], CircleBox[{-19.929100294646048, 9.615617147045329}, 0.04165790004993647], CircleBox[{-20.04800765783691, 9.37987816258361}, 0.04646889973287574], CircleBox[{-20.325414481205254, 9.708326112068328}, 0.03976588035558856], CircleBox[{-19.437532013695602, 9.043551110325518}, 0.053332717125857895], CircleBox[{-19.753521139702027, 8.96978752023354}, 0.054838096515476296], CircleBox[{-19.39949493661165, 8.279252339470991}, 0.03661165235168174], CircleBox[{-19.4252230528978, 8.495780898109903}, 0.03607402180365227], CircleBox[{-18.839178095971505, 10.567322306939111}, 0.06409011426784557], CircleBox[{-18.87777546256546, 10.472591504941795}, 0.03820202401776298], CircleBox[{-18.88021599140452, 10.888240770999712}, 0.04521255755839023], CircleBox[{-18.60606993076519, 10.813063966192852}, 0.04963472254703483], CircleBox[{-19.081620466650246, 11.313750972806877}, 0.04901475381222327], CircleBox[{-18.94998555747038, 11.556854249492378}, 0.03333333333333346], CircleBox[{-19.12603585627265, 11.507294512252695}, 0.14955973723971894], CircleBox[{-18.899494936611664, 11.613961030678947}, 0.04289321881345252], CircleBox[{-18.226905952289535, 11.123383380371571}, 0.03556472460805301], CircleBox[{-18.38958528177001, 11.617967542853691}, 0.0388867066386871], CircleBox[{-17.62335256169626, 11.545743138381264}, 0.1111111111111111], CircleBox[{-17.70369699444032, 11.426159645262581}, 0.032956372032826205], CircleBox[{-17.89949493661166, 11.485281374238575}, 0.17157287525380996], CircleBox[{-20.950326143716506, 10.738665842548597}, 0.05401108276139833], CircleBox[{-20.932221359323748, 10.352116395368096}, 0.07674928553672247], CircleBox[{-20.86304518451775, 10.251524163602445}, 0.04533322857709305], CircleBox[{-21.268296919654976, 10.596305477052711}, 0.06238522190821546], CircleBox[{-21.35937165253668, 10.625544843783967}, 0.033268045345432956], CircleBox[{-20.766790338306766, 11.26040764008565}, 0.05663522991524518], CircleBox[{-20.727922061357855, 11.485281374238584}, 0.17157287525381174], CircleBox[{-20.932221359323655, 11.538341389153468}, 0.03950428677963582], CircleBox[{-20.899494936611664, 11.613961030678947}, 0.04289321881345252], CircleBox[{-22.172174754173525, 11.102860946018822}, 0.032587841380797525], CircleBox[{-22.23202677479169, 11.133956404733706}, 0.03485985631724505], CircleBox[{-21.813708498984763, 10.93173636167456}, 0.0483411925211883], CircleBox[{-21.89472512312685, 10.968212944284554}, 0.04050831207104853], CircleBox[{-23.118446353109114, 11.545743138381267}, 0.1111111111111112], CircleBox[{-23.02715314894125, 11.436143571373732}, 0.03153009687409361], CircleBox[{-22.6559089947456, 11.376120750905429}, 0.09357783286231673], CircleBox[{-22.860626659662778, 11.507294512252656}, 0.14955973723971822], CircleBox[{-21.683106561502882, 11.5886267851963}, 0.06822746429607382], CircleBox[{-21.89949493661166, 11.485281374238571}, 0.17157287525380993], CircleBox[{-20.383689706979634, 1.890440027724267}, 0.03502724321283064], CircleBox[{-20.350387152759993, 1.4656069939198642}, 0.05176315896493799], CircleBox[{-20.702896521852402, 1.5193562307708683}, 0.06809070893975326], CircleBox[{-20.824666822573885, 1.4571067811865464}, 0.0319348952243207], CircleBox[{-19.96004370905125, 2.368801983043401}, 0.062385221908210976], CircleBox[{-20.037566124069354, 2.3106601717798223}, 0.03451779686442446], CircleBox[{-19.782337649086276, 2.4770815280171297}, 0.1457106781186546], CircleBox[{-19.576271631908295, 2.7320752147247753}, 0.18213834764831824], CircleBox[{-21.3956022001296, 0.9394972509293082}, 0.08815896595133216], CircleBox[{-21.515699913550797, 0.9259308136331009}, 0.0327025622117393], CircleBox[{-21.980375165651417, 0.3238015069303437}, 0.3238015069303437], CircleBox[{-21.557675643235047, 0.6725108220860987}, 0.22417027402869957], CircleBox[{-19.85082352392608, 1.0688317719197997}, 0.10029524162542726], CircleBox[{-19.72403393721812, 1.1285617293012478}, 0.03985919856954501], CircleBox[{-19.232828269944992, 0.6476030138606876}, 0.6476030138606876], CircleBox[{-18.77223743012889, 6.885141718745229}, 0.03205024439711317], CircleBox[{-18.948856346924508, 6.805103069686798}, 0.032587841380797414], CircleBox[{-18.96772240090776, 7.089630999710042}, 0.06822746429607855], CircleBox[{-19.055398694769348, 7.301678268696202}, 0.03228872552692577], CircleBox[{-19.012765396442152, 7.19714555828442}, 0.048341192521188694], CircleBox[{-18.559305451133383, 6.614314002995717}, 0.05754523434844027], CircleBox[{-18.874208272299104, 6.4603969972786865}, 0.059301728046304306], CircleBox[{-18.840321570558356, 4.8570226039551585}, 0.1387720743987188], CircleBox[{-18.84032157055836, 5.099873734152916}, 0.10407905579903898], CircleBox[{-18.840321570558356, 5.7689533785753095}, 0.05947374617087943], CircleBox[{-18.84032157055836, 5.887900870917068}, 0.05947374617087946], CircleBox[{-18.101325390405776, 6.220545155244006}, 0.08121030314161211], CircleBox[{-17.986139996879555, 6.203641780406435}, 0.03520876300603611], CircleBox[{-17.939865024906673, 5.828427124746192}, 0.3428486543968347], CircleBox[{-30.086366858859698, 9.67402164423611}, 0.11663721207389871], CircleBox[{-30.19578861137301, 9.812059839071289}, 0.059509497110357835], CircleBox[{-29.375698138347254, 9.547378541243605}, 0.12408680636757133], CircleBox[{-29.2158217930039, 9.64797077300919}, 0.06480269278978026], CircleBox[{-29.894517562830277, 8.864618784998756}, 0.1642491449702141], CircleBox[{-30.019271724675963, 8.403958599364898}, 0.056447014625730964], CircleBox[{-29.960977401188764, 8.61065724985233}, 0.09826441934322742], CircleBox[{-29.960977401188764, 8.476094144389242}, 0.03629868611985719], CircleBox[{-30.682139345349572, 10.749616550435437}, 0.1296053855795603], CircleBox[{-30.817553061067777, 11.259195445936498}, 0.39765880355588934], CircleBox[{-31.33366766622815, 11.29727764736752}, 0.11985886737495342], CircleBox[{-31.263455967290582, 11.53185424949238}, 0.12499999999999994], CircleBox[{-28.40333949869469, 10.553300858899082}, 0.15765048437046775], CircleBox[{-27.475468957064276, 11.156854249492381}, 0.1666666666666665], CircleBox[{-28.14213562373094, 11.15685424949238}, 0.5000000000000004], CircleBox[{-27.142135623730937, 11.406854249492381}, 0.24999999999999994], CircleBox[{-28.955464766814696, 1.6008844192893377}, 0.15022110482233467], CircleBox[{-29.02921669496047, 1.801616008065299}, 0.06363052046431499], CircleBox[{-29.673506473629416, 1.748528137423857}, 0.582842712474619], CircleBox[{-28.84924240491749, 0.7285533905932734}, 0.7285533905932734], CircleBox[{-30.67186458825588, 6.677561771445905}, 0.17586154347195457], CircleBox[{-30.556349186104036, 6.931980515339459}, 0.10355339059327327], CircleBox[{-30.909902576697306, 6.192703820042825}, 0.36427669529663653], CircleBox[{-30.909902576697306, 5.4641504294495515}, 0.36427669529663653], CircleBox[{-36.38477631085023, 10.656854249492381}], CircleBox[{-36.15823539118924, 9.34619407771256}, 0.3300943102542602], CircleBox[{-41.21320343559641, 5.82842712474619}, 5.82842712474619]}, {RGBColor[1, 0, 0], CircleBox[{2.7747741371041155, 9.752550341960932}, 0.476075976882862], CircleBox[{3.7547409554732267, 9.583168080219417}, 0.5184215423182411], CircleBox[{3.0095853472883642, 8.5123928305091}, 0.7861153547458192], CircleBox[{1.7071067811865472, 11.656854249492381}, 1.7071067811865472], CircleBox[{5.828427124746191, 11.656854249492381}, 2.414213562373095], CircleBox[{4.121320343559641, 0.}, 4.121320343559641], CircleBox[{2.06066017177982, 5.828427124746189}, 2.06066017177982], TagBox[ConicHullRegionBox[{8.242640687119282, 0.}, {{0, 1}}], "InfiniteLine"], TagBox[ConicHullRegionBox[{0, 0}, {{0, -1}}], "InfiniteLine"]}, {RGBColor[0, 0, 1], CircleBox[{3.4142135623730954, 10.656854249492381}], CircleBox[{3.1876726427121107, 9.34619407771256}, 0.3300943102542602], CircleBox[{8.242640687119282, 5.82842712474619}, 5.82842712474619], CircleBox[{0., 2.9142135623730936}, 2.9142135623730936], CircleBox[{0., 8.742640687119282}, 2.914213562373094], TagBox[ConicHullRegionBox[{0., 11.656854249492376`}, {{-1, 0}}], "InfiniteLine"], TagBox[ConicHullRegionBox[{0, 0}, {{1, 0}}], "InfiniteLine"]}}, PlotRange->{{-8.242640687119282, 16.485281374238564`}, {-6.994112549695427, 18.650966799187803`}}, PlotRangeClipping->True]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"62", "+", RowBox[{"44", " ", SqrtBox["2"]}]}], "1", RowBox[{"2", "+", SqrtBox["2"]}], RowBox[{"5", "+", RowBox[{"4", " ", SqrtBox["2"]}]}]}, { RowBox[{"4", " ", RowBox[{"(", RowBox[{"37", "+", RowBox[{"26", " ", SqrtBox["2"]}]}], ")"}]}], RowBox[{"20", "-", RowBox[{"12", " ", SqrtBox["2"]}]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"17", "+", RowBox[{"8", " ", SqrtBox["2"]}]}]}, { RowBox[{"6", "+", RowBox[{"4", " ", SqrtBox["2"]}]}], RowBox[{"3", "-", RowBox[{"2", " ", SqrtBox["2"]}]}], SqrtBox["2"], "1"}, {"0", RowBox[{"6", "-", RowBox[{"4", " ", SqrtBox["2"]}]}], "0", "1"}, { RowBox[{"12", "+", RowBox[{"8", " ", SqrtBox["2"]}]}], RowBox[{"6", "-", RowBox[{"4", " ", SqrtBox["2"]}]}], "0", "3"}, { RowBox[{"12", "+", RowBox[{"8", " ", SqrtBox["2"]}]}], "0", "0", "1"}, {"0", "0", "0", RowBox[{"-", "1"}]}, { RowBox[{"108", "+", RowBox[{"76", " ", SqrtBox["2"]}]}], RowBox[{"12", "-", RowBox[{"7", " ", SqrtBox["2"]}]}], RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], RowBox[{"6", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}]}, { RowBox[{"102", "+", RowBox[{"72", " ", SqrtBox["2"]}]}], RowBox[{"9", "-", RowBox[{"5", " ", SqrtBox["2"]}]}], RowBox[{"3", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"10", "+", RowBox[{"6", " ", SqrtBox["2"]}]}]}, { RowBox[{"52", "+", RowBox[{"36", " ", SqrtBox["2"]}]}], RowBox[{"14", "-", RowBox[{"9", " ", SqrtBox["2"]}]}], RowBox[{"1", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"4", "+", SqrtBox["2"]}], ")"}]}]}, { RowBox[{"40", "+", RowBox[{"28", " ", SqrtBox["2"]}]}], RowBox[{"2", "-", SqrtBox["2"]}], "1", RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}]}, { RowBox[{"34", "+", RowBox[{"24", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["2"]}], RowBox[{"1", "+", SqrtBox["2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}]}, {"0", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"3", " ", SqrtBox["2"]}]}], "1", "0"}, { RowBox[{"8", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "8"}], "+", RowBox[{"6", " ", SqrtBox["2"]}]}], "1", RowBox[{"2", " ", SqrtBox["2"]}]}, { RowBox[{"8", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], "0", "1", "0"}, {"0", "0", RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", RowBox[{"1", "+", SqrtBox["2"]}], RowBox[{"1", "+", FractionBox["1", SqrtBox["2"]]}], "0", RowBox[{"2", "+", FractionBox["3", SqrtBox["2"]]}], RowBox[{ RowBox[{"-", "1"}], "-", SqrtBox["2"]}]}, {"0", "0", RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"4", "+", SqrtBox["2"]}], "0", RowBox[{"5", "+", RowBox[{"3", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}]}, {"0", "0", RowBox[{"9", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], RowBox[{"3", " ", RowBox[{"(", RowBox[{"4", "+", SqrtBox["2"]}], ")"}]}], "0", RowBox[{"16", "+", RowBox[{"9", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}]}, {"0", "0", RowBox[{"68", "+", RowBox[{"48", " ", SqrtBox["2"]}]}], RowBox[{"67", "+", RowBox[{"48", " ", SqrtBox["2"]}]}], "0", RowBox[{"118", "+", RowBox[{"84", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "12"}], " ", RowBox[{"(", RowBox[{"7", "+", RowBox[{"5", " ", SqrtBox["2"]}]}], ")"}]}]}, {"0", "0", "0", "1", "0", "1", RowBox[{"-", "1"}]}, {"0", "0", RowBox[{"4", " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{"3", " ", SqrtBox["2"]}]}], ")"}]}], RowBox[{"6", " ", RowBox[{"(", RowBox[{"4", "+", SqrtBox["2"]}], ")"}]}], "0", RowBox[{"33", "+", RowBox[{"18", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "12"}], " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}]}, {"0", "0", RowBox[{"84", "+", RowBox[{"60", " ", SqrtBox["2"]}]}], RowBox[{"90", "+", RowBox[{"54", " ", SqrtBox["2"]}]}], "0", RowBox[{"6", " ", RowBox[{"(", RowBox[{"25", "+", RowBox[{"17", " ", SqrtBox["2"]}]}], ")"}]}], RowBox[{ RowBox[{"-", "107"}], "-", RowBox[{"72", " ", SqrtBox["2"]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\<\"nonintegral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", RowBox[{"1", "+", SqrtBox["2"]}], RowBox[{"1", "+", FractionBox["1", SqrtBox["2"]]}], "0", RowBox[{"2", "+", FractionBox["3", SqrtBox["2"]]}], RowBox[{ RowBox[{"-", "1"}], "-", SqrtBox["2"]}]}, {"0", "0", RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"4", "+", SqrtBox["2"]}], "0", RowBox[{"5", "+", RowBox[{"3", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}]}, {"0", "0", "1", "0", "0", "0", "0"}, {"0", "0", RowBox[{"84", "+", RowBox[{"60", " ", SqrtBox["2"]}]}], RowBox[{"51", "+", RowBox[{"36", " ", SqrtBox["2"]}]}], "0", RowBox[{"102", "+", RowBox[{"72", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "68"}], "-", RowBox[{"48", " ", SqrtBox["2"]}]}]}, {"0", "0", RowBox[{"6", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"3", " ", RowBox[{"(", RowBox[{"3", "+", SqrtBox["2"]}], ")"}]}], "0", RowBox[{"13", "+", RowBox[{"9", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "9"}], "-", RowBox[{"6", " ", SqrtBox["2"]}]}]}, {"0", "0", RowBox[{"12", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"16", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], "0", RowBox[{"25", "+", RowBox[{"18", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{"3", " ", SqrtBox["2"]}]}], ")"}]}]}, {"0", "0", RowBox[{"96", "+", RowBox[{"66", " ", SqrtBox["2"]}]}], RowBox[{"58", "+", RowBox[{"39", " ", SqrtBox["2"]}]}], "0", RowBox[{"114", "+", RowBox[{"81", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "75"}], "-", RowBox[{"54", " ", SqrtBox["2"]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\<\"nonintegral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", RowBox[{"3", " ", RowBox[{"(", RowBox[{"3", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"9", "+", FractionBox["3", SqrtBox["2"]]}], "0", RowBox[{"10", "+", FractionBox["9", SqrtBox["2"]]}], RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"(", RowBox[{"3", "+", SqrtBox["2"]}], ")"}]}]}, {"0", "0", RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"4", "+", SqrtBox["2"]}], "0", RowBox[{"5", "+", RowBox[{"3", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}]}, {"0", "0", "1", "0", "0", "0", "0"}, {"0", "0", RowBox[{"4", " ", RowBox[{"(", RowBox[{"5", "+", RowBox[{"3", " ", SqrtBox["2"]}]}], ")"}]}], RowBox[{"19", "+", RowBox[{"10", " ", SqrtBox["2"]}]}], "0", RowBox[{"22", "+", RowBox[{"14", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{"5", "+", RowBox[{"3", " ", SqrtBox["2"]}]}], ")"}]}]}, {"0", "0", "0", "1", "0", "1", RowBox[{"-", "1"}]}, {"0", "0", RowBox[{"4", " ", RowBox[{"(", RowBox[{"4", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"8", "+", SqrtBox["2"]}], ")"}]}], "0", RowBox[{"17", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{"4", "+", SqrtBox["2"]}], ")"}]}]}, {"0", "0", RowBox[{"4", " ", RowBox[{"(", RowBox[{"9", "+", RowBox[{"4", " ", SqrtBox["2"]}]}], ")"}]}], RowBox[{"34", "+", RowBox[{"12", " ", SqrtBox["2"]}]}], "0", RowBox[{"38", "+", RowBox[{"20", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "35"}], "-", RowBox[{"16", " ", SqrtBox["2"]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\<\"nonintegral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", RowBox[{"1", "+", SqrtBox["2"]}], RowBox[{"1", "+", FractionBox["1", SqrtBox["2"]]}], "0", RowBox[{"2", "+", FractionBox["3", SqrtBox["2"]]}], RowBox[{ RowBox[{"-", "1"}], "-", SqrtBox["2"]}]}, {"0", "0", RowBox[{"4", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], RowBox[{"3", " ", RowBox[{"(", RowBox[{"4", "+", SqrtBox["2"]}], ")"}]}], "0", RowBox[{"21", "+", RowBox[{"9", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}]}, {"0", "0", RowBox[{"1", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], RowBox[{"4", "+", SqrtBox["2"]}], "0", RowBox[{"8", "+", RowBox[{"3", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}]}, {"0", "0", RowBox[{"4", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"11", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], "0", RowBox[{"22", "+", RowBox[{"14", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], ")"}]}]}, {"0", "0", "0", "1", "0", "1", RowBox[{"-", "1"}]}, {"0", "0", "0", "0", "0", "1", "0"}, {"0", "0", RowBox[{"4", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"10", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], "0", RowBox[{"22", "+", RowBox[{"14", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "11"}], "-", RowBox[{"8", " ", SqrtBox["2"]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\<\"nonintegral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", RowBox[{"1", "+", SqrtBox["2"]}], RowBox[{"1", "+", FractionBox["1", SqrtBox["2"]]}], "0", RowBox[{"2", "+", FractionBox["3", SqrtBox["2"]]}], RowBox[{ RowBox[{"-", "1"}], "-", SqrtBox["2"]}]}, {"0", "0", RowBox[{"6", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"4", "+", RowBox[{"3", " ", SqrtBox["2"]}]}], "0", RowBox[{"13", "+", RowBox[{"9", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "4"}], "-", RowBox[{"6", " ", SqrtBox["2"]}]}]}, {"0", "0", "1", "0", "0", "0", "0"}, {"0", "0", RowBox[{"12", "+", RowBox[{"8", " ", SqrtBox["2"]}]}], RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], "0", RowBox[{"2", " ", RowBox[{"(", RowBox[{"7", "+", RowBox[{"5", " ", SqrtBox["2"]}]}], ")"}]}], RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}]}, {"0", "0", RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"1", "+", SqrtBox["2"]}], "0", RowBox[{"5", "+", RowBox[{"3", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", SqrtBox["2"]}]}]}, {"0", "0", "0", "0", "0", "1", "0"}, {"0", "0", RowBox[{"8", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], RowBox[{"2", "+", SqrtBox["2"]}], "0", RowBox[{"10", "+", RowBox[{"7", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"2", " ", SqrtBox["2"]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\<\"nonintegral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", RowBox[{"9", "+", RowBox[{"7", " ", SqrtBox["2"]}]}], RowBox[{"5", "+", FractionBox["7", SqrtBox["2"]]}], "0", RowBox[{ RowBox[{"-", "2"}], "-", FractionBox["3", SqrtBox["2"]]}], RowBox[{"7", "+", RowBox[{"5", " ", SqrtBox["2"]}]}]}, {"0", "0", RowBox[{"24", "+", RowBox[{"14", " ", SqrtBox["2"]}]}], RowBox[{"7", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], "0", RowBox[{ RowBox[{"-", "5"}], "-", RowBox[{"3", " ", SqrtBox["2"]}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"8", "+", RowBox[{"5", " ", SqrtBox["2"]}]}], ")"}]}]}, {"0", "0", "1", "0", "0", "0", "0"}, {"0", "0", "0", "1", "0", "0", "0"}, {"0", "0", "4", "3", "0", RowBox[{"-", "1"}], "3"}, {"0", "0", "4", "2", "0", RowBox[{"-", "1"}], "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$]]], ",", "\<\"nonintegral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", RowBox[{"5", "+", RowBox[{"3", " ", SqrtBox["2"]}]}], RowBox[{"7", "+", FractionBox["7", SqrtBox["2"]]}], "0", RowBox[{"4", "+", FractionBox["5", SqrtBox["2"]]}], RowBox[{ RowBox[{"-", "5"}], "-", RowBox[{"3", " ", SqrtBox["2"]}]}]}, {"0", "0", RowBox[{"8", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], RowBox[{"10", "+", RowBox[{"7", " ", SqrtBox["2"]}]}], "0", RowBox[{"7", "+", RowBox[{"5", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "8"}], "-", RowBox[{"6", " ", SqrtBox["2"]}]}]}, {"0", "0", "1", "0", "0", "0", "0"}, {"0", "0", "0", "1", "0", "0", "0"}, {"0", "0", "0", "1", "0", "1", RowBox[{"-", "1"}]}, {"0", "0", "4", "6", "0", "3", RowBox[{"-", "4"}]}, {"0", "0", "4", "6", "0", "2", RowBox[{"-", "3"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\<\"nonintegral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", RowBox[{"5", "+", RowBox[{"3", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "1"}], "-", FractionBox["1", SqrtBox["2"]]}], "0", RowBox[{"4", "+", FractionBox["5", SqrtBox["2"]]}], RowBox[{"3", "+", SqrtBox["2"]}]}, {"0", "0", RowBox[{"20", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "4"}], "-", SqrtBox["2"]}], "0", RowBox[{"13", "+", RowBox[{"5", " ", SqrtBox["2"]}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"6", "+", SqrtBox["2"]}], ")"}]}]}, {"0", "0", "1", "0", "0", "0", "0"}, {"0", "0", "4", RowBox[{"-", "1"}], "0", "2", "4"}, {"0", "0", "4", RowBox[{"-", "1"}], "0", "3", "3"}, {"0", "0", "0", "0", "0", "1", "0"}, {"0", "0", "0", "0", "0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\<\"nonintegral\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", RowBox[{ RowBox[{"-", "1"}], "-", SqrtBox["2"]}], RowBox[{"2", "+", FractionBox["3", SqrtBox["2"]]}], "0", RowBox[{"3", "+", FractionBox["5", SqrtBox["2"]]}], RowBox[{ RowBox[{"-", "1"}], "-", SqrtBox["2"]}]}, {"0", "0", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"8", "+", RowBox[{"3", " ", SqrtBox["2"]}]}], "0", RowBox[{"9", "+", RowBox[{"5", " ", SqrtBox["2"]}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}]}, {"0", "0", RowBox[{"-", "1"}], "1", "0", "1", "0"}, {"0", "0", "0", "1", "0", "0", "0"}, {"0", "0", "0", "1", "0", "1", RowBox[{"-", "1"}]}, {"0", "0", "0", "0", "0", "1", "0"}, {"0", "0", "0", "0", "0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\<\"nonintegral\"\>"}], "}"}]}], "}"}]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "1"}], "1", "1", RowBox[{"5", "+", RowBox[{"4", " ", SqrtBox["2"]}]}], "1", "1", RowBox[{"5", "+", RowBox[{"4", " ", SqrtBox["2"]}]}], "0", "0", "2", "0", "0", RowBox[{"6", "+", RowBox[{"4", " ", SqrtBox["2"]}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"2", "+", SqrtBox["2"]}]}, {"1", RowBox[{"-", "1"}], "1", RowBox[{"11", "+", RowBox[{"8", " ", SqrtBox["2"]}]}], "1", "7", RowBox[{"17", "+", RowBox[{"8", " ", SqrtBox["2"]}]}], "0", "0", "0", "4", "4", RowBox[{"2", " ", RowBox[{"(", RowBox[{"6", "+", RowBox[{"5", " ", SqrtBox["2"]}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"4", "+", RowBox[{"8", " ", SqrtBox["2"]}]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}]}, {"1", "1", RowBox[{"-", "1"}], "1", "1", "1", "1", "2", "0", "0", "2", "0", "0", "0", "0", SqrtBox["2"]}, { RowBox[{"5", "+", RowBox[{"4", " ", SqrtBox["2"]}]}], RowBox[{"11", "+", RowBox[{"8", " ", SqrtBox["2"]}]}], "1", RowBox[{"-", "1"}], "1", "3", "1", RowBox[{"8", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], RowBox[{"8", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], "0", "0", RowBox[{"2", " ", SqrtBox["2"]}], "0"}, {"1", "1", "1", "1", RowBox[{"-", "1"}], "1", "3", "0", "2", "0", "0", "2", RowBox[{"2", " ", SqrtBox["2"]}], "0", RowBox[{"2", " ", SqrtBox["2"]}], "0"}, {"1", "7", "1", "3", "1", RowBox[{"-", "1"}], "1", "4", "4", "4", "0", "0", RowBox[{"2", " ", SqrtBox["2"]}], RowBox[{"2", " ", SqrtBox["2"]}], "0", "0"}, { RowBox[{"5", "+", RowBox[{"4", " ", SqrtBox["2"]}]}], RowBox[{"17", "+", RowBox[{"8", " ", SqrtBox["2"]}]}], "1", "1", "3", "1", RowBox[{"-", "1"}], RowBox[{"6", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"10", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"4", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}], "0", RowBox[{"2", " ", SqrtBox["2"]}], "0", "0"}, {"0", "0", "2", RowBox[{"8", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], "0", "4", RowBox[{"6", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"-", "1"}], "1", "1", "1", "3", RowBox[{"9", "+", RowBox[{"8", " ", SqrtBox["2"]}]}], RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], RowBox[{"3", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["2"]}]}]}, {"0", "0", "0", RowBox[{"8", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], "2", "4", RowBox[{"10", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], "1", RowBox[{"-", "1"}], "1", "3", "1", RowBox[{"9", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], RowBox[{"3", "+", RowBox[{"4", " ", SqrtBox["2"]}]}], RowBox[{"3", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}]}, {"2", "0", "0", RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], "0", "4", RowBox[{"2", " ", RowBox[{"(", RowBox[{"4", "+", SqrtBox["2"]}], ")"}]}], "1", "1", RowBox[{"-", "1"}], "3", "3", RowBox[{"3", "+", RowBox[{"4", " ", SqrtBox["2"]}]}], "1", RowBox[{"1", "+", RowBox[{"4", " ", SqrtBox["2"]}]}], RowBox[{"1", "+", RowBox[{"2", " ", SqrtBox["2"]}]}]}, {"0", "4", "2", RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], "0", "0", RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], "1", "3", "3", RowBox[{"-", "1"}], "1", RowBox[{"3", "+", RowBox[{"4", " ", SqrtBox["2"]}]}], RowBox[{"1", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], RowBox[{"1", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], "1"}, {"0", "4", "0", RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], "2", "0", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}], "3", "1", "3", "1", RowBox[{"-", "1"}], RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], RowBox[{"1", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], "1", RowBox[{"1", "+", SqrtBox["2"]}]}, { RowBox[{"6", "+", RowBox[{"4", " ", SqrtBox["2"]}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"6", "+", RowBox[{"5", " ", SqrtBox["2"]}]}], ")"}]}], "0", "0", RowBox[{"2", " ", SqrtBox["2"]}], RowBox[{"2", " ", SqrtBox["2"]}], "0", RowBox[{"9", "+", RowBox[{"8", " ", SqrtBox["2"]}]}], RowBox[{"9", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], RowBox[{"3", "+", RowBox[{"4", " ", SqrtBox["2"]}]}], RowBox[{"3", "+", RowBox[{"4", " ", SqrtBox["2"]}]}], RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], RowBox[{"-", "1"}], "1", "1", "1"}, { RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}], "0", "0", "0", RowBox[{"2", " ", SqrtBox["2"]}], RowBox[{"2", " ", SqrtBox["2"]}], RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], "1", RowBox[{"1", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], RowBox[{"1", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], "1", RowBox[{"-", "1"}], "3", "1"}, { RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"4", "+", RowBox[{"8", " ", SqrtBox["2"]}]}], "0", RowBox[{"2", " ", SqrtBox["2"]}], RowBox[{"2", " ", SqrtBox["2"]}], "0", "0", RowBox[{"3", "+", RowBox[{"6", " ", SqrtBox["2"]}]}], RowBox[{"3", "+", RowBox[{"4", " ", SqrtBox["2"]}]}], RowBox[{"1", "+", RowBox[{"4", " ", SqrtBox["2"]}]}], RowBox[{"1", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], "1", "1", "3", RowBox[{"-", "1"}], "1"}, { RowBox[{"2", "+", SqrtBox["2"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}], SqrtBox["2"], "0", "0", "0", "0", RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], RowBox[{"3", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}], RowBox[{"1", "+", RowBox[{"2", " ", SqrtBox["2"]}]}], "1", RowBox[{"1", "+", SqrtBox["2"]}], "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"]], "Output", CellChangeTimes->{3.7389461207005987`*^9, 3.7389463587511177`*^9, 3.7389475599707804`*^9, 3.7389477647263813`*^9, 3.738949272211826*^9, 3.7389494895383997`*^9, 3.7391259070284653`*^9}, CellLabel-> "Out[666]=",ExpressionUUID->"07210e7b-97e4-4f00-85be-6c15fd11d6e7"] }, Open ]] }, WindowSize->{1218, 661}, WindowMargins->{{-8, Automatic}, {Automatic, 0}}, 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, 51, "Input",ExpressionUUID->"748eabe5-c3d2-4801-b8b7-aa7a789097c7"], Cell[1225, 40, 695, 18, 49, "Input",ExpressionUUID->"0ab29ce4-3405-44f4-bf4a-16ef730ff686"], Cell[1923, 60, 9875, 235, 673, "Input",ExpressionUUID->"72e544ec-21b3-4511-8714-78e40bf96f8f"], Cell[11801, 297, 35696, 782, 1986, "Input",ExpressionUUID->"34558bf5-30de-4efd-a85d-1e42927d2f41"], Cell[47500, 1081, 13766, 317, 796, "Input",ExpressionUUID->"1669407f-19e4-41f4-83d2-404c097a4b8c"], Cell[61269, 1400, 1572, 43, 86, "Input",ExpressionUUID->"0ca661cb-0814-4baa-8045-ccb6be11fd34"], Cell[62844, 1445, 16048, 333, 808, "Input",ExpressionUUID->"8eb99bd7-ecdf-447b-9254-91418df0046a"], Cell[78895, 1780, 13582, 313, 809, "Input",ExpressionUUID->"df3b60f9-0301-4a00-901e-3f42ad1f6dcc"], Cell[92480, 2095, 3768, 87, 276, "Input",ExpressionUUID->"94e58c8f-e9bc-4bc5-9f72-1e7d65b723b4"], Cell[96251, 2184, 397, 13, 78, "Input",ExpressionUUID->"e0269727-13f8-41e1-9bed-e3d214f9ade5"], Cell[96651, 2199, 682, 20, 54, "Input",ExpressionUUID->"335fc47c-61a3-4d42-b8dc-1a6e429b3dbb"], Cell[97336, 2221, 4976, 131, 405, "Input",ExpressionUUID->"8f83b82e-c1db-40d9-ac4c-a723737f7704"], Cell[102315, 2354, 1032, 29, 28, "Input",ExpressionUUID->"d37cc6ff-e0b5-488e-9c86-c606b2039282"], Cell[103350, 2385, 1961, 44, 124, "Input",ExpressionUUID->"9a3eb7b4-a69e-4770-9009-32f6122d8145"], Cell[105314, 2431, 5280, 132, 162, "Input",ExpressionUUID->"affbea28-f93e-449d-873a-65b52e624ef9"], Cell[110597, 2565, 1188, 32, 48, "Input",ExpressionUUID->"15495297-a588-42f2-9830-ff3a5a9d76a4"], Cell[111788, 2599, 936, 26, 67, "Input",ExpressionUUID->"cd35cdcc-79cb-420e-8b24-2c510cf42e01"], Cell[112727, 2627, 6783, 173, 333, "Input",ExpressionUUID->"19320079-fb62-4d6b-b49d-a30846974421"], Cell[119513, 2802, 7715, 154, 295, "Input",ExpressionUUID->"b49300f9-4eb0-4e74-b00e-238ad2cc61d5"], Cell[127231, 2958, 3749, 87, 238, "Input",ExpressionUUID->"b43a5c15-ff8f-4841-a157-1d63bba9b7c4"], Cell[CellGroupData[{ Cell[131005, 3049, 4075, 68, 28, "Input",ExpressionUUID->"8c0d00eb-3a38-4d87-9e21-66e5a04e235e"], Cell[135083, 3119, 149731, 3501, 2248, "Output",ExpressionUUID->"07210e7b-97e4-4f00-85be-6c15fd11d6e7"] }, Open ]] } ] *)