(* 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[ 88673, 2215] NotebookOptionsPosition[ 86558, 2155] NotebookOutlinePosition[ 87185, 2178] CellTagsIndexPosition[ 87142, 2175] WindowTitle->Examples for On the Nature of Things WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection",ExpressionUUID->"9e59cc89-ede3-4da6-b55f-c4a014cf9290"], 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->"d63590f4-40e8-473d-832d-\ 9254e419909c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804517731799183`*^9, 3.6804517885604563`*^9}, { 3.6804527318597765`*^9, 3.6804527390684977`*^9}},ExpressionUUID->"280762d9-f609-48da-8828-\ d129d8aa3315"], 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["\<\"On the Nature of Things\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"On the Nature of Things, by Lucretius\"\>", "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["\<\"On the Nature of Things\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"On the Nature of Things, by Lucretius\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Categories: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\"","\"Textual Data\"","\"Literature\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"ContentTypes: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\"","\"Text\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Keywords: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",","\",\"","\"Text\"","\"Roman\"","\"Poem\"","\"Lucretius\"", "\"Philosophy\"","\"Epicurean\""}, "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[ "dbd97af2-09f9-4ab7-af86-dbccb09227bd"]; 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["\<\"dbd97af2-09f9-4ab7-af86-dbccb09227bd\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"417.04`","\"kB\"","kilobytes","\"Kilobytes\""}, "Quantity"], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Elements: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",","\",\"","\"Author\"","\"Content\"","\"FormattedText\"", "\"FullTitle\"","\"Language\"","\"Lines\"", "\"NotebookExpression\"","\"Title\"","\"Words\""}, "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" -> "On the Nature of Things", "UUID" -> "dbd97af2-09f9-4ab7-af86-dbccb09227bd", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "On the Nature of Things, by Lucretius", "ContentSize" -> Quantity[417.04, "Kilobytes"], "ContentElements" -> { "Author", "Content", "FormattedText", "FullTitle", "Language", "Lines", "NotebookExpression", "Title", "Words"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.683897850566802*^9},ExpressionUUID->"3af665c7-5163-45ec-a60b-\ e266394c045e"] }, 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->"f5602998-af8c-474d-a485-\ 6eb6851a459e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", "100", "]"}], "]"}]], "Input", CellChangeTimes->{ 3.683898174647965*^9, {3.702836270189196*^9, 3.702836312579845*^9}},ExpressionUUID->"829480dc-72b7-47e0-9a86-\ a642a71a8dfe"], Cell[BoxData["\<\"Lastly, where after impact two broad bodies\\nSuddenly \ spring apart, the air must crowd\\nThe whole new void between those bodies \ formed;\\nBut air, however it stream with hastening gusts,\\nCan yet not fill \ the gap at once- for first\\nIt makes for one place, ere diffused through \ all.\"\>"], "Output", CellChangeTimes->{{3.683898183371331*^9, 3.683898225298477*^9}, { 3.702836273555735*^9, 3.702836313795807*^9}},ExpressionUUID->"803d2fca-06ac-43ea-9f4e-\ d8f57003c42b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection",ExpressionUUID->"a37a8441-20c6-464c-b8b3-e0e15db7c83f"], Cell["Compare noun usage:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}, {3.683904874776701*^9, 3.683904910759241*^9}},ExpressionUUID->"1ffc0740-e744-4d06-8b8a-\ da850cedc2f8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarChart", "[", RowBox[{ RowBox[{ RowBox[{"TakeLargest", "[", RowBox[{ RowBox[{"Counts", "[", RowBox[{"TextCases", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "]"}], ",", "20"}], "]"}], "//", "Reverse"}], ",", RowBox[{"BarOrigin", "\[Rule]", "Left"}], ",", RowBox[{"ChartLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.683904906338448*^9, 3.6839049152244864`*^9}},ExpressionUUID->"2078456e-07e8-44c5-b46b-\ e89c32249c13"], Cell[BoxData[ GraphicsBox[{ {Opacity[0], PointBox[{0., 0.13851851851851854`}]}, {{}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.5370370370370371}, {82., 1.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 97.06442278403898}, {77.75077561883937, 87.02542168322799}}], StatusArea[#, 82]& , TagBoxNote->"82"], StyleBox["82", {}, StripOnInput -> False]], Annotation[#, Style[82, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 1.5370370370370372`}, {85., 2.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 99.36251142247944}, {68.27415786929966, 77.54880393368828}}], StatusArea[#, 85]& , TagBoxNote->"85"], StyleBox["85", {}, StripOnInput -> False]], Annotation[#, Style[85, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 2.537037037037037}, {88., 3.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 101.66060006091989`}, {58.79754011975995, 68.07218618414856}}], StatusArea[#, 88]& , TagBoxNote->"88"], StyleBox["88", {}, StripOnInput -> False]], Annotation[#, Style[88, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 3.537037037037037}, {90., 4.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 103.19265915321353`}, {49.320922370220245`, 58.595568434608865`}}], StatusArea[#, 90]& , TagBoxNote->"90"], StyleBox["90", {}, StripOnInput -> False]], Annotation[#, Style[90, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 4.537037037037037}, {95., 5.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 107.02280688394761`}, {39.84430462068054, 49.11895068506915}}], StatusArea[#, 95]& , TagBoxNote->"95"], StyleBox["95", {}, StripOnInput -> False]], Annotation[#, Style[95, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 5.537037037037037}, {97., 6.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 108.55486597624125`}, {30.367686871140833`, 39.642332935529446`}}], StatusArea[#, 97]& , TagBoxNote->"97"], StyleBox["97", {}, StripOnInput -> False]], Annotation[#, Style[97, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 6.537037037037037}, {103., 7.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 113.15104325312214`}, {20.89106912160112, 30.16571518598974}}], StatusArea[#, 103]& , TagBoxNote->"103"], StyleBox["103", {}, StripOnInput -> False]], Annotation[#, Style[103, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 7.537037037037037}, {117., 8.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 123.87545689917758`}, {11.414451372061407`, 20.689097436450027`}}], StatusArea[#, 117]& , TagBoxNote->"117"], StyleBox["117", {}, StripOnInput -> False]], Annotation[#, Style[117, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 8.537037037037038}, {117., 9.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 123.87545689917758`}, {1.937833622521694, 11.212479686910314`}}], StatusArea[#, 117]& , TagBoxNote->"117"], StyleBox["117", {}, StripOnInput -> False]], Annotation[#, Style[117, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 9.537037037037038}, {125., 10.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 130.00369326835212`}, {-7.538784127018005, 1.7358619373706148`}}], StatusArea[#, 125]& , TagBoxNote->"125"], StyleBox["125", {}, StripOnInput -> False]], Annotation[#, Style[125, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 10.537037037037038`}, {126., 11.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 130.76972281449895`}, {-17.015401876557718`, -7.740755812169098}}], StatusArea[#, 126]& , TagBoxNote->"126"], StyleBox["126", {}, StripOnInput -> False]], Annotation[#, Style[126, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 11.537037037037038`}, {130., 12.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 133.8338409990862}, {-26.492019626097417`, -17.21737356170881}}], StatusArea[#, 130]& , TagBoxNote->"130"], StyleBox["130", {}, StripOnInput -> False]], Annotation[#, Style[130, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 12.537037037037038`}, {131., 13.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 134.59987054523302`}, {-35.96863737563713, -26.69399131124851}}], StatusArea[#, 131]& , TagBoxNote->"131"], StyleBox["131", {}, StripOnInput -> False]], Annotation[#, Style[131, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 13.537037037037038`}, {135., 14.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 137.6639887298203}, {-45.44525512517684, -36.17060906078821}}], StatusArea[#, 135]& , TagBoxNote->"135"], StyleBox["135", {}, StripOnInput -> False]], Annotation[#, Style[135, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 14.537037037037038`}, {137., 15.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 139.19604782211394`}, {-54.921872874716556`, -45.64722681032792}}], StatusArea[#, 137]& , TagBoxNote->"137"], StyleBox["137", {}, StripOnInput -> False]], Annotation[#, Style[137, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 15.537037037037038`}, {146., 16.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 146.09031373743528`}, {-64.39849062425627, -55.123844559867635`}}], StatusArea[#, 146]& , TagBoxNote->"146"], StyleBox["146", {}, StripOnInput -> False]], Annotation[#, Style[146, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 16.537037037037038`}, {158., 17.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 155.28266829119707`}, {-73.87510837379598, -64.60046230940735}}], StatusArea[#, 158]& , TagBoxNote->"158"], StyleBox["158", {}, StripOnInput -> False]], Annotation[#, Style[158, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 17.537037037037038`}, {175., 18.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 168.30517057569296`}, {-83.3517261233357, -74.07708005894706}}], StatusArea[#, 175]& , TagBoxNote->"175"], StyleBox["175", {}, StripOnInput -> False]], Annotation[#, Style[175, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 18.537037037037038`}, {219., 19.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 202.01047060615292`}, {-92.82834387287538, -83.55369780848677}}], StatusArea[#, 219]& , TagBoxNote->"219"], StyleBox["219", {}, StripOnInput -> False]], Annotation[#, Style[219, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 19.537037037037038`}, {402., 20.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 342.1938775510204}, {-102.30496162241509`, -93.03031555802646}}], StatusArea[#, 402]& , TagBoxNote->"402"], StyleBox["402", {}, StripOnInput -> False]], Annotation[#, Style[402, {}], "Tooltip"]& ]}}, {}, {}}, {}, {}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.13851851851851854`}, {0., 20.869451851851853`}}], StyleBox[{}, "GraphicsLabel", StripOnInput->False]}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.5370370370370371}, Offset[{-6., 0.}, {0., 0.5370370370370371}]}], LineBox[{{0., 20.462962962962965`}, Offset[{-6., 0.}, {0., 20.462962962962965`}]}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, { LineBox[{{0., 1.462962962962963}, Offset[{-4., 0.}, {0., 1.462962962962963}]}], LineBox[{{0., 1.5370370370370372`}, Offset[{-4., 0.}, {0., 1.5370370370370372`}]}], LineBox[{{0., 2.4629629629629632`}, Offset[{-4., 0.}, {0., 2.4629629629629632`}]}], LineBox[{{0., 2.537037037037037}, Offset[{-4., 0.}, {0., 2.537037037037037}]}], LineBox[{{0., 3.4629629629629632`}, Offset[{-4., 0.}, {0., 3.4629629629629632`}]}], LineBox[{{0., 3.537037037037037}, Offset[{-4., 0.}, {0., 3.537037037037037}]}], LineBox[{{0., 4.462962962962963}, Offset[{-4., 0.}, {0., 4.462962962962963}]}], LineBox[{{0., 4.537037037037036}, Offset[{-4., 0.}, {0., 4.537037037037036}]}], LineBox[{{0., 5.462962962962963}, Offset[{-4., 0.}, {0., 5.462962962962963}]}], LineBox[{{0., 5.537037037037037}, Offset[{-4., 0.}, {0., 5.537037037037037}]}], LineBox[{{0., 6.462962962962963}, Offset[{-4., 0.}, {0., 6.462962962962963}]}], LineBox[{{0., 6.537037037037037}, Offset[{-4., 0.}, {0., 6.537037037037037}]}], LineBox[{{0., 7.462962962962963}, Offset[{-4., 0.}, {0., 7.462962962962963}]}], LineBox[{{0., 7.537037037037037}, Offset[{-4., 0.}, {0., 7.537037037037037}]}], LineBox[{{0., 8.462962962962964}, Offset[{-4., 0.}, {0., 8.462962962962964}]}], LineBox[{{0., 8.537037037037036}, Offset[{-4., 0.}, {0., 8.537037037037036}]}], LineBox[{{0., 9.462962962962962}, Offset[{-4., 0.}, {0., 9.462962962962962}]}], LineBox[{{0., 9.537037037037036}, Offset[{-4., 0.}, {0., 9.537037037037036}]}], LineBox[{{0., 10.462962962962962`}, Offset[{-4., 0.}, {0., 10.462962962962962`}]}], LineBox[{{0., 10.537037037037036`}, Offset[{-4., 0.}, {0., 10.537037037037036`}]}], LineBox[{{0., 11.462962962962962`}, Offset[{-4., 0.}, {0., 11.462962962962962`}]}], LineBox[{{0., 11.537037037037036`}, Offset[{-4., 0.}, {0., 11.537037037037036`}]}], LineBox[{{0., 12.462962962962962`}, Offset[{-4., 0.}, {0., 12.462962962962962`}]}], LineBox[{{0., 12.537037037037036`}, Offset[{-4., 0.}, {0., 12.537037037037036`}]}], LineBox[{{0., 13.462962962962962`}, Offset[{-4., 0.}, {0., 13.462962962962962`}]}], LineBox[{{0., 13.537037037037036`}, Offset[{-4., 0.}, {0., 13.537037037037036`}]}], LineBox[{{0., 14.462962962962962`}, Offset[{-4., 0.}, {0., 14.462962962962962`}]}], LineBox[{{0., 14.537037037037036`}, Offset[{-4., 0.}, {0., 14.537037037037036`}]}], LineBox[{{0., 15.462962962962962`}, Offset[{-4., 0.}, {0., 15.462962962962962`}]}], LineBox[{{0., 15.537037037037036`}, Offset[{-4., 0.}, {0., 15.537037037037036`}]}], LineBox[{{0., 16.462962962962965`}, Offset[{-4., 0.}, {0., 16.462962962962965`}]}], LineBox[{{0., 16.537037037037038`}, Offset[{-4., 0.}, {0., 16.537037037037038`}]}], LineBox[{{0., 17.462962962962965`}, Offset[{-4., 0.}, {0., 17.462962962962965`}]}], LineBox[{{0., 17.537037037037038`}, Offset[{-4., 0.}, {0., 17.537037037037038`}]}], LineBox[{{0., 18.462962962962965`}, Offset[{-4., 0.}, {0., 18.462962962962965`}]}], LineBox[{{0., 18.537037037037038`}, Offset[{-4., 0.}, {0., 18.537037037037038`}]}], LineBox[{{0., 19.462962962962965`}, Offset[{-4., 0.}, {0., 19.462962962962965`}]}], LineBox[{{0., 19.537037037037038`}, Offset[{-4., 0.}, {0., 19.537037037037038`}]}]}, {}}}, StyleBox[ {Thickness[Tiny], InsetBox["\<\"thing\"\>", Offset[{-2., 0.}, {0., 1.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"power\"\>", Offset[{-2., 0.}, {0., 2.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"frame\"\>", Offset[{-2., 0.}, {0., 3.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"soul\"\>", Offset[{-2., 0.}, {0., 4.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"world\"\>", Offset[{-2., 0.}, {0., 5.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"seeds\"\>", Offset[{-2., 0.}, {0., 6.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"sun\"\>", Offset[{-2., 0.}, {0., 7.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"fire\"\>", Offset[{-2., 0.}, {0., 8.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"man\"\>", Offset[{-2., 0.}, {0., 8.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"men\"\>", Offset[{-2., 0.}, {0., 9.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"earth\"\>", Offset[{-2., 0.}, {0., 10.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"time\"\>", Offset[{-2., 0.}, {0., 11.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"bodies\"\>", Offset[{-2., 0.}, {0., 12.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"thou\"\>", Offset[{-2., 0.}, {0., 13.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"life\"\>", Offset[{-2., 0.}, {0., 14.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"air\"\>", Offset[{-2., 0.}, {0., 16.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"nature\"\>", Offset[{-2., 0.}, {0., 17.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"mind\"\>", Offset[{-2., 0.}, {0., 18.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"body\"\>", Offset[{-2., 0.}, {0., 19.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"things\"\>", Offset[{-2., 0.}, {0., 20.}], 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,\ iVBORw0KGgoAAAANSUhEUgAAAWgAAADYCAYAAADGWHkUAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAA\ AOxAAADsQBlSsOGwAAG1RJREFUeJzt3W1wXNWZJ/D/\ c65aLWyl1oLgHeRkh1AzsGZTEGaduHhdx3zIbPEy4wXWLAHESN23MY6HCJI1q1St46nAxgUegRtj+\ 3bTjpzYRvEIm5CpTS0MMwkTyCwJWXbKtZB1tiqOR0U2zpbwS4TUfc+zH9xXabe6W92tVner+/+\ rcqn7vpx77in74XB1nvsAREREREREREREREQtznVdbXQfiIiaiWl0B4iIqDAGaCKiJsUATUTUpCT3i\ +u63/U879bsZ/U8T/JPKLa9XKWeNXf95rVqmyUiaho7xo49DWBwvu105H2/\ Za4T5hOcS53vuq5u33j1fJomImoKO8aO1aSdmQAdzGxzZ8ixWOx+a+2QiFxmrV2fTCYPB/\ uzx39FVaMisiLY39/f//\ sdHR2jAC5V1b8QkZ2e50kkEllnjBlVVQFwVFU3JZPJ12tyF0RELWjmGXQQlHNnuNbaT4rIamvtemPM\ aIHzw93d3Vfm7ncc5xkAr4bD4ctF5BPBgSKyH8D+iYmJLmPM14wxqQW7KyKiFlDyl4Td3d1bPM/\ 7IJlMHgYQyt+fyWSeGh4enszbfzOAJ+Px+CnHcZ4IjhWRzQBu7+\ np2aWq73med3kN74OIqOWUDNDDw8OTpfanUqnT+\ dtEJBN89n3fCT57nhcXkbtV9QSAF6PRqFtFf4mI2sZ5AVpV7caNGy+\ aZ5uvqOqXNmzYcBmAl4KN0Wj0qO/7Pb29vU+o6nMAHp/ndYiIWlr+DPp76XT6+HwazGQyXwRwg+/\ 7rwF4WlUnAUBVB0RkaHx8fFJEtqlqdD7XISJqdfNaMleK67ohAH0AHvQ8b1UZx+vOu3+\ zUN0hIqqb0NqxBVkHPUuliSmu6z6vqusALAXwDoB/Xazd/G2htWM/Lfc6RFVaAeCfqjz3+\ 7XsCNFc5gzQlfI8bwDAQPC9WOZgftB3XVfTr91xTa37Q1TA8kpPqNWMiKgSZQXoSCTyKWPMPgAnATz\ ged7xSCTysey2z6jqj1T1gWQyeSIWi11qrT0gIlcCmHnO7Lru/zTG3LV79+73XNf9KICfXnLJJZ/\ YunVrpshliYjaWlkvSzLGfD4cDt+\ gqm8CeCa7La6qb4bD4V4ReUtEngUAVX1WRF7NZDIfB5D77PmAtfbu7Od7AIwxOBMRFVdWgJ6amno8H\ o+fmp6efhLAmuzmm6anp5+Mx+OnpqamtolIsH0NgO2pVOq07/\ vbgjYymcxBVf332a991tpv1uYWiIhaU1kBeunSpRkAWLJkiQBI55+\ 7ZMkSUVUHAFRVHccxABD8BIBUKvULEfl/ruuuB3BBMpn8SY3ugYioJZUVoDOZzHcGBgZW+r4/\ pKqvAYCqvt7Z2fnl/v7+j2Qymc0i8kMAEJFXfd8fGhgYWKmqb+\ Q1dUBVdwD4Vm1vg4io9ZQVoEVk0BhzWFWvFpFBAPB9fxOA6xzH+ZWIXC8iD2aP/\ QKA1Y7jvCwifeddzJgxEbk4k8nsr/WNEBG1mjlXceQsh/uXudtTqdQvAHw2//g9e/\ b8E4CbcjbNLKfzfX+liPz37LlERFRCzddBlyIiLwJ4ACi8PvrRne/Uszst7QfvnMRNV3+\ 00d0gonlYsFTvuRQK0Cx5RYXsGDvWsL+\ nRI1Usxl0NbUKc49nySsqhP9XRe2sZlW951urkIiIzlf2DNp1XRWRiKoOA9gMIAzgcWvtveXUKiyWA\ k5ERIVVNINWVcda+1lVfVhVf2mtvbfcWoUlUsCJiKiAigL01NTUvmQy+\ baIXDExMfFyhbUK16BACjgRERVWUYAeGRn5EIACwKFDh6aLHVeoVmGxFHAiIiqsboFyjhRwIiLKU88\ AXTQFnIiIZmuqRBXP81jy6pz5lGVqdtWUjWIlE2pLVQVo13W/\ 63nerbXsCIvGtr5Hd77DrECiClT7iOOWmvaCiIhm6QBmHjfMSi5xXXe1qg6LyFUATonIY6o6EpwTJK\ bkp2wH21X1EQD3JBKJT/f39/c6jvMNANeKyE8B/JnneT+v/\ y0TES0OuTPoWcklAPYC2A6gx1p7m6puD4JxmandJ7u6um4GAMdxngGQmp6evlhEdgHYXcP7ICJqOTO\ p3kFyCYDDruuGACAUCt2YTqc3qOo9xphrAFT0/krf94/E4/\ HTACAiawHcGQ6HoaoAcLZmd0FE1IJmAnSh5JJ0On0EwH4ReU5Ejqvqz0o11tfXtyz3e16bTjqdXr53\ 795fz7fTRETtoOQvCVX1KmvtW8aYf1TVLTnb7caNGy/Kfk1HIpF1AwMDF3Z2dn67RFs/\ CIVCXxocHLwgGo3GotEok1WIiEooGaBFZEhEXvF9/21Vza3C/\ b10On0cAIJn1saYYwCOFGsrW8Nw1dmzZ0+\ KiGuMidTkDoiIWlRTJaq0W0WVdixLxXXQROWra01COl8rBecdY8eeBjP+\ iGqqbrOZuUpiMZNwcQutHWOAJqqxur0siSWxiIgqU/NHHIWyD/\ fs2bOvWIZhra9PRNQqFmIGPSv7sMAxMxmGRERUWM0DdCgUulFEVqrqC8aYQyiQfZjNMDxV62sTEbWS\ mgfobPbhyWz24ecKHVMoa5GIiM5X8wBdLPuQiIgqU/\ MAXSL7kIiIKtBUmYQtXvKqVcpYlSpZxXXQRDVUswBd6AX+kUhknYgcFJFBz/N2zXU+\ E1WaG5NRiOqr5uugcxNSjDGj1tr1vb29L9X6OkRErW4hElVmZtIAYIx5cevWrcKSV0RElVmwVO/\ 80lgseUVEVJm6vc2OJa+IiCpTz9eNsuQVEVEF6hagc0peffXMmTP3A+hLJBLX1ev6RESLTd0CtO/\ 7mzo6OlLZklfvish99bo2EdFi1FSJKq1U8qoVy1mxagpRfbHk1QJpweDMggtEdVbRPzrXdb/\ red6t2c8lS1hVipmEzevRne8wQBM1QKXroG9ZkF4QEdEsZT/iCJ4Z586cY7HY/\ dbaIRG5zFq7PplMHo5EIh8zxuwD8BlV/ZGqPpBMJk/kz7hrPQMnImo1Zc+g8zMDAcBa+0kRWW2tXW+\ MGQUAY0xcVd8Mh8O9IvKWiDxb+24TEbW+eaV6d3d3b/E874NkMnkYQCi7+abp6ekn4/\ H4qampqW0ismbevSQiakPzCtDDw8OTpdpcsmSJqKqTf0BfX9+y+\ VyXiKgdVBSgVdVu3LjxojmOeb2zs/PL/\ f39H8lkMptF5IfZXelIJLJuYGDgws7Ozm9X3WMiojZR6Qz6e+l0+\ nipA3zf3wTgOsdxfiUi14vIgwAQPKc2xhwDcKTK/\ hIRtY2myiRssZJXrVDiKre8FTMIiepM5rvcrVCpq2rbYaJK82ByClHj1eyF/\ VzTTERUWx0AEIlEPpVNLjkJ4AHP844XSziJxWKXWmsPiMiVAKJBQ8EMulhpq0gkss4YM6qqAuCoqm5\ KJpOv1/+WiYgWBwMAxpjPh8PhG1T1TQDPZLcVTDhR1WdF5NVMJvNxAKvyGyxW2kpE9gPYPzEx0WWM+\ ZoxJlWneyQiWpQMAExNTT0ej8dPTU9PPwlgTXZfsYSTNQC2p1Kp077vb8tvUETWisjBcDg8qaoHAFy\ b3b4ZwO09PT27VPU9z/MuX+B7IyJa1AwALF26NAOcSywBkM7dF2wPEk5UVR3HMQAQ/\ MzjpNPp5Z7nSfZPNwB4nhcXkbtV9QSAF6PRqLtwt0VEtPgZAMhkMt8ZGBhY6fv+kKq+\ BhRPOBGRV33fHxoYGFipqm/kN5hT2uqCaDQai0ajbwBANBo96vt+T29v7xOq+hyAx+\ t4n0REi44BABEZNMYcVtWrRWQQKJ5wIiJfALDacZyXRaQvv8Hseauypa1cY0wEAFR1QESGxsfHJ0Vk\ m6pG888lIqLfaapElVYoedVKpa64DpqosWq2DprOaaHg/HSj+\ 0DU7qqaIS1E6StmEjaX0NoxFoglarBqZ9Azpa+YQUhEtDAqruqdX/\ oq96eIRFR1GMBmAGEAj1tr700mk4eLZRjW8maIiFpJxTPoQqWvAqrqWGs/q6oPq+\ ovrbX3BqWwimUYEhFRYTX9JeHU1NS+ZDL5tohcMTEx8XJuKaxiGYZERFRYxY84ShkZGfkw+\ Hzo0KHpvN1OOp1evnfv3l/X8ppERK2qqhl0OaWvCpxTMMOQiIgKq3YGHZS+WlruCb7vb+\ ro6EhlMwzfFZH7qrw2EVFbaKpMwhYpebXYS12xzBVRk1jQAF1JQgsTVRqPySlEzWWhU71vmfsQIiIq\ pOQz6GLJJa7rrlbVYRG5CsApEXlsz549+1zXVVV9BMA9IrIKOH/\ mHIvF7rfWDonIZdba9dlleEREVEDJGXSJ5JK9ALYD6LHW3qaq23NOO9nV1XVzoYQWa+\ 0nRWS1tXZ9kMBCRESFlZxBi8haAHeGw2GoKgCcBYBQKHRjOp3eoKr3GGOuATDzCjff94/E4/\ HThdrr7u7eMjw8PAngsOu6oZrdBRFRC5prmV3B5JJ0On0EwH4ReU5Ejqvqz4J9qVSqYHAGgGxwJiKi\ MpR8xFEsuURVr7LWvmWM+UdV3VLi/IoTWoiI6JySAbpY+\ SoRGRKRV3zff1tVf1KiiSChhYiIKtRsiSqLuYrHv8H5SR6LFddBEzWJmr4sab7+/I4/+GKj+\ zBP1zS6A9XKlrhicCZqIk1TDYWZhI3FLEKi5sOisURETaqqklfVlLbKPnP+\ iqpGRWQFMwmJiEqr9n3Q1Za2Cnd3d1/\ JTEIiorlVFaCrLW2VyWSeGh4ensw9noiICqtqFUe1pa1KZRkSEdH5ar7MLif78Ktnzpy5H0BfIpG4r\ tbXISJqdTUP0JWUtspPVnl05zu17k7d/OCdk7jp6o/\ OfSARUZmYSdieuN6ZaBFgokqbYUIK0eLBRBUioiZV80SVUuWwwEQVIqKy1TxRBaXLYTFRhYioTDVPV\ AmFQjeKyEpVfcEYcwg55bCYqEJEVL6qAnQ2UUWB2Ykq2XJYJ7PlsD6Xu4+\ JKkRE5av5LwnLLYdFRESl1TxAV1AOi4iISmCiyvws1jJXXAdNtAiw5NX8LaoyV9nSVkS0CNRkBh2JR\ NaJyEERGQTwnOd5FbfLTML6YCYh0eJRk2fQxphRVf0Pl1xyyZ5qgjMREc0270ccwbNkY8yLW7duFdd\ 11fM8cV1XVfURAPckEolPFyuFNd/rExG1qnnPoIMZc5GZ88murq6bgTlLYRERUZ4F/SWh7/\ tH4vH4aeBcKSwAd4bDYagqAJxdyGsTES12Cxqg8zIHi5bCIiKi2eq2zI6lsIiIKlO3AJ1fCgvAHy32\ klcsc0VEC4mZhK2Da5uJWkzTrFlmokr1mHxC1JpY8oqIqElV/Qw6Eomsy2YQCoCjqropmUy+\ HiSqBMflJq6AJa+IiMpW9QxaRPYD2D8xMdFljPmaMSZVxmkseUVEVKb5BOjNAG7v6enZparveZ53+\ VznsOQVEVH5qg7QnufFReRuVT0B4MVoNOrmH9PX17cs9ztLXhERla/qZ9DRaPSo7/tbV6xY8cT4+\ PhpAI8D2AMgHYlE1qnq940xL9Ssp0REbabqGbSqDojI0Pj4+\ KSIbFPVKAAEz5eNMccAHKlZT4mI2gwTVcqzGEpbcR00UYtZ8FTv/GV3pTR5yaumKW21Y+\ xY0yQYEdHCaVhNwvyg7bqubt94daO6s2gstveVEFH1ZgJ0scSTYpVQim2PxWKXWmsPiMiVAKJztV/\ XuyUiWkRmfklYLPGkWCWUYttV9VkReTWTyXwcwKq52iciosJyA3TBxBMRWSsiB8Ph8KSqHgBwbantA\ NYA2J5KpU77vr9trvaJiKiwmQBdIvHESafTyz3Pk+\ yf7lLbVVUdxzEAEPyco30iIipgJoBmE096ent7n1DV53Au8SS3EsoF0Wg0Fo1G3yi1XURe9X1/\ aGBgYKWqvjFX+\ 0REVNjMLwmziSe7x8fH94uIWmvXA7MroYjIfaW2i8gXVPWg4zjrANwH4I1S7RMRUWFNlajS9ZvXGtG\ Vopq1pBXXQRO1h4atgy5kx9ixpssk/B/HJhrdhXzMGCRqEw3NJMx/sX/\ 6tTuaOZOw4bKlrYioTbDkFRFRk5o1g45Go0dF5A7P896NxWLXq+rfq+qaRCLx/Vgs9ofZlRm91tp/\ bozZB+AzqvojVX0gmUyecF1XVfURAPckEolPB+\ 0WyzAkIqLCCs2gRwH8KQCo6u0AjgO4Pfv9LgAHPM9LG2PiqvpmOBzuFZG3ROTZnDZOdnV13ZzbaLEM\ QyIiKmxWgHYcZyZAA7gNwEPZn1DVO621+7L7bpqenn4yHo+fmpqa2iYia4I2fN8/Eo/HT+\ U1vQYFMgyJiKiwWQF69+7d7wEIu657M4BJz/P+WkQ+jMVifyIinclk8if55y5ZskRU1Qm+\ FyptVSzDkIiICisWKA9l368xBgCqOqqqIwBGggNU9fXOzs4v9/f3fySTyWwWkR+\ WulCxDEMiIiqsWIAeFZHl1tq/\ AgBr7SiA7kwmsz84wPf9TQCucxznVyJyvYg8WOpCIvIFAKsdx3lZRPpqdQNERK2qqTIJm6zkVbOWuW\ KiClGbaKpMwiYsedXQMlfZzEoGZKI21dAAnZ9JyJJX59sxdqzRXSCiBqo4QBcrXRWJRD5WLHElPxCX\ W0SWiKidVbzcrVjpqjkSV4iIqELVBOhipauKJq4QEVHlKg7QJUpXFU1cCfT19S2rvqtERO2l4gBdoj\ RWscSVdCQSWTcwMHBhZ2fnt2vZeSKiVlZxgM6WrhoaHx+\ fFJFtqhoFiieuWGvXG2NGjTHHABypbfeJiFpXUyWqNEPJq2Yqc8V10ETtrakSVZql5FWTlLliYCZqc\ wVn0JFIZJ2IHBSRQc/zdtWjI67r6s67f1OPSzW9R3e+w8KwRFR4Bm2MGbXWru/\ t7X2p3h0iIqJzZgXo4NmwMebFrVu3Sn4JK9d1V6vqsIhcBeCUiDy2Z8+\ efa7rqohEVHUYwGYAYQCPW2vvTSaTh/v7+3sdx/kGgGtF5KcA/szzvJ/\ X71aJiBaXWas4gjTsvHTs3BJWewFsB9Bjrb1NVbcHB6mqY639rKo+rKq/\ tNbea4wZBQDHcZ4BkJqenr5YRHYB2L1QN0VE1ArKWmaXW8IqFArdKCIrVfUFY8whADNLHqampvYlk8\ m3ReSKiYmJl5PJ5GEAIQAQkbUicjAcDk9miwFcuwD3Q0TUMspaxZFbwiqdTh8BsF9EnhOR46r6s2Df\ yMjIh8HnQ4cOTec146TT6eV79+799Xw7TUTUDipeZqeqV6nqFzs6On5prf3LCs77QSgU+\ tLg4OBXz5w5cz+AvkQicV2l1yciahfVvCxpSERe8X3/\ bVX9ydxnnJPNNFx19uzZkyLiGmMilV6biKidNFUmYZOUvGqWUldMVCFqc02VSdhEJa8aVuqKCSpEFO\ jIrnNeIyIvAvi54zh379q16/\ 8Uq5ASjUaPisgdnue9G4vFrlfVv1fVNYlE4vuxWOwPVfUNAL2ZTObiQuueg3XVqvrjRCLx6aAjLHl1\ LoOQiChgAEBEbgVwGYC/8X1/\ B1CyQsoogD8FAFW9HcBxALdnv98F4IDneek51j3nrqsmIqICDACEQqGve573AYCvA1iT3VewQorjOD\ MBGsBtAB7K/oSq3mmt3QeUXvecu66aiIgKMwBw5swZHwAcxzGq6ufuA86vkLJ79+\ 73AIRd170ZwKTneX8tIh/GYrE/EZHOZDIZrOxw0un0cs/zJPunO2gvd101EREVZgCgs7Nz/\ 4YNGz7u+/5jAP4bULJCCgAcys6Kx7LHjqrqCICR4ICcdc8XRKPRWDQafaN+t0VEtPgFz6AP+75/\ FMAficifA8UrpGSNishya+\ 1fAYC1dhRAdyaT2R8cwHXPRETzI67rat6LkRqC74Pme6CJ6HwNWwddKFGl0cvMmqncFRGRKWf27Lru\ d3M+zwqspbYvJo0KzjvGjj29Y+yYcPZMRLnKnUHfMtcBlT4myT++\ nRNVdowda3QXiKgJzRmgg5lx7rPqWCx2v7V2SEQus9auTyaTh4P92eO/oqpREVkR7O/v7//\ 9jo6OUQCXqupfiMjOZnj2TUTUrOZ8m12hCivW2k+KyGpr7fqgYkqecHd395W5+7OZha+Gw+\ HLReQTtboBIqJWVfHrRgGgu7t7i+d5H+RWTMmVyWSeGh4enszbfzOAJ+Px+\ CnHcZ6ovstERO2hqgA9PDw8WWp/\ oUxBEckEn33fd6q5LhFROykrQKuq3bhx40XzvNYrqvqlDRs2XAbgpXm2RUTU8sqdQX8vnU4fn8+\ FMpnMFwHc4Pv+\ awCeVtWSs3AionZX91UUruuGAPQBeNDzvFU529s2kzC0duxpsIIKEeWpW4B2Xfd5VV0nIj3Fjmlgya\ tmKHNVcYBuljT9xYLjVTmOWWVadrzmk4k43yzGRl2b/\ V485zby2rznxXPtWve7qlUcRES08BigiYiaVF2flbTCC5WIiOqhJZ9lExEREREREREREVHTaOhDaNd\ 1V6vqCyKyAsC7qropkUg0OmGkaUQikY+\ JyFuJROKSYFuxMWv3sXRd91oAz6nqFQDeFRHX87wfc7yKi0Qi/8oYkwTwKQD/\ G8DDnuf9LcesNNd1bwPwneCXeAs5Xg1dZqeq/\ 0lEnspkMhcBeEFEHmlkf5pJJBJZZ4z5OxH5vdztxcaMY4lvAPjP09PTF4qIl/\ 3O8SrBGPMtADvD4fAya+2Qqh4AOGal9PX1dQH4L7nbFnK8Gr0OelU4HP5mKpU67fv+\ 8zj3X3ICICKu7/u3FdhVbMzaeiw9z7vC87yXR0ZGPly6dOkIgBXZXRyvIjzPu8bzvG+9//\ 77aoxZJiLvZ3dxzIro7Ox8TFUP5m1esPFqaIAWkYvj8fhpADh16tRJAJfMcUrbSCQS//b555//X/\ nbi40Zx/J3fvvb396A7CttOV6l9ff3f2TZsmW/\ BrBPVf8S4JgVs2HDhstE5N91dXU9lbt9Icer0TPo9JYtW3KfgzORZW7FxoxjCWBgYOBCa+\ 0mAA9nN3G8SkilUqcTicQ/s9beJyJfz27mmBXg+/4zAP5jPB6fytu1YOPV6AD9/okTJ5YBQE9PTw+\ A/9vg/iwGxcas7cfyoYce+j3HceK+72/yPO+\ D7GaOVxk6OztfUtXgTZMcs8JuBfBfcwtpZ7cv2Hg1OkD/gzHmnsHBwQtU9fMAftzg/\ iwGxcasrccyEol8LpPJfNv3/UdSqdQvcnZxvIqIRqPvuq57w1133dXp+/4f43ev3OWYFeB5ngR/gu/\ ZXQs2Xh216Xp1RCQB4JtnzpwZFpFxAHc3sj+LQbExa/exNMZ4AP6F4zjvu64L4Nw/II5XccaY+\ 621Xk9Pzx+o6g9VdQDg37FKcbyIiIiIiJrF/we5YRWPEpZffgAAAABJRU5ErkJggg==\",\"\ boundingBox\":{\"width\":360,\"height\":216,\"baseline\":111}},\"plotRange\":[\ 0,1,0,1],\"requestedImageSize\":[\"Automatic\",\"Automatic\"]}", AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, False}, AxesLabel->{None, None}, AxesOrigin->{0., 0.13851851851851854`}, 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["\"thing\"", TraditionalForm], 0}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {2., FormBox["\"power\"", TraditionalForm], 0}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {3., FormBox["\"frame\"", TraditionalForm], 0}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {4., FormBox["\"soul\"", TraditionalForm], 0}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {5., FormBox["\"world\"", TraditionalForm], 0}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {6., FormBox["\"seeds\"", TraditionalForm], 0}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {7., FormBox["\"sun\"", TraditionalForm], 0}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {8., FormBox["\"fire\"", TraditionalForm], 0}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {9., FormBox["\"man\"", TraditionalForm], 0}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {10., FormBox["\"men\"", TraditionalForm], 0}, {11., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {11., FormBox["\"earth\"", TraditionalForm], 0}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {12., FormBox["\"time\"", TraditionalForm], 0}, {13., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {13., FormBox["\"bodies\"", TraditionalForm], 0}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {14., FormBox["\"thou\"", TraditionalForm], 0}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {15., FormBox["\"life\"", TraditionalForm], 0}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {16., FormBox["\"air\"", TraditionalForm], 0}, {17., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {17., FormBox["\"nature\"", TraditionalForm], 0}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {18., FormBox["\"mind\"", TraditionalForm], 0}, {19., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {19., FormBox["\"body\"", TraditionalForm], 0}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {20., FormBox["\"things\"", 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}}, {11., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {13., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {17., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {19., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {20., 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.683904934616788*^9},ExpressionUUID->"501a78eb-0753-4414-80fb-\ 9339cdf2f816"] }, Open ]], Cell["Find distribution of sentence lengths:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}, {3.683904891846896*^9, 3.68390489949428*^9}},ExpressionUUID->"7b1d5b47-7295-4903-9e38-\ c93409835e3c"], 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.683904947226033*^9},ExpressionUUID->"ff7f915f-9622-40fd-bb18-\ 3a7d928f3205"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.7], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {5., 31}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.23518815052042, 35.455650234473296`}, { 68.94601301489567, 93.32840450262978}}], StatusArea[#, 31]& , TagBoxNote->"31"], StyleBox["31", {}, StripOnInput -> False]], Annotation[#, Style[31, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0}, {10., 85}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.955650234473296`, 43.17611231842617}, { 27.34442784271367, 93.32840450262978}}], StatusArea[#, 85]& , TagBoxNote->"85"], StyleBox["85", {}, StripOnInput -> False]], Annotation[#, Style[85, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {15., 125}, "RoundingRadius" -> 0]}, ImageSizeCache->{{42.67611231842617, 50.896574402379045`}, {-3.471561173717433, 93.32840450262978}}], StatusArea[#, 125]& , TagBoxNote->"125"], StyleBox["125", {}, StripOnInput -> False]], Annotation[#, Style[125, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{15., 0}, {20., 233}, "RoundingRadius" -> 0]}, ImageSizeCache->{{50.396574402379045`, 58.617036486331926`}, {-86.67473151808142, 93.32840450262978}}], StatusArea[#, 233]& , TagBoxNote->"233"], StyleBox["233", {}, StripOnInput -> False]], Annotation[#, Style[233, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20., 0}, {25., 252}, "RoundingRadius" -> 0]}, ImageSizeCache->{{58.117036486331926`, 66.33749857028481}, {-101.31232630088621`, 93.32840450262978}}], StatusArea[#, 252]& , TagBoxNote->"252"], StyleBox["252", {}, StripOnInput -> False]], Annotation[#, Style[252, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{25., 0}, {30., 202}, "RoundingRadius" -> 0]}, ImageSizeCache->{{65.83749857028481, 74.05796065423768}, {-62.79234003034733, 93.32840450262978}}], StatusArea[#, 202]& , TagBoxNote->"202"], StyleBox["202", {}, StripOnInput -> False]], Annotation[#, Style[202, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{30., 0}, {35., 186}, "RoundingRadius" -> 0]}, ImageSizeCache->{{73.55796065423768, 81.77842273819056}, {-50.465944423774886`, 93.32840450262978}}], StatusArea[#, 186]& , TagBoxNote->"186"], StyleBox["186", {}, StripOnInput -> False]], Annotation[#, Style[186, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{35., 0}, {40., 172}, "RoundingRadius" -> 0]}, ImageSizeCache->{{81.27842273819056, 89.49888482214344}, {-39.68034826802398, 93.32840450262978}}], StatusArea[#, 172]& , TagBoxNote->"172"], StyleBox["172", {}, StripOnInput -> False]], Annotation[#, Style[172, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{40., 0}, {45., 139}, "RoundingRadius" -> 0]}, ImageSizeCache->{{88.99888482214344, 97.2193469060963}, {-14.257157329468328`, 93.32840450262978}}], StatusArea[#, 139]& , TagBoxNote->"139"], StyleBox["139", {}, StripOnInput -> False]], Annotation[#, Style[139, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{45., 0}, {50., 117}, "RoundingRadius" -> 0]}, ImageSizeCache->{{96.7193469060963, 104.93980899004919`}, { 2.691636629568791, 93.32840450262978}}], StatusArea[#, 117]& , TagBoxNote->"117"], StyleBox["117", {}, StripOnInput -> False]], Annotation[#, Style[117, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{50., 0}, {55., 98}, "RoundingRadius" -> 0]}, ImageSizeCache->{{104.43980899004919`, 112.66027107400207`}, { 17.32923141237356, 93.32840450262978}}], StatusArea[#, 98]& , TagBoxNote->"98"], StyleBox["98", {}, StripOnInput -> False]], Annotation[#, Style[98, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{55., 0}, {60., 69}, "RoundingRadius" -> 0]}, ImageSizeCache->{{112.16027107400207`, 120.38073315795494`}, { 39.67082344928612, 93.32840450262978}}], StatusArea[#, 69]& , TagBoxNote->"69"], StyleBox["69", {}, StripOnInput -> False]], Annotation[#, Style[69, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{60., 0}, {65., 61}, "RoundingRadius" -> 0]}, ImageSizeCache->{{119.88073315795494`, 128.10119524190782`}, { 45.83402125257234, 93.32840450262978}}], 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[{65., 0}, {70., 40}, "RoundingRadius" -> 0]}, ImageSizeCache->{{127.60119524190782`, 135.8216573258607}, { 62.01241548619867, 93.32840450262978}}], StatusArea[#, 40]& , TagBoxNote->"40"], StyleBox["40", {}, StripOnInput -> False]], Annotation[#, Style[40, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{70., 0}, {75., 52}, "RoundingRadius" -> 0]}, ImageSizeCache->{{135.3216573258607, 143.54211940981358`}, { 52.76761878126934, 93.32840450262978}}], 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[{75., 0}, {80., 32}, "RoundingRadius" -> 0]}, ImageSizeCache->{{143.04211940981358`, 151.26258149376645`}, { 68.17561328948489, 93.32840450262978}}], 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[{80., 0}, {85., 18}, "RoundingRadius" -> 0]}, ImageSizeCache->{{150.76258149376645`, 158.98304357771934`}, { 78.96120944523578, 93.32840450262978}}], StatusArea[#, 18]& , TagBoxNote->"18"], StyleBox["18", {}, StripOnInput -> False]], Annotation[#, Style[18, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{85., 0}, {90., 22}, "RoundingRadius" -> 0]}, ImageSizeCache->{{158.48304357771934`, 166.7035056616722}, { 75.87961054359266, 93.32840450262978}}], StatusArea[#, 22]& , TagBoxNote->"22"], StyleBox["22", {}, StripOnInput -> False]], Annotation[#, Style[22, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{90., 0}, {95., 17}, "RoundingRadius" -> 0]}, ImageSizeCache->{{166.2035056616722, 174.4239677456251}, { 79.73160917064656, 93.32840450262978}}], 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[{95., 0}, {100., 14}, "RoundingRadius" -> 0]}, ImageSizeCache->{{173.9239677456251, 182.14442982957797`}, { 82.0428083468789, 93.32840450262978}}], StatusArea[#, 14]& , TagBoxNote->"14"], StyleBox["14", {}, StripOnInput -> False]], Annotation[#, Style[14, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{100., 0}, {105., 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{181.64442982957797`, 189.86489191353084`}, { 86.66520669934356, 93.32840450262978}}], 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[{105., 0}, {110., 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{189.36489191353084`, 197.58535399748374`}, { 88.97640587557589, 93.32840450262978}}], 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[{110., 0}, {115., 6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{197.08535399748374`, 205.3058160814366}, { 88.20600615016511, 93.32840450262978}}], 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[{115., 0}, {120., 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{204.8058160814366, 213.02627816538947`}, { 88.97640587557589, 93.32840450262978}}], 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[{120., 0}, {125., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{212.52627816538947`, 220.74674024934237`}, { 91.28760505180823, 93.32840450262978}}], 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[{125., 0}, {130., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{220.24674024934237`, 228.46720233329523`}, { 91.28760505180823, 93.32840450262978}}], 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[{130., 0}, {135., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{227.96720233329523`, 236.1876644172481}, { 91.28760505180823, 93.32840450262978}}], 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[{135., 0}, {140., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{235.6876644172481, 243.908126501201}, { 89.74680560098668, 93.32840450262978}}], 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[{140., 0}, {145., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{243.408126501201, 251.62858858515386`}, { 89.74680560098668, 93.32840450262978}}], 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[{145., 0}, {150., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{251.12858858515386`, 259.3490506691067}, { 92.058004777219, 93.32840450262978}}], 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[{150., 0}, {155., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{258.8490506691067, 267.0695127530596}, { 92.058004777219, 93.32840450262978}}], 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[{160., 0}, {165., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{274.2899748370125, 282.51043692096533`}, { 92.058004777219, 93.32840450262978}}], 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[{185., 0}, {190., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{312.89228525677686`, 321.11274734072975`}, { 92.058004777219, 93.32840450262978}}], 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[{205., 0}, {210., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{343.7741335925884, 351.9945956765412}, { 92.058004777219, 93.32840450262978}}], 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->{-4.2, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0., 210.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.683904954499667*^9},ExpressionUUID->"c7980718-7ddb-4f26-8c0f-\ 64d15955818c"] }, Open ]] }, Open ]] }, WindowSize->{775, 873}, WindowMargins->{{Automatic, 0}, {Automatic, 0}}, WindowTitle->"Examples for On the Nature of Things", 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[630, 23, 91, 0, 70, "Subsection", "ExpressionUUID" -> \ "9e59cc89-ede3-4da6-b55f-c4a014cf9290"], Cell[724, 25, 272, 4, 70, "Text", "ExpressionUUID" -> \ "d63590f4-40e8-473d-832d-9254e419909c"], Cell[CellGroupData[{ Cell[1021, 33, 283, 6, 70, "Input", "ExpressionUUID" -> \ "280762d9-f609-48da-8828-d129d8aa3315"], Cell[1307, 41, 14652, 324, 70, "Output", "ExpressionUUID" -> \ "3af665c7-5163-45ec-a60b-e266394c045e"] }, Open ]], Cell[15974, 368, 261, 4, 70, "Text", "ExpressionUUID" -> \ "f5602998-af8c-474d-a485-6eb6851a459e"], Cell[CellGroupData[{ Cell[16260, 376, 382, 10, 70, "Input", "ExpressionUUID" -> \ "829480dc-72b7-47e0-9a86-a642a71a8dfe"], Cell[16645, 388, 504, 8, 70, "Output", "ExpressionUUID" -> \ "803d2fca-06ac-43ea-9f4e-d8f57003c42b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17198, 402, 90, 0, 70, "Subsection", "ExpressionUUID" -> \ "a37a8441-20c6-464c-b8b3-e0e15db7c83f"], Cell[17291, 404, 315, 5, 70, "Text", "ExpressionUUID" -> \ "1ffc0740-e744-4d06-8b8a-da850cedc2f8"], Cell[CellGroupData[{ Cell[17631, 413, 628, 17, 70, "Input", "ExpressionUUID" -> \ "2078456e-07e8-44c5-b46b-e89c32249c13"], Cell[18262, 432, 45282, 1049, 70, "Output", "ExpressionUUID" -> \ "501a78eb-0753-4414-80fb-9339cdf2f816"] }, Open ]], Cell[63559, 1484, 333, 5, 70, "Text", "ExpressionUUID" -> \ "7b1d5b47-7295-4903-9e38-c93409835e3c"], Cell[CellGroupData[{ Cell[63917, 1493, 623, 17, 70, "Input", "ExpressionUUID" -> \ "ff7f915f-9622-40fd-bb18-3a7d928f3205"], Cell[64543, 1512, 21987, 639, 70, "Output", "ExpressionUUID" -> \ "c7980718-7ddb-4f26-8c0f-64d15955818c"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)