(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 504518, 11752] NotebookOptionsPosition[ 489747, 11413] NotebookOutlinePosition[ 491507, 11465] CellTagsIndexPosition[ 491464, 11462] WindowTitle->HypergraphPlot | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Draw a hypergraph:", "Text", TaggingRules->{}, CellChangeTimes->{{3.780838331430153*^9, 3.7808383353445787`*^9}}, CellID->65887849], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.780838315062213*^9, 3.782843168944805*^9}, CellLabel->"In[1]", CellID->249944169], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{4.448816476723526, 0.48049589346846105`}, { 5.356533499288662, 0.49827444108177393`}, {5.356533499288662, 1.098274441081774}, {4.756533499288662, 1.098274441081774}, { 4.434562458849849, 1.0919683155710138`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}, { 3.036305338134362, 1.1344498050974618`}, {3.4770708848586596`, 0.7796973103905622}, {3.0387669411442255`, 0.4250429227880796}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}}, SplineClosed -> True]]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Opacity[ 0.2], FilledCurveBox[ BSplineCurve[{{2.236072088619826, 1.0775369210614185`}, { 1.8981835898557213`, 1.077580636880958}, {1.2981835898557212`, 1.077580636880958}, {1.2981835898557212`, 0.4775806368809579}, { 2.2359775396424664`, 0.4774593056393677}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}, {3.638766941144225, 0.4250429227880796}, {3.2032670757329194`, 0.7789679327500407}, { 3.6363053381343615`, 1.1344498050974618`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}}, SplineClosed -> True]]}, {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{0.9478160158420239, 1.0863686845573584`}, { 0.3084732266426428, 1.8802779931265807`}, {-0.29152677335735716`, 1.8802779931265807`}, {-0.29152677335735716`, 1.2802779931265806`}, { 0.10348003124184929`, 0.7897749571696102}, {-0.3, 0.3}, {-0.3, -0.3}, {0.3, -0.3}, {0.9432799253561783, 0.48086243058839584`}, {1.2981835898557212`, 0.4775806368809579}, { 1.8981835898557213`, 0.4775806368809579}, {1.8981835898557213`, 1.077580636880958}}, SplineClosed -> True]]}}, { {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Thickness[0.01], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3363053381343617`, 1.434449805097462}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Thickness[ 0.01], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {1.5981835898557213`, 0.7775806368809579}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.72987, 0.239399, 0.230961], Thickness[0.01], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0., 0.}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0.008473226642642828, 1.5802779931265807`}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.780838316140383*^9, 3.7808415736346292`*^9, 3.792416533181088*^9}, CellLabel->"Out[1]", CellID->306145389] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->80742258], Cell["Draw a hypergraph without edges connecting subsets:", "Text", TaggingRules->{}, CellChangeTimes->{{3.780838331430153*^9, 3.7808383353445787`*^9}, { 3.7808398809248543`*^9, 3.78083989055341*^9}}, CellID->131852870], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], ",", " ", RowBox[{"\"\\"", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", ".5", "]"}], ",", " ", RowBox[{"EdgeForm", "[", "Black", "]"}], ",", "#"}], "]"}], "&"}], "/@", RowBox[{ RowBox[{"ColorData", "[", RowBox[{"35", ",", "\"\\""}], "]"}], "[", RowBox[{"[", RowBox[{"{", RowBox[{"2", ",", "5", ",", "10"}], "}"}], "]"}], "]"}]}], ")"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"1.8", ",", " ", "2.5", ",", " ", "3"}], "}"}]}], ",", " ", RowBox[{"\"\\"", "\[Rule]", "False"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.78083986279254*^9, 3.7808398631386137`*^9}, { 3.780841580417882*^9, 3.7808415811019707`*^9}, 3.7828431689607997`*^9}, CellLabel->"In[3]", CellID->260883388], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[1., 0.7254901960784313, 0.09411764705882353], Opacity[0.5], EdgeForm[GrayLevel[0]], FilledCurveBox[ BSplineCurve[{{4.460692001784809, 0.33911720967655634`}, { 5.365366805017439, 0.3632529222922469}, {5.365366805017439, 0.903252922292247}, {4.82536680501744, 0.903252922292247}, { 4.4419918606011235`, 0.8930249072647197}, {3.643192597917477, 1.4871091160376637`}, {3.103192597917477, 1.4871091160376637`}, { 3.103192597917477, 0.9471091160376637}, {3.558519771947106, 0.6084724941066022}, {3.105581543793776, 0.27}, { 3.105581543793776, -0.27}, {3.645581543793776, -0.27}}, SplineClosed -> True]]}, {RGBColor[0.4117647058823529, 0.592156862745098, 0.4], Opacity[0.5], EdgeForm[GrayLevel[0]], FilledCurveBox[ BSplineCurve[{{2.547606913363505, -0.04304679019712743}, { 3.000581543793776, -0.375}, {3.750581543793776, -0.375}, { 3.750581543793776, 0.375}, {3.4321096470576804`, 0.6083856274757304}, {3.748192597917477, 0.8421091160376637}, { 3.748192597917477, 1.5921091160376637`}, {2.998192597917477, 1.5921091160376637`}, {2.5477960612666095`, 1.2590691672017436`}, { 2.0972968527324563`, 1.5923715637252247`}, {1.347296852732456, 1.5923715637252247`}, {1.347296852732456, 0.8423715637252247}, { 1.6633019913725866`, 0.6085747711288501}, {1.3447180464990365`, 0.37521183387633283`}, {1.3447180464990365`, -0.37478816612366717`}, { 2.0947180464990365`, -0.37478816612366717`}}, SplineClosed -> True]]}, {RGBColor[0.8, 0.058823529411764705`, 0.07450980392156863], Opacity[0.5], EdgeForm[GrayLevel[0]], FilledCurveBox[ BSplineCurve[{{1.9582972587587264`, 0.6082480462646336}, { 2.172296852732456, 0.7673715637252247}, {2.172296852732456, 1.6673715637252247`}, {1.272296852732456, 1.6673715637252247`}, { 0.4850899254413437, 1.082028699685572}, {0.44999999999999996`, 1.0829404578385042`}, {-0.44999999999999996`, 1.0829404578385042`}, {-0.44999999999999996`, 0.1829404578385042}, { 0.45470197984503224`, 0.15943315778804978`}, { 1.2697180464990365`, -0.4497881661236671}, { 2.169718046499036, -0.4497881661236671}, {2.169718046499036, 0.4502118338763328}}, SplineClosed -> True]]}}, {}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.09536680501744, 0.633252922292247}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.373192597917477, 1.2171091160376637}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.375581543793776, 0.}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.722296852732456, 1.2173715637252247}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.6329404578385042}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{1.7197180464990365, 0.00021183387633283424}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.780839859698804*^9, 3.780839863678733*^9}, { 3.780841576997651*^9, 3.780841582083026*^9}, 3.792416534811475*^9}, CellLabel->"Out[3]", CellID->702337799] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031726], Cell["Draw a hypergraph with different vertex styles:", "Text", TaggingRules->{}, CellChangeTimes->{{3.780838331430153*^9, 3.7808383353445787`*^9}, { 3.7808398809248543`*^9, 3.78083989055341*^9}, {3.7808399337338877`*^9, 3.780839944173411*^9}}, CellID->451927275], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], ",", " ", RowBox[{"\"\\"", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", ".5", "]"}], ",", " ", RowBox[{"EdgeForm", "[", "Black", "]"}], ",", "#"}], "]"}], "&"}], "/@", RowBox[{ RowBox[{"ColorData", "[", RowBox[{"35", ",", "\"\\""}], "]"}], "[", RowBox[{"[", RowBox[{"{", RowBox[{"2", ",", "5", ",", "10"}], "}"}], "]"}], "]"}]}], ")"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"8", ",", "10", ",", "11"}], "}"}]}], ",", " ", RowBox[{"\"\\"", "\[Rule]", "False"}], ",", " ", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", " ", RowBox[{"VertexSize", "\[Rule]", ".05"}], ",", " ", RowBox[{"VertexStyle", "\[Rule]", "Black"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.780841586390815*^9, 3.780841587030822*^9}, 3.782843168977296*^9}, CellLabel->"In[1]", CellID->269109912], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[1., 0.7254901960784313, 0.09411764705882353], Opacity[0.5], EdgeForm[GrayLevel[0]], FilledCurveBox[ BSplineCurve[{{4.548816476723527, 0.380495893468461}, { 5.456533499288662, 0.3982744410817739}, {5.456533499288662, 1.1982744410817738`}, {4.656533499288662, 1.1982744410817738`}, { 4.529811119558625, 1.1957924562718645`}, {3.7363053381343616`, 1.8344498050974618`}, {2.936305338134362, 1.8344498050974618`}, { 2.936305338134362, 1.034449805097462}, {3.2531556875703704`, 0.7794311160312628}, {2.9387669411442254`, 0.5250429227880796}, { 2.9387669411442254`, -0.2749570772119204}, { 3.7387669411442253`, -0.2749570772119204}}, SplineClosed -> True]]}, {RGBColor[0.4117647058823529, 0.592156862745098, 0.4], Opacity[0.5], EdgeForm[GrayLevel[0]], FilledCurveBox[ BSplineCurve[{{2.0361253420316183`, 1.277580636880958}, { 1.0981835898557213`, 1.277580636880958}, {1.0981835898557213`, 0.2775806368809579}, {2.035977539642466, 0.2774593056393677}, { 2.8387669411442253`, -0.3749570772119204}, { 3.8387669411442253`, -0.3749570772119204}, {3.8387669411442253`, 0.6250429227880796}, {3.6481267664598884`, 0.779973684157156}, { 3.8363053381343617`, 0.9344498050974619}, {3.8363053381343617`, 1.934449805097462}, {2.8363053381343617`, 1.934449805097462}}, SplineClosed -> True]]}, {RGBColor[0.8, 0.058823529411764705`, 0.07450980392156863], Opacity[0.5], EdgeForm[GrayLevel[0]], FilledCurveBox[ BSplineCurve[{{1.197816015842024, 1.3363686845573584`}, { 0.5584732266426429, 2.1302779931265805`}, {-0.5415267733573572, 2.1302779931265805`}, {-0.5415267733573572, 1.0302779931265806`}, {-0.35013328925829657`, 0.79261351767982}, {-0.55, 0.55}, {-0.55, -0.55}, {0.55, -0.55}, { 1.1905763607736637`, 0.22758063688095787`}, {2.148183589855721, 0.22758063688095787`}, {2.148183589855721, 1.327580636880958}}, SplineClosed -> True]]}}, {}}, NamespaceBox[{{}, {GrayLevel[0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.05], "DynamicName", BoxID -> "VertexID$1"], InsetBox["1", Offset[{2, 2}, DynamicLocation[ "VertexID$1", Automatic, {Right, Top}]], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.05], "DynamicName", BoxID -> "VertexID$2"], InsetBox["2", Offset[{2, 2}, DynamicLocation[ "VertexID$2", Automatic, {Right, Top}]], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.05], "DynamicName", BoxID -> "VertexID$3"], InsetBox["3", Offset[{2, 2}, DynamicLocation[ "VertexID$3", Automatic, {Right, Top}]], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.05], "DynamicName", BoxID -> "VertexID$4"], InsetBox["5", Offset[{2, 2}, DynamicLocation[ "VertexID$4", Automatic, {Right, Top}]], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.05], "DynamicName", BoxID -> "VertexID$5"], InsetBox["7", Offset[{2, 2}, DynamicLocation[ "VertexID$5", Automatic, {Right, Top}]], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.05], "DynamicName", BoxID -> "VertexID$6"], InsetBox["8", Offset[{2, 2}, DynamicLocation[ "VertexID$6", Automatic, {Right, Top}]], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.780839931497381*^9, 3.780839948250724*^9}, 3.780841587583262*^9, 3.792416536680312*^9}, CellLabel->"Out[1]", CellID->677234479] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Options", "\[NonBreakingSpace]", Cell["(17)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->776923543], Cell[CellGroupData[{ Cell[TextData[{ "BaseLayout", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.7799006609245853`*^9, 3.779900664571251*^9}, 3.780839156299939*^9}, CellID->774449017], Cell["The default base layout is \"SpringEmbedding\":", "Text", TaggingRules->{}, CellChangeTimes->{{3.779900736781061*^9, 3.779900765901594*^9}, { 3.779900795942657*^9, 3.7799008009411297`*^9}, {3.780839161597959*^9, 3.780839212357543*^9}, {3.798546679528494*^9, 3.798546684365806*^9}}, CellID->232268806], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7828431689832926`*^9}, CellID->811099283], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{4.448816476723526, 0.48049589346846105`}, { 5.356533499288662, 0.49827444108177393`}, {5.356533499288662, 1.098274441081774}, {4.756533499288662, 1.098274441081774}, { 4.434562458849849, 1.0919683155710138`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}, { 3.036305338134362, 1.1344498050974618`}, {3.4770708848586596`, 0.7796973103905622}, {3.0387669411442255`, 0.4250429227880796}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}}, SplineClosed -> True]]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Opacity[ 0.2], FilledCurveBox[ BSplineCurve[{{2.236072088619826, 1.0775369210614185`}, { 1.8981835898557213`, 1.077580636880958}, {1.2981835898557212`, 1.077580636880958}, {1.2981835898557212`, 0.4775806368809579}, { 2.2359775396424664`, 0.4774593056393677}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}, {3.638766941144225, 0.4250429227880796}, {3.2032670757329194`, 0.7789679327500407}, { 3.6363053381343615`, 1.1344498050974618`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}}, SplineClosed -> True]]}, {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{0.9478160158420239, 1.0863686845573584`}, { 0.3084732266426428, 1.8802779931265807`}, {-0.29152677335735716`, 1.8802779931265807`}, {-0.29152677335735716`, 1.2802779931265806`}, { 0.10348003124184929`, 0.7897749571696102}, {-0.3, 0.3}, {-0.3, -0.3}, {0.3, -0.3}, {0.9432799253561783, 0.48086243058839584`}, {1.2981835898557212`, 0.4775806368809579}, { 1.8981835898557213`, 0.4775806368809579}, {1.8981835898557213`, 1.077580636880958}}, SplineClosed -> True]]}}, { {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Thickness[0.01], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3363053381343617`, 1.434449805097462}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Thickness[ 0.01], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {1.5981835898557213`, 0.7775806368809579}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.72987, 0.239399, 0.230961], Thickness[0.01], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0., 0.}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0.008473226642642828, 1.5802779931265807`}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7808392264086313`*^9}, CellLabel->"Out[1]", CellID->306145390] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031727], Cell["Use \"RadialEmbedding\":", "Text", TaggingRules->{}, CellChangeTimes->{{3.779900736781061*^9, 3.779900765901594*^9}, { 3.779900795942657*^9, 3.7799008009411297`*^9}, {3.780839161597959*^9, 3.7808392770368958`*^9}, 3.780839307504484*^9, {3.7985466892031403`*^9, 3.7985466925602503`*^9}}, CellID->423685209], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], ",", " ", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.780839281605482*^9, 3.7808393016407633`*^9}, 3.782843168991288*^9}, CellID->606397179], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{1.202394803896409, 1.344299392959335}, { 1.3535922058446135`, 1.344299392959335}, {1.3535922058446135`, 1.944299392959335}, {0.8267961029223068, 2.4710954958816416`}, {0.3, 2.9978915988039487`}, {-0.3, 2.9978915988039487`}, {-0.3, 2.397891598803949}, {0.22679610292230673`, 1.8710954958816417`}, { 0.7535922058446134, 0.29070718711472127`}, {1.3535922058446135`, 0.29070718711472127`}, {1.3535922058446135`, 0.8907071871147212}}, SplineClosed -> True]]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Opacity[ 0.2], FilledCurveBox[ BSplineCurve[{{1.8803883087669204`, 1.4175032900370281`}, { 1.3535922058446135`, 1.944299392959335}, {0.7535922058446134, 1.944299392959335}, {0.7535922058446134, 1.344299392959335}, { 0.9803883087669203, 1.117503290037028}, {0.7535922058446134, 0.8907071871147212}, {0.7535922058446134, 0.29070718711472127`}, { 1.3535922058446135`, 0.29070718711472127`}, {1.8803883087669204`, 0.817503290037028}, {2.6253905021249393`, 0.8175032900370278}, { 2.6253905021249393`, 1.417503290037028}}, SplineClosed -> True]]}, {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{3.490007937753622, 1.1175032900370274`}, { 3.815960784736434, 1.9350065800740552`}, {3.815960784736434, 2.535006580074055}, {3.2159607847364344`, 2.535006580074055}, { 2.770392695482959, 1.4175032900370277`}, {2.0253905021249397`, 1.417503290037028}, {2.0253905021249397`, 0.8175032900370278}, { 2.770392695482959, 0.8175032900370276}, {3.215960784736434, -0.3}, { 3.8159607847364336`, -0.3}, {3.8159607847364336`, 0.3}}, SplineClosed -> True]]}}, { {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Thickness[0.01], BSplineCurveBox[{{0., 2.697891598803949}, {0.5267961029223067, 2.1710954958816417`}, {1.0535922058446134`, 1.644299392959335}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0., 2.697891598803949}, {0.5267961029223067, 2.1710954958816417`}, {1.0535922058446134`, 0.5907071871147213}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Thickness[ 0.01], BSplineCurveBox[{{1.0535922058446134`, 1.644299392959335}, { 1.5803883087669204`, 1.117503290037028}, {1.0535922058446134`, 0.5907071871147213}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.0535922058446134`, 1.644299392959335}, { 1.5803883087669204`, 1.117503290037028}, {2.3253905021249395`, 1.1175032900370279`}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.72987, 0.239399, 0.230961], Thickness[0.01], BSplineCurveBox[{{2.3253905021249395`, 1.1175032900370279`}, { 3.070392695482959, 1.1175032900370276`}, {3.515960784736434, 0.}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.3253905021249395`, 1.1175032900370279`}, { 3.070392695482959, 1.1175032900370276`}, {3.5159607847364343`, 2.2350065800740553`}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{0., 2.697891598803949}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{1.0535922058446134, 1.644299392959335}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{1.0535922058446134, 0.5907071871147213}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{2.3253905021249395, 1.1175032900370279}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{3.515960784736434, 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{3.5159607847364343, 2.2350065800740553}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7808393149104767`*^9}, CellLabel->"Out[0]", CellID->110627932] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "SubsetBoundary", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.7799006609245853`*^9, 3.779900664571251*^9}, 3.780839156299939*^9, 3.780839324041347*^9}, CellID->821554401], Cell[TextData[{ "The default subset boundary is ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.779900736781061*^9, 3.779900765901594*^9}, { 3.779900795942657*^9, 3.7799008009411297`*^9}, {3.780839161597959*^9, 3.780839212357543*^9}, {3.780839338547279*^9, 3.780839346428154*^9}, { 3.780839566429255*^9, 3.7808395732247877`*^9}, 3.780920571386594*^9, 3.7927734354549785`*^9}, CellID->107969125], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.782843168997285*^9}, CellID->811099284], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{4.448816476723526, 0.48049589346846105`}, { 5.356533499288662, 0.49827444108177393`}, {5.356533499288662, 1.098274441081774}, {4.756533499288662, 1.098274441081774}, { 4.434562458849849, 1.0919683155710138`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}, { 3.036305338134362, 1.1344498050974618`}, {3.4770708848586596`, 0.7796973103905622}, {3.0387669411442255`, 0.4250429227880796}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}}, SplineClosed -> True]]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Opacity[ 0.2], FilledCurveBox[ BSplineCurve[{{2.236072088619826, 1.0775369210614185`}, { 1.8981835898557213`, 1.077580636880958}, {1.2981835898557212`, 1.077580636880958}, {1.2981835898557212`, 0.4775806368809579}, { 2.2359775396424664`, 0.4774593056393677}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}, {3.638766941144225, 0.4250429227880796}, {3.2032670757329194`, 0.7789679327500407}, { 3.6363053381343615`, 1.1344498050974618`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}}, SplineClosed -> True]]}, {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{0.9478160158420239, 1.0863686845573584`}, { 0.3084732266426428, 1.8802779931265807`}, {-0.29152677335735716`, 1.8802779931265807`}, {-0.29152677335735716`, 1.2802779931265806`}, { 0.10348003124184929`, 0.7897749571696102}, {-0.3, 0.3}, {-0.3, -0.3}, {0.3, -0.3}, {0.9432799253561783, 0.48086243058839584`}, {1.2981835898557212`, 0.4775806368809579}, { 1.8981835898557213`, 0.4775806368809579}, {1.8981835898557213`, 1.077580636880958}}, SplineClosed -> True]]}}, { {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Thickness[0.01], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3363053381343617`, 1.434449805097462}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Thickness[ 0.01], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {1.5981835898557213`, 0.7775806368809579}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.72987, 0.239399, 0.230961], Thickness[0.01], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0., 0.}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0.008473226642642828, 1.5802779931265807`}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7808392264086313`*^9, 3.7808393506299553`*^9}, CellLabel->"Out[0]", CellID->16737082] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031728], Cell[TextData[{ "Use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "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/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to not show subset boundaries:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.779900736781061*^9, 3.779900765901594*^9}, { 3.779900795942657*^9, 3.7799008009411297`*^9}, {3.780839161597959*^9, 3.7808392770368958`*^9}, 3.780839307504484*^9, {3.78083936520617*^9, 3.780839416061494*^9}, 3.792773438748952*^9}, CellID->460385044], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], ",", " ", RowBox[{"\"\\"", "\[Rule]", "False"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.780839281605482*^9, 3.7808393016407633`*^9}, { 3.780839411468952*^9, 3.7808394232010317`*^9}, 3.782843169002282*^9}, CellID->332069973], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Thickness[0.01], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3363053381343617`, 1.434449805097462}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Thickness[ 0.01], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {1.5981835898557213`, 0.7775806368809579}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.72987, 0.239399, 0.230961], Thickness[0.01], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0., 0.}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0.008473226642642828, 1.5802779931265807`}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7808393149104767`*^9, 3.7808394237113953`*^9}, CellLabel->"Out[0]", CellID->965388986] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031729], Cell[TextData[{ "Alternate between ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "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/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "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/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.779900736781061*^9, 3.779900765901594*^9}, { 3.779900795942657*^9, 3.7799008009411297`*^9}, {3.780839161597959*^9, 3.7808392770368958`*^9}, 3.780839307504484*^9, {3.78083936520617*^9, 3.780839455535179*^9}, {3.7927734427008457`*^9, 3.7927734447489834`*^9}}, CellID->427622526], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], ",", " ", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7808394605540113`*^9, 3.780839463264619*^9}, 3.78284316900628*^9}, CellID->962595566], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[0.624866, 0.673302, 0.264296], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{4.448816476723526, 0.48049589346846105`}, { 5.356533499288662, 0.49827444108177393`}, {5.356533499288662, 1.098274441081774}, {4.756533499288662, 1.098274441081774}, { 4.434562458849849, 1.0919683155710138`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}, { 3.036305338134362, 1.1344498050974618`}, {3.4770708848586596`, 0.7796973103905622}, {3.0387669411442255`, 0.4250429227880796}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}}, SplineClosed -> True]]}, {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{0.9478160158420239, 1.0863686845573584`}, { 0.3084732266426428, 1.8802779931265807`}, {-0.29152677335735716`, 1.8802779931265807`}, {-0.29152677335735716`, 1.2802779931265806`}, { 0.10348003124184929`, 0.7897749571696102}, {-0.3, 0.3}, {-0.3, -0.3}, {0.3, -0.3}, {0.9432799253561783, 0.48086243058839584`}, {1.2981835898557212`, 0.4775806368809579}, { 1.8981835898557213`, 0.4775806368809579}, {1.8981835898557213`, 1.077580636880958}}, SplineClosed -> True]]}}, { {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Thickness[0.01], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3363053381343617`, 1.434449805097462}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Thickness[ 0.01], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {1.5981835898557213`, 0.7775806368809579}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.72987, 0.239399, 0.230961], Thickness[0.01], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0., 0.}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0.008473226642642828, 1.5802779931265807`}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.780839463604184*^9}, CellLabel->"Out[0]", CellID->79668092] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "SubsetBoundaryScale", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.7799006609245853`*^9, 3.779900664571251*^9}, 3.780839156299939*^9, 3.780839324041347*^9, 3.780839475977722*^9, 3.780840900229904*^9}, CellID->886759125], Cell["The default subset boundary scale factor is 2:", "Text", TaggingRules->{}, CellChangeTimes->{{3.779900736781061*^9, 3.779900765901594*^9}, { 3.779900795942657*^9, 3.7799008009411297`*^9}, {3.780839161597959*^9, 3.780839212357543*^9}, {3.780839338547279*^9, 3.780839346428154*^9}, { 3.780839481185562*^9, 3.780839515915208*^9}, {3.780840980650414*^9, 3.7808409810752287`*^9}}, CellID->117793680], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7828431690122757`*^9}, CellID->811099285], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{4.448816476723526, 0.48049589346846105`}, { 5.356533499288662, 0.49827444108177393`}, {5.356533499288662, 1.098274441081774}, {4.756533499288662, 1.098274441081774}, { 4.434562458849849, 1.0919683155710138`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}, { 3.036305338134362, 1.1344498050974618`}, {3.4770708848586596`, 0.7796973103905622}, {3.0387669411442255`, 0.4250429227880796}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}}, SplineClosed -> True]]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Opacity[ 0.2], FilledCurveBox[ BSplineCurve[{{2.236072088619826, 1.0775369210614185`}, { 1.8981835898557213`, 1.077580636880958}, {1.2981835898557212`, 1.077580636880958}, {1.2981835898557212`, 0.4775806368809579}, { 2.2359775396424664`, 0.4774593056393677}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}, {3.638766941144225, 0.4250429227880796}, {3.2032670757329194`, 0.7789679327500407}, { 3.6363053381343615`, 1.1344498050974618`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}}, SplineClosed -> True]]}, {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{0.9478160158420239, 1.0863686845573584`}, { 0.3084732266426428, 1.8802779931265807`}, {-0.29152677335735716`, 1.8802779931265807`}, {-0.29152677335735716`, 1.2802779931265806`}, { 0.10348003124184929`, 0.7897749571696102}, {-0.3, 0.3}, {-0.3, -0.3}, {0.3, -0.3}, {0.9432799253561783, 0.48086243058839584`}, {1.2981835898557212`, 0.4775806368809579}, { 1.8981835898557213`, 0.4775806368809579}, {1.8981835898557213`, 1.077580636880958}}, SplineClosed -> True]]}}, { {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Thickness[0.01], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3363053381343617`, 1.434449805097462}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Thickness[ 0.01], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {1.5981835898557213`, 0.7775806368809579}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.72987, 0.239399, 0.230961], Thickness[0.01], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0., 0.}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0.008473226642642828, 1.5802779931265807`}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.780840969833099*^9}, CellLabel->"Out[0]", CellID->16737083] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031730], Cell["Increase the scale factor to 3:", "Text", TaggingRules->{}, CellChangeTimes->{{3.779900736781061*^9, 3.779900765901594*^9}, { 3.779900795942657*^9, 3.7799008009411297`*^9}, {3.780839161597959*^9, 3.7808392770368958`*^9}, 3.780839307504484*^9, {3.78083936520617*^9, 3.780839416061494*^9}, {3.780839502290842*^9, 3.780839523947874*^9}, 3.7985467143805027`*^9}, CellID->38780762], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], ",", " ", RowBox[{"\"\\"", "\[Rule]", "3"}]}], "]"}]], "Input",\ TaggingRules->{}, CellChangeTimes->{{3.780839281605482*^9, 3.7808393016407633`*^9}, { 3.780839411468952*^9, 3.7808394232010317`*^9}, {3.780839529713087*^9, 3.780839530769783*^9}, 3.7808409042973137`*^9, 3.782843169017273*^9}, CellID->952889827], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{4.598816476723527, 0.3304958934684611}, { 5.506533499288662, 0.34827444108177397`}, {5.506533499288662, 1.2482744410817739`}, {4.606533499288662, 1.2482744410817739`}, { 4.577435449913011, 1.24770452662229}, {3.786305338134362, 1.8844498050974618`}, {2.8863053381343615`, 1.8844498050974618`}, { 2.8863053381343615`, 0.9844498050974619}, {3.1411980889262257`, 0.7792980188516128}, {2.888766941144225, 0.5750429227880796}, { 2.888766941144225, -0.32495707721192035`}, { 3.7887669411442255`, -0.32495707721192035`}}, SplineClosed -> True]]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Opacity[ 0.2], FilledCurveBox[ BSplineCurve[{{2.086119363108506, 1.2275757287724438`}, { 2.0481835898557215`, 1.2275806368809579`}, {1.1481835898557213`, 1.2275806368809579`}, {1.1481835898557213`, 0.32758063688095795`}, { 2.0859775396424665`, 0.32745930563936776`}, { 2.888766941144225, -0.32495707721192035`}, { 3.7887669411442255`, -0.32495707721192035`}, {3.7887669411442255`, 0.5750429227880796}, {3.5369118437781464`, 0.7797222463053771}, { 3.786305338134362, 0.9844498050974619}, {3.786305338134362, 1.8844498050974618`}, {2.8863053381343615`, 1.8844498050974618`}}, SplineClosed -> True]]}, {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{1.0978160158420238`, 1.2363686845573583`}, { 0.4584732266426428, 2.030277993126581}, {-0.4415267733573571, 2.030277993126581}, {-0.4415267733573571, 1.1302779931265807`}, {-0.16868796105823813`, 0.7914780934757362}, {-0.44999999999999996`, 0.44999999999999996`}, {-0.44999999999999996`, \ -0.44999999999999996`}, {0.44999999999999996`, -0.44999999999999996`}, { 1.0910118801132553`, 0.32810930360391466`}, {1.1481835898557213`, 0.32758063688095795`}, {2.0481835898557215`, 0.32758063688095795`}, { 2.0481835898557215`, 1.2275806368809579`}}, SplineClosed -> True]]}}, { {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Thickness[0.01], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3363053381343617`, 1.434449805097462}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Thickness[ 0.01], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {1.5981835898557213`, 0.7775806368809579}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.72987, 0.239399, 0.230961], Thickness[0.01], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0., 0.}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0.008473226642642828, 1.5802779931265807`}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7808393149104767`*^9, 3.7808394237113953`*^9, 3.780839531544777*^9, 3.7808409732186823`*^9}, CellLabel->"Out[0]", CellID->270564909] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031731], Cell["Alternate between 3 and 5:", "Text", TaggingRules->{}, CellChangeTimes->{{3.779900736781061*^9, 3.779900765901594*^9}, { 3.779900795942657*^9, 3.7799008009411297`*^9}, {3.780839161597959*^9, 3.7808392770368958`*^9}, 3.780839307504484*^9, {3.78083936520617*^9, 3.780839455535179*^9}, {3.780839536222892*^9, 3.780839537077879*^9}}, CellID->84488378], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], ",", " ", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7808394605540113`*^9, 3.780839463264619*^9}, { 3.780839539983807*^9, 3.780839542512486*^9}, 3.780840906062904*^9, 3.782843169019272*^9}, CellID->164110383], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{4.598816476723527, 0.3304958934684611}, { 5.506533499288662, 0.34827444108177397`}, {5.506533499288662, 1.2482744410817739`}, {4.606533499288662, 1.2482744410817739`}, { 4.577435449913011, 1.24770452662229}, {3.786305338134362, 1.8844498050974618`}, {2.8863053381343615`, 1.8844498050974618`}, { 2.8863053381343615`, 0.9844498050974619}, {3.1411980889262257`, 0.7792980188516128}, {2.888766941144225, 0.5750429227880796}, { 2.888766941144225, -0.32495707721192035`}, { 3.7887669411442255`, -0.32495707721192035`}}, SplineClosed -> True]]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Opacity[ 0.2], FilledCurveBox[ BSplineCurve[{{1.7861253420316183`, 1.527580636880958}, { 0.8481835898557213, 1.527580636880958}, {0.8481835898557213, 0.02758063688095791}, {1.7859775396424662`, 0.027459305639367715`}, { 2.5887669411442253`, -0.6249570772119204}, { 4.088766941144225, -0.6249570772119204}, {4.088766941144225, 0.8750429227880796}, {4.086305338134362, 0.8770434351624419}, { 4.086305338134362, 2.184449805097462}, {2.5863053381343617`, 2.184449805097462}}, SplineClosed -> True]]}, {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{1.0978160158420238`, 1.2363686845573583`}, { 0.4584732266426428, 2.030277993126581}, {-0.4415267733573571, 2.030277993126581}, {-0.4415267733573571, 1.1302779931265807`}, {-0.16868796105823813`, 0.7914780934757362}, {-0.44999999999999996`, 0.44999999999999996`}, {-0.44999999999999996`, \ -0.44999999999999996`}, {0.44999999999999996`, -0.44999999999999996`}, { 1.0910118801132553`, 0.32810930360391466`}, {1.1481835898557213`, 0.32758063688095795`}, {2.0481835898557215`, 0.32758063688095795`}, { 2.0481835898557215`, 1.2275806368809579`}}, SplineClosed -> True]]}}, { {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Thickness[0.01], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3363053381343617`, 1.434449805097462}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Thickness[ 0.01], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {1.5981835898557213`, 0.7775806368809579}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.72987, 0.239399, 0.230961], Thickness[0.01], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0., 0.}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0.008473226642642828, 1.5802779931265807`}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.780839463604184*^9, 3.780839543015967*^9}, CellLabel->"Out[0]", CellID->470911134] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "SubsetBoundaryStyle", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.7799006609245853`*^9, 3.779900664571251*^9}, 3.780839156299939*^9, 3.780839324041347*^9, {3.7808395561033907`*^9, 3.7808395567099133`*^9}}, CellID->745110036], Cell[TextData[{ "The default subset boundary style is ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.779900736781061*^9, 3.779900765901594*^9}, { 3.779900795942657*^9, 3.7799008009411297`*^9}, {3.780839161597959*^9, 3.780839212357543*^9}, {3.780839338547279*^9, 3.780839346428154*^9}, { 3.780839581213162*^9, 3.780839591911394*^9}, 3.792773453744403*^9}, CellID->563995823], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.782843169024269*^9}, CellID->811099286], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{4.448816476723526, 0.48049589346846105`}, { 5.356533499288662, 0.49827444108177393`}, {5.356533499288662, 1.098274441081774}, {4.756533499288662, 1.098274441081774}, { 4.434562458849849, 1.0919683155710138`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}, { 3.036305338134362, 1.1344498050974618`}, {3.4770708848586596`, 0.7796973103905622}, {3.0387669411442255`, 0.4250429227880796}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}}, SplineClosed -> True]]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Opacity[ 0.2], FilledCurveBox[ BSplineCurve[{{2.236072088619826, 1.0775369210614185`}, { 1.8981835898557213`, 1.077580636880958}, {1.2981835898557212`, 1.077580636880958}, {1.2981835898557212`, 0.4775806368809579}, { 2.2359775396424664`, 0.4774593056393677}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}, {3.638766941144225, 0.4250429227880796}, {3.2032670757329194`, 0.7789679327500407}, { 3.6363053381343615`, 1.1344498050974618`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}}, SplineClosed -> True]]}, {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{0.9478160158420239, 1.0863686845573584`}, { 0.3084732266426428, 1.8802779931265807`}, {-0.29152677335735716`, 1.8802779931265807`}, {-0.29152677335735716`, 1.2802779931265806`}, { 0.10348003124184929`, 0.7897749571696102}, {-0.3, 0.3}, {-0.3, -0.3}, {0.3, -0.3}, {0.9432799253561783, 0.48086243058839584`}, {1.2981835898557212`, 0.4775806368809579}, { 1.8981835898557213`, 0.4775806368809579}, {1.8981835898557213`, 1.077580636880958}}, SplineClosed -> True]]}}, { {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Thickness[0.01], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3363053381343617`, 1.434449805097462}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Thickness[ 0.01], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {1.5981835898557213`, 0.7775806368809579}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.72987, 0.239399, 0.230961], Thickness[0.01], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0., 0.}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0.008473226642642828, 1.5802779931265807`}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7808392264086313`*^9, 3.7808393506299553`*^9}, CellLabel->"Out[0]", CellID->16737084] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031732], Cell["Use black boundary lines:", "Text", TaggingRules->{}, CellChangeTimes->{{3.779900736781061*^9, 3.779900765901594*^9}, { 3.779900795942657*^9, 3.7799008009411297`*^9}, {3.780839161597959*^9, 3.7808392770368958`*^9}, 3.780839307504484*^9, {3.78083936520617*^9, 3.780839416061494*^9}, 3.780839601688862*^9}, CellID->452631463], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], ",", " ", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"EdgeForm", "[", "Black", "]"}], ",", " ", RowBox[{"FaceForm", "[", "]"}]}], "]"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.780839281605482*^9, 3.7808393016407633`*^9}, { 3.780839411468952*^9, 3.7808394232010317`*^9}, {3.780839605696158*^9, 3.780839624988225*^9}, 3.782843169028267*^9}, CellID->294284983], Cell[BoxData[ GraphicsBox[{{{ {EdgeForm[GrayLevel[0]], FaceForm[None], FilledCurveBox[ BSplineCurve[{{4.448816476723526, 0.48049589346846105`}, { 5.356533499288662, 0.49827444108177393`}, {5.356533499288662, 1.098274441081774}, {4.756533499288662, 1.098274441081774}, { 4.434562458849849, 1.0919683155710138`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}, { 3.036305338134362, 1.1344498050974618`}, {3.4770708848586596`, 0.7796973103905622}, {3.0387669411442255`, 0.4250429227880796}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}}, SplineClosed -> True]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], FilledCurveBox[ BSplineCurve[{{2.236072088619826, 1.0775369210614185`}, { 1.8981835898557213`, 1.077580636880958}, {1.2981835898557212`, 1.077580636880958}, {1.2981835898557212`, 0.4775806368809579}, { 2.2359775396424664`, 0.4774593056393677}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}, {3.638766941144225, 0.4250429227880796}, {3.2032670757329194`, 0.7789679327500407}, { 3.6363053381343615`, 1.1344498050974618`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}}, SplineClosed -> True]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], FilledCurveBox[ BSplineCurve[{{0.9478160158420239, 1.0863686845573584`}, { 0.3084732266426428, 1.8802779931265807`}, {-0.29152677335735716`, 1.8802779931265807`}, {-0.29152677335735716`, 1.2802779931265806`}, { 0.10348003124184929`, 0.7897749571696102}, {-0.3, 0.3}, {-0.3, -0.3}, {0.3, -0.3}, {0.9432799253561783, 0.48086243058839584`}, {1.2981835898557212`, 0.4775806368809579}, { 1.8981835898557213`, 0.4775806368809579}, {1.8981835898557213`, 1.077580636880958}}, SplineClosed -> True]]}}, { {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Thickness[0.01], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3363053381343617`, 1.434449805097462}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Thickness[ 0.01], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {1.5981835898557213`, 0.7775806368809579}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.72987, 0.239399, 0.230961], Thickness[0.01], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0., 0.}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0.008473226642642828, 1.5802779931265807`}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7808393149104767`*^9, 3.7808394237113953`*^9, {3.7808396122480707`*^9, 3.7808396256066437`*^9}}, CellLabel->"Out[0]", CellID->944315188] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031733], Cell["Alternate between red and blue:", "Text", TaggingRules->{}, CellChangeTimes->{{3.779900736781061*^9, 3.779900765901594*^9}, { 3.779900795942657*^9, 3.7799008009411297`*^9}, {3.780839161597959*^9, 3.7808392770368958`*^9}, 3.780839307504484*^9, {3.78083936520617*^9, 3.780839455535179*^9}, {3.780839649751742*^9, 3.7808396519894342`*^9}}, CellID->592250249], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], ",", " ", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Blue"}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7808394605540113`*^9, 3.780839463264619*^9}, { 3.780839656121437*^9, 3.780839659482567*^9}, 3.7828431690372624`*^9}, CellID->604208200], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[1, 0, 0], FilledCurveBox[ BSplineCurve[{{4.448816476723526, 0.48049589346846105`}, { 5.356533499288662, 0.49827444108177393`}, {5.356533499288662, 1.098274441081774}, {4.756533499288662, 1.098274441081774}, { 4.434562458849849, 1.0919683155710138`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}, { 3.036305338134362, 1.1344498050974618`}, {3.4770708848586596`, 0.7796973103905622}, {3.0387669411442255`, 0.4250429227880796}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}}, SplineClosed -> True]]}, {RGBColor[0, 0, 1], FilledCurveBox[ BSplineCurve[{{2.236072088619826, 1.0775369210614185`}, { 1.8981835898557213`, 1.077580636880958}, {1.2981835898557212`, 1.077580636880958}, {1.2981835898557212`, 0.4775806368809579}, { 2.2359775396424664`, 0.4774593056393677}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}, {3.638766941144225, 0.4250429227880796}, {3.2032670757329194`, 0.7789679327500407}, { 3.6363053381343615`, 1.1344498050974618`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}}, SplineClosed -> True]]}, {RGBColor[1, 0, 0], FilledCurveBox[ BSplineCurve[{{0.9478160158420239, 1.0863686845573584`}, { 0.3084732266426428, 1.8802779931265807`}, {-0.29152677335735716`, 1.8802779931265807`}, {-0.29152677335735716`, 1.2802779931265806`}, { 0.10348003124184929`, 0.7897749571696102}, {-0.3, 0.3}, {-0.3, -0.3}, {0.3, -0.3}, {0.9432799253561783, 0.48086243058839584`}, {1.2981835898557212`, 0.4775806368809579}, { 1.8981835898557213`, 0.4775806368809579}, {1.8981835898557213`, 1.077580636880958}}, SplineClosed -> True]]}}, { {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Thickness[0.01], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3363053381343617`, 1.434449805097462}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Thickness[ 0.01], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {1.5981835898557213`, 0.7775806368809579}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.72987, 0.239399, 0.230961], Thickness[0.01], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0., 0.}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0.008473226642642828, 1.5802779931265807`}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.780839463604184*^9, 3.780839659975543*^9}, CellLabel->"Out[0]", CellID->810064031] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "SubsetEdge", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.7799006609245853`*^9, 3.779900664571251*^9}, 3.780839156299939*^9, 3.780839324041347*^9, 3.7808396800274763`*^9}, CellID->846041575], Cell[TextData[{ "The default subset edge is ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.779900736781061*^9, 3.779900765901594*^9}, { 3.779900795942657*^9, 3.7799008009411297`*^9}, {3.780839161597959*^9, 3.780839212357543*^9}, {3.780839338547279*^9, 3.780839346428154*^9}, { 3.780839566429255*^9, 3.7808395732247877`*^9}, {3.780839683209938*^9, 3.7808396836368847`*^9}, 3.780920578808536*^9, 3.792773458935234*^9}, CellID->757063380], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7828431690452585`*^9}, CellID->811099287], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{4.448816476723526, 0.48049589346846105`}, { 5.356533499288662, 0.49827444108177393`}, {5.356533499288662, 1.098274441081774}, {4.756533499288662, 1.098274441081774}, { 4.434562458849849, 1.0919683155710138`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}, { 3.036305338134362, 1.1344498050974618`}, {3.4770708848586596`, 0.7796973103905622}, {3.0387669411442255`, 0.4250429227880796}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}}, SplineClosed -> True]]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Opacity[ 0.2], FilledCurveBox[ BSplineCurve[{{2.236072088619826, 1.0775369210614185`}, { 1.8981835898557213`, 1.077580636880958}, {1.2981835898557212`, 1.077580636880958}, {1.2981835898557212`, 0.4775806368809579}, { 2.2359775396424664`, 0.4774593056393677}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}, {3.638766941144225, 0.4250429227880796}, {3.2032670757329194`, 0.7789679327500407}, { 3.6363053381343615`, 1.1344498050974618`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}}, SplineClosed -> True]]}, {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{0.9478160158420239, 1.0863686845573584`}, { 0.3084732266426428, 1.8802779931265807`}, {-0.29152677335735716`, 1.8802779931265807`}, {-0.29152677335735716`, 1.2802779931265806`}, { 0.10348003124184929`, 0.7897749571696102}, {-0.3, 0.3}, {-0.3, -0.3}, {0.3, -0.3}, {0.9432799253561783, 0.48086243058839584`}, {1.2981835898557212`, 0.4775806368809579}, { 1.8981835898557213`, 0.4775806368809579}, {1.8981835898557213`, 1.077580636880958}}, SplineClosed -> True]]}}, { {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Thickness[0.01], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3363053381343617`, 1.434449805097462}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Thickness[ 0.01], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {1.5981835898557213`, 0.7775806368809579}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.72987, 0.239399, 0.230961], Thickness[0.01], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0., 0.}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0.008473226642642828, 1.5802779931265807`}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7808392264086313`*^9, 3.7808393506299553`*^9}, CellLabel->"Out[0]", CellID->16737085] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031734], Cell[TextData[{ "Use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "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/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to not show subset edges:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.779900736781061*^9, 3.779900765901594*^9}, { 3.779900795942657*^9, 3.7799008009411297`*^9}, {3.780839161597959*^9, 3.7808392770368958`*^9}, 3.780839307504484*^9, {3.78083936520617*^9, 3.780839416061494*^9}, {3.780839687349162*^9, 3.780839687922823*^9}, 3.79277346442208*^9}, CellID->991786511], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], ",", " ", RowBox[{"\"\\"", "\[Rule]", "False"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.780839281605482*^9, 3.7808393016407633`*^9}, { 3.780839411468952*^9, 3.7808394232010317`*^9}, 3.780839691932788*^9, 3.7828431690522547`*^9}, CellID->185634804], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{4.448816476723526, 0.48049589346846105`}, { 5.356533499288662, 0.49827444108177393`}, {5.356533499288662, 1.098274441081774}, {4.756533499288662, 1.098274441081774}, { 4.434562458849849, 1.0919683155710138`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}, { 3.036305338134362, 1.1344498050974618`}, {3.4770708848586596`, 0.7796973103905622}, {3.0387669411442255`, 0.4250429227880796}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}}, SplineClosed -> True]]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Opacity[ 0.2], FilledCurveBox[ BSplineCurve[{{2.236072088619826, 1.0775369210614185`}, { 1.8981835898557213`, 1.077580636880958}, {1.2981835898557212`, 1.077580636880958}, {1.2981835898557212`, 0.4775806368809579}, { 2.2359775396424664`, 0.4774593056393677}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}, {3.638766941144225, 0.4250429227880796}, {3.2032670757329194`, 0.7789679327500407}, { 3.6363053381343615`, 1.1344498050974618`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}}, SplineClosed -> True]]}, {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{0.9478160158420239, 1.0863686845573584`}, { 0.3084732266426428, 1.8802779931265807`}, {-0.29152677335735716`, 1.8802779931265807`}, {-0.29152677335735716`, 1.2802779931265806`}, { 0.10348003124184929`, 0.7897749571696102}, {-0.3, 0.3}, {-0.3, -0.3}, {0.3, -0.3}, {0.9432799253561783, 0.48086243058839584`}, {1.2981835898557212`, 0.4775806368809579}, { 1.8981835898557213`, 0.4775806368809579}, {1.8981835898557213`, 1.077580636880958}}, SplineClosed -> True]]}}, {}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7808393149104767`*^9, 3.7808394237113953`*^9, 3.780839692645537*^9}, CellLabel->"Out[0]", CellID->849380596] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031735], Cell[TextData[{ "Alternate between ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "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/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "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/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.779900736781061*^9, 3.779900765901594*^9}, { 3.779900795942657*^9, 3.7799008009411297`*^9}, {3.780839161597959*^9, 3.7808392770368958`*^9}, 3.780839307504484*^9, {3.78083936520617*^9, 3.780839455535179*^9}, {3.7927734702668905`*^9, 3.7927734728138313`*^9}}, CellID->427622527], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], ",", " ", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7808394605540113`*^9, 3.780839463264619*^9}, 3.780839695837265*^9, 3.7828431690601044`*^9}, CellID->449557679], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{4.448816476723526, 0.48049589346846105`}, { 5.356533499288662, 0.49827444108177393`}, {5.356533499288662, 1.098274441081774}, {4.756533499288662, 1.098274441081774}, { 4.434562458849849, 1.0919683155710138`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}, { 3.036305338134362, 1.1344498050974618`}, {3.4770708848586596`, 0.7796973103905622}, {3.0387669411442255`, 0.4250429227880796}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}}, SplineClosed -> True]]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Opacity[ 0.2], FilledCurveBox[ BSplineCurve[{{2.236072088619826, 1.0775369210614185`}, { 1.8981835898557213`, 1.077580636880958}, {1.2981835898557212`, 1.077580636880958}, {1.2981835898557212`, 0.4775806368809579}, { 2.2359775396424664`, 0.4774593056393677}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}, {3.638766941144225, 0.4250429227880796}, {3.2032670757329194`, 0.7789679327500407}, { 3.6363053381343615`, 1.1344498050974618`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}}, SplineClosed -> True]]}, {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{0.9478160158420239, 1.0863686845573584`}, { 0.3084732266426428, 1.8802779931265807`}, {-0.29152677335735716`, 1.8802779931265807`}, {-0.29152677335735716`, 1.2802779931265806`}, { 0.10348003124184929`, 0.7897749571696102}, {-0.3, 0.3}, {-0.3, -0.3}, {0.3, -0.3}, {0.9432799253561783, 0.48086243058839584`}, {1.2981835898557212`, 0.4775806368809579}, { 1.8981835898557213`, 0.4775806368809579}, {1.8981835898557213`, 1.077580636880958}}, SplineClosed -> True]]}}, { {RGBColor[0.624866, 0.673302, 0.264296], Thickness[0.01], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3363053381343617`, 1.434449805097462}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.72987, 0.239399, 0.230961], Thickness[0.01], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0., 0.}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0.008473226642642828, 1.5802779931265807`}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.780839463604184*^9, 3.7808396973599167`*^9}, CellLabel->"Out[0]", CellID->21458975] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "SubsetEdgeStyle", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.7799006609245853`*^9, 3.779900664571251*^9}, 3.780839156299939*^9, 3.780839324041347*^9, {3.7808395561033907`*^9, 3.7808395567099133`*^9}, 3.7808397117630033`*^9}, CellID->449597974], Cell[TextData[{ "The default subset edge style is ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.779900736781061*^9, 3.779900765901594*^9}, { 3.779900795942657*^9, 3.7799008009411297`*^9}, {3.780839161597959*^9, 3.780839212357543*^9}, {3.780839338547279*^9, 3.780839346428154*^9}, { 3.780839581213162*^9, 3.780839591911394*^9}, {3.780839715294532*^9, 3.7808397157104473`*^9}, 3.792773479230625*^9}, CellID->941422418], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7828431690666075`*^9}, CellID->811099288], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{4.448816476723526, 0.48049589346846105`}, { 5.356533499288662, 0.49827444108177393`}, {5.356533499288662, 1.098274441081774}, {4.756533499288662, 1.098274441081774}, { 4.434562458849849, 1.0919683155710138`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}, { 3.036305338134362, 1.1344498050974618`}, {3.4770708848586596`, 0.7796973103905622}, {3.0387669411442255`, 0.4250429227880796}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}}, SplineClosed -> True]]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Opacity[ 0.2], FilledCurveBox[ BSplineCurve[{{2.236072088619826, 1.0775369210614185`}, { 1.8981835898557213`, 1.077580636880958}, {1.2981835898557212`, 1.077580636880958}, {1.2981835898557212`, 0.4775806368809579}, { 2.2359775396424664`, 0.4774593056393677}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}, {3.638766941144225, 0.4250429227880796}, {3.2032670757329194`, 0.7789679327500407}, { 3.6363053381343615`, 1.1344498050974618`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}}, SplineClosed -> True]]}, {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{0.9478160158420239, 1.0863686845573584`}, { 0.3084732266426428, 1.8802779931265807`}, {-0.29152677335735716`, 1.8802779931265807`}, {-0.29152677335735716`, 1.2802779931265806`}, { 0.10348003124184929`, 0.7897749571696102}, {-0.3, 0.3}, {-0.3, -0.3}, {0.3, -0.3}, {0.9432799253561783, 0.48086243058839584`}, {1.2981835898557212`, 0.4775806368809579}, { 1.8981835898557213`, 0.4775806368809579}, {1.8981835898557213`, 1.077580636880958}}, SplineClosed -> True]]}}, { {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Thickness[0.01], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3363053381343617`, 1.434449805097462}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Thickness[ 0.01], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {1.5981835898557213`, 0.7775806368809579}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.72987, 0.239399, 0.230961], Thickness[0.01], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0., 0.}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0.008473226642642828, 1.5802779931265807`}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7808392264086313`*^9, 3.7808393506299553`*^9, 3.7808397167235603`*^9}, CellLabel->"Out[0]", CellID->16737086] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031736], Cell["Use black edge lines:", "Text", TaggingRules->{}, CellChangeTimes->{{3.779900736781061*^9, 3.779900765901594*^9}, { 3.779900795942657*^9, 3.7799008009411297`*^9}, {3.780839161597959*^9, 3.7808392770368958`*^9}, 3.780839307504484*^9, {3.78083936520617*^9, 3.780839416061494*^9}, 3.780839601688862*^9, {3.780839730291374*^9, 3.780839730662222*^9}}, CellID->390211858], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], ",", " ", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", ".02", "]"}], ",", "Black"}], "]"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.780839281605482*^9, 3.7808393016407633`*^9}, { 3.780839411468952*^9, 3.7808394232010317`*^9}, {3.780839605696158*^9, 3.780839624988225*^9}, {3.780839723296493*^9, 3.780839751340773*^9}, 3.782843169073603*^9}, CellID->252393820], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{4.448816476723526, 0.48049589346846105`}, { 5.356533499288662, 0.49827444108177393`}, {5.356533499288662, 1.098274441081774}, {4.756533499288662, 1.098274441081774}, { 4.434562458849849, 1.0919683155710138`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}, { 3.036305338134362, 1.1344498050974618`}, {3.4770708848586596`, 0.7796973103905622}, {3.0387669411442255`, 0.4250429227880796}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}}, SplineClosed -> True]]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Opacity[ 0.2], FilledCurveBox[ BSplineCurve[{{2.236072088619826, 1.0775369210614185`}, { 1.8981835898557213`, 1.077580636880958}, {1.2981835898557212`, 1.077580636880958}, {1.2981835898557212`, 0.4775806368809579}, { 2.2359775396424664`, 0.4774593056393677}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}, {3.638766941144225, 0.4250429227880796}, {3.2032670757329194`, 0.7789679327500407}, { 3.6363053381343615`, 1.1344498050974618`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}}, SplineClosed -> True]]}, {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{0.9478160158420239, 1.0863686845573584`}, { 0.3084732266426428, 1.8802779931265807`}, {-0.29152677335735716`, 1.8802779931265807`}, {-0.29152677335735716`, 1.2802779931265806`}, { 0.10348003124184929`, 0.7897749571696102}, {-0.3, 0.3}, {-0.3, -0.3}, {0.3, -0.3}, {0.9432799253561783, 0.48086243058839584`}, {1.2981835898557212`, 0.4775806368809579}, { 1.8981835898557213`, 0.4775806368809579}, {1.8981835898557213`, 1.077580636880958}}, SplineClosed -> True]]}}, { {GrayLevel[0], Thickness[0.02], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3363053381343617`, 1.434449805097462}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}]}, {GrayLevel[0], Thickness[0.02], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {1.5981835898557213`, 0.7775806368809579}}, SplineWeights->{1, 6, 1}]}, {GrayLevel[0], Thickness[0.02], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0., 0.}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0.008473226642642828, 1.5802779931265807`}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7808393149104767`*^9, 3.7808394237113953`*^9, {3.7808396122480707`*^9, 3.7808396256066437`*^9}, {3.7808397241129627`*^9, 3.780839751677917*^9}}, CellLabel->"Out[0]", CellID->230110559] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031737], Cell["Alternate between red and blue:", "Text", TaggingRules->{}, CellChangeTimes->{{3.779900736781061*^9, 3.779900765901594*^9}, { 3.779900795942657*^9, 3.7799008009411297`*^9}, {3.780839161597959*^9, 3.7808392770368958`*^9}, 3.780839307504484*^9, {3.78083936520617*^9, 3.780839455535179*^9}, {3.780839649751742*^9, 3.7808396519894342`*^9}}, CellID->592250250], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}]}], "}"}], ",", " ", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Blue"}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7808394605540113`*^9, 3.780839463264619*^9}, { 3.780839656121437*^9, 3.780839659482567*^9}, 3.780839757766686*^9, 3.7828431690786004`*^9}, CellID->594294775], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[ 0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{4.448816476723526, 0.48049589346846105`}, { 5.356533499288662, 0.49827444108177393`}, {5.356533499288662, 1.098274441081774}, {4.756533499288662, 1.098274441081774}, { 4.434562458849849, 1.0919683155710138`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}, { 3.036305338134362, 1.1344498050974618`}, {3.4770708848586596`, 0.7796973103905622}, {3.0387669411442255`, 0.4250429227880796}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}}, SplineClosed -> True]]}, {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], Opacity[ 0.2], FilledCurveBox[ BSplineCurve[{{2.236072088619826, 1.0775369210614185`}, { 1.8981835898557213`, 1.077580636880958}, {1.2981835898557212`, 1.077580636880958}, {1.2981835898557212`, 0.4775806368809579}, { 2.2359775396424664`, 0.4774593056393677}, { 3.0387669411442255`, -0.1749570772119204}, { 3.638766941144225, -0.1749570772119204}, {3.638766941144225, 0.4250429227880796}, {3.2032670757329194`, 0.7789679327500407}, { 3.6363053381343615`, 1.1344498050974618`}, {3.6363053381343615`, 1.734449805097462}, {3.036305338134362, 1.734449805097462}}, SplineClosed -> True]]}, {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{0.9478160158420239, 1.0863686845573584`}, { 0.3084732266426428, 1.8802779931265807`}, {-0.29152677335735716`, 1.8802779931265807`}, {-0.29152677335735716`, 1.2802779931265806`}, { 0.10348003124184929`, 0.7897749571696102}, {-0.3, 0.3}, {-0.3, -0.3}, {0.3, -0.3}, {0.9432799253561783, 0.48086243058839584`}, {1.2981835898557212`, 0.4775806368809579}, { 1.8981835898557213`, 0.4775806368809579}, {1.8981835898557213`, 1.077580636880958}}, SplineClosed -> True]]}}, { {RGBColor[1, 0, 0], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3363053381343617`, 1.434449805097462}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{5.056533499288662, 0.7982744410817739}, { 4.1488164767235265`, 0.780495893468461}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0, 0, 1], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {3.3387669411442253`, 0.1250429227880796}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{3.3363053381343617`, 1.434449805097462}, { 2.535977539642466, 0.7774593056393677}, {1.5981835898557213`, 0.7775806368809579}}, SplineWeights->{1, 6, 1}]}, {RGBColor[1, 0, 0], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0., 0.}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.5981835898557213`, 0.7775806368809579}, { 0.6478160158420239, 0.7863686845573583}, {0.008473226642642828, 1.5802779931265807`}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{5.056533499288662, 0.7982744410817739}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["1", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{3.3363053381343617, 1.434449805097462}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["2", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{3.3387669411442253, 0.1250429227880796}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["3", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{1.5981835898557213, 0.7775806368809579}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["5", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{0., 0.}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["7", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.008473226642642828, 1.5802779931265807}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["8", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.780839463604184*^9, 3.780839659975543*^9, 3.780839758479082*^9}, CellLabel->"Out[0]", CellID->408229005] }, Open ]] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Applications", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->568056528], Cell["Draw a hypergraph constructed by communities:", "Text", TaggingRules->{}, CellChangeTimes->{{3.780838331430153*^9, 3.7808383353445787`*^9}, { 3.780839114829529*^9, 3.780839122411787*^9}}, CellID->45296473], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{ RowBox[{"FindGraphCommunities", "[", RowBox[{"ExampleData", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "]"}], "]"}], ",", " ", RowBox[{"VertexShapeFunction", "\[Rule]", "\"\\""}], ",", " ", RowBox[{"VertexSize", "\[Rule]", "0.2"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.780839060650132*^9, 3.780839099652828*^9}, 3.7828431690885954`*^9}, CellLabel->"In[1]", CellID->664621932], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[0.277947, 0.45009699999999997`, 0.32815550000000004`], Opacity[ 0.2], FilledCurveBox[BSplineCurve[CompressedData[" 1:eJxTTMoPSmViYGBQAWIQrW2n+ODGNBaHmuLLc9otHu6H8c80iLXOFT6/362b c/elGkYM/o+Z/znjpTbtP+DptvKGzjd7GH9dbWnqbuVv9hUSmZ/K2Lbut/9h XN/84C0G/4SPMcO19+f3z2XOt3vT8ND+DBqf59y39cYyj/Z/KHD7tZ3/rD03 Gr964XI3R6b3+2cEpef/WL8Zgx/dx/jC8uq3/VB32fd9XDFH5TaCr3t/15Yf lxkPMPQUfm7puIjBX9256brpW5YDlytus20KeYTB3/Df/sOOGPYD8zPc3ThT 3mPw2x3lvi6p4DjAkariNcHpG5xvtvTC04Xu3+zPM4u+1WnlOMC00y/SvIvR AZ3PeOfUWhE19gOd8w9efnGFBYPftzV57bytLAdO6l6qN1Njx+BXM21I6cxn PPDtgezxa4s4MPhaFpP/uAp92z/tLrdwTx6Hw7R0a8sV/77C+adv9u25aP1u /ylvTV5LM3YMfjU0vQAA/zIh2w== "], SplineClosed -> True]]}, {RGBColor[0.624866, 0.673302, 0.264296], Opacity[0.2], FilledCurveBox[BSplineCurve[CompressedData[" 1:eJxTTMoPSmViYGBQAmIQ/Yjry1mnC+wO4fczg5bfETgA4+99u9LqwR6+A9EK a9e/+s2KwZ9+5Gr/thieA9uuOdxPqmDG4Ftf0ZgW7Mx1YFXvTvPJvAwY/Py/ W+5eWsZ5oMNv2aJIv8/2MP5VBqnb2p6f7YN3TMw/7Mp14Ki0kXMy2ysMPudp wUir+9wHNoTFsJ0+cxuDr+udpylyie9ATQVrecHB4xh8kxSBZDYpwQM/Zv7n jJfahMHPmO48zdJX5EDJxmqNsCWH7c+XdPOKBiD4xxbtT9N2FDvQkiyekvzy Pgbf9hD3hCQBiQOh3I0MNZ1vMfgpbX+1DqyTOFARxHu2a+JvOF/2/Buv9HW/ 7acIeXezTJI44OjkUhp4jdkBnZ+8fvL5tcbiB5KPRYp9es+GwX+iIvhRe43o gR0qXTdNYzkw+KKstQfFhUQOfGIOEzrbx+HQLTS39RY/gg9LDwAXwPak "], SplineClosed -> True]]}, {RGBColor[0.8453409999999999, 0.6248695, 0.3151775], Opacity[0.2], FilledCurveBox[BSplineCurve[CompressedData[" 1:eJxTTMoPSmViYGCQA2IQnbBpimRIg7hDm2+hbXbY2/0wfvzihXVnTj/Yv6D0 tP2GAjGHODR+j+XsVWeKDuzPcZrBU2srDOdL2f9ulpIQduBZ5nLG/OGJ/Xsi HxvWCCH4h26Lbl76VMjhx8z/nPFSm/bLBh79/ySFH4Mvp+TRxXji+n7tpSW7 N3jyYPBvC1j1n9v5cv/0W3u31xzhxOBbXc0U2bLy5/6ZDXopes84Hez+v9ni txvBL9HZO/HDRcYDQg5dWv+beDD4d9SnJh3SZj1w/oTeTIYD/Bj8ey+uxC0R Zz9gq9CYZL5NEM4/d329z+kdgg77TPZu1rZmP8DE/bj+32sRDH7vJtFkY222 A6f/bNDbeV8Mg58e13+LJ4TpgCKvUqBtjgQGf6XzOreSvt/7T3pyqqRNkHCY UNyazVSB4LdC4xMATfniTA== "], SplineClosed -> True]]}, {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], FilledCurveBox[ BSplineCurve[{{4.680975913947683, -4.22424703758953}, { 4.096094819511791, -4.121377773460616}, { 3.296094819511791, -4.121377773460616}, { 3.296094819511791, -4.921377773460617}, { 4.280973661898415, -5.0945988994916505`}, { 5.080973661898415, -5.0945988994916505`}, { 6.065860821803945, -4.921378261088068}, { 6.065860821803945, -4.121378261088068}, { 5.265860821803944, -4.121378261088068}}, SplineClosed -> True]]}}, { {RGBColor[0.277947, 0.45009699999999997`, 0.32815550000000004`], Thickness[0.01], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 2.679511218642547, -1.7794612756933113`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 2.4936586366669173`, -2.1886815591863473`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 1.8368782335095881`, -2.170696129602086}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 1.7859488117492304`, -0.47071489328482263`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 1.5949311781831406`, -0.906981936606519}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 1.2536496660361045`, -2.129082447408263}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 1.333656452601788, -0.48212989252305816`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 1.3809614536891508`, -2.658908381448592}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 0.9728387960368998, -2.5202746171503905`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 0.9469876498610692, -0.649506712053153}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 0.6739574792269082, -2.2158253527985003`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 0.6270421955153164, -0.9659426152037112}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 0.47071489328482263`, -1.8285017127541296`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 0.47690384597601465`, -1.3690252666451181`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 0.8953167862573252, -1.6772130502754776`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 1.0715715220068323`, -1.1382052136625183`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 1.7924883820676094`, -2.6650270959890587`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 2.203959707590495, -2.493594129327085}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 2.1736558447022354`, -0.6427861118167186}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 2.220668221274323, -1.7402913268693114`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 2.101266335366348, -1.1794569867132931`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{2.6539781082149587`, -1.3448021586202286`}, { 1.571346976717081, -1.5716080766327993`}, { 2.5014760044314914`, -0.9381506026275099}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.624866, 0.673302, 0.264296], Thickness[0.01], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 0.8986198880629263, -5.616000986783692}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 0.5534526536628495, -5.163642125555537}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 0.47071489328482263`, -4.675414989352658}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 1.0839917143962015`, -5.272408101101469}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 1.6674504754100803`, -5.697926642340531}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 0.5855907994421989, -4.2525775181564285`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 2.0796475564437804`, -5.742595459420267}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 0.834374576770419, -3.8839980085902237`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 0.9333006817301518, -4.805465061451362}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 1.9833274043873454`, -5.294072284987095}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 1.2132797539154743`, -3.6840641704888553`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 2.4671609636447087`, -5.400467723263724}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 1.1550657897438532`, -4.259506616243387}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 2.1257483858608186`, -4.738596065617615}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 1.7891863704393147`, -4.1305403077856635`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 2.6455128665240317`, -5.018136374160187}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 1.6066284516812703`, -3.606456882558704}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 2.6697270805835553`, -4.615482032501164}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 2.033782333532544, -3.682874272461894}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 2.3480062222203237`, -3.9452700841056627`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{1.3230327615590378`, -5.770654937480865}, { 1.588598998979079, -4.713115497782005}, { 2.57668991948136, -4.242224558173}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.8453409999999999, 0.6248695, 0.3151775], Thickness[0.01], BSplineCurveBox[{{4.3242649061290095`, -0.47071489328482263`}, { 4.682049124284314, -1.4811283183907218`}, { 3.6209410052121926`, -1.2039315030478308`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{4.3242649061290095`, -0.47071489328482263`}, { 4.682049124284314, -1.4811283183907218`}, { 4.368751141300437, -2.4865439804768434`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{4.3242649061290095`, -0.47071489328482263`}, { 4.682049124284314, -1.4811283183907218`}, { 3.637393171948565, -1.8275096307617393`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{4.3242649061290095`, -0.47071489328482263`}, { 4.682049124284314, -1.4811283183907218`}, { 4.126813816788534, -1.49806090401449}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{4.3242649061290095`, -0.47071489328482263`}, { 4.682049124284314, -1.4811283183907218`}, { 5.165502898454621, -1.7603233966861782`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{4.3242649061290095`, -0.47071489328482263`}, { 4.682049124284314, -1.4811283183907218`}, { 4.757129509912939, -0.594373106708824}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{4.3242649061290095`, -0.47071489328482263`}, { 4.682049124284314, -1.4811283183907218`}, { 5.318479852249582, -2.371094106769232}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{4.3242649061290095`, -0.47071489328482263`}, { 4.682049124284314, -1.4811283183907218`}, { 3.9639632533493647`, -2.2463668538826664`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{4.3242649061290095`, -0.47071489328482263`}, { 4.682049124284314, -1.4811283183907218`}, { 3.9359816212627683`, -0.7715823984535137}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{4.3242649061290095`, -0.47071489328482263`}, { 4.682049124284314, -1.4811283183907218`}, { 5.705702655509305, -1.891040141582744}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{4.3242649061290095`, -0.47071489328482263`}, { 4.682049124284314, -1.4811283183907218`}, { 5.210047337334805, -0.5285034020460895}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{4.3242649061290095`, -0.47071489328482263`}, { 4.682049124284314, -1.4811283183907218`}, { 4.830463026268582, -2.503891948901758}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{4.3242649061290095`, -0.47071489328482263`}, { 4.682049124284314, -1.4811283183907218`}, { 5.741014636103542, -1.3167991828966683`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{4.3242649061290095`, -0.47071489328482263`}, { 4.682049124284314, -1.4811283183907218`}, { 5.475320815754634, -0.9248777840871347}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.72987, 0.239399, 0.230961], Thickness[0.01], BSplineCurveBox[{{5.665860821803944, -4.521378261088068}, { 4.680973661898415, -4.69459889949165}, { 3.696094819511791, -4.521377773460617}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 2.536331108214959, -1.4624491586202286`}, { 2.7716251082149586`, -1.4624491586202286`}, { 2.836599908214959, -1.4624491586202286`}, { 2.889272108214959, -1.4097767586202286`}, { 2.889272108214959, -1.3448021586202286`}, { 2.889272108214959, -1.2798275586202286`}, { 2.836599908214959, -1.2271551586202285`}, { 2.7716251082149586`, -1.2271551586202285`}, { 2.536331108214959, -1.2271551586202285`}, { 2.4713563082149586`, -1.2271551586202285`}, { 2.4186841082149586`, -1.2798275586202286`}, { 2.4186841082149586`, -1.3448021586202286`}, { 2.4186841082149586`, -1.4097767586202286`}, { 2.4713563082149586`, -1.4624491586202286`}, { 2.536331108214959, -1.4624491586202286`}}}], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["\<\"Beak\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 1.2053857615590378`, -5.888301937480865}, { 1.4406797615590379`, -5.888301937480865}, { 1.5056545615590378`, -5.888301937480865}, { 1.5583267615590377`, -5.835629537480865}, { 1.5583267615590377`, -5.770654937480865}, { 1.5583267615590377`, -5.705680337480865}, { 1.5056545615590378`, -5.653007937480865}, { 1.4406797615590379`, -5.653007937480865}, { 1.2053857615590378`, -5.653007937480865}, { 1.1404109615590379`, -5.653007937480865}, { 1.087738761559038, -5.705680337480865}, { 1.087738761559038, -5.770654937480865}, { 1.087738761559038, -5.835629537480865}, { 1.1404109615590379`, -5.888301937480865}, { 1.2053857615590378`, -5.888301937480865}}}], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["\<\"Beescratch\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 2.561864218642547, -1.8971082756933113`}, { 2.7971582186425468`, -1.8971082756933113`}, { 2.862133018642547, -1.8971082756933113`}, { 2.914805218642547, -1.8444358756933112`}, { 2.914805218642547, -1.7794612756933113`}, { 2.914805218642547, -1.7144866756933113`}, { 2.862133018642547, -1.6618142756933112`}, { 2.7971582186425468`, -1.6618142756933112`}, { 2.561864218642547, -1.6618142756933112`}, { 2.4968894186425468`, -1.6618142756933112`}, { 2.444217218642547, -1.7144866756933113`}, { 2.444217218642547, -1.7794612756933113`}, { 2.444217218642547, -1.8444358756933112`}, { 2.4968894186425468`, -1.8971082756933113`}, { 2.561864218642547, -1.8971082756933113`}}}], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["\<\"Bumper\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 4.20661790612901, -0.5883618932848227}, { 4.441911906129009, -0.5883618932848227}, { 4.506886706129009, -0.5883618932848227}, { 4.559558906129009, -0.5356894932848226}, { 4.559558906129009, -0.47071489328482263`}, { 4.559558906129009, -0.40574029328482264`}, { 4.506886706129009, -0.35306789328482263`}, { 4.441911906129009, -0.35306789328482263`}, { 4.20661790612901, -0.35306789328482263`}, { 4.14164310612901, -0.35306789328482263`}, { 4.08897090612901, -0.40574029328482264`}, { 4.08897090612901, -0.47071489328482263`}, { 4.08897090612901, -0.5356894932848226}, { 4.14164310612901, -0.5883618932848227}, { 4.20661790612901, -0.5883618932848227}}}], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["\<\"CCL\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 3.503294005212193, -1.3215785030478309`}, { 3.7385880052121925`, -1.3215785030478309`}, { 3.803562805212193, -1.3215785030478309`}, { 3.8562350052121928`, -1.2689061030478308`}, { 3.8562350052121928`, -1.2039315030478308`}, { 3.8562350052121928`, -1.1389569030478308`}, { 3.803562805212193, -1.0862845030478308`}, { 3.7385880052121925`, -1.0862845030478308`}, { 3.503294005212193, -1.0862845030478308`}, { 3.4383192052121925`, -1.0862845030478308`}, { 3.3856470052121925`, -1.1389569030478308`}, { 3.3856470052121925`, -1.2039315030478308`}, { 3.3856470052121925`, -1.2689061030478308`}, { 3.4383192052121925`, -1.3215785030478309`}, { 3.503294005212193, -1.3215785030478309`}}}], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["\<\"Cross\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 0.7809728880629263, -5.733647986783692}, { 1.0162668880629262`, -5.733647986783692}, { 1.0812416880629263`, -5.733647986783692}, { 1.1339138880629263`, -5.680975586783692}, { 1.1339138880629263`, -5.616000986783692}, { 1.1339138880629263`, -5.5510263867836915`}, { 1.0812416880629263`, -5.498353986783692}, { 1.0162668880629262`, -5.498353986783692}, { 0.7809728880629263, -5.498353986783692}, { 0.7159980880629262, -5.498353986783692}, { 0.6633258880629262, -5.5510263867836915`}, { 0.6633258880629262, -5.616000986783692}, { 0.6633258880629262, -5.680975586783692}, { 0.7159980880629262, -5.733647986783692}, { 0.7809728880629263, -5.733647986783692}}}], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["\<\"DN16\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 0.43580565366284946`, -5.281289125555537}, { 0.6710996536628495, -5.281289125555537}, { 0.7360744536628494, -5.281289125555537}, { 0.7887466536628495, -5.228616725555537}, { 0.7887466536628495, -5.163642125555537}, { 0.7887466536628495, -5.098667525555537}, { 0.7360744536628494, -5.045995125555537}, { 0.6710996536628495, -5.045995125555537}, { 0.43580565366284946`, -5.045995125555537}, { 0.37083085366284946`, -5.045995125555537}, { 0.31815865366284946`, -5.098667525555537}, { 0.31815865366284946`, -5.163642125555537}, { 0.31815865366284946`, -5.228616725555537}, { 0.37083085366284946`, -5.281289125555537}, { 0.43580565366284946`, -5.281289125555537}}}], "DynamicName", BoxID -> "VertexID$7"], InsetBox[ StyleBox["\<\"DN21\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$7", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$7"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 0.35306789328482263`, -4.793061989352658}, { 0.5883618932848227, -4.793061989352658}, { 0.6533366932848226, -4.793061989352658}, { 0.7060088932848226, -4.740389589352659}, { 0.7060088932848226, -4.675414989352658}, { 0.7060088932848226, -4.610440389352658}, { 0.6533366932848226, -4.557767989352659}, { 0.5883618932848227, -4.557767989352659}, { 0.35306789328482263`, -4.557767989352659}, { 0.28809309328482263`, -4.557767989352659}, { 0.23542089328482263`, -4.610440389352658}, { 0.23542089328482263`, -4.675414989352658}, { 0.23542089328482263`, -4.740389589352659}, { 0.28809309328482263`, -4.793061989352658}, { 0.35306789328482263`, -4.793061989352658}}}], "DynamicName", BoxID -> "VertexID$8"], InsetBox[ StyleBox["\<\"DN63\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$8", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$8"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 4.251104141300437, -2.6041909804768433`}, { 4.486398141300437, -2.6041909804768433`}, { 4.5513729413004365`, -2.6041909804768433`}, { 4.604045141300436, -2.5515185804768437`}, { 4.604045141300436, -2.4865439804768434`}, { 4.604045141300436, -2.4215693804768432`}, { 4.5513729413004365`, -2.3688969804768436`}, { 4.486398141300437, -2.3688969804768436`}, { 4.251104141300437, -2.3688969804768436`}, { 4.186129341300437, -2.3688969804768436`}, { 4.133457141300437, -2.4215693804768432`}, { 4.133457141300437, -2.4865439804768434`}, { 4.133457141300437, -2.5515185804768437`}, { 4.186129341300437, -2.6041909804768433`}, { 4.251104141300437, -2.6041909804768433`}}}], "DynamicName", BoxID -> "VertexID$9"], InsetBox[ StyleBox["\<\"Double\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$9", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$9"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 0.9663447143962014, -5.390055101101469}, { 1.2016387143962015`, -5.390055101101469}, { 1.2666135143962014`, -5.390055101101469}, { 1.3192857143962016`, -5.337382701101469}, { 1.3192857143962016`, -5.272408101101469}, { 1.3192857143962016`, -5.207433501101469}, { 1.2666135143962014`, -5.154761101101469}, { 1.2016387143962015`, -5.154761101101469}, { 0.9663447143962014, -5.154761101101469}, { 0.9013699143962015, -5.154761101101469}, { 0.8486977143962015, -5.207433501101469}, { 0.8486977143962015, -5.272408101101469}, { 0.8486977143962015, -5.337382701101469}, { 0.9013699143962015, -5.390055101101469}, { 0.9663447143962014, -5.390055101101469}}}], "DynamicName", BoxID -> "VertexID$10"], InsetBox[ StyleBox["\<\"Feather\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$10", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$10"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 2.3760116366669175`, -2.306328559186347}, { 2.611305636666917, -2.306328559186347}, { 2.6762804366669175`, -2.306328559186347}, { 2.7289526366669175`, -2.2536561591863475`}, { 2.7289526366669175`, -2.1886815591863473`}, { 2.7289526366669175`, -2.123706959186347}, { 2.6762804366669175`, -2.0710345591863475`}, { 2.611305636666917, -2.0710345591863475`}, { 2.3760116366669175`, -2.0710345591863475`}, { 2.311036836666917, -2.0710345591863475`}, { 2.2583646366669172`, -2.123706959186347}, { 2.2583646366669172`, -2.1886815591863473`}, { 2.2583646366669172`, -2.2536561591863475`}, { 2.311036836666917, -2.306328559186347}, { 2.3760116366669175`, -2.306328559186347}}}], "DynamicName", BoxID -> "VertexID$11"], InsetBox[ StyleBox["\<\"Fish\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$11", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$11"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 3.519746171948565, -1.9451566307617394`}, { 3.755040171948565, -1.9451566307617394`}, { 3.820014971948565, -1.9451566307617394`}, { 3.872687171948565, -1.8924842307617393`}, { 3.872687171948565, -1.8275096307617393`}, { 3.872687171948565, -1.7625350307617393`}, { 3.820014971948565, -1.7098626307617393`}, { 3.755040171948565, -1.7098626307617393`}, { 3.519746171948565, -1.7098626307617393`}, { 3.454771371948565, -1.7098626307617393`}, { 3.402099171948565, -1.7625350307617393`}, { 3.402099171948565, -1.8275096307617393`}, { 3.402099171948565, -1.8924842307617393`}, { 3.454771371948565, -1.9451566307617394`}, { 3.519746171948565, -1.9451566307617394`}}}], "DynamicName", BoxID -> "VertexID$12"], InsetBox[ StyleBox["\<\"Five\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$12", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$12"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 1.719231233509588, -2.2883431296020857`}, { 1.9545252335095882`, -2.2883431296020857`}, { 2.0195000335095883`, -2.2883431296020857`}, { 2.0721722335095882`, -2.235670729602086}, { 2.0721722335095882`, -2.170696129602086}, { 2.0721722335095882`, -2.1057215296020857`}, { 2.0195000335095883`, -2.053049129602086}, { 1.9545252335095882`, -2.053049129602086}, { 1.719231233509588, -2.053049129602086}, { 1.6542564335095882`, -2.053049129602086}, { 1.601584233509588, -2.1057215296020857`}, { 1.601584233509588, -2.170696129602086}, { 1.601584233509588, -2.235670729602086}, { 1.6542564335095882`, -2.2883431296020857`}, { 1.719231233509588, -2.2883431296020857`}}}], "DynamicName", BoxID -> "VertexID$13"], InsetBox[ StyleBox["\<\"Fork\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$13", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$13"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 1.5498034754100802`, -5.815573642340531}, { 1.7850974754100803`, -5.815573642340531}, { 1.8500722754100802`, -5.815573642340531}, { 1.9027444754100804`, -5.762901242340531}, { 1.9027444754100804`, -5.697926642340531}, { 1.9027444754100804`, -5.632952042340531}, { 1.8500722754100802`, -5.580279642340531}, { 1.7850974754100803`, -5.580279642340531}, { 1.5498034754100802`, -5.580279642340531}, { 1.4848286754100803`, -5.580279642340531}, { 1.4321564754100802`, -5.632952042340531}, { 1.4321564754100802`, -5.697926642340531}, { 1.4321564754100802`, -5.762901242340531}, { 1.4848286754100803`, -5.815573642340531}, { 1.5498034754100802`, -5.815573642340531}}}], "DynamicName", BoxID -> "VertexID$14"], InsetBox[ StyleBox["\<\"Gallatin\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$14", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$14"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 1.6683018117492303`, -0.5883618932848227}, { 1.9035958117492304`, -0.5883618932848227}, { 1.9685706117492303`, -0.5883618932848227}, { 2.0212428117492305`, -0.5356894932848226}, { 2.0212428117492305`, -0.47071489328482263`}, { 2.0212428117492305`, -0.40574029328482264`}, { 1.9685706117492303`, -0.35306789328482263`}, { 1.9035958117492304`, -0.35306789328482263`}, { 1.6683018117492303`, -0.35306789328482263`}, { 1.6033270117492304`, -0.35306789328482263`}, { 1.5506548117492303`, -0.40574029328482264`}, { 1.5506548117492303`, -0.47071489328482263`}, { 1.5506548117492303`, -0.5356894932848226}, { 1.6033270117492304`, -0.5883618932848227}, { 1.6683018117492303`, -0.5883618932848227}}}], "DynamicName", BoxID -> "VertexID$15"], InsetBox[ StyleBox["\<\"Grin\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$15", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$15"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 4.009166816788534, -1.6157079040144902`}, { 4.244460816788534, -1.6157079040144902`}, { 4.309435616788534, -1.6157079040144902`}, { 4.362107816788534, -1.56303550401449}, { 4.362107816788534, -1.49806090401449}, { 4.362107816788534, -1.43308630401449}, { 4.309435616788534, -1.38041390401449}, { 4.244460816788534, -1.38041390401449}, { 4.009166816788534, -1.38041390401449}, { 3.944192016788534, -1.38041390401449}, { 3.891519816788534, -1.43308630401449}, { 3.891519816788534, -1.49806090401449}, { 3.891519816788534, -1.56303550401449}, { 3.944192016788534, -1.6157079040144902`}, { 4.009166816788534, -1.6157079040144902`}}}], "DynamicName", BoxID -> "VertexID$16"], InsetBox[ StyleBox["\<\"Haecksel\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$16", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$16"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 1.4772841781831405`, -1.024628936606519}, { 1.7125781781831406`, -1.024628936606519}, { 1.7775529781831405`, -1.024628936606519}, { 1.8302251781831407`, -0.971956536606519}, { 1.8302251781831407`, -0.906981936606519}, { 1.8302251781831407`, -0.842007336606519}, { 1.7775529781831405`, -0.789334936606519}, { 1.7125781781831406`, -0.789334936606519}, { 1.4772841781831405`, -0.789334936606519}, { 1.4123093781831406`, -0.789334936606519}, { 1.3596371781831404`, -0.842007336606519}, { 1.3596371781831404`, -0.906981936606519}, { 1.3596371781831404`, -0.971956536606519}, { 1.4123093781831406`, -1.024628936606519}, { 1.4772841781831405`, -1.024628936606519}}}], "DynamicName", BoxID -> "VertexID$17"], InsetBox[ StyleBox["\<\"Hook\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$17", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$17"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 0.46794379944219894`, -4.370224518156428}, { 0.703237799442199, -4.370224518156428}, { 0.7682125994421989, -4.370224518156428}, { 0.8208847994421989, -4.317552118156429}, { 0.8208847994421989, -4.2525775181564285`}, { 0.8208847994421989, -4.187602918156428}, { 0.7682125994421989, -4.134930518156429}, { 0.703237799442199, -4.134930518156429}, { 0.46794379944219894`, -4.134930518156429}, { 0.40296899944219894`, -4.134930518156429}, { 0.35029679944219894`, -4.187602918156428}, { 0.35029679944219894`, -4.2525775181564285`}, { 0.35029679944219894`, -4.317552118156429}, { 0.40296899944219894`, -4.370224518156428}, { 0.46794379944219894`, -4.370224518156428}}}], "DynamicName", BoxID -> "VertexID$18"], InsetBox[ StyleBox["\<\"Jet\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$18", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$18"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 5.047855898454621, -1.8779703966861783`}, { 5.283149898454621, -1.8779703966861783`}, { 5.348124698454621, -1.8779703966861783`}, { 5.400796898454621, -1.8252979966861782`}, { 5.400796898454621, -1.7603233966861782`}, { 5.400796898454621, -1.6953487966861782`}, { 5.348124698454621, -1.6426763966861782`}, { 5.283149898454621, -1.6426763966861782`}, { 5.047855898454621, -1.6426763966861782`}, { 4.982881098454621, -1.6426763966861782`}, { 4.930208898454621, -1.6953487966861782`}, { 4.930208898454621, -1.7603233966861782`}, { 4.930208898454621, -1.8252979966861782`}, { 4.982881098454621, -1.8779703966861783`}, { 5.047855898454621, -1.8779703966861783`}}}], "DynamicName", BoxID -> "VertexID$19"], InsetBox[ StyleBox["\<\"Jonah\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$19", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$19"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 1.9620005564437804`, -5.860242459420267}, { 2.1972945564437802`, -5.860242459420267}, { 2.2622693564437806`, -5.860242459420267}, { 2.3149415564437805`, -5.807570059420267}, { 2.3149415564437805`, -5.742595459420267}, { 2.3149415564437805`, -5.677620859420267}, { 2.2622693564437806`, -5.624948459420267}, { 2.1972945564437802`, -5.624948459420267}, { 1.9620005564437804`, -5.624948459420267}, { 1.8970257564437805`, -5.624948459420267}, { 1.8443535564437803`, -5.677620859420267}, { 1.8443535564437803`, -5.742595459420267}, { 1.8443535564437803`, -5.807570059420267}, { 1.8970257564437805`, -5.860242459420267}, { 1.9620005564437804`, -5.860242459420267}}}], "DynamicName", BoxID -> "VertexID$20"], InsetBox[ StyleBox["\<\"Knit\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$20", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$20"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 1.1360026660361044`, -2.2467294474082626`}, { 1.3712966660361046`, -2.2467294474082626`}, { 1.4362714660361044`, -2.2467294474082626`}, { 1.4889436660361044`, -2.194057047408263}, { 1.4889436660361044`, -2.129082447408263}, { 1.4889436660361044`, -2.0641078474082626`}, { 1.4362714660361044`, -2.011435447408263}, { 1.3712966660361046`, -2.011435447408263}, { 1.1360026660361044`, -2.011435447408263}, { 1.0710278660361046`, -2.011435447408263}, { 1.0183556660361046`, -2.0641078474082626`}, { 1.0183556660361046`, -2.129082447408263}, { 1.0183556660361046`, -2.194057047408263}, { 1.0710278660361046`, -2.2467294474082626`}, { 1.1360026660361044`, -2.2467294474082626`}}}], "DynamicName", BoxID -> "VertexID$21"], InsetBox[ StyleBox["\<\"Kringel\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$21", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$21"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 4.6394825099129395`, -0.7120201067088241}, { 4.874776509912939, -0.7120201067088241}, { 4.939751309912939, -0.7120201067088241}, { 4.992423509912939, -0.659347706708824}, { 4.992423509912939, -0.594373106708824}, { 4.992423509912939, -0.529398506708824}, { 4.939751309912939, -0.47672610670882404`}, { 4.874776509912939, -0.47672610670882404`}, { 4.6394825099129395`, -0.47672610670882404`}, { 4.57450770991294, -0.47672610670882404`}, { 4.52183550991294, -0.529398506708824}, { 4.52183550991294, -0.594373106708824}, { 4.52183550991294, -0.659347706708824}, { 4.57450770991294, -0.7120201067088241}, { 4.6394825099129395`, -0.7120201067088241}}}], "DynamicName", BoxID -> "VertexID$22"], InsetBox[ StyleBox["\<\"MN105\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$22", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$22"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 0.7167275767704191, -4.0016450085902235`}, { 0.952021576770419, -4.0016450085902235`}, { 1.016996376770419, -4.0016450085902235`}, { 1.069668576770419, -3.948972608590224}, { 1.069668576770419, -3.8839980085902237`}, { 1.069668576770419, -3.8190234085902235`}, { 1.016996376770419, -3.766351008590224}, { 0.952021576770419, -3.766351008590224}, { 0.7167275767704191, -3.766351008590224}, { 0.651752776770419, -3.766351008590224}, { 0.599080576770419, -3.8190234085902235`}, { 0.599080576770419, -3.8839980085902237`}, { 0.599080576770419, -3.948972608590224}, { 0.651752776770419, -4.0016450085902235`}, { 0.7167275767704191, -4.0016450085902235`}}}], "DynamicName", BoxID -> "VertexID$23"], InsetBox[ StyleBox["\<\"MN23\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$23", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$23"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 5.200832852249582, -2.4887411067692318`}, { 5.436126852249582, -2.4887411067692318`}, { 5.501101652249582, -2.4887411067692318`}, { 5.553773852249582, -2.436068706769232}, { 5.553773852249582, -2.371094106769232}, { 5.553773852249582, -2.3061195067692317`}, { 5.501101652249582, -2.253447106769232}, { 5.436126852249582, -2.253447106769232}, { 5.200832852249582, -2.253447106769232}, { 5.135858052249582, -2.253447106769232}, { 5.083185852249582, -2.3061195067692317`}, { 5.083185852249582, -2.371094106769232}, { 5.083185852249582, -2.436068706769232}, { 5.135858052249582, -2.4887411067692318`}, { 5.200832852249582, -2.4887411067692318`}}}], "DynamicName", BoxID -> "VertexID$24"], InsetBox[ StyleBox["\<\"MN60\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$24", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$24"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 3.846316253349365, -2.3640138538826663`}, { 4.081610253349365, -2.3640138538826663`}, { 4.146585053349365, -2.3640138538826663`}, { 4.199257253349365, -2.3113414538826667`}, { 4.199257253349365, -2.2463668538826664`}, { 4.199257253349365, -2.181392253882666}, { 4.146585053349365, -2.1287198538826666`}, { 4.081610253349365, -2.1287198538826666`}, { 3.846316253349365, -2.1287198538826666`}, { 3.7813414533493646`, -2.1287198538826666`}, { 3.7286692533493646`, -2.181392253882666}, { 3.7286692533493646`, -2.2463668538826664`}, { 3.7286692533493646`, -2.3113414538826667`}, { 3.7813414533493646`, -2.3640138538826663`}, { 3.846316253349365, -2.3640138538826663`}}}], "DynamicName", BoxID -> "VertexID$25"], InsetBox[ StyleBox["\<\"MN83\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$25", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$25"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 0.8156536817301518, -4.923112061451362}, { 1.0509476817301517`, -4.923112061451362}, { 1.1159224817301518`, -4.923112061451362}, { 1.1685946817301518`, -4.870439661451362}, { 1.1685946817301518`, -4.805465061451362}, { 1.1685946817301518`, -4.740490461451362}, { 1.1159224817301518`, -4.687818061451362}, { 1.0509476817301517`, -4.687818061451362}, { 0.8156536817301518, -4.687818061451362}, { 0.7506788817301517, -4.687818061451362}, { 0.6980066817301518, -4.740490461451362}, { 0.6980066817301518, -4.805465061451362}, { 0.6980066817301518, -4.870439661451362}, { 0.7506788817301517, -4.923112061451362}, { 0.8156536817301518, -4.923112061451362}}}], "DynamicName", BoxID -> "VertexID$26"], InsetBox[ StyleBox["\<\"Mus\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$26", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$26"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 1.8656804043873454`, -5.411719284987095}, { 2.1009744043873453`, -5.411719284987095}, { 2.1659492043873456`, -5.411719284987095}, { 2.2186214043873456`, -5.359046884987095}, { 2.2186214043873456`, -5.294072284987095}, { 2.2186214043873456`, -5.229097684987095}, { 2.1659492043873456`, -5.176425284987095}, { 2.1009744043873453`, -5.176425284987095}, { 1.8656804043873454`, -5.176425284987095}, { 1.8007056043873455`, -5.176425284987095}, { 1.7480334043873453`, -5.229097684987095}, { 1.7480334043873453`, -5.294072284987095}, { 1.7480334043873453`, -5.359046884987095}, { 1.8007056043873455`, -5.411719284987095}, { 1.8656804043873454`, -5.411719284987095}}}], "DynamicName", BoxID -> "VertexID$27"], InsetBox[ StyleBox["\<\"Notch\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$27", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$27"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 1.0956327539154742`, -3.801711170488855}, { 1.3309267539154743`, -3.801711170488855}, { 1.3959015539154742`, -3.801711170488855}, { 1.4485737539154742`, -3.7490387704888555`}, { 1.4485737539154742`, -3.6840641704888553`}, { 1.4485737539154742`, -3.619089570488855}, { 1.3959015539154742`, -3.5664171704888554`}, { 1.3309267539154743`, -3.5664171704888554`}, { 1.0956327539154742`, -3.5664171704888554`}, { 1.0306579539154743`, -3.5664171704888554`}, { 0.9779857539154743, -3.619089570488855}, { 0.9779857539154743, -3.6840641704888553`}, { 0.9779857539154743, -3.7490387704888555`}, { 1.0306579539154743`, -3.801711170488855}, { 1.0956327539154742`, -3.801711170488855}}}], "DynamicName", BoxID -> "VertexID$28"], InsetBox[ StyleBox["\<\"Number1\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$28", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$28"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 2.349513963644709, -5.518114723263724}, { 2.5848079636447086`, -5.518114723263724}, { 2.649782763644709, -5.518114723263724}, { 2.702454963644709, -5.465442323263725}, { 2.702454963644709, -5.400467723263724}, { 2.702454963644709, -5.335493123263724}, { 2.649782763644709, -5.2828207232637245`}, { 2.5848079636447086`, -5.2828207232637245`}, { 2.349513963644709, -5.2828207232637245`}, { 2.2845391636447085`, -5.2828207232637245`}, { 2.2318669636447086`, -5.335493123263724}, { 2.2318669636447086`, -5.400467723263724}, { 2.2318669636447086`, -5.465442323263725}, { 2.2845391636447085`, -5.518114723263724}, { 2.349513963644709, -5.518114723263724}}}], "DynamicName", BoxID -> "VertexID$29"], InsetBox[ StyleBox["\<\"Oscar\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$29", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$29"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 3.8183346212627685`, -0.8892293984535138}, { 4.053628621262768, -0.8892293984535138}, { 4.118603421262768, -0.8892293984535138}, { 4.171275621262768, -0.8365569984535137}, { 4.171275621262768, -0.7715823984535137}, { 4.171275621262768, -0.7066077984535137}, { 4.118603421262768, -0.6539353984535137}, { 4.053628621262768, -0.6539353984535137}, { 3.8183346212627685`, -0.6539353984535137}, { 3.753359821262768, -0.6539353984535137}, { 3.700687621262768, -0.7066077984535137}, { 3.700687621262768, -0.7715823984535137}, { 3.700687621262768, -0.8365569984535137}, { 3.753359821262768, -0.8892293984535138}, { 3.8183346212627685`, -0.8892293984535138}}}], "DynamicName", BoxID -> "VertexID$30"], InsetBox[ StyleBox["\<\"Patchback\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$30", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$30"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 1.0374187897438532`, -4.377153616243387}, { 1.2727127897438533`, -4.377153616243387}, { 1.3376875897438532`, -4.377153616243387}, { 1.390359789743853, -4.324481216243387}, { 1.390359789743853, -4.259506616243387}, { 1.390359789743853, -4.194532016243387}, { 1.3376875897438532`, -4.141859616243387}, { 1.2727127897438533`, -4.141859616243387}, { 1.0374187897438532`, -4.141859616243387}, { 0.9724439897438533, -4.141859616243387}, { 0.9197717897438532, -4.194532016243387}, { 0.9197717897438532, -4.259506616243387}, { 0.9197717897438532, -4.324481216243387}, { 0.9724439897438533, -4.377153616243387}, { 1.0374187897438532`, -4.377153616243387}}}], "DynamicName", BoxID -> "VertexID$31"], InsetBox[ StyleBox["\<\"PL\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$31", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$31"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 2.0081013858608188`, -4.8562430656176145`}, { 2.2433953858608184`, -4.8562430656176145`}, { 2.3083701858608188`, -4.8562430656176145`}, { 2.3610423858608187`, -4.803570665617615}, { 2.3610423858608187`, -4.738596065617615}, { 2.3610423858608187`, -4.6736214656176145`}, { 2.3083701858608188`, -4.620949065617615}, { 2.2433953858608184`, -4.620949065617615}, { 2.0081013858608188`, -4.620949065617615}, { 1.9431265858608187`, -4.620949065617615}, { 1.8904543858608185`, -4.6736214656176145`}, { 1.8904543858608185`, -4.738596065617615}, { 1.8904543858608185`, -4.803570665617615}, { 1.9431265858608187`, -4.8562430656176145`}, { 2.0081013858608188`, -4.8562430656176145`}}}], "DynamicName", BoxID -> "VertexID$32"], InsetBox[ StyleBox["\<\"Quasi\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$32", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$32"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 1.6715393704393147`, -4.248187307785663}, { 1.9068333704393148`, -4.248187307785663}, { 1.9718081704393147`, -4.248187307785663}, { 2.024480370439315, -4.195514907785664}, { 2.024480370439315, -4.1305403077856635`}, { 2.024480370439315, -4.065565707785663}, { 1.9718081704393147`, -4.012893307785664}, { 1.9068333704393148`, -4.012893307785664}, { 1.6715393704393147`, -4.012893307785664}, { 1.6065645704393148`, -4.012893307785664}, { 1.5538923704393146`, -4.065565707785663}, { 1.5538923704393146`, -4.1305403077856635`}, { 1.5538923704393146`, -4.195514907785664}, { 1.6065645704393148`, -4.248187307785663}, { 1.6715393704393147`, -4.248187307785663}}}], "DynamicName", BoxID -> "VertexID$33"], InsetBox[ StyleBox["\<\"Ripplefluke\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$33", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$33"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 1.216009452601788, -0.5997768925230582}, { 1.451303452601788, -0.5997768925230582}, { 1.516278252601788, -0.5997768925230582}, { 1.5689504526017881`, -0.5471044925230582}, { 1.5689504526017881`, -0.48212989252305816`}, { 1.5689504526017881`, -0.41715529252305816`}, { 1.516278252601788, -0.36448289252305816`}, { 1.451303452601788, -0.36448289252305816`}, { 1.216009452601788, -0.36448289252305816`}, { 1.151034652601788, -0.36448289252305816`}, { 1.0983624526017879`, -0.41715529252305816`}, { 1.0983624526017879`, -0.48212989252305816`}, { 1.0983624526017879`, -0.5471044925230582}, { 1.151034652601788, -0.5997768925230582}, { 1.216009452601788, -0.5997768925230582}}}], "DynamicName", BoxID -> "VertexID$34"], InsetBox[ StyleBox["\<\"Scabs\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$34", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$34"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 1.2633144536891507`, -2.776555381448592}, { 1.4986084536891509`, -2.776555381448592}, { 1.5635832536891507`, -2.776555381448592}, { 1.616255453689151, -2.7238829814485923`}, { 1.616255453689151, -2.658908381448592}, { 1.616255453689151, -2.593933781448592}, { 1.5635832536891507`, -2.5412613814485923`}, { 1.4986084536891509`, -2.5412613814485923`}, { 1.2633144536891507`, -2.5412613814485923`}, { 1.1983396536891509`, -2.5412613814485923`}, { 1.1456674536891507`, -2.593933781448592}, { 1.1456674536891507`, -2.658908381448592}, { 1.1456674536891507`, -2.7238829814485923`}, { 1.1983396536891509`, -2.776555381448592}, { 1.2633144536891507`, -2.776555381448592}}}], "DynamicName", BoxID -> "VertexID$35"], InsetBox[ StyleBox["\<\"Shmuddel\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$35", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$35"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 5.588055655509305, -2.008687141582744}, { 5.823349655509305, -2.008687141582744}, { 5.888324455509305, -2.008687141582744}, { 5.940996655509305, -1.956014741582744}, { 5.940996655509305, -1.891040141582744}, { 5.940996655509305, -1.826065541582744}, { 5.888324455509305, -1.773393141582744}, { 5.823349655509305, -1.773393141582744}, { 5.588055655509305, -1.773393141582744}, { 5.523080855509305, -1.773393141582744}, { 5.470408655509305, -1.826065541582744}, { 5.470408655509305, -1.891040141582744}, { 5.470408655509305, -1.956014741582744}, { 5.523080855509305, -2.008687141582744}, { 5.588055655509305, -2.008687141582744}}}], "DynamicName", BoxID -> "VertexID$36"], InsetBox[ StyleBox["\<\"SMN5\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$36", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$36"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 5.5482138218039445`, -4.639025261088068}, { 5.783507821803944, -4.639025261088068}, { 5.848482621803944, -4.639025261088068}, { 5.901154821803944, -4.586352861088068}, { 5.901154821803944, -4.521378261088068}, { 5.901154821803944, -4.456403661088068}, { 5.848482621803944, -4.403731261088068}, { 5.783507821803944, -4.403731261088068}, { 5.5482138218039445`, -4.403731261088068}, { 5.483239021803945, -4.403731261088068}, { 5.430566821803945, -4.456403661088068}, { 5.430566821803945, -4.521378261088068}, { 5.430566821803945, -4.586352861088068}, { 5.483239021803945, -4.639025261088068}, { 5.5482138218039445`, -4.639025261088068}}}], "DynamicName", BoxID -> "VertexID$37"], InsetBox[ StyleBox["\<\"SN100\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$37", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$37"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 0.8551917960368998, -2.6379216171503903`}, { 1.0904857960368999`, -2.6379216171503903`}, { 1.1554605960368998`, -2.6379216171503903`}, { 1.2081327960369, -2.5852492171503907`}, { 1.2081327960369, -2.5202746171503905`}, { 1.2081327960369, -2.4553000171503903`}, { 1.1554605960368998`, -2.4026276171503906`}, { 1.0904857960368999`, -2.4026276171503906`}, { 0.8551917960368998, -2.4026276171503906`}, { 0.7902169960368999, -2.4026276171503906`}, { 0.7375447960368998, -2.4553000171503903`}, { 0.7375447960368998, -2.5202746171503905`}, { 0.7375447960368998, -2.5852492171503907`}, { 0.7902169960368999, -2.6379216171503903`}, { 0.8551917960368998, -2.6379216171503903`}}}], "DynamicName", BoxID -> "VertexID$38"], InsetBox[ StyleBox["\<\"SN4\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$38", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$38"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 0.8293406498610691, -0.7671537120531531}, { 1.0646346498610693`, -0.7671537120531531}, { 1.1296094498610691`, -0.7671537120531531}, { 1.182281649861069, -0.714481312053153}, { 1.182281649861069, -0.649506712053153}, { 1.182281649861069, -0.584532112053153}, { 1.1296094498610691`, -0.531859712053153}, { 1.0646346498610693`, -0.531859712053153}, { 0.8293406498610691, -0.531859712053153}, { 0.7643658498610693, -0.531859712053153}, { 0.7116936498610692, -0.584532112053153}, { 0.7116936498610692, -0.649506712053153}, { 0.7116936498610692, -0.714481312053153}, { 0.7643658498610693, -0.7671537120531531}, { 0.8293406498610691, -0.7671537120531531}}}], "DynamicName", BoxID -> "VertexID$39"], InsetBox[ StyleBox["\<\"SN63\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$39", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$39"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 3.578447819511791, -4.6390247734606165`}, { 3.8137418195117907`, -4.6390247734606165`}, { 3.878716619511791, -4.6390247734606165`}, { 3.931388819511791, -4.586352373460617}, { 3.931388819511791, -4.521377773460617}, { 3.931388819511791, -4.456403173460616}, { 3.878716619511791, -4.403730773460617}, { 3.8137418195117907`, -4.403730773460617}, { 3.578447819511791, -4.403730773460617}, { 3.5134730195117907`, -4.403730773460617}, { 3.4608008195117907`, -4.456403173460616}, { 3.4608008195117907`, -4.521377773460617}, { 3.4608008195117907`, -4.586352373460617}, { 3.5134730195117907`, -4.6390247734606165`}, { 3.578447819511791, -4.6390247734606165`}}}], "DynamicName", BoxID -> "VertexID$40"], InsetBox[ StyleBox["\<\"SN89\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$40", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$40"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 0.5563104792269082, -2.3334723527985}, { 0.7916044792269081, -2.3334723527985}, { 0.8565792792269082, -2.3334723527985}, { 0.9092514792269082, -2.2807999527985006`}, { 0.9092514792269082, -2.2158253527985003`}, { 0.9092514792269082, -2.1508507527985}, { 0.8565792792269082, -2.0981783527985005`}, { 0.7916044792269081, -2.0981783527985005`}, { 0.5563104792269082, -2.0981783527985005`}, { 0.4913356792269082, -2.0981783527985005`}, { 0.4386634792269082, -2.1508507527985}, { 0.4386634792269082, -2.2158253527985003`}, { 0.4386634792269082, -2.2807999527985006`}, { 0.4913356792269082, -2.3334723527985}, { 0.5563104792269082, -2.3334723527985}}}], "DynamicName", BoxID -> "VertexID$41"], InsetBox[ StyleBox["\<\"SN9\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$41", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$41"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 2.527865866524032, -5.135783374160187}, { 2.7631598665240316`, -5.135783374160187}, { 2.828134666524032, -5.135783374160187}, { 2.880806866524032, -5.083110974160188}, { 2.880806866524032, -5.018136374160187}, { 2.880806866524032, -4.953161774160187}, { 2.828134666524032, -4.900489374160188}, { 2.7631598665240316`, -4.900489374160188}, { 2.527865866524032, -4.900489374160188}, { 2.4628910665240316`, -4.900489374160188}, { 2.4102188665240316`, -4.953161774160187}, { 2.4102188665240316`, -5.018136374160187}, { 2.4102188665240316`, -5.083110974160188}, { 2.4628910665240316`, -5.135783374160187}, { 2.527865866524032, -5.135783374160187}}}], "DynamicName", BoxID -> "VertexID$42"], InsetBox[ StyleBox["\<\"SN90\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$42", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$42"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 0.5093951955153164, -1.0835896152037112`}, { 0.7446891955153163, -1.0835896152037112`}, { 0.8096639955153164, -1.0835896152037112`}, { 0.8623361955153164, -1.0309172152037112`}, { 0.8623361955153164, -0.9659426152037112}, { 0.8623361955153164, -0.9009680152037112}, { 0.8096639955153164, -0.8482956152037111}, { 0.7446891955153163, -0.8482956152037111}, { 0.5093951955153164, -0.8482956152037111}, { 0.44442039551531637`, -0.8482956152037111}, { 0.39174819551531637`, -0.9009680152037112}, { 0.39174819551531637`, -0.9659426152037112}, { 0.39174819551531637`, -1.0309172152037112`}, { 0.44442039551531637`, -1.0835896152037112`}, { 0.5093951955153164, -1.0835896152037112`}}}], "DynamicName", BoxID -> "VertexID$43"], InsetBox[ StyleBox["\<\"SN96\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$43", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$43"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 0.35306789328482263`, -1.9461487127541297`}, { 0.5883618932848227, -1.9461487127541297`}, { 0.6533366932848226, -1.9461487127541297`}, { 0.7060088932848226, -1.8934763127541296`}, { 0.7060088932848226, -1.8285017127541296`}, { 0.7060088932848226, -1.7635271127541297`}, { 0.6533366932848226, -1.7108547127541296`}, { 0.5883618932848227, -1.7108547127541296`}, { 0.35306789328482263`, -1.7108547127541296`}, { 0.28809309328482263`, -1.7108547127541296`}, { 0.23542089328482263`, -1.7635271127541297`}, { 0.23542089328482263`, -1.8285017127541296`}, { 0.23542089328482263`, -1.8934763127541296`}, { 0.28809309328482263`, -1.9461487127541297`}, { 0.35306789328482263`, -1.9461487127541297`}}}], "DynamicName", BoxID -> "VertexID$44"], InsetBox[ StyleBox["\<\"Stripes\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$44", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$44"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 0.35925684597601465`, -1.4866722666451182`}, { 0.5945508459760147, -1.4866722666451182`}, { 0.6595256459760146, -1.4866722666451182`}, { 0.7121978459760147, -1.4339998666451181`}, { 0.7121978459760147, -1.3690252666451181`}, { 0.7121978459760147, -1.3040506666451182`}, { 0.6595256459760146, -1.251378266645118}, { 0.5945508459760147, -1.251378266645118}, { 0.35925684597601465`, -1.251378266645118}, { 0.29428204597601465`, -1.251378266645118}, { 0.24160984597601465`, -1.3040506666451182`}, { 0.24160984597601465`, -1.3690252666451181`}, { 0.24160984597601465`, -1.4339998666451181`}, { 0.29428204597601465`, -1.4866722666451182`}, { 0.35925684597601465`, -1.4866722666451182`}}}], "DynamicName", BoxID -> "VertexID$45"], InsetBox[ StyleBox["\<\"Thumper\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$45", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$45"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 5.092400337334805, -0.6461504020460895}, { 5.327694337334805, -0.6461504020460895}, { 5.392669137334805, -0.6461504020460895}, { 5.4453413373348045`, -0.5934780020460895}, { 5.4453413373348045`, -0.5285034020460895}, { 5.4453413373348045`, -0.4635288020460895}, { 5.392669137334805, -0.4108564020460895}, { 5.327694337334805, -0.4108564020460895}, { 5.092400337334805, -0.4108564020460895}, { 5.027425537334805, -0.4108564020460895}, { 4.974753337334805, -0.4635288020460895}, { 4.974753337334805, -0.5285034020460895}, { 4.974753337334805, -0.5934780020460895}, { 5.027425537334805, -0.6461504020460895}, { 5.092400337334805, -0.6461504020460895}}}], "DynamicName", BoxID -> "VertexID$46"], InsetBox[ StyleBox["\<\"Topless\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$46", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$46"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 0.7776697862573252, -1.7948600502754777`}, { 1.0129637862573253`, -1.7948600502754777`}, { 1.0779385862573252`, -1.7948600502754777`}, { 1.1306107862573254`, -1.7421876502754776`}, { 1.1306107862573254`, -1.6772130502754776`}, { 1.1306107862573254`, -1.6122384502754776`}, { 1.0779385862573252`, -1.5595660502754776`}, { 1.0129637862573253`, -1.5595660502754776`}, { 0.7776697862573252, -1.5595660502754776`}, { 0.7126949862573253, -1.5595660502754776`}, { 0.6600227862573252, -1.6122384502754776`}, { 0.6600227862573252, -1.6772130502754776`}, { 0.6600227862573252, -1.7421876502754776`}, { 0.7126949862573253, -1.7948600502754777`}, { 0.7776697862573252, -1.7948600502754777`}}}], "DynamicName", BoxID -> "VertexID$47"], InsetBox[ StyleBox["\<\"TR120\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$47", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$47"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 0.9539245220068322, -1.2558522136625183`}, { 1.1892185220068323`, -1.2558522136625183`}, { 1.2541933220068322`, -1.2558522136625183`}, { 1.3068655220068321`, -1.2031798136625182`}, { 1.3068655220068321`, -1.1382052136625183`}, { 1.3068655220068321`, -1.0732306136625183`}, { 1.2541933220068322`, -1.0205582136625182`}, { 1.1892185220068323`, -1.0205582136625182`}, { 0.9539245220068322, -1.0205582136625182`}, { 0.8889497220068323, -1.0205582136625182`}, { 0.8362775220068323, -1.0732306136625183`}, { 0.8362775220068323, -1.1382052136625183`}, { 0.8362775220068323, -1.2031798136625182`}, { 0.8889497220068323, -1.2558522136625183`}, { 0.9539245220068322, -1.2558522136625183`}}}], "DynamicName", BoxID -> "VertexID$48"], InsetBox[ StyleBox["\<\"TR77\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$48", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$48"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 1.4889814516812703`, -3.724103882558704}, { 1.7242754516812704`, -3.724103882558704}, { 1.7892502516812703`, -3.724103882558704}, { 1.8419224516812704`, -3.671431482558704}, { 1.8419224516812704`, -3.606456882558704}, { 1.8419224516812704`, -3.541482282558704}, { 1.7892502516812703`, -3.488809882558704}, { 1.7242754516812704`, -3.488809882558704}, { 1.4889814516812703`, -3.488809882558704}, { 1.4240066516812704`, -3.488809882558704}, { 1.3713344516812702`, -3.541482282558704}, { 1.3713344516812702`, -3.606456882558704}, { 1.3713344516812702`, -3.671431482558704}, { 1.4240066516812704`, -3.724103882558704}, { 1.4889814516812703`, -3.724103882558704}}}], "DynamicName", BoxID -> "VertexID$49"], InsetBox[ StyleBox["\<\"TR82\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$49", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$49"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 1.6748413820676094`, -2.7826740959890586`}, { 1.9101353820676095`, -2.7826740959890586`}, { 1.9751101820676094`, -2.7826740959890586`}, { 2.0277823820676093`, -2.730001695989059}, { 2.0277823820676093`, -2.6650270959890587`}, { 2.0277823820676093`, -2.6000524959890585`}, { 1.9751101820676094`, -2.547380095989059}, { 1.9101353820676095`, -2.547380095989059}, { 1.6748413820676094`, -2.547380095989059}, { 1.6098665820676095`, -2.547380095989059}, { 1.5571943820676095`, -2.6000524959890585`}, { 1.5571943820676095`, -2.6650270959890587`}, { 1.5571943820676095`, -2.730001695989059}, { 1.6098665820676095`, -2.7826740959890586`}, { 1.6748413820676094`, -2.7826740959890586`}}}], "DynamicName", BoxID -> "VertexID$50"], InsetBox[ StyleBox["\<\"TR88\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$50", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$50"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 2.086312707590495, -2.6112411293270847`}, { 2.3216067075904947`, -2.6112411293270847`}, { 2.386581507590495, -2.6112411293270847`}, { 2.439253707590495, -2.558568729327085}, { 2.439253707590495, -2.493594129327085}, { 2.439253707590495, -2.4286195293270847`}, { 2.386581507590495, -2.375947129327085}, { 2.3216067075904947`, -2.375947129327085}, { 2.086312707590495, -2.375947129327085}, { 2.0213379075904947`, -2.375947129327085}, { 1.9686657075904948`, -2.4286195293270847`}, { 1.9686657075904948`, -2.493594129327085}, { 1.9686657075904948`, -2.558568729327085}, { 2.0213379075904947`, -2.6112411293270847`}, { 2.086312707590495, -2.6112411293270847`}}}], "DynamicName", BoxID -> "VertexID$51"], InsetBox[ StyleBox["\<\"TR99\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$51", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$51"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 4.712816026268582, -2.6215389489017578`}, { 4.948110026268582, -2.6215389489017578`}, { 5.013084826268582, -2.6215389489017578`}, { 5.065757026268582, -2.568866548901758}, { 5.065757026268582, -2.503891948901758}, { 5.065757026268582, -2.4389173489017577`}, { 5.013084826268582, -2.386244948901758}, { 4.948110026268582, -2.386244948901758}, { 4.712816026268582, -2.386244948901758}, { 4.647841226268582, -2.386244948901758}, { 4.595169026268582, -2.4389173489017577`}, { 4.595169026268582, -2.503891948901758}, { 4.595169026268582, -2.568866548901758}, { 4.647841226268582, -2.6215389489017578`}, { 4.712816026268582, -2.6215389489017578`}}}], "DynamicName", BoxID -> "VertexID$52"], InsetBox[ StyleBox["\<\"Trigger\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$52", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$52"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 2.0560088447022355`, -0.7604331118167187}, { 2.291302844702235, -0.7604331118167187}, { 2.3562776447022356`, -0.7604331118167187}, { 2.4089498447022355`, -0.7077607118167186}, { 2.4089498447022355`, -0.6427861118167186}, { 2.4089498447022355`, -0.5778115118167186}, { 2.3562776447022356`, -0.5251391118167186}, { 2.291302844702235, -0.5251391118167186}, { 2.0560088447022355`, -0.5251391118167186}, { 1.9910340447022354`, -0.5251391118167186}, { 1.9383618447022353`, -0.5778115118167186}, { 1.9383618447022353`, -0.6427861118167186}, { 1.9383618447022353`, -0.7077607118167186}, { 1.9910340447022354`, -0.7604331118167187}, { 2.0560088447022355`, -0.7604331118167187}}}], "DynamicName", BoxID -> "VertexID$53"], InsetBox[ StyleBox["\<\"TSN103\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$53", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$53"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 2.1030212212743233`, -1.8579383268693115`}, { 2.338315221274323, -1.8579383268693115`}, { 2.4032900212743233`, -1.8579383268693115`}, { 2.4559622212743233`, -1.8052659268693114`}, { 2.4559622212743233`, -1.7402913268693114`}, { 2.4559622212743233`, -1.6753167268693114`}, { 2.4032900212743233`, -1.6226443268693114`}, { 2.338315221274323, -1.6226443268693114`}, { 2.1030212212743233`, -1.6226443268693114`}, { 2.038046421274323, -1.6226443268693114`}, { 1.985374221274323, -1.6753167268693114`}, { 1.985374221274323, -1.7402913268693114`}, { 1.985374221274323, -1.8052659268693114`}, { 2.038046421274323, -1.8579383268693115`}, { 2.1030212212743233`, -1.8579383268693115`}}}], "DynamicName", BoxID -> "VertexID$54"], InsetBox[ StyleBox["\<\"TSN83\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$54", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$54"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 2.5520800805835555`, -4.7331290325011635`}, { 2.787374080583555, -4.7331290325011635`}, { 2.8523488805835555`, -4.7331290325011635`}, { 2.9050210805835555`, -4.680456632501164}, { 2.9050210805835555`, -4.615482032501164}, { 2.9050210805835555`, -4.550507432501163}, { 2.8523488805835555`, -4.497835032501164}, { 2.787374080583555, -4.497835032501164}, { 2.5520800805835555`, -4.497835032501164}, { 2.487105280583555, -4.497835032501164}, { 2.4344330805835552`, -4.550507432501163}, { 2.4344330805835552`, -4.615482032501164}, { 2.4344330805835552`, -4.680456632501164}, { 2.487105280583555, -4.7331290325011635`}, { 2.5520800805835555`, -4.7331290325011635`}}}], "DynamicName", BoxID -> "VertexID$55"], InsetBox[ StyleBox["\<\"Upbang\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$55", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$55"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 5.623367636103542, -1.4344461828966684`}, { 5.858661636103542, -1.4344461828966684`}, { 5.923636436103542, -1.4344461828966684`}, { 5.976308636103542, -1.3817737828966683`}, { 5.976308636103542, -1.3167991828966683`}, { 5.976308636103542, -1.2518245828966683`}, { 5.923636436103542, -1.1991521828966683`}, { 5.858661636103542, -1.1991521828966683`}, { 5.623367636103542, -1.1991521828966683`}, { 5.558392836103542, -1.1991521828966683`}, { 5.5057206361035425`, -1.2518245828966683`}, { 5.5057206361035425`, -1.3167991828966683`}, { 5.5057206361035425`, -1.3817737828966683`}, { 5.558392836103542, -1.4344461828966684`}, { 5.623367636103542, -1.4344461828966684`}}}], "DynamicName", BoxID -> "VertexID$56"], InsetBox[ StyleBox["\<\"Vau\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$56", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$56"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 1.9161353335325437`, -3.8005212724618938`}, { 2.1514293335325436`, -3.8005212724618938`}, { 2.216404133532544, -3.8005212724618938`}, { 2.269076333532544, -3.747848872461894}, { 2.269076333532544, -3.682874272461894}, { 2.269076333532544, -3.6178996724618937`}, { 2.216404133532544, -3.565227272461894}, { 2.1514293335325436`, -3.565227272461894}, { 1.9161353335325437`, -3.565227272461894}, { 1.8511605335325438`, -3.565227272461894}, { 1.7984883335325437`, -3.6178996724618937`}, { 1.7984883335325437`, -3.682874272461894}, { 1.7984883335325437`, -3.747848872461894}, { 1.8511605335325438`, -3.8005212724618938`}, { 1.9161353335325437`, -3.8005212724618938`}}}], "DynamicName", BoxID -> "VertexID$57"], InsetBox[ StyleBox["\<\"Wave\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$57", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$57"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 2.230359222220324, -4.0629170841056625`}, { 2.4656532222203236`, -4.0629170841056625`}, { 2.530628022220324, -4.0629170841056625`}, { 2.583300222220324, -4.010244684105663}, { 2.583300222220324, -3.9452700841056627`}, { 2.583300222220324, -3.8802954841056625`}, { 2.530628022220324, -3.827623084105663}, { 2.4656532222203236`, -3.827623084105663}, { 2.230359222220324, -3.827623084105663}, { 2.1653844222203236`, -3.827623084105663}, { 2.1127122222203236`, -3.8802954841056625`}, { 2.1127122222203236`, -3.9452700841056627`}, { 2.1127122222203236`, -4.010244684105663}, { 2.1653844222203236`, -4.0629170841056625`}, { 2.230359222220324, -4.0629170841056625`}}}], "DynamicName", BoxID -> "VertexID$58"], InsetBox[ StyleBox["\<\"Web\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$58", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$58"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 1.9836193353663478`, -1.2971039867132932`}, { 2.2189133353663477`, -1.2971039867132932`}, { 2.283888135366348, -1.2971039867132932`}, { 2.336560335366348, -1.2444315867132931`}, { 2.336560335366348, -1.1794569867132931`}, { 2.336560335366348, -1.1144823867132931`}, { 2.283888135366348, -1.061809986713293}, { 2.2189133353663477`, -1.061809986713293}, { 1.9836193353663478`, -1.061809986713293}, { 1.918644535366348, -1.061809986713293}, { 1.8659723353663478`, -1.1144823867132931`}, { 1.8659723353663478`, -1.1794569867132931`}, { 1.8659723353663478`, -1.2444315867132931`}, { 1.918644535366348, -1.2971039867132932`}, { 1.9836193353663478`, -1.2971039867132932`}}}], "DynamicName", BoxID -> "VertexID$59"], InsetBox[ StyleBox["\<\"Whitetip\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$59", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$59"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 5.357673815754634, -1.0425247840871348`}, { 5.592967815754633, -1.0425247840871348`}, { 5.657942615754633, -1.0425247840871348`}, { 5.710614815754633, -0.9898523840871347}, { 5.710614815754633, -0.9248777840871347}, { 5.710614815754633, -0.8599031840871347}, { 5.657942615754633, -0.8072307840871347}, { 5.592967815754633, -0.8072307840871347}, { 5.357673815754634, -0.8072307840871347}, { 5.292699015754634, -0.8072307840871347}, { 5.240026815754634, -0.8599031840871347}, { 5.240026815754634, -0.9248777840871347}, { 5.240026815754634, -0.9898523840871347}, { 5.292699015754634, -1.0425247840871348`}, { 5.357673815754634, -1.0425247840871348`}}}], "DynamicName", BoxID -> "VertexID$60"], InsetBox[ StyleBox["\<\"Zap\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$60", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$60"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 2.45904291948136, -4.359871558172999}, { 2.69433691948136, -4.359871558172999}, { 2.75931171948136, -4.359871558172999}, { 2.81198391948136, -4.307199158173}, { 2.81198391948136, -4.242224558173}, { 2.81198391948136, -4.177249958172999}, { 2.75931171948136, -4.124577558173}, { 2.69433691948136, -4.124577558173}, { 2.45904291948136, -4.124577558173}, { 2.39406811948136, -4.124577558173}, { 2.34139591948136, -4.177249958172999}, { 2.34139591948136, -4.242224558173}, { 2.34139591948136, -4.307199158173}, { 2.39406811948136, -4.359871558172999}, { 2.45904291948136, -4.359871558172999}}}], "DynamicName", BoxID -> "VertexID$61"], InsetBox[ StyleBox["\<\"Zig\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$61", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$61"], TagBox[{ TagBox[ FilledCurveBox[{{{0, 2, 1}, {1, 6, 3}, {0, 1, 1}, {1, 6, 3}}}, {{{ 2.3838290044314916`, -1.05579760262751}, { 2.6191230044314913`, -1.05579760262751}, { 2.6840978044314916`, -1.05579760262751}, { 2.7367700044314915`, -1.00312520262751}, { 2.7367700044314915`, -0.9381506026275099}, { 2.7367700044314915`, -0.8731760026275099}, { 2.6840978044314916`, -0.8205036026275099}, { 2.6191230044314913`, -0.8205036026275099}, { 2.3838290044314916`, -0.8205036026275099}, { 2.3188542044314913`, -0.8205036026275099}, { 2.2661820044314913`, -0.8731760026275099}, { 2.2661820044314913`, -0.9381506026275099}, { 2.2661820044314913`, -1.00312520262751}, { 2.3188542044314913`, -1.05579760262751}, { 2.3838290044314916`, -1.05579760262751}}}], "DynamicName", BoxID -> "VertexID$62"], InsetBox[ StyleBox["\<\"Zipfel\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$62", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$62"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.78083906404768*^9, 3.78083910025112*^9}, 3.7924165403899193`*^9}, CellLabel->"Out[1]", CellID->754878451] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031738], Cell["Pick the two most involved members of the terrorist network:", "Text", TaggingRules->{}, CellChangeTimes->{{3.780838331430153*^9, 3.7808383353445787`*^9}, { 3.780839114829529*^9, 3.780839122411787*^9}, {3.780841300007766*^9, 3.7808413298928137`*^9}}, CellID->518415656], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"g", "=", RowBox[{"ExampleData", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[1]", CellID->804942171], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ "Mohamed At.", "Abdul", "Waleed", "Wail", "Satam", "Salem", "Hani", "Majed", "Khalid", "Nawaf", "Ziad", "Ahmed H.", "Saeed", "Ahmed Aln.", "Marwan", "Fayez", "Mohand", "Hamza", "Ahmed Alg.", "Raed", "Nabil", "Mohamed Ab.", "Abdussattar", "Osama", "Faisal", "Bandar", "Rayed", "Lotfi", "Ahmed K.", "Agus", "Ramzi", "Zacarias", "Mounir", "Said", "Zakariya", "Mamoun", "Mustafa"}, { Null, {{37, 3}, {37, 15}, {37, 1}, {6, 11}, {6, 15}, {7, 11}, {7, 15}, { 25, 7}, {25, 27}, {30, 11}, {30, 15}, {30, 31}, {1, 32}, {1, 29}, {20, 5}, {20, 21}, {20, 13}, {21, 5}, {21, 19}, {21, 13}, {10, 22}, {10, 1}, {1, 7}, {1, 30}, {1, 33}, {1, 36}, {32, 31}, {33, 31}, {33, 15}, { 33, 34}, {36, 15}, {37, 16}, {4, 3}, {4, 5}, {3, 5}, {3, 2}, {13, 12}, {13, 18}, {13, 14}, {13, 10}, {18, 19}, {18, 17}, {18, 12}, {18, 10}, {18, 14}, {16, 17}, {16, 15}, {10, 14}, {10, 23}, {10, 24}, {10, 9}, {10, 7}, {10, 6}, {23, 24}, {23, 9}, {9, 24}, {9, 7}, {7, 26}, {7, 27}, {7, 28}, {7, 8}, {27, 26}, {27, 28}, {11, 12}, {11, 28}, {11, 31}, {11, 1}, {11, 34}, {11, 35}, {11, 15}, {1, 28}, {1, 31}, {1, 34}, {1, 35}, {1, 15}, {1, 2}, {15, 28}, {15, 31}, {15, 34}, {15, 35}, {15, 2}, {34, 31}, {34, 35}, {34, 36}, {35, 31}}}, { AnnotationRules -> { "Bandar" -> {"FullName" -> "Bandar Alhazmi", "Group" -> "Other"}, UndirectedEdge["Mohamed At.", "Marwan"] -> {"Strength" -> "Strong"}, "Majed" -> {"FullName" -> "Majed Moqed", "Group" -> "Flight AA #77"}, "Nawaf" -> { "FullName" -> "Nawaf Alhazmi", "Group" -> "Flight AA #77"}, UndirectedEdge["Mustafa", "Marwan"] -> {"Strength" -> "Dormant"}, "Ramzi" -> {"FullName" -> "Ramzi Bin al-Shibh", "Group" -> "Other"}, "Nabil" -> {"FullName" -> "Nabil al-Marabh", "Group" -> "Other"}, UndirectedEdge["Saeed", "Ahmed H."] -> {"Strength" -> "Strong"}, UndirectedEdge["Raed", "Nabil"] -> {"Strength" -> "Moderate"}, UndirectedEdge["Mohamed At.", "Ahmed K."] -> { "Strength" -> "Dormant"}, UndirectedEdge["Raed", "Saeed"] -> {"Strength" -> "Moderate"}, UndirectedEdge["Mamoun", "Marwan"] -> {"Strength" -> "Moderate"}, UndirectedEdge["Khalid", "Osama"] -> {"Strength" -> "Strong"}, "Faisal" -> {"FullName" -> "Faisal Al Salmi", "Group" -> "Other"}, UndirectedEdge["Nabil", "Ahmed Alg."] -> {"Strength" -> "Moderate"}, UndirectedEdge["Mustafa", "Fayez"] -> {"Strength" -> "Moderate"}, "Mamoun" -> {"FullName" -> "Mamoun Darkazanli", "Group" -> "Other"}, "Abdul" -> { "FullName" -> "Abdul Aziz Al-Omari", "Group" -> "Flight AA #11"}, UndirectedEdge["Marwan", "Ramzi"] -> {"Strength" -> "Strong"}, UndirectedEdge["Mohamed At.", "Zakariya"] -> { "Strength" -> "Strong"}, UndirectedEdge["Said", "Mamoun"] -> {"Strength" -> "Strong"}, UndirectedEdge["Saeed", "Hamza"] -> {"Strength" -> "Strong"}, UndirectedEdge["Marwan", "Said"] -> {"Strength" -> "Strong"}, UndirectedEdge["Waleed", "Satam"] -> {"Strength" -> "Strong"}, UndirectedEdge["Hamza", "Ahmed Aln."] -> {"Strength" -> "Strong"}, "Osama" -> {"FullName" -> "Osama Awadallah", "Group" -> "Other"}, UndirectedEdge["Ziad", "Ahmed H."] -> {"Strength" -> "Strong"}, "Mustafa" -> { "FullName" -> "Mustafa Ahmed al-Hisawi", "Group" -> "Other"}, UndirectedEdge["Mohamed At.", "Lotfi"] -> {"Strength" -> "Strong"}, UndirectedEdge["Mustafa", "Mohamed At."] -> { "Strength" -> "Dormant"}, UndirectedEdge["Mohamed At.", "Hani"] -> {"Strength" -> "Moderate"}, "Ahmed Alg." -> { "FullName" -> "Ahmed Alghamdi", "Group" -> "Flight AA #175"}, "Wail" -> { "FullName" -> "Wail Alshehri", "Group" -> "Flight AA #11"}, UndirectedEdge["Nawaf", "Salem"] -> {"Strength" -> "Strong"}, UndirectedEdge["Mounir", "Marwan"] -> {"Strength" -> "Moderate"}, UndirectedEdge["Mustafa", "Waleed"] -> {"Strength" -> "Dormant"}, "Abdussattar" -> { "FullName" -> "Abdussattar Shaikh", "Group" -> "Other"}, "Rayed" -> { "FullName" -> "Rayed Mohammed Abdullah", "Group" -> "Other"}, UndirectedEdge["Said", "Ramzi"] -> {"Strength" -> "Strong"}, UndirectedEdge["Mohamed At.", "Mamoun"] -> { "Strength" -> "Moderate"}, UndirectedEdge["Faisal", "Rayed"] -> {"Strength" -> "Dormant"}, UndirectedEdge["Mohamed At.", "Said"] -> {"Strength" -> "Strong"}, UndirectedEdge["Hani", "Lotfi"] -> {"Strength" -> "Strong"}, UndirectedEdge["Mohamed At.", "Agus"] -> {"Strength" -> "Moderate"}, "Ahmed H." -> { "FullName" -> "Ahmed Al Haznawi", "Group" -> "Flight UA #93"}, "Satam" -> { "FullName" -> "Satam Suqami", "Group" -> "Flight AA #11"}, UndirectedEdge["Zakariya", "Ramzi"] -> {"Strength" -> "Strong"}, "Hani" -> {"FullName" -> "Hani Hanjour", "Group" -> "Flight AA #77"}, UndirectedEdge["Nawaf", "Osama"] -> {"Strength" -> "Strong"}, UndirectedEdge["Ziad", "Marwan"] -> {"Strength" -> "Strong"}, "Ahmed Aln." -> { "FullName" -> "Ahmed Alnami", "Group" -> "Flight UA #93"}, UndirectedEdge["Nawaf", "Khalid"] -> {"Strength" -> "Strong"}, UndirectedEdge["Hani", "Marwan"] -> {"Strength" -> "Dormant"}, "Waleed" -> { "FullName" -> "Waleed Alshehri", "Group" -> "Flight AA #11"}, UndirectedEdge["Mounir", "Ramzi"] -> {"Strength" -> "Moderate"}, UndirectedEdge["Hamza", "Nawaf"] -> {"Strength" -> "Strong"}, "Raed" -> {"FullName" -> "Raed Hijazi", "Group" -> "Other"}, UndirectedEdge["Ziad", "Mohamed At."] -> {"Strength" -> "Strong"}, UndirectedEdge["Wail", "Satam"] -> {"Strength" -> "Strong"}, "Mohamed Ab." -> {"FullName" -> "Mohamed Abdi", "Group" -> "Other"}, "Mohamed At." -> { "FullName" -> "Mohamed Atta", "Group" -> "Flight AA #11"}, UndirectedEdge["Marwan", "Lotfi"] -> {"Strength" -> "Strong"}, UndirectedEdge["Waleed", "Abdul"] -> {"Strength" -> "Strong"}, UndirectedEdge["Nawaf", "Mohamed Ab."] -> {"Strength" -> "Moderate"}, UndirectedEdge["Marwan", "Abdul"] -> {"Strength" -> "Strong"}, UndirectedEdge["Fayez", "Marwan"] -> {"Strength" -> "Strong"}, UndirectedEdge["Mohamed At.", "Zacarias"] -> { "Strength" -> "Dormant"}, UndirectedEdge["Mounir", "Said"] -> {"Strength" -> "Moderate"}, UndirectedEdge["Zacarias", "Ramzi"] -> {"Strength" -> "Moderate"}, UndirectedEdge["Ziad", "Ramzi"] -> {"Strength" -> "Strong"}, UndirectedEdge["Ziad", "Zakariya"] -> {"Strength" -> "Strong"}, UndirectedEdge["Salem", "Marwan"] -> {"Strength" -> "Dormant"}, "Salem" -> { "FullName" -> "Salem Alhazmi", "Group" -> "Flight AA #77"}, UndirectedEdge["Agus", "Ziad"] -> {"Strength" -> "Dormant"}, UndirectedEdge["Hamza", "Ahmed Alg."] -> {"Strength" -> "Strong"}, UndirectedEdge["Wail", "Waleed"] -> {"Strength" -> "Strong"}, UndirectedEdge["Hamza", "Ahmed H."] -> {"Strength" -> "Strong"}, UndirectedEdge["Rayed", "Bandar"] -> {"Strength" -> "Strong"}, "Zacarias" -> { "FullName" -> "Zacarias Moussaoui", "Group" -> "Other"}, UndirectedEdge["Ziad", "Said"] -> {"Strength" -> "Strong"}, "Marwan" -> { "FullName" -> "Marwan Al-Shehhi", "Group" -> "Flight AA #175"}, UndirectedEdge["Hani", "Rayed"] -> {"Strength" -> "Strong"}, UndirectedEdge["Rayed", "Lotfi"] -> {"Strength" -> "Strong"}, UndirectedEdge["Hani", "Bandar"] -> {"Strength" -> "Strong"}, "Hamza" -> { "FullName" -> "Hamza Alghamdi", "Group" -> "Flight AA #175"}, "Khalid" -> { "FullName" -> "Khalid Al-Mihdhar", "Group" -> "Flight AA #77"}, "Zakariya" -> {"FullName" -> "Zakariya Essabar", "Group" -> "Other"}, UndirectedEdge["Nawaf", "Abdussattar"] -> {"Strength" -> "Strong"}, UndirectedEdge["Hamza", "Mohand"] -> {"Strength" -> "Strong"}, UndirectedEdge["Faisal", "Hani"] -> {"Strength" -> "Dormant"}, UndirectedEdge["Raed", "Satam"] -> {"Strength" -> "Moderate"}, UndirectedEdge["Abdussattar", "Khalid"] -> {"Strength" -> "Strong"}, UndirectedEdge["Salem", "Ziad"] -> {"Strength" -> "Dormant"}, "Mounir" -> { "FullName" -> "Mounir El Motassadeq", "Group" -> "Other"}, "Ahmed K." -> { "FullName" -> "Ahmed Khalil Ibrahim Samir Al-Ani", "Group" -> "Other"}, UndirectedEdge["Mohamed At.", "Abdul"] -> {"Strength" -> "Strong"}, UndirectedEdge["Nabil", "Saeed"] -> {"Strength" -> "Moderate"}, "Said" -> {"FullName" -> "Said Bahaji", "Group" -> "Other"}, UndirectedEdge["Mohamed At.", "Mounir"] -> { "Strength" -> "Moderate"}, UndirectedEdge["Abdussattar", "Osama"] -> {"Strength" -> "Strong"}, UndirectedEdge["Hani", "Ziad"] -> {"Strength" -> "Dormant"}, UndirectedEdge["Agus", "Marwan"] -> {"Strength" -> "Dormant"}, UndirectedEdge["Hani", "Majed"] -> {"Strength" -> "Strong"}, "Lotfi" -> {"FullName" -> "Lotfi Raissi", "Group" -> "Other"}, UndirectedEdge["Nabil", "Satam"] -> {"Strength" -> "Moderate"}, UndirectedEdge["Mohamed At.", "Ramzi"] -> {"Strength" -> "Strong"}, "Fayez" -> { "FullName" -> "Fayez Ahmed", "Group" -> "Flight AA #175"}, UndirectedEdge["Nawaf", "Ahmed Aln."] -> {"Strength" -> "Strong"}, "Mohand" -> { "FullName" -> "Mohand Alshehri", "Group" -> "Flight AA #175"}, UndirectedEdge["Saeed", "Nawaf"] -> {"Strength" -> "Strong"}, "Ziad" -> {"FullName" -> "Ziad Jarrah", "Group" -> "Flight UA #93"}, UndirectedEdge["Agus", "Ramzi"] -> {"Strength" -> "Dormant"}, UndirectedEdge["Nawaf", "Hani"] -> {"Strength" -> "Strong"}, UndirectedEdge["Saeed", "Ahmed Aln."] -> {"Strength" -> "Strong"}, "Agus" -> {"FullName" -> "Agus Budiman", "Group" -> "Other"}, "Saeed" -> { "FullName" -> "Saeed Alghamdi", "Group" -> "Flight UA #93"}, UndirectedEdge["Ziad", "Lotfi"] -> {"Strength" -> "Strong"}, UndirectedEdge["Nawaf", "Mohamed At."] -> {"Strength" -> "Moderate"}, UndirectedEdge["Khalid", "Hani"] -> {"Strength" -> "Strong"}, UndirectedEdge["Fayez", "Mohand"] -> {"Strength" -> "Strong"}, UndirectedEdge["Said", "Zakariya"] -> {"Strength" -> "Strong"}, UndirectedEdge["Marwan", "Zakariya"] -> {"Strength" -> "Strong"}}, EdgeStyle -> { UndirectedEdge["Nawaf", "Abdussattar"] -> AbsoluteThickness[3], UndirectedEdge["Marwan", "Abdul"] -> AbsoluteThickness[3], UndirectedEdge["Mounir", "Marwan"] -> AbsoluteThickness[1], UndirectedEdge["Mustafa", "Fayez"] -> AbsoluteThickness[1], UndirectedEdge["Nabil", "Ahmed Alg."] -> AbsoluteThickness[1], UndirectedEdge["Faisal", "Rayed"] -> Directive[ AbsoluteThickness[1], Dashing[{Small, Small}]], UndirectedEdge["Mohamed At.", "Mamoun"] -> AbsoluteThickness[1], UndirectedEdge["Mustafa", "Waleed"] -> Directive[ AbsoluteThickness[1], Dashing[{Small, Small}]], UndirectedEdge["Mohamed At.", "Zakariya"] -> AbsoluteThickness[3], UndirectedEdge["Mohamed At.", "Ramzi"] -> AbsoluteThickness[3], UndirectedEdge["Nawaf", "Mohamed Ab."] -> AbsoluteThickness[1], UndirectedEdge["Nawaf", "Osama"] -> AbsoluteThickness[3], UndirectedEdge["Fayez", "Marwan"] -> AbsoluteThickness[3], UndirectedEdge["Marwan", "Said"] -> AbsoluteThickness[3], UndirectedEdge["Faisal", "Hani"] -> Directive[ AbsoluteThickness[1], Dashing[{Small, Small}]], UndirectedEdge["Ziad", "Mohamed At."] -> AbsoluteThickness[3], UndirectedEdge["Mohamed At.", "Lotfi"] -> AbsoluteThickness[3], UndirectedEdge["Saeed", "Hamza"] -> AbsoluteThickness[3], UndirectedEdge["Saeed", "Ahmed Aln."] -> AbsoluteThickness[3], UndirectedEdge["Mamoun", "Marwan"] -> AbsoluteThickness[1], UndirectedEdge["Saeed", "Ahmed H."] -> AbsoluteThickness[3], UndirectedEdge["Abdussattar", "Osama"] -> AbsoluteThickness[3], UndirectedEdge["Nawaf", "Mohamed At."] -> AbsoluteThickness[1], UndirectedEdge["Agus", "Ramzi"] -> Directive[ AbsoluteThickness[1], Dashing[{Small, Small}]], UndirectedEdge["Mohamed At.", "Said"] -> AbsoluteThickness[3], UndirectedEdge["Zakariya", "Ramzi"] -> AbsoluteThickness[3], UndirectedEdge["Hani", "Bandar"] -> AbsoluteThickness[3], UndirectedEdge["Mohamed At.", "Zacarias"] -> Directive[ AbsoluteThickness[1], Dashing[{Small, Small}]], UndirectedEdge["Waleed", "Abdul"] -> AbsoluteThickness[3], UndirectedEdge["Agus", "Ziad"] -> Directive[ AbsoluteThickness[1], Dashing[{Small, Small}]], UndirectedEdge["Agus", "Marwan"] -> Directive[ AbsoluteThickness[1], Dashing[{Small, Small}]], UndirectedEdge["Ziad", "Ramzi"] -> AbsoluteThickness[3], UndirectedEdge["Ziad", "Ahmed H."] -> AbsoluteThickness[3], UndirectedEdge["Mohamed At.", "Marwan"] -> AbsoluteThickness[3], UndirectedEdge["Hani", "Ziad"] -> Directive[ AbsoluteThickness[1], Dashing[{Small, Small}]], UndirectedEdge["Raed", "Satam"] -> AbsoluteThickness[1], UndirectedEdge["Mohamed At.", "Agus"] -> AbsoluteThickness[1], UndirectedEdge["Mustafa", "Marwan"] -> Directive[ AbsoluteThickness[1], Dashing[{Small, Small}]], UndirectedEdge["Hani", "Rayed"] -> AbsoluteThickness[3], UndirectedEdge["Fayez", "Mohand"] -> AbsoluteThickness[3], UndirectedEdge["Zacarias", "Ramzi"] -> AbsoluteThickness[1], UndirectedEdge["Said", "Zakariya"] -> AbsoluteThickness[3], UndirectedEdge["Hamza", "Ahmed H."] -> AbsoluteThickness[3], UndirectedEdge["Mounir", "Ramzi"] -> AbsoluteThickness[1], UndirectedEdge["Wail", "Waleed"] -> AbsoluteThickness[3], UndirectedEdge["Said", "Mamoun"] -> AbsoluteThickness[3], UndirectedEdge["Mounir", "Said"] -> AbsoluteThickness[1], UndirectedEdge["Rayed", "Bandar"] -> AbsoluteThickness[3], UndirectedEdge["Hani", "Lotfi"] -> AbsoluteThickness[3], UndirectedEdge["Mohamed At.", "Ahmed K."] -> Directive[ AbsoluteThickness[1], Dashing[{Small, Small}]], UndirectedEdge["Mohamed At.", "Hani"] -> AbsoluteThickness[1], UndirectedEdge["Nawaf", "Hani"] -> AbsoluteThickness[3], UndirectedEdge["Ziad", "Marwan"] -> AbsoluteThickness[3], UndirectedEdge["Mohamed At.", "Mounir"] -> AbsoluteThickness[1], UndirectedEdge["Nabil", "Saeed"] -> AbsoluteThickness[1], UndirectedEdge["Rayed", "Lotfi"] -> AbsoluteThickness[3], UndirectedEdge["Raed", "Nabil"] -> AbsoluteThickness[1], UndirectedEdge["Nawaf", "Ahmed Aln."] -> AbsoluteThickness[3], UndirectedEdge["Wail", "Satam"] -> AbsoluteThickness[3], UndirectedEdge["Marwan", "Zakariya"] -> AbsoluteThickness[3], UndirectedEdge["Ziad", "Lotfi"] -> AbsoluteThickness[3], UndirectedEdge["Said", "Ramzi"] -> AbsoluteThickness[3], UndirectedEdge["Mohamed At.", "Abdul"] -> AbsoluteThickness[3], UndirectedEdge["Saeed", "Nawaf"] -> AbsoluteThickness[3], UndirectedEdge["Hamza", "Ahmed Aln."] -> AbsoluteThickness[3], UndirectedEdge["Marwan", "Lotfi"] -> AbsoluteThickness[3], UndirectedEdge["Mustafa", "Mohamed At."] -> Directive[ AbsoluteThickness[1], Dashing[{Small, Small}]], UndirectedEdge["Hani", "Marwan"] -> Directive[ AbsoluteThickness[1], Dashing[{Small, Small}]], UndirectedEdge["Waleed", "Satam"] -> AbsoluteThickness[3], UndirectedEdge["Nabil", "Satam"] -> AbsoluteThickness[1], UndirectedEdge["Nawaf", "Salem"] -> AbsoluteThickness[3], UndirectedEdge["Ziad", "Zakariya"] -> AbsoluteThickness[3], UndirectedEdge["Nawaf", "Khalid"] -> AbsoluteThickness[3], UndirectedEdge["Hani", "Majed"] -> AbsoluteThickness[3], UndirectedEdge["Khalid", "Osama"] -> AbsoluteThickness[3], UndirectedEdge["Khalid", "Hani"] -> AbsoluteThickness[3], UndirectedEdge["Abdussattar", "Khalid"] -> AbsoluteThickness[3], UndirectedEdge["Salem", "Marwan"] -> Directive[ AbsoluteThickness[1], Dashing[{Small, Small}]], UndirectedEdge["Ziad", "Said"] -> AbsoluteThickness[3], UndirectedEdge["Marwan", "Ramzi"] -> AbsoluteThickness[3], UndirectedEdge["Hamza", "Mohand"] -> AbsoluteThickness[3], UndirectedEdge["Salem", "Ziad"] -> Directive[ AbsoluteThickness[1], Dashing[{Small, Small}]], UndirectedEdge["Raed", "Saeed"] -> AbsoluteThickness[1], UndirectedEdge["Hamza", "Nawaf"] -> AbsoluteThickness[3], UndirectedEdge["Hamza", "Ahmed Alg."] -> AbsoluteThickness[3]}, ImageSize -> 400, VertexCoordinates -> CompressedData[" 1:eJxTTMoPSmViYGBQBWIQ/eXvlYqXahftFTcUZUx8e8ZeMMJyy4myffamcbs8 eZge29/3752eJ3TYPqb/0FeNmOf2v+qy9pRM3mGvbsixRibqjX13zvPfKz9e su90THh6Qem1vQNY4yP7h1Ui69wf3oKKP7Y3BzMu2UelWAONfG6fOfFtjb3p PntRoKoqkVf2j5fOPqKw4ZA9n+6mue+XP7MP2iHX+jrwBtSeO/b750vp31W5 Zg9yTfOBR/aLXLd9/nvlAdw8iLuf2UsDVbE1voXqfwC155o9D5N2u9jNe3Dz IO57BHfv9cUFtlzXH9ursjVOde5+Yf9NA+TjB/YXlW7/rMt6Yw8Onprn9pUv 1YAm3LFfBnJu0Qv70skSLGF8D6Hh98Z+mjMoRF7az3u//Ji3+U174eYDpxa6 vrL3AFt40R5sfcp7qDuvwv1rAw7oSfa14JB/Yg+Jhv32AWAPP7B/BbJWZpd9 NcjZVXfswd7bcQ7qrutQ/ZvsYfFpBdI+fxfUf4fsvcABcNL+/PdgUFDbSwJd rbtpLTT+FtkvAXl/8QGo/3rsDwJdve3zWag71kPdec2eAQrA2ufeh8crJJye 2AMAjgMhjw== "], VertexLabels -> { Placed["Name", Above], "Osama" -> Placed["Name", {{1, 1}, {1, -0.5}}], "Abdul" -> Placed["Name", Before], "Faisal" -> Placed["Name", Before], "Majed" -> Placed["Name", {Below, After}], "Ahmed H." -> Placed["Name", Before], "Bandar" -> Placed["Name", Below], "Ramzi" -> Placed["Name", {Below, After}], "Lotfi" -> Placed["Name", After], "Ahmed K." -> Placed["Name", Below], "Rayed" -> Placed["Name", Below], "Zacarias" -> Placed["Name", Below], "Mohamed At." -> Placed["Name", {Below, After}], "Wail" -> Placed["Name", Before], "Nawaf" -> Placed["Name", Before], "Mamoun" -> Placed["Name", {Above, After}], "Mounir" -> Placed["Name", Below], "Hani" -> Placed["Name", After], "Waleed" -> Placed["Name", Before], "Marwan" -> Placed["Name", After], "Hamza" -> Placed["Name", {Below, After}], "Nabil" -> Placed["Name", After], "Raed" -> Placed["Name", Below], "Salem" -> Placed["Name", {Above, After}], "Agus" -> Placed["Name", Below], "Mohamed Ab." -> Placed["Name", {Above, After}], "Khalid" -> Placed["Name", After], "Said" -> Placed["Name", Below], "Ziad" -> Placed["Name", After]}, VertexStyle -> { "Abdussattar" -> GrayLevel[0.5], "Fayez" -> RGBColor[1, 0, 1], "Lotfi" -> GrayLevel[0.5], "Ahmed Alg." -> RGBColor[1, 0, 1], "Osama" -> GrayLevel[0.5], "Marwan" -> RGBColor[1, 0, 1], "Saeed" -> RGBColor[0, 0, 1], "Bandar" -> GrayLevel[0.5], "Ramzi" -> GrayLevel[0.5], "Hani" -> RGBColor[1, 0.5, 0], "Majed" -> RGBColor[1, 0.5, 0], "Mohamed Ab." -> GrayLevel[0.5], "Mustafa" -> GrayLevel[0.5], "Nawaf" -> RGBColor[1, 0.5, 0], "Wail" -> RGBColor[0, 1, 0], "Ahmed Aln." -> RGBColor[0, 0, 1], "Salem" -> RGBColor[1, 0.5, 0], "Hamza" -> RGBColor[1, 0, 1], "Faisal" -> GrayLevel[0.5], "Satam" -> RGBColor[0, 1, 0], "Nabil" -> GrayLevel[0.5], "Zacarias" -> GrayLevel[0.5], "Mounir" -> GrayLevel[0.5], "Ahmed K." -> GrayLevel[0.5], "Ahmed H." -> RGBColor[0, 0, 1], "Raed" -> GrayLevel[0.5], "Zakariya" -> GrayLevel[0.5], "Rayed" -> GrayLevel[0.5], "Ziad" -> RGBColor[0, 0, 1], "Mohand" -> RGBColor[1, 0, 1], "Said" -> GrayLevel[0.5], "Mohamed At." -> RGBColor[0, 1, 0], "Waleed" -> RGBColor[0, 1, 0], "Agus" -> GrayLevel[0.5], "Mamoun" -> GrayLevel[0.5], "Abdul" -> RGBColor[0, 1, 0], "Khalid" -> RGBColor[1, 0.5, 0]}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], {AbsoluteThickness[3], LineBox[{{0.268, 0.226}, {0.11900000000000001`, 0.594}}]}, {AbsoluteThickness[1], LineBox[{{0.268, 0.226}, {0.598, 0.294}}]}, {AbsoluteThickness[1], LineBox[{{0.268, 0.226}, {0.708, 0.38}}]}, {AbsoluteThickness[3], LineBox[{{0.268, 0.226}, {0.443, 0.34600000000000003`}}]}, {AbsoluteThickness[3], LineBox[{{0.268, 0.226}, {0.34700000000000003`, 0.482}}]}, {AbsoluteThickness[3], LineBox[{{0.268, 0.226}, {0.445, 0.24}}]}, {AbsoluteThickness[1], Dashing[{Small, Small}], LineBox[{{0.268, 0.226}, {0.367, 0.07200000000000001}}]}, {AbsoluteThickness[1], LineBox[{{0.268, 0.226}, {0.268, 0.10400000000000001`}}]}, {AbsoluteThickness[3], LineBox[{{0.268, 0.226}, {0.14100000000000001`, 0.196}}]}, {AbsoluteThickness[1], Dashing[{Small, Small}], LineBox[{{0.268, 0.226}, {0.161, 0.058}}]}, {AbsoluteThickness[1], LineBox[{{0.268, 0.226}, {0.037, 0.13}}]}, {AbsoluteThickness[3], LineBox[{{0.268, 0.226}, {0.014, 0.234}}]}, {AbsoluteThickness[3], LineBox[{{0.268, 0.226}, {0.062, 0.354}}]}, {AbsoluteThickness[1], LineBox[{{0.268, 0.226}, {0., 0.494}}]}, {AbsoluteThickness[1], Dashing[{Small, Small}], LineBox[{{0.268, 0.226}, {0.294, 0.638}}]}, {AbsoluteThickness[3], LineBox[{{0.11900000000000001`, 0.594}, {0.149, 0.73}}]}, {AbsoluteThickness[3], LineBox[{{0.11900000000000001`, 0.594}, {0.34700000000000003`, 0.482}}]}, {AbsoluteThickness[3], LineBox[{{0.149, 0.73}, {0.096, 0.886}}]}, {AbsoluteThickness[3], LineBox[{{0.149, 0.73}, {0.296, 0.848}}]}, {AbsoluteThickness[1], Dashing[{Small, Small}], LineBox[{{0.149, 0.73}, {0.294, 0.638}}]}, {AbsoluteThickness[3], LineBox[{{0.096, 0.886}, {0.296, 0.848}}]}, {AbsoluteThickness[1], LineBox[{{0.296, 0.848}, {0.448, 0.764}}]}, {AbsoluteThickness[1], LineBox[{{0.296, 0.848}, {0.533, 0.904}}]}, {AbsoluteThickness[3], LineBox[{{0.5640000000000001, 0.42}, {0.708, 0.38}}]}, {AbsoluteThickness[1], Dashing[{Small, Small}], LineBox[{{0.5640000000000001, 0.42}, {0.443, 0.34600000000000003`}}]}, {AbsoluteThickness[1], Dashing[{Small, Small}], LineBox[{{0.5640000000000001, 0.42}, {0.34700000000000003`, 0.482}}]}, {AbsoluteThickness[3], LineBox[{{0.598, 0.294}, {0.736, 0.11800000000000001`}}]}, {AbsoluteThickness[3], LineBox[{{0.598, 0.294}, {0.8150000000000001, 0.146}}]}, {AbsoluteThickness[3], LineBox[{{0.598, 0.294}, {0.708, 0.38}}]}, {AbsoluteThickness[1], Dashing[{Small, Small}], LineBox[{{0.598, 0.294}, {0.443, 0.34600000000000003`}}]}, {AbsoluteThickness[1], Dashing[{Small, Small}], LineBox[{{0.598, 0.294}, {0.34700000000000003`, 0.482}}]}, {AbsoluteThickness[1], Dashing[{Small, Small}], LineBox[{{0.598, 0.294}, {0.708, 0.018000000000000002`}}]}, {AbsoluteThickness[3], LineBox[{{0.598, 0.294}, {0.634, 0.124}}]}, {AbsoluteThickness[3], LineBox[{{0.598, 0.294}, {0.516, 0.10200000000000001`}}]}, {AbsoluteThickness[3], LineBox[{{0.598, 0.294}, {0.445, 0.24}}]}, {AbsoluteThickness[3], LineBox[{{0.8150000000000001, 0.146}, {0.708, 0.38}}]}, {AbsoluteThickness[3], LineBox[{{0.8150000000000001, 0.146}, {0.8210000000000001, 0.27}}]}, {AbsoluteThickness[3], LineBox[{{0.8150000000000001, 0.146}, {0.981, 0.336}}]}, {AbsoluteThickness[3], LineBox[{{0.708, 0.38}, {0.736, 0.7020000000000001}}]}, {AbsoluteThickness[3], LineBox[{{0.708, 0.38}, {0.922, 0.51}}]}, {AbsoluteThickness[3], LineBox[{{0.708, 0.38}, {0.767, 0.53}}]}, {AbsoluteThickness[1], LineBox[{{0.708, 0.38}, {0.812, 0.394}}]}, {AbsoluteThickness[3], LineBox[{{0.708, 0.38}, {0.8210000000000001, 0.27}}]}, {AbsoluteThickness[3], LineBox[{{0.708, 0.38}, {0.981, 0.336}}]}, {AbsoluteThickness[3], LineBox[{{0.443, 0.34600000000000003`}, {0.586, 0.526}}]}, {AbsoluteThickness[3], LineBox[{{0.443, 0.34600000000000003`}, {0.34700000000000003`, 0.482}}]}, {AbsoluteThickness[3], LineBox[{{0.443, 0.34600000000000003`}, {0.445, 0.24}}]}, {AbsoluteThickness[1], Dashing[{Small, Small}], LineBox[{{0.443, 0.34600000000000003`}, {0.268, 0.10400000000000001`}}]}, {AbsoluteThickness[3], LineBox[{{0.443, 0.34600000000000003`}, {0.14100000000000001`, 0.196}}]}, {AbsoluteThickness[3], LineBox[{{0.443, 0.34600000000000003`}, {0.014, 0.234}}]}, {AbsoluteThickness[3], LineBox[{{0.443, 0.34600000000000003`}, {0.062, 0.354}}]}, {AbsoluteThickness[3], LineBox[{{0.586, 0.526}, {0.736, 0.7020000000000001}}]}, {AbsoluteThickness[3], LineBox[{{0.586, 0.526}, {0.767, 0.53}}]}, {AbsoluteThickness[3], LineBox[{{0.736, 0.7020000000000001}, {0.922, 0.51}}]}, {AbsoluteThickness[3], LineBox[{{0.736, 0.7020000000000001}, {0.767, 0.53}}]}, {AbsoluteThickness[1], LineBox[{{0.736, 0.7020000000000001}, {0.448, 0.764}}]}, {AbsoluteThickness[1], LineBox[{{0.736, 0.7020000000000001}, {0.533, 0.904}}]}, {AbsoluteThickness[3], LineBox[{{0.922, 0.51}, {0.767, 0.53}}]}, {AbsoluteThickness[3], LineBox[{{0.34700000000000003`, 0.482}, {0.443, 0.59}}]}, {AbsoluteThickness[3], LineBox[{{0.34700000000000003`, 0.482}, {0.445, 0.24}}]}, {AbsoluteThickness[1], Dashing[{Small, Small}], LineBox[{{0.34700000000000003`, 0.482}, {0.268, 0.10400000000000001`}}]}, {AbsoluteThickness[3], LineBox[{{0.34700000000000003`, 0.482}, {0.14100000000000001`, 0.196}}]}, {AbsoluteThickness[1], LineBox[{{0.34700000000000003`, 0.482}, {0.037, 0.13}}]}, {AbsoluteThickness[3], LineBox[{{0.34700000000000003`, 0.482}, {0.014, 0.234}}]}, {AbsoluteThickness[3], LineBox[{{0.34700000000000003`, 0.482}, {0.062, 0.354}}]}, {AbsoluteThickness[1], LineBox[{{0.34700000000000003`, 0.482}, {0., 0.494}}]}, {AbsoluteThickness[1], Dashing[{Small, Small}], LineBox[{{0.34700000000000003`, 0.482}, {0.294, 0.638}}]}, {AbsoluteThickness[3], LineBox[{{0.443, 0.59}, {0.5640000000000001, 0.62}}]}, {AbsoluteThickness[1], LineBox[{{0.443, 0.59}, {0.294, 0.638}}]}, {AbsoluteThickness[3], LineBox[{{0.5640000000000001, 0.62}, {0.767, 0.53}}]}, {AbsoluteThickness[3], LineBox[{{0.767, 0.53}, {0.888, 0.734}}]}, {AbsoluteThickness[1], LineBox[{{0.888, 0.734}, {0.533, 0.904}}]}, {AbsoluteThickness[1], LineBox[{{0.448, 0.764}, {0.533, 0.904}}]}, {AbsoluteThickness[3], LineBox[{{0.8210000000000001, 0.27}, {0.981, 0.336}}]}, {AbsoluteThickness[1], Dashing[{Small, Small}], LineBox[{{0.708, 0.018000000000000002`}, {0.516, 0.10200000000000001`}}]}, {AbsoluteThickness[3], LineBox[{{0.634, 0.124}, {0.516, 0.10200000000000001`}}]}, {AbsoluteThickness[3], LineBox[{{0.516, 0.10200000000000001`}, {0.445, 0.24}}]}, {AbsoluteThickness[1], Dashing[{Small, Small}], LineBox[{{0.268, 0.10400000000000001`}, {0.14100000000000001`, 0.196}}]}, {AbsoluteThickness[1], LineBox[{{0.14100000000000001`, 0.196}, {0.161, 0.058}}]}, {AbsoluteThickness[1], LineBox[{{0.14100000000000001`, 0.196}, {0.037, 0.13}}]}, {AbsoluteThickness[3], LineBox[{{0.14100000000000001`, 0.196}, {0.014, 0.234}}]}, {AbsoluteThickness[3], LineBox[{{0.14100000000000001`, 0.196}, {0.062, 0.354}}]}, {AbsoluteThickness[1], LineBox[{{0.037, 0.13}, {0.014, 0.234}}]}, {AbsoluteThickness[3], LineBox[{{0.014, 0.234}, {0.062, 0.354}}]}, {AbsoluteThickness[3], LineBox[{{0.014, 0.234}, {0., 0.494}}]}}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], { {RGBColor[0, 1, 0], DiskBox[{0.268, 0.226}, 0.01248813]}, InsetBox["\<\"Mohamed At.\"\>", Offset[{2, -2}, {0.28048813, 0.21351187}], ImageScaled[{0, 1}], BaseStyle->"Graphics"]}, { {RGBColor[0, 1, 0], DiskBox[{0.11900000000000001, 0.594}, 0.01248813]}, InsetBox["\<\"Abdul\"\>", Offset[{-2, 0}, {0.10651187000000001, 0.594}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, { {RGBColor[0, 1, 0], DiskBox[{0.149, 0.73}, 0.01248813]}, InsetBox["\<\"Waleed\"\>", Offset[{-2, 0}, {0.13651186999999998, 0.73}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, { {RGBColor[0, 1, 0], DiskBox[{0.096, 0.886}, 0.01248813]}, InsetBox["\<\"Wail\"\>", Offset[{-2, 0}, {0.08351187, 0.886}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, { {RGBColor[0, 1, 0], DiskBox[{0.296, 0.848}, 0.01248813]}, InsetBox["\<\"Satam\"\>", Offset[{0, 2}, {0.296, 0.86048813}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {RGBColor[1, 0.5, 0], DiskBox[{0.5640000000000001, 0.42}, 0.01248813]}, InsetBox["\<\"Salem\"\>", Offset[{2, 2}, {0.5764881300000001, 0.43248812999999997}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {RGBColor[1, 0.5, 0], DiskBox[{0.598, 0.294}, 0.01248813]}, InsetBox["\<\"Hani\"\>", Offset[{2, 0}, {0.61048813, 0.294}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, { {RGBColor[1, 0.5, 0], DiskBox[{0.736, 0.11800000000000001}, 0.01248813]}, InsetBox["\<\"Majed\"\>", Offset[{2, -2}, {0.74848813, 0.10551187000000001}], ImageScaled[{0, 1}], BaseStyle->"Graphics"]}, { {RGBColor[1, 0.5, 0], DiskBox[{0.8150000000000001, 0.146}, 0.01248813]}, InsetBox["\<\"Khalid\"\>", Offset[{2, 0}, {0.8274881300000001, 0.146}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, { {RGBColor[1, 0.5, 0], DiskBox[{0.708, 0.38}, 0.01248813]}, InsetBox["\<\"Nawaf\"\>", Offset[{-2, 0}, {0.6955118699999999, 0.38}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, { {RGBColor[0, 0, 1], DiskBox[{0.443, 0.34600000000000003}, 0.01248813]}, InsetBox["\<\"Ziad\"\>", Offset[{2, 0}, {0.45548813, 0.34600000000000003}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, { {RGBColor[0, 0, 1], DiskBox[{0.586, 0.526}, 0.01248813]}, InsetBox["\<\"Ahmed H.\"\>", Offset[{-2, 0}, {0.5735118699999999, 0.526}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, { {RGBColor[0, 0, 1], DiskBox[{0.736, 0.7020000000000001}, 0.01248813]}, InsetBox["\<\"Saeed\"\>", Offset[{0, 2}, {0.736, 0.7144881300000001}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {RGBColor[0, 0, 1], DiskBox[{0.922, 0.51}, 0.01248813]}, InsetBox["\<\"Ahmed Aln.\"\>", Offset[{0, 2}, {0.922, 0.52248813}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {RGBColor[1, 0, 1], DiskBox[{0.34700000000000003, 0.482}, 0.01248813]}, InsetBox["\<\"Marwan\"\>", Offset[{2, 0}, {0.35948813, 0.482}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, { {RGBColor[1, 0, 1], DiskBox[{0.443, 0.59}, 0.01248813]}, InsetBox["\<\"Fayez\"\>", Offset[{0, 2}, {0.443, 0.60248813}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {RGBColor[1, 0, 1], DiskBox[{0.5640000000000001, 0.62}, 0.01248813]}, InsetBox["\<\"Mohand\"\>", Offset[{0, 2}, {0.5640000000000001, 0.63248813}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {RGBColor[1, 0, 1], DiskBox[{0.767, 0.53}, 0.01248813]}, InsetBox["\<\"Hamza\"\>", Offset[{2, -2}, {0.7794881300000001, 0.51751187}], ImageScaled[{0, 1}], BaseStyle->"Graphics"]}, { {RGBColor[1, 0, 1], DiskBox[{0.888, 0.734}, 0.01248813]}, InsetBox["\<\"Ahmed Alg.\"\>", Offset[{0, 2}, {0.888, 0.74648813}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0.448, 0.764}, 0.01248813]}, InsetBox["\<\"Raed\"\>", Offset[{0, -2}, {0.448, 0.75151187}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0.533, 0.904}, 0.01248813]}, InsetBox["\<\"Nabil\"\>", Offset[{2, 0}, {0.5454881300000001, 0.904}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0.812, 0.394}, 0.01248813]}, InsetBox["\<\"Mohamed Ab.\"\>", Offset[{2, 2}, {0.8244881300000001, 0.40648813}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0.8210000000000001, 0.27}, 0.01248813]}, InsetBox["\<\"Abdussattar\"\>", Offset[{0, 2}, {0.8210000000000001, 0.28248813}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0.981, 0.336}, 0.01248813]}, InsetBox["\<\"Osama\"\>", {0.99348813, 0.34848813}, ImageScaled[{1, -0.5}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0.708, 0.018000000000000002}, 0.01248813]}, InsetBox["\<\"Faisal\"\>", Offset[{-2, 0}, {0.6955118699999999, 0.018000000000000002}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0.634, 0.124}, 0.01248813]}, InsetBox["\<\"Bandar\"\>", Offset[{0, -2}, {0.634, 0.11151187}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0.516, 0.10200000000000001}, 0.01248813]}, InsetBox["\<\"Rayed\"\>", Offset[{0, -2}, {0.516, 0.08951187000000001}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0.445, 0.24}, 0.01248813]}, InsetBox["\<\"Lotfi\"\>", Offset[{2, 0}, {0.45748813, 0.24}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0.367, 0.07200000000000001}, 0.01248813]}, InsetBox["\<\"Ahmed K.\"\>", Offset[{0, -2}, {0.367, 0.05951187000000001}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0.268, 0.10400000000000001}, 0.01248813]}, InsetBox["\<\"Agus\"\>", Offset[{0, -2}, {0.268, 0.09151187000000001}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0.14100000000000001, 0.196}, 0.01248813]}, InsetBox["\<\"Ramzi\"\>", Offset[{2, -2}, {0.15348813, 0.18351187000000002}], ImageScaled[{0, 1}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0.161, 0.058}, 0.01248813]}, InsetBox["\<\"Zacarias\"\>", Offset[{0, -2}, {0.161, 0.04551187}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0.037, 0.13}, 0.01248813]}, InsetBox["\<\"Mounir\"\>", Offset[{0, -2}, {0.037, 0.11751187}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0.014, 0.234}, 0.01248813]}, InsetBox["\<\"Said\"\>", Offset[{0, -2}, {0.014, 0.22151187}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0.062, 0.354}, 0.01248813]}, InsetBox["\<\"Zakariya\"\>", Offset[{0, 2}, {0.062, 0.36648812999999997}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0., 0.494}, 0.01248813]}, InsetBox["\<\"Mamoun\"\>", Offset[{2, 2}, {0.01248813, 0.50648813}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[0.5], DiskBox[{0.294, 0.638}, 0.01248813]}, InsetBox["\<\"Mustafa\"\>", Offset[{0, 2}, {0.294, 0.65048813}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImageSize->400, ImageSizeRaw->{800, 726}]], "Output", TaggingRules->{}, CellChangeTimes->{3.780841460366296*^9, 3.792416547755897*^9}, CellLabel->"Out[1]", CellID->226658626] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"names", "=", RowBox[{"MaximalBy", "[", RowBox[{ RowBox[{"VertexList", "[", "g", "]"}], ",", RowBox[{ RowBox[{"VertexDegree", "[", RowBox[{"g", ",", "#"}], "]"}], "&"}], ",", " ", "2"}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[2]", CellID->593972379], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Mohamed At.\"\>", ",", "\<\"Marwan\"\>"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.780841339977598*^9, {3.792416544974991*^9, 3.7924165494411917`*^9}}, CellLabel->"Out[2]", CellID->16242086] }, Open ]], Cell["\<\ Generate a hypergraph by members connected to most involved members:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.780838331430153*^9, 3.7808383353445787`*^9}, { 3.780839114829529*^9, 3.780839122411787*^9}, {3.780841300007766*^9, 3.780841355881504*^9}, {3.780841393924122*^9, 3.780841418252709*^9}}, CellID->866074306], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sets", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"VertexComponent", "[", RowBox[{"g", ",", " ", "#", ",", "1"}], "]"}], " ", "&"}], " ", "/@", " ", "names"}]}]], "Input", TaggingRules->{}, CellLabel->"In[3]", CellID->794688776], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"Mohamed At.\"\>", ",", "\<\"Mustafa\"\>", ",", "\<\"Zacarias\"\>", ",", "\<\"Ahmed K.\"\>", ",", "\<\"Nawaf\"\>", ",", "\<\"Hani\"\>", ",", "\<\"Agus\"\>", ",", "\<\"Mounir\"\>", ",", "\<\"Mamoun\"\>", ",", "\<\"Ziad\"\>", ",", "\<\"Lotfi\"\>", ",", "\<\"Ramzi\"\>", ",", "\<\"Said\"\>", ",", "\<\"Zakariya\"\>", ",", "\<\"Marwan\"\>", ",", "\<\"Abdul\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Marwan\"\>", ",", "\<\"Mustafa\"\>", ",", "\<\"Salem\"\>", ",", "\<\"Hani\"\>", ",", "\<\"Agus\"\>", ",", "\<\"Mounir\"\>", ",", "\<\"Mamoun\"\>", ",", "\<\"Fayez\"\>", ",", "\<\"Ziad\"\>", ",", "\<\"Mohamed At.\"\>", ",", "\<\"Lotfi\"\>", ",", "\<\"Ramzi\"\>", ",", "\<\"Said\"\>", ",", "\<\"Zakariya\"\>", ",", "\<\"Abdul\"\>"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7808414236185417`*^9, 3.79241655097889*^9}, CellLabel->"Out[3]", CellID->498853707] }, Open ]], Cell["Show a hypergraph:", "Text", TaggingRules->{}, CellChangeTimes->{{3.780838331430153*^9, 3.7808383353445787`*^9}, { 3.780839114829529*^9, 3.780839122411787*^9}, {3.780841300007766*^9, 3.780841355881504*^9}, {3.780841393924122*^9, 3.780841433968904*^9}}, CellID->443514428], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphPlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphPlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HypergraphPlot"], BoxID -> "HypergraphPlot", Selectable->False], "[", RowBox[{"sets", ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.780841437291068*^9, 3.780841453795632*^9}, 3.7828431691015873`*^9}, CellLabel->"In[4]", CellID->807125057], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[0.624866, 0.673302, 0.264296], Opacity[0.2], FilledCurveBox[BSplineCurve[CompressedData[" 1:eJxTTMoPSmViYGBQAmIQfYmH6fRiw7/2DW6qO1J3MTrA+E5y/3Oa9ZkdLIoz DLlmfIbzO5juqPu8/mRv1SM7Y6c3k4PQ7kMpBoUvMPjWHD84I179tf/8qe/e 0+YncL7+5JD8h4x37de5Gf2I+fDfPm+Z8jvOk4f2o/NF1s6IOxz2zT6jbH/Q j9Kt++8sPOFou/KrvTEYXMbgtwjEBbjLv7Bf0K4xMcBw5X6+49YfG7le2F+z nRH11fbI/lUZX4V71z2F8/esFmQ7f2uzfbW71M5s9zv2MH7O1f33Ti1/bK9f eEuO884JOL+gLMa0MHzC/r83hf8sN3wL53/T1Z26wv4d3B1TDQye5O78gcF/ ohz18pfbpf0X37y5/VmOweExGv/BounyFyL79v+dmGD25BcTBn/hs1syM9Pv 2bt91r+8U50Fg+8UfOFBvfFH+5V2bXkaTUwOPTHbg2MYP9lPEt3zYu1BZgfV 14mCzSKf4fz9Lb9Xyaz7Y/+u/MSnLm0mDD4sPQAASTMRMA== "], SplineClosed -> True]]}, {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], FilledCurveBox[BSplineCurve[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQHXR9ch2DI4PDlsqI1zPeMjlYFGcYcs34b18WaLRg WxKLwyUeptOLDT9i8PP2B5x+U8fs4Pbu6/TkJY8x+AHm+hbxGkBzRTWt576+ icHnFbPL+XPxi73GgS0flMov22veD/pu2YLg8zze6OxXfsPeXvCZ8p+td+F8 Oyif4dC9SEW7o/u1EhNO3C56af/vICr/DBjc2f972jSvK/K/4fxLL5wZup1+ 29fs/dw05cHt/SwKCvzqQYwOMH6g6T6FmfMYHRLW6phekDi63+Do5ExxPRYM foHVKan1N47bL5Jg4tSw5Mbgb1m737Mm8aN9zqmj01xUuB3ufHhz9HYBgm93 SuCVWNI/+2Me76UffmHB4Ku+ThRsFvlvr7T6t+q+OGYMPiy+AFAL1f4= "], SplineClosed -> True]]}}, { {RGBColor[0.624866, 0.673302, 0.264296], Thickness[0.01], BSplineCurveBox[{{0.8550057485331664, 1.5697128667267992`}, { 1.1243080375444785`, 1.0424515358428352`}, {1.5246190958023373`, 2.0981998935085198`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.8550057485331664, 1.5697128667267992`}, { 1.1243080375444785`, 1.0424515358428352`}, {0., 1.0538181848217538`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.8550057485331664, 1.5697128667267992`}, { 1.1243080375444785`, 1.0424515358428352`}, {0.15323978302103547`, 1.6961824126407168`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.8550057485331664, 1.5697128667267992`}, { 1.1243080375444785`, 1.0424515358428352`}, {0.14185917927199343`, 0.3775575055901489}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.8550057485331664, 1.5697128667267992`}, { 1.1243080375444785`, 1.0424515358428352`}, {2.1695699865721476`, 1.4925078085902865`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.8550057485331664, 1.5697128667267992`}, { 1.1243080375444785`, 1.0424515358428352`}, {2.2193974017151135`, 0.7750731260097414}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.8550057485331664, 1.5697128667267992`}, { 1.1243080375444785`, 1.0424515358428352`}, {1.0638170211774614`, 1.9869750865952742`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.8550057485331664, 1.5697128667267992`}, { 1.1243080375444785`, 1.0424515358428352`}, {1.4961990936816698`, 0.5119574701057649}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.8550057485331664, 1.5697128667267992`}, { 1.1243080375444785`, 1.0424515358428352`}, {1.5057868508531975`, 1.596498050655698}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.8550057485331664, 1.5697128667267992`}, { 1.1243080375444785`, 1.0424515358428352`}, {0.7541465140004242, 0.8322818432886812}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.8550057485331664, 1.5697128667267992`}, { 1.1243080375444785`, 1.0424515358428352`}, {2.0725055931301983`, 0.28518025783145773`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.8550057485331664, 1.5697128667267992`}, { 1.1243080375444785`, 1.0424515358428352`}, {1.715113561790351, 0.01441771709163664}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.8550057485331664, 1.5697128667267992`}, { 1.1243080375444785`, 1.0424515358428352`}, {1.9712611167362333`, 1.9160143267036007`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.8550057485331664, 1.5697128667267992`}, { 1.1243080375444785`, 1.0424515358428352`}, {0.9142324781964538, 0.2840414344006461}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.8550057485331664, 1.5697128667267992`}, { 1.1243080375444785`, 1.0424515358428352`}, {1.2452708161929298`, 0.}}, SplineWeights->{1, 6, 1}]}, {RGBColor[0.72987, 0.239399, 0.230961], Thickness[0.01], BSplineCurveBox[{{0.9142324781964538, 0.2840414344006461}, { 1.856466717272292, 1.039766578089229}, {1.5246190958023373`, 2.0981998935085198`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.9142324781964538, 0.2840414344006461}, { 1.856466717272292, 1.039766578089229}, {2.9529083923115462`, 0.6363001709757159}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.9142324781964538, 0.2840414344006461}, { 1.856466717272292, 1.039766578089229}, {2.1695699865721476`, 1.4925078085902865`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.9142324781964538, 0.2840414344006461}, { 1.856466717272292, 1.039766578089229}, {2.2193974017151135`, 0.7750731260097414}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.9142324781964538, 0.2840414344006461}, { 1.856466717272292, 1.039766578089229}, {1.0638170211774614`, 1.9869750865952742`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.9142324781964538, 0.2840414344006461}, { 1.856466717272292, 1.039766578089229}, {1.4961990936816698`, 0.5119574701057649}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.9142324781964538, 0.2840414344006461}, { 1.856466717272292, 1.039766578089229}, {2.942708948050588, 1.4489476340472176`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.9142324781964538, 0.2840414344006461}, { 1.856466717272292, 1.039766578089229}, {1.5057868508531975`, 1.596498050655698}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.9142324781964538, 0.2840414344006461}, { 1.856466717272292, 1.039766578089229}, {0.8550057485331664, 1.5697128667267992`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.9142324781964538, 0.2840414344006461}, { 1.856466717272292, 1.039766578089229}, {0.7541465140004242, 0.8322818432886812}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.9142324781964538, 0.2840414344006461}, { 1.856466717272292, 1.039766578089229}, {2.0725055931301983`, 0.28518025783145773`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.9142324781964538, 0.2840414344006461}, { 1.856466717272292, 1.039766578089229}, {1.715113561790351, 0.01441771709163664}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.9142324781964538, 0.2840414344006461}, { 1.856466717272292, 1.039766578089229}, {1.9712611167362333`, 1.9160143267036007`}}, SplineWeights->{1, 6, 1}], BSplineCurveBox[{{0.9142324781964538, 0.2840414344006461}, { 1.856466717272292, 1.039766578089229}, {1.2452708161929298`, 0.}}, SplineWeights->{1, 6, 1}]}}}, NamespaceBox[{{}, {GrayLevel[1], EdgeForm[GrayLevel[0]], TagBox[{ TagBox[DiskBox[{1.2452708161929298, 0.}, 0.15], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ StyleBox["\<\"Abdul\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$1", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[DiskBox[{2.2193974017151135, 0.7750731260097414}, 0.15], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ StyleBox["\<\"Agus\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$2", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[DiskBox[{0.15323978302103547, 1.6961824126407168}, 0.15], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ StyleBox["\<\"Ahmed K.\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$3", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[DiskBox[{2.942708948050588, 1.4489476340472176}, 0.15], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ StyleBox["\<\"Fayez\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$4", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[DiskBox[{2.1695699865721476, 1.4925078085902865}, 0.15], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ StyleBox["\<\"Hani\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$5", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[DiskBox[{0.7541465140004242, 0.8322818432886812}, 0.15], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ StyleBox["\<\"Lotfi\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$6", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"], TagBox[{ TagBox[DiskBox[{1.4961990936816698, 0.5119574701057649}, 0.15], "DynamicName", BoxID -> "VertexID$7"], InsetBox[ StyleBox["\<\"Mamoun\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$7", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$7"], TagBox[{ TagBox[DiskBox[{0.9142324781964538, 0.2840414344006461}, 0.15], "DynamicName", BoxID -> "VertexID$8"], InsetBox[ StyleBox["\<\"Marwan\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$8", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$8"], TagBox[{ TagBox[DiskBox[{0.8550057485331664, 1.5697128667267992}, 0.15], "DynamicName", BoxID -> "VertexID$9"], InsetBox[ StyleBox["\<\"Mohamed At.\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$9", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$9"], TagBox[{ TagBox[DiskBox[{1.0638170211774614, 1.9869750865952742}, 0.15], "DynamicName", BoxID -> "VertexID$10"], InsetBox[ StyleBox["\<\"Mounir\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$10", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$10"], TagBox[{ TagBox[DiskBox[{1.5246190958023373, 2.0981998935085198}, 0.15], "DynamicName", BoxID -> "VertexID$11"], InsetBox[ StyleBox["\<\"Mustafa\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$11", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$11"], TagBox[{ TagBox[DiskBox[{0.14185917927199343, 0.3775575055901489}, 0.15], "DynamicName", BoxID -> "VertexID$12"], InsetBox[ StyleBox["\<\"Nawaf\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$12", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$12"], TagBox[{ TagBox[DiskBox[{2.0725055931301983, 0.28518025783145773}, 0.15], "DynamicName", BoxID -> "VertexID$13"], InsetBox[ StyleBox["\<\"Ramzi\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$13", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$13"], TagBox[{ TagBox[DiskBox[{1.715113561790351, 0.01441771709163664}, 0.15], "DynamicName", BoxID -> "VertexID$14"], InsetBox[ StyleBox["\<\"Said\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$14", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$14"], TagBox[{ TagBox[DiskBox[{2.9529083923115462, 0.6363001709757159}, 0.15], "DynamicName", BoxID -> "VertexID$15"], InsetBox[ StyleBox["\<\"Salem\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$15", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$15"], TagBox[{ TagBox[DiskBox[{0., 1.0538181848217538}, 0.15], "DynamicName", BoxID -> "VertexID$16"], InsetBox[ StyleBox["\<\"Zacarias\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$16", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$16"], TagBox[{ TagBox[DiskBox[{1.9712611167362333, 1.9160143267036007}, 0.15], "DynamicName", BoxID -> "VertexID$17"], InsetBox[ StyleBox["\<\"Zakariya\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$17", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$17"], TagBox[{ TagBox[DiskBox[{1.5057868508531975, 1.596498050655698}, 0.15], "DynamicName", BoxID -> "VertexID$18"], InsetBox[ StyleBox["\<\"Ziad\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], DynamicLocation[ "VertexID$18", None, Center], BaseStyle->"Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$18"]}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7808414409857187`*^9, 3.780841454103155*^9}, 3.792416552442234*^9}, CellLabel->"Out[4]", CellID->745065322] }, Open ]] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"HypergraphPlot | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[627, 23, 168, 7, 70, "Subsection",ExpressionUUID->"51e6c61b-c79a-47ef-91a4-088de7cc65ed", CellID->462042388], Cell[798, 32, 140, 3, 70, "Text",ExpressionUUID->"4e6b82eb-0f87-4d71-a949-12236f486f2e", CellID->65887849], Cell[CellGroupData[{ Cell[963, 39, 7394, 188, 70, "Input",ExpressionUUID->"fab73d8d-b12d-4222-9aa1-4b0ca7a5335b", CellID->249944169], Cell[8360, 229, 7424, 161, 70, "Output",ExpressionUUID->"3b66bf70-267f-4c68-b3b4-858bd0a88449", CellID->306145389] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15833, 396, 158, 7, 70, "Subsection",ExpressionUUID->"e03f4a8f-73ff-4731-a90d-7783830d9069", CellID->80742258], Cell[15994, 405, 224, 4, 70, "Text",ExpressionUUID->"628754a6-1968-447a-aed5-2798965ec5e7", CellID->131852870], Cell[CellGroupData[{ Cell[16243, 413, 8250, 209, 70, "Input",ExpressionUUID->"fa2ac9de-2533-4f63-b790-f2068bec9675", CellID->260883388], Cell[24496, 624, 6311, 137, 70, "Output",ExpressionUUID->"6927c1d7-5c35-4503-a19b-cdbd02bdc539", CellID->702337799] }, Open ]], Cell[CellGroupData[{ Cell[30844, 766, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"75bcb919-484b-468d-8cd4-f0b376386b19", CellID->224031726], Cell[30991, 772, 271, 5, 70, "Text",ExpressionUUID->"d4d563b8-dbe7-4cf9-af80-506acf916042", CellID->451927275], Cell[CellGroupData[{ Cell[31287, 781, 8360, 212, 70, "Input",ExpressionUUID->"167c3668-4d77-4f70-8385-0efe002106ca", CellID->269109912], Cell[39650, 995, 4627, 103, 70, "Output",ExpressionUUID->"7e1edd91-1c71-4f3a-a7e9-90c12432e4ba", CellID->677234479] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[44338, 1105, 162, 7, 70, "Subsection",ExpressionUUID->"1a49138e-793f-46df-8187-83830c666af5", CellID->776923543], Cell[CellGroupData[{ Cell[44525, 1116, 261, 9, 70, "Subsubsection",ExpressionUUID->"10f5a867-0482-43c0-bba3-eb884635ce7e", CellID->774449017], Cell[44789, 1127, 314, 5, 70, "Text",ExpressionUUID->"a4574fb5-7b85-47dc-b9e8-82e3fffbf486", CellID->232268806], Cell[CellGroupData[{ Cell[45128, 1136, 7353, 187, 70, "Input",ExpressionUUID->"1398f65f-0e67-43ce-b799-03aa95d0d333", CellID->811099283], Cell[52484, 1325, 7377, 160, 70, "Output",ExpressionUUID->"4844bcbf-f7a8-4151-b5ee-f5f157801cb6", CellID->306145390] }, Open ]], Cell[CellGroupData[{ Cell[59898, 1490, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"71651f31-7768-4c3b-90c4-dd132fdaff6e", CellID->224031727], Cell[60045, 1496, 325, 6, 70, "Text",ExpressionUUID->"36f1a5cf-6a24-4b5c-b44a-e9ce00411af1", CellID->423685209], Cell[CellGroupData[{ Cell[60395, 1506, 7511, 191, 70, "Input",ExpressionUUID->"50af3353-7897-41c2-9a86-5dbfb5dbc285", CellID->606397179], Cell[67909, 1699, 7187, 155, 70, "Output",ExpressionUUID->"b8ca6fe6-00e4-4062-a27f-ae931c2729a5", CellID->110627932] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[75157, 1861, 287, 9, 70, "Subsubsection",ExpressionUUID->"9d9c22ed-b99d-4c6d-83d6-3b11f7da4310", CellID->821554401], Cell[75447, 1872, 901, 25, 70, "Text",ExpressionUUID->"2294a919-d017-4e51-bba8-8de2ccf1233b", CellID->107969125], Cell[CellGroupData[{ Cell[76373, 1901, 7351, 187, 70, "Input",ExpressionUUID->"d8e9c998-75fd-4ee1-abdd-80c4e8ff1ff3", CellID->811099284], Cell[83727, 2090, 7400, 160, 70, "Output",ExpressionUUID->"1e2f1c53-4dd5-4789-b035-15a8300bb599", CellID->16737082] }, Open ]], Cell[CellGroupData[{ Cell[91164, 2255, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"b49ba44a-84e4-45fb-9696-03d224517335", CellID->224031728], Cell[91311, 2261, 843, 24, 70, "Text",ExpressionUUID->"9a18af49-eff2-4d39-a841-36c523fe8323", CellID->460385044], Cell[CellGroupData[{ Cell[92179, 2289, 7542, 190, 70, "Input",ExpressionUUID->"310abf83-b77a-4e06-9fd4-2467ba1c2492", CellID->332069973], Cell[99724, 2481, 5279, 125, 70, "Output",ExpressionUUID->"eff83a20-109e-400b-8c21-44ce8e1ac3a1", CellID->965388986] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[105052, 2612, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"e692de87-c13d-45d2-8106-fba0fe8173e5", CellID->224031729], Cell[105199, 2618, 1333, 40, 70, "Text",ExpressionUUID->"e8cf3721-c158-4655-ae02-b6f8b88ac326", CellID->427622526], Cell[CellGroupData[{ Cell[106557, 2662, 7547, 192, 70, "Input",ExpressionUUID->"96400508-a23d-41f3-89e0-0724375159e1", CellID->962595566], Cell[114107, 2856, 6584, 146, 70, "Output",ExpressionUUID->"6ecfd43c-c5d2-4448-a38f-792e764a0f96", CellID->79668092] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[120752, 3009, 340, 10, 70, "Subsubsection",ExpressionUUID->"b3a6b6c9-58df-413f-aeaa-6e3eaa8833ec", CellID->886759125], Cell[121095, 3021, 413, 7, 70, "Text",ExpressionUUID->"ad08ee72-0f8b-4dbc-b8cb-759b7a8bd9f3", CellID->117793680], Cell[CellGroupData[{ Cell[121533, 3032, 7353, 187, 70, "Input",ExpressionUUID->"e99b50fe-46c5-40f1-ad0a-143af9bffb71", CellID->811099285], Cell[128889, 3221, 7374, 160, 70, "Output",ExpressionUUID->"e547b534-9670-4022-b5aa-bf4d21b56b77", CellID->16737083] }, Open ]], Cell[CellGroupData[{ Cell[136300, 3386, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"fd3d0e8c-af1d-4704-b9fa-6fea8e0917c4", CellID->224031730], Cell[136447, 3392, 400, 7, 70, "Text",ExpressionUUID->"660584bd-0735-4ac0-8742-bf0bb54d8702", CellID->38780762], Cell[CellGroupData[{ Cell[136872, 3403, 7619, 192, 70, "Input",ExpressionUUID->"a3fdee51-155f-407e-8488-736fd0a6bbc9", CellID->952889827], Cell[144494, 3597, 7585, 163, 70, "Output",ExpressionUUID->"eadad8b3-d95e-41a2-b189-1d70c493ddcd", CellID->270564909] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[152128, 3766, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"b2aebce3-298a-4f36-b787-63a7e9354977", CellID->224031731], Cell[152275, 3772, 367, 6, 70, "Text",ExpressionUUID->"b82d061f-2c44-4b0a-a723-5a47ce8a15c5", CellID->84488378], Cell[CellGroupData[{ Cell[152667, 3782, 7618, 193, 70, "Input",ExpressionUUID->"ac878a50-079e-4011-ab8e-68d74d42b128", CellID->164110383], Cell[160288, 3977, 7413, 160, 70, "Output",ExpressionUUID->"c874f580-0b1f-4f49-9b9d-474aaea310bf", CellID->470911134] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[167762, 4144, 346, 10, 70, "Subsubsection",ExpressionUUID->"6d393081-c03d-44e3-a2ef-816b2aebe8c7", CellID->745110036], Cell[168111, 4156, 877, 24, 70, "Text",ExpressionUUID->"05498fd9-bb04-4243-80c1-b6f7567758aa", CellID->563995823], Cell[CellGroupData[{ Cell[169013, 4184, 7351, 187, 70, "Input",ExpressionUUID->"dff8ec46-d92f-4c61-b421-ac1780833a1e", CellID->811099286], Cell[176367, 4373, 7400, 160, 70, "Output",ExpressionUUID->"1907d493-4d71-4301-a5a3-4f4ee1fcf3aa", CellID->16737084] }, Open ]], Cell[CellGroupData[{ Cell[183804, 4538, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"55c77a91-f6b7-418b-a1cd-47690fd7ae84", CellID->224031732], Cell[183951, 4544, 343, 6, 70, "Text",ExpressionUUID->"8ecfacd5-8106-4bf5-99bb-f198b5737a59", CellID->452631463], Cell[CellGroupData[{ Cell[184319, 4554, 7739, 195, 70, "Input",ExpressionUUID->"87182305-1f0d-415b-8292-9ea42ee36603", CellID->294284983], Cell[192061, 4751, 7347, 160, 70, "Output",ExpressionUUID->"2d2e1098-0aa5-42ab-9efa-5c76ac654d4b", CellID->944315188] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[199457, 4917, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"92cd71d7-06fd-4e8e-a988-1e677c20a4b6", CellID->224031733], Cell[199604, 4923, 375, 6, 70, "Text",ExpressionUUID->"89c15fb6-4328-4ac7-9c57-3b005237d4ce", CellID->592250249], Cell[CellGroupData[{ Cell[200004, 4933, 7599, 192, 70, "Input",ExpressionUUID->"a073d2db-ebd1-48d2-b9d1-e10ade854a9b", CellID->604208200], Cell[207606, 5127, 7223, 158, 70, "Output",ExpressionUUID->"a7779f46-c47f-43ba-856e-233578fa4a2b", CellID->810064031] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[214890, 5292, 307, 9, 70, "Subsubsection",ExpressionUUID->"4fdc6ab7-0f95-4611-9f20-33e6c33bcb89", CellID->846041575], Cell[215200, 5303, 943, 25, 70, "Text",ExpressionUUID->"ea8e4b51-5439-47b6-bc36-4e24632415c0", CellID->757063380], Cell[CellGroupData[{ Cell[216168, 5332, 7353, 187, 70, "Input",ExpressionUUID->"c4df0bc1-6243-4cb9-a20e-d2d3c3e123af", CellID->811099287], Cell[223524, 5521, 7400, 160, 70, "Output",ExpressionUUID->"9a84bbd3-95a8-435b-a532-663a28e5da18", CellID->16737085] }, Open ]], Cell[CellGroupData[{ Cell[230961, 5686, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"d37595d1-605a-4ff4-aab4-53c25d76da28", CellID->224031734], Cell[231108, 5692, 887, 25, 70, "Text",ExpressionUUID->"e65659ac-09c8-43d4-8562-64984668f1ea", CellID->991786511], Cell[CellGroupData[{ Cell[232020, 5721, 7566, 191, 70, "Input",ExpressionUUID->"364d1f8d-c47c-4e30-acbb-b4f33e84bea0", CellID->185634804], Cell[239589, 5914, 5994, 133, 70, "Output",ExpressionUUID->"132e5837-f807-4ae4-8e08-be4c94421bb9", CellID->849380596] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[245632, 6053, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"550f7a82-dc12-4e47-bfa4-dafb49265125", CellID->224031735], Cell[245779, 6059, 1333, 40, 70, "Text",ExpressionUUID->"7f214de0-efdf-4ddf-b77e-a4383614d309", CellID->427622527], Cell[CellGroupData[{ Cell[247137, 6103, 7568, 192, 70, "Input",ExpressionUUID->"ef928166-1217-465f-93cf-c69ec51c6512", CellID->449557679], Cell[254708, 6297, 6861, 149, 70, "Output",ExpressionUUID->"6f2c41cb-da45-4e90-b03a-ed978545f5f8", CellID->21458975] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[261630, 6453, 366, 10, 70, "Subsubsection",ExpressionUUID->"3f86c551-d78c-44b9-84a3-ae041351c427", CellID->449597974], Cell[261999, 6465, 925, 25, 70, "Text",ExpressionUUID->"d6fb3075-5cee-4e7f-8e61-0d40c88787aa", CellID->941422418], Cell[CellGroupData[{ Cell[262949, 6494, 7353, 187, 70, "Input",ExpressionUUID->"c3dc528e-6ca7-4be5-8912-30fb1ae687f0", CellID->811099288], Cell[270305, 6683, 7427, 161, 70, "Output",ExpressionUUID->"511c1e76-2e30-4dfd-9b4c-15c69caae6ce", CellID->16737086] }, Open ]], Cell[CellGroupData[{ Cell[277769, 6849, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"3737870c-9232-4de7-9d42-9bea36d71546", CellID->224031736], Cell[277916, 6855, 389, 7, 70, "Text",ExpressionUUID->"db0b9271-5148-44b3-8c2f-d996936f7ea9", CellID->390211858], Cell[CellGroupData[{ Cell[278330, 6866, 7752, 196, 70, "Input",ExpressionUUID->"1406f412-9667-4426-8f89-63a00c3fea18", CellID->252393820], Cell[286085, 7064, 7359, 160, 70, "Output",ExpressionUUID->"502ddd74-377a-4eb6-a4f1-c24f089bc194", CellID->230110559] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[293493, 7230, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"69ec2a2d-5558-4940-a374-f4141103a31f", CellID->224031737], Cell[293640, 7236, 375, 6, 70, "Text",ExpressionUUID->"b3ad4779-8733-49a6-8199-a6f544dba4bf", CellID->592250250], Cell[CellGroupData[{ Cell[294040, 7246, 7621, 193, 70, "Input",ExpressionUUID->"bab61207-4eea-4738-a292-23707a6a9af8", CellID->594294775], Cell[301664, 7441, 7239, 159, 70, "Output",ExpressionUUID->"593aeb51-4046-4afe-87f0-6f4d756d3429", CellID->408229005] }, Open ]] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[308976, 7608, 166, 7, 70, "Subsection",ExpressionUUID->"f5a3b958-7a8d-4489-bf09-313560674bdc", CellID->568056528], Cell[309145, 7617, 216, 4, 70, "Text",ExpressionUUID->"e634361b-7c47-40a5-b727-4e04a636b8fc", CellID->45296473], Cell[CellGroupData[{ Cell[309386, 7625, 7524, 189, 70, "Input",ExpressionUUID->"5d705dc3-c68e-4ff6-9704-4c53c5a4638a", CellID->664621932], Cell[316913, 7816, 104929, 2213, 70, "Output",ExpressionUUID->"9cf5de5e-9f2e-4b8b-8603-4d2ce31f947d", CellID->754878451] }, Open ]], Cell[CellGroupData[{ Cell[421879, 10034, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"a09e656a-a7ef-4e18-8092-f0c78dee8e97", CellID->224031738], Cell[422026, 10040, 283, 5, 70, "Text",ExpressionUUID->"85edb027-0501-4404-81b2-10a787990f68", CellID->518415656], Cell[CellGroupData[{ Cell[422334, 10049, 248, 8, 70, "Input",ExpressionUUID->"7a1c32d6-812d-49dc-851c-ab41fb92755f", CellID->804942171], Cell[422585, 10059, 38568, 663, 70, "Output",ExpressionUUID->"1aaffe99-20da-4c0b-9d4b-defaead76c40", CellID->226658626] }, Open ]], Cell[CellGroupData[{ Cell[461190, 10727, 320, 11, 70, "Input",ExpressionUUID->"92318b3f-c232-4e77-aa7e-c9fe6e17d1c0", CellID->593972379], Cell[461513, 10740, 257, 7, 70, "Output",ExpressionUUID->"9c5001f0-3c57-4186-a026-b362627fe023", CellID->16242086] }, Open ]], Cell[461785, 10750, 343, 7, 70, "Text",ExpressionUUID->"b22f1260-1623-486f-9ddb-b9def6578fb5", CellID->866074306], Cell[CellGroupData[{ Cell[462153, 10761, 273, 9, 70, "Input",ExpressionUUID->"b9b01ffe-bceb-4e17-a159-da1dcbdd2843", CellID->794688776], Cell[462429, 10772, 1024, 20, 70, "Output",ExpressionUUID->"6443a6b1-47cd-4e82-8395-190262cca02e", CellID->498853707] }, Open ]], Cell[463468, 10795, 285, 5, 70, "Text",ExpressionUUID->"e82da5b7-ff38-497f-aeda-83ac5335effa", CellID->443514428], Cell[CellGroupData[{ Cell[463778, 10804, 7317, 185, 70, "Input",ExpressionUUID->"77c50431-f861-44ee-aa42-c7e83b7bf9d6", CellID->807125057], Cell[471098, 10991, 18609, 417, 70, "Output",ExpressionUUID->"f4f6cffd-d776-4202-bf8a-a11434b87e6e", CellID->745065322] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)