(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 81911, 1973] NotebookOptionsPosition[ 79344, 1905] NotebookOutlinePosition[ 79798, 1923] CellTagsIndexPosition[ 79755, 1920] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Resource Examples", "DataResourceExamplesChapter", CellFrameMargins->{{Inherited, Inherited}, { Inherited, 50}},ExpressionUUID->"04ea20a7-f817-4532-a7b2-bf49fefb6f8c"], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellFrame->False, ShowCellBracket->True, CellMargins->0, CellFrameMargins->{{66, 8}, {8, 8}}, CellFrameColor->GrayLevel[1], CellFrameLabelMargins->6, CellSize->{Automatic, Automatic}, CellChangeTimes->{ 3.696245364857836*^9, {3.696248023062626*^9, 3.696248026569626*^9}}, $CellContext`CelLFrame -> 0,ExpressionUUID->"7db49009-6ffc-438d-a004-40bc370003e0"], Cell["Retrieve the resource:", "Text", CellGroupingRules->"NormalGrouping", CellChangeTimes->{{3.696186645510051*^9, 3.6961866545240507`*^9}, 3.696187841532233*^9},ExpressionUUID->"b8c90112-d84c-4f95-aaf8-\ 81d801bad353"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.6997150571973505`*^9, 3.6997150768243127`*^9}, {3.705848298579598*^9, 3.7058483044715977`*^9}},ExpressionUUID->"82fc4bd1-0e92-4967-8471-\ 99eac61768bf"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["ResourceObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"], ImageSizeCache->{12., {0., 12.}}], Appearance->None, ButtonFunction:>(Typeset`open$$ = True), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, { 3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, {FaceForm[{RGBColor[0.274612, 0.618881, 0.810913], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, { 56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, { 9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, {2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}}, AspectRatio->1, Axes->False, Background->None, Frame->None, FrameTicks->None, ImageSize->{Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]), ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{ { RowBox[{ TagBox["\<\"Name: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"\"Polyform Database\"","\" \"",TagBox[ ButtonBox[ PaneSelectorBox[{ False -> "\"\[RightGuillemet]\"", True -> StyleBox["\"\[RightGuillemet]\"", {"HyperlinkActive"}]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle -> {"Hyperlink"}, FrameMargins -> 0, ImageSize -> Automatic], BaseStyle -> "Hyperlink", ButtonData -> { URL[ "https://datarepository.wolframcloud.com/resources/\ Polyform-Database"], None}, ButtonNote -> "https://datarepository.wolframcloud.com/resources/Polyform-\ Database"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/Polyform-\ Database"], "Hyperlink"]& ]}, "RowDefault"], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Data for some of the most popular polyforms\"\>", "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True-> GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], Appearance->None, ButtonFunction:>(Typeset`open$$ = False), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, { 3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, {FaceForm[{RGBColor[0.274612, 0.618881, 0.810913], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, { 56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, { 9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, {2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}}, AspectRatio->1, Axes->False, Background->None, Frame->None, FrameTicks->None, ImageSize->{Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]), ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{ { RowBox[{ TagBox["\<\"Name: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"\"Polyform Database\"","\" \"",TagBox[ ButtonBox[ PaneSelectorBox[{ False -> "\"\[RightGuillemet]\"", True -> StyleBox["\"\[RightGuillemet]\"", {"HyperlinkActive"}]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle -> {"Hyperlink"}, FrameMargins -> 0, ImageSize -> Automatic], BaseStyle -> "Hyperlink", ButtonData -> { URL[ "https://datarepository.wolframcloud.com/resources/\ Polyform-Database"], None}, ButtonNote -> "https://datarepository.wolframcloud.com/resources/Polyform-\ Database"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/Polyform-\ Database"], "Hyperlink"]& ]}, "RowDefault"], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Data for some of the most popular polyforms\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Categories: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\"","\"Mathematics\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"ContentTypes: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Keywords: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",","\",\"","\"polyform\"","\"polyomino\"","\"polyhex\"", "\"polyiamond\"","\"polytan\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Documentation: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ ButtonBox[ PaneSelectorBox[{ False->"\<\"https://datarepository.wolframcloud.com/\ resources/Polyform-Database\"\>", True-> StyleBox["\<\"https://datarepository.wolframcloud.com/\ resources/Polyform-Database\"\>", "HyperlinkActive"]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{"Hyperlink"}, FrameMargins->0, ImageSize->Automatic], BaseStyle->"Hyperlink", ButtonData->{ URL[ "https://datarepository.wolframcloud.com/resources/Polyform-\ Database"], None}, ButtonNote-> "https://datarepository.wolframcloud.com/resources/Polyform-\ Database"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/Polyform-\ Database"], "Hyperlink"]& ], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Data Location: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicModuleBox[{ ResourceSystemClient`Private`typesetstorage$$ = ResourceSystemClient`Private`typesetstorageLocation, ResourceSystemClient`Private`info$$}, DynamicBox[ToBoxes[ ResourceSystemClient`Private`info$$ = ResourceSystemClient`Private`resourceInfo[ "cdff6256-ec63-4c43-8c75-4c6c19b98a2e"]; If[ AssociationQ[ResourceSystemClient`Private`info$$], ResourceSystemClient`Private`typesetstorage$$[ Lookup[ ResourceSystemClient`Private`info$$, "ContentElementLocations", None]], Missing["NotAvailable"]], StandardForm]], DynamicModuleValues:>{}], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"UUID: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"cdff6256-ec63-4c43-8c75-4c6c19b98a2e\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.1\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"51.376968`","\"MB\"","megabytes","\"Megabytes\""}, "Quantity"], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Elements: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\"","\"PolyformDatabase\""}, "RowWithSeparators"], Short[#, 2]& ], "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open$$], ImageSize->Automatic], BaselinePosition->Baseline], DynamicModuleValues:>{}], "]"}], ResourceObject[ Association[ "Name" -> "Polyform Database", "UUID" -> "cdff6256-ec63-4c43-8c75-4c6c19b98a2e", "ResourceType" -> "DataResource", "Version" -> "1.0.1", "Description" -> "Data for some of the most popular polyforms", "ContentSize" -> Quantity[51.376968, "Megabytes"], "ContentElements" -> {"PolyformDatabase"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.699715079073538*^9, 3.7058483020815983`*^9, 3.705848717599598*^9, 3.7063521094858093`*^9, 3.706352271010345*^9},ExpressionUUID->"cdb2aab4-aa91-414b-acf5-\ acf79396b53f"] }, Open ]], Cell["Retrieve a sample of the default content:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.705848494018598*^9, 3.705848508750598*^9}, {3.705848830521598*^9, 3.705848834646598*^9}},ExpressionUUID->"da0c119e-2819-41ae-a135-\ cd5129b9bd03"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Short", "/@", RowBox[{"RandomChoice", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.6997151086174917`*^9, 3.699715109162546*^9}, 3.705848300966598*^9, {3.705848368002598*^9, 3.705848379981598*^9}, {3.705848836345598*^9, 3.705848864661598*^9}},ExpressionUUID->"0842a812-e81a-4dd3-b89b-\ 13a7afdfefe6"], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"GeneralPolyformName\"\>", "\[Rule]", TagBox["\<\"polyedge 1-sided\"\>", Short]}], ",", RowBox[{"\<\"PolyformNames\"\>", "\[Rule]", TagBox[ RowBox[{"{", RowBox[{"\<\"monoedge\"\>", ",", "\<\"diedge\"\>", ",", "\<\"triedge\"\>", ",", "\<\"tetraedge\"\>", ",", RowBox[{"\[LeftSkeleton]", "5", "\[RightSkeleton]"}], ",", "\<\"decaedge\"\>", ",", "\<\"hendecaedge\"\>", ",", "\<\"dodecaedge\"\>"}], "}"}], Short]}], ",", RowBox[{"\<\"PolyformCounts\"\>", "\[Rule]", TagBox[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "7", ",", "25", ",", "99", ",", "416", ",", "1854", ",", "8411", ",", "38980", ",", "182829"}], "}"}], Short]}], ",", RowBox[{"\<\"OEIS\"\>", "\[Rule]", TagBox["\<\"A151537\"\>", Short]}], ",", RowBox[{"\<\"PolyformDrawingFunction\"\>", "\[Rule]", RowBox[{"(", TagBox[ RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.05`", ",", RowBox[{"-", "0.05`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.05`", ",", "0.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.95`", ",", "0.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.95`", ",", RowBox[{"-", "0.05`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}]}], "}"}], "\[LeftDoubleBracket]", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "\[RightDoubleBracket]"}], "+", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "}"}], "]"}], "&"}], Short], ")"}]}], ",", RowBox[{"\<\"PolyformCells\"\>", "\[Rule]", TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "}"}], "}"}], ",", RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"\[LeftSkeleton]", "97", "\[RightSkeleton]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "1"}], "}"}]}], "}"}]}], "}"}]}], "}"}], Short]}], ",", RowBox[{"\<\"PolyformShapes\"\>", "\[Rule]", TagBox[ RowBox[{"{", RowBox[{ TemplateBox[{GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}]}, ImageSize -> {40, 40}]}, "RowDefault"], ",", TemplateBox[{GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{1.05, -0.05}, {1.05, 0.05}, {1.95, 0.05}, { 1.95, -0.05}}}]}, ImageSize -> {40, 40}]}, "RowDefault"], ",", TemplateBox[{GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{0.95, -0.95}, {1.05, -0.95}, { 1.05, -0.050000000000000044`}, {0.95, -0.050000000000000044`}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{1.05, -0.05}, {1.05, 0.05}, {1.95, 0.05}, { 1.95, -0.05}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{0.95, 0.05}, {1.05, 0.05}, {1.05, 0.95}, {0.95, 0.95}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{1.05, -1.05}, {1.05, -0.95}, {1.95, -0.95}, { 1.95, -1.05}}}], PolygonBox[{{{0.95, -0.95}, {1.05, -0.95}, { 1.05, -0.050000000000000044`}, {0.95, -0.050000000000000044`}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{1.05, -0.05}, {1.05, 0.05}, {1.95, 0.05}, { 1.95, -0.05}}}], PolygonBox[{{{0.95, 0.05}, {1.05, 0.05}, {1.05, 0.95}, {0.95, 0.95}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{1.05, -0.05}, {1.05, 0.05}, {1.95, 0.05}, { 1.95, -0.05}}}], PolygonBox[{{{2.05, -0.05}, {2.05, 0.05}, {2.95, 0.05}, { 2.95, -0.05}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{0.05, 0.95}, {0.05, 1.05}, {0.95, 1.05}, {0.95, 0.95}}}], PolygonBox[{{{1.05, 0.95}, {1.05, 1.05}, {1.95, 1.05}, {1.95, 0.95}}}]}, ImageSize -> {40, 40}]}, "RowDefault"], ",", TemplateBox[{GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{0.05, 0.95}, {0.05, 1.05}, {0.95, 1.05}, {0.95, 0.95}}}], PolygonBox[{{{1.05, -0.05}, {1.05, 0.05}, {1.95, 0.05}, { 1.95, -0.05}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{0.05, 0.95}, {0.05, 1.05}, {0.95, 1.05}, {0.95, 0.95}}}], PolygonBox[{{{0.95, 0.05}, {1.05, 0.05}, {1.05, 0.95}, {0.95, 0.95}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{0.05, 0.95}, {0.05, 1.05}, {0.95, 1.05}, {0.95, 0.95}}}], PolygonBox[{{{1.05, 0.95}, {1.05, 1.05}, {1.95, 1.05}, {1.95, 0.95}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{-0.05, 1.05}, {0.05, 1.05}, {0.05, 1.95}, {-0.05, 1.95}}}], PolygonBox[{{{1.05, -0.05}, {1.05, 0.05}, {1.95, 0.05}, { 1.95, -0.05}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{0.95, -0.95}, {1.05, -0.95}, { 1.05, -0.050000000000000044`}, {0.95, -0.050000000000000044`}}}], PolygonBox[{{{1.05, -0.05}, {1.05, 0.05}, {1.95, 0.05}, { 1.95, -0.05}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{1.05, -0.05}, {1.05, 0.05}, {1.95, 0.05}, { 1.95, -0.05}}}], PolygonBox[{{{0.95, 0.05}, {1.05, 0.05}, {1.05, 0.95}, {0.95, 0.95}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{1.05, -0.05}, {1.05, 0.05}, {1.95, 0.05}, { 1.95, -0.05}}}], PolygonBox[{{{1.95, -0.95}, {2.05, -0.95}, { 2.05, -0.050000000000000044`}, {1.95, -0.050000000000000044`}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{1.05, -0.05}, {1.05, 0.05}, {1.95, 0.05}, { 1.95, -0.05}}}], PolygonBox[{{{2.05, -0.05}, {2.05, 0.05}, {2.95, 0.05}, { 2.95, -0.05}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{1.05, -0.05}, {1.05, 0.05}, {1.95, 0.05}, { 1.95, -0.05}}}], PolygonBox[{{{1.95, 0.05}, {2.05, 0.05}, {2.05, 0.95}, {1.95, 0.95}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{0.95, 0.05}, {1.05, 0.05}, {1.05, 0.95}, {0.95, 0.95}}}], PolygonBox[{{{1.05, 0.95}, {1.05, 1.05}, {1.95, 1.05}, {1.95, 0.95}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{0.05, 0.95}, {0.05, 1.05}, {0.95, 1.05}, {0.95, 0.95}}}], PolygonBox[{{{1.05, -0.05}, {1.05, 0.05}, {1.95, 0.05}, { 1.95, -0.05}}}], PolygonBox[{{{0.95, 0.05}, {1.05, 0.05}, {1.05, 0.95}, {0.95, 0.95}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{1.05, -1.05}, {1.05, -0.95}, {1.95, -0.95}, { 1.95, -1.05}}}], PolygonBox[{{{0.95, -0.95}, {1.05, -0.95}, { 1.05, -0.050000000000000044`}, {0.95, -0.050000000000000044`}}}], PolygonBox[{{{1.95, -1.95}, {2.05, -1.95}, {2.05, -1.05}, { 1.95, -1.05}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{1.05, -1.05}, {1.05, -0.95}, {1.95, -0.95}, { 1.95, -1.05}}}], PolygonBox[{{{0.95, -0.95}, {1.05, -0.95}, { 1.05, -0.050000000000000044`}, {0.95, -0.050000000000000044`}}}], PolygonBox[{{{2.05, -1.05}, {2.05, -0.95}, {2.95, -0.95}, { 2.95, -1.05}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{1.05, -1.05}, {1.05, -0.95}, {1.95, -0.95}, { 1.95, -1.05}}}], PolygonBox[{{{0.95, -0.95}, {1.05, -0.95}, { 1.05, -0.050000000000000044`}, {0.95, -0.050000000000000044`}}}], PolygonBox[{{{1.95, -0.95}, {2.05, -0.95}, { 2.05, -0.050000000000000044`}, {1.95, -0.050000000000000044`}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{0.95, -0.95}, {1.05, -0.95}, { 1.05, -0.050000000000000044`}, {0.95, -0.050000000000000044`}}}], PolygonBox[{{{1.05, -0.05}, {1.05, 0.05}, {1.95, 0.05}, { 1.95, -0.05}}}], PolygonBox[{{{0.95, 0.05}, {1.05, 0.05}, {1.05, 0.95}, {0.95, 0.95}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{0.95, -0.95}, {1.05, -0.95}, { 1.05, -0.050000000000000044`}, {0.95, -0.050000000000000044`}}}], PolygonBox[{{{1.05, -0.05}, {1.05, 0.05}, {1.95, 0.05}, { 1.95, -0.05}}}], PolygonBox[{{{2.05, -0.05}, {2.05, 0.05}, {2.95, 0.05}, { 2.95, -0.05}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{1.05, -0.05}, {1.05, 0.05}, {1.95, 0.05}, { 1.95, -0.05}}}], PolygonBox[{{{0.95, 0.05}, {1.05, 0.05}, {1.05, 0.95}, {0.95, 0.95}}}], PolygonBox[{{{1.05, 0.95}, {1.05, 1.05}, {1.95, 1.05}, {1.95, 0.95}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{1.05, -0.05}, {1.05, 0.05}, {1.95, 0.05}, { 1.95, -0.05}}}], PolygonBox[{{{0.95, 0.05}, {1.05, 0.05}, {1.05, 0.95}, {0.95, 0.95}}}], PolygonBox[{{{2.05, -0.05}, {2.05, 0.05}, {2.95, 0.05}, { 2.95, -0.05}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{1.05, -0.05}, {1.05, 0.05}, {1.95, 0.05}, { 1.95, -0.05}}}], PolygonBox[{{{2.05, -0.05}, {2.05, 0.05}, {2.95, 0.05}, { 2.95, -0.05}}}], PolygonBox[{{{3.05, -0.05}, {3.05, 0.05}, {3.95, 0.05}, { 3.95, -0.05}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0.05, -0.05}, {0.05, 0.05}, {0.95, 0.05}, { 0.95, -0.05}}}], PolygonBox[{{{0.95, 0.05}, {1.05, 0.05}, {1.05, 0.95}, {0.95, 0.95}}}], PolygonBox[{{{1.05, 0.95}, {1.05, 1.05}, {1.95, 1.05}, {1.95, 0.95}}}], PolygonBox[{{{2.05, 0.95}, {2.05, 1.05}, {2.95, 1.05}, {2.95, 0.95}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{0.05, 0.95}, {0.05, 1.05}, {0.95, 1.05}, {0.95, 0.95}}}], PolygonBox[{{{-0.05, 1.05}, {0.05, 1.05}, {0.05, 1.95}, {-0.05, 1.95}}}], PolygonBox[{{{1.05, 0.95}, {1.05, 1.05}, {1.95, 1.05}, {1.95, 0.95}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{0.05, 0.95}, {0.05, 1.05}, {0.95, 1.05}, {0.95, 0.95}}}], PolygonBox[{{{0.95, 0.05}, {1.05, 0.05}, {1.05, 0.95}, {0.95, 0.95}}}], PolygonBox[{{{1.05, 0.95}, {1.05, 1.05}, {1.95, 1.05}, {1.95, 0.95}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{0.05, 0.95}, {0.05, 1.05}, {0.95, 1.05}, {0.95, 0.95}}}], PolygonBox[{{{1.05, 0.95}, {1.05, 1.05}, {1.95, 1.05}, {1.95, 0.95}}}], PolygonBox[{{{0.95, 1.05}, {1.05, 1.05}, {1.05, 1.95}, {0.95, 1.95}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{0.05, 0.95}, {0.05, 1.05}, {0.95, 1.05}, {0.95, 0.95}}}], PolygonBox[{{{1.05, 0.95}, {1.05, 1.05}, {1.95, 1.05}, {1.95, 0.95}}}], PolygonBox[{{{2.05, 0.95}, {2.05, 1.05}, {2.95, 1.05}, {2.95, 0.95}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{-0.05, 0.05}, {0.05, 0.05}, {0.05, 0.95}, {-0.05, 0.95}}}], PolygonBox[{{{0.05, 0.95}, {0.05, 1.05}, {0.95, 1.05}, {0.95, 0.95}}}], PolygonBox[{{{1.05, 0.95}, {1.05, 1.05}, {1.95, 1.05}, {1.95, 0.95}}}], PolygonBox[{{{1.95, 1.05}, {2.05, 1.05}, {2.05, 1.95}, {1.95, 1.95}}}]}, ImageSize -> {40, 40}]}, "RowDefault"], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "}"}], Short]}], ",", RowBox[{"\<\"MathWorldLink\"\>", "\[Rule]", TagBox["\<\"http://mathworld.wolfram.com/Polyedge.html\"\>", Short]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.69971511060369*^9, 3.7058483091625977`*^9, {3.705848375900598*^9, 3.7058483815895977`*^9}, { 3.705848840669598*^9, 3.7058488651405983`*^9}, 3.706352110688015*^9, 3.706352271517029*^9},ExpressionUUID->"afc167b0-6d8b-4b6d-a082-\ fc997e938e1d"] }, Open ]], Cell["Show the shapes for a polyform:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.705848511782598*^9, 3.705848532046598*^9}},ExpressionUUID->"9f61e18a-1dc7-411b-a776-\ bee92f1e86bf"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Column", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], "[", "\"\\"", "]"}], "[", "\"\\"", "]"}], "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], "[", "\"\\"", "]"}], "[", "\"\\"", "]"}], "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.705848450295598*^9, 3.705848485667598*^9}, {3.7063521955132017`*^9, 3.706352206374893*^9}},ExpressionUUID->"b9a15317-5efa-43dc-998c-\ 9c585109a753"], Cell[BoxData[ TagBox[GridBox[{ { TemplateBox[{GraphicsBox[{ PolygonBox[{{{0, 0}, {0, 1}, {1, 1}, {1, 0}}}], PolygonBox[{{{1, 0}, {1, 1}, {2, 1}, {2, 0}}}], PolygonBox[{{{2, 0}, {2, 1}, {3, 1}, {3, 0}}}], PolygonBox[{{{3, 0}, {3, 1}, {4, 1}, {4, 0}}}], PolygonBox[{{{4, 0}, {4, 1}, {5, 1}, {5, 0}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0, 0}, {0, 1}, {1, 1}, {1, 0}}}], PolygonBox[{{{0, 1}, {0, 2}, {1, 2}, {1, 1}}}], PolygonBox[{{{1, 0}, {1, 1}, {2, 1}, {2, 0}}}], PolygonBox[{{{2, 0}, {2, 1}, {3, 1}, {3, 0}}}], PolygonBox[{{{3, 0}, {3, 1}, {4, 1}, {4, 0}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0, 0}, {0, 1}, {1, 1}, {1, 0}}}], PolygonBox[{{{1, 0}, {1, 1}, {2, 1}, {2, 0}}}], PolygonBox[{{{1, 1}, {1, 2}, {2, 2}, {2, 1}}}], PolygonBox[{{{2, 0}, {2, 1}, {3, 1}, {3, 0}}}], PolygonBox[{{{3, 0}, {3, 1}, {4, 1}, {4, 0}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0, 0}, {0, 1}, {1, 1}, {1, 0}}}], PolygonBox[{{{0, 1}, {0, 2}, {1, 2}, {1, 1}}}], PolygonBox[{{{1, 0}, {1, 1}, {2, 1}, {2, 0}}}], PolygonBox[{{{1, 1}, {1, 2}, {2, 2}, {2, 1}}}], PolygonBox[{{{2, 0}, {2, 1}, {3, 1}, {3, 0}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0, 0}, {0, 1}, {1, 1}, {1, 0}}}], PolygonBox[{{{0, 1}, {0, 2}, {1, 2}, {1, 1}}}], PolygonBox[{{{1, 0}, {1, 1}, {2, 1}, {2, 0}}}], PolygonBox[{{{2, 0}, {2, 1}, {3, 1}, {3, 0}}}], PolygonBox[{{{2, 1}, {2, 2}, {3, 2}, {3, 1}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0, 0}, {0, 1}, {1, 1}, {1, 0}}}], PolygonBox[{{{1, 0}, {1, 1}, {2, 1}, {2, 0}}}], PolygonBox[{{{1, -1}, {1, 0}, {2, 0}, {2, -1}}}], PolygonBox[{{{2, -1}, {2, 0}, {3, 0}, {3, -1}}}], PolygonBox[{{{3, -1}, {3, 0}, {4, 0}, {4, -1}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0, 0}, {0, 1}, {1, 1}, {1, 0}}}], PolygonBox[{{{0, 1}, {0, 2}, {1, 2}, {1, 1}}}], PolygonBox[{{{1, 0}, {1, 1}, {2, 1}, {2, 0}}}], PolygonBox[{{{0, 2}, {0, 3}, {1, 3}, {1, 2}}}], PolygonBox[{{{2, 0}, {2, 1}, {3, 1}, {3, 0}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0, 0}, {0, 1}, {1, 1}, {1, 0}}}], PolygonBox[{{{1, 0}, {1, 1}, {2, 1}, {2, 0}}}], PolygonBox[{{{1, 1}, {1, 2}, {2, 2}, {2, 1}}}], PolygonBox[{{{2, 0}, {2, 1}, {3, 1}, {3, 0}}}], PolygonBox[{{{1, 2}, {1, 3}, {2, 3}, {2, 2}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0, 0}, {0, 1}, {1, 1}, {1, 0}}}], PolygonBox[{{{1, 0}, {1, 1}, {2, 1}, {2, 0}}}], PolygonBox[{{{1, -1}, {1, 0}, {2, 0}, {2, -1}}}], PolygonBox[{{{1, 1}, {1, 2}, {2, 2}, {2, 1}}}], PolygonBox[{{{2, 0}, {2, 1}, {3, 1}, {3, 0}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0, 0}, {0, 1}, {1, 1}, {1, 0}}}], PolygonBox[{{{0, 1}, {0, 2}, {1, 2}, {1, 1}}}], PolygonBox[{{{1, 0}, {1, 1}, {2, 1}, {2, 0}}}], PolygonBox[{{{1, -1}, {1, 0}, {2, 0}, {2, -1}}}], PolygonBox[{{{2, 0}, {2, 1}, {3, 1}, {3, 0}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0, 0}, {0, 1}, {1, 1}, {1, 0}}}], PolygonBox[{{{0, 1}, {0, 2}, {1, 2}, {1, 1}}}], PolygonBox[{{{1, 0}, {1, 1}, {2, 1}, {2, 0}}}], PolygonBox[{{{2, 0}, {2, 1}, {3, 1}, {3, 0}}}], PolygonBox[{{{2, -1}, {2, 0}, {3, 0}, {3, -1}}}]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[{{{0, 0}, {0, 1}, {1, 1}, {1, 0}}}], PolygonBox[{{{0, 1}, {0, 2}, {1, 2}, {1, 1}}}], PolygonBox[{{{1, 0}, {1, 1}, {2, 1}, {2, 0}}}], PolygonBox[{{{1, -1}, {1, 0}, {2, 0}, {2, -1}}}], PolygonBox[{{{2, -1}, {2, 0}, {3, 0}, {3, -1}}}]}, ImageSize -> {40, 40}]}, "RowDefault"]}, { TemplateBox[{GraphicsBox[{ PolygonBox[ NCache[{{{0, 0}, {1, 0}, {1/2, Sqrt[3]/2}}}, {{{0, 0}, {1, 0}, {0.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, 0}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 0}}}]], PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, Sqrt[3]}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 1.7320508075688772`}}}]], PolygonBox[ NCache[{{{1, Sqrt[3]}, {2, Sqrt[3]}, {3/2, Sqrt[3]/2}}}, {{{1, 1.7320508075688772`}, { 2, 1.7320508075688772`}, {1.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{1, 0}, {2, 0}, {3/2, Sqrt[3]/2}}}, {{{1, 0}, {2, 0}, {1.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{3/2, Sqrt[3]/2}, {5/2, Sqrt[3]/2}, {2, 0}}}, {{{1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {2, 0}}}]]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[ NCache[{{{0, 0}, {1, 0}, {1/2, Sqrt[3]/2}}}, {{{0, 0}, {1, 0}, {0.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, 0}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 0}}}]], PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, Sqrt[3]}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 1.7320508075688772`}}}]], PolygonBox[ NCache[{{{1, Sqrt[3]}, {2, Sqrt[3]}, {3/2, Sqrt[3]/2}}}, {{{1, 1.7320508075688772`}, { 2, 1.7320508075688772`}, {1.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{3/2, Sqrt[3]/2}, {5/2, Sqrt[3]/2}, {2, Sqrt[3]}}}, {{{1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {2, 1.7320508075688772`}}}]], PolygonBox[ NCache[{{{2, Sqrt[3]}, {3, Sqrt[3]}, {5/2, Sqrt[3]/2}}}, {{{2, 1.7320508075688772`}, { 3, 1.7320508075688772`}, {2.5, 0.8660254037844386}}}]]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[ NCache[{{{0, 0}, {1, 0}, {1/2, Sqrt[3]/2}}}, {{{0, 0}, {1, 0}, {0.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, 0}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 0}}}]], PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, Sqrt[3]}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 1.7320508075688772`}}}]], PolygonBox[ NCache[{{{1, 0}, {2, 0}, {3/2, -Sqrt[3]/2}}}, {{{1, 0}, {2, 0}, { 1.5, -0.8660254037844386}}}]], PolygonBox[ NCache[{{{1, 0}, {2, 0}, {3/2, Sqrt[3]/2}}}, {{{1, 0}, {2, 0}, {1.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{3/2, Sqrt[3]/2}, {5/2, Sqrt[3]/2}, {2, 0}}}, {{{1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {2, 0}}}]]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[ NCache[{{{0, 0}, {1, 0}, {1/2, Sqrt[3]/2}}}, {{{0, 0}, {1, 0}, {0.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, 0}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 0}}}]], PolygonBox[ NCache[{{{1, 0}, {2, 0}, {3/2, Sqrt[3]/2}}}, {{{1, 0}, {2, 0}, {1.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{3/2, Sqrt[3]/2}, {5/2, Sqrt[3]/2}, {2, 0}}}, {{{1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {2, 0}}}]], PolygonBox[ NCache[{{{2, 0}, {3, 0}, {5/2, Sqrt[3]/2}}}, {{{2, 0}, {3, 0}, {2.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{5/2, Sqrt[3]/2}, {7/2, Sqrt[3]/2}, {3, 0}}}, {{{2.5, 0.8660254037844386}, {3.5, 0.8660254037844386}, {3, 0}}}]]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, 0}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 0}}}]], PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, Sqrt[3]}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 1.7320508075688772`}}}]], PolygonBox[ NCache[{{{1, Sqrt[3]}, {2, Sqrt[3]}, {3/2, Sqrt[3]/2}}}, {{{1, 1.7320508075688772`}, { 2, 1.7320508075688772`}, {1.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{1, Sqrt[3]}, {2, Sqrt[3]}, {3/2, (3 Sqrt[3])/2}}}, {{{1, 1.7320508075688772`}, { 2, 1.7320508075688772`}, {1.5, 2.598076211353316}}}]], PolygonBox[ NCache[{{{3/2, Sqrt[3]/2}, {5/2, Sqrt[3]/2}, {2, Sqrt[3]}}}, {{{1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {2, 1.7320508075688772`}}}]], PolygonBox[ NCache[{{{2, Sqrt[3]}, {3, Sqrt[3]}, {5/2, Sqrt[3]/2}}}, {{{2, 1.7320508075688772`}, { 3, 1.7320508075688772`}, {2.5, 0.8660254037844386}}}]]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, 0}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 0}}}]], PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, Sqrt[3]}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 1.7320508075688772`}}}]], PolygonBox[ NCache[{{{1, Sqrt[3]}, {2, Sqrt[3]}, {3/2, Sqrt[3]/2}}}, {{{1, 1.7320508075688772`}, { 2, 1.7320508075688772`}, {1.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{1, 0}, {2, 0}, {3/2, Sqrt[3]/2}}}, {{{1, 0}, {2, 0}, {1.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{3/2, Sqrt[3]/2}, {5/2, Sqrt[3]/2}, {2, 0}}}, {{{1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {2, 0}}}]], PolygonBox[ NCache[{{{3/2, Sqrt[3]/2}, {5/2, Sqrt[3]/2}, {2, Sqrt[3]}}}, {{{1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {2, 1.7320508075688772`}}}]]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, 0}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 0}}}]], PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, Sqrt[3]}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 1.7320508075688772`}}}]], PolygonBox[ NCache[{{{1, Sqrt[3]}, {2, Sqrt[3]}, {3/2, Sqrt[3]/2}}}, {{{1, 1.7320508075688772`}, { 2, 1.7320508075688772`}, {1.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{1, 0}, {2, 0}, {3/2, Sqrt[3]/2}}}, {{{1, 0}, {2, 0}, {1.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{3/2, Sqrt[3]/2}, {5/2, Sqrt[3]/2}, {2, Sqrt[3]}}}, {{{1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {2, 1.7320508075688772`}}}]], PolygonBox[ NCache[{{{2, Sqrt[3]}, {3, Sqrt[3]}, {5/2, Sqrt[3]/2}}}, {{{2, 1.7320508075688772`}, { 3, 1.7320508075688772`}, {2.5, 0.8660254037844386}}}]]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, 0}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 0}}}]], PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, Sqrt[3]}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 1.7320508075688772`}}}]], PolygonBox[ NCache[{{{1, Sqrt[3]}, {2, Sqrt[3]}, {3/2, Sqrt[3]/2}}}, {{{1, 1.7320508075688772`}, { 2, 1.7320508075688772`}, {1.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{3/2, Sqrt[3]/2}, {5/2, Sqrt[3]/2}, {2, 0}}}, {{{1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {2, 0}}}]], PolygonBox[ NCache[{{{3/2, Sqrt[3]/2}, {5/2, Sqrt[3]/2}, {2, Sqrt[3]}}}, {{{1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {2, 1.7320508075688772`}}}]], PolygonBox[ NCache[{{{2, Sqrt[3]}, {3, Sqrt[3]}, {5/2, Sqrt[3]/2}}}, {{{2, 1.7320508075688772`}, { 3, 1.7320508075688772`}, {2.5, 0.8660254037844386}}}]]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, 0}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 0}}}]], PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, Sqrt[3]}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 1.7320508075688772`}}}]], PolygonBox[ NCache[{{{1, Sqrt[3]}, {2, Sqrt[3]}, {3/2, Sqrt[3]/2}}}, {{{1, 1.7320508075688772`}, { 2, 1.7320508075688772`}, {1.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{3/2, Sqrt[3]/2}, {5/2, Sqrt[3]/2}, {2, Sqrt[3]}}}, {{{1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {2, 1.7320508075688772`}}}]], PolygonBox[ NCache[{{{2, Sqrt[3]}, {3, Sqrt[3]}, {5/2, Sqrt[3]/2}}}, {{{2, 1.7320508075688772`}, { 3, 1.7320508075688772`}, {2.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{2, Sqrt[3]}, {3, Sqrt[3]}, {5/2, (3 Sqrt[3])/2}}}, {{{2, 1.7320508075688772`}, { 3, 1.7320508075688772`}, {2.5, 2.598076211353316}}}]]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, 0}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 0}}}]], PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, Sqrt[3]}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 1.7320508075688772`}}}]], PolygonBox[ NCache[{{{1, 0}, {2, 0}, {3/2, Sqrt[3]/2}}}, {{{1, 0}, {2, 0}, {1.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{3/2, Sqrt[3]/2}, {5/2, Sqrt[3]/2}, {2, 0}}}, {{{1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {2, 0}}}]], PolygonBox[ NCache[{{{2, 0}, {3, 0}, {5/2, Sqrt[3]/2}}}, {{{2, 0}, {3, 0}, {2.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{5/2, Sqrt[3]/2}, {7/2, Sqrt[3]/2}, {3, 0}}}, {{{2.5, 0.8660254037844386}, {3.5, 0.8660254037844386}, {3, 0}}}]]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, 0}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 0}}}]], PolygonBox[ NCache[{{{1, 0}, {2, 0}, {3/2, -Sqrt[3]/2}}}, {{{1, 0}, {2, 0}, { 1.5, -0.8660254037844386}}}]], PolygonBox[ NCache[{{{1, 0}, {2, 0}, {3/2, Sqrt[3]/2}}}, {{{1, 0}, {2, 0}, {1.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{3/2, Sqrt[3]/2}, {5/2, Sqrt[3]/2}, {2, 0}}}, {{{1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {2, 0}}}]], PolygonBox[ NCache[{{{2, 0}, {3, 0}, {5/2, Sqrt[3]/2}}}, {{{2, 0}, {3, 0}, {2.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{5/2, Sqrt[3]/2}, {7/2, Sqrt[3]/2}, {3, 0}}}, {{{2.5, 0.8660254037844386}, {3.5, 0.8660254037844386}, {3, 0}}}]]}, ImageSize -> {40, 40}],GraphicsBox[{ PolygonBox[ NCache[{{{1/2, Sqrt[3]/2}, {3/2, Sqrt[3]/2}, {1, 0}}}, {{{0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {1, 0}}}]], PolygonBox[ NCache[{{{1, 0}, {2, 0}, {3/2, Sqrt[3]/2}}}, {{{1, 0}, {2, 0}, {1.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{3/2, Sqrt[3]/2}, {5/2, Sqrt[3]/2}, {2, 0}}}, {{{1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {2, 0}}}]], PolygonBox[ NCache[{{{3/2, Sqrt[3]/2}, {5/2, Sqrt[3]/2}, {2, Sqrt[3]}}}, {{{1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {2, 1.7320508075688772`}}}]], PolygonBox[ NCache[{{{2, 0}, {3, 0}, {5/2, Sqrt[3]/2}}}, {{{2, 0}, {3, 0}, {2.5, 0.8660254037844386}}}]], PolygonBox[ NCache[{{{5/2, Sqrt[3]/2}, {7/2, Sqrt[3]/2}, {3, 0}}}, {{{2.5, 0.8660254037844386}, {3.5, 0.8660254037844386}, {3, 0}}}]]}, ImageSize -> {40, 40}]}, "RowDefault"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.705848470396598*^9, 3.705848486722598*^9}, 3.706352111212859*^9, 3.706352213245146*^9, 3.70635227205655*^9},ExpressionUUID->"89eafeb4-eb65-4ce4-b3f2-\ 786b0a6b2b9a"] }, Open ]], Cell["\<\ The number of polyforms of a given type and order is given in PolyformCounts:\ \ \>", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.699724255252342*^9, { 3.699724285575374*^9, 3.6997243591577315`*^9}, {3.7063522873832607`*^9, 3.706352287709581*^9}},ExpressionUUID->"e0c496e1-ef10-4458-b494-\ 009432fa46cd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], "[", "\"\\"", "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.699724225617379*^9, 3.6997242420180187`*^9}, 3.706352253739698*^9},ExpressionUUID->"ebe8b7a2-595b-45b8-bfae-\ 6e16b9e751b7"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "3", ",", "4", ",", "12", ",", "24", ",", "66", ",", "160", ",", "448", ",", "1186", ",", "3334", ",", "9235", ",", "26166", ",", "73983", ",", "211297", ",", "604107", ",", "1736328", ",", "5000593", ",", "14448984", ",", "41835738", ",", "121419260", ",", "353045291", ",", "1028452717", ",", "3000800627", ",", "8769216722", ",", "25661961898", ",", "75195166667"}], "}"}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.706352272322755*^9},ExpressionUUID->"497b1a6c-cb49-4136-9219-\ d29442d7eb78"] }, Open ]], Cell["\<\ A coordinate form for all polyforms is given. Component cells can have \ different orientations, so a drawing function is included for each polyform:\ \>", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.699723925953416*^9, 3.6997240326640854`*^9}, {3.6997241232441425`*^9, 3.6997241826380816`*^9}, {3.70635229074993*^9, 3.706352291030034*^9}},ExpressionUUID->"312ec10e-d006-4666-be5e-\ 1adb22159e01"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"cellstan4", " ", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], "[", "\"\\"", "]"}], "[", "\"\\"", "]"}], "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"DrawingFunctiontan4", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], "[", "\"\\"", "]"}], "[", "\"\\"", "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{ RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "Black", "]"}], ",", "Yellow", ",", RowBox[{"DrawingFunctiontan4", "/@", "#"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", " ", RowBox[{"{", RowBox[{"70", ",", "40"}], "}"}]}]}], "]"}], "&"}], "/@", "cellstan4"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Spacer", "[", "10", "]"}], ",", " ", "DrawingFunctiontan4", ",", " ", RowBox[{"Spacer", "[", "10", "]"}], ",", "\[IndentingNewLine]", "cellstan4"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.706270522242238*^9, 3.7062705568817015`*^9}, {3.7062706259586086`*^9, 3.7062706754615583`*^9}, {3.706294387592201*^9, 3.706294402595701*^9}, { 3.706294446277069*^9, 3.7062944471721582`*^9}, {3.706352255635775*^9, 3.7063522591960697`*^9}},ExpressionUUID->"4cbba55e-7ebc-4d0e-9522-\ e493a5255ca1"], Cell[BoxData[ TagBox[GridBox[{ { TemplateBox[{GraphicsBox[{ EdgeForm[ GrayLevel[0]], RGBColor[1, 1, 0], { PolygonBox[{{{1, 0}, {1, 1}, {0, 1}}}], PolygonBox[{{{1, 0}, {2, 0}, {1, 1}}}], PolygonBox[{{{2, -1}, {2, 0}, {1, 0}}}], PolygonBox[{{{2, -1}, {3, 0}, {2, 0}}}]}}, ImageSize -> {70, 40}], GraphicsBox[{ EdgeForm[ GrayLevel[0]], RGBColor[1, 1, 0], { PolygonBox[{{{0, 0}, {1, 0}, {1, 1}}}], PolygonBox[{{{1, 0}, {2, 0}, {1, 1}}}], PolygonBox[{{{2, -1}, {2, 0}, {1, 0}}}], PolygonBox[{{{2, -1}, {3, 0}, {2, 0}}}]}}, ImageSize -> {70, 40}], GraphicsBox[{ EdgeForm[ GrayLevel[0]], RGBColor[1, 1, 0], { PolygonBox[{{{1, 0}, {1, 1}, {0, 1}}}], PolygonBox[{{{1, 0}, {2, 0}, {1, 1}}}], PolygonBox[{{{1, -1}, {1, 0}, {0, 0}}}], PolygonBox[{{{1, -1}, {2, 0}, {1, 0}}}]}}, ImageSize -> {70, 40}], GraphicsBox[{ EdgeForm[ GrayLevel[0]], RGBColor[1, 1, 0], { PolygonBox[{{{1, 0}, {1, 1}, {0, 1}}}], PolygonBox[{{{1, 0}, {2, 0}, {1, 1}}}], PolygonBox[{{{0, -1}, {1, -1}, {1, 0}}}], PolygonBox[{{{1, -1}, {2, 0}, {1, 0}}}]}}, ImageSize -> {70, 40}], GraphicsBox[{ EdgeForm[ GrayLevel[0]], RGBColor[1, 1, 0], { PolygonBox[{{{0, 0}, {1, 0}, {1, 1}}}], PolygonBox[{{{1, 0}, {2, 0}, {1, 1}}}], PolygonBox[{{{1, -1}, {1, 0}, {0, 0}}}], PolygonBox[{{{0, -1}, {1, -1}, {0, 0}}}]}}, ImageSize -> {70, 40}], GraphicsBox[{ EdgeForm[ GrayLevel[0]], RGBColor[1, 1, 0], { PolygonBox[{{{1, 0}, {1, 1}, {0, 1}}}], PolygonBox[{{{2, 0}, {2, 1}, {1, 1}}}], PolygonBox[{{{1, 0}, {2, 0}, {1, 1}}}], PolygonBox[{{{1, -1}, {2, 0}, {1, 0}}}]}}, ImageSize -> {70, 40}], GraphicsBox[{ EdgeForm[ GrayLevel[0]], RGBColor[1, 1, 0], { PolygonBox[{{{1, 0}, {1, 1}, {0, 1}}}], PolygonBox[{{{1, 0}, {2, 0}, {1, 1}}}], PolygonBox[{{{2, -1}, {2, 0}, {1, 0}}}], PolygonBox[{{{1, -1}, {2, -1}, {1, 0}}}]}}, ImageSize -> {70, 40}], GraphicsBox[{ EdgeForm[ GrayLevel[0]], RGBColor[1, 1, 0], { PolygonBox[{{{0, 0}, {1, 0}, {1, 1}}}], PolygonBox[{{{1, 0}, {2, 0}, {1, 1}}}], PolygonBox[{{{1, -1}, {1, 0}, {0, 0}}}], PolygonBox[{{{1, -1}, {2, 0}, {1, 0}}}]}}, ImageSize -> {70, 40}], GraphicsBox[{ EdgeForm[ GrayLevel[0]], RGBColor[1, 1, 0], { PolygonBox[{{{1, 0}, {1, 1}, {0, 1}}}], PolygonBox[{{{2, 0}, {2, 1}, {1, 1}}}], PolygonBox[{{{1, 0}, {2, 0}, {1, 1}}}], PolygonBox[{{{2, 0}, {3, 1}, {2, 1}}}]}}, ImageSize -> {70, 40}], GraphicsBox[{ EdgeForm[ GrayLevel[0]], RGBColor[1, 1, 0], { PolygonBox[{{{1, 0}, {1, 1}, {0, 1}}}], PolygonBox[{{{2, 0}, {2, 1}, {1, 1}}}], PolygonBox[{{{1, 0}, {2, 0}, {1, 1}}}], PolygonBox[{{{2, 0}, {3, 0}, {2, 1}}}]}}, ImageSize -> {70, 40}], GraphicsBox[{ EdgeForm[ GrayLevel[0]], RGBColor[1, 1, 0], { PolygonBox[{{{1, 0}, {1, 1}, {0, 1}}}], PolygonBox[{{{2, 0}, {2, 1}, {1, 1}}}], PolygonBox[{{{1, 0}, {2, 0}, {1, 1}}}], PolygonBox[{{{2, -1}, {2, 0}, {1, 0}}}]}}, ImageSize -> {70, 40}], GraphicsBox[{ EdgeForm[ GrayLevel[0]], RGBColor[1, 1, 0], { PolygonBox[{{{0, 0}, {1, 0}, {1, 1}}}], PolygonBox[{{{2, 0}, {2, 1}, {1, 1}}}], PolygonBox[{{{1, 0}, {2, 0}, {1, 1}}}], PolygonBox[{{{1, -1}, {2, 0}, {1, 0}}}]}}, ImageSize -> {70, 40}], GraphicsBox[{ EdgeForm[ GrayLevel[0]], RGBColor[1, 1, 0], { PolygonBox[{{{1, 0}, {1, 1}, {0, 1}}}], PolygonBox[{{{0, 0}, {1, 0}, {0, 1}}}], PolygonBox[{{{2, 0}, {2, 1}, {1, 1}}}], PolygonBox[{{{1, 0}, {2, 0}, {1, 1}}}]}}, ImageSize -> {70, 40}], GraphicsBox[{ EdgeForm[ GrayLevel[0]], RGBColor[1, 1, 0], { PolygonBox[{{{1, 0}, {1, 1}, {0, 1}}}], PolygonBox[{{{1, 0}, {2, 0}, {1, 1}}}], PolygonBox[{{{2, -1}, {2, 0}, {1, 0}}}], PolygonBox[{{{2, -1}, {3, -1}, {2, 0}}}]}}, ImageSize -> {70, 40}]}, "RowDefault"]}, { InterpretationBox[ StyleBox[ GraphicsBox[{}, BaselinePosition->Baseline, ImageSize->{10, 0}], CacheGraphics->False], Spacer[10], Selectable->False]}, { RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], "}"}], "\[LeftDoubleBracket]", RowBox[{ "#1", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "\[RightDoubleBracket]"}], "+", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "#1", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{"-", RowBox[{ "#1", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", RowBox[{"{", "3", "}"}]}], "]"}]}], "}"}], "]"}], "&"}]}, { InterpretationBox[ StyleBox[ GraphicsBox[{}, BaselinePosition->Baseline, ImageSize->{10, 0}], CacheGraphics->False], Spacer[10], Selectable->False]}, { RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "3"}], "}"}]}], "}"}]}], "}"}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.706352272748909*^9},ExpressionUUID->"095600f6-a73d-41d9-a5a1-\ d14d06f7256d"] }, Open ]], Cell["", "Input", Editable->False, Selectable->False, Deletable->False, ShowCellBracket->False, CellBracketOptions->{"OverlapContent"->True}, CellFrameMargins->{{Inherited, Inherited}, {Inherited, 30}}, CellSize->{ Automatic, 1},ExpressionUUID->"7886fbaf-ff7e-4ca7-989a-86d6c1ad108e"], Cell["", "DataResourcePageBreak", CellFrameMargins->0, Background->RGBColor[ Rational[8, 255], Rational[23, 85], Rational[107, 255]],ExpressionUUID->"ac83b1e9-8b25-4228-a9fb-7d72c462e78a"] }, Open ]] }, Open ]] }, WindowSize->{784, 884}, WindowMargins->{{Automatic, 145}, {Automatic, 28}}, Visible->True, DockedCells->{}, FrontEndVersion->"11.1 for Linux x86 (64-bit) (April 18, 2017)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "CreateDataResourceStyleSheet.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 177, 2, 70, "DataResourceExamplesChapter", "ExpressionUUID" -> \ "04ea20a7-f817-4532-a7b2-bf49fefb6f8c"], Cell[CellGroupData[{ Cell[782, 28, 405, 11, 70, "Subsection", "ExpressionUUID" -> \ "7db49009-6ffc-438d-a004-40bc370003e0"], Cell[1190, 41, 227, 4, 70, "Text", "ExpressionUUID" -> \ "b8c90112-d84c-4f95-aaf8-81d801bad353", CellGroupingRules->"NormalGrouping"], Cell[CellGroupData[{ Cell[1442, 49, 517, 8, 70, "Input", "ExpressionUUID" -> \ "82fc4bd1-0e92-4967-8471-99eac61768bf"], Cell[1962, 59, 17822, 397, 70, "Output", "ExpressionUUID" -> \ "cdb2aab4-aa91-414b-acf5-acf79396b53f"] }, Open ]], Cell[19799, 459, 477, 7, 70, "Text", "ExpressionUUID" -> \ "da0c119e-2819-41ae-a135-cd5129b9bd03"], Cell[CellGroupData[{ Cell[20301, 470, 655, 12, 70, "Input", "ExpressionUUID" -> \ "0842a812-e81a-4dd3-b89b-13a7afdfefe6"], Cell[20959, 484, 19975, 498, 70, "Output", "ExpressionUUID" -> \ "afc167b0-6d8b-4b6d-a082-fc997e938e1d"] }, Open ]], Cell[40949, 985, 417, 6, 70, "Text", "ExpressionUUID" -> \ "9f61e18a-1dc7-411b-a776-bee92f1e86bf"], Cell[CellGroupData[{ Cell[41391, 995, 1023, 24, 70, "Input", "ExpressionUUID" -> \ "b9a15317-5efa-43dc-998c-9c585109a753"], Cell[42417, 1021, 18776, 405, 70, "Output", "ExpressionUUID" -> \ "89eafeb4-eb65-4ce4-b3f2-786b0a6b2b9a"] }, Open ]], Cell[61208, 1429, 549, 10, 70, "Text", "ExpressionUUID" -> \ "e0c496e1-ef10-4458-b494-009432fa46cd"], Cell[CellGroupData[{ Cell[61782, 1443, 597, 12, 70, "Input", "ExpressionUUID" -> \ "ebe8b7a2-595b-45b8-bfae-6e16b9e751b7"], Cell[62382, 1457, 825, 14, 70, "Output", "ExpressionUUID" -> \ "497b1a6c-cb49-4136-9219-d29442d7eb78"] }, Open ]], Cell[63222, 1474, 648, 11, 70, "Text", "ExpressionUUID" -> \ "312ec10e-d006-4666-be5e-1adb22159e01"], Cell[CellGroupData[{ Cell[63895, 1489, 2104, 48, 70, "Input", "ExpressionUUID" -> \ "4cbba55e-7ebc-4d0e-9522-e493a5255ca1"], Cell[66002, 1539, 12802, 344, 70, "Output", "ExpressionUUID" -> \ "095600f6-a73d-41d9-a5a1-d14d06f7256d"] }, Open ]], Cell[78819, 1886, 293, 8, 70, "Input", "ExpressionUUID" -> \ "7886fbaf-ff7e-4ca7-989a-86d6c1ad108e"], Cell[79115, 1896, 201, 5, 70, "DataResourcePageBreak", "ExpressionUUID" -> \ "ac83b1e9-8b25-4228-a9fb-7d72c462e78a"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)