(* 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[ 27162, 667] NotebookOptionsPosition[ 25946, 632] NotebookOutlinePosition[ 26517, 655] CellTagsIndexPosition[ 26474, 652] WindowTitle->Examples for Pride and Prejudice WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell["Retrieve the text:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}, {3.8862394195521603`*^9, 3.886239422552475*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, { 3.6831196203799367`*^9, 3.6831196311688576`*^9}, {3.7029146315693293`*^9, 3.702914663228695*^9}}], Cell[BoxData["\<\"It is a truth universally acknowledged, that a single man \ in possession\\nof a good fortune, must be in want of a wife.\"\>"], "Output",\ CellChangeTimes->{{3.6831196017018046`*^9, 3.6831196314738274`*^9}, { 3.702914641919222*^9, 3.702914663620823*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{"DeleteStopwords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6831196481481595`*^9, 3.6831196722737465`*^9}, { 3.702914672914361*^9, 3.702914673544057*^9}}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"Elizabeth\"\>", StripOnInput->False, FontSize->Scaled[0.18872048965316232`], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"Mr.\"\>", StripOnInput->False, FontSize->Scaled[0.23972602739726026`], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {-0.5, 46.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Darcy\"\>", StripOnInput->False, FontSize->Scaled[0.1240163217720781], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {-0.5, -36.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Bingley\"\>", StripOnInput->False, FontSize->Scaled[0.09020693675313318], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {-15.5, -62.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Bennet\"\>", StripOnInput->False, FontSize->Scaled[0.1009909647333139], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {-0.5, 85.5}, Center, Automatic], InsetBox[ StyleBox["\<\"said\"\>", StripOnInput->False, FontSize->Scaled[0.13217720781113376`], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {67.5, 44.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Mrs.\"\>", StripOnInput->False, FontSize->Scaled[0.1146895948703002], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {-78.5, -34.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Jane\"\>", StripOnInput->False, FontSize->Scaled[0.09195569804721654], FontColor->RGBColor[1, 0.75, 0]], {76.5, -32.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Miss\"\>", StripOnInput->False, FontSize->Scaled[0.09749344214514719], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {-77.5, 33.5}, Center, Automatic], InsetBox[ StyleBox["\<\"know\"\>", StripOnInput->False, FontSize->Scaled[0.08408627222384144], FontColor->RGBColor[0.571589, 0.586483, 0.]], {-0.5, -84.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Wickham\"\>", StripOnInput->False, FontSize->Scaled[0.062226756047799474`], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {66.5, -66.5}, Center, Automatic], InsetBox[ StyleBox["\<\"good\"\>", StripOnInput->False, FontSize->Scaled[0.07126202273389681], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {-71.5, 57.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Longbourn\"\>", StripOnInput->False, FontSize->Scaled[0.0403672398717575], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {84.5, -50.5}, Center, Automatic], InsetBox[ StyleBox["\<\"lady\"\>", StripOnInput->False, FontSize->Scaled[0.06805596036141066], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {-77.5, -57.5}, Center, Automatic], InsetBox[ StyleBox["\<\"thing\"\>", StripOnInput->False, FontSize->Scaled[0.062226756047799474`], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {-50.5, -82.5}, Center, Automatic], InsetBox[ StyleBox["\<\"thought\"\>", StripOnInput->False, FontSize->Scaled[0.04736228504809094], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {-0.5, 100.5}, Center, Automatic], InsetBox[ StyleBox["\<\"soon\"\>", StripOnInput->False, FontSize->Scaled[0.07854852812591082], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {57.5, -81.5}, Center, Automatic], InsetBox[ StyleBox["\<\"sister\"\>", StripOnInput->False, FontSize->Scaled[0.06689011949868842], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {72.5, 69.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Collins\"\>", StripOnInput->False, FontSize->Scaled[0.06047799475371612], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {-0.5, -103.5}, Center, Automatic], InsetBox[ StyleBox["\<\"family\"\>", StripOnInput->False, FontSize->Scaled[0.059312153890993875`], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {-68.5, 76.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Catherine\"\>", StripOnInput->False, FontSize->Scaled[0.047070824832410374`], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {-0.5, 114.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Lydia\"\>", StripOnInput->False, FontSize->Scaled[0.05377440979306325], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {47.5, -98.5}, Center, Automatic], InsetBox[ StyleBox["\<\"pleasure\"\>", StripOnInput->False, FontSize->Scaled[0.042116001165840855`], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {72.5, 83.5}, Center, Automatic], InsetBox[ StyleBox["\<\"make\"\>", StripOnInput->False, FontSize->Scaled[0.06368405712620226], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {-53.5, -99.5}, Center, Automatic], InsetBox[ StyleBox["\<\"young\"\>", StripOnInput->False, FontSize->Scaled[0.05260856893034101], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {-66.5, 93.5}, Center, Automatic], InsetBox[ StyleBox["\<\"think\"\>", StripOnInput->False, FontSize->Scaled[0.07650830661614688], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {55.5, 104.5}, Center, Automatic], InsetBox[ StyleBox["\<\"great\"\>", StripOnInput->False, FontSize->Scaled[0.056397551734188284`], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {-92.5, -74.5}, Center, Automatic], InsetBox[ StyleBox["\<\"happiness\"\>", StripOnInput->False, FontSize->Scaled[0.03599533663654911], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {-0.5, -117.5}, Center, Automatic], InsetBox[ StyleBox["\<\"replied\"\>", StripOnInput->False, FontSize->Scaled[0.045030603322646454`], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {-53.5, 106.5}, Center, Automatic], InsetBox[ StyleBox["\<\"feelings\"\>", StripOnInput->False, FontSize->Scaled[0.04065870008743806], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {-50.5, -114.5}, Center, Automatic], InsetBox[ StyleBox["\<\"say\"\>", StripOnInput->False, FontSize->Scaled[0.06164383561643835], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {108.5, 19.5}, Center, Automatic], InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.0735937044593413], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {63.5, -115.5}, Center, Automatic], InsetBox[ StyleBox["\<\"daughter\"\>", StripOnInput->False, FontSize->Scaled[0.03745263771495191], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {-98.5, -88.5}, Center, Automatic], InsetBox[ StyleBox["\<\"subject\"\>", StripOnInput->False, FontSize->Scaled[0.039784319440396385`], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {90.5, -95.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hope\"\>", StripOnInput->False, FontSize->Scaled[0.05027688720489653], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {-108.5, 69.5}, Center, Automatic], InsetBox[ StyleBox["\<\"little\"\>", StripOnInput->False, FontSize->Scaled[0.07009618187117458], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {97.5, 95.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Long\"\>", StripOnInput->False, FontSize->Scaled[0.04881958612649373], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {104.5, -81.5}, Center, Automatic], InsetBox[ StyleBox["\<\"away\"\>", StripOnInput->False, FontSize->Scaled[0.049111046342174294`], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {-108.5, 82.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Gardiner\"\>", StripOnInput->False, FontSize->Scaled[0.03949285922471582], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {-57.5, 118.5}, Center, Automatic], InsetBox[ StyleBox["\<\"dear\"\>", StripOnInput->False, FontSize->Scaled[0.060769454969396675`], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {-93.5, 104.5}, Center, Automatic], InsetBox[ StyleBox["\<\"shall\"\>", StripOnInput->False, FontSize->Scaled[0.06251821626348003], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {-96.5, -104.5}, Center, Automatic], InsetBox[ StyleBox["\<\"marriage\"\>", StripOnInput->False, FontSize->Scaled[0.03424657534246575], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {64.5, 118.5}, Center, Automatic], InsetBox[ StyleBox["\<\"mother\"\>", StripOnInput->False, FontSize->Scaled[0.04677936461672981], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {15.5, 127.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Netherfield\"\>", StripOnInput->False, FontSize->Scaled[0.03628679685222967], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {-0.5, -130.5}, Center, Automatic], InsetBox[ StyleBox["\<\"manner\"\>", StripOnInput->False, FontSize->Scaled[0.0432818420285631], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {-51.5, -126.5}, Center, Automatic], InsetBox[ StyleBox["\<\"evening\"\>", StripOnInput->False, FontSize->Scaled[0.03599533663654911], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {59.5, 128.5}, Center, Automatic], InsetBox[ StyleBox["\<\"morning\"\>", StripOnInput->False, FontSize->Scaled[0.03716117749927135], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {104.5, -107.5}, Center, Automatic], InsetBox[ StyleBox["\<\"certainly\"\>", StripOnInput->False, FontSize->Scaled[0.035703876420868544`], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {-30.5, 128.5}, Center, Automatic], InsetBox[ StyleBox["\<\"day\"\>", StripOnInput->False, FontSize->Scaled[0.05319148936170212], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {-110.5, -52.5}, Center, Automatic], InsetBox[ StyleBox["\<\"opinion\"\>", StripOnInput->False, FontSize->Scaled[0.034538035558146316`], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {-115.5, 49.5}, Center, Automatic], InsetBox[ StyleBox["\<\"indeed\"\>", StripOnInput->False, FontSize->Scaled[0.04299038181288253], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {-95.5, -119.5}, Center, Automatic], InsetBox[ StyleBox["\<\"father\"\>", StripOnInput->False, FontSize->Scaled[0.04881958612649373], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {107.5, 110.5}, Center, Automatic], InsetBox[ StyleBox["\<\"present\"\>", StripOnInput->False, FontSize->Scaled[0.034829495773826866`], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {116.5, 67.5}, Center, Automatic], InsetBox[ StyleBox["\<\"believe\"\>", StripOnInput->False, FontSize->Scaled[0.04065870008743806], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {-72.5, 129.5}, Center, Automatic], InsetBox[ StyleBox["\<\"really\"\>", StripOnInput->False, FontSize->Scaled[0.04095016030311863], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {119.5, 29.5}, Center, Automatic], InsetBox[ StyleBox["\<\"way\"\>", StripOnInput->False, FontSize->Scaled[0.04648790440104926], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {119.5, -25.5}, Center, Automatic], InsetBox[ StyleBox["\<\"house\"\>", StripOnInput->False, FontSize->Scaled[0.04590498396968813], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {46.5, -127.5}, Center, Automatic], InsetBox[ StyleBox["\<\"happy\"\>", StripOnInput->False, FontSize->Scaled[0.03920139900903527], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {119.5, 42.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Charlotte\"\>", StripOnInput->False, FontSize->Scaled[0.034538035558146316`], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {88.5, -129.5}, Center, Automatic], InsetBox[ StyleBox["\<\"quite\"\>", StripOnInput->False, FontSize->Scaled[0.04269892159720198], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {120.5, 53.5}, Center, Automatic], InsetBox[ StyleBox["\<\"man\"\>", StripOnInput->False, FontSize->Scaled[0.056980472165549405`], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {115.5, 78.5}, Center, Automatic], InsetBox[ StyleBox["\<\"letter\"\>", StripOnInput->False, FontSize->Scaled[0.04881958612649373], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {98.5, 127.5}, Center, Automatic], InsetBox[ StyleBox["\<\"attention\"\>", StripOnInput->False, FontSize->Scaled[0.034829495773826866`], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {-106.5, 116.5}, Center, Automatic], InsetBox[ StyleBox["\<\"friend\"\>", StripOnInput->False, FontSize->Scaled[0.04532206353832702], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {-110.5, 127.5}, Center, Automatic], InsetBox[ StyleBox["\<\"room\"\>", StripOnInput->False, FontSize->Scaled[0.048528125910813166`], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {-127.5, 0.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Lizzy\"\>", StripOnInput->False, FontSize->Scaled[0.04269892159720198], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {-120.5, 29.5}, Center, Automatic], InsetBox[ StyleBox["\<\"place\"\>", StripOnInput->False, FontSize->Scaled[0.036869717283590786`], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {-124.5, -11.5}, Center, Automatic], InsetBox[ StyleBox["\<\"heard\"\>", StripOnInput->False, FontSize->Scaled[0.04007577965607695], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {-127.5, 10.5}, Center, Automatic], InsetBox[ StyleBox["\<\"better\"\>", StripOnInput->False, FontSize->Scaled[0.041824540950160305`], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {127.5, 0.5}, Center, Automatic], InsetBox[ StyleBox["\<\"came\"\>", StripOnInput->False, FontSize->Scaled[0.04124162051879918], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {20.5, 66.5}, Center, Automatic], InsetBox[ StyleBox["\<\"come\"\>", StripOnInput->False, FontSize->Scaled[0.04240746138152142], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {-126.5, -23.5}, Center, Automatic], InsetBox[ StyleBox["\<\"speak\"\>", StripOnInput->False, FontSize->Scaled[0.03424657534246575], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {125.5, -11.5}, Center, Automatic], InsetBox[ StyleBox["\<\"sisters\"\>", StripOnInput->False, FontSize->Scaled[0.03716117749927135], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {-127.5, -35.5}, Center, Automatic], InsetBox[ StyleBox["\<\"towards\"\>", StripOnInput->False, FontSize->Scaled[0.03512095598950743], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {126.5, -38.5}, Center, Automatic], InsetBox[ StyleBox["\<\"looked\"\>", StripOnInput->False, FontSize->Scaled[0.03657825706791023], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {121.5, -62.5}, Center, Automatic], InsetBox[ StyleBox["\<\"wish\"\>", StripOnInput->False, FontSize->Scaled[0.0432818420285631], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {-4.5, 139.5}, Center, Automatic], InsetBox[ StyleBox["\<\"sure\"\>", StripOnInput->False, FontSize->Scaled[0.045030603322646454`], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {-123.5, -63.5}, Center, Automatic], InsetBox[ StyleBox["\<\"cried\"\>", StripOnInput->False, FontSize->Scaled[0.04153308073447974], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {35.5, 137.5}, Center, Automatic], InsetBox[ StyleBox["\<\"ladies\"\>", StripOnInput->False, FontSize->Scaled[0.03657825706791023], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {-35.5, 138.5}, Center, Automatic], InsetBox[ StyleBox["\<\"added\"\>", StripOnInput->False, FontSize->Scaled[0.035703876420868544`], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {33.5, -139.5}, Center, Automatic], InsetBox[ StyleBox["\<\"saw\"\>", StripOnInput->False, FontSize->Scaled[0.044739143106965897`], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {129.5, -47.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Kitty\"\>", StripOnInput->False, FontSize->Scaled[0.03512095598950743], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {-39.5, -138.5}, Center, Automatic], InsetBox[ StyleBox["\<\"just\"\>", StripOnInput->False, FontSize->Scaled[0.03599533663654911], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {55.5, 19.5}, Center, Automatic], InsetBox[ StyleBox["\<\"found\"\>", StripOnInput->False, FontSize->Scaled[0.03424657534246575], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {-126.5, -75.5}, Center, Automatic], InsetBox[ StyleBox["\<\"home\"\>", StripOnInput->False, FontSize->Scaled[0.034538035558146316`], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {-66.5, -136.5}, Center, Automatic], InsetBox[ StyleBox["\<\"love\"\>", StripOnInput->False, FontSize->Scaled[0.04153308073447974], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {62.5, 139.5}, Center, Automatic], InsetBox[ StyleBox["\<\"seen\"\>", StripOnInput->False, FontSize->Scaled[0.03716117749927135], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {-0.5, -139.5}, Center, Automatic], InsetBox[ StyleBox["\<\"world\"\>", StripOnInput->False, FontSize->Scaled[0.03424657534246575], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {-64.5, 139.5}, Center, Automatic], InsetBox[ StyleBox["\<\"felt\"\>", StripOnInput->False, FontSize->Scaled[0.044156222675604775`], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {133.5, 12.5}, Center, Automatic], InsetBox[ StyleBox["\<\"aunt\"\>", StripOnInput->False, FontSize->Scaled[0.037744097930632464`], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {62.5, -140.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Yes\"\>", StripOnInput->False, FontSize->Scaled[0.03657825706791023], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {130.5, -73.5}, Center, Automatic], InsetBox[ StyleBox["\<\"went\"\>", StripOnInput->False, FontSize->Scaled[0.034538035558146316`], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {97.5, -118.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hear\"\>", StripOnInput->False, FontSize->Scaled[0.035412416205187994`], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {-133.5, 56.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Oh\"\>", StripOnInput->False, FontSize->Scaled[0.04240746138152142], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {-134.5, -47.5}, Center, Automatic], InsetBox[ StyleBox["\<\"told\"\>", StripOnInput->False, FontSize->Scaled[0.035412416205187994`], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {126.5, 87.5}, Center, Automatic], InsetBox[ StyleBox["\<\"like\"\>", StripOnInput->False, FontSize->Scaled[0.03745263771495191], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {-134.5, 66.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Sir\"\>", StripOnInput->False, FontSize->Scaled[0.03803555814631303], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {-121.5, 92.5}, Center, Automatic], InsetBox[ StyleBox["\<\"tell\"\>", StripOnInput->False, FontSize->Scaled[0.035412416205187994`], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {-134.5, 76.5}, Center, Automatic], InsetBox[ StyleBox["\<\"till\"\>", StripOnInput->False, FontSize->Scaled[0.04269892159720198], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {130.5, -85.5}, Center, Automatic], InsetBox[ StyleBox["\<\"let\"\>", StripOnInput->False, FontSize->Scaled[0.036869717283590786`], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {-128.5, -86.5}, Center, Automatic]}, DefaultBaseStyle->{ "Graphics", FontFamily -> "Helvetica", FontWeight -> Plain, FontTracking -> "Plain", FontSlant -> Plain, FontVariations -> {}}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-146., 146.}, {-147., 146.}}]], "Output", CellChangeTimes->{{3.6831196634966245`*^9, 3.683119680080966*^9}}] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{780, 873}, WindowMargins->{{239, Automatic}, {Automatic, 0}}, WindowTitle->"Examples for Pride and Prejudice", 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[626, 23, 36, 0, 70, "Subsection",ExpressionUUID->"5c8a548a-3558-4a96-8c80-0ab93326982e"], Cell[665, 25, 256, 3, 70, "Text",ExpressionUUID->"51a7c8c9-6283-452d-9518-151b7ae4c137"], Cell[CellGroupData[{ Cell[946, 32, 397, 9, 70, "Input",ExpressionUUID->"d945fa4c-f172-4c9b-b77f-4d17f3b92110"], Cell[1346, 43, 277, 4, 70, "Output",ExpressionUUID->"5349c82b-c492-417c-8f9c-f3e994e2f565"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1672, 53, 35, 0, 70, "Subsection",ExpressionUUID->"403790e7-1b5b-4b9e-a305-15646f2a6295"], Cell[CellGroupData[{ Cell[1732, 57, 292, 6, 70, "Input",ExpressionUUID->"09478ff4-2faf-445f-88e2-cac9990699c2"], Cell[2027, 65, 23891, 563, 70, "Output",ExpressionUUID->"810de1a3-b098-4b12-92ca-d5f97dbe7e1f"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)