(* 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[ 79754, 1969] NotebookOptionsPosition[ 77621, 1909] NotebookOutlinePosition[ 78270, 1932] CellTagsIndexPosition[ 78227, 1929] WindowTitle->Examples for Barnaby Rudge: A Tale of the Riots of 'Eighty WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection",ExpressionUUID->"2e6d6efe-86dc-4f37-8f55-08a32638ddb0"], 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->"89ef90dd-e315-4223-b8de-\ 9fa4f937a20a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804517731799183`*^9, 3.6804517885604563`*^9}, { 3.6804527318597765`*^9, 3.6804527390684977`*^9}},ExpressionUUID->"c4aa4d82-f7bf-439e-8b54-\ 00f7a9e38301"], 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["\<\"Barnaby Rudge: A Tale of the Riots of 'Eighty\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Charles Dickens' \\\"A Tale of the \ Riots of 'Eighty\\\"\"\>", "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["\<\"Barnaby Rudge: A Tale of the Riots of 'Eighty\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Charles Dickens' \\\"A Tale of the \ Riots of 'Eighty\\\"\"\>", "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[{ ",","\",\"","\"fiction\"","\"text\"","\"novel\"","\"book\""}, "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[ "dbb79721-a650-42a0-9758-7ace8ede874f"]; 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["\<\"dbb79721-a650-42a0-9758-7ace8ede874f\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"1418.76`","\"kB\"","kilobytes","\"Kilobytes\""}, "Quantity"], "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" -> "Barnaby Rudge: A Tale of the Riots of 'Eighty", "UUID" -> "dbb79721-a650-42a0-9758-7ace8ede874f", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Plaintext for Charles Dickens' \"A Tale of the Riots of 'Eighty\"", "ContentSize" -> Quantity[1418.76, "Kilobytes"], "ContentElements" -> {"Plaintext"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.683905143291696*^9},ExpressionUUID->"f86d87e1-8714-4892-9d4c-\ 409cdbaff735"] }, 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->"d197569f-b9b7-40bd-85ce-\ ea82e21802ed"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", "200", "]"}], "]"}]], "Input", CellChangeTimes->{{3.683905197787303*^9, 3.683905199103877*^9}, { 3.702836397890297*^9, 3.702836422300612*^9}},ExpressionUUID->"37d6b750-398b-42fb-96cb-\ 5049aa031ce9"], Cell[BoxData["\<\"Thus, after we were refreshed at the next\\ninn, and had \ dined together, as Mr Burchell was going to a different\\npart of the \ country, he took leave; and we pursued our journey.\"\>"], "Output", CellChangeTimes->{{3.683905193766711*^9, 3.68390520081441*^9}, { 3.702836403216741*^9, 3.702836423514264*^9}},ExpressionUUID->"941829b9-063c-4cf1-bcbb-\ 0bd2f4d6bc02"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection",ExpressionUUID->"ec51ed34-5937-4f67-af57-3f07351c35f7"], Cell["Generate a WordCloud:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}, {3.683905284656136*^9, 3.683905289598497*^9}, { 3.702836426976775*^9, 3.702836431815239*^9}},ExpressionUUID->"66846e11-0ab7-4300-949d-\ 3a39f29850cb"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{"DeleteStopwords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{ 3.683905293442621*^9},ExpressionUUID->"e39d6bea-5b82-4ddd-bf78-\ 0020e8c5358d"], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"cried\"\>", StripOnInput->False, FontSize->Scaled[0.20771513353115728`], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"good\"\>", StripOnInput->False, FontSize->Scaled[0.11774733253361955`], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {-3., -37.}, Center, Automatic], InsetBox[ StyleBox["\<\"Mr\"\>", StripOnInput->False, FontSize->Scaled[0.1603636593219269], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {25., 37.}, Center, Automatic], InsetBox[ StyleBox["\<\"family\"\>", StripOnInput->False, FontSize->Scaled[0.099753772334112], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {-56., 40.}, Center, Automatic], InsetBox[ StyleBox["\<\"Sir\"\>", StripOnInput->False, FontSize->Scaled[0.1489993055117116], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {0., -76.}, Center, Automatic], InsetBox[ StyleBox["\<\"wife\"\>", StripOnInput->False, FontSize->Scaled[0.11774733253361955`], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {-4., 76.}, Center, Automatic], InsetBox[ StyleBox["\<\"returned\"\>", StripOnInput->False, FontSize->Scaled[0.08081318265041985], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {92., -34.}, Center, Automatic], InsetBox[ StyleBox["\<\"little\"\>", StripOnInput->False, FontSize->Scaled[0.12437653892291181`], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {-86., -36.}, Center, Automatic], InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.10733000820758885`], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {69., -66.}, Center, Automatic], InsetBox[ StyleBox["\<\"fortune\"\>", StripOnInput->False, FontSize->Scaled[0.07607803522949681], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {-70., -68.}, Center, Automatic], InsetBox[ StyleBox["\<\"company\"\>", StripOnInput->False, FontSize->Scaled[0.06850179935601995], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {0., -101.}, Center, Automatic], InsetBox[ StyleBox["\<\"found\"\>", StripOnInput->False, FontSize->Scaled[0.08460130058715828], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {73., 64.}, Center, Automatic], InsetBox[ StyleBox["\<\"great\"\>", StripOnInput->False, FontSize->Scaled[0.08838941852389672], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {-77., 72.}, Center, Automatic], InsetBox[ StyleBox["\<\"daughter\"\>", StripOnInput->False, FontSize->Scaled[0.06660774038765074], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {-16., 105.}, Center, Automatic], InsetBox[ StyleBox["\<\"shall\"\>", StripOnInput->False, FontSize->Scaled[0.09312456594481976], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {106., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"Thornhill\"\>", StripOnInput->False, FontSize->Scaled[0.06660774038765074], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {72., 87.}, Center, Automatic], InsetBox[ StyleBox["\<\"pleasure\"\>", StripOnInput->False, FontSize->Scaled[0.06376665193509691], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {-13., -122.}, Center, Automatic], InsetBox[ StyleBox["\<\"continued\"\>", StripOnInput->False, FontSize->Scaled[0.05713744554580466], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {6., 123.}, Center, Automatic], InsetBox[ StyleBox["\<\"gentleman\"\>", StripOnInput->False, FontSize->Scaled[0.051455268640697015`], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {-89., -88.}, Center, Automatic], InsetBox[ StyleBox["\<\"replied\"\>", StripOnInput->False, FontSize->Scaled[0.06471368141928152], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {106., 29.}, Center, Automatic], InsetBox[ StyleBox["\<\"man\"\>", StripOnInput->False, FontSize->Scaled[0.10354189027085044`], FontColor->RGBColor[1, 0.75, 0]], {-110., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"know\"\>", StripOnInput->False, FontSize->Scaled[0.073236946776943], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {79., -91.}, Center, Automatic], InsetBox[ StyleBox["\<\"poor\"\>", StripOnInput->False, FontSize->Scaled[0.0751310057453122], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {-92., 92.}, Center, Automatic], InsetBox[ StyleBox["\<\"make\"\>", StripOnInput->False, FontSize->Scaled[0.06660774038765074], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {77., 107.}, Center, Automatic], InsetBox[ StyleBox["\<\"young\"\>", StripOnInput->False, FontSize->Scaled[0.05997853399835849], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {76., -109.}, Center, Automatic], InsetBox[ StyleBox["\<\"daughters\"\>", StripOnInput->False, FontSize->Scaled[0.044826062251404765`], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {-84., -106.}, Center, Automatic], InsetBox[ StyleBox["\<\"day\"\>", StripOnInput->False, FontSize->Scaled[0.07986615316623524], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {-123., 26.}, Center, Automatic], InsetBox[ StyleBox["\<\"son\"\>", StripOnInput->False, FontSize->Scaled[0.099753772334112], FontColor->RGBColor[0.571589, 0.586483, 0.]], {-65., 127.}, Center, Automatic], InsetBox[ StyleBox["\<\"world\"\>", StripOnInput->False, FontSize->Scaled[0.06092556348254309], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {56., -129.}, Center, Automatic], InsetBox[ StyleBox["\<\"Burchell\"\>", StripOnInput->False, FontSize->Scaled[0.0495612096723278], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {80., 126.}, Center, Automatic], InsetBox[ StyleBox["\<\"came\"\>", StripOnInput->False, FontSize->Scaled[0.0741839762611276], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {-88., -125.}, Center, Automatic], InsetBox[ StyleBox["\<\"morning\"\>", StripOnInput->False, FontSize->Scaled[0.04672012121977398], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {112., -127.}, Center, Automatic], InsetBox[ StyleBox["\<\"think\"\>", StripOnInput->False, FontSize->Scaled[0.06281962245091231], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {-117., 108.}, Center, Automatic], InsetBox[ StyleBox["\<\"happy\"\>", StripOnInput->False, FontSize->Scaled[0.05334932760906623], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {-119., 129.}, Center, Automatic], InsetBox[ StyleBox["\<\"present\"\>", StripOnInput->False, FontSize->Scaled[0.047667150703958584`], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {-9., -139.}, Center, Automatic], InsetBox[ StyleBox["\<\"children\"\>", StripOnInput->False, FontSize->Scaled[0.04577309173558937], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {9., 139.}, Center, Automatic], InsetBox[ StyleBox["\<\"dear\"\>", StripOnInput->False, FontSize->Scaled[0.05997853399835849], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {126., -56.}, Center, Automatic], InsetBox[ StyleBox["\<\"heart\"\>", StripOnInput->False, FontSize->Scaled[0.056190416061620056`], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {132., 49.}, Center, Automatic], InsetBox[ StyleBox["\<\"going\"\>", StripOnInput->False, FontSize->Scaled[0.052402298124881626`], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {-132., 47.}, Center, Automatic], InsetBox[ StyleBox["\<\"happiness\"\>", StripOnInput->False, FontSize->Scaled[0.03819685586211251], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {50., -145.}, Center, Automatic], InsetBox[ StyleBox["\<\"Let\"\>", StripOnInput->False, FontSize->Scaled[0.073236946776943], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {-131., -62.}, Center, Automatic], InsetBox[ StyleBox["\<\"way\"\>", StripOnInput->False, FontSize->Scaled[0.058084475029989265`], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {124., -72.}, Center, Automatic], InsetBox[ StyleBox["\<\"soon\"\>", StripOnInput->False, FontSize->Scaled[0.06471368141928152], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {-45., 146.}, Center, Automatic], InsetBox[ StyleBox["\<\"indeed\"\>", StripOnInput->False, FontSize->Scaled[0.043879032767220154`], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {133., 65.}, Center, Automatic], InsetBox[ StyleBox["\<\"child\"\>", StripOnInput->False, FontSize->Scaled[0.05524338657743544], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {-133., 64.}, Center, Automatic], InsetBox[ StyleBox["\<\"Jenkinson\"\>", StripOnInput->False, FontSize->Scaled[0.03535576740955868], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {-66., -142.}, Center, Automatic], InsetBox[ StyleBox["\<\"manner\"\>", StripOnInput->False, FontSize->Scaled[0.047667150703958584`], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {66., 143.}, Center, Automatic], InsetBox[ StyleBox["\<\"country\"\>", StripOnInput->False, FontSize->Scaled[0.04198497379885094], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {132., -97.}, Center, Automatic], InsetBox[ StyleBox["\<\"CHAPTER\"\>", StripOnInput->False, FontSize->Scaled[0.03156764947282025], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {-97., 142.}, Center, Automatic], InsetBox[ StyleBox["\<\"Moses\"\>", StripOnInput->False, FontSize->Scaled[0.04009091483048172], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {128., 104.}, Center, Automatic], InsetBox[ StyleBox["\<\"life\"\>", StripOnInput->False, FontSize->Scaled[0.06376665193509691], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {-138., -24.}, Center, Automatic], InsetBox[ StyleBox["\<\"thought\"\>", StripOnInput->False, FontSize->Scaled[0.03630279689374329], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {104., -141.}, Center, Automatic], InsetBox[ StyleBox["\<\"brought\"\>", StripOnInput->False, FontSize->Scaled[0.03630279689374329], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {133., 119.}, Center, Automatic], InsetBox[ StyleBox["\<\"Squire\"\>", StripOnInput->False, FontSize->Scaled[0.03914388534629712], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {136., 82.}, Center, Automatic], InsetBox[ StyleBox["\<\"heaven\"\>", StripOnInput->False, FontSize->Scaled[0.03819685586211251], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {-118., -141.}, Center, Automatic], InsetBox[ StyleBox["\<\"resolved\"\>", StripOnInput->False, FontSize->Scaled[0.03440873792537408], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {119., 141.}, Center, Automatic], InsetBox[ StyleBox["\<\"William\"\>", StripOnInput->False, FontSize->Scaled[0.03630279689374329], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {80., 44.}, Center, Automatic], InsetBox[ StyleBox["\<\"ladies\"\>", StripOnInput->False, FontSize->Scaled[0.04293200328303555], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {-143., -41.}, Center, Automatic], InsetBox[ StyleBox["\<\"character\"\>", StripOnInput->False, FontSize->Scaled[0.03062061998863565], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {4., 153.}, Center, Automatic], InsetBox[ StyleBox["\<\"place\"\>", StripOnInput->False, FontSize->Scaled[0.04198497379885094], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {0., -155.}, Center, Automatic], InsetBox[ StyleBox["\<\"house\"\>", StripOnInput->False, FontSize->Scaled[0.03914388534629712], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {-138., 80.}, Center, Automatic], InsetBox[ StyleBox["\<\"honour\"\>", StripOnInput->False, FontSize->Scaled[0.03440873792537408], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {-39., -156.}, Center, Automatic], InsetBox[ StyleBox["\<\"things\"\>", StripOnInput->False, FontSize->Scaled[0.0372498263779279], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {46., 158.}, Center, Automatic], InsetBox[ StyleBox["\<\"come\"\>", StripOnInput->False, FontSize->Scaled[0.048614180188143195`], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {40., -160.}, Center, Automatic], InsetBox[ StyleBox["\<\"night\"\>", StripOnInput->False, FontSize->Scaled[0.041037944314666334`], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {-147., -80.}, Center, Automatic], InsetBox[ StyleBox["\<\"old\"\>", StripOnInput->False, FontSize->Scaled[0.052402298124881626`], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {152., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"Person\"\>", StripOnInput->False, FontSize->Scaled[0.03346170844118947], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {-38., 160.}, Center, Automatic], InsetBox[ StyleBox["\<\"money\"\>", StripOnInput->False, FontSize->Scaled[0.03440873792537408], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {123., -109.}, Center, Automatic], InsetBox[ StyleBox["\<\"said\"\>", StripOnInput->False, FontSize->Scaled[0.043879032767220154`], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {-134., -109.}, Center, Automatic], InsetBox[ StyleBox["\<\"town\"\>", StripOnInput->False, FontSize->Scaled[0.04198497379885094], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {-75., -156.}, Center, Automatic], InsetBox[ StyleBox["\<\"Miss\"\>", StripOnInput->False, FontSize->Scaled[0.043879032767220154`], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {82., 156.}, Center, Automatic], InsetBox[ StyleBox["\<\"rest\"\>", StripOnInput->False, FontSize->Scaled[0.0495612096723278], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {77., -158.}, Center, Automatic], InsetBox[ StyleBox["\<\"went\"\>", StripOnInput->False, FontSize->Scaled[0.041037944314666334`], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {-87., 154.}, Center, Automatic], InsetBox[ StyleBox["\<\"gave\"\>", StripOnInput->False, FontSize->Scaled[0.03819685586211251], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {-148., -95.}, Center, Automatic], InsetBox[ StyleBox["\<\"began\"\>", StripOnInput->False, FontSize->Scaled[0.03251467895700486], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {-137., -122.}, Center, Automatic], InsetBox[ StyleBox["\<\"called\"\>", StripOnInput->False, FontSize->Scaled[0.03346170844118947], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {-110., -155.}, Center, Automatic], InsetBox[ StyleBox["\<\"Thing\"\>", StripOnInput->False, FontSize->Scaled[0.03440873792537408], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {109., -157.}, Center, Automatic], InsetBox[ StyleBox["\<\"say\"\>", StripOnInput->False, FontSize->Scaled[0.04577309173558937], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {154., 20.}, Center, Automatic], InsetBox[ StyleBox["\<\"friend\"\>", StripOnInput->False, FontSize->Scaled[0.03346170844118947], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {115., 153.}, Center, Automatic], InsetBox[ StyleBox["\<\"men\"\>", StripOnInput->False, FontSize->Scaled[0.0495612096723278], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {-121., 156.}, Center, Automatic], InsetBox[ StyleBox["\<\"Olivia\"\>", StripOnInput->False, FontSize->Scaled[0.03251467895700486], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {141., -145.}, Center, Automatic], InsetBox[ StyleBox["\<\"home\"\>", StripOnInput->False, FontSize->Scaled[0.03440873792537408], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {-143., -153.}, Center, Automatic], InsetBox[ StyleBox["\<\"round\"\>", StripOnInput->False, FontSize->Scaled[0.03251467895700486], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {146., 153.}, Center, Automatic], InsetBox[ StyleBox["\<\"power\"\>", StripOnInput->False, FontSize->Scaled[0.03062061998863565], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {89., -16.}, Center, Automatic], InsetBox[ StyleBox["\<\"letter\"\>", StripOnInput->False, FontSize->Scaled[0.03535576740955868], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {140., -158.}, Center, Automatic], InsetBox[ StyleBox["\<\"long\"\>", StripOnInput->False, FontSize->Scaled[0.0372498263779279], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {-153., 94.}, Center, Automatic], InsetBox[ StyleBox["\<\"like\"\>", StripOnInput->False, FontSize->Scaled[0.04293200328303555], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {155., -81.}, Center, Automatic], InsetBox[ StyleBox["\<\"left\"\>", StripOnInput->False, FontSize->Scaled[0.041037944314666334`], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {154., -16.}, Center, Automatic], InsetBox[ StyleBox["\<\"knew\"\>", StripOnInput->False, FontSize->Scaled[0.03062061998863565], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {-84., 20.}, Center, Automatic], InsetBox[ StyleBox["\<\"away\"\>", StripOnInput->False, FontSize->Scaled[0.02967359050445104], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {119., -16.}, Center, Automatic], InsetBox[ StyleBox["\<\"took\"\>", StripOnInput->False, FontSize->Scaled[0.03535576740955868], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {154., 32.}, Center, Automatic], InsetBox[ StyleBox["\<\"read\"\>", StripOnInput->False, FontSize->Scaled[0.03440873792537408], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {-155., 107.}, Center, Automatic], InsetBox[ StyleBox["\<\"sure\"\>", StripOnInput->False, FontSize->Scaled[0.0372498263779279], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {-76., 107.}, Center, Automatic], InsetBox[ StyleBox["\<\"new\"\>", StripOnInput->False, FontSize->Scaled[0.03914388534629712], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {-153., 145.}, Center, Automatic], InsetBox[ StyleBox["\<\"lady\"\>", StripOnInput->False, FontSize->Scaled[0.03156764947282025], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {-155., 11.}, Center, Automatic], InsetBox[ StyleBox["\<\"just\"\>", StripOnInput->False, FontSize->Scaled[0.03440873792537408], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {-156., -5.}, Center, Automatic], InsetBox[ StyleBox["\<\"saw\"\>", StripOnInput->False, FontSize->Scaled[0.03535576740955868], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {155., -27.}, Center, Automatic], InsetBox[ StyleBox["\<\"tell\"\>", StripOnInput->False, FontSize->Scaled[0.03440873792537408], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {34., -86.}, Center, Automatic], InsetBox[ StyleBox["\<\"tho\"\>", StripOnInput->False, FontSize->Scaled[0.03062061998863565], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {-155., 22.}, Center, Automatic], InsetBox[ StyleBox["\<\"till\"\>", StripOnInput->False, FontSize->Scaled[0.03440873792537408], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {-38., -86.}, Center, Automatic]}, DefaultBaseStyle->{ "Graphics", FontFamily -> "Helvetica", FontWeight -> Plain, FontTracking -> "Plain", FontSlant -> Plain, FontVariations -> {}}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-168.5, 168.5}, {-167.5, 167.5}}]], "Output", CellChangeTimes->{ 3.683905329258706*^9},ExpressionUUID->"27e0705d-d08c-48a4-98cf-\ 5c923c5a9c6d"] }, Open ]], Cell["Compare adverb usage:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}, {3.68390530927976*^9, 3.6839053154298677`*^9}},ExpressionUUID->"dbb802a4-bd92-4d66-b14a-\ 512f9acb762b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarChart", "[", RowBox[{ RowBox[{ RowBox[{"TakeLargest", "[", RowBox[{ RowBox[{"Counts", "[", RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "]"}], ",", "20"}], "]"}], "//", "Reverse"}], ",", RowBox[{"BarOrigin", "\[Rule]", "Left"}], ",", RowBox[{"ChartLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.683905317854707*^9, 3.683905332690179*^9}},ExpressionUUID->"d25d04e5-ccec-40a9-8b80-\ f1ad1b11ac2d"], Cell[BoxData[ GraphicsBox[{ {Opacity[0], PointBox[{0., 0.13851851851851854`}]}, {{}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.5370370370370371}, {58., 1.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 90.06482780612245}, {77.75077561883937, 87.02542168322799}}], StatusArea[#, 58]& , TagBoxNote->"58"], StyleBox["58", {}, StripOnInput -> False]], Annotation[#, Style[58, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 1.5370370370370372`}, {59., 2.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 91.0271524234694}, {68.27415786929966, 77.54880393368828}}], StatusArea[#, 59]& , TagBoxNote->"59"], StyleBox["59", {}, StripOnInput -> False]], Annotation[#, Style[59, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 2.537037037037037}, {60., 3.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 91.98947704081634}, {58.79754011975995, 68.07218618414856}}], StatusArea[#, 60]& , TagBoxNote->"60"], StyleBox["60", {}, StripOnInput -> False]], Annotation[#, Style[60, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 3.537037037037037}, {66., 4.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 97.76342474489797}, {49.320922370220245`, 58.595568434608865`}}], StatusArea[#, 66]& , TagBoxNote->"66"], StyleBox["66", {}, StripOnInput -> False]], Annotation[#, Style[66, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 4.537037037037037}, {66., 5.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 97.76342474489797}, {39.84430462068054, 49.11895068506915}}], StatusArea[#, 66]& , TagBoxNote->"66"], StyleBox["66", {}, StripOnInput -> False]], Annotation[#, Style[66, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 5.537037037037037}, {72., 6.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 103.53737244897961`}, {30.367686871140833`, 39.642332935529446`}}], StatusArea[#, 72]& , TagBoxNote->"72"], StyleBox["72", {}, StripOnInput -> False]], Annotation[#, Style[72, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 6.537037037037037}, {74., 7.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 105.46202168367348`}, {20.89106912160112, 30.16571518598974}}], StatusArea[#, 74]& , TagBoxNote->"74"], StyleBox["74", {}, StripOnInput -> False]], Annotation[#, Style[74, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 7.537037037037037}, {80., 8.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 111.23596938775512`}, {11.414451372061407`, 20.689097436450027`}}], StatusArea[#, 80]& , TagBoxNote->"80"], StyleBox["80", {}, StripOnInput -> False]], Annotation[#, Style[80, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 8.537037037037038}, {86., 9.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 117.00991709183675`}, {1.937833622521694, 11.212479686910314`}}], StatusArea[#, 86]& , TagBoxNote->"86"], StyleBox["86", {}, StripOnInput -> False]], Annotation[#, Style[86, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 9.537037037037038}, {88., 10.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 118.93456632653063`}, {-7.538784127018005, 1.7358619373706148`}}], StatusArea[#, 88]& , TagBoxNote->"88"], StyleBox["88", {}, StripOnInput -> False]], Annotation[#, Style[88, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 10.537037037037038`}, {91., 11.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 121.82154017857145`}, {-17.015401876557718`, -7.740755812169098}}], StatusArea[#, 91]& , TagBoxNote->"91"], StyleBox["91", {}, StripOnInput -> False]], Annotation[#, Style[91, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 11.537037037037038`}, {96., 12.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 126.63316326530614`}, {-26.492019626097417`, -17.21737356170881}}], StatusArea[#, 96]& , TagBoxNote->"96"], StyleBox["96", {}, StripOnInput -> False]], Annotation[#, Style[96, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 12.537037037037038`}, {107., 13.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 137.21873405612246`}, {-35.96863737563713, -26.69399131124851}}], StatusArea[#, 107]& , TagBoxNote->"107"], StyleBox["107", {}, StripOnInput -> False]], Annotation[#, Style[107, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 13.537037037037038`}, {113., 14.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 142.9926817602041}, {-45.44525512517684, -36.17060906078821}}], StatusArea[#, 113]& , TagBoxNote->"113"], StyleBox["113", {}, StripOnInput -> False]], Annotation[#, Style[113, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 14.537037037037038`}, {114., 15.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 143.95500637755106`}, {-54.921872874716556`, -45.64722681032792}}], StatusArea[#, 114]& , TagBoxNote->"114"], StyleBox["114", {}, StripOnInput -> False]], Annotation[#, Style[114, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 15.537037037037038`}, {129., 16.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 158.38987563775513`}, {-64.39849062425627, -55.123844559867635`}}], StatusArea[#, 129]& , TagBoxNote->"129"], StyleBox["129", {}, StripOnInput -> False]], Annotation[#, Style[129, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 16.537037037037038`}, {169., 17.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 196.88286033163268`}, {-73.87510837379598, -64.60046230940735}}], StatusArea[#, 169]& , TagBoxNote->"169"], StyleBox["169", {}, StripOnInput -> False]], Annotation[#, Style[169, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 17.537037037037038`}, {170., 18.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 197.84518494897964`}, {-83.3517261233357, -74.07708005894706}}], StatusArea[#, 170]& , TagBoxNote->"170"], StyleBox["170", {}, StripOnInput -> False]], Annotation[#, Style[170, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 18.537037037037038`}, {206., 19.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 232.48887117346942`}, {-92.82834387287538, -83.55369780848677}}], StatusArea[#, 206]& , TagBoxNote->"206"], StyleBox["206", {}, StripOnInput -> False]], Annotation[#, Style[206, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 19.537037037037038`}, {320., 20.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 342.1938775510205}, {-102.30496162241509`, -93.03031555802646}}], StatusArea[#, 320]& , TagBoxNote->"320"], StyleBox["320", {}, StripOnInput -> False]], Annotation[#, Style[320, {}], "Tooltip"]& ]}}, {}, {}}, {}, {}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.13851851851851854`}, {0., 20.869451851851853`}}], StyleBox[{}, "GraphicsLabel", StripOnInput->False]}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.5370370370370371}, Offset[{-6., 0.}, {0., 0.5370370370370371}]}], LineBox[{{0., 20.462962962962965`}, Offset[{-6., 0.}, {0., 20.462962962962965`}]}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, { LineBox[{{0., 1.462962962962963}, Offset[{-4., 0.}, {0., 1.462962962962963}]}], LineBox[{{0., 1.5370370370370372`}, Offset[{-4., 0.}, {0., 1.5370370370370372`}]}], LineBox[{{0., 2.4629629629629632`}, Offset[{-4., 0.}, {0., 2.4629629629629632`}]}], LineBox[{{0., 2.537037037037037}, Offset[{-4., 0.}, {0., 2.537037037037037}]}], LineBox[{{0., 3.4629629629629632`}, Offset[{-4., 0.}, {0., 3.4629629629629632`}]}], LineBox[{{0., 3.537037037037037}, Offset[{-4., 0.}, {0., 3.537037037037037}]}], LineBox[{{0., 4.462962962962963}, Offset[{-4., 0.}, {0., 4.462962962962963}]}], LineBox[{{0., 4.537037037037036}, Offset[{-4., 0.}, {0., 4.537037037037036}]}], LineBox[{{0., 5.462962962962963}, Offset[{-4., 0.}, {0., 5.462962962962963}]}], LineBox[{{0., 5.537037037037037}, Offset[{-4., 0.}, {0., 5.537037037037037}]}], LineBox[{{0., 6.462962962962963}, Offset[{-4., 0.}, {0., 6.462962962962963}]}], LineBox[{{0., 6.537037037037037}, Offset[{-4., 0.}, {0., 6.537037037037037}]}], LineBox[{{0., 7.462962962962963}, Offset[{-4., 0.}, {0., 7.462962962962963}]}], LineBox[{{0., 7.537037037037037}, Offset[{-4., 0.}, {0., 7.537037037037037}]}], LineBox[{{0., 8.462962962962964}, Offset[{-4., 0.}, {0., 8.462962962962964}]}], LineBox[{{0., 8.537037037037036}, Offset[{-4., 0.}, {0., 8.537037037037036}]}], LineBox[{{0., 9.462962962962962}, Offset[{-4., 0.}, {0., 9.462962962962962}]}], LineBox[{{0., 9.537037037037036}, Offset[{-4., 0.}, {0., 9.537037037037036}]}], LineBox[{{0., 10.462962962962962`}, Offset[{-4., 0.}, {0., 10.462962962962962`}]}], LineBox[{{0., 10.537037037037036`}, Offset[{-4., 0.}, {0., 10.537037037037036`}]}], LineBox[{{0., 11.462962962962962`}, Offset[{-4., 0.}, {0., 11.462962962962962`}]}], LineBox[{{0., 11.537037037037036`}, Offset[{-4., 0.}, {0., 11.537037037037036`}]}], LineBox[{{0., 12.462962962962962`}, Offset[{-4., 0.}, {0., 12.462962962962962`}]}], LineBox[{{0., 12.537037037037036`}, Offset[{-4., 0.}, {0., 12.537037037037036`}]}], LineBox[{{0., 13.462962962962962`}, Offset[{-4., 0.}, {0., 13.462962962962962`}]}], LineBox[{{0., 13.537037037037036`}, Offset[{-4., 0.}, {0., 13.537037037037036`}]}], LineBox[{{0., 14.462962962962962`}, Offset[{-4., 0.}, {0., 14.462962962962962`}]}], LineBox[{{0., 14.537037037037036`}, Offset[{-4., 0.}, {0., 14.537037037037036`}]}], LineBox[{{0., 15.462962962962962`}, Offset[{-4., 0.}, {0., 15.462962962962962`}]}], LineBox[{{0., 15.537037037037036`}, Offset[{-4., 0.}, {0., 15.537037037037036`}]}], LineBox[{{0., 16.462962962962965`}, Offset[{-4., 0.}, {0., 16.462962962962965`}]}], LineBox[{{0., 16.537037037037038`}, Offset[{-4., 0.}, {0., 16.537037037037038`}]}], LineBox[{{0., 17.462962962962965`}, Offset[{-4., 0.}, {0., 17.462962962962965`}]}], LineBox[{{0., 17.537037037037038`}, Offset[{-4., 0.}, {0., 17.537037037037038`}]}], LineBox[{{0., 18.462962962962965`}, Offset[{-4., 0.}, {0., 18.462962962962965`}]}], LineBox[{{0., 18.537037037037038`}, Offset[{-4., 0.}, {0., 18.537037037037038`}]}], LineBox[{{0., 19.462962962962965`}, Offset[{-4., 0.}, {0., 19.462962962962965`}]}], LineBox[{{0., 19.537037037037038`}, Offset[{-4., 0.}, {0., 19.537037037037038`}]}]}, {}}}, StyleBox[ {Thickness[Tiny], InsetBox["\<\"as\"\>", Offset[{-2., 0.}, {0., 1.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"well\"\>", Offset[{-2., 0.}, {0., 2.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"thus\"\>", Offset[{-2., 0.}, {0., 3.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"soon\"\>", Offset[{-2., 0.}, {0., 4.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"once\"\>", Offset[{-2., 0.}, {0., 5.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"here\"\>", Offset[{-2., 0.}, {0., 6.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"where\"\>", Offset[{-2., 0.}, {0., 7.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"ever\"\>", Offset[{-2., 0.}, {0., 8.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"then\"\>", Offset[{-2., 0.}, {0., 8.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"still\"\>", Offset[{-2., 0.}, {0., 9.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"only\"\>", Offset[{-2., 0.}, {0., 10.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"too\"\>", Offset[{-2., 0.}, {0., 11.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"yet\"\>", Offset[{-2., 0.}, {0., 12.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"never\"\>", Offset[{-2., 0.}, {0., 13.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"more\"\>", Offset[{-2., 0.}, {0., 14.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"when\"\>", Offset[{-2., 0.}, {0., 16.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"so\"\>", Offset[{-2., 0.}, {0., 17.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"very\"\>", Offset[{-2., 0.}, {0., 18.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"now\"\>", Offset[{-2., 0.}, {0., 19.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"not\"\>", Offset[{-2., 0.}, {0., 20.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}]}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, "GraphicsAxes", StripOnInput->False, Antialiasing->False]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, False}, AxesLabel->{None, None}, AxesOrigin->{0., 0.13851851851851854`}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{{{1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {1., FormBox["\"as\"", TraditionalForm], 0}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {2., FormBox["\"well\"", TraditionalForm], 0}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {3., FormBox["\"thus\"", TraditionalForm], 0}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {4., FormBox["\"soon\"", TraditionalForm], 0}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {5., FormBox["\"once\"", TraditionalForm], 0}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {6., FormBox["\"here\"", TraditionalForm], 0}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {7., FormBox["\"where\"", TraditionalForm], 0}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {8., FormBox["\"ever\"", TraditionalForm], 0}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {9., FormBox["\"then\"", TraditionalForm], 0}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {10., FormBox["\"still\"", TraditionalForm], 0}, {11., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {11., FormBox["\"only\"", TraditionalForm], 0}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {12., FormBox["\"too\"", TraditionalForm], 0}, {13., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {13., FormBox["\"yet\"", TraditionalForm], 0}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {14., FormBox["\"never\"", TraditionalForm], 0}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {15., FormBox["\"more\"", TraditionalForm], 0}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {16., FormBox["\"when\"", TraditionalForm], 0}, {17., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {17., FormBox["\"so\"", TraditionalForm], 0}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {18., FormBox["\"very\"", TraditionalForm], 0}, {19., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {19., FormBox["\"now\"", TraditionalForm], 0}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {20., FormBox["\"not\"", TraditionalForm], 0}}, {{1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {11., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {13., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {17., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {19., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}}}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{All, All}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.05]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, None}]], "Output", CellChangeTimes->{ 3.683905348741602*^9},ExpressionUUID->"b1fbfc4e-5194-4090-a87e-\ 169d46b49929"] }, Open ]] }, Open ]] }, WindowSize->{775, 873}, WindowMargins->{{Automatic, 0}, {Automatic, 0}}, WindowTitle->"Examples for Barnaby Rudge: A Tale of the Riots of 'Eighty", 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[652, 23, 91, 0, 70, "Subsection", "ExpressionUUID" -> \ "2e6d6efe-86dc-4f37-8f55-08a32638ddb0"], Cell[746, 25, 272, 4, 70, "Text", "ExpressionUUID" -> \ "89ef90dd-e315-4223-b8de-9fa4f937a20a"], Cell[CellGroupData[{ Cell[1043, 33, 305, 6, 70, "Input", "ExpressionUUID" -> \ "c4aa4d82-f7bf-439e-8b54-00f7a9e38301"], Cell[1351, 41, 14487, 321, 70, "Output", "ExpressionUUID" -> \ "f86d87e1-8714-4892-9d4c-409cdbaff735"] }, Open ]], Cell[15853, 365, 261, 4, 70, "Text", "ExpressionUUID" -> \ "d197569f-b9b7-40bd-85ce-ea82e21802ed"], Cell[CellGroupData[{ Cell[16139, 373, 404, 10, 70, "Input", "ExpressionUUID" -> \ "37d6b750-398b-42fb-96cb-5049aa031ce9"], Cell[16546, 385, 391, 6, 70, "Output", "ExpressionUUID" -> \ "941829b9-063c-4cf1-bcbb-0bd2f4d6bc02"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16986, 397, 90, 0, 70, "Subsection", "ExpressionUUID" -> \ "ec51ed34-5937-4f67-af57-3f07351c35f7"], Cell[17079, 399, 366, 6, 70, "Text", "ExpressionUUID" -> \ "66846e11-0ab7-4300-949d-3a39f29850cb"], Cell[CellGroupData[{ Cell[17470, 409, 279, 7, 70, "Input", "ExpressionUUID" -> \ "e39d6bea-5b82-4ddd-bf78-0020e8c5358d"], Cell[17752, 418, 23697, 565, 70, "Output", "ExpressionUUID" -> \ "27e0705d-d08c-48a4-98cf-5c923c5a9c6d"] }, Open ]], Cell[41464, 986, 318, 5, 70, "Text", "ExpressionUUID" -> \ "dbb802a4-bd92-4d66-b14a-512f9acb762b"], Cell[CellGroupData[{ Cell[41807, 995, 617, 16, 70, "Input", "ExpressionUUID" -> \ "d25d04e5-ccec-40a9-8b80-f1ad1b11ac2d"], Cell[42427, 1013, 35166, 892, 70, "Output", "ExpressionUUID" -> \ "b1fbfc4e-5194-4090-a87e-169d46b49929"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)