(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 67277, 1656] NotebookOptionsPosition[ 65318, 1610] NotebookOutlinePosition[ 65891, 1633] CellTagsIndexPosition[ 65848, 1630] WindowTitle->Examples for The Story of Mankind WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell["Retrieve the ResourceObject:", "Text", CellChangeTimes->{{3.6821849447840075`*^9, 3.682184951647694*^9}, { 3.6821850182913575`*^9, 3.6821850462121496`*^9}, {3.6821850885233803`*^9, 3.68218509051958*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804517731799183`*^9, 3.6804517885604563`*^9}, { 3.6804527318597765`*^9, 3.6804527390684977`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["ResourceObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"], ImageSizeCache->{12., {0., 12.}}], Appearance->None, ButtonFunction:>(Typeset`open$$ = True), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, { 3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, {FaceForm[{RGBColor[0.274612, 0.618881, 0.810913], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, { 56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, { 9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, {2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}}, AspectRatio->1, Axes->False, Background->None, Frame->None, FrameTicks->None, ImageSize->{Automatic, Dynamic[(3.5 CurrentValue["FontCapHeight"])/AbsoluteCurrentValue[ Magnification], ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{ { RowBox[{ TagBox["\<\"Name: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"The Story of Mankind\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Hendrik Willem van Loon's \\\"The \ Story of Mankind\\\"\"\>", "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True-> GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], Appearance->None, ButtonFunction:>(Typeset`open$$ = False), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, { 3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, {FaceForm[{RGBColor[0.274612, 0.618881, 0.810913], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, { 56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, { 9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, {2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}}, AspectRatio->1, Axes->False, Background->None, Frame->None, FrameTicks->None, ImageSize->{Automatic, Dynamic[(3.5 CurrentValue["FontCapHeight"])/AbsoluteCurrentValue[ Magnification], ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{ { RowBox[{ TagBox["\<\"Name: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"The Story of Mankind\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Hendrik Willem van Loon's \\\"The \ Story of Mankind\\\"\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Categories: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"Textual Data\"", "\"Literature\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"ContentTypes: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",", "\",\"", "\"Text\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Keywords: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"text\"", "\"novel\"", "\"children\"", "\"literature\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Data Location: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicModuleBox[{DataResource`Private`typesetstorage$$ = DataResource`Private`typesetstorageLocation, DataResource`Private`info$$}, DynamicBox[ToBoxes[ DataResource`Private`info$$ = DataResource`Private`resourceInfo[ "b0bb92f5-1ac6-47e3-9ea4-9bec62117ff6"]; If[ AssociationQ[DataResource`Private`info$$], DataResource`Private`typesetstorage$$[ Lookup[ DataResource`Private`info$$, "ContentElementLocations", None]], Missing["NotAvailable"]], StandardForm]], DynamicModuleValues:>{}], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"UUID: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"b0bb92f5-1ac6-47e3-9ea4-9bec62117ff6\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"\\[LeftAssociation]", RowBox[{"\<\"Plaintext\"\>", "\[Rule]", "733336"}], "\\[RightAssociation]"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Elements: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",", "\",\"", "\"Plaintext\""}, "RowWithSeparators"], Short[#, 2]& ], "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open$$], ImageSize->Automatic], BaselinePosition->Baseline], DynamicModuleValues:>{}], "]"}], ResourceObject[<| "Name" -> "The Story of Mankind", "UUID" -> "b0bb92f5-1ac6-47e3-9ea4-9bec62117ff6", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Plaintext for Hendrik Willem van Loon's \"The Story of Mankind\"", "ContentSize" -> <|"Plaintext" -> 733336|>, "ContentElements" -> {"Plaintext"}|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.688478407520544*^9}] }, Open ]], Cell["View the data:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", "10", "]"}], "]"}]], "Input", CellChangeTimes->{ 3.688478434976408*^9, {3.702917099567112*^9, 3.702917103373788*^9}}], Cell[BoxData["\<\"For the first time in my life I was confronted by the \ phenomenon of\\naudible silence. When we had climbed the first flight of \ stairs, I added\\nanother discovery to my limited knowledge of natural \ phenomena--that of\\ntangible darkness. A match showed us where the upward \ road continued.\\nWe went to the next floor and then to the next and the next \ until I had\\nlost count and then there came still another floor, and \ suddenly we had\\nplenty of light. This floor was on an even height with the \ roof of the\\nchurch, and it was used as a storeroom. Covered with many \ inches of\\ndust, there lay the abandoned symbols of a venerable faith which \ had\\nbeen discarded by the good people of the city many years ago. That \ which\\nhad meant life and death to our ancestors was here reduced to junk \ and\\nrubbish. The industrious rat had built his nest among the carved images\ \\nand the ever watchful spider had opened up shop between the \ outspread\\narms of a kindly saint.\"\>"], "Output", CellChangeTimes->{ 3.688478409598302*^9, {3.688478440395845*^9, 3.6884784492579393`*^9}, 3.7029171042132397`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell["Show the distribution of sentence lengths:", "Text", CellChangeTimes->{{3.6821849447840075`*^9, 3.682184951647694*^9}, { 3.6821850182913575`*^9, 3.6821850462121496`*^9}, {3.6821850885233803`*^9, 3.68218509051958*^9}, {3.6833726608424654`*^9, 3.683372662777466*^9}, { 3.6833733125197973`*^9, 3.6833733165275984`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{ RowBox[{"(", RowBox[{"Length", "/@", RowBox[{"(", RowBox[{"TextWords", "/@", RowBox[{"TextSentences", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}]}], ")"}]}], ")"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]], "Input", CellChangeTimes->{{3.6830333795804577`*^9, 3.683033425254339*^9}, { 3.6830334646198807`*^9, 3.6830335879807243`*^9}, 3.683035622565227*^9, 3.683304174499114*^9, 3.6833082857507887`*^9, 3.688478498362647*^9, { 3.702917110673987*^9, 3.702917116654022*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.7], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {5., 213.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{31.158326661329063`, 43.98203177926957}, { 51.67213348281098, 90.90377156037647}}], StatusArea[#, 213]& , TagBoxNote->"213"], StyleBox["213", {}, StripOnInput -> False]], Annotation[#, Style[213, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0}, {10., 896.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{43.48203177926957, 56.305736897210075`}, {-72.5236825123873, 90.90377156037647}}], StatusArea[#, 896]& , TagBoxNote->"896"], StyleBox["896", {}, StripOnInput -> False]], Annotation[#, Style[896, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {15., 1055.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{55.805736897210075`, 68.62944201515057}, {-101.43603206324605`, 90.90377156037647}}], StatusArea[#, 1055]& , TagBoxNote->"1055"], StyleBox["1055", {}, StripOnInput -> False]], Annotation[#, Style[1055, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{15., 0}, {20., 978.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{68.12944201515057, 80.95314713309108}, {-87.43445397886791, 90.90377156037647}}], StatusArea[#, 978]& , TagBoxNote->"978"], StyleBox["978", {}, StripOnInput -> False]], Annotation[#, Style[978, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20., 0}, {25., 718.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{80.45314713309108, 93.2768522510316}, {-40.15639810953914, 90.90377156037647}}], StatusArea[#, 718]& , TagBoxNote->"718"], StyleBox["718", {}, StripOnInput -> False]], Annotation[#, Style[718, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{25., 0}, {30., 560.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{92.7768522510316, 105.60055736897209`}, {-11.425887235100888`, 90.90377156037647}}], StatusArea[#, 560]& , TagBoxNote->"560"], StyleBox["560", {}, StripOnInput -> False]], Annotation[#, Style[560, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{30., 0}, {35., 403.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{105.10055736897209`, 117.9242624869126}, { 17.122784962916867`, 90.90377156037647}}], StatusArea[#, 403]& , TagBoxNote->"403"], StyleBox["403", {}, StripOnInput -> False]], Annotation[#, Style[403, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{35., 0}, {40., 307.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{117.4242624869126, 130.2479676048531}, { 34.57929789928442, 90.90377156037647}}], StatusArea[#, 307]& , TagBoxNote->"307"], StyleBox["307", {}, StripOnInput -> False]], Annotation[#, Style[307, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{40., 0}, {45., 177.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{129.7479676048531, 142.57167272279364`}, { 58.2183258339488, 90.90377156037647}}], StatusArea[#, 177]& , TagBoxNote->"177"], StyleBox["177", {}, StripOnInput -> False]], Annotation[#, Style[177, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{45., 0}, {50., 133.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{142.07167272279364`, 154.89537784073414`}, { 66.2192275964506, 90.90377156037647}}], StatusArea[#, 133]& , TagBoxNote->"133"], StyleBox["133", {}, StripOnInput -> False]], Annotation[#, Style[133, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{50., 0}, {55., 103.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{154.39537784073414`, 167.21908295867462`}, { 71.67438788906546, 90.90377156037647}}], StatusArea[#, 103]& , TagBoxNote->"103"], StyleBox["103", {}, StripOnInput -> False]], Annotation[#, Style[103, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{55., 0}, {60., 68.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{166.71908295867462`, 179.54278807661512`}, { 78.03874156378279, 90.90377156037647}}], StatusArea[#, 68]& , TagBoxNote->"68"], StyleBox["68", {}, StripOnInput -> False]], Annotation[#, Style[68, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{60., 0}, {65., 45.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{179.04278807661512`, 191.86649319455563`}, { 82.22103112145419, 90.90377156037647}}], StatusArea[#, 45]& , TagBoxNote->"45"], StyleBox["45", {}, StripOnInput -> False]], Annotation[#, Style[45, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{65., 0}, {70., 38.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{191.36649319455563`, 204.19019831249614`}, { 83.49390185639766, 90.90377156037647}}], StatusArea[#, 38]& , TagBoxNote->"38"], StyleBox["38", {}, StripOnInput -> False]], Annotation[#, Style[38, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{70., 0}, {75., 35.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{203.69019831249614`, 216.51390343043664`}, { 84.03941788565913, 90.90377156037647}}], StatusArea[#, 35]& , TagBoxNote->"35"], StyleBox["35", {}, StripOnInput -> False]], Annotation[#, Style[35, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{75., 0}, {80., 25.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{216.01390343043664`, 228.83760854837715`}, { 85.8578046498641, 90.90377156037647}}], StatusArea[#, 25]& , TagBoxNote->"25"], StyleBox["25", {}, StripOnInput -> False]], Annotation[#, Style[25, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{80., 0}, {85., 10.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{228.33760854837715`, 241.16131366631768`}, { 88.58538479617151, 90.90377156037647}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", {}, StripOnInput -> False]], Annotation[#, Style[10, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{85., 0}, {90., 6.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{240.66131366631768`, 253.4850187842582}, { 89.3127395018535, 90.90377156037647}}], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", {}, StripOnInput -> False]], Annotation[#, Style[6, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{90., 0}, {95., 4.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{252.9850187842582, 265.8087239021987}, { 89.6764168546945, 90.90377156037647}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{95., 0}, {100., 9.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{265.3087239021987, 278.1324290201392}, { 88.76722347259201, 90.90377156037647}}], StatusArea[#, 9]& , TagBoxNote->"9"], StyleBox["9", {}, StripOnInput -> False]], Annotation[#, Style[9, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{100., 0}, {105., 6.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{277.6324290201392, 290.4561341380797}, { 89.3127395018535, 90.90377156037647}}], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", {}, StripOnInput -> False]], Annotation[#, Style[6, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{105., 0}, {110., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{289.9561341380797, 302.7798392560202}, { 90.22193288395597, 90.90377156037647}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{110., 0}, {115., 3.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{302.2798392560202, 315.1035443739607}, { 89.85825553111498, 90.90377156037647}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{115., 0}, {120., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{314.6035443739607, 327.4272494919012}, { 90.22193288395597, 90.90377156037647}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{120., 0}, {125., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{326.9272494919012, 339.7509546098417}, { 90.22193288395597, 90.90377156037647}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{125., 0}, {130., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{339.2509546098417, 352.0746597277822}, { 90.22193288395597, 90.90377156037647}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-2.6, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0., 130.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6884785092840347`*^9, 3.702917133283114*^9}] }, Open ]], Cell["Show the popularity of countries in the text:", "Text", CellChangeTimes->{{3.6821849447840075`*^9, 3.682184951647694*^9}, { 3.6821850182913575`*^9, 3.6821850462121496`*^9}, {3.6821850885233803`*^9, 3.68218509051958*^9}, {3.683372646355466*^9, 3.6833726525784655`*^9}, { 3.6836481923180943`*^9, 3.683648193164776*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarChart", "[", RowBox[{ RowBox[{ RowBox[{"TakeLargest", "[", RowBox[{ RowBox[{"Counts", "[", RowBox[{ RowBox[{"Interpreter", "[", "\"\\"", "]"}], "[", RowBox[{"ToLowerCase", "/@", RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", " ", "\"\\""}], "]"}]}], "]"}], "]"}], ",", "10"}], "]"}], "//", "Reverse"}], ",", RowBox[{"BarOrigin", "\[Rule]", "Left"}], ",", RowBox[{"ChartLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{ 3.6832948310374346`*^9, {3.683303919441325*^9, 3.6833039664439225`*^9}, { 3.6833047256091137`*^9, 3.6833047577011137`*^9}, {3.6833746284647617`*^9, 3.683374629712762*^9}, 3.6884090410325003`*^9, {3.688478502233288*^9, 3.688478528966486*^9}}], Cell[BoxData[ GraphicsBox[{ {Opacity[0], PointBox[{0., 0.3429357798165137}]}, {{}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], Thickness[Small]}], {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.5412844036697247}, {19., 1.4587155963302751`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{42.74999999999999, 65.73481487456641}, { 66.08421726613099, 83.56785991081182}}], StatusArea[#, 19]& , TagBoxNote->"19"], StyleBox["19", {}, StripOnInput -> False]], Annotation[#, Style[19, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 1.5412844036697246`}, {22., 2.458715596330275}, "RoundingRadius" -> 0]}, ImageSizeCache->{{42.74999999999999, 69.28504880212954}, { 47.5720467834289, 65.05568942810973}}], StatusArea[#, 22]& , TagBoxNote->"22"], StyleBox["22", {}, StripOnInput -> False]], Annotation[#, Style[22, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 2.541284403669725}, {40., 3.4587155963302756`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{42.74999999999999, 90.58645236750826}, { 29.0598763007268, 46.54351894540763}}], StatusArea[#, 40]& , TagBoxNote->"40"], StyleBox["40", {}, StripOnInput -> False]], Annotation[#, Style[40, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 3.5412844036697253`}, {43., 4.458715596330276}, "RoundingRadius" -> 0]}, ImageSizeCache->{{42.74999999999999, 94.13668629507137}, { 10.54770581802471, 28.031348462705523`}}], StatusArea[#, 43]& , TagBoxNote->"43"], StyleBox["43", {}, StripOnInput -> False]], Annotation[#, Style[43, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 4.541284403669725}, {52., 5.458715596330276}, "RoundingRadius" -> 0]}, ImageSizeCache->{{42.74999999999999, 104.78738807776074`}, {-7.964464664677379, 9.519177980003434}}], StatusArea[#, 52]& , TagBoxNote->"52"], StyleBox["52", {}, StripOnInput -> False]], Annotation[#, Style[52, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 5.541284403669725}, {54., 6.458715596330276}, "RoundingRadius" -> 0]}, ImageSizeCache->{{42.74999999999999, 107.15421069613615`}, {-26.476635147379483`, -8.992992502698655}}], StatusArea[#, 54]& , TagBoxNote->"54"], StyleBox["54", {}, StripOnInput -> False]], Annotation[#, Style[54, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 6.541284403669725}, {55., 7.458715596330276}, "RoundingRadius" -> 0]}, ImageSizeCache->{{42.74999999999999, 108.33762200532385`}, {-44.98880563008156, -27.50516298540076}}], StatusArea[#, 55]& , TagBoxNote->"55"], StyleBox["55", {}, StripOnInput -> False]], Annotation[#, Style[55, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 7.541284403669725}, {61., 8.458715596330276}, "RoundingRadius" -> 0]}, ImageSizeCache->{{42.74999999999999, 115.4380898604501}, {-63.500976112783675`, -46.01733346810285}}], StatusArea[#, 61]& , TagBoxNote->"61"], StyleBox["61", {}, StripOnInput -> False]], Annotation[#, Style[61, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 8.541284403669724}, {109., 9.458715596330276}, "RoundingRadius" -> 0]}, ImageSizeCache->{{42.74999999999999, 172.24183270146003`}, {-82.01314659548576, -64.52950395080494}}], StatusArea[#, 109]& , TagBoxNote->"109"], StyleBox["109", {}, StripOnInput -> False]], Annotation[#, Style[109, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 9.541284403669724}, {253., 10.458715596330276`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{42.74999999999999, 342.65306122448976`}, {-100.52531707818785`, -83.04167443350703}}], StatusArea[#, 253]& , TagBoxNote->"253"], StyleBox["253", {}, StripOnInput -> False]], Annotation[#, Style[253, {}], "Tooltip"]& ]}}, {}, {}}, {}, {}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.3429357798165137}, {0., 10.66103119266055}}], StyleBox[{}, "GraphicsLabel", StripOnInput->False]}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.5412844036697247}, Offset[{-6., 0.}, {0., 0.5412844036697247}]}], LineBox[{{0., 10.458715596330276`}, Offset[{-6., 0.}, {0., 10.458715596330276`}]}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, { LineBox[{{0., 1.4587155963302751`}, Offset[{-4., 0.}, {0., 1.4587155963302751`}]}], LineBox[{{0., 1.5412844036697249`}, Offset[{-4., 0.}, {0., 1.5412844036697249`}]}], LineBox[{{0., 2.458715596330275}, Offset[{-4., 0.}, {0., 2.458715596330275}]}], LineBox[{{0., 2.541284403669725}, Offset[{-4., 0.}, {0., 2.541284403669725}]}], LineBox[{{0., 3.4587155963302756`}, Offset[{-4., 0.}, {0., 3.4587155963302756`}]}], LineBox[{{0., 3.5412844036697253`}, Offset[{-4., 0.}, {0., 3.5412844036697253`}]}], LineBox[{{0., 4.458715596330276}, Offset[{-4., 0.}, {0., 4.458715596330276}]}], LineBox[{{0., 4.541284403669724}, Offset[{-4., 0.}, {0., 4.541284403669724}]}], LineBox[{{0., 5.458715596330275}, Offset[{-4., 0.}, {0., 5.458715596330275}]}], LineBox[{{0., 5.541284403669724}, Offset[{-4., 0.}, {0., 5.541284403669724}]}], LineBox[{{0., 6.458715596330275}, Offset[{-4., 0.}, {0., 6.458715596330275}]}], LineBox[{{0., 6.541284403669724}, Offset[{-4., 0.}, {0., 6.541284403669724}]}], LineBox[{{0., 7.458715596330275}, Offset[{-4., 0.}, {0., 7.458715596330275}]}], LineBox[{{0., 7.541284403669724}, Offset[{-4., 0.}, {0., 7.541284403669724}]}], LineBox[{{0., 8.458715596330276}, Offset[{-4., 0.}, {0., 8.458715596330276}]}], LineBox[{{0., 8.541284403669724}, Offset[{-4., 0.}, {0., 8.541284403669724}]}], LineBox[{{0., 9.458715596330276}, Offset[{-4., 0.}, {0., 9.458715596330276}]}], LineBox[{{0., 9.541284403669724}, Offset[{-4., 0.}, {0., 9.541284403669724}]}]}, {}}}, StyleBox[ {Thickness[Tiny], InsetBox[ InterpretationBox["\<\"India\"\>", Entity["Country", "India"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 1.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Austria\"\>", Entity["Country", "Austria"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 2.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Germany\"\>", Entity["Country", "Germany"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 3.0000000000000004}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Greece\"\>", Entity["Country", "Greece"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 4.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Egypt\"\>", Entity["Country", "Egypt"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 5.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Spain\"\>", Entity["Country", "Spain"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 6.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Russia\"\>", Entity["Country", "Russia"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 7.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Italy\"\>", Entity["Country", "Italy"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 8.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"France\"\>", Entity["Country", "France"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 9.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"World\"\>", Entity["Country", "World"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 10.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}]}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, "GraphicsAxes", StripOnInput->False, Antialiasing->False]}, BoxID -> "{\"type\":\"Image\",\"message\":\"RasterizedDueToUnsupportedContent\",\"\ imageData\":{\"imageSource\":\"data:image/png;base64,\ iVBORw0KGgoAAAANSUhEUgAAAWgAAADQCAYAAAAqC/\ t5AAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAOxAAADsQBlSsOGwAAFntJREFUeJzt3X+wXGV5B/\ Dv85672QBx9EJgSAIWdKoDxUylIGCqRJiOWpCZVCGZCF64d/\ e9JjFqGCgI2jS2OMkUegcuueSe3ew1PyHGEBSn5ZdO1AmtEmWKoOIYm2CaaE1pyA8i2XPep39kN12W\ 3fsjd/fuOWe/\ n5md7L7n3bPvm0OeObznfZ8XICIiIiIiIiIiIiKiN7HWaqvbQETUTKbVDSAiotoYoImIIooBmogooq\ TVDRjJcGPNR3c9OZFNISIatXVP7V4LoGs854h8gK7HWqsr5/\ 1Pq5tBRFRT6qot4w7QHOIgIoooBmgioohigCYiiqhxBWhr7a5MJnNOxee51lrNZrOfLJdlMplzrLW7\ xnDOmg8FuTCFiNrNeO+gt3med3nF57kANojIDeWC0vFt4/\ wdIqK20zGeLzvnthljLgfwzYULF04JguBSABcB+PmNN9542vr164+\ o6uXOuW2ZTOYcY8xaAB9Q1X9X1Zvz+fwea62q6q0A5udyuUvL5+\ 7t7T3PObdRRC4EkB1PO4mI4mhcd9Ce521T1csBIAiC61R1q+/7r6nqt0899dRrS9Uu8zxvmzGmX1X/\ LZ1OTxeR50TkwYpT7Z88efLVledW1QdF5JkgCM4FcMl42klEFEfjCtCDg4O7ROQMa21KVW/wPG+\ odKgAYP7SpUs7AJwxODi4C8CHjx079k/9/f0H33jjjRUiMrt8njAMH+\ vv7z9YdfrZAO4rFAqHwjBcMZ52EhHFUSNmcfwIgAUwY9WqVc8DQC6Xew7AO/ft27cQwI+rf+\ vUU08VVfXKnwuFwqHqk6qqep5nAKD8JxFROxl34HPObQPwoIhsqDq0BsD9peNQ1R9OmjTp9u7u7rcF\ QXCHiGwf7rwi8kwYhnf19PRcoKrPjredRERxM+4A7XneNgDFYrFYHaDXAzhWOo4wDBcD+\ KDneb8XkVki8tnhzisin8Px8evHRWRcyyWJiOKIuTiIiJqAuTiIiBKMAZqIKKLGtVBlItVa6t29fEc\ rmkIJtP3F/Zh10dRWN4MoGZibg4iSLjYPCWsFZO6o0r4asVsFUdTFJkBX4yyO9taIJ+\ REUceHhEREEcUATUQUUQzQREQRNeppdrUe0vm+\ H9sxbCKiqBvTPGgGZCKiiTPuhSrVO6JYay9T1T4RmQngoIjcOTg4uLZ0B363qmZFZIZzbm4+n9/\ a29s7Q1VXq+qHAewUkVt839/R3d093fO8rwO4QkSeB3CL7/\ s7x9teIqK4GFOArhzmqLqbrtwRZQjAVwB82zk30xjzBIC1pWPpKVOmXHjo0KGPGWM2AZjknFsJ4KVU\ KvWpIAg+rqpDAN7ned79AArHjh27bvLkyXNUdRWAvzrJfhIRxU5DhjhKO6IcAoBUKvWhYrG4QFXnG2\ PeD+DE+tkgCO7t6+\ s7CmCrtTZVKr66o6PjloGBgcMANpdeEJGrAHwqnU5DVQHgyFg7R0QUZw3JxVG5I0qxWHwMx3f2HhCR\ V1T1V7XqVSiGYehqlHvFYvGsoaGhPzSijUREcdPwZEmqOlNVv9jR0fFb59w/\ j1RfRLYBuL27u3tFR0fHX6vql3O53PtU9QepVOq2JUuW/P3hw4c/\ A6Arl8t9sNHtJSKKqobPgxaRu0Tk6TAMf6qqPxmpvnPu8wAu7ejo2Keqd6jqTcCJHVguOXLkyH4Rsc\ aYTKPbSkQUZbGdNsdcHO2NuTioHXAlIRFRRDFAExFFFAM0EVFExXrLq9I4ZLuaBWB7qxtBRM0TmwBN\ bzFScOYDNKKY4yyOBOpevgPrntod22tLRMdxDJqIKKIYoImIImpCAnT5AZ+19jujrUtE1O4m+\ g76mgn+PSKi2JqwWRwVd9Hq+77US+xfUf8FY8z1q1atetlaOxXA89OmTTt/\ 2bJlwUS1mYiolSbsDrqcS7oip/QQgPsAdDrnPqGq91V9ZaNzbl7p/XwAWxiciaidtOwhYSqV+\ pCIXKCqjxhjNqMisT8ABEHwsKreUPrY5ZxbN/GtJCJqnZYF6FJi//\ 2lxP4frT5eKBR2i8ir1tq5AE7J5/\ Mjpi4lIkqSCQ3QquoWLVp0Run9TOfcc8aYn6nq0jpf2aiqDwBYP3GtJCKKhom+g36iWCy+\ Aowusb8xZouInBkEwYaJbSYRUetFejlwNpu9UkRW+L5/\ efUxLvWuj0u9iZIh0smSRORRADe3uh1ERK0Q6QDt+/\ 4ZrW4DEVGrMBcHEVFEMUATEUVUpIc4KtVKotS9fEcrmlLT9hf3Y9ZFU0euSESUdMx6R0RJF5upWLUC\ 8tFdT7aiKZHBqXREyRbbf+DtPg+ac52Jko8PCYmIIooBmogoohigiYgiakzT7Koe1IWq+\ ltVvTWfz29tVIPKO6406nxERHE15jto3/elFEBPUdXFIjLQyAYxOBMRHTeuhSrGmNNUNQTeeudb/\ pzJZOYYYzapqgB4SVUX5/P5H9YrH+2ehURESTfmAF01zPELY8wtw9UXkQ0ANhw4cCBz+\ umnz1HVAoA/rVde8dUhAF8B8G3n3ExjzBMAGKCJqG2c1BBHOp1+O4B/FZF/GBwcfHq4+\ iJyB4DrOjs7H1LVl33ff89w5WUj7VlIRJR0JzWLo7+//2CxWOxS1XustW8JnF1dXe8ov/\ d9v19E5qnqHgCPZrNZO1x52Uh7FhIRJd1JT7MbGhr6A4CVqvrpUlExk8nM6enpOX3SpEnfKNfLZrMv\ hWHYOX369K+p6gCAe4YrLxvlnoVERIk1rnnQ6XT6QRG5EgCcc3ONMZuMMb8G8Fi5jqr2iMhde/\ fuPSoiK1Q1O1x52Wj2LCQiSrLYTmljLg7m4iBKOq4kJCKKKAZoIqKI4o4qJ4k7qBAR1cEdVYgo6WLz\ kIk7qrwZHxASJV9s/\ 5G38ywOzuAgag98SEhEFFEM0EREEdWQWRw9PT0zjTH3A7gMQCgiz4ZhePvq1atfGOu5mLCfiOi4htx\ Be563WUQ2iMjUVCo1DcBmz/O2nMy5GJyJiI5r1Dzoqc65Hfl8/vXS53zpBWutqupsEXkUwE7P8+\ Y99NBDv6mXkL8iYb8CuFtVsyIywzk3t5FbaxERRV2jAvRnjTFPWGt/\ CeC7IvK9wcHB7eWDInItgHcBuDMMwwcAXIvRJeRPT5ky5cJDhw59zBizCcCkBrWXiCjyGjLE4fv+\ ZgDnisjdAIqq+mAmkzmRnS6VSi33ff81AMsBzC6VjZiQPwiCe/v6+o6W7pxTjWgrEVFcNGypt+/\ 7RQDbAWy31uZLaUdzAHD48OEQADzPM0EQhMCJhPwbSgn5X1HVX1Wfs1AoHGpU+\ 4iI4qYhd9DZbHZnJpP5CwDo6uqaDOBiADvLxydNmrRhwYIF54ZheCeApwAm5CciGklDArSqftIY82V\ r7a50Ov2/qvq3IjKvfFxEtoZh+\ BKAi0Xk86UyJuQnIhpG06e0NWteM5d6c6k3UdJxJSERUUQ1PUBz4QkR0cnhHTQRUUQxQBMRRVSst7x\ KXbWleuXhRJqF4/O+iYiaIjYBOoJaFZy7WvS7RDTBYvsArx2n2ZX+\ j4EBmqhNcAyaiCiiGKCJiCKqIWPQtR7gNXL+\ s7X2O77vX9uo8xERxUEjs9k1czz7miaem4gokpo6i6O7u/tPOjo6NgE4T1W/\ KiIrS7ulvGCMuX7VqlUvW2unAnh+2rRp5+/\ bt69YvftKGIY7Ae5VSETtp2Fj0NZarXwBgOd59wN4Jp1Ov0dEzq+ovtE5V852Nx/AlmXLlgXAm3Zf+\ W4Yhg+UgzKDMxG1m2YPcVwNoKu/v//gggULvhaG4W0AEATBw57n/QuAZQC6nHO2/\ IVUKrV85cqVr1lrlwP4r0a1j4gobpo6i0NEgvL7MAy98vtCobBbRF611s4FcEo+nz+\ RD7py9xVVDZvZPiKiKGv2NLunVfW2BQsWvAvAt6qObVTVBwCsryyss/\ uKW7Ro0RlNbisRUaQ0bIijeqqd7/sSBMEXPc/bEIbhTQBuV9X3l48bY7Y451YGQbCh8nsVu6/8SEQ+\ Uyp+olgsvgLgtEa1l4go6hoSoOs9wCsUCnsBfMRamwLQJSI/Lx8Lw/ACEflxoVDYXXWuPIB8ZVkul+\ M0OyJqO02dZmetXa2qc3D8zvc/nHOZ8rHSVLqbm/\ n7RERxFtupa0yWRERJx1wcREQRxQBNRBRRsUnYXyshU/fyHRPeju0v7sesi6ZO+\ O8SEcVGrYBNRJQksXlIWCsgH931ZCua0nDrntodm+\ tARBMntoEhKbM4upfvYIAmopr4kJCIKKIYoImIIooBmogookY1zS6TycwxxmwCkFLVN0TkOt/\ 3n2py24iI2tqId9Cl4LzeOTfX930RkS4A38xms1dOQPuIiNrWiHfQxphNzrm5+Xx+\ KwD4vr8pk8moMeYSAN+31qqq3gpgfi6Xu7S7u3u653lfB3CFiDwP4Bbf93fWK+/\ t7Z2hqqtV9cMAdorILb7v76hXvzl/DURE0TOaMehUOTiX5fP5b/i+\ f19F0f7JkydfDZzYh7Bw7NixM0XkIQCrhit3zq1U1ZdSqdRZIvJVVR0arj4RUbsY81LvygUj5TzQYR\ g+1t/ffwgAROQqAJ9Kp9NQVQA4Mlw5gKs7OjpuGRgYOAxgc+\ k1XH0iorYwmgBdzGQycyqGOKTioSEAoFAoHKqo7xWLxbOGhob+UHWeeuXFMAxdjd+tV5+\ IqC2MOMThnJtrjFmfyWTmAG9+aFirvqr+\ IJVK3bZkyZJTstlsbzabfXa4chHZBuD27u7ut1lr52az2Z8NV5+IqF2MGKDz+\ fxW59yNxphN1lotPTS8sXpcuiwMw8UALjly5Mh+EbHGmMxw5c65zwO4tKOjY5+\ q3qGqNw1Xn4ioXcQ2BwRzcRBR0nElIRFRRDFAExFFFHdUGQZ3TyEiOgncUYWIki42D6eStKPKuqd2r\ wXQ1ep2EFG0xSZAV4vzLI7UVVsYoIloRHxISEQUUQzQREQR1QEwIT8RURQZJuQnIoqmjpES8tdLnF+\ dqN9aqyKSUdU+\ AHcASAO4p5y3w1p7mar2ichMAAdF5M7BwcG1pdkZd6tqVkRmlNtirX3BGHP9qlWrXrbWTgXw/\ LRp085ftmxZ0JK/KSKiCWYwQkL+ERLnn0jUDwCq6jnnPqKqX1DV35aTLJUODwG4D0Cnc+\ 4TqlqZ8D89ZcqUC0uZ88r1Nzrn5pXezwewhcGZiNrJWx4SWmu1/\ AKOJ84XkYfT6fRRVd0I4Ipy3VKi/oPlz2+88cbafD7/UxF574EDBx4vBf4UAKRSqQ+JyAWq+\ ogxZjOAE0v0giC4t6+v72hl/SAIHlbVG0pVupxz65rQfyKiyDIoJeQvF/i+L865vwFQLBV5xWLxLN/\ 3pfSaUq5blagfa9as+SMABYDNmzcfqzxWLBYfA7BfRAZE5KOVx6rPUyrbLSKvWmvnAjgln8//\ ZHxdJSKKFzNSQv5GJc5X1ZnOueeMMT9T1aWj/NpGVX0AwPqT+\ U0iojgzIyXkb1TifBG5S0SeDsPwp6o6qrthY8wWETkzCIINJ/ObRERxFuml3tls9koRWeH7/\ uXVx7jUm4iSLtLpRkXkUQA3t7odREStEOkA7fv+\ Ga1uAxFRqzAXBxFRRDFAExFFVKSHOCrVSthfetjWDLMAbG/\ SuYmIRiU2AXqCVQdnzrggogkX6Wl2w5moaXacEkdErcIxaCKiiGKAJiKKKAZoIqKIGlOAttbOLaUin\ TueH7XWfmeYY2+ZrUFE1I7GegfdBWADxv/Q7Jp6B3zfj+\ 2DSyKiRhr1NLuFCxeeXSwWPyAi71bVnQsXLjx7YGDgd8Dxu97KwFr+\ XN6MVlUFwEuqutgY84PKOrW2ziqV19wiq8H9JyKKrFHfQReLxRtFZKvv+6+\ JyLeKxeKNI31HRDYA2HDgwIHJxph/\ NMYUyoG86k75TVtnlQy3RRYRUeKNZYijC8BGAHDOjWqYQ0TuAHBdZ2fnQ6r6su/\ 776lVr3rrLGD4LbKIiNrBqAK0tfZiEbkIwPdKSf2/KyIXWWsvrq7b1dX1jvJ73/\ f7RWSequ4B8Gg2m7W1zl9ry6vhtsgiImoHo72D7gJwZ8W+hALgS/j/u+hiJpOZ09PTc/qkSZO+\ Uf5SNpt9KQzDzunTp39NVQcA3AMAquoWLVo0bCrRk9wii4goMUYM0NbalKp+\ PAiCgapDDwG4xlqbKu1ruMkY82sAj5UrqGqPiNy1d+/\ eoyKyQlWzpUNPFIvFV4b73ZPZIouIKEliO6WNuTiIKOm4kpCIKKIYoImIIooBmogoomKTsL9Wjo7u5\ TvGdI7tL+7HrIs4nZqIqKmYVImIki42szhqBeSju55sym+\ te2p3bP5eiCi5YhuImjXNrnv5DgZoIooEPiQkIoooBmgioohigCYiiqimBeixzrIo1+\ fsDCKi4yJ3B80tr4iIjmv6QpXSHfHdqpoVkRnOubn5fH5rb2/\ vec65jSJyIYBsZX1ueUVENHF30OkpU6ZcWE5LCgCq+qCIPBMEwbkALqnxHW55RURtbUICdBAE9/\ b19R3N5/NbAaRKxbMB3FcoFA6FYbii+jvc8oqI2t2EBOhaW1qpqnqeZwCg/\ GclbnlFRO2uZQ8JReSZMAzv6unpuUBVn60+zi2viKjdtTJAfw7AZZ7nPS4ib9mxhFteEVG7i+\ 2UNubiIKKki9w8aCIiOo4BmogooiK/o8pwS79Hu6NK3HdSKS/eaXU7mq1d+gm0T1/bpZ9Ac/oa+\ QBdr8PWWh3LWPFv9h5pXKOIiCZA2wxxjCUJ08kmempW/Si1pZl/j2MVpbZHqa9R+\ m9grKLU9ihc07YJ0EREcRP5sSGmHyWidtQuY/dERERERERERERE1BqxGoQu7bLyiIjMAPBLVV2cy+\ W+3+p2NUpvb+95qvqflWUVu8vEvt+ZTOYcEXkul8tNK5fV61vc+\ 1yrr0m7vtbaKwAMqOp7AfxSRKzv+zuSeE3r9bXZ1zRW0+\ xU9Usicm8QBGcAeEREbm11mxopDMPZqrrW930pv4Bk9DuTycwxxmwTkbMry+\ v1Lc59rtfXBF7frwP4u2PHjp0uIn7pcyKvKer0tdnXNFYBGsAl6XR6XWkXltUA/rzVDWokY8xsAM/\ UOBT7fouIDcPwEzUO1etbbPtcr69Ju76+77/X9/3H16xZ88fTTjttDYAZpUOJu6b1+\ trsaxr5pd6VROTM/v7+QwBw8ODB/Z2dndNG+\ k7MzAZwfjabHRCRF8Mw7F69evUvktDvXC73cQCw1r6pvF7f4tznen1Fgq/v66+//\ pcAvgUk85pWquwrmnxN43YHXVy6dGnluHmiFrH4vn9eLpe7cvr06W93zmU8z1tTOpTkftfrW+\ L6nNTr29PTc7pzbjGAL5SKEntNq/va7GsatwD9uz179rwDADo7OzsB/\ HeL29MUy5YtczNmzPgFgAtLRUnud72+JbbPSbq+\ CxcuPNvzvP4wDBf7vv9aqTiR17ROXwE075rGaogDwI+MMfOXLFmy+vDhw58WkdHlG40Ja+\ 3LInLTq6+++pM9e/b8med520uHktzven1LXJ+\ Tdn0zmcxHgyC4OwzD6wuFwu8rDiXumtbra7OvaawCtIjkAKw7fPhwn4jsBTCv1W1qJOdclzEm19nZ+\ W5VfdY51w0ku9/1+pbEPift+hpjfADv9Dzvd+Xxdt/3JYnXtF5fk3ZNiYiIiIji7f8AIG+\ ZcsrU1uMAAAAASUVORK5CYII=\",\"boundingBox\":{\"width\":360,\"height\":208,\"\ baseline\":107}},\"plotRange\":[0,1,0,1],\"requestedImageSize\":[\"Automatic\"\ ,\"Automatic\"]}", AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, False}, AxesLabel->{None, None}, AxesOrigin->{0., 0.3429357798165137}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{{{1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {1., FormBox[ InterpretationBox["\"India\"", Entity["Country", "India"], BaseStyle -> "Entity"], TraditionalForm], 0}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {2., FormBox[ InterpretationBox["\"Austria\"", Entity["Country", "Austria"], BaseStyle -> "Entity"], TraditionalForm], 0}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {3., FormBox[ InterpretationBox["\"Germany\"", Entity["Country", "Germany"], BaseStyle -> "Entity"], TraditionalForm], 0}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {4., FormBox[ InterpretationBox["\"Greece\"", Entity["Country", "Greece"], BaseStyle -> "Entity"], TraditionalForm], 0}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {5., FormBox[ InterpretationBox["\"Egypt\"", Entity["Country", "Egypt"], BaseStyle -> "Entity"], TraditionalForm], 0}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {6., FormBox[ InterpretationBox["\"Spain\"", Entity["Country", "Spain"], BaseStyle -> "Entity"], TraditionalForm], 0}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {7., FormBox[ InterpretationBox["\"Russia\"", Entity["Country", "Russia"], BaseStyle -> "Entity"], TraditionalForm], 0}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {8., FormBox[ InterpretationBox["\"Italy\"", Entity["Country", "Italy"], BaseStyle -> "Entity"], TraditionalForm], 0}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {9., FormBox[ InterpretationBox["\"France\"", Entity["Country", "France"], BaseStyle -> "Entity"], TraditionalForm], 0}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {10., FormBox[ InterpretationBox["\"World\"", Entity["Country", "World"], BaseStyle -> "Entity"], TraditionalForm], 0}}, {{1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}}}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{All, All}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.05]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, None}]], "Output", CellChangeTimes->{ 3.683294839742305*^9, {3.683303942001812*^9, 3.6833039686114893`*^9}, { 3.6833047419271135`*^9, 3.683304759412114*^9}, 3.688409004438138*^9, 3.688409043734385*^9, {3.688478521254253*^9, 3.688478539682583*^9}}] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{775, 873}, WindowMargins->{{321, Automatic}, {28, Automatic}}, WindowTitle->"Examples for The Story of Mankind", Visible->True, DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, Background->GrayLevel[0.9999], FrontEndVersion->"13.2 for Mac OS X x86 (64-bit) (November 18, 2022)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[627, 23, 36, 0, 70, "Subsection",ExpressionUUID->"6aff5fc1-eb85-485a-b8bf-0cccc6670080"], Cell[666, 25, 215, 3, 70, "Text",ExpressionUUID->"dd1a0a47-3ff2-4b74-afcf-a0e0b3a17f3f"], Cell[CellGroupData[{ Cell[906, 32, 220, 4, 70, "Input",ExpressionUUID->"1f4e8179-038e-4700-802f-d1bd4886a460"], Cell[1129, 38, 14438, 321, 70, "Output",ExpressionUUID->"7d8d56e1-4e54-47ac-a5d0-61c1fae9e845"] }, Open ]], Cell[15582, 362, 204, 3, 70, "Text",ExpressionUUID->"ab2afaaa-3ef8-43c0-a774-1442d69e9989"], Cell[CellGroupData[{ Cell[15811, 369, 318, 8, 70, "Input",ExpressionUUID->"1268e9cb-c47d-46d6-adb6-9aa2e8536d1d"], Cell[16132, 379, 1152, 16, 70, "Output",ExpressionUUID->"161c6bfa-2342-4992-bbd7-8e2439585cb0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17333, 401, 35, 0, 70, "Subsection",ExpressionUUID->"4d39daa7-c087-4c5a-8a9f-08713c05c819"], Cell[17371, 403, 330, 4, 70, "Text",ExpressionUUID->"52f11ee1-d297-4e22-897c-e90384438bb8"], Cell[CellGroupData[{ Cell[17726, 411, 635, 14, 70, "Input",ExpressionUUID->"27ca5f5e-e63e-4d89-ac75-df8add7d6aa8"], Cell[18364, 427, 17036, 492, 70, "Output",ExpressionUUID->"27bdd75c-a446-4139-8eb0-28a3f84cdcc9"] }, Open ]], Cell[35415, 922, 331, 4, 70, "Text",ExpressionUUID->"08596ce0-374e-4843-8d90-3420ebae902c"], Cell[CellGroupData[{ Cell[35771, 930, 910, 21, 70, "Input",ExpressionUUID->"bb88dbac-d524-481c-aaf5-885e298b1419"], Cell[36684, 953, 28606, 653, 70, "Output",ExpressionUUID->"f8beb5fc-0d14-4a86-8fae-5711fa44b778"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)