(* 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[ 62022, 1660] NotebookOptionsPosition[ 60396, 1619] NotebookOutlinePosition[ 60965, 1642] CellTagsIndexPosition[ 60922, 1639] WindowTitle->Examples for Our Mutual Friend WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell["Retrieve the text:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}, {3.886239770389121*^9, 3.886239774963513*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", "20", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, { 3.683386681373057*^9, 3.683386687202721*^9}, {3.7029099882070827`*^9, 3.702909996456086*^9}}], Cell[BoxData["\<\"In these times of ours, though concerning the exact year \ there is no\\nneed to be precise, a boat of dirty and disreputable \ appearance, with\\ntwo figures in it, floated on the Thames, between \ Southwark bridge which\\nis of iron, and London Bridge which is of stone, as \ an autumn evening\\nwas closing in.\"\>"], "Output", CellChangeTimes->{{3.6833866658903*^9, 3.683386694123818*^9}, { 3.702909992101121*^9, 3.7029099973295507`*^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.683385198322204*^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.6833867454438972`*^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}, {480., 1.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 79.45}, {78.07361672679984, 87.50335127183212}}], StatusArea[#, 480]& , TagBoxNote->"480"], StyleBox["480", {}, StripOnInput -> False]], Annotation[#, Style[480, {}], "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`}, {495., 2.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 81.05}, {68.42950341816498, 77.85923796319726}}], StatusArea[#, 495]& , TagBoxNote->"495"], StyleBox["495", {}, StripOnInput -> False]], Annotation[#, Style[495, {}], "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}, {496., 3.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 81.15666666666667}, { 58.785390109530134`, 68.2151246545624}}], StatusArea[#, 496]& , TagBoxNote->"496"], StyleBox["496", {}, StripOnInput -> False]], Annotation[#, Style[496, {}], "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}, {501., 4.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 81.69}, {49.14127680089529, 58.57101134592755}}], StatusArea[#, 501]& , TagBoxNote->"501"], StyleBox["501", {}, StripOnInput -> False]], Annotation[#, Style[501, {}], "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}, {524., 5.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 84.14333333333333}, { 39.497163492260434`, 48.9268980372927}}], StatusArea[#, 524]& , TagBoxNote->"524"], StyleBox["524", {}, StripOnInput -> False]], Annotation[#, Style[524, {}], "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}, {549., 6.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 86.81}, {29.853050183625584`, 39.28278472865785}}], StatusArea[#, 549]& , TagBoxNote->"549"], StyleBox["549", {}, StripOnInput -> False]], Annotation[#, Style[549, {}], "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}, {647., 7.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 97.26333333333334}, { 20.208936874990727`, 29.638671420023}}], StatusArea[#, 647]& , TagBoxNote->"647"], StyleBox["647", {}, StripOnInput -> False]], Annotation[#, Style[647, {}], "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}, {682., 8.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 100.99666666666667`}, { 10.56482356635587, 19.994558111388145`}}], StatusArea[#, 682]& , TagBoxNote->"682"], StyleBox["682", {}, StripOnInput -> False]], Annotation[#, Style[682, {}], "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}, {784., 9.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 111.87666666666667`}, { 0.9207102577210264, 10.350444802753287`}}], StatusArea[#, 784]& , TagBoxNote->"784"], StyleBox["784", {}, StripOnInput -> False]], Annotation[#, Style[784, {}], "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}, {798., 10.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 113.37}, {-8.72340305091383, 0.7063314941184302}}], StatusArea[#, 798]& , TagBoxNote->"798"], StyleBox["798", {}, StripOnInput -> False]], Annotation[#, Style[798, {}], "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`}, {814., 11.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 115.07666666666667`}, {-18.367516359548688`, -8.937781814516413}}], StatusArea[#, 814]& , TagBoxNote->"814"], StyleBox["814", {}, StripOnInput -> False]], Annotation[#, Style[814, {}], "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`}, {821., 12.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 115.82333333333334`}, {-28.01162966818353, -18.58189512315127}}], StatusArea[#, 821]& , TagBoxNote->"821"], StyleBox["821", {}, StripOnInput -> False]], Annotation[#, Style[821, {}], "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`}, {878., 13.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 121.90333333333334`}, {-37.655742976818374`, \ -28.226008431786127`}}], StatusArea[#, 878]& , TagBoxNote->"878"], StyleBox["878", {}, StripOnInput -> False]], Annotation[#, Style[878, {}], "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`}, {911., 14.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 125.42333333333335`}, {-47.299856285453245`, \ -37.870121740420984`}}], StatusArea[#, 911]& , TagBoxNote->"911"], StyleBox["911", {}, StripOnInput -> False]], Annotation[#, Style[911, {}], "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`}, {1840., 15.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 224.51666666666668`}, {-56.94396959408809, -47.51423504905583}}], StatusArea[#, 1840]& , TagBoxNote->"1840"], StyleBox["1840", {}, StripOnInput -> False]], Annotation[#, Style[1840, {}], "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`}, {1898., 16.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 230.70333333333335`}, {-66.58808290272296, -57.15834835769067}}], StatusArea[#, 1898]& , TagBoxNote->"1898"], StyleBox["1898", {}, StripOnInput -> False]], Annotation[#, Style[1898, {}], "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`}, {2022., 17.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 243.93}, {-76.2321962113578, -66.80246166632554}}], StatusArea[#, 2022]& , TagBoxNote->"2022"], StyleBox["2022", {}, StripOnInput -> False]], Annotation[#, Style[2022, {}], "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`}, {2168., 18.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 259.50333333333333`}, {-85.87630951999267, -76.44657497496038}}], StatusArea[#, 2168]& , TagBoxNote->"2168"], StyleBox["2168", {}, StripOnInput -> False]], Annotation[#, Style[2168, {}], "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`}, {2183., 19.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 261.10333333333335`}, {-95.52042282862752, -86.09068828359523}}], StatusArea[#, 2183]& , TagBoxNote->"2183"], StyleBox["2183", {}, StripOnInput -> False]], Annotation[#, Style[2183, {}], "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`}, {2938., 20.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.749999999999996`, 341.6366666666667}, {-105.16453613726236`, -95.73480159223007}}], StatusArea[#, 2938]& , TagBoxNote->"2938"], StyleBox["2938", {}, StripOnInput -> False]], Annotation[#, Style[2938, {}], "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["\<\"being\"\>", Offset[{-2., 0.}, {0., 1.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"has\"\>", Offset[{-2., 0.}, {0., 2.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"don't\"\>", Offset[{-2., 0.}, {0., 3.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"come\"\>", Offset[{-2., 0.}, {0., 4.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"could\"\>", Offset[{-2., 0.}, {0., 5.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"will\"\>", Offset[{-2., 0.}, {0., 6.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"say\"\>", Offset[{-2., 0.}, {0., 7.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"am\"\>", Offset[{-2., 0.}, {0., 8.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"know\"\>", Offset[{-2., 0.}, {0., 8.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"are\"\>", Offset[{-2., 0.}, {0., 9.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"do\"\>", 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["\<\"would\"\>", Offset[{-2., 0.}, {0., 12.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"were\"\>", Offset[{-2., 0.}, {0., 13.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"is\"\>", Offset[{-2., 0.}, {0., 14.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"had\"\>", 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["\<\"said\"\>", Offset[{-2., 0.}, {0., 18.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"be\"\>", 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]}, 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["\"being\"", TraditionalForm], 0}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {2., FormBox["\"has\"", TraditionalForm], 0}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {3., FormBox["\"don't\"", TraditionalForm], 0}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {4., FormBox["\"come\"", TraditionalForm], 0}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {5., FormBox["\"could\"", TraditionalForm], 0}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {6., FormBox["\"will\"", TraditionalForm], 0}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {7., FormBox["\"say\"", TraditionalForm], 0}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {8., FormBox["\"am\"", TraditionalForm], 0}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {9., FormBox["\"know\"", TraditionalForm], 0}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {10., FormBox["\"are\"", TraditionalForm], 0}, {11., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {11., FormBox["\"do\"", 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["\"would\"", TraditionalForm], 0}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {14., FormBox["\"were\"", TraditionalForm], 0}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {15., FormBox["\"is\"", TraditionalForm], 0}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {16., FormBox["\"had\"", 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["\"said\"", TraditionalForm], 0}, {19., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {19., FormBox["\"be\"", 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.683386819824748*^9}] }, Open ]], Cell["Compare word lengths:", "Text", CellChangeTimes->{{3.683033608693839*^9, 3.683033641819641*^9}, 3.6833802022113237`*^9, {3.683380323142227*^9, 3.683380325019231*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"words", "=", RowBox[{"TextWords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{ RowBox[{"(", RowBox[{"StringLength", "/@", "words"}], ")"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.6830333795804577`*^9, 3.683033425254339*^9}, { 3.6830334646198807`*^9, 3.6830335879807243`*^9}, {3.683033646860409*^9, 3.683033691272203*^9}, 3.683035619972542*^9, 3.683386989879121*^9}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.693], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.693], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {2., 13893}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.0238190552442, 44.556337377594396`}, { 53.10136227287032, 88.66066391143306}}], StatusArea[#, 13893]& , TagBoxNote->"13893"], StyleBox["13893", {}, StripOnInput -> False]], Annotation[#, Style[13893, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {3., 61533}, "RoundingRadius" -> 0]}, ImageSizeCache->{{44.056337377594396`, 50.58885569994459}, {-67.11926178680932, 88.66066391143306}}], StatusArea[#, 61533]& , TagBoxNote->"61533"], StyleBox["61533", {}, StripOnInput -> False]], Annotation[#, Style[61533, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0}, {4., 74425}, "RoundingRadius" -> 0]}, ImageSizeCache->{{50.08885569994459, 56.62137402229477}, {-99.65251714737587, 88.66066391143306}}], StatusArea[#, 74425]& , TagBoxNote->"74425"], StyleBox["74425", {}, StripOnInput -> False]], Annotation[#, Style[74425, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {5., 62408}, "RoundingRadius" -> 0]}, ImageSizeCache->{{56.12137402229477, 62.65389234464496}, {-69.32734419764517, 88.66066391143306}}], StatusArea[#, 62408]& , TagBoxNote->"62408"], StyleBox["62408", {}, StripOnInput -> False]], Annotation[#, Style[62408, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0}, {6., 33060}, "RoundingRadius" -> 0]}, ImageSizeCache->{{62.15389234464496, 68.68641066699516}, { 4.7330016231667145`, 88.66066391143306}}], StatusArea[#, 33060]& , TagBoxNote->"33060"], StyleBox["33060", {}, StripOnInput -> False]], Annotation[#, Style[33060, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0}, {7., 25997}, "RoundingRadius" -> 0]}, ImageSizeCache->{{68.18641066699516, 74.71892898934534}, { 22.556642843433664`, 88.66066391143306}}], StatusArea[#, 25997]& , TagBoxNote->"25997"], StyleBox["25997", {}, StripOnInput -> False]], Annotation[#, Style[25997, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7., 0}, {8., 19948}, "RoundingRadius" -> 0]}, ImageSizeCache->{{74.21892898934534, 80.75144731169553}, { 37.821431989886264`, 88.66066391143306}}], StatusArea[#, 19948]& , TagBoxNote->"19948"], StyleBox["19948", {}, StripOnInput -> False]], Annotation[#, Style[19948, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8., 0}, {9., 13520}, "RoundingRadius" -> 0]}, ImageSizeCache->{{80.25144731169553, 86.78396563404571}, { 54.04263626057519, 88.66066391143306}}], StatusArea[#, 13520]& , TagBoxNote->"13520"], StyleBox["13520", {}, StripOnInput -> False]], Annotation[#, Style[13520, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9., 0}, {10., 10016}, "RoundingRadius" -> 0]}, ImageSizeCache->{{86.28396563404571, 92.8164839563959}, { 62.88505999493954, 88.66066391143306}}], StatusArea[#, 10016]& , TagBoxNote->"10016"], StyleBox["10016", {}, StripOnInput -> False]], Annotation[#, Style[10016, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {11., 5322}, "RoundingRadius" -> 0]}, ImageSizeCache->{{92.3164839563959, 98.8490022787461}, { 74.73047580804064, 88.66066391143306}}], StatusArea[#, 5322]& , TagBoxNote->"5322"], StyleBox["5322", {}, StripOnInput -> False]], Annotation[#, Style[5322, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{11., 0}, {12., 2851}, "RoundingRadius" -> 0]}, ImageSizeCache->{{98.3490022787461, 104.88152060109628`}, { 80.96610053624107, 88.66066391143306}}], StatusArea[#, 2851]& , TagBoxNote->"2851"], StyleBox["2851", {}, StripOnInput -> False]], Annotation[#, Style[2851, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12., 0}, {13., 1775}, "RoundingRadius" -> 0]}, ImageSizeCache->{{104.38152060109628`, 110.91403892344647`}, { 83.68141102088035, 88.66066391143306}}], StatusArea[#, 1775]& , TagBoxNote->"1775"], StyleBox["1775", {}, StripOnInput -> False]], Annotation[#, Style[1775, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{13., 0}, {14., 969}, "RoundingRadius" -> 0]}, ImageSizeCache->{{110.41403892344647`, 116.94655724579667`}, { 85.71537036160457, 88.66066391143306}}], StatusArea[#, 969]& , TagBoxNote->"969"], StyleBox["969", {}, StripOnInput -> False]], Annotation[#, Style[969, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{14., 0}, {15., 381}, "RoundingRadius" -> 0]}, ImageSizeCache->{{116.44655724579667`, 122.97907556814685`}, { 87.19920174168625, 88.66066391143306}}], StatusArea[#, 381]& , TagBoxNote->"381"], StyleBox["381", {}, StripOnInput -> False]], Annotation[#, Style[381, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{15., 0}, {16., 181}, "RoundingRadius" -> 0]}, ImageSizeCache->{{122.47907556814685`, 129.01159389049704`}, { 87.70390629273444, 88.66066391143306}}], StatusArea[#, 181]& , TagBoxNote->"181"], StyleBox["181", {}, StripOnInput -> False]], Annotation[#, Style[181, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{16., 0}, {17., 88}, "RoundingRadius" -> 0]}, ImageSizeCache->{{128.51159389049704`, 135.0441122128472}, { 87.93859390897185, 88.66066391143306}}], 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[{17., 0}, {18., 24}, "RoundingRadius" -> 0]}, ImageSizeCache->{{134.5441122128472, 141.0766305351974}, { 88.10009936530727, 88.66066391143306}}], StatusArea[#, 24]& , TagBoxNote->"24"], StyleBox["24", {}, StripOnInput -> False]], Annotation[#, Style[24, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{18., 0}, {19., 20}, "RoundingRadius" -> 0]}, ImageSizeCache->{{140.5766305351974, 147.1091488575476}, { 88.11019345632825, 88.66066391143306}}], StatusArea[#, 20]& , TagBoxNote->"20"], StyleBox["20", {}, StripOnInput -> False]], Annotation[#, Style[20, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{19., 0}, {20., 21}, "RoundingRadius" -> 0]}, ImageSizeCache->{{146.6091488575476, 153.1416671798978}, { 88.107669933573, 88.66066391143306}}], StatusArea[#, 21]& , TagBoxNote->"21"], StyleBox["21", {}, StripOnInput -> False]], Annotation[#, Style[21, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20., 0}, {21., 7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{152.6416671798978, 159.17418550224798`}, { 88.14299925214638, 88.66066391143306}}], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{21., 0}, {22., 6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{158.67418550224798`, 165.20670382459818`}, { 88.14552277490162, 88.66066391143306}}], 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[{22., 0}, {23., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{164.70670382459818`, 171.23922214694835`}, { 88.1505698204121, 88.66066391143306}}], 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[{23., 0}, {24., 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{170.73922214694835`, 177.27174046929855`}, { 88.14804629765686, 88.66066391143306}}], 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[{24., 0}, {25., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{176.77174046929855`, 183.30425879164875`}, { 88.15561686592258, 88.66066391143306}}], 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[{25., 0}, {26., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{182.80425879164875`, 189.33677711399892`}, { 88.15814038867782, 88.66066391143306}}], 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[{26., 0}, {27., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{188.83677711399892`, 195.36929543634912`}, { 88.15561686592258, 88.66066391143306}}], 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[{27., 0}, {28., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{194.86929543634912`, 201.40181375869932`}, { 88.15814038867782, 88.66066391143306}}], 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[{28., 0}, {29., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{200.90181375869932`, 207.4343320810495}, { 88.15561686592258, 88.66066391143306}}], 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[{29., 0}, {30., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{206.9343320810495, 213.4668504033997}, { 88.15814038867782, 88.66066391143306}}], 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[{31., 0}, {32., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{218.99936872574986`, 225.53188704810006`}, { 88.15814038867782, 88.66066391143306}}], 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[{39., 0}, {40., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{267.25951530455137`, 273.79203362690157`}, { 88.15814038867782, 88.66066391143306}}], 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[{49., 0}, {50., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{327.5846985280533, 334.11721685040345`}, { 88.15814038867782, 88.66066391143306}}], 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[{52., 0}, {53., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{345.68225349510385`, 352.214771817454}, { 88.15814038867782, 88.66066391143306}}], 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->{-0.040000000000000036`, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{1., 53.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6833870095195637`*^9}] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{775, 873}, WindowMargins->{{136, Automatic}, {Automatic, 0}}, WindowTitle->"Examples for Our Mutual Friend", 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[624, 23, 36, 0, 70, "Subsection",ExpressionUUID->"bdf8f29c-946f-4143-a721-6a6b59c4addc"], Cell[663, 25, 254, 3, 70, "Text",ExpressionUUID->"8907af31-c3ae-43ff-a93a-bd54fd5bb093"], Cell[CellGroupData[{ Cell[942, 32, 392, 9, 70, "Input",ExpressionUUID->"650ead74-bf5e-4979-8aa4-19003ee5c9c2"], Cell[1337, 43, 463, 6, 70, "Output",ExpressionUUID->"34ba2c64-cf1d-40fd-9ff2-6255e1bf304d"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1849, 55, 35, 0, 70, "Subsection",ExpressionUUID->"a5846602-3332-4f5b-b3cd-fe522f95c617"], Cell[1887, 57, 194, 2, 70, "Text",ExpressionUUID->"a64d1e96-1b9f-47b7-89f9-3a823e331b02"], Cell[CellGroupData[{ Cell[2106, 63, 582, 15, 70, "Input",ExpressionUUID->"b51b5c9c-e6b5-4b75-89fc-27a0f6dd12cc"], Cell[2691, 80, 35373, 890, 70, "Output",ExpressionUUID->"bd8a870a-8324-4b98-9e3d-c0468028d363"] }, Open ]], Cell[38079, 973, 177, 2, 70, "Text",ExpressionUUID->"b316b4bb-e915-461a-a577-6f9a2de5f396"], Cell[CellGroupData[{ Cell[38281, 979, 659, 15, 70, "Input",ExpressionUUID->"3eb8dc68-3aed-48d6-a8b4-78d48e0fa413"], Cell[38943, 996, 21425, 619, 70, "Output",ExpressionUUID->"ff1ea28c-6da1-449e-abc3-3b95f202cdef"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)