(* 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[ 167583, 3731] NotebookOptionsPosition[ 161098, 3572] NotebookOutlinePosition[ 163002, 3628] CellTagsIndexPosition[ 162959, 3625] WindowTitle->BranchialHypergraph | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(4)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->904125756], Cell["Compute branchial hyperedges of a simple graph:", "Text", TaggingRules->{}, CellChangeTimes->{{3.818620650234676*^9, 3.818620690981142*^9}, { 3.818621029640691*^9, 3.8186210774458017`*^9}, {3.818623400453414*^9, 3.8186234236554613`*^9}}, CellID->833645195], 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["BranchialHypergraph", "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["BranchialHypergraph", "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.1.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/3b13a20a-7932-4513-8986-28f655c6a82e/"}, "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], "BranchialHypergraph"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["BranchialHypergraph"], BoxID -> "BranchialHypergraph", Selectable->False], "[", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{$CellContext`i, $CellContext`a, $CellContext`e, $CellContext`b, \ $CellContext`c, $CellContext`d}, {{{1, 2}, {2, 3}, {1, 4}, {4, 5}, {5, 6}}, Null}, {VertexLabels -> {Automatic}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{{0.4767312946227961, 2.8603877677367766`}, {0., 1.9069251784911843`}}, {{0.4767312946227961, 2.8603877677367766`}, { 0.9534625892455922, 1.9069251784911843`}}, {{0., 1.9069251784911843`}, {0., 0.9534625892455921}}, {{ 0.9534625892455922, 1.9069251784911843`}, {0.9534625892455922, 0.9534625892455921}}, {{0.9534625892455922, 0.9534625892455921}, { 0.9534625892455922, 0.}}}, 0.029229881084280332`]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], { DiskBox[{0.4767312946227961, 2.8603877677367766}, 0.029229881084280332], InsetBox["i", Offset[{2, 2}, {0.5059611757070764, 2.8896176488210568}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0., 1.9069251784911843}, 0.029229881084280332], InsetBox["a", Offset[{2, 2}, {0.029229881084280332, 1.9361550595754646}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0., 0.9534625892455921}, 0.029229881084280332], InsetBox["e", Offset[{2, 2}, {0.029229881084280332, 0.9826924703298725}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.9534625892455922, 1.9069251784911843}, 0.029229881084280332], InsetBox["b", Offset[{2, 2}, {0.9826924703298726, 1.9361550595754646}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.9534625892455922, 0.9534625892455921}, 0.029229881084280332], InsetBox["c", Offset[{2, 2}, {0.9826924703298726, 0.9826924703298725}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.9534625892455922, 0.}, 0.029229881084280332], InsetBox["d", Offset[{2, 2}, {0.9826924703298726, 0.029229881084280332}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImageSize->{100.59877093734426`, Automatic}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8186210175465813`*^9, 3.818621024818685*^9}, { 3.818621081698381*^9, 3.818621099001452*^9}, {3.818621719417553*^9, 3.818621721155344*^9}, {3.818621814987389*^9, 3.818621827835124*^9}, { 3.818622454073311*^9, 3.818622470776888*^9}, {3.818622511163041*^9, 3.818622559308909*^9}, {3.818622612171351*^9, 3.818622637479726*^9}, { 3.818623089545869*^9, 3.818623093521749*^9}, {3.818623292905327*^9, 3.8186233073012238`*^9}, {3.818623348946199*^9, 3.818623371632118*^9}, 3.819976263541984*^9, {3.8453414492468987`*^9, 3.845341482843191*^9}, { 3.845341888638796*^9, 3.845341903078115*^9}}, CellLabel->"In[1]:=", CellID->155326306], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "a", ",", "e"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.81862110031532*^9, 3.818621196742631*^9, 3.818621242469091*^9, { 3.818621289136759*^9, 3.818621324591732*^9}, 3.8186215613631163`*^9, 3.818621721512559*^9, {3.8186218039388943`*^9, 3.818621828231205*^9}, { 3.818622461213996*^9, 3.818622512850131*^9}, 3.818622559734581*^9, { 3.818622624109294*^9, 3.818622638201396*^9}, {3.818622735001772*^9, 3.818622751706011*^9}, {3.818622912780369*^9, 3.818622940513875*^9}, 3.818623015896563*^9, 3.818623095181715*^9, 3.818623279115232*^9, { 3.818623349688909*^9, 3.818623372184011*^9}, 3.818623501979905*^9, { 3.818623735500928*^9, 3.818623762509243*^9}, 3.818623826072505*^9, { 3.818624208760414*^9, 3.818624231029838*^9}, 3.818624320645063*^9, { 3.81862440451753*^9, 3.818624416173152*^9}, {3.818625616752885*^9, 3.818625637876238*^9}, 3.818625836933729*^9, {3.8186259856557703`*^9, 3.8186260081328773`*^9}, 3.819976279131475*^9, {3.845341415208405*^9, 3.845341450420847*^9}, {3.845341480785005*^9, 3.8453414833286552`*^9}, { 3.84534186798449*^9, 3.845341903338462*^9}, 3.845342073883594*^9, { 3.845342159273612*^9, 3.8453421652937927`*^9}}, CellLabel->"Out[1]=", CellID->447253571] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["Branchial hypergraph of a mixed graph:", "Text", TaggingRules->{}, CellChangeTimes->{{3.819973544869495*^9, 3.819973562211854*^9}, { 3.8199737133684053`*^9, 3.8199737201474123`*^9}}, CellID->983027035], 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["BranchialHypergraph", "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["BranchialHypergraph", "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.1.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/3b13a20a-7932-4513-8986-28f655c6a82e/"}, "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], "BranchialHypergraph"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["BranchialHypergraph"], BoxID -> "BranchialHypergraph", Selectable->False], "[", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5}, {{{1, 2}, {1, 4}, {3, 5}}, {{1, 3}, {3, 4}}}, { VertexLabels -> {Automatic}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {Arrowheads[0.], ArrowBox[{{2.123724619186534, 0.2848465012502784}, { 1.0246020231662252`, 0.28468259702878873`}}, 0.031290867382760074`]}, ArrowBox[{{2.123724619186534, 0.2848465012502784}, { 3.147903408145563, 0.}}, 0.031290867382760074`], ArrowBox[{{2.123724619186534, 0.2848465012502784}, { 1.5742315378161784`, 0.9655937588020892}}, 0.031290867382760074`], {Arrowheads[0.], ArrowBox[{{1.0246020231662252`, 0.28468259702878873`}, { 1.5742315378161784`, 0.9655937588020892}}, 0.031290867382760074`]}, ArrowBox[{{1.0246020231662252`, 0.28468259702878873`}, {0., 0.00016831547416262804`}}, 0.031290867382760074`]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], { DiskBox[{2.123724619186534, 0.2848465012502784}, 0.031290867382760074], InsetBox["1", Offset[{2, 2}, {2.1550154865692943, 0.31613736863303843}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.147903408145563, 0.}, 0.031290867382760074], InsetBox["2", Offset[{2, 2}, {3.179194275528323, 0.031290867382760074}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.0246020231662252, 0.28468259702878873}, 0.031290867382760074], InsetBox["3", Offset[{2, 2}, {1.0558928905489853, 0.31597346441154883}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.5742315378161784, 0.9655937588020892}, 0.031290867382760074], InsetBox["4", Offset[{2, 2}, {1.6055224051989385, 0.9968846261848493}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0., 0.00016831547416262804}, 0.031290867382760074], InsetBox["5", Offset[{2, 2}, {0.031290867382760074, 0.0314591828569227}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImageSize->{254.3203125, Automatic}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.819972609225347*^9, 3.819972610115984*^9}, { 3.819972793680029*^9, 3.819972958020009*^9}, {3.819973165056473*^9, 3.819973179504499*^9}, {3.8199734226798286`*^9, 3.819973432522999*^9}, { 3.845341508591896*^9, 3.8453415160954*^9}, {3.84534189750342*^9, 3.845341900290564*^9}}, CellLabel->"In[1]:=", CellID->446126962], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.819972610588839*^9, {3.819972796640051*^9, 3.819972891203856*^9}, { 3.8199729249765*^9, 3.819972958508787*^9}, {3.819973165945046*^9, 3.819973180060437*^9}, 3.819973534007601*^9, 3.845341447673641*^9, { 3.845341507472796*^9, 3.845341516346107*^9}, {3.845341896351303*^9, 3.845341901349907*^9}, {3.845342008424716*^9, 3.8453420169976788`*^9}, 3.845342095125739*^9, 3.845342166907136*^9}, CellLabel->"Out[1]=", CellID->499625053] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["Specify the maximum level of ancestry:", "Text", TaggingRules->{}, CellChangeTimes->{{3.845342243881494*^9, 3.8453422579317503`*^9}}, CellID->96825744], 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["BranchialHypergraph", "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["BranchialHypergraph", "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.1.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/3b13a20a-7932-4513-8986-28f655c6a82e/"}, "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], "BranchialHypergraph"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["BranchialHypergraph"], BoxID -> "BranchialHypergraph", Selectable->False], "[", RowBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5}, {{{1, 2}, {1, 4}, {3, 5}}, {{1, 3}, {3, 4}}}, { VertexLabels -> {Automatic}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {Arrowheads[0.], ArrowBox[{{2.123724619186534, 0.2848465012502784}, { 1.0246020231662252`, 0.28468259702878873`}}, 0.031290867382760074`]}, ArrowBox[{{2.123724619186534, 0.2848465012502784}, { 3.147903408145563, 0.}}, 0.031290867382760074`], ArrowBox[{{2.123724619186534, 0.2848465012502784}, { 1.5742315378161784`, 0.9655937588020892}}, 0.031290867382760074`], {Arrowheads[0.], ArrowBox[{{1.0246020231662252`, 0.28468259702878873`}, { 1.5742315378161784`, 0.9655937588020892}}, 0.031290867382760074`]}, ArrowBox[{{1.0246020231662252`, 0.28468259702878873`}, {0., 0.00016831547416262804`}}, 0.031290867382760074`]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], { DiskBox[{2.123724619186534, 0.2848465012502784}, 0.031290867382760074], InsetBox["1", Offset[{2, 2}, {2.1550154865692943, 0.31613736863303843}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.147903408145563, 0.}, 0.031290867382760074], InsetBox["2", Offset[{2, 2}, {3.179194275528323, 0.031290867382760074}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.0246020231662252, 0.28468259702878873}, 0.031290867382760074], InsetBox["3", Offset[{2, 2}, {1.0558928905489853, 0.31597346441154883}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.5742315378161784, 0.9655937588020892}, 0.031290867382760074], InsetBox["4", Offset[{2, 2}, {1.6055224051989385, 0.9968846261848493}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0., 0.00016831547416262804}, 0.031290867382760074], InsetBox["5", Offset[{2, 2}, {0.031290867382760074, 0.0314591828569227}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImageSize->{254.3203125, Automatic}], ",", "1"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.845342264913559*^9, 3.845342266041552*^9}}, CellLabel->"In[1]:=", CellID->611262951], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8453422664085712`*^9}, CellLabel->"Out[1]=", CellID->754157191] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["The branchial hypergraph of any undirected graph is empty:", "Text", TaggingRules->{}, CellChangeTimes->{{3.819972513396367*^9, 3.819972548387538*^9}, { 3.820074576153968*^9, 3.8200745774142857`*^9}, {3.845342213995645*^9, 3.845342214486113*^9}}, CellID->947398385], 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["BranchialHypergraph", "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["BranchialHypergraph", "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.1.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/3b13a20a-7932-4513-8986-28f655c6a82e/"}, "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], "BranchialHypergraph"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["BranchialHypergraph"], BoxID -> "BranchialHypergraph", Selectable->False], "[", RowBox[{"RandomGraph", "[", RowBox[{"{", RowBox[{"10", ",", "25"}], "}"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.819972565326281*^9, 3.8199726025051413`*^9}, { 3.819976321227706*^9, 3.819976323441741*^9}, {3.845342191758051*^9, 3.8453422094396667`*^9}}, CellLabel->"In[1]:=", CellID->858838313], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.819972575532221*^9, 3.819972602943507*^9}, { 3.819976321628654*^9, 3.8199763240395727`*^9}, 3.845342168607696*^9, { 3.845342199269226*^9, 3.845342216092135*^9}}, CellLabel->"Out[1]=", CellID->183682621] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->204653245], Cell[TextData[{ "Generate a simple string substitution multiway system with the resource \ function ", ButtonBox["MultiwaySystem", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ MultiwaySystem/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ MultiwaySystem/"], " and compute its branchial hypergraph:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.818620650234676*^9, 3.818620690981142*^9}, { 3.859548199461608*^9, 3.8595482506343927`*^9}}, CellID->651234937], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mws", "=", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "2", ",", "\"\\""}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.818620505673642*^9, 3.81862052345453*^9}, { 3.818620577001987*^9, 3.818620634939437*^9}, {3.8186207468091993`*^9, 3.818620792806917*^9}, {3.818620908986809*^9, 3.818620912802517*^9}, { 3.8186209468076563`*^9, 3.81862097273253*^9}, {3.818623452050501*^9, 3.81862345281875*^9}, 3.818623562401017*^9, {3.818623960061565*^9, 3.818623960180524*^9}, {3.818624435388011*^9, 3.818624435499247*^9}, { 3.8186245104553823`*^9, 3.8186245222004147`*^9}, 3.8199936725056787`*^9, { 3.859548256090851*^9, 3.859548266779108*^9}}, CellLabel->"In[1]:=", CellID->821822930], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ "A", "AB", "BA", "ABB", "BAB", "BBA"}, {{{1, 2}, {1, 3}, {2, 4}, {2, 5}, {3, 5}, {3, 6}}, Null}, {EdgeStyle -> { Directive[{ Hue[0.75, 0, 0.35], Dashing[None], AbsoluteThickness[1]}]}, PerformanceGoal -> "Quality", VertexShapeFunction -> {Text[ Framed[ Style[ FunctionRepository`$d565908159ef4f95abe6d42d3d3ed1a6`\ stripMetadata[#2], Hue[0.62, 1, 0.48]], Background -> Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameMargins -> {{2, 2}, {0, 0}}, RoundingRadius -> 0, FrameStyle -> Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]]], #, {0, 0}]& }}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.75, 0, 0.35], AbsoluteThickness[1], Opacity[0.7], Dashing[None], Arrowheads[Medium], ArrowBox[{ DynamicLocation["VertexID$1", Automatic, Center], DynamicLocation[ "VertexID$2", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$1", Automatic, Center], DynamicLocation[ "VertexID$3", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$2", Automatic, Center], DynamicLocation[ "VertexID$4", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$2", Automatic, Center], DynamicLocation[ "VertexID$5", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$3", Automatic, Center], DynamicLocation[ "VertexID$5", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$3", Automatic, Center], DynamicLocation[ "VertexID$6", Automatic, Center]}]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], TagBox[InsetBox[ FrameBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FrontFaceColor->Hue[0.62, 1, 0.48], BackFaceColor->Hue[0.62, 1, 0.48], FontColor->Hue[0.62, 1, 0.48], $CellContext`LineColor -> Hue[0.62, 1, 0.48], $CellContext`GraphicsColor -> Hue[0.62, 1, 0.48]], Background->Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameMargins->{{2, 2}, {0, 0}}, FrameStyle->Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], RoundingRadius->0, StripOnInput->False], {0., 2.}, ImageScaled[{Rational[1, 2], Rational[1, 2]}]], "DynamicName", BoxID -> "VertexID$1"], TagBox[InsetBox[ FrameBox[ StyleBox["\<\"AB\"\>", StripOnInput->False, FrontFaceColor->Hue[0.62, 1, 0.48], BackFaceColor->Hue[0.62, 1, 0.48], FontColor->Hue[0.62, 1, 0.48], $CellContext`LineColor -> Hue[0.62, 1, 0.48], $CellContext`GraphicsColor -> Hue[0.62, 1, 0.48]], Background->Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameMargins->{{2, 2}, {0, 0}}, FrameStyle->Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], RoundingRadius->0, StripOnInput->False], {0., 1.}, ImageScaled[{Rational[1, 2], Rational[1, 2]}]], "DynamicName", BoxID -> "VertexID$2"], TagBox[InsetBox[ FrameBox[ StyleBox["\<\"BA\"\>", StripOnInput->False, FrontFaceColor->Hue[0.62, 1, 0.48], BackFaceColor->Hue[0.62, 1, 0.48], FontColor->Hue[0.62, 1, 0.48], $CellContext`LineColor -> Hue[0.62, 1, 0.48], $CellContext`GraphicsColor -> Hue[0.62, 1, 0.48]], Background->Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameMargins->{{2, 2}, {0, 0}}, FrameStyle->Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], RoundingRadius->0, StripOnInput->False], {1., 1.}, ImageScaled[{Rational[1, 2], Rational[1, 2]}]], "DynamicName", BoxID -> "VertexID$3"], TagBox[InsetBox[ FrameBox[ StyleBox["\<\"ABB\"\>", StripOnInput->False, FrontFaceColor->Hue[0.62, 1, 0.48], BackFaceColor->Hue[0.62, 1, 0.48], FontColor->Hue[0.62, 1, 0.48], $CellContext`LineColor -> Hue[0.62, 1, 0.48], $CellContext`GraphicsColor -> Hue[0.62, 1, 0.48]], Background->Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameMargins->{{2, 2}, {0, 0}}, FrameStyle->Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], RoundingRadius->0, StripOnInput->False], {-1., 0.}, ImageScaled[{Rational[1, 2], Rational[1, 2]}]], "DynamicName", BoxID -> "VertexID$4"], TagBox[InsetBox[ FrameBox[ StyleBox["\<\"BAB\"\>", StripOnInput->False, FrontFaceColor->Hue[0.62, 1, 0.48], BackFaceColor->Hue[0.62, 1, 0.48], FontColor->Hue[0.62, 1, 0.48], $CellContext`LineColor -> Hue[0.62, 1, 0.48], $CellContext`GraphicsColor -> Hue[0.62, 1, 0.48]], Background->Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameMargins->{{2, 2}, {0, 0}}, FrameStyle->Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], RoundingRadius->0, StripOnInput->False], {0., 0.}, ImageScaled[{Rational[1, 2], Rational[1, 2]}]], "DynamicName", BoxID -> "VertexID$5"], TagBox[InsetBox[ FrameBox[ StyleBox["\<\"BBA\"\>", StripOnInput->False, FrontFaceColor->Hue[0.62, 1, 0.48], BackFaceColor->Hue[0.62, 1, 0.48], FontColor->Hue[0.62, 1, 0.48], $CellContext`LineColor -> Hue[0.62, 1, 0.48], $CellContext`GraphicsColor -> Hue[0.62, 1, 0.48]], Background->Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameMargins->{{2, 2}, {0, 0}}, FrameStyle->Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], RoundingRadius->0, StripOnInput->False], {1., 0.}, ImageScaled[{Rational[1, 2], Rational[1, 2]}]], "DynamicName", BoxID -> "VertexID$6"]}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImageSizeRaw->{190., 181.}]], "Output", TaggingRules->{"AttachedInlineCell" -> CellObject[89313]}, CellChangeTimes->{ 3.8199937058662777`*^9, 3.8199937620523176`*^9, 3.845397949030075*^9, { 3.8595482633385344`*^9, 3.8595482674015636`*^9}}, CellLabel->"Out[1]=", CellID->85120007] }, Open ]], 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["BranchialHypergraph", "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["BranchialHypergraph", "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.1.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/3b13a20a-7932-4513-8986-28f655c6a82e/"}, "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], "BranchialHypergraph"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["BranchialHypergraph"], BoxID -> "BranchialHypergraph", Selectable->False], "[", "mws", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8595482704999647`*^9, 3.8595482746534243`*^9}}, CellLabel->"In[2]:=", CellID->202093430], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"AB\"\>", ",", "\<\"BA\"\>", ",", "\<\"BBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"BA\"\>", ",", "\<\"AB\"\>", ",", "\<\"ABB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABB\"\>", ",", "\<\"BAB\"\>", ",", "\<\"BA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABB\"\>", ",", "\<\"BAB\"\>", ",", "\<\"BBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"BAB\"\>", ",", "\<\"ABB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"BAB\"\>", ",", "\<\"BBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"BBA\"\>", ",", "\<\"BAB\"\>", ",", "\<\"AB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"BBA\"\>", ",", "\<\"BAB\"\>", ",", "\<\"ABB\"\>"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.859548275412359*^9}, CellLabel->"Out[2]=", CellID->887981733] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell[TextData[{ "Use the resource function ", ButtonBox["WolframModelPlot", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModelPlot/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModelPlot/"], " to visualize the branchial hypergraph:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.819733613221065*^9, 3.8197336426200867`*^9}, { 3.845397909611157*^9, 3.845397916452382*^9}, {3.859548109346463*^9, 3.8595481246972837`*^9}, {3.859548178244774*^9, 3.859548178245627*^9}, { 3.860583638363427*^9, 3.860583638618992*^9}}, CellID->975705448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ 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["BranchialHypergraph", "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["BranchialHypergraph", "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.1.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/3b13a20a-7932-4513-8986-28f655c6a82e/"}, "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], "BranchialHypergraph"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["BranchialHypergraph"], BoxID -> "BranchialHypergraph", Selectable->False], "@", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ "A", "AB", "BA", "ABB", "BAB", "BBA"}, {{{1, 2}, {1, 3}, {2, 4}, {2, 5}, {3, 5}, {3, 6}}, Null}, {EdgeStyle -> { Directive[{ Hue[0.75, 0, 0.35], Dashing[None], AbsoluteThickness[1]}]}, PerformanceGoal -> "Quality", VertexShapeFunction -> {Text[ Framed[ Style[ FunctionRepository`$d565908159ef4f95abe6d42d3d3ed1a6`\ stripMetadata[#2], Hue[0.62, 1, 0.48]], Background -> Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameMargins -> {{2, 2}, {0, 0}}, RoundingRadius -> 0, FrameStyle -> Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]]], #, {0, 0}]& }}]], Typeset`boxes, Typeset`boxes$s2d = GraphicsGroupBox[{{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], Directive[{ Hue[0.75, 0, 0.35], Dashing[None], AbsoluteThickness[1]}], ArrowBox[{ DynamicLocation["VertexID$1", Automatic, Center], DynamicLocation["VertexID$2", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$1", Automatic, Center], DynamicLocation["VertexID$3", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$2", Automatic, Center], DynamicLocation["VertexID$4", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$2", Automatic, Center], DynamicLocation["VertexID$5", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$3", Automatic, Center], DynamicLocation["VertexID$5", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$3", Automatic, Center], DynamicLocation["VertexID$6", Automatic, Center]}]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], TagBox[ InsetBox[ FormBox[ FrameBox[ StyleBox["\"A\"", Hue[0.62, 1, 0.48], StripOnInput -> False], Background -> Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameMargins -> {{2, 2}, {0, 0}}, RoundingRadius -> 0, FrameStyle -> Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], StripOnInput -> False], TraditionalForm], {0., 2.}, ImageScaled[{ Rational[1, 2], Rational[1, 2]}]], "DynamicName", BoxID -> "VertexID$1"], TagBox[ InsetBox[ FormBox[ FrameBox[ StyleBox["\"AB\"", Hue[0.62, 1, 0.48], StripOnInput -> False], Background -> Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameMargins -> {{2, 2}, {0, 0}}, RoundingRadius -> 0, FrameStyle -> Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], StripOnInput -> False], TraditionalForm], {0., 1.}, ImageScaled[{ Rational[1, 2], Rational[1, 2]}]], "DynamicName", BoxID -> "VertexID$2"], TagBox[ InsetBox[ FormBox[ FrameBox[ StyleBox["\"BA\"", Hue[0.62, 1, 0.48], StripOnInput -> False], Background -> Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameMargins -> {{2, 2}, {0, 0}}, RoundingRadius -> 0, FrameStyle -> Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], StripOnInput -> False], TraditionalForm], {1., 1.}, ImageScaled[{ Rational[1, 2], Rational[1, 2]}]], "DynamicName", BoxID -> "VertexID$3"], TagBox[ InsetBox[ FormBox[ FrameBox[ StyleBox["\"ABB\"", Hue[0.62, 1, 0.48], StripOnInput -> False], Background -> Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameMargins -> {{2, 2}, {0, 0}}, RoundingRadius -> 0, FrameStyle -> Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], StripOnInput -> False], TraditionalForm], {-1., 0.}, ImageScaled[{ Rational[1, 2], Rational[1, 2]}]], "DynamicName", BoxID -> "VertexID$4"], TagBox[ InsetBox[ FormBox[ FrameBox[ StyleBox["\"BAB\"", Hue[0.62, 1, 0.48], StripOnInput -> False], Background -> Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameMargins -> {{2, 2}, {0, 0}}, RoundingRadius -> 0, FrameStyle -> Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], StripOnInput -> False], TraditionalForm], {0., 0.}, ImageScaled[{ Rational[1, 2], Rational[1, 2]}]], "DynamicName", BoxID -> "VertexID$5"], TagBox[ InsetBox[ FormBox[ FrameBox[ StyleBox["\"BBA\"", Hue[0.62, 1, 0.48], StripOnInput -> False], Background -> Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameMargins -> {{2, 2}, {0, 0}}, RoundingRadius -> 0, FrameStyle -> Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], StripOnInput -> False], TraditionalForm], {1., 0.}, ImageScaled[{ Rational[1, 2], Rational[1, 2]}]], "DynamicName", BoxID -> "VertexID$6"]}}], $CellContext`flag}, TagBox[ DynamicBox[GraphComputation`NetworkGraphicsBox[ 3, Typeset`graph, Typeset`boxes, $CellContext`flag], { CachedValue :> Typeset`boxes, SingleEvaluation -> True, SynchronousUpdating -> False, TrackedSymbols :> {$CellContext`flag}}, ImageSizeCache->{{1.4210854715202004`*^-14, 137.08203125}, {-67., 61.08203125}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False, UnsavedVariables:>{$CellContext`flag}]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImageSize->{138.08203125, Automatic}, ImageSizeRaw->{190., 181.}]}], ",", RowBox[{"Sequence", "@@", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"WolframPhysicsProjectStyleData\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"WolframPhysicsProjectStyleData\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["WolframPhysicsProjectStyleData"], Selectable->False], "[", "\"\\"", "]"}], "[", "\"\\"", "]"}]}], ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.818620505673642*^9, 3.81862052345453*^9}, { 3.818620577001987*^9, 3.818620634939437*^9}, {3.8186207468091993`*^9, 3.818620792806917*^9}, {3.818620908986809*^9, 3.818620912802517*^9}, { 3.8186209468076563`*^9, 3.81862097273253*^9}, {3.818623452050501*^9, 3.81862345281875*^9}, 3.818623562401017*^9, {3.818623960061565*^9, 3.818623960180524*^9}, {3.818624435388011*^9, 3.818624435499247*^9}, { 3.8186245104553823`*^9, 3.8186245222004147`*^9}, {3.819993728926507*^9, 3.8199937389182186`*^9}, {3.845397884071452*^9, 3.845397905065029*^9}, { 3.859548130528562*^9, 3.859548134217732*^9}}, CellLabel->"In[1]:=", CellID->226366573], Cell[BoxData[ GraphicsBox[{{ {Hue[0.89, 0.97, 0.71], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAA+GdBtFsZzT8AAAAAAAAAAHI2M9Dr qtY/UaRrQrt0oz/T4o3okLTYP1qUJ6IWxag/ZvGArW612j+NxKo/gtyuPzJO cnZVrNw/e5GWZrHbsj982yuBG5jeP//VeqHUqLY/tsgT0c474D9clkWjatO6 P9t6evjfJOE/ct9+6vtYvz887Cg4twbiP6lBrYttG8I/BevyqSVJ7j9uMnW+ mdjaP51mk0o9I+8/ep//mGwl3D8YV0crFPXvP16t1nPVht0/RtENBxdf8D+O Z64PA/zeP2EwzPAJv/A/2v1sPAxC4D8GL6ADKhrxP3gDD8UWD+E/l1ZrS0Fw 8T+wwxG7p+ThP9Q5Ic8cwfE/jgidq0DC4j9+q8SENfbyPwU2xrabPeY/a1lW baj94j+GU1s9jwTyP2zulxU= "]], PolygonBox[CompressedData[" 1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAA+GdBtFsZzT8AAAAAAAAAAPNJerhc qe4/BNauSYgVMz9+q8SENfbyPwU2xrabPeY/4gpAB6bu8D/Be58CUAblP8hf KcE8bPA/wLyjTEqx5D9JONmfCtjvP7yJy5LTT+Q/5IlgO5fc7j/WY/OJJeLj Pz7DAza05u0/RduWIoFo4z9H6IUl8/bsPzqDXWIu4+I/IDYf/uEN7D8XWnY5 fFLiP7/EcL4KLOs/nOXaU8C24T/ti02ZONPdP5w5F6+dotE/vJQMWAkf3D+P zIzUylXQP8ezpJZbe9o/WH1r88PozT/dHPzQJ+nYP/oIvLto/so/caACKlxp 1z+n4GTpPe7HP9ulst7b/NU/OMrcxhO6xD+bB4a/fqTUP1jJ0e7PY8E/p3qu sBBh0z/Ca0lZ2Nq7P57aoB8= "]], PolygonBox[{{0.2273363714364789, 0.}, {0.9581740954475307, 0.0002912004217095756}, {0., 0.6963113157811717}}], PolygonBox[CompressedData[" 1:eJwBQQK+/SFib1JlAgAAACMAAAACAAAA80l6uFyp7j8E1q5JiBUzP2tZVm2o /eI/hlNbPY8E8j8YehnR3OrgPz6SSJ7gb/E/HuzqKhtW4D+8URr8ZEXxP7ZM JESPhd8/p7iZ8a4Z8T9ZDtAw2WHeP6M8WZPB7PA/Um96qihB3T9j1tsLoL7w P1J6QQmSI9w/l+Nbm02P8D+K7VBtKQnbPxmBkJfNXvA/aiZ3vQLy2T9mYXFr Iy3wP3RXl2VegcU/+JFB6ubZ6j8kPCU2vFnDP7IWUUFFdOo/MN65Fuw4wT+o LytxXQzqP4g2HdgoPr4/hglTzDai6T/4gTg6thi6PzUUzs3YNek/2IveIMsB tj/eDp0YS8foP9geClOx+bE/mUIyd5VW6D/Az8kYYwGsP4H15Nq/4+c/AAAA AAAAAADxrCOrLkjmP5glcHwKmrY/uSRl9Pet4z+wrnV2nAO9P8L3exYU9OI/ PPqsZtDCwT/IZYNLnj3iP0jNoAzRD8U/wqMpb6OK4T+0hceglGjIP6f/Ux4w 2+A/pIOjwt7Myz9SVTu2UC/gP8yNyUFyPM8/ZgAapyIO3z8CWhiRiFvRP9Ky IKP7xN0/Wxe9+ILx5D8yp7BPF+fHPzINVdjd0uU/C4iyLqdjxT+OR+T927bm P1MZokxC78I/7ZFNWG2d5z+T+hHyFIrAP+9F/6eBhug/56EeqpRovD8qbBiA CHLpP9tyLCwZ3Lc/lw6RR/Ff6j/2lTN6CW+zP0anZTorUOs/4HV/2mpDrj+b ehQe "]], PolygonBox[{{1.1851096330890125`, 0.6950205392656136}, { 0.5934641013616732, 1.1261131664989263`}, {0., 0.6963113157811717}}], PolygonBox[{{0.9581740954475307, 0.0002912004217095756}, { 0.5934641013616732, 1.1261131664989263`}, {0., 0.6963113157811717}}]}, {Hue[0.89, 0.97, 0.71], {{LineBox[{{1.1509158906028991`, 0.6457175173015051}, { 1.1096466151244515`, 0.586212477858014}, {1.0899060197893158`, 0.5591620114993159}, {1.0688877240781394`, 0.5330919121553128}, { 1.04664033948486, 0.5080624752226257}, {1.0232153201623801`, 0.48413158923505584`}, {0.9986668439184738, 0.4613546019779359}, { 0.9730516869123736, 0.4397841924787752}, {0.9464290923418451, 0.4194702491702519}, {0.563319787680832, 0.14146203346400668`}, { 0.5357513287634349, 0.12245153880109941`}, {0.5073007663288738, 0.10478846059921793`}, {0.4780339013518, 0.08851365034464463}, { 0.44801842276612824`, 0.07366474871247945}, {0.41732375091284835`, 0.06027609851060687}, {0.3860208769834063, 0.04837866525102959}, { 0.3804084623290602, 0.04654914311716648}}], PolygonBox[{{0.38166227943333997`, 0.07724262077297593}, { 0.381080810285458, 0.07364553868883308}, {0.37999538968886404`, 0.06504641266472519}, {0.3796251726951576, 0.05993236968215543}, { 0.3794413460346314, 0.05487562989144247}, {0.3796850780191789, 0.050256115055898734`}, {0.380413984216328, 0.04655083733813485}, { 0.3817884285238221, 0.04340077293225407}, {0.3841488231330705, 0.03953279189188803}, {0.3871943200522324, 0.03526263698545018}, { 0.39045488551704277`, 0.03095631584790297}, {0.39639084575239647`, 0.023746327492551757`}, {0.3990041356013775, 0.02072120086293563}, { 0.2848126515313033, 0.01721851406078034}, {0.38166227943333997`, 0.07724262077297593}}]}, { LineBox[{{0.2458879953087251, 0.05705994437171057}, { 0.5439931043690166, 0.9739533148410315}}], PolygonBox[{{0.5683963338212752, 0.9552978544162545}, { 0.5657862946524106, 0.9578404517943293}, {0.5593717541622065, 0.9636694119545579}, {0.5553987482720428, 0.966910664867665}, { 0.5513655542141924, 0.9699664389502536}, {0.5474445664314234, 0.9724210626288396}, {0.5439931043690166, 0.9739533148410315}, { 0.5406251803197085, 0.9746382166688088}, {0.5361031888236195, 0.9749286180277901}, {0.5308584073966576, 0.9748893472626406}, { 0.5254604586226552, 0.9746948275380726}, {0.5161488029444794, 0.9739788495139006}, {0.5121713666355373, 0.9735780061925036}, { 0.574912477489427, 1.0690532221272158`}, {0.5683963338212752, 0.9552978544162545}}]}}, {{ LineBox[{{1.1664792100258439`, 0.6379862746829318}, { 1.0078552236159806`, 0.15238257264219437`}}], PolygonBox[{{0.9834777862278158, 0.17107172344543065`}, { 0.986084310817496, 0.16852552324642972`}, {0.9924907936468254, 0.16268770824357912`}, {0.9964593186047986, 0.15944097051041628`}, { 1.0004882878749088`, 0.15637962829292276`}, {1.0044058813459076`, 0.1539195908964413}, {1.0078552236159806`, 0.15238257264219443`}, { 1.0112221983975562`, 0.15169301935503385`}, {1.0157437844483523`, 0.15139637204719797`}, {1.0209886151165184`, 0.1514283981594087}, { 1.026386827430959, 0.15161546151290733`}, {1.035699463206155, 0.15231857666602316`}, {1.0396774494054377`, 0.15271392557308636`}, { 0.9768045185106995, 0.057325465004391375`}, {0.9834777862278158, 0.17107172344543065`}}]}, { LineBox[{{0.26153011392259223`, 0.04930302196410851}, { 0.30279938940104006`, 0.10880806140759972`}, {0.3225399847361758, 0.1358585277662978}, {0.343558280447352, 0.16192862711030087`}, { 0.36580566504063144`, 0.18695806404298773`}, {0.3892306843631113, 0.2108889500305578}, {0.41377916060701775`, 0.2336659372876777}, { 0.43939431761311787`, 0.2552363467868383}, {0.46601691218364644`, 0.2755502900953617}, {0.8491262168446595, 0.553558505801607}, { 0.8766946757620566, 0.5725690004645142}, {0.905145238196618, 0.5902320786663957}, {0.9344121031736916, 0.6065068889209689}, { 0.9644275817593635, 0.6213557905531342}, {0.9951222536126433, 0.6347444407550067}, {1.026425127542085, 0.6466418740145841}, { 1.0320375421964312`, 0.6484713961484472}}], PolygonBox[{{1.0307837250921512`, 0.6177779184926377}, { 1.0313651942400333`, 0.6213750005767805}, {1.0324506148366273`, 0.6299741266008885}, {1.0328208318303336`, 0.6350881695834582}, { 1.0330046584908599`, 0.6401449093741711}, {1.0327609265063125`, 0.6447644242097149}, {1.0320320203091633`, 0.6484697019274788}, { 1.0306575760016692`, 0.6516197663333595}, {1.0282971813924209`, 0.6554877473737256}, {1.0252516844732589`, 0.6597579022801634}, { 1.0219911190084485`, 0.6640642234177107}, {1.0160551587730948`, 0.6712742117730619}, {1.0134418689241138`, 0.674299338402678}, { 1.127633352994188, 0.6778020252048332}, {1.0307837250921512`, 0.6177779184926377}}]}}, {{ LineBox[{{0.9007061616533002, 0.01753755033761731}, { 0.8312489850398528, 0.03838191854364418}, {0.7993908140603174, 0.04878404489322415}, {0.7680695961487469, 0.06070581486625436}, { 0.737357771583627, 0.07411965557781898}, {0.707326371227506, 0.08899454325485}, {0.6780448522455312, 0.10529607498846884`}, { 0.6495809374636651, 0.12298654830165605`}, {0.6220004587381088, 0.1420250483482213}, {0.23873082055909692`, 0.4204330944920058}, { 0.2120975665191844, 0.44077558868518196`}, {0.18647313503588886`, 0.4623750285369889}, {0.16191679075715398`, 0.48518145847282446`}, { 0.13848532803954564`, 0.5091421313696204}, {0.11623293959323833`, 0.534201630550342}, {0.09521109114413645, 0.5603019979526778}, { 0.09165830584638679, 0.5651753218874004}}], PolygonBox[{{0.12123164253154567`, 0.5734867065387564}, { 0.11763129024072433`, 0.5729258417850255}, {0.10911866867566292`, 0.5712953877562189}, {0.10414131225771975`, 0.5700639579617282}, { 0.09927615477446178, 0.5686730402016865}, {0.09495912030749792, 0.5670109523558895}, {0.09166161892316291, 0.5651706067822788}, { 0.08909192333609113, 0.5628883562470869}, {0.086144869563577, 0.5594463199163794}, {0.08302753290828427, 0.5552283243512836}, { 0.07994239866737844, 0.5507946311271654}, {0.07492466881673658, 0.5429179603110161}, {0.0728573531475038, 0.5394964283611807}, { 0.034169859210068536`, 0.6469917383137592}, {0.12123164253154567`, 0.5734867065387564}}]}, { LineBox[{{0.018621842676259576`, 0.6392742491022072}, { 0.1776781242997867, 0.1520988444772386}}], PolygonBox[{{0.14696893201328426`, 0.1527983589307135}, { 0.15057583257292284`, 0.15228127649736362`}, {0.15919298556222283`, 0.15134972907023073`}, {0.16431282878856576`, 0.1510709790250817}, { 0.16937204645825527`, 0.15097756530659442`}, {0.17398646688651004`, 0.15130382702271353`}, {0.1776781242997867, 0.15209884447723857`}, { 0.18080311882415756`, 0.15352937309920045`}, {0.18462829253501134`, 0.155958526474719}, {0.1888433304258548, 0.15907986112328742`}, { 0.19309068466019821`, 0.16241687639115854`}, {0.2001934225565098, 0.16848075884189087`}, {0.2031713562831799, 0.17114770197581047`}, { 0.20871452876021931`, 0.05703706667896446}, {0.14696893201328426`, 0.1527983589307135}}]}}, {{ LineBox[{{0.9058706181807361, 0.029690966845983977`}, { 0.8535362377708473, 0.059108103916269306`}, {0.8242117307458611, 0.075913040479996}, {0.7951700689185419, 0.09320218399484352}, { 0.766419246787505, 0.11097077515899621`}, {0.7379671787899135, 0.1292139226897758}, {0.7098216971228213, 0.1479266046700994}, { 0.6819905495871466, 0.16710366993089595`}, {0.6544813974548832, 0.1867398394691065}, {0.27121175927587177`, 0.46514788561289067`}, { 0.2440321751811169, 0.4852377540446525}, {0.21718964103550065`, 0.5057757910932799}, {0.19069154596858842`, 0.5267563431116188}, { 0.16454518429382348`, 0.5481736346383672}, {0.1387577535005721, 0.5700217699879255}, {0.11797419960657232`, 0.588231284165683}}], PolygonBox[{{0.1450435339499058, 0.6027515603035101}, { 0.14165004587916646`, 0.601424403717515}, {0.1336924339516751, 0.5979893609723012}, {0.12909981109453347`, 0.5957093803710546}, { 0.12465125981354253`, 0.5932979905119704}, {0.12079654489982242`, 0.5907405512595064}, {0.11797577358934339`, 0.58822984689141}, { 0.11596122835841696`, 0.5854453163334611}, {0.11382941065805394`, 0.5814468049439038}, {0.11169937149152637`, 0.5766538718587608}, { 0.10964747659382737`, 0.571657331433747}, {0.10645435805663284`, 0.5628810252627304}, {0.1051769668690144, 0.559093024904521}, { 0.04413095203562541, 0.6556608659382815}, {0.1450435339499058, 0.6027515603035101}}]}, { LineBox[{{0.04418889711835015, 0.7368987691561232}, { 0.05469808271018859, 0.7465514445572553}, {0.07021625783283567, 0.7605693176320357}, {0.08596486618493711, 0.7743278008205967}, { 0.10193957253841991`, 0.787823106730349}, {0.11813597942565408`, 0.8010515204153286}, {0.13454962834997405`, 0.8140094003988354}, { 0.151176001013, 0.8266931796758483}, {0.16801052055842153`, 0.8390993666949376}, {0.40539616110309024`, 1.011020106982039}, { 0.4224341933765677, 1.0231452866065125`}, {0.43967104820140895`, 1.0349861210545208`}, {0.45536632239985475`, 1.0453889557475977`}}], PolygonBox[{{0.46149765777807883`, 1.0152820465939332`}, { 0.4611991832781585, 1.0189135777948037`}, {0.46018992127694125`, 1.027521974652692}, {0.45932243562357994`, 1.0325754848081397`}, { 0.45828775036247654`, 1.037528649045529}, {0.45694288585019366`, 1.0419547830290075`}, {0.4553463473178193, 1.0453769828952695`}, { 0.45325632207157623`, 1.0481053152404334`}, {0.45003690747087755`, 1.0512940625914802`}, {0.44605591422355156`, 1.0547088784246321`}, { 0.44185745677440486`, 1.0581072080051326`}, {0.4343651287175101, 1.0636825623694637`}, {0.4311024104515164, 1.065992398830504}, { 0.5411187370146682, 1.0967880436282664`}, {0.46149765777807883`, 1.0152820465939332`}}]}}, { LineBox[{{0.05230347726679465, 0.6669115493568972}, { 0.10463785767668324`, 0.637494412286612}, {0.13396236470166942`, 0.6206894757228854}, {0.1630040265289886, 0.6034003322080378}, { 0.19175484866002582`, 0.585631741043885}, {0.22020691665761724`, 0.5673885935131056}, {0.24835239832470957`, 0.548675911532782}, { 0.27618354586038435`, 0.5294988462719854}, {0.3036926979926475, 0.5098626767337748}, {0.686962336171659, 0.23145463058999063`}, { 0.7141419202664139, 0.2113647621582288}, {0.7409844544120301, 0.1908267251096015}, {0.7674825494789423, 0.16984617309126257`}, { 0.7936289111537073, 0.14842888156451428`}, {0.8194163419469587, 0.12658074621495596`}, {0.8401998958409584, 0.10837123203719828`}}], PolygonBox[{{0.813130561497625, 0.09385095589937126}, { 0.8165240495683643, 0.09517811248536631}, {0.8244816614958557, 0.09861315523058022}, {0.8290742843529973, 0.10089313583182671`}, { 0.8335228356339882, 0.10330452569091089`}, {0.8373775505477083, 0.10586196494337491`}, {0.8401983218581874, 0.1083726693114713}, { 0.8422128670891138, 0.11115719986942028`}, {0.8443446847894769, 0.1151557112589775}, {0.8464747239560044, 0.11994864434412052`}, { 0.8485266188537034, 0.12494518476913427`}, {0.851719737390898, 0.1337214909401509}, {0.8529971285785164, 0.13750949129836038`}, { 0.9140431434119053, 0.0409416502645997}, {0.813130561497625, 0.09385095589937126}}]}, { LineBox[{{0.03424018139122204, 0.7455820979780905}, { 0.04679060798809906, 0.7636418543873154}, {0.05902987795515561, 0.7803801386425145}, {0.07205973523432295, 0.7965106286666543}, { 0.08585004413635043, 0.8119960175710703}, {0.10036891018573933`, 0.8268004904686187}, {0.11558275388686184`, 0.8408898073069951}, { 0.13145638838722523`, 0.8542313820597452}, {0.1479531008582593, 0.8667943580918154}, {0.3853387414029284, 1.0387150983789173`}, { 0.40242037795007934`, 1.0504704198124377`}, {0.420047431855825, 1.0613908987276812`}, {0.43817913495152605`, 1.071451278043775}, { 0.4426047984767258, 1.0736355017755246`}}], PolygonBox[{{0.44315196755980957`, 1.0428636024671922`}, { 0.44350258684893773`, 1.0464904705381444`}, {0.4440367630618257, 1.0551413526910571`}, {0.4440797075695636, 1.0602685987373528`}, { 0.44394030068459434`, 1.0653267580144539`}, {0.44340212307965476`, 1.0699212860056235`}, {0.4424381326134813, 1.0735724652111853`}, { 0.4408653699297258, 1.0766283481369836`}, {0.4382628316506307, 1.0803377327956358`}, {0.434950911223948, 1.0844047289226224`}, { 0.43142205194723593`, 1.0884940859741847`}, {0.42503786562889184`, 1.0953103694962125`}, {0.42223676195676346`, 1.0981624727864159`}, { 0.5359716232247996, 1.108948815136841}, {0.44315196755980957`, 1.0428636024671922`}}]}, {{ LineBox[{{0.059999964411808215`, 0.6962459660929785}, { 1.0251097279908572`, 0.6951948051007953}}], PolygonBox[{{1.0148821749313903`, 0.6662303273776291}, { 1.0164967336822794`, 0.669496870799953}, {1.020065338669229, 0.6773954886978588}, {1.0219245443059608`, 0.6821739665570045}, { 1.0235887499385463`, 0.686952546802702}, {1.0247156372227832`, 0.6914391321016488}, {1.0251097279908572`, 0.6951948051007953}, { 1.0247234473382851`, 0.698609887848409}, {1.0236062296404693`, 0.7030013072835902}, {1.021952649899859, 0.7079787512512349}, { 1.0201041766424193`, 0.7130540675474405}, {1.0165535825741163`, 0.7216919398411326}, {1.014946568335813, 0.7253522923102113}, { 1.1251096686772042`, 0.6950858889538067}, {1.0148821749313903`, 0.6662303273776291}}]}, { LineBox[{{0.549275204243323, 1.0855257131239748`}, {0.5387660186514848, 1.075873037722843}, {0.5232478435288377, 1.0618551646480623`}, { 0.5074992351767361, 1.0480966814595016`}, {0.49152452882325326`, 1.0346013755497492`}, {0.47532812193601914`, 1.0213729618647696`}, { 0.45891447301169924`, 1.008415081881263}, {0.4422881003486733, 0.9957313026042498}, {0.4254535808032518, 0.9833251155851607}, { 0.18806794025858284`, 0.8114043752980592}, {0.1710299079851055, 0.7992791956735857}, {0.15379305316026412`, 0.7874383612255773}, { 0.13809777896181832`, 0.7770355265325004}}], PolygonBox[{{0.13196644358359427`, 0.8071424356861651}, { 0.13226491808351457`, 0.8035109044852944}, {0.1332741800847318, 0.7949025076274062}, {0.13414166573809314`, 0.7898489974719586}, { 0.13517635099919653`, 0.7848958332345689}, {0.1365212155114794, 0.7804696992510906}, {0.1381177540438538, 0.7770474993848285}, { 0.14020777929009684`, 0.7743191670396649}, {0.14342719389079553`, 0.771130419688618}, {0.1474081871381215, 0.7677156038554661}, { 0.15160664458726822`, 0.7643172742749657}, {0.159098972644163, 0.7587419199106343}, {0.16236169091015668`, 0.756432083449594}, { 0.052345364347004895`, 0.7256364386518317}, {0.13196644358359427`, 0.8071424356861651}}]}}, {{ LineBox[{{0.05746793379423058, 0.679064965865264}, { 0.12692511040767795`, 0.6582205976592371}, {0.1587832813872132, 0.6478184713096572}, {0.1901044992987837, 0.6358967013366269}, { 0.22081632386390354`, 0.6224828606250623}, {0.25084772422002477`, 0.6076079729480313}, {0.2801292432019995, 0.5913064412144124}, { 0.3085931579838655, 0.5736159679012253}, {0.3361736367094219, 0.55457746785466}, {0.7194432748884341, 0.27616942171087544`}, { 0.7460765289283464, 0.25582692751769914`}, {0.7717009604116419, 0.23422748766589224`}, {0.7962573046903768, 0.21142105773005682`}, { 0.8196887674079852, 0.18746038483326083`}, {0.8419411558542924, 0.16240088565253932`}, {0.8629630043033943, 0.13630051825020334`}, { 0.866515789601144, 0.1314271943154808}}], PolygonBox[{{0.836942452915985, 0.1231158096641248}, { 0.8405428052068065, 0.12367667441785571`}, {0.8490554267718678, 0.12530712844666225`}, {0.854032783189811, 0.1265385582411531}, { 0.858897940673069, 0.12792947600119464`}, {0.8632149751400329, 0.12959156384699166`}, {0.8665124765243678, 0.1314319094206024}, { 0.8690821721114396, 0.13371415995579433`}, {0.8720292258839537, 0.13715619628650183`}, {0.8751465625392465, 0.14137419185159766`}, { 0.8782316967801522, 0.14580788507571574`}, {0.8832494266307942, 0.15368455589186503`}, {0.8853167423000269, 0.15710608784170044`}, { 0.9240042362374622, 0.04961077788912199}, {0.836942452915985, 0.1231158096641248}}]}, { LineBox[{{0.5592239199704512, 1.0768423843020074`}, { 0.5466734933735743, 1.0587826278927828`}, {0.5344342234065177, 1.0420443436375835`}, {0.5214043661273503, 1.0259138536134438`}, { 0.5076140572253228, 1.0104284647090278`}, {0.4930951911759339, 0.9956239918114795}, {0.4778813474748115, 0.9815346749731029}, { 0.4620077129744481, 0.9681931002203528}, {0.44551100050341397`, 0.9556301241882825}, {0.20812535995874482`, 0.783709383901181}, { 0.19104372341159395`, 0.7719540624676604}, {0.17341666950584825`, 0.7610335835524168}, {0.15528496641014722`, 0.7509732042363232}, { 0.15085930288494728`, 0.7487889805045734}}], PolygonBox[{{0.15031213380186348`, 0.7795608798129057}, { 0.14996151451273534`, 0.7759340117419536}, {0.14942733829984733`, 0.7672831295890409}, {0.1493843937921095, 0.7621558835427452}, { 0.14952380067707877`, 0.7570977242656441}, {0.15006197828201837`, 0.7525031962744745}, {0.1510259687481918, 0.7488520170689127}, { 0.15259873143194733`, 0.7457961341431143}, {0.15520126971104245`, 0.7420867494844621}, {0.1585131901377251, 0.7380197533574757}, { 0.16204204941443723`, 0.7339303963059134}, {0.16842623573278132`, 0.7271141127838855}, {0.1712273394049097, 0.7242620094936821}, { 0.05749247813687354, 0.7134756671432569}, {0.15031213380186348`, 0.7795608798129057}}]}}}, {Hue[0.62, 0.45, 0.87], Opacity[0.7], DiskBox[{1.1851096330890125, 0.6950205392656136}, 0.06], DiskBox[{0.9581740954475307, 0.0002912004217095756}, 0.06], DiskBox[{0.2273363714364789, 0.}, 0.06], DiskBox[{0., 0.6963113157811717}, 0.06], DiskBox[{0.5934641013616732, 1.1261131664989263}, 0.06]}}, { {Hue[0.6, 0.7, 0.5], Opacity[ 0.7], {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], { StyleBox[ CircleBox[{1.1851096330890125, 0.6950205392656136}, 0.060000000000000005], StripOnInput->False, ShowContents->False], InsetBox["\<\"AB\"\>", {1.2531325766766754, 0.7443041992927425}, ImageScaled[{-0.10734771060413362, 0.05996732118634929}], BaseStyle->"Graphics"]}, { StyleBox[ CircleBox[{0.9581740954475307, 0.0002912004217095756}, 0.060000000000000005], StripOnInput->False, ShowContents->False], InsetBox["\<\"ABB\"\>", {0.9840725771439437, -0.07961667557196553}, ImageScaled[{0.26876355628202725, 1.2134631785149566}], BaseStyle->"Graphics"]}, { StyleBox[CircleBox[{0.2273363714364789, 0.}, 0.060000000000000005], StripOnInput->False, ShowContents->False], InsetBox["\<\"BA\"\>", {0.20141252925434602, -0.07989965210509911}, ImageScaled[{0.7314628766261865, 1.2133897509383849}], BaseStyle->"Graphics"]}, { StyleBox[CircleBox[{0., 0.6963113157811717}, 0.060000000000000005], StripOnInput->False, ShowContents->False], InsetBox["\<\"BAB\"\>", {-0.07988743031112952, 0.7222727964455026}, ImageScaled[{1.2132806277779422, 0.26820106549704587}], BaseStyle->"Graphics"]}, { StyleBox[ CircleBox[{0.5934641013616732, 1.1261131664989263}, 0.060000000000000005], StripOnInput->False, ShowContents->False], InsetBox["\<\"BBA\"\>", {0.6428959445943392, 1.1940285025771726}, ImageScaled[{0.05864425685119695, -0.10638692927005589}], BaseStyle->"Graphics"]}}}}, Background->None, ImageSize->{Automatic, 273.53930698519935`}, ImageSizeRaw->{{335.9210417609268}, {374.5348774765879}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.818620623058812*^9, 3.8186206356228933`*^9}, { 3.818620749845689*^9, 3.818620772536314*^9}, {3.818620958605234*^9, 3.818620973439788*^9}, {3.818623433982154*^9, 3.818623453065002*^9}, 3.818623505275606*^9, 3.818623562851138*^9, {3.818623949522313*^9, 3.818623960577767*^9}, 3.818624334701901*^9, {3.818624429043715*^9, 3.81862443595217*^9}, {3.818624473613521*^9, 3.8186245229009438`*^9}, 3.8186256511760817`*^9, 3.818625842214843*^9, {3.8186259949671917`*^9, 3.81862601473447*^9}, 3.819993766011178*^9, 3.8453978872492857`*^9, { 3.8453979183715563`*^9, 3.845397947285097*^9}}, CellLabel->"Out[1]=", CellID->359809481] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Options", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellChangeTimes->{{3.845341971262973*^9, 3.845341973000334*^9}}, CellID->890561554], Cell[CellGroupData[{ Cell[TextData[{ "IncludeUnary", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.8453419776125183`*^9, 3.8453419804009457`*^9}}, CellID->950676149], Cell["Include unary hyperedges:", "Text", TaggingRules->{}, CellChangeTimes->{{3.845341983205735*^9, 3.8453419874428377`*^9}}, CellID->833749016], 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["BranchialHypergraph", "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["BranchialHypergraph", "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.1.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/3b13a20a-7932-4513-8986-28f655c6a82e/"}, "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], "BranchialHypergraph"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["BranchialHypergraph"], BoxID -> "BranchialHypergraph", Selectable->False], "[", RowBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{$CellContext`i, $CellContext`a, $CellContext`e, $CellContext`b, \ $CellContext`c, $CellContext`d}, {{{1, 2}, {2, 3}, {1, 4}, {4, 5}, {5, 6}}, Null}, {VertexLabels -> {Automatic}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{{0.4767312946227961, 2.8603877677367766`}, {0., 1.9069251784911843`}}, {{0.4767312946227961, 2.8603877677367766`}, {0.9534625892455922, 1.9069251784911843`}}, {{0., 1.9069251784911843`}, {0., 0.9534625892455921}}, {{0.9534625892455922, 1.9069251784911843`}, { 0.9534625892455922, 0.9534625892455921}}, {{0.9534625892455922, 0.9534625892455921}, {0.9534625892455922, 0.}}}, 0.029229881084280332`]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], { DiskBox[{0.4767312946227961, 2.8603877677367766}, 0.029229881084280332], InsetBox["i", Offset[{2, 2}, {0.5059611757070764, 2.8896176488210568}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0., 1.9069251784911843}, 0.029229881084280332], InsetBox["a", Offset[{2, 2}, {0.029229881084280332, 1.9361550595754646}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0., 0.9534625892455921}, 0.029229881084280332], InsetBox["e", Offset[{2, 2}, {0.029229881084280332, 0.9826924703298725}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.9534625892455922, 1.9069251784911843}, 0.029229881084280332], InsetBox["b", Offset[{2, 2}, {0.9826924703298726, 1.9361550595754646}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.9534625892455922, 0.9534625892455921}, 0.029229881084280332], InsetBox["c", Offset[{2, 2}, {0.9826924703298726, 0.9826924703298725}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.9534625892455922, 0.}, 0.029229881084280332], InsetBox["d", Offset[{2, 2}, {0.9826924703298726, 0.029229881084280332}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImageSize->{100.59877093734426`, Automatic}], ",", RowBox[{"\"\\"", "->", "True"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.845341992345777*^9, 3.84534203273418*^9}, { 3.845342077750681*^9, 3.84534208210155*^9}}, CellLabel->"In[1]:=", CellID->910256457], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "a", ",", "e"}], "}"}], ",", RowBox[{"{", "i", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8453419964647093`*^9, 3.845342032935484*^9}, { 3.845342075968915*^9, 3.84534208264305*^9}, 3.845342225111024*^9}, CellLabel->"Out[1]=", CellID->775422176] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Properties and Relations", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->232113220], Cell["Recover the branchial graph from the hypergraph:", "Text", TaggingRules->{}, CellChangeTimes->{{3.81862776370462*^9, 3.81862780417153*^9}, { 3.8200746360712547`*^9, 3.82007464207832*^9}, {3.845341956797863*^9, 3.8453419664134293`*^9}}, CellID->605322061], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsRow", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"MultiwaySystem\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"MultiwaySystem\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultiwaySystem"], Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "4", ",", "\"\\""}], "]"}], ",", RowBox[{"SimpleGraph", "[", RowBox[{ RowBox[{"UndirectedEdge", "@@@", 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["BranchialHypergraph", "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["BranchialHypergraph", "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.1.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/3b13a20a-7932-4513-8986-28f655c6a82e/"}, "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], "BranchialHypergraph"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["BranchialHypergraph"], BoxID -> "BranchialHypergraph", Selectable->False], "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"MultiwaySystem\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"MultiwaySystem\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["MultiwaySystem"], Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "4", ",", "\"\\""}], "]"}], ",", "1"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Sequence", "@@", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"WolframPhysicsProjectStyleData\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"WolframPhysicsProjectStyleData\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["WolframPhysicsProjectStyleData"], Selectable->False], "[", "\"\\"", "]"}], "[", "\"\\"", "]"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.818627501928418*^9, 3.8186275200562153`*^9}, { 3.8186275967811728`*^9, 3.818627760175729*^9}, {3.8186278249839363`*^9, 3.8186278839409122`*^9}, {3.819976407671033*^9, 3.819976411863782*^9}, { 3.819976451342801*^9, 3.819976452326356*^9}, {3.81999378432913*^9, 3.819993795581358*^9}, {3.845341909576805*^9, 3.845341923293454*^9}}, CellLabel->"In[1]:=", CellID->383744566], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3U/PJNd9L3YhySLLrAItlYUFKrE5YDjUjOYPRxxYMxAHj2Q7ijZGYFGI 7nVGGubaFEg+vgaczQACCBrIQuL1wrgAcTHmwossYgGCF0I2Xnnjxxu/Altr vYHO0Ryr0O7uqqe76985v/P5oEEMh8OZnq6q863vqVPV/8N3/8/f+3f/1ec+ 97n3/tv0j99754O3/viP37n8X/679C//67vv/R///t3v/e9ff/eH3/v33/vj 29/9r9NP/iT92v/nv/nc53714w0AAAAAAAAAAAAAAAAAAAAAAAAAABDOzwEA AAjh1D741a9+9XMAAABULpW78/rgVwEgri4lASCqMX3wjAuLAFCL3AfXfhcA MJdU6PRBADhIHwQgNn0QAProgwDEpg8CQB99EIDY9EEA6KMPAhCbPggAffRB AGLTBwGgjz4IQGz6IAD00QcBiE0fBIA++iAAsemDANBHHwQgNn0QAProgwDE pg8CQB99EIDY9EEA6KMPAhCbPggAffRBAGLTBwGgjz4IQGz6IAD00QcBiE0f BIA++iAAsemDANBHHwQgNn0QAProgwDEpg8CQB99EIDY9EEA6KMPAhCbPggA ffRBAGLTBwGgjz4IQGz6IAD00QcBiE0fBIA++iAAsRXeB6+uri4vLx89fpJe 6QcvXryY9Y+DdqSD670ffujgupYPqig5FC5eWmZzLNMHhR3MYfvISq8XL639 pkrkgyrNwmFXch9Mf/0HD9/+0qt3Xrv1KP8z/Wv6yfn+RGhEKji37z12cF3L B1WUfLpy4/W7aaOkf6ZtkV5zp+QCfdBuBnPII0Y6uNIx1b0WGDSq44MqzfJh V2wfTB9F+hAuvv3u85/8/NOf/iK93nn2Udo/009KSRgjnXymQ8nBda2+D8q5 +ipSFKZPPn3+C2+Oufug3QzmkEeML716Jx1Z3cH19INPHFw7fFCl2d4ii4VC mX2wy/38OWy/Umims9arq6s5/lwIb/jgSv/JwZWlDyrPkR78oB49fuKDWlLa HBcXF9tlML/Sv6bQnHW/nbUPpr9XnpO3m8GE+kaMbtBwcGU+qNLsz3wusznK 7IOp/6aPItXh/YjMH4j5CjhPvhjRd3DdeP2ugyv7/rvv+6DKkSPy6QefHNwc aUulHXumP3rWPuh4hDnkG44OHlkOrm0+qNLkuei+sJtvHVeZfTD131T6Du6c 6ZU+qPQL5vhzIbxrD66Li4u132MR8mqN4Q/q73/30/Jf//SnPwvwyjPYfWcs s4bCrH3wmN1spj8aAksHzq2v3O87stLrV3ckObheflCp8Q18UDdvvHX/86+t HmTthN2bv3V/lbArtg/2fRrplS+YzvHnQnjXHlwiMutbVbv9Qa0ef+28Bvpg 7k1pe820J8zdBx2PMLl04KSDa6DmpBLk4Nq8/KBSNR74oH7zi2/U0gdjvO58 4cvDYddUH7y8vNy+j3L7le+pTL/gnz/7h/Sa40+HkH75j/+SDpn3fvjhtQfX 2u+0CMMfVEV32aftHuCVT1oObo6q++Dwbnbzxlvf+eJFOmzTJzDTG4Bg8ojx vZvf+p//+/+xb8SoawyfVfoQ7r/5IMYHtXpOTfJ6eOe3D97O2YXdTPMYZfbB q6urtAdefPvdvtz/+JsfdlVaK4QBaXj5pz/9WXe8/N1f/W1+cm/fweX50lka hXxQ5chPnD4Ykfk5ePNtjln74PBuduuVe8/feJqP3HQUCzsYsB12nz18/tZv 3L7x+t2Dj0nJJ9XG8M3LIWjgeTI+qOUNh9185x5l9sHNrz+Q7Rvt04eTHy6a ZypSMm5fYHW5ELb98uXVwO0mmH6crzL0HVwVTQMuIz/rwwdVgnzSsn8pLZ+x zFrPl/m+ib7dLB/Iwg767Mx5dmGXv8Ft+9Ec+fsU8hOJdZyOD6ooKezycx4O hl36T631wc2vn3rUfT9v+uf+c3VyMspK6OyEY76ssLPebOfgyt92quPs2/+g 0mj87BvfXft9taj7xuTt3rTAtdoFvo9+P+z2j8eDYTfru4KS5cV1B+c8O/nL FO7efNh9x3oaQNIwIux2pA8qfSx5FMqvmzfeuvOFL7//g/fWfmstSvtn3ml3 wm6+Mrgpuw9uXu6i+RwgH78DX7ohK2lc3xxp36//iz/583RMXbw0fHA1rhuF 8gf1s//4X9Jn636uVXz8zQ/zYyJufeV++uf9Nx8scGq3QB/cbO1m6RzsO1+8 +Lu/+tu+X7mTdNaR0pr9GjgQdunI+vGzH93//GsP7/y2sBvw4qX0EeWw+6M/ +P5nD5+nD3bt99Wo5288TTvtdtjlvXe+P7HwPtjJCXjMnulyIU0ZWBc6LB8p es2p8kctJZeX99j/+zv/18LzGMv0wU7ewa49MK0jpTWnznl28i9e4B0Gkz9t o8ry8tj+42c/WjLsaumD6ZA/6RzMOlLCO2Zd6AAReZ48FqnSy1tr4cfCffD4 yc/u11sbQ2DHrAsd/t+F3Xl8dKvoxvOF/9xa+uDm3NNXWUkwZ8+R7vwmxvmz nXrGznj5M19l9F64D546+dmxjpRgJgm7FYeOAFwiXN5aVaWiPnjkKpo+LhdS tbPXhR4kIkcaORxxkrXmS7OF++Bm3LV760ip3SQ1sCPsxrAeZmErzjZX1wdH HtTWkVKdk+6dP5KIHMkF1iWtO0e9fB+cZLbB2hiqM2ZdaB91ZiTrYZa04lhd UR88exXNQTuXWmQlpZl2jnSHiBzPQpplrHtxcLNeH5xq17KOlMItEHaT/FbN csKwjHUn6ivqg5t5jmuXCynKyHvnjyQix7OQZhmrz9ct3wennfzsfk9hR1Fm rYGZa1uT8DEuYPWZz7r64Hz37FhHyurmWBd6kLF9Kr57Ym4lLGxevg9u5pyx sY6U1S0w55mVMIDEYD3M3Fb/hPXBHdaRsrAF5kh3iMipuEQ4q0I+3lX64DJh Zx0pS1o+7Dz4aypumZ/V6hcHN7X1wTlW0fRxuZBZLbMu9CAROSEXW+dTyMRF 1D6YWRvD3JavgZ3Vz7EjsR5mPiVcfqqxDy55dB/MSifSjLHYutA+InJa+vUc SpgvzVbpg0tOfmbWkTK5g3Oeiw2Vyx9EsRWyYCOeQmY+6+qDm/Uec2QdKSOt OEe68zZE5LQspJlDOcPsin1wlZ3KOlJGKiTsCjnNjsR6mDkU0rKr64OrT8Vb WsNJVlwXepCInMPqd4IHU9RZxyp9cLP2SYJ1pJwqJ105YWdYnkMh5SWMck7J quuDhVzdsI6UaxUyR7pDRM7BQppplXNxcLNeH1x98jOzjpRrrbsutI9lG3Mo arKuduXcFrHRB0ezjpQdZdbATjmDTzDutZ9KOfOl2Vp9sMCwc7mQbSWHnWX8 8zGrPJWiWkN1fXBT6gmtrKSodaEHichZuUQ4XlHzpZk+uM06UkpbF3pQadNK kTiRmERpYVdjHyxkFc1B1pE2qOQ50h0iclYW0oxX4MzzWn1wU+rkZ2YdaYPK XBd6kLCblfUw45U2bNbYB6s46bKONLyKamBHRM6t5Nmq8pU2X5qt2Aer2J1c LgyvxrArcCSJxC3zIxV4MlZjHyxzFU0fWRlP+etC+4jIuVlIM0aZU2cr9sEq Jj8z60jjqWJdaB/j8NwqGp1KU+bMZ419cFPhkW4daQA1zpHuqO7AqVGBKx6r UOB8abZiH6xr8jOzjjSA/TnPus5Yih1MgnGJ8Dxl7p+V9sEqVtEcZB1pdQLU wKzMISgeC2nOU+yHtmIf3NQ8h+NyYXWEHSdxifAMZV4c3FTeB+s92NMAKyvL V9G988cQkYtxr/2pSt451+2D9U5+ZtaRli+fkFS6LvSg2o+aitR+Nr68Yq8E VdoHa1xFc5B1pAUKM0e6Q0QuqdirXQUqdr40K6EPFnjycCrrSAtU+7rQPiWP J8G4Zf4kJc98Vt0HI+2B1pGurup7548R7JApnIU0xyt8xFu3D4aZ/Oy4XLi6 qHOembF3YdbDHK/kieJK++Am6MUO60hXEWxd6EEicnlhruzMqvCLg5sy+mDJ n895rCNdXrx1oQeVfAkmJLfMH6nwPVMfLJN1pAuIPUe6o/CBKKSoZ/LTKvzi 4GbtPrhpIOysjZlb1HWhB8U+Xspkwvla5c981tsH462iOWh/Nk9WjhR+XehB InIVLhEOq2KaQh9chsuFk2tqzrNT+Fl3VC4RDit/sksfrIJ1pJNoYV1oHxG5 CgtpBpQ/X5qt3gebCjtrY8ZrZF3oQU0dLEXxyQ+oIuzq7YObJqcjZOUZ2pwj 3WagXpF77ftUcXFwow+uxDrSM+zPebYWdrWMKiFZD9OnihGs6j7YyCqag6wj vVab60IPEpHranDm6lpVzJdmq/fBTdu7kLUx1zLn2RF2K3LL/EG17JNV98E2 Z023WUd6UFP3zh+jluEoKvfa76tivjQroQ+2PPmZWRuzL9/vYM5zmz6yLuth dlTUkfXBGGTlxhxpv1qGo8AspNlW1wRFCX1Q2HWsI91YF9qjonPvqNwyv6Oi sKu6D26c6O5pcB1py/fOH0NElsBW2FbXCYM+WKYG18aY8xxW0bl3YNbDdCq6 LWJTfx+0iuagRtaRWhd6DBFZCJcIs+p2yBL64MbkZ48W1sZYF3qk6saWqOqa 8ZtPXQsYau+DDv9hIbPSHOlJHCOFsJBmU9t8aVZIHzT5OSzkOlLrQk9igC2E 9QybCk+9au+D9rojBVhHal3oeURkOdxrX+OJeiF9sLqzi7UEWBtjzvM81c01 BWY9THVhV3sf3BgBTlHpOlLrQsdwgBSl5Xpe48XBTTF90OTnSWpcG2Nd6Bhu WytK4+thapy+C9AHraI5QxVZaY50PBFZmpa3SHXzpVkhfXBjbucsVawjFXbj 1XgGHluz62EqnfkM0wcNAufZaYUlrCO1LnRCIrJAbQ5Z9e6K5fRBk59jFLg2 Rg2ckKOjNM1eIix23mlYgD5oFc14hawjde/85ERkgRr87olK50uz0vpgdacZ RSlkbYx1oZOrd4QJrMH1MPWGXZg+WOOHX6CDWTn3H2qOdD4OjTK1dmJf78XB TUl90OTnhFZZRyrsZuLQKFZrlwgrvTi4CdEHNy6CzGCBdaTunZ+biCxWUwtp 6p0vzUrrg/V+kgVaZm2MGji3qmecYmvqPKTq/VAfZMBJWXl1dXV5efno8ZP8 evFS329rXegCqh6awmtnIU2986VZOX1wI+xmc9I60u2we++HH/Yl3ca60KW0 tuKiLo1sndrn62L0wabmH1Zx7TrSFI4PHr792q1H26/0M9tBaY50YY0MwvVq 4RJhgEkJfbAp135Xbw67L716J2Vc/mf619QKt3+NsFtY1efh4TWyHqb2sNMH OcnBdaSp9OV8fP6Tn6fXpz/9RXo9/eCTHJQpPc2RrkJEFq6FS4S1XxzcFNYH hd0y+tbGpDi7fe/xxbff7ZLunWcf5fnPVAnVwFXUfl2mBeG/e6L22yI2Ufrg po2Z9nJsZ+XH3/wwXxns8rF7pZ9JJfHR4yd//TsfWxe6MBFZhdjXcGufL830 wZZtr415/sbTW6/cS2G3k3TplRrizRtvffbwuRq4vBjjTGzhLxEGmPkM0wet ollF2vnf/8F7qQ++8+yj/YjMlfD+mw+efeO7Ns3CRGQVAtf2APOlWVF9cGPy cyVpf/7ezW+lMngw7PLk5//26u9pgssTdlUIvB4mxl8tTB+MsTlqdHFxceP1 uwfLYH79anXNxcXab7M5IrIWUS8RBpgvzUrrgyY/15KCLJW+vqRLVfHR4ydr v8cWmSGpRdQtFSPswvRBq2jWkiIyNb6BPnjrK/f1weVFHXjjCbmQJszFwU15 fdDk51pSkB1cLJpfqSo+ePj22u+xRWGGmvBCnqiHmXsP0wc3xoSVXF5e3nj9 7v7Ng9299vmRMmu/zeY4HCoS7ww/xnxpVlofDHlOVYX3f/Deb37xjYNhl58q 8+6/+w9rv8fmhDkbb0Sw9TCRZj4j9UGraJaXjoW//p2PHz1+kh8uun9LRYrI i4uL5288DXP4V0FEVifSJcJgu19pfXBjtmdx+cGhnz18fucLX7749rsHF4ve euVeSrpIe34Vgo024QVbDxOp3sbrgzG2S/m2n8X97BvfzY8YffrBJ10T7B4u +hd/8ufbj+xe+403QURWJ8wlwnhPyCmwD5r8XNL2V0j84Vd/P4dd91SZlHSp Id6+9/j9H7y3801Ma7/xJjgWqhPmuyciXRzcxOqDVtEsY/srlrpnqeWvINz+ SvqUj6kM5pWiO19nLyjnJiJrFGNGK95cRLF9MNKHXKbt2OrCLn8fffdl9Omf Key6eyJ2ks42mlukE/JGhLlEGOyENlIf3BgZZnawCXZevHTxaykfr66utn+B oFyMA6FGAa6sBZsvzQrsgyY/53awCXZS0qWAe+s3bt///Gvv/+C9naTb7IXd gm+8LWGWVbQmwIaLN/MZrA+6LDKT4Sa47dpjRCucW4CRtlm1L6QJeQJcYB/c mPOZzfFhd+35hlY4t3jn5O2o+nQ9wOTtPn2QYdvheMxne+T4LCjnIyLrVfVC mqg7Xpl9UNhN7vgmmB25CYTdfCycrlfVixxChl2wPlj1DlaanSZ45J5/0mEi KOcgIqtW7+XdqAeyPhjeqU0wO2kTCLs5xLtG05RKz1VC3haxCdoH422m5Z0d XmdMmwjKaTkEalfjJcKQ86VZmX3Q5Ockzpv2zE6t5J6rNi2HQO0qXQ8T9fgN 1gc3Zk1HG76P/sj//YwjRVBOQkQGUN0lwqjzpVnJfTDqZ76AMU0wO+9kQyuc SuA5qHZUd8t8del8PH2QzsgmuP2bnDdEC8rxRGQMdS2kqevdnqrMPrgRdiNM EjRjPn/PVRtP2AVQ3SXCwGen8fqg6yNnOO/uiYPGD9Hp/x05bdsyERlDRVd/ Yl8c3OiDsUwy7ZmN//y1wjFiDzvtqOiKW+zzK32wcRM2wWyq40VQnkdEhlHL Qprw8zbF9kFhd5JujmWqsJuqj1sVc4aKZsy4VhVTW+FnPuP1wY1T4uNM3gSz aedPdoKy8OFidSIykioW0sSeL830wdrNFHbTnsRqhSdpYeRpRxVDWezbIjZB +2AVUw0rGn8f/YA5RmlBeSQRGUzhC2kamX8otg9uTH5eZ6YmmM1xpiHsjiTs gim8bYW/OLgJ2gcLP4la0axNMJtvlBaU1xKR8ZR8ibCR/a3kPmjys8+sTTCb 78MXdtcqeWDkDIWvh2nhYAzZB6u49Ly8nfvoZ/1T5jtqBOWAkodTzlPs7FYL 86VZyX2w2N1jRQtMe2azlnFP2x7WyODTlGJvmW9k5jNkH9wYK/6tCZ+oduSf NfeBIygPstuHVOZCmnaOvpL7oMnPHUs+m3qBi7Oetn2QaZCQir1EWOa7mlzU PmgVTbbAmpkdi02kmD7dISKjKvA2vaZ2tpL74MYs0K8tOe2ZLXaa4WnbOxq5 XtOgApOlnZ0tdh9sYQv2Wb4JZgsfO9tB2fgWb2fUalBpC2maOtwK74MmP5dv gtnCn7ynbXfs84EVtXHbuS1iE7cPtryKZq0mmK3SSkyfbgobRZlWUQtpWpt5 qKIPtrM5tq0bdqsMuVbFbFwTD62o9TBNHWhR++CmyRFj5z76VU4dVzxXbDwo G9zhm1LIQpqm5kuzwvtgm5Of6zbBbMUpuJbDrs0dvimFzHEVkrmLCdwHm7pc stgT1a61+rWDNoNSRLaghEuEhST1kgrvg5vG5oJKaILZ6ucYbYbd6ucYzK2Q 9TCtHVn6YABFhUIhY3VRn8kCCvnYmdXqrb/Bi4ObGvpgI2FXzrRnVsjH3lrY NTgl1aDVb5lv8JwqcB9c/dxpAWvdR3/tWyrkIGonKEVkI9bd0C0cSvv0wdWV 1gSzcj72pp623eCUVIPWvUTY5synPlipAptgVlQf3LzcDVoIygbHrjateK99 aYf2Ysrvg+2EXVG7Xzl9MGvhadtFPWyEWa14+16bE+yB++CmjNttJlfO3RMH lXnSGHv6VEQ2Za2FNM3uY/rgWoqd9sxK64NZ7Kdtl3mCwUzWfYTvkn9oCWL3 wTKH67MV3gSzkofrnbOLMt/kGUr+zJncKgtpWt7Hyu+Dm3CTn91OXnLYlXyC EXX+s+WBqEGrzHXHO2qOFLsPhpk1raIJZuUP1/GmT8v/zJnWwgtpmp0vzaro gyV3k5NUFHblf+bxWmGweQ+utfDSzZbPpvTBwpV5H/2AWo6mSEEpIhu05EaP cZicrYo+GCzsCm+CWfl9MIsXdmu/C5az8HqYls+mYvfBTc2jR3VNMKulD2Yx grLenZyzLXb+39p38u7TB+dWXRPMaumDWYCwq+vsgqksdst84ztY+D5Y14jd 2bnTbe23c4IaD6iqg7LGD5xJLLOQptLjYkJV9MFNnfNClU57ZtWdXdT+tG1h 16ZlLhE2flvEpoE+WN3kduFPVLtWvSN2pUFZ7wfOSAvca2/v2tTTB6urJ/U2 way6Dzyr92nblX7gjLfAmXx1h8PkwvfBilbRVLpmZkfVJ5A1Tp+KyJbNupDG fGlWSx+saPKz9mnPrOqxt8anbRuOWjbr4SbsNg30wU0NY0iMJphV3QezuqZP y9+9mc+sC2na/E7efbX0wSomP2M0wazqPphV9LTtiqY7mMOs62GqONmbWwt9 sORBO1ITzAL0wayKoBSRzLQPmC/t1NIHN2XPDsULu5JPLU5SxfxnmFMLzjbT FKVdK2unD5a2rXfuow+QKVmwI6vwVhjs0+Y8c4whhZ8cLqmiPlhmQ4nXBLMy P+2zFd4KyzyRY0lzrIcx89lpoQ+Wtoqm6ieqXStkQyk2KEUkmxmGuJBH8dmq 64PlbLioTTAL1gezYsPOSTubGW6ZF3addvpgISNJsYPtVAIfXAVuu3J2bNY1 bREItmhhpIr6YDmTn7GnPbOQfTArLezK2bFZ3YTx5OLgthb64KaMcTvSffQD AvfBrJygFJF0JlxIE/4QPlV1fXDd05sWmmBWwnnFfIp62rZBic6Et8yXsG+X Qx9cQCNNMGtk3C4hKBv5qDnSJAtpzJfuq6gPbkoKu/BDU+w+mBXytG1hx7ZJ Dj071Y5G+uBaV1Ji3z1xUDuH2OpB2c5HzTEmuUTYyJn8SfTBYzQ17Zm10Aez 1Z+rZpKKbZMshHBbxA59cL4/sbUmmLVWUtLfdK3FUSKSHSMX0vj6koPq6oOr hF1rTTBrpw9ma7XCElZBU5qRt8y3dqZ6jEb64GbBqYBmm2DW5lG2fFCKSA4a M9C5OHiQPjjwZ7Ucdq31wWz5VTFtnlQwbMx6GLdFHNROH1xg6G7nPvoBLQ/d O0E5687W8ufMgLPrgD2qT119cLPI5GfjTTBrsw9mS7ZCQxMHnX3LfMun6APa 6YOzLoXSBDuG7mWC0udMnzMW0pgvHVBdH5y1p2iCnZb7YLZM2LnPiz5n7BvC rk87fXC+VTQ799FP/vvXRU/J5g5KEUmfMxbSOGwHVNcHZ5r8NO25Qx/Mlgm7 yX9bAjhjrDN89WmnD25mGFUafKLatZxYbpsvKEUkA05aSGO+dFh1fXCOyU9N cJ8+2JnvadsecsWwk9bDOEEd0FQfnHD0tmamj8Nt3+RBKSIZdtIlQif5w6rr g5tJ54tMe/bRB3fM8bRtZxQMO/7Zep7CN6ypPjjJwKIJDjN6HzTt9KkPmWsd OWlgX7pWjX1wwu9rFnZ99MGDpn3atg+Zax15iVDYDWuqD45cRaMJHsMRN2A7 KMd8SiKSYxyzn7gR9Vo19sGR47CwO4ZxeMBUT9t2QYdrHbMexm0R12qqD27O HVt27qM3/g/QB681fvrUsMYxrp0Bc7Qeo8Y+ePbkpyZ4PH3wWiNXxSz5ZZpU 7dpb5t0Wca3W+uCpA7gnqp3KGeaRzg5KEcnxBhbSmC89Uo19cHP6rJEmeCp9 8Ehnh53TCY43cL3GjnQMfXDAkt+4Gobj7iRn7GM+YY43sJDGyHakSvvg8WFn 2vM8+uBJzgi7M75KlWYN3DJvZDtGa30wnx0dedupmdIzaCtnOCkofcKcJJ9T /c27f3l5eXnxUvrBj5/9yMXBIwXug5rgGPrgGU4KO2MUJ8mH5P/3F//vftgZ 3K7VWh+8urp69o3vdvvJixcvdn6BJjiStnK24aBMu27aYx89ftK368JBaRD7 3s1vpd3m/psPHjx8+9ZX7qd/pn/9+JsfOk6PUWkf/Lu/+tvvfPHia68/ODLs VnmTVdMHzzP8tO2cdGmnfXjnt+9//rXnbzwVdhwpHYxp0Eu7TRd23V609lur QFN9MJ9O33j97mu3Hn3p1Tvpn2mHST+Z/6u7JyahD450MCjf++GHt+89zjvt /q4LA9LZVBr30v7z/Cc///Snv0ivd559lHah9JN2oWPU2AfTlk1DxG9+8Y2D I4Zpz0nog2McfNp2PklLg1XaY/Mr/Tjtuiohx0j7yZu/dT/tNtthd+uVe19/ 8EjYXaudPpjz8eLb7+6cFKXRJv2nbmgSjiPpg+NtT5+mH6QymHbU/V1XJeRa KR8vLi628zG/0r+mmpBOva6urtZ+j6Wrrg+mYSHl2sER4/0fvKcJTkUfHG+7 Ff742Y/u3nyYxqW033a77tMPPhF2HCOFXdpPDobd/3TjTspBYTeskT7Y7Sfb O0l+pdBM0fl3f/W3wnES+uBU8ic5vOs6n2dY3n/SOdX+/pNSMs+Grf0eS1dX HxweMW69cu+zh8+F3ST0wamksHv+xtP7n39t/2Te5BVHSkNf2n/6ws6UwrUa 6YP54uA7zz46uJ+koea9H3649nsMQh+cVr442Lfr3nj9riGOAfni4P7Ok/ef vGp07fdYurr6YBoQBkaMFHbv/+C9td9jEPrghNJ+e/fmw4P7rbDjGCnLhsMu peHa77FojfTBtBukHDy4n6SXk6IJ6YPTevDw7eFd1xDHgIGINPQdqa4+mDao sFuGPjihFGS3vnK/b79Nr18tgRZ29OtbF+Fk6Ujt9MGB/SSlZ9qR1n6PQeiD 0xoe4tKua4hjwMGbB7WDk1TXB4dHDFt8KvrghNJIlRrfQB+88fpdYceAPPQN hJ39Z1gjffDy8jINJgf3k3yjvfWiU9EHp5X2zHx//cFd1/1fDMuPFjm4/+QH NXhw37Xq6oNpiw+MGGmLGzGmog9OKO2W99980Hcyn3Zd938xLN9c0xd2nlJ7 rUb64NXV1a++uO3b7x6cNMgnRSrMJPTBqeQvQEm7bn5U4MFd1xDHsDz07ReE fD+F/ecYdfXB4RHj1iv3nr/x1Pg8CX1wKukz/Jt3//LOF77c9zyZfHHHYMWA NPTl+2uE3Xka6YObX8+Tb99on3aSFJrpZ77/7vvbj/df+53WTR8cb/urMLvv m9jfdc2Xcoz8NK2d/Uc+Hq+uPrj59Tz5wbD7oz/4ft/3gHMqfXC87bD73s1v 5ZGqe0Rk/uKJfEePwYprCbsx2umDm61dpfte79QQu5WiB78HnFPpgyN14bjz ffQ7u64yyPHydxDkudO0/9x4/a4voz9edX1wMxh2219vaqweQx8cY7sJdh9j 920p299Hb7DieHkXSruNsDtVU31w83JXSTtG2j3SK4Xj/tfZCMqR9MGzbe97 +18Qtr3rph/4JiZOkvefi5fsPyepsQ9ufr3F06nRwbDTCsfTB8+z0wR39r0X L+WkE3acQdidp7U+eAxBOYY+eIbhJgisqNI+eIydpDNun0QfPMNAEwRWpA/2 SSOVgesM+uBJtmdKNUEoUOA+mGmF59EHT2LaE0qmDw4TlKfSB4+kCUIVwvfB zKqYU+mDR9IEoXz64DG0wuPpg9fSBKEijfTBTCs8nj54LWEHtdAHjycoj6EP Djj4RDWgZE31wUzYHUMfHKAJQl30wVMJymH64EHDT1QDitVgH8yE3TB98CBN EGqkD55HUPbRB/dpglCvZvvg5uW5vbDrow/uMO0J9dIHxxCU+/TBbe6jh9q1 3Acz38F0kD7Y0QShdvrgSIJyhz6YaYIQgz6Y7YxpBnl9MHMKBAHog5PQCjv6 oLsnIBJ9cJunbXf0QdOeEIY+OCHTp5u2+6AmCPHog/vMf27a7oOaIASjD06u 8enTNvugJghR6YN9Gm+FbfZBYQch6YMzaTYoW+uDvlIQYtMHhzUbdq31QU0Q AtMHZ9VgULbTBz1RDVqgDx6jwbBrpw9qghCePriApoKykT7Y1DaFlumDx2tq YGyhD5r2hEbog4tpJCjD90H30UNT9MGTtPO07dh9UBOEpuiDS0oDbPigDNwH NUFokD54hu3RMmoiBO6D4U9UgB364PJiT5+G7IPunoBm6YNni/207ZB90LQn tEkfXEvU6dNgfVAThMbpgyPttMIwo2iwPqgJQsv0wXXFmz4N0wc1QWCjD04k 3qqYMH1Q2AH6YAkiBWWAPug+eqCjD04oUtgF6IOaIJDpg+WIEZRV90FNENih D04uRthV3Qc1QWCbPlia2oOy3j5Y+ycPzEEfnEntQ26lfdC0J7BPHyxTvUFZ Yx90Hz3QRx+cT9VP266uD2qCQB99sGQ1BmVdfVATBIbpg3NL43CNPaWuPrgT dmu/HaAs+mDhqps+raUPunsCOIY+uIzqnrZdSx807QlcSx+sQkXTp+X3QU0Q OJ4+uKSKWmH5fTC9N00QOIY+WJEqgrLkPqgJAqfSB5dXxaqYkvugsANOog9W ZycoSxvny+yD7qMHzqMPrqXwVlhmH9QEgTPog5UqNihL64OaIDCGPriuYsOu tD6oCQJn0werVmBQFtUHC/x8gLrogyUocDAvpw+a9gRG0gcDKCooC+mDnqgG TEIfLERpT9suoQ9qgsAk9MEwCgnK1fugJ6oBE9IHi1JOK1y9D/pKQWAq+mAk JQTlin3Q3RPA5PTBApXwtO0V+6AFMMC09MF41m2Fq/RBTRCYiT5YrHVb4Sp9 0AIYYA76YFRrBeXCfVATBGalDxZurfnPhfugsAPmow/GtnwrXKwPuo8eWIA+ WIXlW+FifVATBOamD7ZgyaBcoA9qgsBi9MGKLBl2C/RBTRBYhj7YjmWCcu4+ 6IlqwJL0weosE3az9kHTnsCS9MHWzB2U8/VBT1QDlqcP1igFxNxhN1Mf1ASB 5emDbZovKOfog56oBqxFH6zXrE/bnqMPWgADrEIfbNZM06fT9kF3TwDr0gdr t510E8bTtH3QAhhgRfpg4yafPp2qD2qCQAn0wRgmf9r2VH1Q2AGr0wfZ7M1M jgnK8X1QOALl0AcjmXD+c3wfFHZAIfRBOpNMn47pg+6jB0qjD8YzSSsc0wc1 QaAo+iA7RgbleX1QEwTKpA9GNTLszuuDmiBQIH2Qg84OyjP6oCeqAcXSB2M7 O+xO7YOmPYFi6YMMOCMoT+qDnqgGFE4fbMEZYXd8H9QEgcLpg1zrpKA8sg/6 SkGgCvpgI0592vaRfdC0J1A+fZAjHRmUeSL02l8gHIEq6INNOf7LCq/tg5og UAt9kOMNT59eXV1dXl5eXFw8evwk/fPFS9u/QBMEqqMPNmj4ads57L72+oM7 X/jy1x88EnZA7fRBTnVw+jSFY6qBt+89fu3Wo/xKP37w8O2cksIRqJQ+2Kyd VpiTaz/sUtLlKdCNsAPqpA9ynu2g/Is/+fOUj1969c7zn/w8vT796S/S6+kH n+SgfPaN77qPHqiUPti47bD78bMfpVA7GHYP7/z2925+SxMEaqQPMkYKyudv PL24uEhp2IVj90o/k3IzVcW//p2PNUGgRvogm1+H3Zu/db8v7H7zi2/c//xr f/PuX2qCQHX0QUa6vLx88PDtd559tJOPXUreeP1u+jVrv02Ac+iDZCnI7t58 OBB2d167LeyAGumDjHRxcXHrK/cP5mN+3b73OP2atd8mwDn0QbIUZDdevzsQ dvlGwrXfJsDJ9EFGSvGXGt9ARKYAFZFApfRBsmvD7tZX7gs7oEb6ICNdXl7e f/PB/v0U+fXOs48ePHzbEhqgUvogWQqyG6/fFXZAPPogI11dXV1cXOTnre3f T5EfMbrz3UwAtdAHyVLYdU/SPhh23bdOANRFH2S8/EiZlIZPP/ikC8f8cFFl EKiaPkhH2AEh6YNMIuVgTsntl8UzQO30Qbbth93te48fPX4i7IB66YNM5cVL KRbzK4Xj1dXV2m8KYBR9kB3CDghGHwSAPvogALHpgwDQRx8EIDZ9EAD66IMA xKYPAkAffRCA2PRBAOijDwIQmz4IAH30QQBi0wcBoI8+CEBs+iAA9NEHAYhN HwSAPvogALHpgwDQRx8EIDZ9EAD66IMAxKYPAkAffRCA2PRBAOijDwIQmz4I AH30QQBi0wcBoI8+CEBs+iAA9NEHAYhNHwSAPvogALHpgwDQRx8EIDZ9EAD6 6IMAxKYPAkAffRCA2PRBAOijDwIQmz4IAH30QQBi0wcBoI8+CEBs+iAA9NEH AYhNHwSAPvogALHpgwDQRx8EIDZ9EAD66IMAxKYPAkAffRCA2PRBAOijDwIQ mz4IAH30QQBi0wcBoI8+CEBs+iAA9NEHAYhNHwSAPvogALHpgwDQRx8EIDZ9 EAD66IMAxKYPAkAffRCA2PRBAOijDwIQmz4IAH30QQBi0wcBoI8+CEBs+iAA 9NEHAYhNHwSAPvogALHpgwDQRx8EIDZ9EAD66IMAxKYPAkAffRCA2PRBAOij DwIQmz4IAH30QQBi0wcBoI8+CEBs+iAA9NEHAYhNHwSAPvogALHpgwDQRx8E IDZ9EAD66IMAxKYPAkAffRCA2PRBAOijDwIQmz4IAH30QQBi0wcBoI8+CEBs +iAA9NEHAYhNHwSAPvogALHpgwDQRx8EIDZ9EAD66IMAxKYPAkAffRCA2PRB AOijDwIQmz4IAH30QQBi0wcBoI8+CEBs+iAA9NEHAYhNHwSAPvogALHpgwDQ Rx8EIDZ9EAD66IMAxKYPAkAffRCA2PRBAOijDwIQmz4IAH30QQBi0wcBoI8+ CEBs+iAA9NEHAYhNHwSAPvogALHpgwDQRx8EIDZ9EAD66IMAxKYPAkAffRCA 2PRBAOijDwIQmz4IAH30QQBi0wcBoI8+CEBs+iAA9NEHAYhNH1zd1dXV5eXl xUvpBy9evFj7HXGAzQRt0genYhStgs0EDdIH15UG20ePn9x4/e7te4/TPx88 fDu9DL+l2d5MX3r1js0E7dAHJ7EfdulfjaKlEXbQJn1wRWmMTSPta7cePf/J zz/96S/S651nH6V/TT+ZxuS13x3/ymaClumD4xlFq2AzQbP0wbWkgffR4yfb A29+pX/Nk3JXV1drv0cO5KPNBE3RB0caHkVTDhpFS2AzQcv0wbXksffpB59s D7zd8JvGZNNxJbh2M733ww/Xfo/AjPTBkdIomobKvlH09r3Hwq4ENhO0TB9c y8XFRRp79wfermg8evzknz/7h3/60595rfg6ZjOtvSsBM9IHR8orYQZG0a+9 /mD1od7rzd+6L+ygWfrgWgaKRnrlFfupD/79737qteLrmM209q4EzEgfHGmg D+ZR9M4Xvrz6UO+VtsLwZtIHITB9cC25aOws1N8fe3/5j//iteLryM0ERKUP jnTwTvntUfTrDx6tPtR7Pbzz28ObKaXh2rsSMBd9cC2Xl5e37z0+OPY+/eCT NPZ6wnMJbCZonD440vAo6usMCmEzQcv0wbVcXV1dXFx86dU7+8/yyqsQjb0l sJmgcfrgSGkUffT4Sd8o6lsICzG8mVIO2kwQmD64ovd/8F5eSPPOs492WsZf /Mmfr/3u+Ff5+3lv33tsM0GD9MHx/ugPvn/rlXs7YZcG1Ttf+PKn/+k/r/3u +FcHN9PNG2/ZTBCePriif/rTn338zQ8vLi5Ss7j1lfvpn/fffJD+9dk3vvv3 v/vpL//xX9Z+g/xK32b6w6/+vs0E4emD46Wh8vkbT7/2+oPtUTT963e+eJEG 2LXfHf9qYDOl/7T2uwNmpA+uJT87NEXhixcvLi8vL15KP7i6uur+09rvkU33 iNe+zSQlITZ9cKSUZWmcTAPm/ija/ae13yP/GnYDm8k5CQSmD66iqxJ9V5ek ZAm6zdS3IaQkhKcPjjE8b5YScDgKWca105vDUQjUTh9cxbVDq5QswTEJKCUh Nn3wbNfOfB75a5hVd77hnASapQ8u78hrf5YjruvIVbtSEmLTB8925HSZhRbr OnIzOSeBwPTBhZ00okrJtZy0maQkBKYPnuekux7cIrGWk55X4JwEotIHl3TG whjLEZd3zOKZHVISotIHz3DqLJmFFqtwTgJk+uCSzhhIpeTyzpipPqNCAlXQ B0913i2BFloszzkJkOmDizl7PYyvn1jS2Z+2lISQ9MFTnT05ZqHFkpyTAB19 cBkjZz6l5DJGPulOSkI8+uBJuq+xO+P/tdBiMc5JgG364AKu/Rq7a0nJZYz/ kKUkBKMPHm/8mk8LLRbgnATYoQ8uYJJh05c0zW3MtHZHSkIw+uCRxreM7d/H rNp8JtlMmjtEog/ObZKWkbn2NJ8JH2UgJSESffBIE06F+fqJ+Ux4TqK5Qxj6 4Kwmf2CalJzD5Bf1pCSEoQ8eY8KWsTGrNpuZzkmEHdROH5zPVItntknJOcyx wlNzhxj0wWvN8VURbpGY3By3M7hFAmLQB+cz0yDpS5qmNdO1PCkJMeiDw+Yb 61x7mtZMs5SmqSEAfXAm0y6e2SElpzLrFLT5bQhAHxw268SXWbWpzHoXg1sk oHb64BwWuIQnJScx98coJaF2+uCAuYc4154mscDkpFskoGr64OSWWSgoJcdb Jr+kJFRNH+yzzM0LZtXGW/KcRNhBjfTByS02JErJMRa7DVNKQtX0wYOWHNnc IjHGrHev7P9BpqmhRvrgtBbuaK49nWeOR78e88dJSaiOPnjQkuljVu1sCz+A zjQ1VEofnNDyT/60avQ8y59aSEmolD64b/kBzazaGVbp0aapoUb64FTWmsCU kqdabPHMDikJNdIHd6wVOmbVTrXKOYmLuVAjfXAqK57tu7fieCt+e6OLuVAj fXDbumf7ZtWOt2J9Nk0N1dEHJ7H6vKWUPMbq85ZSEqqjD25bN2vMqh1pxZnP zDQ11EUfHK+Ek3wpeYwSWrOUhLrog53VZz43BTSdKpSwYrOEwAWOpA+OtPol p46UHFbCmUwmJaEi+mBWwsxnZlZtWCERY5oaKqIPjlTIwJtJyT7lnMlspCRU RR/MCpn5zIp6M0Upama4qOQFBuiDY5RzySkr52JlaUr7WIqKbGCAPrgpbOZz Y1atR4H9yzQ1VEEfPFuBA+9GSh6y1hdMDJOSUAV9sMz5q9LmY0tQ2sxnVtpk ArBPHzxbmQPvRkr+W2WeyWTF7kJAp/E+WObMZ6ZobCtz5nNjmhpqoA+ep/AY KvztLabwBbRSEsrXeB+sYggt8+0tqeSZz03xbw/QB89Q/simaGTlnyqUvy9B 41rug+VPLZZ8+XIxVfRit0hAyfTBU9WSPrW8z/nUsm5WSkLJmu2DtcxWGULL r+1Z+aUVmqUPnqqiAa3llKzlTCaraKeC1rTZB7shtIpxqZZCNIdaZj43Vi5B wfTBkxR7v3afigJ9WnX9xaUkFKvNPmgIrUJ1C4HqmqqFduiDx6txHGszJWuc K65ojhea0mAfrG7mc1NnQI9XV23PWl65BMXSB49U1+KZba0VjXrPCqQkFKi1 PmgIrUWNtT2r9GwKAtMHj1T18NVOSla3eGZbFc+Ig9Y01QfrnfnMqn7zJ6m3 tm9aXbkEJdMHj1HvLFzWTtGo/a8pJaE0TfVBQ2gVAmR6ayuXoHD64LWqnoXr tJCStdf2TEpCUdrpg4bQWtReBrN2Vi5B+fTBYbUvntkWOyVj1PZMSkI5GumD 8YbQAKl9UJgoD3CVE8LQB4cFG6yipmSwWAn214GqtdAHg405gdfDRKrtm9Bb CuqiDw4IMwvXiTr2xuu5UbcUVKeFPhipDGZVP1usT7DansU70YIa6YN9gs3C deL9vaKmSdS/F9QlfB+MOtTEW3gfb+Yzi7eloDr64EEhZ+E6kcbekJPAnajp DxWJ3QfjzRBuizSEBt5Ssc+4oAr64EHhh6Ywf8Ewf5GDpCSsLnAfDD/ChFl4 H3vmcxNoS0Gl9MF9URfPbIsx9sZ4Ovqw8KcBULjAfTDS5bM+MS6rxa7tWQun XlAsfXBHjOw4Ru1jry0FLCBqH2xnYKn9FokWZj6zFiYooEz64Lbwi2d21JuS bW6pRv6yUJSQfbCphQdV50U7M5+byrcUVE0f3NbaWXe9Y2+lb/ts9W4pqF28 PtjgeFLpLRINbqmmZiqgHPpgp53FM9tqHHttqbXfCzQkXh9sbeYzqzE4bClg Gfpg1vLJdl1jb1OLZ3bUu74X6hWsD9Y14E+rrnplS9WypSAAfXDT5JKMHRWN vbZUy399WF6kPtjyzOemqlWjtlTLf31Ynj64cY5dz9hrS9WypSCMSH2w8fm0 TT09y5aqZUtBDPpgy+sPt5X/OZT/DpchJWFJYfqg+bSs/IX37XzBxLDytxSE 0XgfdGq9reSx15baVvKWgmBi9EHzadtKvvpmS20ziQHLaLwPlhwKqyj2Ayn2 ja1FSsIyAvRB82k7il14320pY3tW7JaCYFrug86o95U59lo8s6/MLQXxBOiD Ksa+Mp/eaUvtM5sBC2i2D1qS0ae0lLSl+vhkYAG190HzaX1KW3hfWviWo7Qt BfG02QdNNw0r58qprwIZJiVhblX3QbNGA4rKF1tqWDmnJRBSm32wnAgoUzlr EUXAtezMMKt6+6Cb0a5VSNgV1UzLVMiWgqga7IMWzxyjhEuoFs8cQ0rCrOrt gyrGMUoIGjOfx3AJFebTWh80nhxv3bWIJRTSWtirYT6V9kEzn8dbt44ZwI/n FgmYSVN90OKZU62YkrbUSaQkzKTGPqhinGTFVRZmPk/l3ADm0FQfNIycaq2U NLN9Brs3zKG6PuhmtDOs1aBtqVO5RQLm0E4fVDHOs3xKmtk+j5SEOVTXB1WM 8yy/ysJpyXmcJMDkGumDRo8xlkxJa3rHKOHBCBBMXX3QIDDGkunjtGQMt0jA tFrogxbPjLTkB2hLjSQlYVoV9UEVY6TFVlk4LRnPBwgTaqEPGjTGWyYlzWyP 5zQDplVLH3TsT2KZGLKlxnOLBEwofB9UMaYy9ydpZnsqUhImVEsfVDGmMveD tZ2WTMUnCVOJ3QdVjGnNl5JmtqclJWEqVfRBh/yEZs0jXzAxLbdIwCQC90EV Y3LzXXha9+uAQ5KSMIny+6CZz8nN19qclkzLmR5MInAfNETMYY6UdDIzBykJ kyi8DzrSZzLHlJqZzzm4RQLGi9oHLZ6Zz7QpafHMfKQkjFd4H1Qx5jPtZ2vm cz5O+WCkkH1QxZjbhNPRZrZnJSVhpJL7oAN8VhNOqflq3bm5RQLGiNcHLZ5Z wFQpmSPSlpqVywcwRrF90MznAqa6qOe0ZG7O/WCMeH3Q2e8yxs9LWzyzDCkJ Y5TZBx3Xixl/4cnM5zLcIgFnC9YHLZ5Z0piUdDKzJNcR4Gxl9kEzn0sak1Zm PpfkJBDOE6kPOuld2JhOpwwuTErCeQrsgyrGws6+8GTmc3mmSuAMkfqgUXd5 56WkbrIKKQlnKK0PmvlcxXmxZdRdng4OZwjTB426azk1JZ3MrMW9FXCG0vqg c921nHqaYeZzLU4z4FQx+qDFM+s6KSWdzKxISsKpiuqDZj5XdNKUmsF2Xco4 nCRAHzTqru74lHQyszpf0gQnKacPmvlc3fHnG2Y+V+d8A44XoA8adUtwzImK k5lCSEk4XiF90MxnIY6ZUvMFEyVwiwQcr/Y+6My2HMMp2Z3M2Firk5JwvEL6 oPGzHMMnHmY+y2EWBY5UdR806pZm4IzFyUxRpCQcqYQ+6HpTUQam1DzcsjRu kYBj1NsHndAWKEdh2jRXV1fv/fDDBw/fTq/0gxcvXqSfNCAXRUrCMVbvg2Y+ C5Q3ymcPn6eAe/T4SQ67lHTP33iqDJbGQjK4Vr190BRcmVIlTPn42q1HX3r1 TvfPFJSXl5drvzV2SUm41rp90Er7Yn3v5rduvXIvBdz2K/3Mj976D2u/Nf4N t0jAtSrtgxbPFOv7776fMvHi2+8+/8nPP/3pL9LrnWcfpZ+5fe+xSlgaKQnX WrcPKoNlevHixYOHb3/p1Tsp6bqwe/rBJ+Y/y2RFGQyrsQ9aPFOsFJF5jjSH 4/YrNcSUkldXV2u/R/4NRxMMW7EPmvksU0q6R4+fpKTrmmD3Sj+TSmL6r8Ku NG6RgAHV9UGLZ0qWLw6+8+yj/T6YUvLG63fNmhZISsKAtfqguZpipSB78PDt g0kn7ErmFgnoU3gfvLq6SoPqxUvpBy9evFAGJ/fLf/yXg6/0IW+/0kB68JW3 SN4oef3MwYhMr1+tI7246H597iA7r50/tHvtv721P7ZQ8ub4u7/62+5wS168 tPZbg5Ut0wd3wu7T//Sfhd3kjkm6vrDbTq77n3/tN7/4Rl/SpdfNG2+lXyPs StPdIrEddvnccu23BisruQ+mg/TR4yc3Xr+bH0ty+97jvCzf8DhVqE37Sn9i XkLTF5FpI+70wclfMvc86a//h1/9/bT50lHWPRghHW65Fa797mBNC/TBnbBL h96tV+5954sXymCZYZe6Xmp8A30wtcWdPijsCpE+kHRk3fnCl7vDzS2fsCm4 D+b1GPuPJanxsC0z0QZipS9cDv5Ftv+m7/3ww3x//X4+ps23v+2O+Vj6PpwF Ppl2MjffDnPw2Qjp56s74mBCc/fBdHzdvvd4P+xSJazu0Ksx7M5IurRd7r/5 4GDShQ+7az+cwqXtcvfmQ4+8gx1l9sH85K4VH0vSSKhNLm2XfGJzcLFo/nqm Wd+AzD1D2igXFxcDz0ZI/9WzEWjWrH1wOOzmfixJ4UlXbNiljZJGxRR2B8fM fGdEIWFX1LZbfSp1+HBLG1TS0awy++Dl5eXAY0nSCeq1M29FhVqZiTaTPNe9 vfnSJsstvsbJt8AFs/s7XvtshPtvPqhx28EkZu2Dw2G3/1gSYVeIvMQ3bbun H3zSba/u4aI1LrMvvGAeuWudHXZ52733ww9X3ASwojL7YF66NvBYkvQLZh2C 2gm1OeQhN7XCvDI/ndJYc9gpMHO//uBX22jgXphfXfO9uFj7k4N1zNoHr30G 16y3oUm6MfLKiny9KS84TC9hlx05cbHwVGo6moYPt7Q11/7kYB3F9sHhx5Ls 9EGhVpoUlNsP77IGYz7jC2bqg+k0ZqAPpraoD9KsufvgcNhd+5hKYbei/BDm 7pnMwm4+kxTMdDQNH276IM0qsw+mQXXgsSTpcDb/BlNJR1NqfCc9GwHaMWsf HH4Gl7CDCQ2EXT7cvv/u+2u/R1hHmX1w9ceSQDvS4ZavyPc9G6HS22FgErP2 wXT0/erxI8IO5pfDru9wSy+HG80qsw9uXs6a5sNz57Ek6Wfc8AvTyrd8Hnw2 gjNSGjf39030hZ0H4MPk+h555+IgjSu2D25epmQ+bPNjSfJX0iuDMIfuQdzb LytFYYHvo08novmI2w47hx7MoZv/7A43Fxqg5D64eXmOmg7SdOSmV/qBO7Vh PvnZCPlwy0/Jc8TBAn1w8/LoS60wH3rCDmaVH3nn3BI6hfdBAFjRMn0QANai DwJAH30QgNj0QQDoow8CEJs+CAB99EEAYtMHAaCPPghAbPogAPTRBwGITR8E gD76IACx6YMA0EcfBCA2fRAA+uiDAMSmDwJAH30QgNj0QQDoow8CEJs+CAB9 9EEAYtMHAaCPPghAbPogAPTRBwGITR8EgD76IACx6YMA0EcfBCA2fRAA+uiD AMSmDwJAH30QgNj0QQDoow8CEJs+CAB99EEAYtMHAaCPPghAbPogAPTRBwGI TR8EgD76IACx6YMA0EcfBCA2fRAA+uiDAMSmDwJAH30QgNj0QQDoow8CEJs+ CAB99EEAYtMHAaCPPghAbPogAPTRBwGITR8EgD76IACx6YMA0EcfBCA2fRAA +uiDAMSmDwJAH30QgNj0QQDoow8CEJs+CAB99EEAYtMHAaCPPghAbPogAPTR BwGITR8EgD76IACx6YMA0EcfBCA2fRAA+uiDAMSmDwJAH30QgNj0QQDoow8C EJs+CAB99EEAYtMHAaCPPghAbPogAPTRBwGITR8EgD76IACx6YMA0EcfBCA2 fRAA+uiDAMSmDwJAH30QgNj0QQDoow8CEJs+CAB99EEAYtMHAaCPPghAbPog APTRBwGITR8EgD76IACx6YMA0EcfBCA2fRAA+uiDAMSmDwJAH30QgNj0QQDo ow8CEJs+CAB99EEAYtMHAaCPPghAbPogAPTRBwGITR8EgD76IACx6YMA0Ecf BCA2fRAA+uiDAMSmDwJAH30QgNj0QQDoow8CEJs+CAB99EEAYtMHAaCPPghA bPogAPTRBwGITR8EgD76IACx6YMA0EcfBCA2fRAA+uiDAMSmDwJAH30QgNj0 QQDoow8CEJs+CAB99EEAYtMHAaCPPghAbPogAPTRBwGITR8EgD76IACx6YMA 0EcfBCA2fZAdV1dXl5eXF7/24qW13xTAOvTBqIQdQKYPsi2lYYrFR4+f3L73 OL0ePHw7vXJQrv3WAFagD4Yk7AA6+iCdnI8pE59+8Mnzn/z805/+Ir3Sj1NW ptCUkkCD9MF4ctilaNsJO5UQaJM+SNaVwS4cu1f6mZSb6b9eXV2t/TYBFqUP BtOVQWEHkOmDZDkin37wyU4+bk+cXl5erv02ARalDwaTwi4vg+kLu0ePnwg7 oCn6IFm+OHgwH7dnTdd+mwCL0geDEXYAO/RBsuGITK/Xbj0SkUBr9MFg8mLR gbDTB4HW6INkfTcPikigZfpgMH03D3avuzcfCjugKfogyS//8V/+8Ku//+jx k+H7Bz/+5of//Nk/rP1mAZajD0aSwu57N7915wtfHgi7W6/c+/GzHwk7oB36 YONSOP7Tn/7s73/3088ePv/6g0d9zxfNi0Wfv/E0/cr0EpRAI/TBGLbD7q3f uN33fNG7Nx/e//xrwg5oij7YrC4cu9Tb/v7BLhy3v38w/Zr02v5f1v5LAMxL H6zddmyl1EvZt/39gzthl79/cPt/EXZAePpgg1K0dU0wh2P3n7pKmF4pGXMT 3Pl+Xq0QaIc+WKmdOc++sLt78+HNG2/1hZ1WCLRAH2xHisL9adL9X/bipRSL X3/wKL0uLy8PfjPvzu+WS+L8fwmARemD1Rlugp0cdl97/cH9z7+W/tkXdqZA gfD0wRYcGY47/0v+ldf+5lohEJg+WJEzwi5H2LXJpRUCgemDsZ0Rjt3/eGQf zHauPMpKIAZ9sApnh92RfXDn15sCBSLRB6M6Oxy7//2kPpi52wIIRh8s3P6z 0U7630/tg9v/l1YIxKAPxrMfjic1we43OaMPZlohEIY+WKztsDt1zrNzXh/c /n+FHVA7fTCSnXAck01j+mDmbgsgAH2wQMc8G+2k32pMQmmFQO30wRgmDMds fB/s3phWCNRLHyzHyPsgDhrfB7d/H2EH1EgfrNqRXyFx3u88SR/sfjd3WwA1 0gdLMEcTzKbqg93vZgoUqI4+WKn5wrH7/Sfsgx2tEKiLPriuucNu2j7Y/Z5a IVARfbA6c4dj96fM0Qcz62qAWuiDa1km7Obogzu/uSlQoHD6YEWWCcfuz5qv D2ZaIVA+fXB5I79C4iSz9sHtP0IrBIqlD1ZhyXDs/sS5+2CmFQIl0weXlCJg /FdInPonLhM9wg4olj5YuAm/QuLUP3eZPpi52wIokz64jJmejXbkn7tY6GiF QIH0wWKtFY7Zwn0w0wqB0uiDs1ryPoiDFu6D23+osAMKoQ+WZvVw7N7G8n2w 424LoBD64EwKCbtV+mD3R5sCBUqgD5ajkHDs3syKfTDTCoHV6YOTKyrsVuyD 3RvYCbsVPw2gTfpgCYoKx+4trd4HM+tqgBXpgxPafzba6mG3eh/ceSemQIHl 6YPrKrAJZuX0wUwrBFahD05i+adkH6mcPphphcDy9MG1FBuOWWl9MNMKgYXp gyOt+2y0a5XWBzNhByxJH1zezldIlBaOWZl9MHMPPrAYffA8KUQKb4JZmX0w 0wqBZeiDS6oiHLOS+2CmFQIL0AdPVex9EAeV3Aez9N5KXk0EBKAPLqCucMzK 74Mdd1sA89EHj1dj2JXfBzNToMB89MFZ1RiOWUV9MNMKgTnog8eoN+xq6YOZ L6cA5qAPzqTecMyq64OZuy2AaemDwwp/Ntq16uqDHVOgwIT0wcnV3gSzSvtg phUCU9EH++w8G63SkbbSPphphcAk9MEJ1T5Nuq3qPphphcB4+uC+ip6Ndq2q +2Am7ICR9MFJVPEVEicJ0Acz9+ADY+iDnRirX3YE6IOZVgicTR8cKdI06bYw fTDTCoHz6IOboE0wC9MHM19OAZxBHzxP4HDMgvXBjrstgJM03gfDh12wPpiZ AgVOog+eKnw4ZlH7YKYVAkdqtg82EnYh+2C23wpD/jWB8fTB4zUSjlnsPpi5 2wK4VoN9MNKz0a4VuA92tEJgmD54jKaaYNZCH8y0QmBAU30w3rPRrtVCH8x2 HnfQwl8ZOJI+OKypadJt7fTBTCsEDmqkD0Z9Ntq12umDmbAD9umDfbYf0tVU OGat9cHMPfjAjth9sMHVLzta64OZVghs0wf3NTtNuq3NPpjtt8I29wFgE7cP aoJZm30wMwUKZPpgRzhua7kPdtyDD8Trg8JuW8t9MNMKAX1wIxwP0Qc7WiG0 LFIfFHb79MEs7QnCDprVeB8Ujn30wR3utoA2xeiDzT4b7Vr64A6tEBrUbB/c D0dNcJs+eJBWCK2pvQ82+BUSJ9EHD/LlFNCUBvugadJj6IMDtEJoR7190LPR jqEPDhB20Iim+qBwPJ4+eC334EMLquuD7oM4iT54La0QwmuhD+7cJS0cj6EP HsmXU0BsFfVBTfAM+uCRTIFCYLH7oHA8mz54KvfgQ0hV9EFhdzZ98CRaIYQU tQ8Kx5H0wfNohRBM4X1Q2I2kD57Bl1NAMPH6oHCchD44hrstIIxi+6Bno01C HxxDK4QYIvVB4TghfXA8rRACKLAPpsHEV0hMRR8cT9hB7Qrvg1dXV5eXlxcv pR+8ePHi4C/b+X4lY9F4+uBUts/cBoLyyF0dWNgyffDIEcCz0SanD07lyFYo 7KBAJffBPGLcf/PB7XuPb33l/oOHb6d/3Rk6hONM9MFpDd+Df8yuDqxigT6Y RoBHj5+kY79vBHAfxHz0wWkNt0JhB2Uqtg+m8SHl42u3Hj3/yc8//ekv0uud Zx+lf02jRxpPhOPc9ME57LfC9Mq7egrHg7v62m8ZWjd3H0wjQDrY98MuDQvC bgH64BwOToH27erCDlZXZh/cHzTyK/3rl169k1LyZ//xvwjHWemDs+qC8uNv fnhxcdG3q6ej4Orqau03C02btQ8Oh93XXn/w2cPnwm5W+uB8tlvh8zee3r35 cOC8TtjBikrug08/+GR70OiGjtv3Hj/7xneF46z0wQWkoEx9cGBXT9Fp1hTW NXcfTId53whw88Zb3/niRRoohN189MEFpI839cHh8zphBysqsw/mKyb7g0Z3 kvzo8ZM5/lw6+uAy7OpQuFn7YL44ODACpCFipj+aTB9chrCDkpXZB/OdgwfH jfQybixAH1zGQETmXT2dLq79HqFpa/XBPALog3PTB5fhvA5KVnIf3FlkbtxY kj64jIM3D+qDUI5Z++C1YacPzk0fXIZdHUpWZh+8vLzcftzi9uvpB5+kcePF ixdG71npgwtIH/Kzb3z32l197bcJTZu1D773ww/7TpLTCHDrlXvP33gq7Gal Dy4gfbzf+eLFzRtvCTsoU5l98Orq6tHjJ1969c7+c6jyFZOPv/nh8BeeMpI+ OKvuS+r/+nc+Ht7VRSSsa9Y+mMIuHeZ9I8Bbv3E79UFhNyt9cD7b35by2cPn b/7WfWEHZSqzD25eXiLMN1a88+yj/UFj+Nu9GU8fnEP6VLf32/yM3PxV1H27 +tpvGVo39/cP9oVdGhZy2G1//6Cwm5w+OIeD35s5fF639luGphXbBzcvH8R9 cXGRBoobr9+9fe9x+mf+ft7tX7P/7d7zvZ+m6IPTGv5S6WN2dWAVc/fBza+/ YqkbAW595X4aELZHAFOg89EHpyXsoEYl98HNy6EjDRQXL6Uf9H1dqVY4OX1w KsPh2DlyVwcWtkAf3Bw3Auy3QmE3nj44FWEH9Sq8D55kOygN7yPpg+MdGY5A yZbpgyfRCiekD463E3Y+TKhOpD6YaYWT0AfH2A9HTRAqVWAfzHZuRhZ259EH x9gOO3OeUK94fTDTCkfSB89jmhSCKbYPZsJuJH3wPPvPRlv7HQHni9oHM/fg n00fPJVwhJAK74OZVng2ffAk7oOAkGL3wWy/FRq+rqUPHungV0is/aaAyVTR BzNToGfQB4+kCUJgLfTBjnvwj6cPXks4Qgsq6oOZVngSffBawg7Ca6oPZlrh MfTBAcIR2lFdH8x2li4Iuz764ABhB41osA9m7rYYpg8eJByhNZX2wY5WOEwf PMiz0aApzfbBTCvsow/uEI7Qptr7YCbs+uiDO9JH4SskoDWN98Fse/STC5k+ 2Nn5fiW7BzQlRh/MtMJ9+mDHs9GgWfpgxz342/TBjXAEYvXBTCvcpg+6DwLQ B3fst8I2Y6LlPigcgU68PpiZAs1a7oPCDsj0wT6Nt8I2+6BwBHZE7YOZVthm HxR2wDZ9cNjOisF2IqO1PigcgYNi98FOs1OgrfVBYQfs0weP0eDdFu30QeEI DGikD2YNtsJ2+qCnZAN99MHjNdUKW+iDwhG4VlN9MGsq7Frog75CAhimD56q kbstYvdBXyEBHKnBPpg10gpj90FPyQaOoQ+eJ3wrjNoHhSNwkmb7YBa+FYbs g+6DAE6iD46RBtiod1sE64PCEThP430wCzwFGqwPCjvgDPrgJOK1wjB9UDgC Y+iDnZCtMEwfFHbA2fTBCUVaVxOgDwpHYDx9cF+kKdAAfXD/2WjCDjiJPji5 GK2w6j6oCQJT0Qf7xGiFVfdBT8kGJqEPzqT2VlhpHxSOwLT0wWG1h12lfdCz 0YAJ6YOzqvdui+r64M5XSAhHYBL64DHqbYV19cGdp9gJO2AS+uACamyFFfVB 4QjMRx88Xo2tsJY+6D4IYD764JIqutui/D4oHIEF6IOnqmsKtPw+KOyAuemD y6uiFZbcB4UjsBh98Dz7rbDMgbrkPijsgGXog2spfF1NmX1QOAIL0wdHKnwK tMw+6CskgCXpg+sqthWW1gc1QWAV+uAkim2FpfXBnWejlfPGgMD0wRIU2ArL 6YO+QgJYkT44oQLDrpw+6NlowFr0wXIUdQ9+CX3QV0gAq9MHJ1dUK1y9D/oK CWB1+mBpCmmF6/ZB4QgUQh+cSRrnS1j7sWIfdB8EUAh9sFjr3m2xSh8UjkBp 9MFZrT4FukofFHZAUfTBwq3VChfug8IRKJM+uID9VrhY2C3cB4UdUCB9sArL 322xWB8UjkDJ9MElLd8KF+uDno0GFEsfrMiSrXCBPqgJAuXTB5e3cwv5rGG3 QB/0FRJA4fTB6izTCmftg6ZJgVrog2tZJuxm7YOejQZUQR+s1Nz34M/UB32F BFAXfXBdc7fCOfqg1S9AXfTBqu23wqlCZ/I+aJoUqJE+WIL5pkCn7YOaIFAj fTCGye/Bn6oPCkegavpgOeZohVP1QWEH1EsfjGTCVji+DwpHIAB9sDQpSiYM u/F9UNgBtdMH45nkbosxfVA4AmHog8WapBWO6YOejQbEoA9GNbIVntcHNUEg GH2wcCPD7rw+6NloQCT6YGwp486bvTy1D5omBULSB6twdis8tQ96NhoQjz7Y gjPuwT++D25XTuEIBKMPVuSMVnhkH7T6BQhMH2zHfis8mIBXV1eXl5dff/Do a68/SP988VLfbygcgdj0weocOQWawy4l3f3Pv5b+2Rd2miAQnj7YoIFWmNLw 4uLi0eMn6fXg4dv5lX5mOyWFI9AOfbBSw62wC7u7Nx/eeuVe+ufFS8IOaJA+ 2Kydq3vpX3M+pgL49INPnv/k55/+9BfplX7cVULhCLRGH6zd/hRoDrvb9x4L O4CNPti8Liifv/H0a68/SGnYhWP3Sj+TcjOl5F//zsfCEWiKPhjDkWGXfv6t 37j92cPnno0GtEMfZPMyKD/+5oep8T394JOdfOwmTh89fvLsG99Nv1ITBNqh D0aSIiz1wVuv3BsIuztf+PL3bn5L0gHt0AfJ8krRg/m4fYlw7bcJsCh9MJhr wy6vGl37bQIsRx8kG47I9Hrt1iMRCbRGHwwm3zk4EHYmP4HW6INkuQ/u308h IoGW6YPB5D44EHauDwKt0QfJLi8vHz1+MnBLRYrIvi8iBIhKHwxG2AHs0AfJ rq6u+mZN08/kxaIiEmiNPhjMcNjllTDCDmiKPkhn+yuZunBMP05l8NHjJ/IR aJA+GE+KsxRqKdp2wk4ZBNqkD7Kt+0r6FIv51X0/79pvDWAF+mBI+2GXGqKw A9qkD7LjxUsXv3Z5eXl1dbX2mwJYhz4YlbADyPRBAOijDwIQmz4IAH30QQBi 0wcBoI8+CEBs+iAA9NEHAYhNHwSAPvogALHpgwDQRx8EIDZ9EAD66IMAxKYP AkAffRCA2PRBAOijDwIQmz4IAH30QQBi0wcBoI8+CEBs+iAA9NEHAYhNHwSA PvogALHpgwDQRx8EIDZ9EAD66IMAxKYPAkAffRCA2PRBAOijDwIQmz4IAH30 QQBi0wcBoI8+CEBs+iAA9NEHAYhNHwSAPvogALHpgwDQRx8EIDZ9EAD66IMA xKYPAkAffRCA2Eb2wT/7sz/7OQAElfvg2u8CAOaSCt2YPggAAEDVzuiDqUh+ FQAAgMqlcndqHwQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKBM/z/sqpLa "], {{0, 331.}, {600., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{600., 331.}, PlotRange->{{0, 600.}, {0, 331.}}]], "Output", TaggingRules->{"AttachedInlineCell" -> CellObject[89393]}, CellChangeTimes->{{3.818627507057435*^9, 3.818627520395378*^9}, { 3.8186276131764193`*^9, 3.8186277528927593`*^9}, {3.818627826471099*^9, 3.818627850965638*^9}, 3.8186278848285837`*^9, {3.819976436933758*^9, 3.819976453907426*^9}, 3.819993803575084*^9, 3.845341523793558*^9, 3.845341929601981*^9}, CellLabel->"Out[1]=", CellID->315559776] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"BranchialHypergraph | Example Notebook", Visible->False, TaggingRules->{ "Metadata" -> { "ResourceType" -> "Function", "Name" -> "BranchialHypergraph", "Property" -> "ExampleNotebook"}}, 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[632, 23, 168, 7, 70, "Subsection",ExpressionUUID->"8e764cca-c83b-4186-b44a-59a230a37004", CellID->904125756], Cell[803, 32, 270, 5, 70, "Text",ExpressionUUID->"1313c6b0-5264-48f8-a578-f2f61057ca92", CellID->833645195], Cell[CellGroupData[{ Cell[1098, 41, 10550, 247, 70, "Input",ExpressionUUID->"8717ecc3-b96e-4bd2-8291-94996fb0492f", CellID->155326306], Cell[11651, 290, 1421, 26, 70, "Output",ExpressionUUID->"8874aaf6-0ffa-41b3-b4e3-41795aca99ca", CellID->447253571] }, Open ]], Cell[CellGroupData[{ Cell[13109, 321, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"b3b18744-0591-4515-a00f-c180d5c76ad5", CellID->14107562], Cell[13255, 327, 212, 4, 70, "Text",ExpressionUUID->"53ba33b6-a27d-45a7-9861-b0819bcfafcb", CellID->983027035], Cell[CellGroupData[{ Cell[13492, 335, 10167, 243, 70, "Input",ExpressionUUID->"103a4c5c-e695-4ed4-97d6-87286c978a75", CellID->446126962], Cell[23662, 580, 800, 20, 70, "Output",ExpressionUUID->"8b13f40d-7ab0-41a7-be32-714155a607e9", CellID->499625053] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24511, 606, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"d85f2d43-d374-4c2b-930d-230734f1ee03", CellID->14107563], Cell[24657, 612, 160, 3, 70, "Text",ExpressionUUID->"ead5359a-1a4b-4e6d-914a-a15519858b83", CellID->96825744], Cell[CellGroupData[{ Cell[24842, 619, 10036, 243, 70, "Input",ExpressionUUID->"82c6b784-045d-49b4-aa82-076c52d5a458", CellID->611262951], Cell[34881, 864, 395, 14, 70, "Output",ExpressionUUID->"fda01da5-ccff-41ef-8cec-bd5de2f7f024", CellID->754157191] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35325, 884, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"953b0968-91b5-4a19-a526-d2c50bb33c26", CellID->14107564], Cell[35471, 890, 279, 5, 70, "Text",ExpressionUUID->"6e4cc349-f856-407f-9679-893913c07f72", CellID->947398385], Cell[CellGroupData[{ Cell[35775, 899, 7432, 187, 70, "Input",ExpressionUUID->"e38052d0-240e-401c-8697-5806042dfdfe", CellID->858838313], Cell[43210, 1088, 297, 7, 70, "Output",ExpressionUUID->"ece05242-3c38-4037-ac94-f0c40a3c62e4", CellID->183682621] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[43568, 1102, 159, 7, 70, "Subsection",ExpressionUUID->"b4515122-87c6-4a7c-9829-6f1673dbb3d2", CellID->204653245], Cell[43730, 1111, 589, 16, 70, "Text",ExpressionUUID->"e9925374-b748-4689-a953-d6e72782d96b", CellID->651234937], Cell[CellGroupData[{ Cell[44344, 1131, 991, 20, 70, "Input",ExpressionUUID->"52bff7d9-7896-4582-b476-5e5e944cff93", CellID->821822930], Cell[45338, 1153, 7277, 183, 70, "Output",ExpressionUUID->"a7060051-8331-4b65-a2af-bb15f5fb6f02", CellID->85120007] }, Open ]], Cell[CellGroupData[{ Cell[52652, 1341, 7247, 182, 70, "Input",ExpressionUUID->"8ce2e84b-b729-4e81-b75c-e5107bde88eb", CellID->202093430], Cell[59902, 1525, 918, 26, 70, "Output",ExpressionUUID->"4c697438-d1c7-4677-8657-3ccca866cbc7", CellID->887981733] }, Open ]], Cell[CellGroupData[{ Cell[60857, 1556, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"0a5c5967-198f-4241-96c1-74d4a084002b", CellID->14107565], Cell[61003, 1562, 685, 17, 70, "Text",ExpressionUUID->"37c8c3bc-4bf3-4678-8023-fcf96d5ab702", CellID->975705448], Cell[CellGroupData[{ Cell[61713, 1583, 17285, 415, 70, "Input",ExpressionUUID->"6d9f8f04-03df-47f5-bbbf-988b7bae5424", CellID->226366573], Cell[79001, 2000, 24147, 374, 70, "Output",ExpressionUUID->"55996eab-fad2-4114-90e3-d4986b669d5e", CellID->359809481] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[103209, 2381, 227, 8, 70, "Subsection",ExpressionUUID->"d2dd5d6a-e25b-431c-9085-0d41170ed58c", CellID->890561554], Cell[CellGroupData[{ Cell[103461, 2393, 239, 8, 70, "Subsubsection",ExpressionUUID->"55ceef0d-7781-46e4-9b6e-c591b3560899", CellID->950676149], Cell[103703, 2403, 148, 3, 70, "Text",ExpressionUUID->"81a3f334-a170-4a5e-a755-f7165d158b53", CellID->833749016], Cell[CellGroupData[{ Cell[103876, 2410, 10174, 244, 70, "Input",ExpressionUUID->"810cdb8c-6a3a-4f49-a850-4d219446886f", CellID->910256457], Cell[114053, 2656, 436, 12, 70, "Output",ExpressionUUID->"f890f8e4-da48-4e5a-b58c-42998b7b7feb", CellID->775422176] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[114550, 2675, 178, 7, 70, "Subsection",ExpressionUUID->"3b6f0f03-49ea-4960-8280-935fc9fc56da", CellID->232113220], Cell[114731, 2684, 268, 5, 70, "Text",ExpressionUUID->"2fc810e8-de4b-4f86-ad65-461707e19644", CellID->605322061], Cell[CellGroupData[{ Cell[115024, 2693, 15848, 372, 70, "Input",ExpressionUUID->"f9d2648b-411b-4540-9d8c-8da4ef65eca0", CellID->383744566], Cell[130875, 3067, 30195, 501, 70, "Output",ExpressionUUID->"6247ba9f-8f50-4fd8-bdf3-23adee6f6045", CellID->315559776] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)