(* 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[ 80402, 2113] NotebookOptionsPosition[ 78302, 2053] NotebookOutlinePosition[ 78916, 2076] CellTagsIndexPosition[ 78873, 2073] WindowTitle->Examples for The Rosary WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection",ExpressionUUID->"3edd30a9-11bc-4bcf-a22a-b8c87fb7036e"], 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->"8e0a0d21-9896-4d51-b6da-\ 879b2d8a3d39"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804517731799183`*^9, 3.6804517885604563`*^9}, { 3.6804527318597765`*^9, 3.6804527390684977`*^9}},ExpressionUUID->"9c5d5810-2e35-48cd-b6bd-\ ecad7b8dd4f7"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["ResourceObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"], ImageSizeCache->{12., {0., 12.}}], Appearance->None, ButtonFunction:>(Typeset`open$$ = True), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, { 3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, {FaceForm[{RGBColor[0.274612, 0.618881, 0.810913], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, { 56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, { 9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, {2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}}, AspectRatio->1, Axes->False, Background->None, Frame->None, FrameTicks->None, ImageSize->{Automatic, Dynamic[(3.5 CurrentValue["FontCapHeight"])/AbsoluteCurrentValue[ Magnification], ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{ { RowBox[{ TagBox["\<\"Name: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"The Rosary\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Florence L. Barclay's \\\"The Rosary\\\ \"\"\>", "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True-> GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], Appearance->None, ButtonFunction:>(Typeset`open$$ = False), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, { 3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, {FaceForm[{RGBColor[0.274612, 0.618881, 0.810913], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, { 56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, { 9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, {2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}}, AspectRatio->1, Axes->False, Background->None, Frame->None, FrameTicks->None, ImageSize->{Automatic, Dynamic[(3.5 CurrentValue["FontCapHeight"])/AbsoluteCurrentValue[ Magnification], ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{ { RowBox[{ TagBox["\<\"Name: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"The Rosary\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Florence L. Barclay's \\\"The Rosary\\\ \"\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Categories: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\"","\"Textual Data\"","\"Literature\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"ContentTypes: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\"","\"Text\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Keywords: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\"","\"text\"","\"novel\"","\"fiction\""}, "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[ "ef275740-e017-4ae0-a76a-d123ff109d23"]; 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["\<\"ef275740-e017-4ae0-a76a-d123ff109d23\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"\\[LeftAssociation]", RowBox[{"\<\"Plaintext\"\>", "\[Rule]", "582736"}], "\\[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" -> "The Rosary", "UUID" -> "ef275740-e017-4ae0-a76a-d123ff109d23", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Plaintext for Florence L. Barclay's \"The Rosary\"", "ContentSize" -> Association["Plaintext" -> 582736], "ContentElements" -> {"Plaintext"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.688228414251648*^9},ExpressionUUID->"b13802db-8de3-4766-8d44-\ 05bff01ed53e"] }, 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->"978bc4b0-6f12-4201-9b2c-\ 9e075860c33b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", "10", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, { 3.688228436928334*^9, 3.6882284426587973`*^9}, {3.7028324013495197`*^9, 3.702832405684847*^9}},ExpressionUUID->"0a22ab08-8862-4d9e-8b7e-\ cf2fc47c4f8d"], Cell[BoxData["\<\"A wag had once remarked that if you met her Grace of \ Meldrum returning\\nfrom gardening or feeding her poultry, and were in a \ charitable frame\\nof mind, you would very likely give her sixpence. But, \ after you had\\nthus drawn her attention to yourself and she looked at you, \ Sir Walter\\nRaleigh's cloak would not be in it! Your one possible course \ would be\\nto collapse into the mud, and let the ducal \\\"gouties\\\" \ trample on you.\\nThis the duchess would do with gusto; then accept your \ apologies with\\ngood nature; and keep your sixpence, to show when she told \ the story.\"\>"], "Output", CellChangeTimes->{{3.6882284155653543`*^9, 3.6882284500167828`*^9}, 3.702832406608479*^9},ExpressionUUID->"838a1413-584a-44b7-8448-\ 3049bb13752e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection",ExpressionUUID->"4196cdd4-dcaf-49b1-9cbe-e9f9c85628b1"], Cell["Create a word cloud:", "Text", CellChangeTimes->{{3.6833768895573597`*^9, 3.68337689196535*^9}},ExpressionUUID->"a53537db-1f1e-4117-8ca3-\ c5c7cd860184"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{"DeleteStopwords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.683032640005966*^9, 3.6830326503422127`*^9}, 3.683035633524098*^9, 3.6882284605675097`*^9},ExpressionUUID->"7eb3a410-e9e9-4d20-9ba3-\ 087101fe2f7e"], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"JANE\"\>", StripOnInput->False, FontSize->Scaled[0.23809523809523808`], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"said\"\>", StripOnInput->False, FontSize->Scaled[0.21924787230909681`], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {-0.5, -50.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Garth\"\>", StripOnInput->False, FontSize->Scaled[0.17154047766292663`], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {-0.5, 50.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Rosemary\"\>", StripOnInput->False, FontSize->Scaled[0.06935241629119179], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {-23.5, -79.5}, Center, Automatic], InsetBox[ StyleBox["\<\"know\"\>", StripOnInput->False, FontSize->Scaled[0.08525488117324852], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {-0.5, 81.5}, Center, Automatic], InsetBox[ StyleBox["\<\"DUCHESS\"\>", StripOnInput->False, FontSize->Scaled[0.04991607032423359], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {14.5, 96.5}, Center, Automatic], InsetBox[ StyleBox["\<\"doctor\"\>", StripOnInput->False, FontSize->Scaled[0.07229731719527638], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {87.5, -31.5}, Center, Automatic], InsetBox[ StyleBox["\<\"face\"\>", StripOnInput->False, FontSize->Scaled[0.07995405954589628], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {-81.5, -30.5}, Center, Automatic], InsetBox[ StyleBox["\<\"nurse\"\>", StripOnInput->False, FontSize->Scaled[0.08613835144447389], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {56.5, -81.5}, Center, Automatic], InsetBox[ StyleBox["\<\"dear\"\>", StripOnInput->False, FontSize->Scaled[0.0755367081897694], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {-93.5, 8.5}, Center, Automatic], InsetBox[ StyleBox["\<\"voice\"\>", StripOnInput->False, FontSize->Scaled[0.0652295550254734], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {86.5, 41.5}, Center, Automatic], InsetBox[ StyleBox["\<\"thought\"\>", StripOnInput->False, FontSize->Scaled[0.05109403068586742], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {-89.5, 40.5}, Center, Automatic], InsetBox[ StyleBox["\<\"just\"\>", StripOnInput->False, FontSize->Scaled[0.07435874782813559], FontColor->RGBColor[1, 0.75, 0]], {76.5, -53.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Dalmain\"\>", StripOnInput->False, FontSize->Scaled[0.04991607032423359], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {-15.5, -96.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hand\"\>", StripOnInput->False, FontSize->Scaled[0.06169567394057189], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {-81.5, -50.5}, Center, Automatic], InsetBox[ StyleBox["\<\"come\"\>", StripOnInput->False, FontSize->Scaled[0.07082486674323409], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {-57.5, 84.5}, Center, Automatic], InsetBox[ StyleBox["\<\"little\"\>", StripOnInput->False, FontSize->Scaled[0.071413846924051], FontColor->RGBColor[0.571589, 0.586483, 0.]], {64.5, 73.5}, Center, Automatic], InsetBox[ StyleBox["\<\"looked\"\>", StripOnInput->False, FontSize->Scaled[0.05138852077627588], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {-87.5, 55.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Miss\"\>", StripOnInput->False, FontSize->Scaled[0.060812203669346525`], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {104.5, 0.5}, Center, Automatic], InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.06375710457343109], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {32.5, -102.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Champion\"\>", StripOnInput->False, FontSize->Scaled[0.03813646670789528], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {-50.5, 98.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Deryck\"\>", StripOnInput->False, FontSize->Scaled[0.04579320905851518], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {-4.5, 112.5}, Center, Automatic], InsetBox[ StyleBox["\<\"turned\"\>", StripOnInput->False, FontSize->Scaled[0.04785463969137438], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {-6.5, -111.5}, Center, Automatic], InsetBox[ StyleBox["\<\"eyes\"\>", StripOnInput->False, FontSize->Scaled[0.05963424330771269], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {-90.5, -64.5}, Center, Automatic], InsetBox[ StyleBox["\<\"things\"\>", StripOnInput->False, FontSize->Scaled[0.04697116942014901], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {-64.5, -95.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hands\"\>", StripOnInput->False, FontSize->Scaled[0.04903260005300821], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {72.5, 90.5}, Center, Automatic], InsetBox[ StyleBox["\<\"moment\"\>", StripOnInput->False, FontSize->Scaled[0.043731778425655975`], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {42.5, 111.5}, Center, Automatic], InsetBox[ StyleBox["\<\"shall\"\>", StripOnInput->False, FontSize->Scaled[0.05492240186117737], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {105.5, 18.5}, Center, Automatic], InsetBox[ StyleBox["\<\"good\"\>", StripOnInput->False, FontSize->Scaled[0.05138852077627588], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {103.5, 61.5}, Center, Automatic], InsetBox[ StyleBox["\<\"woman\"\>", StripOnInput->False, FontSize->Scaled[0.05079954059545896], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {-52.5, 111.5}, Center, Automatic], InsetBox[ StyleBox["\<\"think\"\>", StripOnInput->False, FontSize->Scaled[0.05021056041464205], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {-101.5, 69.5}, Center, Automatic], InsetBox[ StyleBox["\<\"mind\"\>", StripOnInput->False, FontSize->Scaled[0.05109403068586742], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {-46.5, -113.5}, Center, Automatic], InsetBox[ StyleBox["\<\"love\"\>", StripOnInput->False, FontSize->Scaled[0.057278322584445034`], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {-108.5, -7.5}, Center, Automatic], InsetBox[ StyleBox["\<\"window\"\>", StripOnInput->False, FontSize->Scaled[0.03901993697912065], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {73.5, -99.5}, Center, Automatic], InsetBox[ StyleBox["\<\"say\"\>", StripOnInput->False, FontSize->Scaled[0.05992873339812116], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {109.5, -47.5}, Center, Automatic], InsetBox[ StyleBox["\<\"suddenly\"\>", StripOnInput->False, FontSize->Scaled[0.03401360544217687], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {36.5, -117.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Margery\"\>", StripOnInput->False, FontSize->Scaled[0.03578054598462761], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {-102.5, -79.5}, Center, Automatic], InsetBox[ StyleBox["\<\"thing\"\>", StripOnInput->False, FontSize->Scaled[0.04667667932974055], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {106.5, -70.5}, Center, Automatic], InsetBox[ StyleBox["\<\"knew\"\>", StripOnInput->False, FontSize->Scaled[0.04667667932974055], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {105.5, -14.5}, Center, Automatic], InsetBox[ StyleBox["\<\"morning\"\>", StripOnInput->False, FontSize->Scaled[0.03548605589421916], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {-105.5, 24.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Simpson\"\>", StripOnInput->False, FontSize->Scaled[0.0351915658038107], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {-85.5, -106.5}, Center, Automatic], InsetBox[ StyleBox["\<\"way\"\>", StripOnInput->False, FontSize->Scaled[0.05256648113790971], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {-100.5, 86.5}, Center, Automatic], InsetBox[ StyleBox["\<\"evening\"\>", StripOnInput->False, FontSize->Scaled[0.03548605589421916], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {87.5, 103.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Garth's\"\>", StripOnInput->False, FontSize->Scaled[0.039608917159937564`], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {-97.5, 97.5}, Center, Automatic], InsetBox[ StyleBox["\<\"head\"\>", StripOnInput->False, FontSize->Scaled[0.04962158023382513], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {76.5, -113.5}, Center, Automatic], InsetBox[ StyleBox["\<\"asked\"\>", StripOnInput->False, FontSize->Scaled[0.04314279824483906], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {86.5, 115.5}, Center, Automatic], InsetBox[ StyleBox["\<\"beautiful\"\>", StripOnInput->False, FontSize->Scaled[0.0351915658038107], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {-100.5, 109.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Oh\"\>", StripOnInput->False, FontSize->Scaled[0.060223223488529605`], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {107.5, 76.5}, Center, Automatic], InsetBox[ StyleBox["\<\"old\"\>", StripOnInput->False, FontSize->Scaled[0.06169567394057189], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {107.5, -90.5}, Center, Automatic], InsetBox[ StyleBox["\<\"quite\"\>", StripOnInput->False, FontSize->Scaled[0.04873810996259976], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {-7.5, -125.5}, Center, Automatic], InsetBox[ StyleBox["\<\"away\"\>", StripOnInput->False, FontSize->Scaled[0.04814912978178284], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {12.5, 125.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Jane's\"\>", StripOnInput->False, FontSize->Scaled[0.037547486527078365`], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {-22.5, 126.5}, Center, Automatic], InsetBox[ StyleBox["\<\"people\"\>", StripOnInput->False, FontSize->Scaled[0.03872544688871219], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {49.5, 124.5}, Center, Automatic], InsetBox[ StyleBox["\<\"right\"\>", StripOnInput->False, FontSize->Scaled[0.0484436198721913], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {-119.5, -36.5}, Center, Automatic], InsetBox[ StyleBox["\<\"like\"\>", StripOnInput->False, FontSize->Scaled[0.05492240186117737], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {-54.5, 124.5}, Center, Automatic], InsetBox[ StyleBox["\<\"day\"\>", StripOnInput->False, FontSize->Scaled[0.04903260005300821], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {-122.5, -54.5}, Center, Automatic], InsetBox[ StyleBox["\<\"night\"\>", StripOnInput->False, FontSize->Scaled[0.04461524869688135], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {-40.5, -128.5}, Center, Automatic], InsetBox[ StyleBox["\<\"heart\"\>", StripOnInput->False, FontSize->Scaled[0.04461524869688135], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {-80.5, -119.5}, Center, Automatic], InsetBox[ StyleBox["\<\"look\"\>", StripOnInput->False, FontSize->Scaled[0.04903260005300821], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {-84.5, 122.5}, Center, Automatic], InsetBox[ StyleBox["\<\"came\"\>", StripOnInput->False, FontSize->Scaled[0.05168301086668434], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {76.5, -127.5}, Center, Automatic], InsetBox[ StyleBox["\<\"man\"\>", StripOnInput->False, FontSize->Scaled[0.05933975321730424], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {28.5, -129.5}, Center, Automatic], InsetBox[ StyleBox["\<\"young\"\>", StripOnInput->False, FontSize->Scaled[0.03578054598462761], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {110.5, -102.5}, Center, Automatic], InsetBox[ StyleBox["\<\"looking\"\>", StripOnInput->False, FontSize->Scaled[0.03489707571340225], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {95.5, 128.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Gray\"\>", StripOnInput->False, FontSize->Scaled[0.044026268516064435`], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {-119.5, -92.5}, Center, Automatic], InsetBox[ StyleBox["\<\"going\"\>", StripOnInput->False, FontSize->Scaled[0.036958506346261445`], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {111.5, -116.5}, Center, Automatic], InsetBox[ StyleBox["\<\"heard\"\>", StripOnInput->False, FontSize->Scaled[0.03813646670789528], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {120.5, 111.5}, Center, Automatic], InsetBox[ StyleBox["\<\"stood\"\>", StripOnInput->False, FontSize->Scaled[0.04019789734075448], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {-113.5, -118.5}, Center, Automatic], InsetBox[ StyleBox["\<\"make\"\>", StripOnInput->False, FontSize->Scaled[0.04049238743116294], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {-115.5, 122.5}, Center, Automatic], InsetBox[ StyleBox["\<\"ah\"\>", StripOnInput->False, FontSize->Scaled[0.05668934240362812], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {-30.5, -20.5}, Center, Automatic], InsetBox[ StyleBox["\<\"really\"\>", StripOnInput->False, FontSize->Scaled[0.036664016255852985`], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {121.5, 92.5}, Center, Automatic], InsetBox[ StyleBox["\<\"letter\"\>", StripOnInput->False, FontSize->Scaled[0.037252996436669905`], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {-122.5, -20.5}, Center, Automatic], InsetBox[ StyleBox["\<\"want\"\>", StripOnInput->False, FontSize->Scaled[0.041375857702388316`], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {126.5, 34.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Dr.\"\>", StripOnInput->False, FontSize->Scaled[0.05197750095709279], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {-128.5, 7.5}, Center, Automatic], InsetBox[ StyleBox["\<\"words\"\>", StripOnInput->False, FontSize->Scaled[0.03578054598462761], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {126.5, 46.5}, Center, Automatic], InsetBox[ StyleBox["\<\"long\"\>", StripOnInput->False, FontSize->Scaled[0.0428483081544306], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {132.5, -27.5}, Center, Automatic], InsetBox[ StyleBox["\<\"years\"\>", StripOnInput->False, FontSize->Scaled[0.03430809553258533], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {-130.5, 33.5}, Center, Automatic], InsetBox[ StyleBox["\<\"yes\"\>", StripOnInput->False, FontSize->Scaled[0.04697116942014901], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {-124.5, 54.5}, Center, Automatic], InsetBox[ StyleBox["\<\"tell\"\>", StripOnInput->False, FontSize->Scaled[0.0484436198721913], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {134.5, -12.5}, Center, Automatic], InsetBox[ StyleBox["\<\"great\"\>", StripOnInput->False, FontSize->Scaled[0.0351915658038107], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {2.5, 138.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hear\"\>", StripOnInput->False, FontSize->Scaled[0.037547486527078365`], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {28.5, 136.5}, Center, Automatic], InsetBox[ StyleBox["\<\"lady\"\>", StripOnInput->False, FontSize->Scaled[0.04049238743116294], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {133.5, 60.5}, Center, Automatic], InsetBox[ StyleBox["\<\"found\"\>", StripOnInput->False, FontSize->Scaled[0.03430809553258533], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {-26.5, 138.5}, Center, Automatic], InsetBox[ StyleBox["\<\"took\"\>", StripOnInput->False, FontSize->Scaled[0.041081367611979856`], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {-132.5, 66.5}, Center, Automatic], InsetBox[ StyleBox["\<\"boy\"\>", StripOnInput->False, FontSize->Scaled[0.04343728833524752], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {134.5, -59.5}, Center, Automatic], InsetBox[ StyleBox["\<\"went\"\>", StripOnInput->False, FontSize->Scaled[0.03901993697912065], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {56.5, 136.5}, Center, Automatic], InsetBox[ StyleBox["\<\"room\"\>", StripOnInput->False, FontSize->Scaled[0.041081367611979856`], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {-4.5, -139.5}, Center, Automatic], InsetBox[ StyleBox["\<\"chair\"\>", StripOnInput->False, FontSize->Scaled[0.03636952616544453], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {-54.5, 139.5}, Center, Automatic], InsetBox[ StyleBox["\<\"felt\"\>", StripOnInput->False, FontSize->Scaled[0.04343728833524752], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {134.5, 2.5}, Center, Automatic], InsetBox[ StyleBox["\<\"feel\"\>", StripOnInput->False, FontSize->Scaled[0.037252996436669905`], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {-66.5, -133.5}, Center, Automatic], InsetBox[ StyleBox["\<\"poor\"\>", StripOnInput->False, FontSize->Scaled[0.03489707571340225], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {-131.5, -66.5}, Center, Automatic], InsetBox[ StyleBox["\<\"light\"\>", StripOnInput->False, FontSize->Scaled[0.0351915658038107], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {134.5, 17.5}, Center, Automatic], InsetBox[ StyleBox["\<\"kind\"\>", StripOnInput->False, FontSize->Scaled[0.03460258562299379], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {131.5, 72.5}, Center, Automatic], InsetBox[ StyleBox["\<\"life\"\>", StripOnInput->False, FontSize->Scaled[0.040786877521571396`], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {70.5, 54.5}, Center, Automatic], InsetBox[ StyleBox["\<\"let\"\>", StripOnInput->False, FontSize->Scaled[0.04314279824483906], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {133.5, -42.5}, Center, Automatic], InsetBox[ StyleBox["\<\"sat\"\>", StripOnInput->False, FontSize->Scaled[0.039608917159937564`], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {-134.5, -6.5}, Center, Automatic], InsetBox[ StyleBox["\<\"saw\"\>", StripOnInput->False, FontSize->Scaled[0.036958506346261445`], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {68.5, -2.5}, Center, Automatic], InsetBox[ StyleBox["\<\"rob\"\>", StripOnInput->False, FontSize->Scaled[0.03636952616544453], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {-126.5, 81.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Mr.\"\>", StripOnInput->False, FontSize->Scaled[0.03460258562299379], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {131.5, -72.5}, Center, Automatic], InsetBox[ StyleBox["\<\"left\"\>", StripOnInput->False, FontSize->Scaled[0.03607503607503607], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {129.5, -84.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Dal\"\>", StripOnInput->False, FontSize->Scaled[0.03636952616544453], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {-77.5, 135.5}, Center, Automatic]}, DefaultBaseStyle->{ "Graphics", FontFamily -> "Helvetica", FontWeight -> Plain, FontTracking -> "Plain", FontSlant -> Plain, FontVariations -> {}}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-147., 147.}, {-146., 146.}}]], "Output", CellChangeTimes->{ 3.6882284703419743`*^9},ExpressionUUID->"8707f754-6842-4f27-9f0d-\ 74b063b259b2"] }, Open ]], Cell["Show the distribution of sentence lengths:", "Text", CellChangeTimes->{{3.683033608693839*^9, 3.683033616124875*^9}, 3.683375606199028*^9},ExpressionUUID->"89b24728-7e8b-4251-8ca2-\ cb752a03f07e"], 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.688228470277506*^9},ExpressionUUID->"75b87d31-cd9f-4ef0-a8e3-\ b90f8469c9ab"], 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., 99}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.235188150520415`, 31.892360041879655`}, { 55.36264943528464, 93.32840450262984}}], StatusArea[#, 99]& , TagBoxNote->"99"], StyleBox["99", {}, StripOnInput -> False]], Annotation[#, Style[99, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {4., 245}, "RoundingRadius" -> 0]}, ImageSizeCache->{{31.392360041879655`, 36.049531933238896`}, { 0.11012176020989273`, 93.32840450262984}}], StatusArea[#, 245]& , TagBoxNote->"245"], StyleBox["245", {}, StripOnInput -> False]], Annotation[#, Style[245, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {6., 508}, "RoundingRadius" -> 0]}, ImageSizeCache->{{35.549531933238896`, 40.20670382459814}, {-99.42011644900009, 93.32840450262984}}], StatusArea[#, 508]& , TagBoxNote->"508"], StyleBox["508", {}, StripOnInput -> False]], Annotation[#, Style[508, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0}, {8., 509}, "RoundingRadius" -> 0]}, ImageSizeCache->{{39.70670382459814, 44.36387571595738}, {-99.79855841937731, 93.32840450262984}}], StatusArea[#, 509]& , TagBoxNote->"509"], StyleBox["509", {}, StripOnInput -> False]], Annotation[#, Style[509, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8., 0}, {10., 513}, "RoundingRadius" -> 0]}, ImageSizeCache->{{43.86387571595738, 48.52104760731662}, {-101.31232630088621`, 93.32840450262984}}], StatusArea[#, 513]& , TagBoxNote->"513"], StyleBox["513", {}, StripOnInput -> False]], Annotation[#, Style[513, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {12., 448}, "RoundingRadius" -> 0]}, ImageSizeCache->{{48.02104760731662, 52.678219498675865`}, {-76.71359822636663, 93.32840450262984}}], StatusArea[#, 448]& , TagBoxNote->"448"], StyleBox["448", {}, StripOnInput -> False]], Annotation[#, Style[448, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12., 0}, {14., 405}, "RoundingRadius" -> 0]}, ImageSizeCache->{{52.178219498675865`, 56.835391390035106`}, {-60.44059350014598, 93.32840450262984}}], StatusArea[#, 405]& , TagBoxNote->"405"], StyleBox["405", {}, StripOnInput -> False]], Annotation[#, Style[405, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{14., 0}, {16., 353}, "RoundingRadius" -> 0]}, ImageSizeCache->{{56.335391390035106`, 60.99256328139435}, {-40.76161104053034, 93.32840450262984}}], StatusArea[#, 353]& , TagBoxNote->"353"], StyleBox["353", {}, StripOnInput -> False]], Annotation[#, Style[353, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{16., 0}, {18., 349}, "RoundingRadius" -> 0]}, ImageSizeCache->{{60.49256328139435, 65.1497351727536}, {-39.24784315902144, 93.32840450262984}}], StatusArea[#, 349]& , TagBoxNote->"349"], StyleBox["349", {}, StripOnInput -> False]], Annotation[#, Style[349, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{18., 0}, {20., 274}, "RoundingRadius" -> 0]}, ImageSizeCache->{{64.6497351727536, 69.30690706411283}, {-10.864695380729614`, 93.32840450262984}}], StatusArea[#, 274]& , TagBoxNote->"274"], StyleBox["274", {}, StripOnInput -> False]], Annotation[#, Style[274, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20., 0}, {22., 264}, "RoundingRadius" -> 0]}, ImageSizeCache->{{68.80690706411283, 73.46407895547208}, {-7.0802756769573705`, 93.32840450262984}}], StatusArea[#, 264]& , TagBoxNote->"264"], StyleBox["264", {}, StripOnInput -> False]], Annotation[#, Style[264, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{22., 0}, {24., 247}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.96407895547208, 77.62125084683132}, {-0.646762180544556, 93.32840450262984}}], StatusArea[#, 247]& , TagBoxNote->"247"], StyleBox["247", {}, StripOnInput -> False]], Annotation[#, Style[247, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{24., 0}, {26., 194}, "RoundingRadius" -> 0]}, ImageSizeCache->{{77.12125084683132, 81.77842273819056}, { 19.410662249448336`, 93.32840450262984}}], 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[{26., 0}, {28., 157}, "RoundingRadius" -> 0]}, ImageSizeCache->{{81.27842273819056, 85.9355946295498}, { 33.413015153405624`, 93.32840450262984}}], StatusArea[#, 157]& , TagBoxNote->"157"], StyleBox["157", {}, StripOnInput -> False]], Annotation[#, Style[157, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{28., 0}, {30., 158}, "RoundingRadius" -> 0]}, ImageSizeCache->{{85.4355946295498, 90.09276652090904}, { 33.0345731830284, 93.32840450262984}}], StatusArea[#, 158]& , TagBoxNote->"158"], StyleBox["158", {}, StripOnInput -> False]], Annotation[#, Style[158, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{30., 0}, {32., 140}, "RoundingRadius" -> 0]}, ImageSizeCache->{{89.59276652090904, 94.24993841226828}, { 39.84652864981844, 93.32840450262984}}], StatusArea[#, 140]& , TagBoxNote->"140"], StyleBox["140", {}, StripOnInput -> False]], Annotation[#, Style[140, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{32., 0}, {34., 113}, "RoundingRadius" -> 0]}, ImageSizeCache->{{93.74993841226828, 98.40711030362752}, { 50.0644618500035, 93.32840450262984}}], StatusArea[#, 113]& , TagBoxNote->"113"], StyleBox["113", {}, StripOnInput -> False]], Annotation[#, Style[113, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{34., 0}, {36., 139}, "RoundingRadius" -> 0]}, ImageSizeCache->{{97.90711030362752, 102.56428219498676`}, { 40.22497062019566, 93.32840450262984}}], 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[{36., 0}, {38., 74}, "RoundingRadius" -> 0]}, ImageSizeCache->{{102.06428219498676`, 106.721454086346}, { 64.82369869471523, 93.32840450262984}}], StatusArea[#, 74]& , TagBoxNote->"74"], StyleBox["74", {}, StripOnInput -> False]], Annotation[#, Style[74, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{38., 0}, {40., 80}, "RoundingRadius" -> 0]}, ImageSizeCache->{{106.221454086346, 110.87862597770524`}, { 62.553046872451894`, 93.32840450262984}}], StatusArea[#, 80]& , TagBoxNote->"80"], StyleBox["80", {}, StripOnInput -> False]], Annotation[#, Style[80, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{40., 0}, {42., 49}, "RoundingRadius" -> 0]}, ImageSizeCache->{{110.37862597770524`, 115.03579786906448`}, { 74.28474795414584, 93.32840450262984}}], 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[{42., 0}, {44., 70}, "RoundingRadius" -> 0]}, ImageSizeCache->{{114.53579786906448`, 119.19296976042372`}, { 66.33746657622413, 93.32840450262984}}], StatusArea[#, 70]& , TagBoxNote->"70"], StyleBox["70", {}, StripOnInput -> False]], Annotation[#, Style[70, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{44., 0}, {46., 55}, "RoundingRadius" -> 0]}, ImageSizeCache->{{118.69296976042372`, 123.35014165178296`}, { 72.0140961318825, 93.32840450262984}}], StatusArea[#, 55]& , TagBoxNote->"55"], StyleBox["55", {}, StripOnInput -> False]], Annotation[#, Style[55, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{46., 0}, {48., 37}, "RoundingRadius" -> 0]}, ImageSizeCache->{{122.85014165178296`, 127.50731354314222`}, { 78.82605159867254, 93.32840450262984}}], StatusArea[#, 37]& , TagBoxNote->"37"], StyleBox["37", {}, StripOnInput -> False]], Annotation[#, Style[37, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{48., 0}, {50., 32}, "RoundingRadius" -> 0]}, ImageSizeCache->{{127.00731354314222`, 131.66448543450144`}, { 80.71826145055866, 93.32840450262984}}], 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[{50., 0}, {52., 33}, "RoundingRadius" -> 0]}, ImageSizeCache->{{131.16448543450144`, 135.8216573258607}, { 80.33981948018143, 93.32840450262984}}], 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[{52., 0}, {54., 31}, "RoundingRadius" -> 0]}, ImageSizeCache->{{135.3216573258607, 139.97882921721992`}, { 81.09670342093588, 93.32840450262984}}], 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[{54., 0}, {56., 19}, "RoundingRadius" -> 0]}, ImageSizeCache->{{139.47882921721992`, 144.1360011085792}, { 85.63800706546257, 93.32840450262984}}], 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[{56., 0}, {58., 21}, "RoundingRadius" -> 0]}, ImageSizeCache->{{143.6360011085792, 148.2931729999384}, { 84.88112312470813, 93.32840450262984}}], 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[{58., 0}, {60., 17}, "RoundingRadius" -> 0]}, ImageSizeCache->{{147.7931729999384, 152.45034489129768`}, { 86.39489100621702, 93.32840450262984}}], 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[{60., 0}, {62., 20}, "RoundingRadius" -> 0]}, ImageSizeCache->{{151.95034489129768`, 156.6075167826569}, { 85.25956509508535, 93.32840450262984}}], 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[{62., 0}, {64., 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{156.1075167826569, 160.76468867401616`}, { 89.80086873961204, 93.32840450262984}}], 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[{64., 0}, {66., 11}, "RoundingRadius" -> 0]}, ImageSizeCache->{{160.26468867401616`, 164.92186056537537`}, { 88.66554282848037, 93.32840450262984}}], StatusArea[#, 11]& , TagBoxNote->"11"], StyleBox["11", {}, StripOnInput -> False]], Annotation[#, Style[11, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{66., 0}, {68., 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{164.42186056537537`, 169.07903245673464`}, { 89.80086873961204, 93.32840450262984}}], 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[{68., 0}, {70., 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{168.57903245673464`, 173.23620434809385`}, { 90.93619465074372, 93.32840450262984}}], 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[{70., 0}, {72., 9}, "RoundingRadius" -> 0]}, ImageSizeCache->{{172.73620434809385`, 177.39337623945312`}, { 89.42242676923482, 93.32840450262984}}], 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., 7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{176.89337623945312`, 181.55054813081233`}, { 90.17931070998927, 93.32840450262984}}], 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[{74., 0}, {76., 7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{181.05054813081233`, 185.7077200221716}, { 90.17931070998927, 93.32840450262984}}], 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[{76., 0}, {78., 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{185.2077200221716, 189.8648919135308}, { 90.93619465074372, 93.32840450262984}}], 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[{78., 0}, {80., 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{189.3648919135308, 194.02206380489008`}, { 90.93619465074372, 93.32840450262984}}], 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[{80., 0}, {82., 6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{193.52206380489008`, 198.1792356962493}, { 90.55775268036649, 93.32840450262984}}], 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[{82., 0}, {84., 7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{197.6792356962493, 202.33640758760856`}, { 90.17931070998927, 93.32840450262984}}], 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., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{201.83640758760856`, 206.49357947896777`}, { 92.07152056187539, 93.32840450262984}}], 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[{86., 0}, {88., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{205.99357947896777`, 210.65075137032704`}, { 92.44996253225261, 93.32840450262984}}], 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[{88., 0}, {90., 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{210.15075137032704`, 214.80792326168626`}, { 90.93619465074372, 93.32840450262984}}], 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[{90., 0}, {92., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{214.30792326168626`, 218.96509515304552`}, { 92.07152056187539, 93.32840450262984}}], 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[{94., 0}, {96., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{222.62226704440474`, 227.279438935764}, { 92.07152056187539, 93.32840450262984}}], 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., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{226.779438935764, 231.43661082712327`}, { 91.69307859149816, 93.32840450262984}}], 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[{98., 0}, {100., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{230.93661082712327`, 235.5937827184825}, { 92.07152056187539, 93.32840450262984}}], 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->{{243.40812650120097`, 248.06529839256024`}, { 92.44996253225261, 93.32840450262984}}], 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., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{247.56529839256024`, 252.22247028391945`}, { 92.07152056187539, 93.32840450262984}}], 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[{114., 0}, {116., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{264.1939859579972, 268.8511578493564}, { 92.44996253225261, 93.32840450262984}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{120., 0}, {122., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{276.6655016320749, 281.32267352343416`}, { 92.44996253225261, 93.32840450262984}}], 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[{126., 0}, {128., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{289.1370173061526, 293.79418919751186`}, { 92.44996253225261, 93.32840450262984}}], 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[{134., 0}, {136., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{305.7657048715896, 310.4228767629488}, { 92.44996253225261, 93.32840450262984}}], 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[{154., 0}, {156., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{347.337423785182, 351.9945956765412}, { 92.44996253225261, 93.32840450262984}}], 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->{-3.12, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0., 156.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.688228485812903*^9},ExpressionUUID->"f360c339-38c1-4230-a0bf-\ beb4d4e15151"] }, Open ]] }, Open ]] }, WindowSize->{775, 873}, WindowMargins->{{Automatic, 9}, {Automatic, 0}}, WindowTitle->"Examples for The Rosary", 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[617, 23, 91, 0, 70, "Subsection", "ExpressionUUID" -> \ "3edd30a9-11bc-4bcf-a22a-b8c87fb7036e"], Cell[711, 25, 272, 4, 70, "Text", "ExpressionUUID" -> \ "8e0a0d21-9896-4d51-b6da-879b2d8a3d39"], Cell[CellGroupData[{ Cell[1008, 33, 267, 5, 70, "Input", "ExpressionUUID" -> \ "9c5d5810-2e35-48cd-b6bd-ecad7b8dd4f7"], Cell[1278, 40, 14354, 319, 70, "Output", "ExpressionUUID" -> \ "b13802db-8de3-4766-8d44-05bff01ed53e"] }, Open ]], Cell[15647, 362, 261, 4, 70, "Text", "ExpressionUUID" -> \ "978bc4b0-6f12-4201-9b2c-9e075860c33b"], Cell[CellGroupData[{ Cell[15933, 370, 444, 10, 70, "Input", "ExpressionUUID" -> \ "0a22ab08-8862-4d9e-8b7e-cf2fc47c4f8d"], Cell[16380, 382, 784, 11, 70, "Output", "ExpressionUUID" -> \ "838a1413-584a-44b7-8448-3049bb13752e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17213, 399, 90, 0, 70, "Subsection", "ExpressionUUID" -> \ "4196cdd4-dcaf-49b1-9cbe-e9f9c85628b1"], Cell[17306, 401, 163, 3, 70, "Text", "ExpressionUUID" -> \ "a53537db-1f1e-4117-8ca3-c5c7cd860184"], Cell[CellGroupData[{ Cell[17494, 408, 343, 8, 70, "Input", "ExpressionUUID" -> \ "7eb3a410-e9e9-4d20-9ba3-087101fe2f7e"], Cell[17840, 418, 23831, 565, 70, "Output", "ExpressionUUID" -> \ "8707f754-6842-4f27-9f0d-74b063b259b2"] }, Open ]], Cell[41686, 986, 207, 3, 70, "Text", "ExpressionUUID" -> \ "89b24728-7e8b-4251-8ca2-cb752a03f07e"], Cell[CellGroupData[{ Cell[41918, 993, 733, 18, 70, "Input", "ExpressionUUID" -> \ "75b87d31-cd9f-4ef0-a8e3-b90f8469c9ab"], Cell[42654, 1013, 35620, 1036, 70, "Output", "ExpressionUUID" -> \ "f360c339-38c1-4230-a0bf-beb4d4e15151"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)