(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 78477, 2030] NotebookOptionsPosition[ 76834, 1989] NotebookOutlinePosition[ 77415, 2012] CellTagsIndexPosition[ 77372, 2009] WindowTitle->Examples for The Worst Journey in the World WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell["View the data:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", "20", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, { 3.6882277905218*^9, 3.688227794430045*^9}, {3.702898584303591*^9, 3.7028986287697*^9}}], Cell[BoxData["\<\"This post-war business is inartistic, for it is seldom that \ any one does\\nanything well for the sake of doing it well; and it is \ un-Christian, if\\nyou value Christianity, for men are out to hurt and not to \ help--can you\\nwonder, when the Ten Commandments were hurled straight from \ the pulpit\\nthrough good stained glass. It is all very interesting and \ uncomfortable,\\nand it has been a great relief to wander back in one's \ thoughts and\\ncorrespondence and personal dealings to an age in geological \ time, so\\nmany hundred years ago, when we were artistic Christians, doing \ our jobs\\nas well as we were able just because we wished to do them well, \ helping\\none another with all our strength, and (I speak with personal \ humility)\\nliving a life of co-operation, in the face of hardships and \ dangers,\\nwhich has seldom been surpassed.\"\>"], "Output", CellChangeTimes->{{3.688227780288809*^9, 3.688227796123788*^9}, { 3.702898597509241*^9, 3.7028986295173893`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell["Compare word lengths between different works:", "Text", CellChangeTimes->{{3.683377141291443*^9, 3.6833771513624783`*^9}, { 3.683392785368867*^9, 3.683392786695593*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PairedHistogram", "[", RowBox[{ RowBox[{"StringLength", "/@", RowBox[{"TextWords", "[", RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "]"}]}], ",", RowBox[{"StringLength", "/@", RowBox[{"TextWords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}]}], ",", "Automatic"}], "]"}]], "Input", CellChangeTimes->{{3.6833771529536467`*^9, 3.683377159022118*^9}, { 3.683377201087611*^9, 3.683377202587431*^9}, 3.6833905001466846`*^9, { 3.6882279104864407`*^9, 3.688227913046506*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.45499999999999996`], Thickness[Small]}], {{{}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{Opacity[0.45499999999999996`], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-14254., 1.}], Offset[{0, 0}, {-5788., 2.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{145.43571629170947`, 166.01932270916336`}, { 80.97248693036198, 87.00493456368052}}], StatusArea[#, 8466]& , TagBoxNote->"8466"], StyleBox["8466", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[8466, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-49513., 2.}], Offset[{0, 0}, {-5788., 3.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{61.79197914630356, 166.01932270916336`}, { 75.44003929704346, 81.47248693036198}}], StatusArea[#, 43725]& , TagBoxNote->"43725"], StyleBox["43725", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[43725, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-63668., 3.}], Offset[{0, 0}, {-5788., 4.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{28.212549800796864`, 166.01932270916336`}, { 69.90759166372492, 75.94003929704346}}], StatusArea[#, 57880]& , TagBoxNote->"57880"], StyleBox["57880", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[57880, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-53009., 4.}], Offset[{0, 0}, {-5788., 5.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{53.49853619385627, 166.01932270916336`}, { 64.37514403040637, 70.40759166372492}}], StatusArea[#, 47221]& , TagBoxNote->"47221"], StyleBox["47221", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[47221, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-35866., 5.}], Offset[{0, 0}, {-5788., 6.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{94.16629721611139, 166.01932270916336`}, { 58.842696397087835`, 64.87514403040637}}], StatusArea[#, 30078]& , TagBoxNote->"30078"], StyleBox["30078", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[30078, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-23702., 6.}], Offset[{0, 0}, {-5788., 7.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{123.02254437674321`, 166.01932270916336`}, { 53.3102487637693, 59.342696397087835`}}], StatusArea[#, 17914]& , TagBoxNote->"17914"], StyleBox["17914", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[17914, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-21673., 7.}], Offset[{0, 0}, {-5788., 8.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{127.83587268066643`, 166.01932270916336`}, { 47.77780113045076, 53.8102487637693}}], StatusArea[#, 15885]& , TagBoxNote->"15885"], StyleBox["15885", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[15885, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-14878., 8.}], Offset[{0, 0}, {-5788., 9.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{143.95542212628408`, 166.01932270916336`}, { 42.24535349713222, 48.27780113045076}}], StatusArea[#, 9090]& , TagBoxNote->"9090"], StyleBox["9090", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[9090, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-11997., 9.}], Offset[{0, 0}, {-5788., 10.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{150.78992130992273`, 166.01932270916336`}, { 36.71290586381369, 42.74535349713222}}], StatusArea[#, 6209]& , TagBoxNote->"6209"], StyleBox["6209", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[6209, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-9547., 10.}], Offset[{0, 0}, {-5788., 11.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{156.6019737222499, 166.01932270916336`}, { 31.180458230495148`, 37.21290586381369}}], StatusArea[#, 3759]& , TagBoxNote->"3759"], StyleBox["3759", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[3759, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-7706., 11.}], Offset[{0, 0}, {-5788., 12.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{160.9693159635129, 166.01932270916336`}, { 25.648010597176608`, 31.680458230495148`}}], StatusArea[#, 1918]& , TagBoxNote->"1918"], StyleBox["1918", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[1918, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-6888., 12.}], Offset[{0, 0}, {-5788., 13.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{162.90982978934298`, 166.01932270916336`}, { 20.115562963858068`, 26.148010597176608`}}], StatusArea[#, 1100]& , TagBoxNote->"1100"], StyleBox["1100", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[1100, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-6348., 13.}], Offset[{0, 0}, {-5788., 14.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{164.1908535863457, 166.01932270916336`}, { 14.583115330539542`, 20.615562963858068`}}], StatusArea[#, 560]& , TagBoxNote->"560"], StyleBox["560", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[560, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-5992., 14.}], Offset[{0, 0}, {-5788., 15.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.0353803858512, 166.01932270916336`}, { 9.050667697221002, 15.083115330539542`}}], StatusArea[#, 204]& , TagBoxNote->"204"], StyleBox["204", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[204, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-5847., 15.}], Offset[{0, 0}, {-5788., 16.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.37935899800934`, 166.01932270916336`}, { 3.5182200639024614`, 9.550667697221002}}], StatusArea[#, 59]& , TagBoxNote->"59"], StyleBox["59", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[59, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-5811., 16.}], Offset[{0, 0}, {-5788., 17.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.4647605844762, 166.01932270916336`}, {-2.0142275694160787`, 4.0182200639024614`}}], StatusArea[#, 23]& , TagBoxNote->"23"], StyleBox["23", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[23, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-5798., 17.}], Offset[{0, 0}, {-5788., 18.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.4956000462559, 166.01932270916336`}, {-7.546675202734619, -1.5142275694160787`}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[10, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-5799., 18.}], Offset[{0, 0}, {-5788., 19.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.49322777996514`, 166.01932270916336`}, {-13.079122836053145`, -7.046675202734619}}], StatusArea[#, 11]& , TagBoxNote->"11"], StyleBox["11", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[11, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-5791., 19.}], Offset[{0, 0}, {-5788., 20.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.5122059102911, 166.01932270916336`}, {-18.611570469371685`, \ -12.579122836053145`}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[3, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-5790., 20.}], Offset[{0, 0}, {-5788., 21.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.51457817658186`, 166.01932270916336`}, {-24.144018102690225`, \ -18.111570469371685`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[2, { Directive[], Directive[]}], "Tooltip"]& ], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-5790., 22.}], Offset[{0, 0}, {-5788., 23.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.51457817658186`, 166.01932270916336`}, {-35.208913369327306`, \ -29.176465736008765`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[2, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-5789., 23.}], Offset[{0, 0}, {-5788., 24.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.5169504428726, 166.01932270916336`}, {-40.741361002645846`, \ -34.708913369327306`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[1, { Directive[], Directive[]}], "Tooltip"]& ], {}, {}, {}, {}, {}, {}, {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {-5789., 31.}], Offset[{0, 0}, {-5788., 32.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{165.5169504428726, 166.01932270916336`}, {-85.00094206919414, -78.96849443587561}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[1, { Directive[], Directive[]}], "Tooltip"]& ], {}, {}, {}, {}}, {}, {}}, {{}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{Opacity[0.45499999999999996`], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 1.}], Offset[{0, 0}, {12420., 2.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 209.21354733106276`}, { 80.97248693036198, 87.00493456368052}}], StatusArea[#, 6632]& , TagBoxNote->"6632"], StyleBox["6632", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[6632, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 2.}], Offset[{0, 0}, {40155., 3.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 275.0083529048973}, { 75.44003929704346, 81.47248693036198}}], StatusArea[#, 34367]& , TagBoxNote->"34367"], StyleBox["34367", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[34367, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 3.}], Offset[{0, 0}, {53620., 4.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 306.9509185097894}, { 69.90759166372492, 75.94003929704346}}], StatusArea[#, 47832]& , TagBoxNote->"47832"], StyleBox["47832", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[47832, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 4.}], Offset[{0, 0}, {45578., 5.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 287.87315299961176`}, { 64.37514403040637, 70.40759166372492}}], StatusArea[#, 39790]& , TagBoxNote->"39790"], StyleBox["39790", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[39790, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 5.}], Offset[{0, 0}, {30688., 6.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 252.5501079304069}, { 58.842696397087835`, 64.87514403040637}}], StatusArea[#, 24900]& , TagBoxNote->"24900"], StyleBox["24900", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[24900, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 6.}], Offset[{0, 0}, {22325., 7.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 232.71084494089982`}, { 53.3102487637693, 59.342696397087835`}}], StatusArea[#, 16537]& , TagBoxNote->"16537"], StyleBox["16537", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[16537, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 7.}], Offset[{0, 0}, {19841., 8.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 226.81813547468727`}, { 47.77780113045076, 53.8102487637693}}], StatusArea[#, 14053]& , TagBoxNote->"14053"], StyleBox["14053", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[14053, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 8.}], Offset[{0, 0}, {15688., 9.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 216.96611356922}, { 42.24535349713222, 48.27780113045076}}], StatusArea[#, 9900]& , TagBoxNote->"9900"], StyleBox["9900", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[9900, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 9.}], Offset[{0, 0}, {12449., 10.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 209.28234305349437`}, { 36.71290586381369, 42.74535349713222}}], StatusArea[#, 6661]& , TagBoxNote->"6661"], StyleBox["6661", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[6661, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 10.}], Offset[{0, 0}, {9815., 11.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 203.03379364366995`}, { 31.180458230495148`, 37.21290586381369}}], StatusArea[#, 4027]& , TagBoxNote->"4027"], StyleBox["4027", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[4027, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 11.}], Offset[{0, 0}, {8013., 12.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 198.75896978774603`}, { 25.648010597176608`, 31.680458230495148`}}], StatusArea[#, 2225]& , TagBoxNote->"2225"], StyleBox["2225", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[2225, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 12.}], Offset[{0, 0}, {7198., 13.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 196.82557276078822`}, { 20.115562963858068`, 26.148010597176608`}}], StatusArea[#, 1410]& , TagBoxNote->"1410"], StyleBox["1410", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[1410, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 13.}], Offset[{0, 0}, {6592., 14.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 195.38797938859628`}, { 14.583115330539542`, 20.615562963858068`}}], StatusArea[#, 804]& , TagBoxNote->"804"], StyleBox["804", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[804, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 14.}], Offset[{0, 0}, {6124., 15.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 194.27775876452725`}, { 9.050667697221002, 15.083115330539542`}}], StatusArea[#, 336]& , TagBoxNote->"336"], StyleBox["336", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[336, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 15.}], Offset[{0, 0}, {5961., 16.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 193.89107935913566`}, { 3.5182200639024614`, 9.550667697221002}}], StatusArea[#, 173]& , TagBoxNote->"173"], StyleBox["173", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[173, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 16.}], Offset[{0, 0}, {5864., 17.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 193.66096952893332`}, {-2.0142275694160787`, 4.0182200639024614`}}], StatusArea[#, 76]& , TagBoxNote->"76"], StyleBox["76", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[76, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 17.}], Offset[{0, 0}, {5826., 18.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 193.57082340988498`}, {-7.546675202734619, -1.5142275694160787`}}], StatusArea[#, 38]& , TagBoxNote->"38"], StyleBox["38", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[38, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 18.}], Offset[{0, 0}, {5810., 19.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 193.53286714923306`}, {-13.079122836053145`, -7.046675202734619}}], StatusArea[#, 22]& , TagBoxNote->"22"], StyleBox["22", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[22, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 19.}], Offset[{0, 0}, {5798., 20.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 193.5043999537441}, {-18.611570469371685`, -12.579122836053145`}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[10, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 20.}], Offset[{0, 0}, {5796., 21.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 193.49965542116263`}, {-24.144018102690225`, \ -18.111570469371685`}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[8, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 21.}], Offset[{0, 0}, {5798., 22.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 193.5043999537441}, {-29.676465736008765`, -23.644018102690225`}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[10, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 22.}], Offset[{0, 0}, {5791., 23.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 193.4877940897089}, {-35.208913369327306`, -29.176465736008765`}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[3, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 23.}], Offset[{0, 0}, {5791., 24.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 193.4877940897089}, {-40.741361002645846`, -34.708913369327306`}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[3, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 24.}], Offset[{0, 0}, {5789., 25.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 193.4830495571274}, {-46.27380863596437, -40.241361002645846`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[1, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 25.}], Offset[{0, 0}, {5792., 26.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 193.49016635599963`}, {-51.806256269282926`, -45.77380863596437}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[4, { Directive[], Directive[]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 26.}], Offset[{0, 0}, {5789., 27.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 193.4830495571274}, {-57.33870390260145, -51.306256269282926`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[1, { Directive[], Directive[]}], "Tooltip"]& ], {}, {}, {}, {}, {}, {}, {}, {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[ Offset[{0, 0}, {5788., 35.}], Offset[{0, 0}, {5789., 36.}], "RoundingRadius" -> 0]}, ImageSizeCache->{{192.98067729083664`, 193.4830495571274}, {-107.1307326024683, -101.09828496914974`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { Directive[], Directive[]}, StripOnInput -> False]], Annotation[#, Style[1, { Directive[], Directive[]}], "Tooltip"]& ]}, {}, {}}}, {}}, {{{{{{{{}, {}}, {{}, {}}, {{}, {}}, \ {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, \ {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, \ {{}, {}}, {{}, {}}, {}, {{}, {}}, {{}, {}}, {}, {}, {}, {}, {}, {}, {}, {{}, \ {}}, {}, {}, {}, {}}, {}}, {}}, {{{{{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, \ {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, \ {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, \ {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {{}, {}}, {}, {}, \ {}, {}, {}, {}, {}, {}, {{}, {}}}, {}}, {}}}, {}}, {}}, StyleBox[{ TagBox[{ StyleBox[{ LineBox[{ Offset[{0, 0}, {-5788.000000000001, -0.7500000000000001}], Offset[{0, 0}, {-72639.40000000002, -0.7500000000000001}]}], StyleBox[{{ LineBox[{{ Offset[{0, 0}, {-5788.000000000001, -0.7500000000000001}], Offset[{0, -4.}, {-5788.000000000001, -0.7500000000000001}]}, { Offset[{0, 0}, {-30788.000000000004`, -0.7500000000000001}], Offset[{ 0, -4.}, {-30788.000000000004`, -0.7500000000000001}]}, { Offset[{0, 0}, {-55788.00000000001, -0.7500000000000001}], Offset[{0, -4.}, {-55788.00000000001, -0.7500000000000001}]}}], LineBox[{{ Offset[{0, 0}, {-10788., -0.7500000000000001}], Offset[{0., -2.5}, {-10788., -0.7500000000000001}]}, { Offset[{0, 0}, {-15788.000000000002`, -0.7500000000000001}], Offset[{ 0., -2.5}, {-15788.000000000002`, -0.7500000000000001}]}, { Offset[{0, 0}, {-20788., -0.7500000000000001}], Offset[{0., -2.5}, {-20788., -0.7500000000000001}]}, { Offset[{0, 0}, {-25788.000000000004`, -0.7500000000000001}], Offset[{ 0., -2.5}, {-25788.000000000004`, -0.7500000000000001}]}, { Offset[{0, 0}, {-35788., -0.7500000000000001}], Offset[{0., -2.5}, {-35788., -0.7500000000000001}]}, { Offset[{0, 0}, {-40788., -0.7500000000000001}], Offset[{0., -2.5}, {-40788., -0.7500000000000001}]}, { Offset[{0, 0}, {-45788.00000000001, -0.7500000000000001}], Offset[{ 0., -2.5}, {-45788.00000000001, -0.7500000000000001}]}, { Offset[{0, 0}, {-50788.00000000001, -0.7500000000000001}], Offset[{ 0., -2.5}, {-50788.00000000001, -0.7500000000000001}]}, { Offset[{0, 0}, {-60788.00000000001, -0.7500000000000001}], Offset[{ 0., -2.5}, {-60788.00000000001, -0.7500000000000001}]}, { Offset[{0, 0}, {-65788., -0.7500000000000001}], Offset[{0., -2.5}, {-65788., -0.7500000000000001}]}, { Offset[{0, 0}, {-70788., -0.7500000000000001}], Offset[{0., -2.5}, {-70788., -0.7500000000000001}]}}]}, StyleBox[{{{ InsetBox["0", Offset[{0., -7.}, {-5788.000000000001, -0.7500000000000001}], ImageScaled[{0.5, 1.}], Automatic, {1, 0}], InsetBox["25000", Offset[{0., -7.}, {-30788.000000000004, -0.7500000000000001}], ImageScaled[{0.5, 1.}], Automatic, {1, 0}], InsetBox["50000", Offset[{0., -7.}, {-55788.00000000001, -0.7500000000000001}], ImageScaled[{0.5, 1.}], Automatic, {1, 0}]}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, Antialiasing->False], StyleBox[{ LineBox[{ Offset[{0, 0}, {5788.000000000001, -0.7500000000000001}], Offset[{0, 0}, {72639.40000000002, -0.7500000000000001}]}], StyleBox[{{ LineBox[{{ Offset[{0, 0}, {5788.000000000001, -0.7500000000000001}], Offset[{0, -4.}, {5788.000000000001, -0.7500000000000001}]}, { Offset[{0, 0}, {30788.000000000004`, -0.7500000000000001}], Offset[{0, -4.}, { 30788.000000000004`, -0.7500000000000001}]}, { Offset[{0, 0}, {55788.00000000001, -0.7500000000000001}], Offset[{0, -4.}, {55788.00000000001, -0.7500000000000001}]}}], LineBox[{{ Offset[{0, 0}, {10788., -0.7500000000000001}], Offset[{0., -2.5}, {10788., -0.7500000000000001}]}, { Offset[{0, 0}, {15788.000000000002`, -0.7500000000000001}], Offset[{0., -2.5}, { 15788.000000000002`, -0.7500000000000001}]}, { Offset[{0, 0}, {20788., -0.7500000000000001}], Offset[{0., -2.5}, {20788., -0.7500000000000001}]}, { Offset[{0, 0}, {25788.000000000004`, -0.7500000000000001}], Offset[{0., -2.5}, { 25788.000000000004`, -0.7500000000000001}]}, { Offset[{0, 0}, {35788., -0.7500000000000001}], Offset[{0., -2.5}, {35788., -0.7500000000000001}]}, { Offset[{0, 0}, {40788., -0.7500000000000001}], Offset[{0., -2.5}, {40788., -0.7500000000000001}]}, { Offset[{0, 0}, {45788.00000000001, -0.7500000000000001}], Offset[{0., -2.5}, { 45788.00000000001, -0.7500000000000001}]}, { Offset[{0, 0}, {50788.00000000001, -0.7500000000000001}], Offset[{0., -2.5}, { 50788.00000000001, -0.7500000000000001}]}, { Offset[{0, 0}, {60788.00000000001, -0.7500000000000001}], Offset[{0., -2.5}, { 60788.00000000001, -0.7500000000000001}]}, { Offset[{0, 0}, {65788., -0.7500000000000001}], Offset[{0., -2.5}, {65788., -0.7500000000000001}]}, { Offset[{0, 0}, {70788., -0.7500000000000001}], Offset[{0., -2.5}, {70788., -0.7500000000000001}]}}]}, StyleBox[{{{ InsetBox["0", Offset[{0., -7.}, {5788.000000000001, -0.7500000000000001}], ImageScaled[{0.5, 1.}], Automatic, {1, 0}], InsetBox["25000", Offset[{0., -7.}, {30788.000000000004, -0.7500000000000001}], ImageScaled[{0.5, 1.}], Automatic, {1, 0}], InsetBox["50000", Offset[{0., -7.}, {55788.00000000001, -0.7500000000000001}], ImageScaled[{0.5, 1.}], Automatic, {1, 0}]}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, Antialiasing->False]}, Deploy, DefaultBaseStyle->"Deploy"], { StyleBox[{ LineBox[{ Offset[{0, 0}, {-5788., -0.75}], Offset[{0, 0}, {-5788., 37.75}]}], StyleBox[{{ LineBox[{{ Offset[{0, 0}, {-5788., 0.}], Offset[{4., 0}, {-5788., 0.}]}, { Offset[{0, 0}, {-5788., 10.}], Offset[{4., 0}, {-5788., 10.}]}, { Offset[{0, 0}, {-5788., 20.}], Offset[{4., 0}, {-5788., 20.}]}, { Offset[{0, 0}, {-5788., 30.000000000000004`}], Offset[{4., 0}, {-5788., 30.000000000000004`}]}}], LineBox[{{ Offset[{0, 0}, {-5788., 2.}], Offset[{2.5, 0.}, {-5788., 2.}]}, { Offset[{0, 0}, {-5788., 4.}], Offset[{2.5, 0.}, {-5788., 4.}]}, { Offset[{0, 0}, {-5788., 6.}], Offset[{2.5, 0.}, {-5788., 6.}]}, { Offset[{0, 0}, {-5788., 8.}], Offset[{2.5, 0.}, {-5788., 8.}]}, { Offset[{0, 0}, {-5788., 12.}], Offset[{2.5, 0.}, {-5788., 12.}]}, { Offset[{0, 0}, {-5788., 14.000000000000002`}], Offset[{2.5, 0.}, {-5788., 14.000000000000002`}]}, { Offset[{0, 0}, {-5788., 16.}], Offset[{2.5, 0.}, {-5788., 16.}]}, { Offset[{0, 0}, {-5788., 18.}], Offset[{2.5, 0.}, {-5788., 18.}]}, { Offset[{0, 0}, {-5788., 22.}], Offset[{2.5, 0.}, {-5788., 22.}]}, { Offset[{0, 0}, {-5788., 24.}], Offset[{2.5, 0.}, {-5788., 24.}]}, { Offset[{0, 0}, {-5788., 26.}], Offset[{2.5, 0.}, {-5788., 26.}]}, { Offset[{0, 0}, {-5788., 28.000000000000004`}], Offset[{2.5, 0.}, {-5788., 28.000000000000004`}]}, { Offset[{0, 0}, {-5788., 32.}], Offset[{2.5, 0.}, {-5788., 32.}]}, { Offset[{0, 0}, {-5788., 34.}], Offset[{2.5, 0.}, {-5788., 34.}]}, { Offset[{0, 0}, {-5788., 36.}], Offset[{2.5, 0.}, {-5788., 36.}]}}]}, StyleBox[{{{{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}}}, {}}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, Antialiasing->False], StyleBox[{ LineBox[{ Offset[{0, 0}, {5788., -0.75}], Offset[{0, 0}, {5788., 37.75}]}], StyleBox[{{ LineBox[{{ Offset[{0, 0}, {5788., 0.}], Offset[{-4., 0}, {5788., 0.}]}, { Offset[{0, 0}, {5788., 10.}], Offset[{-4., 0}, {5788., 10.}]}, { Offset[{0, 0}, {5788., 20.}], Offset[{-4., 0}, {5788., 20.}]}, { Offset[{0, 0}, {5788., 30.000000000000004`}], Offset[{-4., 0}, {5788., 30.000000000000004`}]}}], LineBox[{{ Offset[{0, 0}, {5788., 2.}], Offset[{-2.5, 0.}, {5788., 2.}]}, { Offset[{0, 0}, {5788., 4.}], Offset[{-2.5, 0.}, {5788., 4.}]}, { Offset[{0, 0}, {5788., 6.}], Offset[{-2.5, 0.}, {5788., 6.}]}, { Offset[{0, 0}, {5788., 8.}], Offset[{-2.5, 0.}, {5788., 8.}]}, { Offset[{0, 0}, {5788., 12.}], Offset[{-2.5, 0.}, {5788., 12.}]}, { Offset[{0, 0}, {5788., 14.000000000000002`}], Offset[{-2.5, 0.}, {5788., 14.000000000000002`}]}, { Offset[{0, 0}, {5788., 16.}], Offset[{-2.5, 0.}, {5788., 16.}]}, { Offset[{0, 0}, {5788., 18.}], Offset[{-2.5, 0.}, {5788., 18.}]}, { Offset[{0, 0}, {5788., 22.}], Offset[{-2.5, 0.}, {5788., 22.}]}, { Offset[{0, 0}, {5788., 24.}], Offset[{-2.5, 0.}, {5788., 24.}]}, { Offset[{0, 0}, {5788., 26.}], Offset[{-2.5, 0.}, {5788., 26.}]}, { Offset[{0, 0}, {5788., 28.000000000000004`}], Offset[{-2.5, 0.}, {5788., 28.000000000000004`}]}, { Offset[{0, 0}, {5788., 32.}], Offset[{-2.5, 0.}, {5788., 32.}]}, { Offset[{0, 0}, {5788., 34.}], Offset[{-2.5, 0.}, {5788., 34.}]}, { Offset[{0, 0}, {5788., 36.}], Offset[{-2.5, 0.}, {5788., 36.}]}}]}, StyleBox[{{{{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}}}, {}}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, Antialiasing->False], { StyleBox[InsetBox[ PaneBox["0"], {0, 0.}, ImageScaled[{1/2, 1/2}]], "GraphicsLabel", StripOnInput->False], StyleBox[InsetBox[ PaneBox["10"], {0, 10.}, ImageScaled[{1/2, 1/2}]], "GraphicsLabel", StripOnInput->False], StyleBox[InsetBox[ PaneBox["20"], {0, 20.}, ImageScaled[{1/2, 1/2}]], "GraphicsLabel", StripOnInput->False], StyleBox[InsetBox[ PaneBox["30"], {0, 30.000000000000004}, ImageScaled[{1/2, 1/2}]], "GraphicsLabel", StripOnInput->False]}, {}}}, Antialiasing->False]}, BoxID -> "{\"type\":\"Image\",\"message\":\"RasterizedDueToUnsupportedContent\",\"\ imageData\":{\"imageSource\":\"data:image/png;base64,\ iVBORw0KGgoAAAANSUhEUgAAAWgAAADsCAYAAABZszyvAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAA\ AOxAAADsQBlSsOGwAADddJREFUeJzt3V+IXOUZx/Hfeza42CBmlIBxrX+\ LYtuLVEODoCY3iy1axAtBDNWSnZxAIJhNVyS9yLLepUnQslTwTDNks1IWb0qwXlmof2hD2hi8M7W0E\ pjKIqK4uwRJZubthTNhnMzMzuzMnvOcOd8PLLjnnD3znOPkx/Ce93lHAgAAAAAAAAAAyBY/\ pK8FdC1IugAAQGsENAAYRUADgFEENAAYRUADgFEENAAYRUADgFEENAAYRUADgFEbki4AaCUMQ6nW4R\ dFkVun17jaQRhF0Xq8BAAMJVq9kXkMcQCAUQQ0ABhFQAOAUQQ0ABhFQAOAUQQ0ABhFQAOAUQQ0ABhF\ QAOAUbR6wyRavQHALlq9kXkMcQCAUQQ0ABhFQAOAUQQ0ABhFQAOAUQQ0ABhFQAOAUQQ0ABhFQAOAUb\ R6wyRavQHALlq9kXkMcQCAUQQ0ABhFQAOAUQQ0ABhFQAOAUUyzQ+rk8/\ kfBUHwB0lbJf1b0gtRFP01DMPt3vsF59yYpAve+/\ 2FQuG9ZKsF1o5P0EidIAjekPT70dHRTdVq9Tfe+z9Kkvf+\ kHPuWLlcvlnSgnPuYLKVAv0hoJE6URT9JIqiNxYXF30QBJucc4u1XdtGR0fni8XicqVSOaFvP2EDqc\ UQB1Jp9+7dN4yMjJQk3eC9f16SnHObZ2dnlyVpaWnpi1wutyXRIoE+\ EdAwqbHVu66x5btYLC5LujGfz+\ 8KguC3kuYlXZmennYzMzP1v2vZIdjY4t1w7kGVDgwMAQ2TaoG56hoc11133ekrV64Uar8ulkqlTZK+\ zOVyOUmftzl383lp9YZJBDRSZ8+ePRecc/\ mvvvrqH5VK5WeS6jM1zgZB8Ozk5OSJlZWVXc65c0nWCfSLgEbqBEHwXLVajXK53A+893/\ z3k9IknOuIGl+\ ZWXlFefcZ5KeSbZSABhOrGaHzGOaHQAYRUADgFEENAAYRUADgFEENAAYRUADgFHMg4ZJfKs3ANjFPG\ hkHkMcAGAUAQ0ARhHQAGAUAQ0ARhHQAGAUAQ0ARhHQAGAUAQ0ARhHQAGAUrd4wiVZvALCLVm9kHkMc\ AGAUAQ0ARhHQAGAUAQ0ARhHQAGAUAQ0ARhHQAGAUAQ0ARhHQAGAUAQ0ARrEWB0xiLQ4AsIu1OJB5DH\ EAgFEENAAYRUADgFEENAAYRUADgFEENAAYRUADgFEENAAYRUADgFG0esMkWr0BwC5avZF5DHEAgFEE\ NAAYRUADgFEENAAYRUADgFFMs0PqhGH4kKTXvPf3SbrgnAujKDoXhuF27/2Cc25M0gXv/\ f5CofBewuUCa8YnaKTRSUmHL1++fJNzLqr9Lu/9IefcsXK5fLOkBefcwQRrBPpGQCN1oii6L4qit+\ bm5r7ZuHHjnKSx2q5to6Oj88VicblSqZyQtDXBMoG+\ EdBItUuXLj0s6bQkOec2z87OLkvS0tLSF5K2JFkb0C/GoGFSY6t3XXPL98TExE3VanW/c+\ 6XtU1Xpqen3czMTP3vWnYINrZ4N5y7/\ 6KBASOgYVItMNuuwbFv375byuXy8XK5vL9YLH5d27xYKpU2Sfoyl8vlJH3e5tzN56XVGyYxxIHUyef\ zj5XL5TcrlcrBYrF4sWHX2SAInp2cnLzee79L0rmkagQGgU/QSJ0gCCJJt4+\ MjCzWhkIURZFzzhUkza+\ srLzinPtM0jNJ1gkAw4rV7JB5DHEAgFEENAAYRUADgFEENAAYRUADgFEENAAYxTxomMS3egOAXcyDR\ uYxxAEARhHQAGAUAQ0ARhHQAGAUAQ0ARhHQAGAUAQ0ARhHQAGAUAQ0ARtHqDZMSaPWeknRsPV4HAIZ\ N3K3eUzG+HtAVhjgAwCgCGgCMIqABwCgCGhYlMR68I4HXBDoioAFJRw6MP5F0DUAzAhoAjCKgAcAoA\ hoAjCKgAcCodWmhBfowdf9dm48+Mv7U1Q1xtHp/8M6f9Ksnt+qlV9/h3wQAtDFVPn/YK+ZW7/L5w/\ 7IgXG+3RumMMQBAEYR0ABgFAENAEYR0LBkStLuJ19YiP2FG15zSiw9CgDXmCqfP+\ yTekjY8NoENEzgEzQAGEVAA4BRBDQAGEVAA4BRtLXCgqkjB8aPnjz9kSTp7ttyGrt/59WdcbR6/+/\ jd/Xf0le6+7acJOnRB++g7RuJ4w0IC6bK5w8fbdyw4YGXpfjen758/vB3Nhw/\ dYaARuIY4gAAowhoADCKgAYAozYkXQAyqblTb/fxU2f0/\ ocX9eiDdyRS0PFTZySpuYZWHYXH4qoJ4CEIYnfkwLj/9XMPdTwm6YeErWx44OUXRUAjRnyCRirl8/\ nbnHP/LBQKW+rbwjDc7r1fcM6NSbrgvd9fKBTeS7BMoC+MQSN18vn8U0EQvOucu6Vxu/f+\ kHPuWLlcvlnSgnPuYEIlAgNBQCN1nHNhpVL5RYtd20ZHR+\ eLxeJypVI5IWlr3LUBg0RAI3UKhcLPT5w48XHzdufc5tnZ2WVJWlpa+kLSlmv+GEgRxqCxnqaOHBg/\ 2rzx5OmP9P6HF6/+\ 3thiXReGodS0JnQXLd9Xpqen3czMTP3vWq4p3djiXdf8JQGtanr8kXuPPvrgHddcjyS6DrEuCGisq1\ azNVabwSGteRbHYqlU2iTpy1wul5P0eauDWgR9V7M42qlP0QMGjSEODJOzQRA8Ozk5eb33fpekc0kX\ BPSDT9AYGs65gqT5lZWVV5xzn0l6JumagH4Q0Eit5qGK119//V1J30+\ mGmDwCGj0q9MXrO5uNz6bZFt3K53GkbusdbUvmqUDET3jyTP6dc1azoNgsdV7rWgRx1rxkBAAjCKgA\ cAoAhoAjCKgAcAoZnFgtdkHq2k7U6NZLzM3Glu94/hW7166AdcwA2VHD8fyMBFXMYsD6zILo1/\ DNIujW8z2QDOGOADAKAIaAIwioAHAKAIaAIziIWG2XLOA/snTH12zMP1atVrkfq3e/uATKcaHhI8/\ cm9fJxjUtbeaHcKXAWQX0+wypnmx/G4Wz09CbRZHbE7/\ zubKpHwZQLYxxAEARhHQAGAUAQ0ARvHwITn9tlivxe4jB8bvH/RJ12Px/\ f9cuuvqf8fR6n3P9z4d2HkHfT9eevWdFwd2sm/\ RrZgSBHRyTLZYW5HFVu84HD91hlkhKcIQBwAYRUADgFEENAAYRUADgFFD+7DgyIFxv/pRyRlki/\ UgDLJNexDS1uq9Fknd80HPuOlHbYYKs0raGOpWb6ttzJLt2iyg1TsbXnr1naRLMI0hDgAwioAGAKMI\ aAAwKokx6FhanN//8GIcL5OY9WivtsTyt3pbMgTvg16+8bwbQ/XAMYlZHLQ4Y1W0eqNXw/\ it6AxxAIBRBDQAGEVAA4BRBDQAGJXEQ8K3JL2XwOs22/H4I/c+kXQRkr02awuy0OodpzjeY29/\ 8Mmflfy/7aF6SDi0a3F0gdkkhjGLI32GcRZF0hjiAACjCGgAMIqABgCjhnq50VXsSGt7bytD0PL7Hb\ R6f9ew/f9Fd7L8kBADdOTAuB/kGtdpekjIwzGsF4Y4AMAoAhoAjCKgAcAoAhoAjOIhIQal2xb+\ HV0ed1QxPiSU9GKH/d3UzENCDBwBDau8unh/hmG43Xu/4Jwbk3TBe7+/UCj0uh5EV68FxI0hDqSa9/\ 6Qc+5YuVy+WdKCc+5g0jUBg0JAI+22jY6OzheLxeVKpXJC0takCwIGhYBGqjnnNs/\ Ozi5L0tLS0heStiRcEjAwWW71hmGNrd51bVq+\ r0xPT7uZmZn6sb7FMc3nvuaYKIrWUiawrghomFQLzG4e3C2WSqVNkr7M5XI5SZ93ce7m864a6kASGO\ JA2p0NguDZycnJ6733uySdS7ogYFD4BI1Uc84VJM2vrKy84pz7TNIzSdcExMU3/\ 9TG77r66eVYjk9PLXEcX/uJi6lrt3S8pVrSfnyHY9tabYjDtfhpt73fYzk+PbWs+/\ G1h4SxqL2WmWs3drylWtJ+fLtj22IMGgCMIqABAIPXaj7rsMrStUrxXi/\ 3dnhl6VoBAAAAAAAAAOhFxzl4cdi7d++d3vtPG7dFUeQ6LcTebl+v2+O+1jAMH5L0mvf+\ PkkXnHNhFEXn2t2DNF/rWsRZe8rvU2beR1nKh1YSn2ZXqVR2eu9PRVHk6j+\ SOi7E3m5fr9sTcFLS4cuXL9/\ knItqv7e9B1Kqr7Vncdae5vukDL2PMpYP10g8oIMg2CnpLy12dVqIvd2+XrfHKoqi+\ 6Ioemtubu6bjRs3zkkakzreAyml17pGcdae2vuUpfdRlvKhlcQDWtJOSfk9e/\ Ysh2F4ZmJi4n5JHRdib7ev1+1JunTp0sOSTtd+3akW90AajmvtVpy1p/k+NcrA+\ 2inMpgPdYkHdBRFdxYKhR233nrrjdVqNT8yMjJX23Vlenq6cYy8ccJ5u329bk/ExMTETdVqdb+\ kF6SO90BK+bX2KM7a03yfJGXjfZTFfGiUeEDXzczMVMfGxj6W9MPapvpC7GqxEHu7fb1uj92+\ fftuGRkZma1UKvujKPq6cV+LeyCl+FrXIM7a03yfMvc+yko+NEs8oMMw/NfevXt/+vTTT4+USqUfS/\ pbbVenhdjb7et1e6zy+fxj5XL5zUqlcrBYLF6sb+\ 9wD6SUXusaxVl7au9Tlt5HWcqHVhJfsL9arT4fBEEhl8vd473/\ e7Va3S2p40Ls7fb1uj1uQRBEkm4fGRlZrC+nGUWRa3cPOtVu/VrXIs7a03yfsvQ+ylI+AAAAAOjX/\ wFP1YwLaEMKGQAAAABJRU5ErkJggg==\",\"boundingBox\":{\"width\":360,\"height\":\ 236,\"baseline\":121}},\"plotRange\":[0,1,0,1],\"requestedImageSize\":[\"\ Automatic\",\"Automatic\"]}", AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {{{-5788., FormBox["0", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-25788., FormBox["20000", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-45788., FormBox["40000", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-65788., FormBox["60000", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-10788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-15788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-20788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-30788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-35788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-40788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-50788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-55788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-60788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-70788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-75788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-80788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-85788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5788., FormBox["0", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {25788., FormBox["20000", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {45788., FormBox["40000", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {65788., FormBox["60000", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {10788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {15788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {20788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {30788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {35788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {40788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {50788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {55788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {60788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {70788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {75788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {80788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {85788., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}, {{-5788., FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-25788., FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-45788., FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-65788., FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-10788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-15788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-20788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-30788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-35788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-40788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-50788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-55788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-60788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-70788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-75788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-80788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-85788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5788., FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {25788., FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {45788., FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {65788., FormBox["\"\"", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {10788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {15788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {20788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {30788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {35788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {40788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {50788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {55788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {60788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {70788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {75788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {80788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {85788., FormBox["\"\"", TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{All, All}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}]], "Output", CellChangeTimes->{3.688227944948122*^9}] }, Open ]], Cell["Show the most frequently used adjectives:", "Text", CellChangeTimes->{{3.6833767760993433`*^9, 3.683376779650175*^9}, { 3.683392737528262*^9, 3.683392747535935*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLargest", "[", RowBox[{ RowBox[{"Counts", "[", RowBox[{"TextCases", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "]"}], ",", "20"}], "]"}]], "Input", CellChangeTimes->{{3.683288613378517*^9, 3.683288613382518*^9}, { 3.6832886994881277`*^9, 3.6832887138925676`*^9}, 3.6882279240082912`*^9}], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"good\"\>", "\[Rule]", "409"}], ",", RowBox[{"\<\"more\"\>", "\[Rule]", "321"}], ",", RowBox[{"\<\"great\"\>", "\[Rule]", "316"}], ",", RowBox[{"\<\"little\"\>", "\[Rule]", "288"}], ",", RowBox[{"\<\"first\"\>", "\[Rule]", "285"}], ",", RowBox[{"\<\"other\"\>", "\[Rule]", "271"}], ",", RowBox[{"\<\"last\"\>", "\[Rule]", "269"}], ",", RowBox[{"\<\"such\"\>", "\[Rule]", "223"}], ",", RowBox[{"\<\"bad\"\>", "\[Rule]", "221"}], ",", RowBox[{"\<\"much\"\>", "\[Rule]", "199"}], ",", RowBox[{"\<\"next\"\>", "\[Rule]", "188"}], ",", RowBox[{"\<\"many\"\>", "\[Rule]", "187"}], ",", RowBox[{"\<\"same\"\>", "\[Rule]", "183"}], ",", RowBox[{"\<\"long\"\>", "\[Rule]", "180"}], ",", RowBox[{"\<\"big\"\>", "\[Rule]", "172"}], ",", RowBox[{"\<\"cold\"\>", "\[Rule]", "169"}], ",", RowBox[{"\<\"old\"\>", "\[Rule]", "158"}], ",", RowBox[{"\<\"own\"\>", "\[Rule]", "157"}], ",", RowBox[{"\<\"full\"\>", "\[Rule]", "150"}], ",", RowBox[{"\<\"possible\"\>", "\[Rule]", "145"}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{3.688227998010861*^9}] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{775, 873}, WindowMargins->{{Automatic, 50}, {Automatic, 0}}, WindowTitle->"Examples for The Worst Journey in the World", Visible->True, DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, Background->GrayLevel[0.9999], FrontEndVersion->"13.2 for Mac OS X x86 (64-bit) (November 18, 2022)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[637, 23, 36, 0, 70, "Subsection",ExpressionUUID->"c2bd5cb7-d48c-4203-86f9-d2dde34d3c84"], Cell[676, 25, 204, 3, 70, "Text",ExpressionUUID->"13fd55d2-37ab-4cd7-ae73-ac393c6a4a3c"], Cell[CellGroupData[{ Cell[905, 32, 404, 10, 70, "Input",ExpressionUUID->"1b6622cd-76b6-454d-94eb-52895a422e51"], Cell[1312, 44, 1015, 13, 70, "Output",ExpressionUUID->"87bd2de4-5787-4cb9-9b5d-7de74547653c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2376, 63, 35, 0, 70, "Subsection",ExpressionUUID->"fc1dafe2-a1bb-4d20-bd62-880c8bdd2ffc"], Cell[2414, 65, 178, 2, 70, "Text",ExpressionUUID->"0056b92e-eae7-4831-bd32-487352394e57"], Cell[CellGroupData[{ Cell[2617, 71, 604, 14, 70, "Input",ExpressionUUID->"3e681722-3b5d-4db8-a696-f957d443495c"], Cell[3224, 87, 71727, 1853, 70, "Output",ExpressionUUID->"069ee53b-7db1-4c1b-8fa2-342a6d0c323d"] }, Open ]], Cell[74966, 1943, 174, 2, 70, "Text",ExpressionUUID->"dc6a195d-8c22-4db2-b5a5-fb6b30b52b25"], Cell[CellGroupData[{ Cell[75165, 1949, 440, 10, 70, "Input",ExpressionUUID->"18aaf0e2-186a-4507-8e03-35fc2958fd66"], Cell[75608, 1961, 1198, 24, 70, "Output",ExpressionUUID->"5e89c8ce-a55d-4764-ab23-e052fefcf75e"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)