(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 342018, 7629] NotebookOptionsPosition[ 268979, 6099] NotebookOutlinePosition[ 332990, 7465] CellTagsIndexPosition[ 332947, 7462] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Evolution", "Section"], Cell[CellGroupData[{ Cell["Basic evolution:", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], 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["WolframModel", "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["WolframModel", "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}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"4.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WolframModel"}, "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], "WolframModel"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "4.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$b6b79aa4e83b4f46b8590449b5d727f9`WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/01613fcc-8070-4284-8425-\ 3c7af256a88f"]], ResourceSystemBase -> Automatic]], Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", "1", ",", "\"\\""}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{{ {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0., 0.}, 0.06]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], CircleBox[{0., 0.}, 0.12], CircleBox[{0., 0.}, 0.18]}}, {}}, ImageSizeRaw->{{90.72}, {105.84}}], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQfbTvzJci16b9/w6E/EuJWbf/w90/VQUvWvYv15tq XOawcT+76LFos4TF++Uu8He+ljywf9HH09mTV2/Zr/XY+t9vj2P7t2vX3P8Z dnC/l/+6ZYXrTu0XqhbqOeF9cr/m/XZDtg9n9jfsqbqZdeLC/t0f2ltT75/Z XxDy7pjGviv7xT+vEnxae2p/2v2lh8+a3tgfF6+YlfHn6P4fu9Muqr24tb9Q 9efxV3n79286sdDxytw7+z3PGmVPiN+w/4hG66Fdxnf3x881ypGSnrAHJu8O kbeH6c+E6LdPh5ofBTHfvghqvwjEfnuY+3ZA3GcvAnW/OsT99juh/vOE+M9+ CdT/mhD/2wssfH/Vav6a/YoNupODthyyBwDNucV5 "]], PolygonBox[{{-0.08684572150251493, 0.14242846369112044`}, {-0.08320457521802159, 0.1425668819880338}, {-0.07456011129550694, 0.14319644512413904`}, {-0.06947332951934149, 0.1438407644639629}, {-0.06447944064931382, 0.14465653618810753`}, {-0.05999842558448559, 0.14580537324569331`}, {-0.056509300343546565`, 0.14724980817432187`}, {-0.053691660128325484`, 0.14921777832988034`}, {-0.050364363830418944`, 0.15229378863316892`}, {-0.04677771270283662, 0.15612069444578208`}, {-0.043197964647866946`, 0.16016557920964627`}, {-0.037298387636674195`, 0.1674053683701817}, {-0.03484724612485648, 0.17056330761105448`}, {-0.008921526046442236, 0.059298664137147114`}, {-0.08684572150251493, 0.14242846369112044`}}]}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0., 0.}, 0.06]}}, {}}, ImageSizeRaw->{{130.10314463633915`}, {132.93207475733027`}}]}], "}"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Event-by-event evolution:", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], 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["WolframModel", "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["WolframModel", "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}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"4.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WolframModel"}, "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], "WolframModel"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "4.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$b6b79aa4e83b4f46b8590449b5d727f9`WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/01613fcc-8070-4284-8425-\ 3c7af256a88f"]], ResourceSystemBase -> Automatic]], Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", "1"}], "|>"}], ",", "\"\\""}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{{ {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0., 0.}, 0.06]}, { {Hue[0.08, 0, 0.42], AbsoluteDashing[{1, 2}], CircleBox[{0., 0.}, 0.12]}, {Hue[0.08, 0, 0.42], AbsoluteDashing[{1, 2}], CircleBox[{0., 0.}, 0.18]}}}, {}}, ImageSizeRaw->{{90.72}, {105.84}}], ",", GraphicsBox[{{ {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQfbTvzJci16b9/w6E/EuJWbf/w90/VQUvWvYv15tq XOawcT+76LFos4TF++Uu8He+ljywf9HH09mTV2/Zr/XY+t9vj2P7t2vX3P8Z dnC/l/+6ZYXrTu0XqhbqOeF9cr/m/XZDtg9n9jfsqbqZdeLC/t0f2ltT75/Z XxDy7pjGviv7xT+vEnxae2p/2v2lh8+a3tgfF6+YlfHn6P4fu9Muqr24tb9Q 9efxV3n79286sdDxytw7+z3PGmVPiN+w/4hG66Fdxnf3x881ypGSnrAHJu8O kbeH6c+E6LdPh5ofBTHfvghqvwjEfnuY+3ZA3GcvAnW/OsT99juh/vOE+M9+ CdT/mhD/2wssfH/Vav6a/YoNupODthyyBwDNucV5 "]], PolygonBox[{{-0.08684572150251493, 0.14242846369112044`}, {-0.08320457521802159, 0.1425668819880338}, {-0.07456011129550694, 0.14319644512413904`}, {-0.06947332951934149, 0.1438407644639629}, {-0.06447944064931382, 0.14465653618810753`}, {-0.05999842558448559, 0.14580537324569331`}, {-0.056509300343546565`, 0.14724980817432187`}, {-0.053691660128325484`, 0.14921777832988034`}, {-0.050364363830418944`, 0.15229378863316892`}, {-0.04677771270283662, 0.15612069444578208`}, {-0.043197964647866946`, 0.16016557920964627`}, {-0.037298387636674195`, 0.1674053683701817}, {-0.03484724612485648, 0.17056330761105448`}, {-0.008921526046442236, 0.059298664137147114`}, {-0.08684572150251493, 0.14242846369112044`}}]}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0., 0.}, 0.06]}}, {}}, ImageSizeRaw->{{130.10314463633915`}, {132.93207475733027`}}]}], "}"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Vertex and edge counts:", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"vertexCountList", ",", "edgeCountList"}], "}"}], "=", 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["WolframModel", "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["WolframModel", "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}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"4.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WolframModel"}, "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], "WolframModel"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "4.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$b6b79aa4e83b4f46b8590449b5d727f9`WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/01613fcc-8070-4284-8425-\ 3c7af256a88f"]], ResourceSystemBase -> Automatic]], Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", "1", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], ";"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"vertexCountList", ",", "edgeCountList"}], "}"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", "SequenceIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["Sequence", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["480", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], Sequence[ PlotLegends -> {"vertices", "edges"}, Frame -> True, FrameLabel -> {"steps", "count"}], SelectWithContents->True, Selectable->False]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[{{1., 0.}, {2., 0.}}]}}, {{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, {}}, {{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, {}}}, {{}, {}}}, { DisplayFunction -> Identity, GridLines -> {None, None}, DisplayFunction -> Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0.9791666666666669, -1.1565113500597373`}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox["\"count\"", TraditionalForm], None}, { FormBox["\"steps\"", TraditionalForm], None}}, FrameTicks -> {{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Identity, Identity}]}, { Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange -> {{0.9791666666666669, 2.}, {-1.1565113500597373`, 1}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Charting`ScaledTicks[{Log, Exp}]}}], FormBox[ FormBox[ TemplateBox[{"\"vertices\"", "\"edges\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Result after ", Cell[BoxData[ FormBox["1", TextForm]]], " generations:" }], "Text", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", RowBox[{"WolframModel", "[", DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], "]"}], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox[ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"4.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WolframModel"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> { "Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], { "FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "WolframModel"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/\ 1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`\ WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}\ ]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3280", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}]][{{{ 1}, {2}} -> {{1, 2}}}, {{1}, {1}}, 1], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[BoxData[ GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQfbTvzJci16b9/w6E/EuJWbf/w90/VQUvWvYv15tq XOawcT+76LFos4TF++Uu8He+ljywf9HH09mTV2/Zr/XY+t9vj2P7t2vX3P8Z dnC/l/+6ZYXrTu0XqhbqOeF9cr/m/XZDtg9n9jfsqbqZdeLC/t0f2ltT75/Z XxDy7pjGviv7xT+vEnxae2p/2v2lh8+a3tgfF6+YlfHn6P4fu9Muqr24tb9Q 9efxV3n79286sdDxytw7+z3PGmVPiN+w/4hG66Fdxnf3x881ypGSnrAHJu8O kbeH6c+E6LdPh5ofBTHfvghqvwjEfnuY+3ZA3GcvAnW/OsT99juh/vOE+M9+ CdT/mhD/2wssfH/Vav6a/YoNupODthyyBwDNucV5 "]], PolygonBox[{{-0.08684572150251493, 0.14242846369112044`}, {-0.08320457521802159, 0.1425668819880338}, {-0.07456011129550694, 0.14319644512413904`}, {-0.06947332951934149, 0.1438407644639629}, {-0.06447944064931382, 0.14465653618810753`}, {-0.05999842558448559, 0.14580537324569331`}, {-0.056509300343546565`, 0.14724980817432187`}, {-0.053691660128325484`, 0.14921777832988034`}, {-0.050364363830418944`, 0.15229378863316892`}, {-0.04677771270283662, 0.15612069444578208`}, {-0.043197964647866946`, 0.16016557920964627`}, {-0.037298387636674195`, 0.1674053683701817}, {-0.03484724612485648, 0.17056330761105448`}, {-0.008921526046442236, 0.059298664137147114`}, {-0.08684572150251493, 0.14242846369112044`}}]}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0., 0.}, 0.06]}}, {}}, ImageSizeRaw->{{130.10314463633915`}, {132.93207475733027`}}]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Causal Graph", "Section"], Cell[CellGroupData[{ Cell["Causal graph:", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", RowBox[{"WolframModel", "[", DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], "]"}], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox[ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"4.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WolframModel"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> { "Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], { "FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "WolframModel"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/\ 1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`\ WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}\ ]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3280", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}]][{{{ 1}, {2}} -> {{1, 2}}}, {{1}, {1}}, 1], SelectWithContents->True, Selectable->False], "[", RowBox[{"\"\\"", ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", RowBox[{"Rule", "[", DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], "]"}], GridBox[{{ RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["112", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], GraphLayout -> "SpringElectricalEmbedding", SelectWithContents->True, Selectable->False]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = Graph[{1}, {}, {EdgeStyle -> { Hue[0, 1, 0.56]}, GraphLayout -> "SpringElectricalEmbedding", VertexStyle -> { Directive[ Hue[0.11, 1, 0.97], EdgeForm[{ Hue[0.11, 1, 0.97], Opacity[1]}]]}}]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[{{0., 0.}}, {{}, {Hue[0.11, 1, 0.97], EdgeForm[{Hue[0.11, 1, 0.97], Opacity[1]}], DiskBox[1, 0.004014598540145964]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, PlotRangePadding->0.1]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Layered rendering:", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", RowBox[{"WolframModel", "[", DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], "]"}], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox[ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"4.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WolframModel"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> { "Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], { "FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "WolframModel"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/\ 1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`\ WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}\ ]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3280", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}]][{{{ 1}, {2}} -> {{1, 2}}}, {{1}, {1}}, 1], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = Graph[{1}, {}, {EdgeStyle -> { Hue[0, 1, 0.56]}, GraphLayout -> { "Dimension" -> 2, "VertexLayout" -> { "LayeredDigraphEmbedding", "VertexLayerPosition" -> {0}}}, VertexStyle -> { Directive[ Hue[0.11, 1, 0.97], EdgeForm[{ Hue[0.11, 1, 0.97], Opacity[1]}]]}}]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[{{0., 0.}}, {{}, {Hue[0.11, 1, 0.97], EdgeForm[{Hue[0.11, 1, 0.97], Opacity[1]}], DiskBox[1, 0.004014598540145964]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, PlotRangePadding->0.1]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Causal graph distance matrix:", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixPlot", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"GraphDistanceMatrix", "[", RowBox[{ InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", RowBox[{"WolframModel", "[", DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], "]"}], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox[ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"4.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{"\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WolframModel"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> { "Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "WolframModel"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/\ api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`\ WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], {ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/\ 1.0"}]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3280", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}]][{{{ 1}, {2}} -> {{1, 2}}}, {{1}, {1}}, 1], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}], "]"}], "]"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"List", "ListIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["List", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["2", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["168", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], {ImageSize -> Small, FrameTicks -> None}, SelectWithContents->True, Selectable->False]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[BoxData[ GraphicsBox[ RasterBox[SparseArray[Automatic, {1, 1}, 1., {1, {{0, 0}, {}}, {}}], {{0, 0}, {1, 1}}, {0, 1}], Frame->True, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Final State Properties", "Section"], Cell["Hypergraph adjacency matrix:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixPlot", "[", RowBox[{ RowBox[{"AdjacencyMatrix", "@", RowBox[{"Catenate", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"UndirectedEdge", "@@@", RowBox[{"Subsets", "[", RowBox[{"#", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "&"}], ",", RowBox[{ InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", RowBox[{"WolframModel", "[", DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], "]"}], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox[ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"4.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{"\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WolframModel"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> { "Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "WolframModel"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/\ api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`\ WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], {ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/\ 1.0"}]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3280", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"]\ , "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`\ WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}]][{\ {{1}, {2}} -> {{1, 2}}}, {{1}, {1}}, 1], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}]}], "]"}], "]"}]}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"List", "ListIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["List", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["2", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["168", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], {ImageSize -> Small, FrameTicks -> None}, SelectWithContents->True, Selectable->False]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[BoxData[ GraphicsBox[RasterBox[{{{1., 0.42, 0.}}}, {{0, 0}, {1, 1}}, {0, 1}], Frame->True, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Vertex degree distribution:", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{ RowBox[{"Values", "[", RowBox[{"Counts", "[", RowBox[{"Catenate", "[", RowBox[{"Union", "/@", RowBox[{ InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", RowBox[{"WolframModel", "[", DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], "]"}], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox[ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"4.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{"\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WolframModel"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> { "Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "WolframModel"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/\ api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`\ WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], {ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/\ 1.0"}]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3280", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"]\ , "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`\ WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}]][{\ {{1}, {2}} -> {{1, 2}}}, {{1}, {1}}, 1], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}]}], "]"}], "]"}], "]"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"List", "ListIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["List", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["2", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["168", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], {ImageSize -> Small, FrameTicks -> None}, SelectWithContents->True, Selectable->False]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6789999999999999], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6789999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.5, 0}, {1.5, 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{20.83406725380305, 175.53742994395517`}, {-54.74999999999998, 38.07470309322762}}], "DelayedMouseEffectStyle"], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, {}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.48, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{None, None}, {None, None}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, PlotRange->{{0.5, 1.5}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output"] }, Open ]] }, Open ]], Cell["Neighborhood volumes (ignoring directedness of connections):", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"volumes", "=", 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["RaggedMeanAround", "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["RaggedMeanAround", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/RaggedMeanAround"}, "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], "RaggedMeanAround"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "RaggedMeanAround", "ShortName" -> "RaggedMeanAround", "UUID" -> "44e8dd6c-9e7d-4e8c-a9a2-3accd9c828cd", "ResourceType" -> "Function", "Version" -> "2.0.0", "Description" -> "Compute MeanAround for corresponding elements in a collection of \ lists of potentially different lengths", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$431cb780d0e044c0830a36e7e41ec132`\ RaggedMeanAround", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/19c99a08-4f4a-4a82-adfa-\ 1465e895d3c2"]], ResourceSystemBase -> Automatic]], Selectable->False], "[", RowBox[{"Values", "[", 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["HypergraphNeighborhoodVolumes", "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["HypergraphNeighborhoodVolumes", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphNeighborhoodVolumes"}, "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], "HypergraphNeighborhoodVolumes"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "HypergraphNeighborhoodVolumes", "ShortName" -> "HypergraphNeighborhoodVolumes", "UUID" -> "97e81c0e-db91-4d08-9b54-b9de4dacc8b2", "ResourceType" -> "Function", "Version" -> "1.0.0", "Description" -> "Find the volumes of successively larger neighborhoods around nodes \ in a hypergraph", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$ee4860d78593451e8fc36482e29bc20c`\ HypergraphNeighborhoodVolumes", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/17435a2e-15ae-44fc-8945-\ 83a0aa5ab528"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}]], Selectable->False], "[", RowBox[{ RowBox[{ InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", RowBox[{"WolframModel", "[", DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], "]"}], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox[ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"4.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{"\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WolframModel"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> { "Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "WolframModel"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/\ api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`\ WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], {ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/\ 1.0"}]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3280", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"]\ , "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`\ WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}]][{\ {{1}, {2}} -> {{1, 2}}}, {{1}, {1}}, 1], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}], ",", "All", ",", "Automatic"}], "]"}], "]"}], "]"}]}], ";"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogLogPlot", "[", RowBox[{"volumes", ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"List", "ListIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["List", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["1", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["104", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], {ImageSize -> Small}, SelectWithContents->True, Selectable->False]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0., 0.}, {0., 0.}}]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-1.084201388888889, -1.1565113500597373`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}, { Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange->{{-1.084201388888889, 1}, {-1.1565113500597373`, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledTicks[{Log, Exp}]}, {{{-0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {0., FormBox["1", TraditionalForm], {0.01, 0.}}, {0.6931471805599453, FormBox["2", TraditionalForm], {0.01, 0.}}, {-1.6094379124341003`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.2039728043259361`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.916290731874155, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.5108256237659907, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.35667494393873245`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.2231435513142097, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.10536051565782628`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.4054651081081644, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.0986122886681098`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.3862943611198906`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.6094379124341003`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.791759469228055, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.9459101490553132`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.0794415416798357`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.1972245773362196`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.302585092994046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{-0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {0., FormBox["1", TraditionalForm], {0.01, 0.}}, {0.6931471805599453, FormBox["2", TraditionalForm], {0.01, 0.}}, {-1.6094379124341003`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.2039728043259361`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.916290731874155, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.5108256237659907, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.35667494393873245`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.2231435513142097, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.10536051565782628`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.4054651081081644, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.0986122886681098`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.3862943611198906`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.6094379124341003`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.7047480922384253`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.791759469228055, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.8718021769015913`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output"] }, Open ]], Cell["Effective dimension versus radius:", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", 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["LogDifferences", "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["LogDifferences", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/LogDifferences"}, "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], "LogDifferences"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "LogDifferences", "ShortName" -> "LogDifferences", "UUID" -> "dc855ba1-2666-4981-9b39-2a461af5115f", "ResourceType" -> "Function", "Version" -> "2.0.0", "Description" -> "Find logarithmic differences of elements in a list", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$4b7ae5eb24e44e579b9b8d1b7b04a22c`LogDifferences", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/9881009a-c9c8-4514-b85e-\ 9789fae28238"]], ResourceSystemBase -> Automatic]], Selectable->False], "[", "volumes", "]"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"List", "ListIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["List", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["1", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["104", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], {ImageSize -> Small}, SelectWithContents->True, Selectable->False]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[BoxData[ GraphicsBox[{}, AlignmentPoint->Center, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction->Identity, Epilog->{}, FormatType:>TraditionalForm, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameStyle->{}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, FrameTicksStyle->{}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageMargins->0., ImagePadding->All, ImageSize->Small, ImageSizeRaw->Automatic, LabelStyle->{}, Method->{ "MessagesHead" -> ListLinePlot, "DownsampleWindow" -> None, "OptimizePlotMarkers" -> True, "MessagesHead" -> ListLinePlot, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotLabel->None, PlotRange->{{-1, 1}, {-1, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->{Automatic, Automatic}, TicksStyle->{}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Successive neighborhood balls around a random vertex: ", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], 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["HypergraphNeighborhoods", "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["HypergraphNeighborhoods", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphNeighborhoods"}, "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], "HypergraphNeighborhoods"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "HypergraphNeighborhoods", "ShortName" -> "HypergraphNeighborhoods", "UUID" -> "33dfda24-4ef6-4672-983c-11fa3da1592a", "ResourceType" -> "Function", "Version" -> "1.0.0", "Description" -> "One-line description explaining the function\[CloseCurlyQuote]s basic \ purpose", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$611ed8018ca347a4898f9a8425d64907`\ HypergraphNeighborhoods", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/b2b940cc-43df-47e6-b857-\ 5b0f8c7701b6"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}]], Selectable->False], "[", RowBox[{ RowBox[{ InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", RowBox[{"WolframModel", "[", DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], "]"}], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox[ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"4.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WolframModel"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> { "Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], { "FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "WolframModel"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/\ api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`\ WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.\ 0"}]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3280", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}]][{{{ 1}, {2}} -> {{1, 2}}}, {{1}, {1}}, 1], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}], ",", "4"}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = Graph[{1}, {{{1, 1}}, Null}, { GraphHighlight -> {1}, GraphLayout -> {"Dimension" -> 2}, VertexCoordinates -> {{0., 0.}}}]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGIQjQEE4lzt7r/ct+1OUcCO3Z77H1S1zzIPSdrf/joo Ncm+b7/HVhme+D8N+w/te3P3m9Wc/S7Mj8vuyE3afy/40Ry3zsX7N337ef12 2rz9FR+Z2V4mL9/vopxt9V9n2f70j4UM9nEr97t5m0i9zFm7v3/p2uTV/iv3 2ypkMajrb9ovdVCwMdJy+X6F5F3RfpZb9ztOnqGo6rZ4P8vrwjf107bvf8r4 6XVI3+z9h+oNphqI7dx/8Mg0R6GtPftnzQSBnfuLjgW/5rTN2QOT3weRt4fp vwfRb68INd8OYr69HdR+cYj99jD39ULcZ+8GdX8qxP32W6H+K4f4z94N6v+7 EP/b+0DD5yAkfOwPQMMvGxJ+9rDw3QEJX3sATVu8XQ== "], { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[BezierCurveBox[{1, 5, 8, 10, 16, 18, 21, 1}, SplineDegree->7], 0.004014598540145964]}, {Hue[1, 1, 0.7], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[1, 0.004014598540145964]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, PlotRangePadding->0.1], ",", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = Graph[{1}, {{{1, 1}}, Null}, { GraphHighlight -> {1}, GraphLayout -> {"Dimension" -> 2}, VertexCoordinates -> {{0., 0.}}}]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGIQjQEE4lzt7r/ct+1OUcCO3Z77H1S1zzIPSdrf/joo Ncm+b7/HVhme+D8N+w/te3P3m9Wc/S7Mj8vuyE3afy/40Ry3zsX7N337ef12 2rz9FR+Z2V4mL9/vopxt9V9n2f70j4UM9nEr97t5m0i9zFm7v3/p2uTV/iv3 2ypkMajrb9ovdVCwMdJy+X6F5F3RfpZb9ztOnqGo6rZ4P8vrwjf107bvf8r4 6XVI3+z9h+oNphqI7dx/8Mg0R6GtPftnzQSBnfuLjgW/5rTN2QOT3weRt4fp vwfRb68INd8OYr69HdR+cYj99jD39ULcZ+8GdX8qxP32W6H+K4f4z94N6v+7 EP/b+0DD5yAkfOwPQMMvGxJ+9rDw3QEJX3sATVu8XQ== "], { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[BezierCurveBox[{1, 5, 8, 10, 16, 18, 21, 1}, SplineDegree->7], 0.004014598540145964]}, {Hue[1, 1, 0.7], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[1, 0.004014598540145964]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, PlotRangePadding->0.1], ",", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = Graph[{1}, {{{1, 1}}, Null}, { GraphHighlight -> {1}, GraphLayout -> {"Dimension" -> 2}, VertexCoordinates -> {{0., 0.}}}]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGIQjQEE4lzt7r/ct+1OUcCO3Z77H1S1zzIPSdrf/joo Ncm+b7/HVhme+D8N+w/te3P3m9Wc/S7Mj8vuyE3afy/40Ry3zsX7N337ef12 2rz9FR+Z2V4mL9/vopxt9V9n2f70j4UM9nEr97t5m0i9zFm7v3/p2uTV/iv3 2ypkMajrb9ovdVCwMdJy+X6F5F3RfpZb9ztOnqGo6rZ4P8vrwjf107bvf8r4 6XVI3+z9h+oNphqI7dx/8Mg0R6GtPftnzQSBnfuLjgW/5rTN2QOT3weRt4fp vwfRb68INd8OYr69HdR+cYj99jD39ULcZ+8GdX8qxP32W6H+K4f4z94N6v+7 EP/b+0DD5yAkfOwPQMMvGxJ+9rDw3QEJX3sATVu8XQ== "], { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[BezierCurveBox[{1, 5, 8, 10, 16, 18, 21, 1}, SplineDegree->7], 0.004014598540145964]}, {Hue[1, 1, 0.7], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[1, 0.004014598540145964]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, PlotRangePadding->0.1], ",", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = Graph[{1}, {{{1, 1}}, Null}, { GraphHighlight -> {1}, GraphLayout -> {"Dimension" -> 2}, VertexCoordinates -> {{0., 0.}}}]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGIQjQEE4lzt7r/ct+1OUcCO3Z77H1S1zzIPSdrf/joo Ncm+b7/HVhme+D8N+w/te3P3m9Wc/S7Mj8vuyE3afy/40Ry3zsX7N337ef12 2rz9FR+Z2V4mL9/vopxt9V9n2f70j4UM9nEr97t5m0i9zFm7v3/p2uTV/iv3 2ypkMajrb9ovdVCwMdJy+X6F5F3RfpZb9ztOnqGo6rZ4P8vrwjf107bvf8r4 6XVI3+z9h+oNphqI7dx/8Mg0R6GtPftnzQSBnfuLjgW/5rTN2QOT3weRt4fp vwfRb68INd8OYr69HdR+cYj99jD39ULcZ+8GdX8qxP32W6H+K4f4z94N6v+7 EP/b+0DD5yAkfOwPQMMvGxJ+9rDw3QEJX3sATVu8XQ== "], { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[BezierCurveBox[{1, 5, 8, 10, 16, 18, 21, 1}, SplineDegree->7], 0.004014598540145964]}, {Hue[1, 1, 0.7], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[1, 0.004014598540145964]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, PlotRangePadding->0.1]}], "}"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Distance matrix:", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[BoxData[ RowBox[{ RowBox[{"distanceMatrix", "=", RowBox[{"GraphDistanceMatrix", "[", RowBox[{"UndirectedGraph", "[", 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["HypergraphToGraph", "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["HypergraphToGraph", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphToGraph"}, "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], "HypergraphToGraph"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "HypergraphToGraph", "ShortName" -> "HypergraphToGraph", "UUID" -> "8267b84f-863c-449c-a2ae-408b71ce21f0", "ResourceType" -> "Function", "Version" -> "1.0.0", "Description" -> "Convert a hypergraph to a graph with the same distance matrix", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$93640de26e0c4959a21a3898012497a9`\ HypergraphToGraph", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/834bbf59-2157-452d-abc7-\ b6acdc4839c7"]], ResourceSystemBase -> Automatic]], Selectable->False], "[", RowBox[{ InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", RowBox[{"WolframModel", "[", DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], "]"}], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox[ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"4.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{"\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WolframModel"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> { "Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "WolframModel"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/\ api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`\ WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], {ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/\ 1.0"}]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3280", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`\ WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}]][{{\ {1}, {2}} -> {{1, 2}}}, {{1}, {1}}, 1], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}], "]"}], "]"}], "]"}]}], ";"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixPlot", "[", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", RowBox[{"(", RowBox[{"distanceMatrix", "/.", " ", RowBox[{"0", "\[Rule]", "None"}]}], ")"}]}], "]"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"List", "ListIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["List", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["2", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["168", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], {ImageSize -> Small, FrameTicks -> None}, SelectWithContents->True, Selectable->False]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[BoxData[ GraphicsBox[RasterBox[{{{0.5, 0., 0.}}}, {{0, 0}, {1, 1}}, {0, 1}], Frame->True, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}]], "Output"] }, Open ]], Cell["Distribution of distances in the graph:", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{ RowBox[{"Flatten", "[", "distanceMatrix", "]"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"List", "ListIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["List", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["1", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["104", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], {ImageSize -> Small}, SelectWithContents->True, Selectable->False]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6789999999999999], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6789999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.5, 0}, {0.5, 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{20.834067253803042`, 175.53742994395515`}, {-54.74999999999999, 38.074703093227605`}}], "DelayedMouseEffectStyle"], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, {}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-0.52, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, PlotRange->{{-0.5, 0.5}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Spreading of Effects", "Section"], Cell["Causal graph adjacency matrix:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixPlot", "[", RowBox[{ RowBox[{"AdjacencyMatrix", "[", RowBox[{ InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", RowBox[{"WolframModel", "[", DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], "]"}], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox[ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"4.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WolframModel"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> { "Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "WolframModel"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/\ api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`\ WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.\ 0"}]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3280", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}]][{{{ 1}, {2}} -> {{1, 2}}}, {{1}, {1}}, 1], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}], "]"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"List", "ListIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["List", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["1", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["104", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], {ImageSize -> Small}, SelectWithContents->True, Selectable->False]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[ RasterBox[SparseArray[Automatic, {1, 1}, 1., {1, {{0, 0}, {}}, {}}], {{0, 0}, {1, 1}}, {0, 1}], Frame->True, FrameLabel->{None, None}, FrameTicks->{{{{0.5, FormBox["1", TraditionalForm]}}, {{0.5, FormBox["1", TraditionalForm]}}}, {{{0.5, FormBox["1", TraditionalForm]}}, {{0.5, FormBox["1", TraditionalForm]}}}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}]], "Output"] }, Open ]], Cell["Neighborhood volumes in causal graph:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogLogPlot", "[", RowBox[{ RowBox[{"Values", "[", 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["GraphNeighborhoodVolumes", "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["GraphNeighborhoodVolumes", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/GraphNeighborhoodVolumes"}, "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], "GraphNeighborhoodVolumes"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "GraphNeighborhoodVolumes", "ShortName" -> "GraphNeighborhoodVolumes", "UUID" -> "bcce9306-a712-4235-b2dd-37419232cee7", "ResourceType" -> "Function", "Version" -> "1.0.0", "Description" -> "Find the volumes of successively larger neighborhoods around nodes \ in a graph", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$844172c161324b318cee0545f605f2b2`\ GraphNeighborhoodVolumes", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/d17d768f-9547-43c0-bf77-\ ab80ad754dc2"]], ResourceSystemBase -> Automatic]], Selectable->False], "[", RowBox[{ RowBox[{ InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", RowBox[{"WolframModel", "[", DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], "]"}], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox[ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"4.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{"\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WolframModel"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> { "Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "WolframModel"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/\ api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`\ WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], {ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/\ 1.0"}]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3280", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`\ WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}]][{{\ {1}, {2}} -> {{1, 2}}}, {{1}, {1}}, 1], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], "]"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"List", "ListIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["List", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["1", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["104", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], {ImageSize -> Small}, SelectWithContents->True, Selectable->False]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0., 0.}, {0., 0.}}]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-1.084201388888889, -1.1565113500597373`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}, { Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange->{{-1.084201388888889, 1}, {-1.1565113500597373`, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledTicks[{Log, Exp}]}, {{{-0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {0., FormBox["1", TraditionalForm], {0.01, 0.}}, {0.6931471805599453, FormBox["2", TraditionalForm], {0.01, 0.}}, {-1.6094379124341003`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.2039728043259361`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.916290731874155, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.5108256237659907, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.35667494393873245`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.2231435513142097, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.10536051565782628`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.4054651081081644, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.0986122886681098`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.3862943611198906`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.6094379124341003`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.791759469228055, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.9459101490553132`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.0794415416798357`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.1972245773362196`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.302585092994046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{-0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {0., FormBox["1", TraditionalForm], {0.01, 0.}}, {0.6931471805599453, FormBox["2", TraditionalForm], {0.01, 0.}}, {-1.6094379124341003`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.2039728043259361`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.916290731874155, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.5108256237659907, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.35667494393873245`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.2231435513142097, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.10536051565782628`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.4054651081081644, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.0986122886681098`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.3862943611198906`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.6094379124341003`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.7047480922384253`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.791759469228055, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.8718021769015913`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Graph Features of States", "Section"], Cell[BoxData[ RowBox[{ RowBox[{"graph", "=", 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["HypergraphToGraph", "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["HypergraphToGraph", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphToGraph"}, "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], "HypergraphToGraph"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "HypergraphToGraph", "ShortName" -> "HypergraphToGraph", "UUID" -> "8267b84f-863c-449c-a2ae-408b71ce21f0", "ResourceType" -> "Function", "Version" -> "1.0.0", "Description" -> "Convert a hypergraph to a graph with the same distance matrix", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$93640de26e0c4959a21a3898012497a9`\ HypergraphToGraph", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/834bbf59-2157-452d-abc7-\ b6acdc4839c7"]], ResourceSystemBase -> Automatic]], Selectable->False], "[", RowBox[{ InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", RowBox[{"WolframModel", "[", DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], "]"}], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox[ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"4.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WolframModel"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> { "Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "WolframModel"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/\ api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`\ WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.\ 0"}]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3280", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "5.0.0", "Description" -> "Generate evolutions of Wolfram model systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$9c1a9ac30adf4c2fa773b664d7a1a390`WolframModel", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/0997a74d-0e85-46de-87f1-\ 707342be8321"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}]][{{{ 1}, {2}} -> {{1, 2}}}, {{1}, {1}}, 1], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}], "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{ RowBox[{"ClosenessCentrality", "[", "graph", "]"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"List", "ListIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["List", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["1", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["104", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], {ImageSize -> Small}, SelectWithContents->True, Selectable->False]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6789999999999999], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6789999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.5, 0}, {0.5, 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{20.834067253803042`, 175.53742994395515`}, {-54.74999999999999, 38.074703093227605`}}], "DelayedMouseEffectStyle"], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, {}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-0.52, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, PlotRange->{{-0.5, 0.5}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output"] }, Open ]], Cell["Cycle properties:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"EdgeCycleMatrix", "[", RowBox[{"UndirectedGraph", "[", "graph", "]"}], "]"}], "//", "MatrixPlot"}]], "Input"], Cell[BoxData[ GraphicsBox[RasterBox[{{{1., 0.42, 0.}}}, {{0, 0}, {1, 1}}, {0, 1}], Frame->True, FrameLabel->{None, None}, FrameTicks->{{{{0.5, FormBox["1", TraditionalForm]}}, {{0.5, FormBox["1", TraditionalForm]}}}, {{{0.5, FormBox["1", TraditionalForm]}}, {{0.5, FormBox["1", TraditionalForm]}}}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{"Length", "/@", RowBox[{"FindFundamentalCycles", "[", RowBox[{"UndirectedGraph", "[", "graph", "]"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.7], Thickness[Small]}]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-0.02, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0, 1}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindSpanningTree", "[", RowBox[{"UndirectedGraph", "[", "graph", "]"}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = Graph[{1}, {}]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[{{0., 0.}}, {{}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.004014598540145964]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, PlotRangePadding->0.1]], "Output"] }, Open ]] }, Open ]] }, WindowSize->{872, 979}, WindowMargins->{{159, Automatic}, {Automatic, 33}}, ShowCellBracket->"True", PrivateCellOptions->{"EvaluationUnmatchedStyle"->{}}, TaggingRules->{}, ShowCellTags->True, FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (March 14, 2020)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[ StyleData[All, "Working"], $CellContext`CellInsertionPointCell -> FEPrivate`FrontEndResource["FEExpressions", "CellInsertionMenu"]], Cell[ StyleData[All, "SlideShow"], ShowGroupOpener -> False], Cell[ StyleData[All, "Printout"], Magnification -> 0.72], Cell[ StyleData[ All, "PrintoutGray", StyleDefinitions -> StyleData[All, "Printout"]], MenuSortingValue -> None]}, Closed]], Cell[ CellGroupData[{ Cell["Notebook Options Settings", "Section"], Cell[ "The options defined for the style below will be used at the Notebook \ level.", "Text"], Cell[ StyleData["Notebook"], PageHeaders -> {{ Cell[ TextData[{ Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"], " ", Cell[ " ", "Header", CellFrame -> {{0.5, 0}, {0, 0}}, CellFrameMargins -> 4], Cell[ TextData[{ ValueBox["FileName"]}], "Header"]}], CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {None, None, Cell[ TextData[{ Cell[ TextData[{ ValueBox["FileName"]}], "Header"], Cell[ " ", "Header", CellFrame -> {{0, 0.5}, {0, 0}}, CellFrameMargins -> 4], " ", Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"]}], CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}}, PageHeaderLines -> {False, False}, PageFooterLines -> {False, False}, PrintingOptions -> { "FacingPages" -> True, "FirstPageFace" -> Right, "FirstPageFooter" -> True, "FirstPageHeader" -> False}]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Title and Section Cells", "Section"], Cell[ CellGroupData[{ Cell["Title", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], CellMargins -> {{27, Inherited}, {10, 30}}, StyleKeyMapping -> {"Tab" -> "Subtitle"}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, LineSpacing -> {1, 4}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}, { "Item", 0}, {"Subitem", 0}, {"Subsubitem", 0}, { "ItemNumbered", 0}, {"SubitemNumbered", 0}, { "SubsubitemNumbered", 0}}, MenuSortingValue -> 1100, MenuCommandKey :> "1", FontFamily -> "Source Sans Pro", FontSize -> 45, FontTracking -> -0.5, FontColor -> RGBColor[0.8, 0.043, 0.008]], Cell[ StyleData["Title", "Presentation"], CellMargins -> {{67, Inherited}, {15, 45}}, LineSpacing -> {1, 18}, FontSize -> 72], Cell[ StyleData["Title", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.04 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, { 15, 0.12 FrontEnd`AbsoluteCurrentValue[{WindowSize, 2}]}}, LineSpacing -> {1, 2}, FontSize -> 72], Cell[ StyleData["Title", "Condensed"], CellMargins -> {{18, 10}, {4, 8}}, FontSize -> 20], Cell[ StyleData["Title", "Printout"], CellMargins -> {{10, Inherited}, {10, 30}}], Cell[ StyleData["Title", "PrintoutGray"], CellMargins -> {{10, Inherited}, {10, 30}}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], CellMargins -> {{27, Inherited}, {20, 2}}, StyleKeyMapping -> { "Tab" -> "Subsubtitle", "Backspace" -> "Title", $CellContext`KeyEvent[ "Tab", $CellContext`Modifiers -> {$CellContext`Shift}] -> "Title"}, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> False, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}, {"Item", 0}, { "Subitem", 0}, {"Subsubitem", 0}, {"ItemNumbered", 0}, { "SubitemNumbered", 0}, {"SubsubitemNumbered", 0}}, MenuSortingValue -> 1125, MenuCommandKey :> "2", FontFamily -> "Source Sans Pro", FontSize -> 24, FontColor -> GrayLevel[0.35]], Cell[ StyleData["Subtitle", "Presentation"], CellMargins -> {{67, Inherited}, {30, 3}}, LineSpacing -> {1, 16}, FontSize -> 48], Cell[ StyleData["Subtitle", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.04 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {30, 12}}, LineSpacing -> {1, 2}, FontSize -> 48], Cell[ StyleData["Subtitle", "Condensed"], CellMargins -> {{18, 10}, {4, 4}}, FontSize -> 14], Cell[ StyleData["Subtitle", "Printout"], CellMargins -> {{10, Inherited}, {20, 2}}], Cell[ StyleData["Subtitle", "PrintoutGray"], CellMargins -> {{10, Inherited}, {20, 2}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle"], CellMargins -> {{27, Inherited}, {8, 2}}, StyleKeyMapping -> { "Backspace" -> "Subtitle", $CellContext`KeyEvent[ "Tab", $CellContext`Modifiers -> {$CellContext`Shift}] -> "Subtitle"}, CellGroupingRules -> {"TitleGrouping", 20}, PageBreakBelow -> False, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Item", 0}, {"Subitem", 0}, {"Subsubitem", 0}, { "ItemNumbered", 0}, {"SubitemNumbered", 0}, { "SubsubitemNumbered", 0}}, FontFamily -> "Source Sans Pro", FontSize -> 16, FontColor -> GrayLevel[0.3]], Cell[ StyleData["Subsubtitle", "Presentation"], CellMargins -> {{67, Inherited}, {12, 3}}, LineSpacing -> {1, 14}, FontSize -> 32], Cell[ StyleData["Subsubtitle", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.04 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {12, 12}}, LineSpacing -> {1, 2}, FontSize -> 32], Cell[ StyleData["Subsubtitle", "Condensed"], CellMargins -> {{18, 10}, {8, 8}}, FontSize -> 12], Cell[ StyleData["Subsubtitle", "Printout"], CellMargins -> {{10, Inherited}, {8, 2}}], Cell[ StyleData["Subsubtitle", "PrintoutGray"], CellMargins -> {{10, Inherited}, {8, 2}}]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Chapter", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Chapter"], CellMargins -> {{27, Inherited}, {10, 15}}, StyleKeyMapping -> { "Tab" -> "Subchapter", "Backspace" -> "Title", $CellContext`KeyEvent[ "Tab", $CellContext`Modifiers -> {$CellContext`Shift}] -> "Title"}, CellGroupingRules -> {"SectionGrouping", 10}, PageBreakBelow -> False, LineSpacing -> {1, 4}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Chapter", CounterAssignments -> {{"Subchapter", 0}, {"Section", 0}, { "Equation", 0}, {"Figure", 0}, {"Subsubtitle", 0}, { "Item", 0}, {"Subitem", 0}, {"Subsubitem", 0}, { "ItemNumbered", 0}, {"SubitemNumbered", 0}, { "SubsubitemNumbered", 0}}, MenuSortingValue -> 1150, MenuCommandKey :> "3", FontFamily -> "Source Sans Pro", FontSize -> 34, FontColor -> RGBColor[ 0.20584420538643472`, 0.20584420538643472`, 0.20584420538643472`]], Cell[ StyleData["Chapter", "Presentation"], CellMargins -> {{67, Inherited}, {10, 15}}, LineSpacing -> {1, 16}, FontSize -> 48], Cell[ StyleData["Chapter", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.04 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {10, 15}}, LineSpacing -> {1, 2}, FontSize -> 48], Cell[ StyleData["Chapter", "Condensed"], CellMargins -> {{18, 10}, {5, 7}}, FontSize -> 14], Cell[ StyleData["Chapter", "Printout"], CellMargins -> {{10, Inherited}, {10, 15}}], Cell[ StyleData["Chapter", "PrintoutGray"], CellMargins -> {{10, Inherited}, {10, 15}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subchapter"], CellDingbat -> StyleBox["\[FilledSmallSquare]", Alignment -> Baseline, RGBColor[0.8, 0.043, 0.008]], CellMargins -> {{63, Inherited}, {8, 20}}, StyleKeyMapping -> { "Backspace" -> "Chapter", $CellContext`KeyEvent[ "Tab", $CellContext`Modifiers -> {$CellContext`Shift}] -> "Chapter"}, CellGroupingRules -> {"SectionGrouping", 20}, PageBreakBelow -> False, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subchapter", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Item", 0}, {"Subitem", 0}, {"Subsubitem", 0}, { "ItemNumbered", 0}, {"SubitemNumbered", 0}, { "SubsubitemNumbered", 0}}, FontFamily -> "Source Sans Pro", FontSize -> 28, FontColor -> RGBColor[0.3, 0.3, 0.3]], Cell[ StyleData["Subchapter", "Presentation"], CellMargins -> {{67, Inherited}, {8, 20}}, LineSpacing -> {1, 14}, FontSize -> 32], Cell[ StyleData["Subchapter", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.04 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {6, 20}}, LineSpacing -> {1, 2}, FontSize -> 32], Cell[ StyleData["Subchapter", "Condensed"], CellMargins -> {{18, 10}, {6, 10}}, FontSize -> 12], Cell[ StyleData["Subchapter", "Printout"], CellMargins -> {{10, Inherited}, {8, 20}}], Cell[ StyleData["Subchapter", "PrintoutGray"], CellMargins -> {{10, Inherited}, {8, 20}}]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Section", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellFrame -> {{0, 0}, {0, 1}}, CellMargins -> {{27, Inherited}, {8, 18}}, StyleKeyMapping -> {"Tab" -> "Subsection"}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, CellFrameMargins -> 4, CellFrameColor -> GrayLevel[0.7], LineSpacing -> {1, 2}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, { "Item", 0}, {"Subitem", 0}, {"Subsubitem", 0}, { "ItemNumbered", 0}, {"SubitemNumbered", 0}, { "SubsubitemNumbered", 0}}, MenuSortingValue -> 1250, MenuCommandKey :> "4", FontFamily -> "Source Sans Pro", FontSize -> 28, FontColor -> RGBColor[ 0.14099336232547494`, 0.2780041199359121, 0.41199359121080337`]], Cell[ StyleData["Section", "Presentation"], CellFrame -> {{0, 0}, {0, 2}}, CellMargins -> {{67, Inherited}, {12, 24}}, CellFrameMargins -> 8, LineSpacing -> {1, 10}, FontSize -> 40], Cell[ StyleData["Section", "SlideShow"], CellMargins -> {{ 0.06 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.04 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, { 12, 0.06 FrontEnd`AbsoluteCurrentValue[{WindowSize, 2}]}}, LineSpacing -> {1, 2}, FontSize -> 40], Cell[ StyleData["Section", "Condensed"], CellMargins -> {{18, Inherited}, {6, 12}}, FontSize -> 12], Cell[ StyleData["Section", "Printout"], CellMargins -> {{10, Inherited}, {8, 18}}], Cell[ StyleData["Section", "PrintoutGray"], CellMargins -> {{10, Inherited}, {8, 18}}, FontColor -> GrayLevel[0.2]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellMargins -> {{50.34765625, 3.}, {8., 20.}}, StyleKeyMapping -> { "Tab" -> "Subsubsection", "Backspace" -> "Section", $CellContext`KeyEvent[ "Tab", $CellContext`Modifiers -> {$CellContext`Shift}] -> "Section"}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}, {"Item", 0}, { "Subitem", 0}, {"Subsubitem", 0}, {"ItemNumbered", 0}, { "SubitemNumbered", 0}, {"SubsubitemNumbered", 0}}, MenuSortingValue -> 1300, MenuCommandKey :> "5", FontFamily -> "Source Sans Pro", FontSize -> 20, FontColor -> RGBColor[ 0.14099336232547494`, 0.2780041199359121, 0.41199359121080337`]], Cell[ StyleData["Subsection", "Presentation"], CellMargins -> {{100, Inherited}, {12, 18}}, LineSpacing -> {1, 10}, FontSize -> 28], Cell[ StyleData["Subsection", "SlideShow"], CellMargins -> {{ 0.1 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.02 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, { 12, 0.046 FrontEnd`AbsoluteCurrentValue[{WindowSize, 2}]}}, LineSpacing -> {1, 2}, FontSize -> 32], Cell[ StyleData["Subsection", "Condensed"], CellMargins -> {{18, Inherited}, {6, 12}}, FontSize -> 11], Cell[ StyleData["Subsection", "Printout"], CellMargins -> {{30, Inherited}, {8., 16}}], Cell[ StyleData["Subsection", "PrintoutGray"], CellMargins -> {{30, Inherited}, {8., 16}}, FontColor -> GrayLevel[0.3]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellMargins -> {{66, Inherited}, {8, 12}}, StyleKeyMapping -> { "Tab" -> "Subsubsubsection", "Backspace" -> "Subsection", $CellContext`KeyEvent[ "Tab", $CellContext`Modifiers -> {$CellContext`Shift}] -> "Subsection"}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubsection", CounterAssignments -> {{"Subsubsubsection", 0}, {"Item", 0}, { "Subitem", 0}, {"Subsubitem", 0}, {"ItemNumbered", 0}, { "SubitemNumbered", 0}, {"SubsubitemNumbered", 0}}, MenuSortingValue -> 1350, MenuCommandKey :> "6", FontFamily -> "Source Sans Pro", FontSize -> 19, FontColor -> RGBColor[ 0.14099336232547494`, 0.2780041199359121, 0.41199359121080337`]], Cell[ StyleData["Subsubsection", "Presentation"], CellMargins -> {{100, Inherited}, {3, 15}}, LineSpacing -> {1, 6}, FontSize -> 24], Cell[ StyleData["Subsubsection", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {3, 15}}, LineSpacing -> {1, 2}, FontSize -> 28], Cell[ StyleData["Subsubsection", "Condensed"], CellMargins -> {{18, Inherited}, {6, 12}}, FontSize -> 11], Cell[ StyleData["Subsubsection", "Printout"], CellMargins -> {{49, Inherited}, {6, 16}}], Cell[ StyleData["Subsubsection", "PrintoutGray"], CellMargins -> {{49, Inherited}, {6, 16}}, FontColor -> GrayLevel[0.3]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsubsection"], CellMargins -> {{66, Inherited}, {2, 10}}, StyleKeyMapping -> { "Tab" -> "Subsubsubsubsection", "Backspace" -> "Subsubsection", $CellContext`KeyEvent[ "Tab", $CellContext`Modifiers -> {$CellContext`Shift}] -> "Subsubsection"}, CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> False, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubsubsection", CounterAssignments -> {{"Subsubsubsubsection", 0}, {"Item", 0}, { "Subitem", 0}, {"Subsubitem", 0}, {"ItemNumbered", 0}, { "SubitemNumbered", 0}, {"SubsubitemNumbered", 0}}, MenuSortingValue -> None, FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Bold", FontColor -> RGBColor[ 0.14099336232547494`, 0.2780041199359121, 0.41199359121080337`]], Cell[ StyleData["Subsubsubsection", "Presentation"], CellMargins -> {{100, Inherited}, {3, 15}}, LineSpacing -> {1, 7}, FontSize -> 24], Cell[ StyleData["Subsubsubsection", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {3, 15}}, LineSpacing -> {1, 2}, FontSize -> 22], Cell[ StyleData["Subsubsubsection", "Condensed"], CellMargins -> {{18, Inherited}, {6, 12}}, FontSize -> 10], Cell[ StyleData["Subsubsubsection", "Printout"], CellMargins -> {{49, Inherited}, {6, 14}}], Cell[ StyleData["Subsubsubsection", "PrintoutGray"], CellMargins -> {{49, Inherited}, {6, 14}}, FontColor -> GrayLevel[0.4]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsubsubsection"], CellMargins -> {{66, Inherited}, {2, 10}}, StyleKeyMapping -> { "Backspace" -> "Subsubsubsection", $CellContext`KeyEvent[ "Tab", $CellContext`Modifiers -> {$CellContext`Shift}] -> "Subsubsubsection"}, CellGroupingRules -> {"SectionGrouping", 70}, PageBreakBelow -> False, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubsubsubsection", CounterAssignments -> {{"Item", 0}, {"Subitem", 0}, { "Subsubitem", 0}, {"ItemNumbered", 0}, { "SubitemNumbered", 0}, {"SubsubitemNumbered", 0}}, MenuSortingValue -> None, FontFamily -> "Source Sans Pro", FontSize -> 14, FontColor -> RGBColor[0.5875944151979858, 0.053406576638437474`, 0.]], Cell[ StyleData["Subsubsubsubsection", "Presentation"], CellMargins -> {{100, Inherited}, {3, 15}}, LineSpacing -> {1, 7}, FontSize -> 24], Cell[ StyleData["Subsubsubsubsection", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {3, 15}}, LineSpacing -> {1, 2}, FontSize -> 22], Cell[ StyleData["Subsubsubsubsection", "Condensed"], CellMargins -> {{18, Inherited}, {6, 12}}, FontSize -> 10], Cell[ StyleData["Subsubsubsubsection", "Printout"], CellMargins -> {{49, Inherited}, {6, 14}}], Cell[ StyleData["Subsubsubsubsection", "PrintoutGray"], CellMargins -> {{49, Inherited}, {6, 14}}, FontColor -> GrayLevel[0.3]]}, Closed]]}, Closed]]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[ CellGroupData[{ Cell["Standard", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{66, 10}, {7, 8}}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", MenuSortingValue -> 1400, MenuCommandKey :> "7", FontFamily -> "Source Sans Pro", FontSize -> 15], Cell[ StyleData["Text", "Presentation"], CellMargins -> {{100, 10}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 24], Cell[ StyleData["Text", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {10, 10}}, FontSize -> 22], Cell[ StyleData["Text", "Condensed"], CellMargins -> {{18, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["Text", "Printout"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}, Hyphenation -> True], Cell[ StyleData["Text", "PrintoutGray"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}, Hyphenation -> True]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SmallText"], CellMargins -> {{66, 10}, {6, 6}}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "SmallText", MenuSortingValue -> 1750, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 14, FontColor -> GrayLevel[0.2]], Cell[ StyleData["SmallText", "Presentation"], CellMargins -> {{100, 10}, {9, 9}}, LineSpacing -> {1, 5}, FontSize -> 18], Cell[ StyleData["SmallText", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {9, 9}}, FontSize -> 18], Cell[ StyleData["SmallText", "Condensed"], CellMargins -> {{18, 10}, {5, 5}}, LineSpacing -> {1, 2}, FontSize -> 9], Cell[ StyleData["SmallText", "Printout"], CellMargins -> {{33, Inherited}, {Inherited, Inherited}}, Hyphenation -> True], Cell[ StyleData["SmallText", "PrintoutGray"], CellMargins -> {{33, Inherited}, {Inherited, Inherited}}, Hyphenation -> True]}, Closed]], Cell[ StyleData["CodeText", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{66, 10}, {3, 15}}, LineSpacing -> {1, 1, 1}, MenuSortingValue -> 1540, FontColor -> GrayLevel[0.45]]}, Closed]], Cell[ CellGroupData[{ Cell["Display", "Subsection"], Cell[ CellGroupData[{ Cell["Lists", "Subsubsection"], Cell[ CellGroupData[{ Cell["Bulleted", "Subsubsubsection"], Cell[ CellGroupData[{ Cell[ StyleData["Item"], CellDingbat -> StyleBox["\[FilledSmallSquare]", Alignment -> Baseline, RGBColor[0.8, 0.043, 0.008]], CellMargins -> {{81, 10}, {4, 8}}, StyleKeyMapping -> {"Tab" -> "Subitem", "*" -> "Subitem"}, CellGroupingRules -> { "GroupTogetherNestedGrouping", 15000}, CellFrameLabelMargins -> 4, CounterIncrements -> "Item", CounterAssignments -> {{"Subitem", 0}, {"Subsubitem", 0}}, MenuSortingValue -> 1600, FontFamily -> "Source Sans Pro", FontSize -> 15, $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["Item", "Presentation"], CellMargins -> {{140, 10}, {7, 7}}, CellFrameLabelMargins -> 6, FontSize -> 24], Cell[ StyleData["Item", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {10, 10}}, CellFrameLabelMargins -> 8, FontSize -> 22], Cell[ StyleData["Item", "Condensed"], CellMargins -> {{38, Inherited}, {2, 2}}, FontSize -> 11], Cell[ StyleData["Item", "Printout"], CellDingbat -> StyleBox["\[FilledSmallSquare]", Alignment -> Baseline, GrayLevel[0.2]], CellMargins -> {{65, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["Item", "PrintoutGray"], CellDingbat -> StyleBox["\[FilledSmallSquare]", Alignment -> Baseline, GrayLevel[0.2]], CellMargins -> {{65, Inherited}, {Inherited, Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemParagraph"], CellMargins -> {{81, 10}, {4, 1}}, StyleKeyMapping -> {"Tab" -> "SubitemParagraph"}, CellGroupingRules -> { "GroupTogetherNestedGrouping", 15000}, MenuSortingValue -> 1600, FontFamily -> "Source Sans Pro", FontSize -> 15, FontColor -> GrayLevel[0.2], $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["ItemParagraph", "Presentation"], CellMargins -> {{140, 10}, {7, 2}}, FontSize -> 24], Cell[ StyleData["ItemParagraph", "SlideShow"], ShowGroupOpener -> False, CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {10, 2}}, FontSize -> 22], Cell[ StyleData["ItemParagraph", "Condensed"], CellMargins -> {{38, Inherited}, {2, 1}}, FontSize -> 11], Cell[ StyleData["ItemParagraph", "Printout"], CellMargins -> {{65, Inherited}, { Inherited, 0.5 Inherited}}], Cell[ StyleData["ItemParagraph", "PrintoutGray"], CellMargins -> {{65, Inherited}, { Inherited, 0.5 Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subitem"], CellDingbat -> StyleBox["\[FilledSmallSquare]", Alignment -> Baseline, RGBColor[0.8, 0.043, 0.008]], CellMargins -> {{105, 12}, {4, 4}}, StyleKeyMapping -> { "Tab" -> "Subsubitem", "*" -> "Subsubitem", "Backspace" -> "Item", $CellContext`KeyEvent[ "Tab", $CellContext`Modifiers -> {$CellContext`Shift}] -> "Item"}, CellGroupingRules -> { "GroupTogetherNestedGrouping", 15100}, CellFrameLabelMargins -> 4, CounterIncrements -> "Subitem", CounterAssignments -> {{"Subsubitem", 0}}, MenuSortingValue -> 1610, FontFamily -> "Source Sans Pro", FontSize -> 14, $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["Subitem", "Presentation"], CellMargins -> {{176, 12}, {7, 7}}, CellFrameLabelMargins -> 6, FontSize -> 24], Cell[ StyleData["Subitem", "SlideShow"], CellMargins -> {{ 0.155 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {10, 10}}, CellFrameLabelMargins -> 8, FontSize -> 22], Cell[ StyleData["Subitem", "Condensed"], CellMargins -> {{60, 2}, {2, 2}}, FontSize -> 11], Cell[ StyleData["Subitem", "Printout"], CellDingbat -> StyleBox["\[FilledSmallSquare]", Alignment -> Baseline, GrayLevel[0.3]], CellMargins -> {{92, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["Subitem", "PrintoutGray"], CellDingbat -> StyleBox["\[FilledSmallSquare]", Alignment -> Baseline, GrayLevel[0.3]], CellMargins -> {{92, Inherited}, {Inherited, Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SubitemParagraph"], CellMargins -> {{105, 12}, {4, 1}}, StyleKeyMapping -> { "Tab" -> "SubsubitemParagraph", "Backspace" -> "ItemParagraph", $CellContext`KeyEvent[ "Tab", $CellContext`Modifiers -> {$CellContext`Shift}] -> "ItemParagraph"}, CellGroupingRules -> { "GroupTogetherNestedGrouping", 15100}, CellFrameLabelMargins -> 4, MenuSortingValue -> 1610, FontFamily -> "Source Sans Pro", FontSize -> 14, FontColor -> GrayLevel[0.2], $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["SubitemParagraph", "Presentation"], CellMargins -> {{176, 12}, {7, 2}}, FontSize -> 24], Cell[ StyleData["SubitemParagraph", "SlideShow"], CellMargins -> {{ 0.155 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {10, 2}}, FontSize -> 22], Cell[ StyleData["SubitemParagraph", "Condensed"], CellMargins -> {{60, 2}, {2, 1}}, FontSize -> 11], Cell[ StyleData["SubitemParagraph", "Printout"], CellMargins -> {{92, Inherited}, { Inherited, 0.1 Inherited}}], Cell[ StyleData["SubitemParagraph", "PrintoutGray"], CellMargins -> {{92, Inherited}, { Inherited, 0.1 Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubitem"], CellDingbat -> StyleBox["\[FilledSmallSquare]", Alignment -> Baseline, RGBColor[0.6, 0.6, 0.6]], CellMargins -> {{129, 12}, {4, 4}}, StyleKeyMapping -> { "Backspace" -> "Subitem", $CellContext`KeyEvent[ "Tab", $CellContext`Modifiers -> {$CellContext`Shift}] -> "Subitem"}, CellGroupingRules -> { "GroupTogetherNestedGrouping", 15200}, CellFrameLabelMargins -> 4, CounterIncrements -> "Subsubitem", MenuSortingValue -> 1620, FontFamily -> "Source Sans Pro", FontSize -> 13, $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["Subsubitem", "Presentation"], CellMargins -> {{212, 12}, {7, 7}}, CellFrameLabelMargins -> 6, FontSize -> 24], Cell[ StyleData["Subsubitem", "SlideShow"], CellMargins -> {{ 0.176 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {10, 10}}, CellFrameLabelMargins -> 8, FontSize -> 22], Cell[ StyleData["Subsubitem", "Condensed"], CellMargins -> {{84, 2}, {2, 2}}, FontSize -> 11], Cell[ StyleData["Subsubitem", "Printout"], CellDingbat -> StyleBox["\[FilledSmallSquare]", Alignment -> Baseline, GrayLevel[0.4]], CellMargins -> {{119, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["Subsubitem", "PrintoutGray"], CellDingbat -> StyleBox["\[FilledSmallSquare]", Alignment -> Baseline, GrayLevel[0.4]], CellMargins -> {{119, Inherited}, { Inherited, Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SubsubitemParagraph"], CellMargins -> {{129, 12}, {4, 1}}, StyleKeyMapping -> { "Backspace" -> "SubitemParagraph", $CellContext`KeyEvent[ "Tab", $CellContext`Modifiers -> {$CellContext`Shift}] -> "SubitemParagraph"}, CellGroupingRules -> { "GroupTogetherNestedGrouping", 15200}, CellFrameLabelMargins -> 4, CounterIncrements -> "Subsubitem", MenuSortingValue -> 1620, FontFamily -> "Source Sans Pro", FontSize -> 13, FontColor -> GrayLevel[0.2], $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["SubsubitemParagraph", "Presentation"], CellMargins -> {{212, 12}, {7, 2}}, FontSize -> 24], Cell[ StyleData["SubsubitemParagraph", "SlideShow"], CellMargins -> {{ 0.176 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {10, 2}}, FontSize -> 22], Cell[ StyleData["SubsubitemParagraph", "Condensed"], CellMargins -> {{84, 2}, {2, 1}}, FontSize -> 11], Cell[ StyleData["SubsubitemParagraph", "Printout"], CellMargins -> {{119, Inherited}, { Inherited, 0.1 Inherited}}], Cell[ StyleData["SubsubitemParagraph", "PrintoutGray"], CellMargins -> {{119, Inherited}, { Inherited, 0.1 Inherited}}]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Numbered", "Subsubsubsection"], Cell[ CellGroupData[{ Cell[ StyleData["ItemNumbered"], CellDingbat -> Cell[ TextData[{ CounterBox["ItemNumbered"], "."}], FontWeight -> "Bold"], CellMargins -> {{81, 10}, {4, 8}}, StyleKeyMapping -> {"Tab" -> "SubitemNumbered"}, CellGroupingRules -> { "GroupTogetherNestedGrouping", 15000}, CellFrameLabelMargins -> 4, CounterIncrements -> "ItemNumbered", CounterAssignments -> {{"SubitemNumbered", 0}, { "SubsubitemNumbered", 0}}, MenuSortingValue -> 1600, FontFamily -> "Source Sans Pro", FontSize -> 15, $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["ItemNumbered", "Presentation"], CellMargins -> {{140, 10}, {7, 7}}, CellFrameLabelMargins -> 6, FontSize -> 24], Cell[ StyleData["ItemNumbered", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {10, 10}}, CellFrameLabelMargins -> 6, FontSize -> 22], Cell[ StyleData["ItemNumbered", "Condensed"], CellMargins -> {{38, Inherited}, {2, 2}}, FontSize -> 11], Cell[ StyleData["ItemNumbered", "Printout"], CellMargins -> {{65, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["ItemNumbered", "PrintoutGray"], CellMargins -> {{65, Inherited}, {Inherited, Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SubitemNumbered"], CellDingbat -> Cell[ TextData[{ CounterBox["ItemNumbered"], ".", CounterBox["SubitemNumbered"], "."}], FontWeight -> "Bold"], CellMargins -> {{105, 12}, {4, 4}}, StyleKeyMapping -> { "Tab" -> "SubsubitemNumbered", "Backspace" -> "ItemNumbered", $CellContext`KeyEvent[ "Tab", $CellContext`Modifiers -> {$CellContext`Shift}] -> "ItemNumbered"}, CellGroupingRules -> { "GroupTogetherNestedGrouping", 15100}, CellFrameLabelMargins -> 4, CounterIncrements -> "SubitemNumbered", CounterAssignments -> {{"SubsubitemNumbered", 0}}, MenuSortingValue -> 1610, FontFamily -> "Source Sans Pro", FontSize -> 14, $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["SubitemNumbered", "Presentation"], CellMargins -> {{176, 12}, {7, 7}}, CellFrameLabelMargins -> 6, FontSize -> 24], Cell[ StyleData["SubitemNumbered", "SlideShow"], CellMargins -> {{ 0.155 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {10, 10}}, CellFrameLabelMargins -> 6, FontSize -> 22], Cell[ StyleData["SubitemNumbered", "Condensed"], CellMargins -> {{60, 2}, {2, 2}}, FontSize -> 11], Cell[ StyleData["SubitemNumbered", "Printout"], CellMargins -> {{92, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["SubitemNumbered", "PrintoutGray"], CellMargins -> {{92, Inherited}, {Inherited, Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SubsubitemNumbered"], CellDingbat -> Cell[ TextData[{ CounterBox["ItemNumbered"], ".", CounterBox["SubitemNumbered"], ".", CounterBox["SubsubitemNumbered"], "."}], FontWeight -> "Bold"], CellMargins -> {{129, 12}, {4, 4}}, StyleKeyMapping -> { "Backspace" -> "SubitemNumbered", $CellContext`KeyEvent[ "Tab", $CellContext`Modifiers -> {$CellContext`Shift}] -> "SubitemNumbered"}, CellGroupingRules -> { "GroupTogetherNestedGrouping", 15200}, CellFrameLabelMargins -> 4, CounterIncrements -> "SubsubitemNumbered", MenuSortingValue -> 1620, FontFamily -> "Source Sans Pro", FontSize -> 13, $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["SubsubitemNumbered", "Presentation"], CellMargins -> {{212, 12}, {7, 7}}, CellFrameLabelMargins -> 6, FontSize -> 24], Cell[ StyleData["SubsubitemNumbered", "SlideShow"], CellMargins -> {{ 0.176 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {10, 10}}, CellFrameLabelMargins -> 6, FontSize -> 22], Cell[ StyleData["SubsubitemNumbered", "Condensed"], CellMargins -> {{84, 2}, {2, 2}}, FontSize -> 11], Cell[ StyleData["SubsubitemNumbered", "Printout"], CellMargins -> {{119, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["SubsubitemNumbered", "PrintoutGray"], CellMargins -> {{119, Inherited}, { Inherited, Inherited}}]}, Closed]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Templates", "Subsubsection"], Cell[ CellGroupData[{ Cell[ StyleData[ "SideCaptionArray", StyleDefinitions -> StyleData["Text"]], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Left}, "Rows" -> {Center}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}}], Cell[ StyleData["SideCaptionArray", "SlideShow"]], Cell[ StyleData["SideCaptionArray", "Printout"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["SideCaptionArray", "PrintoutGray"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "SideCaption", StyleDefinitions -> StyleData["SmallText"]]], Cell[ StyleData["SideCaption", "SlideShow"]], Cell[ StyleData["SideCaption", "Printout"]], Cell[ StyleData["SideCaption", "PrintoutGray"]]}, Closed]]}, Closed]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Input and Output Cells", "Section"], Cell[ "The cells in this section define styles used for input and output to \ the kernel. Be careful when modifying, renaming, or removing these styles, \ because the front end associates special meanings with these style names. \ Some attributes for these styles are actually set in FormatType Styles (in \ the last section of this stylesheet). ", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Input"], CellMargins -> {{66, 10}, {5, 8}}, StyleKeyMapping -> { "=" -> "WolframAlphaShort", "*" -> "Item", ">" -> "ExternalLanguage"}, FontSize -> 13], Cell[ StyleData["Input", "Presentation"], CellMargins -> {{100, 10}, {8, 15}}], Cell[ StyleData["Input", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.01 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {8, 15}}, LinebreakAdjustments -> {1, 2., 12., 1., 1.}, FontSize -> 20], Cell[ StyleData["Input", "Condensed"], CellMargins -> {{50, 10}, {2, 3}}], Cell[ StyleData["Input", "Printout"], CellMargins -> {{49, Inherited}, {Inherited, 8}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}], Cell[ StyleData["Input", "PrintoutGray"], CellMargins -> {{49, Inherited}, {Inherited, 8}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["InputOnly"], CellMargins -> {{66, 10}, {7, 8}}, FontSize -> 13], Cell[ StyleData["InputOnly", "Presentation"], CellMargins -> {{100, 10}, {8, 15}}], Cell[ StyleData["InputOnly", "SlideShow"], CellMargins -> {{100, 10}, {8, 15}}], Cell[ StyleData["InputOnly", "Condensed"], CellMargins -> {{50, 10}, {2, 3}}], Cell[ StyleData["InputOnly", "Printout"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}], Cell[ StyleData["InputOnly", "PrintoutGray"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ExternalLanguage"]], Cell[ StyleData["ExternalLanguage", "SlideShow"], CellMargins -> {{ 1 + 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.01 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {8, 15}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Code"]], Cell[ StyleData["Code", "Presentation"], CellMargins -> {{100, 10}, {8, 15}}], Cell[ StyleData["Code", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.01 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {8, 15}}, LinebreakAdjustments -> {1, 2., 12., 1., 1.}, FontSize -> 20], Cell[ StyleData["Code", "Condensed"], CellMargins -> {{50, 10}, {2, 3}}], Cell[ StyleData["Code", "Printout"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["Code", "PrintoutGray"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Output"], CellMargins -> {{66, 10}, {12, 5}}, FontSize -> 13], Cell[ StyleData["Output", "Presentation"], CellMargins -> {{100, 10}, {15, 8}}], Cell[ StyleData["Output", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.01 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {15, 8}}, LinebreakAdjustments -> {1, 2., 12., 1., 1.}, FontSize -> 20], Cell[ StyleData["Output", "Condensed"], CellMargins -> {{50, Inherited}, {3, 2}}], Cell[ StyleData["Output", "Printout"], CellMargins -> {{49, Inherited}, {9, 3}}], Cell[ StyleData["Output", "PrintoutGray"], CellMargins -> {{49, Inherited}, {9, 3}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Message"]], Cell[ StyleData["Message", "Presentation"], CellMargins -> {{100, Inherited}, {1.5 Inherited, 1.5 Inherited}}], Cell[ StyleData["Message", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.01 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {8, 15}}, FontSize -> 18], Cell[ StyleData["Message", "Condensed"], CellMargins -> {{18, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["Message", "Printout"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}, CellFrameLabels -> {{None, None}, {None, None}}], Cell[ StyleData["Message", "PrintoutGray"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}, CellFrameLabels -> {{None, None}, {None, None}}, FontColor -> GrayLevel[0.5]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], CellMargins -> {{66, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["Print", "Presentation"], CellMargins -> {{100, Inherited}, {1.5 Inherited, 1.5 Inherited}}], Cell[ StyleData["Print", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.01 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {8, 15}}, FontSize -> 18], Cell[ StyleData["Print", "Condensed"], CellMargins -> {{18, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["Print", "Printout"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["Print", "PrintoutGray"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Echo"], CellMargins -> {{66, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["Echo", "Presentation"], CellMargins -> {{100, Inherited}, {1.5 Inherited, 1.5 Inherited}}], Cell[ StyleData["Echo", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.01 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {8, 15}}, FontSize -> 18], Cell[ StyleData["Echo", "Condensed"], CellMargins -> {{18, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["Echo", "Printout"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["Echo", "PrintoutGray"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Formulas and Programming", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", ScriptLevel -> 1, SingleLetterItalics -> True, MenuSortingValue -> 1650, FontSize -> 1.05 Inherited, $CellContext`StripStyleOnPaste -> True], Cell[ StyleData["InlineFormula", "Presentation"], CellMargins -> {{10, 4}, {0, 12}}, LineSpacing -> {1, 5}], Cell[ StyleData["InlineFormula", "SlideShow"]], Cell[ StyleData["InlineFormula", "Condensed"], CellMargins -> {{50, 10}, {6, 6}}, LineSpacing -> {1, 1}], Cell[ StyleData["InlineFormula", "Printout"]], Cell[ StyleData["InlineFormula", "PrintoutGray"]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"], CellMargins -> {{66, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", ScriptLevel -> 0, SingleLetterItalics -> True, MenuSortingValue -> 1700, FontFamily -> "Source Sans Pro", FontSize -> 14, FontColor -> GrayLevel[0.2], UnderoverscriptBoxOptions -> { LimitsPositioning -> True}, $CellContext`StripStyleOnPaste -> True], Cell[ StyleData["DisplayFormula", "Presentation"], CellMargins -> {{100, Inherited}, {1.5 Inherited, 1.5 Inherited}}, LineSpacing -> {1, 5}, FontSize -> 24], Cell[ StyleData["DisplayFormula", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, { 1.3 Inherited, 1.3 Inherited}}, FontSize -> 22], Cell[ StyleData["DisplayFormula", "Condensed"], CellMargins -> {{50, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["DisplayFormula", "Printout"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["DisplayFormula", "PrintoutGray"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "DisplayFormulaNumbered", StyleDefinitions -> StyleData["DisplayFormula"]], CellFrameLabels -> {{None, Cell[ TextData[{"(", CounterBox["DisplayFormulaNumbered"], ")"}], "DisplayFormulaEquationNumber"]}, {None, None}}, CounterIncrements -> "DisplayFormulaNumbered", MenuSortingValue -> 1710], Cell[ StyleData["DisplayFormulaNumbered", "Presentation"], CellMargins -> {{100, Inherited}, {1.5 Inherited, 1.5 Inherited}}, LineSpacing -> {1, 5}, FontSize -> 24], Cell[ StyleData["DisplayFormulaNumbered", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, { 1.5 Inherited, 1.5 Inherited}}, FontSize -> 22], Cell[ StyleData["DisplayFormulaNumbered", "Condensed"], CellMargins -> {{50, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["DisplayFormulaNumbered", "Printout"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["DisplayFormulaNumbered", "PrintoutGray"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}]}, Closed]], Cell[ StyleData["DisplayFormulaEquationNumber"], FontFamily -> "Arial", FontSize -> -1 + Inherited], Cell[ CellGroupData[{ Cell[ StyleData["Program"], CellFrame -> {{0, 0}, {0.5, 0.5}}, CellMargins -> {{66, 10}, {8, 8}}, Hyphenation -> False, AutoQuoteCharacters -> {}, PasteAutoQuoteCharacters -> {}, LanguageCategory -> "Formula", ScriptLevel -> 1, MenuSortingValue -> 1800, FontFamily -> Dynamic[ CurrentValue[{ StyleHints, "CodeFont"}]], $CellContext`StripStyleOnPaste -> True], Cell[ StyleData["Program", "Presentation"], CellFrame -> {{0, 0}, {1, 1}}, CellMargins -> {{100, 4}, {0, 12}}, LineSpacing -> {1, 5}, FontSize -> 24], Cell[ StyleData["Program", "SlideShow"], CellFrame -> {{0, 0}, {1, 1}}, CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {12, 12}}, FontSize -> 22], Cell[ StyleData["Program", "Condensed"], CellMargins -> {{18, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["Program", "Printout"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["Program", "PrintoutGray"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Citation Styles", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Reference"], CellMargins -> {{66, 10}, {3, 3}}], Cell[ StyleData["Reference", "Presentation"], CellMargins -> {{100, 10}, {5, 5}}], Cell[ StyleData["Reference", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {10, 10}}, FontSize -> 22], Cell[ StyleData["Reference", "Condensed"], CellMargins -> {{18, 10}, {3, 3}}], Cell[ StyleData["Reference", "Printout"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1., 2.}], Cell[ StyleData["Reference", "PrintoutGray"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1., 2.}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Author"], CellMargins -> {{64, 120}, {2, 6}}, ShowAutoSpellCheck -> False, IgnoreSpellCheck -> True, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, MenuSortingValue -> 1570, FontFamily -> "Source Sans Pro", FontSize -> 18], Cell[ StyleData["Author", "Presentation"], CellMargins -> {{100, 10}, {5, 5}}], Cell[ StyleData["Author", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {10, 10}}, FontSize -> 22], Cell[ StyleData["Author", "Condensed"], CellMargins -> {{18, 10}, {3, 3}}], Cell[ StyleData["Author", "Printout"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1., 2.}], Cell[ StyleData["Author", "PrintoutGray"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1., 2.}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Affiliation", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{64, 120}, {8, 2}}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, MenuSortingValue -> 1575, FontSize -> 16, FontColor -> GrayLevel[0.4]], Cell[ StyleData["Affiliation", "Presentation"], CellMargins -> {{100, 10}, {5, 5}}], Cell[ StyleData["Affiliation", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {10, 10}}, FontSize -> 22], Cell[ StyleData["Affiliation", "Condensed"], CellMargins -> {{18, 10}, {3, 3}}], Cell[ StyleData["Affiliation", "Printout"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1., 2.}], Cell[ StyleData["Affiliation", "PrintoutGray"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1., 2.}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Abstract"], CellFrame -> {{False, False}, {True, True}}, CellMargins -> {{66, 120}, {12, 12}}, CellFrameColor -> GrayLevel[0.7], LineSpacing -> {1, 3}, TabSpacings -> {2.5}, MenuSortingValue -> 1565, FontFamily -> "Source Sans Pro", FontSize -> 15, FontSlant -> "Italic"], Cell[ StyleData["Abstract", "Presentation"], CellMargins -> {{100, 10}, {5, 5}}], Cell[ StyleData["Abstract", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {10, 10}}, FontSize -> 22], Cell[ StyleData["Abstract", "Condensed"], CellMargins -> {{18, 10}, {3, 3}}], Cell[ StyleData["Abstract", "Printout"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1., 2.}], Cell[ StyleData["Abstract", "PrintoutGray"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1., 2.}]}, Closed]]}, Closed]], Cell["Styles for Printed Runningheads and Footers", "Section"]}, Visible -> False, FrontEndVersion -> "12.1 for Microsoft Windows (64-bit) (March 14, 2020)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 34, 0, 70, "Section",ExpressionUUID->"d46500fd-d734-4559-ba7f-c0f6b3602a39"], Cell[CellGroupData[{ Cell[639, 26, 87, 1, 70, "Text",ExpressionUUID->"a6af0863-c074-4e3b-a27e-a33a51abd0a4", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[CellGroupData[{ Cell[751, 31, 8181, 205, 70, "Input",ExpressionUUID->"3f55e1e9-18f8-4c2b-9074-4bdb745f554f", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[8935, 238, 1899, 38, 70, "Output",ExpressionUUID->"b5839b72-658d-4883-bc1f-690b59f47255"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10883, 282, 96, 1, 70, "Text",ExpressionUUID->"01aaff56-6cf2-4e65-b45b-7cede99e16c3", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[CellGroupData[{ Cell[11004, 287, 8260, 207, 70, "Input",ExpressionUUID->"b363981d-cae3-4956-a8c4-e0ff10ceacf6", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[19267, 496, 1983, 40, 70, "Output",ExpressionUUID->"dd76c8bf-b894-4d10-afd5-4e718c5b48cd"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21299, 542, 94, 1, 70, "Text",ExpressionUUID->"1b13c7ad-6d8f-4459-8d41-dcfe8c3d51ac", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[21396, 545, 8818, 215, 70, "Input",ExpressionUUID->"8aa331d5-ab2e-440b-bf07-ba11393eb839", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[30239, 764, 1202, 30, 70, "Input",ExpressionUUID->"81767e72-b859-4004-888a-a489f673ea31", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[31444, 796, 8425, 185, 70, "Output",ExpressionUUID->"d2795b7c-2fcd-4fa4-a093-8e08358a2e9c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[39918, 987, 160, 6, 70, "Text",ExpressionUUID->"78ef7f2d-566a-4035-984f-5ff3a64916fc", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[40103, 997, 10160, 199, 70, "Input",ExpressionUUID->"3286a656-e745-4dac-9c41-1a23dde3ee06", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[50266, 1198, 1521, 28, 70, "Output",ExpressionUUID->"3d5729a3-4a8e-46ae-9571-053a16591ffa"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[51848, 1233, 31, 0, 70, "Section",ExpressionUUID->"87537a0c-a047-467a-b6a6-23f49dbd454f"], Cell[CellGroupData[{ Cell[51904, 1237, 84, 1, 70, "Text",ExpressionUUID->"087bc26d-a765-45d1-ba36-d9bb473bb9a9", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[CellGroupData[{ Cell[52013, 1242, 10937, 221, 70, "Input",ExpressionUUID->"dccefd84-1d84-4b61-a2b6-aeb2d97c3aa4", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[62953, 1465, 813, 20, 70, "Output",ExpressionUUID->"14ad8e6d-0987-4a7a-9bf0-09ceef82a9de"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[63815, 1491, 89, 1, 70, "Text",ExpressionUUID->"3ff58de7-aa30-4ff2-99b8-ead0dfc036b6", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[CellGroupData[{ Cell[63929, 1496, 10164, 199, 70, "Input",ExpressionUUID->"58eb249d-f558-4709-948e-30afdbe7593e", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[74096, 1697, 915, 24, 70, "Output",ExpressionUUID->"0ee39009-d122-4bef-90cf-b3c1f29bd779"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[75060, 1727, 100, 1, 70, "Text",ExpressionUUID->"24485dd0-e541-4ae0-9bc3-40557cec1d7b", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[75185, 1732, 11489, 228, 70, "Input",ExpressionUUID->"055de40d-2c49-400d-9c60-3951bc707d7f", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[86677, 1962, 817, 20, 70, "Output",ExpressionUUID->"25906040-7773-4df4-b4fc-9c5dac4a87e1"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[87555, 1989, 41, 0, 70, "Section",ExpressionUUID->"328c02c3-4e33-42ae-a0cc-ca3b020fc817"], Cell[87599, 1991, 44, 0, 70, "Text",ExpressionUUID->"05fd33be-f6fc-41cc-8897-a9e019fe32eb"], Cell[CellGroupData[{ Cell[87668, 1995, 11777, 235, 70, "Input",ExpressionUUID->"850bf44c-86a1-47f6-9af3-348f81b0a5b9", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[99448, 2232, 771, 18, 70, "Output",ExpressionUUID->"a30d9239-a5cb-4f44-93a3-b3e9ba9bcf97"] }, Open ]], Cell[CellGroupData[{ Cell[100256, 2255, 98, 1, 70, "Text",ExpressionUUID->"49fff3c1-1cc2-42c4-a55b-8221808719bb", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[CellGroupData[{ Cell[100379, 2260, 11608, 230, 70, "Input",ExpressionUUID->"4404ba71-a167-4bb0-a4eb-3ba793963ddc", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[111990, 2492, 1512, 43, 70, "Output",ExpressionUUID->"703cdd96-4851-47db-8525-63848fcd0b08"] }, Open ]] }, Open ]], Cell[113529, 2539, 76, 0, 70, "Text",ExpressionUUID->"554ae3bc-fcb3-4feb-9924-f149f393f893"], Cell[CellGroupData[{ Cell[113630, 2543, 27443, 603, 70, "Input",ExpressionUUID->"a63a43a0-d22e-4d05-a3d6-dfc3e1e1fdd8", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[CellGroupData[{ Cell[141098, 3150, 1036, 26, 70, "Input",ExpressionUUID->"674ee56c-7b34-4e94-9f82-aa985628a053", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[142137, 3178, 5933, 146, 70, "Output",ExpressionUUID->"9d4153d2-dfa1-47b3-851c-0a7c7d7272ae"] }, Open ]], Cell[148085, 3327, 105, 1, 70, "Text",ExpressionUUID->"3d1605a2-da20-4ecd-9987-0dd898c722dc", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[CellGroupData[{ Cell[148215, 3332, 9059, 218, 70, "Input",ExpressionUUID->"67087200-1d98-469c-91ec-49333c4e0b9b", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[157277, 3552, 1602, 56, 70, "Output",ExpressionUUID->"312e2b66-b82b-4364-a816-730707178387"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[158928, 3614, 125, 1, 70, "Text",ExpressionUUID->"dfba810f-765c-4944-8f94-324609edb171", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[CellGroupData[{ Cell[159078, 3619, 18164, 396, 70, "Input",ExpressionUUID->"46f4d47e-c133-41cc-9b26-4c6ba6aa782c", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[177245, 4017, 5345, 114, 70, "Output",ExpressionUUID->"3f99a176-71c6-40d8-a425-fca45239150d"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[182639, 4137, 87, 1, 70, "Text",ExpressionUUID->"7826d2fd-1231-48fe-bf00-befd60c82175", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[182729, 4140, 19102, 405, 70, "Input",ExpressionUUID->"cb83d632-5719-4d59-af5d-7709e975ac3f", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[201856, 4549, 1206, 31, 70, "Input",ExpressionUUID->"a069e668-db80-400c-863b-be84436a4351", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[203065, 4582, 770, 18, 70, "Output",ExpressionUUID->"55d93e0a-3580-498e-9a22-362fb3553f6c"] }, Open ]], Cell[203850, 4603, 110, 1, 70, "Text",ExpressionUUID->"07e1afad-8997-4c7d-91a2-423dead23126", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[203985, 4608, 1073, 27, 70, "Input",ExpressionUUID->"a850d78e-42f8-4ef9-8632-c2ba900d7dd5", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[205061, 4637, 1539, 43, 70, "Output",ExpressionUUID->"7ac4336f-aaf7-4ff8-88b5-f90ad516e810"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[206661, 4687, 39, 0, 70, "Section",ExpressionUUID->"bdf70f81-2528-4651-aeef-c3a75fbbef27"], Cell[206703, 4689, 46, 0, 70, "Text",ExpressionUUID->"a7e48de5-898c-4663-8eae-6bdd5cb0644d"], Cell[CellGroupData[{ Cell[206774, 4693, 11352, 227, 70, "Input",ExpressionUUID->"756f1b23-0772-4648-bf97-8a0121248b61"], Cell[218129, 4922, 985, 24, 70, "Output",ExpressionUUID->"9629b52c-aaf3-4eaa-b9f3-90d9bc46441b"] }, Open ]], Cell[219129, 4949, 53, 0, 70, "Text",ExpressionUUID->"51455a91-5806-492d-96b0-1dabbf1db207"], Cell[CellGroupData[{ Cell[219207, 4953, 19864, 427, 70, "Input",ExpressionUUID->"a27e1231-d343-43d7-b17d-4ba30fb17c94"], Cell[239074, 5382, 5933, 146, 70, "Output",ExpressionUUID->"691d9bb5-9fa7-4e62-8cef-647dc60bcd3d"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[245056, 5534, 43, 0, 70, "Section",ExpressionUUID->"a2155e39-689e-4e51-b221-a21f3ecd0f3b"], Cell[245102, 5536, 18501, 398, 70, "Input",ExpressionUUID->"cc5ee6db-8df4-4dd4-99fa-7b5aa1bddc0e"], Cell[CellGroupData[{ Cell[263628, 5938, 1021, 26, 70, "Input",ExpressionUUID->"cf930b30-f2aa-462d-ba04-da265c4b4503"], Cell[264652, 5966, 1539, 43, 70, "Output",ExpressionUUID->"ccfd7ad0-19f4-4347-89de-85566ad9de18"] }, Open ]], Cell[266206, 6012, 33, 0, 70, "Text",ExpressionUUID->"4b940c3d-082a-41ee-9ea7-f6906bb3aba3"], Cell[CellGroupData[{ Cell[266264, 6016, 151, 4, 70, "Input",ExpressionUUID->"7d12b636-881c-40c6-a23c-312d91bfb40c"], Cell[266418, 6022, 919, 21, 70, "Output",ExpressionUUID->"eb28c6ad-c63e-4c22-a2f5-faa074434f4f"] }, Open ]], Cell[CellGroupData[{ Cell[267374, 6048, 188, 4, 70, "Input",ExpressionUUID->"f2440292-f01c-4477-8028-70940f8bae29"], Cell[267565, 6054, 661, 19, 70, "Output",ExpressionUUID->"117d813d-390a-41fa-9adf-a21fa54946a8"] }, Open ]], Cell[CellGroupData[{ Cell[268263, 6078, 115, 2, 70, "Input",ExpressionUUID->"843acc29-a625-4fda-a751-67602a27e178"], Cell[268381, 6082, 570, 13, 70, "Output",ExpressionUUID->"79c753dd-b3e8-41d9-97a4-66af853fbd07"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)