(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 32922, 863] NotebookOptionsPosition[ 29726, 778] NotebookOutlinePosition[ 31626, 834] CellTagsIndexPosition[ 31583, 831] WindowTitle->SimpleHypergraphPlot | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->904125756], Cell[TextData[{ "Plot the hypergraph having vertices ", Cell[BoxData[ StyleBox["a", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ StyleBox["b", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ StyleBox["c", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ StyleBox["d", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ StyleBox["e", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ StyleBox["f", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ StyleBox["g", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and hyperedges ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ StyleBox["a", "TI"], ",", StyleBox["b", "TI"], ",", StyleBox["c", "TI"], ",", StyleBox["d", "TI"]}], "}"}], TraditionalForm]]], ", ", Cell[BoxData[ RowBox[{"{", RowBox[{ StyleBox["b", "TI"], ",", StyleBox["c", "TI"]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ RowBox[{"{", RowBox[{ StyleBox["c", "TI"], ",", StyleBox["d", "TI"], ",", StyleBox["e", "TI"]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.756236825636942*^9, 3.756236936600037*^9}, { 3.756303974176649*^9, 3.7563040616765795`*^9}, {3.7846259268479366`*^9, 3.7846260372880383`*^9}}, CellID->518617129], 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["SimpleHypergraphPlot", "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["SimpleHypergraphPlot", "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["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/c8cc6690-c0ce-4ac9-b1ba-6bb636045f8f/"}, "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], "SimpleHypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SimpleHypergraphPlot"], BoxID -> "SimpleHypergraphPlot", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d", ",", "e"}], "}"}], ",", "f", ",", "g"}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.756235394411834*^9, 3.7562354239177837`*^9}, 3.7828433485394087`*^9}, CellLabel->"In[42]:=", CellID->904276572], Cell[BoxData[ GraphicsBox[{{ {RGBColor[0, 0, 0], Opacity[0.5], EdgeForm[GrayLevel[0.5]], FilledCurveBox[ BSplineCurve[{{0.5637931034482758, 0.36379310344827587`}, { 0.5637931034482758, 0.2362068965517241}, {0.5637931034482758, 0.16379310344827586`}, {0.6362068965517241, 0.16379310344827586`}, { 0.7637931034482759, 0.16379310344827586`}, {0.8362068965517242, 0.16379310344827586`}, {0.8362068965517242, 0.2362068965517241}, { 0.8362068965517242, 0.36379310344827587`}, {0.8362068965517242, 0.4362068965517242}, {0.7637931034482759, 0.4362068965517242}, { 0.6362068965517241, 0.4362068965517242}, {0.5637931034482758, 0.4362068965517242}}, SplineClosed -> True]]}, {RGBColor[0, 0, 1], Opacity[0.5], EdgeForm[GrayLevel[0.5]], FilledCurveBox[ BSplineCurve[{{0.5637931034482758, 0.16379310344827586`}, { 0.6362068965517241, 0.16379310344827586`}, {0.8362068965517242, 0.36379310344827587`}, {0.8362068965517242, 0.4362068965517242}, { 0.7637931034482759, 0.4362068965517242}, {0.5637931034482758, 0.2362068965517241}}, SplineClosed -> True]]}, {RGBColor[0, 1, 0], Opacity[0.5], EdgeForm[GrayLevel[0.5]], FilledCurveBox[ BSplineCurve[{{0.7637931034482759, 0.4362068965517242}, { 0.5637931034482758, 0.03620689655172413}, { 0.5637931034482758, -0.03620689655172413}, { 0.6362068965517241, -0.03620689655172413}, {0.8362068965517242, 0.16379310344827586`}, {0.8362068965517242, 0.2362068965517241}, { 0.8362068965517242, 0.36379310344827587`}, {0.8362068965517242, 0.4362068965517242}}, SplineClosed -> True]]}}, {{}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], { {Hue[0, 1, 0.8], DiskBox[{0.6, 0.4}, 0.005092]}, InsetBox["a", Offset[{2, 2}, {0.605092, 0.405092}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{0.6, 0.19999999999999998}, 0.005092]}, InsetBox["b", Offset[{2, 2}, {0.605092, 0.205092}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.8, 0.6, 0.8], DiskBox[{0.8, 0.4}, 0.005092]}, InsetBox["c", Offset[{2, 2}, {0.805092, 0.405092}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.8, 0.6, 0.8], DiskBox[{0.8, 0.19999999999999998}, 0.005092]}, InsetBox["d", Offset[{2, 2}, {0.805092, 0.205092}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.8, 0.6, 0.8], DiskBox[{0.6, 0.}, 0.005092]}, InsetBox["e", Offset[{2, 2}, {0.605092, 0.005092}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{0.8, 0.}, 0.005092], InsetBox["f", Offset[{2, 2}, {0.805092, 0.005092}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{1., 0.4}, 0.005092], InsetBox["g", Offset[{2, 2}, {1.005092, 0.405092}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}}, FormatType->TraditionalForm, FrameTicks->None]], "Output", TaggingRules->{}, CellChangeTimes->{3.7562354478251743`*^9, 3.7563040866540794`*^9, 3.756324056195855*^9, 3.782843404737814*^9}, CellLabel->"Out[42]=", CellID->925916912] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Applications", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->605265931], Cell[TextData[{ "Define a random hypergraph having ", Cell[BoxData[ FormBox[ StyleBox["n", "TI"], TraditionalForm]]], " vertices and ", Cell[BoxData[ FormBox[ StyleBox["m", "TI"], TraditionalForm]]], " hyperedges:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7563056612775793`*^9, 3.7563056729585795`*^9}, { 3.7563057633770795`*^9, 3.7563057686870794`*^9}, {3.7563058067795796`*^9, 3.7563058463195796`*^9}, {3.7566510218464403`*^9, 3.756651022325757*^9}, { 3.784626045463369*^9, 3.7846260487574744`*^9}}, CellID->453058858], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"RandomHypergraph", "[", RowBox[{"n_", ",", "m_"}], "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"edges", "=", RowBox[{"Apply", "[", RowBox[{"Join", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{"pos", ",", RowBox[{"Subsets", "[", RowBox[{ RowBox[{"Range", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "n"}], "}"}], ",", RowBox[{"{", "pos", "}"}]}], "]"}]}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{ RowBox[{"2", "^", "n"}], "-", "1"}]}], "}"}], ",", "m"}], "]"}]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"Join", "[", RowBox[{"edges", ",", RowBox[{"Complement", "[", RowBox[{ RowBox[{"Range", "[", "n", "]"}], ",", RowBox[{"Flatten", "[", "edges", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"rh", "=", RowBox[{"RandomHypergraph", "[", RowBox[{"15", ",", "3"}], "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7563057240210795`*^9, 3.7563057376535797`*^9}, { 3.75630577588958*^9, 3.7563058016995797`*^9}}, CellLabel->"In[43]:=", CellID->505546949], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "4", ",", "5", ",", "7", ",", "10", ",", "12", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "4", ",", "5", ",", "6", ",", "8", ",", "10", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "6", ",", "9", ",", "10", ",", "12"}], "}"}], ",", "11", ",", "14"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.75630586645008*^9, {3.756324056764593*^9, 3.7563240866864414`*^9}, 3.7563248097573433`*^9, 3.782843407277995*^9}, CellLabel->"Out[44]=", CellID->192296309] }, Open ]], Cell["Plot it:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7563056612775793`*^9, 3.7563056729585795`*^9}, { 3.7563057633770795`*^9, 3.7563057686870794`*^9}, {3.7563058067795796`*^9, 3.7563058603525796`*^9}, 3.7563058924475794`*^9, {3.756651024516775*^9, 3.756651027209388*^9}}, CellID->686233801], 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["SimpleHypergraphPlot", "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["SimpleHypergraphPlot", "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["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/c8cc6690-c0ce-4ac9-b1ba-6bb636045f8f/"}, "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], "SimpleHypergraphPlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SimpleHypergraphPlot"], BoxID -> "SimpleHypergraphPlot", Selectable->False], "[", "rh", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7563058724075794`*^9, 3.7563058778300796`*^9}, 3.782843348549494*^9}, CellLabel->"In[45]:=", CellID->701341404], Cell[BoxData[ GraphicsBox[{{ {RGBColor[0, 0, 0], Opacity[0.5], EdgeForm[GrayLevel[0.5]], FilledCurveBox[ BSplineCurve[{{0.9581632653061225, 0.005782312925170174}, { 1.0418367346938775`, 0.005782312925170174}, {1.0418367346938775`, 0.08945578231292517}, {0.8989795918367347, 0.4704081632653061}, { 0.8153061224489797, 0.4704081632653061}, {0.7561224489795918, 0.4704081632653061}, {0.6724489795918368, 0.4704081632653061}, { 0.5295918367346939, 0.3275510204081632}, {0.5295918367346939, 0.2438775510204082}, {0.5295918367346939, 0.18469387755102037`}, { 0.5295918367346939, 0.10102040816326538`}}, SplineClosed -> True]]}, {RGBColor[0, 0, 1], Opacity[0.5], EdgeForm[GrayLevel[0.5]], FilledCurveBox[ BSplineCurve[{{1.0418367346938775`, 0.005782312925170174}, { 1.0418367346938775`, 0.08945578231292517}, {0.7561224489795918, 0.4704081632653061}, {0.6724489795918368, 0.4704081632653061}, { 0.5295918367346939, 0.0418367346938775}, { 0.5295918367346939, -0.0418367346938775}, { 0.6132653061224489, -0.0418367346938775}, { 0.6724489795918368, -0.0418367346938775}, { 0.7561224489795918, -0.0418367346938775}, { 0.8153061224489797, -0.0418367346938775}, { 0.8989795918367347, -0.0418367346938775}}, SplineClosed -> True]]}, {RGBColor[0, 1, 0], Opacity[0.5], EdgeForm[GrayLevel[0.5]], FilledCurveBox[ BSplineCurve[{{0.8989795918367347, 0.10102040816326538`}, { 1.0418367346938775`, 0.3867346938775511}, {1.0418367346938775`, 0.4704081632653061}, {0.9581632653061225, 0.4704081632653061}, { 0.8989795918367347, 0.4704081632653061}, {0.8153061224489797, 0.4704081632653061}, {0.6724489795918368, 0.3275510204081632}, { 0.5295918367346939, 0.0418367346938775}, { 0.5295918367346939, -0.0418367346938775}, { 0.6132653061224489, -0.0418367346938775}}, SplineClosed -> True]]}}, {{}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], { {Hue[0.14, 1, 0.9], DiskBox[{1., 0.04761904761904767}, 0.005455714285714286]}, InsetBox["2", Offset[{2, 2}, {1.0054557142857143, 0.05307476190476196}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0.5714285714285714, 0.2857142857142857}, 0.005455714285714286]}, InsetBox["3", Offset[{2, 2}, {0.5768842857142857, 0.29117}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{0.7142857142857143, 0.4285714285714286}, 0.005455714285714286]}, InsetBox["4", Offset[{2, 2}, {0.7197414285714285, 0.4340271428571429}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.8, 0.6, 0.8], DiskBox[{0.7142857142857143, 0.2857142857142857}, 0.005455714285714286]}, InsetBox["5", Offset[{2, 2}, {0.7197414285714285, 0.29117}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0.5714285714285714, 0.14285714285714288}, 0.005455714285714286]}, InsetBox["7", Offset[{2, 2}, {0.5768842857142857, 0.14831285714285716}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.8, 0.6, 0.8], DiskBox[{0.7142857142857143, 0.14285714285714288}, 0.005455714285714286]}, InsetBox["10", Offset[{2, 2}, {0.7197414285714285, 0.14831285714285716}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.8, 0.6, 0.8], DiskBox[{0.8571428571428572, 0.4285714285714286}, 0.005455714285714286]}, InsetBox["12", Offset[{2, 2}, {0.8625985714285715, 0.4340271428571429}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0.8571428571428572, 0.2857142857142857}, 0.005455714285714286]}, InsetBox["13", Offset[{2, 2}, {0.8625985714285715, 0.29117}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.8, 0.6, 0.8], DiskBox[{0.8571428571428572, 0.14285714285714288}, 0.005455714285714286]}, InsetBox["1", Offset[{2, 2}, {0.8625985714285715, 0.14831285714285716}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.8, 0.6, 0.8], DiskBox[{0.5714285714285714, 0.}, 0.005455714285714286]}, InsetBox["6", Offset[{2, 2}, {0.5768842857142857, 0.005455714285714286}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{0.7142857142857143, 0.}, 0.005455714285714286]}, InsetBox["8", Offset[{2, 2}, {0.7197414285714285, 0.005455714285714286}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{0.8571428571428572, 0.}, 0.005455714285714286]}, InsetBox["15", Offset[{2, 2}, {0.8625985714285715, 0.005455714285714286}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.8, 0.6, 0.8], DiskBox[{1., 0.4285714285714286}, 0.005455714285714286]}, InsetBox["9", Offset[{2, 2}, {1.0054557142857143, 0.4340271428571429}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1., 0.23809523809523814}, 0.005455714285714286], InsetBox["11", Offset[{2, 2}, {1.0054557142857143, 0.24355095238095242}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.5714285714285714, 0.4285714285714286}, 0.005455714285714286], InsetBox["14", Offset[{2, 2}, {0.5768842857142857, 0.4340271428571429}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}}, FormatType->TraditionalForm, FrameTicks->None]], "Output", TaggingRules->{}, CellChangeTimes->{3.7563058809300795`*^9, 3.756324057368377*^9, 3.7563240907627335`*^9, 3.756324820009393*^9, 3.78284340982868*^9}, CellLabel->"Out[45]=", CellID->456442875] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"SimpleHypergraphPlot | Example Notebook", Visible->False, TaggingRules->{ "Metadata" -> { "ResourceType" -> "Function", "Name" -> "SimpleHypergraphPlot", "Property" -> "ExampleNotebook"}}, FrontEndVersion->"13.1 for Mac OS X x86 (64-bit) (June 16, 2022)", 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.1 for Mac OS X x86 (64-bit) (June 16, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[633, 23, 168, 7, 70, "Subsection",ExpressionUUID->"aacda071-7499-4973-ad83-060a7c0d95ee", CellID->904125756], Cell[804, 32, 1547, 59, 70, "Text",ExpressionUUID->"1bf4bf3b-49b4-4be3-9d7d-ad2ed7890822", CellID->518617129], Cell[CellGroupData[{ Cell[2376, 95, 7540, 192, 70, "Input",ExpressionUUID->"7745eb29-42ba-4ff0-94c0-4564eba79ba2", CellID->904276572], Cell[9919, 289, 3239, 62, 70, "Output",ExpressionUUID->"f7913310-278c-4b94-93f7-08b04baa41b4", CellID->925916912] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13207, 357, 166, 7, 70, "Subsection",ExpressionUUID->"79878032-f226-4392-a6a1-ebb6c305ab66", CellID->605265931], Cell[13376, 366, 555, 16, 70, "Text",ExpressionUUID->"c8393359-89f5-4ea8-a434-6eb55a2f7211", CellID->453058858], Cell[CellGroupData[{ Cell[13956, 386, 1431, 41, 70, "Input",ExpressionUUID->"b1a1cef4-c366-496a-b32f-0858819e23b1", CellID->505546949], Cell[15390, 429, 650, 19, 70, "Output",ExpressionUUID->"56ae826d-bb9b-4123-b2e2-2121c0d5aebb", CellID->192296309] }, Open ]], Cell[16055, 451, 315, 6, 70, "Text",ExpressionUUID->"7f5de993-b129-45b9-ad8d-b982d3731924", CellID->686233801], Cell[CellGroupData[{ Cell[16395, 461, 7278, 183, 70, "Input",ExpressionUUID->"ef2b5fc0-0b21-4049-a213-b3ffb9b8c038", CellID->701341404], Cell[23676, 646, 6022, 128, 70, "Output",ExpressionUUID->"254181f6-5f38-4923-b661-b525600cb43c", CellID->456442875] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)