(* 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[ 114706, 2895] NotebookOptionsPosition[ 112754, 2849] NotebookOutlinePosition[ 113322, 2872] CellTagsIndexPosition[ 113279, 2869] WindowTitle->Examples for Northanger Abbey 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["\<\"Northanger Abbey\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Jane Austen's \\\"Northanger Abbey\\\"\ \"\>", "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["\<\"Northanger Abbey\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Jane Austen's \\\"Northanger Abbey\\\"\ \"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Categories: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"Textual Data\"", "\"Literature\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"ContentTypes: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",", "\",\"", "\"Text\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Keywords: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"text\"", "\"novel\"", "\"fiction\"", "\"united kingdom\""}, "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[ "ab432061-0278-4faa-a2bb-a607084f4667"]; 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["\<\"ab432061-0278-4faa-a2bb-a607084f4667\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"\\[LeftAssociation]", RowBox[{"\<\"Plaintext\"\>", "\[Rule]", "432168"}], "\\[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" -> "Northanger Abbey", "UUID" -> "ab432061-0278-4faa-a2bb-a607084f4667", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Plaintext for Jane Austen's \"Northanger Abbey\"", "ContentSize" -> <|"Plaintext" -> 432168|>, "ContentElements" -> {"Plaintext"}|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.683375195751446*^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[{"[", "50", "]"}], "]"}]], "Input", CellChangeTimes->{ 3.6833752084017105`*^9, {3.702917985966331*^9, 3.702917999471303*^9}}], Cell[BoxData["\<\"Every morning now brought its regular duties--shops were to \ be visited;\\nsome new part of the town to be looked at; and the pump-room to \ be\\nattended, where they paraded up and down for an hour, looking \ at\\neverybody and speaking to no one. The wish of a numerous \ acquaintance\\nin Bath was still uppermost with Mrs. Allen, and she repeated \ it after\\nevery fresh proof, which every morning brought, of her knowing \ nobody at\\nall.\"\>"], "Output", CellChangeTimes->{{3.683375211483019*^9, 3.6833752151003804`*^9}, { 3.702917990534944*^9, 3.702917999916621*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell["Create a word cloud:", "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}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{"DeleteStopwords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.683032640005966*^9, 3.6830326503422127`*^9}, 3.683035633524098*^9, 3.683375306221492*^9}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"Catherine\"\>", StripOnInput->False, FontSize->Scaled[0.21875], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"Tilney\"\>", StripOnInput->False, FontSize->Scaled[0.10721153846153847`], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {8.5, 35.}, Center, Automatic], InsetBox[ StyleBox["\<\"general\"\>", StripOnInput->False, FontSize->Scaled[0.07548076923076924], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {-3.5, -34.}, Center, Automatic], InsetBox[ StyleBox["\<\"Thorpe\"\>", StripOnInput->False, FontSize->Scaled[0.07355769230769231], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {10.5, -55.}, Center, Automatic], InsetBox[ StyleBox["\<\"Miss\"\>", StripOnInput->False, FontSize->Scaled[0.11153846153846154`], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {-0.5, 62.}, Center, Automatic], InsetBox[ StyleBox["\<\"thought\"\>", StripOnInput->False, FontSize->Scaled[0.06105769230769231], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {-12.5, -74.}, Center, Automatic], InsetBox[ StyleBox["\<\"Isabella\"\>", StripOnInput->False, FontSize->Scaled[0.07596153846153847], FontColor->RGBColor[0.571589, 0.586483, 0.]], {-0.5, 85.}, Center, Automatic], InsetBox[ StyleBox["\<\"Morland\"\>", StripOnInput->False, FontSize->Scaled[0.07307692307692308], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {78.5, -35.}, Center, Automatic], InsetBox[ StyleBox["\<\"know\"\>", StripOnInput->False, FontSize->Scaled[0.08413461538461539], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {-70.5, 39.}, Center, Automatic], InsetBox[ StyleBox["\<\"said\"\>", StripOnInput->False, FontSize->Scaled[0.09951923076923078], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {-74.5, -39.}, Center, Automatic], InsetBox[ StyleBox["\<\"Mrs.\"\>", StripOnInput->False, FontSize->Scaled[0.09711538461538462], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {66.5, 53.}, Center, Automatic], InsetBox[ StyleBox["\<\"young\"\>", StripOnInput->False, FontSize->Scaled[0.06298076923076923], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {-62.5, 60.}, Center, Automatic], InsetBox[ StyleBox["\<\"good\"\>", StripOnInput->False, FontSize->Scaled[0.06875], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {54.5, -71.}, Center, Automatic], InsetBox[ StyleBox["\<\"Henry\"\>", StripOnInput->False, FontSize->Scaled[0.06009615384615385], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {-68.5, -60.}, Center, Automatic], InsetBox[ StyleBox["\<\"acquaintance\"\>", StripOnInput->False, FontSize->Scaled[0.03605769230769231], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {7.5, -92.}, Center, Automatic], InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.08413461538461539], FontColor->RGBColor[1, 0.75, 0]], {96.5, 27.}, Center, Automatic], InsetBox[ StyleBox["\<\"brother\"\>", StripOnInput->False, FontSize->Scaled[0.06153846153846154], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {-0.5, 104.}, Center, Automatic], InsetBox[ StyleBox["\<\"think\"\>", StripOnInput->False, FontSize->Scaled[0.07836538461538461], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {69.5, 76.}, Center, Automatic], InsetBox[ StyleBox["\<\"great\"\>", StripOnInput->False, FontSize->Scaled[0.05961538461538462], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {-65.5, 77.}, Center, Automatic], InsetBox[ StyleBox["\<\"away\"\>", StripOnInput->False, FontSize->Scaled[0.05625], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {72.5, -50.}, Center, Automatic], InsetBox[ StyleBox["\<\"morning\"\>", StripOnInput->False, FontSize->Scaled[0.04230769230769231], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {-0.5, -105.}, Center, Automatic], InsetBox[ StyleBox["\<\"quite\"\>", StripOnInput->False, FontSize->Scaled[0.054807692307692314`], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {-65.5, -78.}, Center, Automatic], InsetBox[ StyleBox["\<\"Mr.\"\>", StripOnInput->False, FontSize->Scaled[0.08990384615384617], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {-48.5, -99.}, Center, Automatic], InsetBox[ StyleBox["\<\"say\"\>", StripOnInput->False, FontSize->Scaled[0.06730769230769232], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {64.5, -87.}, Center, Automatic], InsetBox[ StyleBox["\<\"Allen\"\>", StripOnInput->False, FontSize->Scaled[0.06875], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {55.5, 100.}, Center, Automatic], InsetBox[ StyleBox["\<\"moment\"\>", StripOnInput->False, FontSize->Scaled[0.049519230769230774`], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {-72.5, 92.}, Center, Automatic], InsetBox[ StyleBox["\<\"Catherine's\"\>", StripOnInput->False, FontSize->Scaled[0.041346153846153845`], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {-11.5, -118.}, Center, Automatic], InsetBox[ StyleBox["\<\"Indeed\"\>", StripOnInput->False, FontSize->Scaled[0.05625], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {-0.5, 120.}, Center, Automatic], InsetBox[ StyleBox["\<\"friend\"\>", StripOnInput->False, FontSize->Scaled[0.05865384615384616], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {51.5, -109.}, Center, Automatic], InsetBox[ StyleBox["\<\"Eleanor\"\>", StripOnInput->False, FontSize->Scaled[0.04567307692307693], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {-59.5, 106.}, Center, Automatic], InsetBox[ StyleBox["\<\"day\"\>", StripOnInput->False, FontSize->Scaled[0.05625], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {104.5, 54.}, Center, Automatic], InsetBox[ StyleBox["\<\"feelings\"\>", StripOnInput->False, FontSize->Scaled[0.037500000000000006`], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {104.5, -69.}, Center, Automatic], InsetBox[ StyleBox["\<\"family\"\>", StripOnInput->False, FontSize->Scaled[0.04230769230769231], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {-109.5, 60.}, Center, Automatic], InsetBox[ StyleBox["\<\"passed\"\>", StripOnInput->False, FontSize->Scaled[0.037500000000000006`], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {49.5, 116.}, Center, Automatic], InsetBox[ StyleBox["\<\"room\"\>", StripOnInput->False, FontSize->Scaled[0.05721153846153846], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {116.5, -50.}, Center, Automatic], InsetBox[ StyleBox["\<\"little\"\>", StripOnInput->False, FontSize->Scaled[0.06201923076923077], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {-112.5, -57.}, Center, Automatic], InsetBox[ StyleBox["\<\"pleasure\"\>", StripOnInput->False, FontSize->Scaled[0.03557692307692308], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {-126.5, -29.}, Center, Automatic], InsetBox[ StyleBox["\<\"sure\"\>", StripOnInput->False, FontSize->Scaled[0.06009615384615385], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {-122.5, 38.}, Center, Automatic], InsetBox[ StyleBox["\<\"long\"\>", StripOnInput->False, FontSize->Scaled[0.04903846153846154], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {-102.5, -74.}, Center, Automatic], InsetBox[ StyleBox["\<\"going\"\>", StripOnInput->False, FontSize->Scaled[0.03942307692307692], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {-86.5, -94.}, Center, Automatic], InsetBox[ StyleBox["\<\"place\"\>", StripOnInput->False, FontSize->Scaled[0.041346153846153845`], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {-116.5, 3.}, Center, Automatic], InsetBox[ StyleBox["\<\"dear\"\>", StripOnInput->False, FontSize->Scaled[0.05528846153846154], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {-49.5, 118.}, Center, Automatic], InsetBox[ StyleBox["\<\"soon\"\>", StripOnInput->False, FontSize->Scaled[0.05769230769230769], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {-108.5, 74.}, Center, Automatic], InsetBox[ StyleBox["\<\"evening\"\>", StripOnInput->False, FontSize->Scaled[0.03413461538461539], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {103.5, -83.}, Center, Automatic], InsetBox[ StyleBox["\<\"minutes\"\>", StripOnInput->False, FontSize->Scaled[0.03701923076923077], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {-68.5, -118.}, Center, Automatic], InsetBox[ StyleBox["\<\"hope\"\>", StripOnInput->False, FontSize->Scaled[0.040865384615384616`], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {113.5, 68.}, Center, Automatic], InsetBox[ StyleBox["\<\"suppose\"\>", StripOnInput->False, FontSize->Scaled[0.032211538461538465`], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {-79.5, 22.}, Center, Automatic], InsetBox[ StyleBox["\<\"way\"\>", StripOnInput->False, FontSize->Scaled[0.046634615384615385`], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {95.5, 93.}, Center, Automatic], InsetBox[ StyleBox["\<\"man\"\>", StripOnInput->False, FontSize->Scaled[0.05528846153846154], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {99.5, -96.}, Center, Automatic], InsetBox[ StyleBox["\<\"make\"\>", StripOnInput->False, FontSize->Scaled[0.047596153846153844`], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {74.5, -122.}, Center, Automatic], InsetBox[ StyleBox["\<\"father\"\>", StripOnInput->False, FontSize->Scaled[0.04471153846153847], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {99.5, 103.}, Center, Automatic], InsetBox[ StyleBox["\<\"just\"\>", StripOnInput->False, FontSize->Scaled[0.046153846153846156`], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {132.5, -33.}, Center, Automatic], InsetBox[ StyleBox["\<\"people\"\>", StripOnInput->False, FontSize->Scaled[0.03557692307692308], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {-119.5, 86.}, Center, Automatic], InsetBox[ StyleBox["\<\"believe\"\>", StripOnInput->False, FontSize->Scaled[0.03701923076923077], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {-107.5, 102.}, Center, Automatic], InsetBox[ StyleBox["\<\"heart\"\>", StripOnInput->False, FontSize->Scaled[0.047596153846153844`], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {-87.5, 119.}, Center, Automatic], InsetBox[ StyleBox["\<\"Bath\"\>", StripOnInput->False, FontSize->Scaled[0.05288461538461539], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {89.5, 117.}, Center, Automatic], InsetBox[ StyleBox["\<\"James\"\>", StripOnInput->False, FontSize->Scaled[0.037980769230769235`], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {125.5, 77.}, Center, Automatic], InsetBox[ StyleBox["\<\"house\"\>", StripOnInput->False, FontSize->Scaled[0.041346153846153845`], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {-122.5, -85.}, Center, Automatic], InsetBox[ StyleBox["\<\"happy\"\>", StripOnInput->False, FontSize->Scaled[0.03461538461538462], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {133.5, 39.}, Center, Automatic], InsetBox[ StyleBox["\<\"shall\"\>", StripOnInput->False, FontSize->Scaled[0.05384615384615385], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {127.5, 89.}, Center, Automatic], InsetBox[ StyleBox["\<\"looked\"\>", StripOnInput->False, FontSize->Scaled[0.03894230769230769], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {102.5, -111.}, Center, Automatic], InsetBox[ StyleBox["\<\"better\"\>", StripOnInput->False, FontSize->Scaled[0.03990384615384616], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {-109.5, -107.}, Center, Automatic], InsetBox[ StyleBox["\<\"Really\"\>", StripOnInput->False, FontSize->Scaled[0.035096153846153846`], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {-108.5, -119.}, Center, Automatic], InsetBox[ StyleBox["\<\"like\"\>", StripOnInput->False, FontSize->Scaled[0.05625], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {-120.5, 115.}, Center, Automatic], InsetBox[ StyleBox["\<\"world\"\>", StripOnInput->False, FontSize->Scaled[0.0451923076923077], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {118.5, -122.}, Center, Automatic], InsetBox[ StyleBox["\<\"home\"\>", StripOnInput->False, FontSize->Scaled[0.040865384615384616`], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {124.5, 114.}, Center, Automatic], InsetBox[ StyleBox["\<\"come\"\>", StripOnInput->False, FontSize->Scaled[0.040865384615384616`], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {-122.5, -38.}, Center, Automatic], InsetBox[ StyleBox["\<\"mind\"\>", StripOnInput->False, FontSize->Scaled[0.04278846153846154], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {133.5, -95.}, Center, Automatic], InsetBox[ StyleBox["\<\"sister\"\>", StripOnInput->False, FontSize->Scaled[0.03605769230769231], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {130.5, 123.}, Center, Automatic], InsetBox[ StyleBox["\<\"eyes\"\>", StripOnInput->False, FontSize->Scaled[0.03317307692307692], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {35.5, -121.}, Center, Automatic], InsetBox[ StyleBox["\<\"Yes\"\>", StripOnInput->False, FontSize->Scaled[0.047115384615384615`], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {135.5, 49.}, Center, Automatic], InsetBox[ StyleBox["\<\"thing\"\>", StripOnInput->False, FontSize->Scaled[0.03461538461538462], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {137.5, 21.}, Center, Automatic], InsetBox[ StyleBox["\<\"wish\"\>", StripOnInput->False, FontSize->Scaled[0.03942307692307692], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {-0.5, -131.}, Center, Automatic], InsetBox[ StyleBox["\<\"hour\"\>", StripOnInput->False, FontSize->Scaled[0.03990384615384616], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {41.5, 126.}, Center, Automatic], InsetBox[ StyleBox["\<\"look\"\>", StripOnInput->False, FontSize->Scaled[0.04423076923076923], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {-30.5, -131.}, Center, Automatic], InsetBox[ StyleBox["\<\"Street\"\>", StripOnInput->False, FontSize->Scaled[0.03317307692307692], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {-0.5, 133.}, Center, Automatic], InsetBox[ StyleBox["\<\"saw\"\>", StripOnInput->False, FontSize->Scaled[0.04278846153846154], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {27.5, -133.}, Center, Automatic], InsetBox[ StyleBox["\<\"walk\"\>", StripOnInput->False, FontSize->Scaled[0.03653846153846154], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {-31.5, 133.}, Center, Automatic], InsetBox[ StyleBox["\<\"found\"\>", StripOnInput->False, FontSize->Scaled[0.03413461538461539], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {-60.5, -130.}, Center, Automatic], InsetBox[ StyleBox["\<\"Oh\"\>", StripOnInput->False, FontSize->Scaled[0.05048076923076923], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {-139.5, 50.}, Center, Automatic], InsetBox[ StyleBox["\<\"kind\"\>", StripOnInput->False, FontSize->Scaled[0.03653846153846154], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {-59.5, 131.}, Center, Automatic], InsetBox[ StyleBox["\<\"short\"\>", StripOnInput->False, FontSize->Scaled[0.03413461538461539], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {70.5, 130.}, Center, Automatic], InsetBox[ StyleBox["\<\"half\"\>", StripOnInput->False, FontSize->Scaled[0.04182692307692308], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {-143.5, -51.}, Center, Automatic], InsetBox[ StyleBox["\<\"heard\"\>", StripOnInput->False, FontSize->Scaled[0.03125], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {-133.5, -72.}, Center, Automatic], InsetBox[ StyleBox["\<\"came\"\>", StripOnInput->False, FontSize->Scaled[0.032692307692307694`], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {55.5, -133.}, Center, Automatic], InsetBox[ StyleBox["\<\"door\"\>", StripOnInput->False, FontSize->Scaled[0.03365384615384616], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {142.5, 61.}, Center, Automatic], InsetBox[ StyleBox["\<\"letter\"\>", StripOnInput->False, FontSize->Scaled[0.03125], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {-86.5, 130.}, Center, Automatic], InsetBox[ StyleBox["\<\"new\"\>", StripOnInput->False, FontSize->Scaled[0.03317307692307692], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {139.5, -62.}, Center, Automatic], InsetBox[ StyleBox["\<\"read\"\>", StripOnInput->False, FontSize->Scaled[0.035096153846153846`], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {-142.5, 63.}, Center, Automatic], InsetBox[ StyleBox["\<\"felt\"\>", StripOnInput->False, FontSize->Scaled[0.040865384615384616`], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {148.5, -47.}, Center, Automatic], InsetBox[ StyleBox["\<\"love\"\>", StripOnInput->False, FontSize->Scaled[0.03365384615384616], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {139.5, -73.}, Center, Automatic], InsetBox[ StyleBox["\<\"went\"\>", StripOnInput->False, FontSize->Scaled[0.03173076923076923], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {-88.5, -130.}, Center, Automatic], InsetBox[ StyleBox["\<\"men\"\>", StripOnInput->False, FontSize->Scaled[0.03125], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {-143.5, -61.}, Center, Automatic], InsetBox[ StyleBox["\<\"rest\"\>", StripOnInput->False, FontSize->Scaled[0.03413461538461539], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {88.5, -134.}, Center, Automatic], InsetBox[ StyleBox["\<\"left\"\>", StripOnInput->False, FontSize->Scaled[0.03653846153846154], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {94.5, 130.}, Center, Automatic], InsetBox[ StyleBox["\<\"till\"\>", StripOnInput->False, FontSize->Scaled[0.04182692307692308], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {-31.5, -56.}, Center, Automatic], InsetBox[ StyleBox["\<\"life\"\>", StripOnInput->False, FontSize->Scaled[0.03365384615384616], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {-151.5, 28.}, Center, Automatic], InsetBox[ StyleBox["\<\"tell\"\>", StripOnInput->False, FontSize->Scaled[0.032211538461538465`], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {42.5, 134.}, Center, Automatic], InsetBox[ StyleBox["\<\"set\"\>", StripOnInput->False, FontSize->Scaled[0.03125], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {-143.5, 71.}, Center, Automatic], InsetBox[ StyleBox["\<\"far\"\>", StripOnInput->False, FontSize->Scaled[0.03173076923076923], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {-135.5, 94.}, Center, Automatic]}, DefaultBaseStyle->{ "Graphics", FontFamily -> "Helvetica", FontWeight -> Plain, FontTracking -> "Plain", FontSlant -> Plain, FontVariations -> {}}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-160., 160.}, {-140.5, 138.5}}]], "Output", CellChangeTimes->{3.683375312278097*^9}] }, Open ]], Cell["Compare word lengths between different works:", "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}, {3.6833752367925496`*^9, 3.6833752416010303`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PairedHistogram", "[", RowBox[{ RowBox[{"StringLength", "/@", RowBox[{"TextWords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}]}], ",", RowBox[{"StringLength", "/@", RowBox[{"TextWords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}]}], ",", "Automatic"}], "]"}]], "Input", CellChangeTimes->{{3.683295434571782*^9, 3.6832954707624006`*^9}, 3.6833752450663767`*^9, 3.6833752760364733`*^9}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.469], Thickness[Small]}], {{{}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{Opacity[0.469], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-10054.3, 1.}], Offset[{0, 0}, {-7218.3, 2.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{160.2292268365698, 166.09438529528776`}, { 79.53351432363635, 85.86918413140779}}], StatusArea[#, 2836]& , TagBoxNote->"2836"], StyleBox["2836", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[2836, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-21193.3, 2.}], Offset[{0, 0}, {-7218.3, 3.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{139.15641298901718`, 166.09438529528776`}, { 73.6978445158649, 80.03351432363635}}], StatusArea[#, 13975]& , TagBoxNote->"13975"], StyleBox["13975", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[13975, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-25669.3, 3.}], Offset[{0, 0}, {-7218.3, 4.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{130.68869463174582`, 166.09438529528776`}, { 67.86217470809345, 74.1978445158649}}], StatusArea[#, 18451]& , TagBoxNote->"18451"], StyleBox["18451", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[18451, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-20879.3, 4.}], Offset[{0, 0}, {-7218.3, 5.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{139.7504397013012, 166.09438529528776`}, { 62.02650490032201, 68.36217470809345}}], StatusArea[#, 13661]& , TagBoxNote->"13661"], StyleBox["13661", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[13661, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-14940.3, 5.}], Offset[{0, 0}, {-7218.3, 6.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{150.98586850466012`, 166.09438529528776`}, { 56.19083509255056, 62.52650490032201}}], StatusArea[#, 7722]& , TagBoxNote->"7722"], StyleBox["7722", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[7722, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-13141.3, 6.}], Offset[{0, 0}, {-7218.3, 7.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{154.3892253689879, 166.09438529528776`}, { 50.35516528477911, 56.69083509255056}}], StatusArea[#, 5923]& , TagBoxNote->"5923"], StyleBox["5923", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[5923, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-12632.3, 7.}], Offset[{0, 0}, {-7218.3, 8.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{155.35215402042917`, 166.09438529528776`}, { 44.519495477007666`, 50.85516528477911}}], StatusArea[#, 5414]& , TagBoxNote->"5414"], StyleBox["5414", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[5414, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-10565.3, 8.}], Offset[{0, 0}, {-7218.3, 9.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{159.26251457549617`, 166.09438529528776`}, { 38.68382566923622, 45.019495477007666`}}], StatusArea[#, 3347]& , TagBoxNote->"3347"], StyleBox["3347", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[3347, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-9974.3, 9.}], Offset[{0, 0}, {-7218.3, 10.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{160.3805712218651, 166.09438529528776`}, { 32.848155861464775`, 39.18382566923622}}], StatusArea[#, 2756]& , TagBoxNote->"2756"], StyleBox["2756", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[2756, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-8741.3, 10.}], Offset[{0, 0}, {-7218.3, 11.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{162.71316656022873`, 166.09438529528776`}, { 27.012486053693323`, 33.348155861464775`}}], StatusArea[#, 1523]& , TagBoxNote->"1523"], StyleBox["1523", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[1523, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-8051.3, 11.}], Offset[{0, 0}, {-7218.3, 12.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{164.01851188340058`, 166.09438529528776`}, { 21.17681624592187, 27.512486053693323`}}], StatusArea[#, 833]& , TagBoxNote->"833"], StyleBox["833", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[833, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-7710.3, 12.}], Offset[{0, 0}, {-7218.3, 13.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{164.66361732572176`, 166.09438529528776`}, { 15.341146438150432`, 21.67681624592187}}], StatusArea[#, 492]& , TagBoxNote->"492"], StyleBox["492", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[492, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-7454.3, 13.}], Offset[{0, 0}, {-7218.3, 14.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.14791935866668`, 166.09438529528776`}, { 9.505476630378979, 15.841146438150432`}}], StatusArea[#, 236]& , TagBoxNote->"236"], StyleBox["236", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[236, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-7293.3, 14.}], Offset[{0, 0}, {-7218.3, 15.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.45249993407344`, 166.09438529528776`}, { 3.6698068226075407`, 10.005476630378979`}}], StatusArea[#, 75]& , TagBoxNote->"75"], StyleBox["75", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[75, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-7253.3, 15.}], Offset[{0, 0}, {-7218.3, 16.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.52817212672107`, 166.09438529528776`}, {-2.165862985163912, 4.169806822607541}}], StatusArea[#, 35]& , TagBoxNote->"35"], StyleBox["35", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[35, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-7235.3, 16.}], Offset[{0, 0}, {-7218.3, 17.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.56222461341252`, 166.09438529528776`}, {-8.001532792935365, -1.665862985163912}}], StatusArea[#, 17]& , TagBoxNote->"17"], StyleBox["17", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[17, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-7228.3, 17.}], Offset[{0, 0}, {-7218.3, 18.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.57546724712586`, 166.09438529528776`}, {-13.837202600706803`, -7.501532792935365}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[10, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-7220.3, 18.}], Offset[{0, 0}, {-7218.3, 19.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.5906016856554, 166.09438529528776`}, {-19.672872408478256`, \ -13.337202600706803`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[2, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-7220.3, 19.}], Offset[{0, 0}, {-7218.3, 20.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.5906016856554, 166.09438529528776`}, {-25.508542216249694`, \ -19.172872408478256`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[2, { Directive[], Directive[]}], "Tooltip"]& ], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-7219.3, 21.}], Offset[{0, 0}, {-7218.3, 22.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.59249349047158`, 166.09438529528776`}, {-37.1798818317926, -30.844212024021147`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[1, { Directive[], Directive[]}], "Tooltip"]& ], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-7219.3, 23.}], Offset[{0, 0}, {-7218.3, 24.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.59249349047158`, 166.09438529528776`}, {-48.851221447335504`, -42.51555163956404}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[1, { Directive[], Directive[]}], "Tooltip"]& ], {}, {}, {}, {}, {}, {}, {}, {}, {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-7219.3, 33.}], Offset[{0, 0}, {-7218.3, 34.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.59249349047158`, 166.09438529528776`}, {-107.20791952504997`, -100.8722497172785}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[1, { Directive[], Directive[]}], "Tooltip"]& ]}, {}, {}}, {{}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{Opacity[0.469], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 1.}], Offset[{0, 0}, {15244.3, 2.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 208.58924015946192`}, { 79.53351432363635, 85.86918413140779}}], StatusArea[#, 8026]& , TagBoxNote->"8026"], StyleBox["8026", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[8026, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 2.}], Offset[{0, 0}, {53500.3, 3.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 280.9621252076686}, { 73.6978445158649, 80.03351432363635}}], StatusArea[#, 46282]& , TagBoxNote->"46282"], StyleBox["46282", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[46282, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 3.}], Offset[{0, 0}, {79401.3, 4.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 329.96176175183416`}, { 67.86217470809345, 74.1978445158649}}], StatusArea[#, 72183]& , TagBoxNote->"72183"], StyleBox["72183", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[72183, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 4.}], Offset[{0, 0}, {55607.3, 5.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 284.9481579553832}, { 62.02650490032201, 68.36217470809345}}], StatusArea[#, 48389]& , TagBoxNote->"48389"], StyleBox["48389", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[48389, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 5.}], Offset[{0, 0}, {39622.3, 6.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 254.7076579685685}, { 56.19083509255056, 62.52650490032201}}], StatusArea[#, 32404]& , TagBoxNote->"32404"], StyleBox["32404", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[32404, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 6.}], Offset[{0, 0}, {30356.3, 7.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 237.1781945417418}, { 50.35516528477911, 56.69083509255056}}], StatusArea[#, 23138]& , TagBoxNote->"23138"], StyleBox["23138", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[23138, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 7.}], Offset[{0, 0}, {29932.3, 8.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 236.37606929967677`}, { 44.519495477007666`, 50.85516528477911}}], StatusArea[#, 22714]& , TagBoxNote->"22714"], StyleBox["22714", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[22714, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 8.}], Offset[{0, 0}, {22059.3, 9.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 221.48188998180424`}, { 38.68382566923622, 45.019495477007666`}}], StatusArea[#, 14841]& , TagBoxNote->"14841"], StyleBox["14841", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[14841, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 9.}], Offset[{0, 0}, {17526.3, 10.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 212.90633875001}, { 32.848155861464775`, 39.18382566923622}}], StatusArea[#, 10308]& , TagBoxNote->"10308"], StyleBox["10308", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[10308, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 10.}], Offset[{0, 0}, {14081.3, 11.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 206.38907115823167`}, { 27.012486053693323`, 33.348155861464775`}}], StatusArea[#, 6863]& , TagBoxNote->"6863"], StyleBox["6863", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[6863, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 11.}], Offset[{0, 0}, {10655.3, 12.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 199.90774785796097`}, { 21.17681624592187, 27.512486053693323`}}], StatusArea[#, 3437]& , TagBoxNote->"3437"], StyleBox["3437", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[3437, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 12.}], Offset[{0, 0}, {8836.3, 13.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 196.46655489730938`}, { 15.341146438150432`, 21.67681624592187}}], StatusArea[#, 1618]& , TagBoxNote->"1618"], StyleBox["1618", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[1618, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 13.}], Offset[{0, 0}, {8125.3, 14.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 195.1214816729975}, { 9.505476630378979, 15.841146438150432`}}], StatusArea[#, 907]& , TagBoxNote->"907"], StyleBox["907", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[907, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 14.}], Offset[{0, 0}, {7415.3, 15.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 193.7783002535018}, { 3.6698068226075407`, 10.005476630378979`}}], StatusArea[#, 197]& , TagBoxNote->"197"], StyleBox["197", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[197, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 15.}], Offset[{0, 0}, {7300.3, 16.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 193.56074269963983`}, {-2.165862985163912, 4.169806822607541}}], StatusArea[#, 82]& , TagBoxNote->"82"], StyleBox["82", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[82, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 16.}], Offset[{0, 0}, {7255.3, 17.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 193.47561148291123`}, {-8.001532792935365, -1.665862985163912}}], StatusArea[#, 37]& , TagBoxNote->"37"], StyleBox["37", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[37, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 17.}], Offset[{0, 0}, {7224.3, 18.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 193.41696553360933`}, {-13.837202600706803`, -7.501532792935365}}], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[6, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 18.}], Offset[{0, 0}, {7227.3, 19.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 193.4226409480579}, {-19.672872408478256`, -13.337202600706803`}}], StatusArea[#, 9]& , TagBoxNote->"9"], StyleBox["9", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[9, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 19.}], Offset[{0, 0}, {7224.3, 20.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 193.41696553360933`}, {-25.508542216249694`, \ -19.172872408478256`}}], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[6, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 20.}], Offset[{0, 0}, {7224.3, 21.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 193.41696553360933`}, {-31.344212024021147`, \ -25.008542216249694`}}], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[6, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 21.}], Offset[{0, 0}, {7220.3, 22.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 193.40939831434454`}, {-37.1798818317926, -30.844212024021147`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[2, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 22.}], Offset[{0, 0}, {7220.3, 23.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 193.40939831434454`}, {-43.01555163956404, -36.6798818317926}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[2, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 23.}], Offset[{0, 0}, {7220.3, 24.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 193.40939831434454`}, {-48.851221447335504`, -42.51555163956404}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[2, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 24.}], Offset[{0, 0}, {7219.3, 25.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 193.40750650952836`}, {-54.68689125510694, -48.351221447335504`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[1, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 25.}], Offset[{0, 0}, {7220.3, 26.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 193.40939831434454`}, {-60.52256106287838, -54.18689125510694}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[2, { Directive[], Directive[]}], "Tooltip"]& ], {}, {}, {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 29.}], Offset[{0, 0}, {7219.3, 30.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 193.40750650952836`}, {-83.86524029396416, -77.52957048619272}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[1, { Directive[], Directive[]}], "Tooltip"]& ], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {7218.3, 31.}], Offset[{0, 0}, {7219.3, 32.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.90561470471218`, 193.40750650952836`}, {-95.53657990950707, -89.20091010173563}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[1, { Directive[], Directive[]}], "Tooltip"]& ], {}, {}}, {}, {}}}, {}}, {{{{{{{{}, {}}, {{}, {}}, \ {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, \ {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, \ {{}, {}}, {{}, {}}, {}, {{}, {}}, {}, {{}, {}}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {{}, {}}}, {}}, {}}, {{{{{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, \ {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, \ {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, \ {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {}, {}, {}, {{}, {}}, \ {}, {{}, {}}, {}, {}}, {}}, {}}}, {}}, {}}, StyleBox[{ TagBox[{ StyleBox[{ LineBox[{ Offset[{0, 0}, {-7218.3, -0.6500000000000001}], Offset[{0, 0}, {-90589.66500000001, -0.6500000000000001}]}], StyleBox[{{ LineBox[{{ Offset[{0, 0}, {-7218.3, -0.6500000000000001}], Offset[{0, -4.}, {-7218.3, -0.6500000000000001}]}, { Offset[{0, 0}, {-27218.300000000003`, -0.6500000000000001}], Offset[{ 0, -4.}, {-27218.300000000003`, -0.6500000000000001}]}, { Offset[{0, 0}, {-47218.3, -0.6500000000000001}], Offset[{0, -4.}, {-47218.3, -0.6500000000000001}]}, { Offset[{0, 0}, {-67218.29999999999, -0.6500000000000001}], Offset[{0, -4.}, {-67218.29999999999, -0.6500000000000001}]}, { Offset[{0, 0}, {-87218.29999999999, -0.6500000000000001}], Offset[{0, -4.}, {-87218.29999999999, -0.6500000000000001}]}}], LineBox[{{ Offset[{0, 0}, {-12218.300000000001`, -0.6500000000000001}], Offset[{ 0., -2.5}, {-12218.300000000001`, -0.6500000000000001}]}, { Offset[{0, 0}, {-17218.300000000003`, -0.6500000000000001}], Offset[{ 0., -2.5}, {-17218.300000000003`, -0.6500000000000001}]}, { Offset[{0, 0}, {-22218.300000000003`, -0.6500000000000001}], Offset[{ 0., -2.5}, {-22218.300000000003`, -0.6500000000000001}]}, { Offset[{0, 0}, {-32218.3, -0.6500000000000001}], Offset[{0., -2.5}, {-32218.3, -0.6500000000000001}]}, { Offset[{0, 0}, {-37218.3, -0.6500000000000001}], Offset[{0., -2.5}, {-37218.3, -0.6500000000000001}]}, { Offset[{0, 0}, {-42218.3, -0.6500000000000001}], Offset[{0., -2.5}, {-42218.3, -0.6500000000000001}]}, { Offset[{0, 0}, {-52218.3, -0.6500000000000001}], Offset[{0., -2.5}, {-52218.3, -0.6500000000000001}]}, { Offset[{0, 0}, {-57218.3, -0.6500000000000001}], Offset[{0., -2.5}, {-57218.3, -0.6500000000000001}]}, { Offset[{0, 0}, {-62218.299999999996`, -0.6500000000000001}], Offset[{ 0., -2.5}, {-62218.299999999996`, -0.6500000000000001}]}, { Offset[{0, 0}, {-72218.29999999999, -0.6500000000000001}], Offset[{ 0., -2.5}, {-72218.29999999999, -0.6500000000000001}]}, { Offset[{0, 0}, {-77218.29999999999, -0.6500000000000001}], Offset[{ 0., -2.5}, {-77218.29999999999, -0.6500000000000001}]}, { Offset[{0, 0}, {-82218.29999999999, -0.6500000000000001}], Offset[{ 0., -2.5}, {-82218.29999999999, -0.6500000000000001}]}}]}, StyleBox[{{{ InsetBox["0", Offset[{0., -7.}, {-7218.3, -0.6500000000000001}], ImageScaled[{0.5, 1.}], Automatic, {1, 0}], InsetBox["20000", Offset[{0., -7.}, {-27218.300000000003, -0.6500000000000001}], ImageScaled[{0.5, 1.}], Automatic, {1, 0}], InsetBox["40000", Offset[{0., -7.}, {-47218.3, -0.6500000000000001}], ImageScaled[{0.5, 1.}], Automatic, {1, 0}], InsetBox["60000", Offset[{0., -7.}, {-67218.29999999999, -0.6500000000000001}], ImageScaled[{0.5, 1.}], Automatic, {1, 0}], InsetBox["80000", Offset[{0., -7.}, {-87218.29999999999, -0.6500000000000001}], ImageScaled[{0.5, 1.}], Automatic, {1, 0}]}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, Antialiasing->False], StyleBox[{ LineBox[{ Offset[{0, 0}, {7218.3, -0.6500000000000001}], Offset[{0, 0}, {90589.66500000001, -0.6500000000000001}]}], StyleBox[{{ LineBox[{{ Offset[{0, 0}, {7218.3, -0.6500000000000001}], Offset[{0, -4.}, {7218.3, -0.6500000000000001}]}, { Offset[{0, 0}, {27218.300000000003`, -0.6500000000000001}], Offset[{0, -4.}, { 27218.300000000003`, -0.6500000000000001}]}, { Offset[{0, 0}, {47218.3, -0.6500000000000001}], Offset[{0, -4.}, {47218.3, -0.6500000000000001}]}, { Offset[{0, 0}, {67218.29999999999, -0.6500000000000001}], Offset[{0, -4.}, {67218.29999999999, -0.6500000000000001}]}, { Offset[{0, 0}, {87218.29999999999, -0.6500000000000001}], Offset[{0, -4.}, {87218.29999999999, -0.6500000000000001}]}}], LineBox[{{ Offset[{0, 0}, {12218.300000000001`, -0.6500000000000001}], Offset[{0., -2.5}, { 12218.300000000001`, -0.6500000000000001}]}, { Offset[{0, 0}, {17218.300000000003`, -0.6500000000000001}], Offset[{0., -2.5}, { 17218.300000000003`, -0.6500000000000001}]}, { Offset[{0, 0}, {22218.300000000003`, -0.6500000000000001}], Offset[{0., -2.5}, { 22218.300000000003`, -0.6500000000000001}]}, { Offset[{0, 0}, {32218.3, -0.6500000000000001}], Offset[{0., -2.5}, {32218.3, -0.6500000000000001}]}, { Offset[{0, 0}, {37218.3, -0.6500000000000001}], Offset[{0., -2.5}, {37218.3, -0.6500000000000001}]}, { Offset[{0, 0}, {42218.3, -0.6500000000000001}], Offset[{0., -2.5}, {42218.3, -0.6500000000000001}]}, { Offset[{0, 0}, {52218.3, -0.6500000000000001}], Offset[{0., -2.5}, {52218.3, -0.6500000000000001}]}, { Offset[{0, 0}, {57218.3, -0.6500000000000001}], Offset[{0., -2.5}, {57218.3, -0.6500000000000001}]}, { Offset[{0, 0}, {62218.299999999996`, -0.6500000000000001}], Offset[{0., -2.5}, { 62218.299999999996`, -0.6500000000000001}]}, { Offset[{0, 0}, {72218.29999999999, -0.6500000000000001}], Offset[{0., -2.5}, { 72218.29999999999, -0.6500000000000001}]}, { Offset[{0, 0}, {77218.29999999999, -0.6500000000000001}], Offset[{0., -2.5}, { 77218.29999999999, -0.6500000000000001}]}, { Offset[{0, 0}, {82218.29999999999, -0.6500000000000001}], Offset[{0., -2.5}, { 82218.29999999999, -0.6500000000000001}]}}]}, StyleBox[{{{ InsetBox["0", Offset[{0., -7.}, {7218.3, -0.6500000000000001}], ImageScaled[{0.5, 1.}], Automatic, {1, 0}], InsetBox["20000", Offset[{0., -7.}, {27218.300000000003, -0.6500000000000001}], ImageScaled[{0.5, 1.}], Automatic, {1, 0}], InsetBox["40000", Offset[{0., -7.}, {47218.3, -0.6500000000000001}], ImageScaled[{0.5, 1.}], Automatic, {1, 0}], InsetBox["60000", Offset[{0., -7.}, {67218.29999999999, -0.6500000000000001}], ImageScaled[{0.5, 1.}], Automatic, {1, 0}], InsetBox["80000", Offset[{0., -7.}, {87218.29999999999, -0.6500000000000001}], ImageScaled[{0.5, 1.}], Automatic, {1, 0}]}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, Antialiasing->False]}, Deploy, DefaultBaseStyle->"Deploy"], { StyleBox[{ LineBox[{ Offset[{0, 0}, {-7218.299999999999, -0.6500000000000001}], Offset[{0, 0}, {-7218.299999999999, 35.65}]}], StyleBox[{{ LineBox[{{ Offset[{0, 0}, {-7218.299999999999, 0.}], Offset[{4., 0}, {-7218.299999999999, 0.}]}, { Offset[{0, 0}, {-7218.299999999999, 10.}], Offset[{4., 0}, {-7218.299999999999, 10.}]}, { Offset[{0, 0}, {-7218.299999999999, 20.}], Offset[{4., 0}, {-7218.299999999999, 20.}]}, { Offset[{0, 0}, {-7218.299999999999, 30.}], Offset[{4., 0}, {-7218.299999999999, 30.}]}}], LineBox[{{ Offset[{0, 0}, {-7218.299999999999, 2.}], Offset[{2.5, 0.}, {-7218.299999999999, 2.}]}, { Offset[{0, 0}, {-7218.299999999999, 4.}], Offset[{2.5, 0.}, {-7218.299999999999, 4.}]}, { Offset[{0, 0}, {-7218.299999999999, 6.}], Offset[{2.5, 0.}, {-7218.299999999999, 6.}]}, { Offset[{0, 0}, {-7218.299999999999, 8.}], Offset[{2.5, 0.}, {-7218.299999999999, 8.}]}, { Offset[{0, 0}, {-7218.299999999999, 12.}], Offset[{2.5, 0.}, {-7218.299999999999, 12.}]}, { Offset[{0, 0}, {-7218.299999999999, 14.}], Offset[{2.5, 0.}, {-7218.299999999999, 14.}]}, { Offset[{0, 0}, {-7218.299999999999, 16.}], Offset[{2.5, 0.}, {-7218.299999999999, 16.}]}, { Offset[{0, 0}, {-7218.299999999999, 18.}], Offset[{2.5, 0.}, {-7218.299999999999, 18.}]}, { Offset[{0, 0}, {-7218.299999999999, 21.999999999999996`}], Offset[{2.5, 0.}, {-7218.299999999999, 21.999999999999996`}]}, { Offset[{0, 0}, {-7218.299999999999, 24.}], Offset[{2.5, 0.}, {-7218.299999999999, 24.}]}, { Offset[{0, 0}, {-7218.299999999999, 26.}], Offset[{2.5, 0.}, {-7218.299999999999, 26.}]}, { Offset[{0, 0}, {-7218.299999999999, 28.}], Offset[{2.5, 0.}, {-7218.299999999999, 28.}]}, { Offset[{0, 0}, {-7218.299999999999, 32.}], Offset[{2.5, 0.}, {-7218.299999999999, 32.}]}, { Offset[{0, 0}, {-7218.299999999999, 33.99999999999999}], Offset[{2.5, 0.}, {-7218.299999999999, 33.99999999999999}]}}]}, StyleBox[{{{{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}}}, {}}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, Antialiasing->False], StyleBox[{ LineBox[{ Offset[{0, 0}, {7218.299999999999, -0.6500000000000001}], Offset[{0, 0}, {7218.299999999999, 35.65}]}], StyleBox[{{ LineBox[{{ Offset[{0, 0}, {7218.299999999999, 0.}], Offset[{-4., 0}, {7218.299999999999, 0.}]}, { Offset[{0, 0}, {7218.299999999999, 10.}], Offset[{-4., 0}, {7218.299999999999, 10.}]}, { Offset[{0, 0}, {7218.299999999999, 20.}], Offset[{-4., 0}, {7218.299999999999, 20.}]}, { Offset[{0, 0}, {7218.299999999999, 30.}], Offset[{-4., 0}, {7218.299999999999, 30.}]}}], LineBox[{{ Offset[{0, 0}, {7218.299999999999, 2.}], Offset[{-2.5, 0.}, {7218.299999999999, 2.}]}, { Offset[{0, 0}, {7218.299999999999, 4.}], Offset[{-2.5, 0.}, {7218.299999999999, 4.}]}, { Offset[{0, 0}, {7218.299999999999, 6.}], Offset[{-2.5, 0.}, {7218.299999999999, 6.}]}, { Offset[{0, 0}, {7218.299999999999, 8.}], Offset[{-2.5, 0.}, {7218.299999999999, 8.}]}, { Offset[{0, 0}, {7218.299999999999, 12.}], Offset[{-2.5, 0.}, {7218.299999999999, 12.}]}, { Offset[{0, 0}, {7218.299999999999, 14.}], Offset[{-2.5, 0.}, {7218.299999999999, 14.}]}, { Offset[{0, 0}, {7218.299999999999, 16.}], Offset[{-2.5, 0.}, {7218.299999999999, 16.}]}, { Offset[{0, 0}, {7218.299999999999, 18.}], Offset[{-2.5, 0.}, {7218.299999999999, 18.}]}, { Offset[{0, 0}, {7218.299999999999, 21.999999999999996`}], Offset[{-2.5, 0.}, {7218.299999999999, 21.999999999999996`}]}, { Offset[{0, 0}, {7218.299999999999, 24.}], Offset[{-2.5, 0.}, {7218.299999999999, 24.}]}, { Offset[{0, 0}, {7218.299999999999, 26.}], Offset[{-2.5, 0.}, {7218.299999999999, 26.}]}, { Offset[{0, 0}, {7218.299999999999, 28.}], Offset[{-2.5, 0.}, {7218.299999999999, 28.}]}, { Offset[{0, 0}, {7218.299999999999, 32.}], Offset[{-2.5, 0.}, {7218.299999999999, 32.}]}, { Offset[{0, 0}, {7218.299999999999, 33.99999999999999}], Offset[{-2.5, 0.}, {7218.299999999999, 33.99999999999999}]}}]}, StyleBox[{{{{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}}}, {}}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, Antialiasing->False], { StyleBox[InsetBox[ PaneBox["0"], {0, 0.}, ImageScaled[{1/2, 1/2}]], "GraphicsLabel", StripOnInput->False], StyleBox[InsetBox[ PaneBox["10"], {0, 10.}, ImageScaled[{1/2, 1/2}]], "GraphicsLabel", StripOnInput->False], StyleBox[InsetBox[ PaneBox["20"], {0, 20.}, ImageScaled[{1/2, 1/2}]], "GraphicsLabel", StripOnInput->False], StyleBox[InsetBox[ PaneBox["30"], {0, 30.}, ImageScaled[{1/2, 1/2}]], "GraphicsLabel", StripOnInput->False]}, {}}}, Antialiasing->False]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {{{-7218.3, FormBox["0", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-27218.3, FormBox["20000", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-47218.3, FormBox["40000", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-67218.3, FormBox["60000", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-87218.3, FormBox["80000", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-12218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-17218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-22218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-32218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-37218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-42218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-52218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-57218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-62218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-72218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-77218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-82218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-92218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-97218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-102218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-107218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {7218.3, FormBox["0", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {27218.3, FormBox["20000", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {47218.3, FormBox["40000", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {67218.3, FormBox["60000", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {87218.3, FormBox["80000", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {12218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {17218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {22218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {37218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {42218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {52218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {57218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {62218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {72218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {77218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {82218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {92218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {97218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {102218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {107218.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}, {{-7218.3, FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-27218.3, FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-47218.3, FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-67218.3, FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-87218.3, FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-12218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-17218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-22218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-32218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-37218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-42218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-52218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-57218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-62218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-72218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-77218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-82218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-92218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-97218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-102218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-107218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {7218.3, FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {27218.3, FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {47218.3, FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {67218.3, FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {87218.3, FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {12218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {17218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {22218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {37218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {42218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {52218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {57218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {62218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {72218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {77218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {82218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {92218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {97218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {102218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {107218.3, FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{All, All}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}]], "Output", CellChangeTimes->{3.6833753002168913`*^9}] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{775, 873}, WindowMargins->{{136, Automatic}, {Automatic, 0}}, WindowTitle->"Examples for Northanger Abbey", 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[623, 23, 36, 0, 70, "Subsection",ExpressionUUID->"b8786625-413b-4b29-aba7-0d752f667c07"], Cell[662, 25, 215, 3, 70, "Text",ExpressionUUID->"5cce2ccc-1e73-41d7-9405-65f33900facb"], Cell[CellGroupData[{ Cell[902, 32, 213, 3, 70, "Input",ExpressionUUID->"a7b2c68e-0c9c-4aba-ae51-2adc1e8434dc"], Cell[1118, 37, 14370, 320, 70, "Output",ExpressionUUID->"e4aaf537-f1b3-4e05-a4d7-e91faaf81294"] }, Open ]], Cell[15503, 360, 204, 3, 70, "Text",ExpressionUUID->"094b9cb0-650f-45c2-932b-46b93fcb7ff8"], Cell[CellGroupData[{ Cell[15732, 367, 316, 8, 70, "Input",ExpressionUUID->"f7c11b5c-cfa1-464e-b2f7-911d32b11c61"], Cell[16051, 377, 598, 8, 70, "Output",ExpressionUUID->"f82a701d-11dc-4a42-94a5-24fc13492b5b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16698, 391, 35, 0, 70, "Subsection",ExpressionUUID->"ca73be82-a0e3-48d2-8f9f-c50a5ea495f6"], Cell[16736, 393, 260, 3, 70, "Text",ExpressionUUID->"55c5cb16-b7f1-455a-91f1-023d9d58b5c6"], Cell[CellGroupData[{ Cell[17021, 400, 286, 6, 70, "Input",ExpressionUUID->"9a37c65b-58db-4c21-8d68-4aced980344e"], Cell[17310, 408, 23591, 563, 70, "Output",ExpressionUUID->"cf9ad772-a583-42cc-87a3-2066dd571f89"] }, Open ]], Cell[40916, 974, 389, 5, 70, "Text",ExpressionUUID->"81ce343b-5855-4ca0-ac03-453985053f41"], Cell[CellGroupData[{ Cell[41330, 983, 525, 12, 70, "Input",ExpressionUUID->"f32eb809-0a44-4072-8d77-f96235770143"], Cell[41858, 997, 70868, 1848, 70, "Output",ExpressionUUID->"a49661ad-9482-4bb2-90fc-d807f46505f0"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)