(* 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[ 28414, 688] NotebookOptionsPosition[ 27150, 653] NotebookOutlinePosition[ 27675, 675] CellTagsIndexPosition[ 27632, 672] WindowTitle->Examples for The Trial WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell["Retrieve the text:", "Text", CellChangeTimes->{{3.696186645510051*^9, 3.6961866545240507`*^9}, { 3.696187841532233*^9, 3.696187852829363*^9}, {3.886177927794586*^9, 3.886177928244403*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Snippet", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", " ", "15"}], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, { 3.702656670319079*^9, 3.702656688141016*^9}, {3.702656792649723*^9, 3.702656800636956*^9}, 3.886177921822472*^9}], Cell[BoxData["\<\"The Trial\\nFranz Kafka\\n\\nChapter One\\nArrest - \ Conversation with Mrs. Grubach - Then Miss B\[UDoubleDot]rstner\\n\\n \ Someone must have been telling lies about Josef K., he knew he had\\ndone \ nothing wrong but, one morning, he was arrested. Every day at\\neight in the \ morning he was brought his breakfast by Mrs. Grubach's\\ncook - Mrs. Grubach \ was his landlady - but today she didn't come. That\\nhad never happened \ before. K. waited a little while, looked from his\\npillow at the old woman \ who lived opposite and who was watching him with\\nan inquisitiveness quite \ unusual for her, and finally, both hungry and\\ndisconcerted, rang the bell. \ There was immediately a knock at the door\\nand a man entered. He had never \ seen the man in this house before. He\"\>"], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.702656657962638*^9, 3.702656688488056*^9}, {3.702656793353997*^9, 3.702656801024495*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell["Create a WordCloud:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.7026568067207327`*^9, 3.7026568109263897`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{"DeleteStopwords", "[", RowBox[{ "ResourceData", "[", "\"\<45256228-4912-4fdb-984b-bbfcc0f4f85b\>\"", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.702656812387733*^9, 3.702656822271613*^9}}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"said\"\>", StripOnInput->False, FontSize->Scaled[0.20605695117124928`], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"K\"\>", StripOnInput->False, FontSize->Scaled[0.2978723404255319], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {-18., 36.}, Center, Automatic], InsetBox[ StyleBox["\<\"lawyer\"\>", StripOnInput->False, FontSize->Scaled[0.07557054821627124], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {1., -25.}, Center, Automatic], InsetBox[ StyleBox["\<\"asked\"\>", StripOnInput->False, FontSize->Scaled[0.07692742588997985], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {28., 32.}, Center, Automatic], InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.08733015472174586], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {5., -43.}, Center, Automatic], InsetBox[ StyleBox["\<\"businessman\"\>", StripOnInput->False, FontSize->Scaled[0.04978987241580762], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {-3., -56.}, Center, Automatic], InsetBox[ StyleBox["\<\"looked\"\>", StripOnInput->False, FontSize->Scaled[0.06448938054765091], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {25., 49.}, Center, Automatic], InsetBox[ StyleBox["\<\"doorkeeper\"\>", StripOnInput->False, FontSize->Scaled[0.045719239394681796`], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {-55., -20.}, Center, Automatic], InsetBox[ StyleBox["\<\"wanted\"\>", StripOnInput->False, FontSize->Scaled[0.05838343101596216], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {-40., -41.}, Center, Automatic], InsetBox[ StyleBox["\<\"just\"\>", StripOnInput->False, FontSize->Scaled[0.08733015472174586], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {47., -27.}, Center, Automatic], InsetBox[ StyleBox["\<\"door\"\>", StripOnInput->False, FontSize->Scaled[0.07647513333207696], FontColor->RGBColor[1, 0.75, 0]], {-58., 19.}, Center, Automatic], InsetBox[ StyleBox["\<\"thought\"\>", StripOnInput->False, FontSize->Scaled[0.05680040706330211], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {68., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"painter\"\>", StripOnInput->False, FontSize->Scaled[0.060871040084427945`], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {-68., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"way\"\>", StripOnInput->False, FontSize->Scaled[0.07896274240054274], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {-57., 36.}, Center, Automatic], InsetBox[ StyleBox["\<\"gentlemen\"\>", StripOnInput->False, FontSize->Scaled[0.0425531914893617], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {-10., -68.}, Center, Automatic], InsetBox[ StyleBox["\<\"important\"\>", StripOnInput->False, FontSize->Scaled[0.045493093115730354`], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {67., 13.}, Center, Automatic], InsetBox[ StyleBox["\<\"probably\"\>", StripOnInput->False, FontSize->Scaled[0.04775455590524471], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {30., 65.}, Center, Automatic], InsetBox[ StyleBox["\<\"especially\"\>", StripOnInput->False, FontSize->Scaled[0.043683922884118875`], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {49., -44.}, Center, Automatic], InsetBox[ StyleBox["\<\"people\"\>", StripOnInput->False, FontSize->Scaled[0.05634811450539925], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {37., -68.}, Center, Automatic], InsetBox[ StyleBox["\<\"hand\"\>", StripOnInput->False, FontSize->Scaled[0.06788157473192244], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {72., 26.}, Center, Automatic], InsetBox[ StyleBox["\<\"B\[UDoubleDot]rstner\"\>", StripOnInput->False, FontSize->Scaled[0.047076117068390405`], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {0., 75.}, Center, Automatic], InsetBox[ StyleBox["\<\"certainly\"\>", StripOnInput->False, FontSize->Scaled[0.04481465427887606], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {-61., 50.}, Center, Automatic], InsetBox[ StyleBox["\<\"possible\"\>", StripOnInput->False, FontSize->Scaled[0.045493093115730354`], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {-6., -80.}, Center, Automatic], InsetBox[ StyleBox["\<\"director\"\>", StripOnInput->False, FontSize->Scaled[0.047980702184196145`], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {-59., -54.}, Center, Automatic], InsetBox[ StyleBox["\<\"room\"\>", StripOnInput->False, FontSize->Scaled[0.07398752426361117], FontColor->RGBColor[0.571589, 0.586483, 0.]], {75., 41.}, Center, Automatic], InsetBox[ StyleBox["\<\"like\"\>", StripOnInput->False, FontSize->Scaled[0.07941503495844562], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {80., -19.}, Center, Automatic], InsetBox[ StyleBox["\<\"know\"\>", StripOnInput->False, FontSize->Scaled[0.06290635659499086], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {-58., 62.}, Center, Automatic], InsetBox[ StyleBox["\<\"court\"\>", StripOnInput->False, FontSize->Scaled[0.067655428452971], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {3., 88.}, Center, Automatic], InsetBox[ StyleBox["\<\"want\"\>", StripOnInput->False, FontSize->Scaled[0.06268021031603943], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {-41., 76.}, Center, Automatic], InsetBox[ StyleBox["\<\"business\"\>", StripOnInput->False, FontSize->Scaled[0.04458850799992462], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {45., 77.}, Center, Automatic], InsetBox[ StyleBox["\<\"really\"\>", StripOnInput->False, FontSize->Scaled[0.0554435293895935], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {-53., -68.}, Center, Automatic], InsetBox[ StyleBox["\<\"quite\"\>", StripOnInput->False, FontSize->Scaled[0.061323332642330815`], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {69., 55.}, Center, Automatic], InsetBox[ StyleBox["\<\"judge\"\>", StripOnInput->False, FontSize->Scaled[0.052729774042176276`], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {-82., -34.}, Center, Automatic], InsetBox[ StyleBox["\<\"make\"\>", StripOnInput->False, FontSize->Scaled[0.05725269962120498], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {34., -84.}, Center, Automatic], InsetBox[ StyleBox["\<\"waiting\"\>", StripOnInput->False, FontSize->Scaled[0.045266946836778926`], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {-2., -93.}, Center, Automatic], InsetBox[ StyleBox["\<\"looking\"\>", StripOnInput->False, FontSize->Scaled[0.046623824510487535`], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {75., -57.}, Center, Automatic], InsetBox[ StyleBox["\<\"things\"\>", StripOnInput->False, FontSize->Scaled[0.05159904264741911], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {-44., -82.}, Center, Automatic], InsetBox[ StyleBox["\<\"away\"\>", StripOnInput->False, FontSize->Scaled[0.05340821287903059], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {89., -32.}, Center, Automatic], InsetBox[ StyleBox["\<\"window\"\>", StripOnInput->False, FontSize->Scaled[0.045493093115730354`], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {-35., 89.}, Center, Automatic], InsetBox[ StyleBox["\<\"come\"\>", StripOnInput->False, FontSize->Scaled[0.06109718636337938], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {42., 89.}, Center, Automatic], InsetBox[ StyleBox["\<\"think\"\>", StripOnInput->False, FontSize->Scaled[0.05318206660007915], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {-90., 31.}, Center, Automatic], InsetBox[ StyleBox["\<\"man\"\>", StripOnInput->False, FontSize->Scaled[0.06923845240563103], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {34., -96.}, Center, Automatic], InsetBox[ StyleBox["\<\"course\"\>", StripOnInput->False, FontSize->Scaled[0.051825188926370544`], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {-4., 100.}, Center, Automatic], InsetBox[ StyleBox["\<\"round\"\>", StripOnInput->False, FontSize->Scaled[0.048432994742099014`], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {-37., -96.}, Center, Automatic], InsetBox[ StyleBox["\<\"good\"\>", StripOnInput->False, FontSize->Scaled[0.0509206038105648], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {-92., 11.}, Center, Automatic], InsetBox[ StyleBox["\<\"Trial\"\>", StripOnInput->False, FontSize->Scaled[0.05453894427378777], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {73., -73.}, Center, Automatic], InsetBox[ StyleBox["\<\"Miss\"\>", StripOnInput->False, FontSize->Scaled[0.056121968226447806`], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {-74., 76.}, Center, Automatic], InsetBox[ StyleBox["\<\"office\"\>", StripOnInput->False, FontSize->Scaled[0.04956372613685619], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {37., 99.}, Center, Automatic], InsetBox[ StyleBox["\<\"hardly\"\>", StripOnInput->False, FontSize->Scaled[0.04413621544202175], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {84., 67.}, Center, Automatic], InsetBox[ StyleBox["\<\"right\"\>", StripOnInput->False, FontSize->Scaled[0.05318206660007915], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {-84., -67.}, Center, Automatic], InsetBox[ StyleBox["\<\"went\"\>", StripOnInput->False, FontSize->Scaled[0.055669675668544936`], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {69., -86.}, Center, Automatic], InsetBox[ StyleBox["\<\"long\"\>", StripOnInput->False, FontSize->Scaled[0.057478845900156415`], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {-90., 62.}, Center, Automatic], InsetBox[ StyleBox["\<\"turned\"\>", StripOnInput->False, FontSize->Scaled[0.04481465427887606], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {-40., 100.}, Center, Automatic], InsetBox[ StyleBox["\<\"woman\"\>", StripOnInput->False, FontSize->Scaled[0.047528409626293275`], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {-81., -81.}, Center, Automatic], InsetBox[ StyleBox["\<\"priest\"\>", StripOnInput->False, FontSize->Scaled[0.04617153195258466], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {83., 81.}, Center, Automatic], InsetBox[ StyleBox["\<\"going\"\>", StripOnInput->False, FontSize->Scaled[0.04730226334734184], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {-72., 91.}, Center, Automatic], InsetBox[ StyleBox["\<\"stood\"\>", StripOnInput->False, FontSize->Scaled[0.05114675008951624], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {-69., -95.}, Center, Automatic], InsetBox[ StyleBox["\<\"uncle\"\>", StripOnInput->False, FontSize->Scaled[0.05159904264741911], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {66., -99.}, Center, Automatic], InsetBox[ StyleBox["\<\"hands\"\>", StripOnInput->False, FontSize->Scaled[0.045719239394681796`], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {69., 98.}, Center, Automatic], InsetBox[ StyleBox["\<\"open\"\>", StripOnInput->False, FontSize->Scaled[0.045719239394681796`], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {-98., -14.}, Center, Automatic], InsetBox[ StyleBox["\<\"little\"\>", StripOnInput->False, FontSize->Scaled[0.05725269962120498], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {-96., 45.}, Center, Automatic], InsetBox[ StyleBox["\<\"work\"\>", StripOnInput->False, FontSize->Scaled[0.05069445753161336], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {-4., -106.}, Center, Automatic], InsetBox[ StyleBox["\<\"front\"\>", StripOnInput->False, FontSize->Scaled[0.04956372613685619], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {95., -46.}, Center, Automatic], InsetBox[ StyleBox["\<\"better\"\>", StripOnInput->False, FontSize->Scaled[0.045719239394681796`], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {-96., -49.}, Center, Automatic], InsetBox[ StyleBox["\<\"close\"\>", StripOnInput->False, FontSize->Scaled[0.043683922884118875`], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {0., 110.}, Center, Automatic], InsetBox[ StyleBox["\<\"called\"\>", StripOnInput->False, FontSize->Scaled[0.045719239394681796`], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {27., -110.}, Center, Automatic], InsetBox[ StyleBox["\<\"need\"\>", StripOnInput->False, FontSize->Scaled[0.04684997078943896], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {100., 51.}, Center, Automatic], InsetBox[ StyleBox["\<\"head\"\>", StripOnInput->False, FontSize->Scaled[0.04684997078943896], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {-42., -109.}, Center, Automatic], InsetBox[ StyleBox["\<\"took\"\>", StripOnInput->False, FontSize->Scaled[0.04775455590524471], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {104., 5.}, Center, Automatic], InsetBox[ StyleBox["\<\"help\"\>", StripOnInput->False, FontSize->Scaled[0.047980702184196145`], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {103., 19.}, Center, Automatic], InsetBox[ StyleBox["\<\"place\"\>", StripOnInput->False, FontSize->Scaled[0.0425531914893617], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {53., 110.}, Center, Automatic], InsetBox[ StyleBox["\<\"leave\"\>", StripOnInput->False, FontSize->Scaled[0.0425531914893617], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {56., -110.}, Center, Automatic], InsetBox[ StyleBox["\<\"steps\"\>", StripOnInput->False, FontSize->Scaled[0.04277933776831314], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {101., -70.}, Center, Automatic], InsetBox[ StyleBox["\<\"say\"\>", StripOnInput->False, FontSize->Scaled[0.05499123683169063], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {105., -7.}, Center, Automatic], InsetBox[ StyleBox["\<\"block\"\>", StripOnInput->False, FontSize->Scaled[0.045040800557827484`], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {-37., 110.}, Center, Automatic], InsetBox[ StyleBox["\<\"Look\"\>", StripOnInput->False, FontSize->Scaled[0.04594538567363323], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {-72., 103.}, Center, Automatic], InsetBox[ StyleBox["\<\"bank\"\>", StripOnInput->False, FontSize->Scaled[0.04594538567363323], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {-103., 75.}, Center, Automatic], InsetBox[ StyleBox["\<\"Leni\"\>", StripOnInput->False, FontSize->Scaled[0.051825188926370544`], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {-69., -108.}, Center, Automatic], InsetBox[ StyleBox["\<\"able\"\>", StripOnInput->False, FontSize->Scaled[0.04730226334734184], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {96., -85.}, Center, Automatic], InsetBox[ StyleBox["\<\"came\"\>", StripOnInput->False, FontSize->Scaled[0.04458850799992462], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {-101., 88.}, Center, Automatic], InsetBox[ StyleBox["\<\"bed\"\>", StripOnInput->False, FontSize->Scaled[0.04730226334734184], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {106., 31.}, Center, Automatic], InsetBox[ StyleBox["\<\"yes\"\>", StripOnInput->False, FontSize->Scaled[0.047528409626293275`], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {-96., -93.}, Center, Automatic], InsetBox[ StyleBox["\<\"else\"\>", StripOnInput->False, FontSize->Scaled[0.0425531914893617], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {77., 109.}, Center, Automatic], InsetBox[ StyleBox["\<\"Mrs.\"\>", StripOnInput->False, FontSize->Scaled[0.04391006916307032], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {98., 91.}, Center, Automatic], InsetBox[ StyleBox["\<\"light\"\>", StripOnInput->False, FontSize->Scaled[0.04300548404726457], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {93., -99.}, Center, Automatic], InsetBox[ StyleBox["\<\"far\"\>", StripOnInput->False, FontSize->Scaled[0.052729774042176276`], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {-105., -2.}, Center, Automatic], InsetBox[ StyleBox["\<\"seen\"\>", StripOnInput->False, FontSize->Scaled[0.0463976782315361], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {83., -111.}, Center, Automatic], InsetBox[ StyleBox["\<\"got\"\>", StripOnInput->False, FontSize->Scaled[0.0463976782315361], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {107., 79.}, Center, Automatic], InsetBox[ StyleBox["\<\"case\"\>", StripOnInput->False, FontSize->Scaled[0.048659141021050456`], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {-98., 99.}, Center, Automatic], InsetBox[ StyleBox["\<\"soon\"\>", StripOnInput->False, FontSize->Scaled[0.045266946836778926`], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {-95., -106.}, Center, Automatic], InsetBox[ StyleBox["\<\"sort\"\>", StripOnInput->False, FontSize->Scaled[0.04458850799992462], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {104., -57.}, Center, Automatic], InsetBox[ StyleBox["\<\"end\"\>", StripOnInput->False, FontSize->Scaled[0.04391006916307032], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {98., 103.}, Center, Automatic], InsetBox[ StyleBox["\<\"told\"\>", StripOnInput->False, FontSize->Scaled[0.043231630326216006`], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {-107., -62.}, Center, Automatic], InsetBox[ StyleBox["\<\"old\"\>", StripOnInput->False, FontSize->Scaled[0.04277933776831314], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {-108., -29.}, Center, Automatic], InsetBox[ StyleBox["\<\"tell\"\>", StripOnInput->False, FontSize->Scaled[0.04413621544202175], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {22., 110.}, Center, Automatic], InsetBox[ StyleBox["\<\"left\"\>", StripOnInput->False, FontSize->Scaled[0.04345777660516745], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {-93., 109.}, Center, Automatic], InsetBox[ StyleBox["\<\"let\"\>", StripOnInput->False, FontSize->Scaled[0.04775455590524471], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {-109., -75.}, Center, Automatic], InsetBox[ StyleBox["\<\"sat\"\>", StripOnInput->False, FontSize->Scaled[0.0425531914893617], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {108., 63.}, Center, Automatic], InsetBox[ StyleBox["\<\"saw\"\>", StripOnInput->False, FontSize->Scaled[0.0425531914893617], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {106., -20.}, Center, Automatic], InsetBox[ StyleBox["\<\"s\"\>", StripOnInput->False, FontSize->Scaled[0.06019260124757364], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {-19., 20.}, Center, Automatic]}, DefaultBaseStyle->{"Graphics", FontFamily -> "Helvetica"}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-117.5, 117.5}, {-117.5, 117.5}}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.7026568313172073`*^9}] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{775, 852}, WindowMargins->{{462, 443}, {Automatic, 21}}, WindowTitle->"Examples for The Trial", Visible->True, DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, 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[616, 23, 36, 0, 70, "Subsection",ExpressionUUID->"46a76750-00a6-41db-ab6f-8020e1ec9855"], Cell[655, 25, 200, 3, 70, "Text",ExpressionUUID->"c9a4c018-6837-4f8c-ac26-0389666e3a1f"], Cell[CellGroupData[{ Cell[880, 32, 338, 7, 70, "Input",ExpressionUUID->"8c9362a1-d220-4c6e-8f45-145062af9e2e"], Cell[1221, 41, 1192, 15, 70, "Output",ExpressionUUID->"75f49b08-4a58-4ac5-8b0b-272edeba3206"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2462, 62, 35, 0, 70, "Subsection",ExpressionUUID->"cb042ea2-148e-4c06-9318-35737b50be66"], Cell[2500, 64, 352, 5, 70, "Text",ExpressionUUID->"a68f6bf9-cb65-4536-8f1b-a64c1b60f2c3"], Cell[CellGroupData[{ Cell[2877, 73, 508, 10, 70, "Input",ExpressionUUID->"475775ba-aa41-4aa7-8f85-5225d0a9570f"], Cell[3388, 85, 23734, 564, 70, "Output",ExpressionUUID->"2f5d3137-2568-4945-b925-b1794b6341d3"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)