(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 87399, 2257] NotebookOptionsPosition[ 85289, 2197] NotebookOutlinePosition[ 85911, 2220] CellTagsIndexPosition[ 85868, 2217] WindowTitle->Examples for Of Human Bondage WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection",ExpressionUUID->"3924f484-a75f-406b-8d55-1eaa9eba444b"], Cell["Retrieve the ResourceObject:", "Text", CellChangeTimes->{{3.6821849447840075`*^9, 3.682184951647694*^9}, { 3.6821850182913575`*^9, 3.6821850462121496`*^9}, {3.6821850885233803`*^9, 3.68218509051958*^9}},ExpressionUUID->"991005ae-a33e-4eb8-8ed1-\ 592323c101a2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804517731799183`*^9, 3.6804517885604563`*^9}, { 3.6804527318597765`*^9, 3.6804527390684977`*^9}},ExpressionUUID->"6bf6fbae-2b78-4171-a236-\ 44c6f3cffd94"], 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["\<\"Of Human Bondage\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for W. Somerset Maugham's \\\"Of Human \ Bondage\\\"\"\>", "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["\<\"Of Human Bondage\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for W. Somerset Maugham's \\\"Of Human \ Bondage\\\"\"\>", "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[{ ",","\",\"","\"fiction\"","\"text\"","\"book\"","\"novel\""}, "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[ "dd4f7108-8e69-40ca-922e-0f30a35c081f"]; 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["\<\"dd4f7108-8e69-40ca-922e-0f30a35c081f\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"\\[LeftAssociation]", RowBox[{"\<\"Plaintext\"\>", "\[Rule]", "1410664"}], "\\[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[ Association[ "Name" -> "Of Human Bondage", "UUID" -> "dd4f7108-8e69-40ca-922e-0f30a35c081f", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Plaintext for W. Somerset Maugham's \"Of Human Bondage\"", "ContentSize" -> Association["Plaintext" -> 1410664], "ContentElements" -> {"Plaintext"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.683650007835575*^9},ExpressionUUID->"a347b43c-9c98-4bd9-a67b-\ 46899cd070e9"] }, 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}},ExpressionUUID->"e24b505f-3a2b-47e9-be35-\ 945aea757017"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", "5", "]"}], "]"}]], "Input", CellChangeTimes->{ 3.683650024217539*^9, {3.702836023686612*^9, 3.7028360679578047`*^9}},ExpressionUUID->"d62d199d-d2a8-4f94-b9f0-\ f909e7faf04a"], Cell[BoxData["\<\"The day broke gray and dull. The clouds hung heavily, and \ there was a\\nrawness in the air that suggested snow. A woman servant came \ into a room\\nin which a child was sleeping and drew the curtains. She \ glanced\\nmechanically at the house opposite, a stucco house with a portico, \ and\\nwent to the child's bed.\"\>"], "Output", CellChangeTimes->{ 3.6836500301045923`*^9, {3.702836030716154*^9, 3.7028360685368643`*^9}},ExpressionUUID->"617e1669-45d3-4c99-88f2-\ 3af582f45867"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection",ExpressionUUID->"5de441b3-772f-4419-ab96-9dc54bca1cd9"], 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}},ExpressionUUID->"a5cc039c-b0b2-472e-9bb9-\ 148d7e06327f"], 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.6836500865694227`*^9, 3.683650087310687*^9}},ExpressionUUID->"88d2eb7c-8b7d-4a8b-b1f4-\ c446596faaae"], 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}, {3., 1.4587155963302751`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{61.75000000000001, 69.98478260869565}, { 62.38633917240372, 78.82779433691324}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "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`}, {3., 2.458715596330275}, "RoundingRadius" -> 0]}, ImageSizeCache->{{61.75000000000001, 69.98478260869565}, { 45.01015304308834, 61.45160820759786}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "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}, {5., 3.4587155963302756`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{61.75000000000001, 75.1413043478261}, { 27.633966913772944`, 44.07542207828248}}], StatusArea[#, 5]& , TagBoxNote->"5"], StyleBox["5", {}, StripOnInput -> False]], Annotation[#, Style[5, {}], "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`}, {7., 4.458715596330276}, "RoundingRadius" -> 0]}, ImageSizeCache->{{61.75000000000001, 80.29782608695653}, { 10.257780784457566`, 26.699235948967086`}}], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "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}, {8., 5.458715596330276}, "RoundingRadius" -> 0]}, ImageSizeCache->{{61.75000000000001, 82.87608695652175}, {-7.11840534485782, 9.3230498196517}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "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}, {8., 6.458715596330276}, "RoundingRadius" -> 0]}, ImageSizeCache->{{61.75000000000001, 82.87608695652175}, {-24.494591474173205`, -8.053136309663671}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "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}, {19., 7.458715596330276}, "RoundingRadius" -> 0]}, ImageSizeCache->{{61.75000000000001, 111.23695652173913`}, {-41.87077760348858, -25.429322438979057`}}], 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., 7.541284403669725}, {24., 8.458715596330276}, "RoundingRadius" -> 0]}, ImageSizeCache->{{61.75000000000001, 124.12826086956522`}, {-59.24696373280396, -42.80550856829443}}], StatusArea[#, 24]& , TagBoxNote->"24"], StyleBox["24", {}, StripOnInput -> False]], Annotation[#, Style[24, {}], "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}, {25., 9.458715596330276}, "RoundingRadius" -> 0]}, ImageSizeCache->{{61.75000000000001, 126.70652173913044`}, {-76.62314986211935, -60.181694697609814`}}], StatusArea[#, 25]& , TagBoxNote->"25"], StyleBox["25", {}, StripOnInput -> False]], Annotation[#, Style[25, {}], "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}, {109., 10.458715596330276`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{61.75000000000001, 343.2804347826087}, {-93.99933599143473, -77.5578808269252}}], StatusArea[#, 109]& , TagBoxNote->"109"], StyleBox["109", {}, StripOnInput -> False]], Annotation[#, Style[109, {}], "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["\<\"Turkey\"\>", Entity["Country", "Turkey"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 1.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Japan\"\>", Entity["Country", "Japan"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 2.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"China\"\>", Entity["Country", "China"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 3.0000000000000004}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"India\"\>", Entity["Country", "India"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 4.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Italy\"\>", Entity["Country", "Italy"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 5.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Luxembourg\"\>", Entity["Country", "Luxembourg"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 6.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"France\"\>", Entity["Country", "France"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 7.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Spain\"\>", Entity["Country", "Spain"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 8.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Germany\"\>", Entity["Country", "Germany"], 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,\ iVBORw0KGgoAAAANSUhEUgAAAWgAAADGCAYAAAD/hBr/\ AAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAOxAAADsQBlSsOGwAAF95JREFUeJzt3X9wXNV1B/\ DvuU+rlW1lGoKdiQ0kASaleIhLwQQTJ+BCW5IU0jiBmDoOwtLuEzKYIAqBkBDjzpDaA45qhH/\ o7VrCP/nhGFPoNGAIY5IYktrBKT8ayMSpDUydFEPAtjDSvndP//Bbz7KsJEuWtO/tfj8zGu/\ 7ufeY4fjqvvvOBYiIiIiIiIiIiIiIaFi5rqvlbgMRUX9MuRtARESlMUETEUVUTbkbMNIGGMpYPWoNI\ aJq1HAsF8twtSJuXNfVZVe8We5mEFGFaly0A2u37DmmHMshDiKiiGKCJiKKKCZoIqKIKmuCdl13dyq\ VOrFge5bruppOp7+\ W35dKpU50XXf3IO5Z8qEg5z0TUdyUuwe91XGcaQXbswCsF5Gv53eEx7eOdsOIiMqtrNPsrLVbjTHTA\ Pxo3rx59b7vnwPgDAD/\ PWfOnHHr1q3rVtVp1tqtqVTqRGPMGgCfUdVfqOpV2Wz2ddd1VVVvADA7k8mck793c3PzJ621G0RkMo\ B0eSIkIhq6svagHcfZqqrTAMD3/S+\ r6mbP895R1UfGjh17SXjauY7jbDXGtKvqs8lkcpKIbBeRewputa+uru6iwnur6j0i8qTv+\ ycBmDpKIRERDZuyJuiOjo7dInK867oJVf264zhd4aFOALMXLFhQA+D4jo6O3QDO7+3tvbO9vX1/T0/\ PYhGZkb9PEAQPt7e37y+6/QwASzo7Ow8EQbB4FMIhIhpW5R6DBoBfAnABnLBy5cqdAJDJZLYD+\ PjevXvnAfjP8LwjbR07dqyoqpPf7uzsPFB8U1VVx3EMAOT/\ JCKKk7InLmvtVgD3iMj6okOrASwNj0NVf1ZbW3tTY2Pjh3zfv1lEtvV3XxF5MgiCW5uamk5X1WdGpP\ FERCOo7AnacZytAHK5XK44Qa8D0BseRxAE8wF81nGcP4rIdBG5ur/7isi1ODx+/\ aiIHNP78ERE5cBaHEREI4C1OIiIKhgTNBFRRFV8Pei8Uq96Ny7aUY6mUAxte3Efpp8xvtzNIKoOrM1\ BRFFXNQ8JSyXkQ7sfL0dTIuNYH2AQ0ciq2v9Bq30Wx3A8YSaikcWHhEREETUsDwlTqdRMY8wDABKq2\ iMiX/Y8b8tw3JuIqFodcw86TM7rrLWzPM+T8K29H6XT6QuGoX1ERFXrmHvQxpgHrLWzstnsZgDwPO+\ BVCqlxpipAJ5ubGyc5DjOvQDOE5GdAOZ6nreruI6z67oqIilVbQNwM4AkgDustXOy2exm13XPVdU2E\ ZkCYL+I3NLR0bEmfPj3XVVNi8gJ+ba4rvu8MebylStXvuK67ngAOydOnHjywoUL/\ WONmYhoNAzHGHQin5zzstnsg57nLQEAx3GWAujs7e2dICIrAKwsOPV9dZxV1bHW/\ rWqfktVX7PWzgmHTgCgC8ASAMdZay9V1SUF90nW19dPttbOKjh/g7X2ivDzbACbmJyJKE6G/\ SGh67qa/wEAEblQRO5LJpOHVHUDgPPy5xbXce7p6VmTzWafE5HT3n777UfDxJ8AgEQi8XkROV1V7zf\ GbARw5K0B3/fvamtrO1R4vu/796lqfumsBmvt2uGOlYhoJA1Hgs6lUqmZ+Q3P88Ra+\ 1UAuXCXk8vlPup5noQ/9flzi+s4r169+j0ACgAbN27sfd+\ X5HIPA9gnIstF5OLCY6XqQXd2du4Rkbdc150FYEw2m/3VMcZJRDSqjjlBh8MK6/\ JJuvChIQCo6k8TicSNra2tY9LpdHM6nR5SbWZVnWKt3W6MeUFVFxzlZRtU9W4cLl1KRBQrx5ygs9ns\ 5vxYseu6Gj40nJMflw7rOE/t7u7eJyKuMSY1lO8RkVtF5IkgCJ5T1aPqDRtjNonIBN/\ 3i2tNExFFXkW/SZZOpy8QkcWe500rPsY3CfkmIVHUVXQ1OxF5CMBV5W4HEdFQVHSC9jzv+\ HK3gYhoqFiLg4goopigiYgiqqKHOAqVqgeduHDTmnK0JTQdwLYyfj8RRVzVJOhSvvl3n7iyzE04dbS\ /cO2WPWsANIz29xLR4FXtNKtqnWYX/\ tbABE0UAxyDJiKKqEgMcTQ1NU0xxiwFcC6AQESeCYLgplWrVj0/\ 2Hu5rque51XtbwZEVDki0YN2HGejiKwXkfGJRGIigI2O42wayr2YnImoUkSiBw1gvLV2RzabfTfczo\ Y/CAv7zwjfCtzlOM4VK1as+H1/Bfw9z5O+CvmXKT4iokGLSoK+\ 2hjzmOu6LwP4iYg81dHRcWQKmohcAuAUALcEQXA3gEtwuID/bQAesdZOMcY8BqB42lyyvr5+\ 8oEDB74QFvKvHZ1wiIiOXSSGODzP2wjgJBH5LoCcqt6TSqXS+eOJRGKR53nvAFgEYEa4r88C/\ nmlCvkTEcVFVHrQ8Dwvh8MvbmxzXTdrjPkdgAwAHDx4MAAAx3GM7/sBcKSA//qwgP+\ rqvrb4nuWKuRPRBQXkehBp9PpXalU6mwAaGhoqANwFoBd+eO1tbXrW1paTgqC4BYAW4AhF/\ AnIoqNSCRoVf2aMeZ7ruvuTiaTf1LVb4tIfsFXiMjmIAheAnCWiFwX7ht0AX8iojiJ/\ JS0kZrXzDcJiSjqItGDJiKiD4p8guaLJ0RUrSKfoImIqhUTNBFRREVmHvRIi1jBfhbrJ6IBVU2Cjpj\ hTM6ckUFUoar2AVwlTLPjlDmiysYxaCKiiGKCJiKKKCZoIqKIGrWHhKVmUfAlFCKivo3qLA4mZCKio\ 1f2aXbhklY3AJidyWTO6W8pK5RYwqq5ufkEVV2lqucD2CUicz3P29HY2DjJcZx7AZwnIjsBzPU8b1c\ /TSEiipRRTdCFwxxFvel9dXV1F4Wf+1vK6gNLWFlrlwF4KZFIXOb7/\ hdVtQvApx3HWQqgs7e398t1dXUzVXUlgL8d8SCJiIZJJIY4giB4uL29/QBweCmrXC7XoqqzjTF/\ hYKlrPJLWAHY7Lpufgmri2pqauYuX778IICN4Q9E5EIAlyWTSagqAHSPXGRERMOv7EMcwPuXpupvKa\ s+lrDKBUFgS+x3crncR7u6ut4YgSYTEY24SCToQqo6RVWvr6mpec1a+8OBzheRrQBuamxsXFxTU/\ MlVf1eJpP5tKr+\ NJFI3Nja2nr7wYMHrwTQkMlkPjviARARDZPIzYMe7FJW1trrAJxTU1OzV1VvVtVvAkAQBPMBTO3u7t\ 4nIq4xJjXSbSciGk5VO+2NtTiIKOoi14MmIqLDmKCJiCIqcg8JR0qpV80bF+0Yse/b9uI+TD9j/\ MAnEhHR+5VK2EREUVI1DwlLJeRDux8f1u9Yu2UPH9oR0bCpmgRdbCRmcXBWBRENJz4kJCKKKFPusdh\ yfz8RUVSxB01EFFF9TrNzXVcLq8/\ lt9Pp9EYRedDzvI2u616uqjMzmczsvuovu66rIpJS1TYANwNIArjDWjsnm81uBoBUKnWmMWYNgH0Ar\ vI879VUKnViuO8zqvoLVb0qm82+3le7iutKNzY2fqKmpuYBAJ9U1X8WkWVcMICI4mTQPWjf9+\ ep6u3Nzc2TAdxWW1s7HwAK6i9PEJEVAFbmr1FVx1r716r6LVV9zVo7J6znfLgRxnwjmUx+\ TlWfBbA03Neuqs8mk8lJIrJdRO45iuYdqSsdtufJZDL55yJy8mDjJCIqt0En6K6urjdE5HZV3Q7g9m\ XLlr0JHK6/LCL3JZPJQ6q6AcB5+Wt6enrWZLPZ50TktLfffvvRsOecKDh+R3t7+/7e3t47AcwId5/\ f29t7Z3t7+/6enp7FIjIDAwjrSu8PNy8CcGd7e/t+x3F+\ MNg4iYjK7ajeJGxoaPhw8T5VtSKSKNjVZ/3l1atXv5f/vHHjxt7i4+\ PGjfMBYOzYsRIEQS7cfeQfj7Fjx4rv+\ 85A7SqsFy0ifv5zEAQfuJaIKOr6S9C5VCo1U1WfNsbcn985d+7cCQBuE5FzADw0d+\ 7cp7q6ut44lvrLvu8/0tTUdE0QBI2q+hQAqOrPamtrb2psbFzk+/\ 7NIrKtv3aV8ISq3tjS0tIVBMHao2kHEVGUGODwg7bCHwCw1s4yxjxgjPkdgIfzFyQSiWUAvu953svW\ 2ttramqWA8dWf1lEWo0xm1X1L0WkteB+n3Uc548iMl1Eru6vXcV8378ewOeCIHgKwL+q6qFB/\ t0QEZVVxc9qCNcubABwted5Uwv2801CIoq0iq1m57ruKlWdCWAcgP+\ y1nJFFSKKlYpN0J7nNQFoKnc7iIiGim8SEhFFFBM0EVFEVewQR7FSRZnCh3oDmQ5g24BnERENM/\ agB8bkTERlUfHT7PrCaXZEFHXsQRMRRRQTNBFRRMUiQecf8Lmu++9Hey4RUdzFIkEX+\ PtyN4CIaLTEZppdQS86v4LKuaraJiJTAOwXkVs6OjrWFJz/vDHm8pUrV77iuu54ADsnTpx48sKFC/\ 2+voOIKEpi04POL1dVsGxVF4AlAI6z1l6qqkuKLtlgrb0i/\ DwbwCYmZyKKk9gk6GKJROLzInK6qt5vjNkIYHzhcd/\ 371PVr4ebDdZa1oQmoliJbYLO5XIPA9gnIstF5OLi452dnXtE5C3XdWcBGJPNZn81+\ q0kIhq6WCVoVbXXXHPN8eHnKdba7caYF1R1QR+\ XbFDVuwGsG71WEhENj1glaACP5XK5VwFARG4VkSeCIHhOVUv2jo0xm0Rkgu/760e3mUREx66iX/\ VOp9MXiMhiz/OmFR/jq95EFHWxmWY3FCLyEICryt0OIqKhqOgE7Xne8eVuAxHRUMVtDJqIqGpUdA+\ 6UKkaHY2Ldgx43bYX92H6GeMHPI+IaLhV9EPC/oSvjB/\ NiipHgw8GiWjYVU2CLtWDHo5ZHI2LdmDtlj1V8/\ dIRKOnaoY4Cmp4AGBZUiKKPj4kJCKKKCZoIqKIimyCHuwQRGG96JFpERHR6Ipsgh6q4rFmIqK4ivxD\ wrBH/F1VTYvICdbaWdlsdnNzc/MnrbUbRGQygHTh+Uez4goRUdTFpQedrK+\ vn2ytnWWMeQAAVPUeEXnS9/2TAEwtcc1AK64QEUVaLBK07/\ t3tbW1Hcpms5sBJMLdMwAs6ezsPBAEweLiawZacYWIKOpikaA7OzsPFO9TVXUcxwBA/\ s9CA624QkQUdbFI0KWIyJNBENza1NR0uqo+\ U3z8KFdcISKKrDgn6GsBnOs4zqMi8oFaGEez4goRUZRV7ZS04VpRhbU4iGikxLYHTURU6ZigiYgiKv\ IvqgyXoRTsZ7F+IqIyYM0OIoq6qnm4VSohH9r9+\ KDusXbLnjXg6ilENEqqJkEXG8osjsSFm5igiWjU8CEhEVFEMUETEUVUZGZxpNPpawH8Ew4XNdpSU1O\ TWrFixZ/y5UOLz+9rPxFRpYhED9p13QYRabLWfikIgkkissf3/WX9XcPkTESVLio96Pmqev2qVat+\ AwBz5sy5bcyYMUcexjU3N19prb1VRE7JF+wvKMxfsqA/C/YTUdxFIkGr6mQR+XV+\ e926dd0Alue3rbVniMi51toLw4L9tUW3SNbX108+\ cODAFwqOdwG4DcAj1topxpjHADBBE1FsRGKIA8B7AHJ9Hayvr1/ged47RQX7jyhV0J8F+\ 4ko7iKRoEXkSQBnFe5LpVJn5z+3tbUd6u/\ 6UgX9WbCfiOIuEkMc1tqFItLR0tJyZU9Pzxs1NTU3quoYAEOu46yqU1T1+\ pqamtestT8cxuYSEY2KSPSgs9nsSyKyPAiCnzmO87qqntTb2/v9Y7knC/\ YTUdxV7VQ1vupNRFEXiR40ERF9EBM0EVFEMUETEUVUJGZxjIZS9aDDMeVi0wFsG/\ kWERH1r2oS9CAUJmc+ECSisuEsjj5wxgYRlRvHoImIIooJmogooiKToLnKNhHR+\ 0UmQRMR0ftFbhZHX4X2XddVVZ0hIg8B2OU4zhUrVqz4fX/no0Qh//JGR0R09KLYg+\ 4CsATAcdbaS1V1Sf6AiFwC4BQAPwmC4O6BzkdYyN9aOyss5E9EFBuRS9D9FdpPJBKLPM97B8AiADMG\ Or9UIX8iorgo6xCH67qvvfvuu39x6qmnHtq7d28AHCm0vz4stP+qqv42f/7BgwcDAHAcx/i+P+\ D5pQr5ExHFRbl70G+\ NGzfui3v37v0bVX0NOFxo31q73RjzgqouKDy5trZ2fUtLy0lBENwCYMtA5xMRxVm5E/RNqno3Di/\ meiPQf6F9EdkcBMFLAM4SkesGOp+\ IKM5i86q367rqed6wtZevehNR1JW7B01ERH2ITYIezt4zEVEcxCZBExFVm8i9SThSStX6aFy048jnb\ S/uw/QzxhefQkREo43FmYgo6qpmXLdUQj60+/E+z1+7ZQ9ncRBRWVVNgi7GaXZEFHV8SEhEFFGj+\ pCw1DDDYKbPDffLKkREUTaqCTqfXJloiYgGFolpdsUJO78dFum/\ AcDsTCZzTsHxr6jqxZlMpqWxsXGS4zj3AjhPRHYCmOt53i7XdZ83xly+\ cuXKV1zXHQ9g58SJE09euHChP+\ oBEhENQRzGoPfV1dVdlN9obGz8EIDL8sWSHMdZCqCzt7d3goisALAyPHWDtfaK8PNsAJuYnIkoTiLR\ g+5PEAQPt7e3H6nr7DjOHar660wmkwMAEbkQwGXJZBKqCgDdAOD7/n2O4/\ wHgIUAGqy1bhmaT0Q0ZJFL0A0NDR8u3C4uui8ib6pq4St/Ti6X+\ 2hXV9cbRdftcV33Ldd1ZwEYk81mWYqUiGIlKkMcuVQqNbOpqekjtbW1D/\ Z3oud5C0VkTCqVOhsAVPWniUTixtbW1jHpdLo5nU4/U3D6hrDe9LqRbDwR0UiIRILOL+\ pqjPkdgIeP4pL/McZcCQBBEMwHMLW7u3ufiLjGmFT+JGPMJhGZ4Pv++\ hFqOhHRiKnoqW7pdPoCEVnsed604mN8k5CIoi5yY9DDSUQeAnBVudtBRDQUFZ2gPc87vtxtICIaqki\ MQRMR0QcxQVeISqpvXUmxAJUVTyXFAkQ/nooe4gD6/w8QPgjMmw5g28i3iIiI+\ jWUfzkr6ZqotovXDO2aqLaL1xzbNRziICKKqIqeBw1Ef4yJiKgYyzETERERERERERER0UirqoFo13X\ PVdX7ReQEAC+\ r6vxMJvN0uds1GK7rngdguaqeBuBlEXE9z9sR59hc170UwCMFa1bGMpaGhoa6ZDJ5t6peFtYtT2Uym\ afjGE9zc/MMVV2qqp8SkVdE5NqOjo5tcYsllUqdKCLbM5nMxPy+\ vmKIYmxVNc1OVb8jInf5vn88gPtF5IZyt2kI7gXw/d7e3o+IiBduxza2hoaGOgD/\ UrgvrrEkk8lbAewTkRNF5DsikgXiGY+1dp2IpEXkzwDMU9UNQLxiSaVSM40xW0XkY4X7+\ 4ohirFVVYIGMDWZTK7t7Ow8EATBKgBnlrtBg+\ V53mme5z26evXq98aNG7cawAnhoVjGVltbe4uq3le0O5axqOrXrLWbPM97t6Oj40ee530qPBS7eETk\ kLVWJ06cqNbaXgC94aHYxCIibhAEl5Y41FcMkYutqhK0iEzIr2+4f//+fQAmDnBJpL377rufA/\ BvQDxja2lpOUVEvlpXV3dX4f44xgIAInKKMeYf0un0O+l0+oVUKnVmuD928ahqSkR+\ vnfv3pwx5llrbSMQr1gymcwXV61a9Zvi/X3FEMXYqipBA8gtWLCgcNw9ti+xNDU1fcRaOx/\ At8JdsYstCIKlAL7d3t7eU3QodrGEEqr6Zn19/\ cdE5DoRyYT7YxePiNypql9JJpN1InK5MeYH4aHYxVJCXzFELrZqS9B/\ eP311z8MAMcdd9xxAP6vzO0Zknnz5n3McZz2IAjme573Trg7jrFdAuDH+bc9C976jGMsUNU/\ 1NXVdbW1tR0C8HMROSM8FLt4VPX0SZMmPdHe3t7T3d39pKqeHR6KXSwl9BVD5GKrtgT9S2PM7NbW1j\ Gq+g0AO8rdoMFKpVIX+77/YBAEN3R2du4pOBS72DzPk/xPfjs8FLtYAEBEfvzee+/9o+\ u6CRGZoar5leRjF4+IbN+7d++01tbWMWPGjDlfRHaGh2IXSwl9xRC52Cq+\ 3Gih8FfOtQcPHmwTkf8FcEW52zRYxhgPwMcdx/\ mD67oADie2SogtL66x9PT03JRMJrOqepeq7jLGzAbiGY8xpsVa29nd3X2miPzaGJMfg45dLMX6iqES\ YiMiIiIiqm7/D0so2omKOAnhAAAAAElFTkSuQmCC\",\"boundingBox\":{\"width\":360,\"\ height\":198,\"baseline\":102}},\"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["\"Turkey\"", Entity["Country", "Turkey"], 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["\"Japan\"", Entity["Country", "Japan"], 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["\"China\"", Entity["Country", "China"], 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["\"India\"", Entity["Country", "India"], 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["\"Italy\"", Entity["Country", "Italy"], 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["\"Luxembourg\"", Entity["Country", "Luxembourg"], 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["\"France\"", Entity["Country", "France"], 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["\"Spain\"", Entity["Country", "Spain"], 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["\"Germany\"", Entity["Country", "Germany"], 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.6836500969044*^9},ExpressionUUID->"00322d84-8d3c-4c71-9235-2b1751dbcc8a"] }, Open ]], 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}},ExpressionUUID->"a8e60f17-36da-4509-92ee-\ 5a3438e1b8e9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"sentences", "=", RowBox[{"TextSentences", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{ RowBox[{"(", RowBox[{"Length", "/@", RowBox[{"(", RowBox[{"TextWords", "/@", "sentences"}], ")"}]}], ")"}], ",", 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.683650049937257*^9},ExpressionUUID->"dd223936-55c6-4a00-8953-\ e55dd8d9ae93"], 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}, {2., 52}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.119895916733384`, 37.92387964425594}, { 83.59310590783127, 91.69145508924977}}], StatusArea[#, 52]& , TagBoxNote->"52"], StyleBox["52", {}, StripOnInput -> False]], Annotation[#, Style[52, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {4., 359}, "RoundingRadius" -> 0]}, ImageSizeCache->{{37.42387964425594, 42.2278633717785}, { 38.733621317533604`, 91.69145508924977}}], StatusArea[#, 359]& , TagBoxNote->"359"], StyleBox["359", {}, StripOnInput -> False]], Annotation[#, Style[359, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {6., 1045}, "RoundingRadius" -> 0]}, ImageSizeCache->{{41.7278633717785, 46.53184709930106}, {-61.50613903733351, 91.69145508924977}}], StatusArea[#, 1045]& , TagBoxNote->"1045"], StyleBox["1045", {}, StripOnInput -> False]], Annotation[#, Style[1045, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0}, {8., 1305}, "RoundingRadius" -> 0]}, ImageSizeCache->{{46.03184709930106, 50.83583082682361}, {-99.49788494442599, 91.69145508924977}}], StatusArea[#, 1305]& , TagBoxNote->"1305"], StyleBox["1305", {}, StripOnInput -> False]], Annotation[#, Style[1305, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8., 0}, {10., 1303}, "RoundingRadius" -> 0]}, ImageSizeCache->{{50.33583082682361, 55.139814554346174`}, {-99.20564074514068, 91.69145508924977}}], StatusArea[#, 1303]& , TagBoxNote->"1303"], StyleBox["1303", {}, StripOnInput -> False]], Annotation[#, Style[1303, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {12., 1139}, "RoundingRadius" -> 0]}, ImageSizeCache->{{54.639814554346174`, 59.44379828186873}, {-75.24161640374386, 91.69145508924977}}], StatusArea[#, 1139]& , TagBoxNote->"1139"], StyleBox["1139", {}, StripOnInput -> False]], Annotation[#, Style[1139, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12., 0}, {14., 960}, "RoundingRadius" -> 0]}, ImageSizeCache->{{58.94379828186873, 63.74778200939129}, {-49.08576056770711, 91.69145508924977}}], StatusArea[#, 960]& , TagBoxNote->"960"], StyleBox["960", {}, StripOnInput -> False]], Annotation[#, Style[960, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{14., 0}, {16., 885}, "RoundingRadius" -> 0]}, ImageSizeCache->{{63.24778200939129, 68.05176573691384}, {-38.12660309450736, 91.69145508924977}}], StatusArea[#, 885]& , TagBoxNote->"885"], StyleBox["885", {}, StripOnInput -> False]], Annotation[#, Style[885, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{16., 0}, {18., 768}, "RoundingRadius" -> 0]}, ImageSizeCache->{{67.55176573691384, 72.3557494644364}, {-21.03031743631574, 91.69145508924977}}], StatusArea[#, 768]& , TagBoxNote->"768"], StyleBox["768", {}, StripOnInput -> False]], Annotation[#, Style[768, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{18., 0}, {20., 676}, "RoundingRadius" -> 0]}, ImageSizeCache->{{71.8557494644364, 76.65973319195896}, {-7.587084269190711, 91.69145508924977}}], StatusArea[#, 676]& , TagBoxNote->"676"], StyleBox["676", {}, StripOnInput -> False]], Annotation[#, Style[676, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20., 0}, {22., 588}, "RoundingRadius" -> 0]}, ImageSizeCache->{{76.15973319195896, 80.96371691948151}, { 5.271660499363676, 91.69145508924977}}], StatusArea[#, 588]& , TagBoxNote->"588"], StyleBox["588", {}, StripOnInput -> False]], Annotation[#, Style[588, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{22., 0}, {24., 581}, "RoundingRadius" -> 0]}, ImageSizeCache->{{80.46371691948151, 85.26770064700408}, { 6.294515196862321, 91.69145508924977}}], StatusArea[#, 581]& , TagBoxNote->"581"], StyleBox["581", {}, StripOnInput -> False]], Annotation[#, Style[581, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{24., 0}, {26., 508}, "RoundingRadius" -> 0]}, ImageSizeCache->{{84.76770064700408, 89.57168437452663}, { 16.961428470776752`, 91.69145508924977}}], StatusArea[#, 508]& , TagBoxNote->"508"], StyleBox["508", {}, StripOnInput -> False]], Annotation[#, Style[508, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{26., 0}, {28., 448}, "RoundingRadius" -> 0]}, ImageSizeCache->{{89.07168437452663, 93.87566810204919}, { 25.728754449336563`, 91.69145508924977}}], StatusArea[#, 448]& , TagBoxNote->"448"], StyleBox["448", {}, StripOnInput -> False]], Annotation[#, Style[448, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{28., 0}, {30., 394}, "RoundingRadius" -> 0]}, ImageSizeCache->{{93.37566810204919, 98.17965182957174}, { 33.61934783004038, 91.69145508924977}}], StatusArea[#, 394]& , TagBoxNote->"394"], StyleBox["394", {}, StripOnInput -> False]], Annotation[#, Style[394, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{30., 0}, {32., 353}, "RoundingRadius" -> 0]}, ImageSizeCache->{{97.67965182957174, 102.4836355570943}, { 39.61035391538958, 91.69145508924977}}], StatusArea[#, 353]& , TagBoxNote->"353"], StyleBox["353", {}, StripOnInput -> False]], Annotation[#, Style[353, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{32., 0}, {34., 318}, "RoundingRadius" -> 0]}, ImageSizeCache->{{101.9836355570943, 106.78761928461687`}, { 44.7246274028828, 91.69145508924977}}], StatusArea[#, 318]& , TagBoxNote->"318"], StyleBox["318", {}, StripOnInput -> False]], Annotation[#, Style[318, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{34., 0}, {36., 266}, "RoundingRadius" -> 0]}, ImageSizeCache->{{106.28761928461687`, 111.09160301213942`}, { 52.3229765843013, 91.69145508924977}}], StatusArea[#, 266]& , TagBoxNote->"266"], StyleBox["266", {}, StripOnInput -> False]], Annotation[#, Style[266, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{36., 0}, {38., 230}, "RoundingRadius" -> 0]}, ImageSizeCache->{{110.59160301213942`, 115.39558673966198`}, { 57.58337217143718, 91.69145508924977}}], StatusArea[#, 230]& , TagBoxNote->"230"], StyleBox["230", {}, StripOnInput -> False]], Annotation[#, Style[230, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{38., 0}, {40., 181}, "RoundingRadius" -> 0]}, ImageSizeCache->{{114.89558673966198`, 119.69957046718453`}, { 64.74335505392769, 91.69145508924977}}], StatusArea[#, 181]& , TagBoxNote->"181"], StyleBox["181", {}, StripOnInput -> False]], Annotation[#, Style[181, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{40., 0}, {42., 185}, "RoundingRadius" -> 0]}, ImageSizeCache->{{119.19957046718453`, 124.00355419470709`}, { 64.15886665535703, 91.69145508924977}}], StatusArea[#, 185]& , TagBoxNote->"185"], StyleBox["185", {}, StripOnInput -> False]], Annotation[#, Style[185, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{42., 0}, {44., 148}, "RoundingRadius" -> 0]}, ImageSizeCache->{{123.50355419470709`, 128.30753792222964`}, { 69.56538434213559, 91.69145508924977}}], StatusArea[#, 148]& , TagBoxNote->"148"], StyleBox["148", {}, StripOnInput -> False]], Annotation[#, Style[148, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{44., 0}, {46., 134}, "RoundingRadius" -> 0]}, ImageSizeCache->{{127.80753792222964`, 132.6115216497522}, { 71.61109373713288, 91.69145508924977}}], StatusArea[#, 134]& , TagBoxNote->"134"], StyleBox["134", {}, StripOnInput -> False]], Annotation[#, Style[134, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{46., 0}, {48., 114}, "RoundingRadius" -> 0]}, ImageSizeCache->{{132.1115216497522, 136.91550537727477`}, { 74.53353572998614, 91.69145508924977}}], StatusArea[#, 114]& , TagBoxNote->"114"], StyleBox["114", {}, StripOnInput -> False]], Annotation[#, Style[114, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{48., 0}, {50., 93}, "RoundingRadius" -> 0]}, ImageSizeCache->{{136.41550537727477`, 141.21948910479733`}, { 77.60209982248207, 91.69145508924977}}], StatusArea[#, 93]& , TagBoxNote->"93"], StyleBox["93", {}, StripOnInput -> False]], Annotation[#, Style[93, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{50., 0}, {52., 80}, "RoundingRadius" -> 0]}, ImageSizeCache->{{140.71948910479733`, 145.5234728323199}, { 79.5016871178367, 91.69145508924977}}], StatusArea[#, 80]& , TagBoxNote->"80"], StyleBox["80", {}, StripOnInput -> False]], Annotation[#, Style[80, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{52., 0}, {54., 77}, "RoundingRadius" -> 0]}, ImageSizeCache->{{145.0234728323199, 149.82745655984243`}, { 79.94005341676468, 91.69145508924977}}], StatusArea[#, 77]& , TagBoxNote->"77"], StyleBox["77", {}, StripOnInput -> False]], Annotation[#, Style[77, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{54., 0}, {56., 67}, "RoundingRadius" -> 0]}, ImageSizeCache->{{149.32745655984243`, 154.131440287365}, { 81.40127441319132, 91.69145508924977}}], StatusArea[#, 67]& , TagBoxNote->"67"], StyleBox["67", {}, StripOnInput -> False]], Annotation[#, Style[67, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{56., 0}, {58., 37}, "RoundingRadius" -> 0]}, ImageSizeCache->{{153.631440287365, 158.43542401488753`}, { 85.78493740247123, 91.69145508924977}}], StatusArea[#, 37]& , TagBoxNote->"37"], StyleBox["37", {}, StripOnInput -> False]], Annotation[#, Style[37, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{58., 0}, {60., 41}, "RoundingRadius" -> 0]}, ImageSizeCache->{{157.93542401488753`, 162.7394077424101}, { 85.20044900390057, 91.69145508924977}}], StatusArea[#, 41]& , TagBoxNote->"41"], StyleBox["41", {}, StripOnInput -> False]], Annotation[#, Style[41, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{60., 0}, {62., 41}, "RoundingRadius" -> 0]}, ImageSizeCache->{{162.2394077424101, 167.04339146993266`}, { 85.20044900390057, 91.69145508924977}}], StatusArea[#, 41]& , TagBoxNote->"41"], StyleBox["41", {}, StripOnInput -> False]], Annotation[#, Style[41, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{62., 0}, {64., 35}, "RoundingRadius" -> 0]}, ImageSizeCache->{{166.54339146993266`, 171.34737519745522`}, { 86.07718160175655, 91.69145508924977}}], 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[{64., 0}, {66., 28}, "RoundingRadius" -> 0]}, ImageSizeCache->{{170.84737519745522`, 175.65135892497779`}, { 87.1000362992552, 91.69145508924977}}], StatusArea[#, 28]& , TagBoxNote->"28"], StyleBox["28", {}, StripOnInput -> False]], Annotation[#, Style[28, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{66., 0}, {68., 26}, "RoundingRadius" -> 0]}, ImageSizeCache->{{175.15135892497779`, 179.95534265250035`}, { 87.39228049854052, 91.69145508924977}}], StatusArea[#, 26]& , TagBoxNote->"26"], StyleBox["26", {}, StripOnInput -> False]], Annotation[#, Style[26, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{68., 0}, {70., 17}, "RoundingRadius" -> 0]}, ImageSizeCache->{{179.45534265250035`, 184.25932638002288`}, { 88.7073793953245, 91.69145508924977}}], StatusArea[#, 17]& , TagBoxNote->"17"], StyleBox["17", {}, StripOnInput -> False]], Annotation[#, Style[17, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{70., 0}, {72., 23}, "RoundingRadius" -> 0]}, ImageSizeCache->{{183.75932638002288`, 188.56331010754545`}, { 87.83064679746852, 91.69145508924977}}], StatusArea[#, 23]& , TagBoxNote->"23"], StyleBox["23", {}, StripOnInput -> False]], Annotation[#, Style[23, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{72., 0}, {74., 23}, "RoundingRadius" -> 0]}, ImageSizeCache->{{188.06331010754545`, 192.867293835068}, { 87.83064679746852, 91.69145508924977}}], StatusArea[#, 23]& , TagBoxNote->"23"], StyleBox["23", {}, StripOnInput -> False]], Annotation[#, Style[23, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{74., 0}, {76., 10}, "RoundingRadius" -> 0]}, ImageSizeCache->{{192.367293835068, 197.17127756259057`}, { 89.73023409282314, 91.69145508924977}}], 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[{76., 0}, {78., 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{196.67127756259057`, 201.4752612901131}, { 90.02247829210846, 91.69145508924977}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{78., 0}, {80., 7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{200.9752612901131, 205.77924501763567`}, { 90.16860039175113, 91.69145508924977}}], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{80., 0}, {82., 7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{205.27924501763567`, 210.08322874515824`}, { 90.16860039175113, 91.69145508924977}}], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{82., 0}, {84., 6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{209.58322874515824`, 214.3872124726808}, { 90.3147224913938, 91.69145508924977}}], 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[{84., 0}, {86., 7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{213.8872124726808, 218.69119620020336`}, { 90.16860039175113, 91.69145508924977}}], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{86., 0}, {88., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{218.19119620020336`, 222.9951799277259}, { 90.89921088996445, 91.69145508924977}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{88., 0}, {90., 10}, "RoundingRadius" -> 0]}, ImageSizeCache->{{222.4951799277259, 227.29916365524846`}, { 89.73023409282314, 91.69145508924977}}], 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[{90., 0}, {92., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{226.79916365524846`, 231.60314738277103`}, { 90.60696669067912, 91.69145508924977}}], 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[{92., 0}, {94., 6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{231.10314738277103`, 235.9071311102936}, { 90.3147224913938, 91.69145508924977}}], 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[{94., 0}, {96., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{235.4071311102936, 240.21111483781615`}, { 91.0453329896071, 91.69145508924977}}], 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[{96., 0}, {98., 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{239.71111483781615`, 244.5150985653387}, { 90.46084459103645, 91.69145508924977}}], StatusArea[#, 5]& , TagBoxNote->"5"], StyleBox["5", {}, StripOnInput -> False]], Annotation[#, Style[5, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{104., 0}, {106., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{256.9270497479064, 261.73103347542894`}, { 91.0453329896071, 91.69145508924977}}], 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}, {112., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{269.83900093047407`, 274.64298465799664`}, { 91.0453329896071, 91.69145508924977}}], 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[{114., 0}, {116., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{278.4469683855192, 283.2509521130417}, { 91.0453329896071, 91.69145508924977}}], 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[{124., 0}, {126., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{299.9668870231319, 304.77087075065447`}, { 90.89921088996445, 91.69145508924977}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{126., 0}, {128., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{304.27087075065447`, 309.07485447817703`}, { 91.0453329896071, 91.69145508924977}}], 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[{130., 0}, {132., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{312.8788382056996, 317.68282193322216`}, { 91.0453329896071, 91.69145508924977}}], 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[{136., 0}, {138., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{325.7907893882673, 330.59477311578985`}, { 91.0453329896071, 91.69145508924977}}], 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[{138., 0}, {140., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{330.09477311578985`, 334.8987568433124}, { 90.75308879032178, 91.69145508924977}}], 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[{146., 0}, {148., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{347.3107080258801, 352.11469175340267`}, { 91.0453329896071, 91.69145508924977}}], 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.96, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0., 148.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.683650075933077*^9},ExpressionUUID->"52549311-120f-4240-819c-\ 512799b41ddf"] }, Open ]] }, Open ]] }, WindowSize->{775, 873}, WindowMargins->{{136, Automatic}, {Automatic, 0}}, WindowTitle->"Examples for Of Human Bondage", Visible->True, DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, Background->GrayLevel[0.9999], FrontEndVersion->"11.1 for Linux x86 (64-bit) (April 18, 2017)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "CreateDataResourceStyleSheet.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[623, 23, 91, 0, 70, "Subsection", "ExpressionUUID" -> \ "3924f484-a75f-406b-8d55-1eaa9eba444b"], Cell[717, 25, 272, 4, 70, "Text", "ExpressionUUID" -> \ "991005ae-a33e-4eb8-8ed1-592323c101a2"], Cell[CellGroupData[{ Cell[1014, 33, 273, 5, 70, "Input", "ExpressionUUID" -> \ "6bf6fbae-2b78-4171-a236-44c6f3cffd94"], Cell[1290, 40, 14411, 321, 70, "Output", "ExpressionUUID" -> \ "a347b43c-9c98-4bd9-a67b-46899cd070e9"] }, Open ]], Cell[15716, 364, 261, 4, 70, "Text", "ExpressionUUID" -> \ "e24b505f-3a2b-47e9-be35-945aea757017"], Cell[CellGroupData[{ Cell[16002, 372, 376, 10, 70, "Input", "ExpressionUUID" -> \ "d62d199d-d2a8-4f94-b9f0-f909e7faf04a"], Cell[16381, 384, 510, 8, 70, "Output", "ExpressionUUID" -> \ "617e1669-45d3-4c99-88f2-3af582f45867"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16940, 398, 90, 0, 70, "Subsection", "ExpressionUUID" -> \ "5de441b3-772f-4419-ab96-9dc54bca1cd9"], Cell[17033, 400, 391, 6, 70, "Text", "ExpressionUUID" -> \ "a5cc039c-b0b2-472e-9bb9-148d7e06327f"], Cell[CellGroupData[{ Cell[17449, 410, 759, 19, 70, "Input", "ExpressionUUID" -> \ "88d2eb7c-8b7d-4a8b-b1f4-c446596faaae"], Cell[18211, 431, 28916, 656, 70, "Output", "ExpressionUUID" -> \ "00322d84-8d3c-4c71-9235-2b1751dbcc8a"] }, Open ]], Cell[47142, 1090, 390, 6, 70, "Text", "ExpressionUUID" -> \ "a8e60f17-36da-4509-92ee-5a3438e1b8e9"], Cell[CellGroupData[{ Cell[47557, 1100, 789, 19, 70, "Input", "ExpressionUUID" -> \ "dd223936-55c6-4a00-8953-e55dd8d9ae93"], Cell[48349, 1121, 36912, 1072, 70, "Output", "ExpressionUUID" -> \ "52549311-120f-4240-819c-512799b41ddf"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)