(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 176706, 4621] NotebookOptionsPosition[ 173350, 4549] NotebookOutlinePosition[ 173787, 4566] CellTagsIndexPosition[ 173744, 4563] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Clear everything", "Chapter", CellChangeTimes->{{3.862653616870135*^9, 3.8626536230900435`*^9}},ExpressionUUID->"9b50b034-477c-4fda-8e65-\ b79531749baa"], Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ClearSystemCache", "[", "]"}], ";"}]}], "Input", CellLabel-> "In[101]:=",ExpressionUUID->"d37ad418-32df-4f78-893b-8e46dfa45d91"] }, Open ]], Cell[CellGroupData[{ Cell["Colors", "Chapter", CellChangeTimes->{{3.862653632953302*^9, 3.8626536367669773`*^9}},ExpressionUUID->"16bd4589-cb09-49c4-8838-\ f7773a9b905e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"hexToRGB", " ", "=", " ", RowBox[{ RowBox[{"RGBColor", "@@", RowBox[{"(", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{ RowBox[{ "#", "~", "StringDrop", "~", "1", "~", "FromDigits", "~", "16"}], ",", "256", ",", "3"}], "]"}], "/", "255."}], ")"}]}], "&"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"colors", "=", RowBox[{"{", RowBox[{ "\"\<#271bf2\>\"", ",", "\"\<#9bc4e2\>\"", ",", "\"\<#44ba7b\>\"", ",", "\"\<#ffaaaa\>\"", ",", "\"\<#F10809\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"colors", " ", "=", " ", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"hexToRGB", "@", "#1"}], "&"}], ",", "colors"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"motifB", "=", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Thickness", "[", "0.25", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"k", "+", "1"}], ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "2"}], ",", "2", ",", "1"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotRange", "->", "1"}], ",", RowBox[{"Background", "->", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"motifR", "=", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"Thickness", "[", "0.25", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"k", "+", "1"}], ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "2"}], ",", "2", ",", "1"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotRange", "->", "1"}], ",", RowBox[{"Background", "->", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"colorChange", "=", RowBox[{"{", RowBox[{ RowBox[{ GraphicsBox[ {RGBColor[1., 0.6666666666666666, 0.6666666666666666], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], "->", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PatternFilling", "[", RowBox[{"motifR", ",", RowBox[{"ImageScaled", "[", "1", "]"}]}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "20"}]}], "]"}]}], ",", RowBox[{ GraphicsBox[ {RGBColor[0.6078431372549019, 0.7686274509803921, 0.8862745098039215], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], "->", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PatternFilling", "[", RowBox[{"motifB", ",", RowBox[{"ImageScaled", "[", "1", "]"}]}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "20"}]}], "]"}]}]}], "}"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.862653643979624*^9, 3.862653651263876*^9}, { 3.862653948479532*^9, 3.862653966422763*^9}}, CellLabel-> "In[103]:=",ExpressionUUID->"0d243783-f545-4e51-85fb-becdf37fce98"], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[<| "color" -> RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372]|>, "RGBColorSwatchTemplate"], ",", TemplateBox[<| "color" -> RGBColor[ 0.6078431372549019, 0.7686274509803921, 0.8862745098039215]|>, "RGBColorSwatchTemplate"], ",", TemplateBox[<| "color" -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]|>, "RGBColorSwatchTemplate"], ",", TemplateBox[<| "color" -> RGBColor[1., 0.6666666666666666, 0.6666666666666666]|>, "RGBColorSwatchTemplate"], ",", TemplateBox[<| "color" -> RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882]|>, "RGBColorSwatchTemplate"]}], "}"}]], "Output", CellChangeTimes->{ 3.862653786095409*^9, {3.8626539503796554`*^9, 3.862653969302003*^9}}, CellLabel-> "Out[105]=",ExpressionUUID->"fdd7a867-c8f7-4424-88ec-db4dc1e99829"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ GraphicsBox[ {RGBColor[1., 0.6666666666666666, 0.6666666666666666], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], "\[Rule]", GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20]}], ",", RowBox[{ GraphicsBox[ {RGBColor[0.6078431372549019, 0.7686274509803921, 0.8862745098039215], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], "\[Rule]", GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20]}]}], "}"}]], "Output", CellChangeTimes->{ 3.862653786095409*^9, {3.8626539503796554`*^9, 3.8626539693360043`*^9}}, CellLabel-> "Out[108]=",ExpressionUUID->"2783621b-d1a7-4032-be7c-e45fade4aeb8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Percentages (data)", "Chapter", CellChangeTimes->{{3.862653657251655*^9, 3.862653660331855*^9}},ExpressionUUID->"e0697e96-8001-445a-84e6-\ 7539cab39b6e"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Figure", " ", "3", RowBox[{"(", "b", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p1dat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "50", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "35", ",", "35"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Figure", " ", "3", RowBox[{"(", "d", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2dat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "13", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "67", ",", "56"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "13", ",", "19"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Figure", " ", "3", RowBox[{"(", "f", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p3dat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "8", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "33", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "12", ",", "9"}], "}"}]}], "}"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.8626537446984324`*^9, 3.8626537735388346`*^9}}, CellLabel-> "In[109]:=",ExpressionUUID->"d2f21f5a-cdfa-4fcb-a30a-7cdb4304b5ba"] }, Open ]], Cell[CellGroupData[{ Cell["Figure 3 (b)", "Chapter", CellChangeTimes->{{3.862653807158386*^9, 3.8626538133405704`*^9}},ExpressionUUID->"45228ed1-3029-4aeb-841c-\ 68d7c8a1e714"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p1plot", "=", RowBox[{"ListPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p1dat", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"p1dat", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Joined", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"Filling", "->", "Axis"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", RowBox[{"Length", "@", "colors"}], "]"}], "]"}]}], "}"}]}], ","}], "*)"}], "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "55"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "->", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "20", ",", RowBox[{"hexToRGB", "@", "\"\<#875f9a\>\""}], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "52"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "20", ",", RowBox[{"hexToRGB", "@", "\"\<#e86100\>\""}], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "13"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<%\>\"", ",", "14"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.25"}], ",", "53"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.1"}], ",", RowBox[{"-", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.1", ",", RowBox[{"-", "0.6"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<-2\>\"", ",", "25", ",", TemplateBox[<| "color" -> RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882]|>, "RGBColorSwatchTemplate"], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2.1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<-1\>\"", ",", "25", ",", TemplateBox[<| "color" -> RGBColor[1., 0.6666666666666666, 0.6666666666666666]|>, "RGBColorSwatchTemplate"], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "2.1"}]}], "}"}]}], "]"}], ","}], "*)"}], "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<0\>\"", ",", "25", ",", TemplateBox[<| "color" -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]|>, "RGBColorSwatchTemplate"], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "2.1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<1\>\"", ",", "25", ",", TemplateBox[<| "color" -> RGBColor[ 0.6078431372549019, 0.7686274509803921, 0.8862745098039215]|>, "RGBColorSwatchTemplate"], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "2.1"}]}], "}"}]}], "]"}], ","}], "*)"}], "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<2\>\"", ",", "25", ",", TemplateBox[<| "color" -> RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372]|>, "RGBColorSwatchTemplate"], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "2.1"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotLabel", "\[Rule]", "\"\<95 participants online\>\""}], ",", "\[IndentingNewLine]", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontSize", "->", "20"}], ",", "Black"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", "1.1"}], ",", "\[IndentingNewLine]", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"-", "10"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"10", ",", "20", ",", "30", ",", "40", ",", "50"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"LightGray", ",", " ", RowBox[{"Dashing", "[", "0.005", "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRangeClipping", "->", "False"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"hexToRGB", "@", "\"\<#e86100\>\""}], ",", RowBox[{"hexToRGB", "@", "\"\<#875f9a\>\""}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGCQAmIQfej54Qvt+984CnRuuAqi19X33wPRbO26D0D0y7Rf n0F0/U+bbyD61t7Zeh1Aum3WZDMQfevbZ1sQXaDyyhNEFz1d7weiXcq3ZoDo t3/2bAPRUh/t9oLoJeZmB0H0hS+3joBozWexZ0D07IWLz4LoE/MvXATRwddt LoPolfzaD0D0dcfDT0D0U+m3L0C011St9yDaLjLrK1j91NXfQbRDiPofsPi6 ADD9Jet0fyfIP7cXTgDRL5YozAHRMae+zAPRXcmxCf1AetkMziQQ7XXB5T6I dnh++CGIrp79/RVYXu3VGxDN0GK6djKQnrBvGZj+FPlbpP4AUD70vASIZtlx QgVEi4Up6YDoXzW2xiDaZNIcGxCtkm/pBKL/L57jBaLXO97eF3bwjWOETvkB EF1iyqqzEkibdCXpgWgADEb0TQ== "], CellLabel-> "In[112]:=",ExpressionUUID->"06a552a1-2f8a-4441-8ee0-f9f7edd4e94b"], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQB2IQDQUHIJShA4T+sB9CKzgwoAAtmLw9hLaGyUPoBkcY /wCqPph5ImjmqaCZ54nLPDR96Objkh98/gEAwE8cbw== "], {{{}, {RGBColor[0.9098039215686274, 0.3803921568627451, 0.], Opacity[0.3], EdgeForm[None], GraphicsGroupBox[PolygonBox[{{1, 12, 13, 5, 4, 3, 2}}]]}, {}, {RGBColor[0.5294117647058824, 0.37254901960784315`, 0.6039215686274509], Opacity[0.3], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{6, 11, 10, 9, 8, 7}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {RGBColor[0.9098039215686274, 0.3803921568627451, 0.], PointSize[ 0.012833333333333334`], AbsoluteThickness[3], CapForm["Butt"], LineBox[{1, 2, 3, 4, 5}]}, {RGBColor[0.5294117647058824, 0.37254901960784315`, 0.6039215686274509], PointSize[0.012833333333333334`], AbsoluteThickness[3], CapForm[ "Butt"], LineBox[{6, 7, 8, 9, 10}]}}}], {{}, {}}}, AspectRatio->1.1, Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{ InsetBox[ BoxData[ FormBox[ StyleBox["\"Final\"", 20, RGBColor[ 0.5294117647058824, 0.37254901960784315`, 0.6039215686274509], Bold, StripOnInput -> False], TraditionalForm]], {1, 52}], InsetBox[ BoxData[ FormBox[ StyleBox["\"Initial\"", 20, RGBColor[0.9098039215686274, 0.3803921568627451, 0.], Bold, StripOnInput -> False], TraditionalForm]], {-1, 13}], InsetBox[ BoxData[ FormBox[ StyleBox["\"%\"", 14, StripOnInput -> False], TraditionalForm]], {-2.25, 53}], GrayLevel[1], RectangleBox[{-2.1, -4}, {2.1, -0.6}], InsetBox[ BoxData[ FormBox[ StyleBox["\"-2\"", 25, RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882], Bold, StripOnInput -> False], TraditionalForm]], {-2, -2.1}], InsetBox[ BoxData[ FormBox[ StyleBox["\"0\"", 25, RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], Bold, StripOnInput -> False], TraditionalForm]], {0, -2.1}], InsetBox[ BoxData[ FormBox[ StyleBox["\"2\"", 25, RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Bold, StripOnInput -> False], TraditionalForm]], {2, -2.1}]}, Frame->{{True, False}, {True, False}}, FrameLabel->{{ FormBox["\"\"", TraditionalForm], None}, { FormBox["\"x\"", TraditionalForm], None}}, FrameStyle->{{ StrokeForm[ Opacity[0]], StrokeForm[ Opacity[0]]}, {Automatic, None}}, FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[ (Charting`SimpleTicks[#, #2, 6]& )[ SlotSequence[1]], {Identity, Identity}]& , None}, { Charting`FindScaledTicks[ (Charting`SimpleTicks[#, #2, 6]& )[ SlotSequence[1]], {Identity, Identity}]& , None}}, {{{{0., FormBox["0", TraditionalForm], {0.01, 0.}}, {10., FormBox["10", TraditionalForm], {0.01, 0.}}, {20., FormBox["20", TraditionalForm], {0.01, 0.}}, {30., FormBox["30", TraditionalForm], {0.01, 0.}}, {40., FormBox["40", TraditionalForm], {0.01, 0.}}, {50., FormBox["50", TraditionalForm], {0.01, 0.}}}, None}, {{{-2., FormBox[ RowBox[{"-", "2"}], TraditionalForm], {0.01, 0.}}, {-1., FormBox[ RowBox[{"-", "1"}], TraditionalForm], {0.01, 0.}}, {0., FormBox["0", TraditionalForm], {0.01, 0.}}, {1., FormBox["1", TraditionalForm], {0.01, 0.}}, {2., FormBox["2", TraditionalForm], {0.01, 0.}}}, None}}], GridLines->{{-10}, {10, 20, 30, 40, 50}}, GridLinesStyle->Directive[ GrayLevel[0.85], Dashing[0.005]], ImageSize->Medium, LabelStyle->{FontSize -> 20, GrayLevel[0]}, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotLabel->FormBox["\"95 participants online\"", TraditionalForm], PlotRange->{{-2., 2.}, {0., 55.}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Charting`FindScaledTicks[ (Charting`SimpleTicks[#, #2, 6]& )[ SlotSequence[1]], {Identity, Identity}, RotateLabel -> 0]& , Charting`FindScaledTicks[ (Charting`SimpleTicks[#, #2, 6]& )[ SlotSequence[1]], {Identity, Identity}, RotateLabel -> 0]& }]], "Output", CellChangeTimes->{3.862653820203251*^9, 3.8626540033091817`*^9}, CellLabel-> "Out[112]=",ExpressionUUID->"eca066c3-a342-4057-968c-18c328723b6e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Figure 3(d)", "Chapter", CellChangeTimes->{{3.862653827201566*^9, 3.8626538295321536`*^9}},ExpressionUUID->"4f502e8b-42c8-4b75-a0de-\ 2bb10dee98ae"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p2plot", "=", RowBox[{"ListPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p2dat", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"p2dat", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Joined", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"Filling", "->", "Axis"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", RowBox[{"Length", "@", "colors"}], "]"}], "]"}]}], "}"}]}], ","}], "*)"}], "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "80"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "->", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "20", ",", RowBox[{"hexToRGB", "@", "\"\<#875f9a\>\""}], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "71"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "20", ",", RowBox[{"hexToRGB", "@", "\"\<#e86100\>\""}], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "12"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<10\>\"", ",", "20"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3"}], ",", "10"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<30\>\"", ",", "20"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3"}], ",", "30"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<50\>\"", ",", "20"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3"}], ",", "50"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<70\>\"", ",", "20"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3"}], ",", "70"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<%\>\"", ",", "14"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.25"}], ",", "85"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.1"}], ",", RowBox[{"-", "5.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.1", ",", RowBox[{"-", "0.6"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<-2\>\"", ",", "25", ",", TemplateBox[<| "color" -> RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882]|>, "RGBColorSwatchTemplate"], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "3.3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<-1\>\"", ",", "25", ",", TemplateBox[<| "color" -> RGBColor[1., 0.6666666666666666, 0.6666666666666666]|>, "RGBColorSwatchTemplate"], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "3.3"}]}], "}"}]}], "]"}], ","}], "*)"}], "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<0\>\"", ",", "25", ",", TemplateBox[<| "color" -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]|>, "RGBColorSwatchTemplate"], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "3.3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<1\>\"", ",", "25", ",", TemplateBox[<| "color" -> RGBColor[ 0.6078431372549019, 0.7686274509803921, 0.8862745098039215]|>, "RGBColorSwatchTemplate"], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "3.3"}]}], "}"}]}], "]"}], ","}], "*)"}], "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<2\>\"", ",", "25", ",", TemplateBox[<| "color" -> RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372]|>, "RGBColorSwatchTemplate"], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "3.3"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotLabel", "\[Rule]", "\"\<88 participants online\>\""}], ",", "\[IndentingNewLine]", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontSize", "->", "20"}], ",", "Black"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", "1.1"}], ",", "\[IndentingNewLine]", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"-", "10"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "10", ",", "20", ",", "30", ",", "40", ",", "50", ",", "60", ",", "70", ",", "80"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"LightGray", ",", " ", RowBox[{"Dashing", "[", "0.005", "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRangeClipping", "->", "False"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"hexToRGB", "@", "\"\<#e86100\>\""}], ",", RowBox[{"hexToRGB", "@", "\"\<#875f9a\>\""}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.858515946624221*^9, 3.858515985248192*^9}, { 3.8585160666090117`*^9, 3.8585161032148027`*^9}, {3.8585162232789493`*^9, 3.858516277494643*^9}, {3.8585163150738316`*^9, 3.858516378982216*^9}, { 3.8585165952748594`*^9, 3.8585166383868275`*^9}, {3.8585166719742384`*^9, 3.8585167217607126`*^9}, {3.8585167846847706`*^9, 3.858516794662589*^9}, { 3.858516991421841*^9, 3.858516994364995*^9}, {3.8585170711275854`*^9, 3.8585171032038713`*^9}, {3.858529975607667*^9, 3.8585300312940097`*^9}, { 3.858530070349428*^9, 3.8585301200118294`*^9}, {3.8585378417076817`*^9, 3.858537847721588*^9}, {3.8590203871051416`*^9, 3.8590204195217543`*^9}, { 3.8596304615698786`*^9, 3.859630468199439*^9}}, CellLabel-> "In[113]:=",ExpressionUUID->"4f74995d-dd59-43f1-8657-6efa4e54a865"], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGIQDQUHIJSCA4T+sB9CizgwoAAtmLw9hPaByUNpYxgf ah4HmnkC+M07EIBmHkweZh4coJlDrPzg8x8AAJUc8A== "], {{{}, {RGBColor[0.9098039215686274, 0.3803921568627451, 0.], Opacity[0.3], EdgeForm[None], GraphicsGroupBox[PolygonBox[{{1, 13, 14, 5, 4, 3, 2}}]]}, {}, {RGBColor[0.5294117647058824, 0.37254901960784315`, 0.6039215686274509], Opacity[0.3], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{6, 11, 12, 10, 9, 8, 7}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {RGBColor[0.9098039215686274, 0.3803921568627451, 0.], PointSize[ 0.012833333333333334`], AbsoluteThickness[3], CapForm["Butt"], LineBox[{1, 2, 3, 4, 5}]}, {RGBColor[0.5294117647058824, 0.37254901960784315`, 0.6039215686274509], PointSize[0.012833333333333334`], AbsoluteThickness[3], CapForm[ "Butt"], LineBox[{6, 7, 8, 9, 10}]}}}], {{}, {}}}, AspectRatio->1.1, Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{ InsetBox[ BoxData[ FormBox[ StyleBox["\"Final\"", 20, RGBColor[ 0.5294117647058824, 0.37254901960784315`, 0.6039215686274509], Bold, StripOnInput -> False], TraditionalForm]], {1, 71}], InsetBox[ BoxData[ FormBox[ StyleBox["\"Initial\"", 20, RGBColor[0.9098039215686274, 0.3803921568627451, 0.], Bold, StripOnInput -> False], TraditionalForm]], {-1, 12}], InsetBox[ BoxData[ FormBox[ StyleBox["\"10\"", 20, StripOnInput -> False], TraditionalForm]], {-2.3, 10}], InsetBox[ BoxData[ FormBox[ StyleBox["\"30\"", 20, StripOnInput -> False], TraditionalForm]], {-2.3, 30}], InsetBox[ BoxData[ FormBox[ StyleBox["\"50\"", 20, StripOnInput -> False], TraditionalForm]], {-2.3, 50}], InsetBox[ BoxData[ FormBox[ StyleBox["\"70\"", 20, StripOnInput -> False], TraditionalForm]], {-2.3, 70}], InsetBox[ BoxData[ FormBox[ StyleBox["\"%\"", 14, StripOnInput -> False], TraditionalForm]], {-2.25, 85}], GrayLevel[1], RectangleBox[{-2.1, -5.2}, {2.1, -0.6}], InsetBox[ BoxData[ FormBox[ StyleBox["\"-2\"", 25, RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882], Bold, StripOnInput -> False], TraditionalForm]], {-2, -3.3}], InsetBox[ BoxData[ FormBox[ StyleBox["\"0\"", 25, RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], Bold, StripOnInput -> False], TraditionalForm]], {0, -3.3}], InsetBox[ BoxData[ FormBox[ StyleBox["\"2\"", 25, RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Bold, StripOnInput -> False], TraditionalForm]], {2, -3.3}]}, Frame->{{True, False}, {True, False}}, FrameLabel->{{ FormBox["\"\"", TraditionalForm], None}, { FormBox["\"x\"", TraditionalForm], None}}, FrameStyle->{{ StrokeForm[ Opacity[0]], StrokeForm[ Opacity[0]]}, {Automatic, None}}, FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[ (Charting`SimpleTicks[#, #2, 6]& )[ SlotSequence[1]], {Identity, Identity}]& , None}, { Charting`FindScaledTicks[ (Charting`SimpleTicks[#, #2, 6]& )[ SlotSequence[1]], {Identity, Identity}]& , None}}, {{{{0., FormBox["0", TraditionalForm], {0.01, 0.}}, {20., FormBox["20", TraditionalForm], {0.01, 0.}}, {40., FormBox["40", TraditionalForm], {0.01, 0.}}, {60., FormBox["60", TraditionalForm], {0.01, 0.}}, {80., FormBox["80", TraditionalForm], {0.01, 0.}}}, None}, {{{-2., FormBox[ RowBox[{"-", "2"}], TraditionalForm], {0.01, 0.}}, {-1., FormBox[ RowBox[{"-", "1"}], TraditionalForm], {0.01, 0.}}, {0., FormBox["0", TraditionalForm], {0.01, 0.}}, {1., FormBox["1", TraditionalForm], {0.01, 0.}}, {2., FormBox["2", TraditionalForm], {0.01, 0.}}}, None}}], GridLines->{{-10}, {10, 20, 30, 40, 50, 60, 70, 80}}, GridLinesStyle->Directive[ GrayLevel[0.85], Dashing[0.005]], ImageSize->Medium, LabelStyle->{FontSize -> 20, GrayLevel[0]}, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotLabel->FormBox["\"88 participants online\"", TraditionalForm], PlotRange->{{-2., 2.}, {0., 80.}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Charting`FindScaledTicks[ (Charting`SimpleTicks[#, #2, 6]& )[ SlotSequence[1]], {Identity, Identity}, RotateLabel -> 0]& , Charting`FindScaledTicks[ (Charting`SimpleTicks[#, #2, 6]& )[ SlotSequence[1]], {Identity, Identity}, RotateLabel -> 0]& }]], "Output", CellChangeTimes->{3.862653838756483*^9, 3.862654005214507*^9}, CellLabel-> "Out[113]=",ExpressionUUID->"d3c303e7-612f-4d78-a725-2ec967a70d9e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Figure 3(f)", "Chapter", CellChangeTimes->{{3.862653840813485*^9, 3.862653847634143*^9}},ExpressionUUID->"aaa4cc8c-2fbf-4631-80de-\ f23dca33f97c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p3plot", "=", RowBox[{"ListPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p3dat", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"p3dat", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Joined", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"Filling", "->", "Axis"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", RowBox[{"Length", "@", "colors"}], "]"}], "]"}]}], "}"}]}], ","}], "*)"}], "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "35"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "->", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "20", ",", RowBox[{"hexToRGB", "@", "\"\<#875f9a\>\""}], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "34.5"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "20", ",", RowBox[{"hexToRGB", "@", "\"\<#e86100\>\""}], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "11"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<5\>\"", ",", "20"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.25"}], ",", "5"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<15\>\"", ",", "20"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3"}], ",", "15"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<25\>\"", ",", "20"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3"}], ",", "25"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<35\>\"", ",", "20"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3"}], ",", "35"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.1"}], ",", RowBox[{"-", "2.6"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.1", ",", RowBox[{"-", "0.2"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<-2\>\"", ",", "25", ",", TemplateBox[<| "color" -> RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882]|>, "RGBColorSwatchTemplate"], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1.48"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<-1\>\"", ",", "25", ",", TemplateBox[<| "color" -> RGBColor[1., 0.6666666666666666, 0.6666666666666666]|>, "RGBColorSwatchTemplate"], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1.48"}]}], "}"}]}], "]"}], ","}], "*)"}], "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<0\>\"", ",", "25", ",", TemplateBox[<| "color" -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]|>, "RGBColorSwatchTemplate"], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1.48"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<1\>\"", ",", "25", ",", TemplateBox[<| "color" -> RGBColor[ 0.6078431372549019, 0.7686274509803921, 0.8862745098039215]|>, "RGBColorSwatchTemplate"], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1.48"}]}], "}"}]}], "]"}], ","}], "*)"}], "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<2\>\"", ",", "25", ",", TemplateBox[<| "color" -> RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372]|>, "RGBColorSwatchTemplate"], ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1.48"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"\"\<57 participants\>\"", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontSize", "->", "20"}], ",", "Black"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", "1.1"}], ",", "\[IndentingNewLine]", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"-", "10"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "5", ",", "10", ",", "15", ",", "20", ",", "25", ",", "30", ",", "35"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"LightGray", ",", " ", RowBox[{"Dashing", "[", "0.005", "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRangeClipping", "->", "False"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"hexToRGB", "@", "\"\<#e86100\>\""}], ",", RowBox[{"hexToRGB", "@", "\"\<#875f9a\>\""}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.8585173450727644`*^9, 3.8585173694868174`*^9}, { 3.8585175200159173`*^9, 3.858517626986159*^9}, {3.8585177942071886`*^9, 3.858517829031728*^9}, {3.8585179434264736`*^9, 3.8585179832029543`*^9}, { 3.858518040364032*^9, 3.8585180408780317`*^9}, {3.8585290524005985`*^9, 3.858529058475995*^9}, {3.858529089441169*^9, 3.858529163891634*^9}, { 3.8585295175919943`*^9, 3.8585296741305733`*^9}, {3.858529857938755*^9, 3.858529962430256*^9}, {3.858537851547697*^9, 3.858537854519185*^9}, { 3.8590204274424224`*^9, 3.859020454872395*^9}, {3.859461690719674*^9, 3.8594616912373743`*^9}, {3.8596304732555504`*^9, 3.8596304803921394`*^9}}, CellLabel-> "In[114]:=",ExpressionUUID->"0319d57e-9808-4427-a80d-9b65105e5b1b"], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGIQDQUHIJSIA4T+sB9CSzgwoAA9mLw9hDaDyUNpJRgf ah4HmnkwfTCggGpegwOaeRpo5sEBmruIlR98/gMAdHcdoA== "], {{{}, {RGBColor[0.9098039215686274, 0.3803921568627451, 0.], Opacity[0.3], EdgeForm[None], GraphicsGroupBox[PolygonBox[{{1, 13, 14, 5, 4, 3, 2}}]]}, {}, {RGBColor[0.5294117647058824, 0.37254901960784315`, 0.6039215686274509], Opacity[0.3], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{6, 11, 12, 10, 9, 8, 7}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {RGBColor[0.9098039215686274, 0.3803921568627451, 0.], PointSize[ 0.012833333333333334`], AbsoluteThickness[3], CapForm["Butt"], LineBox[{1, 2, 3, 4, 5}]}, {RGBColor[0.5294117647058824, 0.37254901960784315`, 0.6039215686274509], PointSize[0.012833333333333334`], AbsoluteThickness[3], CapForm[ "Butt"], LineBox[{6, 7, 8, 9, 10}]}}}], {{}, {}}}, AspectRatio->1.1, Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{ InsetBox[ BoxData[ FormBox[ StyleBox["\"Final\"", 20, RGBColor[ 0.5294117647058824, 0.37254901960784315`, 0.6039215686274509], Bold, StripOnInput -> False], TraditionalForm]], {1, 34.5}], InsetBox[ BoxData[ FormBox[ StyleBox["\"Initial\"", 20, RGBColor[0.9098039215686274, 0.3803921568627451, 0.], Bold, StripOnInput -> False], TraditionalForm]], {-1, 11}], InsetBox[ BoxData[ FormBox[ StyleBox["\"5\"", 20, StripOnInput -> False], TraditionalForm]], {-2.25, 5}], InsetBox[ BoxData[ FormBox[ StyleBox["\"15\"", 20, StripOnInput -> False], TraditionalForm]], {-2.3, 15}], InsetBox[ BoxData[ FormBox[ StyleBox["\"25\"", 20, StripOnInput -> False], TraditionalForm]], {-2.3, 25}], InsetBox[ BoxData[ FormBox[ StyleBox["\"35\"", 20, StripOnInput -> False], TraditionalForm]], {-2.3, 35}], GrayLevel[1], RectangleBox[{-2.1, -2.6}, {2.1, -0.2}], InsetBox[ BoxData[ FormBox[ StyleBox["\"-2\"", 25, RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882], Bold, StripOnInput -> False], TraditionalForm]], {-2, -1.48}], InsetBox[ BoxData[ FormBox[ StyleBox["\"0\"", 25, RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], Bold, StripOnInput -> False], TraditionalForm]], {0, -1.48}], InsetBox[ BoxData[ FormBox[ StyleBox["\"2\"", 25, RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Bold, StripOnInput -> False], TraditionalForm]], {2, -1.48}]}, Frame->{{True, False}, {True, False}}, FrameLabel->{{ FormBox["\"\"", TraditionalForm], None}, { FormBox["\"x\"", TraditionalForm], None}}, FrameStyle->{{ StrokeForm[ Opacity[0]], StrokeForm[ Opacity[0]]}, {Automatic, None}}, FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[ (Charting`SimpleTicks[#, #2, 6]& )[ SlotSequence[1]], {Identity, Identity}]& , None}, { Charting`FindScaledTicks[ (Charting`SimpleTicks[#, #2, 6]& )[ SlotSequence[1]], {Identity, Identity}]& , None}}, {{{{0., FormBox["0", TraditionalForm], {0.01, 0.}}, {10., FormBox["10", TraditionalForm], {0.01, 0.}}, {20., FormBox["20", TraditionalForm], {0.01, 0.}}, {30., FormBox["30", TraditionalForm], {0.01, 0.}}}, None}, {{{-2., FormBox[ RowBox[{"-", "2"}], TraditionalForm], {0.01, 0.}}, {-1., FormBox[ RowBox[{"-", "1"}], TraditionalForm], {0.01, 0.}}, {0., FormBox["0", TraditionalForm], {0.01, 0.}}, {1., FormBox["1", TraditionalForm], {0.01, 0.}}, {2., FormBox["2", TraditionalForm], {0.01, 0.}}}, None}}], GridLines->{{-10}, {5, 10, 15, 20, 25, 30, 35}}, GridLinesStyle->Directive[ GrayLevel[0.85], Dashing[0.005]], ImageSize->Medium, LabelStyle->{FontSize -> 20, GrayLevel[0]}, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ RowBox[{"\"57 participants\"", " ", StyleBox["\"offline\"", Bold, StripOnInput -> False]}], TraditionalForm], PlotRange->{{-2., 2.}, {0., 35.}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Charting`FindScaledTicks[ (Charting`SimpleTicks[#, #2, 6]& )[ SlotSequence[1]], {Identity, Identity}, RotateLabel -> 0]& , Charting`FindScaledTicks[ (Charting`SimpleTicks[#, #2, 6]& )[ SlotSequence[1]], {Identity, Identity}, RotateLabel -> 0]& }]], "Output", CellChangeTimes->{3.8626538590527253`*^9, 3.8626540074368052`*^9}, CellLabel-> "Out[114]=",ExpressionUUID->"b76fb1ff-fdbb-43e8-a234-642685b9edeb"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Color bar", "Chapter", CellChangeTimes->{{3.862653875755536*^9, 3.8626538791006184`*^9}},ExpressionUUID->"434dfd58-1c09-4e70-8e1b-\ 3e21a15c15cc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"colorbar", "=", RowBox[{"Grid", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<(strongly pro)\>\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "20"}]}], "]"}], ",", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PatternFilling", "[", RowBox[{"motifB", ",", RowBox[{"ImageScaled", "[", "1", "]"}]}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "20"}]}], "]"}], ",", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "20"}]}], "]"}], ",", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PatternFilling", "[", RowBox[{"motifR", ",", RowBox[{"ImageScaled", "[", "1", "]"}]}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "20"}]}], "]"}], ",", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "20"}]}], "]"}], ",", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<(strongly anti)\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"Left", ",", "Center"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{"0.2", ",", " ", "0.2"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ItemStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "->", "20"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.8626538912924075`*^9, 3.8626538919417143`*^9}, { 3.862653961140719*^9, 3.862653962431342*^9}}, CellLabel-> "In[115]:=",ExpressionUUID->"adfa3f2e-fbc9-447e-9170-9aa601a22a6a"], Cell[BoxData[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"(strongly pro)\"\>"}, { GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], "\<\"x = 2\"\>"}, { GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], "\<\"x = 1\"\>"}, { GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], "\<\"x = 0\"\>"}, { GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], "\<\"x = -1\"\>"}, { GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], "\<\"x = -2\"\>"}, {"\<\"\"\>", "\<\"(strongly anti)\"\>"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxItemStyle->{ "Columns" -> {{FontFamily -> "Helvetica"}}, "Rows" -> {{FontSize -> 20}}}, GridBoxSpacings->{"Columns" -> {{0.2}}, "Rows" -> {{0.2}}}], "Grid"]], "Output", CellChangeTimes->{3.8626538924770646`*^9, 3.862654010888593*^9}, CellLabel-> "Out[115]=",ExpressionUUID->"f578d8dc-6235-49a7-bcfb-a115568dc9a0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Figure 3(c)", "Chapter", CellChangeTimes->{{3.862653917030746*^9, 3.862653919518572*^9}},ExpressionUUID->"a64d86f1-0c51-4bf1-be34-\ ba9aa7c08611"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"mat1", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mat1edit", "=", RowBox[{ RowBox[{"MapThread", "[", RowBox[{"Prepend", ",", RowBox[{"{", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "20"}]}], "]"}], "&"}], ",", "mat1", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\"\<\>\"", ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}]}], "}"}]}], "}"}]}], "]"}], "/.", "colorChange"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"g1", "=", RowBox[{"Grid", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Reverse", "/@", "mat1edit"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"Center", ",", "Center"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{"0.5", ",", " ", "0.2"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ItemStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "->", "20"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "None", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "None", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellChangeTimes->{{3.85853859915176*^9, 3.858538816083152*^9}, { 3.8585388822600236`*^9, 3.8585389196913233`*^9}, {3.8585389620679054`*^9, 3.858539051645364*^9}, {3.8585390837200737`*^9, 3.858539144084795*^9}, { 3.858539359444458*^9, 3.858539471168755*^9}, {3.859630016053632*^9, 3.859630029416882*^9}, {3.859630183293208*^9, 3.8596301913304424`*^9}, { 3.862653931921586*^9, 3.862653933476034*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"7836d33b-d629-48c4-93c4-74197a275f7f"], Cell[BoxData[ TagBox[GridBox[{ {"5", GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20]}, {"4", GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20]}, {"3", GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20]}, {"2", GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20]}, {"1", GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20]}, {"\<\"\"\>", RotationBox["\<\"Group 1\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 2\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 3\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 4\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 5\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 6\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 7\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 8\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 9\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 10\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 11\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 12\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 13\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 14\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 15\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 16\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 17\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 18\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 19\"\>", BoxRotation->1.5707963267948966`]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxDividers->{ "Columns" -> { None, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True}, "Rows" -> {None, True, True, True, True, True}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxItemStyle->{ "Columns" -> {{FontFamily -> "Helvetica"}}, "Rows" -> {{FontSize -> 20}}}, GridBoxSpacings->{"Columns" -> {{0.5}}, "Rows" -> {{0.2}}}], "Grid"]], "Output", CellChangeTimes->{3.862653934597114*^9, 3.862654014610302*^9}, CellLabel-> "Out[118]=",ExpressionUUID->"0fc497ee-ac1c-44d1-9708-fe330ac29292"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Figure 3(e)", "Chapter", CellChangeTimes->{{3.8626540183181953`*^9, 3.862654026163172*^9}},ExpressionUUID->"29ec5c31-360e-4621-b0c5-\ c36e64d01f1a"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"mat2", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"colors", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "White", ",", "White"}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mat2edit", "=", RowBox[{ RowBox[{"MapThread", "[", RowBox[{"Prepend", ",", RowBox[{"{", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "20"}]}], "]"}], "&"}], ",", "mat2", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\"\<\>\"", ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{"\"\\"", ",", RowBox[{"90", " ", "Degree"}]}], "]"}]}], "}"}]}], "}"}]}], "]"}], "/.", "colorChange"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"g2", "=", RowBox[{"Grid", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Reverse", "/@", "mat2edit"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"Center", ",", "Center"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{"0.5", ",", " ", "0.2"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ItemStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "->", "20"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "None", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "None", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellChangeTimes->{{3.8590214565454226`*^9, 3.8590215910428505`*^9}, 3.8596304169310994`*^9, {3.862654042751666*^9, 3.862654043642702*^9}}, CellLabel-> "In[119]:=",ExpressionUUID->"432e1dc5-0f0f-439d-bdbc-7b041a3ffe29"], Cell[BoxData[ TagBox[GridBox[{ {"5", GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {GrayLevel[1], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20]}, {"4", GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {GrayLevel[1], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20]}, {"3", GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20]}, {"2", GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.9450980392156862, 0.03137254901960784, 0.03529411764705882], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20]}, {"1", GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.26666666666666666`, 0.7294117647058823, 0.4823529411764706], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {SurfaceAppearance[ "PatternFilling", "Density" -> {0.26, 0.26}, "Offset" -> {0, 0}, "ScaledSize" -> 1, "Arguments" -> { ImageScaled[1], {0, 0}}, Texture[ FormBox[ GraphicsBox[{ RGBColor[ 0.15294117647058825`, 0.10588235294117647`, 0.9490196078431372], Thickness[0.25], LineBox[{{{-2, -1}, {-1, 1}}, {{-1, -1}, {0, 1}}, {{0, -1}, {1, 1}}, {{1, -1}, {2, 1}}, {{2, -1}, {3, 1}}}]}, PlotRange -> 1, Background -> RGBColor[ 0.26666666666666666`, 0.7294117647058823, 0.4823529411764706]], TraditionalForm]]], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20], GraphicsBox[ {RGBColor[0.9450980392156862, 0.03137254901960784, 0.03529411764705882], RectangleBox[{0, 0}, {1, 3}]}, ImageSize->20]}, {"\<\"\"\>", RotationBox["\<\"Group 1\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 2\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 3\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 4\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 5\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 6\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 7\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 8\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 9\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 10\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 11\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 12\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 13\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 14\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 15\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 16\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 17\"\>", BoxRotation->1.5707963267948966`], RotationBox["\<\"Group 18\"\>", BoxRotation->1.5707963267948966`]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxDividers->{ "Columns" -> { None, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True}, "Rows" -> {None, True, True, True, True, True}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxItemStyle->{ "Columns" -> {{FontFamily -> "Helvetica"}}, "Rows" -> {{FontSize -> 20}}}, GridBoxSpacings->{"Columns" -> {{0.5}}, "Rows" -> {{0.2}}}], "Grid"]], "Output", CellChangeTimes->{3.862654045157595*^9}, CellLabel-> "Out[121]=",ExpressionUUID->"920eee53-015e-4236-8dd3-0a1c63a81ae3"] }, Open ]] }, Open ]] }, WindowSize->{608.25, 719.25}, WindowMargins->{{Automatic, 24}, {Automatic, 3}}, Magnification:>0.75 Inherited, FrontEndVersion->"13.0 for Microsoft Windows (64-bit) (December 2, 2021)", StyleDefinitions->"Default.nb", ExpressionUUID->"e922e81c-1ce5-493d-afe6-83292e7e2b87" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 163, 3, 51, "Chapter",ExpressionUUID->"9b50b034-477c-4fda-8e65-b79531749baa"], Cell[746, 27, 265, 7, 36, "Input",ExpressionUUID->"d37ad418-32df-4f78-893b-8e46dfa45d91"] }, Open ]], Cell[CellGroupData[{ Cell[1048, 39, 153, 3, 51, "Chapter",ExpressionUUID->"16bd4589-cb09-49c4-8838-f7773a9b905e"], Cell[CellGroupData[{ Cell[1226, 46, 4440, 131, 309, "Input",ExpressionUUID->"0d243783-f545-4e51-85fb-becdf37fce98"], Cell[5669, 179, 959, 25, 25, "Output",ExpressionUUID->"fdd7a867-c8f7-4424-88ec-db4dc1e99829"], Cell[6631, 206, 2061, 54, 58, "Output",ExpressionUUID->"2783621b-d1a7-4032-be7c-e45fade4aeb8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8741, 266, 163, 3, 51, "Chapter",ExpressionUUID->"e0697e96-8001-445a-84e6-7539cab39b6e"], Cell[8907, 271, 2211, 65, 93, "Input",ExpressionUUID->"d2f21f5a-cdfa-4fcb-a30a-7cdb4304b5ba"] }, Open ]], Cell[CellGroupData[{ Cell[11155, 341, 159, 3, 51, "Chapter",ExpressionUUID->"45228ed1-3029-4aeb-841c-68d7c8a1e714"], Cell[CellGroupData[{ Cell[11339, 348, 7179, 186, 410, "Input",ExpressionUUID->"06a552a1-2f8a-4441-8ee0-f9f7edd4e94b"], Cell[18521, 536, 4897, 125, 326, "Output",ExpressionUUID->"eca066c3-a342-4057-968c-18c328723b6e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23467, 667, 158, 3, 51, "Chapter",ExpressionUUID->"4f502e8b-42c8-4b75-a0de-2bb10dee98ae"], Cell[CellGroupData[{ Cell[23650, 674, 8576, 220, 468, "Input",ExpressionUUID->"4f74995d-dd59-43f1-8657-6efa4e54a865"], Cell[32229, 896, 5405, 144, 334, "Output",ExpressionUUID->"d3c303e7-612f-4d78-a725-2ec967a70d9e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37683, 1046, 156, 3, 51, "Chapter",ExpressionUUID->"aaa4cc8c-2fbf-4631-80de-f23dca33f97c"], Cell[CellGroupData[{ Cell[37864, 1053, 8348, 216, 453, "Input",ExpressionUUID->"0319d57e-9808-4427-a80d-9b65105e5b1b"], Cell[46215, 1271, 5288, 140, 326, "Output",ExpressionUUID->"b76fb1ff-fdbb-43e8-a234-642685b9edeb"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[51552, 1417, 156, 3, 51, "Chapter",ExpressionUUID->"434dfd58-1c09-4e70-8e1b-3e21a15c15cc"], Cell[CellGroupData[{ Cell[51733, 1424, 4203, 109, 236, "Input",ExpressionUUID->"adfa3f2e-fbc9-447e-9170-9aa601a22a6a"], Cell[55939, 1535, 2749, 70, 276, "Output",ExpressionUUID->"f578d8dc-6235-49a7-bcfb-a115568dc9a0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[58737, 1611, 156, 3, 51, "Chapter",ExpressionUUID->"a64d86f1-0c51-4bf1-be34-ba9aa7c08611"], Cell[CellGroupData[{ Cell[58918, 1618, 14315, 363, 592, "Input",ExpressionUUID->"7836d33b-d629-48c4-93c4-74197a275f7f"], Cell[73236, 1983, 38174, 983, 307, "Output",ExpressionUUID->"0fc497ee-ac1c-44d1-9708-fe330ac29292"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[111459, 2972, 158, 3, 51, "Chapter",ExpressionUUID->"29ec5c31-360e-4621-b0c5-c36e64d01f1a"], Cell[CellGroupData[{ Cell[111642, 2979, 13309, 339, 578, "Input",ExpressionUUID->"432e1dc5-0f0f-439d-bdbc-7b041a3ffe29"], Cell[124954, 3320, 48368, 1225, 333, "Output",ExpressionUUID->"920eee53-015e-4236-8dd3-0a1c63a81ae3"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)