(* 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[ 80662, 1982]
NotebookOptionsPosition[ 78551, 1922]
NotebookOutlinePosition[ 79175, 1945]
CellTagsIndexPosition[ 79132, 1942]
WindowTitle->Examples for A Study in Scarlet
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Basic Examples", "Subsection",ExpressionUUID->"a58c35eb-80e1-4422-af14-e844b5946864"],
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->"29c7918b-8d22-4839-8bda-\
e88909525994"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input",\
CellChangeTimes->{{3.6804517731799183`*^9, 3.6804517885604563`*^9}, {
3.6804527318597765`*^9,
3.6804527390684977`*^9}},ExpressionUUID->"fde455eb-30df-424a-8b81-\
431269e59c34"],
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["\<\"A Study in Scarlet\"\>",
"SummaryItem"]}]},
{
RowBox[{
TagBox["\<\"Type: \"\>",
"SummaryItemAnnotation"], "\[InvisibleSpace]",
TagBox["\<\"DataResource\"\>",
"SummaryItem"]}]},
{
RowBox[{
TagBox["\<\"Description: \"\>",
"SummaryItemAnnotation"], "\[InvisibleSpace]",
TagBox["\<\"Plaintext for Arthur Conan Doyle's \\\"A Study in \
Scarlet\\\"\"\>",
"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["\<\"A Study in Scarlet\"\>",
"SummaryItem"]}]},
{
RowBox[{
TagBox["\<\"Type: \"\>",
"SummaryItemAnnotation"], "\[InvisibleSpace]",
TagBox["\<\"DataResource\"\>",
"SummaryItem"]}]},
{
RowBox[{
TagBox["\<\"Description: \"\>",
"SummaryItemAnnotation"], "\[InvisibleSpace]",
TagBox["\<\"Plaintext for Arthur Conan Doyle's \\\"A Study in \
Scarlet\\\"\"\>",
"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\"",
"\"detective novel\""},
"RowWithSeparators"],
Short],
"SummaryItem"]}]},
{
RowBox[{
TagBox["\<\"Data Location: \"\>",
"SummaryItemAnnotation"], "\[InvisibleSpace]",
TagBox[
DynamicModuleBox[{DataResource`Private`typesetstorage$$ =
DataResource`Private`typesetstorageLocation,
DataResource`Private`info$$},
DynamicBox[ToBoxes[
DataResource`Private`info$$ =
DataResource`Private`resourceInfo[
"c79ad90b-dae1-45a5-bfc8-aac029ab5584"]; 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["\<\"c79ad90b-dae1-45a5-bfc8-aac029ab5584\"\>",
"SummaryItem"]}]},
{
RowBox[{
TagBox["\<\"Version: \"\>",
"SummaryItemAnnotation"], "\[InvisibleSpace]",
TagBox["\<\"1.0.0\"\>",
"SummaryItem"]}]},
{
RowBox[{
TagBox["\<\"Size: \"\>",
"SummaryItemAnnotation"], "\[InvisibleSpace]",
TagBox[
TemplateBox[{"239.304`","\"kB\"","kilobytes","\"Kilobytes\""},
"Quantity"],
"SummaryItem"]}]},
{
RowBox[{
TagBox["\<\"Elements: \"\>",
"SummaryItemAnnotation"], "\[InvisibleSpace]",
TagBox[
TagBox[
TemplateBox[{",","\",\"","\"Plaintext\""},
"RowWithSeparators"],
Short[#, 2]& ],
"SummaryItem"]}]}
},
AutoDelete->False,
BaseStyle->{
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
},
AutoDelete->False,
BaselinePosition->{1, 1},
GridBoxAlignment->{"Rows" -> {{Top}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open$$],
ImageSize->Automatic],
BaselinePosition->Baseline],
DynamicModuleValues:>{}], "]"}],
ResourceObject[
Association[
"Name" -> "A Study in Scarlet", "UUID" ->
"c79ad90b-dae1-45a5-bfc8-aac029ab5584", "ResourceType" -> "DataResource",
"Version" -> "1.0.0", "Description" ->
"Plaintext for Arthur Conan Doyle's \"A Study in Scarlet\"",
"ContentSize" -> Quantity[239.304, "Kilobytes"],
"ContentElements" -> {"Plaintext"}]],
Editable->False,
SelectWithContents->True,
Selectable->False]], "Output",
CellChangeTimes->{
3.683902274201642*^9},ExpressionUUID->"46916edd-68b1-4d2b-a4f4-\
9671060ad7d5"]
}, 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->"b9327aa5-2c1c-4305-8b96-\
2b317fc38006"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"TextCases", "[",
RowBox[{
RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",",
"\"\\""}], "]"}], "[",
RowBox[{"[", "30", "]"}], "]"}]], "Input",
CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, {
3.6839022805077343`*^9, 3.683902289521896*^9}, {3.702903732383778*^9,
3.702903735262443*^9}, {3.702903841399671*^9,
3.702903846391096*^9}},ExpressionUUID->"d68ed49d-8ad0-4468-85b7-\
9e943484a4d4"],
Cell[BoxData["\<\"\\\"It is not easy to express the inexpressible,\\\" he \
answered with a laugh.\\n\\\"Holmes is a little too scientific for my \
tastes--it approaches to\\ncold-bloodedness. I could imagine his giving a \
friend a little pinch of\\nthe latest vegetable alkaloid, not out of \
malevolence, you understand,\\nbut simply out of a spirit of inquiry in order \
to have an accurate idea\\nof the effects. To do him justice, I think that he \
would take it himself\\nwith the same readiness. He appears to have a passion \
for definite and\\nexact knowledge.\\\"\"\>"], "Output",
CellChangeTimes->{{3.6839022759486856`*^9, 3.683902289903604*^9},
3.702903736357965*^9, {3.702903841891667*^9,
3.702903846779532*^9}},ExpressionUUID->"4dc2f635-2b86-409b-997f-\
bdb807cb3ea5"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Visualization", "Subsection",ExpressionUUID->"8de6d85f-23a4-4235-9fdf-2c58d080ed17"],
Cell["Generate 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.702903858266467*^9,
3.702903862073987*^9}},ExpressionUUID->"4baacd4e-31d7-415f-a557-\
6f1aa4a358ed"],
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.702903863465847*^9,
3.702903873782981*^9}},ExpressionUUID->"d882eb4e-8c1e-45b2-8789-\
d13c30527290"],
Cell[BoxData[
GraphicsBox[{InsetBox[
StyleBox["\<\"said\"\>",
StripOnInput->False,
FontSize->Scaled[0.23809523809523808`],
FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {0, 0}, Center,
Automatic], InsetBox[
StyleBox["\<\"HOLMES\"\>",
StripOnInput->False,
FontSize->Scaled[0.11564625850340135`],
FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {1., -39.}, Center,
Automatic], InsetBox[
StyleBox["\<\"man\"\>",
StripOnInput->False,
FontSize->Scaled[0.1553594410737268],
FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {0., 49.}, Center,
Automatic], InsetBox[
StyleBox["\<\"answered\"\>",
StripOnInput->False,
FontSize->Scaled[0.07482993197278912],
FontColor->RGBColor[0.915, 0.3325, 0.2125]], {0., -63.}, Center,
Automatic], InsetBox[
StyleBox["\<\"SHERLOCK\"\>",
StripOnInput->False,
FontSize->Scaled[0.06600478029049459],
FontColor->RGBColor[
0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {0., 70.},
Center, Automatic], InsetBox[
StyleBox["\<\"Stangerson\"\>",
StripOnInput->False,
FontSize->Scaled[0.05938591652877367],
FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {-20., -78.},
Center, Automatic], InsetBox[
StyleBox["\<\"GREGSON\"\>",
StripOnInput->False,
FontSize->Scaled[0.05607648464791322],
FontColor->RGBColor[
0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {0., 88.},
Center, Automatic], InsetBox[
StyleBox["\<\"asked\"\>",
StripOnInput->False,
FontSize->Scaled[0.08144879573451003],
FontColor->RGBColor[0.571589, 0.586483, 0.]], {-76., 31.}, Center,
Automatic], InsetBox[
StyleBox["\<\"time\"\>",
StripOnInput->False,
FontSize->Scaled[0.093583379297665],
FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {72., 44.}, Center,
Automatic], InsetBox[
StyleBox["\<\"Drebber\"\>",
StripOnInput->False,
FontSize->Scaled[0.0682110682110682],
FontColor->RGBColor[
0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {-7., -96.},
Center, Automatic], InsetBox[
StyleBox["\<\"little\"\>",
StripOnInput->False,
FontSize->Scaled[0.10020224305938591`],
FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {88., 0.}, Center,
Automatic], InsetBox[
StyleBox["\<\"Ferrier\"\>",
StripOnInput->False,
FontSize->Scaled[0.07041735613164184],
FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {-77., 51.},
Center, Automatic], InsetBox[
StyleBox["\<\"companion\"\>",
StripOnInput->False,
FontSize->Scaled[0.05166390880676595],
FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {65., -78.},
Center, Automatic], InsetBox[
StyleBox["\<\"way\"\>",
StripOnInput->False,
FontSize->Scaled[0.08586137157565728],
FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {-87., 9.}, Center,
Automatic], InsetBox[
StyleBox["\<\"face\"\>",
StripOnInput->False,
FontSize->Scaled[0.08365508365508365],
FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {-94., -15.}, Center,
Automatic], InsetBox[
StyleBox["\<\"young\"\>",
StripOnInput->False,
FontSize->Scaled[0.0671079242507814],
FontColor->RGBColor[
0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {79., -58.},
Center, Automatic], InsetBox[
StyleBox["\<\"found\"\>",
StripOnInput->False,
FontSize->Scaled[0.07041735613164184],
FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {98., -23.},
Center, Automatic], InsetBox[
StyleBox["\<\"Lestrade\"\>",
StripOnInput->False,
FontSize->Scaled[0.05828277256848686],
FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]],
{96., 22.}, Center, Automatic], InsetBox[
StyleBox["\<\"appeared\"\>",
StripOnInput->False,
FontSize->Scaled[0.05276705276705277],
FontColor->RGBColor[
0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {-88., -57.},
Center, Automatic], InsetBox[
StyleBox["\<\"Jefferson\"\>",
StripOnInput->False,
FontSize->Scaled[0.05056076484647913],
FontColor->RGBColor[
0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {0., 104.},
Center, Automatic], InsetBox[
StyleBox["\<\"come\"\>",
StripOnInput->False,
FontSize->Scaled[0.08806765949623092],
FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {88., 67.}, Center,
Automatic], InsetBox[
StyleBox["\<\"hope\"\>",
StripOnInput->False,
FontSize->Scaled[0.07041735613164184],
FontColor->RGBColor[
0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {-95., -35.},
Center, Automatic], InsetBox[
StyleBox["\<\"eyes\"\>",
StripOnInput->False,
FontSize->Scaled[0.07482993197278912],
FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {-79., 75.},
Center, Automatic], InsetBox[
StyleBox["\<\"hand\"\>",
StripOnInput->False,
FontSize->Scaled[0.07262364405221548],
FontColor->RGBColor[
0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {68., 88.},
Center, Automatic], InsetBox[
StyleBox["\<\"came\"\>",
StripOnInput->False,
FontSize->Scaled[0.08365508365508365],
FontColor->RGBColor[1, 0.75, 0]], {0., -113.}, Center, Automatic],
InsetBox[
StyleBox["\<\"thought\"\>",
StripOnInput->False,
FontSize->Scaled[0.05056076484647913],
FontColor->RGBColor[
0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {100., -40.},
Center, Automatic], InsetBox[
StyleBox["\<\"know\"\>",
StripOnInput->False,
FontSize->Scaled[0.06490163633020775],
FontColor->RGBColor[
0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {55., -96.},
Center, Automatic], InsetBox[
StyleBox["\<\"house\"\>",
StripOnInput->False,
FontSize->Scaled[0.05607648464791322],
FontColor->RGBColor[
0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {-68., 91.},
Center, Automatic], InsetBox[
StyleBox["\<\"long\"\>",
StripOnInput->False,
FontSize->Scaled[0.0671079242507814],
FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {-64., -92.},
Center, Automatic], InsetBox[
StyleBox["\<\"cried\"\>",
StripOnInput->False,
FontSize->Scaled[0.06379849236992094],
FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {-54., 105.},
Center, Automatic], InsetBox[
StyleBox["\<\"remarked\"\>",
StripOnInput->False,
FontSize->Scaled[0.04283875712447141],
FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {0., 118.},
Center, Automatic], InsetBox[
StyleBox["\<\"away\"\>",
StripOnInput->False,
FontSize->Scaled[0.05828277256848686],
FontColor->RGBColor[
0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {54., 106.},
Center, Automatic], InsetBox[
StyleBox["\<\"daughter\"\>",
StripOnInput->False,
FontSize->Scaled[0.04283875712447141],
FontColor->RGBColor[
0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {-98., -72.},
Center, Automatic], InsetBox[
StyleBox["\<\"morning\"\>",
StripOnInput->False,
FontSize->Scaled[0.04504504504504504],
FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {57., -111.},
Center, Automatic], InsetBox[
StyleBox["\<\"great\"\>",
StripOnInput->False,
FontSize->Scaled[0.05607648464791322],
FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]],
{-52., -112.}, Center, Automatic], InsetBox[
StyleBox["\<\"JOHN\"\>",
StripOnInput->False,
FontSize->Scaled[0.049457620886192315`],
FontColor->RGBColor[
0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {51., 118.},
Center, Automatic], InsetBox[
StyleBox["\<\"shall\"\>",
StripOnInput->False,
FontSize->Scaled[0.057179628608200035`],
FontColor->RGBColor[
0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {-50., 121.},
Center, Automatic], InsetBox[
StyleBox["\<\"door\"\>",
StripOnInput->False,
FontSize->Scaled[0.057179628608200035`],
FontColor->RGBColor[
0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {-102., -88.},
Center, Automatic], InsetBox[
StyleBox["\<\"followed\"\>",
StripOnInput->False,
FontSize->Scaled[0.039529325243610955`],
FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {103., -93.},
Center, Automatic], InsetBox[
StyleBox["\<\"Looking\"\>",
StripOnInput->False,
FontSize->Scaled[0.04063246920389777],
FontColor->RGBColor[
0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {-95., -105.},
Center, Automatic], InsetBox[
StyleBox["\<\"expression\"\>",
StripOnInput->False,
FontSize->Scaled[0.03401360544217687],
FontColor->RGBColor[
0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {55., -124.},
Center, Automatic], InsetBox[
StyleBox["\<\"room\"\>",
StripOnInput->False,
FontSize->Scaled[0.06379849236992094],
FontColor->RGBColor[
0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {98., 106.},
Center, Automatic], InsetBox[
StyleBox["\<\"mountains\"\>",
StripOnInput->False,
FontSize->Scaled[0.036219893362750506`],
FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {-102., 106.},
Center, Automatic], InsetBox[
StyleBox["\<\"night\"\>",
StripOnInput->False,
FontSize->Scaled[0.049457620886192315`],
FontColor->RGBColor[
0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {111., 85.},
Center, Automatic], InsetBox[
StyleBox["\<\"hands\"\>",
StripOnInput->False,
FontSize->Scaled[0.04394190108475823],
FontColor->RGBColor[
0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {-111., 90.},
Center, Automatic], InsetBox[
StyleBox["\<\"mind\"\>",
StripOnInput->False,
FontSize->Scaled[0.05056076484647913],
FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {-87., 117.},
Center, Automatic], InsetBox[
StyleBox["\<\"Street\"\>",
StripOnInput->False,
FontSize->Scaled[0.041735613164184594`],
FontColor->RGBColor[
0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {100., -107.},
Center, Automatic], InsetBox[
StyleBox["\<\"round\"\>",
StripOnInput->False,
FontSize->Scaled[0.04394190108475823],
FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {89., 119.},
Center, Automatic], InsetBox[
StyleBox["\<\"spoke\"\>",
StripOnInput->False,
FontSize->Scaled[0.04063246920389777],
FontColor->RGBColor[
0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {-90., -118.},
Center, Automatic], InsetBox[
StyleBox["\<\"saw\"\>",
StripOnInput->False,
FontSize->Scaled[0.06490163633020775],
FontColor->RGBColor[
0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {101., -121.},
Center, Automatic], InsetBox[
StyleBox["\<\"death\"\>",
StripOnInput->False,
FontSize->Scaled[0.041735613164184594`],
FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {116., 37.},
Center, Automatic], InsetBox[
StyleBox["\<\"heart\"\>",
StripOnInput->False,
FontSize->Scaled[0.046148189005331866`],
FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {-12., 129.},
Center, Automatic], InsetBox[
StyleBox["\<\"matter\"\>",
StripOnInput->False,
FontSize->Scaled[0.041735613164184594`],
FontColor->RGBColor[
0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {0., -128.},
Center, Automatic], InsetBox[
StyleBox["\<\"case\"\>",
StripOnInput->False,
FontSize->Scaled[0.05607648464791322],
FontColor->RGBColor[
0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {-38., -129.},
Center, Automatic], InsetBox[
StyleBox["\<\"good\"\>",
StripOnInput->False,
FontSize->Scaled[0.04394190108475823],
FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {-125., 37.},
Center, Automatic], InsetBox[
StyleBox["\<\"father\"\>",
StripOnInput->False,
FontSize->Scaled[0.03842618128332414],
FontColor->RGBColor[
0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {22., 131.},
Center, Automatic], InsetBox[
StyleBox["\<\"heard\"\>",
StripOnInput->False,
FontSize->Scaled[0.039529325243610955`],
FontColor->RGBColor[
0.845266573755366, 0.437100139366951, 0.03816643438841502]], {-124., 50.},
Center, Automatic], InsetBox[
StyleBox["\<\"day\"\>",
StripOnInput->False,
FontSize->Scaled[0.047251332965618675`],
FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {-124., 16.},
Center, Automatic], InsetBox[
StyleBox["\<\"blood\"\>",
StripOnInput->False,
FontSize->Scaled[0.03842618128332414],
FontColor->RGBColor[
0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {122., -58.},
Center, Automatic], InsetBox[
StyleBox["\<\"old\"\>",
StripOnInput->False,
FontSize->Scaled[0.05276705276705277],
FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {127., 0.},
Center, Automatic], InsetBox[
StyleBox["\<\"small\"\>",
StripOnInput->False,
FontSize->Scaled[0.039529325243610955`],
FontColor->RGBColor[
0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {122., 49.},
Center, Automatic], InsetBox[
StyleBox["\<\"hardly\"\>",
StripOnInput->False,
FontSize->Scaled[0.03401360544217687],
FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {-122., 65.},
Center, Automatic], InsetBox[
StyleBox["\<\"man's\"\>",
StripOnInput->False,
FontSize->Scaled[0.03511674940246369],
FontColor->RGBColor[
0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {118., -74.},
Center, Automatic], InsetBox[
StyleBox["\<\"Road\"\>",
StripOnInput->False,
FontSize->Scaled[0.04063246920389777],
FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {54., 132.},
Center, Automatic], InsetBox[
StyleBox["\<\"knew\"\>",
StripOnInput->False,
FontSize->Scaled[0.041735613164184594`],
FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {-124., 77.},
Center, Automatic], InsetBox[
StyleBox["\<\"gave\"\>",
StripOnInput->False,
FontSize->Scaled[0.03842618128332414],
FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {-15., 27.},
Center, Automatic], InsetBox[
StyleBox["\<\"right\"\>",
StripOnInput->False,
FontSize->Scaled[0.041735613164184594`],
FontColor->RGBColor[
0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {-70., -131.},
Center, Automatic], InsetBox[
StyleBox["\<\"like\"\>",
StripOnInput->False,
FontSize->Scaled[0.047251332965618675`],
FontColor->RGBColor[
0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {-79., 131.},
Center, Automatic], InsetBox[
StyleBox["\<\"name\"\>",
StripOnInput->False,
FontSize->Scaled[0.04283875712447141],
FontColor->RGBColor[
0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {63., -134.},
Center, Automatic], InsetBox[
StyleBox["\<\"head\"\>",
StripOnInput->False,
FontSize->Scaled[0.04063246920389777],
FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {84., 131.},
Center, Automatic], InsetBox[
StyleBox["\<\"Lucy\"\>",
StripOnInput->False,
FontSize->Scaled[0.039529325243610955`],
FontColor->RGBColor[
0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {-98., -132.},
Center, Automatic], InsetBox[
StyleBox["\<\"better\"\>",
StripOnInput->False,
FontSize->Scaled[0.03401360544217687],
FontColor->RGBColor[
0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {-119., 115.},
Center, Automatic], InsetBox[
StyleBox["\<\"voice\"\>",
StripOnInput->False,
FontSize->Scaled[0.03511674940246369],
FontColor->RGBColor[
0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {-104., 129.},
Center, Automatic], InsetBox[
StyleBox["\<\"Mr.\"\>",
StripOnInput->False,
FontSize->Scaled[0.05056076484647913],
FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {-129., -42.},
Center, Automatic], InsetBox[
StyleBox["\<\"stood\"\>",
StripOnInput->False,
FontSize->Scaled[0.03511674940246369],
FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {121., 118.},
Center, Automatic], InsetBox[
StyleBox["\<\"Just\"\>",
StripOnInput->False,
FontSize->Scaled[0.041735613164184594`],
FontColor->RGBColor[
0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {-122., -117.},
Center, Automatic], InsetBox[
StyleBox["\<\"took\"\>",
StripOnInput->False,
FontSize->Scaled[0.03732303732303732],
FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {111., 132.},
Center, Automatic], InsetBox[
StyleBox["\<\"cab\"\>",
StripOnInput->False,
FontSize->Scaled[0.04504504504504504],
FontColor->RGBColor[
0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {-124., -131.},
Center, Automatic], InsetBox[
StyleBox["\<\"work\"\>",
StripOnInput->False,
FontSize->Scaled[0.03511674940246369],
FontColor->RGBColor[
0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {36., 26.},
Center, Automatic], InsetBox[
StyleBox["\<\"went\"\>",
StripOnInput->False,
FontSize->Scaled[0.03511674940246369],
FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {111., -134.},
Center, Automatic], InsetBox[
StyleBox["\<\"look\"\>",
StripOnInput->False,
FontSize->Scaled[0.03732303732303732],
FontColor->RGBColor[
0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {-130., 0.},
Center, Automatic], InsetBox[
StyleBox["\<\"life\"\>",
StripOnInput->False,
FontSize->Scaled[0.049457620886192315`],
FontColor->RGBColor[
0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {-129., -17.},
Center, Automatic], InsetBox[
StyleBox["\<\"ring\"\>",
StripOnInput->False,
FontSize->Scaled[0.041735613164184594`],
FontColor->RGBColor[
0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {136., -14.},
Center, Automatic], InsetBox[
StyleBox["\<\"say\"\>",
StripOnInput->False,
FontSize->Scaled[0.04394190108475823],
FontColor->RGBColor[
0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {29., -136.},
Center, Automatic], InsetBox[
StyleBox["\<\"days\"\>",
StripOnInput->False,
FontSize->Scaled[0.03401360544217687],
FontColor->RGBColor[
0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {137., -27.},
Center, Automatic], InsetBox[
StyleBox["\<\"think\"\>",
StripOnInput->False,
FontSize->Scaled[0.036219893362750506`],
FontColor->RGBColor[
0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {0., -141.},
Center, Automatic], InsetBox[
StyleBox["\<\"men\"\>",
StripOnInput->False,
FontSize->Scaled[0.04394190108475823],
FontColor->RGBColor[
0.596786740995709, 0.404791067752503, 0.7955331475107271]], {-7., 142.},
Center, Automatic], InsetBox[
StyleBox["\<\"left\"\>",
StripOnInput->False,
FontSize->Scaled[0.041735613164184594`],
FontColor->RGBColor[
0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {136., -42.},
Center, Automatic], InsetBox[
StyleBox["\<\"seen\"\>",
StripOnInput->False,
FontSize->Scaled[0.039529325243610955`],
FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {-43., 136.},
Center, Automatic], InsetBox[
StyleBox["\<\"feet\"\>",
StripOnInput->False,
FontSize->Scaled[0.03511674940246369],
FontColor->RGBColor[
0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {18., 143.},
Center, Automatic], InsetBox[
StyleBox["\<\"Let\"\>",
StripOnInput->False,
FontSize->Scaled[0.03732303732303732],
FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {140., 13.},
Center, Automatic], InsetBox[
StyleBox["\<\"tell\"\>",
StripOnInput->False,
FontSize->Scaled[0.039529325243610955`],
FontColor->RGBColor[
0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {-132., -56.},
Center, Automatic], InsetBox[
StyleBox["\<\"Yes\"\>",
StripOnInput->False,
FontSize->Scaled[0.03511674940246369],
FontColor->RGBColor[
0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {-24., -143.},
Center, Automatic], InsetBox[
StyleBox["\<\"City\"\>",
StripOnInput->False,
FontSize->Scaled[0.03511674940246369],
FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {132., 63.},
Center, Automatic], InsetBox[
StyleBox["\<\"far\"\>",
StripOnInput->False,
FontSize->Scaled[0.03732303732303732],
FontColor->RGBColor[
0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {141., 24.},
Center, Automatic], InsetBox[
StyleBox["\<\"girl\"\>",
StripOnInput->False,
FontSize->Scaled[0.039529325243610955`],
FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {-134., -70.},
Center, Automatic], InsetBox[
StyleBox["\<\"got\"\>",
StripOnInput->False,
FontSize->Scaled[0.03511674940246369],
FontColor->RGBColor[
0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {-44., -143.},
Center, Automatic], InsetBox[
StyleBox["\<\"new\"\>",
StripOnInput->False,
FontSize->Scaled[0.036219893362750506`],
FontColor->RGBColor[
0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {41., 144.},
Center, Automatic], InsetBox[
StyleBox["\<\"soon\"\>",
StripOnInput->False,
FontSize->Scaled[0.03511674940246369],
FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {-33., 146.},
Center, Automatic], InsetBox[
StyleBox["\<\"lay\"\>",
StripOnInput->False,
FontSize->Scaled[0.03401360544217687],
FontColor->RGBColor[
0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {-129., -85.},
Center, Automatic]},
DefaultBaseStyle->{"Graphics", FontFamily -> "Helvetica"},
Method->{
"DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
PlotRange->{{-143.5, 150.5}, {-150.5, 151.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.702903880904451*^9},ExpressionUUID->"09eb1236-f8c9-487e-88ec-\
42c555debbb8"]
}, Open ]],
Cell["Show the most frequently used of proper nouns:", "Text",
CellChangeTimes->{{3.683033608693839*^9, 3.683033616124875*^9}, {
3.683294908678198*^9, 3.6832949116374936`*^9}, {3.683376844887498*^9,
3.683376859973558*^9}, {3.683392725792314*^9,
3.683392733768087*^9}},ExpressionUUID->"44fee94c-fa55-46f5-92b4-\
7e79791e2b63"],
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.683294093657347*^9, 3.683294095105347*^9},
3.6839023033905573`*^9},ExpressionUUID->"f6871dae-99c7-4523-b6f6-\
bc0c1bedb79a"],
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}, {13., 1.462962962962963},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75, 98.11224489795919}, {70.84624984117487,
79.47192362345153}}],
StatusArea[#, 13]& ,
TagBoxNote->"13"],
StyleBox["13", {}, StripOnInput -> False]],
Annotation[#,
Style[13, {}], "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`}, {13., 2.4629629629629632`},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75, 98.11224489795919}, {62.07052215631606,
70.69619593859272}}],
StatusArea[#, 13]& ,
TagBoxNote->"13"],
StyleBox["13", {}, StripOnInput -> False]],
Annotation[#,
Style[13, {}], "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}, {14., 3.4629629629629632`},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75, 101.17857142857143`}, {53.29479447145725,
61.92046825373392}}],
StatusArea[#, 14]& ,
TagBoxNote->"14"],
StyleBox["14", {}, StripOnInput -> False]],
Annotation[#,
Style[14, {}], "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}, {14., 4.462962962962963},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75, 101.17857142857143`}, {44.51906678659845,
53.14474056887512}}],
StatusArea[#, 14]& ,
TagBoxNote->"14"],
StyleBox["14", {}, StripOnInput -> False]],
Annotation[#,
Style[14, {}], "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}, {15., 5.462962962962963},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75, 104.24489795918367`}, {35.74333910173964,
44.369012884016314`}}],
StatusArea[#, 15]& ,
TagBoxNote->"15"],
StyleBox["15", {}, StripOnInput -> False]],
Annotation[#,
Style[15, {}], "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}, {16., 6.462962962962963},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75, 107.31122448979592`}, {26.967611416880835`,
35.593285199157506`}}],
StatusArea[#, 16]& ,
TagBoxNote->"16"],
StyleBox["16", {}, StripOnInput -> False]],
Annotation[#,
Style[16, {}], "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}, {19., 7.462962962962963},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75, 116.51020408163265`}, {18.191883732022035`,
26.8175575142987}}],
StatusArea[#, 19]& ,
TagBoxNote->"19"],
StyleBox["19", {}, StripOnInput -> False]],
Annotation[#,
Style[19, {}], "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}, {21., 8.462962962962964},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75, 122.64285714285714`}, {9.416156047163213,
18.04182982943989}}],
StatusArea[#, 21]& ,
TagBoxNote->"21"],
StyleBox["21", {}, StripOnInput -> False]],
Annotation[#,
Style[21, {}], "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}, {27., 9.462962962962964},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75, 141.0408163265306}, {0.6404283623044051,
9.266102144581083}}],
StatusArea[#, 27]& ,
TagBoxNote->"27"],
StyleBox["27", {}, StripOnInput -> False]],
Annotation[#,
Style[27, {}], "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}, {31., 10.462962962962964`},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75, 153.30612244897958`}, {-8.135299322554388,
0.49037445972227545`}}],
StatusArea[#, 31]& ,
TagBoxNote->"31"],
StyleBox["31", {}, StripOnInput -> False]],
Annotation[#,
Style[31, {}], "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`}, {37., 11.462962962962964`},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75,
171.70408163265307`}, {-16.911027007413196`, -8.285353225136532}}],
StatusArea[#, 37]& ,
TagBoxNote->"37"],
StyleBox["37", {}, StripOnInput -> False]],
Annotation[#,
Style[37, {}], "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`}, {37., 12.462962962962964`},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75,
171.70408163265307`}, {-25.686754692272004`, -17.06108090999534}}],
StatusArea[#, 37]& ,
TagBoxNote->"37"],
StyleBox["37", {}, StripOnInput -> False]],
Annotation[#,
Style[37, {}], "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`}, {40., 13.462962962962964`},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75,
180.9030612244898}, {-34.46248237713081, -25.836808594854148`}}],
StatusArea[#, 40]& ,
TagBoxNote->"40"],
StyleBox["40", {}, StripOnInput -> False]],
Annotation[#,
Style[40, {}], "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`}, {41., 14.462962962962964`},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75,
183.96938775510205`}, {-43.23821006198962, -34.612536279712955`}}],
StatusArea[#, 41]& ,
TagBoxNote->"41"],
StyleBox["41", {}, StripOnInput -> False]],
Annotation[#,
Style[41, {}], "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`}, {44., 15.462962962962964`},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75,
193.16836734693877`}, {-52.01393774684841, -43.38826396457175}}],
StatusArea[#, 44]& ,
TagBoxNote->"44"],
StyleBox["44", {}, StripOnInput -> False]],
Annotation[#,
Style[44, {}], "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`}, {45., 16.462962962962965`},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75,
196.23469387755102`}, {-60.789665431707235`, -52.16399164943057}}],
StatusArea[#, 45]& ,
TagBoxNote->"45"],
StyleBox["45", {}, StripOnInput -> False]],
Annotation[#,
Style[45, {}], "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`}, {48., 17.462962962962965`},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75,
205.43367346938777`}, {-69.56539311656606, -60.939719334289364`}}],
StatusArea[#, 48]& ,
TagBoxNote->"48"],
StyleBox["48", {}, StripOnInput -> False]],
Annotation[#,
Style[48, {}], "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`}, {53., 18.462962962962965`},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75,
220.76530612244898`}, {-78.34112080142485, -69.71544701914819}}],
StatusArea[#, 53]& ,
TagBoxNote->"53"],
StyleBox["53", {}, StripOnInput -> False]],
Annotation[#,
Style[53, {}], "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`}, {53., 19.462962962962965`},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75,
220.76530612244898`}, {-87.11684848628367, -78.49117470400698}}],
StatusArea[#, 53]& ,
TagBoxNote->"53"],
StyleBox["53", {}, StripOnInput -> False]],
Annotation[#,
Style[53, {}], "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`}, {93., 20.462962962962965`},
"RoundingRadius" -> 0]},
ImageSizeCache->{{57.75,
343.4183673469388}, {-95.89257617114247, -87.26690238886577}}],
StatusArea[#, 93]& ,
TagBoxNote->"93"],
StyleBox["93", {}, StripOnInput -> False]],
Annotation[#,
Style[93, {}], "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["\<\"Joseph\"\>", Offset[{-2., 0.}, {0., 1.}],
ImageScaled[{1, 1/2}], Automatic, {1, 0}],
InsetBox["\<\"City\"\>", Offset[{-2., 0.}, {0., 2.}],
ImageScaled[{1, 1/2}], Automatic, {1, 0}],
InsetBox["\<\"Road\"\>", Offset[{-2., 0.}, {0., 3.}],
ImageScaled[{1, 1/2}], Automatic, {1, 0}],
InsetBox["\<\"London\"\>", Offset[{-2., 0.}, {0., 4.}],
ImageScaled[{1, 1/2}], Automatic, {1, 0}],
InsetBox["\<\"Brixton\"\>", Offset[{-2., 0.}, {0., 5.}],
ImageScaled[{1, 1/2}], Automatic, {1, 0}],
InsetBox["\<\"The\"\>", Offset[{-2., 0.}, {0., 6.}],
ImageScaled[{1, 1/2}], Automatic, {1, 0}],
InsetBox["\<\"I'll\"\>", Offset[{-2., 0.}, {0., 7.}],
ImageScaled[{1, 1/2}], Automatic, {1, 0}],
InsetBox["\<\"No\"\>", Offset[{-2., 0.}, {0., 8.}],
ImageScaled[{1, 1/2}], Automatic, {1, 0}],
InsetBox["\<\"Lucy\"\>", Offset[{-2., 0.}, {0., 8.999999999999998}],
ImageScaled[{1, 1/2}], Automatic, {1, 0}],
InsetBox["\<\"John\"\>", Offset[{-2., 0.}, {0., 9.999999999999998}],
ImageScaled[{1, 1/2}], Automatic, {1, 0}],
InsetBox["\<\"Mr.\"\>", Offset[{-2., 0.}, {0., 10.999999999999998}],
ImageScaled[{1, 1/2}], Automatic, {1, 0}],
InsetBox["\<\"Jefferson\"\>",
Offset[{-2., 0.}, {0., 11.999999999999998}], ImageScaled[{1, 1/2}],
Automatic, {1, 0}],
InsetBox["\<\"Gregson\"\>",
Offset[{-2., 0.}, {0., 12.999999999999998}], ImageScaled[{1, 1/2}],
Automatic, {1, 0}],
InsetBox["\<\"Hope\"\>", Offset[{-2., 0.}, {0., 13.999999999999998}],
ImageScaled[{1, 1/2}], Automatic, {1, 0}],
InsetBox["\<\"Lestrade\"\>",
Offset[{-2., 0.}, {0., 14.999999999999998}], ImageScaled[{1, 1/2}],
Automatic, {1, 0}],
InsetBox["\<\"Stangerson\"\>", Offset[{-2., 0.}, {0., 16.}],
ImageScaled[{1, 1/2}], Automatic, {1, 0}],
InsetBox["\<\"Sherlock\"\>", Offset[{-2., 0.}, {0., 17.}],
ImageScaled[{1, 1/2}], Automatic, {1, 0}],
InsetBox["\<\"Ferrier\"\>", Offset[{-2., 0.}, {0., 18.}],
ImageScaled[{1, 1/2}], Automatic, {1, 0}],
InsetBox["\<\"Drebber\"\>", Offset[{-2., 0.}, {0., 19.}],
ImageScaled[{1, 1/2}], Automatic, {1, 0}],
InsetBox["\<\"Holmes\"\>", 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["\"Joseph\"", TraditionalForm], 0}, {2.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {2.,
FormBox["\"City\"", TraditionalForm], 0}, {3.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {3.,
FormBox["\"Road\"", TraditionalForm], 0}, {4.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {4.,
FormBox["\"London\"", TraditionalForm], 0}, {5.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {5.,
FormBox["\"Brixton\"", TraditionalForm], 0}, {6.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {6.,
FormBox["\"The\"", TraditionalForm], 0}, {7.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {7.,
FormBox["\"I'll\"", TraditionalForm], 0}, {8.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {8.,
FormBox["\"No\"", TraditionalForm], 0}, {9.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {9.,
FormBox["\"Lucy\"", TraditionalForm], 0}, {10.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {10.,
FormBox["\"John\"", TraditionalForm], 0}, {11.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {11.,
FormBox["\"Mr.\"", TraditionalForm], 0}, {12.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {12.,
FormBox["\"Jefferson\"", TraditionalForm], 0}, {13.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {13.,
FormBox["\"Gregson\"", TraditionalForm], 0}, {14.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {14.,
FormBox["\"Hope\"", TraditionalForm], 0}, {15.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {15.,
FormBox["\"Lestrade\"", TraditionalForm], 0}, {16.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {16.,
FormBox["\"Stangerson\"", TraditionalForm], 0}, {17.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {17.,
FormBox["\"Sherlock\"", TraditionalForm], 0}, {18.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {18.,
FormBox["\"Ferrier\"", TraditionalForm], 0}, {19.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {19.,
FormBox["\"Drebber\"", TraditionalForm], 0}, {20.,
FormBox[
InterpretationBox[
StyleBox[
GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
"CacheGraphics" -> False],
Spacer[0]], TraditionalForm], {0.004, 0}}, {20.,
FormBox["\"Holmes\"", 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.683902317463099*^9},ExpressionUUID->"2e6f92db-06d8-4f12-9374-\
b4578e7a27a0"]
}, Open ]]
}, Open ]]
},
WindowSize->{775, 873},
WindowMargins->{{136, Automatic}, {Automatic, 0}},
WindowTitle->"Examples for A Study in Scarlet",
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[625, 23, 91, 0, 70, "Subsection", "ExpressionUUID" -> \
"a58c35eb-80e1-4422-af14-e844b5946864"],
Cell[719, 25, 272, 4, 70, "Text", "ExpressionUUID" -> \
"29c7918b-8d22-4839-8bda-e88909525994"],
Cell[CellGroupData[{
Cell[1016, 33, 277, 6, 70, "Input", "ExpressionUUID" -> \
"fde455eb-30df-424a-8b81-431269e59c34"],
Cell[1296, 41, 14395, 321, 70, "Output", "ExpressionUUID" -> \
"46916edd-68b1-4d2b-a4f4-9671060ad7d5"]
}, Open ]],
Cell[15706, 365, 261, 4, 70, "Text", "ExpressionUUID" -> \
"b9327aa5-2c1c-4305-8b96-2b317fc38006"],
Cell[CellGroupData[{
Cell[15992, 373, 499, 11, 70, "Input", "ExpressionUUID" -> \
"d68ed49d-8ad0-4468-85b7-9e943484a4d4"],
Cell[16494, 386, 792, 11, 70, "Output", "ExpressionUUID" -> \
"4dc2f635-2b86-409b-997f-bdb807cb3ea5"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[17335, 403, 90, 0, 70, "Subsection", "ExpressionUUID" -> \
"8de6d85f-23a4-4235-9fdf-2c58d080ed17"],
Cell[17428, 405, 407, 6, 70, "Text", "ExpressionUUID" -> \
"4baacd4e-31d7-415f-a557-6f1aa4a358ed"],
Cell[CellGroupData[{
Cell[17860, 415, 542, 10, 70, "Input", "ExpressionUUID" -> \
"d882eb4e-8c1e-45b2-8789-d13c30527290"],
Cell[18405, 427, 23819, 566, 70, "Output", "ExpressionUUID" -> \
"09eb1236-f8c9-487e-88ec-42c555debbb8"]
}, Open ]],
Cell[42239, 996, 334, 5, 70, "Text", "ExpressionUUID" -> \
"44fee94c-fa55-46f5-92b4-7e79791e2b63"],
Cell[CellGroupData[{
Cell[42598, 1005, 696, 17, 70, "Input", "ExpressionUUID" -> \
"f6871dae-99c7-4523-b6f6-bc0c1bedb79a"],
Cell[43297, 1024, 35226, 894, 70, "Output", "ExpressionUUID" -> \
"2e6f92db-06d8-4f12-9374-b4578e7a27a0"]
}, Open ]]
}, Open ]]
}
]
*)
(* End of internal cache information *)