(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 80728, 1979] NotebookOptionsPosition[ 78622, 1919] NotebookOutlinePosition[ 79242, 1942] CellTagsIndexPosition[ 79199, 1939] WindowTitle->Examples for The Rainbow WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection",ExpressionUUID->"5aecf08a-fac2-47b7-ac20-620ebfac3675"], Cell["Retrieve the ResourceObject:", "Text", CellChangeTimes->{{3.6821849447840075`*^9, 3.682184951647694*^9}, { 3.6821850182913575`*^9, 3.6821850462121496`*^9}, {3.6821850885233803`*^9, 3.68218509051958*^9}},ExpressionUUID->"39c74c84-9198-4470-a829-\ 76bbe0f9ce33"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804517731799183`*^9, 3.6804517885604563`*^9}, { 3.6804527318597765`*^9, 3.6804527390684977`*^9}},ExpressionUUID->"82a30d55-aab7-4f43-add9-\ ddb4e51e0fb0"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["ResourceObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"], ImageSizeCache->{12., {0., 12.}}], Appearance->None, ButtonFunction:>(Typeset`open$$ = True), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, { 3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, {FaceForm[{RGBColor[0.274612, 0.618881, 0.810913], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, { 56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, { 9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, {2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}}, AspectRatio->1, Axes->False, Background->None, Frame->None, FrameTicks->None, ImageSize->{Automatic, Dynamic[(3.5 CurrentValue["FontCapHeight"])/AbsoluteCurrentValue[ Magnification], ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{ { RowBox[{ TagBox["\<\"Name: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"The Rainbow\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for D.H. Lawrence's \\\"The Rainbow\\\"\"\ \>", "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True-> GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], Appearance->None, ButtonFunction:>(Typeset`open$$ = False), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, { 3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, {FaceForm[{RGBColor[0.274612, 0.618881, 0.810913], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, { 56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, { 9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, {2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}}, AspectRatio->1, Axes->False, Background->None, Frame->None, FrameTicks->None, ImageSize->{Automatic, Dynamic[(3.5 CurrentValue["FontCapHeight"])/AbsoluteCurrentValue[ Magnification], ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{ { RowBox[{ TagBox["\<\"Name: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"The Rainbow\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for D.H. Lawrence's \\\"The Rainbow\\\"\"\ \>", "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\""}, "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[ "f8811be8-791b-4cf1-b699-a88865a33c63"]; 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["\<\"f8811be8-791b-4cf1-b699-a88865a33c63\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"\\[LeftAssociation]", RowBox[{"\<\"Plaintext\"\>", "\[Rule]", "1029992"}], "\\[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[ Association[ "Name" -> "The Rainbow", "UUID" -> "f8811be8-791b-4cf1-b699-a88865a33c63", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Plaintext for D.H. Lawrence's \"The Rainbow\"", "ContentSize" -> Association["Plaintext" -> 1029992], "ContentElements" -> {"Plaintext"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.68847977309848*^9},ExpressionUUID->"728e484c-f27a-442b-85c9-04a611110570"] }, 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}},ExpressionUUID->"6f2b2254-8ae3-41e5-9825-\ 8e6d22d06b10"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", "10", "]"}], "]"}]], "Input", CellChangeTimes->{ 3.6884797966106462`*^9, {3.702830632686366*^9, 3.7028306351647043`*^9}},ExpressionUUID->"4d4592a3-446d-4344-91f0-\ a117266284d7"], Cell[BoxData["\<\"The women were different. On them too was the drowse \ of\\nblood-intimacy, calves sucking and hens running together in\\ndroves, \ and young geese palpitating in the hand while the food\\nwas pushed down \ their throttle. But the women looked out from\\nthe heated, blind intercourse \ of farm-life, to the spoken world\\nbeyond. They were aware of the lips and \ the mind of the world\\nspeaking and giving utterance, they heard the sound \ in the\\ndistance, and they strained to listen.\"\>"], "Output", CellChangeTimes->{{3.688479775590931*^9, 3.6884798253293877`*^9}, 3.702830636287751*^9},ExpressionUUID->"5036482d-7b14-4a47-86e2-\ 27ade7ea6169"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection",ExpressionUUID->"ce5a6e8b-b062-4d9b-9364-f8b50349dc0d"], 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.702830650060328*^9, 3.702830652707677*^9}},ExpressionUUID->"1d9d87d1-92b5-4b0a-9b70-\ 48f786052d7d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{"DeleteStopwords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}], "]"}]], "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.702830653917676*^9, 3.7028306636348753`*^9}},ExpressionUUID->"b808c8c9-3bd3-4d96-8d45-\ 9a481a79a1f0"], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"said\"\>", StripOnInput->False, FontSize->Scaled[0.21084337349397592`], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"BRANGWEN\"\>", StripOnInput->False, FontSize->Scaled[0.10666194188518782`], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {0., -40.}, Center, Automatic], InsetBox[ StyleBox["\<\"Ursula\"\>", StripOnInput->False, FontSize->Scaled[0.13881998582565555`], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {0., 49.}, Center, Automatic], InsetBox[ StyleBox["\<\"like\"\>", StripOnInput->False, FontSize->Scaled[0.1760276399716513], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {0., -80.}, Center, Automatic], InsetBox[ StyleBox["\<\"went\"\>", StripOnInput->False, FontSize->Scaled[0.14254075124025514`], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {0., 86.}, Center, Automatic], InsetBox[ StyleBox["\<\"came\"\>", StripOnInput->False, FontSize->Scaled[0.13084691708008503`], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {-2., -113.}, Center, Automatic], InsetBox[ StyleBox["\<\"away\"\>", StripOnInput->False, FontSize->Scaled[0.10240963855421688`], FontColor->RGBColor[1, 0.75, 0]], {-99., 22.}, Center, Automatic], InsetBox[ StyleBox["\<\"wanted\"\>", StripOnInput->False, FontSize->Scaled[0.08832388377037563], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {-10., 110.}, Center, Automatic], InsetBox[ StyleBox["\<\"little\"\>", StripOnInput->False, FontSize->Scaled[0.1236711552090716], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {97., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"eyes\"\>", StripOnInput->False, FontSize->Scaled[0.09470233876683204], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {76., -62.}, Center, Automatic], InsetBox[ StyleBox["\<\"mother\"\>", StripOnInput->False, FontSize->Scaled[0.07290928419560597], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {-83., -64.}, Center, Automatic], InsetBox[ StyleBox["\<\"face\"\>", StripOnInput->False, FontSize->Scaled[0.0904500354358611], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {-94., -7.}, Center, Automatic], InsetBox[ StyleBox["\<\"world\"\>", StripOnInput->False, FontSize->Scaled[0.07955350815024805], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {-97., 42.}, Center, Automatic], InsetBox[ StyleBox["\<\"darkness\"\>", StripOnInput->False, FontSize->Scaled[0.05829199149539334], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {91., 71.}, Center, Automatic], InsetBox[ StyleBox["\<\"knew\"\>", StripOnInput->False, FontSize->Scaled[0.07955350815024805], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {100., 29.}, Center, Automatic], InsetBox[ StyleBox["\<\"child\"\>", StripOnInput->False, FontSize->Scaled[0.08008504606661943], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {-71., -88.}, Center, Automatic], InsetBox[ StyleBox["\<\"children\"\>", StripOnInput->False, FontSize->Scaled[0.054305457122608085`], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {98., 50.}, Center, Automatic], InsetBox[ StyleBox["\<\"life\"\>", StripOnInput->False, FontSize->Scaled[0.0936392629340893], FontColor->RGBColor[0.571589, 0.586483, 0.]], {-85., 66.}, Center, Automatic], InsetBox[ StyleBox["\<\"know\"\>", StripOnInput->False, FontSize->Scaled[0.06945428773919207], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {71., -88.}, Center, Automatic], InsetBox[ StyleBox["\<\"father\"\>", StripOnInput->False, FontSize->Scaled[0.06254429482636428], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {79., 90.}, Center, Automatic], InsetBox[ StyleBox["\<\"heart\"\>", StripOnInput->False, FontSize->Scaled[0.06706236711552091], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {-82., 91.}, Center, Automatic], InsetBox[ StyleBox["\<\"great\"\>", StripOnInput->False, FontSize->Scaled[0.06307583274273565], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {77., -107.}, Center, Automatic], InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.07078313253012049], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {69., 111.}, Center, Automatic], InsetBox[ StyleBox["\<\"looked\"\>", StripOnInput->False, FontSize->Scaled[0.05643160878809355], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {0., 130.}, Center, Automatic], InsetBox[ StyleBox["\<\"dark\"\>", StripOnInput->False, FontSize->Scaled[0.0689227498228207], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {-81., -111.}, Center, Automatic], InsetBox[ StyleBox["\<\"strange\"\>", StripOnInput->False, FontSize->Scaled[0.05085046066619419], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {12., -136.}, Center, Automatic], InsetBox[ StyleBox["\<\"stood\"\>", StripOnInput->False, FontSize->Scaled[0.05829199149539334], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {-54., 126.}, Center, Automatic], InsetBox[ StyleBox["\<\"come\"\>", StripOnInput->False, FontSize->Scaled[0.073706591070163], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {-48., -137.}, Center, Automatic], InsetBox[ StyleBox["\<\"felt\"\>", StripOnInput->False, FontSize->Scaled[0.07769312544294826], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {123., -28.}, Center, Automatic], InsetBox[ StyleBox["\<\"Skrebensky\"\>", StripOnInput->False, FontSize->Scaled[0.03756201275690999], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {63., 131.}, Center, Automatic], InsetBox[ StyleBox["\<\"Anna\"\>", StripOnInput->False, FontSize->Scaled[0.05377391920623671], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {-81., 109.}, Center, Automatic], InsetBox[ StyleBox["\<\"people\"\>", StripOnInput->False, FontSize->Scaled[0.04819277108433735], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {77., -126.}, Center, Automatic], InsetBox[ StyleBox["\<\"man\"\>", StripOnInput->False, FontSize->Scaled[0.07981927710843374], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {119., 106.}, Center, Automatic], InsetBox[ StyleBox["\<\"woman\"\>", StripOnInput->False, FontSize->Scaled[0.057228915662650606`], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {-111., 127.}, Center, Automatic], InsetBox[ StyleBox["\<\"soul\"\>", StripOnInput->False, FontSize->Scaled[0.06467044649184975], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {-125., -30.}, Center, Automatic], InsetBox[ StyleBox["\<\"things\"\>", StripOnInput->False, FontSize->Scaled[0.04792700212615167], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {-122., -95.}, Center, Automatic], InsetBox[ StyleBox["\<\"asked\"\>", StripOnInput->False, FontSize->Scaled[0.049521615875265775`], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {-103., -130.}, Center, Automatic], InsetBox[ StyleBox["\<\"thought\"\>", StripOnInput->False, FontSize->Scaled[0.041814316087880936`], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {1., 146.}, Center, Automatic], InsetBox[ StyleBox["\<\"round\"\>", StripOnInput->False, FontSize->Scaled[0.050318922749822824`], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {130., -45.}, Center, Automatic], InsetBox[ StyleBox["\<\"turned\"\>", StripOnInput->False, FontSize->Scaled[0.047395464209780296`], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {-129., 58.}, Center, Automatic], InsetBox[ StyleBox["\<\"going\"\>", StripOnInput->False, FontSize->Scaled[0.04872430900070872], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {121., -79.}, Center, Automatic], InsetBox[ StyleBox["\<\"want\"\>", StripOnInput->False, FontSize->Scaled[0.05669737774627924], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {133., -62.}, Center, Automatic], InsetBox[ StyleBox["\<\"love\"\>", StripOnInput->False, FontSize->Scaled[0.059620836286321754`], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {-125., 75.}, Center, Automatic], InsetBox[ StyleBox["\<\"body\"\>", StripOnInput->False, FontSize->Scaled[0.05244507441530829], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {-52., 143.}, Center, Automatic], InsetBox[ StyleBox["\<\"school\"\>", StripOnInput->False, FontSize->Scaled[0.0423458540042523], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {126., 84.}, Center, Automatic], InsetBox[ StyleBox["\<\"young\"\>", StripOnInput->False, FontSize->Scaled[0.042611622962437985`], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {-131., -78.}, Center, Automatic], InsetBox[ StyleBox["\<\"home\"\>", StripOnInput->False, FontSize->Scaled[0.04526931254429483], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {-130., -47.}, Center, Automatic], InsetBox[ StyleBox["\<\"place\"\>", StripOnInput->False, FontSize->Scaled[0.044737774627923464`], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {122., -96.}, Center, Automatic], InsetBox[ StyleBox["\<\"hand\"\>", StripOnInput->False, FontSize->Scaled[0.047395464209780296`], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {45., 146.}, Center, Automatic], InsetBox[ StyleBox["\<\"good\"\>", StripOnInput->False, FontSize->Scaled[0.04500354358610915], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {58., -145.}, Center, Automatic], InsetBox[ StyleBox["\<\"night\"\>", StripOnInput->False, FontSize->Scaled[0.04526931254429483], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {-126., 91.}, Center, Automatic], InsetBox[ StyleBox["\<\"voice\"\>", StripOnInput->False, FontSize->Scaled[0.041814316087880936`], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {-123., 108.}, Center, Automatic], InsetBox[ StyleBox["\<\"looking\"\>", StripOnInput->False, FontSize->Scaled[0.03596739900779589], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {-125., -110.}, Center, Automatic], InsetBox[ StyleBox["\<\"church\"\>", StripOnInput->False, FontSize->Scaled[0.037827781715095675`], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {123., -111.}, Center, Automatic], InsetBox[ StyleBox["\<\"began\"\>", StripOnInput->False, FontSize->Scaled[0.0407512402551382], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {-92., 142.}, Center, Automatic], InsetBox[ StyleBox["\<\"TOM\"\>", StripOnInput->False, FontSize->Scaled[0.041814316087880936`], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {-138., -13.}, Center, Automatic], InsetBox[ StyleBox["\<\"light\"\>", StripOnInput->False, FontSize->Scaled[0.046598157335223246`], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {113., 124.}, Center, Automatic], InsetBox[ StyleBox["\<\"morning\"\>", StripOnInput->False, FontSize->Scaled[0.03171509567682495], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {85., 143.}, Center, Automatic], InsetBox[ StyleBox["\<\"day\"\>", StripOnInput->False, FontSize->Scaled[0.04899007795889441], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {93., -142.}, Center, Automatic], InsetBox[ StyleBox["\<\"house\"\>", StripOnInput->False, FontSize->Scaled[0.03862508858965273], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {121., -125.}, Center, Automatic], InsetBox[ StyleBox["\<\"saw\"\>", StripOnInput->False, FontSize->Scaled[0.05908929836995039], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {-99., -144.}, Center, Automatic], InsetBox[ StyleBox["\<\"way\"\>", StripOnInput->False, FontSize->Scaled[0.04606661941885188], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {-136., -61.}, Center, Automatic], InsetBox[ StyleBox["\<\"hands\"\>", StripOnInput->False, FontSize->Scaled[0.037827781715095675`], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {124., 139.}, Center, Automatic], InsetBox[ StyleBox["\<\"passion\"\>", StripOnInput->False, FontSize->Scaled[0.03171509567682495], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {128., -138.}, Center, Automatic], InsetBox[ StyleBox["\<\"sat\"\>", StripOnInput->False, FontSize->Scaled[0.05935506732813608], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {-141., -126.}, Center, Automatic], InsetBox[ StyleBox["\<\"took\"\>", StripOnInput->False, FontSize->Scaled[0.0423458540042523], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {-128., 140.}, Center, Automatic], InsetBox[ StyleBox["\<\"long\"\>", StripOnInput->False, FontSize->Scaled[0.04314316087880936], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {-133., -143.}, Center, Automatic], InsetBox[ StyleBox["\<\"moment\"\>", StripOnInput->False, FontSize->Scaled[0.032512402551382005`], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {134., -149.}, Center, Automatic], InsetBox[ StyleBox["\<\"loved\"\>", StripOnInput->False, FontSize->Scaled[0.038890857547838414`], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {147., 16.}, Center, Automatic], InsetBox[ StyleBox["\<\"thing\"\>", StripOnInput->False, FontSize->Scaled[0.039953933380581154`], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {0., -151.}, Center, Automatic], InsetBox[ StyleBox["\<\"head\"\>", StripOnInput->False, FontSize->Scaled[0.03942239546420978], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {150., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"girl\"\>", StripOnInput->False, FontSize->Scaled[0.049255846917080084`], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {-142., 39.}, Center, Automatic], InsetBox[ StyleBox["\<\"water\"\>", StripOnInput->False, FontSize->Scaled[0.03596739900779589], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {-141., 2.}, Center, Automatic], InsetBox[ StyleBox["\<\"make\"\>", StripOnInput->False, FontSize->Scaled[0.036233167965981576`], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {148., 30.}, Center, Automatic], InsetBox[ StyleBox["\<\"gone\"\>", StripOnInput->False, FontSize->Scaled[0.03543586109142453], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {146., 45.}, Center, Automatic], InsetBox[ StyleBox["\<\"Black\"\>", StripOnInput->False, FontSize->Scaled[0.03676470588235294], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {-33., -153.}, Center, Automatic], InsetBox[ StyleBox["\<\"new\"\>", StripOnInput->False, FontSize->Scaled[0.049521615875265775`], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {148., 57.}, Center, Automatic], InsetBox[ StyleBox["\<\"strong\"\>", StripOnInput->False, FontSize->Scaled[0.0309177888022679], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {147., 70.}, Center, Automatic], InsetBox[ StyleBox["\<\"hard\"\>", StripOnInput->False, FontSize->Scaled[0.03835931963146704], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {-64., -154.}, Center, Automatic], InsetBox[ StyleBox["\<\"just\"\>", StripOnInput->False, FontSize->Scaled[0.039953933380581154`], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {-152., 15.}, Center, Automatic], InsetBox[ StyleBox["\<\"close\"\>", StripOnInput->False, FontSize->Scaled[0.030386250885896526`], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {-12., 27.}, Center, Automatic], InsetBox[ StyleBox["\<\"white\"\>", StripOnInput->False, FontSize->Scaled[0.03065201984408221], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {0., 159.}, Center, Automatic], InsetBox[ StyleBox["\<\"class\"\>", StripOnInput->False, FontSize->Scaled[0.032246633593196315`], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {-36., 158.}, Center, Automatic], InsetBox[ StyleBox["\<\"old\"\>", StripOnInput->False, FontSize->Scaled[0.04394046775336641], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {153., -15.}, Center, Automatic], InsetBox[ StyleBox["\<\"cried\"\>", StripOnInput->False, FontSize->Scaled[0.03171509567682495], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {44., 159.}, Center, Automatic], InsetBox[ StyleBox["\<\"work\"\>", StripOnInput->False, FontSize->Scaled[0.032246633593196315`], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {-63., 158.}, Center, Automatic], InsetBox[ StyleBox["\<\"think\"\>", StripOnInput->False, FontSize->Scaled[0.03277817150956769], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {64., -159.}, Center, Automatic], InsetBox[ StyleBox["\<\"free\"\>", StripOnInput->False, FontSize->Scaled[0.03304394046775337], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {28., -158.}, Center, Automatic], InsetBox[ StyleBox["\<\"look\"\>", StripOnInput->False, FontSize->Scaled[0.03437278525868179], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {76., 153.}, Center, Automatic], InsetBox[ StyleBox["\<\"got\"\>", StripOnInput->False, FontSize->Scaled[0.037296243798724316`], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {151., -75.}, Center, Automatic], InsetBox[ StyleBox["\<\"door\"\>", StripOnInput->False, FontSize->Scaled[0.030386250885896526`], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {35., 26.}, Center, Automatic], InsetBox[ StyleBox["\<\"cold\"\>", StripOnInput->False, FontSize->Scaled[0.03570163004961021], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {-89., 154.}, Center, Automatic], InsetBox[ StyleBox["\<\"let\"\>", StripOnInput->False, FontSize->Scaled[0.042611622962437985`], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {-155., -26.}, Center, Automatic], InsetBox[ StyleBox["\<\"Oh\"\>", StripOnInput->False, FontSize->Scaled[0.03756201275690999], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {-155., 71.}, Center, Automatic], InsetBox[ StyleBox["\<\"near\"\>", StripOnInput->False, FontSize->Scaled[0.03304394046775337], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {90., -158.}, Center, Automatic], InsetBox[ StyleBox["\<\"Till\"\>", StripOnInput->False, FontSize->Scaled[0.03676470588235294], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {-153., 84.}, Center, Automatic], InsetBox[ StyleBox["\<\"hair\"\>", StripOnInput->False, FontSize->Scaled[0.031449326718639266`], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {155., -29.}, Center, Automatic], InsetBox[ StyleBox["\<\"men\"\>", StripOnInput->False, FontSize->Scaled[0.033841247342310414`], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {-39., 26.}, Center, Automatic], InsetBox[ StyleBox["\<\"set\"\>", StripOnInput->False, FontSize->Scaled[0.031183557760453583`], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {150., -88.}, Center, Automatic], InsetBox[ StyleBox["\<\"big\"\>", StripOnInput->False, FontSize->Scaled[0.030120481927710843`], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {155., 82.}, Center, Automatic]}, DefaultBaseStyle->{"Graphics", FontFamily -> "Helvetica"}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-165.5, 166.5}, {-165.5, 166.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.7028306825224733`*^9},ExpressionUUID->"9d777d41-4c4c-45b8-90b5-\ 99b424d5a233"] }, Open ]], Cell["Show the most frequently used adjectives:", "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.6884800572156363`*^9, 3.688480058583631*^9}},ExpressionUUID->"e5017c9d-d5d5-4918-b9d0-\ c2e19cedd49d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarChart", "[", RowBox[{ RowBox[{ RowBox[{"TakeLargest", "[", RowBox[{ RowBox[{"Counts", "[", RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "]"}], ",", "20"}], "]"}], "//", "Reverse"}], ",", RowBox[{"BarOrigin", "\[Rule]", "Left"}], ",", RowBox[{"ChartLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.6832887705512333`*^9, 3.6832888072249002`*^9}, 3.6833081371530533`*^9, {3.683308191179655*^9, 3.683308192307106*^9}, { 3.6833082251442356`*^9, 3.683308276981035*^9}, 3.6833089065155134`*^9, { 3.688480050469739*^9, 3.6884800550498943`*^9}},ExpressionUUID->"500035aa-c75b-422b-b388-\ a031faa82039"], Cell[BoxData[ GraphicsBox[{ {Opacity[0], PointBox[{0., 0.13851851851851854`}]}, {{}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.5370370370370371}, {100., 1.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 108.70652173913042`}, {76.6290015664078, 85.75794364466704}}], StatusArea[#, 100]& , TagBoxNote->"100"], StyleBox["100", {}, StripOnInput -> False]], Annotation[#, Style[100, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 1.5370370370370372`}, {102., 2.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 110.09565217391304`}, {67.30974412188782, 76.43868620014706}}], StatusArea[#, 102]& , TagBoxNote->"102"], StyleBox["102", {}, StripOnInput -> False]], Annotation[#, Style[102, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 2.537037037037037}, {106., 3.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 112.87391304347825`}, {57.990486677367834`, 67.11942875562707}}], StatusArea[#, 106]& , TagBoxNote->"106"], StyleBox["106", {}, StripOnInput -> False]], Annotation[#, Style[106, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 3.537037037037037}, {106., 4.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 112.87391304347825`}, {48.67122923284786, 57.8001713111071}}], StatusArea[#, 106]& , TagBoxNote->"106"], StyleBox["106", {}, StripOnInput -> False]], Annotation[#, Style[106, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 4.537037037037037}, {113., 5.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 117.73586956521739`}, {39.35197178832788, 48.480913866587116`}}], StatusArea[#, 113]& , TagBoxNote->"113"], StyleBox["113", {}, StripOnInput -> False]], Annotation[#, Style[113, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 5.537037037037037}, {114., 6.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 118.43043478260869`}, {30.032714343807896`, 39.16165642206714}}], StatusArea[#, 114]& , TagBoxNote->"114"], StyleBox["114", {}, StripOnInput -> False]], Annotation[#, Style[114, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 6.537037037037037}, {115., 7.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 119.12499999999999`}, {20.71345689928792, 29.842398977547155`}}], StatusArea[#, 115]& , TagBoxNote->"115"], StyleBox["115", {}, StripOnInput -> False]], Annotation[#, Style[115, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 7.537037037037037}, {119., 8.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 121.90326086956522`}, {11.394199454767929`, 20.52314153302717}}], StatusArea[#, 119]& , TagBoxNote->"119"], StyleBox["119", {}, StripOnInput -> False]], Annotation[#, Style[119, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 8.537037037037038}, {121., 9.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 123.29239130434782`}, {2.074942010247952, 11.20388408850718}}], StatusArea[#, 121]& , TagBoxNote->"121"], StyleBox["121", {}, StripOnInput -> False]], Annotation[#, Style[121, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 9.537037037037038}, {122., 10.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 123.98695652173912`}, {-7.244315434272025, 1.884626643987204}}], StatusArea[#, 122]& , TagBoxNote->"122"], StyleBox["122", {}, StripOnInput -> False]], Annotation[#, Style[122, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 10.537037037037038`}, {124., 11.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 125.37608695652173`}, {-16.563572878792016`, -7.434630800532773}}], StatusArea[#, 124]& , TagBoxNote->"124"], StyleBox["124", {}, StripOnInput -> False]], Annotation[#, Style[124, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 11.537037037037038`}, {126., 12.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 126.76521739130433`}, {-25.882830323311993`, -16.75388824505275}}], StatusArea[#, 126]& , TagBoxNote->"126"], StyleBox["126", {}, StripOnInput -> False]], Annotation[#, Style[126, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 12.537037037037038`}, {144., 13.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 139.26739130434783`}, {-35.20208776783197, -26.07314568957274}}], StatusArea[#, 144]& , TagBoxNote->"144"], StyleBox["144", {}, StripOnInput -> False]], Annotation[#, Style[144, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 13.537037037037038`}, {145., 14.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 139.96195652173913`}, {-44.521345212351946`, -35.39240313409272}}], StatusArea[#, 145]& , TagBoxNote->"145"], StyleBox["145", {}, StripOnInput -> False]], Annotation[#, Style[145, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 14.537037037037038`}, {152., 15.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 144.82391304347826`}, {-53.84060265687194, -44.71166057861271}}], StatusArea[#, 152]& , TagBoxNote->"152"], StyleBox["152", {}, StripOnInput -> False]], Annotation[#, Style[152, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 15.537037037037038`}, {169., 16.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 156.63152173913042`}, {-63.15986010139193, -54.03091802313267}}], StatusArea[#, 169]& , TagBoxNote->"169"], StyleBox["169", {}, StripOnInput -> False]], Annotation[#, Style[169, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 16.537037037037038`}, {217., 17.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 189.97065217391304`}, {-72.47911754591192, -63.35017546765266}}], StatusArea[#, 217]& , TagBoxNote->"217"], StyleBox["217", {}, StripOnInput -> False]], Annotation[#, Style[217, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 17.537037037037038`}, {246., 18.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 210.11304347826086`}, {-81.79837499043188, -72.66943291217262}}], StatusArea[#, 246]& , TagBoxNote->"246"], StyleBox["246", {}, StripOnInput -> False]], Annotation[#, Style[246, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 18.537037037037038`}, {323., 19.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 263.5945652173913}, {-91.11763243495187, -81.98869035669262}}], StatusArea[#, 323]& , TagBoxNote->"323"], StyleBox["323", {}, StripOnInput -> False]], Annotation[#, Style[323, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 19.537037037037038`}, {436., 20.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.75, 342.0804347826087}, {-100.43688987947186`, -91.3079478012126}}], StatusArea[#, 436]& , TagBoxNote->"436"], StyleBox["436", {}, StripOnInput -> False]], Annotation[#, Style[436, {}], "Tooltip"]& ]}}, {}, {}}, {}, {}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.13851851851851854`}, {0., 20.869451851851853`}}], StyleBox[{}, "GraphicsLabel", StripOnInput->False]}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.5370370370370371}, Offset[{-6., 0.}, {0., 0.5370370370370371}]}], LineBox[{{0., 20.462962962962965`}, Offset[{-6., 0.}, {0., 20.462962962962965`}]}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, { LineBox[{{0., 1.462962962962963}, Offset[{-4., 0.}, {0., 1.462962962962963}]}], LineBox[{{0., 1.5370370370370372`}, Offset[{-4., 0.}, {0., 1.5370370370370372`}]}], LineBox[{{0., 2.4629629629629632`}, Offset[{-4., 0.}, {0., 2.4629629629629632`}]}], LineBox[{{0., 2.537037037037037}, Offset[{-4., 0.}, {0., 2.537037037037037}]}], LineBox[{{0., 3.4629629629629632`}, Offset[{-4., 0.}, {0., 3.4629629629629632`}]}], LineBox[{{0., 3.537037037037037}, Offset[{-4., 0.}, {0., 3.537037037037037}]}], LineBox[{{0., 4.462962962962963}, Offset[{-4., 0.}, {0., 4.462962962962963}]}], LineBox[{{0., 4.537037037037036}, Offset[{-4., 0.}, {0., 4.537037037037036}]}], LineBox[{{0., 5.462962962962963}, Offset[{-4., 0.}, {0., 5.462962962962963}]}], LineBox[{{0., 5.537037037037037}, Offset[{-4., 0.}, {0., 5.537037037037037}]}], LineBox[{{0., 6.462962962962963}, Offset[{-4., 0.}, {0., 6.462962962962963}]}], LineBox[{{0., 6.537037037037037}, Offset[{-4., 0.}, {0., 6.537037037037037}]}], LineBox[{{0., 7.462962962962963}, Offset[{-4., 0.}, {0., 7.462962962962963}]}], LineBox[{{0., 7.537037037037037}, Offset[{-4., 0.}, {0., 7.537037037037037}]}], LineBox[{{0., 8.462962962962964}, Offset[{-4., 0.}, {0., 8.462962962962964}]}], LineBox[{{0., 8.537037037037036}, Offset[{-4., 0.}, {0., 8.537037037037036}]}], LineBox[{{0., 9.462962962962962}, Offset[{-4., 0.}, {0., 9.462962962962962}]}], LineBox[{{0., 9.537037037037036}, Offset[{-4., 0.}, {0., 9.537037037037036}]}], LineBox[{{0., 10.462962962962962`}, Offset[{-4., 0.}, {0., 10.462962962962962`}]}], LineBox[{{0., 10.537037037037036`}, Offset[{-4., 0.}, {0., 10.537037037037036`}]}], LineBox[{{0., 11.462962962962962`}, Offset[{-4., 0.}, {0., 11.462962962962962`}]}], LineBox[{{0., 11.537037037037036`}, Offset[{-4., 0.}, {0., 11.537037037037036`}]}], LineBox[{{0., 12.462962962962962`}, Offset[{-4., 0.}, {0., 12.462962962962962`}]}], LineBox[{{0., 12.537037037037036`}, Offset[{-4., 0.}, {0., 12.537037037037036`}]}], LineBox[{{0., 13.462962962962962`}, Offset[{-4., 0.}, {0., 13.462962962962962`}]}], LineBox[{{0., 13.537037037037036`}, Offset[{-4., 0.}, {0., 13.537037037037036`}]}], LineBox[{{0., 14.462962962962962`}, Offset[{-4., 0.}, {0., 14.462962962962962`}]}], LineBox[{{0., 14.537037037037036`}, Offset[{-4., 0.}, {0., 14.537037037037036`}]}], LineBox[{{0., 15.462962962962962`}, Offset[{-4., 0.}, {0., 15.462962962962962`}]}], LineBox[{{0., 15.537037037037036`}, Offset[{-4., 0.}, {0., 15.537037037037036`}]}], LineBox[{{0., 16.462962962962965`}, Offset[{-4., 0.}, {0., 16.462962962962965`}]}], LineBox[{{0., 16.537037037037038`}, Offset[{-4., 0.}, {0., 16.537037037037038`}]}], LineBox[{{0., 17.462962962962965`}, Offset[{-4., 0.}, {0., 17.462962962962965`}]}], LineBox[{{0., 17.537037037037038`}, Offset[{-4., 0.}, {0., 17.537037037037038`}]}], LineBox[{{0., 18.462962962962965`}, Offset[{-4., 0.}, {0., 18.462962962962965`}]}], LineBox[{{0., 18.537037037037038`}, Offset[{-4., 0.}, {0., 18.537037037037038`}]}], LineBox[{{0., 19.462962962962965`}, Offset[{-4., 0.}, {0., 19.462962962962965`}]}], LineBox[{{0., 19.537037037037038`}, Offset[{-4., 0.}, {0., 19.537037037037038`}]}]}, {}}}, StyleBox[ {Thickness[Tiny], InsetBox["\<\"strong\"\>", Offset[{-2., 0.}, {0., 1.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"cold\"\>", Offset[{-2., 0.}, {0., 2.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"free\"\>", Offset[{-2., 0.}, {0., 3.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"hard\"\>", Offset[{-2., 0.}, {0., 4.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"first\"\>", Offset[{-2., 0.}, {0., 5.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"black\"\>", Offset[{-2., 0.}, {0., 6.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"long\"\>", Offset[{-2., 0.}, {0., 7.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"more\"\>", Offset[{-2., 0.}, {0., 8.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"much\"\>", Offset[{-2., 0.}, {0., 8.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"good\"\>", Offset[{-2., 0.}, {0., 9.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"dark\"\>", Offset[{-2., 0.}, {0., 10.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"last\"\>", Offset[{-2., 0.}, {0., 11.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"young\"\>", Offset[{-2., 0.}, {0., 12.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"old\"\>", Offset[{-2., 0.}, {0., 13.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"strange\"\>", Offset[{-2., 0.}, {0., 14.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"new\"\>", Offset[{-2., 0.}, {0., 16.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"great\"\>", Offset[{-2., 0.}, {0., 17.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"other\"\>", Offset[{-2., 0.}, {0., 18.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"own\"\>", Offset[{-2., 0.}, {0., 19.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"little\"\>", Offset[{-2., 0.}, {0., 20.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}]}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, "GraphicsAxes", StripOnInput->False, Antialiasing->False]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, False}, AxesLabel->{None, None}, AxesOrigin->{0., 0.13851851851851854`}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{{{1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {1., FormBox["\"strong\"", TraditionalForm], 0}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {2., FormBox["\"cold\"", TraditionalForm], 0}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {3., FormBox["\"free\"", TraditionalForm], 0}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {4., FormBox["\"hard\"", TraditionalForm], 0}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {5., FormBox["\"first\"", TraditionalForm], 0}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {6., FormBox["\"black\"", TraditionalForm], 0}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {7., FormBox["\"long\"", TraditionalForm], 0}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {8., FormBox["\"more\"", TraditionalForm], 0}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {9., FormBox["\"much\"", TraditionalForm], 0}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {10., FormBox["\"good\"", TraditionalForm], 0}, {11., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {11., FormBox["\"dark\"", TraditionalForm], 0}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {12., FormBox["\"last\"", TraditionalForm], 0}, {13., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {13., FormBox["\"young\"", TraditionalForm], 0}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {14., FormBox["\"old\"", TraditionalForm], 0}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {15., FormBox["\"strange\"", TraditionalForm], 0}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {16., FormBox["\"new\"", TraditionalForm], 0}, {17., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {17., FormBox["\"great\"", TraditionalForm], 0}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {18., FormBox["\"other\"", TraditionalForm], 0}, {19., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {19., FormBox["\"own\"", TraditionalForm], 0}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {20., FormBox["\"little\"", TraditionalForm], 0}}, {{1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {11., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {13., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {17., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {19., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}}}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{All, All}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.05]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, None}]], "Output", CellChangeTimes->{ 3.683288820857263*^9, 3.683308208402542*^9, {3.6833082423100996`*^9, 3.6833082928962173`*^9}, 3.6833089312569876`*^9, 3.68848009108427*^9},ExpressionUUID->"e64c70a0-a11c-4026-b296-\ 3ac67efbd42b"] }, Open ]] }, Open ]] }, WindowSize->{775, 873}, WindowMargins->{{-1305, Automatic}, {Automatic, 12}}, WindowTitle->"Examples for The Rainbow", Visible->True, DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, Background->GrayLevel[0.9999], FrontEndVersion->"11.1 for Linux x86 (64-bit) (April 18, 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[618, 23, 91, 0, 70, "Subsection", "ExpressionUUID" -> \ "5aecf08a-fac2-47b7-ac20-620ebfac3675"], Cell[712, 25, 272, 4, 70, "Text", "ExpressionUUID" -> \ "39c74c84-9198-4470-a829-76bbe0f9ce33"], Cell[CellGroupData[{ Cell[1009, 33, 268, 5, 70, "Input", "ExpressionUUID" -> \ "82a30d55-aab7-4f43-add9-ddb4e51e0fb0"], Cell[1280, 40, 14347, 319, 70, "Output", "ExpressionUUID" -> \ "728e484c-f27a-442b-85c9-04a611110570"] }, Open ]], Cell[15642, 362, 261, 4, 70, "Text", "ExpressionUUID" -> \ "6f2b2254-8ae3-41e5-9825-8e6d22d06b10"], Cell[CellGroupData[{ Cell[15928, 370, 374, 10, 70, "Input", "ExpressionUUID" -> \ "4d4592a3-446d-4344-91f0-a117266284d7"], Cell[16305, 382, 676, 9, 70, "Output", "ExpressionUUID" -> \ "5036482d-7b14-4a47-86e2-27ade7ea6169"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17030, 397, 90, 0, 70, "Subsection", "ExpressionUUID" -> \ "ce5a6e8b-b062-4d9b-9364-f8b50349dc0d"], Cell[17123, 399, 405, 6, 70, "Text", "ExpressionUUID" -> \ "1d9d87d1-92b5-4b0a-9b70-48f786052d7d"], Cell[CellGroupData[{ Cell[17553, 409, 537, 10, 70, "Input", "ExpressionUUID" -> \ "b808c8c9-3bd3-4d96-8d45-9a481a79a1f0"], Cell[18093, 421, 23821, 566, 70, "Output", "ExpressionUUID" -> \ "9d777d41-4c4c-45b8-90b5-99b424d5a233"] }, Open ]], Cell[41929, 990, 440, 6, 70, "Text", "ExpressionUUID" -> \ "e5017c9d-d5d5-4918-b9d0-c2e19cedd49d"], Cell[CellGroupData[{ Cell[42394, 1000, 816, 19, 70, "Input", "ExpressionUUID" -> \ "500035aa-c75b-422b-b388-a031faa82039"], Cell[43213, 1021, 35381, 894, 70, "Output", "ExpressionUUID" -> \ "e64c70a0-a11c-4026-b296-3ac67efbd42b"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)