(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 52674, 1241] NotebookOptionsPosition[ 51817, 1206] NotebookOutlinePosition[ 52153, 1221] CellTagsIndexPosition[ 52110, 1218] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"FusionAtlasPaths", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<~/Documents/math papers/fusionatlas/code/package/\>\"", ",", "\"\<~/Documents/Math/fusionatlas/code/package/\>\"", ",", "\"\<~/Documents/fusionatlas/code/package\>\""}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"$Path", "=", RowBox[{"$Path", "~", "Join", "~", "FusionAtlasPaths"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"<<", "FusionAtlas`"}]}], "Input", CellChangeTimes->{{3.434142677524584*^9, 3.434142679357585*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Loading FusionAtlas` version 0\\n\"\>", "\[InvisibleSpace]", "\<\"Read more at \ http://tqft.net/wiki/Atlas_of_subfactors\"\>"}], SequenceForm[ "Loading FusionAtlas` version 0\n", "Read more at http://tqft.net/wiki/Atlas_of_subfactors"], Editable->False]], "Print", CellChangeTimes->{3.4341427184640093`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Found precomputed data in \"\>", "\[InvisibleSpace]", "\<\"/Users/nsnyder/Documents/fusionatlas/code/data\"\ \>"}], SequenceForm[ "Found precomputed data in ", "/Users/nsnyder/Documents/fusionatlas/code/data"], Editable->False]], "Print", CellChangeTimes->{3.4341427185444736`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindGraphPartners", "[", RowBox[{"GradedBigraph", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.434142703439507*^9, 3.434142712324435*^9}, 3.434142764257015*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"GradedBigraph", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"GradedBigraph", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"GradedBigraph", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"GradedBigraph", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"GradedBigraph", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"GradedBigraph", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.434142721714122*^9, 3.43414276460465*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DisplayBigraph", "/@", RowBox[{"FindGraphPartners", "[", RowBox[{"GradedBigraph", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.434142777334549*^9, 3.434142799322526*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{{PointBox[{1, 1}], PointBox[{2, 1}], LineBox[{{1, 1}, {2, 1}}], {}}, {PointBox[{2, 1}], PointBox[{3, 1}], LineBox[{{2, 1}, {3, 1}}], {}}, {PointBox[{3, 1}], PointBox[{4, 1}], LineBox[{{3, 1}, {4, 1}}], {}}, {{PointBox[{4, 1}], PointBox[{5, 0}], LineBox[{{4, 1}, {5, 0}}], {}}, {PointBox[{4, 1}], PointBox[{5, 2}], LineBox[{{4, 1}, {5, 2}}], {}}}, {{{PointBox[{5, 0}], PointBox[{6, 0}], LineBox[{{5, 0}, {6, 0}}], {}}, {PointBox[{5, 0}], PointBox[{6, 2}], LineBox[{{5, 0}, {6, 2}}], {}}}, {{PointBox[{5, 2}], PointBox[{6, 0}], {}, {}}, {PointBox[{5, 2}], PointBox[{6, 2}], {}, {}}}}, {{PointBox[{6, 0}], PointBox[{7, 1}], LineBox[{{6, 0}, {7, 1}}], {}}, {PointBox[{6, 2}], PointBox[{7, 1}], LineBox[{{6, 2}, {7, 1}}], {}}}, {{PointBox[{7, 1}], PointBox[{8, 0}], LineBox[{{7, 1}, {8, 0}}], {}}, {PointBox[{7, 1}], PointBox[{8, 2}], LineBox[{{7, 1}, {8, 2}}], {}}}, {{{PointBox[{8, 0}], PointBox[{9, -1}], LineBox[{{8, 0}, {9, -1}}], {}}, {PointBox[{8, 0}], PointBox[{9, 1}], LineBox[{{8, 0}, {9, 1}}], {}}, {PointBox[{8, 0}], PointBox[{9, 3}], {}, {}}}, {{PointBox[{8, 2}], PointBox[{9, -1}], LineBox[{{8, 2}, {9, -1}}], {}}, {PointBox[{8, 2}], PointBox[{9, 1}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 3}], LineBox[{{8, 2}, {9, 3}}], {}}}}}], ",", GraphicsBox[{{PointBox[{1, 1}], PointBox[{2, 1}], LineBox[{{1, 1}, {2, 1}}], {}}, {PointBox[{2, 1}], PointBox[{3, 1}], LineBox[{{2, 1}, {3, 1}}], {}}, {PointBox[{3, 1}], PointBox[{4, 1}], LineBox[{{3, 1}, {4, 1}}], {}}, {{PointBox[{4, 1}], PointBox[{5, 0}], LineBox[{{4, 1}, {5, 0}}], {}}, {PointBox[{4, 1}], PointBox[{5, 2}], LineBox[{{4, 1}, {5, 2}}], {}}}, {{{PointBox[{5, 0}], PointBox[{6, 0}], LineBox[{{5, 0}, {6, 0}}], {}}, {PointBox[{5, 0}], PointBox[{6, 2}], LineBox[{{5, 0}, {6, 2}}], {}}}, {{PointBox[{5, 2}], PointBox[{6, 0}], {}, {}}, {PointBox[{5, 2}], PointBox[{6, 2}], {}, {}}}}, {{PointBox[{6, 0}], PointBox[{7, 1}], LineBox[{{6, 0}, {7, 1}}], {}}, {PointBox[{6, 2}], PointBox[{7, 1}], LineBox[{{6, 2}, {7, 1}}], {}}}, {{PointBox[{7, 1}], PointBox[{8, 0}], LineBox[{{7, 1}, {8, 0}}], {}}, {PointBox[{7, 1}], PointBox[{8, 2}], LineBox[{{7, 1}, {8, 2}}], {}}}, {{{PointBox[{8, 0}], PointBox[{9, -4}], LineBox[{{8, 0}, {9, -4}}], {}}, {PointBox[{8, 0}], PointBox[{9, -2}], LineBox[{{8, 0}, {9, -2}}], {}}, { PointBox[{8, 0}], PointBox[{9, 0}], LineBox[{{8, 0}, {9, 0}}], {}}, { PointBox[{8, 0}], PointBox[{9, 2}], {}, {}}, {PointBox[{8, 0}], PointBox[{9, 4}], {}, {}}, {PointBox[{8, 0}], PointBox[{9, 6}], {}, {}}}, {{PointBox[{8, 2}], PointBox[{9, -4}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, -2}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 0}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 2}], LineBox[{{8, 2}, {9, 2}}], {}}, {PointBox[{8, 2}], PointBox[{9, 4}], LineBox[{{8, 2}, {9, 4}}], {}}, {PointBox[{8, 2}], PointBox[{9, 6}], LineBox[{{8, 2}, {9, 6}}], {}}}}}], ",", GraphicsBox[{{PointBox[{1, 1}], PointBox[{2, 1}], LineBox[{{1, 1}, {2, 1}}], {}}, {PointBox[{2, 1}], PointBox[{3, 1}], LineBox[{{2, 1}, {3, 1}}], {}}, {PointBox[{3, 1}], PointBox[{4, 1}], LineBox[{{3, 1}, {4, 1}}], {}}, {{PointBox[{4, 1}], PointBox[{5, 0}], LineBox[{{4, 1}, {5, 0}}], {}}, {PointBox[{4, 1}], PointBox[{5, 2}], LineBox[{{4, 1}, {5, 2}}], {}}}, {{{PointBox[{5, 0}], PointBox[{6, 0}], LineBox[{{5, 0}, {6, 0}}], {}}, {PointBox[{5, 0}], PointBox[{6, 2}], LineBox[{{5, 0}, {6, 2}}], {}}}, {{PointBox[{5, 2}], PointBox[{6, 0}], {}, {}}, {PointBox[{5, 2}], PointBox[{6, 2}], {}, {}}}}, {{{PointBox[{6, 0}], PointBox[{7, -2}], LineBox[{{6, 0}, {7, -2}}], {}}, {PointBox[{6, 0}], PointBox[{7, 0}], LineBox[{{6, 0}, {7, 0}}], {}}, {PointBox[{6, 0}], PointBox[{7, 2}], {}, {}}, {PointBox[{6, 0}], PointBox[{7, 4}], {}, {}}}, {{PointBox[{6, 2}], PointBox[{7, -2}], {}, {}}, {PointBox[{6, 2}], PointBox[{7, 0}], {}, {}}, {PointBox[{6, 2}], PointBox[{7, 2}], LineBox[{{6, 2}, {7, 2}}], {}}, {PointBox[{6, 2}], PointBox[{7, 4}], LineBox[{{6, 2}, {7, 4}}], {}}}}, {{{PointBox[{7, -2}], PointBox[{8, 0}], LineBox[{{7, -2}, {8, 0}}], {}}, {PointBox[{7, -2}], PointBox[{8, 2}], {}, {}}}, {{PointBox[{7, 0}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 0}], PointBox[{8, 2}], LineBox[{{7, 0}, {8, 2}}], {}}}, {{PointBox[{7, 2}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 2}], PointBox[{8, 2}], LineBox[{{7, 2}, {8, 2}}], {}}}, {{PointBox[{7, 4}], PointBox[{8, 0}], LineBox[{{7, 4}, {8, 0}}], {}}, {PointBox[{7, 4}], PointBox[{8, 2}], {}, {}}}}, {{{PointBox[{8, 0}], PointBox[{9, -1}], LineBox[{{8, 0}, {9, -1}}], {}}, {PointBox[{8, 0}], PointBox[{9, 1}], LineBox[{{8, 0}, {9, 1}}], {}}, {PointBox[{8, 0}], PointBox[{9, 3}], {}, {}}}, {{PointBox[{8, 2}], PointBox[{9, -1}], LineBox[{{8, 2}, {9, -1}}], {}}, {PointBox[{8, 2}], PointBox[{9, 1}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 3}], LineBox[{{8, 2}, {9, 3}}], {}}}}}], ",", GraphicsBox[{{PointBox[{1, 1}], PointBox[{2, 1}], LineBox[{{1, 1}, {2, 1}}], {}}, {PointBox[{2, 1}], PointBox[{3, 1}], LineBox[{{2, 1}, {3, 1}}], {}}, {PointBox[{3, 1}], PointBox[{4, 1}], LineBox[{{3, 1}, {4, 1}}], {}}, {{PointBox[{4, 1}], PointBox[{5, 0}], LineBox[{{4, 1}, {5, 0}}], {}}, {PointBox[{4, 1}], PointBox[{5, 2}], LineBox[{{4, 1}, {5, 2}}], {}}}, {{{PointBox[{5, 0}], PointBox[{6, 0}], LineBox[{{5, 0}, {6, 0}}], {}}, {PointBox[{5, 0}], PointBox[{6, 2}], LineBox[{{5, 0}, {6, 2}}], {}}}, {{PointBox[{5, 2}], PointBox[{6, 0}], {}, {}}, {PointBox[{5, 2}], PointBox[{6, 2}], {}, {}}}}, {{{PointBox[{6, 0}], PointBox[{7, -2}], LineBox[{{6, 0}, {7, -2}}], {}}, {PointBox[{6, 0}], PointBox[{7, 0}], LineBox[{{6, 0}, {7, 0}}], {}}, {PointBox[{6, 0}], PointBox[{7, 2}], {}, {}}, {PointBox[{6, 0}], PointBox[{7, 4}], {}, {}}}, {{PointBox[{6, 2}], PointBox[{7, -2}], {}, {}}, {PointBox[{6, 2}], PointBox[{7, 0}], {}, {}}, {PointBox[{6, 2}], PointBox[{7, 2}], LineBox[{{6, 2}, {7, 2}}], {}}, {PointBox[{6, 2}], PointBox[{7, 4}], LineBox[{{6, 2}, {7, 4}}], {}}}}, {{{PointBox[{7, -2}], PointBox[{8, 0}], LineBox[{{7, -2}, {8, 0}}], {}}, {PointBox[{7, -2}], PointBox[{8, 2}], {}, {}}}, {{PointBox[{7, 0}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 0}], PointBox[{8, 2}], LineBox[{{7, 0}, {8, 2}}], {}}}, {{PointBox[{7, 2}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 2}], PointBox[{8, 2}], LineBox[{{7, 2}, {8, 2}}], {}}}, {{PointBox[{7, 4}], PointBox[{8, 0}], LineBox[{{7, 4}, {8, 0}}], {}}, {PointBox[{7, 4}], PointBox[{8, 2}], {}, {}}}}, {{{PointBox[{8, 0}], PointBox[{9, -4}], LineBox[{{8, 0}, {9, -4}}], {}}, {PointBox[{8, 0}], PointBox[{9, -2}], LineBox[{{8, 0}, {9, -2}}], {}}, {PointBox[{8, 0}], PointBox[{9, 0}], LineBox[{{8, 0}, {9, 0}}], {}}, {PointBox[{8, 0}], PointBox[{9, 2}], {}, {}}, {PointBox[{8, 0}], PointBox[{9, 4}], {}, {}}, {PointBox[{8, 0}], PointBox[{9, 6}], {}, {}}}, {{PointBox[{8, 2}], PointBox[{9, -4}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, -2}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 0}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 2}], LineBox[{{8, 2}, {9, 2}}], {}}, {PointBox[{8, 2}], PointBox[{9, 4}], LineBox[{{8, 2}, {9, 4}}], {}}, {PointBox[{8, 2}], PointBox[{9, 6}], LineBox[{{8, 2}, {9, 6}}], {}}}}}], ",", GraphicsBox[{{PointBox[{1, 1}], PointBox[{2, 1}], LineBox[{{1, 1}, {2, 1}}], {}}, {PointBox[{2, 1}], PointBox[{3, 1}], LineBox[{{2, 1}, {3, 1}}], {}}, {PointBox[{3, 1}], PointBox[{4, 1}], LineBox[{{3, 1}, {4, 1}}], {}}, {{PointBox[{4, 1}], PointBox[{5, 0}], LineBox[{{4, 1}, {5, 0}}], {}}, {PointBox[{4, 1}], PointBox[{5, 2}], LineBox[{{4, 1}, {5, 2}}], {}}}, {{{PointBox[{5, 0}], PointBox[{6, 0}], LineBox[{{5, 0}, {6, 0}}], {}}, {PointBox[{5, 0}], PointBox[{6, 2}], LineBox[{{5, 0}, {6, 2}}], {}}}, {{PointBox[{5, 2}], PointBox[{6, 0}], {}, {}}, {PointBox[{5, 2}], PointBox[{6, 2}], {}, {}}}}, {{{PointBox[{6, 0}], PointBox[{7, -2}], LineBox[{{6, 0}, {7, -2}}], {}}, {PointBox[{6, 0}], PointBox[{7, 0}], LineBox[{{6, 0}, {7, 0}}], {}}, {PointBox[{6, 0}], PointBox[{7, 2}], {}, {}}, {PointBox[{6, 0}], PointBox[{7, 4}], {}, {}}}, {{PointBox[{6, 2}], PointBox[{7, -2}], {}, {}}, {PointBox[{6, 2}], PointBox[{7, 0}], {}, {}}, {PointBox[{6, 2}], PointBox[{7, 2}], LineBox[{{6, 2}, {7, 2}}], {}}, {PointBox[{6, 2}], PointBox[{7, 4}], LineBox[{{6, 2}, {7, 4}}], {}}}}, {{{PointBox[{7, -2}], PointBox[{8, 0}], LineBox[{{7, -2}, {8, 0}}], {}}, {PointBox[{7, -2}], PointBox[{8, 2}], {}, {}}}, {{PointBox[{7, 0}], PointBox[{8, 0}], LineBox[{{7, 0}, {8, 0}}], {}}, {PointBox[{7, 0}], PointBox[{8, 2}], {}, {}}}, {{PointBox[{7, 2}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 2}], PointBox[{8, 2}], LineBox[{{7, 2}, {8, 2}}], {}}}, {{PointBox[{7, 4}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 4}], PointBox[{8, 2}], LineBox[{{7, 4}, {8, 2}}], {}}}}, {{{PointBox[{8, 0}], PointBox[{9, -1}], LineBox[{{8, 0}, {9, -1}}], {}}, {PointBox[{8, 0}], PointBox[{9, 1}], LineBox[{{8, 0}, {9, 1}}], {}}, {PointBox[{8, 0}], PointBox[{9, 3}], {}, {}}}, {{PointBox[{8, 2}], PointBox[{9, -1}], LineBox[{{8, 2}, {9, -1}}], {}}, {PointBox[{8, 2}], PointBox[{9, 1}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 3}], LineBox[{{8, 2}, {9, 3}}], {}}}}}], ",", GraphicsBox[{{PointBox[{1, 1}], PointBox[{2, 1}], LineBox[{{1, 1}, {2, 1}}], {}}, {PointBox[{2, 1}], PointBox[{3, 1}], LineBox[{{2, 1}, {3, 1}}], {}}, {PointBox[{3, 1}], PointBox[{4, 1}], LineBox[{{3, 1}, {4, 1}}], {}}, {{PointBox[{4, 1}], PointBox[{5, 0}], LineBox[{{4, 1}, {5, 0}}], {}}, {PointBox[{4, 1}], PointBox[{5, 2}], LineBox[{{4, 1}, {5, 2}}], {}}}, {{{PointBox[{5, 0}], PointBox[{6, 0}], LineBox[{{5, 0}, {6, 0}}], {}}, {PointBox[{5, 0}], PointBox[{6, 2}], LineBox[{{5, 0}, {6, 2}}], {}}}, {{PointBox[{5, 2}], PointBox[{6, 0}], {}, {}}, {PointBox[{5, 2}], PointBox[{6, 2}], {}, {}}}}, {{{PointBox[{6, 0}], PointBox[{7, -2}], LineBox[{{6, 0}, {7, -2}}], {}}, {PointBox[{6, 0}], PointBox[{7, 0}], LineBox[{{6, 0}, {7, 0}}], {}}, {PointBox[{6, 0}], PointBox[{7, 2}], {}, {}}, {PointBox[{6, 0}], PointBox[{7, 4}], {}, {}}}, {{PointBox[{6, 2}], PointBox[{7, -2}], {}, {}}, {PointBox[{6, 2}], PointBox[{7, 0}], {}, {}}, {PointBox[{6, 2}], PointBox[{7, 2}], LineBox[{{6, 2}, {7, 2}}], {}}, {PointBox[{6, 2}], PointBox[{7, 4}], LineBox[{{6, 2}, {7, 4}}], {}}}}, {{{PointBox[{7, -2}], PointBox[{8, 0}], LineBox[{{7, -2}, {8, 0}}], {}}, {PointBox[{7, -2}], PointBox[{8, 2}], {}, {}}}, {{PointBox[{7, 0}], PointBox[{8, 0}], LineBox[{{7, 0}, {8, 0}}], {}}, {PointBox[{7, 0}], PointBox[{8, 2}], {}, {}}}, {{PointBox[{7, 2}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 2}], PointBox[{8, 2}], LineBox[{{7, 2}, {8, 2}}], {}}}, {{PointBox[{7, 4}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 4}], PointBox[{8, 2}], LineBox[{{7, 4}, {8, 2}}], {}}}}, {{{PointBox[{8, 0}], PointBox[{9, -4}], LineBox[{{8, 0}, {9, -4}}], {}}, {PointBox[{8, 0}], PointBox[{9, -2}], LineBox[{{8, 0}, {9, -2}}], {}}, { PointBox[{8, 0}], PointBox[{9, 0}], LineBox[{{8, 0}, {9, 0}}], {}}, { PointBox[{8, 0}], PointBox[{9, 2}], {}, {}}, {PointBox[{8, 0}], PointBox[{9, 4}], {}, {}}, {PointBox[{8, 0}], PointBox[{9, 6}], {}, {}}}, {{PointBox[{8, 2}], PointBox[{9, -4}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, -2}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 0}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 2}], LineBox[{{8, 2}, {9, 2}}], {}}, {PointBox[{8, 2}], PointBox[{9, 4}], LineBox[{{8, 2}, {9, 4}}], {}}, {PointBox[{8, 2}], PointBox[{9, 6}], LineBox[{{8, 2}, {9, 6}}], {}}}}}]}], "}"}]], "Output", CellChangeTimes->{{3.434142793481927*^9, 3.43414280037709*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindGraphPartners", "[", RowBox[{"GradedBigraph", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.434142771156546*^9, 3.434142774915803*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"GradedBigraph", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"GradedBigraph", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"GradedBigraph", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"GradedBigraph", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"GradedBigraph", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"GradedBigraph", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"GradedBigraph", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.434142775349028*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DisplayBigraph", "/@", RowBox[{"FindGraphPartners", "[", RowBox[{"GradedBigraph", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4341428122169447`*^9, 3.434142829558943*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{{PointBox[{1, 1}], PointBox[{2, 1}], LineBox[{{1, 1}, {2, 1}}], {}}, {PointBox[{2, 1}], PointBox[{3, 1}], LineBox[{{2, 1}, {3, 1}}], {}}, {PointBox[{3, 1}], PointBox[{4, 1}], LineBox[{{3, 1}, {4, 1}}], {}}, {{PointBox[{4, 1}], PointBox[{5, 0}], LineBox[{{4, 1}, {5, 0}}], {}}, {PointBox[{4, 1}], PointBox[{5, 2}], LineBox[{{4, 1}, {5, 2}}], {}}}, {{{PointBox[{5, 0}], PointBox[{6, 0}], LineBox[{{5, 0}, {6, 0}}], {}}, {PointBox[{5, 0}], PointBox[{6, 2}], {}, {}}}, {{PointBox[{5, 2}], PointBox[{6, 0}], {}, {}}, {PointBox[{5, 2}], PointBox[{6, 2}], LineBox[{{5, 2}, {6, 2}}], {}}}}, {{{PointBox[{6, 0}], PointBox[{7, -1}], LineBox[{{6, 0}, {7, -1}}], {}}, {PointBox[{6, 0}], PointBox[{7, 1}], LineBox[{{6, 0}, {7, 1}}], {}}, {PointBox[{6, 0}], PointBox[{7, 3}], {}, {}}}, {{PointBox[{6, 2}], PointBox[{7, -1}], LineBox[{{6, 2}, {7, -1}}], {}}, {PointBox[{6, 2}], PointBox[{7, 1}], {}, {}}, {PointBox[{6, 2}], PointBox[{7, 3}], LineBox[{{6, 2}, {7, 3}}], {}}}}, {{{PointBox[{7, -1}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, -1}], PointBox[{8, 2}], {}, {}}}, {{PointBox[{7, 1}], PointBox[{8, 0}], LineBox[{{7, 1}, {8, 0}}], {}}, {PointBox[{7, 1}], PointBox[{8, 2}], LineBox[{{7, 1}, {8, 2}}], {}}}, {{PointBox[{7, 3}], PointBox[{8, 0}], LineBox[{{7, 3}, {8, 0}}], {}}, {PointBox[{7, 3}], PointBox[{8, 2}], LineBox[{{7, 3}, {8, 2}}], {}}}}, {{{PointBox[{8, 0}], PointBox[{9, 0}], LineBox[{{8, 0}, {9, 0}}], {}}, {PointBox[{8, 0}], PointBox[{9, 2}], {}, {}}}, {{PointBox[{8, 2}], PointBox[{9, 0}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 2}], LineBox[{{8, 2}, {9, 2}}], {}}}}}], ",", GraphicsBox[{{PointBox[{1, 1}], PointBox[{2, 1}], LineBox[{{1, 1}, {2, 1}}], {}}, {PointBox[{2, 1}], PointBox[{3, 1}], LineBox[{{2, 1}, {3, 1}}], {}}, {PointBox[{3, 1}], PointBox[{4, 1}], LineBox[{{3, 1}, {4, 1}}], {}}, {{PointBox[{4, 1}], PointBox[{5, 0}], LineBox[{{4, 1}, {5, 0}}], {}}, {PointBox[{4, 1}], PointBox[{5, 2}], LineBox[{{4, 1}, {5, 2}}], {}}}, {{{PointBox[{5, 0}], PointBox[{6, 0}], LineBox[{{5, 0}, {6, 0}}], {}}, {PointBox[{5, 0}], PointBox[{6, 2}], {}, {}}}, {{PointBox[{5, 2}], PointBox[{6, 0}], {}, {}}, {PointBox[{5, 2}], PointBox[{6, 2}], LineBox[{{5, 2}, {6, 2}}], {}}}}, {{{PointBox[{6, 0}], PointBox[{7, -1}], LineBox[{{6, 0}, {7, -1}}], {}}, {PointBox[{6, 0}], PointBox[{7, 1}], LineBox[{{6, 0}, {7, 1}}], {}}, {PointBox[{6, 0}], PointBox[{7, 3}], {}, {}}}, {{PointBox[{6, 2}], PointBox[{7, -1}], LineBox[{{6, 2}, {7, -1}}], {}}, {PointBox[{6, 2}], PointBox[{7, 1}], {}, {}}, {PointBox[{6, 2}], PointBox[{7, 3}], LineBox[{{6, 2}, {7, 3}}], {}}}}, {{{PointBox[{7, -1}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, -1}], PointBox[{8, 2}], {}, {}}}, {{PointBox[{7, 1}], PointBox[{8, 0}], LineBox[{{7, 1}, {8, 0}}], InsetBox["2", NCache[{Rational[15, 2], 0.6}, {7.5, 0.6}]]}, { PointBox[{7, 1}], PointBox[{8, 2}], {}, {}}}, {{PointBox[{7, 3}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 3}], PointBox[{8, 2}], LineBox[{{7, 3}, {8, 2}}], InsetBox["2", NCache[{Rational[15, 2], 2.6}, {7.5, 2.6}]]}}}, {{{ PointBox[{8, 0}], PointBox[{9, 0}], LineBox[{{8, 0}, {9, 0}}], {}}, { PointBox[{8, 0}], PointBox[{9, 2}], {}, {}}}, {{PointBox[{8, 2}], PointBox[{9, 0}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 2}], LineBox[{{8, 2}, {9, 2}}], {}}}}}], ",", GraphicsBox[{{PointBox[{1, 1}], PointBox[{2, 1}], LineBox[{{1, 1}, {2, 1}}], {}}, {PointBox[{2, 1}], PointBox[{3, 1}], LineBox[{{2, 1}, {3, 1}}], {}}, {PointBox[{3, 1}], PointBox[{4, 1}], LineBox[{{3, 1}, {4, 1}}], {}}, {{PointBox[{4, 1}], PointBox[{5, 0}], LineBox[{{4, 1}, {5, 0}}], {}}, {PointBox[{4, 1}], PointBox[{5, 2}], LineBox[{{4, 1}, {5, 2}}], {}}}, {{{PointBox[{5, 0}], PointBox[{6, 0}], LineBox[{{5, 0}, {6, 0}}], {}}, {PointBox[{5, 0}], PointBox[{6, 2}], {}, {}}}, {{PointBox[{5, 2}], PointBox[{6, 0}], {}, {}}, {PointBox[{5, 2}], PointBox[{6, 2}], LineBox[{{5, 2}, {6, 2}}], {}}}}, {{{PointBox[{6, 0}], PointBox[{7, -1}], LineBox[{{6, 0}, {7, -1}}], {}}, {PointBox[{6, 0}], PointBox[{7, 1}], LineBox[{{6, 0}, {7, 1}}], {}}, {PointBox[{6, 0}], PointBox[{7, 3}], {}, {}}}, {{PointBox[{6, 2}], PointBox[{7, -1}], LineBox[{{6, 2}, {7, -1}}], {}}, {PointBox[{6, 2}], PointBox[{7, 1}], {}, {}}, {PointBox[{6, 2}], PointBox[{7, 3}], LineBox[{{6, 2}, {7, 3}}], {}}}}, {{{PointBox[{7, -1}], PointBox[{8, 0}], LineBox[{{7, -1}, {8, 0}}], {}}, {PointBox[{7, -1}], PointBox[{8, 2}], {}, {}}}, {{PointBox[{7, 1}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 1}], PointBox[{8, 2}], LineBox[{{7, 1}, {8, 2}}], {}}}, {{PointBox[{7, 3}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 3}], PointBox[{8, 2}], LineBox[{{7, 3}, {8, 2}}], {}}}}, {{{PointBox[{8, 0}], PointBox[{9, -2}], LineBox[{{8, 0}, {9, -2}}], {}}, {PointBox[{8, 0}], PointBox[{9, 0}], LineBox[{{8, 0}, {9, 0}}], {}}, {PointBox[{8, 0}], PointBox[{9, 2}], LineBox[{{8, 0}, {9, 2}}], {}}, {PointBox[{8, 0}], PointBox[{9, 4}], {}, {}}}, {{PointBox[{8, 2}], PointBox[{9, -2}], LineBox[{{8, 2}, {9, -2}}], {}}, {PointBox[{8, 2}], PointBox[{9, 0}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 2}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 4}], LineBox[{{8, 2}, {9, 4}}], {}}}}}], ",", GraphicsBox[{{PointBox[{1, 1}], PointBox[{2, 1}], LineBox[{{1, 1}, {2, 1}}], {}}, {PointBox[{2, 1}], PointBox[{3, 1}], LineBox[{{2, 1}, {3, 1}}], {}}, {PointBox[{3, 1}], PointBox[{4, 1}], LineBox[{{3, 1}, {4, 1}}], {}}, {{PointBox[{4, 1}], PointBox[{5, 0}], LineBox[{{4, 1}, {5, 0}}], {}}, {PointBox[{4, 1}], PointBox[{5, 2}], LineBox[{{4, 1}, {5, 2}}], {}}}, {{{PointBox[{5, 0}], PointBox[{6, 0}], LineBox[{{5, 0}, {6, 0}}], {}}, {PointBox[{5, 0}], PointBox[{6, 2}], {}, {}}}, {{PointBox[{5, 2}], PointBox[{6, 0}], {}, {}}, {PointBox[{5, 2}], PointBox[{6, 2}], LineBox[{{5, 2}, {6, 2}}], {}}}}, {{{PointBox[{6, 0}], PointBox[{7, -1}], LineBox[{{6, 0}, {7, -1}}], {}}, {PointBox[{6, 0}], PointBox[{7, 1}], LineBox[{{6, 0}, {7, 1}}], {}}, {PointBox[{6, 0}], PointBox[{7, 3}], {}, {}}}, {{PointBox[{6, 2}], PointBox[{7, -1}], LineBox[{{6, 2}, {7, -1}}], {}}, {PointBox[{6, 2}], PointBox[{7, 1}], {}, {}}, {PointBox[{6, 2}], PointBox[{7, 3}], LineBox[{{6, 2}, {7, 3}}], {}}}}, {{{PointBox[{7, -1}], PointBox[{8, 0}], LineBox[{{7, -1}, {8, 0}}], {}}, {PointBox[{7, -1}], PointBox[{8, 2}], {}, {}}}, {{PointBox[{7, 1}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 1}], PointBox[{8, 2}], LineBox[{{7, 1}, {8, 2}}], {}}}, {{PointBox[{7, 3}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 3}], PointBox[{8, 2}], LineBox[{{7, 3}, {8, 2}}], {}}}}, {{{PointBox[{8, 0}], PointBox[{9, -2}], LineBox[{{8, 0}, {9, -2}}], InsetBox["2", NCache[{Rational[17, 2], -0.8999999999999999}, { 8.5, -0.8999999999999999}]]}, {PointBox[{8, 0}], PointBox[{9, 0}], {}, {}}, {PointBox[{8, 0}], PointBox[{9, 2}], {}, {}}, {PointBox[{8, 0}], PointBox[{9, 4}], {}, {}}}, {{PointBox[{8, 2}], PointBox[{9, -2}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 0}], LineBox[{{8, 2}, {9, 0}}], {}}, {PointBox[{8, 2}], PointBox[{9, 2}], LineBox[{{8, 2}, {9, 2}}], {}}, {PointBox[{8, 2}], PointBox[{9, 4}], LineBox[{{8, 2}, {9, 4}}], {}}}}}], ",", GraphicsBox[{{PointBox[{1, 1}], PointBox[{2, 1}], LineBox[{{1, 1}, {2, 1}}], {}}, {PointBox[{2, 1}], PointBox[{3, 1}], LineBox[{{2, 1}, {3, 1}}], {}}, {PointBox[{3, 1}], PointBox[{4, 1}], LineBox[{{3, 1}, {4, 1}}], {}}, {{PointBox[{4, 1}], PointBox[{5, 0}], LineBox[{{4, 1}, {5, 0}}], {}}, {PointBox[{4, 1}], PointBox[{5, 2}], LineBox[{{4, 1}, {5, 2}}], {}}}, {{{PointBox[{5, 0}], PointBox[{6, 0}], LineBox[{{5, 0}, {6, 0}}], {}}, {PointBox[{5, 0}], PointBox[{6, 2}], {}, {}}}, {{PointBox[{5, 2}], PointBox[{6, 0}], {}, {}}, {PointBox[{5, 2}], PointBox[{6, 2}], LineBox[{{5, 2}, {6, 2}}], {}}}}, {{{PointBox[{6, 0}], PointBox[{7, -1}], LineBox[{{6, 0}, {7, -1}}], {}}, {PointBox[{6, 0}], PointBox[{7, 1}], LineBox[{{6, 0}, {7, 1}}], {}}, {PointBox[{6, 0}], PointBox[{7, 3}], {}, {}}}, {{PointBox[{6, 2}], PointBox[{7, -1}], LineBox[{{6, 2}, {7, -1}}], {}}, {PointBox[{6, 2}], PointBox[{7, 1}], {}, {}}, {PointBox[{6, 2}], PointBox[{7, 3}], LineBox[{{6, 2}, {7, 3}}], {}}}}, {{{PointBox[{7, -1}], PointBox[{8, 0}], LineBox[{{7, -1}, {8, 0}}], {}}, {PointBox[{7, -1}], PointBox[{8, 2}], {}, {}}}, {{PointBox[{7, 1}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 1}], PointBox[{8, 2}], LineBox[{{7, 1}, {8, 2}}], {}}}, {{PointBox[{7, 3}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 3}], PointBox[{8, 2}], LineBox[{{7, 3}, {8, 2}}], {}}}}, {{{PointBox[{8, 0}], PointBox[{9, -5}], LineBox[{{8, 0}, {9, -5}}], {}}, {PointBox[{8, 0}], PointBox[{9, -3}], LineBox[{{8, 0}, {9, -3}}], {}}, { PointBox[{8, 0}], PointBox[{9, -1}], LineBox[{{8, 0}, {9, -1}}], {}}, {PointBox[{8, 0}], PointBox[{9, 1}], LineBox[{{8, 0}, {9, 1}}], {}}, {PointBox[{8, 0}], PointBox[{9, 3}], {}, {}}, {PointBox[{8, 0}], PointBox[{9, 5}], {}, {}}, {PointBox[{8, 0}], PointBox[{9, 7}], {}, {}}}, {{PointBox[{8, 2}], PointBox[{9, -5}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, -3}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, -1}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 1}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 3}], LineBox[{{8, 2}, {9, 3}}], {}}, {PointBox[{8, 2}], PointBox[{9, 5}], LineBox[{{8, 2}, {9, 5}}], {}}, {PointBox[{8, 2}], PointBox[{9, 7}], LineBox[{{8, 2}, {9, 7}}], {}}}}}], ",", GraphicsBox[{{PointBox[{1, 1}], PointBox[{2, 1}], LineBox[{{1, 1}, {2, 1}}], {}}, {PointBox[{2, 1}], PointBox[{3, 1}], LineBox[{{2, 1}, {3, 1}}], {}}, {PointBox[{3, 1}], PointBox[{4, 1}], LineBox[{{3, 1}, {4, 1}}], {}}, {{PointBox[{4, 1}], PointBox[{5, 0}], LineBox[{{4, 1}, {5, 0}}], {}}, {PointBox[{4, 1}], PointBox[{5, 2}], LineBox[{{4, 1}, {5, 2}}], {}}}, {{{PointBox[{5, 0}], PointBox[{6, 0}], LineBox[{{5, 0}, {6, 0}}], {}}, {PointBox[{5, 0}], PointBox[{6, 2}], {}, {}}}, {{PointBox[{5, 2}], PointBox[{6, 0}], {}, {}}, {PointBox[{5, 2}], PointBox[{6, 2}], LineBox[{{5, 2}, {6, 2}}], {}}}}, {{{PointBox[{6, 0}], PointBox[{7, -1}], LineBox[{{6, 0}, {7, -1}}], {}}, {PointBox[{6, 0}], PointBox[{7, 1}], LineBox[{{6, 0}, {7, 1}}], {}}, {PointBox[{6, 0}], PointBox[{7, 3}], {}, {}}}, {{PointBox[{6, 2}], PointBox[{7, -1}], LineBox[{{6, 2}, {7, -1}}], {}}, {PointBox[{6, 2}], PointBox[{7, 1}], {}, {}}, {PointBox[{6, 2}], PointBox[{7, 3}], LineBox[{{6, 2}, {7, 3}}], {}}}}, {{{PointBox[{7, -1}], PointBox[{8, 0}], LineBox[{{7, -1}, {8, 0}}], {}}, {PointBox[{7, -1}], PointBox[{8, 2}], LineBox[{{7, -1}, {8, 2}}], {}}}, {{ PointBox[{7, 1}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 1}], PointBox[{8, 2}], {}, {}}}, {{PointBox[{7, 3}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 3}], PointBox[{8, 2}], {}, {}}}}, {{{PointBox[{8, 0}], PointBox[{9, -1}], LineBox[{{8, 0}, {9, -1}}], {}}, {PointBox[{8, 0}], PointBox[{9, 1}], LineBox[{{8, 0}, {9, 1}}], {}}, {PointBox[{8, 0}], PointBox[{9, 3}], {}, {}}}, {{PointBox[{8, 2}], PointBox[{9, -1}], LineBox[{{8, 2}, {9, -1}}], {}}, {PointBox[{8, 2}], PointBox[{9, 1}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 3}], LineBox[{{8, 2}, {9, 3}}], {}}}}}], ",", GraphicsBox[{{PointBox[{1, 1}], PointBox[{2, 1}], LineBox[{{1, 1}, {2, 1}}], {}}, {PointBox[{2, 1}], PointBox[{3, 1}], LineBox[{{2, 1}, {3, 1}}], {}}, {PointBox[{3, 1}], PointBox[{4, 1}], LineBox[{{3, 1}, {4, 1}}], {}}, {{PointBox[{4, 1}], PointBox[{5, 0}], LineBox[{{4, 1}, {5, 0}}], {}}, {PointBox[{4, 1}], PointBox[{5, 2}], LineBox[{{4, 1}, {5, 2}}], {}}}, {{{PointBox[{5, 0}], PointBox[{6, 0}], LineBox[{{5, 0}, {6, 0}}], {}}, {PointBox[{5, 0}], PointBox[{6, 2}], {}, {}}}, {{PointBox[{5, 2}], PointBox[{6, 0}], {}, {}}, {PointBox[{5, 2}], PointBox[{6, 2}], LineBox[{{5, 2}, {6, 2}}], {}}}}, {{{PointBox[{6, 0}], PointBox[{7, -1}], LineBox[{{6, 0}, {7, -1}}], {}}, {PointBox[{6, 0}], PointBox[{7, 1}], LineBox[{{6, 0}, {7, 1}}], {}}, {PointBox[{6, 0}], PointBox[{7, 3}], {}, {}}}, {{PointBox[{6, 2}], PointBox[{7, -1}], LineBox[{{6, 2}, {7, -1}}], {}}, {PointBox[{6, 2}], PointBox[{7, 1}], {}, {}}, {PointBox[{6, 2}], PointBox[{7, 3}], LineBox[{{6, 2}, {7, 3}}], {}}}}, {{{PointBox[{7, -1}], PointBox[{8, 0}], LineBox[{{7, -1}, {8, 0}}], {}}, {PointBox[{7, -1}], PointBox[{8, 2}], LineBox[{{7, -1}, {8, 2}}], {}}}, {{ PointBox[{7, 1}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 1}], PointBox[{8, 2}], {}, {}}}, {{PointBox[{7, 3}], PointBox[{8, 0}], {}, {}}, {PointBox[{7, 3}], PointBox[{8, 2}], {}, {}}}}, {{{PointBox[{8, 0}], PointBox[{9, -4}], LineBox[{{8, 0}, {9, -4}}], {}}, {PointBox[{8, 0}], PointBox[{9, -2}], LineBox[{{8, 0}, {9, -2}}], {}}, {PointBox[{8, 0}], PointBox[{9, 0}], LineBox[{{8, 0}, {9, 0}}], {}}, {PointBox[{8, 0}], PointBox[{9, 2}], {}, {}}, {PointBox[{8, 0}], PointBox[{9, 4}], {}, {}}, {PointBox[{8, 0}], PointBox[{9, 6}], {}, {}}}, {{PointBox[{8, 2}], PointBox[{9, -4}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, -2}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 0}], {}, {}}, {PointBox[{8, 2}], PointBox[{9, 2}], LineBox[{{8, 2}, {9, 2}}], {}}, {PointBox[{8, 2}], PointBox[{9, 4}], LineBox[{{8, 2}, {9, 4}}], {}}, {PointBox[{8, 2}], PointBox[{9, 6}], LineBox[{{8, 2}, {9, 6}}], {}}}}}]}], "}"}]], "Output", CellChangeTimes->{{3.4341428180430803`*^9, 3.4341428309702883`*^9}}] }, Open ]] }, WindowSize->{640, 652}, WindowMargins->{{18, Automatic}, {Automatic, 0}}, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (March 13, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 629, 14, 103, "Input"], Cell[CellGroupData[{ Cell[1244, 41, 372, 9, 36, "Print"], Cell[1619, 52, 345, 9, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2013, 67, 1273, 41, 58, "Input"], Cell[3289, 110, 7961, 255, 253, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11287, 370, 1322, 41, 73, "Input"], Cell[12612, 413, 12892, 189, 713, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25541, 607, 1088, 35, 43, "Input"], Cell[26632, 644, 9146, 297, 268, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35815, 946, 1160, 36, 58, "Input"], Cell[36978, 984, 14823, 219, 752, "Output"] }, Open ]] } ] *) (* End of internal cache information *)