(* 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[ 549632, 11531] NotebookOptionsPosition[ 475771, 9988] NotebookOutlinePosition[ 539782, 11354] CellTagsIndexPosition[ 539739, 11351] 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[{"3", ",", "2"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", "6", ",", "\"\\""}], "]"}]], "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 3BE13X7r1JdLjAr277/QVXG+oWiFfXN57vRt2Uf3L/x+6uTaS1vtJRWMYpi3 n9y/X/202n6Gg/b2HPHNRwLP7FcqUa9O+nPcPl9OeLOWwNn9Yb/uxZxOO2+f 7m3tsPnp6f17JF81zEu8bP9Ln2fer6cn9tstUTv66dQ1e4nCH7VFzkf2i+wo SGDYdtPegunCTKUZe/bb823y2Pjxtv36lkDL0xPW7p95JVO/NOKuvXeUwTmD NTP2rLm8L3rnpbv2MyHy9rOg8lD99nZQ/XwQ8+0loOZ/h9hv7wC1PwXiPvu9 UPflQtxvHwF1vy3Ef/aKUP9JQPxvfwjqf2j42C+Ghs/n7p237EoP2bt4pdpv u7rBHgDUHb8A "]], 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/dXLtpa37JRWMYpi3 n7Q/qH5abT/Dwf12HPHNRwLP2KuUqFcn/Tm+P09OeLOWwFn70F/3Yk6nnd+f 6m3tsPnpafu9kq8a5iVe3v9Dn2fer6cn7B2WqB39dOrafrHCH7VFzkfsRXYU JDBsu7nfiunCTKUZe+zt+TZ5bPx4e//2lkDL0xPW2s+8kqlfGnF3v5GNgsnp ogabNZf3Re+8dHf/eoj8fpi8DUT/fjuofiGI+fvFoOZ/g9i/H2Y/1H37Ye6D un9/ONT9UP/tV4T6D+r//TD/N0PCZ/9CaPh86d55y6700H5nr1T7bVc37AcA YrzIlg== "]], PolygonBox[{{-0.1401438965025222, -0.09651776884519592}, \ {-0.1402846173460453, -0.0928767108211872}, {-0.1409196469096, \ -0.08423264674788167}, {-0.14156718288037162`, -0.07914627344103946}, \ {-0.14238611245791824`, -0.07415290144417008}, {-0.14353778297311665`, \ -0.06967261377254422}, {-0.1449844240527258, -0.06618440265554065}, \ {-0.1469541756234286, -0.06336800750121416}, {-0.1500322894146909, \ -0.060042657064336716`}, {-0.15386146257496047`, -0.056458426698097544`}, \ {-0.15790861027755737`, -0.05288123724779374}, {-0.16515212874264731`, \ -0.04698623968664915}, {-0.16831161739566936`, -0.044537095670584524`}, \ {-0.05706339097770908, -0.01854101966249724}, {-0.1401438965025222, \ -0.09651776884519592}}]}}, {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[{{1.0425815656253332`, 0.019821025483689584`}, { 1.0902239481812623`, 0.0364958593782645}, {1.1168089013395186`, 0.045088809709110514`}, {1.1437762420949071`, 0.05239367537507854}, { 1.171063599894665, 0.058393561550921305`}, {1.1986078640448294`, 0.06307459159152594}, {1.2263453296737903`, 0.0664259391260695}, { 1.2542118450700679`, 0.06843985309744423}, {1.2821429600535499`, 0.06911167568904378}, {1.6770668211337858`, 0.06911167568904247}, { 1.7049979361172678`, 0.0684398530974427}, {1.7328644515135454`, 0.06642593912606776}, {1.7606019171425062`, 0.06307459159152397}, { 1.7881461812926707`, 0.058393561550919224`}, {1.8154335390924285`, 0.05239367537507624}, {1.8215670837997813`, 0.050732231610567516`}}], PolygonBox[{{1.8028731231950796`, 0.02634197418406879}, { 1.8054158308192, 0.028951905951038814`}, {1.8112450619250569`, 0.03536620021966365}, {1.814486482655436, 0.039339069195437566`}, { 1.8175424270978167`, 0.04337213417348881}, {1.8199972163971267`, 0.047293018269211694`}, {1.8215296143980524`, 0.05074441560605357}, { 1.8222146584866654`, 0.054112310722035706`}, {1.8225052508547581`, 0.05863428994750837}, {1.8224662016297328`, 0.06387907302859236}, { 1.8222719099152311`, 0.06927703001431168}, {1.8215563252169598`, 0.07858871592716334}, {1.8211556499032253`, 0.08256616916421892}, { 1.9166282155620018`, 0.01982102548368668}, {1.8028731231950796`, 0.02634197418406879}}]}, { LineBox[{{1.9166282155620016`, -0.01982102548368607}, { 1.8689858330060727`, -0.036495859378261}, { 1.8424008798478162`, -0.045088809709107}, { 1.8154335390924279`, -0.052393675375075034`}, { 1.7881461812926698`, -0.058393561550917794`}, { 1.7606019171425056`, -0.06307459159152243}, { 1.7328644515135447`, -0.06642593912606601}, { 1.704997936117267, -0.06843985309744073}, { 1.6770668211337851`, -0.06911167568904028}, { 1.2821429600535492`, -0.06911167568903896}, { 1.254211845070067, -0.06843985309743919}, { 1.2263453296737896`, -0.06642593912606426}, { 1.1986078640448288`, -0.06307459159152046}, { 1.1710635998946641`, -0.05839356155091572}, { 1.1437762420949065`, -0.05239367537507274}, { 1.1376426973875537`, -0.05073223161056402}}], PolygonBox[{{1.1563366579922554`, -0.026341974184065295`}, { 1.1537939503681347`, -0.028951905951035316`}, { 1.1479647192622782`, -0.03536620021966015}, { 1.1447232985318987`, -0.03933906919543406}, { 1.1416673540895184`, -0.043372134173485316`}, { 1.139212564790208, -0.0472930182692082}, { 1.1376801667892826`, -0.05074441560605006}, { 1.1369951227006696`, -0.05411231072203221}, { 1.136704530332577, -0.058634289947504865`}, { 1.1367435795576022`, -0.06387907302858886}, { 1.1369378712721039`, -0.06927703001430818}, { 1.1376534559703753`, -0.07858871592715982}, { 1.1380541312841097`, -0.08256616916421541}, { 1.0425815656253332`, -0.019821025483683127`}, { 1.1563366579922554`, -0.026341974184065295`}}]}, { LineBox[{{0.06, 2.115182011507845*^-16}, {0.8259500642433723, 2.9117245304855493`*^-15}}], PolygonBox[{{0.8157540642433723, -0.028975599999997128`}, { 0.8173650642433723, -0.02570729999999712}, { 0.8209250642433723, -0.01780479999999711}, { 0.8227790642433723, -0.0130242999999971}, { 0.8244380642433723, -0.008243909999997093}, { 0.8255600642433722, -0.0037560999999970896`}, {0.8259500642433723, 2.9117245304855493`*^-15}, {0.8255600642433722, 0.0034146600000029103`}, {0.8244380642433722, 0.007804860000002906}, {0.8227790642433722, 0.0127805000000029}, { 0.8209250642433722, 0.017853800000002893`}, {0.8173650642433721, 0.026487800000002885`}, {0.815754064243372, 0.03014640000000288}, { 0.9259500642433722, 3.264254865736857*^-15}, { 0.8157540642433723, -0.028975599999997128`}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.9859500642433722, 3.4757730668876415*^-15}, 0.06], DiskBox[{1.9732597169439627, 7.83014326365185*^-17}, 0.06], DiskBox[{0., 0.}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {48.54890746855969}}], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{0.7063532914945534, -0.9951871247164491}, { 1.0987490264328263`, -0.32107605298546443`}}], PolygonBox[{{1.118661723797096, -0.34446468900894833`}, { 1.1166475603441406`, -0.34142820230968907`}, { 1.1116087995184571`, -0.33437596893354793`}, { 1.1084099713407554`, -0.3303687261733023}, { 1.1051131393083324`, -0.32653006649809135`}, { 1.1017990186981732`, -0.32330269493946695`}, { 1.0987490264328263`, -0.3210760529854644}, { 1.0956017262449484`, -0.31969529071664915`}, { 1.091243072369188, -0.3184563894165783}, { 1.0861083056460488`, -0.31738706948852036`}, { 1.0807910378484862`, -0.3164371473553932}, { 1.0715382135907543`, -0.31517034063946237`}, { 1.067565839341396, -0.31472210210582635`}, { 1.1490561657432725`, -0.2346515672513892}, { 1.118661723797096, -0.34446468900894833`}}]}, { LineBox[{{0.6463536733631008, -0.9949741119059988}, { 0.25875435131418406`, -0.31809400386274517`}}], PolygonBox[{{0.2889658533527666, -0.31254342227765636`}, { 0.285329096990175, -0.31276949538342025`}, { 0.27670230325978235`, -0.3136070729519225}, { 0.27163251508614605`, -0.31437371767045746`}, { 0.2666597222072394, -0.3153095277663612}, { 0.2622076760543409, -0.3165659543056232}, { 0.2587543513141841, -0.3180940038627452}, { 0.2559849258721051, -0.32012926444467704`}, { 0.25273267870806204`, -0.32328451854283996`}, { 0.24923923684192098`, -0.32719669675165064`}, { 0.24575794594643274`, -0.3313266244254714}, { 0.2400344464877432, -0.3387064015187433}, { 0.237660073174076, -0.34192245909399677`}, { 0.2090621270722092, -0.23131449677791965`}, { 0.2889658533527666, -0.31254342227765636`}}]}, { LineBox[{{0.2392464144330618, -0.17945979753292726`}, { 1.0192414575801068`, -0.18222886246186953`}}], PolygonBox[{{1.00894265603339, -0.21116808321954278`}, { 1.010565248619247, -0.20790552299935958`}, { 1.0141532807199911`, -0.2000157110945021}, { 1.016024240210733, -0.19524182307382099`}, { 1.017700200539771, -0.1904673527861775}, { 1.0188381255693395`, -0.18598355426001895`}, { 1.0192414575801068`, -0.18222886246186953`}, { 1.0188635823656085`, -0.17881283944703666`}, { 1.0177571750122474`, -0.17441868391856152`}, { 1.0161158494036717`, -0.16943718568447236`}, { 1.0142798717250492`, -0.16435733579952494`}, { 1.0107505455789738`, -0.15571075191022923`}, { 1.0091525440660398`, -0.15204645578073026`}, { 1.1192408274235026`, -0.18258387080504113`}, { 1.00894265603339, -0.21116808321954278`}}]}, { LineBox[{{0.23924679252702433`, -1.405535401210943}, { 1.0192467925270259`, -1.405535401210943}}], PolygonBox[{{1.009050792527026, -1.434511001210943}, { 1.010661792527026, -1.431242701210943}, { 1.014221792527026, -1.4233402012109428`}, { 1.016075792527026, -1.418559701210943}, { 1.017734792527026, -1.413779311210943}, { 1.018856792527026, -1.4092915012109428`}, { 1.0192467925270259`, -1.405535401210943}, { 1.018856792527026, -1.4021207412109429`}, { 1.017734792527026, -1.3977305412109429`}, { 1.016075792527026, -1.3927549012109428`}, { 1.014221792527026, -1.387681601210943}, { 1.010661792527026, -1.379047601210943}, { 1.009050792527026, -1.3753890012109429`}, { 1.119246792527026, -1.405535401210943}, { 1.009050792527026, -1.434511001210943}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.6761690079082857, -1.0470418161568942}, 0.06], DiskBox[{1.17924044932954, -0.18279687581094406}, 0.06], DiskBox[{1.179246792527026, -1.405535401210943}, 0.06], DiskBox[{0.17924679252702427, -0.17924679252702433}, 0.06], DiskBox[{0.17924679252702433, -1.405535401210943}, 0.06]}}, {}}, ImageSizeRaw->{{282.24000000000046`}, {395.808850953072}}], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{2.370519695917255, -0.31251739582635585`}, { 3.1839545973760255`, -0.3125151069646761}}], PolygonBox[{{3.1702951412644955`, -0.351333711648655}, { 3.172453383138156, -0.3469551691495589}, { 3.1772226798107175`, -0.33636818877187763`}, { 3.179706462705889, -0.32996375336898154`}, { 3.1819290044047985`, -0.3235594660680008}, { 3.183432129141944, -0.3175471497622261}, { 3.1839545973760255`, -0.3125151069646761}, { 3.1834321021105163`, -0.30794049374436105`}, { 3.181928943906167, -0.3020589538629023}, { 3.1797063654302047`, -0.2953931029484119}, { 3.177222545389419, -0.2885964178189183}, { 3.172453186379642, -0.2770294748691663}, { 3.170294918393827, -0.27212806021307256`}, { 3.3179244418257774`, -0.312514729997272}, { 3.1702951412644955`, -0.351333711648655}}]}, { LineBox[{{0.37251046167331264`, -0.9375384880023497}, { 1.1203144730624275`, -0.9375384880023497}}], PolygonBox[{{1.1066549077222767`, -0.9763570542508858}, { 1.1088131619163708`, -0.9719785178247172}, { 1.1135824883788008`, -0.9613915508670337}, { 1.116066289294909, -0.9549871224530879}, { 1.1182888490143392`, -0.948582841405971}, { 1.1197919906690714`, -0.9425705293297468}, { 1.1203144730624275`, -0.9375384880023497}, { 1.1197919906690714`, -0.9329638733118437}, { 1.1182888490143392`, -0.9270823292007875}, { 1.116066289294909, -0.9204164720323814}, { 1.1135824883788008`, -0.9136197799138852}, { 1.1088131619163708`, -0.9020528235440478}, { 1.1066549077222767`, -0.8971514028149898}, { 1.2542843175127099`, -0.9375384880023497}, { 1.1066549077222767`, -0.9763570542508858}}]}, { LineBox[{{0.37251046167261154`, -0.31251075173290677`}, { 1.0516227116414225`, -0.3125140347833013}}], PolygonBox[{{1.0379629586398051`, -0.35133253499658407`}, { 1.040121234001149, -0.3469540090041722}, { 1.0448906116443788`, -0.33636706510309405`}, { 1.0473744435215566`, -0.32996264869672787`}, { 1.0495970342013468`, -0.3235583783942654}, { 1.0511002049215414`, -0.31754607358478903`}, { 1.0516227116414225`, -0.3125140347833013}, { 1.051100251363254, -0.3079394175669982}, { 1.0495971381418443`, -0.302057866189333}, { 1.0473746106473705`, -0.29539199827642537`}, { 1.0448908425887207`, -0.28859529415050383`}, { 1.0401215720447907`, -0.27702831472432}, { 1.0379633415457903`, -0.27212688356161363`}, { 1.1855925560901395`, -0.31251468243728003`}, { 1.0379629586398051`, -0.35133253499658407`}}]}, { LineBox[{{1.3055925560892605`, -0.31251511854398417`}, { 2.1165498514677847`, -0.312517092510138}}], PolygonBox[{{2.1028901916386844`, -0.3513356255095583}, { 2.1050484564906484`, -0.3469570943368492}, { 2.1098178087229966`, -0.33637013898830276`}, { 2.112301625228235, -0.3299657166202417}, { 2.1145242005364375`, -0.32356144098311757`}, { 2.116027356825845, -0.3175491325657361}, { 2.1165498514677847`, -0.312517092510138}, { 2.1160273802095846`, -0.30794247654786144`}, { 2.1145242528712322`, -0.3020609287779977}, { 2.1123017093772947`, -0.2953950661996377}, { 2.1098179250051476`, -0.28859836803529587`}, { 2.1050486266980744`, -0.277031400056387}, { 2.1028903844346254`, -0.272129974073897}, { 2.2505196959176703`, -0.31251741860861454`}, { 2.1028901916386844`, -0.3513356255095583}}]}, { LineBox[{{4.250736605808089, -0.3125109325009639}, { 3.5718942862741456`, -0.3125137547493052}}], PolygonBox[{{3.585553690228197, -0.27369513171223847`}, { 3.5833954542376376`, -0.2780736771111883}, { 3.5786261717899617`, -0.28866066389698397`}, { 3.5761423974999222`, -0.2950651026371354}, { 3.5739198644059456`, -0.3014693929243626}, { 3.572416747747072, -0.3074817112497608}, { 3.571894286274146, -0.3125137547493052}, { 3.572416787686198, -0.31708836726758083`}, { 3.5739199537931023`, -0.32296990512936036`}, { 3.5761425412254355`, -0.3296357530575431}, { 3.578626370398383, -0.3364324348497195}, { 3.583395744949735, -0.34799937139125336`}, { 3.585554019521189, -0.35290078314745}, { 3.437924441825021, -0.31251431172131533`}, { 3.585553690228197, -0.27369513171223847`}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{2.3105196959174927, -0.31251756465572444}, 0.06], DiskBox[{0.31251046167331265, -0.31251046167331253}, 0.06], DiskBox[{1.31428431751271, -0.9375384880023497}, 0.06], DiskBox[{3.37792444182554, -0.31251456116790344}, 0.06], DiskBox[{0.31251046167331265, -0.9375384880023497}, 0.06], DiskBox[{1.2455925560894383, -0.31251497249687427}, 0.06], DiskBox[{4.310736605807571, -0.3125106830543758}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {219.0382397407369}}], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{2.5585319139185887`, -0.7500351068458897}, { 3.30607101342867, -0.7500351068458897}}], PolygonBox[{{3.292413533490512, -0.7888477466748502}, { 3.294571458184546, -0.7844698787186045}, { 3.299340056515249, -0.7738845280701845}, { 3.3018234782301707`, -0.7674810774185208}, { 3.3040456986320343`, -0.7610777741111876}, { 3.305548610802554, -0.7550663799329547}, { 3.30607101342867, -0.7500351068458897}, { 3.305548610802554, -0.74546119056052}, { 3.3040456986320343`, -0.7395805443831466}, { 3.3018234782301707`, -0.7329157048892769}, { 3.299340056515249, -0.7261200504198521}, { 3.294571458184546, -0.7145548599739857}, { 3.292413533490512, -0.7096541875434499}, { 3.440020404740534, -0.7500351068458897}, { 3.292413533490512, -0.7888477466748502}}]}, { LineBox[{{0.3100102023727835, -0.25001038570941075`}, { 0.987861778238455, -0.2500124316393602}}], PolygonBox[{{0.9742041811538557, -0.28882503024636585`}, { 0.9763621190614086, -0.28444716880331045`}, { 0.981130749341393, -0.2738618325477917}, { 0.9836141903835605, -0.267458389391761}, { 0.9858364301122262, -0.2610550927916882}, { 0.9873393604266683, -0.2550437031496571}, { 0.987861778238455, -0.2500124316393602}, { 0.9873393894175938, -0.2454385137772662}, { 0.9858364949963803, -0.23955786306374505`}, { 0.983614294710722, -0.2328930168626745}, { 0.9811308935068399, -0.22609735489767682`}, { 0.9763623300828709, -0.21453215005901008`}, { 0.9742044201803332, -0.2096314711153262}, { 1.121811169549709, -0.25001283593298607`}, { 0.9742041811538557, -0.28882503024636585`}}]}, { LineBox[{{1.241811169549361, -0.25001311176413504`}, { 2.0550858901567164`, -0.2500143958674038}}], PolygonBox[{{2.041428348936162, -0.288827014132121}, { 2.0435862805425375`, -0.2844491495830913}, { 2.048354895586754, -0.2738638064639639}, { 2.0508383274122686`, -0.2674603597334555}, { 2.0530605579244927`, -0.2610570599348591}, { 2.054563479586576, -0.25504566812962565`}, { 2.0550858901567164`, -0.2500143958674038}, { 2.054563494752491, -0.245440478757203}, { 2.0530605918670983`, -0.23955983020684485`}, { 2.050838381988547, -0.23289498720425467`}, { 2.0483549710034863`, -0.22609932881369108`}, { 2.0435863909334078`, -0.2145341308385596}, { 2.0414284739771915`, -0.20963345500081937`}, { 2.1890352814684135`, -0.25001460736401976`}, { 2.041428348936162, -0.288827014132121}}]}, { LineBox[{{4.187033220718281, -0.2500103836231766}, { 3.5079327093378927`, -0.25001243507399623`}}], PolygonBox[{{3.5215900720293942`, -0.21119975398821483`}, { 3.5194321605601884`, -0.21557762846317569`}, { 3.514663594206109, -0.22616299351669777`}, { 3.512180191834968, -0.2325664516703403}, { 3.5099579907764396`, -0.2389697616906062}, { 3.508455096765359, -0.24498116040886195`}, { 3.5079327093378927`, -0.25001243507399623`}, { 3.5084551257810546`, -0.2545863497812528}, { 3.5099580557160306`, -0.2604669914185492}, { 3.512180296251267, -0.2671318241994265}, { 3.5146637384947303`, -0.27392747116681226`}, { 3.519432371761947, -0.2854926472074755}, { 3.5215903112600957`, -0.29039331311925387`}, { 3.3739833180266396`, -0.2500128397130504}, { 3.5215900720293942`, -0.21119975398821483`}}]}, { LineBox[{{3.253983318026988, -0.2500131156797133}, { 2.442984672779961, -0.2500143959295126}}], PolygonBox[{{2.4566420914481175`, -0.21120173454077903`}, { 2.454484173665028, -0.21557960590353867`}, { 2.4497155920444618`, -0.22616496407969802`}, { 2.447232180438088, -0.2325684186517057}, { 2.4450099701445396`, -0.23897172546704817`}, { 2.4435070674636634`, -0.2449831220177844}, { 2.442984672779961, -0.2500143959295126}, { 2.4435070826265024`, -0.25458831139020704`}, { 2.445010004080261, -0.26046895519506247`}, { 2.4472322350032982`, -0.2671337911809066}, { 2.4497156674458984`, -0.2739294417299709}, { 2.454484284033509, -0.28549462464807035`}, { 2.4566422164637864`, -0.29039529367208067`}, { 2.309035281468264, -0.25001460738323367`}, { 2.4566420914481175`, -0.21120173454077903`}}]}, { LineBox[{{0.31001020237305654`, -0.7500351068458897}, { 1.0575493018831377`, -0.7500351068458897}}], PolygonBox[{{1.04389182194498, -0.7888477466748502}, { 1.0460497466390142`, -0.7844698787186045}, { 1.0508183449697164`, -0.7738845280701845}, { 1.0533017666846385`, -0.7674810774185208}, { 1.0555239870865023`, -0.7610777741111876}, { 1.0570268992570213`, -0.7550663799329547}, { 1.0575493018831377`, -0.7500351068458897}, { 1.0570268992570213`, -0.74546119056052}, { 1.0555239870865023`, -0.7395805443831466}, { 1.0533017666846385`, -0.7329157048892769}, { 1.0508183449697164`, -0.7261200504198521}, { 1.0460497466390142`, -0.7145548599739857}, { 1.04389182194498, -0.7096541875434499}, { 1.1914986931950018`, -0.7500351068458897}, { 1.04389182194498, -0.7888477466748502}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{2.2490352814683385, -0.25001470209977655}, 0.06], DiskBox[{0.25001020237305677, -0.25001020461401857}, 0.06], DiskBox[{3.500020404740534, -0.7500351068458897}, 0.06], DiskBox[{4.2470332207180075, -0.2500102023730566}, 0.06], DiskBox[{2.4985319139185886, -0.7500351068458897}, 0.06], DiskBox[{1.1818111695494358, -0.25001301702837825}, 0.06], DiskBox[{1.2514986931950018, -0.7500351068458897}, 0.06], DiskBox[{3.3139833180269136, -0.2500130209631704}, 0.06], DiskBox[{0.25001020237305654, -0.7500351068458897}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {182.28732191501297`}}], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{1.9965956443128885`, -1.093800023110293}, { 2.7600892785386146`, -1.093800023110293}}], PolygonBox[{{2.74816316297906, -1.1276923685406024`}, { 2.7500475266674123`, -1.1238694847152502`}, { 2.7542116078161, -1.1146260433451656`}, { 2.756380205133422, -1.1090343607801938`}, { 2.7583207137361385`, -1.1034428068806508`}, { 2.7596331011094044`, -1.0981934796278727`}, { 2.7600892785386146`, -1.093800023110293}, { 2.7596331011094044`, -1.089805944083558}, { 2.7583207137361385`, -1.084670789853511}, { 2.756380205133422, -1.078850854817934}, { 2.7542116078161, -1.07291668827534}, { 2.7500475266674123`, -1.0628176218040575`}, { 2.74816316297906, -1.0585382096437803`}, { 2.877057850130953, -1.093800023110293}, { 2.74816316297906, -1.1276923685406024`}}]}, { LineBox[{{0.278760004622058, -0.21876000462205852`}, { 1.0097145066059339`, -0.2187600046220597}}], PolygonBox[{{0.9977883910463791, -0.25265235005236925`}, { 0.9996727547347316, -0.24882946622701685`}, { 1.0038368358834189`, -0.2395860248569323}, { 1.0060054332007409`, -0.2339943422919606}, { 1.0079459418034578`, -0.22840278839241762`}, { 1.0092583291767239`, -0.22315346113963952`}, { 1.0097145066059339`, -0.2187600046220597}, { 1.0092583291767239`, -0.21476592559532476`}, { 1.0079459418034578`, -0.2096307713652779}, { 1.0060054332007409`, -0.2038108363297009}, { 1.0038368358834189`, -0.1978766697871068}, { 0.9996727547347317, -0.1877776033158243}, { 0.9977883910463792, -0.183498191155547}, { 1.1266830781982722`, -0.21876000462205988`}, { 0.9977883910463791, -0.25265235005236925`}}]}, { LineBox[{{0.2787600046220581, -0.6562800138661765}, { 1.0425592929349645`, -0.6562800138661765}}], PolygonBox[{{1.0306331773754098`, -0.6901723592964861}, { 1.0325175410637624`, -0.6863494754711337}, { 1.0366816222124495`, -0.6771060341010492}, { 1.0388502195297715`, -0.6715143515360774}, { 1.0407907281324884`, -0.6659227976365345}, { 1.0421031155057545`, -0.6606734703837563}, { 1.0425592929349645`, -0.6562800138661765}, { 1.0421031155057545`, -0.6522859348394415}, { 1.0407907281324884`, -0.6471507806093948}, { 1.0388502195297715`, -0.6413308455738177}, { 1.0366816222124495`, -0.6353966790312237}, { 1.0325175410637624`, -0.6252976125599411}, { 1.0306331773754098`, -0.6210182003996638}, { 1.1595278645273028`, -0.6562800138661765}, { 1.0306331773754098`, -0.6901723592964861}}]}, { LineBox[{{0.2787600046220583, -1.093800023110293}, { 1.0422536388477845`, -1.093800023110293}}], PolygonBox[{{1.0303275232882299`, -1.1276923685406024`}, { 1.0322118869765824`, -1.1238694847152502`}, { 1.0363759681252696`, -1.1146260433451656`}, { 1.0385445654425915`, -1.1090343607801938`}, { 1.0404850740453084`, -1.1034428068806508`}, { 1.0417974614185745`, -1.0981934796278727`}, { 1.0422536388477845`, -1.093800023110293}, { 1.0417974614185745`, -1.089805944083558}, { 1.0404850740453084`, -1.084670789853511}, { 1.0385445654425915`, -1.078850854817934}, { 1.0363759681252696`, -1.07291668827534}, { 1.0322118869765824`, -1.0628176218040575`}, { 1.0303275232882299`, -1.0585382096437803`}, { 1.1592222104401229`, -1.093800023110293}, { 1.0303275232882299`, -1.1276923685406024`}}]}, { LineBox[{{3.156911274759602, -0.21876000462205833`}, { 2.4286933676494327`, -0.2187600046220592}}], PolygonBox[{{2.4406194832089874`, -0.1848676591917496}, { 2.4387351195206346`, -0.188690543017102}, { 2.4345710383719474`, -0.19793398438718654`}, { 2.4324024410546254`, -0.20352566695215826`}, { 2.430461932451909, -0.20911722085170126`}, { 2.429149545078643, -0.21436654810447936`}, { 2.4286933676494327`, -0.2187600046220592}, { 2.429149545078643, -0.22275408364879412`}, { 2.430461932451909, -0.22788923787884097`}, { 2.4324024410546254`, -0.23370917291441798`}, { 2.4345710383719474`, -0.23964333945701208`}, { 2.438735119520635, -0.24974240592829455`}, { 2.4406194832089874`, -0.2540218180885718}, { 2.3117247960570944`, -0.21876000462205933`}, { 2.4406194832089874`, -0.1848676591917496}}]}, { LineBox[{{2.1917247960570942`, -0.21876000462205944`}, { 1.3636516497906106`, -0.21876000462205988`}}], PolygonBox[{{1.3755777653501653`, -0.1848676591917503}, { 1.3736934016618128`, -0.1886905430171027}, { 1.3695293205131256`, -0.19793398438718723`}, { 1.3673607231958036`, -0.20352566695215896`}, { 1.3654202145930867`, -0.20911722085170195`}, { 1.3641078272198206`, -0.21436654810448005`}, { 1.3636516497906106`, -0.21876000462205988`}, { 1.3641078272198206`, -0.22275408364879482`}, { 1.3654202145930867`, -0.22788923787884166`}, { 1.3673607231958036`, -0.23370917291441867`}, { 1.3695293205131256`, -0.23964333945701277`}, { 1.3736934016618128`, -0.24974240592829525`}, { 1.3755777653501653`, -0.25402181808857255`}, { 1.2466830781982723`, -0.21876000462205994`}, { 1.3755777653501653`, -0.1848676591917503}}]}, { LineBox[{{2.1596843228483853`, -0.6562800138661765}, { 1.3964964361196412`, -0.6562800138661765}}], PolygonBox[{{1.408422551679196, -0.6223876684358669}, { 1.4065381879908434`, -0.6262105522612194}, { 1.4023741068421562`, -0.6354539936313038}, { 1.4002055095248342`, -0.6410456761962756}, { 1.3982650009221174`, -0.6466372300958185}, { 1.3969526135488513`, -0.6518865573485967}, { 1.3964964361196412`, -0.6562800138661765}, { 1.3969526135488513`, -0.6602740928929115}, { 1.3982650009221174`, -0.6654092471229582}, { 1.4002055095248342`, -0.6712291821585353}, { 1.4023741068421562`, -0.6771633487011294}, { 1.4065381879908434`, -0.6872624151724119}, { 1.408422551679196, -0.6915418273326892}, { 1.279527864527303, -0.6562800138661765}, { 1.408422551679196, -0.6223876684358669}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{3.2169112747596023, -0.21876000462205825}, 0.06], DiskBox[{0.21876000462205805, -0.21876000462205844}, 0.06], DiskBox[{2.937057850130953, -1.093800023110293}, 0.06], DiskBox[{0.21876000462205805, -0.6562800138661765}, 0.06], DiskBox[{1.9365956443128884, -1.093800023110293}, 0.06], DiskBox[{1.1866830781982722, -0.21876000462205997}, 0.06], DiskBox[{1.219222210440123, -1.093800023110293}, 0.06], DiskBox[{1.2195278645273029, -0.6562800138661765}, 0.06], DiskBox[{0.21876000462205827, -1.093800023110293}, 0.06], DiskBox[{2.2517247960570943, -0.2187600046220594}, 0.06], DiskBox[{2.2196843228483853, -0.6562800138661765}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {292.541765435541}}], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{0.2475100000024027, -2.06261000002643}, { 1.027510233684799, -2.06261000002643}}], PolygonBox[{{1.017314233013724, -2.091585601933531}, { 1.0189252331197558`, -2.0883173017184196`}, { 1.0224852333540662`, -2.080414801198297}, { 1.0243392334760917`, -2.075634300883656}, { 1.0259982335852829`, -2.0708539105690233`}, { 1.02712023365913, -2.0663661002736466`}, { 1.027510233684799, -2.06261000002643}, { 1.02712023365913, -2.0591953398016853`}, { 1.0259982335852829`, -2.054805139512734}, { 1.0243392334760917`, -2.0498294991852495`}, { 1.0224852333540662`, -2.0447561988513376`}, { 1.0189252331197558`, -2.0361221982830697`}, { 1.017314233013724, -2.03246359804227}, { 1.1275102402665464`, -2.06261000002643}, { 1.017314233013724, -2.091585601933531}}]}, { LineBox[{{0.2475100000024027, -1.312570000016819}, { 1.027510233684799, -1.312570000016819}}], PolygonBox[{{1.017314233013724, -1.3415456019239198`}, { 1.0189252331197558`, -1.3382773017088085`}, { 1.0224852333540662`, -1.330374801188686}, { 1.0243392334760917`, -1.3255943008740456`}, { 1.0259982335852829`, -1.3208139105594123`}, { 1.02712023365913, -1.316326100264036}, { 1.027510233684799, -1.312570000016819}, { 1.02712023365913, -1.3091553397920748`}, { 1.0259982335852829`, -1.3047651395031228`}, { 1.0243392334760917`, -1.2997894991756387`}, { 1.0224852333540662`, -1.294716198841727}, { 1.0189252331197558`, -1.286082198273459}, { 1.017314233013724, -1.282423598032659}, { 1.1275102402665464`, -1.312570000016819}, { 1.017314233013724, -1.3415456019239198`}}]}, { LineBox[{{0.2475100000024027, -0.9375500000120135}, { 1.0278157466355535`, -0.9375500000120135}}], PolygonBox[{{1.0176197459644785`, -0.9665256019191143}, { 1.0192307460705106`, -0.963257301704003}, { 1.0227907463048207`, -0.9553548011838805}, { 1.0246447464268462`, -0.95057430086924}, { 1.0263037465360374`, -0.9457939105546068}, { 1.0274257466098846`, -0.9413061002592306}, { 1.0278157466355535`, -0.9375500000120135}, { 1.0274257466098846`, -0.9341353397872691}, { 1.0263037465360374`, -0.9297451394983173}, { 1.0246447464268462`, -0.9247694991708333}, { 1.0227907463048207`, -0.9196961988369214}, { 1.0192307460705106`, -0.9110621982686534}, { 1.0176197459644785`, -0.9074035980278535}, { 1.127815753217301, -0.9375500000120135}, { 1.0176197459644785`, -0.9665256019191143}}]}, { LineBox[{{2.127509446025379, -0.18751000000240267`}, { 1.3464926232629144`, -0.18751000000240275`}}], PolygonBox[{{1.3566886239339895`, -0.15853439809530193`}, { 1.3550776238279574`, -0.16180269831041316`}, { 1.3515176235936472`, -0.16970519883053578`}, { 1.3496636234716217`, -0.17448569914517623`}, { 1.3480046233624305`, -0.1792660894598094}, { 1.3468826232885833`, -0.18375389975518575`}, { 1.3464926232629144`, -0.18751000000240275`}, { 1.3468826232885833`, -0.19092466022714705`}, { 1.3480046233624305`, -0.19531486051609892`}, { 1.3496636234716217`, -0.200290500843583}, { 1.3515176235936472`, -0.20536380117749478`}, { 1.3550776238279574`, -0.21399780174576288`}, { 1.3566886239339895`, -0.2176564019865627}, { 1.246492616681167, -0.18751000000240275`}, { 1.3566886239339895`, -0.15853439809530193`}}]}, { LineBox[{{1.1264926166811668`, -0.18751000000240275`}, { 0.3475100065841502, -0.18751000000240275`}}], PolygonBox[{{0.35770600725522517`, -0.15853439809530193`}, { 0.35609500714919323`, -0.16180269831041316`}, { 0.35253500691488304`, -0.16970519883053578`}, { 0.3506810067928574, -0.17448569914517623`}, { 0.34902200668366623`, -0.1792660894598094}, { 0.347900006609819, -0.18375389975518575`}, { 0.3475100065841502, -0.18751000000240275`}, { 0.347900006609819, -0.19092466022714705`}, { 0.34902200668366623`, -0.19531486051609892`}, { 0.3506810067928574, -0.200290500843583}, { 0.35253500691488304`, -0.20536380117749478`}, { 0.35609500714919323`, -0.21399780174576288`}, { 0.35770600725522517`, -0.2176564019865627}, { 0.2475100000024027, -0.18751000000240275`}, { 0.35770600725522517`, -0.15853439809530193`}}]}, { LineBox[{{2.1275103871640204`, -0.9375500000120135}, { 1.3478157597990486`, -0.9375500000120135}}], PolygonBox[{{1.3580117604701236`, -0.9085743981049127}, { 1.3564007603640915`, -0.911842698320024}, { 1.3528407601297814`, -0.9197451988401465}, { 1.3509867600077559`, -0.924525699154787}, { 1.3493277598985647`, -0.9293060894694202}, { 1.3482057598247175`, -0.9337938997647964}, { 1.3478157597990486`, -0.9375500000120135}, { 1.3482057598247175`, -0.9409646602367578}, { 1.3493277598985647`, -0.9453548605257097}, { 1.3509867600077559`, -0.9503305008531937}, { 1.3528407601297814`, -0.9554038011871056}, { 1.3564007603640915`, -0.9640378017553736}, { 1.3580117604701236`, -0.9676964019961735}, { 1.247815753217301, -0.9375500000120135}, { 1.3580117604701236`, -0.9085743981049127}}]}, { LineBox[{{2.127509446025379, -0.562530000007208}, { 1.3464926232629144`, -0.5625300000072081}}], PolygonBox[{{1.3566886239339895`, -0.5335543981001073}, { 1.3550776238279574`, -0.5368226983152186}, { 1.3515176235936472`, -0.5447251988353411}, { 1.3496636234716217`, -0.5495056991499816}, { 1.3480046233624305`, -0.5542860894646148}, { 1.3468826232885833`, -0.558773899759991}, { 1.3464926232629144`, -0.5625300000072081}, { 1.3468826232885833`, -0.5659446602319524}, { 1.3480046233624305`, -0.5703348605209043}, { 1.3496636234716217`, -0.5753105008483883}, { 1.3515176235936472`, -0.5803838011823002}, { 1.3550776238279574`, -0.5890178017505682}, { 1.3566886239339895`, -0.5926764019913681}, { 1.246492616681167, -0.5625300000072081}, { 1.3566886239339895`, -0.5335543981001073}}]}, { LineBox[{{1.1264926166811668`, -0.5625300000072081}, { 0.3475100065841502, -0.5625300000072081}}], PolygonBox[{{0.35770600725522517`, -0.5335543981001073}, { 0.35609500714919323`, -0.5368226983152186}, { 0.35253500691488304`, -0.5447251988353411}, { 0.3506810067928574, -0.5495056991499816}, { 0.34902200668366623`, -0.5542860894646148}, { 0.347900006609819, -0.558773899759991}, { 0.3475100065841502, -0.5625300000072081}, { 0.347900006609819, -0.5659446602319524}, { 0.34902200668366623`, -0.5703348605209043}, { 0.3506810067928574, -0.5753105008483883}, { 0.35253500691488304`, -0.5803838011823002}, { 0.35609500714919323`, -0.5890178017505682}, { 0.35770600725522517`, -0.5926764019913681}, { 0.2475100000024027, -0.5625300000072081}, { 0.35770600725522517`, -0.5335543981001073}}]}, { LineBox[{{0.2475100000024027, -1.6875900000216244`}, { 1.027510233684799, -1.6875900000216244`}}], PolygonBox[{{1.017314233013724, -1.7165656019287252`}, { 1.0189252331197558`, -1.713297301713614}, { 1.0224852333540662`, -1.7053948011934914`}, { 1.0243392334760917`, -1.700614300878851}, { 1.0259982335852829`, -1.6958339105642177`}, { 1.02712023365913, -1.6913461002688415`}, { 1.027510233684799, -1.6875900000216244`}, { 1.02712023365913, -1.6841753397968802`}, { 1.0259982335852829`, -1.6797851395079282`}, { 1.0243392334760917`, -1.674809499180444}, { 1.0224852333540662`, -1.6697361988465325`}, { 1.0189252331197558`, -1.6611021982782643`}, { 1.017314233013724, -1.6574435980374644`}, { 1.1275102402665464`, -1.6875900000216244`}, { 1.017314233013724, -1.7165656019287252`}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.1875100000024027, -0.9375500000120135}, 0.06], DiskBox[{0.1875100000024027, -0.18751000000240275}, 0.06], DiskBox[{1.1875102402665465, -2.06261000002643}, 0.06], DiskBox[{0.1875100000024027, -0.5625300000072081}, 0.06], DiskBox[{0.1875100000024027, -2.06261000002643}, 0.06], DiskBox[{2.1875094460253792, -0.18751000000240267}, 0.06], DiskBox[{1.1875102402665465, -1.312570000016819}, 0.06], DiskBox[{2.1875094460253792, -0.562530000007208}, 0.06], DiskBox[{0.1875100000024027, -1.312570000016819}, 0.06], DiskBox[{1.187815753217301, -0.9375500000120135}, 0.06], DiskBox[{1.1875102402665465, -1.6875900000216244}, 0.06], DiskBox[{1.186492616681167, -0.18751000000240275}, 0.06], DiskBox[{2.1875103871640205, -0.9375500000120135}, 0.06], DiskBox[{1.186492616681167, -0.5625300000072081}, 0.06], DiskBox[{0.1875100000024027, -1.6875900000216244}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {420}}]}], "}"}]], "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[{"3", ",", "2"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", "6"}], "|>"}], ",", "\"\\""}], "]"}]], "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 3BE13X7r1JdLjAr277/QVXG+oWiFfXN57vRt2Uf3L/x+6uTaS1vtJRWMYpi3 n9y/X/202n6Gg/b2HPHNRwLP7FcqUa9O+nPcPl9OeLOWwNn9Yb/uxZxOO2+f 7m3tsPnp6f17JF81zEu8bP9Ln2fer6cn9tstUTv66dQ1e4nCH7VFzkf2i+wo SGDYdtPegunCTKUZe/bb823y2Pjxtv36lkDL0xPW7p95JVO/NOKuvXeUwTmD NTP2rLm8L3rnpbv2MyHy9rOg8lD99nZQ/XwQ8+0loOZ/h9hv7wC1PwXiPvu9 UPflQtxvHwF1vy3Ef/aKUP9JQPxvfwjqf2j42C+Ghs/n7p237EoP2bt4pdpv u7rBHgDUHb8A "]], 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/dXLtpa37JRWMYpi3 n7Q/qH5abT/Dwf12HPHNRwLP2KuUqFcn/Tm+P09OeLOWwFn70F/3Yk6nnd+f 6m3tsPnpafu9kq8a5iVe3v9Dn2fer6cn7B2WqB39dOrafrHCH7VFzkfsRXYU JDBsu7nfiunCTKUZe+zt+TZ5bPx4e//2lkDL0xPW2s+8kqlfGnF3v5GNgsnp ogabNZf3Re+8dHf/eoj8fpi8DUT/fjuofiGI+fvFoOZ/g9i/H2Y/1H37Ye6D un9/ONT9UP/tV4T6D+r//TD/N0PCZ/9CaPh86d55y6700H5nr1T7bVc37AcA YrzIlg== "]], PolygonBox[{{-0.1401438965025222, -0.09651776884519592}, \ {-0.1402846173460453, -0.0928767108211872}, {-0.1409196469096, \ -0.08423264674788167}, {-0.14156718288037162`, -0.07914627344103946}, \ {-0.14238611245791824`, -0.07415290144417008}, {-0.14353778297311665`, \ -0.06967261377254422}, {-0.1449844240527258, -0.06618440265554065}, \ {-0.1469541756234286, -0.06336800750121416}, {-0.1500322894146909, \ -0.060042657064336716`}, {-0.15386146257496047`, -0.056458426698097544`}, \ {-0.15790861027755737`, -0.05288123724779374}, {-0.16515212874264731`, \ -0.04698623968664915}, {-0.16831161739566936`, -0.044537095670584524`}, \ {-0.05706339097770908, -0.01854101966249724}, {-0.1401438965025222, \ -0.09651776884519592}}]}}, {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], LineBox[{{1.0425815656253332`, 0.019821025483689584`}, { 1.0902239481812623`, 0.0364958593782645}, {1.1168089013395186`, 0.045088809709110514`}, {1.1437762420949071`, 0.05239367537507854}, { 1.171063599894665, 0.058393561550921305`}, {1.1986078640448294`, 0.06307459159152594}, {1.2263453296737903`, 0.0664259391260695}, { 1.2542118450700679`, 0.06843985309744423}, {1.2821429600535499`, 0.06911167568904378}, {1.6770668211337858`, 0.06911167568904247}, { 1.7049979361172678`, 0.0684398530974427}, {1.7328644515135454`, 0.06642593912606776}, {1.7606019171425062`, 0.06307459159152397}, { 1.7881461812926707`, 0.058393561550919224`}, {1.8154335390924285`, 0.05239367537507624}, {1.8215670837997813`, 0.050732231610567516`}}], PolygonBox[{{1.8028731231950796`, 0.02634197418406879}, { 1.8054158308192, 0.028951905951038814`}, {1.8112450619250569`, 0.03536620021966365}, {1.814486482655436, 0.039339069195437566`}, { 1.8175424270978167`, 0.04337213417348881}, {1.8199972163971267`, 0.047293018269211694`}, {1.8215296143980524`, 0.05074441560605357}, { 1.8222146584866654`, 0.054112310722035706`}, {1.8225052508547581`, 0.05863428994750837}, {1.8224662016297328`, 0.06387907302859236}, { 1.8222719099152311`, 0.06927703001431168}, {1.8215563252169598`, 0.07858871592716334}, {1.8211556499032253`, 0.08256616916421892}, { 1.9166282155620018`, 0.01982102548368668}, {1.8028731231950796`, 0.02634197418406879}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], AbsoluteDashing[{1, 3}], LineBox[{{1.9166282155620016`, -0.01982102548368607}, { 1.8689858330060727`, -0.036495859378261}, { 1.8424008798478162`, -0.045088809709107}, { 1.8154335390924279`, -0.052393675375075034`}, { 1.7881461812926698`, -0.058393561550917794`}, { 1.7606019171425056`, -0.06307459159152243}, { 1.7328644515135447`, -0.06642593912606601}, { 1.704997936117267, -0.06843985309744073}, { 1.6770668211337851`, -0.06911167568904028}, { 1.2821429600535492`, -0.06911167568903896}, { 1.254211845070067, -0.06843985309743919}, { 1.2263453296737896`, -0.06642593912606426}, { 1.1986078640448288`, -0.06307459159152046}, { 1.1710635998946641`, -0.05839356155091572}, { 1.1437762420949065`, -0.05239367537507274}, { 1.1376426973875537`, -0.05073223161056402}}], PolygonBox[{{1.1563366579922554`, -0.026341974184065295`}, { 1.1537939503681347`, -0.028951905951035316`}, { 1.1479647192622782`, -0.03536620021966015}, { 1.1447232985318987`, -0.03933906919543406}, { 1.1416673540895184`, -0.043372134173485316`}, { 1.139212564790208, -0.0472930182692082}, { 1.1376801667892826`, -0.05074441560605006}, { 1.1369951227006696`, -0.05411231072203221}, { 1.136704530332577, -0.058634289947504865`}, { 1.1367435795576022`, -0.06387907302858886}, { 1.1369378712721039`, -0.06927703001430818}, { 1.1376534559703753`, -0.07858871592715982}, { 1.1380541312841097`, -0.08256616916421541}, { 1.0425815656253332`, -0.019821025483683127`}, { 1.1563366579922554`, -0.026341974184065295`}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], AbsoluteDashing[{1, 3}], LineBox[{{0.06, 2.115182011507845*^-16}, {0.8259500642433723, 2.9117245304855493`*^-15}}], PolygonBox[{{0.8157540642433723, -0.028975599999997128`}, { 0.8173650642433723, -0.02570729999999712}, { 0.8209250642433723, -0.01780479999999711}, { 0.8227790642433723, -0.0130242999999971}, { 0.8244380642433723, -0.008243909999997093}, { 0.8255600642433722, -0.0037560999999970896`}, {0.8259500642433723, 2.9117245304855493`*^-15}, {0.8255600642433722, 0.0034146600000029103`}, {0.8244380642433722, 0.007804860000002906}, {0.8227790642433722, 0.0127805000000029}, { 0.8209250642433722, 0.017853800000002893`}, {0.8173650642433721, 0.026487800000002885`}, {0.815754064243372, 0.03014640000000288}, { 0.9259500642433722, 3.264254865736857*^-15}, { 0.8157540642433723, -0.028975599999997128`}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.9859500642433722, 3.4757730668876415*^-15}, 0.06], DiskBox[{1.9732597169439627, 7.83014326365185*^-17}, 0.06], DiskBox[{0., 0.}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {48.54890746855969}}], ",", GraphicsBox[{{{ {Hue[0.08, 0, 0.42], AbsoluteDashing[{1, 2}], LineBox[{{0.7063532914945534, -0.9951871247164491}, { 1.0987490264328263`, -0.32107605298546443`}}], PolygonBox[{{1.118661723797096, -0.34446468900894833`}, { 1.1166475603441406`, -0.34142820230968907`}, { 1.1116087995184571`, -0.33437596893354793`}, { 1.1084099713407554`, -0.3303687261733023}, { 1.1051131393083324`, -0.32653006649809135`}, { 1.1017990186981732`, -0.32330269493946695`}, { 1.0987490264328263`, -0.3210760529854644}, { 1.0956017262449484`, -0.31969529071664915`}, { 1.091243072369188, -0.3184563894165783}, { 1.0861083056460488`, -0.31738706948852036`}, { 1.0807910378484862`, -0.3164371473553932}, { 1.0715382135907543`, -0.31517034063946237`}, { 1.067565839341396, -0.31472210210582635`}, { 1.1490561657432725`, -0.2346515672513892}, { 1.118661723797096, -0.34446468900894833`}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[{{0.6463536733631008, -0.9949741119059988}, { 0.25875435131418406`, -0.31809400386274517`}}], PolygonBox[{{0.2889658533527666, -0.31254342227765636`}, { 0.285329096990175, -0.31276949538342025`}, { 0.27670230325978235`, -0.3136070729519225}, { 0.27163251508614605`, -0.31437371767045746`}, { 0.2666597222072394, -0.3153095277663612}, { 0.2622076760543409, -0.3165659543056232}, { 0.2587543513141841, -0.3180940038627452}, { 0.2559849258721051, -0.32012926444467704`}, { 0.25273267870806204`, -0.32328451854283996`}, { 0.24923923684192098`, -0.32719669675165064`}, { 0.24575794594643274`, -0.3313266244254714}, { 0.2400344464877432, -0.3387064015187433}, { 0.237660073174076, -0.34192245909399677`}, { 0.2090621270722092, -0.23131449677791965`}, { 0.2889658533527666, -0.31254342227765636`}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], AbsoluteDashing[{1, 3}], LineBox[{{0.2392464144330618, -0.17945979753292726`}, { 1.0192414575801068`, -0.18222886246186953`}}], PolygonBox[{{1.00894265603339, -0.21116808321954278`}, { 1.010565248619247, -0.20790552299935958`}, { 1.0141532807199911`, -0.2000157110945021}, { 1.016024240210733, -0.19524182307382099`}, { 1.017700200539771, -0.1904673527861775}, { 1.0188381255693395`, -0.18598355426001895`}, { 1.0192414575801068`, -0.18222886246186953`}, { 1.0188635823656085`, -0.17881283944703666`}, { 1.0177571750122474`, -0.17441868391856152`}, { 1.0161158494036717`, -0.16943718568447236`}, { 1.0142798717250492`, -0.16435733579952494`}, { 1.0107505455789738`, -0.15571075191022923`}, { 1.0091525440660398`, -0.15204645578073026`}, { 1.1192408274235026`, -0.18258387080504113`}, { 1.00894265603339, -0.21116808321954278`}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[{{0.23924679252702433`, -1.405535401210943}, { 1.0192467925270259`, -1.405535401210943}}], PolygonBox[{{1.009050792527026, -1.434511001210943}, { 1.010661792527026, -1.431242701210943}, { 1.014221792527026, -1.4233402012109428`}, { 1.016075792527026, -1.418559701210943}, { 1.017734792527026, -1.413779311210943}, { 1.018856792527026, -1.4092915012109428`}, { 1.0192467925270259`, -1.405535401210943}, { 1.018856792527026, -1.4021207412109429`}, { 1.017734792527026, -1.3977305412109429`}, { 1.016075792527026, -1.3927549012109428`}, { 1.014221792527026, -1.387681601210943}, { 1.010661792527026, -1.379047601210943}, { 1.009050792527026, -1.3753890012109429`}, { 1.119246792527026, -1.405535401210943}, { 1.009050792527026, -1.434511001210943}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.6761690079082857, -1.0470418161568942}, 0.06], DiskBox[{1.17924044932954, -0.18279687581094406}, 0.06], DiskBox[{1.179246792527026, -1.405535401210943}, 0.06], DiskBox[{0.17924679252702427, -0.17924679252702433}, 0.06], DiskBox[{0.17924679252702433, -1.405535401210943}, 0.06]}}, {}}, ImageSizeRaw->{{282.24000000000046`}, {395.808850953072}}], ",", GraphicsBox[{{{ {Hue[0.08, 0, 0.42], AbsoluteDashing[{1, 2}], LineBox[{{2.370519695917255, -0.31251739582635585`}, { 3.1839545973760255`, -0.3125151069646761}}], PolygonBox[{{3.1702951412644955`, -0.351333711648655}, { 3.172453383138156, -0.3469551691495589}, { 3.1772226798107175`, -0.33636818877187763`}, { 3.179706462705889, -0.32996375336898154`}, { 3.1819290044047985`, -0.3235594660680008}, { 3.183432129141944, -0.3175471497622261}, { 3.1839545973760255`, -0.3125151069646761}, { 3.1834321021105163`, -0.30794049374436105`}, { 3.181928943906167, -0.3020589538629023}, { 3.1797063654302047`, -0.2953931029484119}, { 3.177222545389419, -0.2885964178189183}, { 3.172453186379642, -0.2770294748691663}, { 3.170294918393827, -0.27212806021307256`}, { 3.3179244418257774`, -0.312514729997272}, { 3.1702951412644955`, -0.351333711648655}}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.37251046167331264`, -0.9375384880023497}, { 1.1203144730624275`, -0.9375384880023497}}], PolygonBox[{{1.1066549077222767`, -0.9763570542508858}, { 1.1088131619163708`, -0.9719785178247172}, { 1.1135824883788008`, -0.9613915508670337}, { 1.116066289294909, -0.9549871224530879}, { 1.1182888490143392`, -0.948582841405971}, { 1.1197919906690714`, -0.9425705293297468}, { 1.1203144730624275`, -0.9375384880023497}, { 1.1197919906690714`, -0.9329638733118437}, { 1.1182888490143392`, -0.9270823292007875}, { 1.116066289294909, -0.9204164720323814}, { 1.1135824883788008`, -0.9136197799138852}, { 1.1088131619163708`, -0.9020528235440478}, { 1.1066549077222767`, -0.8971514028149898}, { 1.2542843175127099`, -0.9375384880023497}, { 1.1066549077222767`, -0.9763570542508858}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[{{0.37251046167261154`, -0.31251075173290677`}, { 1.0516227116414225`, -0.3125140347833013}}], PolygonBox[{{1.0379629586398051`, -0.35133253499658407`}, { 1.040121234001149, -0.3469540090041722}, { 1.0448906116443788`, -0.33636706510309405`}, { 1.0473744435215566`, -0.32996264869672787`}, { 1.0495970342013468`, -0.3235583783942654}, { 1.0511002049215414`, -0.31754607358478903`}, { 1.0516227116414225`, -0.3125140347833013}, { 1.051100251363254, -0.3079394175669982}, { 1.0495971381418443`, -0.302057866189333}, { 1.0473746106473705`, -0.29539199827642537`}, { 1.0448908425887207`, -0.28859529415050383`}, { 1.0401215720447907`, -0.27702831472432}, { 1.0379633415457903`, -0.27212688356161363`}, { 1.1855925560901395`, -0.31251468243728003`}, { 1.0379629586398051`, -0.35133253499658407`}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[{{1.3055925560892605`, -0.31251511854398417`}, { 2.1165498514677847`, -0.312517092510138}}], PolygonBox[{{2.1028901916386844`, -0.3513356255095583}, { 2.1050484564906484`, -0.3469570943368492}, { 2.1098178087229966`, -0.33637013898830276`}, { 2.112301625228235, -0.3299657166202417}, { 2.1145242005364375`, -0.32356144098311757`}, { 2.116027356825845, -0.3175491325657361}, { 2.1165498514677847`, -0.312517092510138}, { 2.1160273802095846`, -0.30794247654786144`}, { 2.1145242528712322`, -0.3020609287779977}, { 2.1123017093772947`, -0.2953950661996377}, { 2.1098179250051476`, -0.28859836803529587`}, { 2.1050486266980744`, -0.277031400056387}, { 2.1028903844346254`, -0.272129974073897}, { 2.2505196959176703`, -0.31251741860861454`}, { 2.1028901916386844`, -0.3513356255095583}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], AbsoluteDashing[{1, 3}], LineBox[{{4.250736605808089, -0.3125109325009639}, { 3.5718942862741456`, -0.3125137547493052}}], PolygonBox[{{3.585553690228197, -0.27369513171223847`}, { 3.5833954542376376`, -0.2780736771111883}, { 3.5786261717899617`, -0.28866066389698397`}, { 3.5761423974999222`, -0.2950651026371354}, { 3.5739198644059456`, -0.3014693929243626}, { 3.572416747747072, -0.3074817112497608}, { 3.571894286274146, -0.3125137547493052}, { 3.572416787686198, -0.31708836726758083`}, { 3.5739199537931023`, -0.32296990512936036`}, { 3.5761425412254355`, -0.3296357530575431}, { 3.578626370398383, -0.3364324348497195}, { 3.583395744949735, -0.34799937139125336`}, { 3.585554019521189, -0.35290078314745}, { 3.437924441825021, -0.31251431172131533`}, { 3.585553690228197, -0.27369513171223847`}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{2.3105196959174927, -0.31251756465572444}, 0.06], DiskBox[{0.31251046167331265, -0.31251046167331253}, 0.06], DiskBox[{1.31428431751271, -0.9375384880023497}, 0.06], DiskBox[{3.37792444182554, -0.31251456116790344}, 0.06], DiskBox[{0.31251046167331265, -0.9375384880023497}, 0.06], DiskBox[{1.2455925560894383, -0.31251497249687427}, 0.06], DiskBox[{4.310736605807571, -0.3125106830543758}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {219.0382397407369}}], ",", GraphicsBox[{{{ {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{2.5585319139185887`, -0.7500351068458897}, { 3.30607101342867, -0.7500351068458897}}], PolygonBox[{{3.292413533490512, -0.7888477466748502}, { 3.294571458184546, -0.7844698787186045}, { 3.299340056515249, -0.7738845280701845}, { 3.3018234782301707`, -0.7674810774185208}, { 3.3040456986320343`, -0.7610777741111876}, { 3.305548610802554, -0.7550663799329547}, { 3.30607101342867, -0.7500351068458897}, { 3.305548610802554, -0.74546119056052}, { 3.3040456986320343`, -0.7395805443831466}, { 3.3018234782301707`, -0.7329157048892769}, { 3.299340056515249, -0.7261200504198521}, { 3.294571458184546, -0.7145548599739857}, { 3.292413533490512, -0.7096541875434499}, { 3.440020404740534, -0.7500351068458897}, { 3.292413533490512, -0.7888477466748502}}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.3100102023727835, -0.25001038570941075`}, { 0.987861778238455, -0.2500124316393602}}], PolygonBox[{{0.9742041811538557, -0.28882503024636585`}, { 0.9763621190614086, -0.28444716880331045`}, { 0.981130749341393, -0.2738618325477917}, { 0.9836141903835605, -0.267458389391761}, { 0.9858364301122262, -0.2610550927916882}, { 0.9873393604266683, -0.2550437031496571}, { 0.987861778238455, -0.2500124316393602}, { 0.9873393894175938, -0.2454385137772662}, { 0.9858364949963803, -0.23955786306374505`}, { 0.983614294710722, -0.2328930168626745}, { 0.9811308935068399, -0.22609735489767682`}, { 0.9763623300828709, -0.21453215005901008`}, { 0.9742044201803332, -0.2096314711153262}, { 1.121811169549709, -0.25001283593298607`}, { 0.9742041811538557, -0.28882503024636585`}}]}, {Hue[0.08, 0, 0.42], AbsoluteDashing[{1, 2}], LineBox[{{1.241811169549361, -0.25001311176413504`}, { 2.0550858901567164`, -0.2500143958674038}}], PolygonBox[{{2.041428348936162, -0.288827014132121}, { 2.0435862805425375`, -0.2844491495830913}, { 2.048354895586754, -0.2738638064639639}, { 2.0508383274122686`, -0.2674603597334555}, { 2.0530605579244927`, -0.2610570599348591}, { 2.054563479586576, -0.25504566812962565`}, { 2.0550858901567164`, -0.2500143958674038}, { 2.054563494752491, -0.245440478757203}, { 2.0530605918670983`, -0.23955983020684485`}, { 2.050838381988547, -0.23289498720425467`}, { 2.0483549710034863`, -0.22609932881369108`}, { 2.0435863909334078`, -0.2145341308385596}, { 2.0414284739771915`, -0.20963345500081937`}, { 2.1890352814684135`, -0.25001460736401976`}, { 2.041428348936162, -0.288827014132121}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[{{4.187033220718281, -0.2500103836231766}, { 3.5079327093378927`, -0.25001243507399623`}}], PolygonBox[{{3.5215900720293942`, -0.21119975398821483`}, { 3.5194321605601884`, -0.21557762846317569`}, { 3.514663594206109, -0.22616299351669777`}, { 3.512180191834968, -0.2325664516703403}, { 3.5099579907764396`, -0.2389697616906062}, { 3.508455096765359, -0.24498116040886195`}, { 3.5079327093378927`, -0.25001243507399623`}, { 3.5084551257810546`, -0.2545863497812528}, { 3.5099580557160306`, -0.2604669914185492}, { 3.512180296251267, -0.2671318241994265}, { 3.5146637384947303`, -0.27392747116681226`}, { 3.519432371761947, -0.2854926472074755}, { 3.5215903112600957`, -0.29039331311925387`}, { 3.3739833180266396`, -0.2500128397130504}, { 3.5215900720293942`, -0.21119975398821483`}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], AbsoluteDashing[{1, 3}], LineBox[{{3.253983318026988, -0.2500131156797133}, { 2.442984672779961, -0.2500143959295126}}], PolygonBox[{{2.4566420914481175`, -0.21120173454077903`}, { 2.454484173665028, -0.21557960590353867`}, { 2.4497155920444618`, -0.22616496407969802`}, { 2.447232180438088, -0.2325684186517057}, { 2.4450099701445396`, -0.23897172546704817`}, { 2.4435070674636634`, -0.2449831220177844}, { 2.442984672779961, -0.2500143959295126}, { 2.4435070826265024`, -0.25458831139020704`}, { 2.445010004080261, -0.26046895519506247`}, { 2.4472322350032982`, -0.2671337911809066}, { 2.4497156674458984`, -0.2739294417299709}, { 2.454484284033509, -0.28549462464807035`}, { 2.4566422164637864`, -0.29039529367208067`}, { 2.309035281468264, -0.25001460738323367`}, { 2.4566420914481175`, -0.21120173454077903`}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[{{0.31001020237305654`, -0.7500351068458897}, { 1.0575493018831377`, -0.7500351068458897}}], PolygonBox[{{1.04389182194498, -0.7888477466748502}, { 1.0460497466390142`, -0.7844698787186045}, { 1.0508183449697164`, -0.7738845280701845}, { 1.0533017666846385`, -0.7674810774185208}, { 1.0555239870865023`, -0.7610777741111876}, { 1.0570268992570213`, -0.7550663799329547}, { 1.0575493018831377`, -0.7500351068458897}, { 1.0570268992570213`, -0.74546119056052}, { 1.0555239870865023`, -0.7395805443831466}, { 1.0533017666846385`, -0.7329157048892769}, { 1.0508183449697164`, -0.7261200504198521}, { 1.0460497466390142`, -0.7145548599739857}, { 1.04389182194498, -0.7096541875434499}, { 1.1914986931950018`, -0.7500351068458897}, { 1.04389182194498, -0.7888477466748502}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{2.2490352814683385, -0.25001470209977655}, 0.06], DiskBox[{0.25001020237305677, -0.25001020461401857}, 0.06], DiskBox[{3.500020404740534, -0.7500351068458897}, 0.06], DiskBox[{4.2470332207180075, -0.2500102023730566}, 0.06], DiskBox[{2.4985319139185886, -0.7500351068458897}, 0.06], DiskBox[{1.1818111695494358, -0.25001301702837825}, 0.06], DiskBox[{1.2514986931950018, -0.7500351068458897}, 0.06], DiskBox[{3.3139833180269136, -0.2500130209631704}, 0.06], DiskBox[{0.25001020237305654, -0.7500351068458897}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {182.28732191501297`}}], ",", GraphicsBox[{{{ {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{1.9965956443128885`, -1.093800023110293}, { 2.7600892785386146`, -1.093800023110293}}], PolygonBox[{{2.74816316297906, -1.1276923685406024`}, { 2.7500475266674123`, -1.1238694847152502`}, { 2.7542116078161, -1.1146260433451656`}, { 2.756380205133422, -1.1090343607801938`}, { 2.7583207137361385`, -1.1034428068806508`}, { 2.7596331011094044`, -1.0981934796278727`}, { 2.7600892785386146`, -1.093800023110293}, { 2.7596331011094044`, -1.089805944083558}, { 2.7583207137361385`, -1.084670789853511}, { 2.756380205133422, -1.078850854817934}, { 2.7542116078161, -1.07291668827534}, { 2.7500475266674123`, -1.0628176218040575`}, { 2.74816316297906, -1.0585382096437803`}, { 2.877057850130953, -1.093800023110293}, { 2.74816316297906, -1.1276923685406024`}}]}, {Hue[0.08, 0, 0.42], AbsoluteDashing[{1, 2}], LineBox[{{0.278760004622058, -0.21876000462205852`}, { 1.0097145066059339`, -0.2187600046220597}}], PolygonBox[{{0.9977883910463791, -0.25265235005236925`}, { 0.9996727547347316, -0.24882946622701685`}, { 1.0038368358834189`, -0.2395860248569323}, { 1.0060054332007409`, -0.2339943422919606}, { 1.0079459418034578`, -0.22840278839241762`}, { 1.0092583291767239`, -0.22315346113963952`}, { 1.0097145066059339`, -0.2187600046220597}, { 1.0092583291767239`, -0.21476592559532476`}, { 1.0079459418034578`, -0.2096307713652779}, { 1.0060054332007409`, -0.2038108363297009}, { 1.0038368358834189`, -0.1978766697871068}, { 0.9996727547347317, -0.1877776033158243}, { 0.9977883910463792, -0.183498191155547}, { 1.1266830781982722`, -0.21876000462205988`}, { 0.9977883910463791, -0.25265235005236925`}}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.2787600046220581, -0.6562800138661765}, { 1.0425592929349645`, -0.6562800138661765}}], PolygonBox[{{1.0306331773754098`, -0.6901723592964861}, { 1.0325175410637624`, -0.6863494754711337}, { 1.0366816222124495`, -0.6771060341010492}, { 1.0388502195297715`, -0.6715143515360774}, { 1.0407907281324884`, -0.6659227976365345}, { 1.0421031155057545`, -0.6606734703837563}, { 1.0425592929349645`, -0.6562800138661765}, { 1.0421031155057545`, -0.6522859348394415}, { 1.0407907281324884`, -0.6471507806093948}, { 1.0388502195297715`, -0.6413308455738177}, { 1.0366816222124495`, -0.6353966790312237}, { 1.0325175410637624`, -0.6252976125599411}, { 1.0306331773754098`, -0.6210182003996638}, { 1.1595278645273028`, -0.6562800138661765}, { 1.0306331773754098`, -0.6901723592964861}}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.2787600046220583, -1.093800023110293}, { 1.0422536388477845`, -1.093800023110293}}], PolygonBox[{{1.0303275232882299`, -1.1276923685406024`}, { 1.0322118869765824`, -1.1238694847152502`}, { 1.0363759681252696`, -1.1146260433451656`}, { 1.0385445654425915`, -1.1090343607801938`}, { 1.0404850740453084`, -1.1034428068806508`}, { 1.0417974614185745`, -1.0981934796278727`}, { 1.0422536388477845`, -1.093800023110293}, { 1.0417974614185745`, -1.089805944083558}, { 1.0404850740453084`, -1.084670789853511}, { 1.0385445654425915`, -1.078850854817934}, { 1.0363759681252696`, -1.07291668827534}, { 1.0322118869765824`, -1.0628176218040575`}, { 1.0303275232882299`, -1.0585382096437803`}, { 1.1592222104401229`, -1.093800023110293}, { 1.0303275232882299`, -1.1276923685406024`}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[{{3.156911274759602, -0.21876000462205833`}, { 2.4286933676494327`, -0.2187600046220592}}], PolygonBox[{{2.4406194832089874`, -0.1848676591917496}, { 2.4387351195206346`, -0.188690543017102}, { 2.4345710383719474`, -0.19793398438718654`}, { 2.4324024410546254`, -0.20352566695215826`}, { 2.430461932451909, -0.20911722085170126`}, { 2.429149545078643, -0.21436654810447936`}, { 2.4286933676494327`, -0.2187600046220592}, { 2.429149545078643, -0.22275408364879412`}, { 2.430461932451909, -0.22788923787884097`}, { 2.4324024410546254`, -0.23370917291441798`}, { 2.4345710383719474`, -0.23964333945701208`}, { 2.438735119520635, -0.24974240592829455`}, { 2.4406194832089874`, -0.2540218180885718}, { 2.3117247960570944`, -0.21876000462205933`}, { 2.4406194832089874`, -0.1848676591917496}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], AbsoluteDashing[{1, 3}], LineBox[{{2.1917247960570942`, -0.21876000462205944`}, { 1.3636516497906106`, -0.21876000462205988`}}], PolygonBox[{{1.3755777653501653`, -0.1848676591917503}, { 1.3736934016618128`, -0.1886905430171027}, { 1.3695293205131256`, -0.19793398438718723`}, { 1.3673607231958036`, -0.20352566695215896`}, { 1.3654202145930867`, -0.20911722085170195`}, { 1.3641078272198206`, -0.21436654810448005`}, { 1.3636516497906106`, -0.21876000462205988`}, { 1.3641078272198206`, -0.22275408364879482`}, { 1.3654202145930867`, -0.22788923787884166`}, { 1.3673607231958036`, -0.23370917291441867`}, { 1.3695293205131256`, -0.23964333945701277`}, { 1.3736934016618128`, -0.24974240592829525`}, { 1.3755777653501653`, -0.25402181808857255`}, { 1.2466830781982723`, -0.21876000462205994`}, { 1.3755777653501653`, -0.1848676591917503}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[{{2.1596843228483853`, -0.6562800138661765}, { 1.3964964361196412`, -0.6562800138661765}}], PolygonBox[{{1.408422551679196, -0.6223876684358669}, { 1.4065381879908434`, -0.6262105522612194}, { 1.4023741068421562`, -0.6354539936313038}, { 1.4002055095248342`, -0.6410456761962756}, { 1.3982650009221174`, -0.6466372300958185}, { 1.3969526135488513`, -0.6518865573485967}, { 1.3964964361196412`, -0.6562800138661765}, { 1.3969526135488513`, -0.6602740928929115}, { 1.3982650009221174`, -0.6654092471229582}, { 1.4002055095248342`, -0.6712291821585353}, { 1.4023741068421562`, -0.6771633487011294}, { 1.4065381879908434`, -0.6872624151724119}, { 1.408422551679196, -0.6915418273326892}, { 1.279527864527303, -0.6562800138661765}, { 1.408422551679196, -0.6223876684358669}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{3.2169112747596023, -0.21876000462205825}, 0.06], DiskBox[{0.21876000462205805, -0.21876000462205844}, 0.06], DiskBox[{2.937057850130953, -1.093800023110293}, 0.06], DiskBox[{0.21876000462205805, -0.6562800138661765}, 0.06], DiskBox[{1.9365956443128884, -1.093800023110293}, 0.06], DiskBox[{1.1866830781982722, -0.21876000462205997}, 0.06], DiskBox[{1.219222210440123, -1.093800023110293}, 0.06], DiskBox[{1.2195278645273029, -0.6562800138661765}, 0.06], DiskBox[{0.21876000462205827, -1.093800023110293}, 0.06], DiskBox[{2.2517247960570943, -0.2187600046220594}, 0.06], DiskBox[{2.2196843228483853, -0.6562800138661765}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {292.541765435541}}], ",", GraphicsBox[{{{ {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.26001000000152663`, -1.8000900000137392`}, { 1.0400101490533138`, -1.8000900000137392`}}], PolygonBox[{{1.029814148685949, -1.8290656010577389`}, { 1.0314251487439936`, -1.825797300939981}, { 1.0349851488722617`, -1.8178948006552516`}, { 1.0368391489390618`, -1.8131143004830088`}, { 1.038498148998836, -1.8083339103107698`}, { 1.039620149039262, -1.8038461001490727`}, { 1.0400101490533138`, -1.8000900000137392`}, { 1.039620149039262, -1.796675339890708}, { 1.038498148998836, -1.7922851397325277`}, { 1.0368391489390618`, -1.787309499553254}, { 1.0349851488722617`, -1.7822361993704614`}, { 1.0314251487439936`, -1.7736021990593758`}, { 1.029814148685949, -1.7699435989275552`}, { 1.1400101526563444`, -1.8000900000137392`}, { 1.029814148685949, -1.8290656010577389`}}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.26001000000152663`, -0.6000300000045798}, { 1.0403156619773026`, -0.6000300000045798}}], PolygonBox[{{1.0301196616099377`, -0.6290056010485796}, { 1.0317306616679824`, -0.6257373009308217}, { 1.0352906617962505`, -0.6178348006460922}, { 1.0371446618630507`, -0.6130543004738493}, { 1.038803661922825, -0.6082739103016105}, { 1.0399256619632509`, -0.6037861001399133}, { 1.0403156619773026`, -0.6000300000045798}, { 1.0399256619632509`, -0.5966153398815486}, { 1.038803661922825, -0.5922251397233683}, { 1.0371446618630507`, -0.5872494995440946}, { 1.0352906617962505`, -0.5821761993613019}, { 1.0317306616679824`, -0.5735421990502163}, { 1.0301196616099377`, -0.5698835989183958}, { 1.1403156655803333`, -0.6000300000045798}, { 1.0301196616099377`, -0.6290056010485796}}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.26001000000152663`, -1.400070000010686}, { 1.0400101490533138`, -1.400070000010686}}], PolygonBox[{{1.029814148685949, -1.4290456010546857`}, { 1.0314251487439936`, -1.425777300936928}, { 1.0349851488722617`, -1.4178748006521984`}, { 1.0368391489390618`, -1.4130943004799557`}, { 1.038498148998836, -1.4083139103077167`}, { 1.039620149039262, -1.4038261001460195`}, { 1.0400101490533138`, -1.400070000010686}, { 1.039620149039262, -1.396655339887655}, { 1.038498148998836, -1.3922651397294745`}, { 1.0368391489390618`, -1.3872894995502008`}, { 1.0349851488722617`, -1.3822161993674082`}, { 1.0314251487439936`, -1.3735821990563226`}, { 1.029814148685949, -1.369923598924502}, { 1.1400101526563444`, -1.400070000010686}, { 1.029814148685949, -1.4290456010546857`}}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.26001000000152663`, -1.0000500000076329`}, { 1.0403156619773026`, -1.0000500000076329`}}], PolygonBox[{{1.0301196616099377`, -1.0290256010516325`}, { 1.0317306616679824`, -1.0257573009338747`}, { 1.0352906617962505`, -1.0178548006491452`}, { 1.0371446618630507`, -1.0130743004769025`}, { 1.038803661922825, -1.0082939103046635`}, { 1.0399256619632509`, -1.0038061001429663`}, { 1.0403156619773026`, -1.0000500000076329`}, { 1.0399256619632509`, -0.9966353398846016}, { 1.038803661922825, -0.9922451397264214}, { 1.0371446618630507`, -0.9872694995471476}, { 1.0352906617962505`, -0.982196199364355}, { 1.0317306616679824`, -0.9735621990532694}, { 1.0301196616099377`, -0.9699035989214488}, { 1.1403156655803333`, -1.0000500000076329`}, { 1.0301196616099377`, -1.0290256010516325`}}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{2.140010211944501, -0.6000300000045798}, { 1.360315669183364, -0.6000300000045798}}], PolygonBox[{{1.370511669550729, -0.5710543989605801}, { 1.3689006694926842`, -0.574322699078338}, { 1.3653406693644161`, -0.5822251993630675}, { 1.363486669297616, -0.5870056995353103}, { 1.3618276692378417`, -0.5917860897075492}, { 1.3607056691974158`, -0.5962738998692464}, { 1.360315669183364, -0.6000300000045798}, { 1.3607056691974158`, -0.6034446601276111}, { 1.3618276692378417`, -0.6078348602857914}, { 1.363486669297616, -0.6128105004650651}, { 1.3653406693644161`, -0.6178838006478578}, { 1.3689006694926842`, -0.6265178009589434}, { 1.370511669550729, -0.6301764010907639}, { 1.2603156655803334`, -0.6000300000045798}, { 1.370511669550729, -0.5710543989605801}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[{{2.1400092708059417`, -0.20001000000152658`}, { 1.358992532763149, -0.20001000000152666`}}], PolygonBox[{{1.3691885331305138`, -0.17103439895752692`}, { 1.367577533072469, -0.17430269907528478`}, { 1.364017532944201, -0.18220519936001428`}, { 1.3621635328774009`, -0.18698569953225716`}, { 1.3605045328176266`, -0.19176608970449607`}, { 1.3593825327772007`, -0.19625389986619324`}, { 1.358992532763149, -0.20001000000152666`}, { 1.3593825327772007`, -0.2034246601245579}, { 1.3605045328176266`, -0.20781486028273816`}, { 1.3621635328774009`, -0.21279050046201198`}, { 1.364017532944201, -0.21786380064480454`}, { 1.367577533072469, -0.2264978009558902}, { 1.3691885331305138`, -0.23015640108771068`}, { 1.2589925291601183`, -0.20001000000152666`}, { 1.3691885331305138`, -0.17103439895752692`}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[{{1.1389925291601182`, -0.20001000000152666`}, { 0.3600100036045572, -0.20001000000152666`}}], PolygonBox[{{0.3702060039719222, -0.17103439895752692`}, { 0.3685950039138774, -0.17430269907528478`}, { 0.3650350037856095, -0.18220519936001428`}, { 0.3631810037188093, -0.18698569953225716`}, { 0.36152200365903503`, -0.19176608970449607`}, { 0.360400003618609, -0.19625389986619324`}, { 0.3600100036045572, -0.20001000000152666`}, { 0.360400003618609, -0.2034246601245579}, { 0.36152200365903503`, -0.20781486028273816`}, { 0.3631810037188093, -0.21279050046201198`}, { 0.3650350037856095, -0.21786380064480454`}, { 0.3685950039138774, -0.2264978009558902}, { 0.3702060039719222, -0.23015640108771068`}, { 0.26001000000152663`, -0.20001000000152666`}, { 0.3702060039719222, -0.17103439895752692`}}]}, {Hue[0.02, 0.94, 0.83], Thickness[Large], LineBox[{{2.140010211944501, -1.0000500000076329`}, { 1.360315669183364, -1.0000500000076329`}}], PolygonBox[{{1.370511669550729, -0.9710743989636331}, { 1.3689006694926842`, -0.974342699081391}, { 1.3653406693644161`, -0.9822451993661205}, { 1.363486669297616, -0.9870256995383634}, { 1.3618276692378417`, -0.9918060897106022}, { 1.3607056691974158`, -0.9962938998722994}, { 1.360315669183364, -1.0000500000076329`}, { 1.3607056691974158`, -1.003464660130664}, { 1.3618276692378417`, -1.0078548602888444`}, { 1.363486669297616, -1.0128305004681182`}, { 1.3653406693644161`, -1.0179038006509107`}, { 1.3689006694926842`, -1.0265378009619963`}, { 1.370511669550729, -1.030196401093817}, { 1.2603156655803334`, -1.0000500000076329`}, { 1.370511669550729, -0.9710743989636331}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.2000100000015266, -1.0000500000076329}, 0.06], DiskBox[{0.2000100000015266, -0.20001000000152666}, 0.06], DiskBox[{1.2000101526563445, -1.8000900000137392}, 0.06], DiskBox[{0.2000100000015266, -0.6000300000045798}, 0.06], DiskBox[{0.2000100000015266, -1.8000900000137392}, 0.06], DiskBox[{2.2000092708059418, -0.20001000000152658}, 0.06], DiskBox[{1.2000101526563445, -1.400070000010686}, 0.06], DiskBox[{1.2003156655803333, -0.6000300000045798}, 0.06], DiskBox[{0.2000100000015266, -1.400070000010686}, 0.06], DiskBox[{1.2003156655803333, -1.0000500000076329}, 0.06], DiskBox[{2.200010211944501, -0.6000300000045798}, 0.06], DiskBox[{1.1989925291601182, -0.20001000000152666}, 0.06], DiskBox[{2.200010211944501, -1.0000500000076329}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {420}}]}], "}"}]], "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[{"3", ",", "2"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", "7", ",", 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.9459101490553132`}, {5., 2.1972245773362196`}, {6., 2.3978952727983707`}, {7., 2.70805020110221}, {8., 2.833213344056216}}]}, { 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`}, {5., 1.791759469228055}, {6., 1.9459101490553132`}, {7., 2.1972245773362196`}, {8., 2.302585092994046}}]}}, {{ 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.22171502274275054`}, 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., 8.}, {-0.22171502274275054`, 2.833213344056216}}, 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[TextData[{ "Result after ", Cell[BoxData[ FormBox["7", 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 -> Automatic]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3552", "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 -> Automatic]][{{{1, 2}, {3, 2}} -> {{2, 4}, {4, 1}, {5, 3}}}, {{1, 1}, {1, 1}}, 7], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[BoxData[ GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{0.23858142857453205`, -2.321558571468918}, { 1.0161511274969424`, -2.321558571468918}}], PolygonBox[{{1.0057073023556207`, -2.3512384557141988`}, { 1.0073574595057453`, -2.3478907160408578`}, { 1.0110039892726248`, -2.339796136972665}, { 1.0129030528085223`, -2.3348994415932918`}, { 1.0146023766521328`, -2.330002858887591}, { 1.0157516481123685`, -2.3254059676648104`}, { 1.0161511274969424`, -2.321558571468918}, { 1.0157516481123685`, -2.3180609143526896`}, { 1.0146023766521328`, -2.3135640056497246`}, { 1.0129030528085223`, -2.3084674271752084`}, { 1.0110039892726248`, -2.3032708149655705`}, { 1.0073574595057453`, -2.294426955974773}, { 1.0057073023556207`, -2.2906794296250244`}, { 1.118581738926147, -2.321558571468918}, { 1.0057073023556207`, -2.3512384557141988`}}]}, { LineBox[{{0.23858142857453205`, -1.2500700000217249`}, { 1.0161511274969424`, -1.2500700000217249`}}], PolygonBox[{{1.0057073023556207`, -1.2797498842670054`}, { 1.0073574595057453`, -1.2764021445936649`}, { 1.0110039892726248`, -1.2683075655254719`}, { 1.0129030528085223`, -1.2634108701460987`}, { 1.0146023766521328`, -1.2585142874403983`}, { 1.0157516481123685`, -1.253917396217617}, { 1.0161511274969424`, -1.2500700000217249`}, { 1.0157516481123685`, -1.2465723429054965`}, { 1.0146023766521328`, -1.2420754342025315`}, { 1.0129030528085223`, -1.2369788557280155`}, { 1.0110039892726248`, -1.2317822435183776`}, { 1.0073574595057453`, -1.22293838452758}, { 1.0057073023556207`, -1.2191908581778312`}, { 1.118581738926147, -1.2500700000217249`}, { 1.0057073023556207`, -1.2797498842670054`}}]}, { LineBox[{{2.1185810147723787`, -0.17858142857453213`}, { 1.3399947266986496`, -0.1785814285745322}}], PolygonBox[{{1.3504385518399713`, -0.14890154432925162`}, { 1.3487883946898467`, -0.1522492840025923}, { 1.3451418649229672`, -0.1603438630707852}, { 1.3432428013870696`, -0.16524055845015834`}, { 1.3415434775434592`, -0.17013714115585887`}, { 1.3403942060832235`, -0.17473403237863985`}, { 1.3399947266986496`, -0.1785814285745322}, { 1.3403942060832235`, -0.1820790856907607}, { 1.3415434775434592`, -0.18657599439372563`}, { 1.3432428013870696`, -0.19167257286824171`}, { 1.3451418649229672`, -0.19686918507787954`}, { 1.3487883946898467`, -0.20571304406867708`}, { 1.3504385518399713`, -0.20946057041842595`}, { 1.237564115269445, -0.1785814285745322}, { 1.3504385518399713`, -0.14890154432925162`}}]}, { LineBox[{{1.1175641152694449`, -0.1785814285745322}, { 0.34101204000373664`, -0.1785814285745322}}], PolygonBox[{{0.35145586514505833`, -0.14890154432925162`}, { 0.3498057079949338, -0.1522492840025923}, { 0.34615917822805414`, -0.1603438630707852}, { 0.34426011469215667`, -0.16524055845015834`}, { 0.3425607908485462, -0.17013714115585887`}, { 0.3414115193883105, -0.17473403237863985`}, { 0.34101204000373664`, -0.1785814285745322}, { 0.3414115193883105, -0.1820790856907607}, { 0.3425607908485462, -0.18657599439372563`}, { 0.34426011469215667`, -0.19167257286824171`}, { 0.34615917822805414`, -0.19686918507787954`}, { 0.3498057079949338, -0.20571304406867708`}, { 0.35145586514505833`, -0.20946057041842595`}, { 0.23858142857453205`, -0.1785814285745322}, { 0.35145586514505833`, -0.14890154432925162`}}]}, { LineBox[{{2.1185810147723787`, -0.5357442857235963}, { 1.3399947266986496`, -0.5357442857235964}}], PolygonBox[{{1.3504385518399713`, -0.5060644014783159}, { 1.3487883946898467`, -0.5094121411516566}, { 1.3451418649229672`, -0.5175067202198494}, { 1.3432428013870696`, -0.5224034155992225}, { 1.3415434775434592`, -0.5272999983049231}, { 1.3403942060832235`, -0.5318968895277041}, { 1.3399947266986496`, -0.5357442857235964}, { 1.3403942060832235`, -0.539241942839825}, { 1.3415434775434592`, -0.5437388515427899}, { 1.3432428013870696`, -0.548835430017306}, { 1.3451418649229672`, -0.5540320422269438}, { 1.3487883946898467`, -0.5628759012177413}, { 1.3504385518399713`, -0.5666234275674902}, { 1.237564115269445, -0.5357442857235964}, { 1.3504385518399713`, -0.5060644014783159}}]}, { LineBox[{{1.1175641152694449`, -0.5357442857235964}, { 0.34101204000373664`, -0.5357442857235964}}], PolygonBox[{{0.35145586514505833`, -0.5060644014783159}, { 0.3498057079949338, -0.5094121411516566}, { 0.34615917822805414`, -0.5175067202198494}, { 0.34426011469215667`, -0.5224034155992225}, { 0.3425607908485462, -0.5272999983049231}, { 0.3414115193883105, -0.5318968895277041}, { 0.34101204000373664`, -0.5357442857235964}, { 0.3414115193883105, -0.539241942839825}, { 0.3425607908485462, -0.5437388515427899}, { 0.34426011469215667`, -0.548835430017306}, { 0.34615917822805414`, -0.5540320422269438}, { 0.3498057079949338, -0.5628759012177413}, { 0.35145586514505833`, -0.5666234275674902}, { 0.23858142857453205`, -0.5357442857235964}, { 0.35145586514505833`, -0.5060644014783159}}]}, { LineBox[{{0.23858142857453205`, -1.6072328571707892`}, { 1.0161511274969424`, -1.6072328571707892`}}], PolygonBox[{{1.0057073023556207`, -1.6369127414160698`}, { 1.0073574595057453`, -1.6335650017427292`}, { 1.0110039892726248`, -1.6254704226745362`}, { 1.0129030528085223`, -1.620573727295163}, { 1.0146023766521328`, -1.6156771445894627`}, { 1.0157516481123685`, -1.6110802533666815`}, { 1.0161511274969424`, -1.6072328571707892`}, { 1.0157516481123685`, -1.6037352000545608`}, { 1.0146023766521328`, -1.599238291351596}, { 1.0129030528085223`, -1.5941417128770798`}, { 1.0110039892726248`, -1.588945100667442}, { 1.0073574595057453`, -1.5801012416766445`}, { 1.0057073023556207`, -1.5763537153268956`}, { 1.118581738926147, -1.6072328571707892`}, { 1.0057073023556207`, -1.6369127414160698`}}]}, { LineBox[{{2.1185810147723787`, -0.8929071428726606}, { 1.3399947266986496`, -0.8929071428726607}}], PolygonBox[{{1.3504385518399713`, -0.8632272586273801}, { 1.3487883946898467`, -0.8665749983007208}, { 1.3451418649229672`, -0.8746695773689137}, { 1.3432428013870696`, -0.8795662727482868}, { 1.3415434775434592`, -0.8844628554539874}, { 1.3403942060832235`, -0.8890597466767683}, { 1.3399947266986496`, -0.8929071428726607}, { 1.3403942060832235`, -0.8964047999888892}, { 1.3415434775434592`, -0.9009017086918542}, { 1.3432428013870696`, -0.9059982871663702}, { 1.3451418649229672`, -0.9111948993760081}, { 1.3487883946898467`, -0.9200387583668056}, { 1.3504385518399713`, -0.9237862847165544}, { 1.237564115269445, -0.8929071428726607}, { 1.3504385518399713`, -0.8632272586273801}}]}, { LineBox[{{1.1175641152694449`, -0.8929071428726607}, { 0.34101204000373664`, -0.8929071428726607}}], PolygonBox[{{0.35145586514505833`, -0.8632272586273801}, { 0.3498057079949338, -0.8665749983007208}, { 0.34615917822805414`, -0.8746695773689137}, { 0.34426011469215667`, -0.8795662727482868}, { 0.3425607908485462, -0.8844628554539874}, { 0.3414115193883105, -0.8890597466767683}, { 0.34101204000373664`, -0.8929071428726607}, { 0.3414115193883105, -0.8964047999888892}, { 0.3425607908485462, -0.9009017086918542}, { 0.34426011469215667`, -0.9059982871663702}, { 0.34615917822805414`, -0.9111948993760081}, { 0.3498057079949338, -0.9200387583668056}, { 0.35145586514505833`, -0.9237862847165544}, { 0.23858142857453205`, -0.8929071428726607}, { 0.35145586514505833`, -0.8632272586273801}}]}, { LineBox[{{0.23858142857453205`, -1.9643957143198536`}, { 1.0161511274969424`, -1.9643957143198536`}}], PolygonBox[{{1.0057073023556207`, -1.9940755985651342`}, { 1.0073574595057453`, -1.9907278588917936`}, { 1.0110039892726248`, -1.9826332798236006`}, { 1.0129030528085223`, -1.9777365844442274`}, { 1.0146023766521328`, -1.972840001738527}, { 1.0157516481123685`, -1.9682431105157459`}, { 1.0161511274969424`, -1.9643957143198536`}, { 1.0157516481123685`, -1.9608980572036252`}, { 1.0146023766521328`, -1.9564011485006603`}, { 1.0129030528085223`, -1.9513045700261442`}, { 1.0110039892726248`, -1.9461079578165064`}, { 1.0073574595057453`, -1.9372640988257088`}, { 1.0057073023556207`, -1.93351657247596}, { 1.118581738926147, -1.9643957143198536`}, { 1.0057073023556207`, -1.9940755985651342`}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.17858142857453205, -0.8929071428726607}, 0.06], DiskBox[{0.17858142857453205, -0.1785814285745322}, 0.06], DiskBox[{1.178581738926147, -2.321558571468918}, 0.06], DiskBox[{0.17858142857453205, -0.5357442857235964}, 0.06], DiskBox[{0.17858142857453205, -2.321558571468918}, 0.06], DiskBox[{2.1785810147723788, -0.17858142857453213}, 0.06], DiskBox[{1.178581738926147, -1.2500700000217249}, 0.06], DiskBox[{2.1785810147723788, -0.5357442857235963}, 0.06], DiskBox[{0.17858142857453205, -1.2500700000217249}, 0.06], DiskBox[{2.1785810147723788, -0.8929071428726606}, 0.06], DiskBox[{1.178581738926147, -1.6072328571707892}, 0.06], DiskBox[{1.177564115269445, -0.1785814285745322}, 0.06], DiskBox[{1.178581738926147, -1.9643957143198536}, 0.06], DiskBox[{1.177564115269445, -0.5357442857235964}, 0.06], DiskBox[{0.17858142857453205, -1.6072328571707892}, 0.06], DiskBox[{1.177564115269445, -0.8929071428726607}, 0.06], DiskBox[{0.17858142857453205, -1.9643957143198536}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {420}}]], "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 -> Automatic]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3552", "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 -> Automatic]][{{{1, 2}, {3, 2}} -> {{2, 4}, {4, 1}, {5, 3}}}, {{1, 1}, {1, 1}}, 7], 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, 4, 5, 6, 7, 8}, {{{1, 3}, {1, 2}, {1, 2}, {2, 4}, {2, 3}, {3, 6}, {3, 5}, {3, 4}, {4, 7}, {4, 5}, {5, 8}, {5, 6}, {5, 7}, {6, 8}}, 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:eJwBkQJu/SFib1JlAgAAACgAAAACAAAAcFwFDqD9B0BoZSnwpETJP2wZo2uR agVAAR73jtHy7j8CIsgJ9kb+P+awf/dFZ94/27Was+lv+z+Maow9Ovv1P7IR PxZMNew/3i3r5Jaj6z+WkKR4KF7rPwAAAAAAAAAAimVtiG3f7D9cZUxH7JX+ PwAAAAAAAAAAgPfO9thdyT/UTW9Sv30HQMIcCAdcE9E/8sgt7kdeB0CeY3NC DTnSP1IkfrKdQAdA6Vu31YFq0z8N5ccv0iQHQPKuFuYEp9Q/UjkB2/UKB0Dc zPIM2+3VP9mN8AMY8wZAKM7AxkI+1z9ouhvMRt0GQBblnOV0l9g/nSNqHo/J BkBNiDgHpfjZP5zVQqrvwQVANPn615XW5j8VeFczXbAFQOp2TVvEiuc/TWSn WvqgBUDJ2X2iHkLoP8vCUDzQkwVAIM9DHjj86D9oBraj5ogFQDks/J6iuOk/ Nn7gBkSABUAuJuaV7nbqP3kCrYLteQVAW20wV6s26z+kAMXX5nUFQNUQr1xn 9+s/OHXjoUryB0AWzaTcJpnSP2Rz+/ZD7gdACBSi554a1D+o98dy7ecHQGCi NmoYmtU/dW/y1UrfB0BKlgpYsBbXPxKzVz1h1AdAfFB7WYWP2D+PEQEfN8cH QCw7B1G4A9o/yP1QRtS3B0DqAGjfbHLbP0GgZc9BpgdAU/wM5sna3D9AUj5b op4GQDgzZUeoR+g/dbuMreqKBkDUBDNYQPjoPwPot3UZdQZASxChZ9mk6T+L PKeeO10GQPAQiEQNTeo/0JDgSV9DBkDlH/ZXePDqP4pRKseTJwZAackl4LmO 6z/rrHqL6QkGQI/Fxyl0J+w/CCg5J3LqBUD8aH3HTLrsP54CKJo= "], { {Hue[0, 1, 0.56], Opacity[0.7], Arrowheads[Medium], ArrowBox[BezierCurveBox[{ 1, {2.7113622426644093`, 0.5293562523535302}, 2}], 0.03023120481892927], ArrowBox[BezierCurveBox[{ 1, {2.9645133738417018`, 0.6351920460011716}, 2}], 0.03023120481892927], ArrowBox[{1, 3}, 0.03023120481892927], ArrowBox[{2, 3}, 0.03023120481892927], ArrowBox[{2, 4}, 0.03023120481892927], ArrowBox[{3, 4}, 0.03023120481892927], ArrowBox[{3, 5}, 0.03023120481892927], ArrowBox[{3, 6}, 0.03023120481892927], ArrowBox[{4, 5}, 0.03023120481892927], ArrowBox[{4, 7}, 0.03023120481892927], ArrowBox[{5, 6}, 0.03023120481892927], ArrowBox[{5, 7}, 0.03023120481892927], ArrowBox[{5, 8}, 0.03023120481892927], ArrowBox[{6, 8}, 0.03023120481892927]}, {Hue[0.11, 1, 0.97], EdgeForm[{Hue[0.11, 1, 0.97], Opacity[1]}], DiskBox[1, 0.03023120481892927], DiskBox[2, 0.03023120481892927], DiskBox[3, 0.03023120481892927], DiskBox[4, 0.03023120481892927], DiskBox[5, 0.03023120481892927], DiskBox[6, 0.03023120481892927], DiskBox[7, 0.03023120481892927], DiskBox[8, 0.03023120481892927]}}]], 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 -> Automatic]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3552", "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 -> Automatic]][{{{1, 2}, {3, 2}} -> {{2, 4}, {4, 1}, {5, 3}}}, {{1, 1}, {1, 1}}, 7], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = Graph[{1, 2, 3, 4, 5, 6, 7, 8}, {{{1, 3}, {1, 2}, {1, 2}, {2, 4}, {2, 3}, {3, 6}, {3, 5}, {3, 4}, {4, 7}, {4, 5}, {5, 8}, {5, 6}, {5, 7}, {6, 8}}, Null}, {EdgeStyle -> { Hue[0, 1, 0.56]}, GraphLayout -> { "Dimension" -> 2, "VertexLayout" -> { "LayeredDigraphEmbedding", "VertexLayerPosition" -> {6, 5, 4, 3, 2, 1, 1, 0}}}, VertexStyle -> { Directive[ Hue[0.11, 1, 0.97], EdgeForm[{ Hue[0.11, 1, 0.97], Opacity[1]}]]}}]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxllglUFEcagId7GIZDGaYRMXm4GpAVgiIKPuQvYTEx+CQeGIwm68GRKAQi LnFxjHmKGJSoQEwEXEIUQX2sJ5kYPAokgiaMeCGIwQMI13AruowgS1fPVD06 /2tez0dVdVX399ff7bIubmmksUQiuTf6x5/HhiMSzr0gnBVobLudqF0qapcY 2vHYfn85479MPWY+Qz/DfIYwzGcYL2Y6P4xlQ/SCKvLmaim6CgMv1WbFv3Co DnXo9lVXwP3v32mVFXIoT3Uj2nz+73Ar8DNUkMGh51vXu2vSq2Gase+UDBWH phuFZpx8fBu+ne967GEEhzxqQvZmNN0Fr+hEzYEQDk09+bss9m4NeJdWflfq xSH1O0+TFKdqQXGK/8GhY/HzZLVH20BF/uGAco0C1KYp7XC0pOjW7I8cULLf +Y0pqztg+eViN78AB5Qnnzut4S0tKHqnnNBNckBLx5W6pDdr4cnEZZ/uG1Kg ncpNJjMPdkJLSIC3tF6Biq/4z/3AtwukS2u/UKkVqAD/7JGn6YLpCS2BkgwF ajMOzHidcRZq0iZcHonlULzMyXPBPDXo/uv29c6FHJIsimuOW3ERnIvLql5O 5dCvJSNbLsaWgktz0Xefm3DogIZbtTeiHLptH64wa1QiiZP3kpZvKuBUYEht RZkSHR60cO1qvQH/DF729o0jSqTibzdeAynaJRfe2KVE7qv3Xx1wa4ZOHrUK 1O+enbRQ+SdowPdTqFagOIcPS2bbtMCtQ6kz44pHeXud2t2uFWKu1H04JUeB LF2if0qb2Ab3hysfxu5UoIY866grb7eD1+V0vDJWgarjguc7L+oA908uOA6E K9DxqKq24TgtyKULdSELWD6fiO5sHKjmKK/Ml/s3ZDOWq9dYqdcwLj/c9v5X Loy3h/MDlJShPTOgPZOxaejPLbuDGWtSbcwc+x0oZ2fxwZgMD2Dst6/Jd18T W2/q13wwfrDDo26HB2O3bXdct92xp7zlCz4YV37uPHow5mLKlDFl4ylHkWA8 K7FP12rNePjMuxO2lIyjfFXJX4DxjsJVz8onMw5Yz53e/ojt3+cLfxg9GB/n u0cyXnHIfpLMi9UXwY89ZfK4s+2RkZ4FP6xd8MP4SzJgPGXBD2PBD+Mq4mcc ZcEP4w7ih7Hgx46uZw/xw9ZfR/wwfl+XH6rLt6Xc282HDWVyOV/GnuQC1pQ1 VXzIKZPHM5Gxbm36zN7NVnQ9yfz0dTLR/TLeWuH58cglS9H9MSbdf6P1FYq8 XOcq1rB6v6y67pr2B1vKZ/n08GHsSPLLhvIuv9s/SoIYD5F8sqb8JZ++rozN cz/T2O6VUybp0WxF2ZsE49v88G0yypv4dK+0pGw/jg/GZ8xWjR7sfgQ/FpR7 iB9zyoIfxoIfM8pET5Up5Sjih7Hgx4Sy4MeYsuCHcRLxY0RZ8MNY8MPeb4If CcqynuNz9OpxfP1vf08YOGyL3jhdtKy+vATvzl7n8XSaLUq6lOWgybyG50YU eJYX2CC3/u8PvFtxEz/66kVijr0NWqT6RHNadQ8n9i413xBvjZqjJzulKuux 6fmLf3helqOeBn8u3PEJTr7upWsftEKT/OfsyohswoNe5z7OecsKbV0sqX3W 34LXdoIsKEiGwjPDHOBBG54RPN41E1uim8lhi5andOCeBam5L3wsUeNkicpb p8WH+vLjYwukaH9sWP4fs7qwe3Dkf17aSdH9iLBrobO7ceH836Yc/JcF+kUq eZz2uhvbtd41X3DPHM1eGdaX+U0PjvDZESTzMEeLV4QNRTT14KPTa+qfbjf4 6cWzSL6YUL5H8sWYMimPlUaG/YPHk3wxou1nSb6w75s8UtBG6PfMowY+hilP IgV3iPJqknCvKAv1ZZAy2U5z/keZr45P2l+AYT0W/PRnBmi7BdkfzykPpH10 6fW/n1Em22lbP2XS/ds+yuFrF292K2XfZcvJAgz53wvnyH62oPVEeF+Y0/YU sp8ZC+8H+rxB2M+MpWQBppSzyH6mPkDkB0R+QOQHRH5A5AdEfkDkB0R+QOQH RH5A5AdEfkDkB0R+QOQHRH5A5AfG+pFICnPP7q2FEcrr+HKy8TVloR4NU5Yn HAkyShmiLNSfV4z5cheqY/1H365vKgcpz+DLyfWXlIXvgxfw47kTJ01yYvCF grD3/CUDek7Dcw6+2qI99gySNo/YzuTy8JMZ4f0JH/Tr24vwGdVGdY2iD/Zn Lm9wWqnG4doNe1wu9ej7l+IjfjHz3ovqgl87T9w81XINBzbX75rqptWPr8I+ WvX680btIFs/ssTR6Q7W1xmo2J0+UD/rAXYW6hC4/CPldmj1Y6yvU2BT1b3p 4vNG3CLUMagvC5lwvOxPrK9zkGhS/zB2cRt2FeogNB7IKpHndOCtQp0E5w17 fkou7MT6Ogqu+4uqahK6ca5QZ+H/x1Q/tA== "], { {Hue[0, 1, 0.56], Opacity[0.7], Arrowheads[Medium], ArrowBox[BezierCurveBox[{ 1, {0.6644407471831305, 5.664440747183098}, 2}], 0.04847715736040609], ArrowBox[BezierCurveBox[{ 1, {0.3355592528168822, 5.335559252816885}, 2}], 0.04847715736040609], ArrowBox[BezierCurveBox[{1, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 3}], 0.04847715736040609], ArrowBox[{2, 3}, 0.04847715736040609], ArrowBox[BezierCurveBox[{2, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 4}], 0.04847715736040609], ArrowBox[{3, 4}, 0.04847715736040609], ArrowBox[BezierCurveBox[{3, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 5}], 0.04847715736040609], ArrowBox[BezierCurveBox[{3, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 6}], 0.04847715736040609], ArrowBox[{4, 5}, 0.04847715736040609], ArrowBox[BezierCurveBox[{4, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 7}], 0.04847715736040609], ArrowBox[{5, 6}, 0.04847715736040609], ArrowBox[{5, 7}, 0.04847715736040609], ArrowBox[BezierCurveBox[{5, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 8}], 0.04847715736040609], ArrowBox[{6, 8}, 0.04847715736040609]}, {Hue[0.11, 1, 0.97], EdgeForm[{Hue[0.11, 1, 0.97], Opacity[1]}], DiskBox[1, 0.04847715736040609], DiskBox[2, 0.04847715736040609], DiskBox[3, 0.04847715736040609], DiskBox[4, 0.04847715736040609], DiskBox[5, 0.04847715736040609], DiskBox[6, 0.04847715736040609], DiskBox[7, 0.04847715736040609], DiskBox[8, 0.04847715736040609]}}]], 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 -> Automatic]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3552", "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 -> Automatic]][{{{1, 2}, {3, 2}} -> {{2, 4}, {4, 1}, {5, 3}}}, {{1, 1}, {1, 1}}, 7], 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[CompressedData[" 1:eJxTTMoPSmVmYGDggGIQGwI+2D+sElnn/vCWPQMKwBRnWcb8Sqb9tX2dWd/3 Dw8f2gu7ft0o3lBjj0vc+3JlYYzlW3snT+aunz4v7Tu/JG1Xmn8XpzjElgdo 7kC4Bxc9NNyJqZ5a7iRVPanupLX7ae1OUt0/2NyJS3youJNU9w82d+IXHyru xBQHABFTX/k= "], {{0, 0}, {8, 8}}, {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 -> Automatic]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3552", "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 -> Automatic]][{{{1, 2}, {3, 2}} -> {{2, 4}, {4, 1}, {5, 3}}}, {{1, 1}, {1, 1}}, 7], 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:eJzt1bEJgDAYROGAEwgu4CSW9o4gWNs7lAPZZYOMIGLsbITD44cXkE87eQfa z+u0NCmltl7X/X3KgP+Yt24f81Gfn+N/L3yXvbTS0+vX/uzllf5a6RlL9tJK T6/8f2NJf6309Mr3J5b010rPWLKXVnrGkr08npqvLDs= "], {{0, 0}, {17, 17}}, {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 -> Automatic]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3552", "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 -> Automatic]][{{{1, 2}, {3, 2}} -> {{2, 4}, {4, 1}, {5, 3}}}, {{1, 1}, {1, 1}}, 7], 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.5, 0}, {1.5, 14.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{17.818627450980394`, 95.0343137254902}, {-53.74999999999999, 38.61249682659663}}], "DelayedMouseEffectStyle"], StatusArea[#, 14]& , TagBoxNote->"14"], StyleBox["14", {}, StripOnInput -> False]], Annotation[#, Style[14, {}], "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, 3.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{94.5343137254902, 171.75000000000003`}, { 18.427676078040214`, 38.61249682659663}}], "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.46, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{None, None}, {None, None}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, PlotRange->{{0.5, 2.5}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output"] }, Open ]] }, Open ]], Cell["Neighborhood volumes (ignoring directedness of connections):", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"volumes", "=", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["RaggedMeanAround", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["RaggedMeanAround", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/RaggedMeanAround"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "RaggedMeanAround"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "RaggedMeanAround", "ShortName" -> "RaggedMeanAround", "UUID" -> "44e8dd6c-9e7d-4e8c-a9a2-3accd9c828cd", "ResourceType" -> "Function", "Version" -> "2.0.0", "Description" -> "Compute MeanAround for corresponding elements in a collection of \ lists of potentially different lengths", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$431cb780d0e044c0830a36e7e41ec132`\ RaggedMeanAround", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/19c99a08-4f4a-4a82-adfa-\ 1465e895d3c2"]], ResourceSystemBase -> Automatic]], Selectable->False], "[", RowBox[{"Values", "[", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphNeighborhoodVolumes", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HypergraphNeighborhoodVolumes", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HypergraphNeighborhoodVolumes"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HypergraphNeighborhoodVolumes"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "HypergraphNeighborhoodVolumes", "ShortName" -> "HypergraphNeighborhoodVolumes", "UUID" -> "97e81c0e-db91-4d08-9b54-b9de4dacc8b2", "ResourceType" -> "Function", "Version" -> "1.0.0", "Description" -> "Find the volumes of successively larger neighborhoods around nodes \ in a hypergraph", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "SymbolName" -> "FunctionRepository`$ee4860d78593451e8fc36482e29bc20c`\ HypergraphNeighborhoodVolumes", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/obj/17435a2e-15ae-44fc-8945-\ 83a0aa5ab528"]], { ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"}]], Selectable->False], "[", RowBox[{ RowBox[{ InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", RowBox[{"WolframModel", "[", DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], "]"}], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox[ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> { "OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["WolframModel", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"4.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{"\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/WolframModel"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> { "Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "WolframModel"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction[ ResourceObject[ Association[ "Name" -> "WolframModel", "ShortName" -> "WolframModel", "UUID" -> "f6eb4e01-15fd-4c52-857b-52f627495c74", "ResourceType" -> "Function", "Version" -> "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], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["2768", "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" -> "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]][{{1, 2}} -> {{1, 3}, {1, 3}, {3, 2}}, Automatic, 4], 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, 1.2320554654540983`}, { 0.6931471805599453, 1.2903742392411515`}}], LineBox[{{0.6931471805599453, 1.2903742392411515`}, { 0.6931471805599453, 1.345478537236511}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{1.0986122886681098`, 2.1249297720456686`}, { 1.0986122886681098`, 2.169750321783971}}], LineBox[{{1.0986122886681098`, 2.169750321783971}, { 1.0986122886681098`, 2.2126478716721634`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{1.3862943611198906`, 2.597635002449791}, { 1.3862943611198906`, 2.6303083674220233`}}], LineBox[{{1.3862943611198906`, 2.6303083674220233`}, { 1.3862943611198906`, 2.6619478741827005`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{1.6094379124341003`, 2.9847336951270074`}, { 1.6094379124341003`, 3.006648088430987}}], LineBox[{{1.6094379124341003`, 3.006648088430987}, { 1.6094379124341003`, 3.0280925215885133`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{1.791759469228055, 3.1993034498076236`}, { 1.791759469228055, 3.214965751460358}}], LineBox[{{1.791759469228055, 3.214965751460358}, {1.791759469228055, 3.230386523468951}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{1.9459101490553132`, 3.419596344337314}, { 1.9459101490553132`, 3.430835113616831}}], LineBox[{{1.9459101490553132`, 3.430835113616831}, { 1.9459101490553132`, 3.4419489754670747`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{2.0794415416798357`, 3.6009943964180553`}, { 2.0794415416798357`, 3.6082776470840483`}}], LineBox[{{2.0794415416798357`, 3.6082776470840483`}, { 2.0794415416798357`, 3.6155082353322574`}}]}}, Antialiasing->False]}}, { {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[NCache[{{{Log[2], 1.345478537236511}, Offset[{3, 0}, {Log[2], 1.345478537236511}]}, {{ Log[2], 1.345478537236511}, Offset[{-3, 0}, {Log[2], 1.345478537236511}]}, {{ Log[2], 1.2320554654540983`}, Offset[{3, 0}, {Log[2], 1.2320554654540983`}]}, {{ Log[2], 1.2320554654540983`}, Offset[{-3, 0}, {Log[2], 1.2320554654540983`}]}}, {{{ 0.6931471805599453, 1.345478537236511}, Offset[{3, 0}, {0.6931471805599453, 1.345478537236511}]}, {{ 0.6931471805599453, 1.345478537236511}, Offset[{-3, 0}, {0.6931471805599453, 1.345478537236511}]}, {{ 0.6931471805599453, 1.2320554654540983`}, Offset[{3, 0}, {0.6931471805599453, 1.2320554654540983`}]}, {{ 0.6931471805599453, 1.2320554654540983`}, Offset[{-3, 0}, {0.6931471805599453, 1.2320554654540983`}]}}]], {{{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], 2.2126478716721634`}, Offset[{3, 0}, {Log[3], 2.2126478716721634`}]}, {{ Log[3], 2.2126478716721634`}, Offset[{-3, 0}, {Log[3], 2.2126478716721634`}]}, {{ Log[3], 2.1249297720456686`}, Offset[{3, 0}, {Log[3], 2.1249297720456686`}]}, {{ Log[3], 2.1249297720456686`}, Offset[{-3, 0}, {Log[3], 2.1249297720456686`}]}}, {{{ 1.0986122886681098`, 2.2126478716721634`}, Offset[{3, 0}, {1.0986122886681098`, 2.2126478716721634`}]}, {{ 1.0986122886681098`, 2.2126478716721634`}, Offset[{-3, 0}, {1.0986122886681098`, 2.2126478716721634`}]}, {{ 1.0986122886681098`, 2.1249297720456686`}, Offset[{3, 0}, {1.0986122886681098`, 2.1249297720456686`}]}, {{ 1.0986122886681098`, 2.1249297720456686`}, Offset[{-3, 0}, {1.0986122886681098`, 2.1249297720456686`}]}}]], {{{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[4], 2.6619478741827005`}, Offset[{3, 0}, {Log[4], 2.6619478741827005`}]}, {{ Log[4], 2.6619478741827005`}, Offset[{-3, 0}, {Log[4], 2.6619478741827005`}]}, {{ Log[4], 2.597635002449791}, Offset[{3, 0}, {Log[4], 2.597635002449791}]}, {{ Log[4], 2.597635002449791}, Offset[{-3, 0}, {Log[4], 2.597635002449791}]}}, {{{ 1.3862943611198906`, 2.6619478741827005`}, Offset[{3, 0}, {1.3862943611198906`, 2.6619478741827005`}]}, {{ 1.3862943611198906`, 2.6619478741827005`}, Offset[{-3, 0}, {1.3862943611198906`, 2.6619478741827005`}]}, {{ 1.3862943611198906`, 2.597635002449791}, Offset[{3, 0}, {1.3862943611198906`, 2.597635002449791}]}, {{ 1.3862943611198906`, 2.597635002449791}, Offset[{-3, 0}, {1.3862943611198906`, 2.597635002449791}]}}]], {{{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[5], 3.0280925215885133`}, Offset[{3, 0}, {Log[5], 3.0280925215885133`}]}, {{ Log[5], 3.0280925215885133`}, Offset[{-3, 0}, {Log[5], 3.0280925215885133`}]}, {{ Log[5], 2.9847336951270074`}, Offset[{3, 0}, {Log[5], 2.9847336951270074`}]}, {{ Log[5], 2.9847336951270074`}, Offset[{-3, 0}, {Log[5], 2.9847336951270074`}]}}, {{{ 1.6094379124341003`, 3.0280925215885133`}, Offset[{3, 0}, {1.6094379124341003`, 3.0280925215885133`}]}, {{ 1.6094379124341003`, 3.0280925215885133`}, Offset[{-3, 0}, {1.6094379124341003`, 3.0280925215885133`}]}, {{ 1.6094379124341003`, 2.9847336951270074`}, Offset[{3, 0}, {1.6094379124341003`, 2.9847336951270074`}]}, {{ 1.6094379124341003`, 2.9847336951270074`}, Offset[{-3, 0}, {1.6094379124341003`, 2.9847336951270074`}]}}]], {{{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[6], 3.230386523468951}, Offset[{3, 0}, {Log[6], 3.230386523468951}]}, {{ Log[6], 3.230386523468951}, Offset[{-3, 0}, {Log[6], 3.230386523468951}]}, {{ Log[6], 3.1993034498076236`}, Offset[{3, 0}, {Log[6], 3.1993034498076236`}]}, {{ Log[6], 3.1993034498076236`}, Offset[{-3, 0}, {Log[6], 3.1993034498076236`}]}}, {{{ 1.791759469228055, 3.230386523468951}, Offset[{3, 0}, {1.791759469228055, 3.230386523468951}]}, {{ 1.791759469228055, 3.230386523468951}, Offset[{-3, 0}, {1.791759469228055, 3.230386523468951}]}, {{ 1.791759469228055, 3.1993034498076236`}, Offset[{3, 0}, {1.791759469228055, 3.1993034498076236`}]}, {{ 1.791759469228055, 3.1993034498076236`}, Offset[{-3, 0}, {1.791759469228055, 3.1993034498076236`}]}}]], {{{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[7], 3.4419489754670747`}, Offset[{3, 0}, {Log[7], 3.4419489754670747`}]}, {{ Log[7], 3.4419489754670747`}, Offset[{-3, 0}, {Log[7], 3.4419489754670747`}]}, {{ Log[7], 3.419596344337314}, Offset[{3, 0}, {Log[7], 3.419596344337314}]}, {{ Log[7], 3.419596344337314}, Offset[{-3, 0}, {Log[7], 3.419596344337314}]}}, {{{ 1.9459101490553132`, 3.4419489754670747`}, Offset[{3, 0}, {1.9459101490553132`, 3.4419489754670747`}]}, {{ 1.9459101490553132`, 3.4419489754670747`}, Offset[{-3, 0}, {1.9459101490553132`, 3.4419489754670747`}]}, {{ 1.9459101490553132`, 3.419596344337314}, Offset[{3, 0}, {1.9459101490553132`, 3.419596344337314}]}, {{ 1.9459101490553132`, 3.419596344337314}, Offset[{-3, 0}, {1.9459101490553132`, 3.419596344337314}]}}]], {{{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[8], 3.6155082353322574`}, Offset[{3, 0}, {Log[8], 3.6155082353322574`}]}, {{ Log[8], 3.6155082353322574`}, Offset[{-3, 0}, {Log[8], 3.6155082353322574`}]}, {{ Log[8], 3.6009943964180553`}, Offset[{3, 0}, {Log[8], 3.6009943964180553`}]}, {{ Log[8], 3.6009943964180553`}, Offset[{-3, 0}, {Log[8], 3.6009943964180553`}]}}, {{{ 2.0794415416798357`, 3.6155082353322574`}, Offset[{3, 0}, {2.0794415416798357`, 3.6155082353322574`}]}, {{ 2.0794415416798357`, 3.6155082353322574`}, Offset[{-3, 0}, {2.0794415416798357`, 3.6155082353322574`}]}, {{ 2.0794415416798357`, 3.6009943964180553`}, Offset[{3, 0}, {2.0794415416798357`, 3.6009943964180553`}]}, {{ 2.0794415416798357`, 3.6009943964180553`}, Offset[{-3, 0}, {2.0794415416798357`, 3.6009943964180553`}]}}]], {{{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, 1.2903742392411515`}, { 1.0986122886681098`, 2.169750321783971}, {1.3862943611198906`, 2.6303083674220233`}, {1.6094379124341003`, 3.006648088430987}, { 1.791759469228055, 3.214965751460358}, {1.9459101490553132`, 3.430835113616831}, {2.0794415416798357`, 3.6082776470840483`}, { 2.1972245773362196`, 3.713572066704308}}]}, { {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.09250468055625578, -0.2906080888520098}, 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->NCache[{{-0.09250468055625578, Log[9]}, {-0.2906080888520098, 3.713572066704308}}, {{-0.09250468055625578, 2.1972245773362196`}, {-0.2906080888520098, 3.713572066704308}}], 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["1", StandardForm], {0.01, 0.}}, {0.6931471805599453, FormBox["2", StandardForm], {0.01, 0.}}, {1.6094379124341003`, FormBox["5", StandardForm], {0.01, 0.}}, {0.4054651081081644, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.0986122886681098`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.3862943611198906`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.791759469228055, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.9459101490553132`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 2.0794415416798357`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 2.1972245773362196`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 2.302585092994046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 2.3513752571634776`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 2.3978952727983707`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}}, {{ 0., FormBox["1", StandardForm], {0.01, 0.}}, {1.6094379124341003`, FormBox["5", StandardForm], {0.01, 0.}}, {2.302585092994046, FormBox["10", StandardForm], {0.01, 0.}}, {3.912023005428146, FormBox["50", StandardForm], {0.01, 0.}}, {-0.6931471805599453, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, {-0.5108256237659907, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, {-0.35667494393873245`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, {-0.2231435513142097, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, {-0.10536051565782628`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 0.6931471805599453, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.0986122886681098`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.3862943611198906`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.791759469228055, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.9459101490553132`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 2.0794415416798357`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 2.1972245773362196`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 2.995732273553991, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 3.4011973816621555`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 3.6888794541139363`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 4.0943445622221, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 4.248495242049359, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 4.382026634673881, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 4.499809670330265, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 4.605170185988092, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {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.7798866652737868`}, {1., 1.861616515844078}}], LineBox[{{1., 1.861616515844078}, {1., 1.9433463664143693`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{2., 1.9921536731583025`}, {2., 2.168808277106379}}], LineBox[{{2., 2.168808277106379}, {2., 2.3454628810544556`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{3., 1.4119856343437498`}, {3., 1.6009271683596045`}}], LineBox[{{3., 1.6009271683596045`}, {3., 1.7898687023754591`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{4., 1.5127882251541063`}, {4., 1.686536396828415}}], LineBox[{{4., 1.686536396828415}, {4., 1.8602845685027238`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{5., 0.996297513122631}, {5., 1.1425838320632304`}}], LineBox[{{5., 1.1425838320632304`}, {5., 1.2888701510038298`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{6., 1.2762044371323185`}, {6., 1.4003789175524701`}}], LineBox[{{6., 1.4003789175524701`}, {6., 1.5245533979726218`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{7., 1.229054391776405}, {7., 1.3288450751514904`}}], LineBox[{{7., 1.3288450751514904`}, {7., 1.4286357585265759`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{8., 0.8323577924802319}, {8., 0.8939693142859915}}], LineBox[{{8., 0.8939693142859915}, {8., 0.955580836091751}}]}}, Antialiasing->False]}}, { {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{1., 1.9433463664143693`}, Offset[{3, 0}, {1., 1.9433463664143693`}]}, {{1., 1.9433463664143693`}, Offset[{-3, 0}, {1., 1.9433463664143693`}]}, {{1., 1.7798866652737868`}, Offset[{3, 0}, {1., 1.7798866652737868`}]}, {{1., 1.7798866652737868`}, Offset[{-3, 0}, {1., 1.7798866652737868`}]}}], {{{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., 2.3454628810544556`}, Offset[{3, 0}, {2., 2.3454628810544556`}]}, {{2., 2.3454628810544556`}, Offset[{-3, 0}, {2., 2.3454628810544556`}]}, {{2., 1.9921536731583025`}, Offset[{3, 0}, {2., 1.9921536731583025`}]}, {{2., 1.9921536731583025`}, Offset[{-3, 0}, {2., 1.9921536731583025`}]}}], {{{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[{{{3., 1.7898687023754591`}, Offset[{3, 0}, {3., 1.7898687023754591`}]}, {{3., 1.7898687023754591`}, Offset[{-3, 0}, {3., 1.7898687023754591`}]}, {{3., 1.4119856343437498`}, Offset[{3, 0}, {3., 1.4119856343437498`}]}, {{3., 1.4119856343437498`}, Offset[{-3, 0}, {3., 1.4119856343437498`}]}}], {{{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[{{{4., 1.8602845685027238`}, Offset[{3, 0}, {4., 1.8602845685027238`}]}, {{4., 1.8602845685027238`}, Offset[{-3, 0}, {4., 1.8602845685027238`}]}, {{4., 1.5127882251541063`}, Offset[{3, 0}, {4., 1.5127882251541063`}]}, {{4., 1.5127882251541063`}, Offset[{-3, 0}, {4., 1.5127882251541063`}]}}], {{{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[{{{5., 1.2888701510038298`}, Offset[{3, 0}, {5., 1.2888701510038298`}]}, {{5., 1.2888701510038298`}, Offset[{-3, 0}, {5., 1.2888701510038298`}]}, {{5., 0.996297513122631}, Offset[{3, 0}, {5., 0.996297513122631}]}, {{ 5., 0.996297513122631}, Offset[{-3, 0}, {5., 0.996297513122631}]}}], {{{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[{{{6., 1.5245533979726218`}, Offset[{3, 0}, {6., 1.5245533979726218`}]}, {{6., 1.5245533979726218`}, Offset[{-3, 0}, {6., 1.5245533979726218`}]}, {{6., 1.2762044371323185`}, Offset[{3, 0}, {6., 1.2762044371323185`}]}, {{6., 1.2762044371323185`}, Offset[{-3, 0}, {6., 1.2762044371323185`}]}}], {{{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[{{{7., 1.4286357585265759`}, Offset[{3, 0}, {7., 1.4286357585265759`}]}, {{7., 1.4286357585265759`}, Offset[{-3, 0}, {7., 1.4286357585265759`}]}, {{7., 1.229054391776405}, Offset[{3, 0}, {7., 1.229054391776405}]}, {{ 7., 1.229054391776405}, Offset[{-3, 0}, {7., 1.229054391776405}]}}], {{{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[{{{8., 0.955580836091751}, Offset[{3, 0}, {8., 0.955580836091751}]}, {{8., 0.955580836091751}, Offset[{-3, 0}, {8., 0.955580836091751}]}, {{ 8., 0.8323577924802319}, Offset[{3, 0}, {8., 0.8323577924802319}]}, {{8., 0.8323577924802319}, Offset[{-3, 0}, {8., 0.8323577924802319}]}}], {{{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.861616515844078}, {2., 2.168808277106379}, {3., 1.6009271683596045`}, {4., 1.686536396828415}, {5., 1.1425838320632304`}, {6., 1.4003789175524701`}, {7., 1.3288450751514904`}, {8., 0.8939693142859915}}]}}, {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., 0}, 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., 8.}, {0, 2.3454628810544556`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], 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 -> Automatic]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3552", "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 -> Automatic]][{{{1, 2}, {3, 2}} -> {{2, 4}, {4, 1}, {5, 3}}}, {{1, 1}, { 1, 1}}, 7], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}], ",", "4"}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = Graph[{9, 7}, {{{1, 2}}, Null}, { GraphHighlight -> {9}, GraphLayout -> {"Dimension" -> 2}, VertexCoordinates -> {{1.6072328571428565`, -0.17858142857142867`}, { 1.6072328571428565`, -1.1785814285714287`}}}]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{1.6072328571428565`, -0.17858142857142867`}, { 1.6072328571428565`, -1.1785814285714287`}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{1.6072328571428565`, -0.17858142857142867`}, { 1.6072328571428565`, -1.1785814285714287`}}, 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[{9, 7}, {{{1, 2}}, Null}, { GraphHighlight -> {9}, GraphLayout -> {"Dimension" -> 2}, VertexCoordinates -> {{1.6072328571428565`, -0.17858142857142867`}, { 1.6072328571428565`, -1.1785814285714287`}}}]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{1.6072328571428565`, -0.17858142857142867`}, { 1.6072328571428565`, -1.1785814285714287`}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{1.6072328571428565`, -0.17858142857142867`}, { 1.6072328571428565`, -1.1785814285714287`}}, 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[{9, 7}, {{{1, 2}}, Null}, { GraphHighlight -> {9}, GraphLayout -> {"Dimension" -> 2}, VertexCoordinates -> {{1.6072328571428565`, -0.17858142857142867`}, { 1.6072328571428565`, -1.1785814285714287`}}}]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{1.6072328571428565`, -0.17858142857142867`}, { 1.6072328571428565`, -1.1785814285714287`}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{1.6072328571428565`, -0.17858142857142867`}, { 1.6072328571428565`, -1.1785814285714287`}}, 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[{9, 7}, {{{1, 2}}, Null}, { GraphHighlight -> {9}, GraphLayout -> {"Dimension" -> 2}, VertexCoordinates -> {{1.6072328571428565`, -0.17858142857142867`}, { 1.6072328571428565`, -1.1785814285714287`}}}]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{1.6072328571428565`, -0.17858142857142867`}, { 1.6072328571428565`, -1.1785814285714287`}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{1.6072328571428565`, -0.17858142857142867`}, { 1.6072328571428565`, -1.1785814285714287`}}, 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]}], "}"}]], "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 -> Automatic]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3552", "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 -> Automatic]][{{{1, 2}, {3, 2}} -> {{2, 4}, {4, 1}, {5, 3}}}, {{1, 1}, {1, 1}}, 7], 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:eJxTTMoPSmVmYGAQhGIQGwI+2I/S9KEfVomsc394C8qHgQdofBgYePeODBp3 +GOPr4F27+ClrfsV9nhve2N/Iyeo+Dz/c/u8u92nzl64Mpr+BwlNaviPpn96 0MSHP6H8NUrjp0fLn8FIj5Y/1KJH69/BTY/Wv4ORHq1/qUWPlj+Dmx4tfwYj PVr+0IseLX8GIz1a/tCLHk3/g5EeTf+DjQYA41c8uQ== "], {{0, 0}, {17, 17}}, {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.6649999999999999], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6649999999999999], 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, 17.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{17.818627450980397`, 69.4624183006536}, {-39.97062547601052, 38.61249682659665}}], "DelayedMouseEffectStyle"], StatusArea[#, 17]& , TagBoxNote->"17"], StyleBox["17", {}, StripOnInput -> False]], Annotation[#, Style[17, {}], "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, 20.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{68.9624183006536, 120.6062091503268}, {-53.75000000000001, 38.61249682659665}}], "DelayedMouseEffectStyle"], StatusArea[#, 20]& , TagBoxNote->"20"], StyleBox["20", {}, StripOnInput -> False]], Annotation[#, Style[20, {}], "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, 6.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{120.1062091503268, 171.75}, {10.553747778617648`, 38.61249682659665}}], "DelayedMouseEffectStyle"], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", {}, StripOnInput -> False]], Annotation[#, Style[6, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-0.56, 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, 2.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 -> Automatic]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3552", "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 -> Automatic]][{{{1, 2}, {3, 2}} -> {{2, 4}, {4, 1}, {5, 3}}}, {{1, 1}, { 1, 1}}, 7], 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[CompressedData[" 1:eJxTTMoPSmVmYGDggGIQGwI+2I/SozQ+uu8lp7dNwhv7OJfbhqXTn9q3Bgc2 yQueG3TuIVV8sIXbYHPnUAnPwZY+YfTDKpF17g9vQfkMDIPNnQCfeziT "], {{0, 0}, {8, 8}}, {0, 1}], Frame->True, FrameLabel->{None, None}, FrameTicks->{{{{7.5, FormBox["1", TraditionalForm]}, {6.5, FormBox["2", TraditionalForm]}, {5.5, FormBox["3", TraditionalForm]}, {4.5, FormBox["4", TraditionalForm]}, {3.5, FormBox["5", TraditionalForm]}, {2.5, FormBox["6", TraditionalForm]}, {1.5, FormBox["7", TraditionalForm]}, {0.5, FormBox["8", TraditionalForm]}}, {{7.5, FormBox["1", TraditionalForm]}, {6.5, FormBox["2", TraditionalForm]}, {5.5, FormBox["3", TraditionalForm]}, {4.5, FormBox["4", TraditionalForm]}, {3.5, FormBox["5", TraditionalForm]}, {2.5, FormBox["6", TraditionalForm]}, {1.5, FormBox["7", TraditionalForm]}, {0.5, FormBox["8", TraditionalForm]}}}, {{{0.5, FormBox["1", TraditionalForm]}, {1.5, FormBox["2", TraditionalForm]}, {2.5, FormBox["3", TraditionalForm]}, {3.5, FormBox["4", TraditionalForm]}, {4.5, FormBox["5", TraditionalForm]}, {5.5, FormBox["6", TraditionalForm]}, {6.5, FormBox["7", TraditionalForm]}, {7.5, FormBox["8", TraditionalForm]}}, {{0.5, FormBox["1", TraditionalForm]}, {1.5, FormBox["2", TraditionalForm]}, {2.5, FormBox["3", TraditionalForm]}, {3.5, FormBox["4", TraditionalForm]}, {4.5, FormBox["5", TraditionalForm]}, {5.5, FormBox["6", TraditionalForm]}, {6.5, FormBox["7", TraditionalForm]}, {7.5, FormBox["8", 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 -> Automatic]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3552", "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 -> Automatic]][{{{1, 2}, {3, 2}} -> {{2, 4}, {4, 1}, {5, 3}}}, {{1, 1}, {1, 1}}, 7], SelectWithContents->True, Selectable->False], "[", "\"\\"", "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], "]"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"List", "ListIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["List", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["1", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["104", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], {ImageSize -> Small}, SelectWithContents->True, Selectable->False]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0., 0.}, {0.6931471805599453, 1.0986122886681098`}, { 1.0986122886681098`, 1.791759469228055}, {1.3862943611198906`, 2.0794415416798357`}}]}, { {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.05836395530756485, -0.16272810152930617`}, 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.05836395530756485, 1.3862943611198906`}, {-0.16272810152930617`, 2.0794415416798357`}}, 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["1", StandardForm], {0.01, 0.}}, {0.6931471805599453, FormBox["2", StandardForm], {0.01, 0.}}, {1.0986122886681098`, FormBox["3", StandardForm], {0.01, 0.}}, {1.3862943611198906`, FormBox["4", StandardForm], {0.01, 0.}}, {-1.6094379124341003`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, {-0.916290731874155, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, {-0.5108256237659907, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, {-0.2231435513142097, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 0.1823215567939546, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 0.3364722366212129, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 0.47000362924573563`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 0.5877866649021191, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 0.7884573603642703, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 0.8754687373538999, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 0.9555114450274363, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.0296194171811581`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.1631508098056809`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.2237754316221157`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.2809338454620642`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.33500106673234, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.4350845252893227`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.4816045409242156`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.5260563034950492`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.5686159179138452`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.6094379124341003`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}}, {{ 0., FormBox["1", StandardForm], {0.01, 0.}}, {0.6931471805599453, FormBox["2", StandardForm], {0.01, 0.}}, {1.6094379124341003`, FormBox["5", StandardForm], {0.01, 0.}}, {0.4054651081081644, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.0986122886681098`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.3862943611198906`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.791759469228055, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 1.9459101490553132`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 2.0794415416798357`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 2.1972245773362196`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 2.302585092994046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 2.3513752571634776`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {0.005, 0.}}, { 2.3978952727983707`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], StandardForm], {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[{"3", ",", "2"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", "8"}], "|>"}], ",", "\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{2.2513246517117516`, -0.31251128923811067`}, { 1.4397963987276758`, -0.3125109457898746}}], PolygonBox[{{1.4534559463614989`, -0.2736924823283984}, { 1.4512976957077606`, -0.2780710068993674}, { 1.4465283766831871`, -0.2886579453821756}, { 1.444044579263585, -0.2950623567405165}, { 1.441822022387891, -0.30146662084295683`}, { 1.4403188819449808`, -0.3074789172584861}, { 1.4397963987276758`, -0.3125109457898746}, { 1.4403188778793419`, -0.3170855492697048}, { 1.441822013288646, -0.3229670793191416}, { 1.4440445646329185`, -0.3296329207704236}, { 1.4465283564656661`, -0.3364295969554041}, { 1.4512976661144639`, -0.3479965264382674}, { 1.4534559128408258`, -0.3528979358322492}, { 1.3058268890631672`, -0.3125108890924132}, { 1.4534559463614989`, -0.2736924823283984}}]}, { LineBox[{{1.185826889063193, -0.3125108142317453}, { 0.5064796038760935, -0.312510254132927}}], PolygonBox[{{0.520139167085996, -0.27369179615240796`}, { 0.5179809146753553, -0.278070319857369}, { 0.5132115914027263, -0.2886572564264659}, { 0.5107277914133259, -0.2950616667881716}, { 0.5085052319678927, -0.30146592999880056`}, { 0.5070020891125221, -0.3074782258111876}, { 0.5064796038760935, -0.312510254132927}, { 0.5070020811921795, -0.3170848578224039}, { 0.5085052142414932, -0.32296638847497994`}, { 0.5107277629110671, -0.3296322308180701}, { 0.5132115520166183, -0.33642890799968245`}, { 0.5179808570241338, -0.3479958393962515}, { 0.5201391017837833, -0.352897249656239}, { 0.3725100942116183, -0.31251014367960556`}, { 0.520139167085996, -0.27369179615240796`}}]}, { LineBox[{{4.250716545065815, -0.31251014672250016`}, { 3.572856031264934, -0.31251069877644366`}}], PolygonBox[{{3.586515530856314, -0.273692218409694}, { 3.5843572856215182`, -0.2780707456517497}, { 3.5795879796995353`, -0.28865769003714525`}, { 3.5771041902061502`, -0.29506210446947384`}, { 3.574881641256491, -0.30146637132258586`}, { 3.573378508254509, -0.30747866959842435`}, { 3.572856031264934, -0.31251069877644366`}, { 3.5733785160782117`, -0.3170853016096407}, { 3.574881658766602, -0.32296682979876545`}, { 3.577104218360639, -0.3296326684993726}, { 3.579588018605074, -0.3364293416103622}, { 3.584357342569309, -0.34799626519063276`}, { 3.5865155953617425`, -0.3528976719135256}, { 3.4388865216004576`, -0.3125108078820703}, { 3.586515530856314, -0.273692218409694}}]}, { LineBox[{{3.3188865216004833`, -0.31251088248085196`}, { 2.505294161376249, -0.31251123143600407`}}], PolygonBox[{{2.518953675932144, -0.27369275633499135`}, { 2.516795429009427, -0.2780712827450437}, { 2.5120261190061792`, -0.2886582252918721}, { 2.5095423270438943`, -0.2950626387666999}, { 2.5073197756253918`, -0.3014669047630193}, { 2.50581664030567, -0.30747920245939986`}, { 2.505294161376249, -0.31251123143600407`}, { 2.505816644426018, -0.31708583447061855`}, { 2.507319784847081, -0.322967363239204}, { 2.509542341871438, -0.32963320279660696`}, { 2.5120261394957573`, -0.33642987686510045`}, { 2.5167954590009454`, -0.34799680228394353`}, { 2.5189537099038875`, -0.352898209838842}, { 2.3713246517117406`, -0.3125112888964141}, { 2.518953675932144, -0.27369275633499135`}}]}, { LineBox[{{0.37251009421163844`, -0.9375315030540885}, { 1.120334133692142, -0.9375315030540885}}], PolygonBox[{{1.1066746024867473`, -0.9763499722964414}, { 1.1088328512874428`, -0.9719714468120758}, { 1.1136021658314998`, -0.961384506310837}, { 1.1160859605406799`, -0.9549800939013247}, { 1.1183085147060143`, -0.9485758288582729}, { 1.1198116526044504`, -0.9425635318065976}, { 1.120334133692142, -0.9375315030540885}, { 1.1198116526044504`, -0.932956899795378}, { 1.1183085147060143`, -0.9270753703820862}, { 1.1160859605406799`, -0.9204095298714144}, { 1.1136021658314998`, -0.9136128547376043}, { 1.1088328512874428`, -0.9020459272731696}, { 1.1066746024867473`, -0.8971445187925834}, { 1.2543036433566626`, -0.9375315030540885}, { 1.1066746024867473`, -0.9763499722964414}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{2.3113246517117463, -0.3125113146308115}, 0.06], DiskBox[{4.310716545065795, -0.3125100978581159}, 0.06], DiskBox[{0.31251009421163867, -0.31251009421163856}, 0.06], DiskBox[{1.2458268890631725, -0.3125108636997123}, 0.06], DiskBox[{1.3143036433566626, -0.9375315030540885}, 0.06], DiskBox[{3.3788865216004775, -0.31251085674645457}, 0.06], DiskBox[{0.31251009421163845, -0.9375315030540885}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {219.03629419968033`}}]], "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[{"3", ",", "2"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", "8"}], "|>"}], ",", 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.23858142857453205`, -2.321558571468918}, { 1.0161511274969424`, -2.321558571468918}}], PolygonBox[{{1.0057073023556207`, -2.3512384557141988`}, { 1.0073574595057453`, -2.3478907160408578`}, { 1.0110039892726248`, -2.339796136972665}, { 1.0129030528085223`, -2.3348994415932918`}, { 1.0146023766521328`, -2.330002858887591}, { 1.0157516481123685`, -2.3254059676648104`}, { 1.0161511274969424`, -2.321558571468918}, { 1.0157516481123685`, -2.3180609143526896`}, { 1.0146023766521328`, -2.3135640056497246`}, { 1.0129030528085223`, -2.3084674271752084`}, { 1.0110039892726248`, -2.3032708149655705`}, { 1.0073574595057453`, -2.294426955974773}, { 1.0057073023556207`, -2.2906794296250244`}, { 1.118581738926147, -2.321558571468918}, { 1.0057073023556207`, -2.3512384557141988`}}]}, { LineBox[{{0.23858142857453205`, -1.2500700000217249`}, { 1.0161511274969424`, -1.2500700000217249`}}], PolygonBox[{{1.0057073023556207`, -1.2797498842670054`}, { 1.0073574595057453`, -1.2764021445936649`}, { 1.0110039892726248`, -1.2683075655254719`}, { 1.0129030528085223`, -1.2634108701460987`}, { 1.0146023766521328`, -1.2585142874403983`}, { 1.0157516481123685`, -1.253917396217617}, { 1.0161511274969424`, -1.2500700000217249`}, { 1.0157516481123685`, -1.2465723429054965`}, { 1.0146023766521328`, -1.2420754342025315`}, { 1.0129030528085223`, -1.2369788557280155`}, { 1.0110039892726248`, -1.2317822435183776`}, { 1.0073574595057453`, -1.22293838452758}, { 1.0057073023556207`, -1.2191908581778312`}, { 1.118581738926147, -1.2500700000217249`}, { 1.0057073023556207`, -1.2797498842670054`}}]}, { LineBox[{{2.1185810147723787`, -0.17858142857453213`}, { 1.3399947266986496`, -0.1785814285745322}}], PolygonBox[{{1.3504385518399713`, -0.14890154432925162`}, { 1.3487883946898467`, -0.1522492840025923}, { 1.3451418649229672`, -0.1603438630707852}, { 1.3432428013870696`, -0.16524055845015834`}, { 1.3415434775434592`, -0.17013714115585887`}, { 1.3403942060832235`, -0.17473403237863985`}, { 1.3399947266986496`, -0.1785814285745322}, { 1.3403942060832235`, -0.1820790856907607}, { 1.3415434775434592`, -0.18657599439372563`}, { 1.3432428013870696`, -0.19167257286824171`}, { 1.3451418649229672`, -0.19686918507787954`}, { 1.3487883946898467`, -0.20571304406867708`}, { 1.3504385518399713`, -0.20946057041842595`}, { 1.237564115269445, -0.1785814285745322}, { 1.3504385518399713`, -0.14890154432925162`}}]}, { LineBox[{{1.1175641152694449`, -0.1785814285745322}, { 0.34101204000373664`, -0.1785814285745322}}], PolygonBox[{{0.35145586514505833`, -0.14890154432925162`}, { 0.3498057079949338, -0.1522492840025923}, { 0.34615917822805414`, -0.1603438630707852}, { 0.34426011469215667`, -0.16524055845015834`}, { 0.3425607908485462, -0.17013714115585887`}, { 0.3414115193883105, -0.17473403237863985`}, { 0.34101204000373664`, -0.1785814285745322}, { 0.3414115193883105, -0.1820790856907607}, { 0.3425607908485462, -0.18657599439372563`}, { 0.34426011469215667`, -0.19167257286824171`}, { 0.34615917822805414`, -0.19686918507787954`}, { 0.3498057079949338, -0.20571304406867708`}, { 0.35145586514505833`, -0.20946057041842595`}, { 0.23858142857453205`, -0.1785814285745322}, { 0.35145586514505833`, -0.14890154432925162`}}]}, { LineBox[{{2.1185810147723787`, -0.5357442857235963}, { 1.3399947266986496`, -0.5357442857235964}}], PolygonBox[{{1.3504385518399713`, -0.5060644014783159}, { 1.3487883946898467`, -0.5094121411516566}, { 1.3451418649229672`, -0.5175067202198494}, { 1.3432428013870696`, -0.5224034155992225}, { 1.3415434775434592`, -0.5272999983049231}, { 1.3403942060832235`, -0.5318968895277041}, { 1.3399947266986496`, -0.5357442857235964}, { 1.3403942060832235`, -0.539241942839825}, { 1.3415434775434592`, -0.5437388515427899}, { 1.3432428013870696`, -0.548835430017306}, { 1.3451418649229672`, -0.5540320422269438}, { 1.3487883946898467`, -0.5628759012177413}, { 1.3504385518399713`, -0.5666234275674902}, { 1.237564115269445, -0.5357442857235964}, { 1.3504385518399713`, -0.5060644014783159}}]}, { LineBox[{{1.1175641152694449`, -0.5357442857235964}, { 0.34101204000373664`, -0.5357442857235964}}], PolygonBox[{{0.35145586514505833`, -0.5060644014783159}, { 0.3498057079949338, -0.5094121411516566}, { 0.34615917822805414`, -0.5175067202198494}, { 0.34426011469215667`, -0.5224034155992225}, { 0.3425607908485462, -0.5272999983049231}, { 0.3414115193883105, -0.5318968895277041}, { 0.34101204000373664`, -0.5357442857235964}, { 0.3414115193883105, -0.539241942839825}, { 0.3425607908485462, -0.5437388515427899}, { 0.34426011469215667`, -0.548835430017306}, { 0.34615917822805414`, -0.5540320422269438}, { 0.3498057079949338, -0.5628759012177413}, { 0.35145586514505833`, -0.5666234275674902}, { 0.23858142857453205`, -0.5357442857235964}, { 0.35145586514505833`, -0.5060644014783159}}]}, { LineBox[{{0.23858142857453205`, -1.6072328571707892`}, { 1.0161511274969424`, -1.6072328571707892`}}], PolygonBox[{{1.0057073023556207`, -1.6369127414160698`}, { 1.0073574595057453`, -1.6335650017427292`}, { 1.0110039892726248`, -1.6254704226745362`}, { 1.0129030528085223`, -1.620573727295163}, { 1.0146023766521328`, -1.6156771445894627`}, { 1.0157516481123685`, -1.6110802533666815`}, { 1.0161511274969424`, -1.6072328571707892`}, { 1.0157516481123685`, -1.6037352000545608`}, { 1.0146023766521328`, -1.599238291351596}, { 1.0129030528085223`, -1.5941417128770798`}, { 1.0110039892726248`, -1.588945100667442}, { 1.0073574595057453`, -1.5801012416766445`}, { 1.0057073023556207`, -1.5763537153268956`}, { 1.118581738926147, -1.6072328571707892`}, { 1.0057073023556207`, -1.6369127414160698`}}]}, { LineBox[{{2.1185810147723787`, -0.8929071428726606}, { 1.3399947266986496`, -0.8929071428726607}}], PolygonBox[{{1.3504385518399713`, -0.8632272586273801}, { 1.3487883946898467`, -0.8665749983007208}, { 1.3451418649229672`, -0.8746695773689137}, { 1.3432428013870696`, -0.8795662727482868}, { 1.3415434775434592`, -0.8844628554539874}, { 1.3403942060832235`, -0.8890597466767683}, { 1.3399947266986496`, -0.8929071428726607}, { 1.3403942060832235`, -0.8964047999888892}, { 1.3415434775434592`, -0.9009017086918542}, { 1.3432428013870696`, -0.9059982871663702}, { 1.3451418649229672`, -0.9111948993760081}, { 1.3487883946898467`, -0.9200387583668056}, { 1.3504385518399713`, -0.9237862847165544}, { 1.237564115269445, -0.8929071428726607}, { 1.3504385518399713`, -0.8632272586273801}}]}, { LineBox[{{1.1175641152694449`, -0.8929071428726607}, { 0.34101204000373664`, -0.8929071428726607}}], PolygonBox[{{0.35145586514505833`, -0.8632272586273801}, { 0.3498057079949338, -0.8665749983007208}, { 0.34615917822805414`, -0.8746695773689137}, { 0.34426011469215667`, -0.8795662727482868}, { 0.3425607908485462, -0.8844628554539874}, { 0.3414115193883105, -0.8890597466767683}, { 0.34101204000373664`, -0.8929071428726607}, { 0.3414115193883105, -0.8964047999888892}, { 0.3425607908485462, -0.9009017086918542}, { 0.34426011469215667`, -0.9059982871663702}, { 0.34615917822805414`, -0.9111948993760081}, { 0.3498057079949338, -0.9200387583668056}, { 0.35145586514505833`, -0.9237862847165544}, { 0.23858142857453205`, -0.8929071428726607}, { 0.35145586514505833`, -0.8632272586273801}}]}, { LineBox[{{0.23858142857453205`, -1.9643957143198536`}, { 1.0161511274969424`, -1.9643957143198536`}}], PolygonBox[{{1.0057073023556207`, -1.9940755985651342`}, { 1.0073574595057453`, -1.9907278588917936`}, { 1.0110039892726248`, -1.9826332798236006`}, { 1.0129030528085223`, -1.9777365844442274`}, { 1.0146023766521328`, -1.972840001738527}, { 1.0157516481123685`, -1.9682431105157459`}, { 1.0161511274969424`, -1.9643957143198536`}, { 1.0157516481123685`, -1.9608980572036252`}, { 1.0146023766521328`, -1.9564011485006603`}, { 1.0129030528085223`, -1.9513045700261442`}, { 1.0110039892726248`, -1.9461079578165064`}, { 1.0073574595057453`, -1.9372640988257088`}, { 1.0057073023556207`, -1.93351657247596}, { 1.118581738926147, -1.9643957143198536`}, { 1.0057073023556207`, -1.9940755985651342`}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.17858142857453205, -0.8929071428726607}, 0.06], DiskBox[{0.17858142857453205, -0.1785814285745322}, 0.06], DiskBox[{1.178581738926147, -2.321558571468918}, 0.06], DiskBox[{0.17858142857453205, -0.5357442857235964}, 0.06], DiskBox[{0.17858142857453205, -2.321558571468918}, 0.06], DiskBox[{2.1785810147723788, -0.17858142857453213}, 0.06], DiskBox[{1.178581738926147, -1.2500700000217249}, 0.06], DiskBox[{2.1785810147723788, -0.5357442857235963}, 0.06], DiskBox[{0.17858142857453205, -1.2500700000217249}, 0.06], DiskBox[{2.1785810147723788, -0.8929071428726606}, 0.06], DiskBox[{1.178581738926147, -1.6072328571707892}, 0.06], DiskBox[{1.177564115269445, -0.1785814285745322}, 0.06], DiskBox[{1.178581738926147, -1.9643957143198536}, 0.06], DiskBox[{1.177564115269445, -0.5357442857235964}, 0.06], DiskBox[{0.17858142857453205, -1.6072328571707892}, 0.06], DiskBox[{1.177564115269445, -0.8929071428726607}, 0.06], DiskBox[{0.17858142857453205, -1.9643957143198536}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {420}}, PlotLabel->FormBox["\"OldestEdge\"", TraditionalForm]], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{0.23858142857453205`, -2.321558571468918}, { 1.0161511274969424`, -2.321558571468918}}], PolygonBox[{{1.0057073023556207`, -2.3512384557141988`}, { 1.0073574595057453`, -2.3478907160408578`}, { 1.0110039892726248`, -2.339796136972665}, { 1.0129030528085223`, -2.3348994415932918`}, { 1.0146023766521328`, -2.330002858887591}, { 1.0157516481123685`, -2.3254059676648104`}, { 1.0161511274969424`, -2.321558571468918}, { 1.0157516481123685`, -2.3180609143526896`}, { 1.0146023766521328`, -2.3135640056497246`}, { 1.0129030528085223`, -2.3084674271752084`}, { 1.0110039892726248`, -2.3032708149655705`}, { 1.0073574595057453`, -2.294426955974773}, { 1.0057073023556207`, -2.2906794296250244`}, { 1.118581738926147, -2.321558571468918}, { 1.0057073023556207`, -2.3512384557141988`}}]}, { LineBox[{{0.23858142857453205`, -1.2500700000217249`}, { 1.0161511274969424`, -1.2500700000217249`}}], PolygonBox[{{1.0057073023556207`, -1.2797498842670054`}, { 1.0073574595057453`, -1.2764021445936649`}, { 1.0110039892726248`, -1.2683075655254719`}, { 1.0129030528085223`, -1.2634108701460987`}, { 1.0146023766521328`, -1.2585142874403983`}, { 1.0157516481123685`, -1.253917396217617}, { 1.0161511274969424`, -1.2500700000217249`}, { 1.0157516481123685`, -1.2465723429054965`}, { 1.0146023766521328`, -1.2420754342025315`}, { 1.0129030528085223`, -1.2369788557280155`}, { 1.0110039892726248`, -1.2317822435183776`}, { 1.0073574595057453`, -1.22293838452758}, { 1.0057073023556207`, -1.2191908581778312`}, { 1.118581738926147, -1.2500700000217249`}, { 1.0057073023556207`, -1.2797498842670054`}}]}, { LineBox[{{2.1185810147723787`, -0.5357442857235963}, { 1.3399947266986496`, -0.5357442857235964}}], PolygonBox[{{1.3504385518399713`, -0.5060644014783159}, { 1.3487883946898467`, -0.5094121411516566}, { 1.3451418649229672`, -0.5175067202198494}, { 1.3432428013870696`, -0.5224034155992225}, { 1.3415434775434592`, -0.5272999983049231}, { 1.3403942060832235`, -0.5318968895277041}, { 1.3399947266986496`, -0.5357442857235964}, { 1.3403942060832235`, -0.539241942839825}, { 1.3415434775434592`, -0.5437388515427899}, { 1.3432428013870696`, -0.548835430017306}, { 1.3451418649229672`, -0.5540320422269438}, { 1.3487883946898467`, -0.5628759012177413}, { 1.3504385518399713`, -0.5666234275674902}, { 1.237564115269445, -0.5357442857235964}, { 1.3504385518399713`, -0.5060644014783159}}]}, { LineBox[{{1.1175641152694449`, -0.5357442857235964}, { 0.34101204000373664`, -0.5357442857235964}}], PolygonBox[{{0.35145586514505833`, -0.5060644014783159}, { 0.3498057079949338, -0.5094121411516566}, { 0.34615917822805414`, -0.5175067202198494}, { 0.34426011469215667`, -0.5224034155992225}, { 0.3425607908485462, -0.5272999983049231}, { 0.3414115193883105, -0.5318968895277041}, { 0.34101204000373664`, -0.5357442857235964}, { 0.3414115193883105, -0.539241942839825}, { 0.3425607908485462, -0.5437388515427899}, { 0.34426011469215667`, -0.548835430017306}, { 0.34615917822805414`, -0.5540320422269438}, { 0.3498057079949338, -0.5628759012177413}, { 0.35145586514505833`, -0.5666234275674902}, { 0.23858142857453205`, -0.5357442857235964}, { 0.35145586514505833`, -0.5060644014783159}}]}, { LineBox[{{0.23858142857453205`, -1.6072328571707892`}, { 1.0161511274969424`, -1.6072328571707892`}}], PolygonBox[{{1.0057073023556207`, -1.6369127414160698`}, { 1.0073574595057453`, -1.6335650017427292`}, { 1.0110039892726248`, -1.6254704226745362`}, { 1.0129030528085223`, -1.620573727295163}, { 1.0146023766521328`, -1.6156771445894627`}, { 1.0157516481123685`, -1.6110802533666815`}, { 1.0161511274969424`, -1.6072328571707892`}, { 1.0157516481123685`, -1.6037352000545608`}, { 1.0146023766521328`, -1.599238291351596}, { 1.0129030528085223`, -1.5941417128770798`}, { 1.0110039892726248`, -1.588945100667442}, { 1.0073574595057453`, -1.5801012416766445`}, { 1.0057073023556207`, -1.5763537153268956`}, { 1.118581738926147, -1.6072328571707892`}, { 1.0057073023556207`, -1.6369127414160698`}}]}, { LineBox[{{2.1185810147723787`, -0.17858142857453213`}, { 1.3399947266986496`, -0.1785814285745322}}], PolygonBox[{{1.3504385518399713`, -0.14890154432925162`}, { 1.3487883946898467`, -0.1522492840025923}, { 1.3451418649229672`, -0.1603438630707852}, { 1.3432428013870696`, -0.16524055845015834`}, { 1.3415434775434592`, -0.17013714115585887`}, { 1.3403942060832235`, -0.17473403237863985`}, { 1.3399947266986496`, -0.1785814285745322}, { 1.3403942060832235`, -0.1820790856907607}, { 1.3415434775434592`, -0.18657599439372563`}, { 1.3432428013870696`, -0.19167257286824171`}, { 1.3451418649229672`, -0.19686918507787954`}, { 1.3487883946898467`, -0.20571304406867708`}, { 1.3504385518399713`, -0.20946057041842595`}, { 1.237564115269445, -0.1785814285745322}, { 1.3504385518399713`, -0.14890154432925162`}}]}, { LineBox[{{1.1175641152694449`, -0.1785814285745322}, { 0.34101204000373664`, -0.1785814285745322}}], PolygonBox[{{0.35145586514505833`, -0.14890154432925162`}, { 0.3498057079949338, -0.1522492840025923}, { 0.34615917822805414`, -0.1603438630707852}, { 0.34426011469215667`, -0.16524055845015834`}, { 0.3425607908485462, -0.17013714115585887`}, { 0.3414115193883105, -0.17473403237863985`}, { 0.34101204000373664`, -0.1785814285745322}, { 0.3414115193883105, -0.1820790856907607}, { 0.3425607908485462, -0.18657599439372563`}, { 0.34426011469215667`, -0.19167257286824171`}, { 0.34615917822805414`, -0.19686918507787954`}, { 0.3498057079949338, -0.20571304406867708`}, { 0.35145586514505833`, -0.20946057041842595`}, { 0.23858142857453205`, -0.1785814285745322}, { 0.35145586514505833`, -0.14890154432925162`}}]}, { LineBox[{{2.1185810147723787`, -0.8929071428726606}, { 1.3399947266986496`, -0.8929071428726607}}], PolygonBox[{{1.3504385518399713`, -0.8632272586273801}, { 1.3487883946898467`, -0.8665749983007208}, { 1.3451418649229672`, -0.8746695773689137}, { 1.3432428013870696`, -0.8795662727482868}, { 1.3415434775434592`, -0.8844628554539874}, { 1.3403942060832235`, -0.8890597466767683}, { 1.3399947266986496`, -0.8929071428726607}, { 1.3403942060832235`, -0.8964047999888892}, { 1.3415434775434592`, -0.9009017086918542}, { 1.3432428013870696`, -0.9059982871663702}, { 1.3451418649229672`, -0.9111948993760081}, { 1.3487883946898467`, -0.9200387583668056}, { 1.3504385518399713`, -0.9237862847165544}, { 1.237564115269445, -0.8929071428726607}, { 1.3504385518399713`, -0.8632272586273801}}]}, { LineBox[{{1.1175641152694449`, -0.8929071428726607}, { 0.34101204000373664`, -0.8929071428726607}}], PolygonBox[{{0.35145586514505833`, -0.8632272586273801}, { 0.3498057079949338, -0.8665749983007208}, { 0.34615917822805414`, -0.8746695773689137}, { 0.34426011469215667`, -0.8795662727482868}, { 0.3425607908485462, -0.8844628554539874}, { 0.3414115193883105, -0.8890597466767683}, { 0.34101204000373664`, -0.8929071428726607}, { 0.3414115193883105, -0.8964047999888892}, { 0.3425607908485462, -0.9009017086918542}, { 0.34426011469215667`, -0.9059982871663702}, { 0.34615917822805414`, -0.9111948993760081}, { 0.3498057079949338, -0.9200387583668056}, { 0.35145586514505833`, -0.9237862847165544}, { 0.23858142857453205`, -0.8929071428726607}, { 0.35145586514505833`, -0.8632272586273801}}]}, { LineBox[{{0.23858142857453205`, -1.9643957143198536`}, { 1.0161511274969424`, -1.9643957143198536`}}], PolygonBox[{{1.0057073023556207`, -1.9940755985651342`}, { 1.0073574595057453`, -1.9907278588917936`}, { 1.0110039892726248`, -1.9826332798236006`}, { 1.0129030528085223`, -1.9777365844442274`}, { 1.0146023766521328`, -1.972840001738527}, { 1.0157516481123685`, -1.9682431105157459`}, { 1.0161511274969424`, -1.9643957143198536`}, { 1.0157516481123685`, -1.9608980572036252`}, { 1.0146023766521328`, -1.9564011485006603`}, { 1.0129030528085223`, -1.9513045700261442`}, { 1.0110039892726248`, -1.9461079578165064`}, { 1.0073574595057453`, -1.9372640988257088`}, { 1.0057073023556207`, -1.93351657247596}, { 1.118581738926147, -1.9643957143198536`}, { 1.0057073023556207`, -1.9940755985651342`}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.17858142857453205, -0.8929071428726607}, 0.06], DiskBox[{0.17858142857453205, -0.1785814285745322}, 0.06], DiskBox[{1.178581738926147, -2.321558571468918}, 0.06], DiskBox[{0.17858142857453205, -0.5357442857235964}, 0.06], DiskBox[{0.17858142857453205, -2.321558571468918}, 0.06], DiskBox[{2.1785810147723788, -0.17858142857453213}, 0.06], DiskBox[{1.178581738926147, -1.2500700000217249}, 0.06], DiskBox[{2.1785810147723788, -0.5357442857235963}, 0.06], DiskBox[{0.17858142857453205, -1.2500700000217249}, 0.06], DiskBox[{2.1785810147723788, -0.8929071428726606}, 0.06], DiskBox[{1.178581738926147, -1.6072328571707892}, 0.06], DiskBox[{1.177564115269445, -0.5357442857235964}, 0.06], DiskBox[{0.17858142857453205, -1.6072328571707892}, 0.06], DiskBox[{1.177564115269445, -0.1785814285745322}, 0.06], DiskBox[{1.178581738926147, -1.9643957143198536}, 0.06], DiskBox[{1.177564115269445, -0.8929071428726607}, 0.06], DiskBox[{0.17858142857453205, -1.9643957143198536}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {420}}, PlotLabel->FormBox["\"LeastOldEdge\"", TraditionalForm]], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{0.23858142857453205`, -2.321558571468918}, { 1.0161511274969424`, -2.321558571468918}}], PolygonBox[{{1.0057073023556207`, -2.3512384557141988`}, { 1.0073574595057453`, -2.3478907160408578`}, { 1.0110039892726248`, -2.339796136972665}, { 1.0129030528085223`, -2.3348994415932918`}, { 1.0146023766521328`, -2.330002858887591}, { 1.0157516481123685`, -2.3254059676648104`}, { 1.0161511274969424`, -2.321558571468918}, { 1.0157516481123685`, -2.3180609143526896`}, { 1.0146023766521328`, -2.3135640056497246`}, { 1.0129030528085223`, -2.3084674271752084`}, { 1.0110039892726248`, -2.3032708149655705`}, { 1.0073574595057453`, -2.294426955974773}, { 1.0057073023556207`, -2.2906794296250244`}, { 1.118581738926147, -2.321558571468918}, { 1.0057073023556207`, -2.3512384557141988`}}]}, { LineBox[{{0.23858142857453205`, -1.2500700000217249`}, { 1.0161511274969424`, -1.2500700000217249`}}], PolygonBox[{{1.0057073023556207`, -1.2797498842670054`}, { 1.0073574595057453`, -1.2764021445936649`}, { 1.0110039892726248`, -1.2683075655254719`}, { 1.0129030528085223`, -1.2634108701460987`}, { 1.0146023766521328`, -1.2585142874403983`}, { 1.0157516481123685`, -1.253917396217617}, { 1.0161511274969424`, -1.2500700000217249`}, { 1.0157516481123685`, -1.2465723429054965`}, { 1.0146023766521328`, -1.2420754342025315`}, { 1.0129030528085223`, -1.2369788557280155`}, { 1.0110039892726248`, -1.2317822435183776`}, { 1.0073574595057453`, -1.22293838452758}, { 1.0057073023556207`, -1.2191908581778312`}, { 1.118581738926147, -1.2500700000217249`}, { 1.0057073023556207`, -1.2797498842670054`}}]}, { LineBox[{{2.1185810147723787`, -0.17858142857453213`}, { 1.3399947266986496`, -0.1785814285745322}}], PolygonBox[{{1.3504385518399713`, -0.14890154432925162`}, { 1.3487883946898467`, -0.1522492840025923}, { 1.3451418649229672`, -0.1603438630707852}, { 1.3432428013870696`, -0.16524055845015834`}, { 1.3415434775434592`, -0.17013714115585887`}, { 1.3403942060832235`, -0.17473403237863985`}, { 1.3399947266986496`, -0.1785814285745322}, { 1.3403942060832235`, -0.1820790856907607}, { 1.3415434775434592`, -0.18657599439372563`}, { 1.3432428013870696`, -0.19167257286824171`}, { 1.3451418649229672`, -0.19686918507787954`}, { 1.3487883946898467`, -0.20571304406867708`}, { 1.3504385518399713`, -0.20946057041842595`}, { 1.237564115269445, -0.1785814285745322}, { 1.3504385518399713`, -0.14890154432925162`}}]}, { LineBox[{{1.1175641152694449`, -0.1785814285745322}, { 0.34101204000373664`, -0.1785814285745322}}], PolygonBox[{{0.35145586514505833`, -0.14890154432925162`}, { 0.3498057079949338, -0.1522492840025923}, { 0.34615917822805414`, -0.1603438630707852}, { 0.34426011469215667`, -0.16524055845015834`}, { 0.3425607908485462, -0.17013714115585887`}, { 0.3414115193883105, -0.17473403237863985`}, { 0.34101204000373664`, -0.1785814285745322}, { 0.3414115193883105, -0.1820790856907607}, { 0.3425607908485462, -0.18657599439372563`}, { 0.34426011469215667`, -0.19167257286824171`}, { 0.34615917822805414`, -0.19686918507787954`}, { 0.3498057079949338, -0.20571304406867708`}, { 0.35145586514505833`, -0.20946057041842595`}, { 0.23858142857453205`, -0.1785814285745322}, { 0.35145586514505833`, -0.14890154432925162`}}]}, { LineBox[{{2.1185810147723787`, -0.5357442857235963}, { 1.3399947266986496`, -0.5357442857235964}}], PolygonBox[{{1.3504385518399713`, -0.5060644014783159}, { 1.3487883946898467`, -0.5094121411516566}, { 1.3451418649229672`, -0.5175067202198494}, { 1.3432428013870696`, -0.5224034155992225}, { 1.3415434775434592`, -0.5272999983049231}, { 1.3403942060832235`, -0.5318968895277041}, { 1.3399947266986496`, -0.5357442857235964}, { 1.3403942060832235`, -0.539241942839825}, { 1.3415434775434592`, -0.5437388515427899}, { 1.3432428013870696`, -0.548835430017306}, { 1.3451418649229672`, -0.5540320422269438}, { 1.3487883946898467`, -0.5628759012177413}, { 1.3504385518399713`, -0.5666234275674902}, { 1.237564115269445, -0.5357442857235964}, { 1.3504385518399713`, -0.5060644014783159}}]}, { LineBox[{{1.1175641152694449`, -0.5357442857235964}, { 0.34101204000373664`, -0.5357442857235964}}], PolygonBox[{{0.35145586514505833`, -0.5060644014783159}, { 0.3498057079949338, -0.5094121411516566}, { 0.34615917822805414`, -0.5175067202198494}, { 0.34426011469215667`, -0.5224034155992225}, { 0.3425607908485462, -0.5272999983049231}, { 0.3414115193883105, -0.5318968895277041}, { 0.34101204000373664`, -0.5357442857235964}, { 0.3414115193883105, -0.539241942839825}, { 0.3425607908485462, -0.5437388515427899}, { 0.34426011469215667`, -0.548835430017306}, { 0.34615917822805414`, -0.5540320422269438}, { 0.3498057079949338, -0.5628759012177413}, { 0.35145586514505833`, -0.5666234275674902}, { 0.23858142857453205`, -0.5357442857235964}, { 0.35145586514505833`, -0.5060644014783159}}]}, { LineBox[{{0.23858142857453205`, -1.6072328571707892`}, { 1.0161511274969424`, -1.6072328571707892`}}], PolygonBox[{{1.0057073023556207`, -1.6369127414160698`}, { 1.0073574595057453`, -1.6335650017427292`}, { 1.0110039892726248`, -1.6254704226745362`}, { 1.0129030528085223`, -1.620573727295163}, { 1.0146023766521328`, -1.6156771445894627`}, { 1.0157516481123685`, -1.6110802533666815`}, { 1.0161511274969424`, -1.6072328571707892`}, { 1.0157516481123685`, -1.6037352000545608`}, { 1.0146023766521328`, -1.599238291351596}, { 1.0129030528085223`, -1.5941417128770798`}, { 1.0110039892726248`, -1.588945100667442}, { 1.0073574595057453`, -1.5801012416766445`}, { 1.0057073023556207`, -1.5763537153268956`}, { 1.118581738926147, -1.6072328571707892`}, { 1.0057073023556207`, -1.6369127414160698`}}]}, { LineBox[{{2.1185810147723787`, -0.8929071428726606}, { 1.3399947266986496`, -0.8929071428726607}}], PolygonBox[{{1.3504385518399713`, -0.8632272586273801}, { 1.3487883946898467`, -0.8665749983007208}, { 1.3451418649229672`, -0.8746695773689137}, { 1.3432428013870696`, -0.8795662727482868}, { 1.3415434775434592`, -0.8844628554539874}, { 1.3403942060832235`, -0.8890597466767683}, { 1.3399947266986496`, -0.8929071428726607}, { 1.3403942060832235`, -0.8964047999888892}, { 1.3415434775434592`, -0.9009017086918542}, { 1.3432428013870696`, -0.9059982871663702}, { 1.3451418649229672`, -0.9111948993760081}, { 1.3487883946898467`, -0.9200387583668056}, { 1.3504385518399713`, -0.9237862847165544}, { 1.237564115269445, -0.8929071428726607}, { 1.3504385518399713`, -0.8632272586273801}}]}, { LineBox[{{1.1175641152694449`, -0.8929071428726607}, { 0.34101204000373664`, -0.8929071428726607}}], PolygonBox[{{0.35145586514505833`, -0.8632272586273801}, { 0.3498057079949338, -0.8665749983007208}, { 0.34615917822805414`, -0.8746695773689137}, { 0.34426011469215667`, -0.8795662727482868}, { 0.3425607908485462, -0.8844628554539874}, { 0.3414115193883105, -0.8890597466767683}, { 0.34101204000373664`, -0.8929071428726607}, { 0.3414115193883105, -0.8964047999888892}, { 0.3425607908485462, -0.9009017086918542}, { 0.34426011469215667`, -0.9059982871663702}, { 0.34615917822805414`, -0.9111948993760081}, { 0.3498057079949338, -0.9200387583668056}, { 0.35145586514505833`, -0.9237862847165544}, { 0.23858142857453205`, -0.8929071428726607}, { 0.35145586514505833`, -0.8632272586273801}}]}, { LineBox[{{0.23858142857453205`, -1.9643957143198536`}, { 1.0161511274969424`, -1.9643957143198536`}}], PolygonBox[{{1.0057073023556207`, -1.9940755985651342`}, { 1.0073574595057453`, -1.9907278588917936`}, { 1.0110039892726248`, -1.9826332798236006`}, { 1.0129030528085223`, -1.9777365844442274`}, { 1.0146023766521328`, -1.972840001738527}, { 1.0157516481123685`, -1.9682431105157459`}, { 1.0161511274969424`, -1.9643957143198536`}, { 1.0157516481123685`, -1.9608980572036252`}, { 1.0146023766521328`, -1.9564011485006603`}, { 1.0129030528085223`, -1.9513045700261442`}, { 1.0110039892726248`, -1.9461079578165064`}, { 1.0073574595057453`, -1.9372640988257088`}, { 1.0057073023556207`, -1.93351657247596}, { 1.118581738926147, -1.9643957143198536`}, { 1.0057073023556207`, -1.9940755985651342`}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.17858142857453205, -0.8929071428726607}, 0.06], DiskBox[{0.17858142857453205, -0.1785814285745322}, 0.06], DiskBox[{1.178581738926147, -2.321558571468918}, 0.06], DiskBox[{0.17858142857453205, -0.5357442857235964}, 0.06], DiskBox[{0.17858142857453205, -2.321558571468918}, 0.06], DiskBox[{2.1785810147723788, -0.17858142857453213}, 0.06], DiskBox[{1.178581738926147, -1.2500700000217249}, 0.06], DiskBox[{2.1785810147723788, -0.5357442857235963}, 0.06], DiskBox[{0.17858142857453205, -1.2500700000217249}, 0.06], DiskBox[{2.1785810147723788, -0.8929071428726606}, 0.06], DiskBox[{1.178581738926147, -1.6072328571707892}, 0.06], DiskBox[{1.177564115269445, -0.1785814285745322}, 0.06], DiskBox[{1.178581738926147, -1.9643957143198536}, 0.06], DiskBox[{1.177564115269445, -0.5357442857235964}, 0.06], DiskBox[{0.17858142857453205, -1.6072328571707892}, 0.06], DiskBox[{1.177564115269445, -0.8929071428726607}, 0.06], DiskBox[{0.17858142857453205, -1.9643957143198536}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {420}}, PlotLabel->FormBox["\"LeastRecentEdge\"", TraditionalForm]], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{0.23858142857453205`, -2.321558571468918}, { 1.0161511274969424`, -2.321558571468918}}], PolygonBox[{{1.0057073023556207`, -2.3512384557141988`}, { 1.0073574595057453`, -2.3478907160408578`}, { 1.0110039892726248`, -2.339796136972665}, { 1.0129030528085223`, -2.3348994415932918`}, { 1.0146023766521328`, -2.330002858887591}, { 1.0157516481123685`, -2.3254059676648104`}, { 1.0161511274969424`, -2.321558571468918}, { 1.0157516481123685`, -2.3180609143526896`}, { 1.0146023766521328`, -2.3135640056497246`}, { 1.0129030528085223`, -2.3084674271752084`}, { 1.0110039892726248`, -2.3032708149655705`}, { 1.0073574595057453`, -2.294426955974773}, { 1.0057073023556207`, -2.2906794296250244`}, { 1.118581738926147, -2.321558571468918}, { 1.0057073023556207`, -2.3512384557141988`}}]}, { LineBox[{{0.23858142857453205`, -1.2500700000217249`}, { 1.0161511274969424`, -1.2500700000217249`}}], PolygonBox[{{1.0057073023556207`, -1.2797498842670054`}, { 1.0073574595057453`, -1.2764021445936649`}, { 1.0110039892726248`, -1.2683075655254719`}, { 1.0129030528085223`, -1.2634108701460987`}, { 1.0146023766521328`, -1.2585142874403983`}, { 1.0157516481123685`, -1.253917396217617}, { 1.0161511274969424`, -1.2500700000217249`}, { 1.0157516481123685`, -1.2465723429054965`}, { 1.0146023766521328`, -1.2420754342025315`}, { 1.0129030528085223`, -1.2369788557280155`}, { 1.0110039892726248`, -1.2317822435183776`}, { 1.0073574595057453`, -1.22293838452758}, { 1.0057073023556207`, -1.2191908581778312`}, { 1.118581738926147, -1.2500700000217249`}, { 1.0057073023556207`, -1.2797498842670054`}}]}, { LineBox[{{2.1185810147723787`, -0.5357442857235963}, { 1.3399947266986496`, -0.5357442857235964}}], PolygonBox[{{1.3504385518399713`, -0.5060644014783159}, { 1.3487883946898467`, -0.5094121411516566}, { 1.3451418649229672`, -0.5175067202198494}, { 1.3432428013870696`, -0.5224034155992225}, { 1.3415434775434592`, -0.5272999983049231}, { 1.3403942060832235`, -0.5318968895277041}, { 1.3399947266986496`, -0.5357442857235964}, { 1.3403942060832235`, -0.539241942839825}, { 1.3415434775434592`, -0.5437388515427899}, { 1.3432428013870696`, -0.548835430017306}, { 1.3451418649229672`, -0.5540320422269438}, { 1.3487883946898467`, -0.5628759012177413}, { 1.3504385518399713`, -0.5666234275674902}, { 1.237564115269445, -0.5357442857235964}, { 1.3504385518399713`, -0.5060644014783159}}]}, { LineBox[{{1.1175641152694449`, -0.5357442857235964}, { 0.34101204000373664`, -0.5357442857235964}}], PolygonBox[{{0.35145586514505833`, -0.5060644014783159}, { 0.3498057079949338, -0.5094121411516566}, { 0.34615917822805414`, -0.5175067202198494}, { 0.34426011469215667`, -0.5224034155992225}, { 0.3425607908485462, -0.5272999983049231}, { 0.3414115193883105, -0.5318968895277041}, { 0.34101204000373664`, -0.5357442857235964}, { 0.3414115193883105, -0.539241942839825}, { 0.3425607908485462, -0.5437388515427899}, { 0.34426011469215667`, -0.548835430017306}, { 0.34615917822805414`, -0.5540320422269438}, { 0.3498057079949338, -0.5628759012177413}, { 0.35145586514505833`, -0.5666234275674902}, { 0.23858142857453205`, -0.5357442857235964}, { 0.35145586514505833`, -0.5060644014783159}}]}, { LineBox[{{0.23858142857453205`, -1.6072328571707892`}, { 1.0161511274969424`, -1.6072328571707892`}}], PolygonBox[{{1.0057073023556207`, -1.6369127414160698`}, { 1.0073574595057453`, -1.6335650017427292`}, { 1.0110039892726248`, -1.6254704226745362`}, { 1.0129030528085223`, -1.620573727295163}, { 1.0146023766521328`, -1.6156771445894627`}, { 1.0157516481123685`, -1.6110802533666815`}, { 1.0161511274969424`, -1.6072328571707892`}, { 1.0157516481123685`, -1.6037352000545608`}, { 1.0146023766521328`, -1.599238291351596}, { 1.0129030528085223`, -1.5941417128770798`}, { 1.0110039892726248`, -1.588945100667442}, { 1.0073574595057453`, -1.5801012416766445`}, { 1.0057073023556207`, -1.5763537153268956`}, { 1.118581738926147, -1.6072328571707892`}, { 1.0057073023556207`, -1.6369127414160698`}}]}, { LineBox[{{2.1185810147723787`, -0.17858142857453213`}, { 1.3399947266986496`, -0.1785814285745322}}], PolygonBox[{{1.3504385518399713`, -0.14890154432925162`}, { 1.3487883946898467`, -0.1522492840025923}, { 1.3451418649229672`, -0.1603438630707852}, { 1.3432428013870696`, -0.16524055845015834`}, { 1.3415434775434592`, -0.17013714115585887`}, { 1.3403942060832235`, -0.17473403237863985`}, { 1.3399947266986496`, -0.1785814285745322}, { 1.3403942060832235`, -0.1820790856907607}, { 1.3415434775434592`, -0.18657599439372563`}, { 1.3432428013870696`, -0.19167257286824171`}, { 1.3451418649229672`, -0.19686918507787954`}, { 1.3487883946898467`, -0.20571304406867708`}, { 1.3504385518399713`, -0.20946057041842595`}, { 1.237564115269445, -0.1785814285745322}, { 1.3504385518399713`, -0.14890154432925162`}}]}, { LineBox[{{1.1175641152694449`, -0.1785814285745322}, { 0.34101204000373664`, -0.1785814285745322}}], PolygonBox[{{0.35145586514505833`, -0.14890154432925162`}, { 0.3498057079949338, -0.1522492840025923}, { 0.34615917822805414`, -0.1603438630707852}, { 0.34426011469215667`, -0.16524055845015834`}, { 0.3425607908485462, -0.17013714115585887`}, { 0.3414115193883105, -0.17473403237863985`}, { 0.34101204000373664`, -0.1785814285745322}, { 0.3414115193883105, -0.1820790856907607}, { 0.3425607908485462, -0.18657599439372563`}, { 0.34426011469215667`, -0.19167257286824171`}, { 0.34615917822805414`, -0.19686918507787954`}, { 0.3498057079949338, -0.20571304406867708`}, { 0.35145586514505833`, -0.20946057041842595`}, { 0.23858142857453205`, -0.1785814285745322}, { 0.35145586514505833`, -0.14890154432925162`}}]}, { LineBox[{{2.1185810147723787`, -0.8929071428726606}, { 1.3399947266986496`, -0.8929071428726607}}], PolygonBox[{{1.3504385518399713`, -0.8632272586273801}, { 1.3487883946898467`, -0.8665749983007208}, { 1.3451418649229672`, -0.8746695773689137}, { 1.3432428013870696`, -0.8795662727482868}, { 1.3415434775434592`, -0.8844628554539874}, { 1.3403942060832235`, -0.8890597466767683}, { 1.3399947266986496`, -0.8929071428726607}, { 1.3403942060832235`, -0.8964047999888892}, { 1.3415434775434592`, -0.9009017086918542}, { 1.3432428013870696`, -0.9059982871663702}, { 1.3451418649229672`, -0.9111948993760081}, { 1.3487883946898467`, -0.9200387583668056}, { 1.3504385518399713`, -0.9237862847165544}, { 1.237564115269445, -0.8929071428726607}, { 1.3504385518399713`, -0.8632272586273801}}]}, { LineBox[{{1.1175641152694449`, -0.8929071428726607}, { 0.34101204000373664`, -0.8929071428726607}}], PolygonBox[{{0.35145586514505833`, -0.8632272586273801}, { 0.3498057079949338, -0.8665749983007208}, { 0.34615917822805414`, -0.8746695773689137}, { 0.34426011469215667`, -0.8795662727482868}, { 0.3425607908485462, -0.8844628554539874}, { 0.3414115193883105, -0.8890597466767683}, { 0.34101204000373664`, -0.8929071428726607}, { 0.3414115193883105, -0.8964047999888892}, { 0.3425607908485462, -0.9009017086918542}, { 0.34426011469215667`, -0.9059982871663702}, { 0.34615917822805414`, -0.9111948993760081}, { 0.3498057079949338, -0.9200387583668056}, { 0.35145586514505833`, -0.9237862847165544}, { 0.23858142857453205`, -0.8929071428726607}, { 0.35145586514505833`, -0.8632272586273801}}]}, { LineBox[{{0.23858142857453205`, -1.9643957143198536`}, { 1.0161511274969424`, -1.9643957143198536`}}], PolygonBox[{{1.0057073023556207`, -1.9940755985651342`}, { 1.0073574595057453`, -1.9907278588917936`}, { 1.0110039892726248`, -1.9826332798236006`}, { 1.0129030528085223`, -1.9777365844442274`}, { 1.0146023766521328`, -1.972840001738527}, { 1.0157516481123685`, -1.9682431105157459`}, { 1.0161511274969424`, -1.9643957143198536`}, { 1.0157516481123685`, -1.9608980572036252`}, { 1.0146023766521328`, -1.9564011485006603`}, { 1.0129030528085223`, -1.9513045700261442`}, { 1.0110039892726248`, -1.9461079578165064`}, { 1.0073574595057453`, -1.9372640988257088`}, { 1.0057073023556207`, -1.93351657247596}, { 1.118581738926147, -1.9643957143198536`}, { 1.0057073023556207`, -1.9940755985651342`}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.17858142857453205, -0.8929071428726607}, 0.06], DiskBox[{0.17858142857453205, -0.1785814285745322}, 0.06], DiskBox[{1.178581738926147, -2.321558571468918}, 0.06], DiskBox[{0.17858142857453205, -0.5357442857235964}, 0.06], DiskBox[{0.17858142857453205, -2.321558571468918}, 0.06], DiskBox[{2.1785810147723788, -0.17858142857453213}, 0.06], DiskBox[{1.178581738926147, -1.2500700000217249}, 0.06], DiskBox[{2.1785810147723788, -0.5357442857235963}, 0.06], DiskBox[{0.17858142857453205, -1.2500700000217249}, 0.06], DiskBox[{2.1785810147723788, -0.8929071428726606}, 0.06], DiskBox[{1.178581738926147, -1.6072328571707892}, 0.06], DiskBox[{1.177564115269445, -0.5357442857235964}, 0.06], DiskBox[{0.17858142857453205, -1.6072328571707892}, 0.06], DiskBox[{1.177564115269445, -0.1785814285745322}, 0.06], DiskBox[{1.178581738926147, -1.9643957143198536}, 0.06], DiskBox[{1.177564115269445, -0.8929071428726607}, 0.06], DiskBox[{0.17858142857453205, -1.9643957143198536}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {420}}, PlotLabel->FormBox["\"NewestEdge\"", TraditionalForm]], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{0.23858142857453205`, -2.321558571468918}, { 1.0161511274969424`, -2.321558571468918}}], PolygonBox[{{1.0057073023556207`, -2.3512384557141988`}, { 1.0073574595057453`, -2.3478907160408578`}, { 1.0110039892726248`, -2.339796136972665}, { 1.0129030528085223`, -2.3348994415932918`}, { 1.0146023766521328`, -2.330002858887591}, { 1.0157516481123685`, -2.3254059676648104`}, { 1.0161511274969424`, -2.321558571468918}, { 1.0157516481123685`, -2.3180609143526896`}, { 1.0146023766521328`, -2.3135640056497246`}, { 1.0129030528085223`, -2.3084674271752084`}, { 1.0110039892726248`, -2.3032708149655705`}, { 1.0073574595057453`, -2.294426955974773}, { 1.0057073023556207`, -2.2906794296250244`}, { 1.118581738926147, -2.321558571468918}, { 1.0057073023556207`, -2.3512384557141988`}}]}, { LineBox[{{0.23858142857453205`, -1.2500700000217249`}, { 1.0161511274969424`, -1.2500700000217249`}}], PolygonBox[{{1.0057073023556207`, -1.2797498842670054`}, { 1.0073574595057453`, -1.2764021445936649`}, { 1.0110039892726248`, -1.2683075655254719`}, { 1.0129030528085223`, -1.2634108701460987`}, { 1.0146023766521328`, -1.2585142874403983`}, { 1.0157516481123685`, -1.253917396217617}, { 1.0161511274969424`, -1.2500700000217249`}, { 1.0157516481123685`, -1.2465723429054965`}, { 1.0146023766521328`, -1.2420754342025315`}, { 1.0129030528085223`, -1.2369788557280155`}, { 1.0110039892726248`, -1.2317822435183776`}, { 1.0073574595057453`, -1.22293838452758}, { 1.0057073023556207`, -1.2191908581778312`}, { 1.118581738926147, -1.2500700000217249`}, { 1.0057073023556207`, -1.2797498842670054`}}]}, { LineBox[{{2.1185810147723787`, -0.17858142857453213`}, { 1.3399947266986496`, -0.1785814285745322}}], PolygonBox[{{1.3504385518399713`, -0.14890154432925162`}, { 1.3487883946898467`, -0.1522492840025923}, { 1.3451418649229672`, -0.1603438630707852}, { 1.3432428013870696`, -0.16524055845015834`}, { 1.3415434775434592`, -0.17013714115585887`}, { 1.3403942060832235`, -0.17473403237863985`}, { 1.3399947266986496`, -0.1785814285745322}, { 1.3403942060832235`, -0.1820790856907607}, { 1.3415434775434592`, -0.18657599439372563`}, { 1.3432428013870696`, -0.19167257286824171`}, { 1.3451418649229672`, -0.19686918507787954`}, { 1.3487883946898467`, -0.20571304406867708`}, { 1.3504385518399713`, -0.20946057041842595`}, { 1.237564115269445, -0.1785814285745322}, { 1.3504385518399713`, -0.14890154432925162`}}]}, { LineBox[{{1.1175641152694449`, -0.1785814285745322}, { 0.34101204000373664`, -0.1785814285745322}}], PolygonBox[{{0.35145586514505833`, -0.14890154432925162`}, { 0.3498057079949338, -0.1522492840025923}, { 0.34615917822805414`, -0.1603438630707852}, { 0.34426011469215667`, -0.16524055845015834`}, { 0.3425607908485462, -0.17013714115585887`}, { 0.3414115193883105, -0.17473403237863985`}, { 0.34101204000373664`, -0.1785814285745322}, { 0.3414115193883105, -0.1820790856907607}, { 0.3425607908485462, -0.18657599439372563`}, { 0.34426011469215667`, -0.19167257286824171`}, { 0.34615917822805414`, -0.19686918507787954`}, { 0.3498057079949338, -0.20571304406867708`}, { 0.35145586514505833`, -0.20946057041842595`}, { 0.23858142857453205`, -0.1785814285745322}, { 0.35145586514505833`, -0.14890154432925162`}}]}, { LineBox[{{2.1185810147723787`, -0.5357442857235963}, { 1.3399947266986496`, -0.5357442857235964}}], PolygonBox[{{1.3504385518399713`, -0.5060644014783159}, { 1.3487883946898467`, -0.5094121411516566}, { 1.3451418649229672`, -0.5175067202198494}, { 1.3432428013870696`, -0.5224034155992225}, { 1.3415434775434592`, -0.5272999983049231}, { 1.3403942060832235`, -0.5318968895277041}, { 1.3399947266986496`, -0.5357442857235964}, { 1.3403942060832235`, -0.539241942839825}, { 1.3415434775434592`, -0.5437388515427899}, { 1.3432428013870696`, -0.548835430017306}, { 1.3451418649229672`, -0.5540320422269438}, { 1.3487883946898467`, -0.5628759012177413}, { 1.3504385518399713`, -0.5666234275674902}, { 1.237564115269445, -0.5357442857235964}, { 1.3504385518399713`, -0.5060644014783159}}]}, { LineBox[{{1.1175641152694449`, -0.5357442857235964}, { 0.34101204000373664`, -0.5357442857235964}}], PolygonBox[{{0.35145586514505833`, -0.5060644014783159}, { 0.3498057079949338, -0.5094121411516566}, { 0.34615917822805414`, -0.5175067202198494}, { 0.34426011469215667`, -0.5224034155992225}, { 0.3425607908485462, -0.5272999983049231}, { 0.3414115193883105, -0.5318968895277041}, { 0.34101204000373664`, -0.5357442857235964}, { 0.3414115193883105, -0.539241942839825}, { 0.3425607908485462, -0.5437388515427899}, { 0.34426011469215667`, -0.548835430017306}, { 0.34615917822805414`, -0.5540320422269438}, { 0.3498057079949338, -0.5628759012177413}, { 0.35145586514505833`, -0.5666234275674902}, { 0.23858142857453205`, -0.5357442857235964}, { 0.35145586514505833`, -0.5060644014783159}}]}, { LineBox[{{0.23858142857453205`, -1.6072328571707892`}, { 1.0161511274969424`, -1.6072328571707892`}}], PolygonBox[{{1.0057073023556207`, -1.6369127414160698`}, { 1.0073574595057453`, -1.6335650017427292`}, { 1.0110039892726248`, -1.6254704226745362`}, { 1.0129030528085223`, -1.620573727295163}, { 1.0146023766521328`, -1.6156771445894627`}, { 1.0157516481123685`, -1.6110802533666815`}, { 1.0161511274969424`, -1.6072328571707892`}, { 1.0157516481123685`, -1.6037352000545608`}, { 1.0146023766521328`, -1.599238291351596}, { 1.0129030528085223`, -1.5941417128770798`}, { 1.0110039892726248`, -1.588945100667442}, { 1.0073574595057453`, -1.5801012416766445`}, { 1.0057073023556207`, -1.5763537153268956`}, { 1.118581738926147, -1.6072328571707892`}, { 1.0057073023556207`, -1.6369127414160698`}}]}, { LineBox[{{2.1185810147723787`, -0.8929071428726606}, { 1.3399947266986496`, -0.8929071428726607}}], PolygonBox[{{1.3504385518399713`, -0.8632272586273801}, { 1.3487883946898467`, -0.8665749983007208}, { 1.3451418649229672`, -0.8746695773689137}, { 1.3432428013870696`, -0.8795662727482868}, { 1.3415434775434592`, -0.8844628554539874}, { 1.3403942060832235`, -0.8890597466767683}, { 1.3399947266986496`, -0.8929071428726607}, { 1.3403942060832235`, -0.8964047999888892}, { 1.3415434775434592`, -0.9009017086918542}, { 1.3432428013870696`, -0.9059982871663702}, { 1.3451418649229672`, -0.9111948993760081}, { 1.3487883946898467`, -0.9200387583668056}, { 1.3504385518399713`, -0.9237862847165544}, { 1.237564115269445, -0.8929071428726607}, { 1.3504385518399713`, -0.8632272586273801}}]}, { LineBox[{{1.1175641152694449`, -0.8929071428726607}, { 0.34101204000373664`, -0.8929071428726607}}], PolygonBox[{{0.35145586514505833`, -0.8632272586273801}, { 0.3498057079949338, -0.8665749983007208}, { 0.34615917822805414`, -0.8746695773689137}, { 0.34426011469215667`, -0.8795662727482868}, { 0.3425607908485462, -0.8844628554539874}, { 0.3414115193883105, -0.8890597466767683}, { 0.34101204000373664`, -0.8929071428726607}, { 0.3414115193883105, -0.8964047999888892}, { 0.3425607908485462, -0.9009017086918542}, { 0.34426011469215667`, -0.9059982871663702}, { 0.34615917822805414`, -0.9111948993760081}, { 0.3498057079949338, -0.9200387583668056}, { 0.35145586514505833`, -0.9237862847165544}, { 0.23858142857453205`, -0.8929071428726607}, { 0.35145586514505833`, -0.8632272586273801}}]}, { LineBox[{{0.23858142857453205`, -1.9643957143198536`}, { 1.0161511274969424`, -1.9643957143198536`}}], PolygonBox[{{1.0057073023556207`, -1.9940755985651342`}, { 1.0073574595057453`, -1.9907278588917936`}, { 1.0110039892726248`, -1.9826332798236006`}, { 1.0129030528085223`, -1.9777365844442274`}, { 1.0146023766521328`, -1.972840001738527}, { 1.0157516481123685`, -1.9682431105157459`}, { 1.0161511274969424`, -1.9643957143198536`}, { 1.0157516481123685`, -1.9608980572036252`}, { 1.0146023766521328`, -1.9564011485006603`}, { 1.0129030528085223`, -1.9513045700261442`}, { 1.0110039892726248`, -1.9461079578165064`}, { 1.0073574595057453`, -1.9372640988257088`}, { 1.0057073023556207`, -1.93351657247596}, { 1.118581738926147, -1.9643957143198536`}, { 1.0057073023556207`, -1.9940755985651342`}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0.17858142857453205, -0.8929071428726607}, 0.06], DiskBox[{0.17858142857453205, -0.1785814285745322}, 0.06], DiskBox[{1.178581738926147, -2.321558571468918}, 0.06], DiskBox[{0.17858142857453205, -0.5357442857235964}, 0.06], DiskBox[{0.17858142857453205, -2.321558571468918}, 0.06], DiskBox[{2.1785810147723788, -0.17858142857453213}, 0.06], DiskBox[{1.178581738926147, -1.2500700000217249}, 0.06], DiskBox[{2.1785810147723788, -0.5357442857235963}, 0.06], DiskBox[{0.17858142857453205, -1.2500700000217249}, 0.06], DiskBox[{2.1785810147723788, -0.8929071428726606}, 0.06], DiskBox[{1.178581738926147, -1.6072328571707892}, 0.06], DiskBox[{1.177564115269445, -0.1785814285745322}, 0.06], DiskBox[{1.178581738926147, -1.9643957143198536}, 0.06], DiskBox[{1.177564115269445, -0.5357442857235964}, 0.06], DiskBox[{0.17858142857453205, -1.6072328571707892}, 0.06], DiskBox[{1.177564115269445, -0.8929071428726607}, 0.06], DiskBox[{0.17858142857453205, -1.9643957143198536}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {420}}, PlotLabel->FormBox["\"RuleOrdering\"", TraditionalForm]], ",", GraphicsBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {LineBox[{{2.2836981180853466`, -0.3125100068982341}, { 1.4568280764253974`, -0.31251000679172947`}}], PolygonBox[{{1.4687552503608583`, -0.27861465361968357`}, { 1.4668707194459882`, -0.2824378767029048}, { 1.4627062687587737`, -0.29168213837267837`}, { 1.460537478990669, -0.29727431716580827`}, { 1.458596798178681, -0.3028663672821205}, { 1.457284294338196, -0.3081161603811775}, { 1.4568280764253974`, -0.31251000679172947`}, { 1.4572842943371156`, -0.3165044402691866}, { 1.4585967981762629`, -0.3216400502136764}, { 1.4605374789867809`, -0.3274605017339847}, { 1.462706268753401, -0.3333951948987036}, { 1.4668707194381239`, -0.3434951576023664}, { 1.4687552503519503`, -0.3477749495351616}, { 1.3398491245707949`, -0.3125100067766621}, { 1.4687552503608583`, -0.27861465361968357`}}]}, { LineBox[{{1.2198491245707948`, -0.3125100067389886}, { 0.489488958092183, -0.31251000637447574`}}], PolygonBox[{{0.501416132040195, -0.27861465320684625`}, { 0.49953160112390926`, -0.28243787628936967`}, { 0.4953671504332717, -0.29168213795760123`}, { 0.49319836066309636`, -0.29727431674992805`}, { 0.4912576798490376, -0.3028663668655217}, { 0.48994517600660886`, -0.3081161599640927}, { 0.489488958092183, -0.31251000637447574`}, { 0.4899451760024224, -0.3165044398521018}, { 0.49125767983966795`, -0.3216400497970776}, { 0.49319836064803085`, -0.3274605013181045}, { 0.49536715041245327`, -0.3333951944836265}, { 0.49953160109343636`, -0.3434951571888313}, { 0.501416132005678, -0.34777494912232426`}, { 0.3725100062375806, -0.3125100063160931}, { 0.501416132040195, -0.27861465320684625`}}]}, { LineBox[{{0.3725100062375806, -0.9375300193811237}, { 1.1351323812152834`, -0.9375300193811237}}], PolygonBox[{{1.123205207284188, -0.9714253725547058}, { 1.1250897381985656`, -0.9676021494712419}, { 1.1292541888845895`, -0.9583578878009319}, { 1.1314229786519738`, -0.9527657090075227}, { 1.1333636594632417`, -0.9471736588909604}, { 1.1346761633030502`, -0.9419238657917344}, { 1.1351323812152834`, -0.9375300193811237}, { 1.1346761633030502`, -0.9335355859037253}, { 1.1333636594632417`, -0.9283999759594046}, { 1.1314229786519738`, -0.9225795244393462}, { 1.1292541888845895`, -0.9166448312749067}, { 1.1250897381985656`, -0.9065448685717803}, { 1.123205207284188, -0.9022650766392278}, { 1.2521113330698856`, -0.9375300193811237}, { 1.123205207284188, -0.9714253725547058}}]}, { LineBox[{{1.3721113330698858`, -0.9375300193811237}, { 2.1367691805828377`, -0.9375300193811236}}], PolygonBox[{{2.1248420066517424`, -0.9714253725547057}, { 2.12672653756612, -0.9676021494712418}, { 2.130890988252144, -0.9583578878009318}, { 2.133059778019528, -0.9527657090075226}, { 2.135000458830796, -0.9471736588909603}, { 2.1363129626706048`, -0.9419238657917343}, { 2.1367691805828377`, -0.9375300193811236}, { 2.1363129626706048`, -0.9335355859037252}, { 2.135000458830796, -0.9283999759594045}, { 2.133059778019528, -0.9225795244393461}, { 2.130890988252144, -0.9166448312749066}, { 2.12672653756612, -0.9065448685717802}, { 2.1248420066517424`, -0.9022650766392277}, { 2.25374813243744, -0.9375300193811236}, { 2.1248420066517424`, -0.9714253725547057}}]}, { LineBox[{{3.251271880037721, -0.3125100062790275}, { 2.520677069939949, -0.31251000678370866`}}], PolygonBox[{{2.53260424384763, -0.2786146536018874}, { 2.5307197129358934`, -0.2824378766866532}, { 2.5265552622562555`, -0.29168213835983986`}, { 2.524386472492734, -0.2972743171547473}, { 2.522445791685329, -0.3028663672726501}, { 2.521133287849147, -0.3081161603727828}, { 2.520677069939949, -0.31251000678370866`}, { 2.5211332878549415`, -0.3165044402607919}, { 2.5224457916982974`, -0.321640050204206}, { 2.5243864725135863`, -0.32746050172292374`}, { 2.5265552622850698`, -0.3333951948858651}, { 2.5307197129780707`, -0.34349515758611476`}, { 2.532604243895405, -0.34777494951736543`}, { 2.4036981180853467`, -0.3125100068645155}, { 2.53260424384763, -0.2786146536018874}}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{2.3436981180853467, -0.31251000690596237}, 0.06], DiskBox[{0.31251000623758063, -0.9375300193811237}, 0.06], DiskBox[{0.31251000623758063, -0.3125100062861479}, 0.06], DiskBox[{1.2798491245707948, -0.3125100067689338}, 0.06], DiskBox[{2.31374813243744, -0.9375300193811236}, 0.06], DiskBox[{1.3121113330698857, -0.9375300193811237}, 0.06], DiskBox[{3.311271880037721, -0.3125100062375806}, 0.06]}}, {}}, ImageSizeRaw->{{360}, {219.03588386420162`}}, 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 -> Automatic]], Selectable -> False], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["3552", "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 -> Automatic]][{{{1, 2}, {3, 2}} -> {{2, 4}, {4, 1}, {5, 3}}}, {{1, 1}, { 1, 1}}, 7], 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.644], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.644], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {0.2, 7.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{11.936274509803921`, 38.98856209150326}, {-56.75000000000001, 39.13438168895815}}], "DelayedMouseEffectStyle"], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.6, 0}, {0.8, 3.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{91.59313725490195, 118.6454248366013}, {-2.244639034881061, 39.13438168895815}}], "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[{1., 0}, {1.2, 7.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{144.69771241830063`, 171.74999999999997`}, {-56.75000000000001, 39.13438168895815}}], "DelayedMouseEffectStyle"], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-0.024, 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., 1.2}, {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[{5, 3, 9, 7, 6, 12, 2, 8, 14, 4, 15, 11, 10, 16, 1, 17, 13}, { Null, SparseArray[ Automatic, {17, 17}, 0, { 1, {{0, 1, 2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 14, 15, 17, 18, 19, 20}, {{ 2}, {1}, {4}, {3}, {6}, {5}, {7}, {6}, {9}, {8}, {10}, {9}, {12}, { 11}, {14}, {13}, {15}, {14}, {17}, {16}}}, Pattern}]}]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{1.178581423569644, -2.3215585064053705`}, { 0.1785814235696439, -2.3215585064053705`}, { 1.178581423569644, -1.6072328121267951`}, { 0.1785814235696439, -1.6072328121267951`}, { 0.1785814235696439, -0.5357442707089317}, { 1.1788869364469947`, -0.5357442707089317}, { 2.178581330202997, -0.5357442707089317}, { 0.1785814235696439, -0.1785814235696439}, { 1.1788869364469947`, -0.1785814235696439}, { 2.178581330202997, -0.1785814235696439}, { 1.178581423569644, -1.2500699649875073`}, { 0.1785814235696439, -1.2500699649875073`}, { 0.1785814235696439, -0.8929071178482195}, { 1.1788869364469947`, -0.8929071178482195}, { 2.178581330202997, -0.8929071178482195}, { 1.178581423569644, -1.964395659266083}, { 0.1785814235696439, -1.964395659266083}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[{{1, 2}, {3, 4}, {5, 6}, {6, 7}, {8, 9}, {9, 10}, {11, 12}, { 13, 14}, {14, 15}, {16, 17}}]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.023761099978690303], DiskBox[2, 0.023761099978690303], DiskBox[3, 0.023761099978690303], DiskBox[4, 0.023761099978690303], DiskBox[5, 0.023761099978690303], DiskBox[6, 0.023761099978690303], DiskBox[7, 0.023761099978690303], DiskBox[8, 0.023761099978690303], DiskBox[9, 0.023761099978690303], DiskBox[10, 0.023761099978690303], DiskBox[11, 0.023761099978690303], DiskBox[12, 0.023761099978690303], DiskBox[13, 0.023761099978690303], DiskBox[14, 0.023761099978690303], DiskBox[15, 0.023761099978690303], DiskBox[16, 0.023761099978690303], DiskBox[17, 0.023761099978690303]}}]], 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->{{Automatic, 125}, {Automatic, 19}}, 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->"72fb06f5-c805-456e-af9f-4099d59f4c41"], Cell[CellGroupData[{ Cell[639, 26, 87, 1, 70, "Text",ExpressionUUID->"80d12202-8814-4c04-9c38-8bb9a58a1ac9", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[CellGroupData[{ Cell[751, 31, 8446, 214, 70, "Input",ExpressionUUID->"aadd94e7-d96b-43af-b243-4da1fb6c8b1c", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[9200, 247, 40763, 717, 70, "Output",ExpressionUUID->"04a281bd-40d8-4ad6-afc4-79ace7c486c1"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[50012, 970, 96, 1, 70, "Text",ExpressionUUID->"69204122-a62c-4f6f-8ca3-471c70f8e02c", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[CellGroupData[{ Cell[50133, 975, 8525, 216, 70, "Input",ExpressionUUID->"786fa2f5-9355-4ef4-910a-01d5a3e09550", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[58661, 1193, 41235, 725, 70, "Output",ExpressionUUID->"aa27fd7d-749f-4855-afd7-b061ed0d541a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[99945, 1924, 94, 1, 70, "Text",ExpressionUUID->"59cf1408-f80e-45ff-bbb7-5d66e9980945", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[100042, 1927, 9101, 224, 70, "Input",ExpressionUUID->"9e2d63a9-95d0-4358-ac79-256061e1a3b1", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[109168, 2155, 1202, 30, 70, "Input",ExpressionUUID->"5ff19868-a11d-415d-bb2c-e3cb4f9721e4", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[110373, 2187, 13239, 283, 70, "Output",ExpressionUUID->"1b45a815-f27c-4484-bc84-44fbeefee4c3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[123661, 2476, 160, 6, 70, "Text",ExpressionUUID->"058f7949-620f-49a1-aa63-43d7c8f14f3c", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[123846, 2486, 10049, 196, 70, "Input",ExpressionUUID->"6a88d2b0-68b3-4554-bd86-7e9b172983e0", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[133898, 2684, 10453, 191, 70, "Output",ExpressionUUID->"3267d718-60e8-46e6-ad28-14fd7f4086fe"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[144412, 2882, 31, 0, 70, "Section",ExpressionUUID->"c26de1a6-38fd-46c1-b48f-f8b4076cc2aa"], Cell[CellGroupData[{ Cell[144468, 2886, 84, 1, 70, "Text",ExpressionUUID->"0cfc3567-7b26-4682-96da-8203caebae20", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[CellGroupData[{ Cell[144577, 2891, 10826, 218, 70, "Input",ExpressionUUID->"bd80266e-544c-49b5-b772-8dc26c0a94e4", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[155406, 3111, 3032, 60, 70, "Output",ExpressionUUID->"8de16bbe-5f1d-4c31-82b1-1ce3150b1919"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[158487, 3177, 89, 1, 70, "Text",ExpressionUUID->"32ea432d-1e16-4d1e-bec6-fedbc99c0116", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[CellGroupData[{ Cell[158601, 3182, 10053, 196, 70, "Input",ExpressionUUID->"0a659a89-44db-4512-920c-5695c2d08dd2", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[168657, 3380, 5727, 102, 70, "Output",ExpressionUUID->"5490032e-5e98-465d-bb7f-f06ef68e763d"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[174433, 3488, 100, 1, 70, "Text",ExpressionUUID->"3d1d9f23-2790-4ea1-aa4a-b4599bf0830c", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[174558, 3493, 11390, 226, 70, "Input",ExpressionUUID->"20187d43-882d-4644-b726-a219f01f09f3", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[185951, 3721, 973, 23, 70, "Output",ExpressionUUID->"31f37bb9-5a03-4ceb-865b-c6761ba8af4d"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[186985, 3751, 41, 0, 70, "Section",ExpressionUUID->"eb9a81a2-d7fc-431f-b8ab-51652c1082e2"], Cell[187029, 3753, 44, 0, 70, "Text",ExpressionUUID->"3890a9c9-8928-4ad3-a56a-316c64479f61"], Cell[CellGroupData[{ Cell[187098, 3757, 11689, 233, 70, "Input",ExpressionUUID->"53673b64-5d3b-4341-aeb4-bde4afa54248", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[198790, 3992, 950, 23, 70, "Output",ExpressionUUID->"9090471d-5235-45c9-a0d3-f2e897d28ab5"] }, Open ]], Cell[CellGroupData[{ Cell[199777, 4020, 98, 1, 70, "Text",ExpressionUUID->"ece770b6-728f-4b87-b5a3-28586e61dedc", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[CellGroupData[{ Cell[199900, 4025, 11520, 228, 70, "Input",ExpressionUUID->"63d8a7e6-bfbd-4800-9ad6-690cc81a1822", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[211423, 4255, 2209, 64, 70, "Output",ExpressionUUID->"a8b491b1-5582-4ecf-a6ba-f89ff8a051e6"] }, Open ]] }, Open ]], Cell[213659, 4323, 76, 0, 70, "Text",ExpressionUUID->"e87b3de8-20f5-4b83-b33f-c92d8e1106f4"], Cell[CellGroupData[{ Cell[213760, 4327, 27327, 600, 70, "Input",ExpressionUUID->"00dacaa4-5afe-49b5-8333-bc43f2709bff", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[CellGroupData[{ Cell[241112, 4931, 1036, 26, 70, "Input",ExpressionUUID->"6a5343df-ffe6-4731-9a5e-73f03ea31847", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[242151, 4959, 17223, 360, 70, "Output",ExpressionUUID->"e67f543b-6d50-410c-adc8-e279fbef1041"] }, Open ]], Cell[259389, 5322, 105, 1, 70, "Text",ExpressionUUID->"1cd9380c-791a-4578-ba1e-9302b8288327", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[CellGroupData[{ Cell[259519, 5327, 9059, 218, 70, "Input",ExpressionUUID->"f1f601b1-f91d-4cc3-9c14-3574f9c471ab", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[268581, 5547, 9209, 207, 70, "Output",ExpressionUUID->"f6d2dd54-5750-48b4-bb3f-0fd366dacf01"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[277839, 5760, 125, 1, 70, "Text",ExpressionUUID->"ee85746e-aa20-441a-9ed7-841cae86deca", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[CellGroupData[{ Cell[277989, 5765, 18049, 393, 70, "Input",ExpressionUUID->"3d6ef935-5cbf-46e8-9b9c-4769cdbb88da", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[296041, 6160, 4725, 98, 70, "Output",ExpressionUUID->"1359660a-921d-4d30-a259-bd7aad212cd1"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[300815, 6264, 87, 1, 70, "Text",ExpressionUUID->"61c71cb2-b9ee-437d-a7ec-64c9cdf5c55b", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[300905, 6267, 19013, 403, 70, "Input",ExpressionUUID->"a984f095-ac7d-4341-b177-ec40fa8b12ad", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[319943, 6674, 1206, 31, 70, "Input",ExpressionUUID->"49488924-b80b-4df0-9e0e-aa8e3f8a49cb", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[321152, 6707, 1011, 24, 70, "Output",ExpressionUUID->"524cf965-fe19-4dc5-97e0-d771d40ea2a8"] }, Open ]], Cell[322178, 6734, 110, 1, 70, "Text",ExpressionUUID->"f7c2a2da-9254-4bb1-b0aa-9327c7b84ca3", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[CellGroupData[{ Cell[322313, 6739, 1073, 27, 70, "Input",ExpressionUUID->"6c052073-c450-40d0-a8bc-834dd0f4adfa", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[323389, 6768, 2913, 85, 70, "Output",ExpressionUUID->"6d678259-f805-429f-ac1f-e32c3750ef81"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[326363, 6860, 39, 0, 70, "Section",ExpressionUUID->"dbf6b404-2b01-4808-8fbd-fe25d3a880f9"], Cell[326405, 6862, 46, 0, 70, "Text",ExpressionUUID->"92e0bf99-6639-4b8b-93fd-f51b5427b693"], Cell[CellGroupData[{ Cell[326476, 6866, 11235, 224, 70, "Input",ExpressionUUID->"93b08898-71d5-4d77-928c-3df6938718f4"], Cell[337714, 7092, 2355, 54, 70, "Output",ExpressionUUID->"66f9fc33-a309-4b13-80f6-e496dea2594c"] }, Open ]], Cell[340084, 7149, 53, 0, 70, "Text",ExpressionUUID->"251b2d80-fd96-4521-b498-da9a95044117"], Cell[CellGroupData[{ Cell[340162, 7153, 19775, 425, 70, "Input",ExpressionUUID->"e3c78490-460e-4ec1-8d93-8dff6be8ea41"], Cell[359940, 7580, 5909, 148, 70, "Output",ExpressionUUID->"3736892f-cb3c-4b33-90c4-244acc383f3f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[365898, 7734, 41, 0, 70, "Section",ExpressionUUID->"ae049bbd-a916-4ed6-a489-b8447d7603cb"], Cell[365942, 7736, 34, 0, 70, "Text",ExpressionUUID->"e28e18c8-aabc-4252-8904-6a0c76130992"], Cell[CellGroupData[{ Cell[366001, 7740, 8547, 217, 70, "Input",ExpressionUUID->"91d28d3f-92e4-44c4-9591-6d316905197f"], Cell[374551, 7959, 5184, 96, 70, "Output",ExpressionUUID->"b253853e-368d-4aa5-ad86-99fdc8b9c803"] }, Open ]], Cell[379750, 8058, 57, 0, 70, "Text",ExpressionUUID->"a9ca253e-b0d1-4f26-bee5-cdeea23f939f"], Cell[CellGroupData[{ Cell[379832, 8062, 9755, 238, 70, "Input",ExpressionUUID->"6dee974d-30e1-42db-bb59-e779bf3d0db5"], Cell[389590, 8302, 59870, 1060, 70, "Output",ExpressionUUID->"bca26cb2-5e5e-40ae-879b-638a48812550"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[449509, 9368, 43, 0, 70, "Section",ExpressionUUID->"75759562-4c57-4d77-bd3f-5f0090815816"], Cell[449555, 9370, 18384, 395, 70, "Input",ExpressionUUID->"a2232ca2-0ab6-4148-b186-22e3fcd4105b"], Cell[CellGroupData[{ Cell[467964, 9769, 1021, 26, 70, "Input",ExpressionUUID->"95d1d2ca-0d79-4b5e-abed-22f8f22688ad"], Cell[468988, 9797, 2889, 85, 70, "Output",ExpressionUUID->"2e02f065-f066-4cf3-b29a-23916dd761fa"] }, Open ]], Cell[471892, 9885, 33, 0, 70, "Text",ExpressionUUID->"dcf019df-e295-44e2-b220-4c32d35153c7"], Cell[CellGroupData[{ Cell[471950, 9889, 151, 4, 70, "Input",ExpressionUUID->"834d8cef-07fc-4780-ae1d-16ea61258164"], Cell[472104, 9895, 42, 1, 70, "Output",ExpressionUUID->"ec4f07ba-6991-41e9-8a79-9e6a1a0ae251"] }, Open ]], Cell[CellGroupData[{ Cell[472183, 9901, 188, 4, 70, "Input",ExpressionUUID->"3f54953a-4899-43dc-8f37-0e4136f939da"], Cell[472374, 9907, 661, 19, 70, "Output",ExpressionUUID->"c7568774-1c9a-4f11-8b3c-bc5df11a968d"] }, Open ]], Cell[CellGroupData[{ Cell[473072, 9931, 115, 2, 70, "Input",ExpressionUUID->"a17d7c3d-e087-4bd6-ae11-45855f5082a5"], Cell[473190, 9935, 2553, 49, 70, "Output",ExpressionUUID->"e4ef2c15-aa13-419e-99c6-dcf5809d85a7"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)