(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='WolframDesktop 13.1' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 161, 7]
NotebookDataLength[ 34663, 746]
NotebookOptionsPosition[ 33800, 721]
NotebookOutlinePosition[ 34228, 738]
CellTagsIndexPosition[ 34185, 735]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData["\[IndentingNewLine]"], "Input",
CellChangeTimes->{3.9838230626051273`*^9},
CellLabel->
"In[420]:=",ExpressionUUID->"4758e301-de41-43dc-8b9d-10592e1aa6bd"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"SetDirectory", "[",
RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"(*",
RowBox[{"Buttons", " ", "to", " ",
RowBox[{"hide", "/", "show"}], " ", "code"}], "*)"}],
RowBox[{
RowBox[{
RowBox[{"CloseAllInputsCells", "[", "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"nb", ",", "cells"}], "}"}], ",",
RowBox[{
RowBox[{"nb", "=",
RowBox[{"EvaluationNotebook", "[", "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"cells", "=",
RowBox[{"Cells", "[",
RowBox[{"nb", ",",
RowBox[{"CellStyle", "->", "\"\\""}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"SetOptions", "[",
RowBox[{"#", ",",
RowBox[{"CellOpen", "->", "False"}]}], "]"}], "&"}], "/@",
"cells"}], ";"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\n",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"OpenAllInputsCells", "[", "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"nb", ",", "cells"}], "}"}], ",",
RowBox[{
RowBox[{"nb", "=",
RowBox[{"EvaluationNotebook", "[", "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"cells", "=",
RowBox[{"Cells", "[",
RowBox[{"nb", ",",
RowBox[{"CellStyle", "->", "\"\\""}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"SetOptions", "[",
RowBox[{"#", ",",
RowBox[{"CellOpen", "->", "True"}]}], "]"}], "&"}], "/@",
"cells"}], ";"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\n",
RowBox[{"Row", "[",
RowBox[{"{",
RowBox[{
RowBox[{"Button", "[",
RowBox[{"\"\\"", ",",
RowBox[{"SelectionEvaluate", "[",
RowBox[{"CloseAllInputsCells", "[", "]"}], "]"}]}], "]"}], ",",
RowBox[{"Button", "[",
RowBox[{"\"\\"", ",",
RowBox[{"SelectionEvaluate", "[",
RowBox[{"OpenAllInputsCells", "[", "]"}], "]"}]}], "]"}]}], "}"}],
"]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"data", "=",
RowBox[{"Import", "[", "\"\\"", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"graphtitle", "=", "\"\\""}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
"graphsubtitle", " ", "=",
" ", "\"\\""}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"data", "=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"DateObject", "[",
RowBox[{"#1", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
"]"}], ",",
RowBox[{
"#1", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}],
"&"}], ")"}], "/@", "data"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"lastitem", "=",
RowBox[{"Callout", "[",
RowBox[{
RowBox[{"Last", "[", "data", "]"}], ",",
RowBox[{"ToString", "[",
RowBox[{
RowBox[{"Last", "[", "data", "]"}], "[",
RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", "Left", ",", " ",
RowBox[{"LabelStyle", "->", "Small"}], ",", " ",
RowBox[{"Background", "->", "LightBlue"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"data", "[",
RowBox[{"[",
RowBox[{"Length", "[", "data", "]"}], "]"}], "]"}], "=", "lastitem"}],
";"}]}], "Input",
CellOpen->False,
CellChangeTimes->{{3.867182545948308*^9, 3.867182555077017*^9}, {
3.8671856323646584`*^9, 3.867185655249*^9}, 3.867187032420275*^9, {
3.867187218478177*^9, 3.867187234045384*^9}, {3.867187352932571*^9,
3.867187371829939*^9}, {3.8671903940899982`*^9, 3.8671904257542353`*^9},
3.867190458276375*^9, {3.867190733940156*^9, 3.867190734419613*^9}, {
3.867190798905361*^9, 3.86719081289338*^9}, {3.867190843782461*^9,
3.867190868878964*^9}, {3.867191008084812*^9, 3.867191008823593*^9}, {
3.867191045756618*^9, 3.86719109928176*^9}, {3.867191132601091*^9,
3.867191153305139*^9}, {3.867191256528245*^9, 3.867191304159674*^9}, {
3.867191352877194*^9, 3.867191356182763*^9}, {3.867191386467814*^9,
3.867191411094434*^9}, {3.867191451576531*^9, 3.867191464669776*^9}, {
3.867191517397131*^9, 3.867191585673174*^9}, {3.867191623805966*^9,
3.867191637345644*^9}, {3.867191694067857*^9, 3.867191832972144*^9}, {
3.867443529594183*^9, 3.867443565893339*^9}, {3.867445761749815*^9,
3.86744582007928*^9}, {3.867445877108981*^9, 3.867445877563551*^9}, {
3.88987554010293*^9, 3.889875542354431*^9}, {3.890909771395684*^9,
3.890909773446272*^9}, {3.89765774638717*^9, 3.897657747223047*^9}, {
3.898379436246955*^9, 3.898379440050661*^9}, {3.90338401735606*^9,
3.9033840200448112`*^9}, {3.906908185436775*^9, 3.9069081879516287`*^9}, {
3.925848183308426*^9, 3.925848185881434*^9}, {3.926438108465784*^9,
3.92643813766343*^9}, {3.928879584090178*^9, 3.928879587280989*^9}, {
3.9293606429237022`*^9, 3.929360645945132*^9}, {3.931376802792758*^9,
3.931376805515088*^9}, {3.954598230829558*^9, 3.954598269603718*^9}, {
3.96136444466888*^9, 3.961364449285103*^9}, {3.961420570214137*^9,
3.961420572598192*^9}, {3.972758024916869*^9, 3.972758025765842*^9}},
CellLabel->
"In[421]:=",ExpressionUUID->"e5e34011-aa3d-4e95-90b1-863054ac32f5"],
Cell[BoxData[
TemplateBox[{
ButtonBox["\"Hide Code\"", ButtonFunction :> SelectionEvaluate[
$CellContext`CloseAllInputsCells[]], Appearance -> Automatic, Evaluator ->
Automatic, Method -> "Preemptive"],
ButtonBox["\"Show Code\"", ButtonFunction :> SelectionEvaluate[
$CellContext`OpenAllInputsCells[]], Appearance -> Automatic, Evaluator ->
Automatic, Method -> "Preemptive"]},
"RowDefault"]], "Output",
CellChangeTimes->{3.97275803131399*^9, 3.9732634127599916`*^9,
3.973447936542053*^9, 3.973716818262982*^9, 3.97387011817763*^9,
3.974455882121476*^9, 3.974831989673029*^9, 3.975168268007036*^9,
3.975669957970932*^9, 3.976294530467311*^9, 3.976396525690257*^9,
3.976484506226364*^9, 3.976887861447331*^9, 3.9770604723918333`*^9,
3.977171244678668*^9, 3.977330621664894*^9, 3.977824777023036*^9,
3.978021677067134*^9, 3.978359166029036*^9, 3.978707155134041*^9,
3.978887837684153*^9, 3.979059705165444*^9, 3.9792331591229563`*^9,
3.979894024825791*^9, 3.980403543469507*^9, 3.980500992536922*^9,
3.980797522567663*^9, 3.980937301257283*^9, 3.9810258693468113`*^9,
3.981269692365806*^9, 3.9818931043083143`*^9, 3.9822286101500273`*^9,
3.9825036963300533`*^9, 3.98275853044065*^9, 3.983188556497279*^9,
3.983454835670471*^9, 3.983823067153034*^9},
CellLabel->
"Out[424]=",ExpressionUUID->"a3a205a7-0eed-4f1d-b40a-3fbc15166c21"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"graph", "=",
RowBox[{"DateListPlot", "[",
RowBox[{"data", "\[IndentingNewLine]", ",",
RowBox[{"Filling", "->", "Axis"}], "\[IndentingNewLine]", ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"HoldForm", "[",
RowBox[{"Unique", " ", "domains"}], "]"}], ",", "None"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"HoldForm", "[", "Year", "]"}], ",", "None"}], "}"}]}],
"}"}]}], "\[IndentingNewLine]", ",",
RowBox[{"FrameTicks", "->",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"All", ",", "All"}], "}"}], ",", "Automatic"}], "}"}]}],
"\[IndentingNewLine]", ",", " ",
RowBox[{"GridLines", "->",
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Join", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"DateObject", "[",
RowBox[{"{", "x", "}"}], "]"}], ",", "Thick"}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "2017", ",", "2027"}], "}"}]}], "]"}], ",",
RowBox[{"DateRange", "[",
RowBox[{
RowBox[{"{", "2017", "}"}], ",",
RowBox[{"{", "2027", "}"}], ",", "\"\\""}], "]"}]}],
"]"}], "\[IndentingNewLine]", ",", " ",
RowBox[{"Join", "[",
RowBox[{
RowBox[{"Range", "[",
RowBox[{"0", ",", "300000", ",", "10000"}], "]"}], ",",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"#", ",", "Thick"}], "}"}], "&"}], "/@",
RowBox[{"Range", "[",
RowBox[{"0", ",", "300000", ",", "50000"}], "]"}]}]}], "]"}]}],
"\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", ",",
RowBox[{"ImageMargins", "\[Rule]", "20"}], "\[IndentingNewLine]", ",",
RowBox[{"ImageSize", " ", "->", " ", "Large"}], "\[IndentingNewLine]", ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"GrayLevel", "[", "0", "]"}], "}"}]}], "\[IndentingNewLine]", ",",
RowBox[{"PlotLabel", " ", "->", " ", "\[IndentingNewLine]",
RowBox[{"Column", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Style", "[",
RowBox[{"graphtitle", ",", "16", ",", "Bold"}], "]"}],
"\[IndentingNewLine]", ",",
RowBox[{"Style", "[",
RowBox[{"graphsubtitle", ",", "12", ",", "Bold"}], "]"}],
"\[IndentingNewLine]", ",",
RowBox[{"Style", "[",
RowBox[{
RowBox[{"\"\\"", "<>",
RowBox[{"DateString", "[",
RowBox[{"TimeZone", "->", "\"\\""}], "]"}], " ", "<>",
" ", "\"\< UTC\>\""}], ",", "12"}], "]"}]}],
"\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", ",", "Center"}],
"\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", ",",
RowBox[{"PlotRange", "->",
RowBox[{"{",
RowBox[{"Automatic", ",",
RowBox[{"{",
RowBox[{"0", ",", "Automatic"}], "}"}]}], "}"}]}],
"\[IndentingNewLine]", ",",
RowBox[{"PlotTheme", "\[Rule]", "\"\\""}]}],
"\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Export", "[",
RowBox[{
RowBox[{
RowBox[{"StringReplace", "[",
RowBox[{
RowBox[{"ToLowerCase", "[", "graphtitle", "]"}], ",",
RowBox[{"\"\< \>\"", "->", "\"\<_\>\""}]}], "]"}], "<>",
" ", "\"\<.png\>\""}], ",", " ", "graph"}], "]"}],
";"}], "\[IndentingNewLine]", "graph"}], "Input",
CellOpen->False,
CellChangeTimes->{{3.867186565207215*^9, 3.867186567959504*^9}, {
3.867186655694774*^9, 3.867186670522201*^9}, {3.867186775392453*^9,
3.867186776891725*^9}, 3.867186837903651*^9, {3.867186904930146*^9,
3.867186940968878*^9}, {3.867187286976087*^9, 3.867187304612606*^9}, {
3.867187379649686*^9, 3.867187384392969*^9}, {3.8671874248081408`*^9,
3.867187425393301*^9}, {3.867187462942827*^9, 3.867187467876066*^9}, {
3.867187585120219*^9, 3.867187592332826*^9}, {3.867190421572784*^9,
3.867190455350173*^9}, {3.867191170483214*^9, 3.867191170658471*^9}, {
3.867191203296914*^9, 3.867191245177144*^9}, {3.867443579626745*^9,
3.867443615991692*^9}, {3.867445864801002*^9, 3.867445865695055*^9}, {
3.867585461992905*^9, 3.867585470469511*^9}, {3.904556674711198*^9,
3.90455667849632*^9}, {3.9218516314196*^9, 3.921851639595783*^9}, {
3.92185167067825*^9, 3.9218517351487503`*^9}, 3.9218517880751457`*^9, {
3.955049104125002*^9, 3.9550491107858753`*^9}, {3.955724397073245*^9,
3.955724433737275*^9}, {3.955724625452713*^9, 3.955724669412251*^9}, {
3.956329876096713*^9, 3.9563299103616667`*^9}, {3.956329970680182*^9,
3.9563299964577503`*^9}, {3.956330107899218*^9, 3.95633011499457*^9}, {
3.956330149847582*^9, 3.956330152663987*^9}, {3.95660104472755*^9,
3.956601064036846*^9}, {3.956601094494957*^9, 3.956601107665969*^9}, {
3.956601171882221*^9, 3.956601200199129*^9}, {3.956601252613394*^9,
3.9566012593755283`*^9}, {3.956601299500546*^9, 3.956601381489203*^9}},
NumberMarks->False,
CellLabel->
"In[431]:=",ExpressionUUID->"55c17c4f-14a9-40f1-a01c-ab0b0c9b3309"],
Cell[BoxData[
GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJzt23d0FNXbB/ChJ9QVUZrCoCAdhiLSGUApirAg0pGBSFPKgohIHZBehyIE
EB0BaaGsiCEiyogtCMqClICUkRpKyAICCfX35vl+9z1nfwfPef9/h3/i59z2
3OfenbLrLdNnaIe+2RVFGZRbUbL+/s8/c3bylaZZ/+F2vqI/xsHEf7HTNdpm
O7Ev3x5Y7yQO9KLtN8X2jIjRX+gr2oG1mN/obmKrB+12FztTaX1ZtNWeYvWv
SHvYrL4XNvog3q602h/xbqZtWE+J1F+Y9jgHsu+jVyP+TrSagPgTaP0rsXGY
drZiPo9oG1bH/875jY623QDxH6TV9MsS/31avyp2X/iDPi/Wx9DGSbFSdj99
Wuzs+zcfFIdv0yrsfy1Eb8H4n4Ui88P4e2gF1ksd4H7YJg60ot3VYqPkQc4v
AeMPpZ15GO8abVrof9CfbD9ObD91iO1NcagJrcJWKq10wXwaHmY5bH57OLJ/
kZ8CRzneKbSfFbErVvOmMD/3MP/ptDsT++ckbc/BfphyjON/Em13ebQdWDtO
q9uxX3Ie53j7sV+q0fpxcXgSbea4KvFU/ov9xYoDh/7FbgFxqMIJ+lmxdYA2
U8ThcicZf8drkq/VtNpe7GbQbqJ8HkJ7T7H9drF68zTrjxEHh7ksX4DPT4m/
OZ9MtB8ScTbpX118hvmsL/YNPMt44sRav3MsPyJ2ztHudLSvd56uJfbHRVwR
/eW/EBW/FnuR8W4SWz1p1/9f7ioOf0k7XcTu5FT6OvKd4xLn2x357kwb6bhe
VbrM8fKi/pornD+slLvK+uNQ/3faHo7rl53G9mOxf25cY3wf4/P1TDrrjxD7
4sOM5/SlLOu7I/bh87DzBvObK5xl+5ubLN+QLvGfjThJ7CT+w/m2EftfvEXP
Eesxtzn+bLFV/Q59DuuRQhvnxaGKmfSTUj/8wl160Q1Zz/a0HSvlvrL3ON90
7Icy9xn/rTMS32e0CgdKPmR/GWLtJ1ovclbqN3vE8qJifZFyFVbFWv9ssJJX
bM7NDju5xPasHLAZg/6m52T7PKhfIxf9G8bflJv9bRb7N+SB3TVifVwM6yeK
rdWxsB4Umx/kZfsE1FfzMZ5pYuPZ/Oyvq9gdUoDt+2L8xQVZXkPisy7TamXE
X6QQ5wMHL0ZcAvnp52P7p8Rq/sJR5f46ERdH/dgnYbsextOK0HXRf9Wn2B8c
qvQ0fRH5nxBxKuJ7QNtXxe7dovRNsZJRjONnov3PJen7iG/3M+wP9r37LMsf
of6AUnS7c1kO+0qz/z5icx5tThEHv4l4jljLV4b9L0Z5j+dYvlysTH6e7o58
ZC/L/BeOttMr2vaTmH8VWlkl/QXWleP6rsX47V9gf5vF/rbl2X6b2ChVkeP3
Q3/DIx6A/Fyn7btS3x1aif1fEltXKnN/pkfbhtV3qnD+NzD+oogfor/CVdn+
EeoXqM7xU5Df3rThin0ubV/G/E5qzE+h8zKfPDXYP+w/TuuFxaHKtaKsdKLd
GZj/Q9qJw348UJvlb2F/3aNNrIfuf/HxVlHf+qAOy/uIw3tpG/XNV1+i30P/
n0b8Lvb/sLpsny42wrTyKFXifbleZL9G2/kvK4pc7/0/1ovkX8qDReszH3fF
vkG0e0KsL6bVT8TGwgYsLyL9qQ0b0i+KTYvWK+H+Uq8R46su1vI3ZjyNxM5M
Wm2G9rWasL8G/yfrJ2i9frRVWNuis7yNONy5KfeTjnxspO2Xxb43m9GGOPSA
dhTcT8c2p0vjefIurbyO58FVL3O8ODz/PvcKxxuL5982tIr7sbI3Uj4B/Zdu
wfmVj7axEM+jrWl7NsZfQStLcP9+piX734p4WkSciOfnAO1sR3w/0wbqh5q3
Yn/HxVo8bac+1mG9Nfvj8/AlWrmD543Gr7L8Gvq/QKvt8Xzb9zXmq2i01Qp4
vpndhvkoKs9DbiJtV4y2Wkms53ud86kh1k7RTgWx/6+2bJ9NbOZqR+cW29n9
7K84nn8rtuf+LYj+23dgfdho+wbrP8Dz+D7ayInxynTk+Jl4n/yHdvNdjbID
h4a/Gfl8S31lBa3fE/t/6sT2jGdJZ45XHvEs6sL4qmH8/l1ZfwXydZ7W56N9
/W50o8c6lEQ7Y8Wq253lx9B/3h6c/2nkszbtoNydTrtz0f9J2riF9T7ek/FW
EbuVe7G8H96PHvaKXC/xPvxC78j9Dfl8vg/rr0R/ahzX6w/sn5ZvM55D+L6h
RF+2X4/3qTTaHYPn66L9mH/sx+Bl2i6B9yNrAMsTkI9CA9nfR5h/HK28i/eb
Ou9w/H54v5lJ2+XwPlHrXeavgbR3er4bVR6eRpsVxWbuQY+32lTa+6bQSl0p
t3MMZnzd8X4zaXDkfo/+Kw3heEOwPh2GMp+r8fkpF2D5z5hvBq1vw/tK6eEs
34L9d4M2ZmE+Ld5j+Qjsl59p08Ln7eoI5j8e+d31Pvv/HvlcMJL1n0iLslIY
75M7o+1eoN3GmG/BUSw3kO8+EeN91JlN2xPQX68PGf889DeDdhdj/XqM5nru
QP9f0m4i3jcnj2H8pfA+tDni43hf6TyW/d8VBxJo9T7ej9aNY7kq719q+fGR
+6vY3572zxYH2k6AgyPERhmT/Q0VB1tNZP21Yv1X2roh71NKYBKs5bmZ5XCz
j9i+ojh4hbYSpH4odTLrj5Vy59spXJ+O/0i8vqmwb8TNKPsnob+5dChR7DtL
u+vFdu9pzFc7cWgW7bwhVhJpX/do28Mx3lfTGf8vGK/GDPZ3CuNNpZ2NaN91
Jhy4IraO0n5d5hM8NIvta4qV+7MZfyzKP5jL8X9HvCPm0V8gn8Mszi9ZbIZp
LQPxDJ1P30I+Ly/g+j+P/r9byP6aid2LtKNJfa3Qx+x/kJQ7c2hrvtiss5j1
U8ShnkvgcNNbWfZvied8VLFbdSnXs7k4pCxjfo6Jlcq0nf22jPcnHfoR/XVY
zv7zSLnvHq0/J9bLfcLyRWItg/ZvE6t7V3C8VeLAjU8j90+xlf4Z81MH9YfY
zF9LsbmbtoeKQ5c+Z/01GK/xSn5eDqD9E6s437/F7je0dvGxtvus5nx3of22
L3g9uYB4/1rDeNPFSre1nE8a4k+hfbF3JF8T1zHeoDh0cD3b58yIspVDHN6/
gfP5TeoHRyVwPj+L9Tu0eUgcKLOR+b0rVmxaryz9WaU2MZ7qYqcVrbUSB0tu
5udpnti+RoenRDtkibXBWzj+NPT/A+2LF6t6kO3Xi91UOjBJ4tN8W1n/mNio
Twd+Ejtz6dBl5K/AV5zPTunPl0gbVTJl/nm30S+K7dq0+yby+xYdHoL8dv+a
+V+O+Kolcn1OoP+utHMu2hYcyrad809FPg/Rob0Srzkuiet1BOux/xv2/yfy
l0mbM5C/13dwPVYgf/toY7vYVL/l+rYUB27S1mCx8cvOyPoqWX/9S79j/c53
ZX3TaO19se18z/q7xcbAXZxvmlgt7DB/Je/J/M/TVnGxHfcD42slNvLvZv8L
0P5rWu2H/Pb8ke3XSH19K21/Ldam/MT1qSEOV/2Z+TPErvIL2xe9L/l8SBvv
Z8v666z5lfOdIlbv0XoPaW+2S2b/w8WB5/Zwfjsl3tBI2voz2jasfvob59P3
keRj2F6u30jUL76P679DbO2mg7seyHye/p3194vNj+mgK/W1J/bDKb9gPvNo
Z5US5emweo7W3pH5BPuE6EzEt522i0j9QL4DHD8s5do2OuYZ9DftIFy3kVif
/Cec2kQcyn6I8XRFPIfpmA+x3zoehjM+Fvse0OZ69Ff+CDxqu9goe5Ttt2L8
3+lQMvq7Qyf9LnbfT+H6/I35/EMr6Yiv1TE6r+TPuk4btcTBa8d5famWPeuv
pp/g+MPE6pMnWX+pODifHmCLA/VPcf6uODSXXncd/Z2lAzfETu/TcHyeHJKP
GS7cpblY6fE39+cYsbnpDOdnoH6Vs8x/T7HeiVa7ia1x57h/DomdtREfFAdH
n2d8q9DffjowH/1l0skJiGflBca7Uqzto5OWYDz1IvO1G+O9SrtnEP9NWtsu
dlumcj32YLxP6JTmOSV/JS7BFdIw3tBLkeuVlPsHXeZ+LyF2L0dcUxwYeIX5
rCM2Gl7l/NqJHYue/gb6K5TG/T1fHIyj7eWIx7jG68PfYis2ne0z0V8tOqlg
LulvKx3/ktjVwhy/hVipdp31p4iNSXRGotj38Abz0yB31l977E3GZ4iNcv/w
+vyB2J9Ba1+L3ZG3OH6COHCLtrajv9K3me8f0F8yrd0Xh1vcYf6r55H1GZIB
t5olVopmcj2+Fzu76ORD4kCDe5xf6xhZv3O0EidWt99nfLPEZr4H7O92tOMP
YD1P0SnnxErPh1yfbpIvbRrt7y92cj3i5+cdsdqN9k8Vm5tpa6NY76ykiUdt
EIcO08ZZrE/HbPTzkh9rPB3TUmy2zw4PGCQOjqGNgFi/SyftEqt2TriuT/IV
LJULXlcb+fuVDr8utq/Tfj/y3yI3HN9LrAXomDFiYxld1xJbP0XKg1iva/T0
NeJwsTyw+5nYvULHHMH4i2Jg8xL6bxQLKwVlvfy+vLBWX+zOpZNaikO988Gp
o8XKbLrYeOyHGfnh4Das/0na3iHWpxaAM85gP3UtCFuxsTKfo3SrNuJwtkKM
v51YrUIHJ+aV/k161Kdi9xCtYv6BpU8xflgp9jQccvB5d2h3Ne5HTYoy3kSx
OZD2Lcb9qGExOHmFWPmWtnH/087TMYfF4TnF4ZSwOFinBMv7y/3KNehR48R2
bEnYiReHatF114mNrXTyCTw/5H6G+TiD+98xugvuf4FJz7J+e7G9kfYPxP3t
CJ30Ie5n60sxf4lif4XS3A8Hcb8cS1vn0f5DleNVx/X9D1pti/tHmzLcL+PF
4ZG0MlOsfk7XnYv714jnaMw/kExba8X+IWW5f1ojf1fp0ESxr2g55mMa8rPg
Ba7PBrHZoDzj2y/Wz9F1U8XKnAos92H+2yoy3k/Ebs1KHP8H5PMvWk1F/lIq
c30byHz8naswf3Fie3xVtk8WG+WrMd4haD+GNuaKzbLVOb9TYmWkxs/vNuTb
ppMTke9SNbify+P+d52evkxs/1ST9Wvi+vpDLa7/TnFwUW3GWxj3m0Yvsrwf
7i++Oox/E+5XZ2lrL66fBV5ivDH4vLgR93qoZ/2pXZefp0litUc9rs8ysZuz
Pvd/Xnl+DXxEB3qLLbMBy18Sq49o1y+2/Y14/a2B582VjRlfCuLZ04T7sT32
R1jn9XkLPj8/NuX88mN/O824/mvFRpPmXJ89WK+F9AA1R5Qr9MPzkfUy5zsN
z0fn6WI78Dw29xWOn4nnr/wtmI9asl7qLDoZz6turZac/zV8vre2jFy/sb9O
0G5pxHOsFfdjAPEcac31GI76E15lfuIRzyFa/xH7s8Jr3N943lQP0DHFsb/a
teH86mF/Pfc6988M3N8/oJWleH7bS8f/KjaT2zKfRfC81LIdy3Xcz4fR4bbi
wHK6WAc8L7zs53qNx37eTa/7FM9vTdtzferj+XJX+8j9GM8jjTsw3kFi7SI9
4LVo+3PI+6jV4A3ux+/lfUzdQeuKlJsFOzK/z4v17bTdUWzne5P5GID3W4O2
B4qNbbTeWuzEdOLnva84XDPiQWK1J62tjra1FvF82Sly/RP7tM5czy/Fgcm0
vhPjd+7C8tPoT+nK8Y6I3XV08AV5v9Uf0EYXsXG3G70B78OjujNfS/A+fIdW
N4kDv/Xgfv5SrL3Xk+MloL8VtDtbrLZ4i/N1xL7ivTjfJMTTnLa/FdtLekXV
dxYZXM81Yv+TvTmfZYivUe/I51Uc7E8HLLE7nzZGYrwLtNJZHHq7D/sviPjP
0nYy9k+BONZfj/zOjngL1qfX25xvPNbnKzpYC/ulZl/21x3tq/dj/lZgv1Xp
z/W8hf1m0ooi8SiHae0ZxFdxAOO9h/4O0s5YzHf0QMbzOerve4ftX5Xrtf+z
d1m+HNfvZwfx85VHrsf6cNothev30sFsv0gcXDyE+yE3vk+4QreKxfv+wqEs
ryC2Gga4P6riee08nTQI3z8kDeP6TBbb+Ydz/jdkPOPr4ZH1wf3hrfeYLz++
f8g9gteP0bhfTKGT8H2H0eV9Xn9m4nmk8ki47iM8j6ynYzbi/jH2A95vcL93
2o1iPNfwfPAHbTbB9fPWh8w/nk+1EaPZf3Zc327QSaXxPpo+hvEvlPuvkjaW
+UrD/brpOF5P38D7wS66y028HywYD6f0k+fxwBMT+HnagOd7i9byy/O3toMO
1sDzeR+T810qNv+mk96T53F95kTev2blk3zETOL6lM0v/fWku9QuIPP7i06t
XFDy0+0j+ozYnEwHGkv74GY640dpr1edzPxtkfHtibQaI+NbHadwvFix+icd
HiH2rZnKfNhiPURr34ntstPY3yH0d4dOvi02f5vO8R+Ig//Q4SISr/3rDI6v
ia1lM/l5biI2B8+CK/QThxbN5n4pJ/OzGs1hfpeKTd9c7p9McbA+reaRfFnu
PMYzC79f1baYv8NiN898Opf8nqT3oMNT8XtU9QWcv4n2R2kjDr/HmQv5eZor
Nu4v4n5MxPfZmR8zvlr4fvr5xdw/hcX6Stpph++rb9Muv6/+bAnHL4/vW/cs
idxf8X1tq3iWX0f/v9D2dzK+/spSlifi94dmy9i/Kb9vOYtpZw5+X2uynPUX
4ve6gXQwFb8Xzv+E5Wn4fa7eCq5PRenPPEMHlovt058ynzXF4dw242sk7f3d
afMofk+cQqv4PVav9jnbD5bfa+1JtPE6fu89SiuxYi3bSjq32P8w4kT8ftxh
Fft/+nqWA/fo0Dyxtno1P/9dpL2VQbsjxeE2XzAfC9D/57TaGr+X3ljD+Npi
v6SvZX5n4vfcEutY/wfsv920Uhi/n6bR7pOYf9H1zHdD9P8x7U/D/z/83Qbm
e4PY7ZvA9v2lfuAcbf+B34fjNrJckfyHX9zE/GbH+m2jrc5ivedmzjcB5ZHz
M/z3v+X855238c7bwN55G2nvnbfxzttIuXfeRuL3zttEfr8Ve+dtvPM2KPfO
20TZO2+D9fLO2zA+77xNlr3zNt55G8zHO28j8XrnbZg/77yN5MM7b8Ny77yN
jOedt2F/3nkbWR/vvA3n4523kfx55224vt55G8mnd96G+fbO20h83nkb2jtv
I/F5522Yb++8jczPO2/D/5/EO28j+ffO27C+d95G1tM7b8P63nkbmb933ob5
8c7bSH/eeRuWe+dtsuydt/HO26B/77yNxOOdt2F/3nmbLHvnbbzzNujv/8F5
m/8AHBQJKA==
"], {{{},
{RGBColor[0.24, 0.6, 0.8], Opacity[0.2], EdgeForm[None],
GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1lO4EIgWBtCTbdu2bds12ZNtN9m2XTO5ybabbNu27+r2sL69X/+HjUSN
2lVuGzggICAQOYL8rtmD/O6zkZUsZCYTGclAetKRljSkJhUpSUFykpGUJCQm
EQlJQHziEZc4xCYWMYlBdKIRlShEJhIRiUB4whGWMIQmFCEJQXCCEZQgBP6V
jQB+CvyD73zjK1/4zCc+8oH3vOMtb3jNK17yguc84ylPeMwjHvKA+9zjLne4
zS1ucoPrXOMqV7jMJS5ygfOc4yxnOM0pTvIfJzjOMY5yhMMc4iAH2M8+9rKH
3exiJzvYzja2soXNbGIjG1jPv6xjLWtYzSpWsoLl/MPfLGMpS1jMIhaygPnM
Yy5zmM0sZjKD6UxjKlOYzCQmMoHxjGMsYxjNKEYyguEMYyhDGMwgBjKAv+hP
P/rSh970oic96E43utKFznSiIx1oTzt+DU0bWtOKlrSgOc34k6Y0oTGNaEgD
6lOPutShNrWoyR/UoDrVqEoVKlOJilSgPOUoSxlKU4qSlKA4xShKEQpTiIIU
ID/5yEsecpOLnOQgO9nIShYyk4mMZCA96UhLGlKTipSkIDnJSEoSEpOIhCQg
PvGISxxiE4uYxCA60YhKFCITiYhEIDzhCEsYQhOKkIQgOMEIShACE4gAflpy
P/jON77yhc984iMfeM873vKG17ziJS94zjOe8oTHPOIhD7jPPe5yh9vc4iY3
uM41rnKFy1ziIhc4zznOcobTnOIk/3GC4xzjKEc4zCEOcoD97GMve9jNLnay
g+1sYytb2MwmNrKB9fzLOtayhtWsYiUrWM4//M0ylrKExSxiIQuYzzzmMofZ
zGImM5jONKYyhclMYiITGM84xjKG0YxiJCMYzjCGMoTBDGIgA/iL/vSjL33o
TS960oPudKMrXehMJzrSgfa0oy1taE0rWtKC5jTjT5rShMY0oiENqE896lKH
2tSiJn9Qg+pUoypVqEwlKlKB8pSjLGUoTSlKUoLiFKMoRShMIQpSgPzkIy95
yE0ucpKD7GQjK1nITCYykoH0pCMtaUhNKlKSguQkIylJSEwiEpKA+MQjLnGI
TSxiEoPoRCMqUYhMJCISgfCEIyxhCE0oQhKC4AQjKEEITKBAvx+dn8oPvvON
r3zhM5/4yAfe8463vOE1r3jJC57zjKc84TGPeMgD7nOPu9zhNre4yQ2uc42r
XOEyl7jIBc5zjrOc4TSnOMl/nOA4xzjKEQ5ziIMcYD/72MsedrOLnexgO9vY
yhY2s4mNbGA9/7KOtaxhNatYyQqW8w9/s4ylLGExi1jIAuYzj7nMYTazmMkM
pjONqUxhMpOYyATGM46xjGE0oxjJCIYzjKEMYTCDGMgA/qI//ehLH3rTi570
oDvd6EoXOtOJjnSgPe1oSxta04qWtKA5zfiTpjShMY1oSAPqU4+61KE2tajJ
H9SgOtWoShUqU4mKVKA85ShLGUpTipKUoDjFKEoRClOIghQgP/nISx5yk4uc
5CA72chKFjKTiYxkID3pSEsaUpOKlKQgOclIShISk4iEJCA+8YhLHGITi5jE
IDrRiEoUIhOJiEQgPOEISxhCE4qQhCA4wQga8P+X/9fZD/gfWBWKKw==
"]]]}, {}, {}}, {{}, {},
TagBox[
{RGBColor[0.24, 0.6, 0.8], PointSize[0.0055000000000000005`],
AbsoluteThickness[2], LineBox[CompressedData["
1:eJwl10O0GIYSANAX27Ztu7Eau7Ft27Yb20Zj27Zt2/g35y/umdnOYpSoQduK
bQIFBARkCxIQ8CcGRhoQlGAEJwQhCUVowhCWcIQnAhGJRGSiEJVoRCcGMYlF
bOIQl3jEJwEJSURikpCUZCQnBSlJRWrSkJZ0pCcDGclEZrKQ9U9NZCcHOclF
bvKQl3z8RX4KUJBCFKYIRSlGcUpQkr8pRWnKUJZylKcCFalEZapQlWr8Q3Vq
UJNa1KYOdalHfRrQkEY0pglNaUZzWtCSVrSmDW1pR3s60JFOdKYLXelGd3rQ
k170pg996Ud/BjCQQQxmCEMZxnBGMJJRjGYMYxnHeCYwkUlM5l+mMJVpTGcG
M5nFbOYwl3nMZwELWcRilrCUZSxnBStZxWrWsJZ1rOc/NrCRTWxmC1vZxnZ2
sJNd7GYPe9nHfg5wkEMc5ghHOcZxTnCSU5zmDGc5x3kucJFLXOYKV7nGdW5w
k1vc5g53ucd9HvCQRzzmCU95xnNe8JJXvOYNb3nHez7wkU985gtf+cZ3fvCT
X/zmT/MHIjBBCEowghOCkIQiNGEISzjCE4GIRCIyUYhKNKITg5jEIjZxiEs8
4pOAhCQiMUlISjKSk4KUpCI1aUhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7+
Ij8FKEghClOEohSjOCUoyd+UojRlKEs5ylOBilSiMlWoSjX+oTo1qEktalOH
utSjPg1oSCMa04SmNKM5LWhJK1rzZ3i3pR3t6UBHOtGZLnSlG93pQU960Zs+
9KUf/RnAQAYxmCEMZRjDGcFIRjGaMYxlHOOZwEQmMZl/mcJUpjGdGcxkFrOZ
w1zmMZ8FLGQRi1nCUpaxnBWsZBWrWcNa1rGe/9jARjaxmS1sZRvb2cFOdrGb
PexlH/s5wEEOcZgjHOUYxznBSU5xmjOc5RznucBFLnGZK1zlGte5wU1ucZs7
3OUe93nAQx7xmCc85RnPecFLXvGaN7zlHe/5wEc+8ZkvfOUb3/nBT37xmz+L
PxCBCUJQghGcEIQkFKEJQ1jCEZ4IRCQSkYlCVKIRnRjEJBaxiUNc4hGfBCQk
EYlJQlKSkZwUpCQVqUlDWtKRngxkJBOZyUJWspGdHOQkF7nJQ17y8Rf5KUBB
ClGYIhSlGMUpQUn+phSlKUNZylGeClSkEpWpQlWq8Q/VqUFNalGbOtSlHvVp
QEMa0ZgmNKUZzWlBS1rRmja0pR3t6UBHOtGZLnSlG93pQU960Zs+9KUf/RnA
QAYxmCEMZRjDGcFIRjGaMYxlHOOZwEQmMZl/mcJUpjGdGcxkFrOZw1zmMZ8F
LGQRi1nCUpaxnBWsZBWrWcNa1rGe/9jARjaxmS1sZRvb2cFOdrGbPexlH/s5
wEEOcZgjHOUYxznBSU5xmjOc5RznucBFLnGZK1zlGte5wU1ucZs73OUe93nA
Qx7xmCc85RnPecFLXvGaN7zlHe/5wEc+8ZkvfOUb3/nBT37xmz9HfyACE4Sg
BCM4IQhJKEIThrCEIzwRiEgkIhOFqEQjOjGISSxiE4e4xCM+CUhIIhKThKQk
IzkpSEkqUpOGtKQjPRnISCYyk4WsQf7/0/wPa0CJtA==
"]]},
Annotation[#, "Charting`Private`Tag#1"]& ]},
TagBox[
{Opacity[0.], PointBox[1644]},
Annotation[#, {{Callout}, Charting`Private`Tag, {821}}]& ]}], {{{}, {{},
GraphicsGroupBox[{
{LightDarkSwitched[
RGBColor[0.87, 0.94, 1]], AbsoluteThickness[4], Opacity[
NCache[
Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
"Round"],
BSplineCurveBox[{
Offset[{-3., 3.6739403974420594`*^-16}, {3.9829650885*^9, 88763.}],
Offset[{-8., 9.797174393178826*^-16}, {3.9829650885*^9, 88763.}],
Offset[{-10., 9.797174393178826*^-16}, {3.9829650885*^9, 88763.}],
Offset[{-12., 9.797174393178826*^-16}, {3.9829650885*^9, 88763.}],
Offset[{-12., 9.797174393178826*^-16}, {3.9829650885*^9,
88763.}]}]},
{LightDarkSwitched[
RGBColor[
0.6666666666666666, 0.6666666666666666, 0.6666666666666666]],
AbsoluteThickness[1.25],
BSplineCurveBox[{
Offset[{-3., 3.6739403974420594`*^-16}, {3.9829650885*^9, 88763.}],
Offset[{-8., 9.797174393178826*^-16}, {3.9829650885*^9, 88763.}],
Offset[{-10., 9.797174393178826*^-16}, {3.9829650885*^9, 88763.}],
Offset[{-12., 9.797174393178826*^-16}, {3.9829650885*^9, 88763.}],
Offset[{-12., 9.797174393178826*^-16}, {3.9829650885*^9,
88763.}]}]},
{EdgeForm[None], FaceForm[{RGBColor[0.87, 0.94, 1], Opacity[
NCache[
Rational[2, 3], 0.6666666666666666]]}],
PolygonBox[{
Offset[{-12.000000000000002`, 5.500000000000004}, {3.9829650885*^9,
88763.}],
Offset[{-11.999999999999998`, -5.499999999999996}, {
3.9829650885*^9, 88763.}],
Offset[{-43., -5.500000000000003}, {3.9829650885*^9, 88763.}],
Offset[{-43., 5.499999999999997}, {3.9829650885*^9, 88763.}]}]},
{LightDarkSwitched[
RGBColor[
0.6666666666666666, 0.6666666666666666, 0.6666666666666666]],
AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
StyleBox[
RotationBox["\<\"88763\"\>",
BoxRotation->0.],
StripOnInput->False,
LineColor->GrayLevel[0],
LineOpacity->1,
FrontFaceColor->GrayLevel[0],
BackFaceColor->GrayLevel[0],
FrontFaceOpacity->1,
BackFaceOpacity->1,
GraphicsColor->GrayLevel[0],
Opacity->1,
FontSize->Small,
FontColor->GrayLevel[0],
FontOpacity->1],
Offset[{-27.5, 9.797174393178826*^-16}, {3.9829650885*^9, 88763.}],
NCache[ImageScaled[{Rational[1, 2], Rational[1, 2]}],
ImageScaled[{0.5, 0.5}]]]}]}}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{False, False},
AxesLabel->{None, None},
AxesOrigin->{3.729024*^9, 0},
DefaultBaseStyle->{"PlotGraphics", "Graphics"},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox[
TagBox[
TagBox[
RowBox[{"Unique", " ", "domains"}], HoldForm], HoldForm],
TraditionalForm], None}, {
FormBox[
TagBox[
TagBox["Year", HoldForm], HoldForm], TraditionalForm], None}},
FrameStyle->Automatic,
FrameTicks->{{All, All}, {
Charting`DateTicksFunction[Automatic, DateTicksFormat -> {Automatic}],
Charting`DateTicksFunction[
Automatic, DateTicksFormat -> {Automatic}, "TickLabels" -> None]}},
GridLines->{{{3.6922176*^9,
Thickness[Large]}, {3.7237536*^9,
Thickness[Large]}, {3.7552896*^9,
Thickness[Large]}, {3.7868256*^9,
Thickness[Large]}, {3.818448*^9,
Thickness[Large]}, {3.849984*^9,
Thickness[Large]}, {3.88152*^9,
Thickness[Large]}, {3.913056*^9,
Thickness[Large]}, {3.9446784*^9,
Thickness[Large]}, {3.9762144*^9,
Thickness[Large]}, {4.0077504*^9,
Thickness[Large]}, 3.6922176*^9, 3.6999936*^9, 3.707856*^9,
3.7158048*^9, 3.7237536*^9, 3.7315296*^9, 3.739392*^9, 3.7473408*^9,
3.7552896*^9, 3.7630656*^9, 3.770928*^9, 3.7788768*^9, 3.7868256*^9,
3.794688*^9, 3.8025504*^9, 3.8104992*^9, 3.818448*^9, 3.826224*^9,
3.8340864*^9, 3.8420352*^9, 3.849984*^9, 3.85776*^9, 3.8656224*^9,
3.8735712*^9, 3.88152*^9, 3.889296*^9, 3.8971584*^9, 3.9051072*^9,
3.913056*^9, 3.9209184*^9, 3.9287808*^9, 3.9367296*^9, 3.9446784*^9,
3.9524544*^9, 3.9603168*^9, 3.9682656*^9, 3.9762144*^9, 3.9839904*^9,
3.9918528*^9, 3.9998016*^9, 4.0077504*^9}, {
0, 10000, 20000, 30000, 40000, 50000, 60000, 70000, 80000, 90000, 100000,
110000, 120000, 130000, 140000, 150000, 160000, 170000, 180000, 190000,
200000, 210000, 220000, 230000, 240000, 250000, 260000, 270000, 280000,
290000, 300000, {0,
Thickness[Large]}, {50000,
Thickness[Large]}, {100000,
Thickness[Large]}, {150000,
Thickness[Large]}, {200000,
Thickness[Large]}, {250000,
Thickness[Large]}, {300000,
Thickness[Large]}}},
GridLinesStyle->Directive[
GrayLevel[0.4, 0.5],
AbsoluteThickness[1],
AbsoluteDashing[{1, 2}]],
ImageMargins->20,
ImagePadding->{{All, All}, {All, All}},
ImageSize->Large,
LabelStyle->{
GrayLevel[0]},
Method->{
"NoShowPlotTheme" -> "Detailed", "AxisPadding" -> Scaled[0.02],
"DefaultBoundaryStyle" -> Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
AbsolutePointSize[6], "DefaultPlotStyle" -> {
Directive[
RGBColor[0.24, 0.6, 0.8],
AbsoluteThickness[2]],
Directive[
RGBColor[0.95, 0.627, 0.1425],
AbsoluteThickness[2]],
Directive[
RGBColor[0.455, 0.7, 0.21],
AbsoluteThickness[2]],
Directive[
RGBColor[0.922526, 0.385626, 0.209179],
AbsoluteThickness[2]],
Directive[
RGBColor[0.578, 0.51, 0.85],
AbsoluteThickness[2]],
Directive[
RGBColor[0.772079, 0.431554, 0.102387],
AbsoluteThickness[2]],
Directive[
RGBColor[0.4, 0.64, 1.],
AbsoluteThickness[2]],
Directive[
RGBColor[1., 0.75, 0.],
AbsoluteThickness[2]],
Directive[
RGBColor[0.8, 0.4, 0.76],
AbsoluteThickness[2]],
Directive[
RGBColor[0.637, 0.65, 0.],
AbsoluteThickness[2]],
Directive[
RGBColor[0.915, 0.3325, 0.2125],
AbsoluteThickness[2]],
Directive[
RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85],
AbsoluteThickness[2]],
Directive[
RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
AbsoluteThickness[2]],
Directive[
RGBColor[0.736782672705901, 0.358, 0.5030266573755369],
AbsoluteThickness[2]],
Directive[
RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965],
AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02],
"PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05],
"AllowMicroRanges" -> {True, False}, "OptimizePlotMarkers" -> True,
"IncludeHighlighting" -> Automatic, "HighlightStyle" -> Automatic,
"OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentSet",
"HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(DateString[
Identity[#], "DateShort"]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(DateString[
Identity[#], "DateShort"]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotInteractivity:>True,
PlotLabel->FormBox[
TagBox[
GridBox[{{
StyleBox[
"\"Hosts file size history\"", 16, Bold, StripOnInput -> False]}, {
StyleBox[
"\"base version: (adware + malware) only\"", 12, Bold, StripOnInput ->
False]}, {
StyleBox[
"\"updated: Mon 30 Mar 2026 01:31:07 UTC\"", 12, StripOnInput ->
False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}},
DefaultBaseStyle -> "Column",
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"],
TraditionalForm],
PlotRange->{{3.729024*^9, 3.9837312*^9}, {0., 253021.}},
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {None,
Scaled[0.08090169943749476]}},
Ticks->{{}, Automatic}]], "Output",
CellChangeTimes->{3.977171246052504*^9, 3.977330621833989*^9,
3.977824777220779*^9, 3.97802167740195*^9, 3.9783591663956203`*^9,
3.978707155310081*^9, 3.9788878378609324`*^9, 3.979059705340467*^9,
3.979233159291823*^9, 3.979894026470213*^9, 3.980403543643875*^9,
3.980500992710359*^9, 3.980797522728137*^9, 3.980937301427796*^9,
3.981025869505204*^9, 3.981269692538081*^9, 3.981893106113771*^9,
3.982228611165803*^9, 3.982503697506815*^9, 3.9827585306037893`*^9,
3.983188556815083*^9, 3.983454835814192*^9, 3.983823067293882*^9},
CellLabel->
"Out[433]=",ExpressionUUID->"33047d82-24a2-469c-9a7e-3f5300f4deb8"]
}, Open ]]
},
WindowSize->{1280.25, 878.25},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1.25 Inherited,
FrontEndVersion->"14.3 for Mac OS X ARM (64-bit) (July 8, 2025)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"a68abeaf-41ba-46e4-a91b-e09f414e080e"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[561, 20, 172, 3, 62, "Input",ExpressionUUID->"4758e301-de41-43dc-8b9d-10592e1aa6bd"],
Cell[CellGroupData[{
Cell[758, 27, 5541, 131, 23, "Input",ExpressionUUID->"e5e34011-aa3d-4e95-90b1-863054ac32f5",
CellOpen->False],
Cell[6302, 160, 1399, 23, 53, "Output",ExpressionUUID->"a3a205a7-0eed-4f1d-b40a-3fbc15166c21"]
}, Open ]],
Cell[CellGroupData[{
Cell[7738, 188, 5486, 118, 23, "Input",ExpressionUUID->"55c17c4f-14a9-40f1-a01c-ab0b0c9b3309",
CellOpen->False],
Cell[13227, 308, 20557, 410, 587, "Output",ExpressionUUID->"33047d82-24a2-469c-9a7e-3f5300f4deb8"]
}, Open ]]
}
]
*)