(* 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[ 70818, 1823] NotebookOptionsPosition[ 68855, 1777] NotebookOutlinePosition[ 69431, 1800] CellTagsIndexPosition[ 69388, 1797] WindowTitle->Examples for The Patchwork Girl of Oz 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["\<\"The Patchwork Girl of Oz\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for L. Frank Baum's \\\"The Patchwork Girl \ of Oz\\\"\"\>", "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True-> GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], Appearance->None, ButtonFunction:>(Typeset`open$$ = False), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, { 3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, {FaceForm[{RGBColor[0.274612, 0.618881, 0.810913], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, { 56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, { 9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, {2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}}, AspectRatio->1, Axes->False, Background->None, Frame->None, FrameTicks->None, ImageSize->{Automatic, Dynamic[(3.5 CurrentValue["FontCapHeight"])/AbsoluteCurrentValue[ Magnification], ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{ { RowBox[{ TagBox["\<\"Name: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"The Patchwork Girl of Oz\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for L. Frank Baum's \\\"The Patchwork Girl \ of Oz\\\"\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Categories: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"Textual Data\"", "\"Literature\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"ContentTypes: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",", "\",\"", "\"Text\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Keywords: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"fiction\"", "\"text\"", "\"novel\"", "\"book\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Data Location: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicModuleBox[{DataResource`Private`typesetstorage$$ = DataResource`Private`typesetstorageLocation, DataResource`Private`info$$}, DynamicBox[ToBoxes[ DataResource`Private`info$$ = DataResource`Private`resourceInfo[ "d49e1480-9412-4785-b3b0-6fe0908a6ce1"]; 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["\<\"d49e1480-9412-4785-b3b0-6fe0908a6ce1\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"\\[LeftAssociation]", RowBox[{"\<\"Plaintext\"\>", "\[Rule]", "312952"}], "\\[RightAssociation]"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Elements: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",", "\",\"", "\"Plaintext\""}, "RowWithSeparators"], Short[#, 2]& ], "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open$$], ImageSize->Automatic], BaselinePosition->Baseline], DynamicModuleValues:>{}], "]"}], ResourceObject[<| "Name" -> "The Patchwork Girl of Oz", "UUID" -> "d49e1480-9412-4785-b3b0-6fe0908a6ce1", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Plaintext for L. Frank Baum's \"The Patchwork Girl of Oz\"", "ContentSize" -> <|"Plaintext" -> 312952|>, "ContentElements" -> {"Plaintext"}|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.683647353371662*^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[{"[", "10", "]"}], "]"}]], "Input", CellChangeTimes->{ 3.683647365272252*^9, {3.702837240917326*^9, 3.702837243173839*^9}}], Cell[BoxData["\<\"And that was the way Dorothy heard that the Historian \ wanted to speak\\nwith her, and there was a Shaggy Man in the Land of Oz who \ knew how to\\ntelegraph a wireless reply. The result was that the Historian \ begged so\\nhard to be told the latest news of Oz, so that he could write it \ down\\nfor the children to read, that Dorothy asked permission of Ozma \ and\\nOzma graciously consented.\"\>"], "Output", CellChangeTimes->{{3.683647370131425*^9, 3.683647388254006*^9}, 3.702837244265867*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell["Show the most frequently used verbs:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}, {3.6833729230254655`*^9, 3.6833729249134655`*^9}, { 3.6833743418977623`*^9, 3.683374346568762*^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.6836474780780287`*^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}, {98., 1.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 84.26526032315977}, {77.64755182251947, 87.05740044568141}}], StatusArea[#, 98]& , TagBoxNote->"98"], StyleBox["98", {}, StripOnInput -> False]], Annotation[#, Style[98, {}], "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`}, {104., 2.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 87.63354156743486}, {68.02491530950458, 77.43476393266651}}], StatusArea[#, 104]& , TagBoxNote->"104"], StyleBox["104", {}, StripOnInput -> False]], Annotation[#, Style[104, {}], "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}, {110., 3.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 91.00182281170996}, {58.40227879648968, 67.81212741965163}}], 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., 3.537037037037037}, {111., 4.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 91.56320301908913}, {48.77964228347479, 58.18949090663673}}], StatusArea[#, 111]& , TagBoxNote->"111"], StyleBox["111", {}, StripOnInput -> False]], Annotation[#, Style[111, {}], "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}, {116., 5.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 94.37010405598504}, {39.1570057704599, 48.56685439362183}}], StatusArea[#, 116]& , TagBoxNote->"116"], StyleBox["116", {}, StripOnInput -> False]], Annotation[#, Style[116, {}], "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}, {118., 6.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 95.4928644707434}, {29.534369257445, 38.94421788060694}}], 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., 6.537037037037037}, {126., 7.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 99.98390612977686}, {19.91173274443011, 29.321581367592046`}}], StatusArea[#, 126]& , TagBoxNote->"126"], StyleBox["126", {}, StripOnInput -> False]], Annotation[#, Style[126, {}], "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}, {128., 8.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 101.10666654453522`}, {10.2890962314152, 19.69894485457715}}], StatusArea[#, 128]& , TagBoxNote->"128"], StyleBox["128", {}, StripOnInput -> False]], Annotation[#, Style[128, {}], "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}, {132., 9.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 103.35218737405194`}, {0.6664597184003043, 10.076308341562253`}}], StatusArea[#, 132]& , TagBoxNote->"132"], StyleBox["132", {}, StripOnInput -> False]], Annotation[#, Style[132, {}], "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}, {155., 10.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 116.26393214377312`}, {-8.956176794614578, 0.4536718285473569}}], StatusArea[#, 155]& , TagBoxNote->"155"], StyleBox["155", {}, StripOnInput -> False]], Annotation[#, Style[155, {}], "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`}, {161., 11.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 119.6322133880482}, {-18.578813307629474`, -9.16896468446754}}], StatusArea[#, 161]& , TagBoxNote->"161"], StyleBox["161", {}, StripOnInput -> False]], Annotation[#, Style[161, {}], "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`}, {169., 12.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 124.12325504708166`}, {-28.20144982064437, -18.791601197482436`}}], StatusArea[#, 169]& , TagBoxNote->"169"], StyleBox["169", {}, StripOnInput -> False]], Annotation[#, Style[169, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 12.537037037037038`}, {204., 13.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 143.771562305353}, {-37.82408633365927, -28.414237710497332`}}], StatusArea[#, 204]& , TagBoxNote->"204"], StyleBox["204", {}, StripOnInput -> False]], Annotation[#, Style[204, {}], "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`}, {217., 14.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 151.06950500128235`}, {-47.44672284667416, -38.03687422351223}}], StatusArea[#, 217]& , TagBoxNote->"217"], StyleBox["217", {}, StripOnInput -> False]], Annotation[#, Style[217, {}], "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`}, {219., 15.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 152.19226541604073`}, {-57.06935935968906, -47.659510736527125`}}], StatusArea[#, 219]& , TagBoxNote->"219"], StyleBox["219", {}, StripOnInput -> False]], Annotation[#, Style[219, {}], "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`}, {296., 16.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 195.4185413842377}, {-66.69199587270396, -57.28214724954202}}], StatusArea[#, 296]& , TagBoxNote->"296"], StyleBox["296", {}, StripOnInput -> False]], Annotation[#, Style[296, {}], "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`}, {354., 17.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 227.9785934122302}, {-76.31463238571885, -66.90478376255692}}], StatusArea[#, 354]& , TagBoxNote->"354"], StyleBox["354", {}, StripOnInput -> False]], Annotation[#, Style[354, {}], "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`}, {456., 18.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 285.2393745649067}, {-85.93726889873375, -76.52742027557181}}], StatusArea[#, 456]& , TagBoxNote->"456"], StyleBox["456", {}, StripOnInput -> False]], Annotation[#, Style[456, {}], "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`}, {464., 19.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 289.73041622394015`}, {-95.55990541174864, -86.15005678858671}}], StatusArea[#, 464]& , TagBoxNote->"464"], StyleBox["464", {}, StripOnInput -> False]], Annotation[#, Style[464, {}], "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`}, {557., 20.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.75, 341.93877551020404`}, {-105.18254192476354`, -95.7726933016016}}], StatusArea[#, 557]& , TagBoxNote->"557"], StyleBox["557", {}, StripOnInput -> False]], Annotation[#, Style[557, {}], "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["\<\"get\"\>", Offset[{-2., 0.}, {0., 1.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"go\"\>", Offset[{-2., 0.}, {0., 2.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"could\"\>", 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["\<\"would\"\>", Offset[{-2., 0.}, {0., 5.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"made\"\>", Offset[{-2., 0.}, {0., 6.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"see\"\>", Offset[{-2., 0.}, {0., 7.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"can\"\>", Offset[{-2., 0.}, {0., 8.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"must\"\>", Offset[{-2., 0.}, {0., 8.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"will\"\>", 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["\<\"asked\"\>", Offset[{-2., 0.}, {0., 11.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"are\"\>", Offset[{-2., 0.}, {0., 12.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"have\"\>", Offset[{-2., 0.}, {0., 13.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"were\"\>", 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["\<\"had\"\>", 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["\<\"is\"\>", 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["\"get\"", TraditionalForm], 0}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {2., FormBox["\"go\"", TraditionalForm], 0}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {3., FormBox["\"could\"", 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["\"would\"", TraditionalForm], 0}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {6., FormBox["\"made\"", TraditionalForm], 0}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {7., FormBox["\"see\"", TraditionalForm], 0}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {8., FormBox["\"can\"", TraditionalForm], 0}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {9., FormBox["\"must\"", TraditionalForm], 0}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {10., FormBox["\"will\"", 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["\"asked\"", TraditionalForm], 0}, {13., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {13., FormBox["\"are\"", TraditionalForm], 0}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {14., FormBox["\"have\"", TraditionalForm], 0}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {15., FormBox["\"were\"", 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["\"had\"", 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["\"is\"", 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.6836474926545143`*^9}] }, Open ]], Cell["Show the distribution of word lengths:", "Text", CellChangeTimes->{{3.6821849447840075`*^9, 3.682184951647694*^9}, { 3.6821850182913575`*^9, 3.6821850462121496`*^9}, {3.6821850885233803`*^9, 3.68218509051958*^9}, {3.6833726608424654`*^9, 3.683372662777466*^9}, { 3.6833733125197973`*^9, 3.683373336434579*^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.683647479366461*^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., 2163}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.0238190552442, 49.727067368180265`}, { 61.087027748140514`, 88.66066391143299}}], StatusArea[#, 2163]& , TagBoxNote->"2163"], StyleBox["2163", {}, StripOnInput -> False]], Annotation[#, Style[2163, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {3., 9190}, "RoundingRadius" -> 0]}, ImageSizeCache->{{49.227067368180265`, 60.930315681116326`}, {-26.867868839680213`, 88.66066391143299}}], StatusArea[#, 9190]& , TagBoxNote->"9190"], StyleBox["9190", {}, StripOnInput -> False]], Annotation[#, Style[9190, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0}, {4., 15005}, "RoundingRadius" -> 0]}, ImageSizeCache->{{60.430315681116326`, 72.1335639940524}, {-99.65251714737589, 88.66066391143299}}], StatusArea[#, 15005]& , TagBoxNote->"15005"], StyleBox["15005", {}, StripOnInput -> False]], Annotation[#, Style[15005, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {5., 11752}, "RoundingRadius" -> 0]}, ImageSizeCache->{{71.6335639940524, 83.33681230698846}, {-58.93567089717227, 88.66066391143299}}], StatusArea[#, 11752]& , TagBoxNote->"11752"], StyleBox["11752", {}, StripOnInput -> False]], Annotation[#, Style[11752, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0}, {6., 6483}, "RoundingRadius" -> 0]}, ImageSizeCache->{{82.83681230698846, 94.54006061992452}, { 7.014855660566084, 88.66066391143299}}], StatusArea[#, 6483]& , TagBoxNote->"6483"], StyleBox["6483", {}, StripOnInput -> False]], Annotation[#, Style[6483, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0}, {7., 4790}, "RoundingRadius" -> 0]}, ImageSizeCache->{{94.04006061992452, 105.74330893286059`}, { 28.205639768034487`, 88.66066391143299}}], StatusArea[#, 4790]& , TagBoxNote->"4790"], StyleBox["4790", {}, StripOnInput -> False]], Annotation[#, Style[4790, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7., 0}, {8., 3521}, "RoundingRadius" -> 0]}, ImageSizeCache->{{105.24330893286059`, 116.94655724579665`}, { 44.089340318759476`, 88.66066391143299}}], StatusArea[#, 3521]& , TagBoxNote->"3521"], StyleBox["3521", {}, StripOnInput -> False]], Annotation[#, Style[3521, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8., 0}, {9., 2095}, "RoundingRadius" -> 0]}, ImageSizeCache->{{116.44655724579665`, 128.14980555873274`}, { 61.93816379025974, 88.66066391143299}}], StatusArea[#, 2095]& , TagBoxNote->"2095"], StyleBox["2095", {}, StripOnInput -> False]], Annotation[#, Style[2095, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9., 0}, {10., 1455}, "RoundingRadius" -> 0]}, ImageSizeCache->{{127.64980555873272`, 139.3530538716688}, { 69.94885595138189, 88.66066391143299}}], StatusArea[#, 1455]& , TagBoxNote->"1455"], StyleBox["1455", {}, StripOnInput -> False]], Annotation[#, Style[1455, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {11., 589}, "RoundingRadius" -> 0]}, ImageSizeCache->{{138.8530538716688, 150.55630218460485`}, { 80.78832378190027, 88.66066391143299}}], StatusArea[#, 589]& , TagBoxNote->"589"], StyleBox["589", {}, StripOnInput -> False]], Annotation[#, Style[589, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{11., 0}, {12., 236}, "RoundingRadius" -> 0]}, ImageSizeCache->{{150.05630218460485`, 161.75955049754089`}, { 85.2067211770192, 88.66066391143299}}], StatusArea[#, 236]& , TagBoxNote->"236"], StyleBox["236", {}, StripOnInput -> False]], Annotation[#, Style[236, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12., 0}, {13., 142}, "RoundingRadius" -> 0]}, ImageSizeCache->{{161.25955049754089`, 172.96279881047695`}, { 86.38329158818402, 88.66066391143299}}], 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[{13., 0}, {14., 56}, "RoundingRadius" -> 0]}, ImageSizeCache->{{172.46279881047695`, 184.16604712341302`}, { 87.4597283473348, 88.66066391143299}}], StatusArea[#, 56]& , TagBoxNote->"56"], StyleBox["56", {}, StripOnInput -> False]], Annotation[#, Style[56, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{14., 0}, {15., 20}, "RoundingRadius" -> 0]}, ImageSizeCache->{{183.66604712341302`, 195.3692954363491}, { 87.91032978139792, 88.66066391143299}}], 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[{15., 0}, {16., 10}, "RoundingRadius" -> 0]}, ImageSizeCache->{{194.8692954363491, 206.57254374928516`}, { 88.03549684641546, 88.66066391143299}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", {}, StripOnInput -> False]], Annotation[#, Style[10, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{16., 0}, {17., 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{206.07254374928516`, 217.77579206222123`}, { 88.06053025941897, 88.66066391143299}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{17., 0}, {18., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{217.27579206222123`, 228.9790403751573}, { 88.11059708542598, 88.66066391143299}}], 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[{18., 0}, {19., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{228.4790403751573, 240.18228868809337`}, { 88.13563049842948, 88.66066391143299}}], 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[{19., 0}, {20., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{239.68228868809337`, 251.38553700102943`}, { 88.12311379192774, 88.66066391143299}}], 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[{20., 0}, {21., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{250.88553700102943`, 262.5887853139655}, { 88.14814720493123, 88.66066391143299}}], 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[{24., 0}, {25., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{295.69853025277365`, 307.4017785657097}, { 88.14814720493123, 88.66066391143299}}], 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[{27., 0}, {28., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{329.30827519158186`, 341.0115235045179}, { 88.14814720493123, 88.66066391143299}}], 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., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{340.5115235045179, 352.214771817454}, { 88.14814720493123, 88.66066391143299}}], 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.43999999999999995`, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{1., 29.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.683647495379106*^9}] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{775, 873}, WindowMargins->{{136, Automatic}, {Automatic, 0}}, WindowTitle->"Examples for The Patchwork Girl of Oz", 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[631, 23, 36, 0, 70, "Subsection",ExpressionUUID->"5058279f-2a77-4c59-a0c7-a1af5e05eca4"], Cell[670, 25, 215, 3, 70, "Text",ExpressionUUID->"f5bbfb0a-7f42-44f4-9d87-3ae42f4a85a0"], Cell[CellGroupData[{ Cell[910, 32, 224, 4, 70, "Input",ExpressionUUID->"ea25e89d-216c-48f8-86dd-bb465cb0b7f1"], Cell[1137, 38, 14438, 322, 70, "Output",ExpressionUUID->"6ccd059c-e8c8-4c7c-9535-8b6c366de44f"] }, Open ]], Cell[15590, 363, 204, 3, 70, "Text",ExpressionUUID->"a6d4fb76-2ef8-45cf-82bf-ad638b2beb37"], Cell[CellGroupData[{ Cell[15819, 370, 322, 8, 70, "Input",ExpressionUUID->"d01c4faf-d726-4980-bbd1-d248efcc3fc0"], Cell[16144, 380, 524, 7, 70, "Output",ExpressionUUID->"406fb6ee-347d-4024-9c2e-ab6fa7c921d0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16717, 393, 35, 0, 70, "Subsection",ExpressionUUID->"5aa78e72-fc92-4975-a213-5acbf8009f66"], Cell[16755, 395, 327, 4, 70, "Text",ExpressionUUID->"a2ee3f9b-9616-498f-9e26-705ff9ed9d40"], Cell[CellGroupData[{ Cell[17107, 403, 545, 15, 70, "Input",ExpressionUUID->"70162175-7020-43d7-8650-8afc23583bcd"], Cell[17655, 420, 35116, 889, 70, "Output",ExpressionUUID->"a4869b74-8030-4500-bd78-fdd223958147"] }, Open ]], Cell[52786, 1312, 324, 4, 70, "Text",ExpressionUUID->"b72d2ab8-cb5c-4bd7-8192-05fc213bd6c6"], Cell[CellGroupData[{ Cell[53135, 1320, 492, 13, 70, "Input",ExpressionUUID->"cc79cbef-acda-413e-8826-687c00dcf487"], Cell[53630, 1335, 15197, 438, 70, "Output",ExpressionUUID->"2e302d79-be1f-4328-a07c-06ff28af0a20"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)