(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 61377, 1367] NotebookOptionsPosition[ 57987, 1280] NotebookOutlinePosition[ 59742, 1332] CellTagsIndexPosition[ 59699, 1329] WindowTitle->BakersMap | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(4)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Take an image:", "Text", TaggingRules->{}, CellChangeTimes->{3.759421572682562*^9}, CellID->993746465], Cell[BoxData[ RowBox[{ RowBox[{"pic", "=", RowBox[{"Map", "[", RowBox[{"First", ",", RowBox[{"Rest", "[", RowBox[{"ImageData", "@", RowBox[{"Rasterize", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"A", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", "Italic"}], "]"}], ",", RowBox[{"RasterSize", "\[Rule]", RowBox[{"{", RowBox[{"100", ",", "100"}], "}"}]}]}], "]"}]}], "]"}], ",", RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.759405679034747*^9, 3.759405686652882*^9}, { 3.759405723269346*^9, 3.759405764860077*^9}, {3.7594058766167107`*^9, 3.759405888232295*^9}, {3.759406610515183*^9, 3.7594066769274673`*^9}, { 3.759406869703274*^9, 3.75940687180976*^9}, {3.759411359375486*^9, 3.7594113618972187`*^9}, 3.759411984904508*^9, {3.759421620598587*^9, 3.759421620923843*^9}, {3.759422010006077*^9, 3.759422021266775*^9}, 3.759423159376854*^9, {3.759423732862255*^9, 3.7594237350286217`*^9}}, CellLabel->"In[21]:=", CellID->226568401], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", "pic", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.759405708782494*^9, 3.7594057121186857`*^9}, { 3.759406840295389*^9, 3.759406840711582*^9}, 3.759421056862637*^9}, CellLabel->"In[22]:=", CellID->549967292], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzt3c2KFDEQwPHBJxhFl9GL4zN48zLv4Asofpy9+CAjyiKoy569efDiRQQR RJBVUVdFVFYUPKlPoMkQpWZoKkmnu6u7/z+Q4EUnkOpOUpX0qQtXzl4+NJlM Lv79c2kCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIMaW922x+tvP1tvb t5wPizK9mUzmJ5y7nfUntT1/zvlUrP8o68We87mz8bH/1vlefHyc8X50Pv61 tqn+o6zw3L257TxZ/P7lfCk+Hm5cd14tpoede4v51FkWHx/h3/3XrvWvredC eD/MjjtPN/rdVP/RjvlJ5+Hacy59nIRx0c6vjre85jwqHhchDpv75bDoqvd1 cPPrpbdX7P3Y/C+GZbFxUnr93bS66xa5P4CxCvNmbd4l48g+Gc/EB+qJ3U/d 3XGemx83R7yXxAeKil3n+tfOdNfs+JHrauIDZWnPX+vr9bBft/pbenzMjjn3 zfYPNsg42BxHMo7skO+39PhYrV+emesXbAnrd20/aObnIw/MjKe69SkhD9jO r0XfafMVq/UVuXVpM2/fXH9gm8ybbY6rnTvORzPjKjc++pbvgS1aXZeVfeDU OoHQEh+oI3b92/U+kJwnxceHfO8AeY56j82OM+IDFvh03PYbdV0S1vkhrppq w/+j7U9XtVb3G9BvufN9q63Ven70U9/OxWotdSZogsyvdT/Oc1tZjwaUpdWZ h33isB8W5jOl2rp1WNSZoA1anq7peo7cc8XUmaANMg/S/nw/d9+AOhO0SebV N8djU+cUyaOjT7S8ROnndm6ekPhAl7S6eZmfz/f+nZccH+TR0aXY/aW653lz z6MTH7BAG7+yXjhd7nl06kxgiXZfaO69bXXva6DOBBbE1s3LeZmubt0LdSaw RLtnKKzrY++Frhsf1JnAIq1uPvaeIRlH1JlgWE57B9XPd3EvdbXsPDp1JjAs dn6k3TOUe1+DzJ8ANmn7UNp+bO691eTR0SdaPrxqPFNngjHR5kvr62ptvV/V kkdHH8m8nZ6/0O5bqWqJD/SZfE9sju+w/0WdCcZM3m9aXceV+/016kwwBLHn aVPjhDoTDIHMg6Tny6vaUudRAAvqfodwvaXOBEOk1c3HttSZYIhiv4OltdSZ YMhiv89b1ZJHxxhs+fu4XifHh7XvYwFN0r6Dtd6SR8eYpH4HmvjAGMXWnaSe 6wWGJLb+nToTjJl2Dpc6E4yZVjdPnQlQ/R0s6kyA/8K9jSE/yPoDAAAAAAAA AAAAAAAAAAAAAAAAAAAAGL4/fIZwhA== "], {{0, 0}, {100, 99}}, {0, 1.}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.759405712642288*^9, 3.75940572702195*^9}, { 3.7594057604380417`*^9, 3.7594057718599577`*^9}, 3.759406841189617*^9, 3.759406873456417*^9, 3.759411986523704*^9, 3.759419382719634*^9, 3.759421415474905*^9, 3.7594216228352833`*^9, 3.759422023182537*^9, 3.759423162032112*^9, 3.759423774682232*^9, 3.760446787263517*^9}, CellLabel->"Out[22]=", CellID->81435706] }, Open ]], Cell[TextData[{ "Apply ", Cell[BoxData[ StyleBox["BakersMap", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for two steps:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.75934808617546*^9, 3.759348088692178*^9}, { 3.7593525525784693`*^9, 3.759352560014524*^9}, {3.759404645254981*^9, 3.7594046497355623`*^9}, 3.759421594710638*^9, {3.760446907609173*^9, 3.760446909940292*^9}, {3.760984448764077*^9, 3.760984449732876*^9}, 3.8541121276951113`*^9, {3.8541122136602707`*^9, 3.8541122138767776`*^9}}, CellID->76092401], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", 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["BakersMap", "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["BakersMap", "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/7b2698c8-4a78-4b9f-ab06-982446bc5ec1/"}, "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], "BakersMap"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["BakersMap"], BoxID -> "BakersMap", Selectable->False], "[", RowBox[{"pic", ",", "2.", ",", "2"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.759419968297381*^9, 3.759420005944174*^9}, { 3.759421062805421*^9, 3.759421063249319*^9}}, CellLabel->"In[66]:=", CellID->653848317], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzt3cGq1EgUBuDGJ1AZ5epGfQZ3s8k7zAsoims38yBXFBHUy13PzoUbNyKI IIKow8zcGREVRcFVZp5gbqU8HU6lkqrkxq7zp/8PpGm5gXNSlU5SnXP6wpXr v1w7tlqtrn7/R0REREREREREZNHpxpfKv6s7r/fuOm+r+Nbdvw9fL19y3vds P7dUPFO3S20/t/w4zp91fsuM324eeX9fKg8xdT6XjjuUH8du45WR/b9a/dr4 PDGONv5bN53fC4/H1P1ZfhzicPPYveE8Wch41NXxxn4ynju3nWfr+PX5pDT0 cTg8P59zHlcHfzlfM+Oyl4eHPx7e+Dx2GgdwecSv763JjcvqfBLbl4eeX+X9 1HiajEsfz1bHQVi/L8qFm8fOGef5yPjt5eHlx6+vi63q7uej3Sduzv6e87LS 8Yaszycxdp3NqnQew+ui5Z1svKn++9f5uI4zvN8rFd84ueuF1i0/j3H3uaW1 eZxv1kt21+Pgj+8XcHno9yjzSeDm0Xys3v6z5/sBnDy07nhYP+/Fhes3OOPw z9+NYL8vZz7F/x8Fyv1e1959511wfVhXx084D2Dy8Orq58Y3uHHQcOeTeP3K +QCfh9fGr9d/0KCPg2Aetthb/58GdxzC83fZaObCPEqT9Whbz4NMhTsORERE RERERERERERERERERFTG8HOwqTqpdF3uZuusptY3W6uP3r484s/FW8lDTK0r Kh13aGocuHmE86v084Jz9YebN6qjYh7zxzKO1NPn9n+Uvl/+XV3tnHIeFs/D wx2HuNy47OUhfSilHi9vK3t5eOPnlc164nQe1vuqST26zCvpixW++r+2Op/E 4XXF989T9Dz64g/PF7b7aPTnoc+PVsdBtH1Spe5Z1z9bn0+i7sTPPDZLzmNS jxfGHx7fGP1luvsZs48Gbt8l+Twd7j9rPw8Pv6+a1uYT9lWz3kdD1qfjffBR 5pPAPb41/DwuNj5V+ncjBFofjXZ/o/QTjVtK36Xl5oHZR6OuZJ1B3peNZyor 34ONJ/NG30/g5aHhjofWxl/6e7Gx9PoT/jig94cL+9PqVxzhOEh/y7JRTYU7 DhrzsAX1ejCEOw7699Nw89CYR2myLqi/t0SFOw5ERERERERERERERERERERE ZEH3OXH9nGxr+PnZel233rf93PTz4PnPu6e223R9VVj3KK/xusL0dvK66frJ +O+o9sch8yTV529T8ykkz+/rurVc1p6j3b6+aroOunz9SPzzM5e1cRDMY/5Y jiIdT/hctpU+GnL9IH3i8rayOg4Ct6+ahpuHXJfs7zkvs/Ow2UcjvV+x6uz7 rtvt16/G9zNeHt7Y+PHzsNpfRurW+u5D43XFVqX7FeX9XWnbkwdGf5luHroO 2vo4CPx+RR5uHlJPP1xPiFZP3O7vcL2z9DpIynDdsP35pNVB38r2//WrdbjH t4iv+wu0PhqH5+kmn0eV9T7aw9CPb7GcPMLjBOu8J+qevuZoUO67u4b7TuPk oS0vD7Q+GnLe8++WMw76FRVuHrs3nCfB92LW1v9z4Y6Dhp9H/DkdVGEfSFTl niuaF/p8EszDCivPg0yF8f0FEREREREREREREREREREREVml673yn18Mnz/N 3e5HCevMx9XLW3uueWocy8tDP4+6ecN1eClWxkHUI/vKtNvp19Ly49D9mazV E6PPp7YeXde5pNjLw8MfDy8dT/i5ZuU51Gl9B62Og2AepU37fXer9cSHx+sp 52FvXDuNA3PjEIfbxyuvr7P9PLzt66tm63qwpY/v7n5G65s4vJ+tzyexRX3V 1PnDqrrS5/Xu/V6pyMbB71fk4eYRXwcNWb0e7NPfV02v31qH269I9nO8Dh0n D6+vDh0tD9GdVyh9NGRdXL73CH8/omx0Y+Ee3xp+HlJPf7HxaR2//n4NRfj9 Ec44aCj33SnMw5Y2fuw+GrjjEL9fxctDW04ee/edd3B5nG7WD/9YzDjoV3S4 eWB9r5Ri93dVxkEfh9Uq9fuhKFDWD1KWcVwQERERERHZ8T/BFXCD "], {{0, 0}, {99, 99}}, {0, 1.}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7594199687925243`*^9, 3.759420006787529*^9}, 3.759421064805101*^9, 3.759421249160139*^9, 3.759421318521936*^9, 3.7594213644519176`*^9, 3.759421419562954*^9, {3.759421453057219*^9, 3.7594214748866243`*^9}, 3.759421626104555*^9, 3.759421669875778*^9, 3.759423165094817*^9, 3.7594233918769693`*^9, 3.759423779403873*^9, 3.759423932483033*^9}, CellLabel->"Out[66]=", CellID->960412799] }, Open ]], Cell[TextData[{ "Apply ", Cell[BoxData[ StyleBox["BakersMap", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for a different number of steps:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.75934808617546*^9, 3.759348088692178*^9}, { 3.7593525525784693`*^9, 3.759352560014524*^9}, {3.759404645254981*^9, 3.759404669387414*^9}, {3.759421597837245*^9, 3.759421599344755*^9}, { 3.760984455935068*^9, 3.760984457564331*^9}, 3.854112131826639*^9}, CellID->508492582], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"Table", "[", RowBox[{ RowBox[{"ArrayPlot", "[", 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["BakersMap", "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["BakersMap", "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/7b2698c8-4a78-4b9f-ab06-982446bc5ec1/"}, "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], "BakersMap"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["BakersMap"], BoxID -> "BakersMap", Selectable->False], "[", RowBox[{"pic", ",", "2.", ",", "n"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"{", RowBox[{"4", ",", "10", ",", "11", ",", "15", ",", "20"}], "}"}]}], "}"}]}], "]"}], "}"}], "//", "GraphicsGrid"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7594200181177177`*^9, 3.759420037647071*^9}, { 3.759420074203911*^9, 3.75942007812197*^9}, {3.759420168252198*^9, 3.7594201928181877`*^9}, {3.7594210688395557`*^9, 3.759421073043261*^9}, { 3.7594212832934933`*^9, 3.7594212882648783`*^9}}, CellLabel->"In[25]:=", CellID->735531528], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[RasterBox[CompressedData[" 1:eJztncGKJEUQhhufYBRdWi+Oz+DNS7+DL6Aonr34ICO7DII6zNmbBy97EUEE EZbVxXV3RVRcFDy1PoFUzRZDFjVWRFT+UX92/x8sy0BkZf5ZWdWZUZGRr73z /pvvPbfZbN599k8IIYRYzn6Hsv/ovOMb5/Xrt+Psw46vRvY43TF7fDtOX+n4 rDndJz2XSe0Yys2Xv7zouGe2Z+WDnqdOHfZ+agOc7rJ/efjk446fYc/Vv/90 /L76+6NOPXb7N3r+ptN98nzH52Tvf7v9xacdv5CODyGEEEIIYWM8z2Kbl89T Zx3FM8/GYvdHTa+b29dtpfR74fwT3nVhrn193cPzevpqx5fN6i79K+2Pj6v7 8h3s+e4/R5w/hF3/Vs+f7uc8Vg73HkTfh2Wwvf9ZdR8K0j1HzK/Lx4s9X5M9 30IIIY4Dr1/Gbj8dDzX/+zX8vn9/v+O33WnvFzibbddg9/ZbHb9W0+G1n44D mNdd6tzbdT/zK21f7vh2Nd1e+2l/2Hw/3bnd8WA3jC/bfHDcnyj/Adp+XA5t L91r2cfi1Mb12O3R8TJRf5EPe3uG98+Txz1k49BLVnt4dG/7+3eXTjc2Djwb nvudBWs8IxrbfHNM+7qFEEIIIdoANS9nn+/Xb9/2pY4vdtueR6B+isMVL+P4 Th/ax7oUnvEbXU9N79+eL4e1R2NvT9k/ON2x/eN2lvkZWr/fUXC6b/W/Az/S 9VNsH6jGhxBCCCGEQMIy33Ss75z74ZbW57W3+n0e/dTxV1r/+/xk0frWHx9R Xuj5ofl1+rJ8Vu3qjoHXzRlXtN/lvH9Yxwdb/CoeW5z5GJzuYZ+A7/pZ8N0/ IYQQQojDBBgXUMVvtLwddcqzrEfs1y39K9fxW6j6Yvbz2PYp12qH/DJzluX9 aFd36Z/F7ceN+YHxoPP8e+1j/rEobO9//HOEPuflsPYDsrZLCCGEEKJdpuf7 uHlzbL0zT+wcN2++sLnyte1RXLdjbj0yvS+sfd1WyvgBdL4wVqTbZjdvP8RJ 5vpZ7KDjZdB5pKP5trn2LWfZR2Hbx8qq+1CQ7mPBe75I7PdCCCGEmMLul8n2 X2Gv6/VH5fmvrHl+6uTlrqd7Ov6Nb3z49kt5/Sxo+3E5tL10r2Vfrs/xutH+ ANT3iBL/+4MtLixG1n5RHt25+9uPzz9xRftxnzF4xnkW6HNehBBCiJtB+2Wi fpzxus1aj9fe2i6c/fB9vlwX7Z3nZ9p1+9a5PP00bYcaHzeVr22Pji9ZSn3d w3hXnn/EdbPhWbdF9/F64wKGclh7NFl+GUd8VOicBi/29vRuu/OHSb8XrByf bvT7P5bPkZX277cQQgghRBuwzMuz53843b55v/26d253PAj3E0u8TM75Z0th eS6i7HfWuIAy33a7umPPB96Pz5rnv/zfW26eWJ6tLFi+2+Tx5HEPje4cP20U vvsnhBBCCHGY4Oab/XTz5HLWfpyPvnY76pRnWY/Er9t2vIz9urF4onE9LLqz kO45y9K/Ytcd8wPgGOJRueIlN5ttH998N6mf2N7/+OcInecuxz4L1nYJIYQQ QrTLdB4d3Pwx5meq345p+/bm2ZcXHffC7cjJq8wyj1+6byu6v7Y9Yvm82tdd Ul/3cM5r7FwSPLG8SOi4MPx4ysnPhbOPfVeIgtPxes8fdOMjtx4elsZft0pO /kc+ouekCCGEEMtp3y8Tzafz/39fM71+XF93jOt22OabeePjrOc+ib9yXA7g nwidazmuB22P8kdlxV9Jt9Xeer5ItB6vvytnPzHPvuVlsPpleHQvi0tk+f3O RrrnYP2+4IX73FchhBCHjdffgLYf21nXb1F7a7tw9kO+nvI7/X5n+27fru6Y /djOrtu7v6rczzJvX567adcxfV6ntV1o+/r9NNhZ/chDvu0s3dZ4Ga/uMk+a vZ9y77cXtnWbPx6n9AvXrydmbyfmx1/qn0fXg+JYdUc5Pt3ofcvWvBVt0P79 FkIIIYRog/rz8qX7LXPArUd8/ok83VzxMvbrrnOeWevr1fE5vDdTriPb1x2z x+mOxWfY8fr9r8DrjsUlZsEWx4mH6/3PzqHoEEIIIYRgh2UdZr9unfPM1l+P xPJax+fJbcfLOMbdovPMsvYd4ojFKbSvO4ZddyxOFJ1fMsqeLs9/Luu//wey xgfnOS+HMj6EOE7+A5pPcIM= "], {{0, 0}, {99, 99}}, {0, 1.}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], {195., -189.}, ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[ GraphicsBox[RasterBox[CompressedData[" 1:eJzt3c+KXzUUB/AfPkEtbZm6cXwGd276Dr6Aorh244OMtAyCdujanYtu3IhQ hFKQaYu1KsWKRcHV6BNI7s/xx725yT1JzknOSb4fcGGYzuTcf8lNzk3e+uDj dz96bbfbffjffwCQ6uJW6xpsuTK5F6hnqP7UuPyfuzp5ov647NHj/+Jz59H/ 5e+/5/xaePxaSz3/pdeLFePG//jceVkc/9FN52E3x2Wv//MPUNOd285T4/eV 1HOhv/j3/ahfsvuXZ3edF2qOy43JH+hHJUH81HJt13upG9edHwY//wA1+fdV vN1qhb9duDZ5YOR5Q4+f5/zpif9o8hz9KKLPTp3vyPEfT+PAJ90flz0//ncm fw0bPwBIkZ5HkSs/fsP5UqgfYb18W/z4aYsH/ag0fvzx94l+XHnd+QrXBQA0 1up5oyXfoX5+xfMfnT+b9xfy5tekob8EAAA2tM1XlsoP4iIXP++8lpSV/mW0 3nJ/N14OAACgkd9u/fO38xtTe0ZvL+PjN/zi3/2Vt+ep+S5cf5eHnv41AAAA xcmnzrdK2hGuvFareTDlea28+Ur1xK9DrvrpjR9Av8v7ZHm/+OV1xvm37+d5 fsF2vWXKpZS2c/Lxx+el8vG0c1xx7nY//zRp3o7kHRcf73fvWqzMg03H62vh /qUWXPW2Gj+ABv59Es/H16a8fV0f77fy/NiOfz4/o6W/WI76nn78pvNNcj9K 57oFB6n9oukyP33WWT8qZPR+RCjf7dEg5x+gJrv3SXx8LLV/dfDJ5JXZ47JH 71+tj3fYvS72tuOfz4v11o6k5ln1E398PcDyeU1b75lLqfOj9s4/QE3SeZ3S 5uMMS6Xtgv744+jxH03rtt7f7EdJzefJ4MoDsn4dLCH+0vL4uI5eec/73s4/ QE3tv98pk/9cyOufaZPQj0r6rlp//Nj/Yl1evnI/8cel9qNqrwchbfTzD1AT dTyjNanngpXnDb2e1DygvP1v68P+FznGjT/1utaeN8er//MPoIf0PIpcOU++ g554eMu3xfPJtMWDflQaP36e/WL0y7uuAQDSpeZ7h/otXOWhvxsql813WIk/ 8P7bKv54eSl6vjNX/Fx5c3duO0/RXi7YzrMu1+e8HgDo1ep7uPb5DvfOnO+r v8/yjg9JafU+ryV+AACAEvRxGq7fHypvk+8g155r/y6nbR5/+/gBAKAvtfMd 6uQra5nXSrWSjxLtd/is7n+xJ10/7fEDAIA1Rzedh83bkbcnvxe3czbmtVKN 3o/w63cyOU+st9X4ATQI7Qt1cWu532Pe/o90od//+Nx5uXmfz/M0l/f/RXL5 Mm9QOo8wFD91P+75z5XHv+xHXOaXSl8HS9RxhPnPlcZvJW+SXm/e797bi+/z llpve/HHjR4/QE1275O8ddtD7eiBjfZzCz3+Ufe/mI/P+D9va33NJT8ean+c Vq6dX++8cT178fPuF2YvfoD67N4/pe1C3jq2VtDPK7UfxZvvLG3cdXLi+7r3 H39cefzXJg+MHpfRzz9ATf79E38+1yeVN9rH/oT0+Jfzd/F5u/7izyu3h2f8 1q6869ovj88nWtX/+QfQw8p9JfVc8P99fD2cVujxU+cx8/ZFr6/OOtK9GTf+ 1Osa+18AQK5pGu30WfH4N1e57L72qejfZUsfl1B9QuU8eUD+7z2767yoHv/6 dxPheuaVj2JlfneodZvHvS7S9mkGgHLS8yhy5fE8qW3x7+P1xJlXXkpbPFqO i36h61p2vxgrxr0uAKA2al6z/N8Nlcu+d9Vvn7WsE3R03bmvrH+C/hIAAPRA ut2it5da9r/g+g4ob12dev2Itnn87eMHAIC+1M53oK6rWcbq/E15PWyvE+TX g3d/ee3xAwCANbryHfz2LJ43TP89eeX1pObxh3B9361Lq/41ABxc3ifL+8Uv r7OO7fb9PH9v3663TDk/3nWo5crbrGdcO34r63fTr8d4PFbbUa7v7OzFnze+ FmIvfgA9rN8n2/d/fJ8Drvf8+uL7LtL7HevzA/1fF/P/15IfRBefd0zNM+qt HU3N4+8/ft5yADjw7xOd6+f5rk6eMI3fUP+9FdtxXbYro+4jVlauV3w8pv/4 4/x4UseB63xXKSX//P8LPx5wgw== "], {{0, 0}, {99, 99}}, {0, 1.}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], {585., -189.}, ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[ GraphicsBox[RasterBox[CompressedData[" 1:eJztnc2KFFcUx5s8wSREmWST8Rncuel3yAskGLLOJg/SgzII6jDr7LLIJpsg SCAEZEbJZKKIimIgq9YnkFuxGbqrzqn7cT5u1f3/IAtLU7+anqq+t84959xr N3/4+vtPFovFdx//AwBQrJe+Hn3/2WngpZufB/7dI/tfBP5wvi8Xi9u3Ak+U r6O+z//e3cAz8rqO7weeF1/31Y63mc+l9ucGv+75AZgT3s8L/F7mO0eB33v+ g73Ayu26bnT8V/n3eOp7Qfzxgy8DP2WOo9rHx65P388Dv68fAAAAKCF1/EmP B0n59zsujMZx/fN8+03ghZtfFjk//3vW9wMAAGiL1WHggdg4wsf39OMBVHwv L66US/n8Ev488u7nsftSbr48vL5LeeT9/PFxf9n8vdy/+XPe+5ecnz9fff64 7z/t+w+AecLn7cidr1tWPTqvdF1F3///9/6fzj+/97pW634K2v9jxxvz/LDt cdcrP01/HOfnY97ziPXy4u/Av25+77wXAKZDK+OYn/+zjseTG8e9/Py8U9+f 9vd6/oOvAr+Z+/PWR9PJrb+wmV/Ue1/U4QcAXOL9vMDfqr973d076fml46Q6 6OW5730a+DlzHNXPv+fjZN75//D7+gFoC5t+B2BqxI3jepTVH/iRtw7nV3+R Nx+S8+ucx89/chx45PzzS+HtBwAAMFXi+nH0oeJrPPrxAGp9EPUX8Nv5AQAA tIJOPCw1D0luHHv6T8fExlGr+o+xPHNtvNfVvP0UtN8mXt1u/QXf19K//sLb b1P/A8AcaGUca9e/342Lv05mHvF5x8Pm6y9s+lcPvPd83H/Epo4x/bng7+d4 yuLU3vUP3n4AwCXezwv8rfrfvwu8mk39BTX/4+eFcvlxUv64OtFyP9+njf5c qP5CqX6+Tjj990Kdz+q+oPZ3s70vAWgRv+fFdt9NEIttPw6K6X2P5+UbSvfj QP1Fq/79K4FfZlL/AQAAYKrk1vGenQZeVld/QUHtxyvtz6uXn1v9Qet+AAAA rWBVf2Gb/+83jvLzNX1/Hvp+fv10/nmbPHSeu+y+u7R/98j2+8B86y+8/auO U9R/ADB5WhnH2vXXMY/pk7d/rjS157nb+zf5Dl7zOP64HHxfI9rP72cjRX33 BQCAwvt5gR/+bag8cmmudnlWfyV7ZOtD6stPi/v5yv1lfYL85hE2ddb1PZcA AArv58XP773PQ63Y9uOg8L4vraD7caSeKfX/04lTtlv/4O2vY34PAAAAlFCe n5e7b3vqepNV/UUecn6q74yVP+98c/MDAABohbz9IsZIXT+b2zjq55fq0yJN HX2j0/PTbOL4/Tz37Xm//rru8PuMXf3DcJ+++ddfePtXh4EHldZ/ADAl9J8T Pk5S7zgKvwx8HmDfb5WHELe/hHeeu71/u2+d3zxCu85Bum+zLLTfty4GANBH /3mJe+/xAv7a/Db7kNL+Meroj4v6i1J/2fn9/Hz9rb4fALCL9/Pi58e+zcPY 9uOg8L4vaah5HhVH4+NrdD+O1OuixtdUP3+choo7U36deFB8fDPvc4EfAAAA 0KM8P66sHjHez6+bpY+j/LwoFblxPC9+M5+8yTr8AAAAWkFnn+D+uKSzH2q8 X/bf1+u/3vF6YvMIg3yLqH0GLtnOyyq/Pn7fPSrPXS7/Pa6Oe9x/0M3TV+nv HWzcP92feh38v18vh+PLff8mrpma1zrmH/799P2b7+u8/Qop1svh3w/qLwCI IbcfRyre/Tj4+cX86x9a9/Prx/Xmh3n5t8fV+dZxjn0v8fnO2iBvEIDpoP+8 8PWC+v6x90FtPw/8u0d0+tTE+21J958cBx6prSvH1b+Uf25lcer25rcb8von yvkBALt4Py/t+vk6Pj/q2BfE+74YIzW+Fn98LA7Cr8frXVcc8LftBwAAAEqY Tv0FH/dLH0fj+tTF4j2Oy/nz9uWbT94mAACAtsjtx0HB9xO1igcM5EGZrnd7 j+N+/i4N6+h8YvMYq7y19XK4DkO//oI/T7y/LM+43L/5c951yPn58/WJy/fR 8/NYeQCYJ7L7g9PrpHycwiBvMKqOThvvdSX4U/2y+XkU9eWntVJ/EdcnyGse QdWX2vl3j3wAUKFwgw== "], {{0, 0}, {99, 99}}, {0, 1.}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], {975., -189.}, ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[ GraphicsBox[RasterBox[CompressedData[" 1:eJzt3cFqFEEQgOHFJ4iiYfXi+gzevOw7+AKK4tmLD7KiBEENOXvz4MWLCCKI IFFRoyIqioIn9QmkO1uLNZNJ91T37PTs/h+EIpDszsLWzHRXdc+ZS1fPXzky Go0uz38AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMhh46hzf3rntvNxevOG83ra 93EBfdrPh+fzPPi9iOOTzjPyA2vpuPeklhcS5XrSz9EB/Ziccu415sU17zt5 gbWirwf1vJA49vbID6yFyYYzm57zfgXz49aW85T8wFrY9H4E80KiT6eNHfID K61tXvz943wlL7DStu86n6LzQuLmCecN+YGVJHW9/d/i80Li7LrzmPzASvnw 3jPnhYzbZRy/nKMGuqXr2+3zQuLLXecLeYGV0NQPYo3HvFfkBwYt1A9ijWNf T39IfmCQQv0g1RhbB9x75/wkLzBIsf0g1Sj5oesZ9b/T88DAsOjze3x+SH/I We9b49/pcQwwDG3r3hJlfBJ7P0b/OobEmhf+crH1dvE9D81v6fcBymatezf1 oYdeT9cTgTJZ80L/X11o3EL/Okpm7QcJ3RfpOkbz6+jxCVAGaz9I7HrXmbfb +Dp6PgsoQ2o/SGzf4MULzufocTzQJ90vbsiLyPug2PWz9K+jBG37Qaqx7fhg ctp5FK53sG4WPbL2g0i0zivpfQ7pX0eZUvtBrO8b6rOifx19sta9U7+3+n7p kPs1df8FLIc1L3LVr0PrQfR4HViO3P0gVvr16u+n53uBblnzoqv9bPXr1t93 Z9t5QX6gU6HzdFPsKi9i54/Hfj+rB+QHOmHtB+l63WrouOhfR5eS+0Hm80VS D8kW5/NVofncUH8vYJHaD1JK5LlPyCm1H6S0SP86ckjtBykt8twn5GTtB5G6 gowzpE7XVZT3Ce3LTv86crDWvft+7ljouHU9HWhnqHmh6xjNx0n/OixKq3u3 pevg9ePkuU+wsOZFafW10LhDr/8ADmftByktL0RoHoH+dcRIfV5MaXWD0H49 PPcJMVL7QUod1+r1U83zzP0cHUoXO6/TFEu/Lwnt18O6WRwktR+k9P01Y9fN sl8P/peaF0M534bmcyWWNl5CP1LzYmj93qF1gTKfxbh8vaXmxdD2J4it15RS t0Q/QvudxUa9X3O5QuPwaiQ/1oseL+fr9y51/JraV7+4vyp8/g0Hk/tiifJ9 kPpd2/OlNcq+mpJ/cr9WPb6uPr987lzXw2qUvqvq58v9eZCHdT3FsmNX45K+ Pz/77JZpWdeDXDH3edbaB5krlto3BgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AADAKvkHLRNwgw== "], {{0, 0}, {99, 99}}, {0, 1.}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], {1365., -189.}, ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[ GraphicsBox[RasterBox[CompressedData[" 1:eJztnc+KH0UQx3/4BKtoWL24PoM3L3kHX0BRPHvxQTYkBEFd9uzNg5dcJCCC CCEajElEVBQFT9EnkJmfQ5ztrpqunuruqu7vB/ZSP3amq/pfTXdX9WvvvP/m e88dDod3//sDAFA8vd66BHt5YeY7Qg9KP6ncG/v1/vijiW8GtcfhcHYyce68 nei1/zdm/hrGHqcvT3y9oVfk/16ZuGPGHmdzeT4ddBwEoAa995dR/SgKqR/1 o3t7nN+YuKtW3//8PfGr+fbzwczvldp/+H+XFxP3zNjjSK32b6cd8Iw6DgKg yaj9ZbzxY15eOblM1vvazB/d2uOIdn2Hz7v4ZOKnQP7izJfF5G+/NfFz4++I 8Hlnr058Ud0eVHko+aMfJv4U2+P2zMPk95TWm7I3VR5eDgAIiYxz7Dpw74w3 fuStW/QLv36Vi9a6aCu5HH5fzJp+7fxKX3IAQAonz098Nlw/unVz4sFwelP0 sq8n5XTmkZ4/8dLE58bmq9bzZ/33193nlNLqe7a13gAAAHqj1n5m23PbVufP 9H0vKU8ezxj1oyhGbQcAAAB803oeCd+vu16aPn/aWJ/eXx8fzueWvnLjR317 f+KXwuWypzcAAIAesDqP1J8/W+e/kJ7bpsjLY+GnHfBxBenPSZNf/Z2S65Gb vyG+vizVQ0uuTen62y9f2mWdcyKt7AEACLHXT/LWUyhqxf+XRivOzpsfRZFe Xr5ew+es2599u+TlO8mdP+3b4whd/nhcp9weNtavU6HtER9H4EcBkI63flIu Tstn/gvpuW3v8+PW/CU9d7altx+7xNFat9iKX/AC419dWcdd9yO/7UD6HbHI c/OhADAefseHNYiDXxPqIT3v7y0vDD/u59a31r5iK7Tbv/f+ka73En+cd4+I HZBXDYDS9N5fxvOj8s5tR+aRpPtivKBd3/bbCb++KrdH3nxsDUH7T8oLo7Xf 3op+x0EA6tFvf7k2f09+P5wfxZOuN5Wfvi/k9S29L6EVvB9Qy6+0Y48jtfb5 6fWtvOeVwku9AWCZyH4OG+/VCxg/1kj3Af1DxTPknh/WzX9qTZ6LNT1gj31y AECI9Fxu74w3fkjPbfdOmfwXoR2pe8Cp+pDKbZ+LicS/Eet8Wvag3psnlyM9 762lt649AAAAAJ66+S9azVft5s/Li4l71d/v7b6kOvGRrfUGAADQG7XyX7Q9 t211/ixXrry4O3v24M/n7X8+LwcAAABSaD2PlJ7f0p9vI/9FpFysHxriLa9a nXgGe3oDAADoAavzSFiu85n7wvL2kv9iPH/i9Znfdpd33z7n1d8peS3o8sbz wEj10JLrIc0HuJbX03vJA1InH0ju+Uc79QpAP3jrJ9Lypo83Vu9LevJ4Rsn/ 8eNH8aTXX15ejNTfrUPXd9y/pOdPL3l5+e+tdD/j1s2JB534E1p+FwAgxE8/ 4eML98en+coruRDqkbeO46cd8IR67LvH1LtdtOfPceyxdV8SH0dih9zzkjbO OQDgAe/j4oJWnD/sseAtL8zpPO7fUatvfv3FSzvRbv/h7/w8bQ3p+vRWXhj7 7SDv/KF9vQCwQ+/9ZTw/is8vnK43v5/oh7zzNVuE/2ftXgTt+5J4vPQbvX3+ 9b5f6nus0e84CEA9Ru0v440fVD7UI6HetfJitEW7vu20n1r3JfHrlnbscSRd b+37kmz2p/HGQQD0CftL7n0xXth37rhXMJ4u5J4L0c03YU2eizU9YI99cgDA /6Hi/MvcF+MFjB9rxrOHdv6LvP210rSeP8P3lM47wseR2LNH2/eO1+8BAADo 0Pq+JH69tNx7eXktyr2/1j6nlLbxDFbbAQAAAK/YyH8x3vyZF5+fTl7+i9b+ RPh+/pzj/ufzcgAAACCFdvPI+Y2Ju4Xnt/T5ky9PLcJy8XGYId7uS+KJ5Lti 43TTn8PLAQAAgBSsziNa814v+S8i+6JsHrH05/DyduT5gyH78mI8+32JS+Lz QJQj1z+Or+uF+lHy9X7sM/niz5aO16L85q1117i90vWm5OvzjaE98vz8dKjn x+/LWnh6PW4vqT0AACHe+gmV/2h//n+b8fpblPMrrSL1i+bp4/bDTL392CVO bvwi1c/s3Scmg9b76v1RW3n+vaB7bycAIKSXfiLdD/PvT/D5UPfH//vMCyM9 ZyX3o/i86daQt4M6++2tSLdHmh9l3x5a5yX/BeXIcIM= "], {{0, 0}, {99, 99}}, { 0, 1.}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], {1755., -189.}, ImageScaled[{0.5, 0.5}], {360., 360.}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.759420079144596*^9, {3.759420169465418*^9, 3.7594201939115257`*^9}, { 3.7594210704229813`*^9, 3.759421073639266*^9}, 3.7594212536022367`*^9, 3.759421288973949*^9, 3.759421321736734*^9, 3.759421368969801*^9, { 3.759421459656084*^9, 3.759421480419005*^9}, 3.75942162909809*^9, 3.7594216748543673`*^9, 3.759423211682044*^9, 3.759423418573098*^9, 3.7594235105628242`*^9, 3.759423785048251*^9, 3.7594239376416597`*^9, 3.760446934304779*^9}, CellLabel->"Out[25]=", CellID->137972723] }, Open ]], Cell[TextData[{ "Modify the parameter ", Cell[BoxData[ StyleBox["c", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.75934808617546*^9, 3.759348088692178*^9}, { 3.7593525525784693`*^9, 3.759352560014524*^9}, {3.759404645254981*^9, 3.759404669387414*^9}, {3.759421597837245*^9, 3.759421599344755*^9}, { 3.759423297895631*^9, 3.759423311915819*^9}, 3.760984464553046*^9, { 3.8541122202861156`*^9, 3.8541122205967903`*^9}}, CellID->148598144], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"Table", "[", RowBox[{ RowBox[{"ArrayPlot", "[", 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["BakersMap", "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["BakersMap", "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/7b2698c8-4a78-4b9f-ab06-982446bc5ec1/"}, "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], "BakersMap"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["BakersMap"], BoxID -> "BakersMap", Selectable->False], "[", RowBox[{"pic", ",", "c", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"{", RowBox[{".2", ",", "1.", ",", "1.1", ",", "1.5", ",", "2."}], "}"}]}], "}"}]}], "]"}], "}"}], "//", "GraphicsGrid"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7594200181177177`*^9, 3.759420037647071*^9}, { 3.759420074203911*^9, 3.75942007812197*^9}, {3.759420168252198*^9, 3.7594201928181877`*^9}, {3.7594210688395557`*^9, 3.759421073043261*^9}, { 3.7594212832934933`*^9, 3.7594212882648783`*^9}, {3.759423243842012*^9, 3.759423272789535*^9}, 3.759423798263846*^9}, CellLabel->"In[26]:=", CellID->176302765], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[RasterBox[CompressedData[" 1:eJzt07ENg0AABMEXFZgSqIQeXAKImNrcoWXJ2RbABzPS5ZfsdtzvaxljnP/B TF7rz2d/+gfMRBdQuoDSBZQuoHQBpQsoXUDpAkoXULqA0gWULqB0AaULKF1A 6QJKF1C6gNIFlC6gdAGlCyhdQOkCShdQuoDSBZQuoHQBpQsoXUDpAkoXULqA 0gWULqB0AaULKF1A6QJKF1C6gNIFlC6gdAGlCyhdQOkCShdQuoDSBZQuoHQB pQsoXUDpAkoXULqA0gWULqB0AaULKF1A6QJKF1C6gNIFlC6gdAGlCyhdQOkC ShdQuoDSBZQuoHQBpQsoXUDpAkoXULqA0gWULqB0AaULKF1A6QJKF1C6gNIF lC6gdAGlCyhdQOkCShdQs3TxBRDGhlE= "], {{0, 0}, {99, 99}}, {0, 1.}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], {195., -189.}, ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[ GraphicsBox[RasterBox[CompressedData[" 1:eJztnc+KJEUQhwefYBRdRi+Oz+BtL/0OvoCiePbig4woi+C67NmbBy9eRBBB BFkVdVVExUXBU+sTuFU90UPWZFVldcYvp6P8PliWndr5xUTERP2JjKx+4dU3 Xnr9iZOTk9cu/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AEBsbvX8udn9a7u5+17Hz5v0f233x195uePXwfFSrnSmvz48frj++XMdHzjp j9vJf93Pjzb6pcdr7Rx/nL5+0PHb/vsf/tDx16id/PFSyPdx65cer7Wj8+N2 z9/u58Hz046LUT/yx8v107+vn8/Pnu34YrH+u3c6Pm+W79MnOz7c6wzPL+5x SvQOv27nr5/z9g9ju3nn7Y5v9zrDPA3jWMq//3T8Phun4fHDuP79F291fFqt b9eZ6TjU/vxzOro4LTs+zvnzHZ8U/t7WEjdOZTrbTVqH3vqlx2vRx2l4/vLV Lz0+z/T1QBeni54H1XXxZs+jG68Lrb63HbX+dR2770zvI5bTKt/5/oeffplO 3Hx76Zc9T8eNk/2e1dZF2XNDvR/T9UddlOnU65f9vtTbuX+v46vm+X6q55vq ujjUvq8OdVGmo/75ve20z7c9f1EXO9J+ylL75fSX19P7N9w/UHP8fth1Yfh1 6/OcPdPx0f++Lursl3NT/QNf/UPte+no/LDz1u4540tZ/e2IGyeNHZ0fberu 5OSsv8/4eHX5tvunQ9cN8+j8SNdt/fXLOP58T/dB/OI03Zc6/jjNcdbz8Oj9 SNf3/PXLiJvvdO7PC50f0+tq+nxPrwss5abq20//3vsdv6zuPBitLg6zu5yx fjB1sUSv3k46x+SvP0bZ+utS1ptv3/PIeuPkZadNn/bx/fGgz+h7v2ysN99e dfF0z2erjZPGjk5/mFfvuuiXv+58v7G8p/n388OeK1X6pmf6Zq9u/8h11HGy +/9WcVLZUeubnunX7Z+bt5P/O7r+WvyoJ70Pj+vHmP6h+zuW2lmH/lr8qGd6 n28cP8b0NXM/ceOUrt/F9aONfis77fXL5sDKsT5Ceh3y90Or/9iPS32VHetD EqcSdH5Y/9307XnSa+7HyM9LqPsg0dZxx/R0fRbvvsE0ceI0hu/cj6H2g7qY Y9iX16xXje2/iROnMdqsY/j5kV+Ppi7mUNVFXjdunAzf+QajtR/++vnzRdx8 a85/hs6P/HoCdXGYPZWun538PLguTj/92BMuTmX26hnOIbSZH4wXp7yuY/8/ Ow8u6Bdd9gen90PVsr58e9dFPv7x46S1o9O3frDPe8LGiB+noW6b/p2/H+l+ DOpiTtfqwnu+IX2P6JU9L/085LtMlzjN6Vo/1Xu+IT8P7u9H2XtGa1lPvlX6 +TkAQb6z7wv25qouvOcbxux5K+bfN+4NdVFnz4+0Dymsi8v6855vGLOn1fXX t30SeXt+eL3Hd5rtRrVeNWZPq+uv/2LPH3tdzXzDkHhxmran0tXpa/rM4/a0 uoL7tMHzhGodI31PUrw4TdtT6frrW39Fsy45Rrw4DVHFK+1rxo+T1o7eD+18 w/D3KG6cDO15ROdHep2jLubIPy95o/Nj+Pmd3vrT9rxpVd86/bQvEbcupt+v 4YXOD/W+IcOeM6iLJfr+dtrU3fDzCFXEz7f1pbTzDfHjlOrH9SO/H9Sb+HFK 9f3tpO/l1Pkx/V5qL9aTb9XntrTps5Dv49SP74fqOaNNX94g38elH9+P2PMN rfXX4oc/6T6JuH6Yfuz5Br1+Og8e1482+q3s6O/Ltfs0jbhxajO3a0TXb2VH p29z023mQeLGqa2d6Pqt7Oj9mP78Hi/ix6mNHZ3+rf69WN8Rp0LazNXq12FU +inx892G+HGKXhfTnw/kTfx8tyH6nEbrdbHoxK+L6c8Z9oJ8H4d+K+LO/Rva uR+DfM/Rdr+smvj5Vs39pMSP0w7h/X+T81Mr4ue77f6C6KzFDzXx46Se+2kz P6Gn7T7vuKTvaYzLuq7fAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAp /wHHonCD "], {{0, 0}, {99, 99}}, {0, 1.}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], {585., -189.}, ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[ GraphicsBox[RasterBox[CompressedData[" 1:eJzt3c2K1EwUxvHGKxhFh9GN4zW4c9P34A0oims3XsiIMgjq4NqdCzduRBBB BPEDdVRERVFwNXoFkmhNW5WvTnLO6Zzy/4OXF2eYqk4qT5L6SPrEuYunLxyY zWbn//4HAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGizN4//3/Tz9PdAnn79LHyu HPeba4UtcgE0Hvd782vbhUfkAv+h5lzYfg5gSsgFUEUugCpyAVSRC0joGr+U Gt/Un184e6bwkVxMgvf5JLtcXL1SeLlfTjxuujdfO1i4I76f1kvfJrr/c1Vt z+fPCp/22zueX5qOzWOF28bXi6G/H45crMLq2ltW9XNulZ4ZXe/kyt84Uri7 X95GaddJO+Qi31z0+712/ctLrw/kwtal0ldyYVJ///IOlx7O2/vjkLZcv4Fc BLbjRdVxD61+PYbwkosuUtthNb9QzcXW5cKDTNrDu+mP+/f7HFrlyH3+G9cL 7/evD5vHC/fnf37+ZOK50G7v6t/Xj0uOb49DpRdK7V2zHclzBTb3z35y0WTj aOHxf5uLdL6oX/1Dybd3OM9plZ/auVn4oFZP/PyQfPldwnVEu55xus/nMvn2 m4tgNf1V+XrKy9zaLXIxit7xeqr0Yx7nUL6e9p8vr709/eRiWL3DhXHa8O88 5r31chGOM6lcpPu/q/5h7MZxwvbE26U/XiRbflrPbLb7pvCdXDSUE/rJsteL RT50jif9XMTzlNrHrX0udOuRc2un8FStvZvGiUJ/Nl1HI0Orva3vb/RzEc+z kYuY/f1s6P/pjGfLH0+hP9Ren5xwvOoet/rHazksuf16dD1xv2RvXt/fW7S3 zLi5fS7C/ZP0eHYYh5Q+nuLx2pTV+c9fLpart//f16//WeRC5rmCFc7zqKyz tG5v+fLr10OSi6a/j9eXjN+O9PmtrvqHaurH6Ixn+89Ffblet0O6nq6/97af quXpjGfncjzlsh3h/PdE6HxOLvqq7x/Lr9PQnVcI8slFXP6IdTlLjevLbUfo V65mHslbe+c67j/9XPSrR7o8+c8fjzv5z4XNuH+1Xt1yyUV7eXqf32Zcvun9 8uOl93226xr85iKe3x1fz0Z5P3XPaBw1n/NgPK8jeN1L5ueXe75cit9c1Nc3 XPv5iPHs5crV2w7tXMTnRb/7qb4+rXK05xe87aemcvW2493bktv78vjze2vv Vc1Hex9nUewn/V3f1f78rBSv/VXteshFX+k6M+nywzosm+/FIhepsB7R5jmV lN9cWK2fDrnQfS+Sfi7a1wtL8zeOWl+fdrl+tyPMv2q9Fyl+D4LX/aRXT7if tX2OxN9+si1/sZ7Z5r1IXveTXj31zymQi1WVn67TsR2X8lq+FrtxnDzmq6zK t3r/i//9pMMuF7bvM/Hf3t5zsV7O478iFx20v68gPo785iLcT9mcR7yez7XZ 5aL+eXVp+v2Y9vdOjney9GVus35QPxdT/b61JvXzqnr7qf09ZVL0c9H+3kkp 3sfNF/L4fgq9/ZTXPK42/e2w+h4um/OhNv37D63zh806USu55Dt9Dtsr/eu2 7f2UP+n3Ia/204zn+z7K7n7W5ns8/B5PWs8FYgi7dWR5zONayWU7vNLPRVgH 532+ylYu2+GVXT+P+ao+ctkOf2Tf29aNXPSRy3Z4p98ONs+r5HI85bId3vlf B+57XDBFLqbBfy5y0f5eeNgiF0BVLs8VAJI4jwNV5AL4l806cAAAAAAAAAAA AAAAAAAAAAAAAAAAfPgN+k8IoQ== "], {{0, 0}, {99, 99}}, {0, 1.}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], {975., -189.}, ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[ GraphicsBox[RasterBox[CompressedData[" 1:eJztncGKFkcQxxefwIiR1Us2z+Atl+8d8gIJBs9e8iArigjGZc+5efAcBBFE kKCHmIgEMSSQ06dPEHo27UfP1zPTO1NV3f//1A/2MgszU9VdNVXd1fV9fePW tzcvHBwc/PD/XxtsN+e7vpyfHgTebrSfI8N24D3717XlkLv/998F/hyQxxnH apzbHY+jrwK/TLxnu+9/PljkkMba//Wf2zp8dvFNx7/N+6e6DMUJ1s9tFT67 OKP973ZboNhF7fifZT6xyKEFmv+Yek+cfLgWaTzl5EGziymk5dhuLn4ReOR6 WhmHHW/A9KQf/1/p+Pvz/d78FvgHTE/OXO7fCzwDG2+7vPhix+nmUscrMD0N c3Qt8LNQvrd/HXNe9dluzvbfXoDJYZdvx3kkM5/qIzPerOt2uzzsj987YOT5 9DHwXj3+79sBmp50kbeLNH6N/vpt7347P5jfz5ejH08vJZ+34PuR/Dg5Edl5 tD9fjm8HnoDvR9faP9SCbf1uOX07kFrHKYtX8cYhtesInhwpbhd59vO8NL7V fi46LsdaOLwaeK4WT41fR4HNz86VY0oPPHqSzcPcLjCQqvPacdzxK7ie9PLJ uI/k9QfM1K7z0kLPLvJxGaqe+rDIoQ2Lnnx9c4ofO/5S2l8t/X87nDwMvPO4 WeQ5a4fHLlI/Uev8pDxpHZn2ORhcPdmCp6eYR3o+Oee+LHqSwn7dDqsev/a5 xv7zUO+Pw+WOp15nPkor8abbRR3s68zz9S1osMwnFjmk0V+3Q60zH6+/ZplP 6H00tLBbz77e8WGDdZ6VtX7CChY9WcWz6PpCf385Tk8CL+n8x1GXFx+rz1er 5+jA2tdECtbvqrUfR9MXX/2EFHfvBF6T2kUExS5q15mzjLc06Pn2ELh2oV1n Xtavfe2wxpsuR9l929WT9wNxhpHXU7rvgjIOme+q9wNZAfbrICh9m70fyDqp W2fOMg4ux7pwPaX4/sI6QYs3reuK3C7WRqxjT6/q6wmtb7P3A3Fw9GRnF94P ZM3gf1el1/tT0OLNabwfSAluF+cDV0+ysNtFBE2O/Xxbt28zvv+whUVPOHLE Oo1oB7EOS/f3t9wu8mjle62ca5S7f75+iGU+scixHK1+IGX1pizj4HJw4/tI paR1UbhypLDIIY3Wuh2fXZzBFpezxM3SWK9no+lnCBY5tGHRk9vFFCh15lZ4 P5A5+LnGdeBxcyn9fVusfmpOKd4PZB6YfZunKTsPN8Wwn71/L/AMTF/o+fYQ ev0C4jySmU/1Qaszt8Hj5lJQ+zbbYG0XaPW0+9+ddD7pf5fy53vkkf1daj68 zjzHlP9AkWMIFjnk6NuB7e9KoYzD/nvGfJUjLne7yON15kMMrdfEerzDLwOP m5ejjPbHozb5c6fLSdcL8MeBKy6fOx5Tfg7HD05hM95oetp/X9vzjdpI1avt 0O7bbIPXq03B/bvUS2E9j+t2MQ8WObRh0VO7csS6nvH1Ad+HsebkYeAd2X5x hCVPcruwpm7fZj3SdUkUOWrXs6DoyQ7uPAxFDnu7SNfrWtdTK+cavR9IG1iN c7vj4f1AnHrxLMp48NkFZz8QaWrlwyjjwWcXZ7T/3W4LFLuoHf+zzCcWObRA 8x+194lR9DSM9wMpAc0uppCWw881rhXbcyRS6Mf/3g9k3WD3bSi9Ph/vBzIG Wz+QPlvl3yvQwi7f9n4gOVjX7XZ5GFqfi08fA+/V43/vBzKGvF2k8Wv01/3z TTs/mN/Pl0P63FA+b8H3I1znDuWRnUeZ81u3A0/A96PZ6mnZ1u+Wo9UPpCxe xRuH1K4jeHKkuF3kse4H0n8uOi7HWpDtB8Ka37P5We8HMoVsHuZ2gYH3A8mj l0/GfSSvP2Cmdp2XFnp2kY/LUPXUh0UObVj05OubU6Tn/OfC42e9H4jkc9YO j114P5Al4OvJFjw9eT+QJfdl0ZMU9ut2WPX4tc819p+Hen8cLnc89TrzUVqJ N90u6mBfZ56vb0GDZT6xyCGN/rodap35eP01y3xC76Ohhd169vWODxus86ys 9RNWsOjJKp5F1xf6+8txehJ4Sec/jrq8+Fh9vlo9RwfWviZSsH5Xrf04mr74 6iekuHsn8JrULiIodlG7zpxlvKVBz7eHwLUL7Trzsn7ta4c13nQ5yu7bjp7+ Ax/ZGZ8= "], {{0, 0}, {99, 99}}, {0, 1.}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], {1365., -189.}, ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[ GraphicsBox[RasterBox[CompressedData[" 1:eJztncGqHEUUhgefIIqG0Y3XZ3CXTb+DL6Aort34IFeUi6CGrN25cJONCCKI IFExRkVUFAVXE59Au3PPvVRNdXVP9/lP5y//D0KY28l/7jk1Pd1T9fepF159 46XXn9jtdq9d/hFCCCGEED7cHPize/Tq0L3/Xs9PXfqvDlfHX3m555fs+Fyu deo/z48v1z97rudDJ/3xOOWf++URoz/3+No4LHU69fdA6eD0373o+bxLzxMU j3+dzt/q+XRCZ32cGwN3wsfbVz86Dlr/WC+9Pi7n6YHPmq0TJg5OPx/X/cAD 0O8/dn1az53bPV/B9Oug31e4PN4c+MNdv6zLWyej/L3AG1QeUfeBeTw/0u9d uDqdDfcl55ffA7/UeGcMt8sX94PPP5z+Pw97futuPNnzEd14lOOg9f3j3P6g 52d4nW4N/E1bp3IcHF73/3Xw5zdKP4V/vGNoJQ8hhBBCCCGEEEII8f9gaj6L ZV7wWMfmy9f6o+atN6/Po75Oi/YVecdB6/P7o955u+fbjfw43r4Afl9Ruo6H ihNfJ9Q6mPkg0/Vn//MPq/9fHpf6qDjldXrVqQwuD/u8M/2z53s+ofXLpNcP tB9n7DU6np+u+eW9/TJf3+v5tZk6xcbB1ans9/IGl0f+fJe3fj2eN/y+ovQ6 wZuHfS/+8YcB2jzQ+uanRcdpQz86DhpcHli/bjT8411/vssL/joJIYQQQggh hBDtcv1cff7z+vH5+unfx33P9s/2fHGyvq135fpT8ZeRr9vm62KAOmXzs0v7 25X7zE3HX8ahy30/+TgtnR9Mnxcer1N+HAOvX8Z8LV6+gKcGvmnOV4SJg8uj /vkQtc6N8idG67eSx3pSfzBvHmP6mPWqdnxFqDjlfi+4OmH9APzjna8Tcvtl Dl1Mf5zreFhdf/38uRHU+bEf4twN8nGy3Q9up4/yBcSMtxGl30oeaH1cnHQe AUdsHzp22N+3+fwRilbGWwghhBBCCCGEEEK0zrx+Y+vnu8r7h/npj+mYn0n7 Tp6iwzIPHOUj28qvhs/Dd1293Tp5xYnZj3W32z/T8/GVHuu+kzH6c+N66+HG G7XvZPk6ylOnMbDnh8HnlynvUw3wL4X0rzlc3QfO2397fTxvxdTPwOcTNaL6 U8X4TPh9RS8O/N49+L7nL7rPqXIctD57HlN9hL3gr1NMHJz+zeH+8LtG6oQn Zh9yfup94Xloq8+dEEIIIYQQQgghTqd9v4zPPA6+TjF9kY51zgfurZ73j9qf s67j936trxfx5DGGry8Al4ftD4fSnwfveMf2x+Hps5X28+TNI0Y/Kk68vrdf ptxnkuU+akqXLw/rx4r1y/DXKddl98ugfY/pOjqf/zEH6wvA5ZH2g2O7H9xO f2k/81PjsOrnfdNRcdrQj46DBpcH6vmFbeAfb67nJ4UQQgghhBBCCOFBPu9X Xgc5TByfy9i8uNc66NT/95qX3yoP1WlKv9xXgWW+GeeXGdsP0vxGed8ZDI9/ ndbFn89W/kdf/d1usBlc3L/atyjdv8gvjr1PUfqmZ/oWz9sXgK6T9YGIqhMq Dlrf9Ex/6T7Oc+PUX6PjrafsL0H51VD617D20Su/T3n9Ml5+/DqHLnYdms8f ZX2j7DW3XybORxYTB6+P8gWk90+4PGL3B+Qf7xh99jzQz5MYuDzqfYq94R/v GFrJQwghhBBCCCGEEEK0zjx/BMu84LGOrXuuXR9J90WaH/9U6uucaF+Rdxy0 fpSPbCu/mp/+2L6vvr4A/jrV9dbHsf4+KP0xUP6Jss+A11eEjYPLI1/nxPZD yuGp0xjyy8zRH3uNjuena/eB3n6Z8jq9fx5pf1H28cb7TFL/MQpcHul+WLg6 2fkQ238VhfxRU1gf0Zj99XjrFBuHXT86DppW8kDDX6d0H2x/Yr5fCCGEEEII IYQQYjnH8xvpPkzL5z9snTad55+Ov4yofmFLj48zb91LdZqnc3DbX2o/rBvd 3Xg8/LH1MN95O1we9f4JbPP+uDrVfZxR69wov0y0fit5rCf1k/DmMaaP6S/T jq8IFae8nzDAZ3LpXxrrM+pDe+PN6pex+78Y/4fB6yMzUPWK6bMVV6eYOHh9 tC/A4rSh30oe/qTXVX6/zCN4xyMWXB7ofaON+vykF62MtxBCiK35FzYKcIM= "], {{0, 0}, {99, 99}}, {0, 1.}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], {1755., -189.}, ImageScaled[{0.5, 0.5}], {360., 360.}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.759423264061493*^9, 3.759423273815372*^9}, 3.759423418790599*^9, 3.759423510769967*^9, {3.759423785268875*^9, 3.759423798765862*^9}, 3.759423937867128*^9, 3.760446937293524*^9}, CellLabel->"Out[26]=", CellID->412578947] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"BakersMap | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[622, 23, 168, 7, 70, "Subsection",ExpressionUUID->"b45ccb9d-5af1-419b-8628-8773e6fe5b83", CellID->462042388], Cell[793, 32, 111, 3, 70, "Text",ExpressionUUID->"caa95065-9b46-4d66-a0ba-8b1c23348b01", CellID->993746465], Cell[907, 37, 1154, 26, 70, "Input",ExpressionUUID->"7e396877-910c-4ec7-8856-1af075d59a3f", CellID->226568401], Cell[CellGroupData[{ Cell[2086, 67, 267, 6, 70, "Input",ExpressionUUID->"c0749fea-19d2-4dbe-a351-3e966f670a55", CellID->549967292], Cell[2356, 75, 2072, 40, 70, "Output",ExpressionUUID->"cbf0454c-ff88-4e46-b0ae-56dcc9e1f14e", CellID->81435706] }, Open ]], Cell[4443, 118, 578, 13, 70, "Text",ExpressionUUID->"3a8d5faa-2ce3-4591-8a12-6dce739066f4", CellID->76092401], Cell[CellGroupData[{ Cell[5046, 135, 7474, 185, 70, "Input",ExpressionUUID->"823fe2fb-d19c-4c92-8b1d-3d7dd076784f", CellID->653848317], Cell[12523, 322, 2857, 54, 70, "Output",ExpressionUUID->"95804133-c6ab-4cbf-afd7-cd61fd2efc7a", CellID->960412799] }, Open ]], Cell[15395, 379, 517, 12, 70, "Text",ExpressionUUID->"ac61df0c-7663-4b46-898d-f3379c0095ef", CellID->508492582], Cell[CellGroupData[{ Cell[15937, 395, 8594, 203, 70, "Input",ExpressionUUID->"570f3e95-193d-4941-ad2b-972f892f5685", CellID->735531528], Cell[24534, 600, 12942, 239, 70, "Output",ExpressionUUID->"52ac6d71-86a7-4ce6-99ef-56772d1a4c67", CellID->137972723] }, Open ]], Cell[37491, 842, 568, 14, 70, "Text",ExpressionUUID->"22d69d83-b596-4f81-ae9d-5920c5cbf8a9", CellID->148598144], Cell[CellGroupData[{ Cell[38084, 860, 8671, 204, 70, "Input",ExpressionUUID->"88406f3f-c7fe-4d67-a048-6141354a0868", CellID->176302765], Cell[46758, 1066, 11201, 210, 70, "Output",ExpressionUUID->"306c5393-4fd2-4509-92e3-44a569c574ac", CellID->412578947] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)