(* 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[ 450103, 9622] NotebookOptionsPosition[ 375799, 8070] NotebookOutlinePosition[ 439810, 9436] CellTagsIndexPosition[ 439767, 9433] 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[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", "3", ",", "\"\\""}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[0.7], {LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQB2IQXbxYYk2m+dr9976EHcn6M8m+p9frqdqPjfuVF/3x 3BE13X7r1JdLjAr27z/dVXG+oWiFfXN57vRt2Uf3L/x+6uTaS1vtJRWMYpi3 n9y/X/202n6Gg/b2HPHNRwLP7FcqUa9O+nPcPl9OeLOWwNn9Yb/uxZxOO2+f 7m3tsPnp6f17JF81zEu8bP9Ln2fer6cn9tstUTv66dQ1e4nCH7VFzkf2i+wo SGDYdtPegunCTKUZe/bb823y2Pjxtv36lkDL0xPW7p95JVO/NOKuvXeUwTmD NTP2rLm8L3rnpbv2MyHy9rOg8uYQ/fYw/XwQ8+0loOZ/h9hv7wC1PwXiPvu9 UPflQtxvHwF1vy3Ef/aKUP9JQPxvfwjqf2j42C+Ghs/n7p237EoP2bt4pdpv u7rBHgDNrb77 "]], PolygonBox[{{0.1401438965025222, 0.09651776884519593}, { 0.1402846173460453, 0.09287671082118723}, {0.14091964690959996`, 0.08423264674788168}, {0.1415671828803716, 0.07914627344103949}, { 0.1423861124579182, 0.07415290144417011}, {0.14353778297311665`, 0.06967261377254426}, {0.14498442405272577`, 0.06618440265554068}, { 0.1469541756234286, 0.06336800750121419}, {0.15003228941469088`, 0.06004265706433676}, {0.15386146257496047`, 0.056458426698097586`}, {0.15790861027755734`, 0.05288123724779378}, {0.16515212874264734`, 0.04698623968664919}, { 0.16831161739566936`, 0.04453709567058456}, {0.05706339097770908, 0.018541019662497233`}, {0.1401438965025222, 0.09651776884519593}}]}, {LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQB2IQXbRYYk2m+Vr7Z1/CjmT9mbS/p9frqdqPjfa6i/54 7oiavn/L1JdLjAr221/oqjjfULRif2N57vRt2Uft538/dXLtpa37JRSMYpi3 n7Q/qH5abT/Dwf12HPHNRwLP2KuUqFcn/Tm+P09OeLOWwFn70F/3Yk6nnd+f 6m3tsPnpafu9kq8a5iVe3v9Dn2fer6cn7B2WqB39dOrafrHCH7VFzkfsRXYU JDBsu7nfmunCTKUZe+zt+TZ5bPx4e//2lkDL0xPW2s+8kqlfGnF3v5GNgsnp ogabNZf3Re+8dHf/eoj8fpg8VP9+O6h+IYj5+8Wg5n+D2L8fZj/Uffth7oO6 f3841P1Q/+1XhPoP6v/9MP83Q8Jn/0Jo+Hzp3nnLrvTQfhevVPttVzfsBwBh pMiV "]], PolygonBox[{{-0.1401438965025222, -0.09651776884519593}, \ {-0.1402846173460453, -0.09287671082118722}, {-0.1409196469096, \ -0.08423264674788167}, {-0.14156718288037162`, -0.07914627344103947}, \ {-0.14238611245791824`, -0.0741529014441701}, {-0.14353778297311665`, \ -0.06967261377254425}, {-0.1449844240527258, -0.06618440265554067}, \ {-0.1469541756234286, -0.06336800750121417}, {-0.1500322894146909, \ -0.060042657064336744`}, {-0.15386146257496047`, -0.05645842669809756}, \ {-0.15790861027755737`, -0.052881237247793755`}, {-0.16515212874264731`, \ -0.04698623968664917}, {-0.16831161739566936`, -0.044537095670584545`}, \ {-0.05706339097770908, -0.01854101966249724}, {-0.1401438965025222, \ -0.09651776884519593}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0., 0.}, 0.06]}}, {}}, ImageSizeRaw->{{114.43615919986752`}, {274.00010650819667`}}], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[0.7], {LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQB2IQvbesetH/n6/tJ/8IO5L1Z5K95/rJCYV9r+2nLP3j uSNqur3zufkv8u+/tM/tqTjfULTCXmJx4vSOohf2mT9OnVx7aav9hwqDtK3x z+3VNU6r7Wc4aP/ULlWGdecz+84S9eqkP8ftIywrJmR3PrPf++tezOm08/bS enq5nFee2X+WfNUwL/Gy/dcvO6d+n/zcvnyJ2tFPp67Zr3uyb+7MPS/sfXYU JDBsu2m/ioH5VaHVK/tyvk0eGz/etl/xYnln5pfX9levZOqXRty1/8Jga1t2 9q39i8v7ondeumvvIHnpQ9Oy93D5+Q3WHrYbPthXQPXP64vN08z/aO8HNb+S LaGoivmTfTXU/ucvl7YVJn+y/wp1n8cThtIDHZ/s90Pd35TItf5zwSf7CVD/ 1RxR6Zot+8leC+r/TP2ej4ZTPtpXQMPnx8avP5NMP9rreKfab7u6wR4ACt3I ZA== "]], PolygonBox[{{1.0714746914149047`, 0.09651776884519919}, { 1.0716154122584278`, 0.09287671082119049}, {1.0722504418219825`, 0.08423264674788494}, {1.072897977792754, 0.07914627344104275}, { 1.0737169073703008`, 0.07415290144417337}, {1.0748685778854992`, 0.0696726137725475}, {1.0763152189651084`, 0.06618440265554394}, { 1.078284970535811, 0.06336800750121745}, {1.0813630843270734`, 0.060042657064340005`}, {1.085192257487343, 0.05645842669810083}, { 1.08923940518994, 0.052881237247797044`}, {1.09648292365503, 0.04698623968665244}, {1.099642412308052, 0.04453709567058782}, { 0.9883941858900916, 0.018541019662500487`}, {1.0714746914149047`, 0.09651776884519919}}]}, { LineBox[{{0.9913307949123826, 3.0767551191549*^-15}, { 1.7039458603416362`, 6.245462662246308*^-16}}], PolygonBox[{{1.693749860341636, -0.028975599999999345`}, { 1.6953608603416361`, -0.025707299999999347`}, { 1.6989208603416361`, -0.01780479999999936}, { 1.7007748603416362`, -0.013024299999999364`}, { 1.7024338603416362`, -0.00824390999999937}, { 1.7035558603416363`, -0.003756099999999374}, {1.7039458603416362`, 6.245462662246305*^-16}, {1.7035558603416363`, 0.003414660000000626}, {1.7024338603416362`, 0.00780486000000063}, { 1.7007748603416364`, 0.012780500000000637`}, {1.6989208603416364`, 0.01785380000000064}, {1.6953608603416364`, 0.026487800000000658`}, { 1.6937498603416363`, 0.030146400000000663`}, {1.8039458603416363`, 2.8043217547731445`*^-16}, { 1.693749860341636, -0.028975599999999345`}}]}, { LineBox[{{0.06, 2.1151820115078453`*^-16}, {0.7713307949123825, 2.7191750372011975`*^-15}}], PolygonBox[{{0.7611347949123826, -0.028975599999997322`}, { 0.7627457949123826, -0.025707299999997314`}, { 0.7663057949123826, -0.017804799999997303`}, { 0.7681597949123826, -0.013024299999997293`}, { 0.7698187949123826, -0.008243909999997285}, { 0.7709407949123825, -0.003756099999997282}, {0.7713307949123825, 2.7191750372011975`*^-15}, {0.7709407949123825, 0.003414660000002718}, {0.7698187949123825, 0.007804860000002713}, { 0.7681597949123825, 0.012780500000002708`}, {0.7663057949123825, 0.0178538000000027}, {0.7627457949123824, 0.02648780000000269}, { 0.7611347949123823, 0.030146400000002686`}, {0.8713307949123825, 3.071705372452505*^-15}, { 0.7611347949123826, -0.028975599999997322`}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.9313307949123826, 3.2832235736032897*^-15}, 0.06], DiskBox[{1.8639458603416363, 7.39637210289247*^-17}, 0.06], DiskBox[{0., 0.}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {154.64005325409934`}}], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{2.649782751885361, 1.4324195107533533`}, { 2.172023783726701, 0.8700383802484202}}], PolygonBox[{{2.1547299279588916`, 0.8996747248976841}, { 2.156347217100425, 0.8959394791470507}, {2.160500181069841, 0.8871933714049489}, {2.1632291134357553`, 0.8821575771578422}, { 2.1660989827330828`, 0.8772878728217407}, {2.1691081449062284`, 0.8730869391901851}, {2.172023783726701, 0.8700383802484202}, { 2.175212864984851, 0.8679008036542335}, {2.17976186483431, 0.8656808609561486}, {2.1851976468526932`, 0.8634946752788051}, { 2.190857600840629, 0.8614038689502184}, {2.200782740667763, 0.8581902220372679}, {2.2050625650138667`, 0.8569157000305112}, { 2.0997004102495302`, 0.7849048647127901}, {2.1547299279588916`, 0.8996747248976841}}]}, { LineBox[{{2.0008540153730405`, 0.7391802053067779}, { 1.1215996723337855`, 0.7392143563249437}}], PolygonBox[{{1.1329905441875274`, 0.7715815991778558}, { 1.1311908075198707`, 0.767930759149583}, {1.1272137062905736`, 0.7591032920055125}, {1.1251424567419288`, 0.7537632338724801}, { 1.123289035254109, 0.7484232901561779}, {1.1220354914150719`, 0.7434101545900239}, {1.1215996723337855`, 0.7392143563249437}, { 1.1220351802910633`, 0.7353999355581371}, {1.1232883389321495`, 0.7304957395349921}, {1.1251413371266001`, 0.7249375445349437}, { 1.1272121591398436`, 0.7192702483155217}, {1.131188542885615, 0.7096253377728762}, {1.1329879790098296`, 0.7055383667166927}, { 1.009892976922326, 0.7392186951120244}, {1.1329905441875274`, 0.7715815991778558}}]}, { LineBox[{{2.0996791756755258`, 0.693432854097532}, { 2.5771072736348795`, 0.13091210582342552`}}], PolygonBox[{{2.5450595394679607`, 0.11865106564511038`}, { 2.5490075479620957`, 0.11964147662807828`}, {2.558311181542504, 0.12232175880897342`}, {2.563722736426792, 0.12419828999476998`}, { 2.5689932441404384`, 0.12624081748422458`}, {2.573626405778969, 0.12852920416314823`}, {2.5771072736348795`, 0.1309121058234256}, { 2.5797335330481457`, 0.13371250480595057`}, {2.582661513738605, 0.13784148461813883`}, {2.5856999323942564`, 0.14285099018657474`}, { 2.5886805717383368`, 0.14809716396845884`}, {2.5934605931800943`, 0.15737009889142728`}, {2.5954120235014906`, 0.16138671718047903`}, { 2.649391113043845, 0.04574502075605597}, {2.5450595394679607`, 0.11865106564511038`}}]}, { LineBox[{{0.05999999999877779, 0.7392153455473577}, { 0.7781862814753613, 0.7392199295939889}}], PolygonBox[{{0.7667968733996371, 0.7068521716368429}, { 0.7685964449609718, 0.7105030930521273}, {0.7725731469755064, 0.7193307400463902}, {0.7746441550248645, 0.724670891843523}, { 0.7764973350187948, 0.7300109193729355}, {0.7777506521440283, 0.7350241116238493}, {0.7781862814753613, 0.7392199295939889}, { 0.7777506010163215, 0.7430343306616151}, {0.776497220590644, 0.747938470007279}, {0.7746439710359642, 0.7534965812022155}, { 0.7725728927287536, 0.7591637837656159}, {0.7685960728085407, 0.7688085144716267}, {0.7667964518582274, 0.7728954041464776}, { 0.8898929769688066, 0.73922064259661}, {0.7667968733996371, 0.7068521716368429}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{2.060854015327782, 0.739177874853588}, 0.06], DiskBox[{0.9498929769675845, 0.7392210255652143}, 0.06], DiskBox[{2.6886291468071093, 1.4781465006125554}, 0.06], DiskBox[{2.6882162733915886, 0.}, 0.06], DiskBox[{0., 0.7392149625787533}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {420}}], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{0.6543423463505913, 0.6904541599501499}, { 0.12514436808496285`, 1.1819863698921698`}}], PolygonBox[{{0.1550394489845131, 1.1976997700252365`}, { 0.15129610209757202`, 1.1962722829262642`}, {0.14251507134194738`, 1.192569855845082}, {0.1374444489999006, 1.1901059726209944`}, { 0.13253100025266087`, 1.187496267728719}, {0.128269082026699, 1.1847204497400048`}, {0.12514436808496285`, 1.1819863698921698`}, { 0.12290350445461282`, 1.178943711723771}, {0.12052238186750092`, 1.174567437343545}, {0.11813580443054258`, 1.1693177201677947`}, { 0.1158332434168749, 1.1638434181696236`}, {0.11224070797856706`, 1.154224101362369}, {0.11080094745651889`, 1.1500713031687573`}, { 0.04458473401223329, 1.2568121564487718`}, {0.1550394489845131, 1.1976997700252365`}}]}, { LineBox[{{2.5413368883682175`, 0.04090997052270337}, { 2.012559832409818, 0.5337788874011292}}], PolygonBox[{{2.0424823846665814`, 0.5494399113834161}, { 2.0387365437140286`, 0.5480189817961809}, {2.02994904275827, 0.5443319376717847}, {2.0248741134561223`, 0.5418769378640851}, { 2.0199561021458945`, 0.5392758413704906}, {2.0156893294618334`, 0.5365074910794683}, {2.012559832409818, 0.5337788874011292}, { 2.010313643933747, 0.5307401580828921}, {2.007924861296586, 0.5263680602182192}, {2.005529094251022, 0.5211225304498014}, { 2.0032169502085515`, 0.5156522690743541}, {1.999607574998436, 0.5060392582397388}, {1.998160544332848, 0.5018889877123441}, { 1.932131356256995, 0.6087456346927188}, {2.0424823846665814`, 0.5494399113834161}}]}, { LineBox[{{0.7583044011603935, 0.6496228520630001}, { 1.7182920101717076`, 0.6496506789552182}}], PolygonBox[{{1.707082547341639, 0.6177920106090079}, { 1.708853719397927, 0.6213855207148414}, {1.7127676471429725`, 0.6300743432489517}, {1.714805946747096, 0.6353305078393573}, { 1.7166298460675247`, 0.6405865452712499}, {1.7178633293063543`, 0.6455208771987536}, {1.7182920101717076`, 0.6496506789552182}, { 1.7178631007701464`, 0.6534050464471934}, {1.7166293345840782`, 0.6582319857697863}, {1.714805124333413, 0.6637025926144915}, { 1.7127665106830676`, 0.6692805693062202}, {1.7088520559103424`, 0.6787734408710374}, {1.7070806630898037`, 0.6827959787108914}, { 1.8282408754027273`, 0.649653866012211}, {1.707082547341639, 0.6177920106090079}}]}, { LineBox[{{0.6543097285152413, 0.6088232112393874}, { 0.12461407830949772`, 0.11761666930713637`}}], PolygonBox[{{0.11117147357315599`, 0.1485992964332372}, { 0.11231612123372162`, 0.1447600065162258}, {0.11535408869620528`, 0.13572755274553927`}, {0.1174333728370254, 0.13048746601540423`}, { 0.11966978258132038`, 0.1253932526637532}, {0.12212038167908437`, 0.1209363841966236}, {0.12461407830949772`, 0.11761666930713637`}, { 0.1274813410372773, 0.1151553601048145}, {0.13166806501149322`, 0.11245482967736083`}, {0.13672539823549046`, 0.10968378962903583`}, {0.1420129512672659, 0.10697980136630143`}, { 0.15133789992898075`, 0.10268062712347181`}, {0.1553718985176644, 0.1009354914312657}, {0.043994672670359204`, 0.04285528615956288}, { 0.11117147357315599`, 0.1485992964332372}}]}, { LineBox[{{2.540972189923902, 1.2586371016539624`}, {2.012505145159887, 0.7655909667944795}}], PolygonBox[{{1.998968967142603, 0.796532826635428}, { 2.0001252125507323`, 0.7926970135677872}, {2.003190463722332, 0.7836737822908164}, {2.0052855747842147`, 0.7784400034345806}, { 2.0075373698783223`, 0.7733525721504579}, {2.010001427185137, 0.7689031301562312}, {2.012505145159887, 0.7655909667944794}, { 2.015379833280767, 0.7631383341788559}, {2.019574699588892, 0.7604504690626651}, {2.0246403842627796`, 0.7576947257740573}, { 2.0299360850514008`, 0.7550067297275127}, {2.0392739839504195`, 0.7507357566691178}, {2.0433132382081305`, 0.7490028203635148}, { 1.932112049067209, 0.6905862797650699}, {1.998968967142603, 0.796532826635428}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.6983044011856004, 0.6496211128597889}, 0.06], DiskBox[{1.8882408753775204, 0.6496556052154222}, 0.06], DiskBox[{0.0006226791772241494, 1.2976452035391328}, 0.06], DiskBox[{2.585227369247692, 0.}, 0.06], DiskBox[{0., 0.002057384539161517}, 0.06], DiskBox[{2.5848433636135906, 1.29956777620361}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {417.35292620386133`}}]}], "}"}]], "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[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", "3"}], "|>"}], ",", "\"\\""}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{{{ {Hue[0.08, 0, 0.42], AbsoluteDashing[{1, 2}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQB2IQXbxYYk2m+dr9976EHcn6M8m+p9frqdqPjfuVF/3x 3BE13X7r1JdLjAr27z/dVXG+oWiFfXN57vRt2Uf3L/x+6uTaS1vtJRWMYpi3 n9y/X/202n6Gg/b2HPHNRwLP7FcqUa9O+nPcPl9OeLOWwNn9Yb/uxZxOO2+f 7m3tsPnp6f17JF81zEu8bP9Ln2fer6cn9tstUTv66dQ1e4nCH7VFzkf2i+wo SGDYdtPegunCTKUZe/bb823y2Pjxtv36lkDL0xPW7p95JVO/NOKuvXeUwTmD NTP2rLm8L3rnpbv2MyHy9rOg8uYQ/fYw/XwQ8+0loOZ/h9hv7wC1PwXiPvu9 UPflQtxvHwF1vy3Ef/aKUP9JQPxvfwjqf2j42C+Ghs/n7p237EoP2bt4pdpv u7rBHgDNrb77 "]], PolygonBox[{{0.1401438965025222, 0.09651776884519593}, { 0.1402846173460453, 0.09287671082118723}, {0.14091964690959996`, 0.08423264674788168}, {0.1415671828803716, 0.07914627344103949}, { 0.1423861124579182, 0.07415290144417011}, {0.14353778297311665`, 0.06967261377254426}, {0.14498442405272577`, 0.06618440265554068}, { 0.1469541756234286, 0.06336800750121419}, {0.15003228941469088`, 0.06004265706433676}, {0.15386146257496047`, 0.056458426698097586`}, {0.15790861027755734`, 0.05288123724779378}, {0.16515212874264734`, 0.04698623968664919}, { 0.16831161739566936`, 0.04453709567058456}, {0.05706339097770908, 0.018541019662497233`}, {0.1401438965025222, 0.09651776884519593}}]}, {Hue[0.08, 0, 0.42], AbsoluteDashing[{1, 2}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQB2IQXbRYYk2m+Vr7Z1/CjmT9mbS/p9frqdqPjfa6i/54 7oiavn/L1JdLjAr221/oqjjfULRif2N57vRt2Uft538/dXLtpa37JRSMYpi3 n7Q/qH5abT/Dwf12HPHNRwLP2KuUqFcn/Tm+P09OeLOWwFn70F/3Yk6nnd+f 6m3tsPnpafu9kq8a5iVe3v9Dn2fer6cn7B2WqB39dOrafrHCH7VFzkfsRXYU JDBsu7nfmunCTKUZe+zt+TZ5bPx4e//2lkDL0xPW2s+8kqlfGnF3v5GNgsnp ogabNZf3Re+8dHf/eoj8fpg8VP9+O6h+IYj5+8Wg5n+D2L8fZj/Uffth7oO6 f3841P1Q/+1XhPoP6v/9MP83Q8Jn/0Jo+Hzp3nnLrvTQfhevVPttVzfsBwBh pMiV "]], PolygonBox[{{-0.1401438965025222, -0.09651776884519593}, \ {-0.1402846173460453, -0.09287671082118722}, {-0.1409196469096, \ -0.08423264674788167}, {-0.14156718288037162`, -0.07914627344103947}, \ {-0.14238611245791824`, -0.0741529014441701}, {-0.14353778297311665`, \ -0.06967261377254425}, {-0.1449844240527258, -0.06618440265554067}, \ {-0.1469541756234286, -0.06336800750121417}, {-0.1500322894146909, \ -0.060042657064336744`}, {-0.15386146257496047`, -0.05645842669809756}, \ {-0.15790861027755737`, -0.052881237247793755`}, {-0.16515212874264731`, \ -0.04698623968664917}, {-0.16831161739566936`, -0.044537095670584545`}, \ {-0.05706339097770908, -0.01854101966249724}, {-0.1401438965025222, \ -0.09651776884519593}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0., 0.}, 0.06]}}, {}}, ImageSizeRaw->{{114.43615919986752`}, {274.00010650819667`}}], ",", GraphicsBox[{{{ {Hue[0.02, 0.94, 0.83], Thickness[Large], AbsoluteDashing[{1, 3}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQB2IQvbesetH/n6/tJ/8IO5L1Z5K95/rJCYV9r+2nLP3j uSNqur3zufkv8u+/tM/tqTjfULTCXmJx4vSOohf2mT9OnVx7aav9hwqDtK3x z+3VNU6r7Wc4aP/ULlWGdecz+84S9eqkP8ftIywrJmR3PrPf++tezOm08/bS enq5nFee2X+WfNUwL/Gy/dcvO6d+n/zcvnyJ2tFPp67Zr3uyb+7MPS/sfXYU JDBsu2m/ioH5VaHVK/tyvk0eGz/etl/xYnln5pfX9levZOqXRty1/8Jga1t2 9q39i8v7ondeumvvIHnpQ9Oy93D5+Q3WHrYbPthXQPXP64vN08z/aO8HNb+S LaGoivmTfTXU/ucvl7YVJn+y/wp1n8cThtIDHZ/s90Pd35TItf5zwSf7CVD/ 1RxR6Zot+8leC+r/TP2ej4ZTPtpXQMPnx8avP5NMP9rreKfab7u6wR4ACt3I ZA== "]], PolygonBox[{{1.0714746914149047`, 0.09651776884519919}, { 1.0716154122584278`, 0.09287671082119049}, {1.0722504418219825`, 0.08423264674788494}, {1.072897977792754, 0.07914627344104275}, { 1.0737169073703008`, 0.07415290144417337}, {1.0748685778854992`, 0.0696726137725475}, {1.0763152189651084`, 0.06618440265554394}, { 1.078284970535811, 0.06336800750121745}, {1.0813630843270734`, 0.060042657064340005`}, {1.085192257487343, 0.05645842669810083}, { 1.08923940518994, 0.052881237247797044`}, {1.09648292365503, 0.04698623968665244}, {1.099642412308052, 0.04453709567058782}, { 0.9883941858900916, 0.018541019662500487`}, {1.0714746914149047`, 0.09651776884519919}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], AbsoluteDashing[{1, 3}], LineBox[{{0.9913307949123826, 3.0767551191549*^-15}, { 1.7039458603416362`, 6.245462662246308*^-16}}], PolygonBox[{{1.693749860341636, -0.028975599999999345`}, { 1.6953608603416361`, -0.025707299999999347`}, { 1.6989208603416361`, -0.01780479999999936}, { 1.7007748603416362`, -0.013024299999999364`}, { 1.7024338603416362`, -0.00824390999999937}, { 1.7035558603416363`, -0.003756099999999374}, {1.7039458603416362`, 6.245462662246305*^-16}, {1.7035558603416363`, 0.003414660000000626}, {1.7024338603416362`, 0.00780486000000063}, { 1.7007748603416364`, 0.012780500000000637`}, {1.6989208603416364`, 0.01785380000000064}, {1.6953608603416364`, 0.026487800000000658`}, { 1.6937498603416363`, 0.030146400000000663`}, {1.8039458603416363`, 2.8043217547731445`*^-16}, { 1.693749860341636, -0.028975599999999345`}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[{{0.06, 2.1151820115078453`*^-16}, {0.7713307949123825, 2.7191750372011975`*^-15}}], PolygonBox[{{0.7611347949123826, -0.028975599999997322`}, { 0.7627457949123826, -0.025707299999997314`}, { 0.7663057949123826, -0.017804799999997303`}, { 0.7681597949123826, -0.013024299999997293`}, { 0.7698187949123826, -0.008243909999997285}, { 0.7709407949123825, -0.003756099999997282}, {0.7713307949123825, 2.7191750372011975`*^-15}, {0.7709407949123825, 0.003414660000002718}, {0.7698187949123825, 0.007804860000002713}, { 0.7681597949123825, 0.012780500000002708`}, {0.7663057949123825, 0.0178538000000027}, {0.7627457949123824, 0.02648780000000269}, { 0.7611347949123823, 0.030146400000002686`}, {0.8713307949123825, 3.071705372452505*^-15}, { 0.7611347949123826, -0.028975599999997322`}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.9313307949123826, 3.2832235736032897*^-15}, 0.06], DiskBox[{1.8639458603416363, 7.39637210289247*^-17}, 0.06], DiskBox[{0., 0.}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {154.64005325409934`}}], ",", GraphicsBox[{{{ {Hue[0.08, 0, 0.42], AbsoluteDashing[{1, 2}], LineBox[{{2.649782751885361, 1.4324195107533533`}, {2.172023783726701, 0.8700383802484202}}], PolygonBox[{{2.1547299279588916`, 0.8996747248976841}, { 2.156347217100425, 0.8959394791470507}, {2.160500181069841, 0.8871933714049489}, {2.1632291134357553`, 0.8821575771578422}, { 2.1660989827330828`, 0.8772878728217407}, {2.1691081449062284`, 0.8730869391901851}, {2.172023783726701, 0.8700383802484202}, { 2.175212864984851, 0.8679008036542335}, {2.17976186483431, 0.8656808609561486}, {2.1851976468526932`, 0.8634946752788051}, { 2.190857600840629, 0.8614038689502184}, {2.200782740667763, 0.8581902220372679}, {2.2050625650138667`, 0.8569157000305112}, { 2.0997004102495302`, 0.7849048647127901}, {2.1547299279588916`, 0.8996747248976841}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], AbsoluteDashing[{1, 3}], LineBox[{{2.0008540153730405`, 0.7391802053067779}, { 1.1215996723337855`, 0.7392143563249437}}], PolygonBox[{{1.1329905441875274`, 0.7715815991778558}, { 1.1311908075198707`, 0.767930759149583}, {1.1272137062905736`, 0.7591032920055125}, {1.1251424567419288`, 0.7537632338724801}, { 1.123289035254109, 0.7484232901561779}, {1.1220354914150719`, 0.7434101545900239}, {1.1215996723337855`, 0.7392143563249437}, { 1.1220351802910633`, 0.7353999355581371}, {1.1232883389321495`, 0.7304957395349921}, {1.1251413371266001`, 0.7249375445349437}, { 1.1272121591398436`, 0.7192702483155217}, {1.131188542885615, 0.7096253377728762}, {1.1329879790098296`, 0.7055383667166927}, { 1.009892976922326, 0.7392186951120244}, {1.1329905441875274`, 0.7715815991778558}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[{{2.0996791756755258`, 0.693432854097532}, { 2.5771072736348795`, 0.13091210582342552`}}], PolygonBox[{{2.5450595394679607`, 0.11865106564511038`}, { 2.5490075479620957`, 0.11964147662807828`}, {2.558311181542504, 0.12232175880897342`}, {2.563722736426792, 0.12419828999476998`}, { 2.5689932441404384`, 0.12624081748422458`}, {2.573626405778969, 0.12852920416314823`}, {2.5771072736348795`, 0.1309121058234256}, { 2.5797335330481457`, 0.13371250480595057`}, {2.582661513738605, 0.13784148461813883`}, {2.5856999323942564`, 0.14285099018657474`}, { 2.5886805717383368`, 0.14809716396845884`}, {2.5934605931800943`, 0.15737009889142728`}, {2.5954120235014906`, 0.16138671718047903`}, { 2.649391113043845, 0.04574502075605597}, {2.5450595394679607`, 0.11865106564511038`}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[{{0.05999999999877779, 0.7392153455473577}, { 0.7781862814753613, 0.7392199295939889}}], PolygonBox[{{0.7667968733996371, 0.7068521716368429}, { 0.7685964449609718, 0.7105030930521273}, {0.7725731469755064, 0.7193307400463902}, {0.7746441550248645, 0.724670891843523}, { 0.7764973350187948, 0.7300109193729355}, {0.7777506521440283, 0.7350241116238493}, {0.7781862814753613, 0.7392199295939889}, { 0.7777506010163215, 0.7430343306616151}, {0.776497220590644, 0.747938470007279}, {0.7746439710359642, 0.7534965812022155}, { 0.7725728927287536, 0.7591637837656159}, {0.7685960728085407, 0.7688085144716267}, {0.7667964518582274, 0.7728954041464776}, { 0.8898929769688066, 0.73922064259661}, {0.7667968733996371, 0.7068521716368429}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{2.060854015327782, 0.739177874853588}, 0.06], DiskBox[{0.9498929769675845, 0.7392210255652143}, 0.06], DiskBox[{2.6886291468071093, 1.4781465006125554}, 0.06], DiskBox[{2.6882162733915886, 0.}, 0.06], DiskBox[{0., 0.7392149625787533}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {420}}], ",", GraphicsBox[{{{ {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.6543423463505913, 0.6904541599501499}, { 0.12514436808496285`, 1.1819863698921698`}}], PolygonBox[{{0.1550394489845131, 1.1976997700252365`}, { 0.15129610209757202`, 1.1962722829262642`}, {0.14251507134194738`, 1.192569855845082}, {0.1374444489999006, 1.1901059726209944`}, { 0.13253100025266087`, 1.187496267728719}, {0.128269082026699, 1.1847204497400048`}, {0.12514436808496285`, 1.1819863698921698`}, { 0.12290350445461282`, 1.178943711723771}, {0.12052238186750092`, 1.174567437343545}, {0.11813580443054258`, 1.1693177201677947`}, { 0.1158332434168749, 1.1638434181696236`}, {0.11224070797856706`, 1.154224101362369}, {0.11080094745651889`, 1.1500713031687573`}, { 0.04458473401223329, 1.2568121564487718`}, {0.1550394489845131, 1.1976997700252365`}}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{2.5413368883682175`, 0.04090997052270337}, { 2.012559832409818, 0.5337788874011292}}], PolygonBox[{{2.0424823846665814`, 0.5494399113834161}, { 2.0387365437140286`, 0.5480189817961809}, {2.02994904275827, 0.5443319376717847}, {2.0248741134561223`, 0.5418769378640851}, { 2.0199561021458945`, 0.5392758413704906}, {2.0156893294618334`, 0.5365074910794683}, {2.012559832409818, 0.5337788874011292}, { 2.010313643933747, 0.5307401580828921}, {2.007924861296586, 0.5263680602182192}, {2.005529094251022, 0.5211225304498014}, { 2.0032169502085515`, 0.5156522690743541}, {1.999607574998436, 0.5060392582397388}, {1.998160544332848, 0.5018889877123441}, { 1.932131356256995, 0.6087456346927188}, {2.0424823846665814`, 0.5494399113834161}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[{{0.7583044011603935, 0.6496228520630001}, { 1.7182920101717076`, 0.6496506789552182}}], PolygonBox[{{1.707082547341639, 0.6177920106090079}, { 1.708853719397927, 0.6213855207148414}, {1.7127676471429725`, 0.6300743432489517}, {1.714805946747096, 0.6353305078393573}, { 1.7166298460675247`, 0.6405865452712499}, {1.7178633293063543`, 0.6455208771987536}, {1.7182920101717076`, 0.6496506789552182}, { 1.7178631007701464`, 0.6534050464471934}, {1.7166293345840782`, 0.6582319857697863}, {1.714805124333413, 0.6637025926144915}, { 1.7127665106830676`, 0.6692805693062202}, {1.7088520559103424`, 0.6787734408710374}, {1.7070806630898037`, 0.6827959787108914}, { 1.8282408754027273`, 0.649653866012211}, {1.707082547341639, 0.6177920106090079}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[{{0.6543097285152413, 0.6088232112393874}, { 0.12461407830949772`, 0.11761666930713637`}}], PolygonBox[{{0.11117147357315599`, 0.1485992964332372}, { 0.11231612123372162`, 0.1447600065162258}, {0.11535408869620528`, 0.13572755274553927`}, {0.1174333728370254, 0.13048746601540423`}, { 0.11966978258132038`, 0.1253932526637532}, {0.12212038167908437`, 0.1209363841966236}, {0.12461407830949772`, 0.11761666930713637`}, { 0.1274813410372773, 0.1151553601048145}, {0.13166806501149322`, 0.11245482967736083`}, {0.13672539823549046`, 0.10968378962903583`}, {0.1420129512672659, 0.10697980136630143`}, { 0.15133789992898075`, 0.10268062712347181`}, {0.1553718985176644, 0.1009354914312657}, {0.043994672670359204`, 0.04285528615956288}, { 0.11117147357315599`, 0.1485992964332372}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[{{2.540972189923902, 1.2586371016539624`}, {2.012505145159887, 0.7655909667944795}}], PolygonBox[{{1.998968967142603, 0.796532826635428}, { 2.0001252125507323`, 0.7926970135677872}, {2.003190463722332, 0.7836737822908164}, {2.0052855747842147`, 0.7784400034345806}, { 2.0075373698783223`, 0.7733525721504579}, {2.010001427185137, 0.7689031301562312}, {2.012505145159887, 0.7655909667944794}, { 2.015379833280767, 0.7631383341788559}, {2.019574699588892, 0.7604504690626651}, {2.0246403842627796`, 0.7576947257740573}, { 2.0299360850514008`, 0.7550067297275127}, {2.0392739839504195`, 0.7507357566691178}, {2.0433132382081305`, 0.7490028203635148}, { 1.932112049067209, 0.6905862797650699}, {1.998968967142603, 0.796532826635428}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.6983044011856004, 0.6496211128597889}, 0.06], DiskBox[{1.8882408753775204, 0.6496556052154222}, 0.06], DiskBox[{0.0006226791772241494, 1.2976452035391328}, 0.06], DiskBox[{2.585227369247692, 0.}, 0.06], DiskBox[{0., 0.002057384539161517}, 0.06], DiskBox[{2.5848433636135906, 1.29956777620361}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {417.35292620386133`}}]}], "}"}]], "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[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", "3", ",", 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., 1.0986122886681098`}, {3., 1.6094379124341003`}, {4., 1.791759469228055}}]}, { Directive[ PointSize[0.012833333333333334`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[{{1., 0.6931471805599453}, {2., 1.0986122886681098`}, {3., 1.3862943611198906`}, {4., 1.6094379124341003`}}]}}, {{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.012833333333333334`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, {}, {}, {}}, {{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.012833333333333334`], RGBColor[0.880722, 0.611041, 0.142051], 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., -0.1402153467556005}, 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., 4.}, {-0.1402153467556005, 1.791759469228055}}, 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)], #}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], 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)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", 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[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], 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.880722, 0.611041, 0.142051]; 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.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", "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["Symbolic expression for edge count:", "Text", CellGroupingRules->{"GroupTogetherGrouping", 10003.}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{"edgeCountList", ",", "t"}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10003.}], Cell[BoxData[ RowBox[{"1", "+", "t"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Result after ", Cell[BoxData[ FormBox["3", 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["3680", "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}, {2, 3}} -> {{2, 3}, {2, 4}, {5, 3}}}, {{1, 1}, {1, 1}}, 3], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[BoxData[ GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{0.6543423463505913, 0.6904541599501499}, { 0.12514436808496285`, 1.1819863698921698`}}], PolygonBox[{{0.1550394489845131, 1.1976997700252365`}, { 0.15129610209757202`, 1.1962722829262642`}, {0.14251507134194738`, 1.192569855845082}, {0.1374444489999006, 1.1901059726209944`}, { 0.13253100025266087`, 1.187496267728719}, {0.128269082026699, 1.1847204497400048`}, {0.12514436808496285`, 1.1819863698921698`}, { 0.12290350445461282`, 1.178943711723771}, {0.12052238186750092`, 1.174567437343545}, {0.11813580443054258`, 1.1693177201677947`}, { 0.1158332434168749, 1.1638434181696236`}, {0.11224070797856706`, 1.154224101362369}, {0.11080094745651889`, 1.1500713031687573`}, { 0.04458473401223329, 1.2568121564487718`}, {0.1550394489845131, 1.1976997700252365`}}]}, { LineBox[{{2.5413368883682175`, 0.04090997052270337}, {2.012559832409818, 0.5337788874011292}}], PolygonBox[{{2.0424823846665814`, 0.5494399113834161}, { 2.0387365437140286`, 0.5480189817961809}, {2.02994904275827, 0.5443319376717847}, {2.0248741134561223`, 0.5418769378640851}, { 2.0199561021458945`, 0.5392758413704906}, {2.0156893294618334`, 0.5365074910794683}, {2.012559832409818, 0.5337788874011292}, { 2.010313643933747, 0.5307401580828921}, {2.007924861296586, 0.5263680602182192}, {2.005529094251022, 0.5211225304498014}, { 2.0032169502085515`, 0.5156522690743541}, {1.999607574998436, 0.5060392582397388}, {1.998160544332848, 0.5018889877123441}, { 1.932131356256995, 0.6087456346927188}, {2.0424823846665814`, 0.5494399113834161}}]}, { LineBox[{{0.7583044011603935, 0.6496228520630001}, {1.7182920101717076`, 0.6496506789552182}}], PolygonBox[{{1.707082547341639, 0.6177920106090079}, {1.708853719397927, 0.6213855207148414}, {1.7127676471429725`, 0.6300743432489517}, { 1.714805946747096, 0.6353305078393573}, {1.7166298460675247`, 0.6405865452712499}, {1.7178633293063543`, 0.6455208771987536}, { 1.7182920101717076`, 0.6496506789552182}, {1.7178631007701464`, 0.6534050464471934}, {1.7166293345840782`, 0.6582319857697863}, { 1.714805124333413, 0.6637025926144915}, {1.7127665106830676`, 0.6692805693062202}, {1.7088520559103424`, 0.6787734408710374}, { 1.7070806630898037`, 0.6827959787108914}, {1.8282408754027273`, 0.649653866012211}, {1.707082547341639, 0.6177920106090079}}]}, { LineBox[{{0.6543097285152413, 0.6088232112393874}, { 0.12461407830949772`, 0.11761666930713637`}}], PolygonBox[{{0.11117147357315599`, 0.1485992964332372}, { 0.11231612123372162`, 0.1447600065162258}, {0.11535408869620528`, 0.13572755274553927`}, {0.1174333728370254, 0.13048746601540423`}, { 0.11966978258132038`, 0.1253932526637532}, {0.12212038167908437`, 0.1209363841966236}, {0.12461407830949772`, 0.11761666930713637`}, { 0.1274813410372773, 0.1151553601048145}, {0.13166806501149322`, 0.11245482967736083`}, {0.13672539823549046`, 0.10968378962903583`}, { 0.1420129512672659, 0.10697980136630143`}, {0.15133789992898075`, 0.10268062712347181`}, {0.1553718985176644, 0.1009354914312657}, { 0.043994672670359204`, 0.04285528615956288}, {0.11117147357315599`, 0.1485992964332372}}]}, { LineBox[{{2.540972189923902, 1.2586371016539624`}, {2.012505145159887, 0.7655909667944795}}], PolygonBox[{{1.998968967142603, 0.796532826635428}, { 2.0001252125507323`, 0.7926970135677872}, {2.003190463722332, 0.7836737822908164}, {2.0052855747842147`, 0.7784400034345806}, { 2.0075373698783223`, 0.7733525721504579}, {2.010001427185137, 0.7689031301562312}, {2.012505145159887, 0.7655909667944794}, { 2.015379833280767, 0.7631383341788559}, {2.019574699588892, 0.7604504690626651}, {2.0246403842627796`, 0.7576947257740573}, { 2.0299360850514008`, 0.7550067297275127}, {2.0392739839504195`, 0.7507357566691178}, {2.0433132382081305`, 0.7490028203635148}, { 1.932112049067209, 0.6905862797650699}, {1.998968967142603, 0.796532826635428}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.6983044011856004, 0.6496211128597889}, 0.06], DiskBox[{1.8882408753775204, 0.6496556052154222}, 0.06], DiskBox[{0.0006226791772241494, 1.2976452035391328}, 0.06], DiskBox[{2.585227369247692, 0.}, 0.06], DiskBox[{0., 0.002057384539161517}, 0.06], DiskBox[{2.5848433636135906, 1.29956777620361}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {417.35292620386133`}}]], "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["3680", "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}, {2, 3}} -> {{2, 3}, {2, 4}, {5, 3}}}, {{1, 1}, {1, 1}}, 3], 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, 2, 3}, {{{1, 2}, {1, 2}, {1, 3}, {2, 3}}, Null}, { 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[CompressedData[" 1:eJwBQQK+/SFib1JlAgAAACMAAAACAAAA+Pnt1ZLN3z8AAAAAAAAAAGyThbLy /+8/RJ5QAeWn6z8AAAAAAAAAAArmwxH6xOs/eWUW8FSU4D/O+jEHmyC8P3TQ X4euxeA/h5K+slOawT8WhstU3QHhP2TIBBTQGcU/RKhEtr1I4T/93hR0sIzI PxnQ17QlmuE/QfLVFurwyz92wYsd5fXhP+Re7ex6RM8/ZhjrncVb4j9dJQ5i tULRP48KLuSKy+I/pQ3jOObY0j+7RprNATzpP7lfK1BofOQ/7G1drGm16T9w n3Xx5EHlP5Z20EEsOOo/CXL72lAB5j8Bf0Ui/MPqP/J6brY6uuY/e/QHhoZY 6z+bDvEHNWznP2bKX3pz9es/1PnobtYW6D8zBqQVZprsPyjaY+S5ueg/j8s9 rvxG7T9CFuj2flTpP9zEPm+/n+I/MEBEUzCbsj83itgHVkzjPwAhZudYcbc/ BcYco0jx4z+cIz2TdIi8P/CbdJc1juQ/sj5+5b/uwD9pETf7vyLlP1yNiCup tsM/1Rms24+u5T/+sFSZUJrGP34iH3FSMeY/ZPtrPwCYyT+vSeJPuqrmPz76 lMTyrcw/24VOOTEb7T92F9/kcTviPwJ4kX/2iu0/mYtJUIoG4z/0zvD/1vDt P49GFUbG1uM/UsCkaJZM7j+4IZt7qqvkPyToN2f+ne4/iWZL5LiE5T9SCrHI 3uTuPzBsT/xwYeY/9L8clg0h7z+m+aAUUEHnP/AqZi1nUu8/8F5qoNEj6D/E NCB4 "], { {Hue[0, 1, 0.56], Opacity[0.7], Arrowheads[Medium], ArrowBox[BezierCurveBox[{ 1, {0.6063408523521691, 0.5148479138867703}, 2}], 0.012729919251096004`], ArrowBox[BezierCurveBox[{ 1, {0.8905750198316051, 0.3493970264591786}, 2}], 0.012729919251096004`], ArrowBox[{1, 3}, 0.012729919251096004`], ArrowBox[{2, 3}, 0.012729919251096004`]}, {Hue[0.11, 1, 0.97], EdgeForm[{Hue[0.11, 1, 0.97], Opacity[1]}], DiskBox[1, 0.012729919251096004], DiskBox[2, 0.012729919251096004], DiskBox[3, 0.012729919251096004]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "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["3680", "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}, {2, 3}} -> {{2, 3}, {2, 4}, {5, 3}}}, {{1, 1}, {1, 1}}, 3], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = Graph[{1, 2, 3}, {{{1, 2}, {1, 2}, {1, 3}, {2, 3}}, Null}, { EdgeStyle -> { Hue[0, 1, 0.56]}, GraphLayout -> { "Dimension" -> 2, "VertexLayout" -> { "LayeredDigraphEmbedding", "VertexLayerPosition" -> {2, 1, 0}}}, VertexStyle -> { Directive[ Hue[0.11, 1, 0.97], EdgeForm[{ Hue[0.11, 1, 0.97], Opacity[1]}]]}}]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxl0w1IE2Ecx/GzN43KwvIlK0ONTAsK1Ilh+0kQKcy33MRGVpOZgZZkhWED 6cWFb/kyqQQpy0Ihyy0i0qwHlaUrXVC2lZVOl6LOOd2WmW4zrXnh9Yfj4Xt3 3D0fjvNOzjiUsoSiKPbcMb8yJnxxjmPx+v/5de18Pxf9PZStvJubGmNDeFZj m1pQg6oCTc/mPivCH/nqKnc+hFp/zDPsjBXHL7cl+0Y8xo0OxXlHyor2ILFC wZdiafWyqeYiCxJLhHJ2qAwv4q9E1ntaIOUXj42+ksF3Fatwfc0MxuOee+Xq ZAj8M/9a2TE/Zvr+HrPi7GiimX7egTrRs9gBE/0+25EZR3amCbH2/aQFsvKn Zo3YY99vgEvVQOv1ubZ7BOe2emu9jKDs3tOTR7NvSScW/IThJww/YfgJw08Y fsLwE4afMPyE4ScMP2H4CcNPGH7C8BOGnyz4K9aEBFe31KLsYMLgSOgsvOrr 4rtbG+EcLOe3xNuQ3VTh2imRI7OdkySOsmKH8WZJxGslmhz0epafBRzRyc56 URf0mgeruzTT+J7q45nn1g3HE1kNSdm/YPgW5p7ooYFTqcD8wfQTW8JCcstS tDAKhC9ZUZO4GE2pTcZBtHzK2SAWz3klPFd8HkJK/rbo7TkmKK/yOFzxCHqL XPbp04zo96FEgdM67NZG9nVzJlB8inf/a5Ae3Pw3ew3e41AJefIY1hjurPCX cFV6NDhRvYW2MeyvjNnkEacD6zBvQlJkQOlHJ2f/p0OITuBZhFoDCp9w067N DtD/xd/vo6X7tqxAjQwN3cq1BeWXar7Awd7u6c1u6c0q+vrGC43B2PWe7trU 0f4f797SXc4elrCHW+nWDKss0ogGum0BHXnOy2vxG7llzk8= "], { {Hue[0, 1, 0.56], Opacity[0.7], Arrowheads[Medium], ArrowBox[BezierCurveBox[{ 1, {0.16444074718311635`, 1.500000000000002}, 2}], 0.02261146496815286], ArrowBox[BezierCurveBox[{ 1, {-0.16444074718311635`, 1.500000000000002}, 2}], 0.02261146496815286], ArrowBox[BezierCurveBox[{1, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 3}], 0.02261146496815286], ArrowBox[{2, 3}, 0.02261146496815286]}, {Hue[0.11, 1, 0.97], EdgeForm[{Hue[0.11, 1, 0.97], Opacity[1]}], DiskBox[1, 0.02261146496815286], DiskBox[2, 0.02261146496815286], DiskBox[3, 0.02261146496815286]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "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["3680", "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}, {2, 3}} -> {{2, 3}, {2, 4}, {5, 3}}}, {{1, 1}, {1, 1}}, 3], 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[{{{1., 0.42, 0.}, {1., 0.42, 0.}, {1., 1., 1.}}, {{1., 0.42, 0.}, {1., 1., 1.}, {0.5, 0., 0.}}, {{1., 1., 1.}, {0.5, 0., 0.}, {0.5, 0., 0.}}}, {{0, 0}, {3, 3}}, {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["3680", "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}, {2, 3}} -> {{2, 3}, {2, 4}, {5, 3}}}, {{1, 1}, {1, 1}}, 3], 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[CompressedData[" 1:eJxTTMoPSmVmYGBgg2IQGwI+2FOLflglss794S17BhQwcOYMlL+GSjgMFXcO lH9xqSfWHABQJZWQ "], {{0, 0}, {6, 6}}, {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["3680", "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}, {2, 3}} -> {{2, 3}, {2, 4}, {5, 3}}}, {{1, 1}, {1, 1}}, 3], 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.6719999999999999], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6719999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {2., 4.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{12.007005604483586`, 93.93214571657326}, {-56.74999999999999, 41.251789247988036`}}], "DelayedMouseEffectStyle"], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {4., 2.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{93.43214571657326, 175.35728582866295`}, {-7.9991053760059785`, 41.251789247988036`}}], "DelayedMouseEffectStyle"], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-0.08, 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., 4.}, {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["3680", "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}, {2, 3}} -> {{2, 3}, {2, 4}, {5, 3}}}, {{1, 1}, {1, 1}}, 3], 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], StyleBox[{{}, { LineBox[{{0.6931471805599453, 0.808718726145287}, { 0.6931471805599453, 0.9808292530117262}}], LineBox[{{0.6931471805599453, 0.9808292530117262}, { 0.6931471805599453, 1.1276219718938756`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{1.0986122886681098`, 1.4457488033221724`}, { 1.0986122886681098`, 1.540445040947149}}], LineBox[{{1.0986122886681098`, 1.540445040947149}, { 1.0986122886681098`, 1.626944511367947}}]}}, Antialiasing->False]}}, { {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[NCache[{{{Log[2], 1.1276219718938756`}, Offset[{3, 0}, {Log[2], 1.1276219718938756`}]}, {{ Log[2], 1.1276219718938756`}, Offset[{-3, 0}, {Log[2], 1.1276219718938756`}]}, {{ Log[2], 0.808718726145287}, Offset[{3, 0}, {Log[2], 0.808718726145287}]}, {{ Log[2], 0.808718726145287}, Offset[{-3, 0}, {Log[2], 0.808718726145287}]}}, {{{ 0.6931471805599453, 1.1276219718938756`}, Offset[{3, 0}, {0.6931471805599453, 1.1276219718938756`}]}, {{ 0.6931471805599453, 1.1276219718938756`}, Offset[{-3, 0}, {0.6931471805599453, 1.1276219718938756`}]}, {{ 0.6931471805599453, 0.808718726145287}, Offset[{3, 0}, {0.6931471805599453, 0.808718726145287}]}, {{ 0.6931471805599453, 0.808718726145287}, Offset[{-3, 0}, {0.6931471805599453, 0.808718726145287}]}}]], {{{ 1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[NCache[{{{Log[3], 1.626944511367947}, Offset[{3, 0}, {Log[3], 1.626944511367947}]}, {{ Log[3], 1.626944511367947}, Offset[{-3, 0}, {Log[3], 1.626944511367947}]}, {{ Log[3], 1.4457488033221724`}, Offset[{3, 0}, {Log[3], 1.4457488033221724`}]}, {{ Log[3], 1.4457488033221724`}, Offset[{-3, 0}, {Log[3], 1.4457488033221724`}]}}, {{{ 1.0986122886681098`, 1.626944511367947}, Offset[{3, 0}, {1.0986122886681098`, 1.626944511367947}]}, {{ 1.0986122886681098`, 1.626944511367947}, Offset[{-3, 0}, {1.0986122886681098`, 1.626944511367947}]}, {{ 1.0986122886681098`, 1.4457488033221724`}, Offset[{3, 0}, {1.0986122886681098`, 1.4457488033221724`}]}, {{ 1.0986122886681098`, 1.4457488033221724`}, Offset[{-3, 0}, {1.0986122886681098`, 1.4457488033221724`}]}}]], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0., 0.}, {0.6931471805599453, 0.9808292530117262}, { 1.0986122886681098`, 1.540445040947149}}]}, { {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->{-0.04625234027812789, -0.12731764097323842`}, 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->{{-0.04625234027812789, 1.0986122886681098`}, {-0.12731764097323842`, 1.626944511367947}}, 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., FormBox[ TagBox[ InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { 0.4054651081081644, FormBox[ TagBox[ InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { 0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { 0.9162907318741551, FormBox[ TagBox[ InterpretationBox["\"2.5\"", 2.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { 1.0986122886681098`, FormBox[ TagBox[ InterpretationBox["\"3.0\"", 3., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {-0.6931471805599453, 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.09531017980432493, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.1823215567939546, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.26236426446749106`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.3364722366212129, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.47000362924573563`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.5306282510621704, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.5877866649021191, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.6418538861723947, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.7419373447293773, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.7884573603642703, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.8329091229351039, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.8754687373538999, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.9555114450274363, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.9932517730102834, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.0296194171811581`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.0647107369924282`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.1314021114911006`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.1631508098056809`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.1939224684724346`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.2237754316221157`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.252762968495368, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{ 0., FormBox["1", TraditionalForm], {0.01, 0.}}, {0.6931471805599453, FormBox["2", TraditionalForm], {0.01, 0.}}, {1.0986122886681098`, FormBox["3", TraditionalForm], {0.01, 0.}}, {1.3862943611198906`, FormBox["4", TraditionalForm], {0.01, 0.}}, {1.6094379124341003`, FormBox["5", TraditionalForm], {0.01, 0.}}, {-1.6094379124341003`, 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.2231435513142097, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.1823215567939546, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.3364722366212129, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.47000362924573563`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.5877866649021191, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.7884573603642703, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.8754687373538999, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 0.9555114450274363, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.0296194171811581`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.1631508098056809`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.2237754316221157`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.2809338454620642`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.33500106673234, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.4350845252893227`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.4816045409242156`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5260563034950492`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.5686159179138452`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.6486586255873816`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.6863989535702288`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.7227665977411035`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.7578579175523736`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.791759469228055, 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[{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{1., 1.1869273843669}, {1., 1.4150374992788437`}}], LineBox[{{1., 1.4150374992788437`}, {1., 1.6431476141907875`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{2., 0.9310491596321167}, {2., 1.3801823553856478`}}], LineBox[{{2., 1.3801823553856478`}, {2., 1.829315551139179}}]}}, Antialiasing->False]}}, { {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{1., 1.6431476141907875`}, Offset[{3, 0}, {1., 1.6431476141907875`}]}, {{1., 1.6431476141907875`}, Offset[{-3, 0}, {1., 1.6431476141907875`}]}, {{1., 1.1869273843669}, Offset[{3, 0}, {1., 1.1869273843669}]}, {{1., 1.1869273843669}, Offset[{-3, 0}, {1., 1.1869273843669}]}}], {{{ 1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{2., 1.829315551139179}, Offset[{3, 0}, {2., 1.829315551139179}]}, {{2., 1.829315551139179}, Offset[{-3, 0}, {2., 1.829315551139179}]}, {{ 2., 0.9310491596321167}, Offset[{3, 0}, {2., 0.9310491596321167}]}, {{2., 0.9310491596321167}, Offset[{-3, 0}, {2., 0.9310491596321167}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], LineBox[{{1., 1.4150374992788437`}, {2., 1.3801823553856478`}, {2., 1.3801823553856478`}}]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[ 1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.9791666666666669, 1.320154052014033}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0.9791666666666669, 2.}, {1.320154052014033, 1.4673202151186375`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "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["3680", "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}, {2, 3}} -> {{2, 3}, {2, 4}, {5, 3}}}, {{1, 1}, {1, 1}}, 3], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}], ",", "4"}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = Graph[{4, 1}, {{{2, 1}}, Null}, { GraphHighlight -> {4}, GraphLayout -> {"Dimension" -> 2}, VertexCoordinates -> {{-1., 0.}, {0., 1.}}}]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[{{-1., 0.}, {0., 1.}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{0., 1.}, {-1., 0.}}, 0.01273]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], {Hue[1, 1, 0.7], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[1, 0.01273]}, DiskBox[2, 0.01273]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], ",", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = Graph[{4, 1, 2, 6}, {{{2, 1}, {2, 3}, {2, 4}}, Null}, { GraphHighlight -> {4}, GraphLayout -> {"Dimension" -> 2}, VertexCoordinates -> {{-1., 0.}, {0., 1.}, {1., 0.}, {0., 0.}}}]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{-1., 0.}, {0., 1.}, {1., 0.}, {0., 0.}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{{0., 1.}, {-1., 0.}}, {{0., 1.}, {1., 0.}}, {{0., 1.}, { 0., 0.}}}, 0.02261146496815286]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], {Hue[1, 1, 0.7], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[1, 0.02261146496815286]}, DiskBox[2, 0.02261146496815286], DiskBox[3, 0.02261146496815286], DiskBox[4, 0.02261146496815286]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], ",", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = Graph[{4, 1, 5, 2, 6, 7}, {{{2, 1}, {3, 4}, {2, 4}, {2, 5}, {6, 4}}, Null}, { GraphHighlight -> {4}, GraphLayout -> {"Dimension" -> 2}, VertexCoordinates -> {{-1., 0.}, {0., 1.}, {1., 1.}, {1., 0.}, {0., 0.}, {2., 1.}}}]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{-1., 0.}, {0., 1.}, {1., 1.}, {1., 0.}, {0., 0.}, {2., 1.}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{2, 1}, 0.030239520958083826`], ArrowBox[{2, 4}, 0.030239520958083826`], ArrowBox[{2, 5}, 0.030239520958083826`], ArrowBox[{3, 4}, 0.030239520958083826`], ArrowBox[{6, 4}, 0.030239520958083826`]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], {Hue[1, 1, 0.7], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[1, 0.030239520958083826]}, DiskBox[2, 0.030239520958083826], DiskBox[3, 0.030239520958083826], DiskBox[4, 0.030239520958083826], DiskBox[5, 0.030239520958083826], DiskBox[6, 0.030239520958083826]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], ",", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = Graph[{4, 1, 5, 2, 6, 7}, {{{2, 1}, {3, 4}, {2, 4}, {2, 5}, {6, 4}}, Null}, { GraphHighlight -> {4}, GraphLayout -> {"Dimension" -> 2}, VertexCoordinates -> {{-1., 0.}, {0., 1.}, {1., 1.}, {1., 0.}, {0., 0.}, {2., 1.}}}]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{-1., 0.}, {0., 1.}, {1., 1.}, {1., 0.}, {0., 0.}, {2., 1.}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{2, 1}, 0.030239520958083826`], ArrowBox[{2, 4}, 0.030239520958083826`], ArrowBox[{2, 5}, 0.030239520958083826`], ArrowBox[{3, 4}, 0.030239520958083826`], ArrowBox[{6, 4}, 0.030239520958083826`]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], {Hue[1, 1, 0.7], EdgeForm[{Hue[1, 1, 0.7], Opacity[1]}], DiskBox[1, 0.030239520958083826]}, DiskBox[2, 0.030239520958083826], DiskBox[3, 0.030239520958083826], DiskBox[4, 0.030239520958083826], DiskBox[5, 0.030239520958083826], DiskBox[6, 0.030239520958083826]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]}], "}"}]], "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["3680", "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}, {2, 3}} -> {{2, 3}, {2, 4}, {5, 3}}}, {{1, 1}, {1, 1}}, 3], 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[CompressedData[" 1:eJxTTMoPSmVmYGBgg2IQW/uh/JLdnm/sb0s7qPCaPrXvEVmZx8F92p7JZubz ZUve2md+aLBOe/TK3vVU3CaZd4/scalnAIMP9g+rRNa5P7wF5TMw4DIHIvsA rg4VYJpDXXdi2ovfncS7B5d6XPaSag6p4UBqOFMr3kkNZ1zm09q/5PmLeHMA 0Kka9w== "], {{0, 0}, {6, 6}}, {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.6579999999999999], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6579999999999999], 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, 6.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{17.891713370696568`, 57.66313050440354}, {-8.724800760926108, 38.800398478147784`}}], "DelayedMouseEffectStyle"], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", {}, StripOnInput -> False]], Annotation[#, Style[6, {}], "Tooltip"]& ], 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, 10.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{57.16313050440354, 96.9345476381105}, {-40.074933586975376`, 38.800398478147784`}}], "DelayedMouseEffectStyle"], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", {}, StripOnInput -> False]], Annotation[#, Style[10, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.5, 0}, {2.5, 12.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{96.4345476381105, 136.20596477181746`}, {-55.75, 38.800398478147784`}}], "DelayedMouseEffectStyle"], StatusArea[#, 12]& , TagBoxNote->"12"], StyleBox["12", {}, StripOnInput -> False]], Annotation[#, Style[12, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.5, 0}, {3.5, 8.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{135.70596477181746`, 175.47738190552445`}, {-24.39986717395074, 38.800398478147784`}}], "DelayedMouseEffectStyle"], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-0.58, 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, 3.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["3680", "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}, {2, 3}} -> {{2, 3}, {2, 4}, {5, 3}}}, {{1, 1}, {1, 1}}, 3], 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[{{{1., 1., 1.}, {1., 1., 1.}, {1., 1., 1.}}, {{1., 1., 1.}, {1., 1., 1.}, {0.8867475, 0.6747384999999999, 0.234897555}}, {{1., 1., 1.}, {1., 0.42, 0.}, {0.8867475, 0.6747384999999999, 0.234897555}}}, {{0, 0}, {3, 3}}, {0, 1}], Frame->True, FrameLabel->{None, None}, FrameTicks->{{{{2.5, FormBox["1", TraditionalForm]}, {1.5, FormBox["2", TraditionalForm]}, {0.5, FormBox["3", TraditionalForm]}}, {{2.5, FormBox["1", TraditionalForm]}, {1.5, FormBox["2", TraditionalForm]}, {0.5, FormBox["3", TraditionalForm]}}}, {{{0.5, FormBox["1", TraditionalForm]}, {1.5, FormBox["2", TraditionalForm]}, {2.5, FormBox["3", TraditionalForm]}}, {{0.5, FormBox["1", TraditionalForm]}, {1.5, FormBox["2", TraditionalForm]}, {2.5, FormBox["3", 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["3680", "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}, {2, 3}} -> {{2, 3}, {2, 4}, {5, 3}}}, {{1, 1}, {1, 1}}, 3], 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., 1.0986122886681098`}, {0., 1.0986122886681098`}}]}, { {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, -0.17194529249166357`}, 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}, {-0.17194529249166357`, 2.1972245773362196`}}, 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., FormBox["1", TraditionalForm], {0.01, 0.}}, {0.6931471805599453, FormBox["2", TraditionalForm], {0.01, 0.}}, {1.6094379124341003`, FormBox["5", TraditionalForm], {0.01, 0.}}, {2.302585092994046, FormBox["10", TraditionalForm], {0.01, 0.}}, {-0.6931471805599453, 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.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.70805020110221, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.995732273553991, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 3.4011973816621555`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 3.6888794541139363`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 3.912023005428146, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Other Evolution Orders", "Section"], Cell["Random evolutions:", "Text"], 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[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", "3"}], "|>"}], ",", "\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{0.7248895099839555, 0.7260655480860727}, { 0.1137010208952916, 0.12095500725540681`}}], PolygonBox[{{0.10056041419972295`, 0.14871952178443068`}, { 0.10171504698281367`, 0.14526352279337004`}, {0.10474511792712352`, 0.1371430685990254}, {0.10679099755951443`, 0.13244148665464028`}, { 0.10897537291902376`, 0.12787717796209236`}, {0.1113355084211729, 0.12389859994883246`}, {0.1137010208952916, 0.12095500725540681`}, { 0.1163806007748408, 0.11880283287011295`}, {0.12026671816175605`, 0.11647241838013156`}, {0.12494633941559802`, 0.11410378600464766`}, { 0.12983324390017278`, 0.11180294845092009`}, {0.13843766772439925`, 0.10817204682004605`}, {0.14215655604989708`, 0.10670557330085922`}, { 0.04263788283573435, 0.05059855475012264}, {0.10056041419972295`, 0.14871952178443068`}}]}, { LineBox[{{0.7252530279377469, 0.810857325524462}, {0.11949306064704567`, 1.4209668086273413`}}], PolygonBox[{{0.14723889057292594`, 1.4341468212633035`}, { 0.14378453437637784`, 1.43298728292527}, {0.13566839036583142`, 1.4299456858694337`}, {0.1309697178355908, 1.427893133140863}, { 0.12640851505071077`, 1.4257022797210055`}, {0.12243329189349951`, 1.4233364979376468`}, {0.11949306064704562`, 1.4209668086273413`}, { 0.11734469281409901`, 1.4182841758589662`}, {0.11501979806011138`, 1.4143947537395658`}, {0.11265781205097188`, 1.4097117742924372`}, { 0.11036391508947148`, 1.4048216080764462`}, {0.10674523340838876`, 1.396212037884445}, {0.10528404132789242`, 1.392491071254133}, { 0.04903578584380737, 1.4919299851860395`}, {0.14723889057292594`, 1.4341468212633035`}}]}, {LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAvlrm03Ee6j9e+MQz+rTpP5OUNrS5 s+8/Iom21D+67T+oWJsyemfwP9iQf4b4Xe4/qU/G34cC8T+APFRHK8buP2x3 X+TXpPE/C/BJ+LDu7j9CisEy8kfyP0iWACjs1e4/TN5brVbl8j+67u+M2Xzu P6VzcXm/dvM/k5sC8wXn7T8tCmr/YPbzP0XyQQNqGu0/mES2CyVf9D984R5X LR/sPxYv/7TerPQ/+xvzRFP/6j+l/xv2dNz0P/9qnrZUxuk/iAUmSQLs9D+X oJccq4DoPyuaMgHo2vQ/plmxJ1E75z+J30Sd1Kn0P2yuIlw+A+Y/LW3x07xa 9D/cz/LE4uTkP2KzqJ7H8PM/pSCcDajr4z8hjkMQLnDzP9/GpBB9IeM/ONL2 PhDe8j9KDDp/cI7iP4vuR/lAQPI/prPRq1444j/C14xbCp3xPyxWlL61IuI/ TO4tpO368D+VAqa1Uk7iP3HqY9VgYPA/TOVjlni54j8BPy6TGafvP7X6cyni X+M/YQSCt92v7D/0+n6JsY3lPwoY2Vc= "]], PolygonBox[{{0.921840651621, 0.6908605461184938}, {0.9186072845355768, 0.689180533267084}, {0.9110594407815631, 0.6849198806275232}, { 0.9067349012657927, 0.6821650931172895}, {0.9025675732773842, 0.6792949385937266}, {0.8990062331506015, 0.6763426210130002}, { 0.8964680275095241, 0.6735465703457906}, {0.8947605673628454, 0.6705638563529472}, {0.893065412596429, 0.6663615724075318}, { 0.8914563873398087, 0.6613695475545129}, {0.8899466859188595, 0.6561833649015799}, {0.8877035936634086, 0.6471176000064629}, { 0.8868356796649287, 0.6432153698426665}, {0.8158801308283777, 0.7327546011229484}, {0.921840651621, 0.6908605461184938}}]}, { LineBox[{{0.8097215973225504, 0.725622074308849}, {1.4149475443346942`, 0.113752920747718}}], PolygonBox[{{1.3871769729510648`, 0.10062511908914826`}, { 1.390633504034965, 0.10177815801131462`}, {1.3987553546867735`, 0.10480448387607552`}, {1.4034578795911272`, 0.10684819515067676`}, { 1.4080231951257138`, 0.10903046544139769`}, {1.4120028610952975`, 0.11138876596648736`}, {1.4149475443346942`, 0.11375292074771806`}, { 1.417100954182678, 0.1164315078645029}, {1.419433160512641, 0.12031655016472059`}, {1.4218039506493192`, 0.12499507862326706`}, { 1.4241070415603647`, 0.1298809215541706}, {1.4277419107457103`, 0.138483670068769}, {1.4292100990788559`, 0.1422018817327837}, { 1.4852712185061285`, 0.042657345280394256`}, {1.3871769729510648`, 0.10062511908914826`}}]}, { LineBox[{{1.4919441036031529`, 1.486824540187341}, {0.881123906154902, 0.8809552029594199}}], PolygonBox[{{0.8679575412883078, 0.908707511828408}, { 0.8691153805370936, 0.9052525857562652}, {0.8721529854784027, 0.8971349467848319}, {0.8742032270201381, 0.8924352653200364}, { 0.8763918368478996, 0.8878729855638261}, {0.8787556632191771, 0.8838965993297496}, {0.881123906154902, 0.8809552029594199}, { 0.8838054819714242, 0.878805515992477}, {0.8876937601721357, 0.8764787085930839}, {0.8923755773620801, 0.8741144196493333}, { 0.8972646147839264, 0.8718181178447382}, {0.905872404165748, 0.8681952021738732}, {0.9095926516908802, 0.8667321801946304}, { 0.8101260853203944, 0.8105328383530594}, {0.8679575412883078, 0.908707511828408}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.7675273928196898, 0.7682794195892432}, 0.06], DiskBox[{0., 0.008384683246952141}, 0.06], DiskBox[{0.006761420961864405, 1.5345078911212584}, 0.06], DiskBox[{1.5274654230089892, 0.}, 0.06], DiskBox[{1.5345427961038574, 1.5290779589511572}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {420}}]], "Output"] }, Open ]], Cell["Different deterministic evolution orders:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ 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["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[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", "3"}], "|>"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ "#", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}], "[", RowBox[{"\"\\"", ",", RowBox[{"PlotLabel", "\[Rule]", "#"}]}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{0.6543423463505913, 0.6904541599501499}, { 0.12514436808496285`, 1.1819863698921698`}}], PolygonBox[{{0.1550394489845131, 1.1976997700252365`}, { 0.15129610209757202`, 1.1962722829262642`}, {0.14251507134194738`, 1.192569855845082}, {0.1374444489999006, 1.1901059726209944`}, { 0.13253100025266087`, 1.187496267728719}, {0.128269082026699, 1.1847204497400048`}, {0.12514436808496285`, 1.1819863698921698`}, { 0.12290350445461282`, 1.178943711723771}, {0.12052238186750092`, 1.174567437343545}, {0.11813580443054258`, 1.1693177201677947`}, { 0.1158332434168749, 1.1638434181696236`}, {0.11224070797856706`, 1.154224101362369}, {0.11080094745651889`, 1.1500713031687573`}, { 0.04458473401223329, 1.2568121564487718`}, {0.1550394489845131, 1.1976997700252365`}}]}, { LineBox[{{2.5413368883682175`, 0.04090997052270337}, { 2.012559832409818, 0.5337788874011292}}], PolygonBox[{{2.0424823846665814`, 0.5494399113834161}, { 2.0387365437140286`, 0.5480189817961809}, {2.02994904275827, 0.5443319376717847}, {2.0248741134561223`, 0.5418769378640851}, { 2.0199561021458945`, 0.5392758413704906}, {2.0156893294618334`, 0.5365074910794683}, {2.012559832409818, 0.5337788874011292}, { 2.010313643933747, 0.5307401580828921}, {2.007924861296586, 0.5263680602182192}, {2.005529094251022, 0.5211225304498014}, { 2.0032169502085515`, 0.5156522690743541}, {1.999607574998436, 0.5060392582397388}, {1.998160544332848, 0.5018889877123441}, { 1.932131356256995, 0.6087456346927188}, {2.0424823846665814`, 0.5494399113834161}}]}, { LineBox[{{0.7583044011603935, 0.6496228520630001}, { 1.7182920101717076`, 0.6496506789552182}}], PolygonBox[{{1.707082547341639, 0.6177920106090079}, { 1.708853719397927, 0.6213855207148414}, {1.7127676471429725`, 0.6300743432489517}, {1.714805946747096, 0.6353305078393573}, { 1.7166298460675247`, 0.6405865452712499}, {1.7178633293063543`, 0.6455208771987536}, {1.7182920101717076`, 0.6496506789552182}, { 1.7178631007701464`, 0.6534050464471934}, {1.7166293345840782`, 0.6582319857697863}, {1.714805124333413, 0.6637025926144915}, { 1.7127665106830676`, 0.6692805693062202}, {1.7088520559103424`, 0.6787734408710374}, {1.7070806630898037`, 0.6827959787108914}, { 1.8282408754027273`, 0.649653866012211}, {1.707082547341639, 0.6177920106090079}}]}, { LineBox[{{0.6543097285152413, 0.6088232112393874}, { 0.12461407830949772`, 0.11761666930713637`}}], PolygonBox[{{0.11117147357315599`, 0.1485992964332372}, { 0.11231612123372162`, 0.1447600065162258}, {0.11535408869620528`, 0.13572755274553927`}, {0.1174333728370254, 0.13048746601540423`}, { 0.11966978258132038`, 0.1253932526637532}, {0.12212038167908437`, 0.1209363841966236}, {0.12461407830949772`, 0.11761666930713637`}, { 0.1274813410372773, 0.1151553601048145}, {0.13166806501149322`, 0.11245482967736083`}, {0.13672539823549046`, 0.10968378962903583`}, {0.1420129512672659, 0.10697980136630143`}, { 0.15133789992898075`, 0.10268062712347181`}, {0.1553718985176644, 0.1009354914312657}, {0.043994672670359204`, 0.04285528615956288}, { 0.11117147357315599`, 0.1485992964332372}}]}, { LineBox[{{2.540972189923902, 1.2586371016539624`}, {2.012505145159887, 0.7655909667944795}}], PolygonBox[{{1.998968967142603, 0.796532826635428}, { 2.0001252125507323`, 0.7926970135677872}, {2.003190463722332, 0.7836737822908164}, {2.0052855747842147`, 0.7784400034345806}, { 2.0075373698783223`, 0.7733525721504579}, {2.010001427185137, 0.7689031301562312}, {2.012505145159887, 0.7655909667944794}, { 2.015379833280767, 0.7631383341788559}, {2.019574699588892, 0.7604504690626651}, {2.0246403842627796`, 0.7576947257740573}, { 2.0299360850514008`, 0.7550067297275127}, {2.0392739839504195`, 0.7507357566691178}, {2.0433132382081305`, 0.7490028203635148}, { 1.932112049067209, 0.6905862797650699}, {1.998968967142603, 0.796532826635428}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.6983044011856004, 0.6496211128597889}, 0.06], DiskBox[{1.8882408753775204, 0.6496556052154222}, 0.06], DiskBox[{0.0006226791772241494, 1.2976452035391328}, 0.06], DiskBox[{2.585227369247692, 0.}, 0.06], DiskBox[{0., 0.002057384539161517}, 0.06], DiskBox[{2.5848433636135906, 1.29956777620361}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {417.35292620386133`}}, PlotLabel->FormBox["\"OldestEdge\"", TraditionalForm]], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{1.8752675283037958`, 0.6236369114053156}, { 1.0638867209933505`, 0.34668429303361636`}}], PolygonBox[{{1.064267628263017, 0.38713602410920367`}, { 1.063650161936528, 0.3823771774338012}, {1.0625750494935635`, 0.3710132843163755}, {1.0622980476849297`, 0.36426631069823767`}, { 1.0622640396192635`, 0.35760243240775935`}, {1.062774856433728, 0.35153166883283826`}, {1.0638867209933505`, 0.34668429303361636`}, { 1.065825489982776, 0.34259430789944995`}, {1.0690916166380109`, 0.33759985945497134`}, {1.0732761014207224`, 0.3321041951883199}, { 1.0777451739255735`, 0.32656976946169897`}, {1.0858553568051208`, 0.3173232016133448}, {1.089419712098874, 0.31344862513004623`}, { 0.9392505466772627, 0.3041416120758391}, {1.064267628263017, 0.38713602410920367`}}]}, { LineBox[{{0.05711946116245565, 0.019357429734409133`}, { 0.6999736619059773, 0.2260761390129319}}], PolygonBox[{{0.6988722585489316, 0.18563761099811898`}, { 0.6995743950486109, 0.19038470386430092`}, {0.7008517590875422, 0.20172764328322304`}, {0.7012488990930338, 0.20846861226563734`}, { 0.7014016037526536, 0.21513082749075346`}, {0.7009990049704317, 0.22120972693235325`}, {0.6999736619059773, 0.2260761390129319}, { 0.698108054398423, 0.23020001003659613`}, {0.6949314108007859, 0.23525184475738634`}, {0.6908454828135088, 0.24082117426023303`}, { 0.6864757027048121, 0.2464343283627621}, {0.6785315133734404, 0.2558238938043168}, {0.6750367404562481, 0.2597613465141658}, { 0.825347863583943, 0.2663919573084623}, {0.6988722585489316, 0.18563761099811898`}}]}, { LineBox[{{1.9888103315536643`, 0.6235677897962837}, { 2.8002088056656684`, 0.34550566857661413`}}], PolygonBox[{{2.7751352336797916`, 0.31375974560643133`}, { 2.77853766755219, 0.3171437270024049}, {2.7863467929775543`, 0.3254690794658279}, {2.7906975913664085`, 0.33063327702066386`}, { 2.794805403436803, 0.33588059161130573`}, {2.798119282626558, 0.34099266642650905`}, {2.8002088056656684`, 0.3455056685766141}, { 2.801180795529528, 0.34992630646006656`}, {2.801657329373774, 0.35587483687420063`}, {2.8017147957015918`, 0.36278200244697073`}, { 2.801571018025086, 0.3698940911104253}, {2.8008220519301084`, 0.38217061884030445`}, {2.8003770163986923`, 0.38741646624189896`}, { 2.9247930900868107`, 0.30281126933622876`}, {2.7751352336797916`, 0.31375974560643133`}}]}, { LineBox[{{1.9322589608611471`, 0.7030186477345313}, { 1.9346032447386385`, 1.3785662319997765`}}], PolygonBox[{{1.9727163654535718`, 1.3650060820474839`}, { 1.9684195062506542`, 1.3671426417435002`}, {1.958028496341052, 1.3718671360664771`}, {1.9517412401679688`, 1.374330628063594}, { 1.9454532376884297`, 1.3765373122811817`}, {1.93954809733009, 1.37803545164347}, {1.9346032447386385`, 1.3785662319997762`}, { 1.9301044904156952`, 1.3780682228293204`}, {1.9243176432270985`, 1.3766106569788623`}, {1.9177573405946207`, 1.3744485589240096`}, { 1.9110675324379724`, 1.3720300999096076`}, {1.8996806267933106`, 1.3673811792656851`}, {1.8948550330434974`, 1.365276276287683}, { 1.9350602560714742`, 1.5102622713930212`}, {1.9727163654535718`, 1.3650060820474839`}}]}, { LineBox[{{3.807389346288794, 0.018334116252937148`}, { 3.1640806562660715`, 0.22478351663904006`}}], PolygonBox[{{3.1885266958775373`, 0.2570151592387333}, { 3.185191294701262, 0.25356508890066226`}, {3.1775469766714837`, 0.2450881593026945}, {3.1732983130536065`, 0.23983961279266353`}, { 3.169294219375541, 0.23451273150657173`}, {3.166081253046368, 0.2293366372678498}, {3.1640806562660715`, 0.22478351663904003`}, { 3.1631955658878144`, 0.22034466333955186`}, {3.1628358063900857`, 0.21438793003207665`}, {3.1629138377693904`, 0.2074809661743214}, { 3.16319709407717, 0.2003730661299199}, {3.164186724779883, 0.1881135916556137}, {3.164734573956289, 0.18287748309438717`}, { 3.038682875162005, 0.26502593388008167`}, {3.1885266958775373`, 0.2570151592387333}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{1.9320507502346598, 0.6430190089994937}, 0.06], DiskBox[{0.8824673247463987, 0.284759514481661}, 0.06], DiskBox[{2.981552671405815, 0.2833600501330188}, 0.06], DiskBox[{0., 0.0009898725612105066}, 0.06], DiskBox[{1.9352684666979616, 1.5702619101280586}, 0.06], DiskBox[{3.8645195500449843, 0.}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {420}}, PlotLabel->FormBox["\"LeastOldEdge\"", TraditionalForm]], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{0.6543423463505913, 0.6904541599501499}, { 0.12514436808496285`, 1.1819863698921698`}}], PolygonBox[{{0.1550394489845131, 1.1976997700252365`}, { 0.15129610209757202`, 1.1962722829262642`}, {0.14251507134194738`, 1.192569855845082}, {0.1374444489999006, 1.1901059726209944`}, { 0.13253100025266087`, 1.187496267728719}, {0.128269082026699, 1.1847204497400048`}, {0.12514436808496285`, 1.1819863698921698`}, { 0.12290350445461282`, 1.178943711723771}, {0.12052238186750092`, 1.174567437343545}, {0.11813580443054258`, 1.1693177201677947`}, { 0.1158332434168749, 1.1638434181696236`}, {0.11224070797856706`, 1.154224101362369}, {0.11080094745651889`, 1.1500713031687573`}, { 0.04458473401223329, 1.2568121564487718`}, {0.1550394489845131, 1.1976997700252365`}}]}, { LineBox[{{2.5413368883682175`, 0.04090997052270337}, { 2.012559832409818, 0.5337788874011292}}], PolygonBox[{{2.0424823846665814`, 0.5494399113834161}, { 2.0387365437140286`, 0.5480189817961809}, {2.02994904275827, 0.5443319376717847}, {2.0248741134561223`, 0.5418769378640851}, { 2.0199561021458945`, 0.5392758413704906}, {2.0156893294618334`, 0.5365074910794683}, {2.012559832409818, 0.5337788874011292}, { 2.010313643933747, 0.5307401580828921}, {2.007924861296586, 0.5263680602182192}, {2.005529094251022, 0.5211225304498014}, { 2.0032169502085515`, 0.5156522690743541}, {1.999607574998436, 0.5060392582397388}, {1.998160544332848, 0.5018889877123441}, { 1.932131356256995, 0.6087456346927188}, {2.0424823846665814`, 0.5494399113834161}}]}, { LineBox[{{0.7583044011603935, 0.6496228520630001}, { 1.7182920101717076`, 0.6496506789552182}}], PolygonBox[{{1.707082547341639, 0.6177920106090079}, { 1.708853719397927, 0.6213855207148414}, {1.7127676471429725`, 0.6300743432489517}, {1.714805946747096, 0.6353305078393573}, { 1.7166298460675247`, 0.6405865452712499}, {1.7178633293063543`, 0.6455208771987536}, {1.7182920101717076`, 0.6496506789552182}, { 1.7178631007701464`, 0.6534050464471934}, {1.7166293345840782`, 0.6582319857697863}, {1.714805124333413, 0.6637025926144915}, { 1.7127665106830676`, 0.6692805693062202}, {1.7088520559103424`, 0.6787734408710374}, {1.7070806630898037`, 0.6827959787108914}, { 1.8282408754027273`, 0.649653866012211}, {1.707082547341639, 0.6177920106090079}}]}, { LineBox[{{0.6543097285152413, 0.6088232112393874}, { 0.12461407830949772`, 0.11761666930713637`}}], PolygonBox[{{0.11117147357315599`, 0.1485992964332372}, { 0.11231612123372162`, 0.1447600065162258}, {0.11535408869620528`, 0.13572755274553927`}, {0.1174333728370254, 0.13048746601540423`}, { 0.11966978258132038`, 0.1253932526637532}, {0.12212038167908437`, 0.1209363841966236}, {0.12461407830949772`, 0.11761666930713637`}, { 0.1274813410372773, 0.1151553601048145}, {0.13166806501149322`, 0.11245482967736083`}, {0.13672539823549046`, 0.10968378962903583`}, {0.1420129512672659, 0.10697980136630143`}, { 0.15133789992898075`, 0.10268062712347181`}, {0.1553718985176644, 0.1009354914312657}, {0.043994672670359204`, 0.04285528615956288}, { 0.11117147357315599`, 0.1485992964332372}}]}, { LineBox[{{2.540972189923902, 1.2586371016539624`}, {2.012505145159887, 0.7655909667944795}}], PolygonBox[{{1.998968967142603, 0.796532826635428}, { 2.0001252125507323`, 0.7926970135677872}, {2.003190463722332, 0.7836737822908164}, {2.0052855747842147`, 0.7784400034345806}, { 2.0075373698783223`, 0.7733525721504579}, {2.010001427185137, 0.7689031301562312}, {2.012505145159887, 0.7655909667944794}, { 2.015379833280767, 0.7631383341788559}, {2.019574699588892, 0.7604504690626651}, {2.0246403842627796`, 0.7576947257740573}, { 2.0299360850514008`, 0.7550067297275127}, {2.0392739839504195`, 0.7507357566691178}, {2.0433132382081305`, 0.7490028203635148}, { 1.932112049067209, 0.6905862797650699}, {1.998968967142603, 0.796532826635428}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.6983044011856004, 0.6496211128597889}, 0.06], DiskBox[{1.8882408753775204, 0.6496556052154222}, 0.06], DiskBox[{0.0006226791772241494, 1.2976452035391328}, 0.06], DiskBox[{2.585227369247692, 0.}, 0.06], DiskBox[{0., 0.002057384539161517}, 0.06], DiskBox[{2.5848433636135906, 1.29956777620361}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {417.35292620386133`}}, PlotLabel->FormBox["\"LeastRecentEdge\"", TraditionalForm]], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], { LineBox[{{1.8752675283037958`, 0.6236369114053156}, { 1.0638867209933505`, 0.34668429303361636`}}], PolygonBox[{{1.064267628263017, 0.38713602410920367`}, { 1.063650161936528, 0.3823771774338012}, {1.0625750494935635`, 0.3710132843163755}, {1.0622980476849297`, 0.36426631069823767`}, { 1.0622640396192635`, 0.35760243240775935`}, {1.062774856433728, 0.35153166883283826`}, {1.0638867209933505`, 0.34668429303361636`}, { 1.065825489982776, 0.34259430789944995`}, {1.0690916166380109`, 0.33759985945497134`}, {1.0732761014207224`, 0.3321041951883199}, { 1.0777451739255735`, 0.32656976946169897`}, {1.0858553568051208`, 0.3173232016133448}, {1.089419712098874, 0.31344862513004623`}, { 0.9392505466772627, 0.3041416120758391}, {1.064267628263017, 0.38713602410920367`}}]}, { LineBox[{{0.05711946116245565, 0.019357429734409133`}, { 0.6999736619059773, 0.2260761390129319}}], PolygonBox[{{0.6988722585489316, 0.18563761099811898`}, { 0.6995743950486109, 0.19038470386430092`}, {0.7008517590875422, 0.20172764328322304`}, {0.7012488990930338, 0.20846861226563734`}, { 0.7014016037526536, 0.21513082749075346`}, {0.7009990049704317, 0.22120972693235325`}, {0.6999736619059773, 0.2260761390129319}, { 0.698108054398423, 0.23020001003659613`}, {0.6949314108007859, 0.23525184475738634`}, {0.6908454828135088, 0.24082117426023303`}, { 0.6864757027048121, 0.2464343283627621}, {0.6785315133734404, 0.2558238938043168}, {0.6750367404562481, 0.2597613465141658}, { 0.825347863583943, 0.2663919573084623}, {0.6988722585489316, 0.18563761099811898`}}]}, { LineBox[{{1.9888103315536643`, 0.6235677897962837}, { 2.8002088056656684`, 0.34550566857661413`}}], PolygonBox[{{2.7751352336797916`, 0.31375974560643133`}, { 2.77853766755219, 0.3171437270024049}, {2.7863467929775543`, 0.3254690794658279}, {2.7906975913664085`, 0.33063327702066386`}, { 2.794805403436803, 0.33588059161130573`}, {2.798119282626558, 0.34099266642650905`}, {2.8002088056656684`, 0.3455056685766141}, { 2.801180795529528, 0.34992630646006656`}, {2.801657329373774, 0.35587483687420063`}, {2.8017147957015918`, 0.36278200244697073`}, { 2.801571018025086, 0.3698940911104253}, {2.8008220519301084`, 0.38217061884030445`}, {2.8003770163986923`, 0.38741646624189896`}, { 2.9247930900868107`, 0.30281126933622876`}, {2.7751352336797916`, 0.31375974560643133`}}]}, { LineBox[{{1.9322589608611471`, 0.7030186477345313}, { 1.9346032447386385`, 1.3785662319997765`}}], PolygonBox[{{1.9727163654535718`, 1.3650060820474839`}, { 1.9684195062506542`, 1.3671426417435002`}, {1.958028496341052, 1.3718671360664771`}, {1.9517412401679688`, 1.374330628063594}, { 1.9454532376884297`, 1.3765373122811817`}, {1.93954809733009, 1.37803545164347}, {1.9346032447386385`, 1.3785662319997762`}, { 1.9301044904156952`, 1.3780682228293204`}, {1.9243176432270985`, 1.3766106569788623`}, {1.9177573405946207`, 1.3744485589240096`}, { 1.9110675324379724`, 1.3720300999096076`}, {1.8996806267933106`, 1.3673811792656851`}, {1.8948550330434974`, 1.365276276287683}, { 1.9350602560714742`, 1.5102622713930212`}, {1.9727163654535718`, 1.3650060820474839`}}]}, { LineBox[{{3.807389346288794, 0.018334116252937148`}, { 3.1640806562660715`, 0.22478351663904006`}}], PolygonBox[{{3.1885266958775373`, 0.2570151592387333}, { 3.185191294701262, 0.25356508890066226`}, {3.1775469766714837`, 0.2450881593026945}, {3.1732983130536065`, 0.23983961279266353`}, { 3.169294219375541, 0.23451273150657173`}, {3.166081253046368, 0.2293366372678498}, {3.1640806562660715`, 0.22478351663904003`}, { 3.1631955658878144`, 0.22034466333955186`}, {3.1628358063900857`, 0.21438793003207665`}, {3.1629138377693904`, 0.2074809661743214}, { 3.16319709407717, 0.2003730661299199}, {3.164186724779883, 0.1881135916556137}, {3.164734573956289, 0.18287748309438717`}, { 3.038682875162005, 0.26502593388008167`}, {3.1885266958775373`, 0.2570151592387333}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{1.9320507502346598, 0.6430190089994937}, 0.06], DiskBox[{0.8824673247463987, 0.284759514481661}, 0.06], DiskBox[{2.981552671405815, 0.2833600501330188}, 0.06], DiskBox[{0., 0.0009898725612105066}, 0.06], DiskBox[{1.9352684666979616, 1.5702619101280586}, 0.06], DiskBox[{3.8645195500449843, 0.}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {420}}, PlotLabel->FormBox["\"NewestEdge\"", TraditionalForm]], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{0.6543423463505913, 0.6904541599501499}, { 0.12514436808496285`, 1.1819863698921698`}}], PolygonBox[{{0.1550394489845131, 1.1976997700252365`}, { 0.15129610209757202`, 1.1962722829262642`}, {0.14251507134194738`, 1.192569855845082}, {0.1374444489999006, 1.1901059726209944`}, { 0.13253100025266087`, 1.187496267728719}, {0.128269082026699, 1.1847204497400048`}, {0.12514436808496285`, 1.1819863698921698`}, { 0.12290350445461282`, 1.178943711723771}, {0.12052238186750092`, 1.174567437343545}, {0.11813580443054258`, 1.1693177201677947`}, { 0.1158332434168749, 1.1638434181696236`}, {0.11224070797856706`, 1.154224101362369}, {0.11080094745651889`, 1.1500713031687573`}, { 0.04458473401223329, 1.2568121564487718`}, {0.1550394489845131, 1.1976997700252365`}}]}, { LineBox[{{2.5413368883682175`, 0.04090997052270337}, { 2.012559832409818, 0.5337788874011292}}], PolygonBox[{{2.0424823846665814`, 0.5494399113834161}, { 2.0387365437140286`, 0.5480189817961809}, {2.02994904275827, 0.5443319376717847}, {2.0248741134561223`, 0.5418769378640851}, { 2.0199561021458945`, 0.5392758413704906}, {2.0156893294618334`, 0.5365074910794683}, {2.012559832409818, 0.5337788874011292}, { 2.010313643933747, 0.5307401580828921}, {2.007924861296586, 0.5263680602182192}, {2.005529094251022, 0.5211225304498014}, { 2.0032169502085515`, 0.5156522690743541}, {1.999607574998436, 0.5060392582397388}, {1.998160544332848, 0.5018889877123441}, { 1.932131356256995, 0.6087456346927188}, {2.0424823846665814`, 0.5494399113834161}}]}, { LineBox[{{0.7583044011603935, 0.6496228520630001}, { 1.7182920101717076`, 0.6496506789552182}}], PolygonBox[{{1.707082547341639, 0.6177920106090079}, { 1.708853719397927, 0.6213855207148414}, {1.7127676471429725`, 0.6300743432489517}, {1.714805946747096, 0.6353305078393573}, { 1.7166298460675247`, 0.6405865452712499}, {1.7178633293063543`, 0.6455208771987536}, {1.7182920101717076`, 0.6496506789552182}, { 1.7178631007701464`, 0.6534050464471934}, {1.7166293345840782`, 0.6582319857697863}, {1.714805124333413, 0.6637025926144915}, { 1.7127665106830676`, 0.6692805693062202}, {1.7088520559103424`, 0.6787734408710374}, {1.7070806630898037`, 0.6827959787108914}, { 1.8282408754027273`, 0.649653866012211}, {1.707082547341639, 0.6177920106090079}}]}, { LineBox[{{0.6543097285152413, 0.6088232112393874}, { 0.12461407830949772`, 0.11761666930713637`}}], PolygonBox[{{0.11117147357315599`, 0.1485992964332372}, { 0.11231612123372162`, 0.1447600065162258}, {0.11535408869620528`, 0.13572755274553927`}, {0.1174333728370254, 0.13048746601540423`}, { 0.11966978258132038`, 0.1253932526637532}, {0.12212038167908437`, 0.1209363841966236}, {0.12461407830949772`, 0.11761666930713637`}, { 0.1274813410372773, 0.1151553601048145}, {0.13166806501149322`, 0.11245482967736083`}, {0.13672539823549046`, 0.10968378962903583`}, {0.1420129512672659, 0.10697980136630143`}, { 0.15133789992898075`, 0.10268062712347181`}, {0.1553718985176644, 0.1009354914312657}, {0.043994672670359204`, 0.04285528615956288}, { 0.11117147357315599`, 0.1485992964332372}}]}, { LineBox[{{2.540972189923902, 1.2586371016539624`}, {2.012505145159887, 0.7655909667944795}}], PolygonBox[{{1.998968967142603, 0.796532826635428}, { 2.0001252125507323`, 0.7926970135677872}, {2.003190463722332, 0.7836737822908164}, {2.0052855747842147`, 0.7784400034345806}, { 2.0075373698783223`, 0.7733525721504579}, {2.010001427185137, 0.7689031301562312}, {2.012505145159887, 0.7655909667944794}, { 2.015379833280767, 0.7631383341788559}, {2.019574699588892, 0.7604504690626651}, {2.0246403842627796`, 0.7576947257740573}, { 2.0299360850514008`, 0.7550067297275127}, {2.0392739839504195`, 0.7507357566691178}, {2.0433132382081305`, 0.7490028203635148}, { 1.932112049067209, 0.6905862797650699}, {1.998968967142603, 0.796532826635428}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.6983044011856004, 0.6496211128597889}, 0.06], DiskBox[{1.8882408753775204, 0.6496556052154222}, 0.06], DiskBox[{0.0006226791772241494, 1.2976452035391328}, 0.06], DiskBox[{2.585227369247692, 0.}, 0.06], DiskBox[{0., 0.002057384539161517}, 0.06], DiskBox[{2.5848433636135906, 1.29956777620361}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {417.35292620386133`}}, PlotLabel->FormBox["\"RuleOrdering\"", TraditionalForm]], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{1.8752675283037958`, 0.6236369114053156}, { 1.0638867209933505`, 0.34668429303361636`}}], PolygonBox[{{1.064267628263017, 0.38713602410920367`}, { 1.063650161936528, 0.3823771774338012}, {1.0625750494935635`, 0.3710132843163755}, {1.0622980476849297`, 0.36426631069823767`}, { 1.0622640396192635`, 0.35760243240775935`}, {1.062774856433728, 0.35153166883283826`}, {1.0638867209933505`, 0.34668429303361636`}, { 1.065825489982776, 0.34259430789944995`}, {1.0690916166380109`, 0.33759985945497134`}, {1.0732761014207224`, 0.3321041951883199}, { 1.0777451739255735`, 0.32656976946169897`}, {1.0858553568051208`, 0.3173232016133448}, {1.089419712098874, 0.31344862513004623`}, { 0.9392505466772627, 0.3041416120758391}, {1.064267628263017, 0.38713602410920367`}}]}, { LineBox[{{0.05711946116245565, 0.019357429734409133`}, { 0.6999736619059773, 0.2260761390129319}}], PolygonBox[{{0.6988722585489316, 0.18563761099811898`}, { 0.6995743950486109, 0.19038470386430092`}, {0.7008517590875422, 0.20172764328322304`}, {0.7012488990930338, 0.20846861226563734`}, { 0.7014016037526536, 0.21513082749075346`}, {0.7009990049704317, 0.22120972693235325`}, {0.6999736619059773, 0.2260761390129319}, { 0.698108054398423, 0.23020001003659613`}, {0.6949314108007859, 0.23525184475738634`}, {0.6908454828135088, 0.24082117426023303`}, { 0.6864757027048121, 0.2464343283627621}, {0.6785315133734404, 0.2558238938043168}, {0.6750367404562481, 0.2597613465141658}, { 0.825347863583943, 0.2663919573084623}, {0.6988722585489316, 0.18563761099811898`}}]}, { LineBox[{{1.9888103315536643`, 0.6235677897962837}, { 2.8002088056656684`, 0.34550566857661413`}}], PolygonBox[{{2.7751352336797916`, 0.31375974560643133`}, { 2.77853766755219, 0.3171437270024049}, {2.7863467929775543`, 0.3254690794658279}, {2.7906975913664085`, 0.33063327702066386`}, { 2.794805403436803, 0.33588059161130573`}, {2.798119282626558, 0.34099266642650905`}, {2.8002088056656684`, 0.3455056685766141}, { 2.801180795529528, 0.34992630646006656`}, {2.801657329373774, 0.35587483687420063`}, {2.8017147957015918`, 0.36278200244697073`}, { 2.801571018025086, 0.3698940911104253}, {2.8008220519301084`, 0.38217061884030445`}, {2.8003770163986923`, 0.38741646624189896`}, { 2.9247930900868107`, 0.30281126933622876`}, {2.7751352336797916`, 0.31375974560643133`}}]}, { LineBox[{{1.9322589608611471`, 0.7030186477345313}, { 1.9346032447386385`, 1.3785662319997765`}}], PolygonBox[{{1.9727163654535718`, 1.3650060820474839`}, { 1.9684195062506542`, 1.3671426417435002`}, {1.958028496341052, 1.3718671360664771`}, {1.9517412401679688`, 1.374330628063594}, { 1.9454532376884297`, 1.3765373122811817`}, {1.93954809733009, 1.37803545164347}, {1.9346032447386385`, 1.3785662319997762`}, { 1.9301044904156952`, 1.3780682228293204`}, {1.9243176432270985`, 1.3766106569788623`}, {1.9177573405946207`, 1.3744485589240096`}, { 1.9110675324379724`, 1.3720300999096076`}, {1.8996806267933106`, 1.3673811792656851`}, {1.8948550330434974`, 1.365276276287683}, { 1.9350602560714742`, 1.5102622713930212`}, {1.9727163654535718`, 1.3650060820474839`}}]}, { LineBox[{{3.807389346288794, 0.018334116252937148`}, { 3.1640806562660715`, 0.22478351663904006`}}], PolygonBox[{{3.1885266958775373`, 0.2570151592387333}, { 3.185191294701262, 0.25356508890066226`}, {3.1775469766714837`, 0.2450881593026945}, {3.1732983130536065`, 0.23983961279266353`}, { 3.169294219375541, 0.23451273150657173`}, {3.166081253046368, 0.2293366372678498}, {3.1640806562660715`, 0.22478351663904003`}, { 3.1631955658878144`, 0.22034466333955186`}, {3.1628358063900857`, 0.21438793003207665`}, {3.1629138377693904`, 0.2074809661743214}, { 3.16319709407717, 0.2003730661299199}, {3.164186724779883, 0.1881135916556137}, {3.164734573956289, 0.18287748309438717`}, { 3.038682875162005, 0.26502593388008167`}, {3.1885266958775373`, 0.2570151592387333}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{1.9320507502346598, 0.6430190089994937}, 0.06], DiskBox[{0.8824673247463987, 0.284759514481661}, 0.06], DiskBox[{2.981552671405815, 0.2833600501330188}, 0.06], DiskBox[{0., 0.0009898725612105066}, 0.06], DiskBox[{1.9352684666979616, 1.5702619101280586}, 0.06], DiskBox[{3.8645195500449843, 0.}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {420}}, PlotLabel->FormBox["\"ReverseRuleOrdering\"", TraditionalForm]]}], "}"}]], "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["3680", "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}, {2, 3}} -> {{2, 3}, {2, 4}, {5, 3}}}, {{1, 1}, {1, 1}}, 3], 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.6719999999999999], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6719999999999999], 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, 3.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{20.759803921568633`, 96.50490196078432}, {-53.74999999999999, 36.851554395415896`}}], "DelayedMouseEffectStyle"], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "Tooltip"]& ], 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, 3.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{96.00490196078432, 171.75}, {-53.74999999999999, 36.851554395415896`}}], "DelayedMouseEffectStyle"], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-0.54, 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, 1.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[{}]], "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, 4, 5, 2, 6, 7}, {Null, SparseArray[ Automatic, {6, 6}, 0, { 1, {{0, 3, 4, 5, 8, 9, 10}, {{2}, {4}, {5}, {1}, {4}, {1}, {3}, {6}, { 1}, {4}}}, Pattern}]}]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{0.8164965809277261, 1.6329931618554523`}, {0., 0.8164965809277261}, {0.4082482904638631, 0.}, {0.8164965809277261, 0.8164965809277261}, {1.6329931618554523`, 0.8164965809277261}, { 1.2247448713915892`, 0.}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[{{1, 2}, {1, 4}, {1, 5}, {3, 4}, {4, 6}}]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.019562323618881772], DiskBox[2, 0.019562323618881772], DiskBox[3, 0.019562323618881772], DiskBox[4, 0.019562323618881772], DiskBox[5, 0.019562323618881772], DiskBox[6, 0.019562323618881772]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "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->"6c05b9bb-3459-4f8f-a1f7-0ba6d0de8e17"], Cell[CellGroupData[{ Cell[639, 26, 87, 1, 70, "Text",ExpressionUUID->"d2875096-1ca5-470a-a725-04ac5489e573", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[CellGroupData[{ Cell[751, 31, 8446, 214, 70, "Input",ExpressionUUID->"47aebffd-4a63-4c13-bf1c-bdf71c64b35a", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[9200, 247, 15343, 242, 70, "Output",ExpressionUUID->"6f1a5223-bcaf-4773-9dee-acf98148ccd9"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24592, 495, 96, 1, 70, "Text",ExpressionUUID->"d77baa37-fc7b-42fe-8830-fb3faff3a4b3", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[CellGroupData[{ Cell[24713, 500, 8525, 216, 70, "Input",ExpressionUUID->"3fceedbb-f6d0-471b-898a-6bec5c918655", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[33241, 718, 15937, 252, 70, "Output",ExpressionUUID->"4e8ae72e-be4c-4861-862a-a3e327266917"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49227, 976, 94, 1, 70, "Text",ExpressionUUID->"8f1adb0b-3249-4e14-beb5-c2e29ac8262d", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[49324, 979, 9101, 224, 70, "Input",ExpressionUUID->"aa010044-f291-47af-b0e0-4c543301556f", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[58450, 1207, 1202, 30, 70, "Input",ExpressionUUID->"b8bea971-f1d8-4a6b-8b3c-575a442bcdcc", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[59655, 1239, 12986, 279, 70, "Output",ExpressionUUID->"790f6c54-b945-4927-8c2c-cacba3bd8559"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[72690, 1524, 106, 1, 70, "Text",ExpressionUUID->"76974b2a-4846-4970-8dcd-e0b88350993c", CellGroupingRules->{"GroupTogetherGrouping", 10003.}], Cell[CellGroupData[{ Cell[72821, 1529, 163, 3, 70, "Input",ExpressionUUID->"264a4836-bfe2-49ad-95ca-2bf93ecd06c9", CellGroupingRules->{"GroupTogetherGrouping", 10003.}], Cell[72987, 1534, 50, 1, 70, "Output",ExpressionUUID->"7d9e8f03-2f9f-4819-a2e1-11baf9df9206"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[73086, 1541, 160, 6, 70, "Text",ExpressionUUID->"51dbf7de-05f1-4148-87a1-9170c6f74151", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[73271, 1551, 10188, 199, 70, "Input",ExpressionUUID->"993fe3d0-d005-4434-8e05-3b9802054dfc", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[83462, 1752, 4837, 74, 70, "Output",ExpressionUUID->"24944257-a75a-45e1-a375-970b2522a964"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[88360, 1833, 31, 0, 70, "Section",ExpressionUUID->"6274f847-2094-4ee3-8e9c-cd3f6fe49fb2"], Cell[CellGroupData[{ Cell[88416, 1837, 84, 1, 70, "Text",ExpressionUUID->"bac4677f-364e-46c8-98e2-5ae67b4f2db1", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[CellGroupData[{ Cell[88525, 1842, 10965, 221, 70, "Input",ExpressionUUID->"d58adab0-41d4-4587-a353-168f49152f2a", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[99493, 2065, 2149, 45, 70, "Output",ExpressionUUID->"e3b10148-4d78-44c2-a223-169ef52daa15"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[101691, 2116, 89, 1, 70, "Text",ExpressionUUID->"06b63e75-dd05-4a3f-9ecd-807d12ad2381", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[CellGroupData[{ Cell[101805, 2121, 10192, 199, 70, "Input",ExpressionUUID->"5f9d3278-23cb-4bf2-a2cf-8395a4ec48c8", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[112000, 2322, 2496, 52, 70, "Output",ExpressionUUID->"2d6e206b-6c88-48c7-8f2c-cfdea568caef"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[114545, 2380, 100, 1, 70, "Text",ExpressionUUID->"6dc67d75-5694-4475-9193-f264467397eb", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[114670, 2385, 11517, 228, 70, "Input",ExpressionUUID->"e0d45722-261d-454b-b942-0ad5bd3a15d4", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[126190, 2615, 905, 21, 70, "Output",ExpressionUUID->"b58f7993-b751-4b17-9478-dc84bf17aa73"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[127156, 2643, 41, 0, 70, "Section",ExpressionUUID->"b1acc3da-4ebe-4af5-b768-ecc359cd49fe"], Cell[127200, 2645, 44, 0, 70, "Text",ExpressionUUID->"82f7fb51-7cce-4c01-8a9d-0cfac91701d3"], Cell[CellGroupData[{ Cell[127269, 2649, 11805, 235, 70, "Input",ExpressionUUID->"03460495-d105-46fc-abd6-13379294ec77", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[139077, 2886, 855, 21, 70, "Output",ExpressionUUID->"bb5dbe39-0849-46e5-bfd0-a7f6ce14e364"] }, Open ]], Cell[CellGroupData[{ Cell[139969, 2912, 98, 1, 70, "Text",ExpressionUUID->"0387df63-b977-480b-93cf-b38617dd42ef", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[CellGroupData[{ Cell[140092, 2917, 11636, 230, 70, "Input",ExpressionUUID->"86601f8d-f5b7-4f3a-a391-ffce83868178", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[151731, 3149, 2206, 64, 70, "Output",ExpressionUUID->"2b9b6006-c4de-4390-893b-4137263c3586"] }, Open ]] }, Open ]], Cell[153964, 3217, 76, 0, 70, "Text",ExpressionUUID->"67b4b37a-5ae1-444e-ad09-7381baaa0515"], Cell[CellGroupData[{ Cell[154065, 3221, 27471, 603, 70, "Input",ExpressionUUID->"c8d90654-02ba-4f6a-8b66-2cb0e9e2deb8", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[CellGroupData[{ Cell[181561, 3828, 1036, 26, 70, "Input",ExpressionUUID->"bb385158-cee3-4676-89fe-e97e12f29c5a", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[182600, 3856, 12466, 293, 70, "Output",ExpressionUUID->"779ba251-e533-45fa-892c-acc8c4456afa"] }, Open ]], Cell[195081, 4152, 105, 1, 70, "Text",ExpressionUUID->"ce1682fe-7d45-4a13-a369-445dc882f7e6", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[CellGroupData[{ Cell[195211, 4157, 9059, 218, 70, "Input",ExpressionUUID->"85396ea7-a355-41f6-9085-021ca726930e", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[204273, 4377, 3603, 86, 70, "Output",ExpressionUUID->"0acacf09-1f9e-42d5-ae42-db9daba5a7ba"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[207925, 4469, 125, 1, 70, "Text",ExpressionUUID->"a1d55e12-c952-4a18-8251-fedf92dea5d3", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[CellGroupData[{ Cell[208075, 4474, 18192, 396, 70, "Input",ExpressionUUID->"0c1039bb-4689-4d24-ba3a-a8f7c11072b2", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[226270, 4872, 5129, 109, 70, "Output",ExpressionUUID->"98b19f4d-8113-4acb-a532-5b5534b28961"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[231448, 4987, 87, 1, 70, "Text",ExpressionUUID->"e824f6a1-3640-4abd-94ca-372efb2cfd02", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[231538, 4990, 19130, 405, 70, "Input",ExpressionUUID->"d3bfbcb7-5106-478c-adf9-6b063200c14e", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[250693, 5399, 1206, 31, 70, "Input",ExpressionUUID->"221b9ece-a5ad-4929-b689-9dfd1b5deccc", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[251902, 5432, 969, 23, 70, "Output",ExpressionUUID->"931bcb20-bee3-4f7e-a301-8ed537ee6a26"] }, Open ]], Cell[252886, 5458, 110, 1, 70, "Text",ExpressionUUID->"f9d70d5a-156b-4678-b119-d5f1a8817c0c", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[253021, 5463, 1073, 27, 70, "Input",ExpressionUUID->"54c2bb98-f909-470b-a8c8-24861dcb5bfc", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[254097, 5492, 3616, 106, 70, "Output",ExpressionUUID->"1e88ccb0-8c8e-4f9d-9325-cffbf5a4adf2"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[257774, 5605, 39, 0, 70, "Section",ExpressionUUID->"cc617930-2457-4a00-ab06-30a022f74060"], Cell[257816, 5607, 46, 0, 70, "Text",ExpressionUUID->"8c5e40fc-fb69-4953-8cfe-914f62925c3b"], Cell[CellGroupData[{ Cell[257887, 5611, 11380, 227, 70, "Input",ExpressionUUID->"5af413df-43b9-4f45-bd49-a787c0d4719a"], Cell[269270, 5840, 1502, 34, 70, "Output",ExpressionUUID->"7cafe527-58c3-467c-b811-bff9ea5383a3"] }, Open ]], Cell[270787, 5877, 53, 0, 70, "Text",ExpressionUUID->"2bca2698-ba01-407e-a585-1df085a016e0"], Cell[CellGroupData[{ Cell[270865, 5881, 19892, 427, 70, "Input",ExpressionUUID->"dc49ddf4-dbc3-4bfb-95f3-f20b9c3cdef7"], Cell[290760, 6310, 6288, 155, 70, "Output",ExpressionUUID->"764795fa-8807-484d-b17e-6efa370cae6e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[297097, 6471, 41, 0, 70, "Section",ExpressionUUID->"b64c354a-bab4-4c43-b1ee-ad8746025ddf"], Cell[297141, 6473, 34, 0, 70, "Text",ExpressionUUID->"a58682f4-f393-4ee2-9f99-231bc2313d12"], Cell[CellGroupData[{ Cell[297200, 6477, 8547, 217, 70, "Input",ExpressionUUID->"4331f760-178b-40e4-88aa-2f70cfd5c2ae"], Cell[305750, 6696, 5304, 82, 70, "Output",ExpressionUUID->"3c8fb66e-83a4-4b36-ac29-db7daa8eaf4a"] }, Open ]], Cell[311069, 6781, 57, 0, 70, "Text",ExpressionUUID->"5c7ce179-b853-47a2-b9f0-c2dec3fa012f"], Cell[CellGroupData[{ Cell[311151, 6785, 9755, 238, 70, "Input",ExpressionUUID->"193c3832-6b21-4327-b5e4-0fabe84e93d0"], Cell[320909, 7025, 30398, 460, 70, "Output",ExpressionUUID->"c070a130-52b0-40de-bcb3-4c2751cfc1ee"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[351356, 7491, 43, 0, 70, "Section",ExpressionUUID->"cdea82e1-2c48-435e-ad8a-a8374f84599b"], Cell[351402, 7493, 18529, 398, 70, "Input",ExpressionUUID->"3089ce12-c2f8-442b-9f4a-0e7a1a26e837"], Cell[CellGroupData[{ Cell[369956, 7895, 1021, 26, 70, "Input",ExpressionUUID->"4fcc5b06-8e4a-46a7-93cd-107a3f6568b8"], Cell[370980, 7923, 2219, 64, 70, "Output",ExpressionUUID->"2478d234-f8e0-47ea-a259-32b291877399"] }, Open ]], Cell[373214, 7990, 33, 0, 70, "Text",ExpressionUUID->"1a4f04c4-b28f-419b-98a7-541186bc437d"], Cell[CellGroupData[{ Cell[373272, 7994, 151, 4, 70, "Input",ExpressionUUID->"9df53846-7b89-4866-9599-f15793f65093"], Cell[373426, 8000, 42, 1, 70, "Output",ExpressionUUID->"bf6135af-637c-4db0-b8d2-a2fab51f4f92"] }, Open ]], Cell[CellGroupData[{ Cell[373505, 8006, 188, 4, 70, "Input",ExpressionUUID->"67bbf684-81cb-4e3f-971d-253fce1bc9d0"], Cell[373696, 8012, 661, 19, 70, "Output",ExpressionUUID->"312714a5-cbd2-4e14-bf84-2ae60868f740"] }, Open ]], Cell[CellGroupData[{ Cell[374394, 8036, 115, 2, 70, "Input",ExpressionUUID->"779f1402-d88b-448a-a67f-b7a035fa3c3e"], Cell[374512, 8040, 1259, 26, 70, "Output",ExpressionUUID->"b800f069-aa0c-4c42-9233-25c95990449f"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)