(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 1029535, 23443] NotebookOptionsPosition[ 882249, 20584] NotebookOutlinePosition[ 1004808, 22938] CellTagsIndexPosition[ 1003778, 22906] WindowTitle->PolygonMarker | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["PolygonMarker", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->778310631], Cell["\<\ Create markers carefully designed for creation of publication-quality plots\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->42562060], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolygonMarker", "[", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolygonMarker", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolygonMarker", "[", "All", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolygonMarker", "[", "name_String", "]"}], " ", ":=", " ", RowBox[{"Polygon", "[", RowBox[{"coords", "[", "name", "]"}], "]"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{"name_String", ",", " ", RowBox[{ RowBox[{"(", "size_", ")"}], "?", "NumericQ"}]}], "]"}], " ", ":=", " ", RowBox[{"Polygon", "[", RowBox[{"size", "*", RowBox[{"coords", "[", "name", "]"}]}], "]"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{"name_String", ",", " ", RowBox[{ RowBox[{"(", RowBox[{"h", ":", RowBox[{"Scaled", " ", "|", " ", "Offset"}]}], ")"}], "[", RowBox[{ RowBox[{"(", "size_", ")"}], "?", "NumericQ"}], "]"}]}], "]"}], " ", ":=", " ", RowBox[{"Polygon", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"h", "[", RowBox[{ RowBox[{"size", "*", "#1"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}]}], "]"}], " ", "&"}], " ", ")"}], " ", "/@", " ", RowBox[{"coords", "[", "name", "]"}]}], "]"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{"coords", ":", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"_", "?", "NumericQ"}], ",", " ", RowBox[{"_", "?", "NumericQ"}]}], "}"}], ".."}], "}"}]}], "]"}], " ", "/;", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"SimplePolygonQ", "[", RowBox[{"Polygon", "[", "coords", "]"}], "]"}], ",", " ", "True", ",", " ", RowBox[{ RowBox[{"Message", "[", RowBox[{"PolygonMarker", "::", "nonsimple"}], "]"}], ";", " ", "False"}]}], "]"}]}], " ", ":=", " ", RowBox[{"PolygonMarker", "[", RowBox[{"coords", ",", " ", "1"}], "]"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{ RowBox[{"coords", ":", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"_", "?", "NumericQ"}], ",", " ", RowBox[{"_", "?", "NumericQ"}]}], "}"}], ".."}], "}"}]}], ",", " ", RowBox[{ RowBox[{"(", "size_", ")"}], "?", "NumericQ"}]}], "]"}], " ", "/;", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"SimplePolygonQ", "[", RowBox[{"Polygon", "[", "coords", "]"}], "]"}], ",", " ", "True", ",", " ", RowBox[{ RowBox[{"Message", "[", RowBox[{"PolygonMarker", "::", "nonsimple"}], "]"}], ";", " ", "False"}]}], "]"}]}], " ", ":=", " ", RowBox[{"Polygon", "[", RowBox[{"size", "*", RowBox[{"N", "[", RowBox[{ RowBox[{"scale", "[", RowBox[{"Transpose", "[", RowBox[{ RowBox[{"Transpose", "[", "coords", "]"}], " ", "-", " ", RowBox[{"PolygonCentroid", "[", "coords", "]"}]}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"16", ",", " ", "16"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{ RowBox[{"coords", ":", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"_", "?", "NumericQ"}], ",", " ", RowBox[{"_", "?", "NumericQ"}]}], "}"}], ".."}], "}"}]}], ",", " ", RowBox[{"Scaled", "[", RowBox[{ RowBox[{"(", "size_", ")"}], "?", "NumericQ"}], "]"}]}], "]"}], " ", "/;", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"SimplePolygonQ", "[", RowBox[{"Polygon", "[", "coords", "]"}], "]"}], ",", " ", "True", ",", " ", RowBox[{ RowBox[{"Message", "[", RowBox[{"PolygonMarker", "::", "nonsimple"}], "]"}], ";", " ", "False"}]}], "]"}]}], " ", ":=", " ", RowBox[{"Polygon", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Scaled", "[", RowBox[{ RowBox[{"size", "*", "#1"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}]}], "]"}], " ", "&"}], " ", ")"}], " ", "/@", " ", RowBox[{"N", "[", RowBox[{ RowBox[{"scale", "[", RowBox[{"Transpose", "[", RowBox[{ RowBox[{"Transpose", "[", "coords", "]"}], " ", "-", " ", RowBox[{"PolygonCentroid", "[", "coords", "]"}]}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"16", ",", " ", "16"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{ RowBox[{"arg", ":", RowBox[{"_String", " ", "|", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"_", "?", "NumericQ"}], ",", " ", RowBox[{"_", "?", "NumericQ"}]}], "}"}], ".."}], "}"}]}]}], ",", " ", RowBox[{"size", ":", RowBox[{ RowBox[{"_", "?", "NumericQ"}], " ", "|", " ", RowBox[{ RowBox[{"(", RowBox[{"Scaled", " ", "|", " ", "Offset"}], ")"}], "[", RowBox[{"_", "?", "NumericQ"}], "]"}]}]}], ",", " ", RowBox[{"positions", ":", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"_", "?", "NumericQ"}], ",", " ", RowBox[{"_", "?", "NumericQ"}]}], "}"}], " ", "|", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"_", "?", "NumericQ"}], ",", " ", RowBox[{"_", "?", "NumericQ"}]}], "}"}], ".."}], "}"}]}]}]}], "]"}], " ", ":=", " ", RowBox[{"Translate", "[", RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{"arg", ",", " ", "size"}], "]"}], ",", " ", "positions"}], "]"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{"shape_", ",", " ", "size_", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", "g___", "}"}], ",", " ", RowBox[{"{", "primitives___", "}"}]}], "}"}]}], "]"}], " ", ":=", " ", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"p", " ", "=", " ", RowBox[{"PolygonMarker", "[", RowBox[{"shape", ",", " ", "size"}], "]"}]}], "}"}], ",", " ", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"g", ",", " ", "p"}], "}"}], ",", " ", RowBox[{"{", "primitives", "}"}]}], "}"}], ",", " ", RowBox[{"AlignmentPoint", " ", "->", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}]}], ",", " ", RowBox[{"ImagePadding", " ", "->", " ", "All"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", "All"}]}], "]"}], " ", "/;", " ", RowBox[{ RowBox[{"Head", "[", "p", "]"}], " ", "===", " ", "Polygon"}]}]}], "]"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{"shape_", ",", " ", "size_", ",", " ", RowBox[{"{", "g___", "}"}]}], "]"}], " ", ":=", " ", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"p", " ", "=", " ", RowBox[{"PolygonMarker", "[", RowBox[{"shape", ",", " ", "size"}], "]"}]}], "}"}], ",", " ", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"g", ",", " ", "p"}], "}"}], ",", " ", RowBox[{"AlignmentPoint", " ", "->", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0"}], "}"}]}], ",", " ", RowBox[{"ImagePadding", " ", "->", " ", "All"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", "All"}]}], "]"}], " ", "/;", " ", RowBox[{ RowBox[{"Head", "[", "p", "]"}], " ", "===", " ", "Polygon"}]}]}], "]"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{"shape_", ",", " ", "size_", ",", " ", "g_"}], "]"}], " ", ":=", " ", RowBox[{"PolygonMarker", "[", RowBox[{"shape", ",", " ", "size", ",", " ", RowBox[{"{", "g", "}"}]}], "]"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{"shape_", ",", " ", "size_", ",", " ", "style_", ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"gr", " ", "=", " ", RowBox[{"PolygonMarker", "[", RowBox[{"shape", ",", " ", "size", ",", " ", "style"}], "]"}]}], "}"}], ",", " ", RowBox[{ RowBox[{"Show", "[", RowBox[{"gr", ",", " ", "opts"}], "]"}], " ", "/;", " ", RowBox[{ RowBox[{"Head", "[", "gr", "]"}], " ", "===", " ", "Graphics"}]}]}], "]"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Options", "[", "PolygonMarker", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"AlignmentPoint", " ", "->", " ", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", " ", RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"Axes", " ", "->", " ", "False"}], ",", " ", RowBox[{"AxesLabel", " ", "->", " ", "None"}], ",", " ", RowBox[{"AxesOrigin", " ", "->", " ", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", " ", RowBox[{"AxesStyle", " ", "->", " ", RowBox[{"{", "}"}]}], ",", " ", RowBox[{"Background", " ", "->", " ", "None"}], ",", " ", RowBox[{"BaselinePosition", " ", "->", " ", "Axis"}], ",", " ", RowBox[{"BaseStyle", " ", "->", " ", RowBox[{"{", "}"}]}], ",", " ", RowBox[{"ContentSelectable", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"CoordinatesToolOptions", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"DisplayFunction", " ", ":>", " ", "Identity"}], ",", " ", RowBox[{"Epilog", " ", "->", " ", RowBox[{"{", "}"}]}], ",", " ", RowBox[{"FormatType", " ", ":>", " ", "TraditionalForm"}], ",", " ", RowBox[{"Frame", " ", "->", " ", "False"}], ",", " ", RowBox[{"FrameLabel", " ", "->", " ", "None"}], ",", " ", RowBox[{"FrameStyle", " ", "->", " ", RowBox[{"{", "}"}]}], ",", " ", RowBox[{"FrameTicks", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"FrameTicksStyle", " ", "->", " ", RowBox[{"{", "}"}]}], ",", " ", RowBox[{"GridLines", " ", "->", " ", "None"}], ",", " ", RowBox[{"GridLinesStyle", " ", "->", " ", RowBox[{"{", "}"}]}], ",", " ", RowBox[{"ImageMargins", " ", "->", " ", "0."}], ",", " ", RowBox[{"ImagePadding", " ", "->", " ", "All"}], ",", " ", RowBox[{"ImageSize", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"ImageSizeRaw", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"LabelStyle", " ", "->", " ", RowBox[{"{", "}"}]}], ",", " ", RowBox[{"Method", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"PlotLabel", " ", "->", " ", "None"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", "All"}], ",", " ", RowBox[{"PlotRangeClipping", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotRangePadding", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"PlotRegion", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"PreserveImageOptions", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"Prolog", " ", "->", " ", RowBox[{"{", "}"}]}], ",", " ", RowBox[{"RotateLabel", " ", "->", " ", "True"}], ",", " ", RowBox[{"Ticks", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"TicksStyle", " ", "->", " ", RowBox[{"{", "}"}]}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SyntaxInformation", "[", "PolygonMarker", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"_", ",", " ", "_.", ",", " ", "_.", ",", " ", RowBox[{"OptionsPattern", "[", "]"}]}], "}"}]}], "}"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"PolygonMarker", "::", "nonsimple"}], " ", "=", " ", "\"\\""}], ";"}]}], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8364267634663396`*^9, 3.836426787992901*^9}, { 3.836426901257137*^9, 3.8364269021392384`*^9}, {3.836426976848621*^9, 3.8364269771606426`*^9}, 3.836427012423807*^9, {3.8364271432753077`*^9, 3.8364271631767955`*^9}}, CellID->995464468], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.6532814824381882639283215867135935767918805941746347637744`36.", ",", " ", "\n", " ", "0.6532814824381882639283215867135935767918805941746347637744`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.3826834323650897717284599840303988667613445624856270414338`36.", ",", " ", "0"}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.6532814824381882639283215867135935767918805941746347637744`36.", ",", " ", RowBox[{ "-", "0.6532814824381882639283215867135935767918805941746347637744`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.3826834323650897717284599840303988667613445624856270414338`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6532814824381882639283215867135935767918805941746347637744`36.\ "}], ",", " ", RowBox[{ "-", "0.6532814824381882639283215867135935767918805941746347637744`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3826834323650897717284599840303988667613445624856270414338`36.\ "}], ",", " ", "0"}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6532814824381882639283215867135935767918805941746347637744`36.\ "}], ",", " ", "0.6532814824381882639283215867135935767918805941746347637744`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0.3826834323650897717284599840303988667613445624856270414338`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.7598356856515925473311877506545453353967734488873103186113`36.", ",", " ", "\n", " ", "0.4386913376508308202730729672656663517200228634019407255773`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.8773826753016616405461459345313327034400457268038814511547`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.7598356856515925473311877506545453353967734488873103186113`36.\ "}], ",", " ", "0.4386913376508308202730729672656663517200228634019407255773`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2298504216904915304888170049522476500622063317866047033039`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.5924050462173373427833838991114954642627085437988112164592`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.2298504216904915304888170049522476500622063317866047033039`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.5924050462173373427833838991114954642627085437988112164592`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6279630301995543759060666725732481424770939724634101328583`36.", ",", " ", "\n", " ", "0.0971462188541372486830671157452474859239104515610028934524`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.3981126085090628454172496676210004924148876406768054295545`36.", ",", " ", "\n", " ", "0.4952588273632000941003167833662479783387980922378083230069`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3981126085090628454172496676210004924148876406768054295545`36.\ "}], ",", " ", "\n", " ", "0.4952588273632000941003167833662479783387980922378083230069`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6279630301995543759060666725732481424770939724634101328583`36.\ "}], ",", " ", "\n", " ", "0.0971462188541372486830671157452474859239104515610028934524`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "-", "0.0843090331982327712556251873613499319076736988000757317267`36.\ "}], ",", " ", "\n", " ", "0.8430903319823277125562518736134993190767369880007573172667`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.0843090331982327712556251873613499319076736988000757317267`36.", ",", " ", "\n", " ", "0.8430903319823277125562518736134993190767369880007573172667`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.0843090331982327712556251873613499319076736988000757317267`36.", ",", " ", "\n", " ", "0.2035400113777370736536919466873968114985163461638906477935`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.5365394018077693607913004169672109581587919131371671223005`36.", ",", " ", "\n", " ", "0.6557703799872736631893671762932578377496345605009820383673`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6557703799872736631893671762932578377496345605009820383673`36.", ",", " ", "\n", " ", "0.5365394018077693607913004169672109581587919131371671223005`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.2035400113777370736536919466873968114985163461638906477935`36.", ",", " ", "\n", " ", "0.0843090331982327712556251873613499319076736988000757317267`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.8430903319823277125562518736134993190767369880007573172667`36.", ",", " ", "\n", " ", "0.0843090331982327712556251873613499319076736988000757317267`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.8430903319823277125562518736134993190767369880007573172667`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.0843090331982327712556251873613499319076736988000757317267`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.2035400113777370736536919466873968114985163461638906477935`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.0843090331982327712556251873613499319076736988000757317267`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6557703799872736631893671762932578377496345605009820383673`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.5365394018077693607913004169672109581587919131371671223005`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.5365394018077693607913004169672109581587919131371671223005`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.6557703799872736631893671762932578377496345605009820383673`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.0843090331982327712556251873613499319076736988000757317267`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.2035400113777370736536919466873968114985163461638906477935`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.0843090331982327712556251873613499319076736988000757317267`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.8430903319823277125562518736134993190767369880007573172667`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.0843090331982327712556251873613499319076736988000757317267`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.8430903319823277125562518736134993190767369880007573172667`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.0843090331982327712556251873613499319076736988000757317267`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.2035400113777370736536919466873968114985163461638906477935`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.5365394018077693607913004169672109581587919131371671223005`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.6557703799872736631893671762932578377496345605009820383673`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6557703799872736631893671762932578377496345605009820383673`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.5365394018077693607913004169672109581587919131371671223005`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2035400113777370736536919466873968114985163461638906477935`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.0843090331982327712556251873613499319076736988000757317267`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.8430903319823277125562518736134993190767369880007573172667`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.0843090331982327712556251873613499319076736988000757317267`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.8430903319823277125562518736134993190767369880007573172667`36.\ "}], ",", " ", "\n", " ", "0.0843090331982327712556251873613499319076736988000757317267`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2035400113777370736536919466873968114985163461638906477935`36.\ "}], ",", " ", "\n", " ", "0.0843090331982327712556251873613499319076736988000757317267`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6557703799872736631893671762932578377496345605009820383673`36.\ "}], ",", " ", "\n", " ", "0.5365394018077693607913004169672109581587919131371671223005`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.5365394018077693607913004169672109581587919131371671223005`36.\ "}], ",", " ", "\n", " ", "0.6557703799872736631893671762932578377496345605009820383673`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.0843090331982327712556251873613499319076736988000757317267`36.\ "}], ",", " ", "\n", " ", "0.2035400113777370736536919466873968114985163461638906477935`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1036293966003980774198025688538220738917419959794603353795`36.\ "}], ",", " ", "\n", " ", "1.0362939660039807741980256885382207389174199597946033537956`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1036293966003980774198025688538220738917419959794603353795`36.", ",", " ", "\n", " ", "1.0362939660039807741980256885382207389174199597946033537956`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1036293966003980774198025688538220738917419959794603353795`36.", ",", " ", "\n", " ", "0.142633627910124808021864244029488163685210249423897278576`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.9535508844990898546643029882274716947055586480957330428521`36.", ",", " ", "\n", " ", "0.4187898595799875103492632625994313100969770537405176140879`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "1.0175973738317786714727847632327556829484143290721576586546`36.", ",", " ", "\n", " ", "0.2216750337469006577355544874534085723315797560237285439373`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1676758859330868942282843438591060621345976769558849511821`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.0544811979229620445918445311165345740801870482928917915747`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6929562532233608584551166454764160567165956083235383877293`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.7774675986397527300073242719408440081080587077948651646965`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.5252803672902739642268323016173099945819979313676534365472`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.8992912606911162122755191666502166132379180617639843471242`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.1763048599743255268600394258259071792100464022620109740024`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.5252803672902739642268323016173099945819979313676534365472`36.\ "}], ",", " ", RowBox[{ "-", "0.8992912606911162122755191666502166132379180617639843471242`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6929562532233608584551166454764160567165956083235383877293`36.\ "}], ",", " ", RowBox[{ "-", "0.7774675986397527300073242719408440081080587077948651646965`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1676758859330868942282843438591060621345976769558849511821`36.\ "}], ",", " ", RowBox[{ "-", "0.0544811979229620445918445311165345740801870482928917915747`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "1.0175973738317786714727847632327556829484143290721576586546`36.\ "}], ",", " ", "0.2216750337469006577355544874534085723315797560237285439373`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.9535508844990898546643029882274716947055586480957330428521`36.\ "}], ",", " ", "0.4187898595799875103492632625994313100969770537405176140879`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1036293966003980774198025688538220738917419959794603353795`36.\ "}], ",", " ", "0.142633627910124808021864244029488163685210249423897278576`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "0.9438289524745918643584174528873537831811364043641654455955`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.2119028023834478156102020016788574718346723580284834110172`36.", ",", " ", "0.291659186097753473824408033665639251671910685460006828526`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.8976346755189894038284539200744692561098017009566799885202`36.", ",", " ", "0.291659186097753473824408033665639251671910685460006828526`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.3428659365677707941091259591978058921375646714640982887515`36.", ",", " ", RowBox[{ "-", "0.1114038959582110154696073408876016117532531687379309342543`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.5547687389512186097193279608766633639722370294925816997687`36.", ",", " ", RowBox[{ "-", "0.7635736623350494060036167601093161432624788876420895513237`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.3605105802790849167096013855560752798373150334441517885434`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.5547687389512186097193279608766633639722370294925816997687`36.\ "}], ",", " ", RowBox[{ "-", "0.7635736623350494060036167601093161432624788876420895513237`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3428659365677707941091259591978058921375646714640982887515`36.\ "}], ",", " ", RowBox[{ "-", "0.1114038959582110154696073408876016117532531687379309342543`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.8976346755189894038284539200744692561098017009566799885202`36.\ "}], ",", " ", "0.291659186097753473824408033665639251671910685460006828526`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2119028023834478156102020016788574718346723580284834110172`36.\ "}], ",", " ", "0.291659186097753473824408033665639251671910685460006828526`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "0.8171893814748603450568318473518338135577987134087052466549`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.2447413103178613831410019058370683396220105976512411729446`36.", ",", " ", "0.3368575147139294899494032309550896275544416307347184849296`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.7771932862988719863942369646085977096414030814443351771231`36.", ",", " ", "0.2525254064984836839870102380875185381443269188646027603929`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.3959997585454850491450356235291730965932423708038710371885`36.", ",", " ", RowBox[{ "-", "0.1286681212549032532621911029919060749038337917758613795417`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.4803318667609308551074286163967441860033570826739867617253`36.", ",", " ", RowBox[{ "-", "0.6611200972359138565154261617634354449232262755689553837203`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.4163787869180524733744242559263671053012156779177142107757`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4803318667609308551074286163967441860033570826739867617253`36.\ "}], ",", " ", RowBox[{ "-", "0.6611200972359138565154261617634354449232262755689553837203`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3959997585454850491450356235291730965932423708038710371885`36.\ "}], ",", " ", RowBox[{ "-", "0.1286681212549032532621911029919060749038337917758613795417`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.7771932862988719863942369646085977096414030814443351771231`36.\ "}], ",", " ", "0.2525254064984836839870102380875185381443269188646027603929`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2447413103178613831410019058370683396220105976512411729446`36.\ "}], ",", " ", "0.3368575147139294899494032309550896275544416307347184849296`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "0.9238795325112867561281831893967882868224166258636424861151`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.2705980500730984921998616026831947100305360316890077223407`36.", ",", " ", "0.2705980500730984921998616026831947100305360316890077223407`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.9238795325112867561281831893967882868224166258636424861151`36.", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.2705980500730984921998616026831947100305360316890077223407`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.2705980500730984921998616026831947100305360316890077223407`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.9238795325112867561281831893967882868224166258636424861151`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2705980500730984921998616026831947100305360316890077223407`36.\ "}], ",", " ", RowBox[{ "-", "0.2705980500730984921998616026831947100305360316890077223407`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.9238795325112867561281831893967882868224166258636424861151`36.\ "}], ",", " ", "0"}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2705980500730984921998616026831947100305360316890077223407`36.\ "}], ",", " ", "0.2705980500730984921998616026831947100305360316890077223407`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.3773153701072019347673059079406048955505201483863437932483`36.", ",", " ", "\n", " ", "0.1223725524672006274920992133861421282866551832604358248372`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.3773153701072019347673059079406048955505201483863437932483`36.", ",", " ", "\n", " ", "0.7138398893920036603705787447524957483388219023525423115509`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6628513258640033989155374058416031948860489093273607178686`36.", ",", " ", "\n", " ", "0.7138398893920036603705787447524957483388219023525423115509`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6628513258640033989155374058416031948860489093273607178686`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.7138398893920036603705787447524957483388219023525423115509`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.3773153701072019347673059079406048955505201483863437932483`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.7138398893920036603705787447524957483388219023525423115509`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.3773153701072019347673059079406048955505201483863437932483`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.1223725524672006274920992133861421282866551832604358248372`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3773153701072019347673059079406048955505201483863437932483`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.1223725524672006274920992133861421282866551832604358248372`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3773153701072019347673059079406048955505201483863437932483`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.7138398893920036603705787447524957483388219023525423115509`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6628513258640033989155374058416031948860489093273607178686`36."}], ",", " ", "\n", " ", RowBox[{ "-", "0.7138398893920036603705787447524957483388219023525423115509`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6628513258640033989155374058416031948860489093273607178686`36.\ "}], ",", " ", "\n", " ", "0.7138398893920036603705787447524957483388219023525423115509`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3773153701072019347673059079406048955505201483863437932483`36.\ "}], ",", " ", "\n", " ", "0.7138398893920036603705787447524957483388219023525423115509`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3773153701072019347673059079406048955505201483863437932483`36.\ "}], ",", " ", "\n", " ", "0.1223725524672006274920992133861421282866551832604358248372`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "0.6204032394013997326274791646554893918341361504517682500626`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.5372849659117709597766690783529652885685414769253009937778`36.", ",", " ", "0.3102016197006998663137395823277446959170680752258841250313`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.5372849659117709597766690783529652885685414769253009937778`36.", ",", " ", RowBox[{ "-", "0.3102016197006998663137395823277446959170680752258841250313`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.6204032394013997326274791646554893918341361504517682500626`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.5372849659117709597766690783529652885685414769253009937778`36.\ "}], ",", " ", RowBox[{ "-", "0.3102016197006998663137395823277446959170680752258841250313`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.5372849659117709597766690783529652885685414769253009937778`36.\ "}], ",", " ", "0.3102016197006998663137395823277446959170680752258841250313`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1652046501137724446199984939884395765472147978586459626886`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.5616958103868263117079948795606945602605303127193962731416`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.5286548803640718227839951807630066449510873531476670806039`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.5616958103868263117079948795606945602605303127193962731416`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.5286548803640718227839951807630066449510873531476670806039`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.8590641805916167120239921687398857980455169488649590059814`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.5286548803640718227839951807630066449510873531476670806039`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.8590641805916167120239921687398857980455169488649590059814`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.5286548803640718227839951807630066449510873531476670806039`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.5616958103868263117079948795606945602605303127193962731416`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1652046501137724446199984939884395765472147978586459626886`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.5616958103868263117079948795606945602605303127193962731416`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1652046501137724446199984939884395765472147978586459626886`36.", ",", " ", "\n", " ", "0.5616958103868263117079948795606945602605303127193962731416`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.5286548803640718227839951807630066449510873531476670806039`36.", ",", " ", "\n", " ", "0.5616958103868263117079948795606945602605303127193962731416`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.5286548803640718227839951807630066449510873531476670806039`36.", ",", " ", "\n", " ", "0.8590641805916167120239921687398857980455169488649590059814`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.5286548803640718227839951807630066449510873531476670806039`36.\ "}], ",", " ", "\n", " ", "0.8590641805916167120239921687398857980455169488649590059814`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.5286548803640718227839951807630066449510873531476670806039`36.\ "}], ",", " ", "\n", " ", "0.5616958103868263117079948795606945602605303127193962731416`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1652046501137724446199984939884395765472147978586459626886`36.\ "}], ",", " ", "\n", " ", "0.5616958103868263117079948795606945602605303127193962731416`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.4386913376508308202730729672656663517200228634019407255773`36.", ",", " ", "\n", " ", "0.7598356856515925473311877506545453353967734488873103186113`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.4386913376508308202730729672656663517200228634019407255773`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.7598356856515925473311877506545453353967734488873103186113`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.8773826753016616405461459345313327034400457268038814511547`36.\ "}], ",", " ", "\n", " ", "0"}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.0971462188541372486830671157452474859239104515610028934524`36.", ",", " ", "\n", " ", "0.6279630301995543759060666725732481424770939724634101328583`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.4952588273632000941003167833662479783387980922378083230069`36.", ",", " ", "\n", " ", "0.3981126085090628454172496676210004924148876406768054295545`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.4952588273632000941003167833662479783387980922378083230069`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.3981126085090628454172496676210004924148876406768054295545`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.0971462188541372486830671157452474859239104515610028934524`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.6279630301995543759060666725732481424770939724634101328583`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.5924050462173373427833838991114954642627085437988112164592`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.2298504216904915304888170049522476500622063317866047033039`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.5924050462173373427833838991114954642627085437988112164592`36.\ "}], ",", " ", "\n", " ", "0.2298504216904915304888170049522476500622063317866047033039`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.3753259453027345728206690658909934372171335945838014271163`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.6672461249826392405700783393617661106082375014823136482067`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6255432421712242880344484431516557286952226576396690451937`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.6672461249826392405700783393617661106082375014823136482067`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6255432421712242880344484431516557286952226576396690451937`36.", ",", " ", "\n", " ", "0.6672461249826392405700783393617661106082375014823136482067`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.3544745038970270965528541177859382462606261726624791256098`36.", ",", " ", "\n", " ", "0.6672461249826392405700783393617661106082375014823136482067`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.3544745038970270965528541177859382462606261726624791256098`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.2502172968684897152137793772606622914780890630558676180774`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3753259453027345728206690658909934372171335945838014271163`36.\ "}], ",", " ", "\n", " ", "0.6672461249826392405700783393617661106082375014823136482067`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6255432421712242880344484431516557286952226576396690451937`36.\ "}], ",", " ", "\n", " ", "0.6672461249826392405700783393617661106082375014823136482067`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6255432421712242880344484431516557286952226576396690451937`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.6672461249826392405700783393617661106082375014823136482067`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3544745038970270965528541177859382462606261726624791256098`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.6672461249826392405700783393617661106082375014823136482067`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3544745038970270965528541177859382462606261726624791256098`36.\ "}], ",", " ", "\n", " ", "0.2502172968684897152137793772606622914780890630558676180774`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "0.6485251650439687331320458616166916347375692896684737975812`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.6167840841964564092156280516391004594295071956632097287154`36.", ",", " ", "0.2004052972784039358412037957127333541282915177454955179395`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.3811935277533869372492013410794246130481607106404641399346`36.", ",", " ", RowBox[{ "-", "0.5246678798003883024072267265210791714970761625797324167302`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3811935277533869372492013410794246130481607106404641399346`36."}], ",", " ", RowBox[{ "-", "0.5246678798003883024072267265210791714970761625797324167302`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6167840841964564092156280516391004594295071956632097287154`36.\ "}], ",", " ", "0.2004052972784039358412037957127333541282915177454955179395`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4386913376508308202730729672656663517200228634019407255773`36.\ "}], ",", " ", "\n", " ", "0.7598356856515925473311877506545453353967734488873103186113`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.8773826753016616405461459345313327034400457268038814511547`36.", ",", " ", "0"}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4386913376508308202730729672656663517200228634019407255773`36.\ "}], ",", " ", RowBox[{ "-", "0.7598356856515925473311877506545453353967734488873103186113`36.\ "}]}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4952588273632000941003167833662479783387980922378083230069`36.\ "}], ",", " ", "\n", " ", "0.3981126085090628454172496676210004924148876406768054295545`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.0971462188541372486830671157452474859239104515610028934524`36.\ "}], ",", " ", "\n", " ", "0.6279630301995543759060666725732481424770939724634101328583`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.5924050462173373427833838991114954642627085437988112164592`36.", ",", " ", "\n", " ", "0.2298504216904915304888170049522476500622063317866047033039`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.5924050462173373427833838991114954642627085437988112164592`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.2298504216904915304888170049522476500622063317866047033039`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.0971462188541372486830671157452474859239104515610028934524`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.6279630301995543759060666725732481424770939724634101328583`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4952588273632000941003167833662479783387980922378083230069`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.3981126085090628454172496676210004924148876406768054295545`36.\ "}]}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3857534825676129138906993345898377158649054236350514166153`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.1183561821514266894891918412946092991858232549789362300978`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.2542466135104721477915972887069384945473240292140111609511`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.1183561821514266894891918412946092991858232549789362300978`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.3660274522090417989758340277074028326672682144718953782657`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.2191781150952346101651700764714987021959689907017337594405`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.3660274522090417989758340277074028326672682144718953782657`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.3726027956618988372807891300015477937331472841929473910489`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.2542466135104721477915972887069384945473240292140111609511`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.4734247286057067579567673651784371967432930199157449203916`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6224658468704662928690830171790563142365519335929238768112`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.4734247286057067579567673651784371967432930199157449203916`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6224658468704662928690830171790563142365519335929238768112`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.7101370929085601369351510477676557951149395298736173805874`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.3857534825676129138906993345898377158649054236350514166153`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.7101370929085601369351510477676557951149395298736173805874`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6421918772290374077839483240614911974341891427560799151608`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.4734247286057067579567673651784371967432930199157449203916`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6421918772290374077839483240614911974341891427560799151608`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.1183561821514266894891918412946092991858232549789362300978`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.3857534825676129138906993345898377158649054236350514166153`36.", ",", " ", "\n", " ", "0.1183561821514266894891918412946092991858232549789362300978`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2542466135104721477915972887069384945473240292140111609511`36.\ "}], ",", " ", "\n", " ", "0.1183561821514266894891918412946092991858232549789362300978`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3660274522090417989758340277074028326672682144718953782657`36.\ "}], ",", " ", "\n", " ", "0.2191781150952346101651700764714987021959689907017337594405`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3660274522090417989758340277074028326672682144718953782657`36.\ "}], ",", " ", "\n", " ", "0.3726027956618988372807891300015477937331472841929473910489`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2542466135104721477915972887069384945473240292140111609511`36.\ "}], ",", " ", "\n", " ", "0.4734247286057067579567673651784371967432930199157449203916`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6224658468704662928690830171790563142365519335929238768112`36.", ",", " ", "\n", " ", "0.4734247286057067579567673651784371967432930199157449203916`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6224658468704662928690830171790563142365519335929238768112`36.", ",", " ", "\n", " ", "0.7101370929085601369351510477676557951149395298736173805874`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3857534825676129138906993345898377158649054236350514166153`36.\ "}], ",", " ", "\n", " ", "0.7101370929085601369351510477676557951149395298736173805874`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6421918772290374077839483240614911974341891427560799151608`36.\ "}], ",", " ", "\n", " ", "0.4734247286057067579567673651784371967432930199157449203916`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6421918772290374077839483240614911974341891427560799151608`36.\ "}], ",", " ", "\n", " ", "0.1183561821514266894891918412946092991858232549789362300978`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "-", "0.0892770495429497449085003318634972255705048207889710325283`36.\ "}], ",", " ", "\n", " ", "0.8927704954294974490850033186349722557050482078897103252827`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.0892770495429497449085003318634972255705048207889710325283`36.", ",", " ", "\n", " ", "0.8927704954294974490850033186349722557050482078897103252827`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.0892770495429497449085003318634972255705048207889710325283`36.", ",", " ", "\n", " ", "0.1853857035987836863171440444811783124778606461677385830019`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6423327500152953479748839850587378500153919930719697623439`36.", ",", " ", "\n", " ", "0.6264329072951968756817222950220053107935671371444778802887`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.7536594098754274946846332714975757759148034659110352878992`36.", ",", " ", "\n", " ", "0.4868336913061245914157705693663739482005475912461773752643`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.2006037094030818916182496183023351514699162936280365580836`36.", ",", " ", "\n", " ", "0.0457864876097114020511923188255469498848411002694380779776`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.8902528876117735722236125876941260512894818798012680501658`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.1116214369349520682984707706537253134914994966831014427134`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.8505208627214509137046359482043957703745417442243911694271`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.2856988119682745168912956242435774956579018590856673646727`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.160871684512759233099272978812604870554976158051159677345`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.1282908874236110465416325347643052322815612621331278439816`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.4677944429871648021085121010089765746810866114004287887442`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.7656225624907176469404773329027569388345209370183134917176`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.3069227584744055690092391221963717041261104533492691113993`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.8430942826368746840522524552232917667152406434932832817319`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.205762607569768083653407657084840060162280968608097633996`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3069227584744055690092391221963717041261104533492691113993`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.8430942826368746840522524552232917667152406434932832817319`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4677944429871648021085121010089765746810866114004287887442`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.7656225624907176469404773329027569388345209370183134917176`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.160871684512759233099272978812604870554976158051159677345`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.1282908874236110465416325347643052322815612621331278439816`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.8505208627214509137046359482043957703745417442243911694271`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.2856988119682745168912956242435774956579018590856673646727`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.8902528876117735722236125876941260512894818798012680501658`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.1116214369349520682984707706537253134914994966831014427134`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2006037094030818916182496183023351514699162936280365580836`36.\ "}], ",", " ", "\n", " ", "0.0457864876097114020511923188255469498848411002694380779776`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.7536594098754274946846332714975757759148034659110352878992`36.\ "}], ",", " ", "\n", " ", "0.4868336913061245914157705693663739482005475912461773752643`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6423327500152953479748839850587378500153919930719697623439`36.\ "}], ",", " ", "\n", " ", "0.6264329072951968756817222950220053107935671371444778802887`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.0892770495429497449085003318634972255705048207889710325283`36.\ "}], ",", " ", "\n", " ", "0.1853857035987836863171440444811783124778606461677385830019`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "0.6897703276386423813294472355176188035598010310001617453766`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.2071082752228550635543625388888129066296850734798470550317`36.", ",", " ", "0.4300647649074508469497838996910145302264447611030484497794`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.539284157820178407960285762777594657033243075252584507837`36.", ",", " ", "0.4300647649074508469497838996910145302264447611030484497794`\ 36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.4653680701868589727751996858243049203457234464988748223414`36.", ",", " ", "0.1062172252096878448609835237661438050919947161327848102366`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.6724763454097140363295622247131178269754085199787218773731`36.", ",", " ", RowBox[{ "-", "0.1534883375215036895186798120604604682413615537643284853607`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.3731962165215167357573241508332037818314640743662157814343`36.", ",", " ", RowBox[{ "-", "0.2976140515075053460070273294644927386305336778685371975643`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.2992801288881973005722380738799140451439444456125060959388`36.", ",", " ", RowBox[{ "-", "0.621461591205268348095827705389363463764983722838800837107`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.4773358772192666916074801879853311933758115987345921249036`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2992801288881973005722380738799140451439444456125060959388`36.\ "}], ",", " ", RowBox[{ "-", "0.621461591205268348095827705389363463764983722838800837107`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3731962165215167357573241508332037818314640743662157814343`36.\ "}], ",", " ", RowBox[{ "-", "0.2976140515075053460070273294644927386305336778685371975643`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6724763454097140363295622247131178269754085199787218773731`36.\ "}], ",", " ", RowBox[{ "-", "0.1534883375215036895186798120604604682413615537643284853607`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4653680701868589727751996858243049203457234464988748223414`36.\ "}], ",", " ", "0.1062172252096878448609835237661438050919947161327848102366`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.539284157820178407960285762777594657033243075252584507837`36.\ "}], ",", " ", "0.4300647649074508469497838996910145302264447611030484497794`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2071082752228550635543625388888129066296850734798470550317`36.\ "}], ",", " ", "0.4300647649074508469497838996910145302264447611030484497794`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "0.7702543914786180315443668589722780499795724370440152166572`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.1854674824805702091252567526472046101333419995750743046925`36.", ",", " ", "0.3851271957393090157721834294861390249897862185220076083286`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.6022091327672381224148320313007130419371127153894148371413`36.", ",", " ", "0.480245757923822925239431914773354391208514186096555236182`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.4167416502866679132895752786535084318037707158143405324488`36.", ",", " ", "0.0951185621845139094672484852872153662187279675745476278534`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.7509425057331301019192981195014517648282860703049655085649`36.", ",", " ", RowBox[{ "-", "0.1713977265757747034676616949458859707446258142998701017219`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.3342008554464621886297228408479433330245153544906249761161`36.", ",", " ", RowBox[{ "-", "0.2665162887602886129349101802331013369633537818744177295753`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.3342008554464621886297228408479433330245153544906249761161`36.", ",", " ", RowBox[{ "-", "0.6939752270873572375439536493136074454536745903186927427888`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.4274589383270686246090434690805061084903208084442750132135`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3342008554464621886297228408479433330245153544906249761161`36.\ "}], ",", " ", RowBox[{ "-", "0.6939752270873572375439536493136074454536745903186927427888`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3342008554464621886297228408479433330245153544906249761161`36.\ "}], ",", " ", RowBox[{ "-", "0.2665162887602886129349101802331013369633537818744177295753`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.7509425057331301019192981195014517648282860703049655085649`36.\ "}], ",", " ", RowBox[{ "-", "0.1713977265757747034676616949458859707446258142998701017219`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4167416502866679132895752786535084318037707158143405324488`36.\ "}], ",", " ", "0.0951185621845139094672484852872153662187279675745476278534`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6022091327672381224148320313007130419371127153894148371413`36.\ "}], ",", " ", "0.480245757923822925239431914773354391208514186096555236182`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1854674824805702091252567526472046101333419995750743046925`36.\ "}], ",", " ", "0.3851271957393090157721834294861390249897862185220076083286`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "0.9604915158476458504788638295467087824170283721931104723642`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.1487333729658919795044660882007387228911733549155506714237`36.", ",", " ", "0.3088480313480482217717702198274684204638883717966851344603`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.7509425057331301019192981195014517648282860703049655085649`36.", ",", " ", "0.5988566649028433280767051640263920792349466227441451149354`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.3342008554464621886297228408479433330245153544906249761161`36.", ",", " ", "0.0762791643912607940004132096586706045258978467253224738685`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.9364099882137003110445548721486563749616280698800398132574`36.", ",", " ", RowBox[{ "-", "0.2137294691635343123045217345402530542451604042221375066067`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.2680082773207759337851091904527697089125973608987898610251`36.", ",", " ", RowBox[{ "-", "0.2137294691635343123045217345402530542451604042221375066067`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.4167416502866679132895752786535084318037707158143405324488`36.", ",", " ", RowBox[{ "-", "0.8653729536631319410116153442594934161983004046185628445107`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.3427954531515494069353233898917719414892516285997402034438`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4167416502866679132895752786535084318037707158143405324488`36.\ "}], ",", " ", RowBox[{ "-", "0.8653729536631319410116153442594934161983004046185628445107`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2680082773207759337851091904527697089125973608987898610251`36.\ "}], ",", " ", RowBox[{ "-", "0.2137294691635343123045217345402530542451604042221375066067`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.9364099882137003110445548721486563749616280698800398132574`36.\ "}], ",", " ", RowBox[{ "-", "0.2137294691635343123045217345402530542451604042221375066067`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3342008554464621886297228408479433330245153544906249761161`36."}], ",", " ", "0.0762791643912607940004132096586706045258978467253224738685`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.7509425057331301019192981195014517648282860703049655085649`36.\ "}], ",", " ", "0.5988566649028433280767051640263920792349466227441451149354`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1487333729658919795044660882007387228911733549155506714237`36.\ "}], ",", " ", "0.3088480313480482217717702198274684204638883717966851344603`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "-", "0.0955167368710271283241204452088346289150444625856448298798`36.\ "}], ",", " ", "\n", " ", "0.9551673687102712832412044520883462891504446258564482987983`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.0955167368710271283241204452088346289150444625856448298798`36.", ",", " ", "\n", " ", "0.9551673687102712832412044520883462891504446258564482987983`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.0955167368710271283241204452088346289150444625856448298798`36.", ",", " ", "\n", " ", "0.1654398412338064952904485309949528935280993617172247587461`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.7794408377335189122901824323703471531829745772933013787905`36.", ",", " ", "\n", " ", "0.5603036049720388892658264915416495913392719937868365287721`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.8749575746045460406143028775791817820980190398789462086703`36.", ",", " ", "\n", " ", "0.3948637637382323939753779605466966978111726320696117700262`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1910334737420542566482408904176692578300889251712896597596`36.", ",", " ", "0"}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.8749575746045460406143028775791817820980190398789462086703`36.", ",", " ", RowBox[{ "-", "0.3948637637382323939753779605466966978111726320696117700262`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.7794408377335189122901824323703471531829745772933013787905`36.", ",", " ", RowBox[{ "-", "0.5603036049720388892658264915416495913392719937868365287721`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.0955167368710271283241204452088346289150444625856448298798`36.", ",", " ", RowBox[{ "-", "0.1654398412338064952904485309949528935280993617172247587461`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.0955167368710271283241204452088346289150444625856448298798`36.", ",", " ", RowBox[{ "-", "0.9551673687102712832412044520883462891504446258564482987983`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.0955167368710271283241204452088346289150444625856448298798`36.\ "}], ",", " ", RowBox[{ "-", "0.9551673687102712832412044520883462891504446258564482987983`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.0955167368710271283241204452088346289150444625856448298798`36.\ "}], ",", " ", RowBox[{ "-", "0.1654398412338064952904485309949528935280993617172247587461`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.7794408377335189122901824323703471531829745772933013787905`36.\ "}], ",", " ", RowBox[{ "-", "0.5603036049720388892658264915416495913392719937868365287721`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.8749575746045460406143028775791817820980190398789462086703`36.\ "}], ",", " ", RowBox[{ "-", "0.3948637637382323939753779605466966978111726320696117700262`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1910334737420542566482408904176692578300889251712896597596`36.\ "}], ",", " ", "0"}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.8749575746045460406143028775791817820980190398789462086703`36.\ "}], ",", " ", "0.3948637637382323939753779605466966978111726320696117700262`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.7794408377335189122901824323703471531829745772933013787905`36.\ "}], ",", " ", "0.5603036049720388892658264915416495913392719937868365287721`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.0955167368710271283241204452088346289150444625856448298798`36.\ "}], ",", " ", "0.1654398412338064952904485309949528935280993617172247587461`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "0.7598356856515925473311877506545453353967734488873103186113`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.2193456688254154101365364836328331758600114317009703627887`36.", ",", " ", "0.3799178428257962736655938753272726676983867244436551593057`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.658037006476246230409609450898499527580034295102911088366`36.", ",", " ", "0.3799178428257962736655938753272726676983867244436551593057`\ 36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.4386913376508308202730729672656663517200228634019407255773`36.", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.658037006476246230409609450898499527580034295102911088366`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.3799178428257962736655938753272726676983867244436551593057`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.2193456688254154101365364836328331758600114317009703627887`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.3799178428257962736655938753272726676983867244436551593057`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.7598356856515925473311877506545453353967734488873103186113`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2193456688254154101365364836328331758600114317009703627887`36.\ "}], ",", " ", RowBox[{ "-", "0.3799178428257962736655938753272726676983867244436551593057`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.658037006476246230409609450898499527580034295102911088366`36.\ "}], ",", " ", RowBox[{ "-", "0.3799178428257962736655938753272726676983867244436551593057`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4386913376508308202730729672656663517200228634019407255773`36.\ "}], ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.658037006476246230409609450898499527580034295102911088366`36.\ "}], ",", " ", "\n", " ", "0.3799178428257962736655938753272726676983867244436551593057`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2193456688254154101365364836328331758600114317009703627887`36.\ "}], ",", " ", "\n", " ", "0.3799178428257962736655938753272726676983867244436551593057`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "0.9542974392310602327777457666759937358512080446589028436736`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.1746485527625023118301237199773485204815437941158879519246`36.", ",", " ", "0.3025001668530278045587491633606483474440602282135634699122`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.8264458251405347400491203232926939088886916105612273256858`36.", ",", " ", "0.4771487196155301163888728833379968679256040223294514218368`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.349297105525004623660247439954697040963087588231775903849`36.", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.8264458251405347400491203232926939088886916105612273256858`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.4771487196155301163888728833379968679256040223294514218368`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1746485527625023118301237199773485204815437941158879519246`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.3025001668530278045587491633606483474440602282135634699122`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.9542974392310602327777457666759937358512080446589028436736`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1746485527625023118301237199773485204815437941158879519246`36.\ "}], ",", " ", RowBox[{ "-", "0.3025001668530278045587491633606483474440602282135634699122`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.8264458251405347400491203232926939088886916105612273256858`36.\ "}], ",", " ", RowBox[{ "-", "0.4771487196155301163888728833379968679256040223294514218368`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.349297105525004623660247439954697040963087588231775903849`36.\ "}], ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.8264458251405347400491203232926939088886916105612273256858`36.\ "}], ",", " ", "\n", " ", "0.4771487196155301163888728833379968679256040223294514218368`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1746485527625023118301237199773485204815437941158879519246`36.\ "}], ",", " ", "\n", " ", "0.3025001668530278045587491633606483474440602282135634699122`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.5`36.", ",", " ", "0.5`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.5`36.", ",", " ", RowBox[{"-", "0.5`36."}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5`36."}], ",", " ", RowBox[{"-", "0.5`36."}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5`36."}], ",", " ", "0.5`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "1.1985270233024233676042607179202116871167963122892510441887`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.2781191636504499567440155755712268598816475706592559290604`36.", ",", " ", "0.160572174000380863529057391694439491838375292742684796517`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "1.0379548493020425040752033262257721952784210195465662476717`36.", ",", " ", RowBox[{ "-", "0.5992635116512116838021303589601058435583981561446255220943`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.321144348000761727058114783388878983676750585485369593034`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "1.0379548493020425040752033262257721952784210195465662476717`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.5992635116512116838021303589601058435583981561446255220943`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2781191636504499567440155755712268598816475706592559290604`36.\ "}], ",", " ", "\n", " ", "0.160572174000380863529057391694439491838375292742684796517`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", "\"\\"", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6541946733903127137130070935956526311463409389517132513501`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.4984340368688096866384815951204972427781645249155910486477`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6541946733903127137130070935956526311463409389517132513501`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.7268829704336807930144523262173918123848232655019036126113`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6541946733903127137130070935956526311463409389517132513501`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.7268829704336807930144523262173918123848232655019036126113`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6541946733903127137130070935956526311463409389517132513501`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.4776659519992759496952115286571431909957410030441080882874`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2699851033039385802625108640236026731715057843292784846842`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.4776659519992759496952115286571431909957410030441080882874`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6541946733903127137130070935956526311463409389517132513501`36.", ",", " ", "\n", " ", "0.4984340368688096866384815951204972427781645249155910486477`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6541946733903127137130070935956526311463409389517132513501`36.", ",", " ", "\n", " ", "0.7268829704336807930144523262173918123848232655019036126113`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6541946733903127137130070935956526311463409389517132513501`36.\ "}], ",", " ", "\n", " ", "0.7268829704336807930144523262173918123848232655019036126113`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6541946733903127137130070935956526311463409389517132513501`36.\ "}], ",", " ", "\n", " ", "0.4776659519992759496952115286571431909957410030441080882874`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.2699851033039385802625108640236026731715057843292784846842`36.", ",", " ", "\n", " ", "0.4776659519992759496952115286571431909957410030441080882874`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", RowBox[{"\"\\"", " ", "|", " ", "\"\\""}], "]"}], " ", ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "0.8773826753016616405461459345313327034400457268038814511547`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.7598356856515925473311877506545453353967734488873103186113`36.", ",", " ", RowBox[{ "-", "0.4386913376508308202730729672656663517200228634019407255773`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.7598356856515925473311877506545453353967734488873103186113`36.\ "}], ",", " ", RowBox[{ "-", "0.4386913376508308202730729672656663517200228634019407255773`36.\ "}]}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", RowBox[{"\"\\"", " ", "|", " ", "\"\\""}], "]"}], " ", ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "0.7071067811865475244008443621048490392848359376884740365884`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.7071067811865475244008443621048490392848359376884740365884`36.", ",", " ", "0"}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.7071067811865475244008443621048490392848359376884740365884`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.7071067811865475244008443621048490392848359376884740365884`36.\ "}], ",", " ", "0"}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", RowBox[{"\"\\"", " ", "|", " ", "\"\<+\>\""}], "]"}], " ", ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1147078669352808829536047890489372541878158927692748667602`36.\ "}], ",", " ", "\n", " ", "1.1470786693528088295360478904893725418781589276927486676027`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1147078669352808829536047890489372541878158927692748667602`36.", ",", " ", "\n", " ", "1.1470786693528088295360478904893725418781589276927486676027`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1147078669352808829536047890489372541878158927692748667602`36.", ",", " ", "\n", " ", "0.1147078669352808829536047890489372541878158927692748667602`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "1.1470786693528088295360478904893725418781589276927486676027`36.", ",", " ", "\n", " ", "0.1147078669352808829536047890489372541878158927692748667602`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "1.1470786693528088295360478904893725418781589276927486676027`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.1147078669352808829536047890489372541878158927692748667602`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1147078669352808829536047890489372541878158927692748667602`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.1147078669352808829536047890489372541878158927692748667602`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1147078669352808829536047890489372541878158927692748667602`36.", ",", " ", "\n", " ", RowBox[{ "-", "1.1470786693528088295360478904893725418781589276927486676027`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1147078669352808829536047890489372541878158927692748667602`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "1.1470786693528088295360478904893725418781589276927486676027`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1147078669352808829536047890489372541878158927692748667602`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.1147078669352808829536047890489372541878158927692748667602`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "1.1470786693528088295360478904893725418781589276927486676027`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.1147078669352808829536047890489372541878158927692748667602`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "1.1470786693528088295360478904893725418781589276927486676027`36.\ "}], ",", " ", "\n", " ", "0.1147078669352808829536047890489372541878158927692748667602`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1147078669352808829536047890489372541878158927692748667602`36.\ "}], ",", " ", "\n", " ", "0.1147078669352808829536047890489372541878158927692748667602`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", RowBox[{ "\"\\"", " ", "|", " ", "\"\\"", " ", "|", " ", "\"\\"", " ", "|", " ", "\"\\""}], "]"}], " ", ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.7299963950884314217401543609616868161463238975131733013667`36.", ",", " ", "\n", " ", "0.8922178162191939599046331078420616641788403191827673683372`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.8922178162191939599046331078420616641788403191827673683372`36.", ",", " ", "\n", " ", "0.7299963950884314217401543609616868161463238975131733013667`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1622214211307625381644787468803748480325164216695940669703`36.", ",", " ", "0"}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.8922178162191939599046331078420616641788403191827673683372`36.", ",", " ", RowBox[{ "-", "0.7299963950884314217401543609616868161463238975131733013667`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.7299963950884314217401543609616868161463238975131733013667`36.", ",", " ", RowBox[{ "-", "0.8922178162191939599046331078420616641788403191827673683372`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.1622214211307625381644787468803748480325164216695940669703`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.7299963950884314217401543609616868161463238975131733013667`36.\ "}], ",", " ", RowBox[{ "-", "0.8922178162191939599046331078420616641788403191827673683372`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.8922178162191939599046331078420616641788403191827673683372`36.\ "}], ",", " ", RowBox[{ "-", "0.7299963950884314217401543609616868161463238975131733013667`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1622214211307625381644787468803748480325164216695940669703`36.\ "}], ",", " ", "0"}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.8922178162191939599046331078420616641788403191827673683372`36.\ "}], ",", " ", "0.7299963950884314217401543609616868161463238975131733013667`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.7299963950884314217401543609616868161463238975131733013667`36.\ "}], ",", " ", "0.8922178162191939599046331078420616641788403191827673683372`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0.1622214211307625381644787468803748480325164216695940669703`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", RowBox[{"\"\\"", " ", "|", " ", "\"\\""}], "]"}], " ", ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1310041741155134387479154137593676560893228333511280628875`36.\ "}], ",", " ", "\n", " ", "1.3100417411551343874791541375936765608932283335112806288742`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1310041741155134387479154137593676560893228333511280628875`36.", ",", " ", "\n", " ", "1.3100417411551343874791541375936765608932283335112806288742`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1310041741155134387479154137593676560893228333511280628875`36.", ",", " ", "\n", " ", "0.07563529519055628760476786288963764958491062457782544389`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "1.2000315149161010334454756502242485718183207853429456897939`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.5415679277917327623324252744623818060692482298889021486021`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "1.0690273408005875946975602364648809157289979519918176269065`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.7684738133634016251467288631312947548239801036223784802721`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.1512705903811125752095357257792752991698212491556508877801`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "1.0690273408005875946975602364648809157289979519918176269065`36.\ "}], ",", " ", RowBox[{ "-", "0.7684738133634016251467288631312947548239801036223784802721`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "1.2000315149161010334454756502242485718183207853429456897939`36.\ "}], ",", " ", RowBox[{ "-", "0.5415679277917327623324252744623818060692482298889021486021`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1310041741155134387479154137593676560893228333511280628875`36.\ "}], ",", " ", "0.07563529519055628760476786288963764958491062457782544389`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", RowBox[{ "\"\\"", " ", "|", " ", "\"\\"", " ", "|", " ", "\"\\""}], "]"}], " ", ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1.0690273408005875946975602364648809157289979519918176269065`36.", ",", " ", "\n", " ", "0.7684738133634016251467288631312947548239801036223784802721`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "1.2000315149161010334454756502242485718183207853429456897939`36.", ",", " ", "\n", " ", "0.5415679277917327623324252744623818060692482298889021486021`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1310041741155134387479154137593676560893228333511280628875`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.07563529519055628760476786288963764958491062457782544389`36."}\ ]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1310041741155134387479154137593676560893228333511280628875`36.", ",", " ", "\n", " ", RowBox[{ "-", "1.3100417411551343874791541375936765608932283335112806288742`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1310041741155134387479154137593676560893228333511280628875`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "1.3100417411551343874791541375936765608932283335112806288742`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1310041741155134387479154137593676560893228333511280628875`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.07563529519055628760476786288963764958491062457782544389`36."}\ ]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "1.2000315149161010334454756502242485718183207853429456897939`36.\ "}], ",", " ", "\n", " ", "0.5415679277917327623324252744623818060692482298889021486021`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "1.0690273408005875946975602364648809157289979519918176269065`36.\ "}], ",", " ", "\n", " ", "0.7684738133634016251467288631312947548239801036223784802721`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0.1512705903811125752095357257792752991698212491556508877801`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", RowBox[{ "\"\\"", " ", "|", " ", "\"\\"", " ", "|", " ", "\"\\""}], "]"}], " ", ":=", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2298504216904915304888170049522476500622063317866047033039`36.\ "}], ",", " ", "0.5924050462173373427833838991114954642627085437988112164592`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.2298504216904915304888170049522476500622063317866047033039`36.", ",", " ", "0.5924050462173373427833838991114954642627085437988112164592`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.6279630301995543759060666725732481424770939724634101328583`36.", ",", " ", RowBox[{ "-", "0.0971462188541372486830671157452474859239104515610028934524`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.3981126085090628454172496676210004924148876406768054295545`36.", ",", " ", RowBox[{ "-", "0.4952588273632000941003167833662479783387980922378083230069`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3981126085090628454172496676210004924148876406768054295545`36.\ "}], ",", " ", RowBox[{ "-", "0.4952588273632000941003167833662479783387980922378083230069`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6279630301995543759060666725732481424770939724634101328583`36.\ "}], ",", " ", RowBox[{ "-", "0.0971462188541372486830671157452474859239104515610028934524`36.\ "}]}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", RowBox[{"\"\\"", " ", "|", " ", "\"\\""}], "]"}], " ", ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "0.5674286522812268324066692840449042653665133349363508128789`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.1468613419472374182023488060960142286342110948586812798721`36.", ",", " ", "0.5480939898148364407534255999000908224638338569109212464539`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.2837143261406134162033346420224521326832566674681754064395`36.", ",", " ", "0.4914076277107093009998480237309501128320564844853647278807`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.4012326478675990225510767938040765938296227620522399665819`36.", ",", " ", "0.4012326478675990225510767938040765938296227620522399665819`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.4914076277107093009998480237309501128320564844853647278807`36.", ",", " ", "0.2837143261406134162033346420224521326832566674681754064395`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.5480939898148364407534255999000908224638338569109212464539`36.", ",", " ", "0.1468613419472374182023488060960142286342110948586812798721`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ "0.5674286522812268324066692840449042653665133349363508128789`36.", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.5480939898148364407534255999000908224638338569109212464539`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.1468613419472374182023488060960142286342110948586812798721`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.4914076277107093009998480237309501128320564844853647278807`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.2837143261406134162033346420224521326832566674681754064395`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.4012326478675990225510767938040765938296227620522399665819`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.4012326478675990225510767938040765938296227620522399665819`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.2837143261406134162033346420224521326832566674681754064395`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.4914076277107093009998480237309501128320564844853647278807`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1468613419472374182023488060960142286342110948586812798721`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.5480939898148364407534255999000908224638338569109212464539`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ "-", "0.5674286522812268324066692840449042653665133349363508128789`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1468613419472374182023488060960142286342110948586812798721`36.\ "}], ",", " ", RowBox[{ "-", "0.5480939898148364407534255999000908224638338569109212464539`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2837143261406134162033346420224521326832566674681754064395`36.\ "}], ",", " ", RowBox[{ "-", "0.4914076277107093009998480237309501128320564844853647278807`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4012326478675990225510767938040765938296227620522399665819`36.\ "}], ",", " ", RowBox[{ "-", "0.4012326478675990225510767938040765938296227620522399665819`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4914076277107093009998480237309501128320564844853647278807`36.\ "}], ",", " ", RowBox[{ "-", "0.2837143261406134162033346420224521326832566674681754064395`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.5480939898148364407534255999000908224638338569109212464539`36.\ "}], ",", " ", RowBox[{ "-", "0.1468613419472374182023488060960142286342110948586812798721`36.\ "}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.5674286522812268324066692840449042653665133349363508128789`36.\ "}], ",", " ", "0"}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.5480939898148364407534255999000908224638338569109212464539`36.\ "}], ",", " ", "0.1468613419472374182023488060960142286342110948586812798721`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4914076277107093009998480237309501128320564844853647278807`36.\ "}], ",", " ", "0.2837143261406134162033346420224521326832566674681754064395`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4012326478675990225510767938040765938296227620522399665819`36.\ "}], ",", " ", "0.4012326478675990225510767938040765938296227620522399665819`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2837143261406134162033346420224521326832566674681754064395`36.\ "}], ",", " ", "0.4914076277107093009998480237309501128320564844853647278807`36."}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1468613419472374182023488060960142286342110948586812798721`36.\ "}], ",", " ", "0.5480939898148364407534255999000908224638338569109212464539`36."}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"coords", "[", RowBox[{ "\"\\"", " ", "|", " ", "\"\\"", " ", "|", " ", "\"\\""}], "]"}], " ", ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3912408995578482168588690030017875118326985040166032724812`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.0348414901276005833195282229018289435398321487806993637831`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.596644565371914750984595025882968172339616467215272987861`36.\ "}], ",", " ", "\n", " ", "0.1049392500271779473790552427876514608997325433513921313943`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6928096306142115990844650477017524542343546507546758106102`36.\ "}], ",", " ", "\n", " ", "0.3300263370419944142210867780423241596411878537282911958344`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6587219227249485283848304642377034637999515628850973465243`36."}], ",", " ", "\n", " ", "0.5916940779564449939176021012100073218694301757845084937202`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4741023508474242337627655220048871798716419060010720834784`36.\ "}], ",", " ", "\n", " ", "0.796572107623181963736664860853579375832240891731283493551`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1803559488958147842422637420800557077356017113353849419362`36.\ "}], ",", " ", "\n", " ", "0.9064317828434500962016945608904387057426173309772421784208`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.2240290983566974705231500709291513229541864252517432521513`36.", ",", " ", "\n", " ", "0.9020074666367706570500084373473493160867656295447724179405`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6151028504008498042830291203656220896538268241530875334549`36.", ",", " ", "\n", " ", "0.7920632089007865941306082673015779831388508489478988700027`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6151028504008498042830291203656220896538268241530875334549`36.", ",", " ", "\n", " ", "0.5198190136278799672269842911100456174103693001993997033389`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.3452025653067944318963186339989718732279823535222483064185`36.", ",", " ", "\n", " ", "0.6518634349514331357816006831803722855443809716320590369335`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.044713245663754081926727886057347144209451257601897516855`36.", ",", " ", "\n", " ", "0.7087201523574626591107209150586316054967444232137497569533`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2190036522306322380084631153829247879646592209072531437796`36.\ "}], ",", " ", "\n", " ", "0.6829825436551447678917776002166212137487609677652477849279`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3954232609719748741819472916636142004917458155269848429353`36.\ "}], ",", " ", "\n", " ", "0.5728240688720569021027812130849081147570253278031110454233`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4465671817239661785349561312933532733940138243425921405239`36.\ "}], ",", " ", "\n", " ", "0.4161069392382012522160799192275570971328525197237809731811`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3857131631433731243129823137914011890595520573350500080348`36.\ "}], ",", " ", "\n", " ", "0.2522285652827153339456444854517018391302378633953193258486`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2409869733825707012934035417376501928171723623998372661666`36.\ "}], ",", " ", "\n", " ", "0.174490714785381783128694189492086416427126858934234212117`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.0522622351914008749792923343527434153097482231710490456747`36.", ",", " ", "\n", " ", "0.1158682113545786840626171133711985796789766808288374190926`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.3912408995578482168588690030017875118326985040166032724812`36.", ",", " ", "\n", " ", "0.0348414901276005833195282229018289435398321487806993637831`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.596644565371914750984595025882968172339616467215272987861`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.1049392500271779473790552427876514608997325433513921313943`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6928096306142115990844650477017524542343546507546758106102`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.3300263370419944142210867780423241596411878537282911958344`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6587219227249485283848304642377034637999515628850973465243`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.5916940779564449939176021012100073218694301757845084937202`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.4741023508474242337627655220048871798716419060010720834784`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.796572107623181963736664860853579375832240891731283493551`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1803559488958147842422637420800557077356017113353849419362`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.9064317828434500962016945608904387057426173309772421784208`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2240290983566974705231500709291513229541864252517432521513`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.9020074666367706570500084373473493160867656295447724179405`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6151028504008498042830291203656220896538268241530875334549`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.7920632089007865941306082673015779831388508489478988700027`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6151028504008498042830291203656220896538268241530875334549`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.5198190136278799672269842911100456174103693001993997033389`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3452025653067944318963186339989718732279823535222483064185`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.6518634349514331357816006831803722855443809716320590369335`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.044713245663754081926727886057347144209451257601897516855`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.7087201523574626591107209150586316054967444232137497569533`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.2190036522306322380084631153829247879646592209072531437796`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.6829825436551447678917776002166212137487609677652477849279`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.3954232609719748741819472916636142004917458155269848429353`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.5728240688720569021027812130849081147570253278031110454233`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.4465671817239661785349561312933532733940138243425921405239`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.4161069392382012522160799192275570971328525197237809731811`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.3857131631433731243129823137914011890595520573350500080348`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.2522285652827153339456444854517018391302378633953193258486`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.2409869733825707012934035417376501928171723623998372661666`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.174490714785381783128694189492086416427126858934234212117`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.0522622351914008749792923343527434153097482231710490456747`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.1158682113545786840626171133711985796789766808288374190926`36.\ "}]}], "}"}]}], "}"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"coords", "[", RowBox[{ "\"\\"", " ", "|", " ", "\"\\"", " ", "|", " ", "\"\\""}], "]"}], " ", ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.7703885512055934056250163218973071364288726824338349141286`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.0635570554744614559640638465565278387553819963007913804157`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.8650821439579475950664245781305178052815882829829937889902`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.2383389580292304598652394245869793953326824861279676765585`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.8562547751420501706269712661087778276766741168301060972658`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.394824132492866620382820864972369907419797249747340393491`36."}\ ]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.8262417211679989275328300052348619038199659519102879454029`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.4634368628346147830712988811413488242579937230266038155305`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.7170539591990523236971305765351858731376430351884155739198`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.5737789730333325885644652814130985443194207999376999620853`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.5402349715329223756945426957304866294207469685567267335327`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.6488116079684606962998184335978883539611912122372453417426`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.2118568515815381865468794885217594625179399876693046013854`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.6885347676399991062773583376957182531833049599252399545024`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.1925971378013983514062540804743267841072181706084587285321`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.6885347676399991062773583376957182531833049599252399545024`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4899189692823070563896588172065687570727362214852668907037`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.6600155760809458888575860988562506332289668846620643350852`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6600155760809458888575860988562506332289668846620643350852`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.6053052902329662472767985386335984643369713933408702896725`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.7812221402069220628916181139239880180349037045305607176086`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.5200122720637755487968860172806823170894890606428385670367`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.8580202489052296555148619285131258231976569500606836356108`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.3934484386514280607299190501118390018190314056715656882871`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6740899823048942299218892816601437443752635971296055498625`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.3413249275480337449921947315072791340566810912449907466764`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.5489018427339853015078241293518313347055717862341073763166`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.442973416943216208234384385090951603446601792399455075624`36."}\ ]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2913031709246150065019592967174192609621674830452938269049`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.4993768644421971540033587943727187330780013995062179889798`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.16645895481406571800111959812423957769266713316873932966`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.5031600225061531930488387852391787234801074707145984282903`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.564951604217435164125011969391358566714506633784812270361`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.4354835282509396056796967264058388951757655302091261250699`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6567562399027683782953264144174543338056139617748442642946`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.3659345618226568676718827529012208898037145241560715842111`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6779419250609221969500143632696302800574079605417747244332`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.3096369369268635034146700216856484452185276742859067251016`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6532252923764094085195450896087583427636482953136891876048`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.2162705359894868987666061445326294513203970707457484472476`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.4970487671720703607446018769164356620613207403010607955579`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.1271141109489229119281276931130556775107639926015827608312`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.3480505418839555921841591597143191169937585511710004165617`36.", ",", " ", "\n", " ", RowBox[{ "-", "0.0983621096628570151824797625279597504547578514178914220718`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2942456271965808146484437340579992534971388717629230574797`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.0847427406326152746187517954087037850071759950677218405542`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6090884482969222863222785295000584547390774645492507289829`36.\ "}], ",", " ", "\n", " ", RowBox[{ "-", "0.0244450213363313292169476332909722456751469216541505309291`36.\ "}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.7703885512055934056250163218973071364288726824338349141286`36.\ "}], ",", " ", "\n", " ", "0.0635570554744614559640638465565278387553819963007913804157`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.8650821439579475950664245781305178052815882829829937889902`36.\ "}], ",", " ", "\n", " ", "0.2383389580292304598652394245869793953326824861279676765585`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.8562547751420501706269712661087778276766741168301060972658`36.\ "}], ",", " ", "\n", " ", "0.394824132492866620382820864972369907419797249747340393491`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.8262417211679989275328300052348619038199659519102879454029`36.\ "}], ",", " ", "\n", " ", "0.4634368628346147830712988811413488242579937230266038155305`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.7170539591990523236971305765351858731376430351884155739198`36.\ "}], ",", " ", "\n", " ", "0.5737789730333325885644652814130985443194207999376999620853`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.5402349715329223756945426957304866294207469685567267335327`36.\ "}], ",", " ", "\n", " ", "0.6488116079684606962998184335978883539611912122372453417426`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.2118568515815381865468794885217594625179399876693046013854`36.\ "}], ",", " ", "\n", " ", "0.6885347676399991062773583376957182531833049599252399545024`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.1925971378013983514062540804743267841072181706084587285321`36.", ",", " ", "\n", " ", "0.6885347676399991062773583376957182531833049599252399545024`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.4899189692823070563896588172065687570727362214852668907037`36.", ",", " ", "\n", " ", "0.6600155760809458888575860988562506332289668846620643350852`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6600155760809458888575860988562506332289668846620643350852`36.", ",", " ", "\n", " ", "0.6053052902329662472767985386335984643369713933408702896725`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.7812221402069220628916181139239880180349037045305607176086`36.", ",", " ", "\n", " ", "0.5200122720637755487968860172806823170894890606428385670367`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.8580202489052296555148619285131258231976569500606836356108`36.", ",", " ", "\n", " ", "0.3934484386514280607299190501118390018190314056715656882871`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6740899823048942299218892816601437443752635971296055498625`36.", ",", " ", "\n", " ", "0.3413249275480337449921947315072791340566810912449907466764`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.5489018427339853015078241293518313347055717862341073763166`36.", ",", " ", "\n", " ", "0.442973416943216208234384385090951603446601792399455075624`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.2913031709246150065019592967174192609621674830452938269049`36.", ",", " ", "\n", " ", "0.4993768644421971540033587943727187330780013995062179889798`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.16645895481406571800111959812423957769266713316873932966`36."}]\ , ",", " ", "\n", " ", "0.5031600225061531930488387852391787234801074707145984282903`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.564951604217435164125011969391358566714506633784812270361`36."}\ ], ",", " ", "\n", " ", "0.4354835282509396056796967264058388951757655302091261250699`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6567562399027683782953264144174543338056139617748442642946`36.\ "}], ",", " ", "\n", " ", "0.3659345618226568676718827529012208898037145241560715842111`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6779419250609221969500143632696302800574079605417747244332`36.\ "}], ",", " ", "\n", " ", "0.3096369369268635034146700216856484452185276742859067251016`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.6532252923764094085195450896087583427636482953136891876048`36.\ "}], ",", " ", "\n", " ", "0.2162705359894868987666061445326294513203970707457484472476`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.4970487671720703607446018769164356620613207403010607955579`36.\ "}], ",", " ", "\n", " ", "0.1271141109489229119281276931130556775107639926015827608312`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "-", "0.3480505418839555921841591597143191169937585511710004165617`36.\ "}], ",", " ", "\n", " ", "0.0983621096628570151824797625279597504547578514178914220718`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.2942456271965808146484437340579992534971388717629230574797`36.", ",", " ", "\n", " ", "0.0847427406326152746187517954087037850071759950677218405542`36."}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0.6090884482969222863222785295000584547390774645492507289829`36.", ",", " ", "\n", " ", "0.0244450213363313292169476332909722456751469216541505309291`36."}], "}"}]}], "}"}]}], ";"}]}], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8364306800593324`*^9, 3.83643069264466*^9}, { 3.83643078224331*^9, 3.836430862946164*^9}, 3.836430936525257*^9}, CellID->310159008], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"scale", "[", "coords_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Chop", "[", RowBox[{"#1", "/", RowBox[{"Sqrt", "[", RowBox[{"PolygonArea", "[", "#1", "]"}], "]"}]}], "]"}], " ", "&"}], " ", ")"}], "[", RowBox[{"N", "[", RowBox[{"coords", ",", " ", RowBox[{"{", RowBox[{"18", ",", " ", "18"}], "}"}]}], "]"}], "]"}]}], ";"}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{3.8364272437449703`*^9}, CellID->245902922], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"PolygonArea", "[", RowBox[{ RowBox[{"(", "pts_", ")"}], "?", "MatrixQ"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Total", "[", RowBox[{"Det", " ", "/@", " ", RowBox[{"Partition", "[", RowBox[{"pts", ",", " ", "2", ",", " ", "1", ",", " ", "1"}], "]"}]}], "]"}], "]"}], "/", "2"}]}], ";"}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{3.836427247161565*^9}, CellID->885086071], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"PolygonCentroid", "[", RowBox[{ RowBox[{"(", "pts_", ")"}], "?", "MatrixQ"}], "]"}], " ", ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"dif", " ", "=", " ", RowBox[{"Det", " ", "/@", " ", RowBox[{"Partition", "[", RowBox[{"pts", ",", " ", "2", ",", " ", "1", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "1"}], "}"}]}], "]"}]}]}], "}"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"ListConvolve", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", " ", "1"}], "}"}], "}"}], ",", " ", RowBox[{"Transpose", "[", "pts", "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", " ", RowBox[{"-", "1"}]}], "}"}]}], "]"}], " ", ".", " ", "dif"}], "/", RowBox[{"(", RowBox[{"3", "*", RowBox[{"Total", "[", "dif", "]"}]}], ")"}]}]}], "]"}]}], ";"}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{3.8364272489610605`*^9}, CellID->338581762] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PolygonMarker", "[", "\"\<\!\(\*StyleBox[\"name\", \"TI\"]\)\>\"", "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->215500713], Cell[TextData[{ "returns a unit area ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Polygon", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Polygon", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " describing the shape ", Cell[BoxData["\"\<\!\(\*StyleBox[\"name\", \"TI\"]\)\>\""], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->562802546] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PolygonMarker", "[", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["p", "TI"], StyleBox["1", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"], ",", SubscriptBox[ StyleBox["p", "TI"], StyleBox["n", "TI"]]}], "}"}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->220183995], Cell[TextData[{ "returns a unit area ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Polygon", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Polygon", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " with shape described by points ", Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["p", "TI"], StyleBox["1", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"], ",", SubscriptBox[ StyleBox["p", "TI"], StyleBox["n", "TI"]]}], "}"}]], FontFamily->"Source Sans Pro"], " and centroid at ", Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->54758936] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PolygonMarker", "[", RowBox[{ StyleBox["shape", "TI"], ",", " ", StyleBox["size", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->201200412], Cell[TextData[{ "returns ", Cell[BoxData[ StyleBox["shape", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " of the specified ", Cell[BoxData[ StyleBox["size", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->159169397] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PolygonMarker", "[", RowBox[{ StyleBox["shape", "TI"], ",", " ", StyleBox["size", "TI"], ",", " ", StyleBox["style", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->908724205], Cell[TextData[{ "returns a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Graphics", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Graphics", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " object suitable for ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PlotMarkers", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/PlotMarkers", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " where the style of ", Cell[BoxData[ StyleBox["shape", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is defined by ", Cell[BoxData[ StyleBox["style", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->444063502] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PolygonMarker", "[", TagBox[ ButtonBox[ StyleBox["All", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/All", ContentPadding->False], MouseAppearanceTag["LinkHand"]], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->51531798], Cell["returns the list of names of predefined shapes.", "UsageDescription", CellID->394938740] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[TextData[{ "The basic usage syntax is ", Cell[BoxData[ RowBox[{"PolygonMarker", "[", RowBox[{ StyleBox["shape", "TI"], ",", StyleBox["size", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", where ", Cell[BoxData[ StyleBox["shape", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is the name of a predefined shape or a list of 2D coordinates describing a \ simple polygon. The ", Cell[BoxData[ StyleBox["size", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " can be given as a number or in ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Scaled", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Scaled", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Offset", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Offset", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " form." }], "Notes", CellID->365139115], Cell[TextData[{ Cell[BoxData[ RowBox[{"PolygonMarker", "[", RowBox[{ StyleBox["shape", "TI"], ",", StyleBox["size", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " returns a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Polygon", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Polygon", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " graphics primitive that can be used in ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Graphics", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Graphics", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellTags->"TabNext", CellID->235169085], Cell[TextData[{ Cell[BoxData[ RowBox[{"PolygonMarker", "[", RowBox[{ StyleBox["shape", "TI"], ",", StyleBox["size", "TI"], ",", StyleBox["style", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", where ", Cell[BoxData[ StyleBox["style", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is a list of graphics directives applied to ", Cell[BoxData[ StyleBox["shape", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", returns a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Graphics", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Graphics", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " object which can be used as a marker for ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PlotMarkers", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/PlotMarkers", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellTags->"TabNext", CellID->967662457], Cell[TextData[{ Cell[BoxData[ RowBox[{"PolygonMarker", "[", RowBox[{ StyleBox["shape", "TI"], ",", StyleBox["size", "TI"], ",", StyleBox["style", "TI"], ",", StyleBox["options", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " returns a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Graphics", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Graphics", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " object with ", Cell[BoxData[ StyleBox["options", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " applied." }], "Notes", CellTags->"TabNext", CellID->627807258], Cell[TextData[{ "The centroid of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Polygon", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Polygon", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " generated by ", Cell[BoxData["PolygonMarker"], "InlineFormula", FontFamily->"Source Sans Pro"], " is always placed at ", Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " in the internal coordinate system of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Graphics", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Graphics", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellTags->"TabNext", CellID->509465647], Cell[TextData[{ Cell[BoxData[ RowBox[{"PolygonMarker", "[", RowBox[{ StyleBox["shape", "TI"], ",", StyleBox["size", "TI"], ",", StyleBox["positions", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", where ", Cell[BoxData[ StyleBox["positions", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is a list of 2D coordinates, evaluates to ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Translate", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Translate", ContentPadding->False], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{ StyleBox["shape", "TI"], ",", StyleBox["size", "TI"]}], "]"}], ",", StyleBox["positions", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ". It represents a collection of multiple identical copies of ", Cell[BoxData[ StyleBox["shape", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " with centroids placed at ", Cell[BoxData[ StyleBox["positions", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellTags->"TabNext", CellID->997822928], Cell[TextData[{ "With an ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Offset", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Offset", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " ", Cell[BoxData[ StyleBox["size", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " specification, the plot marker has a fixed size specified in printer's \ points, independent of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ImageSize", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ImageSize", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellTags->"TabNext", CellID->305742479], Cell[TextData[{ Cell[BoxData[ RowBox[{"PolygonMarker", "[", RowBox[{ StyleBox["shape", "TI"], ",", StyleBox["size", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " returns a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Polygon", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Polygon", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " with area ", Cell[BoxData[ FormBox[ SuperscriptBox[ StyleBox["size", "TI"], "2"], TraditionalForm]], "InlineFormula", FontFamily->"Source Sans Pro"], " in the internal coordinate system of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Graphics", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Graphics", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ". ", Cell[BoxData[ RowBox[{"PolygonMarker", "[", RowBox[{ StyleBox["shape", "TI"], ",", RowBox[{ TagBox[ ButtonBox[ StyleBox["Offset", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Offset", ContentPadding->False], MouseAppearanceTag["LinkHand"]], "[", StyleBox["size", "TI"], "]"}]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " returns a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Polygon", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Polygon", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " with area ", Cell[BoxData[ FormBox[ SuperscriptBox[ StyleBox["size", "TI"], "2"], TraditionalForm]], "InlineFormula", FontFamily->"Source Sans Pro"], " square printer\[CloseCurlyQuote]s points. The area taken by the boundary \ of the returned ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Polygon", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Polygon", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " isn\[CloseCurlyQuote]t taken into account." }], "Notes", CellTags->"TabNext", CellID->635133278], Cell[TextData[{ Cell[BoxData[ RowBox[{"PolygonMarker", "[", TagBox[ ButtonBox[ StyleBox["All", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/All", ContentPadding->False], MouseAppearanceTag["LinkHand"]], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ RowBox[{"PolygonMarker", "[", "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " both return the complete list of names of predefined shapes." }], "Notes", CellTags->"TabNext", CellID->489690143] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell[CellGroupData[{ Cell[TextData[{ "Create a polygon object of ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " type:" }], "Text", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{3.8352520821078854`*^9}, CellID->338899248], Cell[BoxData[ RowBox[{"ptc", "=", RowBox[{"PolygonMarker", "[", "\"\\"", "]"}]}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{3.835252082108885*^9}, CellLabel->"In[142]:=", CellID->401251499], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["Polygon", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready", Typeset`spolygon$$ = Polygon[{{-0.1310041741155134387479154137593676560893228333511280628875`\ 36., 1.3100417411551343874791541375936765608932283335112806288742`36.}, { 0.1310041741155134387479154137593676560893228333511280628875`36., 1.3100417411551343874791541375936765608932283335112806288742`36.}, { 0.1310041741155134387479154137593676560893228333511280628875`36., 0.07563529519055628760476786288963764958491062457782544389`36.}, { 1.2000315149161010334454756502242485718183207853429456897939`36., \ -0.5415679277917327623324252744623818060692482298889021486021`36.}, { 1.0690273408005875946975602364648809157289979519918176269065`36., \ -0.7684738133634016251467288631312947548239801036223784802721`36.}, { 0, -0.1512705903811125752095357257792752991698212491556508877801`36.}, \ {-1.0690273408005875946975602364648809157289979519918176269065`36., \ -0.7684738133634016251467288631312947548239801036223784802721`36.}, \ {-1.2000315149161010334454756502242485718183207853429456897939`36., \ -0.5415679277917327623324252744623818060692482298889021486021`36.}, \ {-0.1310041741155134387479154137593676560893228333511280628875`36., 0.07563529519055628760476786288963764958491062457782544389`36.}}]}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ Directive[ Hue[0.6, 0.3, 0.85], EdgeForm[ Hue[0.6, 0.3, 0.85]]], PolygonBox[{{-0.13100417411551343`, 1.3100417411551344`}, { 0.13100417411551343`, 1.3100417411551344`}, { 0.13100417411551343`, 0.07563529519055628}, { 1.200031514916101, -0.5415679277917328}, { 1.0690273408005877`, -0.7684738133634016}, { 0, -0.15127059038111257`}, {-1.0690273408005877`, \ -0.7684738133634016}, {-1.200031514916101, -0.5415679277917328}, \ {-0.13100417411551343`, 0.07563529519055628}}]}, ImageSize -> Dynamic[{5.25, 3.5} (CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification])]], GridBox[{{ RowBox[{ TagBox["\"Number of points: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["9", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Embedding dimension: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["2", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ Directive[ Hue[0.6, 0.3, 0.85], EdgeForm[ Hue[0.6, 0.3, 0.85]]], PolygonBox[{{-0.13100417411551343`, 1.3100417411551344`}, { 0.13100417411551343`, 1.3100417411551344`}, { 0.13100417411551343`, 0.07563529519055628}, { 1.200031514916101, -0.5415679277917328}, { 1.0690273408005877`, -0.7684738133634016}, { 0, -0.15127059038111257`}, {-1.0690273408005877`, \ -0.7684738133634016}, {-1.200031514916101, -0.5415679277917328}, \ {-0.13100417411551343`, 0.07563529519055628}}]}, ImageSize -> Dynamic[{5.25, 3.5} (CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification])]], GridBox[{{ RowBox[{ TagBox["\"Number of points: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["9", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Embedding dimension: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["2", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[ Quiet[ Apply[Region`PolygonDump`polygonType, Region`PolygonDump`computeType[Typeset`spolygon$$]]], StandardForm], SynchronousUpdating -> False, TrackedSymbols :> {}, CachedValue :> AnimatorBox[ 0, {0, Infinity}, AppearanceElements -> "ProgressSlider", ImageSize -> 20]], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Bounds: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[ Region`PolygonDump`iRegionBounds[Typeset`spolygon$$], StandardForm], SynchronousUpdating -> False, TrackedSymbols :> {}, CachedValue :> AnimatorBox[ 0, {0, Infinity}, AppearanceElements -> "ProgressSlider", ImageSize -> 20]], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Area: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[ Region`PolygonDump`iArea[Typeset`spolygon$$], StandardForm], SynchronousUpdating -> False, TrackedSymbols :> {}, CachedValue :> AnimatorBox[ 0, {0, Infinity}, AppearanceElements -> "ProgressSlider", ImageSize -> 20]], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], Polygon[{{-0.1310041741155134387479154137593676560893228333511280628875`36., 1.3100417411551343874791541375936765608932283335112806288742`36.}, { 0.1310041741155134387479154137593676560893228333511280628875`36., 1.3100417411551343874791541375936765608932283335112806288742`36.}, { 0.1310041741155134387479154137593676560893228333511280628875`36., 0.07563529519055628760476786288963764958491062457782544389`36.}, { 1.2000315149161010334454756502242485718183207853429456897939`36., \ -0.5415679277917327623324252744623818060692482298889021486021`36.}, { 1.0690273408005875946975602364648809157289979519918176269065`36., \ -0.7684738133634016251467288631312947548239801036223784802721`36.}, { 0, -0.1512705903811125752095357257792752991698212491556508877801`36.}, \ {-1.0690273408005875946975602364648809157289979519918176269065`36., \ -0.7684738133634016251467288631312947548239801036223784802721`36.}, \ {-1.2000315149161010334454756502242485718183207853429456897939`36., \ -0.5415679277917327623324252744623818060692482298889021486021`36.}, \ {-0.1310041741155134387479154137593676560893228333511280628875`36., 0.07563529519055628760476786288963764958491062457782544389`36.}}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{3.8351529292780256`*^9, 3.835162796969001*^9, 3.8351632391854563`*^9, 3.8351646009808316`*^9, 3.835165046789323*^9, 3.8352520821098833`*^9, 3.8353073743249283`*^9, 3.835310608070774*^9, 3.836427423677667*^9, 3.8364310201562166`*^9, 3.840474558582983*^9, 3.840476029353437*^9, 3.8461537924400053`*^9}, CellLabel->"Out[142]=", CellID->996161107] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "The centroid of the polygon is placed at ", Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{}, CellChangeTimes->{3.8352520962089057`*^9}, CellID->211513068], Cell[BoxData[ RowBox[{"centroid", "=", RowBox[{ RowBox[{"RegionCentroid", "[", "ptc", "]"}], "//", "Chop"}]}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{}, CellChangeTimes->{3.8352520962119007`*^9}, CellLabel->"In[143]:=", CellID->432817078], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{}, CellChangeTimes->{3.835152934935447*^9, 3.835162808924431*^9, 3.8351632411559305`*^9, 3.8351646041118135`*^9, 3.8351650491625385`*^9, 3.8352520962119007`*^9, 3.8353073776633673`*^9, 3.8353106095237384`*^9, 3.8364274260676546`*^9, 3.8364310241822906`*^9, 3.84047456141676*^9, 3.840476032152513*^9, 3.8461537949208307`*^9}, CellLabel->"Out[143]=", CellID->848872921] }, Open ]], Cell[CellGroupData[{ Cell["Visualize the polygon and its centroid:", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{3.8352520737137175`*^9}, CellID->303518880], Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"LightBlue", ",", "ptc", ",", "Red", ",", RowBox[{"PointSize", "[", ".05", "]"}], ",", RowBox[{"Point", "[", "centroid", "]"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{3.835252073714719*^9}, CellLabel->"In[144]:=", CellID->3213614], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.87, 0.94, 1], PolygonBox[{{-0.13100417411551343`, 1.3100417411551344`}, { 0.13100417411551343`, 1.3100417411551344`}, {0.13100417411551343`, 0.07563529519055628}, {1.200031514916101, -0.5415679277917328}, { 1.0690273408005877`, -0.7684738133634016}, { 0, -0.15127059038111257`}, {-1.0690273408005877`, -0.7684738133634016}, \ {-1.200031514916101, -0.5415679277917328}, {-0.13100417411551343`, 0.07563529519055628}}]}, {RGBColor[1, 0, 0], PointSize[0.05], PointBox[{0, 0}]}}, Axes->True]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{"AttachedInlineCell" -> CellObject[7546225]}, CellChangeTimes->{3.8351529527477903`*^9, 3.835160521372141*^9, 3.8351609421469545`*^9, 3.8351628112408314`*^9, 3.835163242327508*^9, 3.8351638108342905`*^9, 3.835164001837936*^9, 3.835164605385217*^9, 3.8351650506450534`*^9, 3.8352520737157183`*^9, 3.8353073789893637`*^9, 3.835310611262601*^9, 3.8364274274582677`*^9, 3.8364310265100603`*^9, 3.84047456469772*^9, 3.84047603598965*^9, 3.8461538082574472`*^9}, CellLabel->"Out[144]=", CellID->555929369] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell[CellGroupData[{ Cell["Get the complete list of built-in named shapes:", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{}, CellChangeTimes->{3.8352520627582054`*^9}, CellID->919789818], Cell[BoxData[ RowBox[{"allShapes", "=", RowBox[{"PolygonMarker", "[", "All", "]"}]}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{}, CellChangeTimes->{3.8352520627582054`*^9}, CellLabel->"In[145]:=", CellID->71898600], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"TripleCross\"\>", ",", "\<\"Y\"\>", ",", "\<\"UpTriangle\"\>", ",", "\<\"UpTriangleTruncated\"\>", ",", "\<\"DownTriangle\"\>", ",", "\<\"DownTriangleTruncated\"\>", ",", "\<\"LeftTriangle\"\>", ",", "\<\"LeftTriangleTruncated\"\>", ",", "\<\"RightTriangle\"\>", ",", "\<\"RightTriangleTruncated\"\>", ",", "\<\"ThreePointedStar\"\>", ",", "\<\"Cross\"\>", ",", "\<\"DiagonalCross\"\>", ",", "\<\"Diamond\"\>", ",", "\<\"Square\"\>", ",", "\<\"FourPointedStar\"\>", ",", "\<\"DiagonalFourPointedStar\"\>", ",", "\<\"FivefoldCross\"\>", ",", "\<\"Pentagon\"\>", ",", "\<\"FivePointedStar\"\>", ",", "\<\"FivePointedStarThick\"\>", ",", "\<\"SixfoldCross\"\>", ",", "\<\"Hexagon\"\>", ",", "\<\"SixPointedStar\"\>", ",", "\<\"SixPointedStarSlim\"\>", ",", "\<\"SevenfoldCross\"\>", ",", "\<\"SevenPointedStar\"\>", ",", "\<\"SevenPointedStarNeat\"\>", ",", "\<\"SevenPointedStarSlim\"\>", ",", "\<\"EightfoldCross\"\>", ",", "\<\"Disk\"\>", ",", "\<\"H\"\>", ",", "\<\"I\"\>", ",", "\<\"N\"\>", ",", "\<\"Z\"\>", ",", "\<\"S\"\>", ",", "\<\"Sw\"\>", ",", "\<\"Sl\"\>"}], "}"}]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{}, CellChangeTimes->{3.8351529630246725`*^9, 3.8351628169838343`*^9, 3.8351632448595877`*^9, 3.8351646081662717`*^9, 3.8351650538067694`*^9, 3.835252062759205*^9, 3.8353073817503204`*^9, 3.8353106138397045`*^9, 3.8364274301987057`*^9, 3.8364310291719027`*^9, 3.84047457329585*^9, 3.840476039974749*^9, 3.846153813339625*^9}, CellLabel->"Out[145]=", CellID->489618411] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Make a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Grid", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Grid", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Button", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Button", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "s with the shapes for easy selection:" }], "Text", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellID->202538375], Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"allShapes", "[", RowBox[{"[", RowBox[{";;", "11"}], "]"}], "]"}], ",", RowBox[{"allShapes", "[", RowBox[{"[", RowBox[{"12", ";;", "17"}], "]"}], "]"}], ",", RowBox[{"allShapes", "[", RowBox[{"[", RowBox[{"18", ";;", "21"}], "]"}], "]"}], ",", RowBox[{"allShapes", "[", RowBox[{"[", RowBox[{"22", ";;", "31"}], "]"}], "]"}], ",", RowBox[{"allShapes", "[", RowBox[{"[", RowBox[{"32", ";;"}], "]"}], "]"}]}], "}"}], "/.", RowBox[{"shape_String", ":>", RowBox[{"Button", "[", RowBox[{ RowBox[{"Tooltip", "[", RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{"shape", ",", RowBox[{"Offset", "[", "13", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", RowBox[{"Hue", "@", RowBox[{"Random", "[", "]"}]}], "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", "0.005", "]"}], ",", RowBox[{"JoinForm", "[", "\"\\"", "]"}]}], "}"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<\\\"\>\"", ",", RowBox[{"Style", "[", RowBox[{"shape", ",", "Bold"}], "]"}], ",", "\"\<\\\"\>\"", ",", "\"\< (click to copy the name)\>\""}], "}"}], "]"}]}], "]"}], ",", RowBox[{"CopyToClipboard", "@", RowBox[{"ToString", "[", RowBox[{"shape", ",", "InputForm"}], "]"}]}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"40", ",", "40"}], "}"}]}], ",", RowBox[{"FrameMargins", "\[Rule]", "False"}]}], "]"}]}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{{3.835156145257304*^9, 3.835156240646628*^9}, { 3.8351563111470213`*^9, 3.8351563594512863`*^9}, {3.8351563932474403`*^9, 3.8351563965625916`*^9}, 3.8351571231710463`*^9, {3.835157250420874*^9, 3.8351572660286207`*^9}, {3.8351574025660367`*^9, 3.83515743173481*^9}, { 3.8351575020664487`*^9, 3.83515750262716*^9}, {3.835157534346843*^9, 3.835157535240284*^9}, {3.83515757162654*^9, 3.835157589949359*^9}, { 3.835157781779688*^9, 3.835157904558775*^9}, 3.8351579411551228`*^9, { 3.8351583283534126`*^9, 3.8351583902909884`*^9}, {3.8351591934083705`*^9, 3.8351591998564677`*^9}, {3.8351592825493155`*^9, 3.835159345689416*^9}, { 3.8351594850260973`*^9, 3.8351595434147944`*^9}, {3.8351649019444633`*^9, 3.835164902406585*^9}, 3.835252051688248*^9, {3.8364275608498583`*^9, 3.8364276081746736`*^9}, {3.8364276690665913`*^9, 3.8364276778191643`*^9}, {3.836427774554351*^9, 3.836427787596492*^9}, { 3.83642800503376*^9, 3.83642810780996*^9}, 3.8364281734895945`*^9}, CellLabel->"In[146]:=", CellID->959822976], Cell[BoxData[ TagBox[GridBox[{ { ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.4333157945524565]], PolygonBox[{ Offset[{-1.7030542635016748`, 17.030542635016747`}, {0, 0}], Offset[{1.7030542635016748`, 17.030542635016747`}, {0, 0}], Offset[{1.7030542635016748`, 0.9832588374772318}, {0, 0}], Offset[{15.600409693909313`, -7.040383061292526}, {0, 0}], Offset[{13.89735543040764, -9.99015957372422}, {0, 0}], Offset[{0, -1.9665176749544635`}, {0, 0}], Offset[{-13.89735543040764, -9.99015957372422}, {0, 0}], Offset[{-15.600409693909313`, -7.040383061292526}, {0, 0}], Offset[{-1.7030542635016748`, 0.9832588374772318}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"TripleCross\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["TripleCross", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["TripleCross", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.7921496908406953]], PolygonBox[{ Offset[{13.89735543040764, 9.99015957372422}, {0, 0}], Offset[{15.600409693909313`, 7.040383061292526}, {0, 0}], Offset[{1.7030542635016748`, -0.9832588374772318}, {0, 0}], Offset[{1.7030542635016748`, -17.030542635016747`}, {0, 0}], Offset[{-1.7030542635016748`, -17.030542635016747`}, {0, 0}], Offset[{-1.7030542635016748`, -0.9832588374772318}, {0, 0}], Offset[{-15.600409693909313`, 7.040383061292526}, {0, 0}], Offset[{-13.89735543040764, 9.99015957372422}, {0, 0}], Offset[{0, 1.9665176749544635`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"Y\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["Y", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["Y", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.07321011258106438]], PolygonBox[{ Offset[{0, 11.405974778921601`}, {0, 0}], Offset[{9.877863913470703, -5.702987389460801}, {0, 0}], Offset[{-9.877863913470703, -5.702987389460801}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"UpTriangle\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["UpTriangle", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["UpTriangle", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.4647613729735293]], PolygonBox[{ Offset[{-2.98805548197639, 7.701265600825385}, {0, 0}], Offset[{2.98805548197639, 7.701265600825385}, {0, 0}], Offset[{8.163519392594207, -1.2629008451037842`}, {0, 0}], Offset[{5.175463910617817, -6.438364755721601}, {0, 0}], Offset[{-5.175463910617817, -6.438364755721601}, {0, 0}], Offset[{-8.163519392594207, -1.2629008451037842`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"UpTriangleTruncated\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["UpTriangleTruncated", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["UpTriangleTruncated", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.9215795967841793]], PolygonBox[{ Offset[{9.877863913470703, 5.702987389460801}, {0, 0}], Offset[{0, -11.405974778921601`}, {0, 0}], Offset[{-9.877863913470703, 5.702987389460801}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"DownTriangle\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["DownTriangle", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["DownTriangle", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.10245502508753164`]], PolygonBox[{ Offset[{-2.98805548197639, -7.701265600825385}, {0, 0}], Offset[{2.98805548197639, -7.701265600825385}, {0, 0}], Offset[{8.163519392594207, 1.2629008451037842`}, {0, 0}], Offset[{5.175463910617817, 6.438364755721601}, {0, 0}], Offset[{-5.175463910617817, 6.438364755721601}, {0, 0}], Offset[{-8.163519392594207, 1.2629008451037842`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"DownTriangleTruncated\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["DownTriangleTruncated", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["DownTriangleTruncated", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.417837942308905]], PolygonBox[{ Offset[{5.702987389460801, 9.877863913470703}, {0, 0}], Offset[{5.702987389460801, -9.877863913470703}, {0, 0}], Offset[{-11.405974778921601`, 0}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"LeftTriangle\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["LeftTriangle", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["LeftTriangle", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.4852524874823994]], PolygonBox[{ Offset[{1.2629008451037842`, 8.163519392594207}, {0, 0}], Offset[{6.438364755721601, 5.175463910617817}, {0, 0}], Offset[{6.438364755721601, -5.175463910617817}, {0, 0}], Offset[{1.2629008451037842`, -8.163519392594207}, {0, 0}], Offset[{-7.701265600825385, -2.98805548197639}, {0, 0}], Offset[{-7.701265600825385, 2.98805548197639}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"LeftTriangleTruncated\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["LeftTriangleTruncated", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["LeftTriangleTruncated", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.5972281638470432]], PolygonBox[{ Offset[{-5.702987389460801, 9.877863913470703}, {0, 0}], Offset[{11.405974778921601`, 0}, {0, 0}], Offset[{-5.702987389460801, -9.877863913470703}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"RightTriangle\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["RightTriangle", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["RightTriangle", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.31792522444235694`]], PolygonBox[{ Offset[{-6.438364755721601, 5.175463910617817}, {0, 0}], Offset[{-1.2629008451037842`, 8.163519392594207}, {0, 0}], Offset[{7.701265600825385, 2.98805548197639}, {0, 0}], Offset[{7.701265600825385, -2.98805548197639}, {0, 0}], Offset[{-1.2629008451037842`, -8.163519392594207}, {0, 0}], Offset[{-6.438364755721601, -5.175463910617817}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"RightTriangleTruncated\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["RightTriangleTruncated", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["RightTriangleTruncated", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.302661713518024]], PolygonBox[{ Offset[{0, 15.580851302931503`}, {0, 0}], Offset[{3.6155491274558496`, 2.087438262004951}, {0, 0}], Offset[{13.493413040926553`, -7.7904256514657515`}, {0, 0}], Offset[{0, -4.174876524009902}, {0, 0}], Offset[{-13.493413040926553`, -7.7904256514657515`}, {0, 0}], Offset[{-3.6155491274558496`, 2.087438262004951}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"ThreePointedStar\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["ThreePointedStar", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["ThreePointedStar", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"]}, { ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.5345607083391397]], PolygonBox[{ Offset[{-1.4912022701586516`, 14.912022701586515`}, {0, 0}], Offset[{1.4912022701586516`, 14.912022701586515`}, {0, 0}], Offset[{1.4912022701586516`, 1.4912022701586516`}, {0, 0}], Offset[{14.912022701586515`, 1.4912022701586516`}, {0, 0}], Offset[{14.912022701586515`, -1.4912022701586516`}, {0, 0}], Offset[{1.4912022701586516`, -1.4912022701586516`}, {0, 0}], Offset[{1.4912022701586516`, -14.912022701586515`}, {0, 0}], Offset[{-1.4912022701586516`, -14.912022701586515`}, {0, 0}], Offset[{-1.4912022701586516`, -1.4912022701586516`}, {0, 0}], Offset[{-14.912022701586515`, -1.4912022701586516`}, {0, 0}], Offset[{-14.912022701586515`, 1.4912022701586516`}, {0, 0}], Offset[{-1.4912022701586516`, 1.4912022701586516`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"Cross\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["Cross", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["Cross", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.0034009890000894992`]], PolygonBox[{ Offset[{9.489953136149609, 11.59883161084952}, {0, 0}], Offset[{11.59883161084952, 9.489953136149609}, {0, 0}], Offset[{2.108878474699913, 0}, {0, 0}], Offset[{11.59883161084952, -9.489953136149609}, {0, 0}], Offset[{9.489953136149609, -11.59883161084952}, {0, 0}], Offset[{0, -2.108878474699913}, {0, 0}], Offset[{-9.489953136149609, -11.59883161084952}, {0, 0}], Offset[{-11.59883161084952, -9.489953136149609}, {0, 0}], Offset[{-2.108878474699913, 0}, {0, 0}], Offset[{-11.59883161084952, 9.489953136149609}, {0, 0}], Offset[{-9.489953136149609, 11.59883161084952}, {0, 0}], Offset[{0, 2.108878474699913}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"DiagonalCross\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["DiagonalCross", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["DiagonalCross", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.533606517737148]], PolygonBox[{ Offset[{0, 9.192388155425117}, {0, 0}], Offset[{9.192388155425117, 0}, {0, 0}], Offset[{0, -9.192388155425117}, {0, 0}], Offset[{-9.192388155425117, 0}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"Diamond\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["Diamond", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["Diamond", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.07091909302701432]], PolygonBox[{ Offset[{6.5, 6.5}, {0, 0}], Offset[{6.5, -6.5}, {0, 0}], Offset[{-6.5, -6.5}, {0, 0}], Offset[{-6.5, 6.5}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"Square\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["Square", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["Square", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.01649974457129429]], PolygonBox[{ Offset[{0, 12.010433922646728`}, {0, 0}], Offset[{3.5177746509502805`, 3.5177746509502805`}, {0, 0}], Offset[{12.010433922646728`, 0}, {0, 0}], Offset[{3.5177746509502805`, -3.5177746509502805`}, {0, 0}], Offset[{0, -12.010433922646728`}, {0, 0}], Offset[{-3.5177746509502805`, -3.5177746509502805`}, {0, 0}], Offset[{-12.010433922646728`, 0}, {0, 0}], Offset[{-3.5177746509502805`, 3.5177746509502805`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"FourPointedStar\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["FourPointedStar", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["FourPointedStar", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.10249933993847925`]], PolygonBox[{ Offset[{8.492659271696448, 8.492659271696448}, {0, 0}], Offset[{4.974884620746167, 0}, {0, 0}], Offset[{8.492659271696448, -8.492659271696448}, {0, 0}], Offset[{0, -4.974884620746167}, {0, 0}], Offset[{-8.492659271696448, -8.492659271696448}, {0, 0}], Offset[{-4.974884620746167, 0}, {0, 0}], Offset[{-8.492659271696448, 8.492659271696448}, {0, 0}], Offset[{0, 4.974884620746167}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox[ "\"DiagonalFourPointedStar\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["DiagonalFourPointedStar", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["DiagonalFourPointedStar", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], "", "", "", "", ""}, { ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.7900285607005164]], PolygonBox[{ Offset[{-1.347182155805175, 13.47182155805175}, {0, 0}], Offset[{1.347182155805175, 13.47182155805175}, {0, 0}], Offset[{1.347182155805175, 1.8542371628316225`}, {0, 0}], Offset[{12.396161498488167`, 5.444268174539838}, {0, 0}], Offset[{13.228765859813123`, 2.8817754387097088`}, {0, 0}], Offset[{2.17978651713013, -0.7082555729985066}, {0, 0}], Offset[{9.00843129190369, -10.107078782316785`}, {0, 0}], Offset[{6.8286447747735615`, -11.690786388984511`}, {0, 0}], Offset[{0, -2.2919631796662316`}, {0, 0}], Offset[{-6.8286447747735615`, -11.690786388984511`}, {0, 0}], Offset[{-9.00843129190369, -10.107078782316785`}, {0, 0}], Offset[{-2.17978651713013, -0.7082555729985066}, {0, 0}], Offset[{-13.228765859813123`, 2.8817754387097088`}, {0, 0}], Offset[{-12.396161498488167`, 5.444268174539838}, {0, 0}], Offset[{-1.347182155805175, 1.8542371628316225`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"FivefoldCross\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["FivefoldCross", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["FivefoldCross", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.6567488434224507]], PolygonBox[{ Offset[{0, 8.430827145571593}, {0, 0}], Offset[{8.018193094553933, 2.605268864619251}, {0, 0}], Offset[{4.95551586079403, -6.820682437405048}, {0, 0}], Offset[{-4.95551586079403, -6.820682437405048}, {0, 0}], Offset[{-8.018193094553933, 2.605268864619251}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"Pentagon\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["Pentagon", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["Pentagon", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.8375399933478193]], PolygonBox[{ Offset[{0, 12.269776382169693`}, {0, 0}], Offset[{2.7547364309848215`, 3.791569419270795}, {0, 0}], Offset[{11.669250781746863`, 3.791569419270795}, {0, 0}], Offset[{4.45725717538102, -1.4482506474567431`}, {0, 0}], Offset[{7.211993606365842, -9.926457610355643}, {0, 0}], Offset[{0, -4.686637543628104}, {0, 0}], Offset[{-7.211993606365842, -9.926457610355643}, {0, 0}], Offset[{-4.45725717538102, -1.4482506474567431`}, {0, 0}], Offset[{-11.669250781746863`, 3.791569419270795}, {0, 0}], Offset[{-2.7547364309848215`, 3.791569419270795}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"FivePointedStar\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["FivePointedStar", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["FivePointedStar", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.5220427363428607]], PolygonBox[{ Offset[{0, 10.623461959173184`}, {0, 0}], Offset[{3.181637034132198, 4.379147691281084}, {0, 0}], Offset[{10.103512721885336`, 3.282830284480288}, {0, 0}], Offset[{5.147996861091306, -1.6726855763137423`}, {0, 0}], Offset[{6.2443142678921015`, -8.594561264066881}, {0, 0}], Offset[{0, -5.412924229934682}, {0, 0}], Offset[{-6.2443142678921015`, -8.594561264066881}, {0, 0}], Offset[{-5.147996861091306, -1.6726855763137423`}, {0, 0}], Offset[{-10.103512721885336`, 3.282830284480288}, {0, 0}], Offset[{-3.181637034132198, 4.379147691281084}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"FivePointedStarThick\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["FivePointedStarThick", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["FivePointedStarThick", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], "", "", "", "", "", "", ""}, { ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.4759715761162339]], PolygonBox[{ Offset[{-1.2417175793233526`, 12.417175793233527`}, {0, 0}], Offset[{1.2417175793233526`, 12.417175793233527`}, {0, 0}], Offset[{1.2417175793233526`, 2.1507179360394844`}, {0, 0}], Offset[{10.132730890535745`, 7.283946864636506}, {0, 0}], Offset[{11.374448469859098`, 5.133228928597021}, {0, 0}], Offset[{2.483435158646705, 0}, {0, 0}], Offset[{11.374448469859098`, -5.133228928597021}, {0, 0}], Offset[{10.132730890535745`, -7.283946864636506}, {0, 0}], Offset[{1.2417175793233526`, -2.1507179360394844`}, {0, 0}], Offset[{1.2417175793233526`, -12.417175793233527`}, {0, 0}], Offset[{-1.2417175793233526`, -12.417175793233527`}, {0, 0}], Offset[{-1.2417175793233526`, -2.1507179360394844`}, {0, 0}], Offset[{-10.132730890535745`, -7.283946864636506}, {0, 0}], Offset[{-11.374448469859098`, -5.133228928597021}, {0, 0}], Offset[{-2.483435158646705, 0}, {0, 0}], Offset[{-11.374448469859098`, 5.133228928597021}, {0, 0}], Offset[{-10.132730890535745`, 7.283946864636506}, {0, 0}], Offset[{-1.2417175793233526`, 2.1507179360394844`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"SixfoldCross\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["SixfoldCross", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["SixfoldCross", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.019687783474237133`]], PolygonBox[{ Offset[{0, 8.065242112218197}, {0, 0}], Offset[{6.984704556853022, 4.0326210561090985`}, {0, 0}], Offset[{6.984704556853022, -4.0326210561090985`}, {0, 0}], Offset[{0, -8.065242112218197}, {0, 0}], Offset[{-6.984704556853022, -4.0326210561090985`}, {0, 0}], Offset[{-6.984704556853022, 4.0326210561090985`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"Hexagon\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["Hexagon", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["Hexagon", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.9379791162395832]], PolygonBox[{ Offset[{0, 9.877863913470703}, {0, 0}], Offset[{2.8514936947304004`, 4.938931956735352}, {0, 0}], Offset[{8.5544810841912, 4.938931956735352}, {0, 0}], Offset[{5.702987389460801, 0}, {0, 0}], Offset[{8.5544810841912, -4.938931956735352}, {0, 0}], Offset[{2.8514936947304004`, -4.938931956735352}, {0, 0}], Offset[{0, -9.877863913470703}, {0, 0}], Offset[{-2.8514936947304004`, -4.938931956735352}, {0, 0}], Offset[{-8.5544810841912, -4.938931956735352}, {0, 0}], Offset[{-5.702987389460801, 0}, {0, 0}], Offset[{-8.5544810841912, 4.938931956735352}, {0, 0}], Offset[{-2.8514936947304004`, 4.938931956735352}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"SixPointedStar\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["SixPointedStar", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["SixPointedStar", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.0887269417904042]], PolygonBox[{ Offset[{0, 12.405866710003783`}, {0, 0}], Offset[{2.27043118591253, 3.9325021690893616`}, {0, 0}], Offset[{10.743795726826951`, 6.202933355001892}, {0, 0}], Offset[{4.54086237182506, 0}, {0, 0}], Offset[{10.743795726826951`, -6.202933355001892}, {0, 0}], Offset[{2.27043118591253, -3.9325021690893616`}, {0, 0}], Offset[{0, -12.405866710003783`}, {0, 0}], Offset[{-2.27043118591253, -3.9325021690893616`}, {0, 0}], Offset[{-10.743795726826951`, -6.202933355001892}, {0, 0}], Offset[{-4.54086237182506, 0}, {0, 0}], Offset[{-10.743795726826951`, 6.202933355001892}, {0, 0}], Offset[{-2.27043118591253, 3.9325021690893616`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"SixPointedStarSlim\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["SixPointedStarSlim", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["SixPointedStarSlim", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.6838218852755386]], PolygonBox[{ Offset[{-1.1606016440583466`, 11.606016440583467`}, {0, 0}], Offset[{1.1606016440583466`, 11.606016440583467`}, {0, 0}], Offset[{1.1606016440583466`, 2.410014146784188}, {0, 0}], Offset[{8.35032575019884, 8.14362779483756}, {0, 0}], Offset[{9.797572328380557, 6.32883798697962}, {0, 0}], Offset[{2.6078482222400647`, 0.5952243389262483}, {0, 0}], Offset[{11.573287538953057`, -1.451078680154377}, {0, 0}], Offset[{11.056771215378863`, -3.7140845555875686`}, {0, 0}], Offset[{2.09133189866587, -1.6677815365069435`}, {0, 0}], Offset[{6.081327758833142, -9.953093312379329}, {0, 0}], Offset[{3.9899958601672725`, -10.960225674279371`}, {0, 0}], Offset[{0, -2.674913898406985}, {0, 0}], Offset[{-3.9899958601672725`, -10.960225674279371`}, {0, 0}], Offset[{-6.081327758833142, -9.953093312379329}, {0, 0}], Offset[{-2.09133189866587, -1.6677815365069435`}, {0, 0}], Offset[{-11.056771215378863`, -3.7140845555875686`}, {0, 0}], Offset[{-11.573287538953057`, -1.451078680154377}, {0, 0}], Offset[{-2.6078482222400647`, 0.5952243389262483}, {0, 0}], Offset[{-9.797572328380557, 6.32883798697962}, {0, 0}], Offset[{-8.35032575019884, 8.14362779483756}, {0, 0}], Offset[{-1.1606016440583466`, 2.410014146784188}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"SevenfoldCross\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["SevenfoldCross", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["SevenfoldCross", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.9464776708931727]], PolygonBox[{ Offset[{0, 8.967014259302351}, {0, 0}], Offset[{2.6924075778971157`, 5.590841943796861}, {0, 0}], Offset[{7.01069405166232, 5.590841943796861}, {0, 0}], Offset[{6.049784912429167, 1.380823927725942}, {0, 0}], Offset[{8.742192490326282, -1.995348387779548}, {0, 0}], Offset[{4.851550814779718, -3.8689826695975693`}, {0, 0}], Offset[{3.890641675546565, -8.079000685668488}, {0, 0}], Offset[{0, -6.205366403850467}, {0, 0}], Offset[{-3.890641675546565, -8.079000685668488}, {0, 0}], Offset[{-4.851550814779718, -3.8689826695975693`}, {0, 0}], Offset[{-8.742192490326282, -1.995348387779548}, {0, 0}], Offset[{-6.049784912429167, 1.380823927725942}, {0, 0}], Offset[{-7.01069405166232, 5.590841943796861}, {0, 0}], Offset[{-2.6924075778971157`, 5.590841943796861}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"SevenPointedStar\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["SevenPointedStar", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["SevenPointedStar", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.4732177432660539]], PolygonBox[{ Offset[{0, 10.013307089222035`}, {0, 0}], Offset[{2.4110772722474128`, 5.006653544611018}, {0, 0}], Offset[{7.828718725974095, 6.243194853009698}, {0, 0}], Offset[{5.417641453726683, 1.236541308398681}, {0, 0}], Offset[{9.762252574530692, -2.228170445485071}, {0, 0}], Offset[{4.344611120804008, -3.464711753883752}, {0, 0}], Offset[{4.344611120804008, -9.021677952135644}, {0, 0}], Offset[{0, -5.556966198251892}, {0, 0}], Offset[{-4.344611120804008, -9.021677952135644}, {0, 0}], Offset[{-4.344611120804008, -3.464711753883752}, {0, 0}], Offset[{-9.762252574530692, -2.228170445485071}, {0, 0}], Offset[{-5.417641453726683, 1.236541308398681}, {0, 0}], Offset[{-7.828718725974095, 6.243194853009698}, {0, 0}], Offset[{-2.4110772722474128`, 5.006653544611018}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"SevenPointedStarNeat\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["SevenPointedStarNeat", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["SevenPointedStarNeat", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.16714734500622483`]], PolygonBox[{ Offset[{0, 12.486389706019397`}, {0, 0}], Offset[{1.9335338485565958`, 4.015024407524627}, {0, 0}], Offset[{9.762252574530692, 7.785136643736963}, {0, 0}], Offset[{4.344611120804008, 0.9916291370863903}, {0, 0}], Offset[{12.173329846778104`, -2.778483099125946}, {0, 0}], Offset[{3.484107605170087, -2.778483099125946}, {0, 0}], Offset[{5.417641453726683, -11.249848397620715`}, {0, 0}], Offset[{0, -4.456340890970142}, {0, 0}], Offset[{-5.417641453726683, -11.249848397620715`}, {0, 0}], Offset[{-3.484107605170087, -2.778483099125946}, {0, 0}], Offset[{-12.173329846778104`, -2.778483099125946}, {0, 0}], Offset[{-4.344611120804008, 0.9916291370863903}, {0, 0}], Offset[{-9.762252574530692, 7.785136643736963}, {0, 0}], Offset[{-1.9335338485565958`, 4.015024407524627}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"SevenPointedStarSlim\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["SevenPointedStarSlim", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["SevenPointedStarSlim", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.5813668601880069]], PolygonBox[{ Offset[{-1.0960174315770261`, 10.96017431577026}, {0, 0}], Offset[{1.0960174315770261`, 10.96017431577026}, {0, 0}], Offset[{1.0960174315770261`, 2.646020147910582}, {0, 0}], Offset[{6.975012223501001, 8.525014939834557}, {0, 0}], Offset[{8.525014939834557, 6.975012223501001}, {0, 0}], Offset[{2.646020147910582, 1.0960174315770261`}, {0, 0}], Offset[{10.96017431577026, 1.0960174315770261`}, {0, 0}], Offset[{10.96017431577026, -1.0960174315770261`}, {0, 0}], Offset[{2.646020147910582, -1.0960174315770261`}, {0, 0}], Offset[{8.525014939834557, -6.975012223501001}, {0, 0}], Offset[{6.975012223501001, -8.525014939834557}, {0, 0}], Offset[{1.0960174315770261`, -2.646020147910582}, {0, 0}], Offset[{1.0960174315770261`, -10.96017431577026}, {0, 0}], Offset[{-1.0960174315770261`, -10.96017431577026}, {0, 0}], Offset[{-1.0960174315770261`, -2.646020147910582}, {0, 0}], Offset[{-6.975012223501001, -8.525014939834557}, {0, 0}], Offset[{-8.525014939834557, -6.975012223501001}, {0, 0}], Offset[{-2.646020147910582, -1.0960174315770261`}, {0, 0}], Offset[{-10.96017431577026, -1.0960174315770261`}, {0, 0}], Offset[{-10.96017431577026, 1.0960174315770261`}, {0, 0}], Offset[{-2.646020147910582, 1.0960174315770261`}, {0, 0}], Offset[{-8.525014939834557, 6.975012223501001}, {0, 0}], Offset[{-6.975012223501001, 8.525014939834557}, {0, 0}], Offset[{-1.0960174315770261`, 2.646020147910582}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"EightfoldCross\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["EightfoldCross", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["EightfoldCross", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.5286397285842678]], PolygonBox[{ Offset[{0, 7.376572479655949}, {0, 0}], Offset[{1.9091974453140865`, 7.125221867592874}, {0, 0}], Offset[{3.6882862398279745`, 6.388299160239221}, {0, 0}], Offset[{5.216024422278787, 5.216024422278787}, {0, 0}], Offset[{6.388299160239221, 3.6882862398279745`}, {0, 0}], Offset[{7.125221867592874, 1.9091974453140865`}, {0, 0}], Offset[{7.376572479655949, 0}, {0, 0}], Offset[{7.125221867592874, -1.9091974453140865`}, {0, 0}], Offset[{6.388299160239221, -3.6882862398279745`}, {0, 0}], Offset[{5.216024422278787, -5.216024422278787}, {0, 0}], Offset[{3.6882862398279745`, -6.388299160239221}, {0, 0}], Offset[{1.9091974453140865`, -7.125221867592874}, {0, 0}], Offset[{0, -7.376572479655949}, {0, 0}], Offset[{-1.9091974453140865`, -7.125221867592874}, {0, 0}], Offset[{-3.6882862398279745`, -6.388299160239221}, {0, 0}], Offset[{-5.216024422278787, -5.216024422278787}, {0, 0}], Offset[{-6.388299160239221, -3.6882862398279745`}, {0, 0}], Offset[{-7.125221867592874, -1.9091974453140865`}, {0, 0}], Offset[{-7.376572479655949, 0}, {0, 0}], Offset[{-7.125221867592874, 1.9091974453140865`}, {0, 0}], Offset[{-6.388299160239221, 3.6882862398279745`}, {0, 0}], Offset[{-5.216024422278787, 5.216024422278787}, {0, 0}], Offset[{-3.6882862398279745`, 6.388299160239221}, {0, 0}], Offset[{-1.9091974453140865`, 7.125221867592874}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"Disk\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["Disk", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["Disk", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ""}, { ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.9879652557836546]], PolygonBox[{ Offset[{4.905099811393625, 1.5908431820736082`}, {0, 0}], Offset[{4.905099811393625, 9.279918562096048}, {0, 0}], Offset[{8.617067236232044, 9.279918562096048}, {0, 0}], Offset[{8.617067236232044, -9.279918562096048}, {0, 0}], Offset[{4.905099811393625, -9.279918562096048}, {0, 0}], Offset[{4.905099811393625, -1.5908431820736082`}, {0, 0}], Offset[{-4.905099811393625, -1.5908431820736082`}, {0, 0}], Offset[{-4.905099811393625, -9.279918562096048}, {0, 0}], Offset[{-8.617067236232044, -9.279918562096048}, {0, 0}], Offset[{-8.617067236232044, 9.279918562096048}, {0, 0}], Offset[{-4.905099811393625, 9.279918562096048}, {0, 0}], Offset[{-4.905099811393625, 1.5908431820736082`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"H\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["H", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["H", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.5699191811591816]], PolygonBox[{ Offset[{-2.147660451479042, -7.302045535028742}, {0, 0}], Offset[{-6.872513444732934, -7.302045535028742}, {0, 0}], Offset[{-6.872513444732934, -11.167834347691016`}, {0, 0}], Offset[{6.872513444732934, -11.167834347691016`}, {0, 0}], Offset[{6.872513444732934, -7.302045535028742}, {0, 0}], Offset[{2.147660451479042, -7.302045535028742}, {0, 0}], Offset[{2.147660451479042, 7.302045535028742}, {0, 0}], Offset[{6.872513444732934, 7.302045535028742}, {0, 0}], Offset[{6.872513444732934, 11.167834347691016`}, {0, 0}], Offset[{-6.872513444732934, 11.167834347691016`}, {0, 0}], Offset[{-6.872513444732934, 7.302045535028742}, {0, 0}], Offset[{-2.147660451479042, 7.302045535028742}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"I\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["I", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["I", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.26344163574564994`]], PolygonBox[{ Offset[{4.879237288935549, -8.67419962477431}, {0, 0}], Offset[{8.132062148225916, -8.67419962477431}, {0, 0}], Offset[{8.132062148225916, 8.67419962477431}, {0, 0}], Offset[{4.608168550661352, 8.67419962477431}, {0, 0}], Offset[{4.608168550661352, -3.2528248592903664`}, {0, 0}], Offset[{-4.879237288935549, 8.67419962477431}, {0, 0}], Offset[{-8.132062148225916, 8.67419962477431}, {0, 0}], Offset[{-8.132062148225916, -8.67419962477431}, {0, 0}], Offset[{-4.608168550661352, -8.67419962477431}, {0, 0}], Offset[{-4.608168550661352, 3.2528248592903664`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"N\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["N", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["N", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.22597801506624376`]], PolygonBox[{ Offset[{-8.504530754074064, -6.479642479294526}, {0, 0}], Offset[{-8.504530754074064, -9.449478615637851}, {0, 0}], Offset[{8.504530754074064, -9.449478615637851}, {0, 0}], Offset[{8.504530754074064, -6.209657375990587}, {0, 0}], Offset[{-3.5098063429512014`, -6.209657375990587}, {0, 0}], Offset[{8.504530754074064, 6.479642479294526}, {0, 0}], Offset[{8.504530754074064, 9.449478615637851}, {0, 0}], Offset[{-8.504530754074064, 9.449478615637851}, {0, 0}], Offset[{-8.504530754074064, 6.209657375990587}, {0, 0}], Offset[{3.5098063429512014`, 6.209657375990587}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"Z\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["Z", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["Z", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.45340454744451486`]], PolygonBox[{ Offset[{-5.014795273378968, -1.538630367968547}, {0, 0}], Offset[{3.305205975636138, -1.538630367968547}, {0, 0}], Offset[{4.758356878717543, -2.84931549623805}, {0, 0}], Offset[{4.758356878717543, -4.843836343604685}, {0, 0}], Offset[{3.305205975636138, -6.154521471874188}, {0, 0}], Offset[{-8.092056009316062, -6.154521471874188}, {0, 0}], Offset[{-8.092056009316062, -9.231782207811282}, {0, 0}], Offset[{5.014795273378968, -9.231782207811282}, {0, 0}], Offset[{8.348494403977487, -6.154521471874188}, {0, 0}], Offset[{8.348494403977487, -1.538630367968547}, {0, 0}], Offset[{5.014795273378968, 1.538630367968547}, {0, 0}], Offset[{-3.305205975636138, 1.538630367968547}, {0, 0}], Offset[{-4.758356878717543, 2.84931549623805}, {0, 0}], Offset[{-4.758356878717543, 4.843836343604685}, {0, 0}], Offset[{-3.305205975636138, 6.154521471874188}, {0, 0}], Offset[{8.092056009316062, 6.154521471874188}, {0, 0}], Offset[{8.092056009316062, 9.231782207811282}, {0, 0}], Offset[{-5.014795273378968, 9.231782207811282}, {0, 0}], Offset[{-8.348494403977487, 6.154521471874188}, {0, 0}], Offset[{-8.348494403977487, 1.538630367968547}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"S\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["S", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["S", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.566518192159092]], PolygonBox[{ Offset[{10.015051165672714`, -0.8262417211679989}, {0, 0}], Offset[{11.246067871453318`, -3.098406454379996}, {0, 0}], Offset[{11.131312076846653`, -5.132713722407266}, {0, 0}], Offset[{10.741142375183985`, -6.024679216849992}, {0, 0}], Offset[{9.32170146958768, -7.4591266494333235`}, {0, 0}], Offset[{7.023054629927991, -8.434550903589988}, {0, 0}], Offset[{2.7541390705599964`, -8.950951979319989}, {0, 0}], Offset[{-2.5037627914181786`, -8.950951979319989}, {0, 0}], Offset[{-6.368946600669991, -8.580202489052297}, {0, 0}], Offset[{-8.580202489052297, -7.868968773028561}, {0, 0}], Offset[{-10.155887822689987`, -6.760159536829082}, {0, 0}], Offset[{-11.154263235767985`, -5.1148297024685645`}, {0, 0}], Offset[{-8.763169769963625, -4.437224058124439}, {0, 0}], Offset[{-7.135723955541809, -5.758654420261811}, {0, 0}], Offset[{-3.786941222019995, -6.491899237748563}, {0, 0}], Offset[{2.1639664125828544`, -6.541080292579991}, {0, 0}], Offset[{7.344370854826657, -5.661285867262215}, {0, 0}], Offset[{8.537831118735989, -4.757149303694539}, {0, 0}], Offset[{8.81324502579199, -4.025280180049226}, {0, 0}], Offset[{8.491928800893323, -2.8115169678633296`}, {0, 0}], Offset[{6.461633973236915, -1.6524834423359978`}, {0, 0}], Offset[{4.5246570444914225`, -1.2787074256171411`}, {0, 0}], Offset[{-3.8251931535555506`, -1.1016556282239987`}, {0, 0}], Offset[{-7.91814982785999, -0.3177852773723073}, {0, 0}], Offset[{-10.015051165672714`, 0.8262417211679989}, {0, 0}], Offset[{-11.246067871453318`, 3.098406454379996}, {0, 0}], Offset[{-11.131312076846653`, 5.132713722407266}, {0, 0}], Offset[{-10.741142375183985`, 6.024679216849992}, {0, 0}], Offset[{-9.32170146958768, 7.4591266494333235`}, {0, 0}], Offset[{-7.023054629927991, 8.434550903589988}, {0, 0}], Offset[{-2.7541390705599964`, 8.950951979319989}, {0, 0}], Offset[{2.5037627914181786`, 8.950951979319989}, {0, 0}], Offset[{6.368946600669991, 8.580202489052297}, {0, 0}], Offset[{8.580202489052297, 7.868968773028561}, {0, 0}], Offset[{10.155887822689987`, 6.760159536829082}, {0, 0}], Offset[{11.154263235767985`, 5.1148297024685645`}, {0, 0}], Offset[{8.763169769963625, 4.437224058124439}, {0, 0}], Offset[{7.135723955541809, 5.758654420261811}, {0, 0}], Offset[{3.786941222019995, 6.491899237748563}, {0, 0}], Offset[{-2.1639664125828544`, 6.541080292579991}, {0, 0}], Offset[{-7.344370854826657, 5.661285867262215}, {0, 0}], Offset[{-8.537831118735989, 4.757149303694539}, {0, 0}], Offset[{-8.81324502579199, 4.025280180049226}, {0, 0}], Offset[{-8.491928800893323, 2.8115169678633296`}, {0, 0}], Offset[{-6.461633973236915, 1.6524834423359978`}, {0, 0}], Offset[{-4.5246570444914225`, 1.2787074256171411`}, {0, 0}], Offset[{3.8251931535555506`, 1.1016556282239987`}, {0, 0}], Offset[{7.91814982785999, 0.3177852773723073}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"Sw\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["Sw", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["Sw", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], ButtonBox[ TagBox[ TooltipBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.005], JoinForm["Miter"]}], FaceForm[Hue[0.7298351180085021]], PolygonBox[{ Offset[{-5.0861316942520265`, -0.4529393716588076}, {0, 0}], Offset[{-7.756379349834892, 1.3642102503533133`}, {0, 0}], Offset[{-9.00652519798475, 4.290342381545927}, {0, 0}], Offset[{-8.56338499542433, 7.692023013433785}, {0, 0}], Offset[{-6.163330561016515, 10.355437399101366`}, {0, 0}], Offset[{-2.3446273356455922`, 11.78361317696485}, {0, 0}], Offset[{2.912378278637067, 11.726097066278019`}, {0, 0}], Offset[{7.996337055211048, 10.296821715710225`}, {0, 0}], Offset[{7.996337055211048, 6.75764717716244}, {0, 0}], Offset[{4.487633348988328, 8.47422465436863}, {0, 0}], Offset[{0.5812721936288031, 9.213361980647015}, {0, 0}], Offset[{-2.847047478998219, 8.878773067516882}, {0, 0}], Offset[{-5.140502392635673, 7.44671289533674}, {0, 0}], Offset[{-5.805373362411561, 5.409390210096617}, {0, 0}], Offset[{-5.01427112086385, 3.278971348675299}, {0, 0}], Offset[{-3.132830653973419, 2.2683792922099633`}, {0, 0}], Offset[{0.6794090574882113, 1.506286747609523}, {0, 0}], Offset[{5.0861316942520265`, 0.4529393716588076}, {0, 0}], Offset[{7.756379349834892, -1.3642102503533133`}, {0, 0}], Offset[{9.00652519798475, -4.290342381545927}, {0, 0}], Offset[{8.56338499542433, -7.692023013433785}, {0, 0}], Offset[{6.163330561016515, -10.355437399101366`}, {0, 0}], Offset[{2.3446273356455922`, -11.78361317696485}, {0, 0}], Offset[{-2.912378278637067, -11.726097066278019`}, {0, 0}], Offset[{-7.996337055211048, -10.296821715710225`}, {0, 0}], Offset[{-7.996337055211048, -6.75764717716244}, {0, 0}], Offset[{-4.487633348988328, -8.47422465436863}, {0, 0}], Offset[{-0.5812721936288031, -9.213361980647015}, {0, 0}], Offset[{2.847047478998219, -8.878773067516882}, {0, 0}], Offset[{5.140502392635673, -7.44671289533674}, {0, 0}], Offset[{5.805373362411561, -5.409390210096617}, {0, 0}], Offset[{5.01427112086385, -3.278971348675299}, {0, 0}], Offset[{3.132830653973419, -2.2683792922099633`}, {0, 0}], Offset[{-0.6794090574882113, -1.506286747609523}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], TemplateBox[{"\"\\\"\"", StyleBox["\"Sl\"", Bold, StripOnInput -> False], "\"\\\"\"", "\" (click to copy the name)\""}, "RowDefault"], TooltipStyle->"TextStyling"], Annotation[#, Row[{"\"", Style["Sl", Bold], "\"", " (click to copy the name)"}], "Tooltip"]& ], Appearance->Automatic, ButtonFunction:>CopyToClipboard[ ToString["Sl", InputForm]], Evaluator->Automatic, FrameMargins->False, ImageSize->{40, 40}, Method->"Preemptive"], "", "", "", ""} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{ 3.8351609634689903`*^9, 3.835162819351179*^9, {3.835163247012641*^9, 3.835163252079529*^9}, {3.835163814469592*^9, 3.835163839903879*^9}, 3.8351640053155785`*^9, 3.8351646098180733`*^9, 3.835164903351259*^9, 3.8351650564018126`*^9, 3.835252051689249*^9, {3.8353073840624914`*^9, 3.835307385837107*^9}, 3.835310615667707*^9, {3.8364274380501842`*^9, 3.8364274672547083`*^9}, 3.83642760930846*^9, {3.8364276705560503`*^9, 3.8364276785510445`*^9}, {3.8364277782144055`*^9, 3.836427788553697*^9}, 3.8364280200386558`*^9, {3.836428057474765*^9, 3.836428108466263*^9}, 3.8364281745612283`*^9, 3.836431031660528*^9, 3.840474578326654*^9, 3.840476044088134*^9, 3.846153817841509*^9}, CellLabel->"Out[146]=", CellID->460661712] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell[CellGroupData[{ Cell[TextData[{ "Filled markers that pick up ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PlotStyle", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/PlotStyle", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PlotTheme", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/PlotTheme", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " automatically:" }], "Text", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{}, CellChangeTimes->{{3.835192755229869*^9, 3.8351927558575754`*^9}, { 3.835192840751768*^9, 3.835192851080241*^9}, 3.835244255321906*^9, { 3.840474645844439*^9, 3.840474646341333*^9}}, CellID->706471559], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"fm", "[", RowBox[{"name_String", ",", RowBox[{"size_", ":", " ", "8"}]}], "]"}], ":=", RowBox[{"PolygonMarker", "[", RowBox[{"name", ",", RowBox[{"Offset", "[", "size", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{"SeedRandom", "[", "25", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Accumulate", "@", RowBox[{"RandomReal", "[", RowBox[{"1", ",", "10"}], "]"}]}], "+", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "6"}], "}"}]}], "]"}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"fm", "/@", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"ColorData", "[", RowBox[{"54", ",", "\"\\""}], "]"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"PointLegend", "[", RowBox[{"Automatic", ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"50", ",", "37"}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"Row", "/@", "#"}], ",", RowBox[{"Spacings", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}], "&"}], ")"}]}]}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SeedRandom", "[", "2", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Accumulate", "@", RowBox[{"RandomReal", "[", RowBox[{"1", ",", "10"}], "]"}]}], "+", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "6"}], "}"}]}], "]"}], ",", RowBox[{"PlotMarkers", "->", RowBox[{"fm", "/@", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], ",", RowBox[{"PlotTheme", "->", "\"\\""}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"PointLegend", "[", RowBox[{"Automatic", ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"50", ",", "35"}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"Row", "/@", "#"}], ",", RowBox[{"Spacings", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}], "&"}], ")"}]}]}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}]}], "]"}]}], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{}, CellChangeTimes->{ 3.788182569384408*^9, {3.8351529997701216`*^9, 3.8351530146481605`*^9}, { 3.83515307591866*^9, 3.8351531091380053`*^9}, {3.8351531543493986`*^9, 3.8351531796934395`*^9}, {3.8351532263754697`*^9, 3.835153257702487*^9}, { 3.8351533022971926`*^9, 3.8351533173427353`*^9}, 3.835153399803742*^9, { 3.835153538522401*^9, 3.8351535411596823`*^9}, {3.8351553435402536`*^9, 3.8351553624477367`*^9}, 3.8351554174758596`*^9, 3.8351555887343063`*^9, 3.8351557650270405`*^9, 3.8351558188510685`*^9, {3.8351559520551753`*^9, 3.8351559608040037`*^9}, {3.8351601628008165`*^9, 3.835160220854866*^9}, { 3.835160268282673*^9, 3.8351602819823575`*^9}, {3.8351610402908416`*^9, 3.8351610990640645`*^9}, 3.835163668876168*^9, {3.835192558016082*^9, 3.835192584707945*^9}, {3.8351931653369207`*^9, 3.835193241240677*^9}, 3.8351933324829173`*^9, {3.8351933641733522`*^9, 3.8351934253242292`*^9}, { 3.836431050195063*^9, 3.8364310614174733`*^9}}, CellLabel->"In[147]:=", CellID->149628592], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0.782803, 0.164904, 0.400458]], LineBox[{{1., 1.0098968927448628`}, {2., 1.242859360766642}, {3., 1.443475446093784}, {4., 1.6279284077858363`}, {5., 1.9055882524032117`}, {6., 1.9689494033132469`}, {7., 2.686916920637353}, {8., 3.651107505480358}, {9., 3.8421455411730583`}, {10., 4.449014437823092}}]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0.909499, 0.613916, 0.204196]], LineBox[{{1., 2.228966339596526}, {2., 3.032030354338171}, {3., 3.044408205800141}, {4., 3.7455057575327437`}, {5., 4.510126861913339}, {6., 4.760406507971506}, {7., 5.668231487281831}, {8., 5.871285543401321}, {9., 6.343810620173923}, {10., 6.455979073829091}}]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0.806577, 0.385397, 0.762768]], LineBox[{{1., 3.159149889408217}, {2., 3.56668005017177}, {3., 3.887796581770022}, {4., 4.335754293771564}, {5., 5.276745618395109}, {6., 6.076177463754895}, {7., 6.921863314253331}, {8., 7.6574339492954}, {9., 8.014604821204475}, { 10., 8.123224806355383}}]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0.698817, 0.873304, 0.295247]], LineBox[{{1., 4.789812284929178}, {2., 5.118397324408724}, {3., 5.497984331670269}, {4., 5.982822605838284}, {5., 6.537352435113016}, {6., 7.404295102553476}, {7., 7.969817693446549}, {8., 8.093438310032424}, {9., 8.603177810688187}, {10., 8.695097726547317}}]}, { Hue[0.6142719099991583, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0.378897, 0.873304, 0.787549]], LineBox[{{1., 5.42033393648274}, {2., 5.536916419178258}, {3., 5.865509319291201}, {4., 6.764628654388323}, {5., 7.496561688924765}, {6., 8.056935527352964}, {7., 8.871214926416677}, {8., 8.916728776180761}, {9., 9.898966801360103}, {10., 10.088091515294416`}}]}, { Hue[0.8503398874989481, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0.529198, 0.324819]], LineBox[{{1., 6.954335654885627}, {2., 7.929316642765888}, {3., 8.419834252041703}, {4., 8.928476686561709}, {5., 9.12148126729625}, {6., 9.83994169985737}, {7., 10.22295242734469}, { 8., 10.26105347365307}, {9., 11.01845739146339}, {10., 11.283260829321446`}}]}}, {{ Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0.782803, 0.164904, 0.400458]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 7.019061402413293}, {0, 0}], Offset[{6.07868548521274, -3.5095307012066463`}, {0, 0}], Offset[{-6.07868548521274, -3.5095307012066463`}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0.782803, 0.164904, 0.400458]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 1.0098968927448628`}}, {{2., 1.242859360766642}}, {{3., 1.443475446093784}}, {{4., 1.6279284077858363`}}, {{5., 1.9055882524032117`}}, {{6., 1.9689494033132469`}}, {{7., 2.686916920637353}}, {{8., 3.651107505480358}}, {{9., 3.8421455411730583`}}, {{10., 4.449014437823092}}}]}, { Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0.909499, 0.613916, 0.204196]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{8.552218726404702, 6.147790506907213}, {0, 0}], Offset[{9.600252119328808, 4.332543422333862}, {0, 0}], Offset[{1.0480333929241075`, -0.6050823615244503}, {0, 0}], Offset[{1.0480333929241075`, -10.480333929241075`}, {0, 0}], Offset[{-1.0480333929241075`, -10.480333929241075`}, {0, 0}], Offset[{-1.0480333929241075`, -0.6050823615244503}, {0, 0}], Offset[{-9.600252119328808, 4.332543422333862}, {0, 0}], Offset[{-8.552218726404702, 6.147790506907213}, {0, 0}], Offset[{0, 1.2101647230489005`}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0.909499, 0.613916, 0.204196]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 2.228966339596526}}, {{2., 3.032030354338171}}, {{3., 3.044408205800141}}, {{4., 3.7455057575327437`}}, {{5., 4.510126861913339}}, {{6., 4.760406507971506}}, {{7., 5.668231487281831}}, {{8., 5.871285543401321}}, {{9., 6.343810620173923}}, {{10., 6.455979073829091}}}]}, { Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0.806577, 0.385397, 0.762768]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 5.656854249492381}, {0, 0}], Offset[{5.656854249492381, 0}, {0, 0}], Offset[{0, -5.656854249492381}, {0, 0}], Offset[{-5.656854249492381, 0}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0.806577, 0.385397, 0.762768]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 3.159149889408217}}, {{2., 3.56668005017177}}, {{3., 3.887796581770022}}, {{4., 4.335754293771564}}, {{5., 5.276745618395109}}, {{6., 6.076177463754895}}, {{7., 6.921863314253331}}, {{8., 7.6574339492954}}, {{9., 8.014604821204475}}, {{10., 8.123224806355383}}}]}, { Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0.698817, 0.873304, 0.295247]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 9.588216186419388}, {0, 0}], Offset[{2.2249533092036, 1.284577392003047}, {0, 0}], Offset[{8.30363879441634, -4.794108093209694}, {0, 0}], Offset[{0, -2.569154784006094}, {0, 0}], Offset[{-8.30363879441634, -4.794108093209694}, {0, 0}], Offset[{-2.2249533092036, 1.284577392003047}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0.698817, 0.873304, 0.295247]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 4.789812284929178}}, {{2., 5.118397324408724}}, {{3., 5.497984331670269}}, {{4., 5.982822605838284}}, {{5., 6.537352435113016}}, {{6., 7.404295102553476}}, {{7., 7.969817693446549}}, {{8., 8.093438310032424}}, {{9., 8.603177810688187}}, {{10., 8.695097726547317}}}]}, { Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0.378897, 0.873304, 0.787549]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 7.550631619796735}, {0, 0}], Offset[{1.6952224190675824`, 2.333273488782028}, {0, 0}], Offset[{7.181077404151916, 2.333273488782028}, {0, 0}], Offset[{2.7429274925421665`, -0.8912311676656881}, {0, 0}], Offset[{4.438149911609749, -6.108589298680395}, {0, 0}], Offset[{0, -2.884084642232679}, {0, 0}], Offset[{-4.438149911609749, -6.108589298680395}, {0, 0}], Offset[{-2.7429274925421665`, -0.8912311676656881}, {0, 0}], Offset[{-7.181077404151916, 2.333273488782028}, {0, 0}], Offset[{-1.6952224190675824`, 2.333273488782028}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0.378897, 0.873304, 0.787549]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 5.42033393648274}}, {{2., 5.536916419178258}}, {{3., 5.865509319291201}}, {{4., 6.764628654388323}}, {{5., 7.496561688924765}}, {{6., 8.056935527352964}}, {{7., 8.871214926416677}}, {{8., 8.916728776180761}}, {{9., 9.898966801360103}}, {{10., 10.088091515294416`}}}]}, { Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0.529198, 0.324819]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{-1.0480333929241075`, 10.480333929241075`}, {0, 0}], Offset[{1.0480333929241075`, 10.480333929241075`}, {0, 0}], Offset[{1.0480333929241075`, 0.6050823615244503}, {0, 0}], Offset[{9.600252119328808, -4.332543422333862}, {0, 0}], Offset[{8.552218726404702, -6.147790506907213}, {0, 0}], Offset[{0, -1.2101647230489005`}, {0, 0}], Offset[{-8.552218726404702, -6.147790506907213}, {0, 0}], Offset[{-9.600252119328808, -4.332543422333862}, {0, 0}], Offset[{-1.0480333929241075`, 0.6050823615244503}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0.529198, 0.324819]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 6.954335654885627}}, {{2., 7.929316642765888}}, {{3., 8.419834252041703}}, {{4., 8.928476686561709}}, {{5., 9.12148126729625}}, {{6., 9.83994169985737}}, {{7., 10.22295242734469}}, {{8., 10.26105347365307}}, {{9., 11.01845739146339}}, {{10., 11.283260829321446`}}}]}}}, {{}, {}}}, { DisplayFunction -> Identity, Axes -> {True, True}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0., 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> 450, Method -> { "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange -> {{0., 10.}, {0, 11.283260829321446`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {{{0., FormBox["0", TraditionalForm], {0.01, 0.}}, {2., FormBox["2", TraditionalForm], {0.01, 0.}}, {4., FormBox["4", TraditionalForm], {0.01, 0.}}, {6., FormBox["6", TraditionalForm], {0.01, 0.}}, {8., FormBox["8", TraditionalForm], {0.01, 0.}}, {10., FormBox["10", TraditionalForm], {0.01, 0.}}, {-2., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 3.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 4.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 5.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {7., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 7.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 8.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {9., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 9.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 10.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 12., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{ 0., FormBox["0", TraditionalForm], {0.01, 0.}}, {2.5, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"2.5\"", ShowStringCharacters -> False], 2.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { 5., FormBox[ TagBox[ InterpretationBox[ StyleBox["\"5.0\"", ShowStringCharacters -> False], 5.`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {7.5, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"7.5\"", ShowStringCharacters -> False], 7.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {10., FormBox[ TagBox[ InterpretationBox[ StyleBox["\"10.0\"", ShowStringCharacters -> False], 10.`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {-2.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-2., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {2., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 3.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {4., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 4.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 5.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {6., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {7., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {8., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 8.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {9., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 9.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 10.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 12., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 12.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}}], FormBox[ FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["4", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["5", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["6", Smaller, StripOnInput -> False]], "Placeholder"]}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TemplateBox[{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.782803, 0.164904, 0.400458]], { LineBox[{{0, 37}, {50, 37}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.782803, 0.164904, 0.400458]], { InsetBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 7.019061402413293}, {0, 0}], Offset[{6.07868548521274, -3.5095307012066463`}, {0, 0}], Offset[{-6.07868548521274, -3.5095307012066463`}, {0, 0}]}]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.782803, 0.164904, 0.400458]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {50, 37}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3918918918918919] -> Baseline)], #}, "RowDefault"]}, { TemplateBox[{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.909499, 0.613916, 0.204196]], { LineBox[{{0, 37}, {50, 37}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.909499, 0.613916, 0.204196]], { InsetBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{8.552218726404702, 6.147790506907213}, {0, 0}], Offset[{9.600252119328808, 4.332543422333862}, {0, 0}], Offset[{1.0480333929241075`, -0.6050823615244503}, {0, 0}], Offset[{1.0480333929241075`, -10.480333929241075`}, {0, 0}], Offset[{-1.0480333929241075`, -10.480333929241075`}, {0, 0}], Offset[{-1.0480333929241075`, -0.6050823615244503}, {0, 0}], Offset[{-9.600252119328808, 4.332543422333862}, {0, 0}], Offset[{-8.552218726404702, 6.147790506907213}, {0, 0}], Offset[{0, 1.2101647230489005`}, {0, 0}]}]}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.909499, 0.613916, 0.204196]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {50, 37}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3918918918918919] -> Baseline)], #2}, "RowDefault"]}, { TemplateBox[{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.806577, 0.385397, 0.762768]], { LineBox[{{0, 37}, {50, 37}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.806577, 0.385397, 0.762768]], { InsetBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 5.656854249492381}, {0, 0}], Offset[{5.656854249492381, 0}, {0, 0}], Offset[{0, -5.656854249492381}, {0, 0}], Offset[{-5.656854249492381, 0}, {0, 0}]}]}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.806577, 0.385397, 0.762768]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {50, 37}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3918918918918919] -> Baseline)], #3}, "RowDefault"]}, { TemplateBox[{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.698817, 0.873304, 0.295247]], { LineBox[{{0, 37}, {50, 37}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.698817, 0.873304, 0.295247]], { InsetBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 9.588216186419388}, {0, 0}], Offset[{2.2249533092036, 1.284577392003047}, {0, 0}], Offset[{8.30363879441634, -4.794108093209694}, {0, 0}], Offset[{0, -2.569154784006094}, {0, 0}], Offset[{-8.30363879441634, -4.794108093209694}, {0, 0}], Offset[{-2.2249533092036, 1.284577392003047}, {0, 0}]}]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.698817, 0.873304, 0.295247]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {50, 37}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3918918918918919] -> Baseline)], #4}, "RowDefault"]}, { TemplateBox[{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.378897, 0.873304, 0.787549]], { LineBox[{{0, 37}, {50, 37}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.378897, 0.873304, 0.787549]], { InsetBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 7.550631619796735}, {0, 0}], Offset[{1.6952224190675824`, 2.333273488782028}, {0, 0}], Offset[{7.181077404151916, 2.333273488782028}, {0, 0}], Offset[{2.7429274925421665`, -0.8912311676656881}, {0, 0}], Offset[{4.438149911609749, -6.108589298680395}, {0, 0}], Offset[{0, -2.884084642232679}, {0, 0}], Offset[{-4.438149911609749, -6.108589298680395}, {0, 0}], Offset[{-2.7429274925421665`, -0.8912311676656881}, {0, 0}], Offset[{-7.181077404151916, 2.333273488782028}, {0, 0}], Offset[{-1.6952224190675824`, 2.333273488782028}, {0, 0}]}]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.378897, 0.873304, 0.787549]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {50, 37}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3918918918918919] -> Baseline)], #5}, "RowDefault"]}, { TemplateBox[{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[1, 0.529198, 0.324819]], { LineBox[{{0, 37}, {50, 37}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[1, 0.529198, 0.324819]], { InsetBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{-1.0480333929241075`, 10.480333929241075`}, {0, 0}], Offset[{1.0480333929241075`, 10.480333929241075`}, {0, 0}], Offset[{1.0480333929241075`, 0.6050823615244503}, {0, 0}], Offset[{9.600252119328808, -4.332543422333862}, {0, 0}], Offset[{8.552218726404702, -6.147790506907213}, {0, 0}], Offset[{0, -1.2101647230489005`}, {0, 0}], Offset[{-8.552218726404702, -6.147790506907213}, {0, 0}], Offset[{-9.600252119328808, -4.332543422333862}, {0, 0}], Offset[{-1.0480333929241075`, 0.6050823615244503}, {0, 0}]}]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[1, 0.529198, 0.324819]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {50, 37}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3918918918918919] -> Baseline)], #6}, "RowDefault"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{Automatic}}, "Rows" -> {{-1}}}], "Column"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.782803, 0.164904, 0.400458]], "RGBColorSwatchTemplate"]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.909499, 0.613916, 0.204196]], "RGBColorSwatchTemplate"]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.806577, 0.385397, 0.762768]], "RGBColorSwatchTemplate"]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.698817, 0.873304, 0.295247]], "RGBColorSwatchTemplate"]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.378897, 0.873304, 0.787549]], "RGBColorSwatchTemplate"]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", TemplateBox[ Association["color" -> RGBColor[1, 0.529198, 0.324819]], "RGBColorSwatchTemplate"]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm], ",", TagBox[#4, HoldForm], ",", TagBox[#5, HoldForm], ",", TagBox[#6, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 7.019061402413293}, {0, 0}], Offset[{6.07868548521274, -3.5095307012066463`}, {0, 0}], Offset[{-6.07868548521274, -3.5095307012066463`}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{8.552218726404702, 6.147790506907213}, {0, 0}], Offset[{9.600252119328808, 4.332543422333862}, {0, 0}], Offset[{1.0480333929241075`, -0.6050823615244503}, {0, 0}], Offset[{1.0480333929241075`, -10.480333929241075`}, {0, 0}], Offset[{-1.0480333929241075`, -10.480333929241075`}, {0, 0}], Offset[{-1.0480333929241075`, -0.6050823615244503}, {0, 0}], Offset[{-9.600252119328808, 4.332543422333862}, {0, 0}], Offset[{-8.552218726404702, 6.147790506907213}, {0, 0}], Offset[{0, 1.2101647230489005`}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 5.656854249492381}, {0, 0}], Offset[{5.656854249492381, 0}, {0, 0}], Offset[{0, -5.656854249492381}, {0, 0}], Offset[{-5.656854249492381, 0}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 9.588216186419388}, {0, 0}], Offset[{2.2249533092036, 1.284577392003047}, {0, 0}], Offset[{8.30363879441634, -4.794108093209694}, {0, 0}], Offset[{0, -2.569154784006094}, {0, 0}], Offset[{-8.30363879441634, -4.794108093209694}, {0, 0}], Offset[{-2.2249533092036, 1.284577392003047}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 7.550631619796735}, {0, 0}], Offset[{1.6952224190675824`, 2.333273488782028}, {0, 0}], Offset[{7.181077404151916, 2.333273488782028}, {0, 0}], Offset[{2.7429274925421665`, -0.8912311676656881}, {0, 0}], Offset[{4.438149911609749, -6.108589298680395}, {0, 0}], Offset[{0, -2.884084642232679}, {0, 0}], Offset[{-4.438149911609749, -6.108589298680395}, {0, 0}], Offset[{-2.7429274925421665`, -0.8912311676656881}, {0, 0}], Offset[{-7.181077404151916, 2.333273488782028}, {0, 0}], Offset[{-1.6952224190675824`, 2.333273488782028}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{-1.0480333929241075`, 10.480333929241075`}, {0, 0}], Offset[{1.0480333929241075`, 10.480333929241075`}, {0, 0}], Offset[{1.0480333929241075`, 0.6050823615244503}, {0, 0}], Offset[{9.600252119328808, -4.332543422333862}, {0, 0}], Offset[{8.552218726404702, -6.147790506907213}, {0, 0}], Offset[{0, -1.2101647230489005`}, {0, 0}], Offset[{-8.552218726404702, -6.147790506907213}, {0, 0}], Offset[{-9.600252119328808, -4.332543422333862}, {0, 0}], Offset[{-1.0480333929241075`, 0.6050823615244503}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"Row", "/@", "#1"}], ",", RowBox[{"Spacings", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}], "&"}], ")"}]}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"50", ",", "37"}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{}, CellChangeTimes->{ 3.8351560724453363`*^9, 3.835159980759327*^9, 3.8351601655731287`*^9, { 3.8351602005883503`*^9, 3.835160222003746*^9}, {3.8351602712183437`*^9, 3.8351602837488422`*^9}, 3.8351604894139023`*^9, {3.835160969749317*^9, 3.8351609913709736`*^9}, {3.835161041774248*^9, 3.8351611004683943`*^9}, { 3.8351613401858444`*^9, 3.835161342752921*^9}, 3.8351628272886977`*^9, 3.835163258358576*^9, 3.8351636699362164`*^9, {3.8351638209309397`*^9, 3.835163843263686*^9}, 3.835163893748784*^9, 3.8351640120352287`*^9, 3.8351646171991577`*^9, 3.835165063135069*^9, {3.8351925711836443`*^9, 3.8351926124488053`*^9}, {3.835193173807513*^9, 3.835193241730686*^9}, 3.8351933331751432`*^9, {3.83519336732576*^9, 3.8351934258701963`*^9}, 3.8353073943197517`*^9, 3.835310622048567*^9, {3.8364310377619257`*^9, 3.8364310625822444`*^9}, {3.840474583477202*^9, 3.840474587362776*^9}, 3.84047605017985*^9, 3.846153823647579*^9}, CellLabel->"Out[149]=", CellID->113718847], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{ Directive[ PointSize[0.011000000000000001`], RGBColor[1., 0.4, 0.], CapForm["Butt"], AbsoluteThickness[3]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 7.019061402413293}, {0, 0}], Offset[{6.07868548521274, -3.5095307012066463`}, {0, 0}], Offset[{-6.07868548521274, -3.5095307012066463`}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[1., 0.4, 0.], CapForm["Butt"], AbsoluteThickness[3]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 1.7222398091064435`}}, {{2., 1.8316884499347983`}}, {{3., 2.302391172317992}}, {{4., 2.8379729977039183`}}, {{5., 3.4211506454100054`}}, {{6., 3.7150930678983727`}}, {{7., 3.880247523387414}}, {{8., 4.481505331350016}}, {{9., 5.235722907105417}}, {{10., 6.006846110351122}}}]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.655728, 0.8, 0.], CapForm["Butt"], AbsoluteThickness[3]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{3.5095307012066463`, 6.07868548521274}, {0, 0}], Offset[{3.5095307012066463`, -6.07868548521274}, {0, 0}], Offset[{-7.019061402413293, 0}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.655728, 0.8, 0.], CapForm["Butt"], AbsoluteThickness[3]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 2.778574085747654}}, {{2., 2.8021844714834945`}}, {{3., 3.7249410842947164`}}, {{4., 4.717395025521238}}, {{5., 5.067803794838005}}, {{6., 5.112808510001447}}, {{7., 5.614167865278059}}, {{8., 6.247923990143342}}, {{9., 6.89013189639271}}, {{10., 7.280007112548288}}}]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0., 0.742291, 0.873126], CapForm["Butt"], AbsoluteThickness[3]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 5.656854249492381}, {0, 0}], Offset[{5.656854249492381, 0}, {0, 0}], Offset[{0, -5.656854249492381}, {0, 0}], Offset[{-5.656854249492381, 0}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0., 0.742291, 0.873126], CapForm["Butt"], AbsoluteThickness[3]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 3.664971275039554}}, {{2., 4.508852835695453}}, {{3., 5.077892647545714}}, {{4., 5.47610496305121}}, {{5., 5.714756472591331}}, {{6., 6.388269306398783}}, {{7., 6.807776715349551}}, {{8., 7.395174499229336}}, {{9., 7.403509732914683}}, {{10., 8.345950513133053}}}]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[1., 0.656408, 0.], CapForm["Butt"], AbsoluteThickness[3]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 9.588216186419388}, {0, 0}], Offset[{2.2249533092036, 1.284577392003047}, {0, 0}], Offset[{8.30363879441634, -4.794108093209694}, {0, 0}], Offset[{0, -2.569154784006094}, {0, 0}], Offset[{-8.30363879441634, -4.794108093209694}, {0, 0}], Offset[{-2.2249533092036, 1.284577392003047}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[1., 0.656408, 0.], CapForm["Butt"], AbsoluteThickness[3]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 4.771262529251146}}, {{2., 4.918765213793963}}, {{3., 5.883539304404764}}, {{4., 6.782286078068272}}, {{5., 7.1152486490529085`}}, {{6., 7.319796940650089}}, {{7., 8.158832207762456}}, {{8., 8.409220201493284}}, {{9., 8.647858298776601}}, {{10., 9.26447433398042}}}]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.893126, 0.4, 0.767184], CapForm["Butt"], AbsoluteThickness[3]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{-1.8388033735239322`, 4.739240369738699}, {0, 0}], Offset[{1.8388033735239322`, 4.739240369738699}, {0, 0}], Offset[{5.023704241596435, -0.777169750833098}, {0, 0}], Offset[{3.1849008680725026`, -3.9620706189056007`}, {0, 0}], Offset[{-3.1849008680725026`, -3.9620706189056007`}, {0, 0}], Offset[{-5.023704241596435, -0.777169750833098}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.893126, 0.4, 0.767184], CapForm["Butt"], AbsoluteThickness[3]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 5.879303095987737}}, {{2., 6.283807372501196}}, {{3., 6.686324385113064}}, {{4., 7.202515974305649}}, {{5., 7.494525054359194}}, {{6., 7.843727389587222}}, {{7., 8.029282905537848}}, {{8., 8.632500467536444}}, {{9., 8.66649682913809}}, {{10., 9.4391543477849}}}]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.295048, 0.8, 0.286932], CapForm["Butt"], AbsoluteThickness[3]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{4., 4.}, {0, 0}], Offset[{4., -4.}, {0, 0}], Offset[{-4., -4.}, {0, 0}], Offset[{-4., 4.}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.295048, 0.8, 0.286932], CapForm["Butt"], AbsoluteThickness[3]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 6.6421846150363}}, {{2., 7.457232511535503}}, {{3., 7.931172279200638}}, {{4., 8.383863306807985}}, {{5., 8.667089336645574}}, {{6., 9.651732458318262}}, {{7., 10.640316028013764`}}, {{8., 10.847795935133643`}}, {{9., 11.382546215371452`}}, {{10., 12.087654622285923`}}}]}}}, {{}, {}}}, { DisplayFunction -> Identity, Axes -> {False, False}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0., 0}, DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Charting`FindScaledTicks[ (Charting`SimpleTicks[#, #2, 6]& )[ SlotSequence[1]], {Identity, Identity}]& , None}, { Charting`FindScaledTicks[ (Charting`SimpleTicks[#, #2, 6]& )[ SlotSequence[1]], {Identity, Identity}]& , None}}, FrameTicksStyle -> Directive[ StrokeForm[ Opacity[0]], FontOpacity -> 1], GridLines -> {{0., 2., 4., 6., 8., 10.}, {0., 2.5, 5., 7.5, 10., 12.5}}, GridLinesStyle -> Directive[ AbsoluteThickness[1], GrayLevel[0, 0.2]], ImageSize -> 450, Method -> { "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange -> {{0., 10.}, {0, 12.087654622285923`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Prolog -> { GrayLevel[0, 0.7], RectangleBox[ Scaled[{0, 0}], Scaled[{1, 1}]]}, 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]& }}], FormBox[ FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["4", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["5", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["6", Smaller, StripOnInput -> False]], "Placeholder"]}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TemplateBox[{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[1., 0.4, 0.], CapForm["Butt"], AbsoluteThickness[3]], { InsetBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 7.019061402413293}, {0, 0}], Offset[{6.07868548521274, -3.5095307012066463`}, {0, 0}], Offset[{-6.07868548521274, -3.5095307012066463`}, {0, 0}]}]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[1., 0.4, 0.], CapForm["Butt"], AbsoluteThickness[3]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {50, 35}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3857142857142858] -> Baseline)], #}, "RowDefault"]}, { TemplateBox[{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.655728, 0.8, 0.], CapForm["Butt"], AbsoluteThickness[3]], { InsetBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{3.5095307012066463`, 6.07868548521274}, {0, 0}], Offset[{3.5095307012066463`, -6.07868548521274}, {0, 0}], Offset[{-7.019061402413293, 0}, {0, 0}]}]}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.655728, 0.8, 0.], CapForm["Butt"], AbsoluteThickness[3]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {50, 35}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3857142857142858] -> Baseline)], #2}, "RowDefault"]}, { TemplateBox[{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0., 0.742291, 0.873126], CapForm["Butt"], AbsoluteThickness[3]], { InsetBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 5.656854249492381}, {0, 0}], Offset[{5.656854249492381, 0}, {0, 0}], Offset[{0, -5.656854249492381}, {0, 0}], Offset[{-5.656854249492381, 0}, {0, 0}]}]}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0., 0.742291, 0.873126], CapForm["Butt"], AbsoluteThickness[3]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {50, 35}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3857142857142858] -> Baseline)], #3}, "RowDefault"]}, { TemplateBox[{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[1., 0.656408, 0.], CapForm["Butt"], AbsoluteThickness[3]], { InsetBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 9.588216186419388}, {0, 0}], Offset[{2.2249533092036, 1.284577392003047}, {0, 0}], Offset[{8.30363879441634, -4.794108093209694}, {0, 0}], Offset[{0, -2.569154784006094}, {0, 0}], Offset[{-8.30363879441634, -4.794108093209694}, {0, 0}], Offset[{-2.2249533092036, 1.284577392003047}, {0, 0}]}]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[1., 0.656408, 0.], CapForm["Butt"], AbsoluteThickness[3]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {50, 35}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3857142857142858] -> Baseline)], #4}, "RowDefault"]}, { TemplateBox[{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.893126, 0.4, 0.767184], CapForm["Butt"], AbsoluteThickness[3]], { InsetBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{-1.8388033735239322`, 4.739240369738699}, {0, 0}], Offset[{1.8388033735239322`, 4.739240369738699}, {0, 0}], Offset[{5.023704241596435, -0.777169750833098}, {0, 0}], Offset[{3.1849008680725026`, -3.9620706189056007`}, {0, 0}], Offset[{-3.1849008680725026`, -3.9620706189056007`}, {0, 0}], Offset[{-5.023704241596435, -0.777169750833098}, {0, 0}]}]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.893126, 0.4, 0.767184], CapForm["Butt"], AbsoluteThickness[3]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {50, 35}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3857142857142858] -> Baseline)], #5}, "RowDefault"]}, { TemplateBox[{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.295048, 0.8, 0.286932], CapForm["Butt"], AbsoluteThickness[3]], { InsetBox[ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{4., 4.}, {0, 0}], Offset[{4., -4.}, {0, 0}], Offset[{-4., -4.}, {0, 0}], Offset[{-4., 4.}, {0, 0}]}]}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.295048, 0.8, 0.286932], CapForm["Butt"], AbsoluteThickness[3]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {50, 35}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3857142857142858] -> Baseline)], #6}, "RowDefault"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{Automatic}}, "Rows" -> {{-1}}}], "Column"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association["color" -> RGBColor[1., 0.4, 0.]], "RGBColorSwatchTemplate"], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association["color" -> RGBColor[0.655728, 0.8, 0.]], "RGBColorSwatchTemplate"], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association["color" -> RGBColor[0., 0.742291, 0.873126]], "RGBColorSwatchTemplate"], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association["color" -> RGBColor[1., 0.656408, 0.]], "RGBColorSwatchTemplate"], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association["color" -> RGBColor[0.893126, 0.4, 0.767184]], "RGBColorSwatchTemplate"], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association["color" -> RGBColor[0.295048, 0.8, 0.286932]], "RGBColorSwatchTemplate"], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm], ",", TagBox[#4, HoldForm], ",", TagBox[#5, HoldForm], ",", TagBox[#6, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 7.019061402413293}, {0, 0}], Offset[{6.07868548521274, -3.5095307012066463`}, {0, 0}], Offset[{-6.07868548521274, -3.5095307012066463`}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{3.5095307012066463`, 6.07868548521274}, {0, 0}], Offset[{3.5095307012066463`, -6.07868548521274}, {0, 0}], Offset[{-7.019061402413293, 0}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 5.656854249492381}, {0, 0}], Offset[{5.656854249492381, 0}, {0, 0}], Offset[{0, -5.656854249492381}, {0, 0}], Offset[{-5.656854249492381, 0}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{0, 9.588216186419388}, {0, 0}], Offset[{2.2249533092036, 1.284577392003047}, {0, 0}], Offset[{8.30363879441634, -4.794108093209694}, {0, 0}], Offset[{0, -2.569154784006094}, {0, 0}], Offset[{-8.30363879441634, -4.794108093209694}, {0, 0}], Offset[{-2.2249533092036, 1.284577392003047}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{-1.8388033735239322`, 4.739240369738699}, {0, 0}], Offset[{1.8388033735239322`, 4.739240369738699}, {0, 0}], Offset[{5.023704241596435, -0.777169750833098}, {0, 0}], Offset[{3.1849008680725026`, -3.9620706189056007`}, {0, 0}], Offset[{-3.1849008680725026`, -3.9620706189056007`}, {0, 0}], Offset[{-5.023704241596435, -0.777169750833098}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{ EdgeForm[], PolygonBox[{ Offset[{4., 4.}, {0, 0}], Offset[{4., -4.}, {0, 0}], Offset[{-4., -4.}, {0, 0}], Offset[{-4., 4.}, {0, 0}]}]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All], ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{ "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"Row", "/@", "#1"}], ",", RowBox[{"Spacings", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}], "&"}], ")"}]}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"50", ",", "35"}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{}, CellChangeTimes->{ 3.8351560724453363`*^9, 3.835159980759327*^9, 3.8351601655731287`*^9, { 3.8351602005883503`*^9, 3.835160222003746*^9}, {3.8351602712183437`*^9, 3.8351602837488422`*^9}, 3.8351604894139023`*^9, {3.835160969749317*^9, 3.8351609913709736`*^9}, {3.835161041774248*^9, 3.8351611004683943`*^9}, { 3.8351613401858444`*^9, 3.835161342752921*^9}, 3.8351628272886977`*^9, 3.835163258358576*^9, 3.8351636699362164`*^9, {3.8351638209309397`*^9, 3.835163843263686*^9}, 3.835163893748784*^9, 3.8351640120352287`*^9, 3.8351646171991577`*^9, 3.835165063135069*^9, {3.8351925711836443`*^9, 3.8351926124488053`*^9}, {3.835193173807513*^9, 3.835193241730686*^9}, 3.8351933331751432`*^9, {3.83519336732576*^9, 3.8351934258701963`*^9}, 3.8353073943197517`*^9, 3.835310622048567*^9, {3.8364310377619257`*^9, 3.8364310625822444`*^9}, {3.840474583477202*^9, 3.840474587362776*^9}, 3.84047605017985*^9, 3.846153824043861*^9}, CellLabel->"Out[151]=", CellID->405269790] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell[CellGroupData[{ Cell[TextData[{ "Empty markers that pick up ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PlotStyle", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/PlotStyle", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PlotTheme", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/PlotTheme", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " automatically:" }], "Text", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, TaggingRules->{}, CellChangeTimes->{ 3.835161328104314*^9, 3.8351930459461875`*^9, 3.835244260074938*^9, 3.835252032179127*^9, {3.8404746514378557`*^9, 3.84047465289368*^9}}, CellID->809150690], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"em", "[", RowBox[{"name_String", ",", RowBox[{"size_", ":", " ", "7"}]}], "]"}], ":=", RowBox[{"PolygonMarker", "[", RowBox[{"name", ",", RowBox[{"Offset", "[", "size", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Dynamic", "@", RowBox[{"EdgeForm", "@", RowBox[{"Directive", "[", RowBox[{ RowBox[{"CurrentValue", "[", "\"\\"", "]"}], ",", RowBox[{"JoinForm", "[", "\"\\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"FaceForm", "[", "White", "]"}]}], "}"}], ",", RowBox[{"ImagePadding", "->", "6"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{"SeedRandom", "[", "2", "]"}], ";"}], "\n", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Accumulate", "@", RowBox[{"RandomReal", "[", RowBox[{"1", ",", "10"}], "]"}]}], "+", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"em", "/@", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"PointLegend", "[", RowBox[{"Automatic", ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "25"}], "}"}]}]}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SeedRandom", "[", "3", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Accumulate", "@", RowBox[{"RandomReal", "[", RowBox[{"1", ",", "10"}], "]"}]}], "+", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"em", "/@", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"PointLegend", "[", RowBox[{"Automatic", ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "25"}], "}"}]}]}], "]"}]}], ",", RowBox[{"PlotTheme", "->", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}]}], "]"}]}], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, TaggingRules->{}, CellChangeTimes->{ 3.78818260619309*^9, {3.835161185178567*^9, 3.835161259010944*^9}, 3.835161328104314*^9, {3.835163714836402*^9, 3.835163744468567*^9}, { 3.8351641254285326`*^9, 3.8351641393480473`*^9}, {3.835192957018405*^9, 3.8351929681058083`*^9}, {3.8351929981393814`*^9, 3.835193018743103*^9}, { 3.8351930647351265`*^9, 3.8351931319378185`*^9}, 3.8351933038987055`*^9, { 3.835225734603141*^9, 3.835225747445778*^9}, 3.835225866585455*^9, { 3.835227045631749*^9, 3.8352270865834875`*^9}, {3.83522717414974*^9, 3.8352271778698554`*^9}, 3.835227650859889*^9, {3.8352277531664*^9, 3.835227776947859*^9}, 3.835229994251481*^9, 3.835252032180126*^9}, CellLabel->"In[152]:=", CellID->658664429], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[{{1., 1.7222398091064435`}, {2., 1.8316884499347983`}, {3., 2.302391172317992}, {4., 2.8379729977039183`}, {5., 3.4211506454100054`}, {6., 3.7150930678983727`}, {7., 3.880247523387414}, {8., 4.481505331350016}, {9., 5.235722907105417}, {10., 6.006846110351122}}]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[{{1., 2.778574085747654}, {2., 2.8021844714834945`}, {3., 3.7249410842947164`}, {4., 4.717395025521238}, {5., 5.067803794838005}, {6., 5.112808510001447}, {7., 5.614167865278059}, {8., 6.247923990143342}, {9., 6.89013189639271}, {10., 7.280007112548288}}]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[{{1., 3.664971275039554}, {2., 4.508852835695453}, {3., 5.077892647545714}, {4., 5.47610496305121}, {5., 5.714756472591331}, {6., 6.388269306398783}, {7., 6.807776715349551}, {8., 7.395174499229336}, {9., 7.403509732914683}, {10., 8.345950513133053}}]}}, {{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], TraditionalForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{0, 6.141678727111631}, {0, 0}], Offset[{5.318849799561148, -3.0708393635558155`}, {0, 0}], Offset[{-5.318849799561148, -3.0708393635558155`}, {0, 0}]}]}, { ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 1.7222398091064435`}}, {{2., 1.8316884499347983`}}, {{3., 2.302391172317992}}, {{4., 2.8379729977039183`}}, {{5., 3.4211506454100054`}}, {{6., 3.7150930678983727`}}, {{7., 3.880247523387414}}, {{8., 4.481505331350016}}, {{9., 5.235722907105417}}, {{10., 6.006846110351122}}}]}, { Directive[ PointSize[0.012833333333333334`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], TraditionalForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{3.5, 3.5}, {0, 0}], Offset[{3.5, -3.5}, {0, 0}], Offset[{-3.5, -3.5}, {0, 0}], Offset[{-3.5, 3.5}, {0, 0}]}]}, { ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.012833333333333334`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 2.778574085747654}}, {{2., 2.8021844714834945`}}, {{3., 3.7249410842947164`}}, {{4., 4.717395025521238}}, {{5., 5.067803794838005}}, {{6., 5.112808510001447}}, {{7., 5.614167865278059}}, {{8., 6.247923990143342}}, {{9., 6.89013189639271}}, {{10., 7.280007112548288}}}]}, { Directive[ PointSize[0.012833333333333334`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], TraditionalForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{0, 4.949747468305833}, {0, 0}], Offset[{4.949747468305833, 0}, {0, 0}], Offset[{0, -4.949747468305833}, {0, 0}], Offset[{-4.949747468305833, 0}, {0, 0}]}]}, { ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.012833333333333334`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 3.664971275039554}}, {{2., 4.508852835695453}}, {{3., 5.077892647545714}}, {{4., 5.47610496305121}}, {{5., 5.714756472591331}}, {{6., 6.388269306398783}}, {{7., 6.807776715349551}}, {{8., 7.395174499229336}}, {{9., 7.403509732914683}}, {{10., 8.345950513133053}}}]}}}, {{}, {}}}, { DisplayFunction -> Identity, Axes -> {True, True}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0., 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> 450, Method -> { "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange -> {{0., 10.}, {0, 8.345950513133053}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {{{0., FormBox["0", TraditionalForm], {0.01, 0.}}, {2., FormBox["2", TraditionalForm], {0.01, 0.}}, {4., FormBox["4", TraditionalForm], {0.01, 0.}}, {6., FormBox["6", TraditionalForm], {0.01, 0.}}, {8., FormBox["8", TraditionalForm], {0.01, 0.}}, {10., FormBox["10", TraditionalForm], {0.01, 0.}}, {-2., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 3.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 4.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 5.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {7., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 7.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 8.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {9., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 9.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 10.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 12., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{ 0., FormBox["0", TraditionalForm], {0.01, 0.}}, {2., FormBox["2", TraditionalForm], {0.01, 0.}}, {4., FormBox["4", TraditionalForm], {0.01, 0.}}, {6., FormBox["6", TraditionalForm], {0.01, 0.}}, {8., FormBox["8", TraditionalForm], {0.01, 0.}}, {-2., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 3.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 4.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 5.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {7., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 7.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 8.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {9., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 9.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 10., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}}], FormBox[ FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"]}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 25}, {40, 25}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], TraditionalForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{0, 6.141678727111631}, {0, 0}], Offset[{5.318849799561148, -3.0708393635558155`}, {0, 0}], Offset[{-5.318849799561148, -3.0708393635558155`}, {0, 0}]}]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 25}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.33999999999999997`] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 25}, {40, 25}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], TraditionalForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{3.5, 3.5}, {0, 0}], Offset[{3.5, -3.5}, {0, 0}], Offset[{-3.5, -3.5}, {0, 0}], Offset[{-3.5, 3.5}, {0, 0}]}]}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 25}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.33999999999999997`] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 25}, {40, 25}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], TraditionalForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{0, 4.949747468305833}, {0, 0}], Offset[{4.949747468305833, 0}, {0, 0}], Offset[{0, -4.949747468305833}, {0, 0}], Offset[{-4.949747468305833, 0}, {0, 0}]}]}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 25}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.33999999999999997`] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.368417, 0.506779, 0.709798]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.880722, 0.611041, 0.142051]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.560181, 0.691569, 0.194885]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], StandardForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{0, 6.141678727111631}, {0, 0}], Offset[{5.318849799561148, -3.0708393635558155`}, {0, 0}], Offset[{-5.318849799561148, -3.0708393635558155`}, {0, 0}]}]}, { ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], StandardForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{3.5, 3.5}, {0, 0}], Offset[{3.5, -3.5}, {0, 0}], Offset[{-3.5, -3.5}, {0, 0}], Offset[{-3.5, 3.5}, {0, 0}]}]}, { ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], StandardForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{0, 4.949747468305833}, {0, 0}], Offset[{4.949747468305833, 0}, {0, 0}], Offset[{0, -4.949747468305833}, {0, 0}], Offset[{-4.949747468305833, 0}, {0, 0}]}]}, { ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "25"}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, TaggingRules->{"AttachedInlineCell" -> CellObject[7546305]}, CellChangeTimes->{{3.835227762425061*^9, 3.8352277786167636`*^9}, 3.8352520321811275`*^9, 3.835307409282484*^9, 3.83531062711982*^9, 3.8364310733785872`*^9, 3.84047459403318*^9, 3.840476055530889*^9, 3.846153838973008*^9}, CellLabel->"Out[154]=", CellID->749689397], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[1., 0.4, 0.], CapForm["Butt"], AbsoluteThickness[3]], LineBox[{{1., 1.4785538089186683`}, {2., 1.487250725736365}, {3., 1.8342800210912915`}, {4., 1.973559848475517}, {5., 2.1541625130329747`}, {6., 2.682863724274287}, {7., 3.2614505028727465`}, {8., 4.02179992158292}, {9., 4.426097778323965}, {10., 5.329824058911706}}]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.655728, 0.8, 0.], CapForm["Butt"], AbsoluteThickness[3]], LineBox[{{1., 2.975904248082698}, {2., 3.5962642670139893`}, {3., 3.6942657522969196`}, {4., 4.676020473017621}, {5., 5.426193143461955}, {6., 5.559913966702864}, {7., 5.908746338845164}, {8., 6.09107483553767}, {9., 6.739145672074806}, {10., 7.108679635523176}}]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0., 0.742291, 0.873126], CapForm["Butt"], AbsoluteThickness[3]], LineBox[{{1., 3.6647855320830622`}, {2., 3.8957364166416424`}, {3., 4.45421884612958}, {4., 5.258826643224563}, {5., 5.289620833271928}, {6., 5.748743906014941}, {7., 6.280686617943886}, {8., 6.821431248169026}, {9., 7.1526151189883045`}, {10., 7.728828444402605}}]}}, {{ Directive[ PointSize[0.012833333333333334`], RGBColor[1., 0.4, 0.], CapForm["Butt"], AbsoluteThickness[3]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], TraditionalForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{0, 6.141678727111631}, {0, 0}], Offset[{5.318849799561148, -3.0708393635558155`}, {0, 0}], Offset[{-5.318849799561148, -3.0708393635558155`}, {0, 0}]}]}, { ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.012833333333333334`], RGBColor[1., 0.4, 0.], CapForm["Butt"], AbsoluteThickness[3]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 1.4785538089186683`}}, {{2., 1.487250725736365}}, {{3., 1.8342800210912915`}}, {{4., 1.973559848475517}}, {{5., 2.1541625130329747`}}, {{6., 2.682863724274287}}, {{7., 3.2614505028727465`}}, {{8., 4.02179992158292}}, {{9., 4.426097778323965}}, {{10., 5.329824058911706}}}]}, { Directive[ PointSize[0.012833333333333334`], RGBColor[0.655728, 0.8, 0.], CapForm["Butt"], AbsoluteThickness[3]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], TraditionalForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{3.5, 3.5}, {0, 0}], Offset[{3.5, -3.5}, {0, 0}], Offset[{-3.5, -3.5}, {0, 0}], Offset[{-3.5, 3.5}, {0, 0}]}]}, { ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.012833333333333334`], RGBColor[0.655728, 0.8, 0.], CapForm["Butt"], AbsoluteThickness[3]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 2.975904248082698}}, {{2., 3.5962642670139893`}}, {{3., 3.6942657522969196`}}, {{4., 4.676020473017621}}, {{5., 5.426193143461955}}, {{6., 5.559913966702864}}, {{7., 5.908746338845164}}, {{8., 6.09107483553767}}, {{9., 6.739145672074806}}, {{10., 7.108679635523176}}}]}, { Directive[ PointSize[0.012833333333333334`], RGBColor[0., 0.742291, 0.873126], CapForm["Butt"], AbsoluteThickness[3]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], TraditionalForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{0, 4.949747468305833}, {0, 0}], Offset[{4.949747468305833, 0}, {0, 0}], Offset[{0, -4.949747468305833}, {0, 0}], Offset[{-4.949747468305833, 0}, {0, 0}]}]}, { ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.012833333333333334`], RGBColor[0., 0.742291, 0.873126], CapForm["Butt"], AbsoluteThickness[3]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 3.6647855320830622`}}, {{2., 3.8957364166416424`}}, {{3., 4.45421884612958}}, {{4., 5.258826643224563}}, {{5., 5.289620833271928}}, {{6., 5.748743906014941}}, {{7., 6.280686617943886}}, {{8., 6.821431248169026}}, {{9., 7.1526151189883045`}}, {{10., 7.728828444402605}}}]}}}, {{}, {}}}, { DisplayFunction -> Identity, Axes -> {False, False}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0., 0}, DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Charting`FindScaledTicks[ (Charting`SimpleTicks[#, #2, 6]& )[ SlotSequence[1]], {Identity, Identity}]& , None}, { Charting`FindScaledTicks[ (Charting`SimpleTicks[#, #2, 6]& )[ SlotSequence[1]], {Identity, Identity}]& , None}}, FrameTicksStyle -> Directive[ StrokeForm[ Opacity[0]], FontOpacity -> 1], GridLines -> {{0., 2., 4., 6., 8., 10.}, {0., 2., 4., 6., 8.}}, GridLinesStyle -> Directive[ AbsoluteThickness[1], GrayLevel[0, 0.2]], ImageSize -> 450, Method -> { "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange -> {{0., 10.}, {0, 7.728828444402605}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Prolog -> { GrayLevel[0, 0.7], RectangleBox[ Scaled[{0, 0}], Scaled[{1, 1}]]}, 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]& }}], FormBox[ FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"]}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[1., 0.4, 0.], CapForm["Butt"], AbsoluteThickness[3]], { LineBox[{{0, 25}, {40, 25}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[1., 0.4, 0.], CapForm["Butt"], AbsoluteThickness[3]], { InsetBox[ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], TraditionalForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{0, 6.141678727111631}, {0, 0}], Offset[{5.318849799561148, -3.0708393635558155`}, {0, 0}], Offset[{-5.318849799561148, -3.0708393635558155`}, {0, 0}]}]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[1., 0.4, 0.], CapForm["Butt"], AbsoluteThickness[3]]}, ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 25}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.33999999999999997`] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.655728, 0.8, 0.], CapForm["Butt"], AbsoluteThickness[3]], { LineBox[{{0, 25}, {40, 25}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.655728, 0.8, 0.], CapForm["Butt"], AbsoluteThickness[3]], { InsetBox[ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], TraditionalForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{3.5, 3.5}, {0, 0}], Offset[{3.5, -3.5}, {0, 0}], Offset[{-3.5, -3.5}, {0, 0}], Offset[{-3.5, 3.5}, {0, 0}]}]}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.655728, 0.8, 0.], CapForm["Butt"], AbsoluteThickness[3]]}, ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 25}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.33999999999999997`] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0., 0.742291, 0.873126], CapForm["Butt"], AbsoluteThickness[3]], { LineBox[{{0, 25}, {40, 25}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0., 0.742291, 0.873126], CapForm["Butt"], AbsoluteThickness[3]], { InsetBox[ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], TraditionalForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{0, 4.949747468305833}, {0, 0}], Offset[{4.949747468305833, 0}, {0, 0}], Offset[{0, -4.949747468305833}, {0, 0}], Offset[{-4.949747468305833, 0}, {0, 0}]}]}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0., 0.742291, 0.873126], CapForm["Butt"], AbsoluteThickness[3]]}, ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 25}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.33999999999999997`] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", TemplateBox[ Association["color" -> RGBColor[1., 0.4, 0.]], "RGBColorSwatchTemplate"], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", TemplateBox[ Association["color" -> RGBColor[0.655728, 0.8, 0.]], "RGBColorSwatchTemplate"], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", TemplateBox[ Association["color" -> RGBColor[0., 0.742291, 0.873126]], "RGBColorSwatchTemplate"], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], StandardForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{0, 6.141678727111631}, {0, 0}], Offset[{5.318849799561148, -3.0708393635558155`}, {0, 0}], Offset[{-5.318849799561148, -3.0708393635558155`}, {0, 0}]}]}, { ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], StandardForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{3.5, 3.5}, {0, 0}], Offset[{3.5, -3.5}, {0, 0}], Offset[{-3.5, -3.5}, {0, 0}], Offset[{-3.5, 3.5}, {0, 0}]}]}, { ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{ DynamicBox[ Typeset`ToBoxes[ EdgeForm[ Directive[ CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]]], StandardForm, Graphics]], FaceForm[ GrayLevel[1]], PolygonBox[{ Offset[{0, 4.949747468305833}, {0, 0}], Offset[{4.949747468305833, 0}, {0, 0}], Offset[{0, -4.949747468305833}, {0, 0}], Offset[{-4.949747468305833, 0}, {0, 0}]}]}, { ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "25"}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, TaggingRules->{"AttachedInlineCell" -> CellObject[7546305]}, CellChangeTimes->{{3.835227762425061*^9, 3.8352277786167636`*^9}, 3.8352520321811275`*^9, 3.835307409282484*^9, 3.83531062711982*^9, 3.8364310733785872`*^9, 3.84047459403318*^9, 3.840476055530889*^9, 3.846153839242414*^9}, CellLabel->"Out[156]=", CellID->263453070] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell[CellGroupData[{ Cell["Filled markers with lighter filling colors:", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{}, CellChangeTimes->{3.835161394742205*^9}, CellID->383310139], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"fm2", "[", RowBox[{"name_String", ",", RowBox[{"size_", ":", "9"}]}], "]"}], ":=", RowBox[{"PolygonMarker", "[", RowBox[{"name", ",", RowBox[{"Offset", "@", "size"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dynamic", "@", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"CurrentValue", "[", "\"\\"", "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"FaceForm", "@", RowBox[{"Lighter", "[", RowBox[{ RowBox[{"CurrentValue", "[", "\"\\"", "]"}], ",", "0.75"}], "]"}]}]}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"BesselJ", "[", RowBox[{"k", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", "0.5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{"ListPlot", "[", RowBox[{"data", ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"fm2", "/@", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}], ",", RowBox[{"PlotRangePadding", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", ".05", "]"}], ",", RowBox[{"Scaled", "[", ".1", "]"}]}], "}"}]}]}], "]"}]}], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{}, CellChangeTimes->{ 3.788182617907576*^9, {3.835161360972604*^9, 3.835161394742205*^9}, { 3.8352453845673685`*^9, 3.8352453929086175`*^9}}, CellLabel->"In[157]:=", CellID->177377260], Cell[BoxData[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjQo+2EPoB/Zm9j5XP7K/s4eJf9hx/XZ9zQso/4e9 dOrLnCcJD6B8Bodv51R+F684A+WzOFj/11E+dHTFfgifw2GCcsqXDUsuQPk8 DoG8j32YQ25A+QIOP6bYcT7PugnlCzlMyXDZdaT5CpQv4tB/OnRT7e5jUL6Y Q9t3W9NAjhooX8JhavIMpgiPw1D7pRyKN5neSF56AcqXcTi4yXV9vcllKF/O 4WkYX91W7otQvoKDYUFd6PIfR6F8RYdPgtrH+CuXQvlKDgsnH2qUUtgOtU/Z QUS/027FpRNQvopDn8K8HZeqzu8HAGKPYYE= "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sL9e4CG/nOm8PYT/wT6XZ/q7k5p3oPwf9g1/ rq2ce+shlM/g8KmweWp7ySMon8WBYZr7ieQL96F8DocLFpMiVDZfhfJ5HDz+ z7GcNvUglC/gsO/VL13zFxv2Q/hCDrkRjsnJk89C+SIOc1ZuruH7fgXKF3Oo u2K+Rv7WVShfwmG7d72ZwdaLUL6Ug4aVVrzQxsNQvozDlglRt731iqF8OQcD 9aVcl/xh9is4pCVIhE3gOAflKzqoaRZ3X6m6COUrOWh/CM5KSIOFh7LDbl8+ iYAlR6B8FYftr+T9+J2W2QMAApRbCw== "]]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sHc2abNfGTbfHsL/YP9s9q+pAVl7ofwf9rOY rzbwbD0L5TM4pNSU6F6dcg3KZ3GQ9Gb1tu65A+VzOJycd7RFTuY+lM/j8Ovw MQu9qLtQvoDDUvN65Qe+16F8IYc9j4x2VT46DeWLODg6SbAnXV8O5Ys5FIf+ 1Unm2Lcfwpdw2OHwVq1C7DyUL+UgPSW55cOay1C+jIOa1LribC8YX85BIn5N /MzKs1C+ggPDug/1bG/3QPmKDqtlBF5535kGtU/JQXhH6sTorkNQvrLD8sse T1W0Yf5XcfjkVPbxjvcFewC1llpb "]]}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[{ DynamicBox[Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], Opacity[1]}], TraditionalForm, Graphics], ImageSizeCache->{{ 4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], DynamicBox[Typeset`ToBoxes[ FaceForm[ Lighter[ CurrentValue["Color"], 0.75]], TraditionalForm, Graphics], ImageSizeCache->{{ 4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], PolygonBox[{ Offset[{0, 7.896444077714955}, {0, 0}], Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 0}], Offset[{-6.8385211708643325`, -3.9482220388574776`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}], TraditionalForm], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiQAcf7CH0A3sze5+rH9nf2cPEP+y4fru+5gWU /8NeOvVlzpOEB1A+g8O3cyq/i1ecgfJZHKz/6ygfOrpiP4TP4TBBOeXLhiUX oHweh0Dexz7MITegfAGHH1PsOJ9n3YTyhRymZLjsOtJ8BcoXceg/Hbqpdvcx KF/Moe27rWkgRw2UL+EwNXkGU4THYaj9Ug7Fm0xvJC+9AOXLOBzc5Lq+3uQy lC/n8DSMr24r90UoX8HBsKAudPmPo1C+osMnQe1j/JVLoXwlh4WTDzVKKWyH 2qfsIKLfabfi0gkoX8WhT2HejktV5/cDAGxLYYM= "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[{ DynamicBox[Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], Opacity[1]}], TraditionalForm, Graphics], ImageSizeCache->{{ 4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], DynamicBox[Typeset`ToBoxes[ FaceForm[ Lighter[ CurrentValue["Color"], 0.75]], TraditionalForm, Graphics], ImageSizeCache->{{ 4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}], TraditionalForm], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2F8v8JBfznTeHsL/YJ/LM/3dSc07UP4P +4Y/11bOvfUQymdw+FTYPLW95BGUz+LAMM39RPKF+1A+h8MFi0kRKpuvQvk8 Dh7/51hOm3oQyhdw2Pfql675iw37IXwhh9wIx+TkyWehfBGHOSs31/B9vwLl iznUXTFfI3/rKpQv4bDdu97MYOtFKF/KQcNKK15o42EoX8Zhy4So2956xVC+ nIOB+lKuS/4w+xUc0hIkwiZwnIPyFR3UNIu7r1RdhPKVHLQ/BGclpMHCQ9lh ty+fRMCSI1C+isP2V/J+/E7L7AEMUFsN "]]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[{ DynamicBox[Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], Opacity[1]}], TraditionalForm, Graphics], ImageSizeCache->{{ 4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], DynamicBox[Typeset`ToBoxes[ FaceForm[ Lighter[ CurrentValue["Color"], 0.75]], TraditionalForm, Graphics], ImageSizeCache->{{ 4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}], TraditionalForm], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2DubtNmvDJtvD+F/sH82+9fUgKy9UP4P +1nMVxt4tp6F8hkcUmpKdK9OuQblszhIerN6W/fcgfI5HE7OO9oiJ3Mfyudx +HX4mIVe1F0oX8BhqXm98gPf61C+kMOeR0a7Kh+dhvJFHBydJNiTri+H8sUc ikP/6iRz7NsP4Us47HB4q1Yhdh7Kl3KQnpLc8mHNZShfxkFNal1xtheML+cg Eb8mfmblWShfwYFh3Yd6trd7oHxFh9UyAq+870yD2qfkILwjdWJ01yEoX9lh +WWPpyraMP+rOHxyKvt4x/uCPQC/Ulpd "]]}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->450, ImageSizeRaw->{450., 279.}, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 10.}, {-0.3971498098638473, 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.1], Scaled[0.1]}}, Ticks->{{{0., FormBox["0", TraditionalForm], {0.01, 0.}}, {2., FormBox["2", TraditionalForm], {0.01, 0.}}, {4., FormBox["4", TraditionalForm], {0.01, 0.}}, {6., FormBox["6", TraditionalForm], {0.01, 0.}}, {8., FormBox["8", TraditionalForm], {0.01, 0.}}, {10., FormBox["10", TraditionalForm], {0.01, 0.}}, {-2., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {2.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {4.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {6.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {7., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {7.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {8.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {9., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {9.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 10.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {11., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {12., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{-0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox[ "\"-0.5\"", ShowStringCharacters -> False], -0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {0., FormBox["0", TraditionalForm], {0.01, 0.}}, {0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.5\"", ShowStringCharacters -> False], 0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {1., FormBox[ TagBox[ InterpretationBox[ StyleBox["\"1.0\"", ShowStringCharacters -> False], 1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{"AttachedInlineCell" -> CellObject[7546465]}, CellChangeTimes->{{3.835161377366863*^9, 3.8351613968371224`*^9}, 3.8351628383977156`*^9, 3.835163273503545*^9, 3.83516386107347*^9, 3.8351640256940327`*^9, 3.83516464245274*^9, 3.8351650737149043`*^9, 3.835245393955797*^9, 3.835307414347516*^9, 3.8353106332825747`*^9, 3.8364310780289774`*^9, 3.8404746002720537`*^9, 3.840476059937812*^9, 3.846153844178441*^9}, CellLabel->"Out[159]=", CellID->324146676] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell[CellGroupData[{ Cell[TextData[{ "Use the third argument of ", Cell[BoxData["PolygonMarker"], "InlineFormula", FontFamily->"Source Sans Pro"], " to specify the coordinate(s) where the marker should be placed:" }], "Text", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellID->871900699], Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "1", "]"}], ",", RowBox[{"JoinForm", "[", "\"\\"", "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"EdgeForm", "[", "Blue", "]"}], ",", RowBox[{"PolygonMarker", "[", RowBox[{"\"\\"", ",", RowBox[{"Offset", "[", "7", "]"}], ",", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "2"}], "}"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"EdgeForm", "[", "Red", "]"}], ",", RowBox[{"PolygonMarker", "[", RowBox[{"\"\\"", ",", RowBox[{"Offset", "[", "7", "]"}], ",", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "2"}], "}"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"EdgeForm", "[", RowBox[{"Darker", "@", "Green"}], "]"}], ",", RowBox[{"PolygonMarker", "[", RowBox[{"\"\\"", ",", RowBox[{"Offset", "[", "7", "]"}], ",", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "2"}], "}"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"EdgeForm", "[", RowBox[{"Darker", "@", "Yellow"}], "]"}], ",", RowBox[{"PolygonMarker", "[", RowBox[{"\"\\"", ",", RowBox[{"Offset", "[", "7", "]"}], ",", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "2"}], "}"}]}], "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}], ",", RowBox[{"Frame", "->", "True"}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{{3.835232757727355*^9, 3.835232857625428*^9}, { 3.835232899449198*^9, 3.8352329395154514`*^9}}, CellLabel->"In[160]:=", CellID->766522618], Cell[BoxData[ GraphicsBox[ {EdgeForm[{RGBColor[0, 0, 1], AbsoluteThickness[1], JoinForm["Miter"]}], FaceForm[None], GeometricTransformationBox[ PolygonBox[{ Offset[{0, 3.972000565968588}, {0, 0}], Offset[{1.028029393630662, 3.836657928703855}, {0, 0}], Offset[{1.986000282984294, 3.439853393974965}, {0, 0}], Offset[{2.808628535073193, 2.808628535073193}, {0, 0}], Offset[{3.439853393974965, 1.986000282984294}, {0, 0}], Offset[{3.836657928703855, 1.028029393630662}, {0, 0}], Offset[{3.972000565968588, 0}, {0, 0}], Offset[{3.836657928703855, -1.028029393630662}, {0, 0}], Offset[{3.439853393974965, -1.986000282984294}, {0, 0}], Offset[{2.808628535073193, -2.808628535073193}, {0, 0}], Offset[{1.986000282984294, -3.439853393974965}, {0, 0}], Offset[{1.028029393630662, -3.836657928703855}, {0, 0}], Offset[{0, -3.972000565968588}, {0, 0}], Offset[{-1.028029393630662, -3.836657928703855}, {0, 0}], Offset[{-1.986000282984294, -3.439853393974965}, {0, 0}], Offset[{-2.808628535073193, -2.808628535073193}, {0, 0}], Offset[{-3.439853393974965, -1.986000282984294}, {0, 0}], Offset[{-3.836657928703855, -1.028029393630662}, {0, 0}], Offset[{-3.972000565968588, 0}, {0, 0}], Offset[{-3.836657928703855, 1.028029393630662}, {0, 0}], Offset[{-3.439853393974965, 1.986000282984294}, {0, 0}], Offset[{-2.808628535073193, 2.808628535073193}, {0, 0}], Offset[{-1.986000282984294, 3.439853393974965}, {0, 0}], Offset[{-1.028029393630662, 3.836657928703855}, {0, 0}]}], CompressedData[" 1:eJwBVQGq/iFib1JlAwAAABQAAAABAAAAAgAAAACu8EMu58c/eIWjjKZn0L9g M0iA30C1PzBIbJ5Wvck/3NjXKJYB6L/w36CzG0TNv2DJOf0AfuO/IBCoJbjm wb+gV3HD6obqP0ikc+1exOi/QOmAePvS7z9oNw8d+F7pPyB0KPCwG74/4GPM TCNC5T+crW1Wp4Puv2gHje4Ro9I/BIRRklin6b/YxgP1WVXrv3wWk6/FO+m/ CLnT2LMp5z8Ep1X4wLDnvwBMjqGBHme/oOb7p6m+7L8YSoyF48LZPwBmtZ+b +aO/yF3R75pY2z8I1jSWkrDkv0wfLqk3wuQ/ZLjmTIZ15D9M4sbcabflv4C4 48WO/bM/FNaN8Upy7j/ceEpKE/fiPxjmxQXs2uO//EbSxx9K4j9Q7oMwUGLe P1BrMCIF6Mo/XCqTLnVl6z+g8y/B1kHiP5D3Fi4R6u0/IIWwkg== "]], {EdgeForm[RGBColor[1, 0, 0]], GeometricTransformationBox[ PolygonBox[{ Offset[{0, 8.389689163116964}, {0, 0}], Offset[{1.9468341455531497`, 1.124005218002666}, {0, 0}], Offset[{7.265683945114297, -4.194844581558482}, {0, 0}], Offset[{0, -2.248010436005332}, {0, 0}], Offset[{-7.265683945114297, -4.194844581558482}, {0, 0}], Offset[{-1.9468341455531497`, 1.124005218002666}, {0, 0}]}], CompressedData[" 1:eJwBVQGq/iFib1JlAwAAABQAAAABAAAAAgAAAAwctfQileE/4O4Mxxmqwr/E DzsXqznhvyztDNKS5+a/EKKalVLd678APpTJi82HP6A718FJ6du/1M6x2yc2 4T+AUH53VEKsvyjPCM5PHN4/PEMkgUKV6D84kTkvVlTSP3A3dGRmZsQ/UNG5 Ul7WwD/Q9PnOo4bGP8z/PK8OAeS/OIXi0+Xi478AVcOOZ7DIv8h2KGdM7O8/ QLkL4DU7zz9A6vKcZ53cP8ASvVdkdss/ZGBYy4s95z9o0amsRaHRP/DpzwkF 8eK/kJfw5TgU5D/8x+ASCnntP3jdqA7iO98/ADMYGrcmzz/kheMNk5Psv4h0 VAbFPeQ/CN8lEOzv1r84kM7U+b/RP/QC3cqDF+Q/eGKV538y6j8wzrwTFtnQ v8wjrrj+6us/PMWs64tg5j8EmFzxI/jhv7DyfQmETMK/uMeuIg== "]]}, {EdgeForm[RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0]], GeometricTransformationBox[ PolygonBox[{ Offset[{0, 6.467156727579007}, {0, 0}], Offset[{1.8941863505116894`, 1.8941863505116894`}, {0, 0}], Offset[{6.467156727579007, 0}, {0, 0}], Offset[{1.8941863505116894`, -1.8941863505116894`}, {0, 0}], Offset[{0, -6.467156727579007}, {0, 0}], Offset[{-1.8941863505116894`, -1.8941863505116894`}, {0, 0}], Offset[{-6.467156727579007, 0}, {0, 0}], Offset[{-1.8941863505116894`, 1.8941863505116894`}, {0, 0}]}], CompressedData[" 1:eJwBVQGq/iFib1JlAwAAABQAAAABAAAAAgAAAIj3v0PVZeo/DNBzz79H7z8c Aij6VCfiv7QO3NhKgeG/7PmOq+wr6D+sdlMLatLvP6xUnYxzQ+e/YPaUL1du 3b+4h6Rn5t3fvwBgiEEZJjG/nIliUL8q7D/AgFgmYrSnP9z/fdVxXuo/ECPm jVJV37/wA/16+4LFP4Sq+OB8juU/sFHybCKoyT9Uidx9LbXjP/AG94N4YdS/ ODCICsg+4j8A9G2jtKhovyhRms7CYuk/AId9JSLHnT84QaH/I/TnP+iwxi46 Q+W/+NJn6oas5L+Uw8rOpHrmP6wOSGClKOs/qK6l3y8b6j/AG4UGSGWzv3gQ uhVF6dw/rKImNrGT4j+ACVEPwyXmP1CMtwwNTcM/WCrIakSc1j+4QRlNx63t v7CFMQHdWty//Hs/2fJJ67/8eVhn2BDtP1hv2tM5N+W/eKGr8g== "]]}, {EdgeForm[RGBColor[ NCache[ Rational[2, 3], 0.6666666666666666], NCache[ Rational[2, 3], 0.6666666666666666], 0]], GeometricTransformationBox[ PolygonBox[{ Offset[{0, 6.606802667322143}, {0, 0}], Offset[{1.4833196166841347`, 2.041614302684274}, {0, 0}], Offset[{6.2834427286329255`, 2.041614302684274}, {0, 0}], Offset[{2.4000615559743954`, -0.7798272717074771}, {0, 0}], Offset[{3.88338117265853, -5.345015636345346}, {0, 0}], Offset[{0, -2.5235740619535942`}, {0, 0}], Offset[{-3.88338117265853, -5.345015636345346}, {0, 0}], Offset[{-2.4000615559743954`, -0.7798272717074771}, {0, 0}], Offset[{-6.2834427286329255`, 2.041614302684274}, {0, 0}], Offset[{-1.4833196166841347`, 2.041614302684274}, {0, 0}]}], CompressedData[" 1:eJwBVQGq/iFib1JlAwAAABQAAAABAAAAAgAAAFja0AlXXd6/wNSYPMHm5b9g p5A4rZO5vyyG+2EZY+G/sLu4FPNtyj94TngbI//WP4AaxyGr8as/sBDvUw2o 57+Qfz4daWPgPzwShsAMAOq/gKTtNT327b94+zJBWY3sP/yktqIqyOO/kPJT ojiz0b8YXacY4iHRv+yMh+VkK+o/pH776MsW6j+46vn7mkvdP3jED7teluK/ mIcT9x206L8Un58oiwPmv+AAU8MyKLI/aNkWE1va1b9I/2uHYGHcv6haVK56 jNW/iCbzZQxf2j8MzTxniezhPwCP4eKwb4m/gF5G3vKZ1j+oWMbaDyDuPyAb 59Wv8Ne/BM1g3B7X6D8gOCmzqjXlP2TN74BU5+w/UKdzfI2T1j8wPjoRbLnZ PwBg2Pr+Z2g/YEskDP5fub9keWqHcpzpP8CQEHenBaU/8e2s2A== "]]}}, AspectRatio->NCache[ Rational[1, 2], 0.5], Frame->True, ImageSize->450]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{"AttachedInlineCell" -> CellObject[7546545]}, CellChangeTimes->{{3.835161402122219*^9, 3.83516140577034*^9}, { 3.8351632785757904`*^9, 3.8351632808693786`*^9}, {3.835164028070866*^9, 3.8351640295548368`*^9}, {3.835232806565811*^9, 3.8352328581175103`*^9}, { 3.835307417237887*^9, 3.8353074286817474`*^9}, 3.83531063742313*^9, { 3.836431084462532*^9, 3.836431090819275*^9}, 3.840476064965494*^9, 3.846153850610609*^9}, CellLabel->"Out[160]=", CellID->392647375] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107566], Cell[CellGroupData[{ Cell["Construct a list plot directly from graphics primitives:", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{}, CellChangeTimes->{{3.835238956024974*^9, 3.8352389853773355`*^9}, { 3.83524222832808*^9, 3.8352422293309927`*^9}, {3.835242353373783*^9, 3.835242353724388*^9}, 3.8352519536658335`*^9}, CellID->743721680], Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"BesselJ", "[", RowBox[{"k", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", "0.5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"markers", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"colors", "=", RowBox[{"{", RowBox[{"Blue", ",", "Red", ",", RowBox[{"Darker", "@", "Green"}], ",", RowBox[{"Darker", "@", "Yellow"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"FaceForm", "[", "White", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}], ",", RowBox[{"JoinForm", "[", "\"\\"", "]"}]}], "}"}], "]"}], ",", RowBox[{"PolygonMarker", "[", RowBox[{ RowBox[{"markers", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Offset", "[", "7", "]"}], ",", RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}], ",", RowBox[{"Frame", "->", "True"}]}], "]"}]}], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{}, CellChangeTimes->{{3.835232757727355*^9, 3.835232857625428*^9}, { 3.835232899449198*^9, 3.8352329395154514`*^9}, {3.835238992970355*^9, 3.8352390104679976`*^9}, {3.8352390419313765`*^9, 3.8352392152420063`*^9}, {3.835239247162022*^9, 3.8352393969347706`*^9}, { 3.8352394645001726`*^9, 3.8352394687850122`*^9}, 3.8352519416421328`*^9}, CellLabel->"In[161]:=", CellID->159598714], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 0, 1], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjQo+2EPoB/Zm9j5XP7K/s4eJf9hx/XZ9zQso/4e9 dOrLnCcJD6B8Bodv51R+F684A+WzOFj/11E+dHTFfgifw2GCcsqXDUsuQPk8 DoG8j32YQ25A+QIOP6bYcT7PugnlCzlMyXDZdaT5CpQv4tB/OnRT7e5jUL6Y Q9t3W9NAjhooX8JhavIMpgiPw1D7pRyKN5neSF56AcqXcTi4yXV9vcllKF/O 4WkYX91W7otQvoKDYUFd6PIfR6F8RYdPgtrH+CuXQvlKDgsnH2qUUtgOtU/Z QUS/027FpRNQvopDn8K8HZeqzu8HAGKPYYE= "]], {EdgeForm[{RGBColor[0, 0, 1], AbsoluteThickness[1], JoinForm["Miter"]}], FaceForm[GrayLevel[1]], GeometricTransformationBox[ PolygonBox[{ Offset[{0, 3.972000565968588}, {0, 0}], Offset[{1.028029393630662, 3.836657928703855}, {0, 0}], Offset[{1.986000282984294, 3.439853393974965}, {0, 0}], Offset[{2.808628535073193, 2.808628535073193}, {0, 0}], Offset[{3.439853393974965, 1.986000282984294}, {0, 0}], Offset[{3.836657928703855, 1.028029393630662}, {0, 0}], Offset[{3.972000565968588, 0}, {0, 0}], Offset[{3.836657928703855, -1.028029393630662}, {0, 0}], Offset[{3.439853393974965, -1.986000282984294}, {0, 0}], Offset[{2.808628535073193, -2.808628535073193}, {0, 0}], Offset[{1.986000282984294, -3.439853393974965}, {0, 0}], Offset[{1.028029393630662, -3.836657928703855}, {0, 0}], Offset[{0, -3.972000565968588}, {0, 0}], Offset[{-1.028029393630662, -3.836657928703855}, {0, 0}], Offset[{-1.986000282984294, -3.439853393974965}, {0, 0}], Offset[{-2.808628535073193, -2.808628535073193}, {0, 0}], Offset[{-3.439853393974965, -1.986000282984294}, {0, 0}], Offset[{-3.836657928703855, -1.028029393630662}, {0, 0}], Offset[{-3.972000565968588, 0}, {0, 0}], Offset[{-3.836657928703855, 1.028029393630662}, {0, 0}], Offset[{-3.439853393974965, 1.986000282984294}, {0, 0}], Offset[{-2.808628535073193, 2.808628535073193}, {0, 0}], Offset[{-1.986000282984294, 3.439853393974965}, {0, 0}], Offset[{-1.028029393630662, 3.836657928703855}, {0, 0}]}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiQAcf7CH0A3sze5+rH9nf2cPEP+y4fru+5gWU /8NeOvVlzpOEB1A+g8O3cyq/i1ecgfJZHKz/6ygfOrpiP4TP4TBBOeXLhiUX oHweh0Dexz7MITegfAGHH1PsOJ9n3YTyhRymZLjsOtJ8BcoXceg/Hbqpdvcx KF/Moe27rWkgRw2UL+EwNXkGU4THYaj9Ug7Fm0xvJC+9AOXLOBzc5Lq+3uQy lC/n8DSMr24r90UoX8HBsKAudPmPo1C+osMnQe1j/JVLoXwlh4WTDzVKKWyH 2qfsIKLfabfi0gkoX8WhT2HejktV5/cDAGxLYYM= "]]}}, {RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sL9e4CG/nOm8PYT/wT6XZ/q7k5p3oPwf9g1/ rq2ce+shlM/g8KmweWp7ySMon8WBYZr7ieQL96F8DocLFpMiVDZfhfJ5HDz+ z7GcNvUglC/gsO/VL13zFxv2Q/hCDrkRjsnJk89C+SIOc1ZuruH7fgXKF3Oo u2K+Rv7WVShfwmG7d72ZwdaLUL6Ug4aVVrzQxsNQvozDlglRt731iqF8OQcD 9aVcl/xh9is4pCVIhE3gOAflKzqoaRZ3X6m6COUrOWh/CM5KSIOFh7LDbl8+ iYAlR6B8FYftr+T9+J2W2QMAApRbCw== "]], {EdgeForm[{RGBColor[1, 0, 0], AbsoluteThickness[1], JoinForm["Miter"]}], FaceForm[GrayLevel[1]], GeometricTransformationBox[ PolygonBox[{ Offset[{0, 8.389689163116964}, {0, 0}], Offset[{1.9468341455531497`, 1.124005218002666}, {0, 0}], Offset[{7.265683945114297, -4.194844581558482}, {0, 0}], Offset[{0, -2.248010436005332}, {0, 0}], Offset[{-7.265683945114297, -4.194844581558482}, {0, 0}], Offset[{-1.9468341455531497`, 1.124005218002666}, {0, 0}]}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2F8v8JBfznTeHsL/YJ/LM/3dSc07UP4P +4Y/11bOvfUQymdw+FTYPLW95BGUz+LAMM39RPKF+1A+h8MFi0kRKpuvQvk8 Dh7/51hOm3oQyhdw2Pfql675iw37IXwhh9wIx+TkyWehfBGHOSs31/B9vwLl iznUXTFfI3/rKpQv4bDdu97MYOtFKF/KQcNKK15o42EoX8Zhy4So2956xVC+ nIOB+lKuS/4w+xUc0hIkwiZwnIPyFR3UNIu7r1RdhPKVHLQ/BGclpMHCQ9lh ty+fRMCSI1C+isP2V/J+/E7L7AEMUFsN "]]}}, {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sHc2abNfGTbfHsL/YP9s9q+pAVl7ofwf9rOY rzbwbD0L5TM4pNSU6F6dcg3KZ3GQ9Gb1tu65A+VzOJycd7RFTuY+lM/j8Ovw MQu9qLtQvoDDUvN65Qe+16F8IYc9j4x2VT46DeWLODg6SbAnXV8O5Ys5FIf+ 1Unm2Lcfwpdw2OHwVq1C7DyUL+UgPSW55cOay1C+jIOa1LribC8YX85BIn5N /MzKs1C+ggPDug/1bG/3QPmKDqtlBF5535kGtU/JQXhH6sTorkNQvrLD8sse T1W0Yf5XcfjkVPbxjvcFewC1llpb "]], {EdgeForm[{RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], AbsoluteThickness[1], JoinForm["Miter"]}], FaceForm[GrayLevel[1]], GeometricTransformationBox[ PolygonBox[{ Offset[{0, 6.467156727579007}, {0, 0}], Offset[{1.8941863505116894`, 1.8941863505116894`}, {0, 0}], Offset[{6.467156727579007, 0}, {0, 0}], Offset[{1.8941863505116894`, -1.8941863505116894`}, {0, 0}], Offset[{0, -6.467156727579007}, {0, 0}], Offset[{-1.8941863505116894`, -1.8941863505116894`}, {0, 0}], Offset[{-6.467156727579007, 0}, {0, 0}], Offset[{-1.8941863505116894`, 1.8941863505116894`}, {0, 0}]}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2DubtNmvDJtvD+F/sH82+9fUgKy9UP4P +1nMVxt4tp6F8hkcUmpKdK9OuQblszhIerN6W/fcgfI5HE7OO9oiJ3Mfyudx +HX4mIVe1F0oX8BhqXm98gPf61C+kMOeR0a7Kh+dhvJFHBydJNiTri+H8sUc ikP/6iRz7NsP4Us47HB4q1Yhdh7Kl3KQnpLc8mHNZShfxkFNal1xtheML+cg Eb8mfmblWShfwYFh3Yd6trd7oHxFh9UyAq+870yD2qfkILwjdWJ01yEoX9lh +WWPpyraMP+rOHxyKvt4x/uCPQC/Ulpd "]]}}, {RGBColor[ NCache[ Rational[2, 3], 0.6666666666666666], NCache[ Rational[2, 3], 0.6666666666666666], 0], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sI+6XcDfwZBqD+F/sF/03aIsi2MKlP/DftPm owdWma2H8hkcLmgeiTdrPADlszjs1npxtH/naSifw8Hygzzz+uOXoXweh4PW lrnXD9yA8gUc/D79ffe2/TaUL+QgdWPWpEg9GF/Eoewxk3hq5HUoX8xh0do1 +jYpF6B8CQfr5uzfpYl7oXwph6Vap5W+SCzaD+HLODTcjlQtKzoK5cs5/Fiz 6LVgywUoX8FhihvX7xcLL0H5ig7Zv/YabjkHk1dyeNU4I+mRxnEoX9lBXt5A rnHHBihfxaHp9YGXzx6vtQcAydNhoA== "]], {EdgeForm[{RGBColor[ NCache[ Rational[2, 3], 0.6666666666666666], NCache[ Rational[2, 3], 0.6666666666666666], 0], AbsoluteThickness[1], JoinForm["Miter"]}], FaceForm[GrayLevel[1]], GeometricTransformationBox[ PolygonBox[{ Offset[{0, 6.606802667322143}, {0, 0}], Offset[{1.4833196166841347`, 2.041614302684274}, {0, 0}], Offset[{6.2834427286329255`, 2.041614302684274}, {0, 0}], Offset[{2.4000615559743954`, -0.7798272717074771}, {0, 0}], Offset[{3.88338117265853, -5.345015636345346}, {0, 0}], Offset[{0, -2.5235740619535942`}, {0, 0}], Offset[{-3.88338117265853, -5.345015636345346}, {0, 0}], Offset[{-2.4000615559743954`, -0.7798272717074771}, {0, 0}], Offset[{-6.2834427286329255`, 2.041614302684274}, {0, 0}], Offset[{-1.4833196166841347`, 2.041614302684274}, {0, 0}]}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2EfdLuDvYEi1h/A/2C/6blGWxTEFyv9h v2nz0QOrzNZD+QwOFzSPxJs1HoDyWRx2a7042r/zNJTP4WD5QZ55/fHLUD6P w0Fry9zrB25A+QIOfp/+vnvbfhvKF3KQujFrUqQejC/iUPaYSTw18jqUL+aw aO0afZuUC1C+hIN1c/bv0sS9UL6Uw1Kt00pfJBbth/BlHBpuR6qWFR2F8uUc fqxZ9Fqw5QKUr+AwxY3r94uFl6B8RYfsX3sNt5yDySs5vGqckfRI4ziUr+wg L28g17hjA5Sv4tD0+sDLZ4/X2gMA049hog== "]]}}}, AspectRatio->NCache[ Rational[1, 2], 0.5], Frame->True, ImageSize->450]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{"AttachedInlineCell" -> CellObject[7546625]}, CellChangeTimes->{{3.8352393801212163`*^9, 3.835239399014844*^9}, 3.8352394691633053`*^9, 3.8352519416430883`*^9, 3.8353074350003233`*^9, 3.8353106402193813`*^9, 3.836431102152602*^9, 3.840476069762953*^9, 3.846153855415979*^9}, CellLabel->"Out[164]=", CellID->729138539] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107567], Cell[CellGroupData[{ Cell["\<\ Construct a custom list plot where open plot markers have transparent faces \ for each other (but not for the lines):\ \>", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, TaggingRules->{}, CellChangeTimes->{{3.835238956024974*^9, 3.8352389853773355`*^9}, { 3.835239699453707*^9, 3.835239758614767*^9}, {3.835241903325163*^9, 3.8352419234940643`*^9}, {3.8352423558699102`*^9, 3.835242356260006*^9}, 3.83525196567662*^9}, CellID->936189942], Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"BesselJ", "[", RowBox[{"k", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", "0.5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"markers", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"colors", "=", RowBox[{"{", RowBox[{"Blue", ",", "Red", ",", "Green", ",", "Yellow", ",", "Orange"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"background", "=", RowBox[{"Darker", "@", "Gray"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.5", "]"}], ",", RowBox[{"Line", "[", RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"FaceForm", "[", "background", "]"}], ",", RowBox[{"EdgeForm", "[", "None", "]"}], ",", RowBox[{"PolygonMarker", "[", RowBox[{ RowBox[{"markers", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Offset", "[", "7", "]"}], ",", RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "None", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"colors", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.5", "]"}], ",", RowBox[{"JoinForm", "[", "\"\\"", "]"}]}], "}"}], "]"}], ",", RowBox[{"PolygonMarker", "[", RowBox[{ RowBox[{"markers", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Offset", "[", "7", "]"}], ",", RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"Background", "->", "background"}], ",", RowBox[{"FrameStyle", "->", "White"}], ",", RowBox[{"ImagePadding", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"30", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "20"}], "}"}]}], "}"}]}]}], "]"}]}], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, TaggingRules->{}, CellChangeTimes->{{3.835232757727355*^9, 3.835232857625428*^9}, { 3.835232899449198*^9, 3.8352329395154514`*^9}, {3.835238992970355*^9, 3.8352390104679976`*^9}, {3.8352390419313765`*^9, 3.8352392152420063`*^9}, {3.835239247162022*^9, 3.8352393969347706`*^9}, { 3.8352394645001726`*^9, 3.8352394687850122`*^9}, {3.835239564186558*^9, 3.8352396283774076`*^9}, {3.8352398540111074`*^9, 3.8352398540815077`*^9}, {3.835241130703494*^9, 3.8352413889887333`*^9}, { 3.8352414523930535`*^9, 3.835241457656379*^9}, {3.83524152897482*^9, 3.8352415294035673`*^9}, {3.8352417445768642`*^9, 3.835241751889332*^9}, { 3.8352424259218464`*^9, 3.8352424413002234`*^9}, 3.8352519656776185`*^9}, CellLabel->"In[165]:=", CellID->420833866], Cell[BoxData[ GraphicsBox[{{ {RGBColor[0, 0, 1], AbsoluteThickness[1.5], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjQo+2EPoB/Zm9j5XP7K/s4eJf9hx/XZ9zQso/4e9 dOrLnCcJD6B8Bodv51R+F684A+WzOFj/11E+dHTFfgifw2GCcsqXDUsuQPk8 DoG8j32YQ25A+QIOP6bYcT7PugnlCzlMyXDZdaT5CpQv4tB/OnRT7e5jUL6Y Q9t3W9NAjhooX8JhavIMpgiPw1D7pRyKN5neSF56AcqXcTi4yXV9vcllKF/O 4WkYX91W7otQvoKDYUFd6PIfR6F8RYdPgtrH+CuXQvlKDgsnH2qUUtgOtU/Z QUS/027FpRNQvopDn8K8HZeqzu8HAGKPYYE= "]], {EdgeForm[None], FaceForm[RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`]], GeometricTransformationBox[ PolygonBox[{ Offset[{0, 3.972000565968588}, {0, 0}], Offset[{1.028029393630662, 3.836657928703855}, {0, 0}], Offset[{1.986000282984294, 3.439853393974965}, {0, 0}], Offset[{2.808628535073193, 2.808628535073193}, {0, 0}], Offset[{3.439853393974965, 1.986000282984294}, {0, 0}], Offset[{3.836657928703855, 1.028029393630662}, {0, 0}], Offset[{3.972000565968588, 0}, {0, 0}], Offset[{3.836657928703855, -1.028029393630662}, {0, 0}], Offset[{3.439853393974965, -1.986000282984294}, {0, 0}], Offset[{2.808628535073193, -2.808628535073193}, {0, 0}], Offset[{1.986000282984294, -3.439853393974965}, {0, 0}], Offset[{1.028029393630662, -3.836657928703855}, {0, 0}], Offset[{0, -3.972000565968588}, {0, 0}], Offset[{-1.028029393630662, -3.836657928703855}, {0, 0}], Offset[{-1.986000282984294, -3.439853393974965}, {0, 0}], Offset[{-2.808628535073193, -2.808628535073193}, {0, 0}], Offset[{-3.439853393974965, -1.986000282984294}, {0, 0}], Offset[{-3.836657928703855, -1.028029393630662}, {0, 0}], Offset[{-3.972000565968588, 0}, {0, 0}], Offset[{-3.836657928703855, 1.028029393630662}, {0, 0}], Offset[{-3.439853393974965, 1.986000282984294}, {0, 0}], Offset[{-2.808628535073193, 2.808628535073193}, {0, 0}], Offset[{-1.986000282984294, 3.439853393974965}, {0, 0}], Offset[{-1.028029393630662, 3.836657928703855}, {0, 0}]}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiQAcf7CH0A3sze5+rH9nf2cPEP+y4fru+5gWU /8NeOvVlzpOEB1A+g8O3cyq/i1ecgfJZHKz/6ygfOrpiP4TP4TBBOeXLhiUX oHweh0Dexz7MITegfAGHH1PsOJ9n3YTyhRymZLjsOtJ8BcoXceg/Hbqpdvcx KF/Moe27rWkgRw2UL+EwNXkGU4THYaj9Ug7Fm0xvJC+9AOXLOBzc5Lq+3uQy lC/n8DSMr24r90UoX8HBsKAudPmPo1C+osMnQe1j/JVLoXwlh4WTDzVKKWyH 2qfsIKLfabfi0gkoX8WhT2HejktV5/cDAGxLYYM= "]]}}, {RGBColor[1, 0, 0], AbsoluteThickness[1.5], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sL9e4CG/nOm8PYT/wT6XZ/q7k5p3oPwf9g1/ rq2ce+shlM/g8KmweWp7ySMon8WBYZr7ieQL96F8DocLFpMiVDZfhfJ5HDz+ z7GcNvUglC/gsO/VL13zFxv2Q/hCDrkRjsnJk89C+SIOc1ZuruH7fgXKF3Oo u2K+Rv7WVShfwmG7d72ZwdaLUL6Ug4aVVrzQxsNQvozDlglRt731iqF8OQcD 9aVcl/xh9is4pCVIhE3gOAflKzqoaRZ3X6m6COUrOWh/CM5KSIOFh7LDbl8+ iYAlR6B8FYftr+T9+J2W2QMAApRbCw== "]], {EdgeForm[None], FaceForm[RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`]], GeometricTransformationBox[ PolygonBox[{ Offset[{0, 8.389689163116964}, {0, 0}], Offset[{1.9468341455531497`, 1.124005218002666}, {0, 0}], Offset[{7.265683945114297, -4.194844581558482}, {0, 0}], Offset[{0, -2.248010436005332}, {0, 0}], Offset[{-7.265683945114297, -4.194844581558482}, {0, 0}], Offset[{-1.9468341455531497`, 1.124005218002666}, {0, 0}]}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2F8v8JBfznTeHsL/YJ/LM/3dSc07UP4P +4Y/11bOvfUQymdw+FTYPLW95BGUz+LAMM39RPKF+1A+h8MFi0kRKpuvQvk8 Dh7/51hOm3oQyhdw2Pfql675iw37IXwhh9wIx+TkyWehfBGHOSs31/B9vwLl iznUXTFfI3/rKpQv4bDdu97MYOtFKF/KQcNKK15o42EoX8Zhy4So2956xVC+ nIOB+lKuS/4w+xUc0hIkwiZwnIPyFR3UNIu7r1RdhPKVHLQ/BGclpMHCQ9lh ty+fRMCSI1C+isP2V/J+/E7L7AEMUFsN "]]}}, {RGBColor[0, 1, 0], AbsoluteThickness[1.5], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sHc2abNfGTbfHsL/YP9s9q+pAVl7ofwf9rOY rzbwbD0L5TM4pNSU6F6dcg3KZ3GQ9Gb1tu65A+VzOJycd7RFTuY+lM/j8Ovw MQu9qLtQvoDDUvN65Qe+16F8IYc9j4x2VT46DeWLODg6SbAnXV8O5Ys5FIf+ 1Unm2Lcfwpdw2OHwVq1C7DyUL+UgPSW55cOay1C+jIOa1LribC8YX85BIn5N /MzKs1C+ggPDug/1bG/3QPmKDqtlBF5535kGtU/JQXhH6sTorkNQvrLD8sse T1W0Yf5XcfjkVPbxjvcFewC1llpb "]], {EdgeForm[None], FaceForm[RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`]], GeometricTransformationBox[ PolygonBox[{ Offset[{0, 6.467156727579007}, {0, 0}], Offset[{1.8941863505116894`, 1.8941863505116894`}, {0, 0}], Offset[{6.467156727579007, 0}, {0, 0}], Offset[{1.8941863505116894`, -1.8941863505116894`}, {0, 0}], Offset[{0, -6.467156727579007}, {0, 0}], Offset[{-1.8941863505116894`, -1.8941863505116894`}, {0, 0}], Offset[{-6.467156727579007, 0}, {0, 0}], Offset[{-1.8941863505116894`, 1.8941863505116894`}, {0, 0}]}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2DubtNmvDJtvD+F/sH82+9fUgKy9UP4P +1nMVxt4tp6F8hkcUmpKdK9OuQblszhIerN6W/fcgfI5HE7OO9oiJ3Mfyudx +HX4mIVe1F0oX8BhqXm98gPf61C+kMOeR0a7Kh+dhvJFHBydJNiTri+H8sUc ikP/6iRz7NsP4Us47HB4q1Yhdh7Kl3KQnpLc8mHNZShfxkFNal1xtheML+cg Eb8mfmblWShfwYFh3Yd6trd7oHxFh9UyAq+870yD2qfkILwjdWJ01yEoX9lh +WWPpyraMP+rOHxyKvt4x/uCPQC/Ulpd "]]}}, {RGBColor[1, 1, 0], AbsoluteThickness[1.5], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sI+6XcDfwZBqD+F/sF/03aIsi2MKlP/DftPm owdWma2H8hkcLmgeiTdrPADlszjs1npxtH/naSifw8Hygzzz+uOXoXweh4PW lrnXD9yA8gUc/D79ffe2/TaUL+QgdWPWpEg9GF/Eoewxk3hq5HUoX8xh0do1 +jYpF6B8CQfr5uzfpYl7oXwph6Vap5W+SCzaD+HLODTcjlQtKzoK5cs5/Fiz 6LVgywUoX8FhihvX7xcLL0H5ig7Zv/YabjkHk1dyeNU4I+mRxnEoX9lBXt5A rnHHBihfxaHp9YGXzx6vtQcAydNhoA== "]], {EdgeForm[None], FaceForm[RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`]], GeometricTransformationBox[ PolygonBox[{ Offset[{4.572970377067318, 4.572970377067318}, {0, 0}], Offset[{2.678784026555628, 0}, {0, 0}], Offset[{4.572970377067318, -4.572970377067318}, {0, 0}], Offset[{0, -2.678784026555628}, {0, 0}], Offset[{-4.572970377067318, -4.572970377067318}, {0, 0}], Offset[{-2.678784026555628, 0}, {0, 0}], Offset[{-4.572970377067318, 4.572970377067318}, {0, 0}], Offset[{0, 2.678784026555628}, {0, 0}]}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2EfdLuDvYEi1h/A/2C/6blGWxTEFyv9h v2nz0QOrzNZD+QwOFzSPxJs1HoDyWRx2a7042r/zNJTP4WD5QZ55/fHLUD6P w0Fry9zrB25A+QIOfp/+vnvbfhvKF3KQujFrUqQejC/iUPaYSTw18jqUL+aw aO0afZuUC1C+hIN1c/bv0sS9UL6Uw1Kt00pfJBbth/BlHBpuR6qWFR2F8uUc fqxZ9Fqw5QKUr+AwxY3r94uFl6B8RYfsX3sNt5yDySs5vGqckfRI4ziUr+wg L28g17hjA5Sv4tD0+sDLZ4/X2gMA049hog== "]]}}, {RGBColor[1, 0.5, 0], AbsoluteThickness[1.5], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sF+T2HUxW1DVHsL/YL/hY1T2Y88UKP+HfTUj 9//Hkh1QPoPDPKE+wcfpC6F8Fofnl+91xj3eBOVzOEQ0f2Gqf3YAyudx+OAS /eCz5ikoX8Dhyua/h1j+XYTyhRyOrIt/1u9zDcoXcbBZFFzymfMmlC/m4PVk 64VzyTC+hINOY+CkmY9h6qUcLj+fZRg3DWaejMOq4Ijju4yOQPlyDr67HEzr U2dA+QoOSqp6hVt+7NoP4Ss6HHrD5P1x6ikoX8lBaeNTu8q/F6B8ZQdlxjUf CiwvQvkqDlp/Sm9+kD6zHwCZ0GEQ "]], {EdgeForm[None], FaceForm[RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`]], GeometricTransformationBox[ PolygonBox[{ Offset[{0, 6.606802667322143}, {0, 0}], Offset[{1.4833196166841347`, 2.041614302684274}, {0, 0}], Offset[{6.2834427286329255`, 2.041614302684274}, {0, 0}], Offset[{2.4000615559743954`, -0.7798272717074771}, {0, 0}], Offset[{3.88338117265853, -5.345015636345346}, {0, 0}], Offset[{0, -2.5235740619535942`}, {0, 0}], Offset[{-3.88338117265853, -5.345015636345346}, {0, 0}], Offset[{-2.4000615559743954`, -0.7798272717074771}, {0, 0}], Offset[{-6.2834427286329255`, 2.041614302684274}, {0, 0}], Offset[{-1.4833196166841347`, 2.041614302684274}, {0, 0}]}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2K9J7LqYLahqD+F/sN/wMSr7sWcKlP/D vpqR+/9jyQ4on8FhnlCf4OP0hVA+i8Pzy/c64x5vgvI5HCKavzDVPzsA5fM4 fHCJfvBZ8xSUL+BwZfPfQyz/LkL5Qg5H1sU/6/e5BuWLONgsCi75zHkTyhdz 8Hqy9cK5ZBhfwkGnMXDSzMcw9VIOl5/PMoybBjNPxmFVcMTxXUZHoHw5B99d Dqb1qTOgfAUHJVW9wi0/du2H8BUdDr1h8v449RSUr+SgtPGpXeXfC1C+soMy 45oPBZYXoXwVB60/pTc/SJ/ZDwCjjGES "]]}}}, { {EdgeForm[{RGBColor[0, 0, 1], AbsoluteThickness[1.5], JoinForm["Miter"]}], FaceForm[None], GeometricTransformationBox[ PolygonBox[{ Offset[{0, 3.972000565968588}, {0, 0}], Offset[{1.028029393630662, 3.836657928703855}, {0, 0}], Offset[{1.986000282984294, 3.439853393974965}, {0, 0}], Offset[{2.808628535073193, 2.808628535073193}, {0, 0}], Offset[{3.439853393974965, 1.986000282984294}, {0, 0}], Offset[{3.836657928703855, 1.028029393630662}, {0, 0}], Offset[{3.972000565968588, 0}, {0, 0}], Offset[{3.836657928703855, -1.028029393630662}, {0, 0}], Offset[{3.439853393974965, -1.986000282984294}, {0, 0}], Offset[{2.808628535073193, -2.808628535073193}, {0, 0}], Offset[{1.986000282984294, -3.439853393974965}, {0, 0}], Offset[{1.028029393630662, -3.836657928703855}, {0, 0}], Offset[{0, -3.972000565968588}, {0, 0}], Offset[{-1.028029393630662, -3.836657928703855}, {0, 0}], Offset[{-1.986000282984294, -3.439853393974965}, {0, 0}], Offset[{-2.808628535073193, -2.808628535073193}, {0, 0}], Offset[{-3.439853393974965, -1.986000282984294}, {0, 0}], Offset[{-3.836657928703855, -1.028029393630662}, {0, 0}], Offset[{-3.972000565968588, 0}, {0, 0}], Offset[{-3.836657928703855, 1.028029393630662}, {0, 0}], Offset[{-3.439853393974965, 1.986000282984294}, {0, 0}], Offset[{-2.808628535073193, 2.808628535073193}, {0, 0}], Offset[{-1.986000282984294, 3.439853393974965}, {0, 0}], Offset[{-1.028029393630662, 3.836657928703855}, {0, 0}]}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiQAcf7CH0A3sze5+rH9nf2cPEP+y4fru+5gWU /8NeOvVlzpOEB1A+g8O3cyq/i1ecgfJZHKz/6ygfOrpiP4TP4TBBOeXLhiUX oHweh0Dexz7MITegfAGHH1PsOJ9n3YTyhRymZLjsOtJ8BcoXceg/Hbqpdvcx KF/Moe27rWkgRw2UL+EwNXkGU4THYaj9Ug7Fm0xvJC+9AOXLOBzc5Lq+3uQy lC/n8DSMr24r90UoX8HBsKAudPmPo1C+osMnQe1j/JVLoXwlh4WTDzVKKWyH 2qfsIKLfabfi0gkoX8WhT2HejktV5/cDAGxLYYM= "]]}, {EdgeForm[{RGBColor[1, 0, 0], AbsoluteThickness[1.5], JoinForm["Miter"]}], FaceForm[None], GeometricTransformationBox[ PolygonBox[{ Offset[{0, 8.389689163116964}, {0, 0}], Offset[{1.9468341455531497`, 1.124005218002666}, {0, 0}], Offset[{7.265683945114297, -4.194844581558482}, {0, 0}], Offset[{0, -2.248010436005332}, {0, 0}], Offset[{-7.265683945114297, -4.194844581558482}, {0, 0}], Offset[{-1.9468341455531497`, 1.124005218002666}, {0, 0}]}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2F8v8JBfznTeHsL/YJ/LM/3dSc07UP4P +4Y/11bOvfUQymdw+FTYPLW95BGUz+LAMM39RPKF+1A+h8MFi0kRKpuvQvk8 Dh7/51hOm3oQyhdw2Pfql675iw37IXwhh9wIx+TkyWehfBGHOSs31/B9vwLl iznUXTFfI3/rKpQv4bDdu97MYOtFKF/KQcNKK15o42EoX8Zhy4So2956xVC+ nIOB+lKuS/4w+xUc0hIkwiZwnIPyFR3UNIu7r1RdhPKVHLQ/BGclpMHCQ9lh ty+fRMCSI1C+isP2V/J+/E7L7AEMUFsN "]]}, {EdgeForm[{RGBColor[0, 1, 0], AbsoluteThickness[1.5], JoinForm["Miter"]}], FaceForm[None], GeometricTransformationBox[ PolygonBox[{ Offset[{0, 6.467156727579007}, {0, 0}], Offset[{1.8941863505116894`, 1.8941863505116894`}, {0, 0}], Offset[{6.467156727579007, 0}, {0, 0}], Offset[{1.8941863505116894`, -1.8941863505116894`}, {0, 0}], Offset[{0, -6.467156727579007}, {0, 0}], Offset[{-1.8941863505116894`, -1.8941863505116894`}, {0, 0}], Offset[{-6.467156727579007, 0}, {0, 0}], Offset[{-1.8941863505116894`, 1.8941863505116894`}, {0, 0}]}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2DubtNmvDJtvD+F/sH82+9fUgKy9UP4P +1nMVxt4tp6F8hkcUmpKdK9OuQblszhIerN6W/fcgfI5HE7OO9oiJ3Mfyudx +HX4mIVe1F0oX8BhqXm98gPf61C+kMOeR0a7Kh+dhvJFHBydJNiTri+H8sUc ikP/6iRz7NsP4Us47HB4q1Yhdh7Kl3KQnpLc8mHNZShfxkFNal1xtheML+cg Eb8mfmblWShfwYFh3Yd6trd7oHxFh9UyAq+870yD2qfkILwjdWJ01yEoX9lh +WWPpyraMP+rOHxyKvt4x/uCPQC/Ulpd "]]}, {EdgeForm[{RGBColor[1, 1, 0], AbsoluteThickness[1.5], JoinForm["Miter"]}], FaceForm[None], GeometricTransformationBox[ PolygonBox[{ Offset[{4.572970377067318, 4.572970377067318}, {0, 0}], Offset[{2.678784026555628, 0}, {0, 0}], Offset[{4.572970377067318, -4.572970377067318}, {0, 0}], Offset[{0, -2.678784026555628}, {0, 0}], Offset[{-4.572970377067318, -4.572970377067318}, {0, 0}], Offset[{-2.678784026555628, 0}, {0, 0}], Offset[{-4.572970377067318, 4.572970377067318}, {0, 0}], Offset[{0, 2.678784026555628}, {0, 0}]}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2EfdLuDvYEi1h/A/2C/6blGWxTEFyv9h v2nz0QOrzNZD+QwOFzSPxJs1HoDyWRx2a7042r/zNJTP4WD5QZ55/fHLUD6P w0Fry9zrB25A+QIOfp/+vnvbfhvKF3KQujFrUqQejC/iUPaYSTw18jqUL+aw aO0afZuUC1C+hIN1c/bv0sS9UL6Uw1Kt00pfJBbth/BlHBpuR6qWFR2F8uUc fqxZ9Fqw5QKUr+AwxY3r94uFl6B8RYfsX3sNt5yDySs5vGqckfRI4ziUr+wg L28g17hjA5Sv4tD0+sDLZ4/X2gMA049hog== "]]}, {EdgeForm[{RGBColor[1, 0.5, 0], AbsoluteThickness[1.5], JoinForm[ "Miter"]}], FaceForm[None], GeometricTransformationBox[ PolygonBox[{ Offset[{0, 6.606802667322143}, {0, 0}], Offset[{1.4833196166841347`, 2.041614302684274}, {0, 0}], Offset[{6.2834427286329255`, 2.041614302684274}, {0, 0}], Offset[{2.4000615559743954`, -0.7798272717074771}, {0, 0}], Offset[{3.88338117265853, -5.345015636345346}, {0, 0}], Offset[{0, -2.5235740619535942`}, {0, 0}], Offset[{-3.88338117265853, -5.345015636345346}, {0, 0}], Offset[{-2.4000615559743954`, -0.7798272717074771}, {0, 0}], Offset[{-6.2834427286329255`, 2.041614302684274}, {0, 0}], Offset[{-1.4833196166841347`, 2.041614302684274}, {0, 0}]}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2K9J7LqYLahqD+F/sN/wMSr7sWcKlP/D vpqR+/9jyQ4on8FhnlCf4OP0hVA+i8Pzy/c64x5vgvI5HCKavzDVPzsA5fM4 fHCJfvBZ8xSUL+BwZfPfQyz/LkL5Qg5H1sU/6/e5BuWLONgsCi75zHkTyhdz 8Hqy9cK5ZBhfwkGnMXDSzMcw9VIOl5/PMoybBjNPxmFVcMTxXUZHoHw5B99d Dqb1qTOgfAUHJVW9wi0/du2H8BUdDr1h8v449RSUr+SgtPGpXeXfC1C+soMy 45oPBZYXoXwVB60/pTc/SJ/ZDwCjjGES "]]}}}, AspectRatio->NCache[ Rational[1, 2], 0.5], Background->RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], Frame->True, FrameStyle->GrayLevel[1], ImagePadding->{{30, 20}, {25, 20}}, ImageSize->500]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, TaggingRules->{"AttachedInlineCell" -> CellObject[7546705]}, CellChangeTimes->{ 3.835239634838507*^9, 3.8352398550849357`*^9, {3.835241217170825*^9, 3.8352413898282886`*^9}, 3.8352415312669*^9, {3.835241745518674*^9, 3.8352417527526045`*^9}, {3.835242434679617*^9, 3.8352424421478806`*^9}, 3.835249495757967*^9, 3.8352519656786184`*^9, 3.835307437786088*^9, 3.8353106433502455`*^9, 3.836431104221941*^9, 3.840476073733807*^9, 3.84615386223573*^9}, CellLabel->"Out[169]=", CellID->613763992] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", TaggingRules->{}, CellID->461278909], Cell[CellGroupData[{ Cell[TextData[{ "Center markers that pick up ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PlotStyle", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/PlotStyle", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PlotTheme", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/PlotTheme", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " automatically:" }], "Text", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, TaggingRules->{}, CellChangeTimes->{ 3.835161394742205*^9, {3.835243894561013*^9, 3.835243919597172*^9}, 3.835244273954462*^9, 3.8352461170953817`*^9, {3.8352517490530186`*^9, 3.8352517504372015`*^9}, 3.8352518406763716`*^9, {3.840474667030451*^9, 3.840474667548654*^9}}, CellID->239639383], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cfm", "[", RowBox[{"name_String", ",", RowBox[{"size_", ":", "9"}]}], "]"}], ":=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{"name", ",", RowBox[{"Offset", "@", "size"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"FaceForm", "[", "White", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"CurrentValue", "[", "\"\\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PolygonMarker", "[", RowBox[{"name", ",", RowBox[{"Offset", "[", RowBox[{"size", "/", "2"}], "]"}], ",", RowBox[{"EdgeForm", "[", "None", "]"}]}], "]"}]}], "]"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"BesselJ", "[", RowBox[{"k", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", "0.5"}], "}"}]}], "]"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"data", ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"cfm", "/@", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}], ",", RowBox[{"PlotRangePadding", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", ".05", "]"}], ",", RowBox[{"Scaled", "[", ".1", "]"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"PointLegend", "[", RowBox[{"Automatic", ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "30"}], "}"}]}]}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}]}], "]"}]}], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, TaggingRules->{}, CellChangeTimes->{ 3.788182617907576*^9, {3.835161360972604*^9, 3.835161394742205*^9}, { 3.835244314972479*^9, 3.835244384489276*^9}, {3.835244417989894*^9, 3.835244542594365*^9}, {3.8352449188635283`*^9, 3.835244939397088*^9}, { 3.8352449716412935`*^9, 3.8352450027938385`*^9}, {3.835245043098524*^9, 3.8352450863484163`*^9}, 3.835245158441165*^9, {3.835245218164119*^9, 3.835245220498836*^9}, {3.8352472073886023`*^9, 3.8352472170835567`*^9}, { 3.835247453842659*^9, 3.835247483600215*^9}, {3.8352475244674597`*^9, 3.8352475342430887`*^9}, {3.8352478147932596`*^9, 3.835247817028803*^9}, { 3.8352491508994427`*^9, 3.8352491643269386`*^9}, {3.8352492001673083`*^9, 3.83524923737609*^9}, {3.8352517762167854`*^9, 3.835251799794797*^9}, 3.835251840677371*^9}, CellLabel->"In[170]:=", CellID->398345422], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjQo+2EPoB/Zm9j5XP7K/s4eJf9hx/XZ9zQso/4e9 dOrLnCcJD6B8Bodv51R+F684A+WzOFj/11E+dHTFfgifw2GCcsqXDUsuQPk8 DoG8j32YQ25A+QIOP6bYcT7PugnlCzlMyXDZdaT5CpQv4tB/OnRT7e5jUL6Y Q9t3W9NAjhooX8JhavIMpgiPw1D7pRyKN5neSF56AcqXcTi4yXV9vcllKF/O 4WkYX91W7otQvoKDYUFd6PIfR6F8RYdPgtrH+CuXQvlKDgsnH2qUUtgOtU/Z QUS/027FpRNQvopDn8K8HZeqzu8HAGKPYYE= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sL9e4CG/nOm8PYT/wT6XZ/q7k5p3oPwf9g1/ rq2ce+shlM/g8KmweWp7ySMon8WBYZr7ieQL96F8DocLFpMiVDZfhfJ5HDz+ z7GcNvUglC/gsO/VL13zFxv2Q/hCDrkRjsnJk89C+SIOc1ZuruH7fgXKF3Oo u2K+Rv7WVShfwmG7d72ZwdaLUL6Ug4aVVrzQxsNQvozDlglRt731iqF8OQcD 9aVcl/xh9is4pCVIhE3gOAflKzqoaRZ3X6m6COUrOWh/CM5KSIOFh7LDbl8+ iYAlR6B8FYftr+T9+J2W2QMAApRbCw== "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sHc2abNfGTbfHsL/YP9s9q+pAVl7ofwf9rOY rzbwbD0L5TM4pNSU6F6dcg3KZ3GQ9Gb1tu65A+VzOJycd7RFTuY+lM/j8Ovw MQu9qLtQvoDDUvN65Qe+16F8IYc9j4x2VT46DeWLODg6SbAnXV8O5Ys5FIf+ 1Unm2Lcfwpdw2OHwVq1C7DyUL+UgPSW55cOay1C+jIOa1LribC8YX85BIn5N /MzKs1C+ggPDug/1bG/3QPmKDqtlBF5535kGtU/JQXhH6sTorkNQvrLD8sse T1W0Yf5XcfjkVPbxjvcFewC1llpb "]]}}, {{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 7.896444077714955}, {0, 0}], Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 0}], Offset[{-6.8385211708643325`, -3.9482220388574776`}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{0, 3.9482220388574776`}, {0, 0}], Offset[{3.4192605854321663`, -1.9741110194287388`}, {0, 0}], Offset[{-3.4192605854321663`, -1.9741110194287388`}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiQAcf7CH0A3sze5+rH9nf2cPEP+y4fru+5gWU /8NeOvVlzpOEB1A+g8O3cyq/i1ecgfJZHKz/6ygfOrpiP4TP4TBBOeXLhiUX oHweh0Dexz7MITegfAGHH1PsOJ9n3YTyhRymZLjsOtJ8BcoXceg/Hbqpdvcx KF/Moe27rWkgRw2UL+EwNXkGU4THYaj9Ug7Fm0xvJC+9AOXLOBzc5Lq+3uQy lC/n8DSMr24r90UoX8HBsKAudPmPo1C+osMnQe1j/JVLoXwlh4WTDzVKKWyH 2qfsIKLfabfi0gkoX8WhT2HejktV5/cDAGxLYYM= "]]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{2.25, 2.25}, {0, 0}], Offset[{2.25, -2.25}, {0, 0}], Offset[{-2.25, -2.25}, {0, 0}], Offset[{-2.25, 2.25}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2F8v8JBfznTeHsL/YJ/LM/3dSc07UP4P +4Y/11bOvfUQymdw+FTYPLW95BGUz+LAMM39RPKF+1A+h8MFi0kRKpuvQvk8 Dh7/51hOm3oQyhdw2Pfql675iw37IXwhh9wIx+TkyWehfBGHOSs31/B9vwLl iznUXTFfI3/rKpQv4bDdu97MYOtFKF/KQcNKK15o42EoX8Zhy4So2956xVC+ nIOB+lKuS/4w+xUc0hIkwiZwnIPyFR3UNIu7r1RdhPKVHLQ/BGclpMHCQ9lh ty+fRMCSI1C+isP2V/J+/E7L7AEMUFsN "]]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{0, 2.553428935265521}, {0, 0}], Offset[{0.6608760387625684, 2.466422954166764}, {0, 0}], Offset[{1.2767144676327604`, 2.211334324698192}, {0, 0}], Offset[{1.8055469154041957`, 1.8055469154041957`}, {0, 0}], Offset[{2.211334324698192, 1.2767144676327604`}, {0, 0}], Offset[{2.466422954166764, 0.6608760387625684}, {0, 0}], Offset[{2.553428935265521, 0}, {0, 0}], Offset[{2.466422954166764, -0.6608760387625684}, {0, 0}], Offset[{2.211334324698192, -1.2767144676327604`}, {0, 0}], Offset[{1.8055469154041957`, -1.8055469154041957`}, {0, 0}], Offset[{1.2767144676327604`, -2.211334324698192}, {0, 0}], Offset[{0.6608760387625684, -2.466422954166764}, {0, 0}], Offset[{0, -2.553428935265521}, {0, 0}], Offset[{-0.6608760387625684, -2.466422954166764}, {0, 0}], Offset[{-1.2767144676327604`, -2.211334324698192}, {0, 0}], Offset[{-1.8055469154041957`, -1.8055469154041957`}, {0, 0}], Offset[{-2.211334324698192, -1.2767144676327604`}, {0, 0}], Offset[{-2.466422954166764, -0.6608760387625684}, {0, 0}], Offset[{-2.553428935265521, 0}, {0, 0}], Offset[{-2.466422954166764, 0.6608760387625684}, {0, 0}], Offset[{-2.211334324698192, 1.2767144676327604`}, {0, 0}], Offset[{-1.8055469154041957`, 1.8055469154041957`}, {0, 0}], Offset[{-1.2767144676327604`, 2.211334324698192}, {0, 0}], Offset[{-0.6608760387625684, 2.466422954166764}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2DubtNmvDJtvD+F/sH82+9fUgKy9UP4P +1nMVxt4tp6F8hkcUmpKdK9OuQblszhIerN6W/fcgfI5HE7OO9oiJ3Mfyudx +HX4mIVe1F0oX8BhqXm98gPf61C+kMOeR0a7Kh+dhvJFHBydJNiTri+H8sUc ikP/6iRz7NsP4Us47HB4q1Yhdh7Kl3KQnpLc8mHNZShfxkFNal1xtheML+cg Eb8mfmblWShfwYFh3Yd6trd7oHxFh9UyAq+870yD2qfkILwjdWJ01yEoX9lh +WWPpyraMP+rOHxyKvt4x/uCPQC/Ulpd "]]}}}, {{}, {}}}, { DisplayFunction -> Identity, Axes -> {False, False}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> 450, Method -> { "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange -> {{0, 10.}, {-0.3971498098638473, 1.}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {{{0., FormBox["0", TraditionalForm], {0.01, 0.}}, {2., FormBox["2", TraditionalForm], {0.01, 0.}}, {4., FormBox["4", TraditionalForm], {0.01, 0.}}, {6., FormBox["6", TraditionalForm], {0.01, 0.}}, {8., FormBox["8", TraditionalForm], {0.01, 0.}}, {10., FormBox["10", TraditionalForm], {0.01, 0.}}, {-2., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 3.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 4.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 5.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {7., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 7.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 8.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {9., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 9.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 10.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 12., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{-0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox[ "\"-0.5\"", ShowStringCharacters -> False], -0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { 0., FormBox["0", TraditionalForm], {0.01, 0.}}, {0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.5\"", ShowStringCharacters -> False], 0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { 1., FormBox[ TagBox[ InterpretationBox[ StyleBox["\"1.0\"", ShowStringCharacters -> False], 1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}}], FormBox[ FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"]}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 30}, {40, 30}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 7.896444077714955}, {0, 0}], Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 0}], Offset[{-6.8385211708643325`, -3.9482220388574776`}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{0, 3.9482220388574776`}, {0, 0}], Offset[{3.4192605854321663`, -1.9741110194287388`}, {0, 0}], Offset[{-3.4192605854321663`, -1.9741110194287388`}, {0, 0}]}]}}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 30}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3666666666666667] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 30}, {40, 30}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{2.25, 2.25}, {0, 0}], Offset[{2.25, -2.25}, {0, 0}], Offset[{-2.25, -2.25}, {0, 0}], Offset[{-2.25, 2.25}, {0, 0}]}]}}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 30}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3666666666666667] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 30}, {40, 30}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{0, 2.553428935265521}, {0, 0}], Offset[{0.6608760387625684, 2.466422954166764}, {0, 0}], Offset[{1.2767144676327604`, 2.211334324698192}, {0, 0}], Offset[{1.8055469154041957`, 1.8055469154041957`}, {0, 0}], Offset[{2.211334324698192, 1.2767144676327604`}, {0, 0}], Offset[{2.466422954166764, 0.6608760387625684}, {0, 0}], Offset[{2.553428935265521, 0}, {0, 0}], Offset[{2.466422954166764, -0.6608760387625684}, {0, 0}], Offset[{2.211334324698192, -1.2767144676327604`}, {0, 0}], Offset[{1.8055469154041957`, -1.8055469154041957`}, {0, 0}], Offset[{1.2767144676327604`, -2.211334324698192}, {0, 0}], Offset[{0.6608760387625684, -2.466422954166764}, {0, 0}], Offset[{0, -2.553428935265521}, {0, 0}], Offset[{-0.6608760387625684, -2.466422954166764}, {0, 0}], Offset[{-1.2767144676327604`, -2.211334324698192}, {0, 0}], Offset[{-1.8055469154041957`, -1.8055469154041957`}, {0, 0}], Offset[{-2.211334324698192, -1.2767144676327604`}, {0, 0}], Offset[{-2.466422954166764, -0.6608760387625684}, {0, 0}], Offset[{-2.553428935265521, 0}, {0, 0}], Offset[{-2.466422954166764, 0.6608760387625684}, {0, 0}], Offset[{-2.211334324698192, 1.2767144676327604`}, {0, 0}], Offset[{-1.8055469154041957`, 1.8055469154041957`}, {0, 0}], Offset[{-1.2767144676327604`, 2.211334324698192}, {0, 0}], Offset[{-0.6608760387625684, 2.466422954166764}, {0, 0}]}]}}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 30}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3666666666666667] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.368417, 0.506779, 0.709798]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.880722, 0.611041, 0.142051]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.560181, 0.691569, 0.194885]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{0, 7.896444077714955}, {0, 0}], Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 0}], Offset[{-6.8385211708643325`, -3.9482220388574776`}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{0, 3.9482220388574776`}, {0, 0}], Offset[{3.4192605854321663`, -1.9741110194287388`}, {0, 0}], Offset[{-3.4192605854321663`, -1.9741110194287388`}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{2.25, 2.25}, {0, 0}], Offset[{2.25, -2.25}, {0, 0}], Offset[{-2.25, -2.25}, {0, 0}], Offset[{-2.25, 2.25}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{0, 2.553428935265521}, {0, 0}], Offset[{0.6608760387625684, 2.466422954166764}, {0, 0}], Offset[{1.2767144676327604`, 2.211334324698192}, {0, 0}], Offset[{1.8055469154041957`, 1.8055469154041957`}, {0, 0}], Offset[{2.211334324698192, 1.2767144676327604`}, {0, 0}], Offset[{2.466422954166764, 0.6608760387625684}, {0, 0}], Offset[{2.553428935265521, 0}, {0, 0}], Offset[{2.466422954166764, -0.6608760387625684}, {0, 0}], Offset[{2.211334324698192, -1.2767144676327604`}, {0, 0}], Offset[{1.8055469154041957`, -1.8055469154041957`}, {0, 0}], Offset[{1.2767144676327604`, -2.211334324698192}, {0, 0}], Offset[{0.6608760387625684, -2.466422954166764}, {0, 0}], Offset[{0, -2.553428935265521}, {0, 0}], Offset[{-0.6608760387625684, -2.466422954166764}, {0, 0}], Offset[{-1.2767144676327604`, -2.211334324698192}, {0, 0}], Offset[{-1.8055469154041957`, -1.8055469154041957`}, {0, 0}], Offset[{-2.211334324698192, -1.2767144676327604`}, {0, 0}], Offset[{-2.466422954166764, -0.6608760387625684}, {0, 0}], Offset[{-2.553428935265521, 0}, {0, 0}], Offset[{-2.466422954166764, 0.6608760387625684}, {0, 0}], Offset[{-2.211334324698192, 1.2767144676327604`}, {0, 0}], Offset[{-1.8055469154041957`, 1.8055469154041957`}, {0, 0}], Offset[{-1.2767144676327604`, 2.211334324698192}, {0, 0}], Offset[{-0.6608760387625684, 2.466422954166764}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "30"}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, TaggingRules->{"AttachedInlineCell" -> CellObject[7546785]}, CellChangeTimes->{3.835251800639995*^9, 3.835251840677371*^9, 3.8353074411577773`*^9, 3.835310646468325*^9, 3.8364311094065137`*^9, 3.8404760772980137`*^9, 3.8461538694363813`*^9}, CellLabel->"Out[172]=", CellID->113134707] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107568], Cell[CellGroupData[{ Cell[TextData[{ "Half-filled markers that pick up ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PlotStyle", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/PlotStyle", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PlotTheme", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/PlotTheme", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " automatically:" }], "Text", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{ 3.835161394742205*^9, {3.835243894561013*^9, 3.835243919597172*^9}, 3.835244273954462*^9, 3.8352461170953817`*^9, 3.835251719805785*^9, { 3.840474685350246*^9, 3.840474687780778*^9}}, CellID->74154945], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"hfm1", "[", RowBox[{"name_String", ",", RowBox[{"size_", ":", "9"}]}], "]"}], ":=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{"name", ",", RowBox[{"Offset", "@", "size"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"FaceForm", "[", "White", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"CurrentValue", "[", "\"\\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{"name", ",", RowBox[{"Offset", "@", "size"}], ",", RowBox[{"EdgeForm", "[", "None", "]"}]}], "]"}], "/.", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x_", "?", "Negative"}], ",", RowBox[{"y_", "?", "NumericQ"}]}], "}"}], ":>", RowBox[{"{", RowBox[{"0", ",", "y"}], "}"}]}]}]}], "]"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"BesselJ", "[", RowBox[{"k", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", "0.5"}], "}"}]}], "]"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"data", ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"hfm1", "/@", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}], ",", RowBox[{"PlotRangePadding", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", ".05", "]"}], ",", RowBox[{"Scaled", "[", ".1", "]"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"PointLegend", "[", RowBox[{"Automatic", ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "30"}], "}"}]}]}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}]}], "]"}]}], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{ 3.788182617907576*^9, {3.835161360972604*^9, 3.835161394742205*^9}, { 3.835244314972479*^9, 3.835244384489276*^9}, {3.835244417989894*^9, 3.835244542594365*^9}, {3.8352449188635283`*^9, 3.835244939397088*^9}, { 3.8352449716412935`*^9, 3.8352450027938385`*^9}, {3.835245043098524*^9, 3.8352450863484163`*^9}, 3.835245158441165*^9, {3.835245218164119*^9, 3.835245220498836*^9}, {3.8352472073886023`*^9, 3.8352472170835567`*^9}, { 3.835247453842659*^9, 3.835247483600215*^9}, {3.8352475244674597`*^9, 3.8352475342430887`*^9}, {3.8352478147932596`*^9, 3.835247817028803*^9}, { 3.8352491508994427`*^9, 3.8352491643269386`*^9}, {3.8352492001673083`*^9, 3.83524923737609*^9}, 3.835251719805785*^9}, CellLabel->"In[173]:=", CellID->808049226], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjQo+2EPoB/Zm9j5XP7K/s4eJf9hx/XZ9zQso/4e9 dOrLnCcJD6B8Bodv51R+F684A+WzOFj/11E+dHTFfgifw2GCcsqXDUsuQPk8 DoG8j32YQ25A+QIOP6bYcT7PugnlCzlMyXDZdaT5CpQv4tB/OnRT7e5jUL6Y Q9t3W9NAjhooX8JhavIMpgiPw1D7pRyKN5neSF56AcqXcTi4yXV9vcllKF/O 4WkYX91W7otQvoKDYUFd6PIfR6F8RYdPgtrH+CuXQvlKDgsnH2qUUtgOtU/Z QUS/027FpRNQvopDn8K8HZeqzu8HAGKPYYE= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sL9e4CG/nOm8PYT/wT6XZ/q7k5p3oPwf9g1/ rq2ce+shlM/g8KmweWp7ySMon8WBYZr7ieQL96F8DocLFpMiVDZfhfJ5HDz+ z7GcNvUglC/gsO/VL13zFxv2Q/hCDrkRjsnJk89C+SIOc1ZuruH7fgXKF3Oo u2K+Rv7WVShfwmG7d72ZwdaLUL6Ug4aVVrzQxsNQvozDlglRt731iqF8OQcD 9aVcl/xh9is4pCVIhE3gOAflKzqoaRZ3X6m6COUrOWh/CM5KSIOFh7LDbl8+ iYAlR6B8FYftr+T9+J2W2QMAApRbCw== "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sHc2abNfGTbfHsL/YP9s9q+pAVl7ofwf9rOY rzbwbD0L5TM4pNSU6F6dcg3KZ3GQ9Gb1tu65A+VzOJycd7RFTuY+lM/j8Ovw MQu9qLtQvoDDUvN65Qe+16F8IYc9j4x2VT46DeWLODg6SbAnXV8O5Ys5FIf+ 1Unm2Lcfwpdw2OHwVq1C7DyUL+UgPSW55cOay1C+jIOa1LribC8YX85BIn5N /MzKs1C+ggPDug/1bG/3QPmKDqtlBF5535kGtU/JQXhH6sTorkNQvrLD8sse T1W0Yf5XcfjkVPbxjvcFewC1llpb "]]}}, {{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 7.896444077714955}, {0, 0}], Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 0}], Offset[{-6.8385211708643325`, -3.9482220388574776`}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{0, 7.896444077714955}, {0, 0}], Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 0}], Offset[{0, -3.9482220388574776`}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiQAcf7CH0A3sze5+rH9nf2cPEP+y4fru+5gWU /8NeOvVlzpOEB1A+g8O3cyq/i1ecgfJZHKz/6ygfOrpiP4TP4TBBOeXLhiUX oHweh0Dexz7MITegfAGHH1PsOJ9n3YTyhRymZLjsOtJ8BcoXceg/Hbqpdvcx KF/Moe27rWkgRw2UL+EwNXkGU4THYaj9Ug7Fm0xvJC+9AOXLOBzc5Lq+3uQy lC/n8DSMr24r90UoX8HBsKAudPmPo1C+osMnQe1j/JVLoXwlh4WTDzVKKWyH 2qfsIKLfabfi0gkoX8WhT2HejktV5/cDAGxLYYM= "]]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{0, -4.5}, {0, 0}], Offset[{0, 4.5}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2F8v8JBfznTeHsL/YJ/LM/3dSc07UP4P +4Y/11bOvfUQymdw+FTYPLW95BGUz+LAMM39RPKF+1A+h8MFi0kRKpuvQvk8 Dh7/51hOm3oQyhdw2Pfql675iw37IXwhh9wIx+TkyWehfBGHOSs31/B9vwLl iznUXTFfI3/rKpQv4bDdu97MYOtFKF/KQcNKK15o42EoX8Zhy4So2956xVC+ nIOB+lKuS/4w+xUc0hIkwiZwnIPyFR3UNIu7r1RdhPKVHLQ/BGclpMHCQ9lh ty+fRMCSI1C+isP2V/J+/E7L7AEMUFsN "]]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{0, -4.932845908333528}, {0, 0}], Offset[{0, -4.422668649396384}, {0, 0}], Offset[{0, -3.6110938308083913`}, {0, 0}], Offset[{0, -2.553428935265521}, {0, 0}], Offset[{0, -1.3217520775251368`}, {0, 0}], Offset[{0, 0}, {0, 0}], Offset[{0, 1.3217520775251368`}, {0, 0}], Offset[{0, 2.553428935265521}, {0, 0}], Offset[{0, 3.6110938308083913`}, {0, 0}], Offset[{0, 4.422668649396384}, {0, 0}], Offset[{0, 4.932845908333528}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2DubtNmvDJtvD+F/sH82+9fUgKy9UP4P +1nMVxt4tp6F8hkcUmpKdK9OuQblszhIerN6W/fcgfI5HE7OO9oiJ3Mfyudx +HX4mIVe1F0oX8BhqXm98gPf61C+kMOeR0a7Kh+dhvJFHBydJNiTri+H8sUc ikP/6iRz7NsP4Us47HB4q1Yhdh7Kl3KQnpLc8mHNZShfxkFNal1xtheML+cg Eb8mfmblWShfwYFh3Yd6trd7oHxFh9UyAq+870yD2qfkILwjdWJ01yEoX9lh +WWPpyraMP+rOHxyKvt4x/uCPQC/Ulpd "]]}}}, {{}, {}}}, { DisplayFunction -> Identity, Axes -> {False, False}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> 450, Method -> { "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange -> {{0, 10.}, {-0.3971498098638473, 1.}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {{{0., FormBox["0", TraditionalForm], {0.01, 0.}}, {2., FormBox["2", TraditionalForm], {0.01, 0.}}, {4., FormBox["4", TraditionalForm], {0.01, 0.}}, {6., FormBox["6", TraditionalForm], {0.01, 0.}}, {8., FormBox["8", TraditionalForm], {0.01, 0.}}, {10., FormBox["10", TraditionalForm], {0.01, 0.}}, {-2., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 3.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 4.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 5.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {7., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 7.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 8.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {9., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 9.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 10.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 12., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{-0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox[ "\"-0.5\"", ShowStringCharacters -> False], -0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { 0., FormBox["0", TraditionalForm], {0.01, 0.}}, {0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.5\"", ShowStringCharacters -> False], 0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { 1., FormBox[ TagBox[ InterpretationBox[ StyleBox["\"1.0\"", ShowStringCharacters -> False], 1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}}], FormBox[ FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"]}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 30}, {40, 30}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 7.896444077714955}, {0, 0}], Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 0}], Offset[{-6.8385211708643325`, -3.9482220388574776`}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{0, 7.896444077714955}, {0, 0}], Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 0}], Offset[{0, -3.9482220388574776`}, {0, 0}]}]}}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 30}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3666666666666667] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 30}, {40, 30}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{0, -4.5}, {0, 0}], Offset[{0, 4.5}, {0, 0}]}]}}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 30}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3666666666666667] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 30}, {40, 30}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{0, -4.932845908333528}, {0, 0}], Offset[{0, -4.422668649396384}, {0, 0}], Offset[{0, -3.6110938308083913`}, {0, 0}], Offset[{0, -2.553428935265521}, {0, 0}], Offset[{0, -1.3217520775251368`}, {0, 0}], Offset[{0, 0}, {0, 0}], Offset[{0, 1.3217520775251368`}, {0, 0}], Offset[{0, 2.553428935265521}, {0, 0}], Offset[{0, 3.6110938308083913`}, {0, 0}], Offset[{0, 4.422668649396384}, {0, 0}], Offset[{0, 4.932845908333528}, {0, 0}]}]}}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 30}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3666666666666667] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.368417, 0.506779, 0.709798]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.880722, 0.611041, 0.142051]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.560181, 0.691569, 0.194885]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{0, 7.896444077714955}, {0, 0}], Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 0}], Offset[{-6.8385211708643325`, -3.9482220388574776`}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{0, 7.896444077714955}, {0, 0}], Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 0}], Offset[{0, -3.9482220388574776`}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{0, -4.5}, {0, 0}], Offset[{0, 4.5}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{0, -4.932845908333528}, {0, 0}], Offset[{0, -4.422668649396384}, {0, 0}], Offset[{0, -3.6110938308083913`}, {0, 0}], Offset[{0, -2.553428935265521}, {0, 0}], Offset[{0, -1.3217520775251368`}, {0, 0}], Offset[{0, 0}, {0, 0}], Offset[{0, 1.3217520775251368`}, {0, 0}], Offset[{0, 2.553428935265521}, {0, 0}], Offset[{0, 3.6110938308083913`}, {0, 0}], Offset[{0, 4.422668649396384}, {0, 0}], Offset[{0, 4.932845908333528}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "30"}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{"AttachedInlineCell" -> CellObject[7546865]}, CellChangeTimes->{{3.835245054906478*^9, 3.835245078077099*^9}, 3.8352451598146715`*^9, 3.835245539385276*^9, 3.835247218833699*^9, { 3.835247454914934*^9, 3.835247484731369*^9}, 3.8352475268202925`*^9, 3.835247818817284*^9, {3.83524922827752*^9, 3.8352492382788787`*^9}, 3.8352517198067846`*^9, 3.835307445292331*^9, 3.835310649911191*^9, 3.836431112192714*^9, 3.8404760813872337`*^9, 3.846153880552575*^9}, CellLabel->"Out[175]=", CellID->110982574], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"hfm2", "[", RowBox[{"name_String", ",", RowBox[{"size_", ":", "9"}]}], "]"}], ":=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{"name", ",", RowBox[{"Offset", "@", "size"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"FaceForm", "[", "White", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"CurrentValue", "[", "\"\\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "None", "]"}], ",", RowBox[{"Replace", "[", RowBox[{ RowBox[{"RegionDifference", "[", RowBox[{ RowBox[{"PolygonMarker", "[", "name", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", RowBox[{"-", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"p", ":", RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}]}], ":>", RowBox[{"Offset", "[", RowBox[{ RowBox[{"size", " ", "p"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"-", "2"}], "}"}]}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"BesselJ", "[", RowBox[{"k", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", "0.5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{"ListPlot", "[", RowBox[{"data", ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"hfm2", "/@", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}], ",", RowBox[{"PlotRangePadding", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", ".05", "]"}], ",", RowBox[{"Scaled", "[", ".1", "]"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"PointLegend", "[", RowBox[{"Automatic", ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "30"}], "}"}]}]}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}]}], "]"}]}], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{{3.8352452368122835`*^9, 3.835245304780225*^9}, { 3.835245489440341*^9, 3.835245492308797*^9}, {3.8352461354718676`*^9, 3.8352461627944365`*^9}, {3.835246791641224*^9, 3.835246842647524*^9}, { 3.8352469027706947`*^9, 3.8352469874696064`*^9}, {3.83524706198755*^9, 3.83524708968284*^9}, {3.8352471534720373`*^9, 3.8352471929604206`*^9}, { 3.835247380650777*^9, 3.835247444510761*^9}, {3.8352474935592403`*^9, 3.8352475057820854`*^9}, 3.8352475382430744`*^9, {3.8352478676532836`*^9, 3.8352478705784445`*^9}, {3.835249119349192*^9, 3.8352491340379133`*^9}, 3.8352493866649017`*^9, 3.8352517293680224`*^9}, CellLabel->"In[176]:=", CellID->21239224], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjQo+2EPoB/Zm9j5XP7K/s4eJf9hx/XZ9zQso/4e9 dOrLnCcJD6B8Bodv51R+F684A+WzOFj/11E+dHTFfgifw2GCcsqXDUsuQPk8 DoG8j32YQ25A+QIOP6bYcT7PugnlCzlMyXDZdaT5CpQv4tB/OnRT7e5jUL6Y Q9t3W9NAjhooX8JhavIMpgiPw1D7pRyKN5neSF56AcqXcTi4yXV9vcllKF/O 4WkYX91W7otQvoKDYUFd6PIfR6F8RYdPgtrH+CuXQvlKDgsnH2qUUtgOtU/Z QUS/027FpRNQvopDn8K8HZeqzu8HAGKPYYE= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sL9e4CG/nOm8PYT/wT6XZ/q7k5p3oPwf9g1/ rq2ce+shlM/g8KmweWp7ySMon8WBYZr7ieQL96F8DocLFpMiVDZfhfJ5HDz+ z7GcNvUglC/gsO/VL13zFxv2Q/hCDrkRjsnJk89C+SIOc1ZuruH7fgXKF3Oo u2K+Rv7WVShfwmG7d72ZwdaLUL6Ug4aVVrzQxsNQvozDlglRt731iqF8OQcD 9aVcl/xh9is4pCVIhE3gOAflKzqoaRZ3X6m6COUrOWh/CM5KSIOFh7LDbl8+ iYAlR6B8FYftr+T9+J2W2QMAApRbCw== "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sHc2abNfGTbfHsL/YP9s9q+pAVl7ofwf9rOY rzbwbD0L5TM4pNSU6F6dcg3KZ3GQ9Gb1tu65A+VzOJycd7RFTuY+lM/j8Ovw MQu9qLtQvoDDUvN65Qe+16F8IYc9j4x2VT46DeWLODg6SbAnXV8O5Ys5FIf+ 1Unm2Lcfwpdw2OHwVq1C7DyUL+UgPSW55cOay1C+jIOa1LribC8YX85BIn5N /MzKs1C+ggPDug/1bG/3QPmKDqtlBF5535kGtU/JQXhH6sTorkNQvrLD8sse T1W0Yf5XcfjkVPbxjvcFewC1llpb "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sI+6XcDfwZBqD+F/sF/03aIsi2MKlP/DftPm owdWma2H8hkcLmgeiTdrPADlszjs1npxtH/naSifw8Hygzzz+uOXoXweh4PW lrnXD9yA8gUc/D79ffe2/TaUL+QgdWPWpEg9GF/Eoewxk3hq5HUoX8xh0do1 +jYpF6B8CQfr5uzfpYl7oXwph6Vap5W+SCzaD+HLODTcjlQtKzoK5cs5/Fiz 6LVgywUoX8FhihvX7xcLL0H5ig7Zv/YabjkHk1dyeNU4I+mRxnEoX9lBXt5A rnHHBihfxaHp9YGXzx6vtQcAydNhoA== "]]}}, {{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 6.363961030678928}, {0, 0}], Offset[{6.363961030678928, 0}, {0, 0}], Offset[{0, -6.363961030678928}, {0, 0}], Offset[{-6.363961030678928, 0}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{6.3639610306789285`, 0.}, {0, 0}], Offset[{0., 6.3639610306789285`}, {0, 0}], Offset[{-6.3639610306789285`, 0.}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiQAcf7CH0A3sze5+rH9nf2cPEP+y4fru+5gWU /8NeOvVlzpOEB1A+g8O3cyq/i1ecgfJZHKz/6ygfOrpiP4TP4TBBOeXLhiUX oHweh0Dexz7MITegfAGHH1PsOJ9n3YTyhRymZLjsOtJ8BcoXceg/Hbqpdvcx KF/Moe27rWkgRw2UL+EwNXkGU4THYaj9Ug7Fm0xvJC+9AOXLOBzc5Lq+3uQy lC/n8DSMr24r90UoX8HBsKAudPmPo1C+osMnQe1j/JVLoXwlh4WTDzVKKWyH 2qfsIKLfabfi0gkoX8WhT2HejktV5/cDAGxLYYM= "]]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{4.5, 0.}, {0, 0}], Offset[{4.5, 4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}], Offset[{-4.5, 0.}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2F8v8JBfznTeHsL/YJ/LM/3dSc07UP4P +4Y/11bOvfUQymdw+FTYPLW95BGUz+LAMM39RPKF+1A+h8MFi0kRKpuvQvk8 Dh7/51hOm3oQyhdw2Pfql675iw37IXwhh9wIx+TkyWehfBGHOSs31/B9vwLl iznUXTFfI3/rKpQv4bDdu97MYOtFKF/KQcNKK15o42EoX8Zhy4So2956xVC+ nIOB+lKuS/4w+xUc0hIkwiZwnIPyFR3UNIu7r1RdhPKVHLQ/BGclpMHCQ9lh ty+fRMCSI1C+isP2V/J+/E7L7AEMUFsN "]]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{5.106857870531042, 0.}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{1.3217520775251366`, 4.932845908333528}, {0, 0}], Offset[{0., 5.106857870531042}, {0, 0}], Offset[{-1.3217520775251366`, 4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{-5.106857870531042, 0.}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2DubtNmvDJtvD+F/sH82+9fUgKy9UP4P +1nMVxt4tp6F8hkcUmpKdK9OuQblszhIerN6W/fcgfI5HE7OO9oiJ3Mfyudx +HX4mIVe1F0oX8BhqXm98gPf61C+kMOeR0a7Kh+dhvJFHBydJNiTri+H8sUc ikP/6iRz7NsP4Us47HB4q1Yhdh7Kl3KQnpLc8mHNZShfxkFNal1xtheML+cg Eb8mfmblWShfwYFh3Yd6trd7oHxFh9UyAq+870yD2qfkILwjdWJ01yEoX9lh +WWPpyraMP+rOHxyKvt4x/uCPQC/Ulpd "]]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{-3.9482220388574776`, 6.8385211708643325`}, {0, 0}], Offset[{7.896444077714955, 0}, {0, 0}], Offset[{-3.9482220388574776`, -6.8385211708643325`}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{7.896444077714954, 0.}, {0, 0}], Offset[{-3.948222038857477, 6.8385211708643325`}, {0, 0}], Offset[{-3.948222038857477, 0.}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2EfdLuDvYEi1h/A/2C/6blGWxTEFyv9h v2nz0QOrzNZD+QwOFzSPxJs1HoDyWRx2a7042r/zNJTP4WD5QZ55/fHLUD6P w0Fry9zrB25A+QIOfp/+vnvbfhvKF3KQujFrUqQejC/iUPaYSTw18jqUL+aw aO0afZuUC1C+hIN1c/bv0sS9UL6Uw1Kt00pfJBbth/BlHBpuR6qWFR2F8uUc fqxZ9Fqw5QKUr+AwxY3r94uFl6B8RYfsX3sNt5yDySs5vGqckfRI4ziUr+wg L28g17hjA5Sv4tD0+sDLZ4/X2gMA049hog== "]]}}}, {{}, {}}}, { DisplayFunction -> Identity, Axes -> {False, False}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> 450, Method -> { "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange -> {{0, 10.}, {-0.3971498098638473, 1.}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {{{0., FormBox["0", TraditionalForm], {0.01, 0.}}, {2., FormBox["2", TraditionalForm], {0.01, 0.}}, {4., FormBox["4", TraditionalForm], {0.01, 0.}}, {6., FormBox["6", TraditionalForm], {0.01, 0.}}, {8., FormBox["8", TraditionalForm], {0.01, 0.}}, {10., FormBox["10", TraditionalForm], {0.01, 0.}}, {-2., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 3.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 4.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 5.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {7., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 7.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 8.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {9., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 9.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 10.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 12., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{-0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox[ "\"-0.5\"", ShowStringCharacters -> False], -0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { 0., FormBox["0", TraditionalForm], {0.01, 0.}}, {0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.5\"", ShowStringCharacters -> False], 0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { 1., FormBox[ TagBox[ InterpretationBox[ StyleBox["\"1.0\"", ShowStringCharacters -> False], 1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}}], FormBox[ FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["4", Smaller, StripOnInput -> False]], "Placeholder"]}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 30}, {40, 30}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 6.363961030678928}, {0, 0}], Offset[{6.363961030678928, 0}, {0, 0}], Offset[{0, -6.363961030678928}, {0, 0}], Offset[{-6.363961030678928, 0}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{6.3639610306789285`, 0.}, {0, 0}], Offset[{0., 6.3639610306789285`}, {0, 0}], Offset[{-6.3639610306789285`, 0.}, {0, 0}]}]}}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 30}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3666666666666667] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 30}, {40, 30}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{4.5, 0.}, {0, 0}], Offset[{4.5, 4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}], Offset[{-4.5, 0.}, {0, 0}]}]}}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 30}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3666666666666667] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 30}, {40, 30}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{5.106857870531042, 0.}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{1.3217520775251366`, 4.932845908333528}, {0, 0}], Offset[{0., 5.106857870531042}, {0, 0}], Offset[{-1.3217520775251366`, 4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{-5.106857870531042, 0.}, {0, 0}]}]}}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 30}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3666666666666667] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 30}, {40, 30}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{-3.9482220388574776`, 6.8385211708643325`}, {0, 0}], Offset[{7.896444077714955, 0}, {0, 0}], Offset[{-3.9482220388574776`, -6.8385211708643325`}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{7.896444077714954, 0.}, {0, 0}], Offset[{-3.948222038857477, 6.8385211708643325`}, {0, 0}], Offset[{-3.948222038857477, 0.}, {0, 0}]}]}}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 30}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3666666666666667] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.368417, 0.506779, 0.709798]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.880722, 0.611041, 0.142051]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.560181, 0.691569, 0.194885]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.922526, 0.385626, 0.209179]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm], ",", TagBox[#4, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{0, 6.363961030678928}, {0, 0}], Offset[{6.363961030678928, 0}, {0, 0}], Offset[{0, -6.363961030678928}, {0, 0}], Offset[{-6.363961030678928, 0}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{6.3639610306789285`, 0.}, {0, 0}], Offset[{0., 6.3639610306789285`}, {0, 0}], Offset[{-6.3639610306789285`, 0.}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{4.5, 0.}, {0, 0}], Offset[{4.5, 4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}], Offset[{-4.5, 0.}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{5.106857870531042, 0.}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{1.3217520775251366`, 4.932845908333528}, {0, 0}], Offset[{0., 5.106857870531042}, {0, 0}], Offset[{-1.3217520775251366`, 4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{-5.106857870531042, 0.}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{-3.9482220388574776`, 6.8385211708643325`}, {0, 0}], Offset[{7.896444077714955, 0}, {0, 0}], Offset[{-3.9482220388574776`, -6.8385211708643325`}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{7.896444077714954, 0.}, {0, 0}], Offset[{-3.948222038857477, 6.8385211708643325`}, {0, 0}], Offset[{-3.948222038857477, 0.}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "30"}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{"AttachedInlineCell" -> CellObject[7546945]}, CellChangeTimes->{ 3.835246988655351*^9, {3.8352470724237366`*^9, 3.835247092604811*^9}, 3.8352471743103833`*^9, 3.8352472398530965`*^9, {3.835247387671296*^9, 3.835247394498866*^9}, {3.8352474288156104`*^9, 3.835247446485176*^9}, 3.8352474971808653`*^9, 3.8352475408147793`*^9, 3.8352481780781727`*^9, 3.835248752178009*^9, 3.8352491373343716`*^9, 3.835249389046476*^9, 3.8352517293680224`*^9, 3.835307450025781*^9, 3.8353106545541067`*^9, 3.8364311170342674`*^9, 3.840476086365486*^9, 3.846153888931219*^9}, CellLabel->"Out[178]=", CellID->147537543], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"hfm3", "[", RowBox[{"name_String", ",", RowBox[{"size_", ":", "9"}]}], "]"}], ":=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{"name", ",", RowBox[{"Offset", "@", "size"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"FaceForm", "[", "White", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"CurrentValue", "[", "\"\\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "None", "]"}], ",", RowBox[{"Replace", "[", RowBox[{ RowBox[{"RegionDifference", "[", RowBox[{ RowBox[{"PolygonMarker", "[", "name", "]"}], ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", RowBox[{"-", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "10"}]}], "}"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"p", ":", RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}]}], ":>", RowBox[{"Offset", "[", RowBox[{ RowBox[{"size", " ", "p"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"-", "2"}], "}"}]}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"BesselJ", "[", RowBox[{"k", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", "0.5"}], "}"}]}], "]"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"data", ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"hfm3", "/@", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}], ",", RowBox[{"PlotRangePadding", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", ".05", "]"}], ",", RowBox[{"Scaled", "[", ".1", "]"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"PointLegend", "[", RowBox[{"Automatic", ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "38"}], "}"}]}]}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}]}], "]"}]}], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{{3.8352452368122835`*^9, 3.835245304780225*^9}, { 3.835245489440341*^9, 3.835245492308797*^9}, {3.8352461354718676`*^9, 3.8352461627944365`*^9}, {3.835246791641224*^9, 3.835246842647524*^9}, { 3.8352469027706947`*^9, 3.8352469874696064`*^9}, {3.83524706198755*^9, 3.83524708968284*^9}, {3.8352471534720373`*^9, 3.8352471929604206`*^9}, { 3.835247380650777*^9, 3.835247444510761*^9}, {3.8352474935592403`*^9, 3.8352475057820854`*^9}, 3.8352475382430744`*^9, {3.8352478676532836`*^9, 3.8352478705784445`*^9}, {3.8352485921863313`*^9, 3.8352485949622245`*^9}, {3.835248667657081*^9, 3.835248675465114*^9}, { 3.8352489876092243`*^9, 3.8352489894848995`*^9}, {3.835249062754101*^9, 3.835249105446413*^9}, 3.8352493934256988`*^9, {3.835251546044408*^9, 3.8352515606200786`*^9}, 3.835251729369022*^9}, CellLabel->"In[179]:=", CellID->520108794], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjQo+2EPoB/Zm9j5XP7K/s4eJf9hx/XZ9zQso/4e9 dOrLnCcJD6B8Bodv51R+F684A+WzOFj/11E+dHTFfgifw2GCcsqXDUsuQPk8 DoG8j32YQ25A+QIOP6bYcT7PugnlCzlMyXDZdaT5CpQv4tB/OnRT7e5jUL6Y Q9t3W9NAjhooX8JhavIMpgiPw1D7pRyKN5neSF56AcqXcTi4yXV9vcllKF/O 4WkYX91W7otQvoKDYUFd6PIfR6F8RYdPgtrH+CuXQvlKDgsnH2qUUtgOtU/Z QUS/027FpRNQvopDn8K8HZeqzu8HAGKPYYE= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sL9e4CG/nOm8PYT/wT6XZ/q7k5p3oPwf9g1/ rq2ce+shlM/g8KmweWp7ySMon8WBYZr7ieQL96F8DocLFpMiVDZfhfJ5HDz+ z7GcNvUglC/gsO/VL13zFxv2Q/hCDrkRjsnJk89C+SIOc1ZuruH7fgXKF3Oo u2K+Rv7WVShfwmG7d72ZwdaLUL6Ug4aVVrzQxsNQvozDlglRt731iqF8OQcD 9aVcl/xh9is4pCVIhE3gOAflKzqoaRZ3X6m6COUrOWh/CM5KSIOFh7LDbl8+ iYAlR6B8FYftr+T9+J2W2QMAApRbCw== "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sHc2abNfGTbfHsL/YP9s9q+pAVl7ofwf9rOY rzbwbD0L5TM4pNSU6F6dcg3KZ3GQ9Gb1tu65A+VzOJycd7RFTuY+lM/j8Ovw MQu9qLtQvoDDUvN65Qe+16F8IYc9j4x2VT46DeWLODg6SbAnXV8O5Ys5FIf+ 1Unm2Lcfwpdw2OHwVq1C7DyUL+UgPSW55cOay1C+jIOa1LribC8YX85BIn5N /MzKs1C+ggPDug/1bG/3QPmKDqtlBF5535kGtU/JQXhH6sTorkNQvrLD8sse T1W0Yf5XcfjkVPbxjvcFewC1llpb "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sI+6XcDfwZBqD+F/sF/03aIsi2MKlP/DftPm owdWma2H8hkcLmgeiTdrPADlszjs1npxtH/naSifw8Hygzzz+uOXoXweh4PW lrnXD9yA8gUc/D79ffe2/TaUL+QgdWPWpEg9GF/Eoewxk3hq5HUoX8xh0do1 +jYpF6B8CQfr5uzfpYl7oXwph6Vap5W+SCzaD+HLODTcjlQtKzoK5cs5/Fiz 6LVgywUoX8FhihvX7xcLL0H5ig7Zv/YabjkHk1dyeNU4I+mRxnEoX9lBXt5A rnHHBihfxaHp9YGXzx6vtQcAydNhoA== "]]}}, {{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 6.363961030678928}, {0, 0}], Offset[{6.363961030678928, 0}, {0, 0}], Offset[{0, -6.363961030678928}, {0, 0}], Offset[{-6.363961030678928, 0}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{3.1819805153394642`, 3.1819805153394642`}, {0, 0}], Offset[{0., 6.3639610306789285`}, {0, 0}], Offset[{-6.3639610306789285`, 0.}, {0, 0}], Offset[{-3.1819805153394642`, -3.1819805153394642`}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiQAcf7CH0A3sze5+rH9nf2cPEP+y4fru+5gWU /8NeOvVlzpOEB1A+g8O3cyq/i1ecgfJZHKz/6ygfOrpiP4TP4TBBOeXLhiUX oHweh0Dexz7MITegfAGHH1PsOJ9n3YTyhRymZLjsOtJ8BcoXceg/Hbqpdvcx KF/Moe27rWkgRw2UL+EwNXkGU4THYaj9Ug7Fm0xvJC+9AOXLOBzc5Lq+3uQy lC/n8DSMr24r90UoX8HBsKAudPmPo1C+osMnQe1j/JVLoXwlh4WTDzVKKWyH 2qfsIKLfabfi0gkoX8WhT2HejktV5/cDAGxLYYM= "]]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{-4.5, -4.5}, {0, 0}], Offset[{4.5, 4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2F8v8JBfznTeHsL/YJ/LM/3dSc07UP4P +4Y/11bOvfUQymdw+FTYPLW95BGUz+LAMM39RPKF+1A+h8MFi0kRKpuvQvk8 Dh7/51hOm3oQyhdw2Pfql675iw37IXwhh9wIx+TkyWehfBGHOSs31/B9vwLl iznUXTFfI3/rKpQv4bDdu97MYOtFKF/KQcNKK15o42EoX8Zhy4So2956xVC+ nIOB+lKuS/4w+xUc0hIkwiZwnIPyFR3UNIu7r1RdhPKVHLQ/BGclpMHCQ9lh ty+fRMCSI1C+isP2V/J+/E7L7AEMUFsN "]]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{1.3217520775251366`, 4.932845908333528}, {0, 0}], Offset[{0., 5.106857870531042}, {0, 0}], Offset[{-1.3217520775251366`, 4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{-5.106857870531042, 0.}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251366`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2DubtNmvDJtvD+F/sH82+9fUgKy9UP4P +1nMVxt4tp6F8hkcUmpKdK9OuQblszhIerN6W/fcgfI5HE7OO9oiJ3Mfyudx +HX4mIVe1F0oX8BhqXm98gPf61C+kMOeR0a7Kh+dhvJFHBydJNiTri+H8sUc ikP/6iRz7NsP4Us47HB4q1Yhdh7Kl3KQnpLc8mHNZShfxkFNal1xtheML+cg Eb8mfmblWShfwYFh3Yd6trd7oHxFh9UyAq+870yD2qfkILwjdWJ01yEoX9lh +WWPpyraMP+rOHxyKvt4x/uCPQC/Ulpd "]]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{5.879533341943694, 5.879533341943694}, {0, 0}], Offset[{3.444150891285808, 0}, {0, 0}], Offset[{5.879533341943694, -5.879533341943694}, {0, 0}], Offset[{0, -3.444150891285808}, {0, 0}], Offset[{-5.879533341943694, -5.879533341943694}, {0, 0}], Offset[{-3.444150891285808, 0}, {0, 0}], Offset[{-5.879533341943694, 5.879533341943694}, {0, 0}], Offset[{0, 3.444150891285808}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{-5.879533341943695, -5.879533341943695}, {0, 0}], Offset[{5.879533341943695, 5.879533341943695}, {0, 0}], Offset[{0., 3.444150891285808}, {0, 0}], Offset[{-5.879533341943695, 5.879533341943695}, {0, 0}], Offset[{-3.444150891285808, 0.}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2EfdLuDvYEi1h/A/2C/6blGWxTEFyv9h v2nz0QOrzNZD+QwOFzSPxJs1HoDyWRx2a7042r/zNJTP4WD5QZ55/fHLUD6P w0Fry9zrB25A+QIOfp/+vnvbfhvKF3KQujFrUqQejC/iUPaYSTw18jqUL+aw aO0afZuUC1C+hIN1c/bv0sS9UL6Uw1Kt00pfJBbth/BlHBpuR6qWFR2F8uUc fqxZ9Fqw5QKUr+AwxY3r94uFl6B8RYfsX3sNt5yDySs5vGqckfRI4ziUr+wg L28g17hjA5Sv4tD0+sDLZ4/X2gMA049hog== "]]}}}, {{}, {}}}, { DisplayFunction -> Identity, Axes -> {False, False}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> 450, Method -> { "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange -> {{0, 10.}, {-0.3971498098638473, 1.}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {{{0., FormBox["0", TraditionalForm], {0.01, 0.}}, {2., FormBox["2", TraditionalForm], {0.01, 0.}}, {4., FormBox["4", TraditionalForm], {0.01, 0.}}, {6., FormBox["6", TraditionalForm], {0.01, 0.}}, {8., FormBox["8", TraditionalForm], {0.01, 0.}}, {10., FormBox["10", TraditionalForm], {0.01, 0.}}, {-2., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 3.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 4.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 5.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {7., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 7.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 8.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {9., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 9.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 10.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 12., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{-0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox[ "\"-0.5\"", ShowStringCharacters -> False], -0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { 0., FormBox["0", TraditionalForm], {0.01, 0.}}, {0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.5\"", ShowStringCharacters -> False], 0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { 1., FormBox[ TagBox[ InterpretationBox[ StyleBox["\"1.0\"", ShowStringCharacters -> False], 1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}}], FormBox[ FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["4", Smaller, StripOnInput -> False]], "Placeholder"]}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 38}, {40, 38}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 6.363961030678928}, {0, 0}], Offset[{6.363961030678928, 0}, {0, 0}], Offset[{0, -6.363961030678928}, {0, 0}], Offset[{-6.363961030678928, 0}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{3.1819805153394642`, 3.1819805153394642`}, {0, 0}], Offset[{0., 6.3639610306789285`}, {0, 0}], Offset[{-6.3639610306789285`, 0.}, {0, 0}], Offset[{-3.1819805153394642`, -3.1819805153394642`}, {0, 0}]}]}}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 38}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.39473684210526316`] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 38}, {40, 38}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{-4.5, -4.5}, {0, 0}], Offset[{4.5, 4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 38}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.39473684210526316`] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 38}, {40, 38}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{1.3217520775251366`, 4.932845908333528}, {0, 0}], Offset[{0., 5.106857870531042}, {0, 0}], Offset[{-1.3217520775251366`, 4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{-5.106857870531042, 0.}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251366`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}]}]}}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 38}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.39473684210526316`] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 38}, {40, 38}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{5.879533341943694, 5.879533341943694}, {0, 0}], Offset[{3.444150891285808, 0}, {0, 0}], Offset[{5.879533341943694, -5.879533341943694}, {0, 0}], Offset[{0, -3.444150891285808}, {0, 0}], Offset[{-5.879533341943694, -5.879533341943694}, {0, 0}], Offset[{-3.444150891285808, 0}, {0, 0}], Offset[{-5.879533341943694, 5.879533341943694}, {0, 0}], Offset[{0, 3.444150891285808}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{-5.879533341943695, -5.879533341943695}, {0, 0}], Offset[{5.879533341943695, 5.879533341943695}, {0, 0}], Offset[{0., 3.444150891285808}, {0, 0}], Offset[{-5.879533341943695, 5.879533341943695}, {0, 0}], Offset[{-3.444150891285808, 0.}, {0, 0}]}]}}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 38}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.39473684210526316`] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.368417, 0.506779, 0.709798]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.880722, 0.611041, 0.142051]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.560181, 0.691569, 0.194885]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.922526, 0.385626, 0.209179]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm], ",", TagBox[#4, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{0, 6.363961030678928}, {0, 0}], Offset[{6.363961030678928, 0}, {0, 0}], Offset[{0, -6.363961030678928}, {0, 0}], Offset[{-6.363961030678928, 0}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{3.1819805153394642`, 3.1819805153394642`}, {0, 0}], Offset[{0., 6.3639610306789285`}, {0, 0}], Offset[{-6.3639610306789285`, 0.}, {0, 0}], Offset[{-3.1819805153394642`, -3.1819805153394642`}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{-4.5, -4.5}, {0, 0}], Offset[{4.5, 4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{1.3217520775251366`, 4.932845908333528}, {0, 0}], Offset[{0., 5.106857870531042}, {0, 0}], Offset[{-1.3217520775251366`, 4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{-5.106857870531042, 0.}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251366`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{5.879533341943694, 5.879533341943694}, {0, 0}], Offset[{3.444150891285808, 0}, {0, 0}], Offset[{5.879533341943694, -5.879533341943694}, {0, 0}], Offset[{0, -3.444150891285808}, {0, 0}], Offset[{-5.879533341943694, -5.879533341943694}, {0, 0}], Offset[{-3.444150891285808, 0}, {0, 0}], Offset[{-5.879533341943694, 5.879533341943694}, {0, 0}], Offset[{0, 3.444150891285808}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{ Offset[{-5.879533341943695, -5.879533341943695}, {0, 0}], Offset[{5.879533341943695, 5.879533341943695}, {0, 0}], Offset[{0., 3.444150891285808}, {0, 0}], Offset[{-5.879533341943695, 5.879533341943695}, {0, 0}], Offset[{-3.444150891285808, 0.}, {0, 0}]}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "38"}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{"AttachedInlineCell" -> CellObject[7547025]}, CellChangeTimes->{ 3.8352489960139694`*^9, 3.8352491079804897`*^9, 3.8352493955017023`*^9, { 3.835251547811552*^9, 3.83525156214719*^9}, 3.835251729369022*^9, 3.835307454332307*^9, 3.8353106588271494`*^9, 3.836431121852214*^9, 3.840476092465097*^9, 3.8461538949796457`*^9}, CellLabel->"Out[181]=", CellID->559645660] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107569], Cell[CellGroupData[{ Cell[TextData[{ "Contrast markers that pick up ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PlotStyle", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/PlotStyle", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["PlotTheme", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/PlotTheme", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " automatically:" }], "Text", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{}, CellChangeTimes->{ 3.835161394742205*^9, {3.835243894561013*^9, 3.835243919597172*^9}, 3.835244273954462*^9, 3.8352461170953817`*^9, {3.835249814558223*^9, 3.8352498196456966`*^9}, {3.840474713502944*^9, 3.840474714973794*^9}}, CellID->202899205], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cfm1", "[", RowBox[{"name_String", ",", RowBox[{"size_", ":", "9"}]}], "]"}], ":=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{"name", ",", RowBox[{"Offset", "@", "size"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"FaceForm", "[", "White", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"CurrentValue", "[", "\"\\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "None", "]"}], ",", RowBox[{"Replace", "[", RowBox[{ RowBox[{"RegionDifference", "[", RowBox[{ RowBox[{"RegionDifference", "[", RowBox[{ RowBox[{"PolygonMarker", "[", "name", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "10"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", RowBox[{"-", "10"}]}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"p", ":", RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}]}], ":>", RowBox[{"Offset", "[", RowBox[{ RowBox[{"size", " ", "p"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"-", "2"}], "}"}]}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"BesselJ", "[", RowBox[{"k", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", "0.5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{"ListPlot", "[", RowBox[{"data", ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"cfm1", "/@", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}], ",", RowBox[{"PlotRangePadding", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", ".05", "]"}], ",", RowBox[{"Scaled", "[", ".1", "]"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"PointLegend", "[", RowBox[{"Automatic", ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "38"}], "}"}]}]}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}]}], "]"}]}], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{}, CellChangeTimes->{ 3.788182617907576*^9, {3.835161360972604*^9, 3.835161394742205*^9}, { 3.835244314972479*^9, 3.835244384489276*^9}, {3.835244417989894*^9, 3.835244542594365*^9}, {3.8352449188635283`*^9, 3.835244939397088*^9}, { 3.8352449716412935`*^9, 3.8352450027938385`*^9}, {3.835245043098524*^9, 3.8352450863484163`*^9}, 3.835245158441165*^9, {3.835245218164119*^9, 3.835245220498836*^9}, {3.8352472073886023`*^9, 3.8352472170835567`*^9}, { 3.835247453842659*^9, 3.835247483600215*^9}, {3.8352475244674597`*^9, 3.8352475342430887`*^9}, {3.8352478147932596`*^9, 3.835247817028803*^9}, { 3.8352491508994427`*^9, 3.8352491643269386`*^9}, {3.8352492001673083`*^9, 3.83524923737609*^9}, {3.8352498313765683`*^9, 3.835249858571335*^9}, { 3.8352499005984793`*^9, 3.8352499666375337`*^9}, {3.8352514461055727`*^9, 3.8352515086169233`*^9}}, CellLabel->"In[182]:=", CellID->296836047], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjQo+2EPoB/Zm9j5XP7K/s4eJf9hx/XZ9zQso/4e9 dOrLnCcJD6B8Bodv51R+F684A+WzOFj/11E+dHTFfgifw2GCcsqXDUsuQPk8 DoG8j32YQ25A+QIOP6bYcT7PugnlCzlMyXDZdaT5CpQv4tB/OnRT7e5jUL6Y Q9t3W9NAjhooX8JhavIMpgiPw1D7pRyKN5neSF56AcqXcTi4yXV9vcllKF/O 4WkYX91W7otQvoKDYUFd6PIfR6F8RYdPgtrH+CuXQvlKDgsnH2qUUtgOtU/Z QUS/027FpRNQvopDn8K8HZeqzu8HAGKPYYE= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sL9e4CG/nOm8PYT/wT6XZ/q7k5p3oPwf9g1/ rq2ce+shlM/g8KmweWp7ySMon8WBYZr7ieQL96F8DocLFpMiVDZfhfJ5HDz+ z7GcNvUglC/gsO/VL13zFxv2Q/hCDrkRjsnJk89C+SIOc1ZuruH7fgXKF3Oo u2K+Rv7WVShfwmG7d72ZwdaLUL6Ug4aVVrzQxsNQvozDlglRt731iqF8OQcD 9aVcl/xh9is4pCVIhE3gOAflKzqoaRZ3X6m6COUrOWh/CM5KSIOFh7LDbl8+ iYAlR6B8FYftr+T9+J2W2QMAApRbCw== "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sHc2abNfGTbfHsL/YP9s9q+pAVl7ofwf9rOY rzbwbD0L5TM4pNSU6F6dcg3KZ3GQ9Gb1tu65A+VzOJycd7RFTuY+lM/j8Ovw MQu9qLtQvoDDUvN65Qe+16F8IYc9j4x2VT46DeWLODg6SbAnXV8O5Ys5FIf+ 1Unm2Lcfwpdw2OHwVq1C7DyUL+UgPSW55cOay1C+jIOa1LribC8YX85BIn5N /MzKs1C+ggPDug/1bG/3QPmKDqtlBF5535kGtU/JQXhH6sTorkNQvrLD8sse T1W0Yf5XcfjkVPbxjvcFewC1llpb "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sI+6XcDfwZBqD+F/sF/03aIsi2MKlP/DftPm owdWma2H8hkcLmgeiTdrPADlszjs1npxtH/naSifw8Hygzzz+uOXoXweh4PW lrnXD9yA8gUc/D79ffe2/TaUL+QgdWPWpEg9GF/Eoewxk3hq5HUoX8xh0do1 +jYpF6B8CQfr5uzfpYl7oXwph6Vap5W+SCzaD+HLODTcjlQtKzoK5cs5/Fiz 6LVgywUoX8FhihvX7xcLL0H5ig7Zv/YabjkHk1dyeNU4I+mRxnEoX9lBXt5A rnHHBihfxaHp9YGXzx6vtQcAydNhoA== "]]}}, {{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 6.363961030678928}, {0, 0}], Offset[{6.363961030678928, 0}, {0, 0}], Offset[{0, -6.363961030678928}, {0, 0}], Offset[{-6.363961030678928, 0}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{0., -6.3639610306789285`}, {0, 0}], Offset[{6.3639610306789285`, 0.}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{0., 6.3639610306789285`}, {0, 0}], Offset[{-6.3639610306789285`, 0.}, {0, 0}]}}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiQAcf7CH0A3sze5+rH9nf2cPEP+y4fru+5gWU /8NeOvVlzpOEB1A+g8O3cyq/i1ecgfJZHKz/6ygfOrpiP4TP4TBBOeXLhiUX oHweh0Dexz7MITegfAGHH1PsOJ9n3YTyhRymZLjsOtJ8BcoXceg/Hbqpdvcx KF/Moe27rWkgRw2UL+EwNXkGU4THYaj9Ug7Fm0xvJC+9AOXLOBzc5Lq+3uQy lC/n8DSMr24r90UoX8HBsKAudPmPo1C+osMnQe1j/JVLoXwlh4WTDzVKKWyH 2qfsIKLfabfi0gkoX8WhT2HejktV5/cDAGxLYYM= "]]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{-4.7249997634501995`*^-6, -4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{4.5, -4.7249997634501995`*^-6}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{-4.7249997639498*^-6, 4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}], Offset[{-4.5, -4.7249997639498*^-6}, {0, 0}]}}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2F8v8JBfznTeHsL/YJ/LM/3dSc07UP4P +4Y/11bOvfUQymdw+FTYPLW95BGUz+LAMM39RPKF+1A+h8MFi0kRKpuvQvk8 Dh7/51hOm3oQyhdw2Pfql675iw37IXwhh9wIx+TkyWehfBGHOSs31/B9vwLl iznUXTFfI3/rKpQv4bDdu97MYOtFKF/KQcNKK15o42EoX8Zhy4So2956xVC+ nIOB+lKuS/4w+xUc0hIkwiZwnIPyFR3UNIu7r1RdhPKVHLQ/BGclpMHCQ9lh ty+fRMCSI1C+isP2V/J+/E7L7AEMUFsN "]]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{0., -5.106857870531042}, {0, 0}], Offset[{1.3217520775251366`, -4.932845908333528}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251366`}, {0, 0}], Offset[{5.106857870531042, 0.}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{0., 5.106857870531042}, {0, 0}], Offset[{-1.3217520775251366`, 4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{-5.106857870531042, 0.}, {0, 0}]}}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2DubtNmvDJtvD+F/sH82+9fUgKy9UP4P +1nMVxt4tp6F8hkcUmpKdK9OuQblszhIerN6W/fcgfI5HE7OO9oiJ3Mfyudx +HX4mIVe1F0oX8BhqXm98gPf61C+kMOeR0a7Kh+dhvJFHBydJNiTri+H8sUc ikP/6iRz7NsP4Us47HB4q1Yhdh7Kl3KQnpLc8mHNZShfxkFNal1xtheML+cg Eb8mfmblWShfwYFh3Yd6trd7oHxFh9UyAq+870yD2qfkILwjdWJ01yEoX9lh +WWPpyraMP+rOHxyKvt4x/uCPQC/Ulpd "]]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 8.31491579260158}, {0, 0}], Offset[{2.4353824506578863`, 2.4353824506578863`}, {0, 0}], Offset[{8.31491579260158, 0}, {0, 0}], Offset[{2.4353824506578863`, -2.4353824506578863`}, {0, 0}], Offset[{0, -8.31491579260158}, {0, 0}], Offset[{-2.4353824506578863`, -2.4353824506578863`}, {0, 0}], Offset[{-8.31491579260158, 0}, {0, 0}], Offset[{-2.4353824506578863`, 2.4353824506578863`}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{0., -8.31491579260158}, {0, 0}], Offset[{2.4353824506578867`, -2.4353824506578867`}, {0, 0}], Offset[{8.31491579260158, 0.}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{0., 8.31491579260158}, {0, 0}], Offset[{-2.4353824506578867`, 2.4353824506578867`}, {0, 0}], Offset[{-8.31491579260158, 0.}, {0, 0}]}}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2EfdLuDvYEi1h/A/2C/6blGWxTEFyv9h v2nz0QOrzNZD+QwOFzSPxJs1HoDyWRx2a7042r/zNJTP4WD5QZ55/fHLUD6P w0Fry9zrB25A+QIOfp/+vnvbfhvKF3KQujFrUqQejC/iUPaYSTw18jqUL+aw aO0afZuUC1C+hIN1c/bv0sS9UL6Uw1Kt00pfJBbth/BlHBpuR6qWFR2F8uUc fqxZ9Fqw5QKUr+AwxY3r94uFl6B8RYfsX3sNt5yDySs5vGqckfRI4ziUr+wg L28g17hjA5Sv4tD0+sDLZ4/X2gMA049hog== "]]}}}, {{}, {}}}, { DisplayFunction -> Identity, Axes -> {False, False}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> 450, Method -> { "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange -> {{0, 10.}, {-0.3971498098638473, 1.}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {{{0., FormBox["0", TraditionalForm], {0.01, 0.}}, {2., FormBox["2", TraditionalForm], {0.01, 0.}}, {4., FormBox["4", TraditionalForm], {0.01, 0.}}, {6., FormBox["6", TraditionalForm], {0.01, 0.}}, {8., FormBox["8", TraditionalForm], {0.01, 0.}}, {10., FormBox["10", TraditionalForm], {0.01, 0.}}, {-2., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 3.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 4.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 5.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {7., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 7.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 8.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {9., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 9.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 10.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 12., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{-0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox[ "\"-0.5\"", ShowStringCharacters -> False], -0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { 0., FormBox["0", TraditionalForm], {0.01, 0.}}, {0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.5\"", ShowStringCharacters -> False], 0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { 1., FormBox[ TagBox[ InterpretationBox[ StyleBox["\"1.0\"", ShowStringCharacters -> False], 1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}}], FormBox[ FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["4", Smaller, StripOnInput -> False]], "Placeholder"]}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 38}, {40, 38}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 6.363961030678928}, {0, 0}], Offset[{6.363961030678928, 0}, {0, 0}], Offset[{0, -6.363961030678928}, {0, 0}], Offset[{-6.363961030678928, 0}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{0., -6.3639610306789285`}, {0, 0}], Offset[{6.3639610306789285`, 0.}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{0., 6.3639610306789285`}, {0, 0}], Offset[{-6.3639610306789285`, 0.}, {0, 0}]}}]}}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 38}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.39473684210526316`] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 38}, {40, 38}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{-4.7249997634501995`*^-6, -4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{4.5, -4.7249997634501995`*^-6}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{-4.7249997639498*^-6, 4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}], Offset[{-4.5, -4.7249997639498*^-6}, {0, 0}]}}]}}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 38}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.39473684210526316`] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 38}, {40, 38}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{0., -5.106857870531042}, {0, 0}], Offset[{1.3217520775251366`, -4.932845908333528}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251366`}, {0, 0}], Offset[{5.106857870531042, 0.}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{0., 5.106857870531042}, {0, 0}], Offset[{-1.3217520775251366`, 4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{-5.106857870531042, 0.}, {0, 0}]}}]}}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 38}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.39473684210526316`] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 38}, {40, 38}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 8.31491579260158}, {0, 0}], Offset[{2.4353824506578863`, 2.4353824506578863`}, {0, 0}], Offset[{8.31491579260158, 0}, {0, 0}], Offset[{2.4353824506578863`, -2.4353824506578863`}, {0, 0}], Offset[{0, -8.31491579260158}, {0, 0}], Offset[{-2.4353824506578863`, -2.4353824506578863`}, {0, 0}], Offset[{-8.31491579260158, 0}, {0, 0}], Offset[{-2.4353824506578863`, 2.4353824506578863`}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{0., -8.31491579260158}, {0, 0}], Offset[{2.4353824506578867`, -2.4353824506578867`}, {0, 0}], Offset[{8.31491579260158, 0.}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{0., 8.31491579260158}, {0, 0}], Offset[{-2.4353824506578867`, 2.4353824506578867`}, {0, 0}], Offset[{-8.31491579260158, 0.}, {0, 0}]}}]}}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 38}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.39473684210526316`] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.368417, 0.506779, 0.709798]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.880722, 0.611041, 0.142051]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.560181, 0.691569, 0.194885]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.922526, 0.385626, 0.209179]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm], ",", TagBox[#4, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{0, 6.363961030678928}, {0, 0}], Offset[{6.363961030678928, 0}, {0, 0}], Offset[{0, -6.363961030678928}, {0, 0}], Offset[{-6.363961030678928, 0}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{0., -6.3639610306789285`}, {0, 0}], Offset[{6.3639610306789285`, 0.}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{0., 6.3639610306789285`}, {0, 0}], Offset[{-6.3639610306789285`, 0.}, {0, 0}]}}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{-4.7249997634501995`*^-6, -4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{4.5, -4.7249997634501995`*^-6}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{-4.7249997639498*^-6, 4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}], Offset[{-4.5, -4.7249997639498*^-6}, {0, 0}]}}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{0., -5.106857870531042}, {0, 0}], Offset[{1.3217520775251366`, -4.932845908333528}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251366`}, {0, 0}], Offset[{5.106857870531042, 0.}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{0., 5.106857870531042}, {0, 0}], Offset[{-1.3217520775251366`, 4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{-5.106857870531042, 0.}, {0, 0}]}}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{0, 8.31491579260158}, {0, 0}], Offset[{2.4353824506578863`, 2.4353824506578863`}, {0, 0}], Offset[{8.31491579260158, 0}, {0, 0}], Offset[{2.4353824506578863`, -2.4353824506578863`}, {0, 0}], Offset[{0, -8.31491579260158}, {0, 0}], Offset[{-2.4353824506578863`, -2.4353824506578863`}, {0, 0}], Offset[{-8.31491579260158, 0}, {0, 0}], Offset[{-2.4353824506578863`, 2.4353824506578863`}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{0., -8.31491579260158}, {0, 0}], Offset[{2.4353824506578867`, -2.4353824506578867`}, {0, 0}], Offset[{8.31491579260158, 0.}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{0., 8.31491579260158}, {0, 0}], Offset[{-2.4353824506578867`, 2.4353824506578867`}, {0, 0}], Offset[{-8.31491579260158, 0.}, {0, 0}]}}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "38"}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{"AttachedInlineCell" -> CellObject[7547105]}, CellChangeTimes->{ 3.835249971844139*^9, 3.835250059636057*^9, {3.835251466785928*^9, 3.8352515118233795`*^9}, 3.8353074596285267`*^9, 3.835310663950983*^9, 3.836431131358904*^9, 3.840476098258732*^9, 3.8461539035688562`*^9}, CellLabel->"Out[184]=", CellID->903677456], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cfm2", "[", RowBox[{"name_String", ",", RowBox[{"size_", ":", "9"}]}], "]"}], ":=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{"name", ",", RowBox[{"Offset", "@", "size"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"FaceForm", "[", "White", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"CurrentValue", "[", "\"\\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "None", "]"}], ",", RowBox[{"Replace", "[", RowBox[{ RowBox[{"RegionDifference", "[", RowBox[{ RowBox[{"RegionDifference", "[", RowBox[{ RowBox[{"PolygonMarker", "[", "name", "]"}], ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", RowBox[{"-", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"p", ":", RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}]}], ":>", RowBox[{"Offset", "[", RowBox[{ RowBox[{"size", " ", "p"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"-", "2"}], "}"}]}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"BesselJ", "[", RowBox[{"k", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", "0.5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{"ListPlot", "[", RowBox[{"data", ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"cfm2", "/@", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}], ",", RowBox[{"PlotRangePadding", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", ".05", "]"}], ",", RowBox[{"Scaled", "[", ".1", "]"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"PointLegend", "[", RowBox[{"Automatic", ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "30"}], "}"}]}]}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}]}], "]"}]}], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{}, CellChangeTimes->{ 3.788182617907576*^9, {3.835161360972604*^9, 3.835161394742205*^9}, { 3.835244314972479*^9, 3.835244384489276*^9}, {3.835244417989894*^9, 3.835244542594365*^9}, {3.8352449188635283`*^9, 3.835244939397088*^9}, { 3.8352449716412935`*^9, 3.8352450027938385`*^9}, {3.835245043098524*^9, 3.8352450863484163`*^9}, 3.835245158441165*^9, {3.835245218164119*^9, 3.835245220498836*^9}, {3.8352472073886023`*^9, 3.8352472170835567`*^9}, { 3.835247453842659*^9, 3.835247483600215*^9}, {3.8352475244674597`*^9, 3.8352475342430887`*^9}, {3.8352478147932596`*^9, 3.835247817028803*^9}, { 3.8352491508994427`*^9, 3.8352491643269386`*^9}, {3.8352492001673083`*^9, 3.83524923737609*^9}, {3.8352498313765683`*^9, 3.835249858571335*^9}, { 3.8352499005984793`*^9, 3.8352499666375337`*^9}, {3.835250074257512*^9, 3.835250145960436*^9}, {3.8352505923291683`*^9, 3.835250598352504*^9}}, CellLabel->"In[185]:=", CellID->686849100], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjQo+2EPoB/Zm9j5XP7K/s4eJf9hx/XZ9zQso/4e9 dOrLnCcJD6B8Bodv51R+F684A+WzOFj/11E+dHTFfgifw2GCcsqXDUsuQPk8 DoG8j32YQ25A+QIOP6bYcT7PugnlCzlMyXDZdaT5CpQv4tB/OnRT7e5jUL6Y Q9t3W9NAjhooX8JhavIMpgiPw1D7pRyKN5neSF56AcqXcTi4yXV9vcllKF/O 4WkYX91W7otQvoKDYUFd6PIfR6F8RYdPgtrH+CuXQvlKDgsnH2qUUtgOtU/Z QUS/027FpRNQvopDn8K8HZeqzu8HAGKPYYE= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sL9e4CG/nOm8PYT/wT6XZ/q7k5p3oPwf9g1/ rq2ce+shlM/g8KmweWp7ySMon8WBYZr7ieQL96F8DocLFpMiVDZfhfJ5HDz+ z7GcNvUglC/gsO/VL13zFxv2Q/hCDrkRjsnJk89C+SIOc1ZuruH7fgXKF3Oo u2K+Rv7WVShfwmG7d72ZwdaLUL6Ug4aVVrzQxsNQvozDlglRt731iqF8OQcD 9aVcl/xh9is4pCVIhE3gOAflKzqoaRZ3X6m6COUrOWh/CM5KSIOFh7LDbl8+ iYAlR6B8FYftr+T9+J2W2QMAApRbCw== "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sHc2abNfGTbfHsL/YP9s9q+pAVl7ofwf9rOY rzbwbD0L5TM4pNSU6F6dcg3KZ3GQ9Gb1tu65A+VzOJycd7RFTuY+lM/j8Ovw MQu9qLtQvoDDUvN65Qe+16F8IYc9j4x2VT46DeWLODg6SbAnXV8O5Ys5FIf+ 1Unm2Lcfwpdw2OHwVq1C7DyUL+UgPSW55cOay1C+jIOa1LribC8YX85BIn5N /MzKs1C+ggPDug/1bG/3QPmKDqtlBF5535kGtU/JQXhH6sTorkNQvrLD8sse T1W0Yf5XcfjkVPbxjvcFewC1llpb "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjR08sI+6XcDfwZBqD+F/sF/03aIsi2MKlP/DftPm owdWma2H8hkcLmgeiTdrPADlszjs1npxtH/naSifw8Hygzzz+uOXoXweh4PW lrnXD9yA8gUc/D79ffe2/TaUL+QgdWPWpEg9GF/Eoewxk3hq5HUoX8xh0do1 +jYpF6B8CQfr5uzfpYl7oXwph6Vap5W+SCzaD+HLODTcjlQtKzoK5cs5/Fiz 6LVgywUoX8FhihvX7xcLL0H5ig7Zv/YabjkHk1dyeNU4I+mRxnEoX9lBXt5A rnHHBihfxaHp9YGXzx6vtQcAydNhoA== "]]}}, {{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 6.363961030678928}, {0, 0}], Offset[{6.363961030678928, 0}, {0, 0}], Offset[{0, -6.363961030678928}, {0, 0}], Offset[{-6.363961030678928, 0}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{3.1819805153394642`, -3.1819805153394642`}, {0, 0}], Offset[{6.3639610306789285`, 0.}, {0, 0}], Offset[{3.1819850153380718`, 3.1819760153408563`}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{-3.1819850153380713`, 3.1819760153408567`}, {0, 0}], Offset[{-6.3639610306789285`, 0.}, {0, 0}], Offset[{-3.1819805153394642`, -3.1819805153394642`}, {0, 0}]}}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiQAcf7CH0A3sze5+rH9nf2cPEP+y4fru+5gWU /8NeOvVlzpOEB1A+g8O3cyq/i1ecgfJZHKz/6ygfOrpiP4TP4TBBOeXLhiUX oHweh0Dexz7MITegfAGHH1PsOJ9n3YTyhRymZLjsOtJ8BcoXceg/Hbqpdvcx KF/Moe27rWkgRw2UL+EwNXkGU4THYaj9Ug7Fm0xvJC+9AOXLOBzc5Lq+3uQy lC/n8DSMr24r90UoX8HBsKAudPmPo1C+osMnQe1j/JVLoXwlh4WTDzVKKWyH 2qfsIKLfabfi0gkoX8WhT2HejktV5/cDAGxLYYM= "]]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{4.5, 4.5}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}]}}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2F8v8JBfznTeHsL/YJ/LM/3dSc07UP4P +4Y/11bOvfUQymdw+FTYPLW95BGUz+LAMM39RPKF+1A+h8MFi0kRKpuvQvk8 Dh7/51hOm3oQyhdw2Pfql675iw37IXwhh9wIx+TkyWehfBGHOSs31/B9vwLl iznUXTFfI3/rKpQv4bDdu97MYOtFKF/KQcNKK15o42EoX8Zhy4So2956xVC+ nIOB+lKuS/4w+xUc0hIkwiZwnIPyFR3UNIu7r1RdhPKVHLQ/BGclpMHCQ9lh ty+fRMCSI1C+isP2V/J+/E7L7AEMUFsN "]]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251366`}, {0, 0}], Offset[{5.106857870531042, 0.}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{3.611101645834377, 3.611083646068237}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{-3.611101645834377, 3.611083646068237}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{-5.106857870531042, 0.}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251366`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}]}}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2DubtNmvDJtvD+F/sH82+9fUgKy9UP4P +1nMVxt4tp6F8hkcUmpKdK9OuQblszhIerN6W/fcgfI5HE7OO9oiJ3Mfyudx +HX4mIVe1F0oX8BhqXm98gPf61C+kMOeR0a7Kh+dhvJFHBydJNiTri+H8sUc ikP/6iRz7NsP4Us47HB4q1Yhdh7Kl3KQnpLc8mHNZShfxkFNal1xtheML+cg Eb8mfmblWShfwYFh3Yd6trd7oHxFh9UyAq+870yD2qfkILwjdWJ01yEoX9lh +WWPpyraMP+rOHxyKvt4x/uCPQC/Ulpd "]]}, { Directive[ PointSize[0.011000000000000001`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{5.879533341943694, 5.879533341943694}, {0, 0}], Offset[{3.444150891285808, 0}, {0, 0}], Offset[{5.879533341943694, -5.879533341943694}, {0, 0}], Offset[{0, -3.444150891285808}, {0, 0}], Offset[{-5.879533341943694, -5.879533341943694}, {0, 0}], Offset[{-3.444150891285808, 0}, {0, 0}], Offset[{-5.879533341943694, 5.879533341943694}, {0, 0}], Offset[{0, 3.444150891285808}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{5.879533341943695, -5.879533341943695}, {0, 0}], Offset[{3.444150891285808, 0.}, {0, 0}], Offset[{5.879533341943695, 5.879533341943695}, {0, 0}], Offset[{5.879502614067213, 5.879520614040513}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{-5.879502614067213, 5.879520614040512}, {0, 0}], Offset[{-5.879533341943695, 5.879533341943695}, {0, 0}], Offset[{-3.444150891285808, 0.}, {0, 0}], Offset[{-5.879533341943695, -5.879533341943695}, {0, 0}]}}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[ PointSize[0.011000000000000001`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]]}, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQBWJGIGZiwAUe2EfdLuDvYEi1h/A/2C/6blGWxTEFyv9h v2nz0QOrzNZD+QwOFzSPxJs1HoDyWRx2a7042r/zNJTP4WD5QZ55/fHLUD6P w0Fry9zrB25A+QIOfp/+vnvbfhvKF3KQujFrUqQejC/iUPaYSTw18jqUL+aw aO0afZuUC1C+hIN1c/bv0sS9UL6Uw1Kt00pfJBbth/BlHBpuR6qWFR2F8uUc fqxZ9Fqw5QKUr+AwxY3r94uFl6B8RYfsX3sNt5yDySs5vGqckfRI4ziUr+wg L28g17hjA5Sv4tD0+sDLZ4/X2gMA049hog== "]]}}}, {{}, {}}}, { DisplayFunction -> Identity, Axes -> {False, False}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> 450, Method -> { "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange -> {{0, 10.}, {-0.3971498098638473, 1.}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {{{0., FormBox["0", TraditionalForm], {0.01, 0.}}, {2., FormBox["2", TraditionalForm], {0.01, 0.}}, {4., FormBox["4", TraditionalForm], {0.01, 0.}}, {6., FormBox["6", TraditionalForm], {0.01, 0.}}, {8., FormBox["8", TraditionalForm], {0.01, 0.}}, {10., FormBox["10", TraditionalForm], {0.01, 0.}}, {-2., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 3.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 4.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 5.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {7., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 7.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 8.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {9., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 9.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 10.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 12., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{-0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox[ "\"-0.5\"", ShowStringCharacters -> False], -0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { 0., FormBox["0", TraditionalForm], {0.01, 0.}}, {0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.5\"", ShowStringCharacters -> False], 0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { 1., FormBox[ TagBox[ InterpretationBox[ StyleBox["\"1.0\"", ShowStringCharacters -> False], 1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {-1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}}], FormBox[ FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["4", Smaller, StripOnInput -> False]], "Placeholder"]}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 30}, {40, 30}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 6.363961030678928}, {0, 0}], Offset[{6.363961030678928, 0}, {0, 0}], Offset[{0, -6.363961030678928}, {0, 0}], Offset[{-6.363961030678928, 0}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{3.1819805153394642`, -3.1819805153394642`}, {0, 0}], Offset[{6.3639610306789285`, 0.}, {0, 0}], Offset[{3.1819850153380718`, 3.1819760153408563`}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{-3.1819850153380713`, 3.1819760153408567`}, {0, 0}], Offset[{-6.3639610306789285`, 0.}, {0, 0}], Offset[{-3.1819805153394642`, -3.1819805153394642`}, {0, 0}]}}]}}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 30}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3666666666666667] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 30}, {40, 30}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{4.5, 4.5}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}]}}]}}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 30}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3666666666666667] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 30}, {40, 30}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251366`}, {0, 0}], Offset[{5.106857870531042, 0.}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{3.611101645834377, 3.611083646068237}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{-3.611101645834377, 3.611083646068237}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{-5.106857870531042, 0.}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251366`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}]}}]}}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 30}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3666666666666667] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 30}, {40, 30}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { InsetBox[ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], TraditionalForm, Graphics]], PolygonBox[{ Offset[{5.879533341943694, 5.879533341943694}, {0, 0}], Offset[{3.444150891285808, 0}, {0, 0}], Offset[{5.879533341943694, -5.879533341943694}, {0, 0}], Offset[{0, -3.444150891285808}, {0, 0}], Offset[{-5.879533341943694, -5.879533341943694}, {0, 0}], Offset[{-3.444150891285808, 0}, {0, 0}], Offset[{-5.879533341943694, 5.879533341943694}, {0, 0}], Offset[{0, 3.444150891285808}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{5.879533341943695, -5.879533341943695}, {0, 0}], Offset[{3.444150891285808, 0.}, {0, 0}], Offset[{5.879533341943695, 5.879533341943695}, {0, 0}], Offset[{5.879502614067213, 5.879520614040513}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{-5.879502614067213, 5.879520614040512}, {0, 0}], Offset[{-5.879533341943695, 5.879533341943695}, {0, 0}], Offset[{-3.444150891285808, 0.}, {0, 0}], Offset[{-5.879533341943695, -5.879533341943695}, {0, 0}]}}]}}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]]}, AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {40, 30}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.3666666666666667] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.368417, 0.506779, 0.709798]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.880722, 0.611041, 0.142051]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.560181, 0.691569, 0.194885]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", TemplateBox[ Association[ "color" -> RGBColor[0.922526, 0.385626, 0.209179]], "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm], ",", TagBox[#4, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{0, 6.363961030678928}, {0, 0}], Offset[{6.363961030678928, 0}, {0, 0}], Offset[{0, -6.363961030678928}, {0, 0}], Offset[{-6.363961030678928, 0}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{3.1819805153394642`, -3.1819805153394642`}, {0, 0}], Offset[{6.3639610306789285`, 0.}, {0, 0}], Offset[{3.1819850153380718`, 3.1819760153408563`}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{-3.1819850153380713`, 3.1819760153408567`}, {0, 0}], Offset[{-6.3639610306789285`, 0.}, {0, 0}], Offset[{-3.1819805153394642`, -3.1819805153394642`}, {0, 0}]}}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{4.5, 4.5}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{4.5, -4.5}, {0, 0}], Offset[{4.5, 4.5}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{-4.5, 4.5}, {0, 0}], Offset[{-4.5, -4.5}, {0, 0}]}}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{0, 5.106857870531042}, {0, 0}], Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{5.106857870531042, 0}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{0, -5.106857870531042}, {0, 0}], Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], Offset[{-5.106857870531042, 0}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{4.932845908333528, -1.3217520775251366`}, {0, 0}], Offset[{5.106857870531042, 0.}, {0, 0}], Offset[{4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{3.611101645834377, 3.611083646068237}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{-3.611101645834377, 3.611083646068237}, {0, 0}], Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], Offset[{-4.932845908333528, 1.3217520775251366`}, {0, 0}], Offset[{-5.106857870531042, 0.}, {0, 0}], Offset[{-4.932845908333528, -1.3217520775251366`}, {0, 0}], Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 0}]}}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ FaceForm[ GrayLevel[1]], DynamicBox[ Typeset`ToBoxes[ EdgeForm[{ CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}], StandardForm, Graphics]], PolygonBox[{ Offset[{5.879533341943694, 5.879533341943694}, {0, 0}], Offset[{3.444150891285808, 0}, {0, 0}], Offset[{5.879533341943694, -5.879533341943694}, {0, 0}], Offset[{0, -3.444150891285808}, {0, 0}], Offset[{-5.879533341943694, -5.879533341943694}, {0, 0}], Offset[{-3.444150891285808, 0}, {0, 0}], Offset[{-5.879533341943694, 5.879533341943694}, {0, 0}], Offset[{0, 3.444150891285808}, {0, 0}]}]}, { EdgeForm[None], PolygonBox[{{ Offset[{0., 0.}, {0, 0}], Offset[{5.879533341943695, -5.879533341943695}, {0, 0}], Offset[{3.444150891285808, 0.}, {0, 0}], Offset[{5.879533341943695, 5.879533341943695}, {0, 0}], Offset[{5.879502614067213, 5.879520614040513}, {0, 0}]}, { Offset[{0., 0.}, {0, 0}], Offset[{-5.879502614067213, 5.879520614040512}, {0, 0}], Offset[{-5.879533341943695, 5.879533341943695}, {0, 0}], Offset[{-3.444150891285808, 0.}, {0, 0}], Offset[{-5.879533341943695, -5.879533341943695}, {0, 0}]}}]}}, { AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> All}], ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "30"}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, TaggingRules->{"AttachedInlineCell" -> CellObject[7547185]}, CellChangeTimes->{3.835250151108043*^9, 3.835250602645748*^9, 3.8352517394767833`*^9, 3.835307465665873*^9, 3.8353106691880608`*^9, 3.836431137314807*^9, 3.840476103141856*^9, 3.846153909383967*^9}, CellLabel->"Out[187]=", CellID->682324769] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107570], Cell[CellGroupData[{ Cell[TextData[{ "Create an auxiliary function that (approximately) converts a simple glyph \ into a set of points suitable for ", Cell[BoxData["PolygonMarker"], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{{3.8404747251747417`*^9, 3.840474727438671*^9}}, CellID->947503209], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"pts", "[", "l_String", "]"}], " ", ":=", " ", RowBox[{"First", "[", RowBox[{"Cases", "[", RowBox[{ RowBox[{"ImportString", "[", RowBox[{ RowBox[{"ExportString", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"l", ",", " ", RowBox[{"FontFamily", " ", "->", " ", "\"\\""}], ",", " ", RowBox[{"FontSize", " ", "->", " ", "20"}]}], "]"}], ",", " ", "\"\\""}], "]"}], ",", " ", "\n", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"$VersionNumber", " ", ">=", " ", "12.2"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], "]"}]}], "]"}], ",", " ", RowBox[{"c_FilledCurve", " ", ":>", " ", RowBox[{"c", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", " ", "Infinity"}], "]"}], "]"}]}], ";"}], " "}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{ 3.835161878637744*^9, {3.836217681219036*^9, 3.836217789942876*^9}}, CellLabel->"In[188]:=", CellID->875220076], Cell["\<\ Show a set of markers in use, including some created from glyphs:\ \>", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellID->797486327], Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"Range", "[", "5", "]"}], ",", "7"}], "]"}], "+", RowBox[{"Range", "[", RowBox[{"0", ",", "12", ",", "2"}], "]"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Gray"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{ RowBox[{"pts", "[", "\"\\"", "]"}], ",", RowBox[{"Scaled", "[", "0.05", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "LightBlue", "]"}], ",", RowBox[{"EdgeForm", "[", "Black", "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PolygonMarker", "[", RowBox[{ RowBox[{"pts", "[", "\"\\"", "]"}], ",", RowBox[{"Scaled", "[", "0.05", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "LightBlue", "]"}], ",", RowBox[{"EdgeForm", "[", "Black", "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PolygonMarker", "[", RowBox[{"\"\\"", ",", RowBox[{"Scaled", "[", "0.05", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Red", "]"}], ",", RowBox[{"EdgeForm", "[", "Black", "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PolygonMarker", "[", RowBox[{"\"\\"", ",", RowBox[{"Scaled", "[", "0.05", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Yellow", "]"}], ",", RowBox[{"EdgeForm", "[", "Black", "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PolygonMarker", "[", RowBox[{"\"\\"", ",", RowBox[{"Scaled", "[", "0.05", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Green", "]"}], ",", RowBox[{"EdgeForm", "[", "Black", "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PolygonMarker", "[", RowBox[{"\"\\"", ",", RowBox[{"Scaled", "[", "0.05", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Brown", "]"}], ",", RowBox[{"EdgeForm", "[", "Black", "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Blue", "]"}], ",", RowBox[{"EdgeForm", "[", "Black", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"Scaled", "[", RowBox[{"0.05", "/", RowBox[{"Sqrt", "[", "\[Pi]", "]"}]}], "]"}]}], "]"}]}], "}"}], "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "18"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{{3.8351614589696007`*^9, 3.8351616113110857`*^9}, { 3.835162941842544*^9, 3.8351629603062444`*^9}}, CellLabel->"In[189]:=", CellID->637577328], Cell[BoxData[ GraphicsBox[{{}, {{{}, {}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], LineBox[{{1., 1.}, {2., 2.}, {3., 3.}, {4., 4.}, {5., 5.}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], LineBox[{{1., 3.}, {2., 4.}, {3., 5.}, {4., 6.}, {5., 7.}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], LineBox[{{1., 5.}, {2., 6.}, {3., 7.}, {4., 8.}, {5., 9.}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], LineBox[{{1., 7.}, {2., 8.}, {3., 9.}, {4., 10.}, {5., 11.}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], LineBox[{{1., 9.}, {2., 10.}, {3., 11.}, {4., 12.}, {5., 13.}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], LineBox[{{1., 11.}, {2., 12.}, {3., 13.}, {4., 14.}, {5., 15.}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], LineBox[{{1., 13.}, {2., 14.}, {3., 15.}, {4., 16.}, {5., 17.}}]}}, { {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], PolygonBox[{ Scaled[{0.03502996566442954, -0.0044850649175606746`}, {0, 0}], Scaled[{0.03502996566442954, -0.011104595515406872`}, {0, 0}], Scaled[{0.03432510823965889, -0.016866038813532266`}, {0, 0}], Scaled[{0.032854101440137506`, -0.021800040786926884`}, {0, 0}], Scaled[{0.03141374061560616, -0.026703396785331474`}, {0, 0}], Scaled[{0.02902335456638392, -0.030809957433995318`}, {0, 0}], Scaled[{0.025713589267460826`, -0.03408907675792839}, {0, 0}], Scaled[{0.0225876998184779, -0.03718432023192128}, {0, 0}], Scaled[{0.018910182819674454`, -0.03945212238118341}, {0, 0}], Scaled[{0.014681038271050495`, -0.04089248320571476}, {0, 0}], Scaled[{0.010482539697416566`, -0.04230219805525608}, {0, 0}], Scaled[{0.005579183699011976, -0.043037701455016765`}, {0, 0}], Scaled[{-0.000029029724163274305`, -0.043037701455016765`}, {0, 0}], Scaled[{-0.00572918107230861, -0.043037701455016765`}, {0, 0}], Scaled[{-0.010724474995683287`, -0.04230219805525608}, { 0, 0}], Scaled[{-0.014984265519297275`, -0.04076989930575464}, {0, 0}], Scaled[{-0.019213410067921235`, -0.03926824653124324}, {0, 0}], Scaled[{-0.02279898914175459, -0.03703109035697114}, {0, 0}], Scaled[{-0.025710356765807314`, -0.03408907675792839}, {0, 0}], Scaled[{-0.029020122064730414`, -0.03074866548401526}, {0, 0}], Scaled[{-0.03137986213896262, -0.026703396785331474`}, {0, 0}], Scaled[{-0.032850868938484, -0.021953270661877026`}, {0, 0}], Scaled[{-0.034291229763015345`, -0.01723379051341261}, {0, 0}], Scaled[{-0.03502673316277604, -0.011411055265307158`}, {0, 0}], Scaled[{-0.03502673316277604, -0.0044850649175606746`}, {0, 0}], Scaled[{-0.03502673316277604, 0.050126062514670444`}, {0, 0}], Scaled[{-0.022890927066724676`, 0.050126062514670444`}, {0, 0}], Scaled[{-0.022890927066724676`, -0.005097984417361249}, {0, 0}], Scaled[{-0.022890927066724676`, -0.010031986390755867`}, { 0, 0}], Scaled[{-0.02255382134183436, -0.01392402521448951}, {0, 0}], Scaled[{-0.02187960989205373, -0.016804746863552208`}, {0, 0}], Scaled[{-0.021205398442273097`, -0.019654822537624878`}, {0, 0}], Scaled[{-0.020071497367642036`, -0.022259730411777312`}, { 0, 0}], Scaled[{-0.018477906668160543`, -0.024588824511019496`}, {0, 0}], Scaled[{-0.01670044011873888, -0.027224378360161963`}, {0, 0}], Scaled[{-0.014248762119536585`, -0.029247012709503858`}, \ {0, 0}], Scaled[{-0.011153518645543689`, -0.030595435609065115`}, {0, 0}], Scaled[{-0.008088921146540818, -0.031943858508626376`}, {0, 0}], Scaled[{-0.004380758172747348, -0.03261806995840701}, {0, 0}], Scaled[{-0.000029029724163274305`, -0.03261806995840701}, {0, 0}], Scaled[{0.0043226987244208, -0.03261806995840701}, {0, 0}], Scaled[{0.008061507673204299, -0.031974504483616405`}, {0, 0}], Scaled[{0.01112610517220717, -0.030626081584055144`}, {0, 0}], Scaled[{0.014190702671210038`, -0.02930830465948391}, {0, 0}], Scaled[{0.01664238067041233, -0.02728567031014202}, {0, 0}], Scaled[{0.018481139169814056`, -0.024588824511019496`}, { 0, 0}], Scaled[{0.020074729869295545`, -0.022259730411777312`}, {0, 0}], Scaled[{0.02120863094392661, -0.01959353058764482}, {0, 0}], Scaled[{0.021882842393707237`, -0.016590225038622005`}, {0, 0}], Scaled[{0.02255705384348787, -0.013586919489599196`}, {0, 0}], Scaled[{0.022894159568378186`, -0.009878756515805723}, {0, 0}], Scaled[{0.022894159568378186`, -0.005404444167261536}, {0, 0}], Scaled[{0.022894159568378186`, 0.050126062514670444`}, {0, 0}], Scaled[{0.03502996566442954, 0.050126062514670444`}, {0, 0}], Scaled[{0.03502996566442954, -0.0044850649175606746`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.012833333333333334`], AbsoluteThickness[1.6], GrayLevel[0.5]]}], TraditionalForm], {0., 0.}], {{{1., 1.}}, {{2., 2.}}, {{3., 3.}}, {{ 4., 4.}}, {{5., 5.}}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], PolygonBox[{ Scaled[{0.03442554521319743, -0.018553872019784548`}, {0, 0}], Scaled[{0.03442554521319743, -0.02196886832126003}, {0, 0}], Scaled[{0.03363067538440572, -0.02532498537615835}, {0, 0}], Scaled[{0.03204093572682231, -0.028681102431056666`}, {0, 0}], Scaled[{0.030451196069238892`, -0.032007779862666404`}, {0, 0}], Scaled[{0.028243224322595264`, -0.03483398369837025}, {0, 0}], Scaled[{0.025358141240314255`, -0.03715971393816821}, {0, 0}], Scaled[{0.02223754117172459, -0.039662081917697656`}, {0, 0}], Scaled[{0.01855758826065187, -0.04163453667803263}, {0, 0}], Scaled[{0.014377161753673266`, -0.043047638595884556`}, {0, 0}], Scaled[{0.01019673524669466, -0.044460740513736476`}, {0, 0}], Scaled[{0.005162559664347182, -0.045167291472662435`}, {0, 0}], Scaled[{-0.0007253649933691644, -0.045167291472662435`}, {0, 0}], Scaled[{-0.007025444377125656, -0.045167291472662435`}, { 0, 0}], Scaled[{-0.01270729167182193, -0.04457849900689081}, {0, 0}], Scaled[{-0.017770906877457988`, -0.04340091407534753}, {0, 0}], Scaled[{-0.022805082459805465`, -0.042223329143804264`}, {0, 0}], Scaled[{-0.02792757691201869, -0.04048639136977794}, {0, 0}], Scaled[{-0.033167829857386234`, -0.038160661129979984`}, { 0, 0}], Scaled[{-0.033167829857386234`, -0.023558607978843446`}, {0, 0}], Scaled[{-0.03234352040530595, -0.023558607978843446`}, {0, 0}], Scaled[{-0.02792757691201869, -0.02723856088991616}, {0, 0}], Scaled[{-0.022805082459805465`, -0.03009420434890859}, {0, 0}], Scaled[{-0.016976037048666282`, -0.03209609873253215}, { 0, 0}], Scaled[{-0.01117643126081568, -0.03409799311615571}, {0, 0}], Scaled[{-0.005730100952428059, -0.03509894030796749}, {0, 0}], Scaled[{-0.0006076065002148376, -0.03509894030796749}, {0, 0}], Scaled[{0.006605101205487688, -0.03509894030796749}, {0, 0}], Scaled[{0.012228069253606798`, -0.03374471763669273}, {0, 0}], Scaled[{0.016261297644142497`, -0.031036272294143203`}, {0, 0}], Scaled[{0.020265086411389615`, -0.02832782695159369}, {0, 0}], Scaled[{0.02229642041830175, -0.024736192910386715`}, {0, 0}], Scaled[{0.02229642041830175, -0.02020249092394513}, {0, 0}], Scaled[{0.02229642041830175, -0.01631646064985234}, {0, 0}], Scaled[{0.021354352473067138`, -0.01346081719085991}, {0, 0}], Scaled[{0.019440776959309323`, -0.01160612092367926}, {0, 0}], Scaled[{0.017556641068840095`, -0.009780864279787194}, {0, 0}], Scaled[{0.014642118363270501`, -0.008338322738646688}, {0, 0}], Scaled[{0.010756088089177713`, -0.007307935923546328}, {0, 0}], Scaled[{0.007812125760319539, -0.006542505718043203}, {0, 0}], Scaled[{0.004632646445152711, -0.005894834005694404}, {0, 0}], Scaled[{0.0011882105203886483`, -0.005364920786499933}, {0, 0}], Scaled[{-0.002226785781086833, -0.004864447190594043}, {0, 0}], Scaled[{-0.005877299068870968, -0.004216775478245245}, {0, 0}], Scaled[{-0.009733889719675176, -0.0034219056494535385`}, {0, 0}], Scaled[{-0.017505950267860754`, -0.001773286745292961}, { 0, 0}], Scaled[{-0.02324667680913419, 0.0010234774671223038`}, {0, 0}], Scaled[{-0.027014948590072654`, 0.0050272662343694196`}, {0, 0}], Scaled[{-0.03075378074772253, 0.009001615378327955}, {0, 0}], Scaled[{-0.032637916638191766`, 0.01418298907711834}, {0, 0}], Scaled[{-0.032637916638191766`, 0.020600826954029157`}, { 0, 0}], Scaled[{-0.032637916638191766`, 0.027931293152886012`}, {0, 0}], Scaled[{-0.029546756192890683`, 0.03393697630375669}, {0, 0}], Scaled[{-0.023334995678999937`, 0.03864731602992976}, {0, 0}], Scaled[{-0.017152674788397774`, 0.04332821613281426}, {0, 0}], Scaled[{-0.009262855747057867, 0.0456833859959008}, {0, 0}], Scaled[{0.0002755821984426146, 0.0456833859959008}, {0, 0}], Scaled[{0.006428463465756197, 0.0456833859959008}, {0, 0}], Scaled[{0.012080871137163891`, 0.04509459353012916}, {0, 0}], Scaled[{0.017232805212665694`, 0.04391700859858589}, {0, 0}], Scaled[{0.022355299664878914`, 0.04273942366704262}, {0, 0}], Scaled[{0.026918441274609087`, 0.04129688212590212}, {0, 0}], Scaled[{0.030892790418567618`, 0.03955994435187579}, {0, 0}], Scaled[{0.030892790418567618`, 0.025782200652819543`}, {0, 0}], Scaled[{0.03006848096648733, 0.025782200652819543`}, {0, 0}], Scaled[{0.026741803534877595`, 0.02860840448852339}, {0, 0}], Scaled[{0.022355299664878914`, 0.030934134728321346`}, {0, 0}], Scaled[{0.016908969356491294`, 0.03281827061879058}, {0, 0}], Scaled[{0.011492078671392257`, 0.034672966885971226`}, {0, 0}], Scaled[{0.005927989869850308, 0.03561503483120584}, {0, 0}], Scaled[{0.00021670295186545108`, 0.03561503483120584}, {0, 0}], Scaled[{-0.006024497185313876, 0.03561503483120584}, {0, 0}], Scaled[{-0.011029233144372772`, 0.03431969140650825}, {0, 0}], Scaled[{-0.014826944548599817`, 0.03172900455711305}, {0, 0}], Scaled[{-0.01859521632953828, 0.02913831770771786}, {0, 0}], Scaled[{-0.02050879184329609, 0.025811640276108123`}, {0, 0}], Scaled[{-0.02050879184329609, 0.021719532638995263`}, {0, 0}], Scaled[{-0.02050879184329609, 0.01806901935121113}, {0, 0}], Scaled[{-0.019566723898061477`, 0.015213375892218701`}, {0, 0}], Scaled[{-0.017682588007592242`, 0.013123162638729396`}, {0, 0}], Scaled[{-0.015798452117123014`, 0.011062389008528677`}, { 0, 0}], Scaled[{-0.01250121430880186, 0.009472649350945262}, {0, 0}], Scaled[{-0.007731995336051617, 0.008353943665979155}, {0, 0}], Scaled[{-0.00522962735652217, 0.007824030446784685}, {0, 0}], Scaled[{-0.0016674329386037801`, 0.007146919111147305}, {0, 0}], Scaled[{0.002984027540992134, 0.0063520492823555975`}, {0, 0}], Scaled[{0.007606048397299467, 0.005586619076852473}, {0, 0}], Scaled[{0.011521518294680837`, 0.004762309624772185}, {0, 0}], Scaled[{0.014759876856424829`, 0.003938000172691895}, {0, 0}], Scaled[{0.021266033603201392`, 0.0022305020219541547`}, {0, 0}], Scaled[{0.02618245069239454, -0.00038962445072961957`}, {0, 0}], Scaled[{0.029479688500715695`, -0.003892939622070846}, {0, 0}], Scaled[{0.03277692630903685, -0.0073668151701234905`}, {0, 0}], Scaled[{0.03442554521319743, -0.01225379263602806}, {0, 0}], Scaled[{0.03442554521319743, -0.018553872019784548`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.012833333333333334`], AbsoluteThickness[1.6], GrayLevel[0.5]]}], TraditionalForm], {0., 0.}], {{{1., 3.}}, {{2., 4.}}, {{3., 5.}}, {{ 4., 6.}}, {{5., 7.}}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0, 0]], PolygonBox[{ Scaled[{0., 0.04719144762372959}, {0, 0}], Scaled[{0.01059514011917239, 0.014582959304887675`}, {0, 0}], Scaled[{0.04488173377594948, 0.014582959304887675`}, {0, 0}], Scaled[{0.01714329682838854, -0.005570194797910551}, {0, 0}], Scaled[{0.02773843694756093, -0.038178683116752474`}, {0, 0}], Scaled[{0., -0.018025529013954246`}, {0, 0}], Scaled[{-0.02773843694756093, -0.038178683116752474`}, {0, 0}], Scaled[{-0.01714329682838854, -0.005570194797910551}, {0, 0}], Scaled[{-0.04488173377594948, 0.014582959304887675`}, {0, 0}], Scaled[{-0.01059514011917239, 0.014582959304887675`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.012833333333333334`], AbsoluteThickness[1.6], GrayLevel[0.5]]}], TraditionalForm], {0., 0.}], {{{1., 5.}}, {{2., 6.}}, {{3., 7.}}, {{ 4., 8.}}, {{5., 9.}}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 1, 0]], PolygonBox[{ Scaled[{0., 0.04619397662556434}, {0, 0}], Scaled[{0.013529902503654927`, 0.013529902503654927`}, {0, 0}], Scaled[{0.04619397662556434, 0.}, {0, 0}], Scaled[{0.013529902503654927`, -0.013529902503654927`}, {0, 0}], Scaled[{0., -0.04619397662556434}, {0, 0}], Scaled[{-0.013529902503654927`, -0.013529902503654927`}, {0, 0}], Scaled[{-0.04619397662556434, 0.}, {0, 0}], Scaled[{-0.013529902503654927`, 0.013529902503654927`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.012833333333333334`], AbsoluteThickness[1.6], GrayLevel[0.5]]}], TraditionalForm], {0., 0.}], {{{1., 7.}}, {{2., 8.}}, {{3., 9.}}, {{ 4., 10.}}, {{5., 11.}}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0, 1, 0]], PolygonBox[{ Scaled[{0.03799178428257963, 0.021934566882541542`}, {0, 0}], Scaled[{0., -0.043869133765083085`}, {0, 0}], Scaled[{-0.03799178428257963, 0.021934566882541542`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.012833333333333334`], AbsoluteThickness[1.6], GrayLevel[0.5]]}], TraditionalForm], {0., 0.}], {{{1., 9.}}, {{2., 10.}}, {{3., 11.}}, {{4., 12.}}, {{5., 13.}}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.6, 0.4, 0.2]], PolygonBox[{ Scaled[{0., 0.03535533905932738}, {0, 0}], Scaled[{0.03535533905932738, 0.}, {0, 0}], Scaled[{0., -0.03535533905932738}, {0, 0}], Scaled[{-0.03535533905932738, 0.}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.012833333333333334`], AbsoluteThickness[1.6], GrayLevel[0.5]]}], TraditionalForm], {0., 0.}], {{{1., 11.}}, {{2., 12.}}, {{3., 13.}}, {{4., 14.}}, {{5., 15.}}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0, 0, 1]], DiskBox[{0, 0}, Scaled[0.028209479177387815]]}], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.012833333333333334`], AbsoluteThickness[1.6], GrayLevel[0.5]]}], TraditionalForm], {0., 0.}], {{{1., 13.}}, {{2., 14.}}, {{3., 15.}}, {{4., 16.}}, {{5., 17.}}}]}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->450, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0., 6.}, {0., 18.}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{{{0., FormBox["0", TraditionalForm], {0.01, 0.}}, {1., FormBox["1", TraditionalForm], {0.01, 0.}}, {2., FormBox["2", TraditionalForm], {0.01, 0.}}, {3., FormBox["3", TraditionalForm], {0.01, 0.}}, {4., FormBox["4", TraditionalForm], {0.01, 0.}}, {5., FormBox["5", TraditionalForm], {0.01, 0.}}, {6., FormBox["6", TraditionalForm], {0.01, 0.}}, {0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {2.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {2.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {2.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {2.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {4.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {4.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {4.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {4.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{ 0., FormBox["0", TraditionalForm], {0.01, 0.}}, {5., FormBox["5", TraditionalForm], {0.01, 0.}}, {10., FormBox["10", TraditionalForm], {0.01, 0.}}, {15., FormBox["15", TraditionalForm], {0.01, 0.}}, {1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {2., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {4., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {6., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {7., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {8., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {9., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {11., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {12., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {13., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {14., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {16., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {17., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {18., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {19., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {20., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{"AttachedInlineCell" -> CellObject[7547265]}, CellChangeTimes->{ 3.83516291013338*^9, {3.8351629442320433`*^9, 3.8351629651096334`*^9}, 3.835163294265953*^9, 3.8351638666240263`*^9, 3.835163905727226*^9, 3.835164032885065*^9, 3.835164648846377*^9, 3.8351650826097403`*^9, 3.835247605892315*^9, 3.8352733153773365`*^9, 3.835305462951785*^9, 3.8353067688065577`*^9, 3.8353074727539845`*^9, 3.8353106755078926`*^9, 3.8362178043644977`*^9, 3.8364311444915543`*^9, 3.840476111779747*^9, 3.846153920180642*^9}, CellLabel->"Out[189]=", CellID->209680382], Cell["\<\ Black-and-white plot, where the markers overlap considerably:\ \>", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{{3.8352732637494307`*^9, 3.8352733034167366`*^9}, { 3.8352738749295435`*^9, 3.8352738852641897`*^9}}, CellID->505353434], Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "11", "]"}], ";"}], "\n", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "20", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"PlotMarkers", "->", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{"\"\\"", ",", RowBox[{"Scaled", "[", "0.03", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "None", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".008", "]"}]}], "}"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PolygonMarker", "[", RowBox[{"\"\\"", ",", RowBox[{"Scaled", "[", "0.03", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "None", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".008", "]"}]}], "}"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PolygonMarker", "[", RowBox[{"\"\\"", ",", RowBox[{"Scaled", "[", "0.03", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Black", "]"}], ",", RowBox[{"EdgeForm", "[", "None", "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PolygonMarker", "[", RowBox[{ RowBox[{"pts", "[", "\"\\"", "]"}], ",", RowBox[{"Scaled", "[", "0.03", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Black", "]"}], ",", RowBox[{"EdgeForm", "[", "None", "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PolygonMarker", "[", RowBox[{"\"\\"", ",", RowBox[{"Scaled", "[", "0.03", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Black", "]"}], ",", RowBox[{"EdgeForm", "[", "None", "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PolygonMarker", "[", RowBox[{ RowBox[{"pts", "[", "\"\\"", "]"}], ",", RowBox[{"Scaled", "[", "0.03", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Black", "]"}], ",", RowBox[{"EdgeForm", "[", "None", "]"}]}], "}"}]}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"FrameStyle", "->", "Black"}], ",", RowBox[{"Axes", "->", "False"}], ",", RowBox[{"PlotRangePadding", "->", RowBox[{"Scaled", "[", ".1", "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}]}], "]"}]}], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{{3.8351614589696007`*^9, 3.8351616113110857`*^9}, { 3.835162941842544*^9, 3.8351629603062444`*^9}, {3.835273336522602*^9, 3.835273341387808*^9}, {3.835273406548299*^9, 3.8352735961797037`*^9}, { 3.83527363252536*^9, 3.835273632903791*^9}, 3.8352737460348663`*^9, { 3.835274325038251*^9, 3.835274331797821*^9}, 3.835305356679532*^9, { 3.835305402348652*^9, 3.8353054316370573`*^9}, 3.8353055022143135`*^9}, CellLabel->"In[190]:=", CellID->48427398], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.008]}], FaceForm[None], PolygonBox[{ Scaled[{0., 0.017022859568436806`}, {0, 0}], Scaled[{0.004405840258417122, 0.016442819694445093`}, {0, 0}], Scaled[{0.008511429784218403, 0.014742228831321279`}, {0, 0}], Scaled[{0.01203697943602797, 0.01203697943602797}, {0, 0}], Scaled[{0.014742228831321279`, 0.008511429784218403}, {0, 0}], Scaled[{0.016442819694445093`, 0.004405840258417122}, {0, 0}], Scaled[{0.017022859568436806`, 0.}, {0, 0}], Scaled[{0.016442819694445093`, -0.004405840258417122}, {0, 0}], Scaled[{0.014742228831321279`, -0.008511429784218403}, {0, 0}], Scaled[{0.01203697943602797, -0.01203697943602797}, {0, 0}], Scaled[{0.008511429784218403, -0.014742228831321279`}, {0, 0}], Scaled[{0.004405840258417122, -0.016442819694445093`}, {0, 0}], Scaled[{0., -0.017022859568436806`}, {0, 0}], Scaled[{-0.004405840258417122, -0.016442819694445093`}, {0, 0}], Scaled[{-0.008511429784218403, -0.014742228831321279`}, {0, 0}], Scaled[{-0.01203697943602797, -0.01203697943602797}, {0, 0}], Scaled[{-0.014742228831321279`, -0.008511429784218403}, {0, 0}], Scaled[{-0.016442819694445093`, -0.004405840258417122}, {0, 0}], Scaled[{-0.017022859568436806`, 0.}, {0, 0}], Scaled[{-0.016442819694445093`, 0.004405840258417122}, {0, 0}], Scaled[{-0.014742228831321279`, 0.008511429784218403}, {0, 0}], Scaled[{-0.01203697943602797, 0.01203697943602797}, {0, 0}], Scaled[{-0.008511429784218403, 0.014742228831321279`}, {0, 0}], Scaled[{-0.004405840258417122, 0.016442819694445093`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}], TraditionalForm], {0., 0.}], CompressedData[" 1:eJwBVQGq/iFib1JlAwAAABQAAAABAAAAAgAAAIwKSjeLEOK/QCFUO3t4sL98 bwzbHOfmP2g3jKtrW9q/dNnUaqKw5j+wxXblgvvsvxCT089++dO/4PJirMrH 2T/Q7DZvUhXjP0Bd1EBCpqa/qFVK0h1R1b/UbMKzfl3ov1xQxEoBWuU/+LI4 awt127+QqZ+7IsjTv6DVCv1N5d6/cNTli+Up079g+6cevZDcPyB0YzQx1O6/ +NUT0cy61D/4HUgF8vPTP3yY/T8TVeG/nIfFzZhf6r8wpiudmTLvP+Az4AxY WLW/+C5+tSYC1j/An/c/Jymkv0AK9iuAocA/AJdv4tsonr9QpLI1AVblvwCF os4VuII/UN+8o/W+0j8gZsigCE3OP1j8yBbXSds/5Dk+0/sf7b/gmj646+3g v9DjGOXEFeK/MNmQoNpX5L8AK4stI2KcP6Bk1vzDUOm/fd2zXg== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[{GrayLevel[0], Thickness[0.008]}], FaceForm[None], PolygonBox[{ Scaled[{0., 0.026321480259049845`}, {0, 0}], Scaled[{0.022795070569547774`, -0.013160740129524923`}, {0, 0}], Scaled[{-0.022795070569547774`, -0.013160740129524923`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}], TraditionalForm], {0., 0.}], CompressedData[" 1:eJwBVQGq/iFib1JlAwAAABQAAAABAAAAAgAAAIDWcAXDJ5u/wMW899ZltL8g Fr+TVeTiv4R/tjKQ1OE/kFRIMlwh7b94k9GbnxbnP5D59V2VetW/JHwB3o8O 67+cCix7g9biv3gUwtJx3+k/wCEcQOHtxz+oBdaW40zkP4icTfY2GeW/0ADh Rz4O3D9QEfKXgv3WP/CpsbNhqe6/AF0einDV0b9MdH2c2xfjvyShagSTNuQ/ 4JbLgiujtr+klI9ucozsPxRLzmTAHeu/vCvee37I5T+4oc4ANenYv6h5NeUT ldG/ABbjBCwT6T8kh3jZWvzmv4hYThzaR96/YFepAvjAyb9ALOF378HOv5DC ZanN5sc/TNyNcWl36T+45JUTLkLdP6CIxQtF5Nq/AARRjSakbz9UaIOH6Pro P4A3zrtNZay//PSbmoVx479k5xRxK6zuv6BVinaT4e+/CD2xTQ== "]]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.009166666666666668], AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[None], FaceForm[GrayLevel[0]], PolygonBox[{ Scaled[{-0.0034412360080584266`, 0.034412360080584264`}, {0, 0}], Scaled[{0.0034412360080584266`, 0.034412360080584264`}, {0, 0}], Scaled[{0.0034412360080584266`, 0.0034412360080584266`}, {0, 0}], Scaled[{0.034412360080584264`, 0.0034412360080584266`}, {0, 0}], Scaled[{0.034412360080584264`, -0.0034412360080584266`}, {0, 0}], Scaled[{0.0034412360080584266`, -0.0034412360080584266`}, { 0, 0}], Scaled[{ 0.0034412360080584266`, -0.034412360080584264`}, {0, 0}], Scaled[{-0.0034412360080584266`, -0.034412360080584264`}, {0, 0}], Scaled[{-0.0034412360080584266`, -0.0034412360080584266`}, \ {0, 0}], Scaled[{-0.034412360080584264`, -0.0034412360080584266`}, {0, 0}], Scaled[{-0.034412360080584264`, 0.0034412360080584266`}, {0, 0}], Scaled[{-0.0034412360080584266`, 0.0034412360080584266`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}], TraditionalForm], {0., 0.}], CompressedData[" 1:eJwBVQGq/iFib1JlAwAAABQAAAABAAAAAgAAAHA0Se44tMs/UK3/M0Jn0T9U Bk4YofDsP9jS09xT3u6/8BlApYdk4L8kbnNRen3pPxTJsn9mAeA/zM38qv1F 47/EfijEOILoP4w7yswJdOc/AHEeYQTL5T9gN1RP8qOyP1hqSGBgeOI/ZAz+ P9Wz4j+g0BfzjSfQv5BJ3wZaqsA/COUht2B66T/YdX4w7Vrrv4DyGZQKuaW/ 6LiMQmCO0r/02YTh2p7iv9Qw9pqSiO+/gDhNcp7Esj8Q0zTV9SDePyy41Jbe Due/LNpkzO8q4z+greIDBbjEP+BT/fc4Jdo/CEtGIqhH7T+s3/tAZy3lv0Do fLJnMqC/LLiBT/YT4z/wIQ/T35DPv8zFyUY6Y+A/oG2+7F4/vD/QEojestDp v9DMwbmv9Mo/DHCFJjJs4z8oRSVPpxPgP8hlgzbDfus/n0+t1A== "]]}, {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.009166666666666668], AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[None], FaceForm[GrayLevel[0]], PolygonBox[{ Scaled[{0.021017979398657724`, -0.0026910389505364046`}, {0, 0}], Scaled[{0.021017979398657724`, -0.006662757309244122}, {0, 0}], Scaled[{0.02059506494379533, -0.010119623288119358`}, {0, 0}], Scaled[{0.019712460864082505`, -0.01308002447215613}, {0, 0}], Scaled[{0.018848244369363693`, -0.016022038071198882`}, {0, 0}], Scaled[{0.01741401273983035, -0.018485974460397188`}, {0, 0}], Scaled[{0.015428153560476493`, -0.020453446054757032`}, {0, 0}], Scaled[{0.013552619891086738`, -0.022310592139152766`}, {0, 0}], Scaled[{0.011346109691804673`, -0.023671273428710043`}, {0, 0}], Scaled[{0.008808622962630297, -0.02453548992342885}, {0, 0}], Scaled[{0.006289523818449939, -0.025381318833153643`}, {0, 0}], Scaled[{0.0033475102194071853`, -0.025822620873010058`}, {0, 0}], Scaled[{-0.000017417834497964582`, -0.025822620873010058`}, {0, 0}], Scaled[{-0.003437508643385166, -0.025822620873010058`}, {0, 0}], Scaled[{-0.006434684997409972, -0.025381318833153643`}, { 0, 0}], Scaled[{-0.008990559311578364, -0.024461939583452785`}, \ {0, 0}], Scaled[{-0.01152804604075274, -0.02356094791874594}, {0, 0}], Scaled[{-0.013679393485052753`, -0.022218654214182683`}, {0, 0}], Scaled[{-0.015426214059484387`, -0.020453446054757032`}, {0, 0}], Scaled[{-0.017412073238838248`, -0.018449199290409155`}, { 0, 0}], Scaled[{-0.01882791728337757, -0.016022038071198882`}, { 0, 0}], Scaled[{-0.019710521363090396`, \ -0.013171962397126214`}, {0, 0}], Scaled[{-0.02057473785780921, -0.010340274308047565`}, {0, 0}], Scaled[{-0.02101603989766562, -0.006846633159184294}, {0, 0}], Scaled[{-0.02101603989766562, -0.0026910389505364046`}, {0, 0}], Scaled[{-0.02101603989766562, 0.030075637508802266`}, {0, 0}], Scaled[{-0.013734556240034805`, 0.030075637508802266`}, {0, 0}], Scaled[{-0.013734556240034805`, -0.0030587906504167487`}, {0, 0}], Scaled[{-0.013734556240034805`, -0.006019191834453519}, {0, 0}], Scaled[{-0.013532292805100616`, -0.008354415128693705}, { 0, 0}], Scaled[{-0.013127765935232237`, \ -0.010082848118131323`}, {0, 0}], Scaled[{-0.012723239065363857`, -0.011792893522574925`}, {0, 0}], Scaled[{-0.012042898420585221`, -0.013355838247066387`}, {0, 0}], Scaled[{-0.011086744000896325`, -0.014753294706611696`}, { 0, 0}], Scaled[{-0.010020264071243328`, \ -0.016334627016097177`}, {0, 0}], Scaled[{-0.00854925727172195, -0.017548207625702313`}, {0, 0}], Scaled[{-0.006692111187326212, -0.018357261365439068`}, {0, 0}], Scaled[{-0.004853352687924491, -0.019166315105175826`}, {0, 0}], Scaled[{-0.0026284549036484084`, -0.019570841975044204`}, {0, 0}], Scaled[{-0.000017417834497964582`, \ -0.019570841975044204`}, {0, 0}], Scaled[{0.0025936192346524794`, -0.019570841975044204`}, {0, 0}], Scaled[{0.004836904603922579, -0.019184702690169843`}, {0, 0}], Scaled[{0.006675663103324301, -0.018375648950433084`}, {0, 0}], Scaled[{0.008514421602726021, -0.017584982795690342`}, {0, 0}], Scaled[{0.0099854284022474, -0.01637140218608521}, {0, 0}], Scaled[{0.011088683501888432`, -0.014753294706611696`}, {0, 0}], Scaled[{0.012044837921577326`, -0.013355838247066387`}, {0, 0}], Scaled[{0.012725178566355964`, -0.01175611835258689}, {0, 0}], Scaled[{0.013129705436224342`, -0.009954135023173202}, {0, 0}], Scaled[{0.01353423230609272, -0.008152151693759517}, {0, 0}], Scaled[{0.01373649574102691, -0.005927253909483433}, {0, 0}], Scaled[{0.01373649574102691, -0.0032426665003569208`}, {0, 0}], Scaled[{0.01373649574102691, 0.030075637508802266`}, {0, 0}], Scaled[{0.021017979398657724`, 0.030075637508802266`}, {0, 0}], Scaled[{0.021017979398657724`, -0.0026910389505364046`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.009166666666666668], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]]}], TraditionalForm], {0., 0.}], CompressedData[" 1:eJwBVQGq/iFib1JlAwAAABQAAAABAAAAAgAAAFRVY2/qi+O/IP6oHe+l2D+8 uSg2mMzlvwCmG0Y7m6k/gAL0cTv7tT8AMws4aOKpvwD2ruxXIo+/WAOUh08a 27/Md/xgy5jkP6AU/sGQscE/5Io9CPhN6z8QloxDohXdv2j6rjs2cOE/zHJA Q7Bo778E94PFW0DkvyRkXcjvx+y/0Pfzoyoq179wjCT1cUPnv6SNbnIQZei/ QNyorJ8T6z9wPiVbM5DLv7CY7Lpjp98/gJXKdXgNyT9AapvzTwfkv1BcYRmD 88I/QM/81cnA078oC0dzrardP+Qfe9ZaN+A/4FX9W5y67r8kfzde5/3ov/w0 2gN+le+/INH1of9A7T9M/AZB4lHpP3DF60+1t++/qD6qXcT34r+IzVLg6DrR v6wayYqO8+u/wIcHhLThsb/4lLwczLztP0iZRuDKx9U/g2S1LA== "]]}, {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.009166666666666668], AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[None], FaceForm[GrayLevel[0]], PolygonBox[{ Scaled[{-0.011737226986735447`, -0.0010452447038280174`}, {0, 0}], Scaled[{-0.017899336961157444`, 0.0031481775008153383`}, {0, 0}], Scaled[{-0.020784288918426347`, 0.009900790111259833}, {0, 0}], Scaled[{-0.019761657681748455`, 0.01775082233869335}, {0, 0}], Scaled[{-0.014223070525422727`, 0.023897163228695457`}, {0, 0}], Scaled[{-0.005410678466874443, 0.0271929534853035}, {0, 0}], Scaled[{0.0067208729507009235`, 0.027060223999103118`}, {0, 0}], Scaled[{0.018453085512025492`, 0.0237618962670236}, {0, 0}], Scaled[{0.018453085512025492`, 0.015594570408836399`}, {0, 0}], Scaled[{0.010356076959203833`, 0.019555903048542995`}, {0, 0}], Scaled[{0.0013413973699126225`, 0.021261604570723878`}, {0, 0}], Scaled[{-0.006570109566918967, 0.020489476309654343`}, {0, 0}], Scaled[{-0.011862697829159247`, 0.017184722066161708`}, {0, 0}], Scaled[{-0.013397015451718985`, 0.012483208177146037`}, {0, 0}], Scaled[{-0.011571394894301193`, 0.007566856958481459}, {0, 0}], Scaled[{-0.00722960920147712, 0.0052347214435614535`}, {0, 0}], Scaled[{0.0015678670557420264`, 0.0034760463406373603`}, {0, 0}], Scaled[{0.011737226986735447`, 0.0010452447038280174`}, {0, 0}], Scaled[{0.017899336961157444`, -0.0031481775008153383`}, {0, 0}], Scaled[{0.020784288918426347`, -0.009900790111259833}, {0, 0}], Scaled[{0.019761657681748455`, -0.01775082233869335}, {0, 0}], Scaled[{0.014223070525422727`, -0.023897163228695457`}, {0, 0}], Scaled[{0.005410678466874443, -0.0271929534853035}, {0, 0}], Scaled[{-0.0067208729507009235`, -0.027060223999103118`}, { 0, 0}], Scaled[{-0.018453085512025492`, -0.0237618962670236}, { 0, 0}], Scaled[{-0.018453085512025492`, \ -0.015594570408836399`}, {0, 0}], Scaled[{-0.010356076959203833`, -0.019555903048542995`}, {0, 0}], Scaled[{-0.0013413973699126225`, -0.021261604570723878`}, {0, 0}], Scaled[{0.006570109566918967, -0.020489476309654343`}, {0, 0}], Scaled[{0.011862697829159247`, -0.017184722066161708`}, {0, 0}], Scaled[{0.013397015451718985`, -0.012483208177146037`}, { 0, 0}], Scaled[{0.011571394894301193`, -0.007566856958481459}, { 0, 0}], Scaled[{0.00722960920147712, -0.0052347214435614535`}, { 0, 0}], Scaled[{-0.0015678670557420264`, \ -0.0034760463406373603`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.009166666666666668], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]]}], TraditionalForm], {0., 0.}], CompressedData[" 1:eJwBVQGq/iFib1JlAwAAABQAAAABAAAAAgAAAMBp4BBFo8S/cKjeUvYl5j8s 4UyrZbHpv4B5zipwxNE/gCKFppYg07+UXqv/c9buv0jrPLZu6OW/IMsLbp7+ 67+oQuGaFFnuP5jQNGXEC9G/qFul/cWB4z+4mqgVLGDgP1DE7WUXFuo/JN+F RFMP6L8ArNQMWSveP3BF96xWQtA/uIw1de/M7D8AYrTKqaiQPxCO2AA4sOc/ BDQn/qOw5z+IC4B5CN/mPxQQv694q+m/UE5ssjMX67+gB+pu35nrPyCE0J+J pOI/MNtq2LWz4z/g4LHKuXm6v+htsXLd8tu/KK4Eazf+078sE51g5Cvsv6Cw z1IUYMK/yMuupw9g1T+AJYGVtMmaP0iweqkXD+c/cH8/+RCv7b+Q7JWBMr7s v1zzdCAQ1OA/xMT3cFUB6b/c2PMH/4jrvyx79liB1OA/loGxsg== "]]}, {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.009166666666666668], AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[None], FaceForm[GrayLevel[0]], PolygonBox[{ Scaled[{0.02761490770362522, 0.021797607494097492`}, {0, 0}], Scaled[{0.01602865545937987, -0.022781021941771572`}, {0, 0}], Scaled[{0.009352339566701024, -0.022781021941771572`}, {0, 0}], Scaled[{-0.000018453592081391332`, 0.014223132512717458`}, {0, 0}], Scaled[{-0.00917967629683353, -0.022781021941771572`}, {0, 0}], Scaled[{-0.01570629900806218, -0.022781021941771572`}, {0, 0}], Scaled[{-0.027502121706337805`, 0.021797607494097492`}, {0, 0}], Scaled[{-0.021424578539459754`, 0.021797607494097492`}, { 0, 0}], Scaled[{-0.012053785380677338`, \ -0.015266424232971615`}, {0, 0}], Scaled[{-0.00283268540334512, 0.021797607494097492`}, {0, 0}], Scaled[{0.003184980490952853, 0.021797607494097492`}, {0, 0}], Scaled[{0.012495896377155188`, -0.01562568786845209}, {0, 0}], Scaled[{0.02180681226335753, 0.021797607494097492`}, {0, 0}], Scaled[{0.02761490770362522, 0.021797607494097492`}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.009166666666666668], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]]}], TraditionalForm], {0., 0.}], CompressedData[" 1:eJwBVQGq/iFib1JlAwAAABQAAAABAAAAAgAAAPhghtx/UOq/wE4Ubrx16r8Q zh5936roP9AOHTln0ca/BGpLerS+77/YSw8csrXqvwDEn2OADqg/EJiAkZFH 2L+spByNzX7hPwQncr2+Wu6/gErLIS5wr79EgHicirzvPxAeRetCKty/nHEP /F614L+Uzxs+GpnlP1ynp7NRGug/wA4WBPno5D9gOL4LG4vaP/CIK6DWOcG/ +Cpdma6Y6L/Ir+PjxCXZP5SMbhv5Seg/WGcfyfLi2j+cLBs8fTnnv6A2qiUN 7+S/WLhdN6Ms4790Zenkoo/uP1Be6YV9r9g/KFlWKUcp37/g/B0Icq7qv+jN EP0x4dS/8N7v6/kwyb+sm9lbPOXhPyBE+LRLQ8y/cKUMY44H2D+gpN4FaZW7 v4iJFnDmRdW/aDIgS6uX7z8Aj3dLRE3Nv+hg6Phmvt2/NXKtOw== "]]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameStyle->GrayLevel[0], FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->450, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-0.9920294178548947, 0.9550337286884045}, {-0.9962861361733992, 0.9917653137272358}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks->{{{-1., FormBox[ TagBox[ InterpretationBox[ StyleBox[ "\"-1.0\"", ShowStringCharacters -> False], -1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {-0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox[ "\"-0.5\"", ShowStringCharacters -> False], -0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {0., FormBox["0", TraditionalForm], {0.01, 0.}}, {0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.5\"", ShowStringCharacters -> False], 0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {1., FormBox[ TagBox[ InterpretationBox[ StyleBox["\"1.0\"", ShowStringCharacters -> False], 1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {-1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{-1., FormBox[ TagBox[ InterpretationBox[ StyleBox[ "\"-1.0\"", ShowStringCharacters -> False], -1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {-0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox[ "\"-0.5\"", ShowStringCharacters -> False], -0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {0., FormBox["0", TraditionalForm], {0.01, 0.}}, {0.5, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.5\"", ShowStringCharacters -> False], 0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {1., FormBox[ TagBox[ InterpretationBox[ StyleBox["\"1.0\"", ShowStringCharacters -> False], 1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {-1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.7, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.9, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.1, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.3, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{"AttachedInlineCell" -> CellObject[7547345]}, CellChangeTimes->{{3.835273740799776*^9, 3.835273748660679*^9}, 3.835274333620499*^9, {3.835305366676997*^9, 3.835305432567887*^9}, 3.8353055022143135`*^9, 3.8353067735966625`*^9, 3.8353074762428007`*^9, 3.835310679270429*^9, 3.836217808775731*^9, 3.8364311500759783`*^9, 3.8404761157400827`*^9, 3.8461539240731707`*^9}, CellLabel->"Out[191]=", CellID->717781314] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107571], Cell[CellGroupData[{ Cell[TextData[{ "Use the resource functions ", Cell[BoxData[ ButtonBox["RoundedPolygon", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ RoundedPolygon/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ RoundedPolygon/"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ ButtonBox["NotchedPolygon", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ NotchedPolygon/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ NotchedPolygon/"]], "InlineFormula", FontFamily->"Source Sans Pro"], " to make markers:" }], "Text", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{{3.840474795408751*^9, 3.8404748166626472`*^9}}, CellID->738923512], Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"Range", "[", "5", "]"}], ",", "4"}], "]"}], "+", RowBox[{"Range", "[", RowBox[{"0", ",", "6", ",", "2"}], "]"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Gray"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"PolygonMarker", "[", RowBox[{ RowBox[{"First", "@", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"CirclePoints", "[", "3", "]"}], "//", "N"}], ",", "0.4"}], "]"}]}], ",", RowBox[{"Scaled", "[", "0.05", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Red", "]"}], ",", RowBox[{"EdgeForm", "[", "Black", "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PolygonMarker", "[", RowBox[{ RowBox[{"First", "@", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"CirclePoints", "[", "4", "]"}], "//", "N"}], ",", "0.4"}], "]"}]}], ",", RowBox[{"Scaled", "[", "0.05", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Yellow", "]"}], ",", RowBox[{"EdgeForm", "[", "Black", "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PolygonMarker", "[", RowBox[{ RowBox[{"First", "@", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"CirclePoints", "[", "5", "]"}], "//", "N"}], ",", "0.4"}], "]"}]}], ",", RowBox[{"Scaled", "[", "0.05", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Green", "]"}], ",", RowBox[{"EdgeForm", "[", "Black", "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PolygonMarker", "[", RowBox[{ RowBox[{"First", "@", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"CirclePoints", "[", "6", "]"}], "//", "N"}], ",", "0.4"}], "]"}]}], ",", RowBox[{"Scaled", "[", "0.05", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Brown", "]"}], ",", RowBox[{"EdgeForm", "[", "Black", "]"}]}], "}"}]}], "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "12"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{}, CellChangeTimes->{{3.8353056076158705`*^9, 3.835305615497368*^9}, 3.835305699423153*^9}, CellLabel->"In[192]:=", CellID->803370458], Cell[BoxData[ GraphicsBox[{{}, {{{}, {}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], LineBox[{{1., 1.}, {2., 2.}, {3., 3.}, {4., 4.}, {5., 5.}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], LineBox[{{1., 3.}, {2., 4.}, {3., 5.}, {4., 6.}, {5., 7.}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], LineBox[{{1., 5.}, {2., 6.}, {3., 7.}, {4., 8.}, {5., 9.}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], LineBox[{{1., 7.}, {2., 8.}, {3., 9.}, {4., 10.}, {5., 11.}}]}}, { {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0, 0]], PolygonBox[{ Scaled[{0.00880552390419071, -0.025419357982200925`}, {0, 0}], Scaled[{0.01265404000737011, -0.025051869251413734`}, {0, 0}], Scaled[{0.016363460711369706`, -0.023962685059265368`}, {0, 0}], Scaled[{0.019799717887145574`, -0.022191171360301794`}, {0, 0}], Scaled[{0.022838616247284425`, -0.019801355275237482`}, { 0, 0}], Scaled[{0.025370322087278397`, -0.016879610983991735`}, {0, 0}], Scaled[{0.027303332961774892`, -0.013531537937780667`}, {0, 0}], Scaled[{0.02856778482135888, -0.00987814421981359}, {0, 0}], Scaled[{0.029117977081327823`, -0.006051472997882314}, {0, 0}], Scaled[{0.028934024359894485`, -0.002189830140242058}, { 0, 0}], Scaled[{0.02802257518769561, 0.0015672145188197321`}, {0, 0}], Scaled[{0.02641657171257212, 0.005083871596440182}, {0, 0}], Scaled[{0.017611047808381405`, 0.020335486385760746`}, {0, 0}], Scaled[{0.0153685351803255, 0.023484654732594007`}, {0, 0}], Scaled[{0.012570563648524782`, 0.026152515199507426`}, {0, 0}], Scaled[{0.009318259194182256, 0.02824264435818411}, {0, 0}], Scaled[{0.005729168574074461, 0.02967949949505108}, {0, 0}], Scaled[{0.001933010874496492, 0.030411148921772407`}, {0, 0}], Scaled[{-0.001933010874496489, 0.030411148921772407`}, {0, 0}], Scaled[{-0.005729168574074458, 0.02967949949505108}, {0, 0}], Scaled[{-0.009318259194182254, 0.02824264435818411}, {0, 0}], Scaled[{-0.012570563648524777`, 0.026152515199507426`}, {0, 0}], Scaled[{-0.015368535180325493`, 0.02348465473259401}, {0, 0}], Scaled[{-0.0176110478083814, 0.02033548638576075}, {0, 0}], Scaled[{-0.0264165717125721, 0.005083871596440201}, {0, 0}], Scaled[{-0.0280225751876956, 0.0015672145188197505`}, {0, 0}], Scaled[{-0.028934024359894478`, -0.002189830140242042}, {0, 0}], Scaled[{-0.029117977081327823`, -0.006051472997882302}, {0, 0}], Scaled[{-0.028567784821358883`, -0.009878144219813582}, { 0, 0}], Scaled[{-0.027303332961774895`, -0.013531537937780667`}, {0, 0}], Scaled[{-0.025370322087278404`, -0.01687961098399174}, {0, 0}], Scaled[{-0.02283861624728442, -0.019801355275237492`}, { 0, 0}], Scaled[{-0.019799717887145567`, -0.02219117136030181}, {0, 0}], Scaled[{-0.016363460711369692`, -0.02396268505926538}, {0, 0}], Scaled[{-0.012654040007370094`, -0.025051869251413755`}, {0, 0}], Scaled[{-0.008805523904190688, -0.02541935798220095}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.012833333333333334`], AbsoluteThickness[1.6], GrayLevel[0.5]]}], TraditionalForm], {0., 0.}], {{{1., 1.}}, {{2., 2.}}, {{3., 3.}}, {{ 4., 4.}}, {{5., 5.}}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 1, 0]], PolygonBox[{ Scaled[{0.011256212015035917`, -0.025917186900117985`}, {0, 0}], Scaled[{0.013342686284735065`, -0.025767959315167996`}, {0, 0}], Scaled[{0.015386685955198074`, -0.02532331440361077}, {0, 0}], Scaled[{0.017346601087542612`, -0.024592303853595593`}, {0, 0}], Scaled[{0.019182533461602667`, -0.023589808931860426`}, {0, 0}], Scaled[{0.020857108788634143`, -0.022336237544055157`}, { 0, 0}], Scaled[{0.022336237544055153`, -0.020857108788634143`}, {0, 0}], Scaled[{0.023589808931860416`, -0.019182533461602667`}, {0, 0}], Scaled[{0.024592303853595582`, -0.017346601087542612`}, { 0, 0}], Scaled[{0.025323314403610755`, -0.01538668595519807}, {0, 0}], Scaled[{0.025767959315167968`, -0.013342686284735068`}, {0, 0}], Scaled[{0.02591718690011796, -0.011256212015035922`}, {0, 0}], Scaled[{0.025917186900117985`, 0.011256212015035917`}, {0, 0}], Scaled[{0.025767959315167996`, 0.013342686284735065`}, {0, 0}], Scaled[{0.02532331440361077, 0.015386685955198074`}, {0, 0}], Scaled[{0.024592303853595593`, 0.017346601087542612`}, {0, 0}], Scaled[{0.023589808931860426`, 0.019182533461602667`}, {0, 0}], Scaled[{0.022336237544055157`, 0.020857108788634143`}, {0, 0}], Scaled[{0.020857108788634143`, 0.022336237544055153`}, {0, 0}], Scaled[{0.019182533461602667`, 0.023589808931860416`}, {0, 0}], Scaled[{0.017346601087542612`, 0.024592303853595582`}, {0, 0}], Scaled[{0.01538668595519807, 0.025323314403610755`}, {0, 0}], Scaled[{0.013342686284735068`, 0.025767959315167968`}, {0, 0}], Scaled[{0.011256212015035922`, 0.02591718690011796}, {0, 0}], Scaled[{-0.011256212015035917`, 0.025917186900117985`}, {0, 0}], Scaled[{-0.013342686284735065`, 0.025767959315167996`}, {0, 0}], Scaled[{-0.015386685955198074`, 0.02532331440361077}, {0, 0}], Scaled[{-0.017346601087542612`, 0.024592303853595593`}, { 0, 0}], Scaled[{-0.019182533461602667`, 0.023589808931860426`}, {0, 0}], Scaled[{-0.020857108788634143`, 0.022336237544055157`}, {0, 0}], Scaled[{-0.022336237544055153`, 0.020857108788634143`}, { 0, 0}], Scaled[{-0.023589808931860416`, 0.019182533461602667`}, {0, 0}], Scaled[{-0.024592303853595582`, 0.017346601087542612`}, {0, 0}], Scaled[{-0.025323314403610755`, 0.01538668595519807}, {0, 0}], Scaled[{-0.025767959315167968`, 0.013342686284735068`}, { 0, 0}], Scaled[{-0.02591718690011796, 0.011256212015035922`}, {0, 0}], Scaled[{-0.025917186900117985`, -0.011256212015035917`}, {0, 0}], Scaled[{-0.025767959315167996`, -0.013342686284735065`}, { 0, 0}], Scaled[{-0.02532331440361077, -0.015386685955198074`}, {0, 0}], Scaled[{-0.024592303853595593`, -0.017346601087542612`}, {0, 0}], Scaled[{-0.023589808931860426`, -0.019182533461602667`}, { 0, 0}], Scaled[{-0.022336237544055157`, -0.020857108788634143`}, {0, 0}], Scaled[{-0.020857108788634143`, -0.022336237544055153`}, { 0, 0}], Scaled[{-0.019182533461602667`, -0.023589808931860416`}, {0, 0}], Scaled[{-0.017346601087542612`, -0.024592303853595582`}, { 0, 0}], Scaled[{-0.01538668595519807, -0.025323314403610755`}, {0, 0}], Scaled[{-0.013342686284735068`, -0.025767959315167968`}, {0, 0}], Scaled[{-0.011256212015035922`, -0.02591718690011796}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.012833333333333334`], AbsoluteThickness[1.6], GrayLevel[0.5]]}], TraditionalForm], {0., 0.}], {{{1., 3.}}, {{2., 4.}}, {{3., 5.}}, {{ 4., 6.}}, {{5., 7.}}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0, 1, 0]], PolygonBox[{ Scaled[{-0.007360237873570702, -0.03170939916563126}, {0, 0}], Scaled[{-0.007589860276353318, -0.02903595407837984}, {0, 0}], Scaled[{-0.00827200130989276, -0.02644082042232855}, {0, 0}], Scaled[{-0.009386679475084543, -0.02400001570452479}, {0, 0}], Scaled[{-0.010901243253159882`, -0.021785036778089927`}, {0, 0}], Scaled[{-0.012771327544693118`, -0.01986076553292488}, {0, 0}], Scaled[{-0.014942153226659365`, -0.018283568354090163`}, \ {0, 0}], Scaled[{-0.01735013176049037, -0.017099645019149307`}, {0, 0}], Scaled[{-0.019924727848422703`, -0.016343675399116898`}, {0, 0}], Scaled[{-0.022590525576596868`, -0.016037803604291235`}, { 0, 0}], Scaled[{-0.025269437522765493`, -0.016190989331705475`}, {0, 0}], Scaled[{-0.027882992118702266`, -0.016798745414740617`}, { 0, 0}], Scaled[{-0.03243186928985321, -0.002798741032457034}, {0, 0}], Scaled[{-0.029960229143414525`, -0.0017542171845143781`}, {0, 0}], Scaled[{-0.027702903541094254`, \ -0.00030352210714014373`}, {0, 0}], Scaled[{-0.025726014805525978`, 0.0015108499631893346`}, {0, 0}], Scaled[{-0.024087470610573657`, 0.003635751844123244}, {0, 0}], Scaled[{-0.022835267730737453`, 0.006008940212150177}, { 0, 0}], Scaled[{-0.022006086103877512`, 0.008560898854465196}, {0, 0}], Scaled[{-0.02162421439043197, 0.011216874960697815`}, {0, 0}], Scaled[{-0.02170083850200132, 0.013899068806775057`}, {0, 0}], Scaled[{-0.022233713939953423`, 0.016528912689981013`}, {0, 0}], Scaled[{-0.023207231542014317`, 0.019029372359898933`}, {0, 0}], Scaled[{-0.02459287471097412, 0.02132720353096513}, {0, 0}], Scaled[{-0.0126837596662525, 0.029979682081863843`}, {0, 0}], Scaled[{-0.010926579645012006`, 0.027951788234700816`}, { 0, 0}], Scaled[{-0.008849334665563306, 0.02625323344377896}, {0, 0}], Scaled[{-0.006512872069813526, 0.02493377233367733}, {0, 0}], Scaled[{-0.003985632287188818, 0.0240320549924182}, {0, 0}], Scaled[{-0.0013416440551063038`, 0.023574494820399694`}, {0, 0}], Scaled[{0.0013416440551063183`, 0.023574494820399694`}, { 0, 0}], Scaled[{0.003985632287188833, 0.0240320549924182}, {0, 0}], Scaled[{0.006512872069813543, 0.024933772333677332`}, {0, 0}], Scaled[{0.008849334665563324, 0.02625323344377896}, {0, 0}], Scaled[{0.01092657964501202, 0.02795178823470082}, {0, 0}], Scaled[{0.012683759666252514`, 0.029979682081863846`}, {0, 0}], Scaled[{0.024592874710974124`, 0.021327203530965136`}, {0, 0}], Scaled[{0.023207231542014317`, 0.01902937235989894}, {0, 0}], Scaled[{0.022233713939953423`, 0.01652891268998102}, {0, 0}], Scaled[{0.021700838502001316`, 0.013899068806775067`}, {0, 0}], Scaled[{0.02162421439043196, 0.011216874960697822`}, {0, 0}], Scaled[{0.022006086103877498`, 0.0085608988544652}, {0, 0}], Scaled[{0.022835267730737435`, 0.006008940212150177}, {0, 0}], Scaled[{0.024087470610573633`, 0.003635751844123239}, {0, 0}], Scaled[{0.025726014805525957`, 0.001510849963189326}, {0, 0}], Scaled[{0.027702903541094233`, -0.0003035221071401568}, {0, 0}], Scaled[{0.029960229143414504`, -0.0017542171845143948`}, {0, 0}], Scaled[{0.0324318692898532, -0.0027987410324570557`}, {0, 0}], Scaled[{0.027882992118702266`, -0.01679874541474066}, {0, 0}], Scaled[{0.025269437522765503`, -0.01619098933170551}, {0, 0}], Scaled[{0.02259052557659688, -0.016037803604291263`}, {0, 0}], Scaled[{0.019924727848422717`, -0.01634367539911692}, {0, 0}], Scaled[{0.01735013176049038, -0.017099645019149325`}, {0, 0}], Scaled[{0.01494215322665937, -0.018283568354090174`}, {0, 0}], Scaled[{0.012771327544693121`, -0.019860765532924887`}, { 0, 0}], Scaled[{0.010901243253159876`, -0.021785036778089933`}, {0, 0}], Scaled[{0.009386679475084536, -0.0240000157045248}, {0, 0}], Scaled[{0.00827200130989275, -0.02644082042232856}, {0, 0}], Scaled[{0.007589860276353304, -0.02903595407837985}, {0, 0}], Scaled[{0.007360237873570687, -0.03170939916563127}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.012833333333333334`], AbsoluteThickness[1.6], GrayLevel[0.5]]}], TraditionalForm], {0., 0.}], {{{1., 5.}}, {{2., 6.}}, {{3., 7.}}, {{ 4., 8.}}, {{5., 9.}}}]}, {GrayLevel[0.5], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], GeometricTransformationBox[InsetBox[ FormBox[ StyleBox[ GraphicsBox[ {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.6, 0.4, 0.2]], PolygonBox[{ Scaled[{-0.003954293571826044, -0.03424518687222883}, {0, 0}], Scaled[{-0.004240130516820452, -0.031251766956091005`}, {0, 0}], Scaled[{-0.005087310459870683, -0.028366537035001922`}, {0, 0}], Scaled[{-0.006465214110529087, -0.02569377683570297}, {0, 0}], Scaled[{-0.008324040440767925, -0.023330086875605602`}, { 0, 0}], Scaled[{-0.010596606623887603`, -0.021360897068401843`}, {0, 0}], Scaled[{-0.013200776196916734`, -0.019857379064398044`}, { 0, 0}], Scaled[{-0.01604242768638841, -0.01887387392163685}, {0, 0}], Scaled[{-0.019018856403622376`, -0.0184459280784753}, {0, 0}], Scaled[{-0.022022486459768426`, -0.01858900861268728}, {0, 0}], Scaled[{-0.02494475883871566, -0.01929794422097367}, {0, 0}], Scaled[{-0.027680055002782502`, -0.02054711212333729}, {0, 0}], Scaled[{-0.03163434857460856, -0.013698074748891531`}, {0, 0}], Scaled[{-0.029184889355536127`, -0.011953822735117331`}, {0, 0}], Scaled[{-0.027109796919639124`, -0.009777528422314637}, { 0, 0}], Scaled[{-0.025484070514151476`, -0.00724784875722767}, {0, 0}], Scaled[{-0.024366468127156347`, -0.00445621295396875}, {0, 0}], Scaled[{-0.02379738282080435, -0.0015035180040037946`}, {0, 0}], Scaled[{-0.02379738282080435, 0.0015035180040038065`}, {0, 0}], Scaled[{-0.024366468127156354`, 0.00445621295396876}, {0, 0}], Scaled[{-0.025484070514151486`, 0.007247848757227678}, {0, 0}], Scaled[{-0.02710979691963913, 0.009777528422314646}, {0, 0}], Scaled[{-0.029184889355536134`, 0.011953822735117338`}, {0, 0}], Scaled[{-0.03163434857460856, 0.01369807474889154}, {0, 0}], Scaled[{-0.027680055002782505`, 0.020547112123337305`}, {0, 0}], Scaled[{-0.024944758838715667`, 0.019297944220973685`}, {0, 0}], Scaled[{-0.02202248645976844, 0.018589008612687294`}, {0, 0}], Scaled[{-0.01901885640362239, 0.01844592807847531}, {0, 0}], Scaled[{-0.016042427686388423`, 0.01887387392163686}, {0, 0}], Scaled[{-0.013200776196916751`, 0.01985737906439805}, {0, 0}], Scaled[{-0.01059660662388762, 0.021360897068401854`}, {0, 0}], Scaled[{-0.008324040440767946, 0.023330086875605612`}, {0, 0}], Scaled[{-0.00646521411052911, 0.02569377683570298}, {0, 0}], Scaled[{-0.005087310459870707, 0.02836653703500193}, {0, 0}], Scaled[{-0.004240130516820479, 0.03125176695609101}, {0, 0}], Scaled[{-0.00395429357182607, 0.03424518687222883}, {0, 0}], Scaled[{0.003954293571826043, 0.03424518687222883}, {0, 0}], Scaled[{0.004240130516820451, 0.031251766956091005`}, {0, 0}], Scaled[{0.005087310459870683, 0.028366537035001922`}, {0, 0}], Scaled[{0.006465214110529087, 0.02569377683570297}, {0, 0}], Scaled[{0.008324040440767925, 0.023330086875605602`}, {0, 0}], Scaled[{0.010596606623887603`, 0.021360897068401843`}, {0, 0}], Scaled[{0.013200776196916734`, 0.019857379064398044`}, { 0, 0}], Scaled[{0.01604242768638841, 0.01887387392163685}, {0, 0}], Scaled[{0.019018856403622376`, 0.018445928078475306`}, {0, 0}], Scaled[{0.022022486459768426`, 0.018589008612687287`}, {0, 0}], Scaled[{0.02494475883871566, 0.019297944220973678`}, {0, 0}], Scaled[{0.027680055002782502`, 0.02054711212333729}, {0, 0}], Scaled[{0.03163434857460856, 0.013698074748891535`}, {0, 0}], Scaled[{0.029184889355536127`, 0.011953822735117334`}, {0, 0}], Scaled[{0.027109796919639124`, 0.009777528422314639}, {0, 0}], Scaled[{0.025484070514151476`, 0.007247848757227672}, {0, 0}], Scaled[{0.024366468127156347`, 0.004456212953968751}, {0, 0}], Scaled[{0.02379738282080435, 0.0015035180040037968`}, {0, 0}], Scaled[{0.02379738282080435, -0.0015035180040038044`}, {0, 0}], Scaled[{0.024366468127156354`, -0.004456212953968758}, {0, 0}], Scaled[{0.025484070514151486`, -0.007247848757227677}, {0, 0}], Scaled[{0.02710979691963913, -0.009777528422314642}, {0, 0}], Scaled[{0.029184889355536134`, -0.011953822735117334`}, {0, 0}], Scaled[{0.03163434857460856, -0.013698074748891535`}, {0, 0}], Scaled[{0.027680055002782505`, -0.020547112123337305`}, {0, 0}], Scaled[{0.024944758838715667`, -0.01929794422097368}, {0, 0}], Scaled[{0.02202248645976844, -0.01858900861268729}, {0, 0}], Scaled[{0.01901885640362239, -0.018445928078475306`}, {0, 0}], Scaled[{0.016042427686388423`, -0.018873873921636853`}, {0, 0}], Scaled[{0.013200776196916751`, -0.01985737906439805}, {0, 0}], Scaled[{0.01059660662388762, -0.021360897068401854`}, {0, 0}], Scaled[{0.008324040440767946, -0.023330086875605612`}, {0, 0}], Scaled[{0.00646521411052911, -0.02569377683570298}, {0, 0}], Scaled[{0.005087310459870707, -0.02836653703500193}, {0, 0}], Scaled[{0.004240130516820477, -0.03125176695609101}, {0, 0}], Scaled[{0.003954293571826069, -0.03424518687222883}, {0, 0}]}]}, AlignmentPoint->{0, 0}, ImagePadding->All, PlotRange->All], StripOnInput->False, GraphicsBoxOptions->{DefaultBaseStyle->Directive[ PointSize[0.012833333333333334`], AbsoluteThickness[1.6], GrayLevel[0.5]]}], TraditionalForm], {0., 0.}], {{{1., 7.}}, {{2., 8.}}, {{3., 9.}}, {{ 4., 10.}}, {{5., 11.}}}]}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->450, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0., 6.}, {0., 12.}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{{{0., FormBox["0", TraditionalForm], {0.01, 0.}}, {1., FormBox["1", TraditionalForm], {0.01, 0.}}, {2., FormBox["2", TraditionalForm], {0.01, 0.}}, {3., FormBox["3", TraditionalForm], {0.01, 0.}}, {4., FormBox["4", TraditionalForm], {0.01, 0.}}, {5., FormBox["5", TraditionalForm], {0.01, 0.}}, {6., FormBox["6", TraditionalForm], {0.01, 0.}}, {0.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {2.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {2.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {2.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {2.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {4.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {4.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {4.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {4.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5.2, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5.4, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5.6, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5.8, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{ 0., FormBox["0", TraditionalForm], {0.01, 0.}}, {2., FormBox["2", TraditionalForm], {0.01, 0.}}, {4., FormBox["4", TraditionalForm], {0.01, 0.}}, {6., FormBox["6", TraditionalForm], {0.01, 0.}}, {8., FormBox["8", TraditionalForm], {0.01, 0.}}, {10., FormBox["10", TraditionalForm], {0.01, 0.}}, {12., FormBox["12", TraditionalForm], {0.01, 0.}}, {0.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {1.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {2.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {3.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {4.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {5.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {6.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {7., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {7.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {8.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {9., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {9.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 10.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {11., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.5, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, TaggingRules->{"AttachedInlineCell" -> CellObject[7547473]}, CellChangeTimes->{ 3.835305515076285*^9, 3.8353067782697706`*^9, 3.835307484052491*^9, 3.835310687663142*^9, {3.836431166064726*^9, 3.836431190799941*^9}, 3.840476122781287*^9, 3.8461539284441643`*^9}, CellLabel->"Out[192]=", CellID->630153579] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell["Alexey Popkov", "Text", CellID->845256447] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell["plot marker", "Item", CellID->516170580], Cell["plotting", "Item", CellID->995552388], Cell["scatter plot", "Item", CellID->433949635], Cell["list plot", "Item", CellID->177509137], Cell["publication quality", "Item", CellID->545605069] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell["Visualization & Graphics", "Item", CellID->891139041] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell["PlotMarkers", "Item", CellID->839104762], Cell["Graphics", "Item", CellID->608207214], Cell["ListPlot", "Item", CellID->612539941], Cell["ListLinePlot", "Item", CellID->525468651], Cell["ListLogPlot", "Item", CellID->139419549], Cell["ListLogLogPlot", "Item", CellID->210364025], Cell["ListLogLinearPlot", "Item", CellID->524042226], Cell["ListPolarPlot", "Item", CellID->674468960], Cell["ListStepPlot", "Item", CellID->147229954], Cell["StackedListPlot", "Item", CellID->179398912], Cell["ComplexListPlot", "Item", CellID->25360923], Cell["WaveletListPlot", "Item", CellID->968747839], Cell["DateListPlot", "Item", CellID->402781220], Cell["StackedDateListPlot", "Item", CellID->96747987] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell["RoundedPolygon", "Item", CellID->770884843], Cell["NotchedPolygon", "Item", CellID->6933307], Cell["SymbolToPolygon", "Item", CellID->43799520], Cell["CharacterCurves", "Item", CellID->334011149] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell["\<\ PolygonMarker. Plot markers carefully designed for creation of \ publication-quality plots. / Alexey Popkov // Wolfram Function Repository \ (2021)[Electronic resource.] \[Dash] URL: \ https://resources.wolframcloud.com/FunctionRepository/resources/PolygonMarker.\ \>", "Text", CellID->19433208], Cell["\<\ PolygonPlotMarkers. Polygon-based plot markers for Wolfram Mathematica. / \ Alexey Popkov // GitHub (2021)[Electronic resource.] \[Dash] URL: \ https://github.com/AlexeyPopkov/PolygonPlotMarkers.\ \>", "Text", CellID->166042303], Cell["\<\ Cleveland, W.S. 1985. The Elements of Graphing Data. Wadsworth, Monterey, CA, \ USA.\ \>", "Text", CellID->59307670] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[TextData[ButtonBox["Alexey Popkov, \"How can we make publication-quality \ PlotMarkers without version 10?\", (2017), Mathematica StackExchange.", BaseStyle->"Hyperlink", ButtonData->{ URL["https://mathematica.stackexchange.com/a/85094/280"], None}, ButtonNote->"https://mathematica.stackexchange.com/a/85094/280"]], "Item", CellID->115057006], Cell[TextData[ButtonBox["Alexey Popkov, \"How to make plot marker sizes for \ scientific plots seem consistent?\", (2014), Graphic Design StackExchange.", BaseStyle->"Hyperlink", ButtonData->{ URL["https://graphicdesign.stackexchange.com/q/36730/946"], None}, ButtonNote->"https://graphicdesign.stackexchange.com/q/36730/946"]], "Item", CellID->290120652], Cell[TextData[ButtonBox["Alexey Popkov, \"Best plotting symbols for \ scientific plots with multiple datasets\", (2014), Graphic Design \ StackExchange.", BaseStyle->"Hyperlink", ButtonData->{ URL["https://graphicdesign.stackexchange.com/q/36908/946"], None}, ButtonNote->"https://graphicdesign.stackexchange.com/q/36908/946"]], "Item", CellID->557166111], Cell[TextData[ButtonBox["Alexey Popkov, \"Where can I find a large palette / \ set of contrasting colors for coloring many datasets on a plot?\", (2014), \ Graphic Design StackExchange.", BaseStyle->"Hyperlink", ButtonData->{ URL["https://graphicdesign.stackexchange.com/q/3682/946"], None}, ButtonNote->"https://graphicdesign.stackexchange.com/q/3682/946"]], "Item", CellID->481277245], Cell[TextData[ButtonBox["Alexey Popkov, \"How can I adaptively simplify a \ curved shape?\", (2017), Mathematica StackExchange.", BaseStyle->"Hyperlink", ButtonData->{ URL["https://mathematica.stackexchange.com/q/137937/280"], None}, ButtonNote->"https://mathematica.stackexchange.com/q/137937/280"]], "Item", CellID->42503407] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Generate", " ", "a", " ", "random", " ", "polygon", " ", "plot", " ", "marker", " ", "of", " ", "random", " ", "size"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"size", "=", RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{"1", ",", "10"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"PolygonMarker", "[", RowBox[{ RowBox[{ RowBox[{"RandomPolygon", "[", "\"\\"", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "size"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "The", " ", "centroid", " ", "of", " ", "returned", " ", "polygon", " ", "is", " ", "always", " ", "placed", " ", "at", " ", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Chop", "[", RowBox[{"centroid", "=", RowBox[{"RegionCentroid", "[", "p", "]"}]}], "]"}], "==", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"The", " ", "polygon", " ", "has", " ", "area", " ", SuperscriptBox["size", "2"]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Area", "[", "p", "]"}], "\[Equal]", SuperscriptBox["size", "2"]}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Visualize", " ", "the", " ", "polygon", " ", "and", " ", "its", " ", "centroid"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"LightBlue", ",", "p", ",", "Red", ",", RowBox[{"PointSize", "[", "Large", "]"}], ",", RowBox[{"Point", "[", "centroid", "]"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}]}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.835228101829264*^9, {3.83522817121355*^9, 3.8352281815489073`*^9}, { 3.835228299021614*^9, 3.8352283014919167`*^9}, {3.835306934879032*^9, 3.8353069378642817`*^9}, {3.835309541262156*^9, 3.835309550124896*^9}, { 3.8364295853012896`*^9, 3.8364296423441343`*^9}}, CellID->981483510], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.8364295523163776`*^9, 3.8364296865399218`*^9}}, CellID->661045763], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.8364295523163776`*^9, 3.836429686549922*^9}}, CellID->661045764], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.87, 0.94, 1], PolygonBox[{{-4.340469657233872, -3.924406136054409}, {2.923157574167116, 0.12383008862584816`}, {3.4537001868851336`, 0.7809067972220083}, { 1.993866897578106, 0.5468155699336766}, {-0.255639957331761, 0.9829203555741567}, {0.3727584813190999, 3.640657280674401}, {-1.5043675666120444`, 0.9978855506962283}, {-1.6175632888620453`, -2.260594069713196}}]}, {RGBColor[1, 0, 0], PointSize[Large], PointBox[{1.916068029678858*^-15, 3.9570970178150325`*^-16}]}}, Axes->True]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8364295523163776`*^9, 3.836429686557924*^9}}, CellID->483900628] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[TextData[{ "The original (author\[CloseCurlyQuote]s) version of the package which \ contains all the general-purpose functions used to generate the shapes can be \ found at ", ButtonBox["https://github.com/AlexeyPopkov/PolygonPlotMarkers", BaseStyle->"Hyperlink", ButtonData->{ URL["https://github.com/AlexeyPopkov/PolygonPlotMarkers"], None}, ButtonNote->"https://github.com/AlexeyPopkov/PolygonPlotMarkers"], ". " }], "Text", TaggingRules->{}, CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.8364294437962403`*^9, 3.8364295162867565`*^9}}, CellTags->{"DefaultContent", "TabNext"}, CellID->720931406] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->932041030] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"PolygonMarker | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ ByteArray[CompressedData[" 1:eJwBdgiJ9yFib1JiAQAAAGkIAAA4Qzp4nK1ba3MbtxWtZavjyTiZOpMPnXza tGzrtGleTtL0MU0kUrLZkWhJSzlfDe5ekqiwCxbAimL/WP9eL/ZFErsg7w7j 0Yz52HMOHhcX916A0yP9YV8mC5ml8dnDQoHWXKbTR/r4OuNgpkf6aDjFt0/P GReZgmt8/f4ViwSYYaoNEyL89QCmPOUGcSNpYCLlXV9wSC3Ywz0CiHX44ga0 zFQE4UobSArQuybbuylrJTrS74VgBiDYCum+9DXjXX8O0V3zW/0DVd9D4DTg xe4GnEt1u4iZwcb/pZPwGugI/tEvKHh0N5Z9uVidZsbIVP+VLOlCHdGeX1QK AZF5zVOjX5Ll1iBH6Pc7hJIE/0f7A2X0a6rUQEaZxTH76VhKobeZuuqP5Wwm 4OfQL5gc/U926KcGHsy1/mqP9K3hAl+AriGOxhd+jUwp2zJIFgJN7y0ou+T0 P8nz2op35F965ddfVAwXMsoHTp+Sx9vLQV64+ARPuAFV2tq/Dphrh8tpwx92 tGEh5KoS1t/Ru7+JI7uOAddsIgAbucB1ybu4jgaUvKIQiRO0Co3iC9DfdhBc wxyxb7xiZ//J+D0T+LLSuVJygVOyutZ9qvQOEqchn/obggQZM3bM+iCE1t+T 1R0k2aDPHiKR6dwmc+d1iEE7XGSDPs8waFglEylGLIG9m+HaiW0DHb0/7dBL c2u84OlduRteHtDtJh15wl9BCoqJt0xw3M+lok+4iySvrFdgToSwRjIcaPrK 2oI5Yr/ZJVZC9u1Mm0IFhGzCiHjN4xhSu+zTGT2YcoCOYOAVtLEJxNf6C6pQ CXAEPvMKDGepVBDbcbhiBneIVOu/U8VawI7wV37hfCeqlN5M/o1uexjh+viR rO5hIC/O9WZRrSv9tw7iDtaR/Z1X9sJuxEwM00Vm9KsDvMEmETm4upAsbslH yMFVO96R/9wrf4kfJ0xYd7p+Zq/62g+34slOYiTLYFR/TVasMeRkZCTDOYvl 0nqIbzro1Chydlm9PZUPNxhysQisiWh6dukhcBrw3d4G2AwZLXNiO7MagzZ9 GYM+69qMVhpy+Fi9fZOZAcvdJjl8bEAd0T/vFa2UxiuMIv/RVXcT3Xn23USp 8+zvzpT8McWV1JrbOLBKCveN99raXSjZfyHQYLiL2YgOI8UWEA/TqaT7r3Y8 OQK4UnDPYVmnROQIwAHS+5tNBNdzTN0GfQW597+9uejQ31a8I/+tV/4GZhwF 1ElmZJjNZrgm681SD6iN2MVCjhgqkgr55h6U4uhmyBGDj4G82CuCrSCQvNjb 0OSoYQ1G/7xvV2mRbNS4/Mt6EzS2myU5VXCR5JpLBWwJychp4pXCrNjADq7O ppZ7CJylujGdTc1l6DwiFUGZ4qPvpFeh/Bydm1Fmf5sT07kZTQ7yVofBidQc k89VQaaKehx9q/MQOA342tuAkN3DVgheR84n1CZ4KciBZbFhnUyk6lDl3gCR yyQFpnvdbxtHH9wtmN2PVVLMD31wfRTkakXBEJaFR3K1YgtGDiPwofJQ6wLu QdDDCAdI3j7CuVzi8p/Z8yv69rGJIruMEL0un66Kc6MypBxwJuSM7jL8HGSX ERqWxkzF/L9QxbfnXADdZXgIyOWFYoPfyvYPqf016chFngJadaJoyujgpmzx 0X1YNqly8A7J8QaKHMYgJuFm7fjpYYyLJAfrLrA8OyUH6+14ulfJJjpSfGF+ hiMjh4tcsSyK5Nf6S/rcFgiyBY3Lgx7bw/MDerjB42j/drf2JahZh+KGTzqn IW/JOeRGLsuODw9Vr6nIxbMcFtrYg5z3+cTDZjDi35i3/dYhR967PNb3O/R1 46CtPoLD6Ihcwt1DRB+Q/MzLdmnCFD1S2YKRY7PbdJjOQfH8qGTMZjP0/DcZ 7qP02MxLQc7HCj/YUrYm52M+BvI4vOWwPDAB8FKQN3LLcPbA0Iqhlief1rSA OwmHZiXgVcZjEDyFDsdELWCys/+Jm3m189PDhQ0UubbTO+UmYYtLNkv5lJcX Psierio+tLGQg/ReeSfHFuv0J63Sm4+QQ2Ec3kk2qz5c1+/IobCHgFyZL/Bl 5S+XJlfmG1Dyjtkr74TEecmMnsRu4+h9zO8kxBDX4e2+w8S1vTaw5CSj1zjX pydZtc02OOhjvFUJ7TDGWzh6b8sT541iGPnEtoklZxK9YZpPT7n2OlyWcZGd JSvD6C5ZIekGfMG0Kc9EiiVD3tlqS3Ip6P21yHWBsMsQO0i6MV2yh7yRY1le 5upgTA0sXbY6dVj7YbpsA0tOTXvFTbWqmlP1mJyatuPpxmVjb6mYWlUuroN3 dLF01dqlvVkUQ93dpF2K6aP8Svq6gm0vqR/pxyepXWpPLmyB7YNeWbMaZckE Z+xl/u/Fj4h81p9LHkFRzAr/92g85zpIS9WALRaAMX1gZDCBILIHdhAHUyWT gAUpLEEF9wXzZ4GW+JdAMMWHMpyTIGEryxQspUImHcCDPf+A+PNgIIOVzIIl 13NLbdQqYJmRtkIaMSFWQSTTe+sU01lgthqETzP8tjiWF1Cp/4BdPT4VMrqb PsY+c2300141s8+qV1fMzPUHOJLFZdx8CqfHnvv0j8P8yv+z8vYuDnsGOF5P QiFN/1E+tFbm2WYCEb4fYiSd6UtkYTP7+PPKQIdpbMOv/Lrak/zh907ywWWY aoVPRxDd2esO+Wz+sihBhB8XPy64ZCmSqXfFuyJzCD9qMxwy+leVvdS18fqX CD33q9ZfIRxvCH3aQHizm63xs6MQPs9PgWEEyzqDOD5nQkP9xMc3kMh7OEsW mJ4W+UJVFXcf/cgOaRrfpnOWxqK4Cab1k7HK1s88Lxr3E09juRxzgzNRsvxC f1heJt1o8v8BGs6SpF7eUus= "]]]], "CreationTimestamp" -> 3.846156957706971`16.337601992534886*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.846156957789845`16.337601992544244*^9, "VersionInformation" -> {"ResourceVersion" -> "3.0.1"}, "TemplateVersion" -> "1.5.0", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ParentCell[ EvaluationCell[]], { TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ReleaseHold[#3], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]])& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]])& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]])& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]])& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Preview\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "In a notebook"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"On the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "On the cloud"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Cloud"]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]])& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]])& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[ RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPnQeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPAsWu mjNdNmVARkARoDhc2aswqWtWLGhqIAgoDpSFuBao5QqGURB0BWwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAMJyEaA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotcmIc7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2cswqY2GnGhqIAgoDpSFuBaoZTWGURC0GmwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAJxlBG4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nb99I5gU7gaCAKKAMWBshDXArV8unUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBBtDmK "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "12.3 for Linux x86 (64-bit) (July 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[629, 23, 96, 2, 70, "Title",ExpressionUUID->"8a87ec33-b410-4fb9-888c-10058bf3a1e9", CellTags->{"Name", "TemplateCell", "Title"}, CellID->778310631]}, "TemplateCell"->{ Cell[629, 23, 96, 2, 70, "Title",ExpressionUUID->"8a87ec33-b410-4fb9-888c-10058bf3a1e9", CellTags->{"Name", "TemplateCell", "Title"}, CellID->778310631], Cell[728, 27, 162, 4, 70, "Text",ExpressionUUID->"837600e6-06c1-4f28-8d3e-b12d8be65254", CellTags->{"Description", "TemplateCell"}, CellID->42562060]}, "Title"->{ Cell[629, 23, 96, 2, 70, "Title",ExpressionUUID->"8a87ec33-b410-4fb9-888c-10058bf3a1e9", CellTags->{"Name", "TemplateCell", "Title"}, CellID->778310631]}, "Description"->{ Cell[728, 27, 162, 4, 70, "Text",ExpressionUUID->"837600e6-06c1-4f28-8d3e-b12d8be65254", CellTags->{"Description", "TemplateCell"}, CellID->42562060]}, "Definition"->{ Cell[915, 35, 1104, 27, 70, "Section",ExpressionUUID->"929d3656-5ba0-4e23-84f6-ab1a606a7394", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "Function"->{ Cell[915, 35, 1104, 27, 70, "Section",ExpressionUUID->"929d3656-5ba0-4e23-84f6-ab1a606a7394", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "TemplateCellGroup"->{ Cell[915, 35, 1104, 27, 70, "Section",ExpressionUUID->"929d3656-5ba0-4e23-84f6-ab1a606a7394", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[145101, 3897, 1880, 48, 70, "Subsection",ExpressionUUID->"0db3dd44-39cc-4a7c-a12d-5ef5434ea122", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[152086, 4143, 1329, 30, 70, "Subsection",ExpressionUUID->"c4e8135e-c716-495f-a3cb-761e91e3b729", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[166985, 4636, 6926, 150, 70, "Section",ExpressionUUID->"cf8f442a-3832-48a4-8ab2-659548c57232", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[864013, 20033, 918, 24, 70, "Subsection",ExpressionUUID->"fd8ef120-0cfd-43b8-872e-e82064fb4676", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[865020, 20065, 893, 24, 70, "Subsection",ExpressionUUID->"5f232f3b-d13b-4d1a-ab4a-22a6e55b5173", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[866204, 20109, 167, 5, 70, "Subsection",ExpressionUUID->"acd7db3a-a239-4cc8-a160-18b856e91248", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[866471, 20122, 870, 24, 70, "Subsection",ExpressionUUID->"96a0631f-a5ab-49ad-8f0a-ef57cf6f74ac", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[868104, 20193, 919, 24, 70, "Subsection",ExpressionUUID->"d2f87e41-1c80-4a07-a111-2de4600c2533", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[869271, 20234, 971, 25, 70, "Subsection",ExpressionUUID->"af1348ee-1987-4a07-aecc-a8102451cc43", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[870960, 20285, 823, 24, 70, "Subsection",ExpressionUUID->"7293055f-3bae-4149-a436-a2c204ac0aa4", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[873641, 20356, 1762, 43, 70, "Subsection",ExpressionUUID->"6c12f4a7-2e0f-4238-847e-8e47a98688ad", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[878713, 20492, 1048, 26, 70, "Section",ExpressionUUID->"fe6fd868-e538-469c-85ae-deed5b55a650", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[880794, 20545, 929, 25, 70, "Section",ExpressionUUID->"1f7f5923-894a-4df9-8790-05505a828163", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]}, "Documentation"->{ Cell[144939, 3889, 137, 4, 70, "Section",ExpressionUUID->"fb69b1d0-e9ae-4ad5-a5e8-0f5a2126d33f", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535]}, "TemplateSection"->{ Cell[144939, 3889, 137, 4, 70, "Section",ExpressionUUID->"fb69b1d0-e9ae-4ad5-a5e8-0f5a2126d33f", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[863814, 20025, 174, 4, 70, "Section",ExpressionUUID->"8250d344-ea0c-4956-a04f-1c06e2fb7f37", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Usage"->{ Cell[145101, 3897, 1880, 48, 70, "Subsection",ExpressionUUID->"0db3dd44-39cc-4a7c-a12d-5ef5434ea122", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898]}, "Details & Options"->{ Cell[152086, 4143, 1329, 30, 70, "Subsection",ExpressionUUID->"c4e8135e-c716-495f-a3cb-761e91e3b729", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "Notes"->{ Cell[152086, 4143, 1329, 30, 70, "Subsection",ExpressionUUID->"c4e8135e-c716-495f-a3cb-761e91e3b729", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "TabNext"->{ Cell[154987, 4228, 1270, 42, 70, "Notes",ExpressionUUID->"728597b0-a10b-43e0-ad82-fa54c14176a3", CellTags->"TabNext", CellID->235169085], Cell[156260, 4272, 1567, 51, 70, "Notes",ExpressionUUID->"91a1a2a0-a1c5-4005-b0b6-0cf717681999", CellTags->"TabNext", CellID->967662457], Cell[157830, 4325, 945, 32, 70, "Notes",ExpressionUUID->"1a97de10-d12c-4a6d-b88d-7870610bad3b", CellTags->"TabNext", CellID->627807258], Cell[158778, 4359, 1335, 44, 70, "Notes",ExpressionUUID->"a970751a-5870-4a62-9f2e-a457002e97d9", CellTags->"TabNext", CellID->509465647], Cell[160116, 4405, 1439, 46, 70, "Notes",ExpressionUUID->"a07bd314-a08e-4ff5-b83b-c32f5f5f3ae7", CellTags->"TabNext", CellID->997822928], Cell[161558, 4453, 1239, 41, 70, "Notes",ExpressionUUID->"7dcacde4-26fc-47da-b083-ca76969353b7", CellTags->"TabNext", CellID->305742479], Cell[162800, 4496, 3363, 108, 70, "Notes",ExpressionUUID->"6b102107-c77a-44ba-8ebc-5cac00ea7cf5", CellTags->"TabNext", CellID->635133278], Cell[166166, 4606, 770, 24, 70, "Notes",ExpressionUUID->"527282b5-bc15-47c4-8675-4f1d3e2f5fd8", CellTags->"TabNext", CellID->489690143], Cell[879764, 20520, 993, 20, 70, "Text",ExpressionUUID->"5596649c-cf80-4b77-b030-1152729caca7", CellTags->{"DefaultContent", "TabNext"}, CellID->720931406], Cell[881726, 20572, 495, 8, 70, "Text",ExpressionUUID->"ed4eda25-55b4-4694-a18e-d1a701080d17", CellTags->"TabNext", CellID->932041030]}, "Examples"->{ Cell[166985, 4636, 6926, 150, 70, "Section",ExpressionUUID->"cf8f442a-3832-48a4-8ab2-659548c57232", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657]}, "Source & Additional Information"->{ Cell[863814, 20025, 174, 4, 70, "Section",ExpressionUUID->"8250d344-ea0c-4956-a04f-1c06e2fb7f37", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Contributed By"->{ Cell[864013, 20033, 918, 24, 70, "Subsection",ExpressionUUID->"fd8ef120-0cfd-43b8-872e-e82064fb4676", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "ContributorInformation"->{ Cell[864013, 20033, 918, 24, 70, "Subsection",ExpressionUUID->"fd8ef120-0cfd-43b8-872e-e82064fb4676", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "Keywords"->{ Cell[865020, 20065, 893, 24, 70, "Subsection",ExpressionUUID->"5f232f3b-d13b-4d1a-ab4a-22a6e55b5173", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136]}, "Categories"->{ Cell[866204, 20109, 167, 5, 70, "Subsection",ExpressionUUID->"acd7db3a-a239-4cc8-a160-18b856e91248", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420]}, "Related Symbols"->{ Cell[866471, 20122, 870, 24, 70, "Subsection",ExpressionUUID->"96a0631f-a5ab-49ad-8f0a-ef57cf6f74ac", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728]}, "Related Resource Objects"->{ Cell[868104, 20193, 919, 24, 70, "Subsection",ExpressionUUID->"d2f87e41-1c80-4a07-a111-2de4600c2533", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769]}, "Source/Reference Citation"->{ Cell[869271, 20234, 971, 25, 70, "Subsection",ExpressionUUID->"af1348ee-1987-4a07-aecc-a8102451cc43", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429]}, "Links"->{ Cell[870960, 20285, 823, 24, 70, "Subsection",ExpressionUUID->"7293055f-3bae-4149-a436-a2c204ac0aa4", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842]}, "Tests"->{ Cell[873641, 20356, 1762, 43, 70, "Subsection",ExpressionUUID->"6c12f4a7-2e0f-4238-847e-8e47a98688ad", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "VerificationTests"->{ Cell[873641, 20356, 1762, 43, 70, "Subsection",ExpressionUUID->"6c12f4a7-2e0f-4238-847e-8e47a98688ad", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "Author Notes"->{ Cell[878713, 20492, 1048, 26, 70, "Section",ExpressionUUID->"fe6fd868-e538-469c-85ae-deed5b55a650", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325]}, "DefaultContent"->{ Cell[879764, 20520, 993, 20, 70, "Text",ExpressionUUID->"5596649c-cf80-4b77-b030-1152729caca7", CellTags->{"DefaultContent", "TabNext"}, CellID->720931406]}, "Submission Notes"->{ Cell[880794, 20545, 929, 25, 70, "Section",ExpressionUUID->"1f7f5923-894a-4df9-8790-05505a828163", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 994111, 22719}, {"TemplateCell", 994293, 22723}, {"Title", 994627, 22730}, {"Description", 994808, 22734}, {"Definition", 994985, 22738}, {"Function", 995182, 22742}, {"TemplateCellGroup", 995388, 22746}, {"Documentation", 997973, 22789}, {"TemplateSection", 998168, 22793}, {"Usage", 998545, 22800}, {"Details & Options", 998742, 22804}, {"Notes", 998948, 22808}, {"TabNext", 999156, 22812}, {"Examples", 1000648, 22843}, {"Source & Additional Information", 1000860, 22847}, {"Contributed By", 1001074, 22851}, {"ContributorInformation", 1001311, 22855}, {"Keywords", 1001534, 22859}, {"Categories", 1001727, 22863}, {"Related Symbols", 1001926, 22867}, {"Related Resource Objects", 1002140, 22871}, {"Source/Reference Citation", 1002363, 22875}, {"Links", 1002568, 22879}, {"Tests", 1002753, 22883}, {"VerificationTests", 1002972, 22887}, {"Author Notes", 1003186, 22891}, {"DefaultContent", 1003385, 22895}, {"Submission Notes", 1003574, 22899} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[629, 23, 96, 2, 70, "Title",ExpressionUUID->"8a87ec33-b410-4fb9-888c-10058bf3a1e9", CellTags->{"Name", "TemplateCell", "Title"}, CellID->778310631], Cell[728, 27, 162, 4, 70, "Text",ExpressionUUID->"837600e6-06c1-4f28-8d3e-b12d8be65254", CellTags->{"Description", "TemplateCell"}, CellID->42562060], Cell[CellGroupData[{ Cell[915, 35, 1104, 27, 70, "Section",ExpressionUUID->"929d3656-5ba0-4e23-84f6-ab1a606a7394", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[2022, 64, 17355, 431, 70, "Input",ExpressionUUID->"569303b2-15ad-4941-9848-e8a3a6867122", InitializationCell->True, CellID->995464468], Cell[19380, 497, 123219, 3309, 70, "Input",ExpressionUUID->"4b9da7c6-b0da-474e-ae4d-840e550a5a6a", InitializationCell->True, CellID->310159008], Cell[142602, 3808, 596, 20, 70, "Input",ExpressionUUID->"fe9afb78-ad5c-49c0-86a1-1288f7d6e897", InitializationCell->True, CellID->245902922], Cell[143201, 3830, 530, 16, 70, "Input",ExpressionUUID->"06453184-6466-44db-8c3d-7a63332774df", InitializationCell->True, CellID->885086071], Cell[143734, 3848, 1168, 36, 70, "Input",ExpressionUUID->"fcf2350c-51fe-4053-9489-b267cef5813e", InitializationCell->True, CellID->338581762] }, Open ]], Cell[CellGroupData[{ Cell[144939, 3889, 137, 4, 70, "Section",ExpressionUUID->"fb69b1d0-e9ae-4ad5-a5e8-0f5a2126d33f", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[CellGroupData[{ Cell[145101, 3897, 1880, 48, 70, "Subsection",ExpressionUUID->"0db3dd44-39cc-4a7c-a12d-5ef5434ea122", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[147006, 3949, 168, 4, 70, "UsageInputs",ExpressionUUID->"a31e54b3-80b3-4436-8001-c1d71e2f8944", CellID->215500713], Cell[147177, 3955, 702, 22, 70, "UsageDescription",ExpressionUUID->"974f4fe3-660c-4616-afb8-6e67cc61eea4", CellID->562802546] }, Open ]], Cell[CellGroupData[{ Cell[147916, 3982, 348, 12, 70, "UsageInputs",ExpressionUUID->"f3ed5ae2-df0d-4d60-89ae-bc84521aa732", CellID->220183995], Cell[148267, 3996, 1017, 36, 70, "UsageDescription",ExpressionUUID->"bcf484a0-6d29-4af7-9757-fbf8a450d69a", CellID->54758936] }, Open ]], Cell[CellGroupData[{ Cell[149321, 4037, 199, 6, 70, "UsageInputs",ExpressionUUID->"b78d9dfa-cbf8-4580-8d2a-d72aa099d23d", CellID->201200412], Cell[149523, 4045, 287, 11, 70, "UsageDescription",ExpressionUUID->"d8f1e6b1-a4f8-44e0-ba20-bbc9ace6fb53", CellID->159169397] }, Open ]], Cell[CellGroupData[{ Cell[149847, 4061, 238, 7, 70, "UsageInputs",ExpressionUUID->"3a47afff-df82-4216-8cb7-175835e09662", CellID->908724205], Cell[150088, 4070, 1296, 43, 70, "UsageDescription",ExpressionUUID->"9bb4f708-0b16-4c86-98c1-224da9366e57", CellID->444063502] }, Open ]], Cell[CellGroupData[{ Cell[151421, 4118, 518, 16, 70, "UsageInputs",ExpressionUUID->"6d8ffcdc-35fd-45f8-a614-9bdafa466eaa", CellID->51531798], Cell[151942, 4136, 95, 1, 70, "UsageDescription",ExpressionUUID->"ae35763d-07e5-4300-85c7-2df9c1bbf014", CellID->394938740] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[152086, 4143, 1329, 30, 70, "Subsection",ExpressionUUID->"c4e8135e-c716-495f-a3cb-761e91e3b729", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[153418, 4175, 1566, 51, 70, "Notes",ExpressionUUID->"e0504300-89a1-4324-a79e-2365013ea111", CellID->365139115], Cell[154987, 4228, 1270, 42, 70, "Notes",ExpressionUUID->"728597b0-a10b-43e0-ad82-fa54c14176a3", CellTags->"TabNext", CellID->235169085], Cell[156260, 4272, 1567, 51, 70, "Notes",ExpressionUUID->"91a1a2a0-a1c5-4005-b0b6-0cf717681999", CellTags->"TabNext", CellID->967662457], Cell[157830, 4325, 945, 32, 70, "Notes",ExpressionUUID->"1a97de10-d12c-4a6d-b88d-7870610bad3b", CellTags->"TabNext", CellID->627807258], Cell[158778, 4359, 1335, 44, 70, "Notes",ExpressionUUID->"a970751a-5870-4a62-9f2e-a457002e97d9", CellTags->"TabNext", CellID->509465647], Cell[160116, 4405, 1439, 46, 70, "Notes",ExpressionUUID->"a07bd314-a08e-4ff5-b83b-c32f5f5f3ae7", CellTags->"TabNext", CellID->997822928], Cell[161558, 4453, 1239, 41, 70, "Notes",ExpressionUUID->"7dcacde4-26fc-47da-b083-ca76969353b7", CellTags->"TabNext", CellID->305742479], Cell[162800, 4496, 3363, 108, 70, "Notes",ExpressionUUID->"6b102107-c77a-44ba-8ebc-5cac00ea7cf5", CellTags->"TabNext", CellID->635133278], Cell[166166, 4606, 770, 24, 70, "Notes",ExpressionUUID->"527282b5-bc15-47c4-8675-4f1d3e2f5fd8", CellTags->"TabNext", CellID->489690143] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[166985, 4636, 6926, 150, 70, "Section",ExpressionUUID->"cf8f442a-3832-48a4-8ab2-659548c57232", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell[173936, 4790, 75, 2, 70, "Subsection",ExpressionUUID->"82c50b0e-c3af-4acf-8e01-d40b811d02b3", CellID->904125756], Cell[CellGroupData[{ Cell[174036, 4796, 296, 9, 70, "Text",ExpressionUUID->"1ba54d60-425b-4f31-880b-5cbe4b0d22ea", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->338899248], Cell[174335, 4807, 270, 7, 70, "Input",ExpressionUUID->"0d9a058a-ab11-431f-8cd8-6268499e6161", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->401251499], Cell[174608, 4816, 10110, 193, 70, "Output",ExpressionUUID->"675f240f-f2be-42ec-bc85-a00fb6619593", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->996161107] }, Open ]], Cell[CellGroupData[{ Cell[184755, 5014, 334, 11, 70, "Text",ExpressionUUID->"20ac9b08-f81c-4c59-9d37-d6c9259392b1", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->211513068], Cell[185092, 5027, 290, 8, 70, "Input",ExpressionUUID->"66a65180-0ac5-4700-ba47-594d7f5dfea7", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->432817078], Cell[185385, 5037, 527, 11, 70, "Output",ExpressionUUID->"8073432c-7e0e-4c7a-aa73-eef911e4900d", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->848872921] }, Open ]], Cell[CellGroupData[{ Cell[185949, 5053, 193, 4, 70, "Text",ExpressionUUID->"035bc5a6-8735-4546-906a-b81aca59715f", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->303518880], Cell[186145, 5059, 453, 12, 70, "Input",ExpressionUUID->"a4788381-9127-4409-a7e1-2e712ae69538", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->3213614], Cell[186601, 5073, 1174, 21, 70, "Output",ExpressionUUID->"face6c8a-68fe-4484-8789-47b88e78d190", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->555929369] }, Open ]], Cell[CellGroupData[{ Cell[187812, 5099, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"572a7f5e-f140-48e7-bca3-320277a063dd", CellID->14107562], Cell[CellGroupData[{ Cell[187980, 5107, 201, 4, 70, "Text",ExpressionUUID->"a955de00-c490-494d-ab2c-c553b6612d0e", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->919789818], Cell[188184, 5113, 261, 7, 70, "Input",ExpressionUUID->"08a26b14-4ba4-4a3e-baab-35a63f89048b", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->71898600], Cell[188448, 5122, 1647, 27, 70, "Output",ExpressionUUID->"955d8154-9611-4743-bc07-d6907e570907", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->489618411] }, Open ]], Cell[CellGroupData[{ Cell[190132, 5154, 1123, 37, 70, "Text",ExpressionUUID->"ed780567-8d63-40e0-a15a-2c3f3b56edab", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->202538375], Cell[191258, 5193, 3072, 71, 70, "Input",ExpressionUUID->"26f20401-40b3-4d17-8774-65400114296e", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->959822976], Cell[194333, 5266, 65732, 1421, 70, "Output",ExpressionUUID->"41382b3d-7698-4a95-bff2-2ea36a988575", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->460661712] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[260114, 6693, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"3dca9f06-a2a7-49ef-8789-4b4a6b1dd978", CellID->14107563], Cell[CellGroupData[{ Cell[260282, 6701, 1329, 40, 70, "Text",ExpressionUUID->"1080b32e-bb7d-4591-9a5e-5f0fa2a6a96d", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->706471559], Cell[261614, 6743, 4296, 104, 70, "Input",ExpressionUUID->"ba8bd193-6373-4202-a2fe-b3a05cb4433a", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->149628592], Cell[265913, 6849, 47610, 1038, 70, "Output",ExpressionUUID->"c4b94551-0365-4aca-9860-1300a80fe386", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->113718847], Cell[313526, 7889, 32708, 715, 70, "Output",ExpressionUUID->"ff38c1f3-105a-4061-b47f-d2ed63d22961", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->405269790] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[346283, 8610, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"19496bc1-414d-4791-8c77-9c426f76b8a4", CellID->14107564], Cell[CellGroupData[{ Cell[346451, 8618, 1302, 40, 70, "Text",ExpressionUUID->"ca77750e-5263-48f5-8c0f-7be49517a495", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, CellID->809150690], Cell[347756, 8660, 3665, 92, 70, "Input",ExpressionUUID->"f8c33f55-30ed-4d91-8d9a-dcbc705d8745", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, CellID->658664429], Cell[351424, 8754, 27846, 644, 70, "Output",ExpressionUUID->"097139ce-6c7c-4f0c-bc9a-fa65f25b3a79", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, CellID->749689397], Cell[379273, 9400, 23851, 548, 70, "Output",ExpressionUUID->"25405f97-0af3-403b-9336-d13d459aed90", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, CellID->263453070] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[403173, 9954, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"40d272ec-491e-4f39-a015-8786346a1795", CellID->14107565], Cell[CellGroupData[{ Cell[403341, 9962, 195, 4, 70, "Text",ExpressionUUID->"c3499b36-688a-489e-8a1b-51f5a1610af1", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->383310139], Cell[403539, 9968, 2234, 63, 70, "Input",ExpressionUUID->"8546f18b-8c5c-405b-a59d-84934c53bb4f", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->177377260], Cell[405776, 10033, 15552, 349, 70, "Output",ExpressionUUID->"2b94c7b6-c6bb-4192-a87b-f47f38cf208e", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->324146676] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[421389, 10389, 66, 2, 70, "Subsection",ExpressionUUID->"4695523f-e7f0-41ca-9f9e-d5cd7a67658f", CellID->204653245], Cell[CellGroupData[{ Cell[421480, 10395, 303, 8, 70, "Text",ExpressionUUID->"7b08c5fb-3c98-459f-8d7e-1dcda3a370de", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->871900699], Cell[421786, 10405, 2644, 71, 70, "Input",ExpressionUUID->"0b98a8af-8df7-48e3-9ed9-1c7632ff2665", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->766522618], Cell[424433, 10478, 6240, 122, 70, "Output",ExpressionUUID->"fa7ed06a-9f4d-49f2-8bc0-b109b2774aed", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->392647375] }, Open ]], Cell[CellGroupData[{ Cell[430710, 10605, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"aaefe045-7413-40c8-bfad-778ea7d584ad", CellID->14107566], Cell[CellGroupData[{ Cell[430878, 10613, 359, 6, 70, "Text",ExpressionUUID->"ae653a60-cde4-4272-a4b6-982172fc6189", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->743721680], Cell[431240, 10621, 2583, 70, 70, "Input",ExpressionUUID->"cd54e4bc-410c-4b5b-a2ce-d4f047f4b618", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->159598714], Cell[433826, 10693, 7632, 153, 70, "Output",ExpressionUUID->"c3d604f8-4428-48a0-a0cb-e785ac6c9e1f", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->729138539] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[441507, 10852, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"6910e009-38f6-4f6f-b8d7-14c6aa5f9649", CellID->14107567], Cell[CellGroupData[{ Cell[441675, 10860, 478, 10, 70, "Text",ExpressionUUID->"5b47af1e-c856-48c5-9301-fffccf3708df", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, CellID->936189942], Cell[442156, 10872, 4134, 104, 70, "Input",ExpressionUUID->"0aad127c-e0e4-44e8-89c4-979d53c1a340", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, CellID->420833866], Cell[446293, 10978, 15409, 290, 70, "Output",ExpressionUUID->"d61b5289-f6bc-49d1-971c-1364a7cf5cef", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, CellID->613763992] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[461763, 11275, 74, 2, 70, "Subsection",ExpressionUUID->"804d0294-4ce7-4612-9ff5-df8f63178ebb", CellID->461278909], Cell[CellGroupData[{ Cell[461862, 11281, 1408, 42, 70, "Text",ExpressionUUID->"c1b98342-b302-4596-9474-0adea87f037f", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, CellID->239639383], Cell[463273, 11325, 3385, 82, 70, "Input",ExpressionUUID->"8aaf5d27-b064-4f05-9b20-d13fc82f1487", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, CellID->398345422], Cell[466661, 11409, 42499, 934, 70, "Output",ExpressionUUID->"56b421aa-359e-4e1b-b28c-aa84b04b894d", CellGroupingRules->{"GroupTogetherGrouping", 10002.}, CellID->113134707] }, Open ]], Cell[CellGroupData[{ Cell[509197, 12348, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"36c30684-d5d0-4cc6-a2f7-6a5de5330693", CellID->14107568], Cell[CellGroupData[{ Cell[509365, 12356, 1356, 41, 70, "Text",ExpressionUUID->"cf380311-4773-4d7b-ba31-6e8ae5261322", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->74154945], Cell[510724, 12399, 3557, 88, 70, "Input",ExpressionUUID->"6b654170-3978-4701-9ecb-eb0c6a76daab", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->808049226], Cell[514284, 12489, 41241, 899, 70, "Output",ExpressionUUID->"f0356ab9-070c-42f8-aa32-b480be3fbfc0", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->110982574], Cell[555528, 13390, 4110, 102, 70, "Input",ExpressionUUID->"543e509d-2393-42a6-a18d-5cd27fa6df6b", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->21239224], Cell[559641, 13494, 46069, 1014, 70, "Output",ExpressionUUID->"5932326c-f062-488d-b47c-6c9c800c47b8", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->147537543], Cell[605713, 14510, 4498, 110, 70, "Input",ExpressionUUID->"08b9f2c8-2e7a-4626-a591-b754faf1d0da", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->520108794], Cell[610214, 14622, 47838, 1048, 70, "Output",ExpressionUUID->"79716a8c-8517-4da9-9d4e-c6db6182a876", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->559645660] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[658101, 15676, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"12f04b80-3440-46b7-9364-69fa8c6f5017", CellID->14107569], Cell[CellGroupData[{ Cell[658269, 15684, 1380, 41, 70, "Text",ExpressionUUID->"752ae9ea-cfc3-4059-af38-258053682240", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->202899205], Cell[659652, 15727, 4673, 114, 70, "Input",ExpressionUUID->"1e0e2ea6-2569-4222-9aaa-1b0ffb7e24b4", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->296836047], Cell[664328, 15843, 50087, 1097, 70, "Output",ExpressionUUID->"b6e52b9b-5bc9-41ab-b920-2d361360bb8c", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->903677456], Cell[714418, 16942, 5069, 123, 70, "Input",ExpressionUUID->"ae6549bc-2950-4c19-90d3-c6195cf550cf", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->686849100], Cell[719490, 17067, 50816, 1106, 70, "Output",ExpressionUUID->"89901e7b-dea3-4c55-b442-758af95ba1c8", CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellID->682324769] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[770355, 18179, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"3fe78346-3c36-4e44-a6c8-c683a1bd5fab", CellID->14107570], Cell[CellGroupData[{ Cell[770523, 18187, 392, 10, 70, "Text",ExpressionUUID->"ff3ca50b-4db5-47ef-aa42-73b90e8667ed", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->947503209], Cell[770918, 18199, 1409, 37, 70, "Input",ExpressionUUID->"5d17596b-fefc-4e56-b96d-ef8d6f95856f", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->875220076], Cell[772330, 18238, 183, 5, 70, "Text",ExpressionUUID->"cd85db42-24e4-4c33-838b-af041d05ec5a", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->797486327], Cell[772516, 18245, 3507, 90, 70, "Input",ExpressionUUID->"ed4de64a-0470-4f02-8b54-9d7744fb6a38", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->637577328], Cell[776026, 18337, 25606, 455, 70, "Output",ExpressionUUID->"2fc54edd-8afd-403f-8551-8293e2f98c91", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->209680382], Cell[801635, 18794, 302, 7, 70, "Text",ExpressionUUID->"1e12b28a-d9b2-43ad-8a15-6830f0189a6c", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->505353434], Cell[801940, 18803, 3539, 86, 70, "Input",ExpressionUUID->"c537a136-2ad0-4d4f-8172-711c484202c9", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->48427398], Cell[805482, 18891, 26946, 530, 70, "Output",ExpressionUUID->"cfd233a4-454f-473a-9af1-7dd8d2154c00", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->717781314] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[832477, 19427, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"360cbf3c-4ef9-4380-81b1-7ac105f88e91", CellID->14107571], Cell[CellGroupData[{ Cell[832645, 19435, 950, 28, 70, "Text",ExpressionUUID->"0862f998-1b42-43de-9208-0ac24136342d", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->738923512], Cell[833598, 19465, 3303, 91, 70, "Input",ExpressionUUID->"3cd37ce9-bb2e-4aca-99d0-b8532589ac3e", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->803370458], Cell[836904, 19558, 26837, 459, 70, "Output",ExpressionUUID->"c44c2c73-d14e-40b0-b349-33fb102ed771", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellID->630153579] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[863814, 20025, 174, 4, 70, "Section",ExpressionUUID->"8250d344-ea0c-4956-a04f-1c06e2fb7f37", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], Cell[CellGroupData[{ Cell[864013, 20033, 918, 24, 70, "Subsection",ExpressionUUID->"fd8ef120-0cfd-43b8-872e-e82064fb4676", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[864934, 20059, 49, 1, 70, "Text",ExpressionUUID->"f0624a0c-cc96-4afa-968e-0c4f2c4ca882", CellID->845256447] }, Open ]], Cell[CellGroupData[{ Cell[865020, 20065, 893, 24, 70, "Subsection",ExpressionUUID->"5f232f3b-d13b-4d1a-ab4a-22a6e55b5173", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[865916, 20091, 47, 1, 70, "Item",ExpressionUUID->"b58d09d8-7fe6-4f80-bb57-087b19ce1575", CellID->516170580], Cell[865966, 20094, 44, 1, 70, "Item",ExpressionUUID->"93274472-c9e3-4c9c-8dfe-89ef0b75ec69", CellID->995552388], Cell[866013, 20097, 48, 1, 70, "Item",ExpressionUUID->"021858d1-c99f-4573-8e6e-14672dc5c48d", CellID->433949635], Cell[866064, 20100, 45, 1, 70, "Item",ExpressionUUID->"8dcaf507-77db-4b2c-9ca1-1156e0b2364a", CellID->177509137], Cell[866112, 20103, 55, 1, 70, "Item",ExpressionUUID->"043ef471-92cc-4e2e-911e-79767c3bbd21", CellID->545605069] }, Open ]], Cell[CellGroupData[{ Cell[866204, 20109, 167, 5, 70, "Subsection",ExpressionUUID->"acd7db3a-a239-4cc8-a160-18b856e91248", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[866374, 20116, 60, 1, 70, "Item",ExpressionUUID->"c0ec1279-07ba-4d45-8a80-578d2d947dd7", CellID->891139041] }, Open ]], Cell[CellGroupData[{ Cell[866471, 20122, 870, 24, 70, "Subsection",ExpressionUUID->"96a0631f-a5ab-49ad-8f0a-ef57cf6f74ac", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[867344, 20148, 47, 1, 70, "Item",ExpressionUUID->"a25fc6da-a7b3-4df4-8fd7-3195a4976d5d", CellID->839104762], Cell[867394, 20151, 44, 1, 70, "Item",ExpressionUUID->"3dbfaf20-494c-41d6-b113-f73f2ce921b5", CellID->608207214], Cell[867441, 20154, 44, 1, 70, "Item",ExpressionUUID->"8208a25c-ac8b-467f-8c81-38ce11f4e64c", CellID->612539941], Cell[867488, 20157, 48, 1, 70, "Item",ExpressionUUID->"642ab1aa-b721-4133-8425-4c5a2da6d362", CellID->525468651], Cell[867539, 20160, 47, 1, 70, "Item",ExpressionUUID->"37027d08-a09f-49a6-8356-40545204531b", CellID->139419549], Cell[867589, 20163, 50, 1, 70, "Item",ExpressionUUID->"0bc31b64-7964-4bc6-9db8-4dbe3461262b", CellID->210364025], Cell[867642, 20166, 53, 1, 70, "Item",ExpressionUUID->"b3ff7feb-6d86-449e-a638-25e95cfcdca0", CellID->524042226], Cell[867698, 20169, 49, 1, 70, "Item",ExpressionUUID->"2fba4ec3-e649-405b-a57a-e68e24bf980b", CellID->674468960], Cell[867750, 20172, 48, 1, 70, "Item",ExpressionUUID->"bff651ea-5fc5-482f-b612-b4bb35afcfd4", CellID->147229954], Cell[867801, 20175, 51, 1, 70, "Item",ExpressionUUID->"f49b6014-dcd0-484f-95b6-9b413c7bdba2", CellID->179398912], Cell[867855, 20178, 50, 1, 70, "Item",ExpressionUUID->"2944d7f9-65d7-49c2-9454-8f74e5140976", CellID->25360923], Cell[867908, 20181, 51, 1, 70, "Item",ExpressionUUID->"224c6977-8e1c-443f-843c-8e4dfc02ecd1", CellID->968747839], Cell[867962, 20184, 48, 1, 70, "Item",ExpressionUUID->"d52c3ef9-8e5e-46f2-bf13-a8400614fab4", CellID->402781220], Cell[868013, 20187, 54, 1, 70, "Item",ExpressionUUID->"257609fd-25ec-427e-94f1-4af1a7d533a2", CellID->96747987] }, Open ]], Cell[CellGroupData[{ Cell[868104, 20193, 919, 24, 70, "Subsection",ExpressionUUID->"d2f87e41-1c80-4a07-a111-2de4600c2533", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[869026, 20219, 50, 1, 70, "Item",ExpressionUUID->"625827bf-f3e7-447c-a9d1-9fbd96b9c454", CellID->770884843], Cell[869079, 20222, 48, 1, 70, "Item",ExpressionUUID->"a074bb23-5391-48e0-b2e4-2b82ac2486bc", CellID->6933307], Cell[869130, 20225, 50, 1, 70, "Item",ExpressionUUID->"e1e58399-a7e7-4921-a4db-9fb4c3ef2e20", CellID->43799520], Cell[869183, 20228, 51, 1, 70, "Item",ExpressionUUID->"43e9eacd-d8a0-415e-a17d-5a69e3bd062a", CellID->334011149] }, Open ]], Cell[CellGroupData[{ Cell[869271, 20234, 971, 25, 70, "Subsection",ExpressionUUID->"af1348ee-1987-4a07-aecc-a8102451cc43", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[870245, 20261, 306, 6, 70, "Text",ExpressionUUID->"1b2c34a7-98f5-45a1-b9c6-3584f0bbbdde", CellID->19433208], Cell[870554, 20269, 239, 5, 70, "Text",ExpressionUUID->"7d77ede1-3b6c-4ff0-b978-9c9a5de2a983", CellID->166042303], Cell[870796, 20276, 127, 4, 70, "Text",ExpressionUUID->"c07d62a8-d8d2-468c-8649-cbbc1b70df75", CellID->59307670] }, Open ]], Cell[CellGroupData[{ Cell[870960, 20285, 823, 24, 70, "Subsection",ExpressionUUID->"7293055f-3bae-4149-a436-a2c204ac0aa4", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[871786, 20311, 355, 6, 70, "Item",ExpressionUUID->"a60c3a65-bb1e-4645-a5be-ea2d80432c3b", CellID->115057006], Cell[872144, 20319, 362, 6, 70, "Item",ExpressionUUID->"cc23250a-bf78-4abb-9144-ddfc466c5922", CellID->290120652], Cell[872509, 20327, 362, 7, 70, "Item",ExpressionUUID->"2f9bfe91-0e7e-4cd4-8347-ba0ba94c8465", CellID->557166111], Cell[872874, 20336, 393, 7, 70, "Item",ExpressionUUID->"dc788d72-dad0-4895-9165-504179d3430a", CellID->481277245], Cell[873270, 20345, 334, 6, 70, "Item",ExpressionUUID->"cebde2cd-ad7b-4952-b1aa-dae15b357813", CellID->42503407] }, Open ]], Cell[CellGroupData[{ Cell[873641, 20356, 1762, 43, 70, "Subsection",ExpressionUUID->"6c12f4a7-2e0f-4238-847e-8e47a98688ad", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[CellGroupData[{ Cell[875428, 20403, 2246, 56, 70, "Input",ExpressionUUID->"944898ad-ace9-4bd1-967c-f0563747e706", CellID->981483510], Cell[877677, 20461, 140, 3, 70, "Output",ExpressionUUID->"6a50b04b-c1db-4967-a380-5ec8e92f4b0a", CellID->661045763], Cell[877820, 20466, 138, 3, 70, "Output",ExpressionUUID->"8f3a81d3-7f7e-4efc-833b-64e3703e522e", CellID->661045764], Cell[877961, 20471, 691, 14, 70, "Output",ExpressionUUID->"6a23825e-0444-4665-ae07-e3953700895a", CellID->483900628] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[878713, 20492, 1048, 26, 70, "Section",ExpressionUUID->"fe6fd868-e538-469c-85ae-deed5b55a650", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[879764, 20520, 993, 20, 70, "Text",ExpressionUUID->"5596649c-cf80-4b77-b030-1152729caca7", CellTags->{"DefaultContent", "TabNext"}, CellID->720931406] }, Open ]], Cell[CellGroupData[{ Cell[880794, 20545, 929, 25, 70, "Section",ExpressionUUID->"1f7f5923-894a-4df9-8790-05505a828163", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], Cell[881726, 20572, 495, 8, 70, "Text",ExpressionUUID->"ed4eda25-55b4-4694-a18e-d1a701080d17", CellTags->"TabNext", CellID->932041030] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)