(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 89409, 2229] NotebookOptionsPosition[ 87461, 2183] NotebookOutlinePosition[ 88021, 2206] CellTagsIndexPosition[ 87978, 2203] WindowTitle->Examples for Cranford WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell["Retrieve the ResourceObject:", "Text", CellChangeTimes->{{3.6821849447840075`*^9, 3.682184951647694*^9}, { 3.6821850182913575`*^9, 3.6821850462121496`*^9}, {3.6821850885233803`*^9, 3.68218509051958*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804517731799183`*^9, 3.6804517885604563`*^9}, { 3.6804527318597765`*^9, 3.6804527390684977`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["ResourceObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"], ImageSizeCache->{12., {0., 12.}}], Appearance->None, ButtonFunction:>(Typeset`open$$ = True), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, { 3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, {FaceForm[{RGBColor[0.274612, 0.618881, 0.810913], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, { 56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, { 9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, {2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}}, AspectRatio->1, Axes->False, Background->None, Frame->None, FrameTicks->None, ImageSize->{Automatic, Dynamic[(3.5 CurrentValue["FontCapHeight"])/AbsoluteCurrentValue[ Magnification], ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{ { RowBox[{ TagBox["\<\"Name: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Cranford\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Elizabeth Cleghorn Gaskell's \ \\\"Cranford\\\"\"\>", "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["\<\"Cranford\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Elizabeth Cleghorn Gaskell's \ \\\"Cranford\\\"\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Categories: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"Textual Data\"", "\"Literature\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"ContentTypes: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",", "\",\"", "\"Text\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Keywords: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"text\"", "\"novel\"", "\"fiction\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Data Location: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicModuleBox[{DataResource`Private`typesetstorage$$ = DataResource`Private`typesetstorageLocation, DataResource`Private`info$$}, DynamicBox[ToBoxes[ DataResource`Private`info$$ = DataResource`Private`resourceInfo[ "ab97f0c2-df90-45ff-8cfc-178a0c241ef4"]; 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["\<\"ab97f0c2-df90-45ff-8cfc-178a0c241ef4\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"391.36`", "\"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[<| "Name" -> "Cranford", "UUID" -> "ab97f0c2-df90-45ff-8cfc-178a0c241ef4", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Plaintext for Elizabeth Cleghorn Gaskell's \"Cranford\"", "ContentSize" -> Quantity[391.36, "Kilobytes"], "ContentElements" -> {"Plaintext"}|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.683906369685828*^9}] }, Open ]], Cell["View the data:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", "30", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, { 3.68390642975766*^9, 3.68390645200421*^9}, {3.702917886280916*^9, 3.7029178960177917`*^9}}], Cell[BoxData["\<\"\[OpenCurlyDoubleQuote]Just allow me to read you a scene \ out of this month\[CloseCurlyQuote]s number,\[CloseCurlyDoubleQuote] \ pleaded\\nhe. \[OpenCurlyDoubleQuote]I had it only this morning, and I don\ \[CloseCurlyQuote]t think the company can have\\nread it yet.\ \[CloseCurlyDoubleQuote]\"\>"], "Output", CellChangeTimes->{ 3.683906369777261*^9, 3.683906452409275*^9, {3.702917890469193*^9, 3.702917896421036*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell["Show the most frequently used verbs:", "Text", CellChangeTimes->{{3.683033608693839*^9, 3.683033616124875*^9}, { 3.6832949032376537`*^9, 3.6832949042537556`*^9}, {3.683376838599346*^9, 3.683376841005747*^9}, {3.683392707585814*^9, 3.683392712816613*^9}, 3.68339277883292*^9}], 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.6832887705512333`*^9, 3.6832888072249002`*^9}, { 3.6839064686921663`*^9, 3.6839064695683737`*^9}}], 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}, {103., 1.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 60.08933581287975}, {76.17142037810338, 85.41902593073733}}], StatusArea[#, 103]& , TagBoxNote->"103"], StyleBox["103", {}, StripOnInput -> False]], Annotation[#, Style[103, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 1.5370370370370372`}, {110., 2.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 61.77744601375507}, {66.7240063812587, 75.97161193389266}}], StatusArea[#, 110]& , TagBoxNote->"110"], StyleBox["110", {}, StripOnInput -> False]], Annotation[#, Style[110, {}], "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}, {113., 3.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 62.50092181413021}, {57.27659238441403, 66.52419793704799}}], 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., 3.537037037037037}, {117., 4.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 63.465556214630396`}, {47.829178387569364`, 57.07678394020332}}], StatusArea[#, 117]& , TagBoxNote->"117"], StyleBox["117", {}, StripOnInput -> False]], Annotation[#, Style[117, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 4.537037037037037}, {118., 5.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 63.70671481475544}, {38.3817643907247, 47.62936994335865}}], StatusArea[#, 118]& , TagBoxNote->"118"], StyleBox["118", {}, StripOnInput -> False]], Annotation[#, Style[118, {}], "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}, {124., 6.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 65.15366641550571}, {28.934350393880024`, 38.18195594651397}}], StatusArea[#, 124]& , TagBoxNote->"124"], StyleBox["124", {}, StripOnInput -> False]], Annotation[#, Style[124, {}], "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}, {141., 7.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 69.2533626176315}, {19.48693639703535, 28.7345419496693}}], StatusArea[#, 141]& , TagBoxNote->"141"], StyleBox["141", {}, StripOnInput -> False]], Annotation[#, Style[141, {}], "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}, {146., 8.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 70.45915561825673}, {10.039522400190677`, 19.287127952824633`}}], StatusArea[#, 146]& , TagBoxNote->"146"], StyleBox["146", {}, StripOnInput -> False]], Annotation[#, Style[146, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 8.537037037037038}, {151., 9.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 71.66494861888197}, {0.5921084033460033, 9.839713955979946}}], StatusArea[#, 151]& , TagBoxNote->"151"], StyleBox["151", {}, StripOnInput -> False]], Annotation[#, Style[151, {}], "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}, {171., 10.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 76.48812062138288}, {-8.85530559349867, 0.39229995913528626`}}], StatusArea[#, 171]& , TagBoxNote->"171"], StyleBox["171", {}, StripOnInput -> False]], Annotation[#, Style[171, {}], "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`}, {196., 11.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 82.51708562450904}, {-18.302719590343344`, -9.055114037709387}}], StatusArea[#, 196]& , TagBoxNote->"196"], StyleBox["196", {}, StripOnInput -> False]], Annotation[#, Style[196, {}], "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`}, {278., 12.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 102.29209083476282`}, {-27.750133587188017`, -18.50252803455406}}], StatusArea[#, 278]& , TagBoxNote->"278"], StyleBox["278", {}, StripOnInput -> False]], Annotation[#, Style[278, {}], "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`}, {287., 13.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 104.46251823588824`}, {-37.19754758403269, -27.949942031398734`}}], StatusArea[#, 287]& , TagBoxNote->"287"], StyleBox["287", {}, StripOnInput -> False]], Annotation[#, Style[287, {}], "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`}, {287., 14.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 104.46251823588824`}, {-46.64496158087735, -37.39735602824341}}], StatusArea[#, 287]& , TagBoxNote->"287"], StyleBox["287", {}, StripOnInput -> False]], Annotation[#, Style[287, {}], "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`}, {303., 15.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 108.32105583788898`}, {-56.09237557772204, -46.84477002508808}}], StatusArea[#, 303]& , TagBoxNote->"303"], StyleBox["303", {}, StripOnInput -> False]], Annotation[#, Style[303, {}], "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`}, {360., 16.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 122.0670960450166}, {-65.53978957456673, -56.29218402193274}}], StatusArea[#, 360]& , TagBoxNote->"360"], StyleBox["360", {}, StripOnInput -> False]], Annotation[#, Style[360, {}], "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`}, {364., 17.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 123.03173044551679`}, {-74.98720357141138, -65.73959801877743}}], StatusArea[#, 364]& , TagBoxNote->"364"], StyleBox["364", {}, StripOnInput -> False]], Annotation[#, Style[364, {}], "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`}, {383., 18.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 127.61374384789266`}, {-84.43461756825607, -75.18701201562209}}], StatusArea[#, 383]& , TagBoxNote->"383"], StyleBox["383", {}, StripOnInput -> False]], Annotation[#, Style[383, {}], "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`}, {979., 19.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 271.3442695224202}, {-93.88203156510073, -84.63442601246678}}], StatusArea[#, 979]& , TagBoxNote->"979"], StyleBox["979", {}, StripOnInput -> False]], Annotation[#, Style[979, {}], "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`}, {1273., 20.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.75, 342.2448979591837}, {-103.32944556194542`, -94.08184000931143}}], StatusArea[#, 1273]& , TagBoxNote->"1273"], StyleBox["1273", {}, StripOnInput -> False]], Annotation[#, Style[1273, {}], "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["\<\"do\"\>", Offset[{-2., 0.}, {0., 1.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"thought\"\>", Offset[{-2., 0.}, {0., 2.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"see\"\>", Offset[{-2., 0.}, {0., 3.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"know\"\>", Offset[{-2., 0.}, {0., 4.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"made\"\>", Offset[{-2., 0.}, {0., 5.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"might\"\>", Offset[{-2., 0.}, {0., 6.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"should\"\>", Offset[{-2., 0.}, {0., 7.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"came\"\>", Offset[{-2., 0.}, {0., 8.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"think\"\>", Offset[{-2., 0.}, {0., 8.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"is\"\>", Offset[{-2., 0.}, {0., 9.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"did\"\>", Offset[{-2., 0.}, {0., 10.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"been\"\>", Offset[{-2., 0.}, {0., 11.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"said\"\>", Offset[{-2., 0.}, {0., 12.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"could\"\>", Offset[{-2., 0.}, {0., 13.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"would\"\>", Offset[{-2., 0.}, {0., 14.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"be\"\>", Offset[{-2., 0.}, {0., 16.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"have\"\>", Offset[{-2., 0.}, {0., 17.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"were\"\>", Offset[{-2., 0.}, {0., 18.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"had\"\>", Offset[{-2., 0.}, {0., 19.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"was\"\>", Offset[{-2., 0.}, {0., 20.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}]}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, "GraphicsAxes", StripOnInput->False, Antialiasing->False]}, BoxID -> "{\"type\":\"Image\",\"message\":\"RasterizedDueToUnsupportedContent\",\"\ imageData\":{\"imageSource\":\"data:image/png;base64,\ iVBORw0KGgoAAAANSUhEUgAAAWgAAADUCAYAAACxmrlvAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAA\ AOxAAADsQBlSsOGwAAHUlJREFUeJzt3X+QW9WVJ/\ DvuU9qNXanNp0M3tAmOwxVIQWVEELYePkRxgu1RW0YDA7OwoSBBrX0hDFm6AAL46SWJIWZcUFP2xY2\ 3U+yjD1rQ8cxkJDUpAqXK+ZnpghxXJRrDGUqu44xycauGNuN6ZbePfuHJSKEpG6p1dJT9/\ dTlWr3fT90blJ95s7TPe8ARERERERERERERESzkOu62uoYiIhaxbQ6ACIiKo8JmogooJigiYgCSlod\ AFD9WXPnkZ3NDIWIqCHWbt8/\ 5fwaiARdieu6uu7GI60Og4ioJves29OQBM1HHEREARWaysXxeHyviFzved6+RCJxqaq+\ pKoLU6nUrkQi8TlVfQVAD4ALVXVQRM4HcExEHhgeHt4ci8UWG2NGVFUA7FXV5el0+\ sVGTIyIqN1NdQU9AuA6AFDVRQAOAFiU//2bALZ6npcFsBHAAIBua+\ 01qjoAACKyBcCWo0ePdhpjHjLGZKYYDxHRjDGlBO04zocJGsA1AO7I/\ 4SqLrHWbgaAcDj8NRE5V1WfMsZsA/AXACAi9wNY1N3d/\ biqvul53jlTiYeIaCaZUoIeGhp6E0DEdd0rAZz0PO9nIvJBIpG4VkQ60un06wCQzWafBXBYRNaLyFW\ F6z3PS4rIjap6EMDT8XjcnUo8REQzSSO+JNymqlsBbAcAVR1R1U0ANhVOUNXzrbWvGWPeUNUHC+\ PxeHyv7/vdPT09D6vqegArGxAPEdGMMKUvCfNGRGSltfZHAGCtHXEc5/u5XG5L4QQRWQHged/\ 33wcwICI3AYCq9onI0KFDh7aIiAIIl+6JvmfdngaESPRxL+w5jMu/\ 9BetDoOookDtgy5XsOJ53upWxEJEk9bf6gBmqkasoD/kuq56njelpF98veu6mt15/d1Tj4yIpkO+\ IIMJepqwUIWIKKAauoIGgEQicYu1doWInG2tvSGdTj/\ juu6CcoUqiUTiLGvtVhE5D0C80bEQEbWzhq+grbVfEJEF1tobjDEj+eGyhSqq+\ piI7Mjlcp8FcFGjYyEiamcNT9BdXV0Pep73XjqdfgZAGKhcqAJgIYCBTCZz3Pf9VY2OhYionTU8QQ8\ ODp4sHatUqKKq6jiOAYDCTyIiOqUpSbFSoYqI7PB9f0VfX9+5+RcrERFRXlMStIisEJHnfd//taq+\ XjR+J4AFjuM8JyK9zYiFiKhdtEOhyu5WxDJL7WrCZ/\ x1kz6Hmof7oKdJoBJ0KXZUaZ5GdYAgosbhF3NERAFVU6HKZDuo5HK50x3HeQLAxSKyG8Btnue97bqu\ quq3AXwrlUr952g02lPuvEZPkoioHdW6gp5UBxXHcdYAyIyPj58uIo8DGCq6x+\ HOzs4rAWCC84iIZrWaVtCO44xYazcB+Cf8uYPKIIB7VHWJqsYBQESuALAkEolAVQFgtHAP3/\ efTSaTxyc6j4hotqspQQ8NDb3puu5HOqi4rvuPiUTiWlXtSKVShS10Tjabnbdx48Y/lt4jk8kcL/\ q14nlERLNdPS9L2qaqW0VkDXCqgwpOdU/5sBuKqr4QDofv7e/v/\ 96JEyduAdCbSqUuKb3RZM8jIpqN6tnFMSIi84o7qADoKu6g4vv+\ cgAXjY6OHhYR1xgTK3ejyZ5HRDQbBWrfa7lClc4jO1sRypS0aysl7oMmCpaGvw+a0BbJee32/\ avBCjCiQKtrxdSI1laT/RxWEk6P8BXbmaCJAo6VhEREAVX3I45aWlvF4/E3rLX/Y8OGDf+\ erzh8GcD8ShWHDZobEVFbq3sFXUtrKwBbjTHfAABVvR6TqzgkIprV6k7QtbS2MsY8KSKL85d+\ wxizCThVSSgiT0YikZOquhXAxVObDhHRzFH3I44qra225FtbHVDVtwBgeHj4/\ 8Tj8Q8SicTXVTUyNDRUeMczKwmJiCpo6DY7VT1fVe8OhUK/s9b+c/\ ExEXlSVX8G4J6i81lJSERUQUMTtIisAPC87/vvAxgQkZsKx7LZ7A/D4fCjvu9/pOIwFApl8pWE+\ wBcWFqscs+\ 6PY0Mcdq0a3EKEQVXoCrHKrS8Wt2KWGYB7oEmCrimJOh6C1tYqDI9WKRC1B5YqEJEFFBNexdHLBa7w\ BizGcBhALd6nneALa+IiCpr2graGHNTJBK5TFVfBbAGYMsrIqJqmpagx8bGViaTyWPj4+\ OPAFgIsFCFiKiapj3imDt3bg4A5syZI77vZ/PDLFQhIqqgaQk6l8v9pK+vb5nv+\ 1FV3QmwUIWIqJqmJWgR6TfGPKOqB0SkF/\ h4oYqI3NyseIiIgq4dClV2lzs3gOYDeKcFn7urzuu4D5oo4FrS8qpa4UrxuOu6mt15/\ ZebF9mUzWvmh92zbg/Wbt9/YTM/k4iah4UqREQBVXUFHY/\ H94rI9Z7n7UskEpeq6kuqujCVSu3Kd0Z5BUCPtfY/\ 5otQvqqqv1TVW9Pp9MHSlXLp74lE4ixr7VYROQ9AfNpmSUTUhiZaQY8AuA4AVHURgAMAFuV//\ ybynVGMMUlVfTUSifSIyGsi8thkPlxVHxORHblc7rMALqp/GkREM0/VBO04zocJGsA1AO7I/\ 4SqLrHWbs4fu3x8fPyRZDJ5bGxsbJWILJzk5y8EMJDJZI77vr+\ q5uiJiGawqgl6aGjoTQAR13WvBHDS87yficgHiUTiWhHpSKfTr5feZ86cOaKqTum9ent7P1k6pqrqO\ I4BgMJPIiI6ZTK7OLap6lYRWQMAqjoCYBOAlYUTVPXFjo6O+6LR6D/lcrn7ReTl/\ KFsLBZbrKq7jDFPld5YRHb4vr+ir68vo6o/FgnUrj8iopaazKp1RETmWWt/\ BADW2hEAXblc7iOdUQBc4jjOH0TkUhG5PX/\ uDcaYEWPMfgDPlt5YRO4EsMBxnOcKxStERHRKoJas5QpVOo/\ sbEUoZQWxrdXa7fsD9b8hETVOSwpV2lUQkjMTMtHsEfhKwoFlX2peYAHXLg10iagxuHOCiCigalpBJ\ xKJ+aq6QVUvB/C2iNzmed6vYrHYmawkJCJqrJpW0Nbadaq6NxwOzxORH6jqRgBgJSERUePV+\ ojjylAo9ND69etPeJ63LZVKfTE/zkpCIqIGqzVBZ33ft9Xuw0pCIqLGqOkZtIj8AsB90Wh0VSgU+\ rqqfjeVSn2RlYRERI1XU4K21t5ljNkQCoXeVdW3VPVm4FQloeM4T+\ QrCV8vtK4qVBKq6gkA3wXw34rvJyJ3quqTjuMsBnAzgFdKi1WCsLUsiAUqRDTzBWrJWqHl1epWxBJg\ bFVFNEsEvlAlu/P6u5sXWbDlW1wxQRPNEi35Yq5SciYioj9ryAo6Fostzj9rFgB7VXV5Op1+\ 0XXdBao6KCLnAzgmIg8MDw9vLqygWahCRFRZQ1bQIrIFwJajR492GmMeMsZk8oc2AhgA0G2tvUZVB4\ qvY6EKEVFljUrQ9wNY1N3d/\ biqvul53jkAEA6HvyYi56rqU8aYbQBKt0IsBAtViIjKakiC9jwvKSI3qupBAE/\ H43EXALLZ7LMADovIehG5qvQ6FqoQEVXWkKQYj8f3+r7f3dPT87Cqrke+HZaqnm+\ tfc0Y84aqPlh6XVGhyrmq+kojYiEimikakqBVtU9EVhw6dOikiKxS1TgAiMgKEXne9/1fq+\ rrpdex5RURUWWB2u5WoVBldytiKTEfwDstjmFX/if3QRPNEnUl6GqFJo3kuq6uu/\ HIdH9M4OULVAL1f0yJaPrxizkiooCqu1AlFotdkO+ichjArZ7nHYhGoz2O4zwB4GIR2Q3gNs/\ z3q40nn+k8R1VjYvIfGvtDel0+pkGzIuIqO3VvYI2xtwUiUQuU9VXAawBAMdx1gDIjI+\ Pny4ijwMYqjaeF+nq6jqv8Oa7+qdCRDSz1L2CHhsbW+\ l53rHe3t5HIpHIbwFARK4AsCQSiUBVAWC02jgA5HK5RwcHB08CeMZ13fAU5kJENKPUnaDnzp2bA051\ UPF9P5sfdrLZ7LyNGzf+seT0SuPIZDLH642BiGgmqztB53K5n/T19S3zfT+qqjsBQFVfCIfD9/\ b393/vxIkTtwDoTaVSl1Qab9QkiIhmoroTtIj0G2OeUdUDhSIT3/\ eXh0KhzOjo6GER2VforFJpnIiIKgvU3tpyhSqdR3a2IpQPBaXdFfdBE80+Lemo0k7qTc5rt+\ 9fDVb9EdEUNDVBFyoQa2l5NbDsS80LsIHWbt/\ f6hCIqM2x5RURUUBN6wq6UksrtrwiIprYtK6gJ2ppxZZXRESVTfcjjoWo3tJqouNERLPWdK+\ gq7a0YssrIqLKpjUpTtTSii2viIgqm9YvCUXkTlV90nGcxQBuBvDKRMdLi1XuWbdnWmILSgEKEVElg\ druVqHl1epWxFIjFqQQUcO1JEFPtmVWO7S8Cl+\ xnRWDRDQtWKhCRBRQLXkXR2EFHYvFFhtjRlRVAOxV1eXpdPrFVsRERBQ0Ld3aJiJbAGw5evRopzHmI\ WNMppXxEBEFSasT9P0AFnV3dz+uqm96nndOK+MhIgqSliZoz/\ OSInKjqh4E8HQ8HndbGQ8RUZC0NEHH4/G9vu939/\ T0PKyq6wGsbGU8RERB0tIX9qtqn4gMHTp0aIuIqLX2hlbGQ0QUJIHa7lahUGV3Az9iPoB3pniPXWXG\ uA+aiBpuSgnadd2fep73N/l/ly0+magopdrxoBWqsCiFiJppqs+gr57oBBalEBHVp+\ 5n0IXHEcUr4EQicYu1doWInG2tvSGdTj9T3IcQwHdUNS4i8wvHi+53napelUqllk55VkREM0DdK+\ hCUi5eIVtrvyAiC6y1NxhjRspcFunq6jqv9Hg0Gv0EgCUicle98RARzTQN3WbX1dX1oOd57+\ VXxuHS47lc7tHBwcGTpccdx1mpqr/xPC/byHiIiNpZQxP04ODgyWrHM5nM8XLjInIEAF/\ OTERUZEoJWlXtsmXLPj3VIDzP+76InBaLxb4y1XsREc0UU11B/\ zybzR5oSCTAb40xtzToXkREbS9QW+DKFap0Htk55fs2qr3V2u37uQ+\ aiJpmVnTSZnImonYUqBV0qSBVErKKkIiabVasoImI2lFNlYSJRGK+\ qm5Q1csBvC0it3me9yvXdReo6qCInA/\ gmIg8MDw8vNl1XRWRmKoOArgfQATASmvt36XT6Wei0WiP4zhPALhYRHYDuM3zvLcbPUkionZU0wraW\ rtOVfeGw+F5IvIDVd2YP7QRwACAbmvtNao6ULhGVR1r7X9V1b9X1d9Za/+\ uUEXoOM4aAJnx8fHTReRxAEMNmhcRUdur9V0cV4ZCodvWr19/AsC2/H8QDoe/\ ls1ml6rqt4wxX0ZR0cnY2NjmTZs2jbmu+/k//\ elPz23btm3cdd0wAIjIFQCWRCIRqCoAjDZkVkREM0CtCTrr+7792GA2+\ yyALSKyXkQOqOpbhWObNm36oPDvbdu2jZdc6mSz2XkbN278Y41xEBHNeDUlaBH5BYD7otHoqlAo9HV\ V/W4qlfqiqp6vqneHQqHfWWv/ebL3U9UXwuHwvf39/\ d87ceLELQB6U6nUJTXOgYhoRqopQVtr7zLGbAiFQu+q6luqejMAiMgKAM/7vv8+gAERuWky9/\ N9f3koFMqMjo4eFpF9AC4sLVa5Z92eWkL8mEYVqRARNVug9kFXaHm1uhWxlME90ETUVDWtoCdqX9WI\ +xSPu66r2Z3X3z3Vz5uqfJEKEVFTsVCFiCigyq6gY7HYYmPMiKoKgL2qujydTr8IlG9rFYvFzjTGbA\ bwVVX9paremk6nD5aulEt/\ TyQSZ1lrt4rIeQDi0zxXIqK2UnYFLSJbAGw5evRopzHmIWNMpnCsXFsrY0xSVV+\ NRCI9IvKaiDw2mQ9X1cdEZEcul/ssgIsaMSEiopmiUoK+H8Ci7u7ux1X1Tc/\ zzikcq9DW6vLx8fFHksnksbGxsVUisnCSn78QwEAmkznu+/\ 6qKcyDiGjGKZugPc9LisiNqnoQwNPxeNwtHKvQ1urD+\ 8yZM0dU1Sk9obe395OlY6qqjuMYACj8JCKiU8omxXg8vtf3/\ e6enp6HVXU9gJXVbqKqL3Z0dNwXjUY/kcvl7heRl/OHsrFYbHFfX9+nOjo6flh6nYjs8H1/\ RV9f37mq+srUp0NENHOUTdCq2iciKw4dOnRSRFapatUv8HzfXw7gEsdx/\ iAil4rI7QBQeE5tjNkP4NnS60TkTgALHMd5TkR6GzAfIqIZo+\ GFKhPtla503HXdnwK4unTc87zdUwxpPoB36rhuV8nvLFQhoqaq9WVJE5pCIcvVpdfmC1W+\ 3ICw5tVyMrunEFEQ1JygJ3oJf2GFHI1G/\ zIUCo0AOEtVfyAi6woJuHQvtTHm6cK9G1GpSEQ0E9S1c6LaS/gL8i/\ j3xGJRM4Rkb8qPla6l7qQlJmciYj+rK4EPTY2tjmdTv9aRD5/\ 9OjR50r2RBdcCeCRZDJ5zHGch4sPVNhLTURERep6Bj3BS/gBACKSK/zb9/\ 2P7IuusJeaiIiKTGdxyPOqeu/\ SpUvPBvDjiU5WVbts2bJPT2M8RERtZdoSdC6XuxvAZb7v7wSwWlUnWjX/\ PJvNHpiueIiI2s20fymXbxDbC+B2z/\ NqeiGS67q67sYj0xNYFdxmR0RB0PB90AWu625Q1cUA5gLYY62NTeKaj3VUqbflFVtdEVG7C9S2tnIJ\ uvPIzqbGsHb7/kD9d0JEs1dLktFkC1Ka/\ YjjnnV7mKCJKDD4ik8iooCquWnsBGXeC1R1UETOB3BMRB4YHh7eXKm1VTQa7XEc5wkAF4vIbgC3eZ7\ 3duOmR0TUvmpeQU9Q5r0RwACAbmvtNao6kL+mbGurfDl4Znx8/\ HQReRzA0NSnREQ0M9ScoKuVeYfD4a+JyLmq+\ pQxZhuAwjaKhSjT2kpErhCRJyORyElV3Qrg4qlPiYhoZqh5m121Mu9sNvssgC0isl5EDqjqW8Cp1la\ hUKhcaysnm83O27hx4x/rC5+IaOZq6JeEqnq+tfY1Y8wbqvpgYbxSaytVfSEcDt/b399/\ WjweT8Tjcba9IiLKa2ihioisAPC87/\ vvAxgQkZvy43eq6pOO4ywGcDOAV4BTrbJCoVBmdHT0sIjsA3Bh6V7oegpVWKRCRDNBoPb8litU8Txv\ dZPDYIk3EQXCpBN0K7qdNLtQhe/gIKIgYaEKEVFA1dOT8DpVvSqVSi3NP5L4jqrGRWS+\ tfaGdDr9TCwWO9MYsxnAV1X1l6p6azqdPhiPx/eKyPWe5+1LJBKXqupLqrowlUrtSiQSn8t/\ gdjjeV624TMlImozNa2go9HoJwAsEZG7ioYjXV1d5xX6CwKAMSapqq9GIpEeEXlNRB7LnzsC4DoAUN\ VFAA4AWJT//ZsAtjI5ExGdUlOCdhxnpar+pjiJ5nK5RwcHB0+W9Be8fHx8/JFkMnlsbGxslYgszF//\ YYIGcA2AO/I/oapLrLWbpzgfIqIZo6YELSJH8OfqQABAJpM5Xu2+c+\ bMEVV1AGBoaOhNABHXda8EcNLzvJ+\ JyAeJROJaEelIp9Ov1z4FIqKZqaYE7Xne90XktFgs9pVq56nqix0dHfdFo9FP5HK5+0Xk5aLD2/\ Jl3dvz546o6iYAm2qOnohoBqtnF8dvjTG3VDvB9/\ 3lAC5xHOcPInKpiNxedHhEROZZa38EANbaEQBduVxuSx2xEBHNWO1QqLK7jlvNB/\ BOHdftAvdBE1FABCpBl2pmoQqLVIgoaFioQkQUUA19WVIsFltsjBlRVQGwV1WXp9PpFyt1TmFHFSKi\ yhq6ghaRLQC2HD16tNMY85AxJgNU7pzCjipERJU1+nWj9wP4Xnd39+OqmvQ875z8+\ BUAlkQiEagqAIxWGyciogYnaM/zkolEYp+19mIReToejz+aSqWGUblzCjuqEBFV0NBHHPF4fK/v+\ 909PT0Pq+p6ACuByp1T2FGFiKiyhq6gVbVPRIYOHTq0RUTUWnsD8PHOKSJyc7VxIiIK2D7ocoUqnUd\ 21nSPettdrd2+n/\ ugiShQDAC4rvvTwkC5JNlIle5fHMNUTKEXIZMzEQVK4RHH1S2N4pSrS1tqua6rA8u+\ NO0fXE9jWiKi6RYqrGiLew4mEolbrLUrROTsibqklPYqLPwejUb/MhQKjQA4S1V/\ ICLrKt3fGPN0aQxERLOdKSTE4sRorf2CiCyYZJeUsvJFKDsikcg5IvJXxcdK718uBiKi2a7sNruurq\ 4HPc97bzJdUqq4EsAjyWTymOM4D0/i/kREVKRsgh4cHDxZ7dziLinFent7P1n4t4jkCv/\ 2ff8j51a4PxERFTEAoKp22bJln652YpUuKdlYLLa4r6/\ vUx0dHT8suuR5Vb136dKlZwP48USBTCYGIqLZpLAq/\ nk2mz1Q7cRKXVIKz5GNMfsBPFs4P5fL3Q3gMt/3dwJYraoTrZonjIGIaDaZ9i/lXNcNA+\ gFcLvneRdNcG4rC1X4BSURBUpDS72Lua67QVUXA5gLYI+\ 1NlbPffIVfjX5zf6jtV7CIhUiCpyWrBonu9+5GS2v2OqKiIKKLa+\ IiAJq2h5xFEskEmdZa7eKyHkA4oXxStWJzYiJiCjomrKCVtXHRGRHLpf7LIAPvyistTqRiGg2adYjj\ oUABjKZzHHf91cVjddanUhENGs0awWtjuMYACj8LP38StWJRESzVVMStIjs8H1/RV9f37mq+\ mFbqyrViUREs16zEvSdABY4jvOciPQWxitVJxIRUUBaXlXr4uJ5Xi2FKn8NYFcdIUzLPuh2fr91O8c\ OMP5WaufYgfaPv2lqbb81m84PUiw8v7XnBykWnt/\ Y81moQkQUUC1fxk93k1oionbExyxERERERERERERENJ0C9xDadd0FqvqUiMwHsE9Vl6dSqXr2Nk8r1\ 3UvBrBeVT8PYJ+IuJ7n/apS/EGcl+\ u61wD4SeHLiHaJvbe3tzMSiaxV1SUickRVY9XiDFr8iURioaquUdXPicibInLn8PDwy0GOPxaLnSki\ r6VSqTMKY7XG28p5VIg/8H/Dgdtmp6r/ICKP5nK5TwN4SkS+3eqYKngCwP8aHx//lIh4+d8rxh+\ 0efX29nYC+MfisXaJPRKJrABwWETOFJF/EJF0tTiDFr+19n+LSFxE/gOAO1R1a7U4Wx1/\ LBZbbIz5hYh8pni81nhbNY9K8aMN/oYDl6ABXBSJRP4l/+\ a7DQAuaHVA5Xie93nP857btGnTB3Pnzt0EYH7+UKX4AzWvjo6OB1T1yZLhtohdVa+31m73PO/\ 94eHhH3me97kJ4gxU/CJy0lqrZ5xxhlprxwGM5w8FMn4RcX3fv6bMoVrjbck8KsXfDn/\ DgUvQInJ6Mpk8DgDHjh07DOCMCS5puffff/8yAD8GKscfpHktXbr0bBH5Rmdn56PF4+\ 0Qez6es40x18bj8ffi8fgbsVjsgmpxBi1+VY2JyEvvvvtu1hjzqrU2Wi3OVsefSqX++4YNG/\ 69dLzWeFs1j0rxFwvq33DgEjSA7IMPPlj8bDzQhSx9fX2fstYuB/D3+\ aFK8QdmXr7vrwHwP5PJ5FjJocDHnhdW1SNdXV2fEZG7RCSVH2+L+EXkEVW9LhKJdIrIN40xD+\ cPtUX8RWqNN5DzCPLfcBAT9O8PHjz4SQDo7u7uBvD/WhxPRXfcccdnHMdJ+r6/3PO89/LDleIP0rz+\ BsC/Fqo4i6o52yF2qOrvOzs7Nw4ODp4E8JKIfCF/qF3iP7enp+f5ZDI5Njo6ukNVv5I/\ 1BbxF6k13sDNI+h/w0FM0P9mjPlWf3//aap6E4BftTqgcmKx2FW5XO6Hvu9/O5PJ/N+\ iQ5XiD8y8PM+Twn8Kv08QY2BiBwAR+dcPPvjgb13XDYvIQlV9fYI4gxb/a+++++5/6e/vP+\ 200067XER2TxBnoOIvUmu8gZpHO/wNN6VpbC3y/+/qv5w4cWJQRA4BuLHVMZVjjPEA/\ CfHcX7vui6AU4muUvztMK92iX1sbOy+SCSSVtVHVfVtY8y3qsUZtPiNMUuttZnR0dELROQ3xpjCM+\ i2iL+g1niDNo+Z+DdMRERERDS7/X/u9uftH9/RbgAAAABJRU5ErkJggg==\",\"boundingBox\":{\ \"width\":360,\"height\":212,\"baseline\":109}},\"plotRange\":[0,1,0,1],\"\ requestedImageSize\":[\"Automatic\",\"Automatic\"]}", AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, False}, AxesLabel->{None, None}, AxesOrigin->{0., 0.13851851851851854`}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{{{1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {1., FormBox["\"do\"", TraditionalForm], 0}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {2., FormBox["\"thought\"", TraditionalForm], 0}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {3., FormBox["\"see\"", TraditionalForm], 0}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {4., FormBox["\"know\"", TraditionalForm], 0}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {5., FormBox["\"made\"", TraditionalForm], 0}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {6., FormBox["\"might\"", TraditionalForm], 0}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {7., FormBox["\"should\"", TraditionalForm], 0}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {8., FormBox["\"came\"", TraditionalForm], 0}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {9., FormBox["\"think\"", TraditionalForm], 0}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {10., FormBox["\"is\"", TraditionalForm], 0}, {11., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {11., FormBox["\"did\"", TraditionalForm], 0}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {12., FormBox["\"been\"", TraditionalForm], 0}, {13., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {13., FormBox["\"said\"", TraditionalForm], 0}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {14., FormBox["\"could\"", TraditionalForm], 0}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {15., FormBox["\"would\"", TraditionalForm], 0}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {16., FormBox["\"be\"", TraditionalForm], 0}, {17., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {17., FormBox["\"have\"", TraditionalForm], 0}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {18., FormBox["\"were\"", TraditionalForm], 0}, {19., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {19., FormBox["\"had\"", TraditionalForm], 0}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {20., FormBox["\"was\"", 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.683906488635247*^9}] }, Open ]], Cell["Show the distribution of sentence lengths:", "Text", CellChangeTimes->{{3.683033608693839*^9, 3.683033616124875*^9}, 3.683375606199028*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"sentences", "=", RowBox[{"TextSentences", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{ RowBox[{"(", RowBox[{"Length", "/@", RowBox[{"(", RowBox[{"TextWords", "/@", "sentences"}], ")"}]}], ")"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.6830333795804577`*^9, 3.683033425254339*^9}, { 3.6830334646198807`*^9, 3.6830335879807243`*^9}, 3.683035622565227*^9, 3.683906767370657*^9}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.7], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {5., 158}, "RoundingRadius" -> 0]}, ImageSizeCache->{{26.230392156862745`, 34.830882352941174`}, {-6.25116519960855, 92.17711255739725}}], StatusArea[#, 158]& , TagBoxNote->"158"], StyleBox["158", {}, StripOnInput -> False]], Annotation[#, Style[158, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0}, {10., 254}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.330882352941174`, 42.93137254901961}, {-65.75189092538422, 92.17711255739725}}], StatusArea[#, 254]& , TagBoxNote->"254"], StyleBox["254", {}, StripOnInput -> False]], Annotation[#, Style[254, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {15., 313}, "RoundingRadius" -> 0]}, ImageSizeCache->{{42.43137254901961, 51.03186274509804}, {-102.32004527768386`, 92.17711255739725}}], StatusArea[#, 313]& , TagBoxNote->"313"], StyleBox["313", {}, StripOnInput -> False]], Annotation[#, Style[313, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{15., 0}, {20., 276}, "RoundingRadius" -> 0]}, ImageSizeCache->{{50.53186274509804, 59.13235294117648}, {-79.38747390420782, 92.17711255739725}}], StatusArea[#, 276]& , TagBoxNote->"276"], StyleBox["276", {}, StripOnInput -> False]], Annotation[#, Style[276, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20., 0}, {25., 231}, "RoundingRadius" -> 0]}, ImageSizeCache->{{58.63235294117648, 67.2328431372549}, {-51.496508720250475`, 92.17711255739725}}], StatusArea[#, 231]& , TagBoxNote->"231"], StyleBox["231", {}, StripOnInput -> False]], Annotation[#, Style[231, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{25., 0}, {30., 226}, "RoundingRadius" -> 0]}, ImageSizeCache->{{66.7328431372549, 75.33333333333333}, {-48.397512588699655`, 92.17711255739725}}], StatusArea[#, 226]& , TagBoxNote->"226"], StyleBox["226", {}, StripOnInput -> False]], Annotation[#, Style[226, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{30., 0}, {35., 164}, "RoundingRadius" -> 0]}, ImageSizeCache->{{74.83333333333333, 83.43382352941177}, {-9.96996055746952, 92.17711255739725}}], StatusArea[#, 164]& , TagBoxNote->"164"], StyleBox["164", {}, StripOnInput -> False]], Annotation[#, Style[164, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{35., 0}, {40., 174}, "RoundingRadius" -> 0]}, ImageSizeCache->{{82.93382352941177, 91.53431372549021}, {-16.16795282057116, 92.17711255739725}}], StatusArea[#, 174]& , TagBoxNote->"174"], StyleBox["174", {}, StripOnInput -> False]], Annotation[#, Style[174, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{40., 0}, {45., 142}, "RoundingRadius" -> 0]}, ImageSizeCache->{{91.03431372549021, 99.63480392156863}, { 3.6656224213540725`, 92.17711255739725}}], StatusArea[#, 142]& , TagBoxNote->"142"], StyleBox["142", {}, StripOnInput -> False]], Annotation[#, Style[142, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{45., 0}, {50., 88}, "RoundingRadius" -> 0]}, ImageSizeCache->{{99.13480392156863, 107.73529411764706`}, { 37.13478064210288, 92.17711255739725}}], StatusArea[#, 88]& , TagBoxNote->"88"], StyleBox["88", {}, StripOnInput -> False]], Annotation[#, Style[88, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{50., 0}, {55., 72}, "RoundingRadius" -> 0]}, ImageSizeCache->{{107.23529411764706`, 115.8357843137255}, { 47.0515682630655, 92.17711255739725}}], StatusArea[#, 72]& , TagBoxNote->"72"], StyleBox["72", {}, StripOnInput -> False]], Annotation[#, Style[72, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{55., 0}, {60., 58}, "RoundingRadius" -> 0]}, ImageSizeCache->{{115.3357843137255, 123.93627450980392`}, { 55.72875743140778, 92.17711255739725}}], 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[{60., 0}, {65., 34}, "RoundingRadius" -> 0]}, ImageSizeCache->{{123.43627450980392`, 132.03676470588235`}, { 70.60393886285169, 92.17711255739725}}], 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[{65., 0}, {70., 41}, "RoundingRadius" -> 0]}, ImageSizeCache->{{131.53676470588235`, 140.13725490196077`}, { 66.26534427868056, 92.17711255739725}}], StatusArea[#, 41]& , TagBoxNote->"41"], StyleBox["41", {}, StripOnInput -> False]], Annotation[#, Style[41, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{70., 0}, {75., 29}, "RoundingRadius" -> 0]}, ImageSizeCache->{{139.63725490196077`, 148.23774509803923`}, { 73.70293499440251, 92.17711255739725}}], StatusArea[#, 29]& , TagBoxNote->"29"], StyleBox["29", {}, StripOnInput -> False]], Annotation[#, Style[29, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{75., 0}, {80., 32}, "RoundingRadius" -> 0]}, ImageSizeCache->{{147.73774509803923`, 156.33823529411765`}, { 71.84353731547202, 92.17711255739725}}], StatusArea[#, 32]& , TagBoxNote->"32"], StyleBox["32", {}, StripOnInput -> False]], Annotation[#, Style[32, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{80., 0}, {85., 15}, "RoundingRadius" -> 0]}, ImageSizeCache->{{155.83823529411765`, 164.43872549019608`}, { 82.3801241627448, 92.17711255739725}}], StatusArea[#, 15]& , TagBoxNote->"15"], StyleBox["15", {}, StripOnInput -> False]], Annotation[#, Style[15, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{85., 0}, {90., 17}, "RoundingRadius" -> 0]}, ImageSizeCache->{{163.93872549019608`, 172.5392156862745}, { 81.14052571012448, 92.17711255739725}}], StatusArea[#, 17]& , TagBoxNote->"17"], StyleBox["17", {}, StripOnInput -> False]], Annotation[#, Style[17, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{90., 0}, {95., 15}, "RoundingRadius" -> 0]}, ImageSizeCache->{{172.0392156862745, 180.63970588235293`}, { 82.3801241627448, 92.17711255739725}}], StatusArea[#, 15]& , TagBoxNote->"15"], StyleBox["15", {}, StripOnInput -> False]], Annotation[#, Style[15, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{95., 0}, {100., 13}, "RoundingRadius" -> 0]}, ImageSizeCache->{{180.13970588235293`, 188.74019607843135`}, { 83.61972261536513, 92.17711255739725}}], StatusArea[#, 13]& , TagBoxNote->"13"], StyleBox["13", {}, StripOnInput -> False]], Annotation[#, Style[13, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{100., 0}, {105., 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{188.24019607843135`, 196.8406862745098}, { 88.57811642584643, 92.17711255739725}}], 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[{105., 0}, {110., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{196.3406862745098, 204.94117647058823`}, { 90.43751410477692, 92.17711255739725}}], 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[{110., 0}, {115., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{204.44117647058823`, 213.04166666666666`}, { 89.1979156521566, 92.17711255739725}}], 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[{115., 0}, {120., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{212.54166666666666`, 221.14215686274508`}, { 89.81771487846676, 92.17711255739725}}], 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[{120., 0}, {125., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{220.64215686274508`, 229.2426470588235}, { 90.43751410477692, 92.17711255739725}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{125., 0}, {130., 6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{228.7426470588235, 237.34313725490196`}, { 87.95831719953627, 92.17711255739725}}], 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[{130., 0}, {135., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{236.84313725490196`, 245.4436274509804}, { 89.1979156521566, 92.17711255739725}}], 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[{135., 0}, {140., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{244.9436274509804, 253.5441176470588}, { 91.05731333108709, 92.17711255739725}}], 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[{140., 0}, {145., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{253.0441176470588, 261.64460784313724`}, { 91.05731333108709, 92.17711255739725}}], 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[{155., 0}, {160., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{277.34558823529414`, 285.9460784313726}, { 90.43751410477692, 92.17711255739725}}], 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., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{293.546568627451, 302.14705882352945`}, { 90.43751410477692, 92.17711255739725}}], 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[{170., 0}, {175., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{301.64705882352945`, 310.24754901960785`}, { 90.43751410477692, 92.17711255739725}}], 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[{180., 0}, {185., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{317.8480392156863, 326.44852941176475`}, { 91.05731333108709, 92.17711255739725}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{185., 0}, {190., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{325.94852941176475`, 334.54901960784315`}, { 91.05731333108709, 92.17711255739725}}], 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[{190., 0}, {195., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{334.04901960784315`, 342.6495098039216}, { 91.05731333108709, 92.17711255739725}}], 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[{195., 0}, {200., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{342.1495098039216, 350.75}, {91.05731333108709, 92.17711255739725}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-4., 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0., 200.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.683906773846725*^9}] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{775, 873}, WindowMargins->{{136, Automatic}, {Automatic, 0}}, WindowTitle->"Examples for Cranford", Visible->True, DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, Background->GrayLevel[0.9999], FrontEndVersion->"13.2 for Mac OS X x86 (64-bit) (November 18, 2022)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[615, 23, 36, 0, 70, "Subsection",ExpressionUUID->"5cffbea8-6d48-4348-a583-685bda6fe760"], Cell[654, 25, 215, 3, 70, "Text",ExpressionUUID->"b0c9642e-c86b-482d-b2cf-3e0fd684c4e8"], Cell[CellGroupData[{ Cell[894, 32, 205, 3, 70, "Input",ExpressionUUID->"abb31f40-a4e0-48e9-9704-bcfaea734561"], Cell[1102, 37, 14315, 319, 70, "Output",ExpressionUUID->"46b9733a-2a82-42ad-a45a-84e375c3c74a"] }, Open ]], Cell[15432, 359, 204, 3, 70, "Text",ExpressionUUID->"95518818-822c-4208-82f8-cc12e618e983"], Cell[CellGroupData[{ Cell[15661, 366, 381, 9, 70, "Input",ExpressionUUID->"e166252d-1d5c-4736-82a6-214536c009f0"], Cell[16045, 377, 446, 7, 70, "Output",ExpressionUUID->"ac608153-d0c2-47e0-837f-4a2238b2a1e6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16540, 390, 35, 0, 70, "Subsection",ExpressionUUID->"3f1cce06-d2c7-4fa1-a72a-cc479aca0baf"], Cell[16578, 392, 293, 4, 70, "Text",ExpressionUUID->"25ca64cd-0356-446e-8349-2c37b9dfa3f9"], Cell[CellGroupData[{ Cell[16896, 400, 598, 15, 70, "Input",ExpressionUUID->"3a8dbc3e-127e-4015-bae8-ed00acea4de7"], Cell[17497, 417, 45910, 1061, 70, "Output",ExpressionUUID->"c1691bac-4f17-43cf-84b7-554f46226e62"] }, Open ]], Cell[63422, 1481, 150, 2, 70, "Text",ExpressionUUID->"27f8ddba-bfdf-41ed-a7ea-ba19bf34567c"], Cell[CellGroupData[{ Cell[63597, 1487, 673, 17, 70, "Input",ExpressionUUID->"5079ce89-04f2-4fc1-9370-7faaa858c8bd"], Cell[64273, 1506, 23160, 673, 70, "Output",ExpressionUUID->"222b5e18-210a-431f-bbfb-6b98d321b820"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)