(* 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 *)