(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 42939, 1028] NotebookOptionsPosition[ 41194, 982] NotebookOutlinePosition[ 41777, 1004] CellTagsIndexPosition[ 41734, 1001] WindowTitle->Examples for Mansfield Park WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell[CellGroupData[{ 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["\<\"Mansfield Park\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Jane Austen's \\\"Mansfield Park\\\"\"\ \>", "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["\<\"Mansfield Park\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Jane Austen's \\\"Mansfield Park\\\"\"\ \>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Categories: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",","\",\"","\"Textual Data\"","\"Literature\"","\"Text\""}, "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\"","\"book\"","\"novel\""}, "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[ "2739c925-1bd8-4f32-8d6b-9548ba3acbec"]; 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["\<\"2739c925-1bd8-4f32-8d6b-9548ba3acbec\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"883.352`","\"kB\"","kilobytes","\"Kilobytes\""}, "Quantity"], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Elements: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\"","\"Plaintext\""}, "RowWithSeparators"], Short[#, 2]& ], "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open$$], ImageSize->Automatic], BaselinePosition->Baseline], DynamicModuleValues:>{}], "]"}], ResourceObject[ Association[ "Name" -> "Mansfield Park", "UUID" -> "2739c925-1bd8-4f32-8d6b-9548ba3acbec", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Plaintext for Jane Austen's \"Mansfield Park\"", "ContentSize" -> Quantity[883.352, "Kilobytes"], "ContentElements" -> {"Plaintext"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.6831224693061237`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ 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[{"[", "15", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, 3.6831224814263353`*^9, {3.6831225408243604`*^9, 3.6831225616343603`*^9}, { 3.701442542204073*^9, 3.701442556461073*^9}}], Cell[BoxData["\<\"\\\"Then she had better come to us,\\\" said Lady Bertram, \ with the utmost\\ncomposure. After a short pause Sir Thomas added with \ dignity, \\\"Yes, let\\nher home be in this house. We will endeavour to do \ our duty by her, and\\nshe will, at least, have the advantage of companions \ of her own age, and\\nof a regular instructress.\\\"\"\>"], "Output", CellChangeTimes->{{3.683122471120305*^9, 3.6831225128953605`*^9}, { 3.6831225560673604`*^9, 3.68312257210336*^9}, {3.701442553449073*^9, 3.7014425569290724`*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell[CellGroupData[{ 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.6831225800783606`*^9, 3.68312258312936*^9}}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"Fanny\"\>", StripOnInput->False, FontSize->Scaled[0.2272727272727273], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"Crawford\"\>", StripOnInput->False, FontSize->Scaled[0.14166445799098862`], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {-0.5, 44.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Edmund\"\>", StripOnInput->False, FontSize->Scaled[0.10773919957593428`], FontColor->RGBColor[1, 0.75, 0]], {-0.5, -39.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Miss\"\>", StripOnInput->False, FontSize->Scaled[0.1260270341902995], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {-0.5, -69.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Thomas\"\>", StripOnInput->False, FontSize->Scaled[0.08733103631062815], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {-0.5, 74.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Mr.\"\>", StripOnInput->False, FontSize->Scaled[0.13848396501457727`], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {-81.5, -44.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Mrs.\"\>", StripOnInput->False, FontSize->Scaled[0.11913596607474158`], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {8.5, 95.5}, Center, Automatic], InsetBox[ StyleBox["\<\"said\"\>", StripOnInput->False, FontSize->Scaled[0.11913596607474158`], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {74.5, -61.5}, Center, Automatic], InsetBox[ StyleBox["\<\"good\"\>", StripOnInput->False, FontSize->Scaled[0.08574078982242248], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {17.5, -90.5}, Center, Automatic], InsetBox[ StyleBox["\<\"think\"\>", StripOnInput->False, FontSize->Scaled[0.1040286244367877], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {-75.5, -74.5}, Center, Automatic], InsetBox[ StyleBox["\<\"MANSFIELD\"\>", StripOnInput->False, FontSize->Scaled[0.059766763848396506`], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {-64.5, -95.5}, Center, Automatic], InsetBox[ StyleBox["\<\"thought\"\>", StripOnInput->False, FontSize->Scaled[0.06294725682480785], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {81.5, 75.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Bertram\"\>", StripOnInput->False, FontSize->Scaled[0.07487410548635039], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {-86.5, 72.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Rushworth\"\>", StripOnInput->False, FontSize->Scaled[0.060031804929764114`], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {-6.5, -112.5}, Center, Automatic], InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.09342698118208323], FontColor->RGBColor[0.571589, 0.586483, 0.]], {-56.5, 97.5}, Center, Automatic], InsetBox[ StyleBox["\<\"little\"\>", StripOnInput->False, FontSize->Scaled[0.09316194010071562], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {73.5, -88.5}, Center, Automatic], InsetBox[ StyleBox["\<\"great\"\>", StripOnInput->False, FontSize->Scaled[0.06374238006891068], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {108.5, -31.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Sir\"\>", StripOnInput->False, FontSize->Scaled[0.10985952822687518`], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {109.5, 27.5}, Center, Automatic], InsetBox[ StyleBox["\<\"feelings\"\>", StripOnInput->False, FontSize->Scaled[0.050490326000530085`], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {63.5, 94.5}, Center, Automatic], InsetBox[ StyleBox["\<\"know\"\>", StripOnInput->False, FontSize->Scaled[0.07805459846276173], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {31.5, 112.5}, Center, Automatic], InsetBox[ StyleBox["\<\"quite\"\>", StripOnInput->False, FontSize->Scaled[0.06427246223164591], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {-19.5, 119.5}, Center, Automatic], InsetBox[ StyleBox["\<\"soon\"\>", StripOnInput->False, FontSize->Scaled[0.06983832494036576], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {62.5, -108.5}, Center, Automatic], InsetBox[ StyleBox["\<\"young\"\>", StripOnInput->False, FontSize->Scaled[0.051815531407368144`], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {-71.5, -108.5}, Center, Automatic], InsetBox[ StyleBox["\<\"say\"\>", StripOnInput->False, FontSize->Scaled[0.06665783196395442], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {109.5, -11.5}, Center, Automatic], InsetBox[ StyleBox["\<\"lady\"\>", StripOnInput->False, FontSize->Scaled[0.05897164060429366], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {-110.5, 0.5}, Center, Automatic], InsetBox[ StyleBox["\<\"pleasure\"\>", StripOnInput->False, FontSize->Scaled[0.0375033130135171], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {-26.5, 20.5}, Center, Automatic], InsetBox[ StyleBox["\<\"house\"\>", StripOnInput->False, FontSize->Scaled[0.0576464351974556], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {-67.5, 116.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Crawford's\"\>", StripOnInput->False, FontSize->Scaled[0.04068380598992844], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {41.5, 125.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Norris\"\>", StripOnInput->False, FontSize->Scaled[0.060031804929764114`], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {90.5, 106.5}, Center, Automatic], InsetBox[ StyleBox["\<\"away\"\>", StripOnInput->False, FontSize->Scaled[0.05287569573283859], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {-112.5, 18.5}, Center, Automatic], InsetBox[ StyleBox["\<\"make\"\>", StripOnInput->False, FontSize->Scaled[0.05817651736019084], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {-106.5, 90.5}, Center, Automatic], InsetBox[ StyleBox["\<\"family\"\>", StripOnInput->False, FontSize->Scaled[0.04439438112907501], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {-110.5, 32.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Fanny's\"\>", StripOnInput->False, FontSize->Scaled[0.03988868274582561], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {59.5, -124.5}, Center, Automatic], InsetBox[ StyleBox["\<\"happy\"\>", StripOnInput->False, FontSize->Scaled[0.0420090113967665], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {-111.5, -15.5}, Center, Automatic], InsetBox[ StyleBox["\<\"happiness\"\>", StripOnInput->False, FontSize->Scaled[0.03379273787437053], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {27.5, 20.5}, Center, Automatic], InsetBox[ StyleBox["\<\"subject\"\>", StripOnInput->False, FontSize->Scaled[0.03935860058309038], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {110.5, -105.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Henry\"\>", StripOnInput->False, FontSize->Scaled[0.04280413464086934], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {107.5, 50.5}, Center, Automatic], InsetBox[ StyleBox["\<\"shall\"\>", StripOnInput->False, FontSize->Scaled[0.06082692817386695], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {-111.5, 47.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hope\"\>", StripOnInput->False, FontSize->Scaled[0.04757487410548636], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {115.5, 3.5}, Center, Automatic], InsetBox[ StyleBox["\<\"better\"\>", StripOnInput->False, FontSize->Scaled[0.0507553670818977], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {-77.5, -123.5}, Center, Automatic], InsetBox[ StyleBox["\<\"long\"\>", StripOnInput->False, FontSize->Scaled[0.05128544924463292], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {-109.5, 108.5}, Center, Automatic], InsetBox[ StyleBox["\<\"moment\"\>", StripOnInput->False, FontSize->Scaled[0.042274052478134115`], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {-0.5, -126.5}, Center, Automatic], InsetBox[ StyleBox["\<\"William\"\>", StripOnInput->False, FontSize->Scaled[0.04386429896633978], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {95.5, 120.5}, Center, Automatic], InsetBox[ StyleBox["\<\"certainly\"\>", StripOnInput->False, FontSize->Scaled[0.0332626557116353], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {103.5, -121.5}, Center, Automatic], InsetBox[ StyleBox["\<\"speak\"\>", StripOnInput->False, FontSize->Scaled[0.03935860058309038], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {111.5, 91.5}, Center, Automatic], InsetBox[ StyleBox["\<\"sister\"\>", StripOnInput->False, FontSize->Scaled[0.056056188709249936`], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {-8.5, 134.5}, Center, Automatic], InsetBox[ StyleBox["\<\"day\"\>", StripOnInput->False, FontSize->Scaled[0.05393586005830904], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {-126.5, -30.5}, Center, Automatic], InsetBox[ StyleBox["\<\"way\"\>", StripOnInput->False, FontSize->Scaled[0.04943016167505964], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {69.5, 20.5}, Center, Automatic], InsetBox[ StyleBox["\<\"home\"\>", StripOnInput->False, FontSize->Scaled[0.049165120593692026`], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {-49.5, 130.5}, Center, Automatic], InsetBox[ StyleBox["\<\"mind\"\>", StripOnInput->False, FontSize->Scaled[0.05102040816326531], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {-44.5, -135.5}, Center, Automatic], InsetBox[ StyleBox["\<\"opinion\"\>", StripOnInput->False, FontSize->Scaled[0.03246753246753247], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {121.5, 60.5}, Center, Automatic], InsetBox[ StyleBox["\<\"going\"\>", StripOnInput->False, FontSize->Scaled[0.03962364166445799], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {124.5, -47.5}, Center, Automatic], InsetBox[ StyleBox["\<\"indeed\"\>", StripOnInput->False, FontSize->Scaled[0.041213888152663664`], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {121.5, -82.5}, Center, Automatic], InsetBox[ StyleBox["\<\"place\"\>", StripOnInput->False, FontSize->Scaled[0.038033395176252316`], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {123.5, -62.5}, Center, Automatic], InsetBox[ StyleBox["\<\"like\"\>", StripOnInput->False, FontSize->Scaled[0.06082692817386695], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {-127.5, -46.5}, Center, Automatic], InsetBox[ StyleBox["\<\"present\"\>", StripOnInput->False, FontSize->Scaled[0.03273257354890008], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {-88.5, 128.5}, Center, Automatic], InsetBox[ StyleBox["\<\"dear\"\>", StripOnInput->False, FontSize->Scaled[0.05367081897694143], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {-115.5, -109.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Grant\"\>", StripOnInput->False, FontSize->Scaled[0.04651470978001591], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {83.5, 135.5}, Center, Automatic], InsetBox[ StyleBox["\<\"began\"\>", StripOnInput->False, FontSize->Scaled[0.03591306652531143], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {40.5, -134.5}, Center, Automatic], InsetBox[ StyleBox["\<\"just\"\>", StripOnInput->False, FontSize->Scaled[0.04518950437317785], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {-65.5, -9.5}, Center, Automatic], InsetBox[ StyleBox["\<\"found\"\>", StripOnInput->False, FontSize->Scaled[0.04094884707129605], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {97.5, -135.5}, Center, Automatic], InsetBox[ StyleBox["\<\"room\"\>", StripOnInput->False, FontSize->Scaled[0.0441293400477074], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {-80.5, -135.5}, Center, Automatic], InsetBox[ StyleBox["\<\"manner\"\>", StripOnInput->False, FontSize->Scaled[0.03458786111847337], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {-0.5, -136.5}, Center, Automatic], InsetBox[ StyleBox["\<\"brother\"\>", StripOnInput->False, FontSize->Scaled[0.036708189769414264`], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {32.5, 137.5}, Center, Automatic], InsetBox[ StyleBox["\<\"really\"\>", StripOnInput->False, FontSize->Scaled[0.03432282003710575], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {-126.5, -60.5}, Center, Automatic], InsetBox[ StyleBox["\<\"heart\"\>", StripOnInput->False, FontSize->Scaled[0.0420090113967665], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {-126.5, -73.5}, Center, Automatic], InsetBox[ StyleBox["\<\"mother\"\>", StripOnInput->False, FontSize->Scaled[0.03458786111847337], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {-92.5, 136.5}, Center, Automatic], InsetBox[ StyleBox["\<\"came\"\>", StripOnInput->False, FontSize->Scaled[0.038033395176252316`], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {-116.5, -121.5}, Center, Automatic], InsetBox[ StyleBox["\<\"come\"\>", StripOnInput->False, FontSize->Scaled[0.03962364166445799], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {-123.5, 121.5}, Center, Automatic], InsetBox[ StyleBox["\<\"spirits\"\>", StripOnInput->False, FontSize->Scaled[0.032997614630267694`], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {128.5, 71.5}, Center, Automatic], InsetBox[ StyleBox["\<\"sure\"\>", StripOnInput->False, FontSize->Scaled[0.04518950437317785], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {-115.5, -132.5}, Center, Automatic], InsetBox[ StyleBox["\<\"gone\"\>", StripOnInput->False, FontSize->Scaled[0.036178107606679034`], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {61.5, 61.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Maria\"\>", StripOnInput->False, FontSize->Scaled[0.03962364166445799], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {119.5, 130.5}, Center, Automatic], InsetBox[ StyleBox["\<\"comfort\"\>", StripOnInput->False, FontSize->Scaled[0.032997614630267694`], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {-5.5, 146.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Julia\"\>", StripOnInput->False, FontSize->Scaled[0.04306917572223695], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {-44.5, 140.5}, Center, Automatic], InsetBox[ StyleBox["\<\"wish\"\>", StripOnInput->False, FontSize->Scaled[0.04439438112907501], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {23.5, -146.5}, Center, Automatic], InsetBox[ StyleBox["\<\"man\"\>", StripOnInput->False, FontSize->Scaled[0.045719586535913063`], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {-7.5, -146.5}, Center, Automatic], InsetBox[ StyleBox["\<\"poor\"\>", StripOnInput->False, FontSize->Scaled[0.03644314868804665], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {139.5, 14.5}, Center, Automatic], InsetBox[ StyleBox["\<\"love\"\>", StripOnInput->False, FontSize->Scaled[0.04386429896633978], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {-130.5, -86.5}, Center, Automatic], InsetBox[ StyleBox["\<\"look\"\>", StripOnInput->False, FontSize->Scaled[0.046779750861383515`], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {59.5, -146.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Price\"\>", StripOnInput->False, FontSize->Scaled[0.03909355950172277], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {131.5, 102.5}, Center, Automatic], InsetBox[ StyleBox["\<\"father\"\>", StripOnInput->False, FontSize->Scaled[0.034852902199840975`], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {-136.5, 57.5}, Center, Automatic], InsetBox[ StyleBox["\<\"aunt\"\>", StripOnInput->False, FontSize->Scaled[0.04280413464086934], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {138.5, 40.5}, Center, Automatic], InsetBox[ StyleBox["\<\"want\"\>", StripOnInput->False, FontSize->Scaled[0.03776835409488471], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {-70.5, 145.5}, Center, Automatic], InsetBox[ StyleBox["\<\"right\"\>", StripOnInput->False, FontSize->Scaled[0.036708189769414264`], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {139.5, -15.5}, Center, Automatic], InsetBox[ StyleBox["\<\"looked\"\>", StripOnInput->False, FontSize->Scaled[0.03273257354890008], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {30.5, 147.5}, Center, Automatic], InsetBox[ StyleBox["\<\"felt\"\>", StripOnInput->False, FontSize->Scaled[0.05393586005830904], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {-140.5, 69.5}, Center, Automatic], InsetBox[ StyleBox["\<\"friend\"\>", StripOnInput->False, FontSize->Scaled[0.03697323085078188], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {62.5, 147.5}, Center, Automatic], InsetBox[ StyleBox["\<\"cousin\"\>", StripOnInput->False, FontSize->Scaled[0.03246753246753247], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {-73.5, -147.5}, Center, Automatic], InsetBox[ StyleBox["\<\"best\"\>", StripOnInput->False, FontSize->Scaled[0.038033395176252316`], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {132.5, 113.5}, Center, Automatic], InsetBox[ StyleBox["\<\"feel\"\>", StripOnInput->False, FontSize->Scaled[0.044924463291810234`], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {-138.5, 101.5}, Center, Automatic], InsetBox[ StyleBox["\<\"uncle\"\>", StripOnInput->False, FontSize->Scaled[0.036708189769414264`], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {138.5, -92.5}, Center, Automatic], InsetBox[ StyleBox["\<\"half\"\>", StripOnInput->False, FontSize->Scaled[0.04094884707129605], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {-140.5, 0.5}, Center, Automatic], InsetBox[ StyleBox["\<\"heard\"\>", StripOnInput->False, FontSize->Scaled[0.0332626557116353], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {89.5, -147.5}, Center, Automatic], InsetBox[ StyleBox["\<\"seen\"\>", StripOnInput->False, FontSize->Scaled[0.03458786111847337], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {-66.5, 12.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Yes\"\>", StripOnInput->False, FontSize->Scaled[0.03962364166445799], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {-140.5, 27.5}, Center, Automatic], InsetBox[ StyleBox["\<\"saw\"\>", StripOnInput->False, FontSize->Scaled[0.035382984362576204`], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {-35.5, -146.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hear\"\>", StripOnInput->False, FontSize->Scaled[0.034057778955738145`], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {-138.5, -96.5}, Center, Automatic], InsetBox[ StyleBox["\<\"till\"\>", StripOnInput->False, FontSize->Scaled[0.03882851842035516], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {-68.5, -25.5}, Center, Automatic], InsetBox[ StyleBox["\<\"far\"\>", StripOnInput->False, FontSize->Scaled[0.03273257354890008], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {67.5, -45.5}, Center, Automatic]}, DefaultBaseStyle->{ "Graphics", FontFamily -> "Helvetica", FontWeight -> Plain, FontTracking -> "Plain", FontSlant -> Plain, FontVariations -> {}}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-154., 154.}, {-154., 153.}}]], "Output", CellChangeTimes->{3.6831225913493605`*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"Examples for Mansfield Park", DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, Background->GrayLevel[0.9999], FrontEndVersion->"11.2 for Linux x86 (64-bit) (September 10, 2017)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "CreateDataResourceStyleSheet.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[621, 23, 36, 0, 70, "Subsection",ExpressionUUID->"ba256d2e-f7c7-4fcf-a557-79325f6486e9"], Cell[CellGroupData[{ Cell[682, 27, 215, 3, 70, "Text",ExpressionUUID->"f8bd523d-20fb-4e8c-b1e2-ba77876e6d5f"], Cell[CellGroupData[{ Cell[922, 34, 211, 3, 70, "Input",ExpressionUUID->"be741797-bc2c-4674-9a69-8a8a4e56a8fe"], Cell[1136, 39, 14294, 319, 70, "Output",ExpressionUUID->"b7b89d38-511d-4e19-9c3a-02ef330896e9"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15479, 364, 204, 3, 70, "Text",ExpressionUUID->"3dee92a6-84e3-41d5-b95a-c61dfebca6f3"], Cell[CellGroupData[{ Cell[15708, 371, 417, 9, 70, "Input",ExpressionUUID->"100006bd-6552-4a8f-aa71-dd6f789b0be6"], Cell[16128, 382, 545, 7, 70, "Output",ExpressionUUID->"8217eccb-df0a-4ead-aecc-fcded742b595"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16734, 396, 35, 0, 70, "Subsection",ExpressionUUID->"7bcba133-2ee9-4eb2-a58f-5f743465c397"], Cell[CellGroupData[{ Cell[16794, 400, 260, 3, 70, "Text",ExpressionUUID->"367e9778-bffe-46df-9a4c-4743ffc6cd3e"], Cell[CellGroupData[{ Cell[17079, 407, 235, 5, 70, "Input",ExpressionUUID->"89cef2b4-1a1f-4aa2-8ee6-5974263249c5"], Cell[17317, 414, 23837, 563, 70, "Output",ExpressionUUID->"55e91679-6b53-4b27-90a9-211d5896e6e8"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)