(* 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[ 76739, 1993] NotebookOptionsPosition[ 74293, 1925] NotebookOutlinePosition[ 74912, 1948] CellTagsIndexPosition[ 74869, 1945] WindowTitle->Examples for Little Dorrit WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection",ExpressionUUID->"7b18d84a-e6c3-437e-8d83-0fcc33bf6f20"], 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->"eeb25245-fb00-4010-a89d-\ 92d7e5506ddf"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804517731799183`*^9, 3.6804517885604563`*^9}, { 3.6804527318597765`*^9, 3.6804527390684977`*^9}},ExpressionUUID->"fc3f6a56-16c4-455e-8e7b-\ 25f82347b20e"], 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["\<\"Little Dorrit\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Charles Dickens' \\\"Little Dorrit\\\"\ \"\>", "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["\<\"Little Dorrit\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Charles Dickens' \\\"Little Dorrit\\\"\ \"\>", "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\"","\"book\"","\"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[ "f108962b-a694-46a8-a23c-2c4779609d9f"]; 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["\<\"f108962b-a694-46a8-a23c-2c4779609d9f\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"\\[LeftAssociation]", RowBox[{"\<\"Plaintext\"\>", "\[Rule]", "1880664"}], "\\[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" -> "Little Dorrit", "UUID" -> "f108962b-a694-46a8-a23c-2c4779609d9f", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Plaintext for Charles Dickens' \"Little Dorrit\"", "ContentSize" -> Association["Plaintext" -> 1880664], "ContentElements" -> {"Plaintext"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.683643081801763*^9},ExpressionUUID->"7e6782c0-81eb-4602-be32-\ 0814ca89332b"] }, 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->"e60e7d1e-aedd-49e2-9ff1-\ 5cb87147a87a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", "25", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, { 3.683643088793352*^9, 3.6836430987528753`*^9}, {3.702831981707981*^9, 3.702831995738617*^9}},ExpressionUUID->"661b11a4-0614-40a0-be6b-\ 865f8bad7e06"], Cell[BoxData["\<\"The man who lay on the ledge of the grating was even \ chilled. He jerked\\nhis great cloak more heavily upon him by an impatient \ movement of one\\nshoulder, and growled, 'To the devil with this Brigand of a \ Sun that\\nnever shines in here!'\"\>"], "Output", CellChangeTimes->{{3.683643084852334*^9, 3.6836431007825947`*^9}, { 3.702831985721341*^9, 3.7028319963384933`*^9}},ExpressionUUID->"e608ed37-b568-457a-aef6-\ cc8b1d402862"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection",ExpressionUUID->"3b2f9c0e-4066-4249-9af3-db873847ecb7"], Cell["Generate a WordCloud:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.7028320036297913`*^9, 3.7028320083089743`*^9}},ExpressionUUID->"7b865783-063e-4b57-8ff5-\ fda15475b3d6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{"DeleteStopwords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.702832009446623*^9, 3.702832018113702*^9}},ExpressionUUID->"37e077be-ec31-40d9-a66d-\ 405cde9d1ea0"], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"said\"\>", StripOnInput->False, FontSize->Scaled[0.21679410141449468`], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"LITTLE\"\>", StripOnInput->False, FontSize->Scaled[0.1528906913722645], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {0., 44.}, Center, Automatic], InsetBox[ StyleBox["\<\"Mr\"\>", StripOnInput->False, FontSize->Scaled[0.23809523809523808`], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {2., -54.}, Center, Automatic], InsetBox[ StyleBox["\<\"DORRIT\"\>", StripOnInput->False, FontSize->Scaled[0.10880012898504889`], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {0., 77.}, Center, Automatic], InsetBox[ StyleBox["\<\"Clennam\"\>", StripOnInput->False, FontSize->Scaled[0.10507940642072691`], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {-4., -86.}, Center, Automatic], InsetBox[ StyleBox["\<\"Mrs\"\>", StripOnInput->False, FontSize->Scaled[0.1037771535232142], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {-64., -32.}, Center, Automatic], InsetBox[ StyleBox["\<\"know\"\>", StripOnInput->False, FontSize->Scaled[0.0874989923043055], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {75., -34.}, Center, Automatic], InsetBox[ StyleBox["\<\"Gentleman\"\>", StripOnInput->False, FontSize->Scaled[0.04545482732746699], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {67., -53.}, Center, Automatic], InsetBox[ StyleBox["\<\"Meagles\"\>", StripOnInput->False, FontSize->Scaled[0.052059109879138525`], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {-67., -52.}, Center, Automatic], InsetBox[ StyleBox["\<\"returned\"\>", StripOnInput->False, FontSize->Scaled[0.052524200199678774`], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {-87., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"Arthur\"\>", StripOnInput->False, FontSize->Scaled[0.062291096931024005`], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {-79., 20.}, Center, Automatic], InsetBox[ StyleBox["\<\"Say\"\>", StripOnInput->False, FontSize->Scaled[0.07894133040636492], FontColor->RGBColor[1, 0.75, 0]], {78., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"Pancks\"\>", StripOnInput->False, FontSize->Scaled[0.05745415759740541], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {98., 18.}, Center, Automatic], InsetBox[ StyleBox["\<\"Hand\"\>", StripOnInput->False, FontSize->Scaled[0.0648956027260494], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {0., 101.}, Center, Automatic], InsetBox[ StyleBox["\<\"good\"\>", StripOnInput->False, FontSize->Scaled[0.0652676749824816], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {-95., 37.}, Center, Automatic], InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.07317421043166583], FontColor->RGBColor[0.571589, 0.586483, 0.]], {95., 36.}, Center, Automatic], InsetBox[ StyleBox["\<\"Flintwinch\"\>", StripOnInput->False, FontSize->Scaled[0.042478249276009405`], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {62., -67.}, Center, Automatic], InsetBox[ StyleBox["\<\"Merdle\"\>", StripOnInput->False, FontSize->Scaled[0.053919471161299526`], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {0., -106.}, Center, Automatic], InsetBox[ StyleBox["\<\"looked\"\>", StripOnInput->False, FontSize->Scaled[0.052059109879138525`], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {79., 72.}, Center, Automatic], InsetBox[ StyleBox["\<\"Father\"\>", StripOnInput->False, FontSize->Scaled[0.05503568793059613], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {97., 54.}, Center, Automatic], InsetBox[ StyleBox["\<\"Great\"\>", StripOnInput->False, FontSize->Scaled[0.057175103405081265`], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {-95., 55.}, Center, Automatic], InsetBox[ StyleBox["\<\"Fanny\"\>", StripOnInput->False, FontSize->Scaled[0.051780055686814375`], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {-87., -69.}, Center, Automatic], InsetBox[ StyleBox["\<\"young\"\>", StripOnInput->False, FontSize->Scaled[0.05298929052021902], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {-83., 75.}, Center, Automatic], InsetBox[ StyleBox["\<\"Marshalsea\"\>", StripOnInput->False, FontSize->Scaled[0.035036804147365416`], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {98., -18.}, Center, Automatic], InsetBox[ StyleBox["\<\"way\"\>", StripOnInput->False, FontSize->Scaled[0.06275618725156425], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {-107., -15.}, Center, Automatic], InsetBox[ StyleBox["\<\"people\"\>", StripOnInput->False, FontSize->Scaled[0.04657104409676359], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {45., 102.}, Center, Automatic], InsetBox[ StyleBox["\<\"man\"\>", StripOnInput->False, FontSize->Scaled[0.07633682461133952], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {-46., 102.}, Center, Automatic], InsetBox[ StyleBox["\<\"General\"\>", StripOnInput->False, FontSize->Scaled[0.042478249276009405`], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {81., -80.}, Center, Automatic], InsetBox[ StyleBox["\<\"thought\"\>", StripOnInput->False, FontSize->Scaled[0.0432223937888738], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {-49., -104.}, Center, Automatic], InsetBox[ StyleBox["\<\"away\"\>", StripOnInput->False, FontSize->Scaled[0.04964064021232923], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {44., -104.}, Center, Automatic], InsetBox[ StyleBox["\<\"dear\"\>", StripOnInput->False, FontSize->Scaled[0.05829132017437786], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {82., 88.}, Center, Automatic], InsetBox[ StyleBox["\<\"business\"\>", StripOnInput->False, FontSize->Scaled[0.038571490583471306`], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {-5., 116.}, Center, Automatic], InsetBox[ StyleBox["\<\"come\"\>", StripOnInput->False, FontSize->Scaled[0.06275618725156425], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {46., 117.}, Center, Automatic], InsetBox[ StyleBox["\<\"head\"\>", StripOnInput->False, FontSize->Scaled[0.05298929052021902], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {-87., 87.}, Center, Automatic], InsetBox[ StyleBox["\<\"Going\"\>", StripOnInput->False, FontSize->Scaled[0.047780278930168237`], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {-88., -85.}, Center, Automatic], InsetBox[ StyleBox["\<\"old\"\>", StripOnInput->False, FontSize->Scaled[0.07094177689307263], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {79., -98.}, Center, Automatic], InsetBox[ StyleBox["\<\"Mother\"\>", StripOnInput->False, FontSize->Scaled[0.0426642854042255], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {-51., 116.}, Center, Automatic], InsetBox[ StyleBox["\<\"think\"\>", StripOnInput->False, FontSize->Scaled[0.05419852535362367], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {-87., 103.}, Center, Automatic], InsetBox[ StyleBox["\<\"looking\"\>", StripOnInput->False, FontSize->Scaled[0.04219919508368525], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {-33., -119.}, Center, Automatic], InsetBox[ StyleBox["\<\"Gowan\"\>", StripOnInput->False, FontSize->Scaled[0.0411759963784967], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {43., -119.}, Center, Automatic], InsetBox[ StyleBox["\<\"like\"\>", StripOnInput->False, FontSize->Scaled[0.06275618725156425], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {-104., -34.}, Center, Automatic], InsetBox[ StyleBox["\<\"eyes\"\>", StripOnInput->False, FontSize->Scaled[0.050012712468761426`], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {84., 103.}, Center, Automatic], InsetBox[ StyleBox["\<\"House\"\>", StripOnInput->False, FontSize->Scaled[0.04424559249406235], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {-93., -99.}, Center, Automatic], InsetBox[ StyleBox["\<\"Sir\"\>", StripOnInput->False, FontSize->Scaled[0.06591880143123795], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {113., -2.}, Center, Automatic], InsetBox[ StyleBox["\<\"Long\"\>", StripOnInput->False, FontSize->Scaled[0.047966315058384335`], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {-71., -116.}, Center, Automatic], InsetBox[ StyleBox["\<\"Mind\"\>", StripOnInput->False, FontSize->Scaled[0.047036134417303845`], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {80., -116.}, Center, Automatic], InsetBox[ StyleBox["\<\"Sparkler\"\>", StripOnInput->False, FontSize->Scaled[0.03410662350628492], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {90., 115.}, Center, Automatic], InsetBox[ StyleBox["\<\"Day\"\>", StripOnInput->False, FontSize->Scaled[0.05298929052021902], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {109., -96.}, Center, Automatic], InsetBox[ StyleBox["\<\"better\"\>", StripOnInput->False, FontSize->Scaled[0.043687484109414046`], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {-90., 118.}, Center, Automatic], InsetBox[ StyleBox["\<\"make\"\>", StripOnInput->False, FontSize->Scaled[0.04610595377622334], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {-106., -114.}, Center, Automatic], InsetBox[ StyleBox["\<\"face\"\>", StripOnInput->False, FontSize->Scaled[0.04843140537892458], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {4., -122.}, Center, Automatic], InsetBox[ StyleBox["\<\"Place\"\>", StripOnInput->False, FontSize->Scaled[0.043594466045306], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {-115., -49.}, Center, Automatic], InsetBox[ StyleBox["\<\"went\"\>", StripOnInput->False, FontSize->Scaled[0.04815235118660044], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {109., -65.}, Center, Automatic], InsetBox[ StyleBox["\<\"Miss\"\>", StripOnInput->False, FontSize->Scaled[0.04889649569946483], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {0., 128.}, Center, Automatic], InsetBox[ StyleBox["\<\"Family\"\>", StripOnInput->False, FontSize->Scaled[0.03922261703222766], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {-44., 129.}, Center, Automatic], InsetBox[ StyleBox["\<\"moment\"\>", StripOnInput->False, FontSize->Scaled[0.03661811123720226], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {37., 129.}, Center, Automatic], InsetBox[ StyleBox["\<\"night\"\>", StripOnInput->False, FontSize->Scaled[0.04610595377622334], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {120., -41.}, Center, Automatic], InsetBox[ StyleBox["\<\"quite\"\>", StripOnInput->False, FontSize->Scaled[0.044431628622278445`], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {119., 68.}, Center, Automatic], InsetBox[ StyleBox["\<\"look\"\>", StripOnInput->False, FontSize->Scaled[0.04871045957124873], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {-121., 70.}, Center, Automatic], InsetBox[ StyleBox["\<\"present\"\>", StripOnInput->False, FontSize->Scaled[0.03419964157039297], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {-40., -130.}, Center, Automatic], InsetBox[ StyleBox["\<\"came\"\>", StripOnInput->False, FontSize->Scaled[0.05019874859697753], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {78., 130.}, Center, Automatic], InsetBox[ StyleBox["\<\"found\"\>", StripOnInput->False, FontSize->Scaled[0.038571490583471306`], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {119., 81.}, Center, Automatic], InsetBox[ StyleBox["\<\"door\"\>", StripOnInput->False, FontSize->Scaled[0.044710682814602595`], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {-121., 16.}, Center, Automatic], InsetBox[ StyleBox["\<\"room\"\>", StripOnInput->False, FontSize->Scaled[0.048989513763572884`], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {75., -130.}, Center, Automatic], InsetBox[ StyleBox["\<\"manner\"\>", StripOnInput->False, FontSize->Scaled[0.03726923768595861], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {-80., -130.}, Center, Automatic], InsetBox[ StyleBox["\<\"indeed\"\>", StripOnInput->False, FontSize->Scaled[0.03438567769860906], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {118., 93.}, Center, Automatic], InsetBox[ StyleBox["\<\"Poor\"\>", StripOnInput->False, FontSize->Scaled[0.04201315895546915], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {119., -79.}, Center, Automatic], InsetBox[ StyleBox["\<\"shall\"\>", StripOnInput->False, FontSize->Scaled[0.0426642854042255], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {-120., 84.}, Center, Automatic], InsetBox[ StyleBox["\<\"took\"\>", StripOnInput->False, FontSize->Scaled[0.043594466045306], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {-122., -80.}, Center, Automatic], InsetBox[ StyleBox["\<\"turned\"\>", StripOnInput->False, FontSize->Scaled[0.034757749955041266`], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {-79., 130.}, Center, Automatic], InsetBox[ StyleBox["\<\"woman\"\>", StripOnInput->False, FontSize->Scaled[0.03699018349363446], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {116., -111.}, Center, Automatic], InsetBox[ StyleBox["\<\"hands\"\>", StripOnInput->False, FontSize->Scaled[0.03494378608325737], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {-121., 97.}, Center, Automatic], InsetBox[ StyleBox["\<\"Right\"\>", StripOnInput->False, FontSize->Scaled[0.03540887640379762], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {-122., 109.}, Center, Automatic], InsetBox[ StyleBox["\<\"John\"\>", StripOnInput->False, FontSize->Scaled[0.040617887993848405`], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {121., 106.}, Center, Automatic], InsetBox[ StyleBox["\<\"years\"\>", StripOnInput->False, FontSize->Scaled[0.03429265963450102], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {34., -130.}, Center, Automatic], InsetBox[ StyleBox["\<\"Home\"\>", StripOnInput->False, FontSize->Scaled[0.03438567769860906], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {111., -124.}, Center, Automatic], InsetBox[ StyleBox["\<\"Amy\"\>", StripOnInput->False, FontSize->Scaled[0.038850544775795456`], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {-123., -62.}, Center, Automatic], InsetBox[ StyleBox["\<\"friend\"\>", StripOnInput->False, FontSize->Scaled[0.036246038980770064`], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {113., 126.}, Center, Automatic], InsetBox[ StyleBox["\<\"heard\"\>", StripOnInput->False, FontSize->Scaled[0.03457171382682517], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {-114., -127.}, Center, Automatic], InsetBox[ StyleBox["\<\"Heart\"\>", StripOnInput->False, FontSize->Scaled[0.036246038980770064`], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {131., 28.}, Center, Automatic], InsetBox[ StyleBox["\<\"Lady\"\>", StripOnInput->False, FontSize->Scaled[0.03736225575006666], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {-131., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"Yes\"\>", StripOnInput->False, FontSize->Scaled[0.04275730346833355], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {-130., 30.}, Center, Automatic], InsetBox[ StyleBox["\<\"knew\"\>", StripOnInput->False, FontSize->Scaled[0.03410662350628492], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {-21., 23.}, Center, Automatic], InsetBox[ StyleBox["\<\"round\"\>", StripOnInput->False, FontSize->Scaled[0.035780948660229815`], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {0., -135.}, Center, Automatic], InsetBox[ StyleBox["\<\"hope\"\>", StripOnInput->False, FontSize->Scaled[0.034757749955041266`], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {129., 39.}, Center, Automatic], InsetBox[ StyleBox["\<\"name\"\>", StripOnInput->False, FontSize->Scaled[0.03940865316044376], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {17., 138.}, Center, Automatic], InsetBox[ StyleBox["\<\"Flora\"\>", StripOnInput->False, FontSize->Scaled[0.03540887640379762], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {-133., -27.}, Center, Automatic], InsetBox[ StyleBox["\<\"Child\"\>", StripOnInput->False, FontSize->Scaled[0.03587396672433786], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {-131., 43.}, Center, Automatic], InsetBox[ StyleBox["\<\"got\"\>", StripOnInput->False, FontSize->Scaled[0.040059779609200104`], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {136., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"tell\"\>", StripOnInput->False, FontSize->Scaled[0.0421061770195772], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {133., 50.}, Center, Automatic], InsetBox[ StyleBox["\<\"Let\"\>", StripOnInput->False, FontSize->Scaled[0.043873520237630144`], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {-136., -13.}, Center, Automatic], InsetBox[ StyleBox["\<\"light\"\>", StripOnInput->False, FontSize->Scaled[0.03401360544217687], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {44., 140.}, Center, Automatic], InsetBox[ StyleBox["\<\"want\"\>", StripOnInput->False, FontSize->Scaled[0.03447869576271712], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {-12., 141.}, Center, Automatic], InsetBox[ StyleBox["\<\"life\"\>", StripOnInput->False, FontSize->Scaled[0.0426642854042255], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {137., -16.}, Center, Automatic], InsetBox[ StyleBox["\<\"left\"\>", StripOnInput->False, FontSize->Scaled[0.03866450864757936], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {136., 12.}, Center, Automatic], InsetBox[ StyleBox["\<\"Far\"\>", StripOnInput->False, FontSize->Scaled[0.03410662350628492], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {25., -26.}, Center, Automatic], InsetBox[ StyleBox["\<\"ask\"\>", StripOnInput->False, FontSize->Scaled[0.03522284027558152], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {-127., 54.}, Center, Automatic], InsetBox[ StyleBox["\<\"saw\"\>", StripOnInput->False, FontSize->Scaled[0.03643207510898617], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {-27., -140.}, Center, Automatic], InsetBox[ StyleBox["\<\"seen\"\>", StripOnInput->False, FontSize->Scaled[0.034757749955041266`], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {28., -142.}, Center, Automatic], InsetBox[ StyleBox["\<\"Ha\"\>", StripOnInput->False, FontSize->Scaled[0.03587396672433786], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {133., -54.}, Center, Automatic]}, DefaultBaseStyle->{"Graphics", FontFamily -> "Helvetica"}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-147.5, 146.5}, {-147.5, 147.5}}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.70283204388832*^9},ExpressionUUID->"d1f852cf-6bb3-487e-aa2b-\ 8af1b9a51adb"] }, Open ]], Cell["Show the most frequently used adjectives:", "Text", CellChangeTimes->{{3.6833767760993433`*^9, 3.683376779650175*^9}, { 3.683392737528262*^9, 3.683392747535935*^9}},ExpressionUUID->"cb27fc83-6096-4c39-95ad-\ faa9edb6beea"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLargest", "[", RowBox[{ RowBox[{"Counts", "[", RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "]"}], ",", "20"}], "]"}]], "Input", CellChangeTimes->{{3.683288613378517*^9, 3.683288613382518*^9}, { 3.6832886994881277`*^9, 3.6832887138925676`*^9}, 3.6836431395114403`*^9},ExpressionUUID->"829efff0-c74a-451b-8298-\ b84a4fb794fa"], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"little\"\>", "\[Rule]", "844"}], ",", RowBox[{"\<\"old\"\>", "\[Rule]", "554"}], ",", RowBox[{"\<\"other\"\>", "\[Rule]", "460"}], ",", RowBox[{"\<\"good\"\>", "\[Rule]", "425"}], ",", RowBox[{"\<\"own\"\>", "\[Rule]", "424"}], ",", RowBox[{"\<\"great\"\>", "\[Rule]", "403"}], ",", RowBox[{"\<\"much\"\>", "\[Rule]", "365"}], ",", RowBox[{"\<\"such\"\>", "\[Rule]", "340"}], ",", RowBox[{"\<\"more\"\>", "\[Rule]", "332"}], ",", RowBox[{"\<\"many\"\>", "\[Rule]", "261"}], ",", RowBox[{"\<\"young\"\>", "\[Rule]", "255"}], ",", RowBox[{"\<\"last\"\>", "\[Rule]", "243"}], ",", RowBox[{"\<\"poor\"\>", "\[Rule]", "232"}], ",", RowBox[{"\<\"dear\"\>", "\[Rule]", "216"}], ",", RowBox[{"\<\"same\"\>", "\[Rule]", "216"}], ",", RowBox[{"\<\"first\"\>", "\[Rule]", "196"}], ",", RowBox[{"\<\"better\"\>", "\[Rule]", "179"}], ",", RowBox[{"\<\"long\"\>", "\[Rule]", "173"}], ",", RowBox[{"\<\"Little\"\>", "\[Rule]", "167"}], ",", RowBox[{"\<\"present\"\>", "\[Rule]", "135"}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{ 3.683643326298094*^9},ExpressionUUID->"5bb1eb3d-b518-499f-8afd-\ a165d6c9d27b"] }, Open ]], Cell["Show the distribution of sentence lengths:", "Text", CellChangeTimes->{{3.683033608693839*^9, 3.683033616124875*^9}, 3.683375606199028*^9},ExpressionUUID->"596bfb9e-eccb-48bd-9a63-\ 165dcf6ea121"], 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.6836433074872017`*^9},ExpressionUUID->"b74198a5-e81f-4c80-a2a1-\ 9cbf9e2b8a72"], 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., 1269}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.11718430731508, 37.003984470780544`}, {-20.257694296696172`, 91.60591605544593}}], StatusArea[#, 1269]& , TagBoxNote->"1269"], StyleBox["1269", {}, StripOnInput -> False]], Annotation[#, Style[1269, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0}, {10., 2172}, "RoundingRadius" -> 0]}, ImageSizeCache->{{36.503984470780544`, 40.39078463424602}, {-99.50224918084456, 91.60591605544593}}], StatusArea[#, 2172]& , TagBoxNote->"2172"], StyleBox["2172", {}, StripOnInput -> False]], Annotation[#, Style[2172, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {15., 1780}, "RoundingRadius" -> 0]}, ImageSizeCache->{{39.89078463424602, 43.777584797711484`}, {-65.10151217687317, 91.60591605544593}}], StatusArea[#, 1780]& , TagBoxNote->"1780"], StyleBox["1780", {}, StripOnInput -> False]], Annotation[#, Style[1780, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{15., 0}, {20., 1593}, "RoundingRadius" -> 0]}, ImageSizeCache->{{43.277584797711484`, 47.16438496117695}, {-48.69095651426437, 91.60591605544593}}], StatusArea[#, 1593]& , TagBoxNote->"1593"], StyleBox["1593", {}, StripOnInput -> False]], Annotation[#, Style[1593, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20., 0}, {25., 1337}, "RoundingRadius" -> 0]}, ImageSizeCache->{{46.66438496117695, 50.551185124642416`}, {-26.225169083099374`, 91.60591605544593}}], StatusArea[#, 1337]& , TagBoxNote->"1337"], StyleBox["1337", {}, StripOnInput -> False]], Annotation[#, Style[1337, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{25., 0}, {30., 1128}, "RoundingRadius" -> 0]}, ImageSizeCache->{{50.051185124642416`, 53.93798528810789}, {-7.883959813124818, 91.60591605544593}}], StatusArea[#, 1128]& , TagBoxNote->"1128"], StyleBox["1128", {}, StripOnInput -> False]], Annotation[#, Style[1128, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{30., 0}, {35., 956}, "RoundingRadius" -> 0]}, ImageSizeCache->{{53.43798528810789, 57.324785451573355`}, { 7.210241117189156, 91.60591605544593}}], StatusArea[#, 956]& , TagBoxNote->"956"], StyleBox["956", {}, StripOnInput -> False]], Annotation[#, Style[956, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{35., 0}, {40., 774}, "RoundingRadius" -> 0]}, ImageSizeCache->{{56.824785451573355`, 60.71158561503883}, { 23.18201186903302, 91.60591605544593}}], StatusArea[#, 774]& , TagBoxNote->"774"], StyleBox["774", {}, StripOnInput -> False]], Annotation[#, Style[774, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{40., 0}, {45., 572}, "RoundingRadius" -> 0]}, ImageSizeCache->{{60.21158561503883, 64.0983857785043}, { 40.908922263936645`, 91.60591605544593}}], StatusArea[#, 572]& , TagBoxNote->"572"], StyleBox["572", {}, StripOnInput -> False]], Annotation[#, Style[572, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{45., 0}, {50., 475}, "RoundingRadius" -> 0]}, ImageSizeCache->{{63.598385778504294`, 67.48518594196976}, { 49.42134953277651, 91.60591605544593}}], StatusArea[#, 475]& , TagBoxNote->"475"], StyleBox["475", {}, StripOnInput -> False]], Annotation[#, Style[475, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{50., 0}, {55., 341}, "RoundingRadius" -> 0]}, ImageSizeCache->{{66.98518594196976, 70.87198610543523}, { 61.180785141276935`, 91.60591605544593}}], StatusArea[#, 341]& , TagBoxNote->"341"], StyleBox["341", {}, StripOnInput -> False]], Annotation[#, Style[341, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{55., 0}, {60., 253}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.37198610543523, 74.2587862689007}, { 68.90339957073991, 91.60591605544593}}], StatusArea[#, 253]& , TagBoxNote->"253"], StyleBox["253", {}, StripOnInput -> False]], Annotation[#, Style[253, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{60., 0}, {65., 189}, "RoundingRadius" -> 0]}, ImageSizeCache->{{73.7587862689007, 77.64558643236617}, { 74.51984642853115, 91.60591605544593}}], StatusArea[#, 189]& , TagBoxNote->"189"], StyleBox["189", {}, StripOnInput -> False]], Annotation[#, Style[189, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{65., 0}, {70., 165}, "RoundingRadius" -> 0]}, ImageSizeCache->{{77.14558643236617, 81.03238659583164}, { 76.62601400020287, 91.60591605544593}}], StatusArea[#, 165]& , TagBoxNote->"165"], StyleBox["165", {}, StripOnInput -> False]], Annotation[#, Style[165, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{70., 0}, {75., 125}, "RoundingRadius" -> 0]}, ImageSizeCache->{{80.53238659583164, 84.4191867592971}, { 80.1362932863224, 91.60591605544593}}], 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[{75., 0}, {80., 90}, "RoundingRadius" -> 0]}, ImageSizeCache->{{83.9191867592971, 87.80598692276257}, { 83.20778766167699, 91.60591605544593}}], StatusArea[#, 90]& , TagBoxNote->"90"], StyleBox["90", {}, StripOnInput -> False]], Annotation[#, Style[90, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{80., 0}, {85., 62}, "RoundingRadius" -> 0]}, ImageSizeCache->{{87.30598692276257, 91.19278708622804}, { 85.66498316196066, 91.60591605544593}}], StatusArea[#, 62]& , TagBoxNote->"62"], StyleBox["62", {}, StripOnInput -> False]], Annotation[#, Style[62, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{85., 0}, {90., 58}, "RoundingRadius" -> 0]}, ImageSizeCache->{{90.69278708622804, 94.5795872496935}, { 86.01601109057262, 91.60591605544593}}], StatusArea[#, 58]& , TagBoxNote->"58"], StyleBox["58", {}, StripOnInput -> False]], Annotation[#, Style[58, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{90., 0}, {95., 43}, "RoundingRadius" -> 0]}, ImageSizeCache->{{94.0795872496935, 97.96638741315897}, { 87.33236582286743, 91.60591605544593}}], StatusArea[#, 43]& , TagBoxNote->"43"], StyleBox["43", {}, StripOnInput -> False]], Annotation[#, Style[43, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{95., 0}, {100., 32}, "RoundingRadius" -> 0]}, ImageSizeCache->{{97.46638741315897, 101.35318757662444`}, { 88.2976926265503, 91.60591605544593}}], 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[{100., 0}, {105., 34}, "RoundingRadius" -> 0]}, ImageSizeCache->{{100.85318757662444`, 104.7399877400899}, { 88.12217866224432, 91.60591605544593}}], StatusArea[#, 34]& , TagBoxNote->"34"], StyleBox["34", {}, StripOnInput -> False]], Annotation[#, Style[34, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{105., 0}, {110., 18}, "RoundingRadius" -> 0]}, ImageSizeCache->{{104.2399877400899, 108.12678790355537`}, { 89.52629037669215, 91.60591605544593}}], 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[{110., 0}, {115., 6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{107.62678790355537`, 111.51358806702083`}, { 90.579374162528, 91.60591605544593}}], 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., 14}, "RoundingRadius" -> 0]}, ImageSizeCache->{{111.01358806702083`, 114.90038823048633`}, { 89.8773183053041, 91.60591605544593}}], 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[{120., 0}, {125., 14}, "RoundingRadius" -> 0]}, ImageSizeCache->{{114.40038823048633`, 118.2871883939518}, { 89.8773183053041, 91.60591605544593}}], 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[{125., 0}, {130., 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{117.7871883939518, 121.67398855741726`}, { 90.40386019822202, 91.60591605544593}}], 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[{130., 0}, {135., 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{121.17398855741726`, 125.06078872088273`}, { 90.667131144681, 91.60591605544593}}], 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[{135., 0}, {140., 7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{124.56078872088273`, 128.4475888843482}, { 90.49161718037502, 91.60591605544593}}], 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[{140., 0}, {145., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{127.94758888434819`, 131.83438904781366`}, { 91.01815907329295, 91.60591605544593}}], 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[{145., 0}, {150., 9}, "RoundingRadius" -> 0]}, ImageSizeCache->{{131.33438904781366`, 135.22118921127912`}, { 90.31610321606904, 91.60591605544593}}], 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[{150., 0}, {155., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{134.72118921127912`, 138.6079893747446}, { 90.75488812683398, 91.60591605544593}}], 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[{155., 0}, {160., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{138.1079893747446, 141.99478953821006`}, { 90.93040209113995, 91.60591605544593}}], 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[{160., 0}, {165., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{141.49478953821006`, 145.38158970167552`}, { 90.93040209113995, 91.60591605544593}}], 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[{165., 0}, {170., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{144.88158970167552`, 148.768389865141}, { 90.84264510898697, 91.60591605544593}}], 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[{170., 0}, {175., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{148.268389865141, 152.15519002860646`}, { 91.01815907329295, 91.60591605544593}}], 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[{175., 0}, {180., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{151.65519002860646`, 155.54199019207192`}, { 90.93040209113995, 91.60591605544593}}], 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[{190., 0}, {195., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{161.81559051900288`, 165.70239068246835`}, { 90.75488812683398, 91.60591605544593}}], 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[{200., 0}, {205., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{168.5891908459338, 172.47599100939928`}, { 90.84264510898697, 91.60591605544593}}], 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[{205., 0}, {210., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{171.97599100939928`, 175.86279117286475`}, { 90.84264510898697, 91.60591605544593}}], 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[{210., 0}, {215., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{175.36279117286475`, 179.2495913363302}, { 91.01815907329295, 91.60591605544593}}], 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[{215., 0}, {220., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{178.7495913363302, 182.63639149979568`}, { 90.93040209113995, 91.60591605544593}}], 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[{225., 0}, {230., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{185.52319166326114`, 189.4099918267266}, { 91.01815907329295, 91.60591605544593}}], 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[{240., 0}, {245., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{195.68359215365757`, 199.57039231712304`}, { 91.01815907329295, 91.60591605544593}}], 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[{270., 0}, {275., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{216.00439313445037`, 219.89119329791583`}, { 91.01815907329295, 91.60591605544593}}], 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[{330., 0}, {335., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{256.64599509603596`, 260.5327952595014}, { 91.01815907329295, 91.60591605544593}}], 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[{465., 0}, {470., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{348.0895995096036, 351.97639967306907`}, { 91.01815907329295, 91.60591605544593}}], 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->{-9.4, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0., 470.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.683643353362606*^9},ExpressionUUID->"c3ed091c-90e6-4746-a04b-\ 71a85fd67b3e"] }, Open ]] }, Open ]] }, WindowSize->{775, 873}, WindowMargins->{{136, Automatic}, {Automatic, 0}}, WindowTitle->"Examples for Little Dorrit", 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[620, 23, 91, 0, 70, "Subsection", "ExpressionUUID" -> \ "7b18d84a-e6c3-437e-8d83-0fcc33bf6f20"], Cell[714, 25, 272, 4, 70, "Text", "ExpressionUUID" -> \ "eeb25245-fb00-4010-a89d-92d7e5506ddf"], Cell[CellGroupData[{ Cell[1011, 33, 270, 5, 70, "Input", "ExpressionUUID" -> \ "fc3f6a56-16c4-455e-8e7b-25f82347b20e"], Cell[1284, 40, 14378, 321, 70, "Output", "ExpressionUUID" -> \ "7e6782c0-81eb-4602-be32-0814ca89332b"] }, Open ]], Cell[15677, 364, 261, 4, 70, "Text", "ExpressionUUID" -> \ "e60e7d1e-aedd-49e2-9ff1-5cb87147a87a"], Cell[CellGroupData[{ Cell[15963, 372, 445, 10, 70, "Input", "ExpressionUUID" -> \ "661b11a4-0614-40a0-be6b-865f8bad7e06"], Cell[16411, 384, 459, 7, 70, "Output", "ExpressionUUID" -> \ "e608ed37-b568-457a-aef6-cc8b1d402862"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16919, 397, 90, 0, 70, "Subsection", "ExpressionUUID" -> \ "3b2f9c0e-4066-4249-9af3-db873847ecb7"], Cell[17012, 399, 411, 6, 70, "Text", "ExpressionUUID" -> \ "7b865783-063e-4b57-8ff5-fda15475b3d6"], Cell[CellGroupData[{ Cell[17448, 409, 537, 10, 70, "Input", "ExpressionUUID" -> \ "37e077be-ec31-40d9-a66d-405cde9d1ea0"], Cell[17988, 421, 23800, 565, 70, "Output", "ExpressionUUID" -> \ "d1f852cf-6bb3-487e-aa2b-8af1b9a51adb"] }, Open ]], Cell[41803, 989, 234, 4, 70, "Text", "ExpressionUUID" -> \ "cb27fc83-6096-4c39-95ad-faa9edb6beea"], Cell[CellGroupData[{ Cell[42062, 997, 477, 11, 70, "Input", "ExpressionUUID" -> \ "829efff0-c74a-451b-8298-b84a4fb794fa"], Cell[42542, 1010, 1264, 26, 70, "Output", "ExpressionUUID" -> \ "5bb1eb3d-b518-499f-8afd-a165d6c9d27b"] }, Open ]], Cell[43821, 1039, 207, 3, 70, "Text", "ExpressionUUID" -> \ "596bfb9e-eccb-48bd-9a63-165dcf6ea121"], Cell[CellGroupData[{ Cell[44053, 1046, 738, 18, 70, "Input", "ExpressionUUID" -> \ "b74198a5-e81f-4c80-a2a1-9cbf9e2b8a72"], Cell[44794, 1066, 29471, 855, 70, "Output", "ExpressionUUID" -> \ "c3ed091c-90e6-4746-a04b-71a85fd67b3e"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)