(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 87144, 2045] NotebookOptionsPosition[ 82196, 1920] NotebookOutlinePosition[ 84074, 1976] CellTagsIndexPosition[ 84031, 1973] WindowTitle->Cartogram | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->904125756], Cell[TextData[{ Cell[BoxData[ StyleBox["Cartogram", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " works with a single geographic entity:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7717057005372334`*^9, 3.7717057125690465`*^9}, { 3.859387084750602*^9, 3.859387095216395*^9}}, CellID->629838371], 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["Cartogram", "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["Cartogram", "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/a2917966-bce2-4188-8bc0-fb05ae17acdb/"}, "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], "Cartogram"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Cartogram"], BoxID -> "Cartogram", Selectable->False], "[", TemplateBox[{"\"Central Europe\"", RowBox[{"EntityClass", "[", RowBox[{"\"Country\"", ",", "\"CentralEurope\""}], "]"}], "\"EntityClass[\\\"Country\\\", \\\"CentralEurope\\\"]\"", "\"countries\""}, "EntityClass"], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771691051452855*^9, 3.771691073658449*^9}}, CellLabel->"In[15]:=", CellID->254769753], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzN1FGSgyAMBmCVFfAYPcReZI/Q2ffe/22xFQiQYELcTv8Z29FCPgPW2/3x c1+mafoOx284NkHmkP1DMkea+cjg9NwQ3dmcA676kHVdOcQzBcYyvD+MPjNB 45Cwbqx9FQSI99BIIXvI2YhHwXqYLDQGB4nrBnvY46nUBh9Jjo1RGAQSEuoC gm+cI1+AKMM22KvVEBSCGPiTzBAoZMzAAQrBDBRhCaWypKBK6zCFpDjnliLM fT8vH+OeWZqcLBYf6BiHEr7RTRchjkaO4IYAcSmkYS4jKMWEbGaoOEKUioFR EI2RFGMI4wIihjQuRAyBiAXaqImEDBiU0hoqBFMQIipjBqLgxq6MEjVCCTrD soRgKIiM9ASj2I5sdAWj2fJo9AW9Yc+ACwimofqLnBOqdxbXULx6mYZaEG3H //UBmXcYg8jHGa8pYmmgDXE7IoO3ZM2AEaIuUpvXG+UpNmTIKJsAV/GRRbGi cKeLOJn4rR7YW5DuRK6x5buVIILyH5Y/dEZ+Ew== "], {{0, 0}, {100, 53}}, {0, 9}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "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}]], "Output", TaggingRules->{}, CellChangeTimes->{3.771691087632106*^9}, CellLabel->"Out[15]=", CellID->66102363] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["A list of countries:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7716922305885677`*^9, 3.771692232439621*^9}, { 3.7716924366982074`*^9, 3.7716924460841002`*^9}, 3.859387074075232*^9}, CellID->171041979], 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["Cartogram", "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["Cartogram", "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/a2917966-bce2-4188-8bc0-fb05ae17acdb/"}, "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], "Cartogram"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Cartogram"], BoxID -> "Cartogram", Selectable->False], "[", RowBox[{"{", RowBox[{ TemplateBox[{"\"Germany\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Germany\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Germany\\\"]\"", "\"country\""}, "Entity"], ",", TemplateBox[{"\"Poland\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Poland\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Poland\\\"]\"", "\"country\""}, "Entity"], ",", TemplateBox[{"\"France\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"France\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"France\\\"]\"", "\"country\""}, "Entity"]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771691287086506*^9, 3.7716913204601994`*^9}}, CellLabel->"In[16]:=", CellID->604128821], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzV1tERgyAMBmBIJ+kE3aUjeH3v/m9FEdFKEiI/9JqeZ6023yUoeJ/ez4mc c4+wvcJ2s4X9H/b4N8M5JhvAcPsoXwEEdgbrAYyQWSkKYeitAxv9EQjwewNF CAYR9UbGEL0NAhpCo0CGNN6dqxjRqWggFLZRicgKzZ94VA07eS4kKdpLUA2M IJdhGaZ1yrtiWO+FnmXgCb/uvD8ZJ2nLZCBCXr+FXk9OZCGOobUtP3cVBBWA ilJyGr1X8+RcIlglEvsE2qgvBybj692ZJ2hZW1IYjWOICIZoMiqJSqWtjjqk lRhiVCBMr6DNwhgy1EzE94TOht4xEJGM9PX4M85gz1xMWSCkNRxiXIoPzm4r xg== "], {{0, 0}, {100, 47}}, {0, 3}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "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}]], "Output", TaggingRules->{}, CellChangeTimes->{3.771691349906459*^9}, CellLabel->"Out[16]=", CellID->721279089] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["A list of countries using user-input values:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7716924519115515`*^9, 3.7716924856622257`*^9}, { 3.859387103522355*^9, 3.8593871075866823`*^9}}, CellID->836135522], 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["Cartogram", "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["Cartogram", "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/a2917966-bce2-4188-8bc0-fb05ae17acdb/"}, "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], "Cartogram"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Cartogram"], BoxID -> "Cartogram", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{ TemplateBox[{"\"Germany\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Germany\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Germany\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "100"}], ",", RowBox[{ TemplateBox[{"\"Poland\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Poland\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Poland\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "101"}], ",", RowBox[{ TemplateBox[{"\"France\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"France\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"France\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "150"}]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7716913916936436`*^9, 3.7716914706634026`*^9}, { 3.7716918266082397`*^9, 3.771691843433205*^9}}, CellLabel->"In[24]:=", CellID->306048215], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzV1lsOgjAQBdB2XIkrcC8ugfjv/v8sQkmRzgtui4whQsU53kGi9+H9HCiE 8EjbK203X/nf4a+rGSEw3QBGKKt+BhAoDNYDGKmzEgph6KMDG+0RCHC+gSLk C9IB6UBcyRCAHncgRPgDA6EoQKnQ+CCadq3tTcBYtClkBMaAC7Uc9iT527+D cCCmTABBIVwh4vwU48ZgpLTqmFPqG5cy5vmueYh16WObjy1ErACWKMuCPqvV iCzKj8AQJcP1l5MUBzxBxH98/ZKsSjJAxCHDSEgKLIeAAIkuBoPoozo+LLyx haDE9D+hsVGdWAsiG3k3L6MN5pXdLSuE9BsOMXbVBwChKjY= "], {{0, 0}, {100, 47}}, {0, 3}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "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}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.77169141690624*^9, 3.771691439446941*^9}, 3.7716914793012857`*^9, {3.7716918357677145`*^9, 3.7716918522327023`*^9}}, CellLabel->"Out[24]=", CellID->180411849] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Options", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellChangeTimes->{{3.85938712781007*^9, 3.859387128393289*^9}}, CellID->890561554], Cell[TextData[{ "Run ", Cell[BoxData[ StyleBox["Cartogram", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for just one iteration:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.771692509158371*^9, 3.77169252628061*^9}, { 3.859387144137609*^9, 3.85938714821771*^9}}, CellID->520459324], 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["Cartogram", "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["Cartogram", "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/a2917966-bce2-4188-8bc0-fb05ae17acdb/"}, "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], "Cartogram"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Cartogram"], BoxID -> "Cartogram", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ TemplateBox[{"\"Germany\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Germany\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Germany\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "100"}], ",", RowBox[{ TemplateBox[{"\"Poland\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Poland\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Poland\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "101"}], ",", RowBox[{ TemplateBox[{"\"France\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"France\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"France\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "150"}]}], "}"}], ",", "1"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7716915215971403`*^9, 3.7716915271153793`*^9}, { 3.7716918565880566`*^9, 3.7716919244195557`*^9}}, CellLabel->"In[29]:=", CellID->715192840], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzV1lsOgjAQBdC2rsQVuBeXQPx3/3+2Qkkr82q5FLmGCBXnZAYM3qf3cwrO uUfcXnG7taX9G+25muEcUw1guDL0GUCgMFgPYMTKSlMIQx8d2DgegQDnGyhC viADkAHElQwBGPELhAh/YCAUBSiVkF4hzLvW8iYgJWyCbIEx4ALZiLmTfPf3 GHbE2NNuAUn45c37jcFIaZUaE03Eun6NsZ/vWgtRRx/bcmwhPAFYWlkXSKRS qhFZlB+BIUqGqy93UhzwRFKCVF+8JFVERDNsxC7DSMgKZlQyAiOGGDyizQow LJVoNCgISMz/Ew42mInhiWzk3byMNphPuksShPQMhxhd+QDHSio9 "], {{0, 0}, {100, 47}}, {0, 3}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "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}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.771691538511938*^9, {3.771691860100656*^9, 3.771691926123*^9}}, CellLabel->"Out[29]=", CellID->858297672] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell[TextData[StyleBox["Run it for five iterations with a width of 400 \ pixels.", FontSlant->"Plain"]], "Text", TaggingRules->{}, CellChangeTimes->{{3.7716925354500847`*^9, 3.7716925526201067`*^9}, { 3.7716926703252354`*^9, 3.771692693925104*^9}, {3.859387159705536*^9, 3.8593871907658787`*^9}}, FontSlant->"Italic", CellID->194306458], 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["Cartogram", "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["Cartogram", "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/a2917966-bce2-4188-8bc0-fb05ae17acdb/"}, "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], "Cartogram"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Cartogram"], BoxID -> "Cartogram", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ TemplateBox[{"\"Germany\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Germany\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Germany\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "100"}], ",", RowBox[{ TemplateBox[{"\"Poland\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Poland\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Poland\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "101"}], ",", RowBox[{ TemplateBox[{"\"France\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"France\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"France\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "150"}]}], "}"}], ",", "5", ",", "400"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771691551253807*^9, 3.771691554013424*^9}, { 3.771691862531113*^9, 3.7716918629559765`*^9}}, CellLabel->"In[26]:=", CellID->447693131], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3cGOJUeBheGCWcASiSeYt5gtS7aM+gFAGDQbIxkkNK/ES96xp0x19a26 NzMyI+JEZHzfYmTs7q5bmRHnF7TH/s8//e0Pf/nly8vL33/94//5wx//+bsf fvjj//73b378D1++//v//PX77/78++//8d1fv/vhv/70Hz/+yV/94uXltz/+ +J/++AYAhf4CALu9hiPdLgBmIhwAFBEOAIoIBwBFhAOAIsIBQBHhAKCIcABQ RDgAKCIcABQRDgCKCAcARYQDgCLCwQr+tSX9AWEmwsEiNtuxWRZ9GdCX3dKf 9FKEg0UIxyUJR4RwsI6T7RCOoP2B0I4OhIPVCMdEqvRCPqoTDlYjHGNq0Qjh aEQ4WM2//v0bFseSoSDVdUuGcNQiHKxGOEYjHNMRDtbxtvml1diflZ7fxcc/ OV3ROiejSj6q/4IzEg5WUL0UeyLSriw7P8DIejbigD4fuM/jqvfSvhIOVtMy Gq3GvPOXa6fW5HJAxfcoHKymRRdaL3nnL9dOejuXVvE9CgeradGFRkue+rpV pGeSz1V5ucLBgs4PcvXpbvoBznyw59IryHFn3rtwsKZ2Q126yU0/yROv01G6 IdGpo6ayC/Mt4WA13Zb50y+X+jAf3f6/Aq8f48mMpOeN+s5fIuFgNT2X+eOX S32Yj27Csarzl0g4WFNwsQeRXi/Czlwf4eDy0gs9ro/P6uOkZMeNds7cKeHg 8oqGtN1KD+huQz4dk9yw0daZOyUczOXRBhb94OfO/NzpbK5Kzymjs8PXUDiY y6MBLPrBz535udPZnJSeO0Znh6+hcDCmAxtY5RdZ0/Nt6bZjdHb4egoHAzo8 gCd/+rLSA0bMsRsqHIzm2PRV+UWWlV4vYo5dUuFgNMemr8ovsqz0ehFz7JIK B6NJj+iK0utFWOklFQ5GdnIPq/wiK0jvFmGlF1M4GFl6UFeR3i3yii6mcDCy 9KCuIj1aDGH/xRQORpYe1FWkF4sh7L+YwsGYqm9ji1/zMtKLxRD2X0/hYEzp KV1LerEYwv7rKRyMKT2lq0hvFWPZeT2FgwGl13Qh6aFiIPtvqHAwoPSaLiS9 VQxk/w0VDgaUXtOFpLeKsey8ocLBaNJTuqL0XDGKnZdUOBhNekQXlV4s8vZf UuFgNOkFXVR6tMjbf0mFg7j0ZPJVerro6vCdFQ6C0jPJ59J7Rlvnb65wMIjX ybqpyQDSw0YrtW6rcDCa9GoiHNdU8ZIKB6NJrybCcU0VL6lwMJr0aiIcV1P9 kgoHo0mvJsJxNdUvqXAwiPRY8lV652jr/G0VDgaRHku+Sg8bbZ2/rcJBXHom uZceNjo5fGeFg7j0THIvvWf0c+zOCgcjSC8l30iPGf0cu7DCQUR6GtmQ3jN6 OHx/hYOI9C6yIT1p9HD4/goHjaSXj1PSk0Ynx263cNBOevw4JT1ptHXmagsH TaXHj+PSw0ZbZ+61cNBUevw4Kz1vtHLmXgsHTaVnj7PS80YrZ+61cNBHev84 KD1vNHT4OgsHfaT3j+PS80ZDx66zcNBHevw4Lr1tNHTsOgsHfaTHj+PS20ZD x66zcNBBevk4Jb1tNHTsRgsHTaU3jwrS20ZzpfdaOOggvXyckl41Otl/o4WD dtKDRx3pPaOT/VdbOGgnPXjUkd4zOtl/tYVjHC+PpT9amfTOcdynb/P5wvTf NxrZf8eFI+hJKWZvx6v0CnLc20vcszCd9412dl5t4eivqBdTh+OmHVN59BI3 hyW1crTz/F4LR3/HwjFjQdJDyIa6r/t1bdKDxyk737Vw9CccDKLu6/4iHPPb +a6Fo7OT1Xhrxyw1SU8j30gdg/QcUmbzhQpHZ1XC8SQoY0rvJT9Jn4Lb2yK9 /wPG9PxVCkd/C4bjph0J6Xe+V3oj+cTzVyYc/QkHfaTf+V7pjeQTz1+ZcPTX Lhwv//7tj/S3+Ln0ji4h/ZLLpNeRz22+OOHorGk1Pu3IUNKzekFvDzb7Zkvt 3K4OI8lHm69PODoTDk5Kv8OaShesw2au5tiLE47OOofjif7fe3px53P30Pq/ sj6Klu3RD2gzqxd3+JUJR2fpXHzV/3tPze+8bsIhHC0dfmXC0V+6GD/r+S2n hvcCer6mrJObFhneSZ1/WcLRU7oV39j5aat84+n1nViV5z+FY7MWnN9JVXlZ wtFHthGPPP+0Vb7x9O5eRJV3cW3pPZ5AxactHH1kA/HI809b5RtPL+5FVHkX 15Ze5QlUfNrC0Vo2DU9sfuaKDyG9u5dS8b1czN1CBid6NNUftXC0kC1CXbWe SXpuL6XWS1lNer8zWjxJ4TgjPeo9VHxc6bm9joovZU3pLe+n0QMUjlLpIc9o 8RjT6zur6u9iQek576TdAxSOUukJz2jxGNMDPKvq72JB6UXvpN0DnDccLdbs +Zfjpd4zfxGOo2q9gsWlR72hDk9v3nDcdox5z6+1lFoPM73Bs6pypHmVnvnK +jy0C4ejz1dZ3MdnVfQw0wM8sVrHm5073Gf2z+j50ITj5FfhkY9P79HDTG/w rGqdcG47/klZkRYc0OdxCcfJr8IjH5/eo4eZHuBZ1Trh3ISj0NThuPVqx+YX op30PI+u4iFf2Z7tLVrvPfN+97W+1Phfxto8nnuzh+N2btKb/uK0lt7sUdwm /FfHzuvMYh/eduFoJL1hxKRneyzpi7iK/nMtHC2k14uY9FSPJX0RVyEcfb5Q B+kBIyy92aNIX8QlfHn3Gxn9v7RwVJTeLUaRXu689F2kh2A7hIPrSc/2WNL3 kk56tkM4uKT0Wg8kfS+5IOHgktJrPZD0veSChINLSq/1oNJ3lItIheOlzb/i AV5UY4fqt4+ltA7H5h3v+bVYRHqV51Dx6rGa8+F4efePs3v7g5fP/hl3T5z8 DO8/DCtLj/FMal06FiQcXEl6jGdS69KxoNJwbN7cPT/m0U/89Mvd3pXoyU85 9kW5mPQYz+TgZMC+cPS8+Hu+Yv9PxRTSSzyut7v88c/AAaOFA44JzvL4OiwJ SxEOriG9zUPrsCQsRTiYXXqVR9dhRljNmb+rKj0YoBobKm4FvNkfjvRCwCfS wzycpnMBr/w3DqaW3ulRVNwE2CQcTC092KOouAmw6eT/53h6NlhderDzak0B 7OfvqmJq6dkeQoehgPcO/DeO9FTAV+nNHkWLcYBHhIOppQd7FC3GAR459nsc 72/uTUrISQ/2QGpvAzxUJRyP/hK0ll7rgdTYA9ilz786Nr0uXFbRlvYZ8JQO Fxledf53jqdnhqs5MKTv/2qXRT/l0ecv+ilQl3AwtQP7+f6v1hn3lh59/qKf AnV1Dsebu+v/6M/DproTWm/yD7r7MKWf+cC3DKWC4bj7j/Bc5yP66Q7vWfsn P2zPzz38UYWDblLh2JReKWIeHYDsgXxTOv5NkwERwsEg0iduLwkA4WAQ6RO3 l3CAcDCa9NHbSzVY1rDheO9tT7KDRgfpswZsmyIcb9KrRivpkwUUEA5GkD5Z QIG5wnHTjitKnymgzHThuGnHhaSPEnDEdOFITx0VpA8RcMpc4UgPHnWkzxFw inDQX/ocAacIB/2lzxFwylzheJWePY5Lnx2gghnD8So9gZRJnxegmnnDcdOO eaRPClCTcNBB+qQANU0djpt2DC99QID6Zg/HTTvGtueVdT4wwEkXCMd7kW1k 0+bbyR4boIhw0MHm28keG6DIxcLx3p69orX3r2PPDwPGd+FwvOmzkHy0/0VE DgZwzLXD0W0h+ajoRaROCHDAtcPxpsNOclL6jAB7CQeDSJ8RYC/hYCjpkwJs Ew5Gkz4swIYVwpEeQsqkzwuwQTgYTfq8ABuEgxGkzwhQ4NrheL9LwVVkU/qk AAWuHY5X6VFkl/QxAfZaIRyv0rvILuljAmwTDoaSPibAthXC8VL4z00iK3VO gJ0WCcfdKKUmkZ2yBwZ4brVwvGjHJLJnBnhiwXAwvvSRAZ4RDgaUPjLAM8LB gNJHBnjm2uFI7x+73D78nW/AyISDoPQBAY4QDoLSBwQ4QjiISx8ToIxwEJc+ JkAZ4WAE6ZMCFBAORpM+NcAG4WA06VMDbLh2ON6kt5AC6cMCbLhwONL7xxHp UwNsu3A4btoxofSRAbZdOBzpCaRM+rwAewkHg0ifF2Av4WAQ6fMC7CUcDCJ9 XoC9hIOhpE8NsE04GEr61ADbhIMxpY8P8JBwMLiPLzR4qIDbdcMRHDpaSx8u WJ1wMJ304YLVCQfTSR8uWJ1wMJH0sQJ+IhxMJH2sgJ9cMhzpeaOJ9LECfiYc zCJ9rICfCQeDS58m4J5wMKb0IQIeulg40mtHHelzBDxzpXCk1250UzyuyMkB igjHOqZ4XJGTAxS5TDjSgzeu84+x9eNtcyKAVmYPR9NBm12VB/vxOVd8+Kfe PRAyezje1B20eXV+5rN8VKCiy4TjTpURnsikTzv7sYFjhOMaJn3a2Y8NHHPJ cFQc5Cmkn/c3Xj77bZExPypwzFXDcVsmH+mHfe/uI435IYEzLhmOT0XXvaH0 c70UjxT2EI7ZpZ/rpXiksMc64biTXfuK0g/yUjxS2GPZcLz6OMKHp/tsAI6K Pr/r8Ehhv8XD8cTJ6a7dh7KvzjEeKewhHE9U3BDhGJPnCQcIxxPCcXmeJxwg HEHCEeGRwknCESQcPXmwUItwZJ3vhYnbSTigFuEYxKdjZcpqOZNm4I5wDEI4 mhIOqEg4WIFwQEXCwQqEAyoSDi7vQDWEA54QDi5POKAu4WAFwgEVCQeLkAyo RThYgWpARcLBOoQDqhAO1iEcUIVwsA7hgCqEg0XsqYZwwB7CwYJUA84QDhYk HHCGcLAO/wsVVCEcrEY44CThYGXCAQcIBwBFhAOAIsIBQBHhAKCIcABQRDgA KCIcABQRDgCKCAcARYQDgCLCAcB+/wc8l6rC "], {{0, 263}, {531, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{265.5, Automatic}, ImageSizeRaw->{531, 263}, PlotRange->{{0, 531}, {0, 263}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.77169157790551*^9, 3.771691886632639*^9}, CellLabel->"Out[26]=", CellID->99371429] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell["Return all steps of first five iterations:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771691761079505*^9, 3.77169180044121*^9}, { 3.7716927106074777`*^9, 3.7716927146087914`*^9}, {3.859387182199061*^9, 3.859387184566049*^9}}, CellID->794783532], 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["Cartogram", "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["Cartogram", "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/a2917966-bce2-4188-8bc0-fb05ae17acdb/"}, "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], "Cartogram"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Cartogram"], BoxID -> "Cartogram", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ TemplateBox[{"\"Germany\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Germany\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Germany\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "100"}], ",", RowBox[{ TemplateBox[{"\"Poland\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Poland\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Poland\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "101"}], ",", RowBox[{ TemplateBox[{"\"France\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"France\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"France\\\"]\"", "\"country\""}, "Entity"], "\[Rule]", " ", "101"}]}], "}"}], ",", "5", ",", "200", ",", "True"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7716916710244102`*^9, 3.771691673203582*^9}}, CellLabel->"In[22]:=", CellID->552416241], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3U+oXVnZ5/F0h4DEoCU4UVEslGBwFLhIY2qgE7VRxNgWCk40aeulQQ3U 223TCCooAZ2ZgSag6OAStEAhKCJIBP8EBAcGHCgqShlJHATKgqiDlLX7lgcO p87ZZ+21117r+T1rre9nIHlvbs6+e63n+RJ5qfLRC5fe/8R/PXbs2H++5Og/ 3v/R//v2J5/86P/7H48c/R+Pf/I//9d/fPJj//O/f/J/f+w/Pvbkf7tw/OiL rzlx7NgX/8uxYy/8egAAAEAZTwBANMs0mT0LQNVIEwCHSBMAh0gTAIdIEwCH SBMAh0gTAIdIEwCHSBMAh0gTSntqJvXP68jjQeqfrizShNJIUzLS1N6z4A1p CgtXKByoJktFmmCDNIWRpi2kCZaI0rCgQvvS1CTShKLi/7IUmazkiHmIYd4o xScry4ekfWDyWZEmFEWaNiUnIkGW5y5/keSzIk2wkaVRc5OS/QPjJdegVXMP kDTBBmnq3NwDJE2wVC5HSz457YnqXa9S/KiQJlgqF4pcOYp/onrLqxQ/KqQJ lkoExIB6odsRPyqkCUXtW/bw7zqx76XU+12x+MkhTSgqvPWWnUmw76XU+12x +MkhTYiUtsul62FpvVza7W5AzLyRJkSKWd60P1WL9Vpp97oBMfNGmhAjZnNn fXON1AvdjpiRI02YJX6R536/f+qFbsrkpJEmzBK/yHO/3z/1NjdlctJIE2ZR 50FJvc0NCkwaacIs6jwoqfe4QYFJI02IpA6DnnqPGxSYN9KESOow6Kn3uEGB eSNNiKQOg4x6fVsWmDfShEjqQuip97hBgXkjTYikDoOeeo8bFJg30oR91CXw S73Q1YsZP9KEfdQB8Eu92dWLGT/ShDB1BjxSb3aV5g4eaUIMdQwcUa94lRJG jjQhhroHjqi3vEoJI0eaEKYugUfqRa9Y/OCRJoSpM+CRer8rFj94pAn7qAPg l3q/qxczfqQJ+6gD4Jd6s6sXM36kCaPU2++aerOrFzOBpAnqRa+PerMrFj+W pAnqRa+Per8rFj+WpAkDdUqi3vIqxc8kacJAmpKot7xK8TNJmrCm3vUqqXe9 SjHTSJowEKUF1FtepZiZJE0YSNMC6i2vUsxMkiYMpGkB9ZbXLTCTpAkDaVpA vdx1C8wkaZI4tkPyY6jXuhqBQ1t/Xb3lVQoMJ2mSIE11CRza+uvqLa9SYDhJ k43dFjmp04pk3ysyelxbX1RvecVGZ5I0GYjp0lagjHulXXxX8h6seunrMHp0 pMkAaapI3oNVL30dRo+ONNmYVafdUtlQV0HD8oRX1CVwZ/SUSJMN0uSW5Qmv qEvgzugpkSYDyV2SlEqdiuIMznCfwGIa18CV0bMiTQYypqloqdTNyGzY8/9K kwuvp3EWJGJOiTQZIE0SA2nyKuaUSJMB/2nSNqScXOdTQsyeCuuR3dzzKZGL v/3tb1/96lc/9KEPnTt37rnnniv6rCqQJpVc51NCzM4KS5Ld3PPJnosf//jH r3rVqz7ykY/86Ec/+v3vf1/0WZ6Vy9FkmhKqpU6IhRy3KrO53drCpEl45by5 +OMf//jKV77y1q1bBs9yjjR5k+NWZTYXXBuZNAmvnDcX/+ffbJ7lh02F5kp+ HXVCSsl4466oqzMh+b3y5uJd73rXD37wA5tnzbJwW0c/rRZp76gOSX65bt8h dX7GLXypvLl47LHHfvazn9k8a5YlS7rv02qR9o7qkOSX6/YdUkdo3MKXypuL c+fO+UzTyvLNNa5KdlsvMvqO6oQUtGh63Av0oaIirZGm5Z9Qka0XGX1HdT8K WjQ97pGmgObTFPicxqgrUlD2uXJltA+5CmNZp67StKJe+mqoE2JBPYzW8gaE NOWl3vhqqLNhQT2M1kiTwbMWUu99Zda7PPrFqqknsQWkKSPVjldqvcijX6ya ehJbQJoyUu1429SZSaeeR2wjTchIHZh06nnENtKEjNSByUY9nqgjTaux3/z1 rrTPRBbqkOSXNqjIKHuafv7zn2d/1mr+N3+9K+0zkYU6JPmlDSoyypums2fP /va3v014Vq4dyftpiKQOSTaD13+deIcypulf//rXK17xir///e8Jz8q1I3k/ DZG0PcloIE1uZEzT9773vfe9731pz1LvFhJpS5JRri1ALrnS9Itf/OLMmTO/ /vWvlzxLvWeYTV2UpbIMP0pYnqaf/OQn73jHO972trf98pe/XPgs9Z5hNnVa llo4/ChneZq+//3vv+lNb3r88cf/8Ic/5HqWeuEQRd2VRAsHHjZy/Re67373 u6dPn3766aezPEu9c4iibkyiHPOO4gK5uHfv3u3btx8+fBj5UV/+8pc//OEP pz1rTb1tmEHdmEUipxoq+3JxeHh44sSJo/E7ODh48OBBzEf985//fNnLXnb0 n3OftUm9bZhBXZdFYkYaQvtycfbs2fUEXrt2LfLT3vCGN/zud7+b+6xNm5M/ +kX4oa7LIpEjDZV9uTh37tx6Ai9cuBD5aW9961v3/U/3Bp6VRriSWJm1+zbB CfwMk98AV/bl4qgwp0+fPn78+NEEnj9/PvLTLP/NA+q9BGlCQeFcHB4eHk3g xYsXIz9N+C9FUa9pX/LeXbgh+76eHBnSVIVwLi5dunQ0h1evXo38NNLUibx3 R5qwK5CLu3fvnjp16uTJk/fv34/8NCf/Kjn14jbF5so28d+5MOzPxZ07d86c OXM0mVeuXIn/NCdp2qJe7hZILg49G83F9evXj/6+dDSQly9fnvVppKlVkotD z0ZzcePGjYODg5s3b879NNLUEsllASujuXj+3xI+jTS1RHJZwEoV/7MFC6lX vDKSOwK2kCZskdwRsIU0YYvkjoAteXPx2GOPOUzTQJ3iqG4H2JU3F+985zt/ +MMf2jxrFvXS10F1O8CuvLl48sknP/vZz9o8K4F69f3S3guwK28ufvOb37zy la88+k+DZyVQB8Av7b0Au7Ln4lvf+tarX/3qL37xi0eB2vrXY8rTtEkdA18C Z6K9JnSrRC7+/Oc/f/rTn37sscde//rXP/fcc0WflYtxClwJH4LwUtAzy1yQ Jp/ChyC8FPSMNK0Y16Ai6ptBp0jTijoAfqlvBp0iTSvqAHinvh90hzStqFff O/X9oDukaUW9+n6pbwadIk0r6gD4pb4ZdIo0ragD4Jf6ZtAp0rRFXQKn1NeC 7pCmLeoGOKW+FnSHNK1s7aAwAm5pLwi9IU0r6r2vgPqK0BfStKLe+wqorwh9 IU3qjfdLfTPoGmlSB8Av9c2ga6RJHQC/1DeDrpEmdQD8Ut8Mukaa1AGog/qW 0B3SpF76OqhvCd0hTeqlr4P6ltAd0qReeu/U94NOkSb16nunvh90ijSpV987 9f2gU6RJvfrVUF8U+kKa1BtfDfVFoS89p0m96y1Q3yGaRZqwhPoO0SzShGTq C0TLSBOSqS8QLSNNSKa+QLSMNCGS+rrQF9KESOrrQl+6TZN60RexfwvhTaFP pKlG9m8hvCn0qas0mS1yIbNec/krF7sHYFpXadqSoxbFCV+8xKOBSKTJOeGL l3g0EKnnNK0UDcsS6oMBlEiTukB7qQ8GUCJNo9RZeoH6DMrq4R2xBGkapY3S ivoMyurhHbEEaYoX2RDSFKOHd8QSpMlSz2nq4R2REWmyRJrafkdkRJos9Zmm ft4UGZEmS6Sp7TdFRqQJRXUVYWREmlAUaUIa0oSiSBPSkCaURpSQgDShNNKE BKQJpZEmJCBNKI00IQFpQmmkCQlIE0ojSkhAmlAaaUIC0gRLpAmRSBMskSZE Ik0AHCJNABwiTQAcIk0AHCJNABwiTQAcIk0AHDJOEwBEMksTAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAteQIAolmmyexZAKpGmgA4RJoA OESaADhEmgA4RJoAOESaADhEmgA4RJoAOESaUNpTc6h/WEcen6L+AcsiTSiN NKUhTU0+C96QprDJEPVWJ9IEG6QpjDRtIU0wQ5dW0ipEmtp4FjyI/JvSrGSl FcxJCTNGKb5ayz9hyYsknxVpQjmkaUtyJRIsf2iWF0k+K9IEG7kyNSspJT4z UnIQWjX3AEkTbJCmzs09QNIEM0WLtPDDE56o3vUqxU8LaYKZoqHI0qJZT1Rv eZXip4U0wUyJepSmXuXWxE8LaUI5gZUP/64T+95Lvd8Vix8e0oRywltvVphk +95Lvd8Vix8e0oRICbtcOh1mtjZLuNoNiJw30oRIMSuc8EeqsLVWwr1uQOS8 kSZMilneud9fF/U2NyVy6kgTZonc5Vnf7J96mxs0OWmkCbNE7vKsb/ZPvccN mpw00oRZ1JHQUO9xswKTRpowizoSGuoNblZg0kgTIqnzoKTe4GYF5o00IZI6 D0rqDW5WYN5IEyKp86Ch3t3GBeaNNCGSOhJK6g1uVmDeSBMiqfOgpN7gZgXm jTRhH3UPPFKvcgsix480YR91BjxSr3ULIsePNCFMHQNf1GtdsbmDR5owSd0D R9T7XaW0qSNNmKTugSPqLa9S2tSRJoSpY+CLesurFz94pAlh6hj4ot7s6sUP HmnCPuoMeKTe7BZEjh9pwj7qDHikXusWRI4facIudQD8Uq91CyKHkDR1Tr3r VVIvd8XiJ5M0dU695VVS73fF4ieTNGEgUDOp97ti8TNJmjCQppnU+12x+Jkk TVhTb3xl1Fteq8hpJE0YiFIS9YrXKnImSRMG0pREveK1ipxJ0oSBNCVRr3gL AjNJmjCQpiTqtW5BYCZJk8SxF1P9GOrlrsboiW0tl3bHKxUYTtIkQZrqMnpi W8ul3fFKBYaTNNk4FkH446lWvhajx7X1RfWWV2x0JklTaTFR2gqUfa+0i+9K 3oNVL30dRo+ONJVGmuqS92DVS1+H0aMjTTbmBso4TSvqKmhYnvCKugTujJ4S abJBmtyyPOEVdQncGT0l0lRacpQkpVJ3wkLpMwwILKZxDVwZPSvSVFreNBUt lboZOW2+Ud5TWi68nsZZsBd5SqSpNNIksflGeU9pufDCGofCXuQpkabSqkiT NiPl5Dqf7GJWVZWOQuYeEWkqjTQJ5Tqf7GJ2VtWQQuYeEWkqpGiRwmlKqJY6 IcXluFKl9XZr85Im7ZVJUyGkyZUcV6q03nFtZNKkvTJpWs6mQnOlvYs6IaXk vXE/1NWZlvxqnaRpybbu+7RaJLygOiT55bp6n9T5GbfwpUhT8qfVIuEF1SHJ L9fV+6SO0LiFL9VJmlaWb65xVfLafZHdF1QnpKxF0+Pevj5UlKNNpGn5J9Ri 90V2X1Adj7IWTY97pKmKZ42aXNgln9MAdTmMZJ8rV3b7kCsyxoHqKk0r6gBU QB0PI+pJFMhbD9KUl3rvK6BuhhH1JAqQJvmzwtSrXxN1P4pTD2MLSFMu6nWv ibocxamHsQWkKRf1urdD3ZVs1COJbaQJS6iLko16JLGNNCELdVoyU08o6kjT aviHYFISPhC5qEOSX9qgIiPShOXUIckvbVCRkZM05dqRjB+FGOqE5LQaxc1f Q4g0YQltTPJajeLmryHUWJpgTBuTjMy2AJGcpGmgTrVRtyQDs8lHAtKENOqu ZGA2+UjgJ02b1GuHaequpCs65MiFNCGNOjDpig45ctmXi3v37t2+ffvhw4cG z9qkXjhMU6clj4yDjRJGc3F4eHjixImjITw4OHjw4EHRZ21Rrx2mqaOSR66p RiGjuTh79ux6Dq9du1b0WVvWzx39IjxQRyWPXFONQkZzce7cufUcXrhwoeiz kgl3s3Npi186NeEfI/y7cGg0F7du3Tp9+vTx48eP5vD8+fNFn5VMvaD9mtWE tazJiRV+esZpRHaBXBweHh7N4cWLFw2etZx6XzuS9+LCDdn9zskKRT6RNDkX yMWlS5eO5vDq1asGz1pOva8dyXtxpAmj9uXi7t27p06dOnny5P3790s/Ky/1 4rbG4Mo28d+5sDKaizt37pw5c+ZoLK9cuVL6WaWpN7sF9rcG7Obi+vXrR39f OhrIy5cvl36WAfVat8D+1oDdXNy4cePg4ODmzZsGzzKgXuuK2V8WsLabi+f/ zeZZBtT7XTH7ywLWfP7jvRmp97sy9hcEjCJN2GR/QcAo0oRN9hcEjGo+TSvq ja+D6naAXaQJa6rbAXZ1kqYV9er7pb0XYBdpwjHSBH+6StOaugTuBI5Fe1Po Vp9p2mLcAVcmz0F1KegcaRpIU/AcVJeCzpGmoe80TVJfDjpFmgbSFKS+HHSK NA2kaYr6ftAj0jSQpinq+0GPSNNAmoLUl4NOkaaBNAWpLwedIk0DaQpSXw46 RZq2qEvgkfpO0CPStEWdAY/Ud4IekabhxTna/QpWtHeE3pCmgRDFUd8S+kKa BtIUR31L6AtpUm+8X+qbQddIkzoAfqlvBl0jTeoA+KW+GXSNNKkD4Jf6ZtA1 0qQOQAXUV4QekSb13ldAfUXoEWlS730F1FeEHpEm9d57p74fdIo0qVffO/X9 oFOkSb363qnvB50iTerVr4b6otAX0qTe+GqoLwp96TlN6l1vgfoO0SzShCXU d4hmkSakUd8eGkeakEZ9e2gcaUIa9e2hcaQJkdTXhb6QJkRSXxf60mea1Fu+ lPGLCG8K3SJNNTJ+EeFNoVtdpclmkQuZ+5rL37fYPQDTukrTlsW1sCB86+yP BuKRJueEb5390UC8ntO0Uq4qC6kPBlAiTeoC7aU+GECJNI1SZ+kF6jMoq/kX xEKkaZQ6Sy9Qn0FZzb8gFiJNkeIbQppiNP+CWIg0Weo5Tc2/IPIiTZZIU8Mv iLxIk6U+09TJayIv0mSJNDX8msiLNKGcrgqMvEgTyiFNSEaaUA5pQjLShNKI EhKQJpRGmpCANKE00oQEpAmlkSYkIE0ojTQhAWlCaXQJCUgTSiNNSECaYIY0 IR5pghnShHikCYBDpAmAQ6QJgEOkCYBDpAmAQ6QJgEOkCYBDxmkCgEhmaQIA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoBlPAEA0yzSZPQtA 1UgTAIdIEwCHSBMAh0gTAIdIEwCHSBMAh0gTAIdIEwCHSBNKe2oO9Q/ryONT 1D9gWaQJpZGmNKSpyWfBG9IUNhmi3upEmmCDNIWRpi2kCWbo0kpahUhTG8+C B5F/U5qVrLSCOSlhxijFV2v5Jyx5keSzIk0ohzRtSa5EguUPzfIiyWdFmmAj V6ZmJaXEZ0ZKDkKr5h4gaYIN0tS5uQdImmCmaJEWfnjCE9W7XqX4aSFNMFM0 FFlaNOuJ6i2vUvy0kCaYKVGPotR73KD4aSFNKCew9eHfdWLfe6n3u2Lxw0Oa UE54680Kk2zfe6n3u2Lxw0OaEClhl0unw8DoZkmWuhmR80aaEClmkRP+iHOj ayXZ6GZEzhtpwqSYFZ77/bVQ73GDIqeONGGWyI2e9c2eqfe4WZOTRpowS+RG z/pmz9Qb3KzJSSNNmEWdCmvqDW5cYNJIE2ZRp8KaencbF5g00oRI6khoqHe3 cYF5I02IpI6Ehnp3GxeYN9KESOpIaKh3t3GBeSNNiKSOhIZ6dxsXmDfShEjq SGiod7dxgXkjTdhHXQV31HvciMjxI03YR10Cd9Q73YjI8SNNCFP3wBH1Ttdt 7uCRJkxSJ8EL9XLXKm3qSBMmqZPghXrFa5U2daQJYeoeOKJe8RbEDx5pQpi6 B46o17oF8YNHmrCPugTuqNe6EZHjR5qwj7oE7qh3uhGR40easEvdAL/Ua92C yCEkTZ1T73pl1GtdvfjJJE2dU+96ZdSbXb34ySRNGAjUTOr9rlj8TJImDKRp JvV+Vyx+JkkT1tQbXw31ftctchpJEwaiNJN6uesWOZOkCQNpmkm93HWLnEnS hIE0zaRe7nYEZpI0YSBNM6kXuh2BmSRNEsdeTPVjqFe8GlsnNrpcqu2uWmA4 SZMEaarL1omNLpdqu6sWGE7SZONYBOGPp118/7aOa3SttDtetdGZJE2lxURp K1D2vVKvviN5D1a99HUYPTrSVBppqkveg1UvfR1Gj4402ZgbKOM0rairoGF5 wivqErgzekqkyQZpcsvyhFfUJXBn9JRIU2nJUZKUSt0JC6XPMCCwmMY1cGX0 rEhTaXnTVLRU6mbktPlGeU9pufB6GmfBXuQpkabSSJPE5hvlPaXlwgtrHAp7 kadEmkqrIk3ajJST63yyi1lVVToKmXtEpKk00iSU63yyi9lZVUMKmXtEpKmQ okUKpymhWuqEFJfjSpXW263NS5q0VyZNhZAmV3JcqdJ6x7WRSZP2yqRpOZsK zZX2LuqElJL3xv1QV2da8qt1kqYl27rv02qR8ILqkOSX6+p9Uudn3MKXIk3J n1aLhBdUhyS/XFfvkzpC4xa+VCdpWlm+ucZVyWv3RXZfUJ2QshZNj3v7+lBR jjaRpuWfUIvdF9l9QXU8ylo0Pe6RpiqeNWpyYZd8TtXUzTCVfa5c2e1DrsgY B6qrNK2oM+CaOhum1JMokLcepCkv9fa7pq6FKfUkCpAm+bPC1AGog7ocRtTD 2ALSlIt66eugboYR9TC2gDTlol76yqjjYUE9kthGmjBJnQ0L6pHENtKEJdRF KUU9oagjTastGIJJSfhALKdOSClpg4qMSBOWUCeklLRBRUZO0pRrUzJ+FGKo E5LTahQ3fw0h0oQltDHJazWKm7+GUGNpghltRrIz2wJEcpKmgTrVRt2SDMwm HwlIE9Kou5KB2eQjgZ80bVKvHULURVmq6JAjF9KEudRpWarokCOXfbm4d+/e 7du3Hz58aPCsTeq1wzR1WvLIONgoYTQXh4eHJ06cOBrCg4ODBw8eFH3WFvXa YZo6KnnkmmoUMpqLs2fPrufw2rVrRZ+1Zf3c0S9CTl2UbHJNNQoZzcW5c+fW o3jhwoWiz0omXM+eJS9+0c5M/hjh34VDo7m4devW6dOnjx8/fjSK58+fL/qs ZOod7dTcJqzl680M4adnnEZkF8jF4eHh0ShevHjR4FnLqVe2F9k3OtyQ3e+c rFDkE0mTc4FcXLp06WgUr169avCs5dQr2wvSBBv7cnH37t1Tp06dPHny/v37 pZ+Vl3p3W2NwZZv471xYGc3FnTt3zpw5czSWV65cKf2s0tSb3QL7WwN2c3H9 +vWjvy8dDeTly5dLP8uAeq1bYH9rwG4ubty4cXBwcPPmTYNnGVCvdcXsLwtY 283F8/9m8ywD6v2umP1lAWs+//HejNT7XRn7CwJGkSZssr8gYBRpwib7CwJG NZ+mFfXG10F1O8Au0oQ11e0AuzpJ04p69f3S3guwizThGGmCP12laU1dAncC x6K9KXSrzzRtMe6AK5PnoLoUdI40DaQpeA6qS0HnSNPQd5omqS8HnSJNA2kK Ul8OOkWaBtI0RX0/6BFpGkjTFPX9oEekaSBNQerLQadI00CagtSXg06RpoE0 BakvB50iTVvUJfBIfSfoEWnaos6AR+o7QY9I0/DiHO1+BSvaO0JvSNNAiOKo bwl9IU0DaYqjviX0hTSpN94v9c2ga6RJHQC/1DeDrpEmdQD8Ut8Mukaa1AHw S30z6BppUgegAuorQo9Ik3rvK6C+IvSINKn3vgLqK0KPSJN6771T3w86RZrU q++d+n7QKdKkXn3v1PeDTpEm9epXQ31R6AtpUm98NdQXhb70nCb1rrdAfYdo FmnCEuo7RLNIE9Kobw+NI01Io749NI40IY369tA40oRI6utCX0gTIqmvC33p M03qLV/K+EWEN4VukaYaGb+I8KbQra7SZLPIhcx9zeXvW+wegGldpWnL4lpY EL519kcD8UiTc8K3zv5oIF7PaVopV5WF1AcDKJEmdYH2Uh8MoESaRqmz9AL1 GZTV/AtiIdI0Sp2lF6jPoKzmXxALkaZI8Q0hTTGaf0EsRJos9Zym5l8QeZEm S6Sp4RdEXqTJUp9p6uQ1kRdpskSaGn5N5EWaUE5XBUZepAnlkCYkI00ohzQh GWlCaUQJCUgTSiNNSECaUBppQgLShNJIExKQJpRGmpCANKE0uoQEpAmlkSYk IE0wQ5oQjzTBDGlCPNIEwCHSBMAh0gTAIdIEwCHSBMAh0gTAIdIEwCHjNAFA JLM0AQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADQjCcAIJpl msyeBaBqpAmAQ6QJgEOkCYBDpAmAQ6QJgEOkCYBDpAmAQ6QJgEOkCaU9NYf6 h3Xk8SnqH7As0oTSSFMa0tTks+ANaQqbDFFvdSJNsEGawkjTFtIEM3RpJa1C pKmNZ8GDyL8pzUpWWsGclDBjlOKrtfwTlrxI8lmRJpRDmrYkVyLB8odmeZHk syJNsJErU7OSUuIzIyUHoVVzD5A0wQZp6tzcAyRNMFO0SAs/fEvMNmk3vVLx 00KaYGZhLop++JaYPdLueKXip4U0wUzeehSl3uBmxU8LaUI5gd0P/64T+95L vd8Vix8e0oRywltvVphk+95Lvd8Vix8e0oRICbtcOh2l7dss+41uSeS8kSZE itnlhD/i2b61sl/nlkTOG2nCpJgtnvv9VVAvcZsip440YZbIpZ71zW6pl7hl k5NGmjBL5FLP+ma31OvbsslJI02YRV0LU+r1bV9g0kgTZlHXwpR6cdsXmDTS hEjqTgioF7d9gXkjTYik7oSAenHbF5g30oRI6k4IqBe3fYF5I02IpO6Ehnp3 GxeYN9KESOpIaKh3t3GBeSNN2EddBUfUG9yUyPEjTdhH3QNH1NvclMjxI00I U1fBBfU2t2Du4JEmTFKHQU+91nVLmzrShEnqMOipl7tuaVNHmhCmroIL6uVu R/zgkSaEqavggnqh2xE/eKQJ+6h74I56rRsROX6kCfuoS+COeqcbETl+pAm7 1A1wSr3TjYgcQtLUOfW6V0a91tWLn0zS1Dn1rldGvdnVi59M0oSBQEVTb3b1 4meSNGEgTdHUm129+JkkTVhT730F1JvdgshpJE0YiFI09Vq3IHImSRMG0hRN vdYtiJxJ0oSBNEVTr3VrAjNJmjCQpmjqVW5NYCZJk8SxF1P9GOpFr8b6xALL Zb/XDQgMJ2mSIE11WZ9YYLns97oBgeEkTTaORRD+eOrV927ruEbXSrvjVRud SdJUWkyUtgJl3yv16juS92DVS1+H0aMjTaWRprrkPVj10tdh9OhIk425gTJO 04q6ChqWJ7yiLoE7o6dEmmyQJrcsT3hFXQJ3Rk+JNJWWHCVJqdSdsFD6DAMC i2lcA1dGz4o0lZY3TUVLpW5GTptvlPeUlguvp3EW7EWeEmkqjTRJbL5R3lNa LrywxqGwF3lKpKm0KtKkzUg5uc4nu5hVVaWjkLlHRJpKI01Cuc4nu5idVTWk kLlHRJoKKVqkcJoSqqVOSHE5rlRpvd3avKRJe2XSVAhpciXHlSqtd1wbmTRp r0yalrOp0Fxp76JOSCl5b9wPdXWmJb9aJ2lasq37Pq0WCS+oDkl+ua7eJ3V+ xi18KdKU/Gm1SHhBdUjyy3X1PqkjNG7hS3WSppXlm2tclbx2X2T3BdUJKWvR 9Li3rw8V5WgTaVr+CbXYfZHdF1THo6xF0+MeaariWaMmF3bJ51RKXQuB7HPl ym4fckXGOFBdpWlFHQO/1M2wpp5Egbz1IE15qQPglzoV1tSTKECa5M8KUzfA O3UzTKmHsQWkKRf16nunroUp9TC2gDTlol79mqjLYUQ9kthGmhCmboYR9Uhi G2lCJHU8TKknFHWkabUaQzApCR+IJdTxKCttUJERaUIadTzKShtUZOQkTbn2 JeNHIUwdj/xWo7j5awiRJqTRZqSE1Shu/hpCjaUJZrQZyc5sCxDJSZoG6lQP dUWyMZt8JCBNmEtdlGzMJh8J/KRpk3r5EKIuylJFhxy5kCbMpU7LUkWHHLns y8W9e/du37798OFDg2dtUq8dJqi7kk3GwUYJo7k4PDw8ceLE0RweHBw8ePCg 6LO2qDcPE9RFySbXVKOQ0VycPXt2PYrXrl0r+qwt6+eOfhFy6qJkk2uqUcho Ls6dO7cexQsXLhR9VjLhevZp4eIXKkzkjxH+XTg0motbt26dPn36+PHjRwN5 /vz5os9Kpt7U7qQ1YS1HaWYLPz3jNCK7QC4ODw+PBvLixYsGz1pOvbjtK7TR 4YbsfudkhSKfSJqcC+Ti0qVLRwN59epVg2ctp17c9pEmWNqXi7t37546derk yZP3798v/ay81BvcGoMr25QcHDRmNBd37tw5c+bM0VheuXKl9LNKU292C+xv DdjNxfXr14/+vnQ0kJcvXy79LAPqtW6B/a0Bu7m4cePGwcHBzZs3DZ5lQL3W FbO/LGBtNxfP/5vNswyo97ti9pcFrPn8x3szUu93ZewvCBhFmrDJ/oKAUaQJ m+wvCBjVfJpW1BtfB9XtALtIE9ZUtwPs6iRNK+rV90t7L8Au0oRjpAn+dJWm NXUJ3Akci/am0K0+07TFuAOuTJ6D6lLQOdI0kKbgOaguBZ0jTUPfaZqkvhx0 ijQNpClIfTnoFGkaSNMU9f2gR6RpIE1T1PeDHpGmgTQFqS8HnSJNA2kKUl8O OkWaBtIUpL4cdIo0bVGXwCP1naBHpGmLOgMeqe8EPSJNw4tztPsVrGjvCL0h TQMhiqO+JfSFNA2kKY76ltAX0qTeeL/UN4OukSZ1APxS3wy6RprUAfBLfTPo GmlSB8Av9c2ga6RJHYAKqK8IPSJN6r2vgPqK0CPSpN77CqivCD0iTeq99059 P+gUaVKvvnfq+0GnSJN69b1T3w86RZrUq18N9UWhL6RJvfHVUF8U+tJzmtS7 3gL1HaJZpAlLqO8QzSJNSKO+PTSONCGN+vbQONKENOrbQ+NIEyKprwt9IU2I pL4u9KXPNKm3fCnjFxHeFLpFmmpk/CLCm0K3ukqTzSIXMvc1l79vsXsApnWV pi2La2FB+NbZHw3EI03OCd86+6OBeD2naaVcVRZSHwygRJrUBdpLfTCAEmka pc7SC9RnUFbzL4iFSNModZZeoD6Dspp/QSxEmiLFN4Q0xWj+BbEQabLUc5qa f0HkRZoskaaGXxB5kSZLfaapk9dEXqTJEmlq+DWRF2lCOV0VGHmRJpRDmpCM NKEc0oRkpAmlESUkIE0ojTQhAWlCaaQJCUgTSiNNSECaUBppQgLShNLoEhKQ JpRGmpCANMEMaUI80gQzpAnxSBMAh0gTAIdIEwCHSBMAh0gTAIdIEwCHSBMA h4zTBACRzNIEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAz ngCAaJZpMnsWgKqRJgAOkSYADpEmAA6RJgAOkSYADpEmAA6RJgAOkSYADpEm lPbUHOof1pHHp6h/wLJIE0ojTWlIU5PPgjekKWwyRL3ViTTBBmkKI01bSBPM 0KWVtAqRpjaeBQ8i/6Y0K1lpBXNSwoxRiq/W8k9Y8iLJZ0WaUA5p2pJciQTL H5rlRZLPijTBRq5MzUpKic+MlByEVs09QNIEG6Spc3MPkDTBTNEiLfzwtfht Uu141eKnhTTBzMJoFP3wtfg9Um131eKnhTTBTK56GFBvcLPip4U0oZzA7od/ Vy68R9rtrlr88JAmlBPY/fDvyoX3SLvdVYsfHtKESDEbnfBHfApvluUutydy 3kgTIsVsdMIf8Sm8VpaL3J7IeSNNmBSzy3O/3zn1+rYscupIE2aJXO1Z3+yQ en3bNzlppAmzRK72rG92SL247ZucNNKEWdTNMKJe3F4EJo00YRZ1M4yoV7YX gUkjTYikroUp9cr2IjBvpAmR1LUwpV7ZXgTmjTQhkroWAurFbV9g3kgTIqk7 IaBe3PYF5o00IZK6EwLqxW1fYN5IE/ZRh8EF9e42KHL8SBP2UVfBBfUeNyhy /EgTwtRtEFPvcTvmDh5pwiR1HpTUC92CtKkjTZikzoOSeq1bkDZ1pAlh6ja4 oF7udsQPHmlCmLoKLqgXuh3xg0easI+6B46oF7opkeNHmrCPugeOqLe5KZHj R5qwS10Cp9Q73YjIISRNnVOve03UO92C+MkkTZ1Tr3tN1GvdgvjJJE0YCFQc 9Vq3IH4mSRMG0hRHvdYtiJ9J0oQ19ep7p17rRkROI2nCQJTiqHe6EZEzSZow kKY46p1uRORMkiYMpCmOeqcbFJhJ0oSBNMVR73GDAjNJmiSOvZjqx1DvejXW JxZYLvu9bkBgOEmTBGmqy/rEAstlv9cNCAwnabJxLILwx1OvvndbxzW6Vtod r9roTJKm0mKitBUo+16pV9+RvAerXvo6jB4daSqNNNUl78Gql74Oo0dHmmzM DZRxmlbUVdCwPOEVdQncGT0l0mSDNLllecIr6hK4M3pKpKm05ChJSqXuhIXS ZxgQWEzjGrgyelakqbS8aSpaKnUzctp8o7yntFx4PY2zYC/ylEhTaaRJYvON 8p7ScuGFNQ6FvchTIk2lVZEmbUbKyXU+2cWsqiodhcw9ItJUGmkSynU+2cXs rKohhcw9ItJUSNEihdOUUC11QorLcaVK6+3W5iVN2iuTpkJIkys5rlRpvePa yKRJe2XStJxNheZKexd1QkrJe+N+qKszLfnVOknTkm3d92m1SHhBdUjyy3X1 PqnzM27hS5Gm5E+rRcILqkOSX66r90kdoXELX6qTNK0s31zjquS1+yK7L6hO SFmLpse9fX2oKEebSNPyT6jF7ovsvqA6HmUtmh73SFMVzxo1ubBLPqdG6lRo ZJ8rV3b7kCsyxoHqKk0r6h54pK6FhnoSBfLWgzTlpc6AR+pIaKgnUYA0yZ8V pi6BX+paCKiHsQWkKRd1APxSd0JAPYwtIE25qANQB3UzTKlHEttIE/ZR18KU eiSxjTRhkjobAuoJRR1pWi3IEExKwgcigboZRtIGFRmRJsyiboaRtEFFRk7S lGtxMn4U9lFno5TVKG7+GkKkCXNpA1LOahQ3fw2hxtIEA9qAFGK2BYjkJE0D daqHuiLZmE0+EpAmzKUuSjZmk48EftK0Sb182EudkwyKDjlyIU2YRd2VDIoO OXLZl4t79+7dvn374cOHBs/apN48TFB3JZuMg40SRnNxeHh44sSJozk8ODh4 8OBB0WdtUW8eJqiLkk2uqUYho7k4e/bsehSvXbtW9Flb1s8d/SKE1C3JLNdU o5DRXJw7d249kBcuXCj6rGTCJe3TwsUvVJjIHyP8u3BoNBe3bt06ffr08ePH jwby/PnzRZ+VTL2p3UlrwlqO0swWfnrGaUR2gVwcHh4eDeTFixcNnrWcenFb VnSjww3Z/c7JCkU+kTQ5F8jFpUuXjsby6tWrBs9aTr2+LSNNsLcvF3fv3j11 6tTJkyfv379f+ll5qfe4NQZXtqloBlGR0VzcuXPnzJkzR2N55cqV0s8qTb3Z LbC/NWA3F9evXz/6+9LRQF6+fLn0swyo17oF9rcG7Obixo0bBwcHN2/eNHiW AfVaV8z+soC13Vw8/282zzKg3u+K2V8WsObzH+/NSL3flbG/IGAUacIm+wsC RpEmbLK/IGBU82laUW98HVS3A+wiTVhT3Q6wq5M0rahX3y/tvQC7SBOOkSb4 01Wa1tQlcCdwLNqbQrf6TNMW4w64MnkOqktB50jTQJqC56C6FHSONA19p2mS +nLQKdI0kKYg9eWgU6RpIE1T1PeDHpGmgTRNUd8PekSaBtIUpL4cdIo0DaQp SH056BRpGkhTkPpy0CnStEVdAo/Ud4IekaYt6gx4pL4T9Ig0DS/O0e5XsKK9 I/SGNA2EKI76ltAX0jSQpjjqW0JfSJN64/1S3wy6RprUAfBLfTPoGmlSB8Av 9c2ga6RJHQC/1DeDrpEmdQAqoL4i9Ig0qfe+AuorQo9Ik3rvK6C+IvSINKn3 3jv1/aBTpEm9+t6p7wedIk3q1fdOfT/oFGlSr3411BeFvpAm9cZXQ31R6EvP aVLvegvUd4hmkSYsob5DNIs0IY369tA40oQ06ttD40gT0qhvD40jTYikvi70 hTQhkvq60Jc+06Te8qWMX0R4U+gWaaqR8YsIbwrd6ipNNotcyNzXXP6+xe4B mNZVmrYsroUF4VtnfzQQjzQ5J3zr7I8G4vWcppVyVVlIfTCAEmlSF2gv9cEA SqRplDpLL1CfQVnNvyAWIk2j1Fl6gfoMymr+BbEQaYoU3xDSFKP5F8RCpMlS z2lq/gWRF2myRJoafkHkRZos9ZmmTl4TeZEmS6Sp4ddEXqQJ5XRVYORFmlAO aUIy0oRySBOSkSaURpSQgDShNNKEBKQJpZEmJCBNKI00IQFpQmmkCQlIE0qj S0hAmlAaaUIC0gQzpAnxSBPMkCbEI00AHCJNABwiTQAcIk0AHCJNABwiTQAc Ik0AHDJOEwBEMksTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AADNeAIAolmmyexZAKpGmgA4RJoAOESaADhEmgA4RJoAOESaADhEmgA4RJoA OESaUNpTc6h/WEcen6L+AcsiTSiNNKUhTU0+C96QprDJEPVWJ9IEG6QpjDRt IU0wQ5dW0ipEmtp4FjyI/JvSrGSlFcxJCTNGKb5ayz9hyYsknxVpQjmkaUty JRIsf2iWF0k+K9IEG7kyNSspJT4zUnIQWjX3AEkTbJCmzs09QNIEM0WLtPDD j8zdJvvtbkD8tJAmmCFNiJ8W0gQzy+thQL27jYufFtKEcgIFCP+uUMweqfa6 AfHDQ5pQTqAA4d8Vitkj1V43IH54SBMixex1wh/xJmazbLa4VZHzRpoQKWav E/6INzFrZbPCrYqcN9KESTEbPff73VIvbvsip440YZbIBZ/1za6oF7cXk5NG mjBL5ILP+mZX1Cvbi8lJI02YRV2O4tQr25fApJEmzKIuR3HqZe1LYNJIEyKp m2FKvbK9CMwbaUIkdS1MqVe2F4F5I02IpK6FKfXK9iIwb6QJkdS1EFAvbvsC 80aaEEndCQH14rYvMG+kCfuow6CnXtw2RY4facI+6jDoqZe4TZHjR5oQps6D knqJmzJ38EgTJqkLoaRe6BakTR1pwiR1HpTUa92CtKkjTQhTt0FMvdatiR88 0oQwdRvE1KvcmvjBI03YR10FR9QL3ZTI8SNN2EfdA0fU29yUyPEjTdilLoE7 6m1uSuQQkqbOqZe+Duptbkf8ZJKmzqmXvg7qhW5H/GSSJgwEaop6odsRP5Ok CQNpmqJe6HbEzyRpwpo6AH6pF7opkdNImjAQpSnqbW5K5EySJgykaYp6m5sS OZOkCQNpmqLe5mYFZpI0YSBNU9Qb3KzATJImiWMvpvox1BtfjfWJBZbLfq8b EBhO0iRBmuqyPrHActnvdQMCw0mabByLIPzx1Kvv3dZxja6VdserNjqTpKm0 mChtBcq+V+rVdyTvwaqXvg6jR0eaSiNNdcl7sOqlr8Po0ZEmG3MDZZymFXUV NCxPeEVdAndGT4k02SBNblme8Iq6BO6MnhJpKi05SpJSqTthofQZBgQW07gG royeFWkqLW+aipZK3YycNt8o7yktF15P4yzYizwl0lQaaZLYfKO8p7RceGGN Q2Ev8pRIU2lVpEmbkXJynU92MauqSkchc4+INJVGmoRynU92MTurakghc49o Mxcf/OAH3/ve937pS1+6d+9e4olHP6t5RYsUTlNCtdQJKS7HlSqtt1ublzRp r7yZiz//+c8//elPP/OZz7zmNa/55je/medM9zyreaTJlRxXqrTecW1k0qS9 8mgu7ty58/rXv/4oU4tOM+5ZDbCp0Fxp76JOSCl5b9wPdXWmJb/avlx84xvf eP/735/8sbOeZWDJtu77tFokvKA6JPnlunqf1PkZt/Cl9uXi6aefft3rXrfw wyOfZSB5SQOfVouEF1SHJL9cV++TOkLjFr7Uvlw888wzjzzyyMIPj3yWmeWb a1yVvDZfZN/CagNS2qLpcW9fHyrK0aZAml7+8pdnfFDgWWYmFzbtE2qx+SL7 VlWbjtIWTY97pCn7s8xMLuySz6mLOhJK2efKld0+5IqMcaC6StOKugq+qDuh pJ5Egbz1IE15qWPgizoPSupJFCBNs55lT90Dp9Sp0FAPYwtIUy7qBjiljoSG ehhbQJpyUTfAO3UtBNQjiW2kCbvUnRBQjyS2kSaEqZuhoZ5Q1JGm1Y4MwaQk fCBmUdfCVNqgIiPShEjqWphKG1RktC8Xf/vb3yzTlGt9Mn4URqmbUdBqFDd/ DaF9ufjXv/710pe+1OZZA2mqh7YeRa1GcfPXEArk4tFHH/3Tn/5k8yz1wiGW th7lZJxzZBHIxac+9akvfOELNs8aqFMl1AnJKeNsI7tALv7617+++c1v/tGP fmTwrIE0VUKdk5xyDTZKCOfi6aef/sAHPvDud7/7O9/5TulnbVLvH/ZS5ySD 5ZMMA+FcPPPMM5/4xCcODg6+/vWvl37WJvX+YS91VzJYPskwEMjFs88++5a3 vOVrX/uawbPW1JuHvdRFySzXVKOQQC4+//nPf/SjH7V51pp6/7CXuiWZZRxs lBDIxenTp2/fvm3zrLX1Iox+EULqlmSWcbBRwr5cPP/88y95yUv+8Y9/GDwr jXpTO5Jl8bO3ZdaPEf5dOLQvF88+++zLXvYym2elUe9rR5Y0YW1ZYxKFn55x GpFdFf94bwz1+jar9EaHG7L7nZMVinwiaXKONCGMNEGimTStqVe5NQZXtqlo BlGR9tK0Rb3ZLbC/NYA0YZL9rQGkCfvYXxawRpqwj/1lAWukCZvsLwgYRZqw yf6CgFGkCZvsLwgY1XyaVtQbXwfV7QC7Aml65JFHbJ5lQL30dVDdDrBrXy7+ 8pe/vPa1r7V5lhn16vulvRdg175cfPvb337Pe95j8ywz6gD4pb0XYNdoLu7f v//GN77x+9//vsGzJNQlcCdwLNqbQrc2c/GPf/zjd7/73Ve+8pVHH330c5/7 XNFnuWLcAVcmz0F1KejcZi7e/va3HxwcfPzjH//Vr35V+lmuGNfAlclzUF0K OmeZC9JUI/XloFOkaSBNQerLQadI00CapqjvBz0iTQNpmqK+H/SINA2kKUh9 OegUaRpIU5D6ctAp0jSQpiD15aBTpGmLugQeqe8EPSJNW9QZ8Eh9J+gRaRpe nKPdr2BFe0foDWkaCFEc9S2hL6RpIE1x1LeEvpAm9cb7pb4ZdI00qQPgl/pm 0DXSpA6AX+qbQddIkzoAfqlvBl0jTeoAVEB9RegRaVLvfQXUV4QekSb13ldA fUXoEWlS77136vtBp0iTevW9U98POkWa1Kvvnfp+0CnSpF79aqgvCn0hTeqN r4b6otCXntOk3vUWqO8QzSJNWEJ9h2gWaUIa9e2hcaQJadS3h8aRJqRR3x4a R5oQSX1d6AtpQiT1daEvfaZJveVLGb+I8KbQLdJUI+MXEd4UutVVmmwWuZC5 r7n8fYvdAzCtqzRtWVwLC8K3zv5oIB5pck741tkfDcTrOU0r5aqykPpgACXS pC7QXuqDAZRI0yh1ll6gPoOymn9BLESaRqmz9AL1GZTV/AtiIdIUKb4hpClG 8y+IhUiTpZ7T1PwLIi/SZIk0NfyCyIs0WeozTZ28JvIiTZZIU8OvibxIE8rp qsDIizShHNKEZKQJ5ZAmJCNNKI0oIQFpQmmkCQlIE0ojTUhAmlAaaUIC0oTS SBMSkCaURpeQgDShNNKEBKQJZkgT4pEmmCFNiEeaADhEmgA4RJoAOESaADhE mgA4RJoAOESaADhknCYAiGSWJgAAgN78f+JroDI= "], {{0, 1307}, {393, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{196.5, Automatic}, ImageSizeRaw->{393, 1307}, PlotRange->{{0, 393}, {0, 1307}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7716916804073095`*^9}, CellLabel->"Out[22]=", CellID->636311427] }, Open ]] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"Cartogram | Example Notebook", Visible->False, TaggingRules->{ "Metadata" -> { "ResourceType" -> "Function", "Name" -> "Cartogram", "Property" -> "ExampleNotebook"}}, FrontEndVersion->"13.1 for Mac OS X x86 (64-bit) (June 16, 2022)", 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.1 for Mac OS X x86 (64-bit) (June 16, 2022)", 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->"fca9a4b0-c6c2-4d4b-868e-0c644e3ae322", CellID->904125756], Cell[793, 32, 346, 9, 70, "Text",ExpressionUUID->"cab08e62-e4eb-46b1-ad9d-05a236373c9b", CellID->629838371], Cell[CellGroupData[{ Cell[1164, 45, 7375, 185, 70, "Input",ExpressionUUID->"6734228a-5594-46d4-8ec0-053333c950d5", CellID->254769753], Cell[8542, 232, 1297, 30, 70, "Output",ExpressionUUID->"c6fc506b-4609-4c6c-a102-86f65b561f35", CellID->66102363] }, Open ]], Cell[CellGroupData[{ Cell[9876, 267, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"b86cd3b7-6004-415f-9096-32a8aba4e230", CellID->14107562], Cell[10022, 273, 219, 4, 70, "Text",ExpressionUUID->"c72d0cd8-f70f-498b-9854-02d516a03853", CellID->171041979], Cell[CellGroupData[{ Cell[10266, 281, 7809, 196, 70, "Input",ExpressionUUID->"d65fa68a-ae3d-4820-b436-73b40fefd31f", CellID->604128821], Cell[18078, 479, 1140, 28, 70, "Output",ExpressionUUID->"1e7f95b7-f2ad-4849-9a3f-db024afeb66a", CellID->721279089] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19267, 513, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"16cc2eea-b783-4471-a02f-f8ea239062f3", CellID->14107563], Cell[19413, 519, 220, 4, 70, "Text",ExpressionUUID->"1264158c-ec57-4004-8853-2ac3c13eb7cf", CellID->836135522], Cell[CellGroupData[{ Cell[19658, 527, 7991, 200, 70, "Input",ExpressionUUID->"100be906-7b00-4060-8f83-d322b15d298d", CellID->306048215], Cell[27652, 729, 1224, 28, 70, "Output",ExpressionUUID->"3d69cf44-467c-4d13-b399-1f51cb3883fe", CellID->180411849] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28937, 764, 226, 8, 70, "Subsection",ExpressionUUID->"41b6e309-8470-48be-9e6f-f23342fb354b", CellID->890561554], Cell[29166, 774, 334, 10, 70, "Text",ExpressionUUID->"7460752a-e2de-42dc-b7dd-7c60c15eb621", CellID->520459324], Cell[CellGroupData[{ Cell[29525, 788, 8039, 202, 70, "Input",ExpressionUUID->"ab375714-e7fb-4849-82bf-d6f6454cd690", CellID->715192840], Cell[37567, 992, 1173, 28, 70, "Output",ExpressionUUID->"04b8f234-5628-4695-a963-29840a487039", CellID->858297672] }, Open ]], Cell[CellGroupData[{ Cell[38777, 1025, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"e9bf9b1d-52b3-4a95-b34a-6d90b08d836f", CellID->14107564], Cell[38923, 1031, 346, 8, 70, "Text",ExpressionUUID->"23efacd0-ea20-4175-9d14-25853b4ef435", CellID->194306458], Cell[CellGroupData[{ Cell[39294, 1043, 8045, 202, 70, "Input",ExpressionUUID->"fb3a1cb6-fc93-48e9-83ed-6c7515f183ee", CellID->447693131], Cell[47342, 1247, 5478, 96, 70, "Output",ExpressionUUID->"bafeb7b7-6606-4f43-8bb9-555aed3c45b2", CellID->99371429] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[52869, 1349, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"e39cb287-146b-47fe-8645-b7e704764344", CellID->14107565], Cell[53015, 1355, 264, 5, 70, "Text",ExpressionUUID->"ce5d4bc5-4092-4c8e-91b6-c089aa0856ad", CellID->794783532], Cell[CellGroupData[{ Cell[53304, 1364, 8010, 201, 70, "Input",ExpressionUUID->"f82f1a55-0ab5-4f3b-b5b0-d6bcdcf9e0b8", CellID->552416241], Cell[61317, 1567, 20839, 348, 70, "Output",ExpressionUUID->"49c525d5-af1a-4171-a2ab-a2bfd8af35c2", CellID->636311427] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)