(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 53575, 1457] NotebookOptionsPosition[ 51914, 1416] NotebookOutlinePosition[ 52511, 1439] CellTagsIndexPosition[ 52468, 1436] WindowTitle->Examples for A Far Country 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["\<\"A Far Country\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Winston Churchill's \\\"A Far \ Country\\\"\"\>", "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["\<\"A Far Country\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Winston Churchill's \\\"A Far \ Country\\\"\"\>", "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[{ ",","\",\"","\"book\"","\"fiction\"","\"text\"","\"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[ "6ba82ed6-bb2a-42b3-bab6-8562b092194d"]; 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["\<\"6ba82ed6-bb2a-42b3-bab6-8562b092194d\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"\\[LeftAssociation]", RowBox[{"\<\"Plaintext\"\>", "\[Rule]", "954608"}], "\\[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" -> "A Far Country", "UUID" -> "6ba82ed6-bb2a-42b3-bab6-8562b092194d", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Plaintext for Winston Churchill's \"A Far Country\"", "ContentSize" -> Association["Plaintext" -> 954608], "ContentElements" -> {"Plaintext"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.6833837365692735`*^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[{"[", "100", "]"}], "]"}]], "Input", CellChangeTimes->{ 3.683383747909407*^9, {3.728325552543098*^9, 3.728325555941585*^9}}], Cell[BoxData["\<\"Lithe, and fairly quivering with passion, it was Nancy who \ showed us\\nhow to face the head-hunters. They gave back. They would have \ been brave\\nindeed if they had not retreated before such an intense little \ nucleus\\nof energy and indignation!...\"\>"], "Output", CellChangeTimes->{3.6833837807366896`*^9, 3.728325557196433*^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[{"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.683383766109227*^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}, {2., 61}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.09553775743707, 32.973112128146454`}, { 73.78531970159442, 89.92306514437797}}], StatusArea[#, 61]& , TagBoxNote->"61"], StyleBox["61", {}, StripOnInput -> False]], Annotation[#, Style[61, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {4., 415}, "RoundingRadius" -> 0]}, ImageSizeCache->{{32.473112128146454`, 38.350686498855836`}, {-16.964875163083917`, 89.92306514437797}}], StatusArea[#, 415]& , TagBoxNote->"415"], StyleBox["415", {}, StripOnInput -> False]], Annotation[#, Style[415, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {6., 648}, "RoundingRadius" -> 0]}, ImageSizeCache->{{37.850686498855836`, 43.72826086956522}, {-76.69593562486372, 89.92306514437797}}], StatusArea[#, 648]& , TagBoxNote->"648"], StyleBox["648", {}, StripOnInput -> False]], Annotation[#, Style[648, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0}, {8., 741}, "RoundingRadius" -> 0]}, ImageSizeCache->{{43.22826086956522, 49.1058352402746}, {-100.53708851304191`, 89.92306514437797}}], StatusArea[#, 741]& , TagBoxNote->"741"], StyleBox["741", {}, StripOnInput -> False]], Annotation[#, Style[741, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8., 0}, {10., 729}, "RoundingRadius" -> 0]}, ImageSizeCache->{{48.6058352402746, 54.48340961098398}, {-97.46081072101893, 89.92306514437797}}], StatusArea[#, 729]& , TagBoxNote->"729"], StyleBox["729", {}, StripOnInput -> False]], Annotation[#, Style[729, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {12., 708}, "RoundingRadius" -> 0]}, ImageSizeCache->{{53.98340961098398, 59.86098398169337}, {-92.0773245849787, 89.92306514437797}}], StatusArea[#, 708]& , TagBoxNote->"708"], StyleBox["708", {}, StripOnInput -> False]], Annotation[#, Style[708, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12., 0}, {14., 625}, "RoundingRadius" -> 0]}, ImageSizeCache->{{59.36098398169337, 65.23855835240275}, {-70.7997365234863, 89.92306514437797}}], StatusArea[#, 625]& , TagBoxNote->"625"], StyleBox["625", {}, StripOnInput -> False]], Annotation[#, Style[625, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{14., 0}, {16., 555}, "RoundingRadius" -> 0]}, ImageSizeCache->{{64.73855835240275, 70.61613272311214}, {-52.85478273668551, 89.92306514437797}}], StatusArea[#, 555]& , TagBoxNote->"555"], StyleBox["555", {}, StripOnInput -> False]], Annotation[#, Style[555, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{16., 0}, {18., 529}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.11613272311214, 75.99370709382151}, {-46.189514187302365`, 89.92306514437797}}], StatusArea[#, 529]& , TagBoxNote->"529"], StyleBox["529", {}, StripOnInput -> False]], Annotation[#, Style[529, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{18., 0}, {20., 465}, "RoundingRadius" -> 0]}, ImageSizeCache->{{75.49370709382151, 81.37128146453091}, {-29.78269929651306, 89.92306514437797}}], StatusArea[#, 465]& , TagBoxNote->"465"], StyleBox["465", {}, StripOnInput -> False]], Annotation[#, Style[465, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20., 0}, {22., 430}, "RoundingRadius" -> 0]}, ImageSizeCache->{{80.87128146453091, 86.74885583524028}, {-20.81022240311266, 89.92306514437797}}], StatusArea[#, 430]& , TagBoxNote->"430"], StyleBox["430", {}, StripOnInput -> False]], Annotation[#, Style[430, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{22., 0}, {24., 384}, "RoundingRadius" -> 0]}, ImageSizeCache->{{86.24885583524028, 92.12643020594967}, {-9.017824200357836, 89.92306514437797}}], StatusArea[#, 384]& , TagBoxNote->"384"], StyleBox["384", {}, StripOnInput -> False]], Annotation[#, Style[384, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{24., 0}, {26., 309}, "RoundingRadius" -> 0]}, ImageSizeCache->{{91.62643020594967, 97.50400457665906}, { 10.208911999785869`, 89.92306514437797}}], StatusArea[#, 309]& , TagBoxNote->"309"], StyleBox["309", {}, StripOnInput -> False]], Annotation[#, Style[309, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{26., 0}, {28., 280}, "RoundingRadius" -> 0]}, ImageSizeCache->{{97.00400457665906, 102.88157894736844`}, { 17.643249997174777`, 89.92306514437797}}], StatusArea[#, 280]& , TagBoxNote->"280"], StyleBox["280", {}, StripOnInput -> False]], Annotation[#, Style[280, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{28., 0}, {30., 254}, "RoundingRadius" -> 0]}, ImageSizeCache->{{102.38157894736844`, 108.25915331807782`}, { 24.308518546557934`, 89.92306514437797}}], StatusArea[#, 254]& , TagBoxNote->"254"], StyleBox["254", {}, StripOnInput -> False]], Annotation[#, Style[254, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{30., 0}, {32., 228}, "RoundingRadius" -> 0]}, ImageSizeCache->{{107.75915331807782`, 113.6367276887872}, { 30.973787095941084`, 89.92306514437797}}], StatusArea[#, 228]& , TagBoxNote->"228"], StyleBox["228", {}, StripOnInput -> False]], Annotation[#, Style[228, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{32., 0}, {34., 209}, "RoundingRadius" -> 0]}, ImageSizeCache->{{113.1367276887872, 119.01430205949659`}, { 35.84456026664416, 89.92306514437797}}], StatusArea[#, 209]& , TagBoxNote->"209"], StyleBox["209", {}, StripOnInput -> False]], Annotation[#, Style[209, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{34., 0}, {36., 194}, "RoundingRadius" -> 0]}, ImageSizeCache->{{118.51430205949659`, 124.39187643020597`}, { 39.689907506672895`, 89.92306514437797}}], StatusArea[#, 194]& , TagBoxNote->"194"], StyleBox["194", {}, StripOnInput -> False]], Annotation[#, Style[194, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{36., 0}, {38., 153}, "RoundingRadius" -> 0]}, ImageSizeCache->{{123.89187643020597`, 129.76945080091537`}, { 50.200523296084796`, 89.92306514437797}}], StatusArea[#, 153]& , TagBoxNote->"153"], StyleBox["153", {}, StripOnInput -> False]], Annotation[#, Style[153, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{38., 0}, {40., 137}, "RoundingRadius" -> 0]}, ImageSizeCache->{{129.26945080091537`, 135.14702517162473`}, { 54.30222701878212, 89.92306514437797}}], StatusArea[#, 137]& , TagBoxNote->"137"], StyleBox["137", {}, StripOnInput -> False]], Annotation[#, Style[137, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{40., 0}, {42., 103}, "RoundingRadius" -> 0]}, ImageSizeCache->{{134.64702517162473`, 140.5245995423341}, { 63.01834742951394, 89.92306514437797}}], 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[{42., 0}, {44., 114}, "RoundingRadius" -> 0]}, ImageSizeCache->{{140.0245995423341, 145.9021739130435}, { 60.198426120159525`, 89.92306514437797}}], 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[{44., 0}, {46., 95}, "RoundingRadius" -> 0]}, ImageSizeCache->{{145.4021739130435, 151.2797482837529}, { 65.0691992908626, 89.92306514437797}}], StatusArea[#, 95]& , TagBoxNote->"95"], StyleBox["95", {}, StripOnInput -> False]], Annotation[#, Style[95, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{46., 0}, {48., 71}, "RoundingRadius" -> 0]}, ImageSizeCache->{{150.7797482837529, 156.6573226544623}, { 71.22175487490858, 89.92306514437797}}], StatusArea[#, 71]& , TagBoxNote->"71"], StyleBox["71", {}, StripOnInput -> False]], Annotation[#, Style[71, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{48., 0}, {50., 66}, "RoundingRadius" -> 0]}, ImageSizeCache->{{156.1573226544623, 162.03489702517163`}, { 72.50353728825151, 89.92306514437797}}], StatusArea[#, 66]& , TagBoxNote->"66"], StyleBox["66", {}, StripOnInput -> False]], Annotation[#, Style[66, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{50., 0}, {52., 49}, "RoundingRadius" -> 0]}, ImageSizeCache->{{161.53489702517163`, 167.41247139588103`}, { 76.86159749361741, 89.92306514437797}}], StatusArea[#, 49]& , TagBoxNote->"49"], StyleBox["49", {}, StripOnInput -> False]], Annotation[#, Style[49, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{52., 0}, {54., 35}, "RoundingRadius" -> 0]}, ImageSizeCache->{{166.91247139588103`, 172.79004576659042`}, { 80.45058825097757, 89.92306514437797}}], 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[{54., 0}, {56., 49}, "RoundingRadius" -> 0]}, ImageSizeCache->{{172.29004576659042`, 178.16762013729982`}, { 76.86159749361741, 89.92306514437797}}], StatusArea[#, 49]& , TagBoxNote->"49"], StyleBox["49", {}, StripOnInput -> False]], Annotation[#, Style[49, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{56., 0}, {58., 32}, "RoundingRadius" -> 0]}, ImageSizeCache->{{177.66762013729982`, 183.54519450800916`}, { 81.21965769898333, 89.92306514437797}}], StatusArea[#, 32]& , TagBoxNote->"32"], StyleBox["32", {}, StripOnInput -> False]], Annotation[#, Style[32, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{58., 0}, {60., 35}, "RoundingRadius" -> 0]}, ImageSizeCache->{{183.04519450800916`, 188.92276887871856`}, { 80.45058825097757, 89.92306514437797}}], 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[{60., 0}, {62., 33}, "RoundingRadius" -> 0]}, ImageSizeCache->{{188.42276887871856`, 194.30034324942795`}, { 80.96330121631473, 89.92306514437797}}], StatusArea[#, 33]& , TagBoxNote->"33"], StyleBox["33", {}, StripOnInput -> False]], Annotation[#, Style[33, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{62., 0}, {64., 19}, "RoundingRadius" -> 0]}, ImageSizeCache->{{193.80034324942795`, 199.67791762013735`}, { 84.5522919736749, 89.92306514437797}}], StatusArea[#, 19]& , TagBoxNote->"19"], StyleBox["19", {}, StripOnInput -> False]], Annotation[#, Style[19, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{64., 0}, {66., 20}, "RoundingRadius" -> 0]}, ImageSizeCache->{{199.17791762013735`, 205.05549199084675`}, { 84.29593549100632, 89.92306514437797}}], StatusArea[#, 20]& , TagBoxNote->"20"], StyleBox["20", {}, StripOnInput -> False]], Annotation[#, Style[20, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{66., 0}, {68., 17}, "RoundingRadius" -> 0]}, ImageSizeCache->{{204.55549199084675`, 210.4330663615561}, { 85.06500493901207, 89.92306514437797}}], 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[{68., 0}, {70., 21}, "RoundingRadius" -> 0]}, ImageSizeCache->{{209.9330663615561, 215.81064073226548`}, { 84.03957900833774, 89.92306514437797}}], StatusArea[#, 21]& , TagBoxNote->"21"], StyleBox["21", {}, StripOnInput -> False]], Annotation[#, Style[21, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{70., 0}, {72., 9}, "RoundingRadius" -> 0]}, ImageSizeCache->{{215.31064073226548`, 221.18821510297488`}, { 87.11585680036073, 89.92306514437797}}], 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[{72., 0}, {74., 12}, "RoundingRadius" -> 0]}, ImageSizeCache->{{220.68821510297488`, 226.56578947368428`}, { 86.34678735235498, 89.92306514437797}}], StatusArea[#, 12]& , TagBoxNote->"12"], StyleBox["12", {}, StripOnInput -> False]], Annotation[#, Style[12, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{74., 0}, {76., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{226.06578947368428`, 231.94336384439362`}, { 88.39763921370364, 89.92306514437797}}], 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[{76., 0}, {78., 6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{231.44336384439362`, 237.320938215103}, { 87.88492624836647, 89.92306514437797}}], 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[{78., 0}, {80., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{236.820938215103, 242.6985125858124}, { 88.39763921370364, 89.92306514437797}}], 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[{80., 0}, {82., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{242.1985125858124, 248.0760869565218}, { 88.65399569637222, 89.92306514437797}}], 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[{82., 0}, {84., 7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{247.5760869565218, 253.45366132723115`}, { 87.62856976569789, 89.92306514437797}}], 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[{84., 0}, {86., 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{252.95366132723115`, 258.83123569794054`}, { 88.14128273103506, 89.92306514437797}}], 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[{86., 0}, {88., 6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{258.33123569794054`, 264.20881006864994`}, { 87.88492624836647, 89.92306514437797}}], 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[{88., 0}, {90., 6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{263.70881006864994`, 269.58638443935934`}, { 87.88492624836647, 89.92306514437797}}], 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}, {92., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{269.08638443935934`, 274.9639588100687}, { 89.1667086617094, 89.92306514437797}}], 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[{94., 0}, {96., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{279.8415331807781, 285.71910755148747`}, { 88.9103521790408, 89.92306514437797}}], 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[{96., 0}, {98., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{285.21910755148747`, 291.09668192219686`}, { 89.1667086617094, 89.92306514437797}}], 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[{98., 0}, {100., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{290.59668192219686`, 296.4742562929062}, { 88.9103521790408, 89.92306514437797}}], 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[{100., 0}, {102., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{295.9742562929062, 301.8518306636156}, { 88.9103521790408, 89.92306514437797}}], 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[{104., 0}, {106., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{306.729405034325, 312.6069794050344}, { 89.1667086617094, 89.92306514437797}}], 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[{106., 0}, {108., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{312.1069794050344, 317.98455377574373`}, { 89.1667086617094, 89.92306514437797}}], 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[{112., 0}, {114., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{328.2397025171625, 334.1172768878719}, { 89.1667086617094, 89.92306514437797}}], 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[{116., 0}, {118., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{338.99485125858126`, 344.87242562929066`}, { 88.9103521790408, 89.92306514437797}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-2.36, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0., 118.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.683383780551671*^9}] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"Examples for A Far Country", Visible->True, DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, Background->GrayLevel[0.9999], FrontEndVersion->"11.2 for Linux x86 (64-bit) (September 10, 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[620, 23, 36, 0, 70, "Subsection",ExpressionUUID->"e29bfd34-3b05-4c6a-81db-2dff4ea91ec9"], Cell[659, 25, 215, 3, 70, "Text",ExpressionUUID->"4967d976-e4a8-4a93-b99b-3666907ca028"], Cell[CellGroupData[{ Cell[899, 32, 210, 3, 70, "Input",ExpressionUUID->"6413216b-58ed-4485-8df6-293d8ce988d2"], Cell[1112, 37, 14324, 318, 70, "Output",ExpressionUUID->"ffd87a21-afd0-4399-b547-7c3d90e32145"] }, Open ]], Cell[15451, 358, 204, 3, 70, "Text",ExpressionUUID->"3fb3028c-e9ed-4721-aeac-4276b9dcdfc7"], Cell[CellGroupData[{ Cell[15680, 365, 312, 8, 70, "Input",ExpressionUUID->"68a6baf1-4e39-458e-8291-c5f678797ba6"], Cell[15995, 375, 355, 4, 70, "Output",ExpressionUUID->"fff5685f-98f3-4c63-92fd-ae063853e291"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16399, 385, 35, 0, 70, "Subsection",ExpressionUUID->"bf281145-cc93-4a2b-8f7e-434c9eaa9780"], Cell[16437, 387, 330, 4, 70, "Text",ExpressionUUID->"8f9acf1f-52ca-45c3-acb2-8229d6754de5"], Cell[CellGroupData[{ Cell[16792, 395, 725, 17, 70, "Input",ExpressionUUID->"f872af63-9d8a-4d79-8e10-5bcdc916ce3e"], Cell[17520, 414, 34366, 998, 70, "Output",ExpressionUUID->"23c1a5cc-e975-4a8b-9a03-7d2c20e37ccd"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)