(* 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[ 34559, 749]
NotebookOptionsPosition[ 33696, 724]
NotebookOutlinePosition[ 34124, 741]
CellTagsIndexPosition[ 34081, 738]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData["\[IndentingNewLine]"], "Input",
CellChangeTimes->{3.9838230626051273`*^9},
CellLabel->
"In[368]:=",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"}], ";"}]}], "]"}]}], ";"}], "\n"}], "\[IndentingNewLine]",
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"}], ";"}]}], "]"}]}], ";"}], "\n"}], "\[IndentingNewLine]",
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[369]:=",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->CompressedData["
1:eJwN0E0oAwAYBuApWzYrmySj2NRSWjiMktBnC0NjKHYif4dRu2x+TuQ2CpfJ
fzbDbGzYjwOxA1pCisRYYZuiPlNEDuI7vD2n9z28ojZtfWcMg8GQUPK5r6Cd
RgioplhdMwhDzXyhj1RrKjWyWQSx80g+RmaGZIr1OQSdwfPWPo9gKRwSxS0g
PPAPUn7Jgk8lL2cRYTLZG2whW0sqLkdIQ53juNaE8GzgJljIlR2jOEBelHu+
s8wI3j0hCJYQvsTmzgEyiL7cdAsCr6oj1U8aw54G4TKCqlpcqiPLoqF3P/nY
k2qKX0WQsqKaWCtCXw6fISVrsutPDklbkZXDXkNIEtgVUtLpHm2yk94ge//O
hsA6k08M2hFOxzlPzHWEc4Gybpj0vowrGjfoB51eeU1aIx1pIw7aDdlcH+Sc
Oryrd1JfsmW92kTIc/T7ZrYRJBnMSLELYfv2/ifRjfDXy7rpJv8BJXG5gA==
"],
CellLabel->
"Out[372]=",ExpressionUUID->"f12fc78d-f5bc-4df3-8a8c-c8967c7da088"]
}, 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[379]:=",ExpressionUUID->"55c17c4f-14a9-40f1-a01c-ab0b0c9b3309"],
Cell[BoxData[
GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJzt22d4FFXbB/ChJzRXRCkqDArSYSginQGUJsKCSEcG8tCUsiAiUkek16EH
EB0BaaGsGENElBFbEJQFKaGPFAklZAGBhPq+uf///bDPhdf1fng/Dl/i7zrt
Pvc5O2XXU6bvsI79ciqKMiavomT//d9/5uyUK02z/8PtckV/jINJ/2KnW7TN
9mJfgT2w3lkc6E3bb4ntGRGjv9BXtANrMb/R3cVWT9rtIXam0vryaKu9xOqJ
SHvYrL4XNvoi3m60OgDxbqFtWE+N1F+Y/jgHcu6j1yD+zrSagPgTaP0rsXGY
drZhPo9oG1Yn/M75jYm23QDxH6TVjMsS/31avyp2X/qDviDWx9LGKbFSdj99
Ruzs+zcfFIdv0yrsfz1Eb8X4n4Ui88P4e2gF1ksd4H5IFAda0e4asfHsQc4v
AeMPo515GO8abVrof/CfbD9ebD99iO1NcagJrcJWGq10xXwaHmY5bH57OLJ/
kZ9CRzneabSfFbErVvOnMj/3MP/ptDsT++cUbc/BfphyjON/Em13RbQdWDtO
q9uxX3If53j7sV+q0fpxcXgSbea6KvFUPsH+YsWBQ/9it5A4VOEk/bzYOkCb
qeJwuVOMv9M1ydcaWu0gdjNpN0k+D6G9p9l+u1i9eYb1x4qDw12WL8Dnp+Rf
nE8W2g+NOIf0ry45y3zWF/sGnWM8cWKt/3mWHxE752l3OtrXu0DXEvvjIq6I
/gr+HRW/FnuR8W4WW71o1/9f7iYOf0k7XcXu5DT6OvKd6xLn2wP57kIbGbhe
VbrM8fKj/tornD+slLvK+uNR/3faHoHrl53O9uOwf25cY3yL8fl6LoP1R4p9
8WHGc+ZStvXdEfvwedh5g/nNE862/c1Nlm/MkPjPRZwsdpL+4Xzbiv0v36Ln
iPWY2xx/ttiqfoc+j/VIpY0L4lDFLPopqR9+6S696IasZwfajpVyX9l7nG8G
9kOZ+4z/1lmJ7zNahQPPPmR/mWLtJ1ovek7qN3vE8mJifZFyFVbF2oAcsJJf
bM7NCTt5xPasXLAZg/6m52b7fKhfIw/9G8bfnJf9bRH7N+aD3bVifXwM6yeJ
rTWxsB4Umx/kZ/sE1FcLMJ5pYuP5guyvm9gdWojt+2H8JYVZXkPisy7TamXE
X/QJzgcOXoy4JPLT38f2T4vVgkWiyv11Ii6B+rFPwXY9jKcVpeui/6pPsz84
VOkZ+iLyPzHiNMT3gLavit27xeibYiWzOMfPQvufn6XvI77dz7E/2Pfu8yx/
hPoDS9Htz2c77CvN/vuKzXm0OUUc/CbiOWKtQBn2vwTlPV9g+QqxMvlFugfy
kbMs818k2k7vaNtPYf5VaGW19BdYX47ruw7jd3iJ/W0R+9uVZ/tEsVGqIsfv
j/5GRDwQ+blO23elvjusEvu/JLauVOb+zIi2DavvVOH8b2D8RRE/RH9FqrL9
I9QvVJ3jpyK/fWjDFftc2r6M+Z3SmJ8nLsh88tVg/7D/OK0XEYcq14qy0pl2
Z2D+D2knDvvxQG2Wv439dY82sR66/+XHW0V964M6LO8rDu+lbdQ327xCv4f+
P434Xez/4XXZPkNshGnlUZrE+2q9yH6NtvNfVhS53vt/rBfJv5QHi9VnPu6K
fYNp96RYX0Krn4iNhQ1YXlT6Uxs2pF8WmxatV8L9pV4jxlddrBVszHgaiZ2Z
tNoM7Ws1YX8N/k/WT9J6/WirsLZVZ3lbcbhLU+4nHfnYRNuvin1vNaMNcegB
7Si4n45rTpfG8+RdWnkDz4OrX+V4cXj+feE1jjcOz79taRX3Y2VvpHwi+i/d
gvMrH21jIZ5HW9P2bIy/klaW4v79XEv2vw3xtIg4Cc/PAdrZjvh+pg3UDzVv
xf6Oi7V42k57rMN6a/bH5+FLtHIHzxuN27D8Gvr/m1Y74Pm23+vMV7FoqxXw
fDO7LfNRTJ6H3CTarhhttZJYL/AG51NDrJ2mnQpi/4l2bJ9DbOZpT+cV2zn9
7K8Enn8rduD+LYz+O3Rkfdho9ybrP8Dz+D7ayI3xynTi+Fl4n/yHdgtcjbID
h0a8Ffl8S31lJa3fE/t/6sz2jGdpF45XHvEs6sr4qmH8Ad1YfyXydYHW56N9
/e50o8c6lEw748Sq24Plx9B//p6c/xnkszbtoNydTrtz0f8p2riF9T7ei/FW
EbuVe7O8P96PHvaOXC/xPvxSn8j9Dfl8sS/rr0J/ahzX6w/sn5b/YTyH8H1D
yX5svwHvU+m0OxbP18X6M//Yj8HLtF0S70fWQJYnIB9PDGJ/H2P+cbTyLt5v
6rzD8fvj/WYmbZfD+0Std5m/BtLe6fVuVHl4Gm1WFJt5Bz/ealNp75tCK3Wl
3M41hPH1wPvNpCGR+z36rzSU4w3F+nQcxnyuweenXIDlP2O+mbSeiPeV0iNY
vhX77wZtzMJ8WrzH8pHYLz/TpoXP29WRzH888rvrffb/PfK5YBTrP5keZaUI
3id3Rtv9m3YbY76FR7PcQL77Roz3UWc2bU9Ef70/ZPzz0N8M2l2C9es5huu5
A/1/SbtJeN+cPJbxl8L70JaIj+N9pcs49n9XHEig1ft4P1o/nuWqvH+p5SdE
7q9ifwfaP1scaDcRDo4UG2VM9jdMHGz1EeuvE+u/0tYNeZ9SApNgLd/NbIeb
fcz2FcXBK7SVIPVDaZNZf5yUO99O4fp0+kfi9U2FfSNvRtk/Cf3NpUNJYt85
2t0gtvtMY77ai0OzaOdNsZJE+3pE2x6B8b6azvh/wXg1ZrC/0xhvKu1sQvtu
M+HAFbF1lPbrMp/goVlsX1Os3J/N+GNR/sFcjv874h05j/4C+RxucX4pYjNM
a5mIZ9h8+hbyeXkB1/9F9P/dQvbXTOxepB1N6mtPLGb/g6XcmUNb88VmnSWs
nyoO9VoKh5veyrZ/azzno4rdqsu4ns3FIWU583NMrFSm7Zy3Zbw/6dCP6K/j
CvafT8p992j9BbFe7hOWLxJrmbQ/UazuXcnxVosDNz6N3D/FVsZnzE8d1B9q
M38txeZu2h4mDl36nPXXYrzGq/h5OYD2T67mfP8Su9/Q2sXH2u67hvPdhfaJ
X/B68jfiPbGW8WaIle7rOJ90xJ9K+2LvSL4+Ws94g+LQwQ1snzszylYucXj/
Rs7nN6kfHJ3A+fws1u/Q5iFxoMwm5veuWLFpvbL0Z5XazHiqi51WtNZKHHx2
Cz9P88T2NTo8JdohS6wN2crxp6H/H2hfvFjVg2y/Qeym0YFJEp/m28b6x8RG
fTrwk9iZS4cuI3+FvuJ8dkp/viTaqJIl88+fSL8stmvT7lvI79t0eCjy2+Nr
5n8F4quWxPU5if670c75aFtwKMd2zj8N+TxEh/ZKvOb4ZK7XEazH/m/Y/5/I
XxZtzkD+3tjB9ViJ/O2jje1iU/2W69tSHLhJW0PExi87I+urZP/1L/uO9bvc
lfVNp7X3xbbzPevvFhuDdnG+6WK1iMP8PXtP5n+BtkqI7bgfGF8rsVFwN/tf
gPZf02p/5LfXj2y/Vurr22j7a7E25SeuTw1xuOrPzJ8hdpVf2L7YfcnnQ9p4
P0f2X2ftr5zvFLF6j9Z7SnuzfQr7HyEOvLCH89sp8YZG0daf0bZh9dPfOJ9+
jyQfw/dy/Uahfol9XP8dYms3Hdz1QObzzO+sv19sLqaDrtTXntwPp/6C+cyj
ndVKlKfD6nlae0fmE+wborMQ33baLir1AwUOcPywlGuJdMxz6G/aQbhuI7E+
+U84rYk4lPMQ4+mGeA7TMR9iv3U6DGcuFvse0OYG9Ff+CDx6u9goe5Ttt2H8
3+lQCvq7Qyf/LnbfT+X6/IX5/EMrGYiv1TE6v+TPuk4btcTBa8d5famWM/uv
pp/k+MPF6lOnWH+ZODifHmiLA/VPc/6uODSXXn8d/Z2jAzfETp8zcHy+XJKP
GS7ctblY6fkX9+dYsbn5LOdnoH6Vc8x/L7HemVa7i63x57l/DomddREfFAfH
XGB8q9HffjowH/1l0SkJiGfV34x3lVjbRycvxXjqReZrN8ZrQ7tnEf9NWtsu
dlumcT32YLxP6NTmuSV/JS/BFdIx3rBLkeuVlPsHX+Z+Lyl2L0dcUxwYdIX5
rCM2Gl7l/NqLHYue/ib6eyKd+3u+OBhH2ysQj3GN14e/xFZsBttnob9adHLh
PNLfNjr+FbGrhTl+C7FS7TrrTxEbk+jMJLHv4Q3mp0He7L/2uJuMzxAb5f7h
9fkDsT+T1r4Wu6NucfwEceAWbW1Hf6VvM98/oL8UWrsvDre4w/xXzyfrMzQT
bjVLrBTL4np8L3Z20SmHxIEG9zi/1jGyfudpJU6sbr/P+GaJzQIP2N/taMcf
wHqeplPPi5VeD7k+3SVf2jTaP0Ds5HnEz887YrU77Z8qNrfQ1iax3kVJF4/e
KA4dpo1zWJ9OOegXJT/WBDqmpdjskBMeOFgcHEsbAbF+l07eJVbt3HBdn+Qr
WCoPvL428vcrHX5DbF+n/X7kv0VeOL63WAvQMWPFxnK6riW2foqUB7Fe1+jp
a8Xh4vlg9zOxe4WOOYLxF8XA5iX03ygWVgrLevl9+WGtvtidSye3FIf6FIDT
xoiV2XTxCdgPMwrCwUSs/yna3iHWpxaCM89iP3UrDFuxsTKfo3SrtuJwjicY
f3uxWoUOfpRf+jfp0Z+K3UO0ivkHlj3N+GGl+DNwyMHn3aHdNbgfNSnGeJPE
5iDatwT3o4bF4ZSVYuVb2sb9T7tAxxwWh+eUgFPD4mCdkiwfIPcr16BHjxfb
sc/CTrw4VIuuu15sbKNTTuL5Ie9zzMdZ3P+O0V1x/wtMep71O4jtTbR/EO5v
R+jkD3E/21CK+UsS+yuU5n44iPvlONq6gPYfqhyvOq7vf9BqO9w/2pbhfpkg
Do+ilZli9XO67lzcv0a+QGP+gRTaWif2Dy3L/dMa+btKhz4S+4qVYz6mIT8L
XuL6bBSbDcozvv1i/TxdN02szKnAch/mn1iR8X4idmtW4vg/IJ8naDUN+Uut
zPVtIPPxd6nC/MWJ7QlV2T5FbJSvxniHov1Y2pgrNstW5/xOi5VRGj+/ici3
TackId+lanA/l8f97zo9fbnY/qkm69fE9fWHWlz/neLgotqMtwjuN41eZnl/
3F98dRj/ZtyvztHWXlw/C73CeGPweXEj7v1Qz/5Tuy4/T5PEas96XJ/lYjd3
fe7//PL8GviYDvQRW2YDlr8iVh/Rrl9s+xvx+lsDz5urGjO+VMSzpwn3Ywfs
j7DO6/NWfH5+bMr5FcT+dppx/deJjSbNuT57sF4L6YFqrihX6I/nI+tVznca
no8u0MV34Hls7mscPwvPXwVbMB+1ZL3UWXQKnlfdWi05/2v4fG9rGbl+Y3+d
pN3SiOdYK+7HAOI50prrMQL1J7ZhfuIRzyFa/xH7s8Lr3N943lQP0DElsL/a
t+X86mF/vfAG988M3N8/oJVleH7bS8f/KjZT2jGfRfG81LI9y3Xcz4fT4Xbi
wAq6eEc8L7zq53pNwH7eTa//FM9vTTtwferj+XJXh8j9GM8jjTsy3sFi7SI9
8PVo+3PJ+6jV4E3ux+/lfUzdQeuKlJuFOzG/L4r17bTdSWwXeIv5GIj3W4O2
B4mNRFpvLXZiOvPz3k8crhnxYLHai9bWRNtah3i+7By5/ol9Wheu55fiwGRa
34nxu3Rl+Rn0p3TjeEfE7no6+JK83+oPaKOr2Ljbnd6I9+HRPZivpXgfvkOr
m8WB33pyP38p1t7rxfES0N9K2p0tVlu8zfk6Yl+J3pxvMuJpTtvfiu2lvaPq
O4sMrudasf+pPpzPcsTXqE/k8yoODqADltidTxujMN7ftNJFHPpPX/ZfGPGf
o+0U7J9Ccay/AfmdHfFWrE/v/3C+8Vifr+hgLeyXmv3YXw+0r96f+VuJ/VZl
ANfzFvabSSuKxKMcprXnEF/FgYz3Hvo7SDvjMN8xgxjP56i/7x22byPXa/9n
77J8Ba7fzw/m5yufXI/1EbRbCtfvZUPYfpE4uGQo90NefJ9whW4Vi/f9hcNY
XkFsNQxwf1TF89oFOnkwvn9IHs71mSy2C47g/G/IeMbXIyLrg/vD2+8xX358
/5B3JK8fY3C/mEIn4/sOo+v7vP7MxPNI5VFw3Ud4HtlAx2zC/WPcB7zf4H7v
tB/NeK7h+eAP2myC6+etD5l/PJ9qI8ew/5y4vt2gk0vjfTRjLONfKPdfJX0c
85WO+3XT8byevon3g11015t4P1gwAU7tL8/jgScn8vO0Ec/3Fq0VlOdvbQcd
rIHn874m57tMbP5FJ78nz+P6zI94/5pVQPIRM4nrU7ag9NeL7lq7kMzvBJ1W
ubDkp/vH9FmxOZkONJb2wS105o/SXq86mfnbKuPbH9FqjIxvdZrC8WLF6p90
eKTYt3Yq82GL9RCtfSe2y05jf4fQ3x065bbY/G06x38gDv5Dh4tKvPavMzi+
JraWz+TnuYnYHDILrtBfHFo0m/ulnMzPajSH+V0mNn1zuX+yxMH6tJpP8mW5
8xjPLPx+Vdti/g6L3Xzz6Tzye5Lekw5Pxe9R1Rdw/ibaH6WNOPweZy7k52mu
2Li/iPsxCd9nZy1mfLXw/fSLS7h/ioj1VbTTHt9X36Zdfl/92VKOXx7ft+5Z
Grm/4vvaVvEsv47+f6Ht72R8/bVlLE/C7w/NlrN/U37fcpbQzhz8vtZkBesv
xO91g+hgGn4vnP8Jy9Px+1y9lVyfitKfeZYOrBDbZz5lPmuKw3ltxtdI2vt7
0OZR/J44hVbxe6xe7XO2HyK/19qTaOMN/N57lFZixVqOVXResf9hxEn4/bjj
avb/zPVsB+7RoXlibc0afv67Snsrk3ZHicNtv2A+FqD/z2m1NX4vvbGW8bXD
fslYx/zOxO+5Jdez/g/Yf7tppQh+P02n3acw/2IbmO+G6H8x7U/H/z/83Ubm
e6PY7ZfA9gOkfuA8bf+B34fjNrFckfyHX97M/ObE+iXSVhex3msL55uA309P
0NZI+f3P6L6V+30afl9MCHK8IVjvsdvYfxD7qexXnH8bsX2HNu4ivraJjO8b
7IfIeZ3Iv0g5/3nne7zzPbB3vkfae+d7vPM9Uu6d75H4vfM9kd+Lxd75Hu98
D8q98z1R9s73YL288z2Mzzvfk23vfI93vgfz8c73SLze+R7mzzvfI/nwzvew
3DvfI+N553vYn3e+R9bHO9/D+XjneyR/3vkerq93vkfy6Z3vYb698z0Sn3e+
h/bO90h83vke5ts73yPz88738P8P8c73SP698z2s753vkfX0zvewvne+R+bv
ne9hfrzzPdKfd76H5d75nmx753u88z3o3zvfI/F453vYn3e+J9ve+R7vfA/6
8873yPj/n+d7/gfoalPN
"], {{{},
{RGBColor[0.24, 0.6, 0.8], Opacity[0.2], EdgeForm[None],
GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1lOwGIYSANAb27Zt22ajxrZtN0kb227MxrZt27aNd/LycWb3d3dmkahh
u0ptAwcEBAQif5DfMV+Q33le8pCbXOQkB9nJRlaykJlMZCQD6UlHWtKQmlSk
JAXJSUZSkpCYRCQkAfGJR1ziEJtYxCQG0YlGVKIQmUhEJALhCUdYwhCaUIQk
BMEJRlCCEPhX3QTwUzN+8J1vfOULn/nERz7wnne85Q2vecVLXvCcZzzlCY95
xEMecJ973OUOt7nFTW5wnWtc5QqXucRFLnCec5zlDKc5xUlOcJxjHOUIhznE
QQ6wn33sZQ+72cVOdrCdbWxlC5vZxEY2sJ51rGUNq1nFSlbwH8tZxlKWsJhF
LGQB85nHXObwL7OZxUxmMJ1pTGUKk5nERCYwnnGMZQyjGcVIRjCcYQxlCIP5
h78ZxEAG8Bf96Udf+tCbXvSkB93pRle60JlOdKQD7WnHr4FqQ2ta0ZIWNKcZ
TWlCYxrRkAbUpx51qUNtalGTGlSnGlX5kypUphIVqcAflKccZSlDaUpRkhIU
pxhFKUJhClGQAuQnH3nJQ25ykZMcZCcbWclCZjKRkQykJx1pSUNqUpGSFCQn
GUlJQmISkZAExCcecYlDbGIRkxhEJxpRiUJkIhGRCIQnHGEJQ2hCEZIQBCcY
QQlCYAIRwE8L8Aff+cZXvvCZT3zkA+95x1ve8JpXvOQFz3nGU57wmEc85AH3
ucdd7nCbW9zkBte5xlWucJlLXOQC5znHWc5wmlOc5ATHOcZRjnCYQxzkAPvZ
x172sJtd7GQH29nGVrawmU1sZAPrWcda1rCaVaxkBf+xnGUsZQmLWcRCFjCf
ecxlDv8ym1nMZAbTmcZUpjCZSUxkAuMZx1jGMJpRjGQEwxnGUIYwmH/4m0EM
ZAB/0Z9+9KUPvelFT3rQnW50pQud6URHOtCedrSlDa1pRUta0JxmNKUJjWlE
QxpQn3rUpQ61qUVNalCdalTlT6pQmUpUpAJ/UJ5ylKUMpSlFSUpQnGIUpQiF
KURBCpCffOQlD7nJRU5ykJ1sZCULmclERjKQnnSkJQ2pSUVKUpCcZCQlCYlJ
REISEJ94xCUOsYlFTGIQnWhEJQqRiUREIhCecIQlDKEJRUhCEJxgBCUIgQkU
6PcT9FP4wXe+8ZUvfOYTH/nAe97xlje85hUvecFznvGUJzzmEQ95wH3ucZc7
3OYWN7nBda5xlStc5hIXucB5znGWM5zmFCc5wXGOcZQjHOYQBznAfvaxlz3s
Zhc72cF2trGVLWxmExvZwHrWsZY1rGYVK1nBfyxnGUtZwmIWsZAFzGcec5nD
v8xmFjOZwXSmMZUpTGYSE5nAeMYxljGMZhQjGcFwhjGUIQzmH/5mEAMZwF/0
px996UNvetGTHnSnG13pQmc60ZEOtKcdbWlDa1rRkhY0pxlNaUJjGtGQBtSn
HnWpQ21qUZMaVKcaVfmTKlSmEhWpwB+UpxxlKUNpSlGSEhSnGEUpQmEKUZAC
5CcfeclDbnKRkxxkJxtZyUJmMpGRDKQnHWlJQ2pSkZIUJCcZSUlCYhKRkATE
Jx5xiUNsYhGTGEQnGlGJQmQiEZEIhCccYQlDaEIRkhAEJxhBA/7/8v86+wH/
A8xKi+Q=
"]]]}, {}, {}}, {{}, {},
TagBox[
{RGBColor[0.24, 0.6, 0.8], PointSize[0.0055000000000000005`],
AbsoluteThickness[2], LineBox[CompressedData["
1:eJwl10O0GIYSANAX27Ztu7Gdxmxs27Zts7HNxrZt2/435y/umdnOYpSoQdtK
bQIFBATkDRIQ8CcGRhoQlGAEJwQhCUVowhCWcIQnAhGJRGSiEJVoRCcGMYlF
bOIQl3jEJwEJSURikpCUZCQnBSlJRWrSkJZ0pCcDGclEZrKQlWxkJwc5yUVu
8vypl3z8RX4KUJBCFKYIRSlGcUpQklKUpgxlKUd5KlCRSvxNZapQlWpUpwY1
qUVt6lCXevxDfRrQkEY0pglNaUZzWtCSVrSmDW1pR3s60JFOdKYLXelGd3rQ
k170pg996Ud/BjCQQQxmCEMZxnBGMJJRjGYMYxnHeCYwkUlMZgpTmcZ0ZjCT
WcxmDnOZx3wWsJBFLGYJS1nGvyxnBStZxWrWsJZ1rGcDG9nEZrawlW1sZwc7
2cVu9rCXffzHfg5wkEMc5ghHOcZxTnCSU5zmDGc5x3kucJFLXOYKV7nGdW5w
k1vc5g53ucd9HvCQRzzmCU95xnNe8JJXvOYNb3nHez7wkU985gtf+cZ3fvCT
X/zmT/MHIjBBCEowghOCkIQiNGEISzjCE4GIRCIyUYhKNKITg5jEIjZxiEs8
4pOAhCQiMUlISjKSk4KUpCI1aUhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7+
Ij8FKEghClOEohSjOCUoSSlKU4aylKM8FahIJf6mMlWoSjWqU4Oa1KI2dahL
Pf6hPg1oSCMa04SmNKM5LWhJK1rzZ3i3pR3t6UBHOtGZLnSlG93pQU960Zs+
9KUf/RnAQAYxmCEMZRjDGcFIRjGaMYxlHOOZwEQmMZkpTGUa05nBTGYxmznM
ZR7zWcBCFrGYJSxlGf+ynBWsZBWrWcNa1rGeDWxkE5vZwla2sZ0d7GQXu9nD
XvbxH/s5wEEOcZgjHOUYxznBSU5xmjOc5RznucBFLnGZK1zlGte5wU1ucZs7
3OUe93nAQx7xmCc85RnPecFLXvGaN7zlHe/5wEc+8ZkvfOUb3/nBT37xmz+L
PxCBCUJQghGcEIQkFKEJQ1jCEZ4IRCQSkYlCVKIRnRjEJBaxiUNc4hGfBCQk
EYlJQlKSkZwUpCQVqUlDWtKRngxkJBOZyUJWspGdHOQkF7nJQ17y8Rf5KUBB
ClGYIhSlGMUpQUlKUZoylKUc5alARSrxN5WpQlWqUZ0a1KQWtalDXerxD/Vp
QEMa0ZgmNKUZzWlBS1rRmja0pR3t6UBHOtGZLnSlG93pQU960Zs+9KUf/RnA
QAYxmCEMZRjDGcFIRjGaMYxlHOOZwEQmMZkpTGUa05nBTGYxmznMZR7zWcBC
FrGYJSxlGf+ynBWsZBWrWcNa1rGeDWxkE5vZwla2sZ0d7GQXu9nDXvbxH/s5
wEEOcZgjHOUYxznBSU5xmjOc5RznucBFLnGZK1zlGte5wU1ucZs73OUe93nA
Qx7xmCc85RnPecFLXvGaN7zlHe/5wEc+8ZkvfOUb3/nBT37xmz9HfyACE4Sg
BCM4IQhJKEIThrCEIzwRiEgkIhOFqEQjOjGISSxiE4e4xCM+CUhIIhKThKQk
IzkpSEkqUpOGtKQjPRnISCYyk4WsZCM7OchJLnKTJ8j//53/AfA4i18=
"]]},
Annotation[#, "Charting`Private`Tag#1"]& ]},
TagBox[
{Opacity[0.], PointBox[1658]},
Annotation[#, {{Callout}, Charting`Private`Tag, {828}}]& ]}], {{{}, {{},
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.986066133*^9, 80798.}],
Offset[{-8., 9.797174393178826*^-16}, {3.986066133*^9, 80798.}],
Offset[{-10., 9.797174393178826*^-16}, {3.986066133*^9, 80798.}],
Offset[{-12., 9.797174393178826*^-16}, {3.986066133*^9, 80798.}],
Offset[{-12., 9.797174393178826*^-16}, {3.986066133*^9,
80798.}]}]},
{LightDarkSwitched[
RGBColor[
0.6666666666666666, 0.6666666666666666, 0.6666666666666666]],
AbsoluteThickness[1.25],
BSplineCurveBox[{
Offset[{-3., 3.6739403974420594`*^-16}, {3.986066133*^9, 80798.}],
Offset[{-8., 9.797174393178826*^-16}, {3.986066133*^9, 80798.}],
Offset[{-10., 9.797174393178826*^-16}, {3.986066133*^9, 80798.}],
Offset[{-12., 9.797174393178826*^-16}, {3.986066133*^9, 80798.}],
Offset[{-12., 9.797174393178826*^-16}, {3.986066133*^9,
80798.}]}]},
{EdgeForm[None], FaceForm[{RGBColor[0.87, 0.94, 1], Opacity[
NCache[
Rational[2, 3], 0.6666666666666666]]}],
PolygonBox[{
Offset[{-12.000000000000002`, 5.500000000000004}, {3.986066133*^9,
80798.}],
Offset[{-11.999999999999998`, -5.499999999999996}, {3.986066133*^9,
80798.}],
Offset[{-43., -5.500000000000003}, {3.986066133*^9, 80798.}],
Offset[{-43., 5.499999999999997}, {3.986066133*^9, 80798.}]}]},
{LightDarkSwitched[
RGBColor[
0.6666666666666666, 0.6666666666666666, 0.6666666666666666]],
AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
StyleBox[
RotationBox["\<\"80798\"\>",
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.986066133*^9, 80798.}],
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 4 May 2026 18:06:56 UTC\"", 12, StripOnInput ->
False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}},
DefaultBaseStyle -> "Column",
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"],
TraditionalForm],
PlotRange->{{3.729024*^9, 3.9868416*^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,
3.9840393254807997`*^9, 3.9843056323664627`*^9, 3.985024325671249*^9,
3.985954307906972*^9, 3.986288425461619*^9, 3.986724816592309*^9,
3.986906816344286*^9},
CellLabel->
"Out[381]=",ExpressionUUID->"bb288416-b27f-42fc-bff5-aa67561c678e"]
}, 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, 1050, 21, 53, "Output",ExpressionUUID->"f12fc78d-f5bc-4df3-8a8c-c8967c7da088"]
}, Open ]],
Cell[CellGroupData[{
Cell[7389, 186, 5486, 118, 23, "Input",ExpressionUUID->"55c17c4f-14a9-40f1-a01c-ab0b0c9b3309",
CellOpen->False],
Cell[12878, 306, 20802, 415, 587, "Output",ExpressionUUID->"bb288416-b27f-42fc-bff5-aa67561c678e"]
}, Open ]]
}
]
*)