(* 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[ 43227, 867]
NotebookOptionsPosition[ 42456, 843]
NotebookOutlinePosition[ 42884, 860]
CellTagsIndexPosition[ 42841, 857]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
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[1]:=",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},
CellLabel->"Out[4]=",ExpressionUUID->"dd3d4a13-4be1-43d0-a55e-c90635a488d8"]
}, 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[11]:=",ExpressionUUID->"55c17c4f-14a9-40f1-a01c-ab0b0c9b3309"],
Cell[BoxData[
GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJzt22eQFNXaB/Am7xJHRIlCkzMMQSTTgBIUYUAkIw17WUDSgAhIbJAcmyAs
uQUuOYyIy4ooLUGXJAMsuOQmL2FhyLvE++7z/89bNbew6q16vw5f1l+d9Jzn
nOkw4ynaY2CbnukVRamRWVHS/v7PP2NG/O2Gaf/htL+tvcG+2H+w3THURiux
K9sBWGsn9najrc/F1tSg0Z//R9qG3REH6U5iswvtdBbbk2htcajVrmL1bLA9
bFQ+BOs9EG9HWu2FeLfQFqwlBuvPS36TvekP06sRfzta3Yj4N9Laj2L9JG1v
w3xe0xasjjnC+Y0ItVUH8R+n1Xu3JP4XtHZH7JT6i74m1kbS+nmxUuIofVFs
H/4nHxcHntAq7PnET2/F+Cv8wflh/AO0AmuFj3E/bBd7m9HOarFe8DjntxHj
D6Tt2RjvLm2Y6L/fCbYfLbbeSWB7Q+xvQKuwmUQrHTCfuidZDhu/nAzuX+Qn
x98c7wLaTw/aEatZE5mf55j/FNqZhv1znrZmYj9MPM3xl4baWRJqG3afodUd
2C8Zz3C8o9gvlWjtjDgwnjYy3JF4yp9lf5Fib8I/2Mkh9pc5R78nNo/RRqI4
UPI84297V/K1mlZbi50U2omVz4P/0AW23yFWH15k/ZFi3yCH5XPx+SlwifNJ
RfsBQaeT/tUFl5nP2mJXnyuMJ0rsjr7K8lNi+yrtTEH7WtfoamJPVNBl0V/2
6yHxuyNvMN7NYrMr7Xj+yx3FgR9ou4PYmZBE30e+M9zkfDsj3+1p/R6uV+Vu
cbysqL/mNucPKyXvsP5o1D9CW4Nx/bKS2X4U9s+Du4zvO3y+Ct1j/SFiV0yA
8Vy8mWZtT9AufB52PWB+MwXSbP38kOUb7kn8V4KOE9uxjzjfFmLP+4/pmWIt
4gnHnyE2Kz+lr2I9Emn9mthfNpV+W+oHSj2j5z+Q9WxNW5FS7irxnPO9h/1Q
9AXjf3xZ4ltBq7C34Cv2lyJ276O1PFekfqPXLM8r1uYrd2BV7O6VDlayio1Z
6WE7k9iangE2ItDflIxsnwX1q2SiD2L8zZnZ3xaxZ0MW2Fkj1kZHsH6s2Fwd
CWs+sTEsK9tvRH01G+OZLNbfy87+OoqdATnYvifGX5CT5VUkPvMWrZZH/Hly
cT6w70bQBZCfaBfbvyNWs+cOKffUCDo/6ke+DVu1MJ47D10T/Vd8h/3B/nLv
0jeQ/7FBJyG+l7R1R+w8y0s/FCsp+Th+KtrvL0i/QHx7CrE/2NX3PZa/Rv3e
helWV9MccBVh/z3ExmzamCj2/Rz0TLE7W1H2vwDlXYqxfIlYmVCc7ox8pC/B
/OcOtd0t1NbbmH8FWlkl/XnXleT6rsX4rUuxvy1iT8vSbL9drBcuy/Gj0d/g
oHsjP/dp65nUdwaWY/83xebt8tyf90JtweqXFTj/Bxh/ftCv0F/uimz/GvVz
VOb4ichvd1p3xC6Htm5hfufdzE+uazKfLFXYP+w5Q2u5xf7y1UKstKOdqZj/
K9qOwn48Vp3lX2B/PacNrIfmef/NVlHfHFaD5T3EgUO0hfrGxx/QX6H/5UH3
xf4fVJPt74n1AK28TpJ4P6wV3K+htv/LiiLXe8/eWsH8S7kvb23m45nY1Y92
zom1BbS6VKzPq8PyPNKfWrcu/b7YMGmtHO4vteoxvspid/b6jKee2J5Gq43Q
vloD9lfn/2TtHK3VDrUKu7dqLG8hDrRvyP2kIR+baOtDsevzRrQu9r+kbQX3
01GN6SJ4nnxGK5/ieXDVhxwvCs+/xT7ieKPw/NuCVnE/Vg4Fy8ei/yJNOL/S
odbn4Xm0OW3NwPjLaGUh7t+FmrL/bYinSdCxeH720vYOxLef1lHf37gZ+zsj
dsfQVtIbHdCasz8+D9+klad43qj/Mcvvov/rtNoaz7c9P2G+8oZaLYPnmxkt
mI+88jzkxNJW2VCr5cRatk85nypi9wXaLiP2nG3J9unERqZWdGaxld7D/vLj
+bdsa+7fnOi/dRvWh/WWn7H+SzyPH6b1jBivaFuOn4r3yUe0k+1OiG3YP/jz
4Odb6ivLaO252LOvHdsznoXtOV5pxDO/A+OrhPF7dWT9ZcjXNVqbg/a1O9H1
3mh/HG2PEqtOZ5afRv9Zu3D+F5HP6rSNcmcK7cxC/+dp/THW+0xXxltB7JTv
xvJovB+96ha8XuJ9uFT34P0N+Szeg/VXoj81iuv1F/ZP038xngR831CgJ9uv
x/tUMu2MxPN13mjmH/vRd4u2CuD9yOzN8o3IR64+7O9bzD+KVvri/abGlxw/
Gu8302irJN4nqvVl/upIe7tr35DywGTaKCs2Mvd7s9WG0t41kVZqSrmVoT/j
64z3m/H9g/d79F9uAMcbgPVpM5D5XI3PT0kvy/djvim0th3vK0UGs3wr9t8D
Wp+O+TT5iuVDsF/204aJz9udIcx/DPK7+2v2/xvyOXco67+VHGIlN94nd4Xa
uU479THfnMNZriPfPYLG+6g9g7bGor9u3zD+2ehvKu0swPp1GcH13In+f6Cd
WLxvThjJ+AvjfWhL0GfwvtJ+FPt/JvZupNUXeD9aN5rlqrx/qaXHBO+vYk9r
2jND7G05FvYNEetFDfY3UOxrNo7114q1P2nzgbxPKd7xsDvLwzQHGn3L9mXF
vtu0uVHq+5MmsP4oKbd/mcj1aftI4nVNgl1DHobYMx79zaL9sWLXFdpZL7a6
T2a+Won902n7M7ESS7s6h9oajPF+nML4/8B4VaayvwsYbxJtb0L7jtNg722x
+Tft0WQ+voTpbF9VrLyYwfgjUT5sFsc/gniHzKb/jXwOMjm/eLERoN0piGfg
HPox8nlrLte/OPr/dR77ayR2btC2W+q7c33H/vtJuT2TNueIjRoLWD9R7O+6
EA40fJxmz9YYzkcVOxUXcT0bi/3KYubntFgpT1vpn8h4J2j/XvTXZgn7zyLl
rue0VkyslVzK8vlidwrt2S5WDy3jeKvE3gfLg/dPsXlvBfNTA/UHWMxfU7Gx
h7YGiv03v2f9NRiv/kp+Xo6h/VurON9LYudn2n3jjbZ6rOZ8d6P99n/zenId
8Z5dw3jviZVOazmfZMSfSLsin0q+xq1jvD6x//h6ts+YEmIzgzhwdAPnc1Dq
+4Zv5Hz2i7WntJEg9hbdxPw+EysWrZWX/szCmxlPZbHdjHY3E/sKbuHnabbY
uksHJobab4rd/bdy/Mno/3faFSNWNR/brxc7SbR3vMTndm1j/dNivTbt3Se2
Z9H+W8hfjh85n13SnyuW1iukyvyzbqffF1vVaedz5PcLOjAA+e38E/O/BPFV
iuX6nEP/HWn7aqhN2J9uB+efhHwm0P5DEq8xOo7rdQrrcfRn9n8C+UuljanI
36c7uR7LkL/DtL5DbKi/cH2bir0PabO/WP9jV3B9lbS/nkW/sn77Z7K+ybT7
a7Fl/8b6e8R6n92cb7JYzW0zfwWfy/yv0WZ+sRX1O+NrJtaz72H/c9H+J1qN
Rn677mX7NVJf20ZbP4ndE/dxfaqIAxX3M3+62FH+YPu8LySfr2j963Rpf+01
f3K+E8Xqc1rrIu2NVvHsf7DYW+wA57dL4vUPpc0TobZgdflBzqfna8nHoENc
v6Gon/8w13+n2NxD+3a/lPm8e4T1j4qN72ifI/Xdbx2FE//AfGbT9iolxFNg
9Srt/lLm4+vhp1MR3w7ayiP1vdmOcfyAlLu30xGF0N/k43DNemJtwgk4qYHY
nz6B8XREPCfpiG+w39qehFO+E7te0sZ69Ff6FDx8h1gv8Tfbb8P4R2h/PPp7
SscdETtfJ3J9LmE+j2jlHuJrdprOKvkz79N6NbHv7hleXyqlT/vr1s5x/EFi
9e3zrL9I7JtD97bE3toXOH9H7J9Fr7uP/q7Q3gdiu/tFOCZLBsnHVAfu0Fis
dLnE/TlSbGy+zPnpqF/hCvPfVay1o9VOYnP0Ve6fBLG9NujjYt+Ia4xvFfo7
SnvnoL9UOn4j4ll5nfGuFLsP03ELMZ56g/nag/E+pp3LiP8h7d4hdpomcT0O
YLyldGLjjJK/AjfhMskYb+DN4PVKyj39bnG/FxA7t4KuKvb2uc181hDrde9w
fq3EtklP+Qz95Urm/p4j9kXR1hLEo9/l9eGS2Iy8x/ap6K8aHZczk/S3jY75
QOy4Axy/iVipdJ/1J4r18XRKrNj16gHzUydz2l9r1EPGp4v1ko94fR4m9qTQ
7p/EztDHHH+j2PuYNnegvyJPmO/f0V887X4hDjR5yvxXziLrMyAFbjZdrORN
5Xr8JrZ30/EJYm+d55xf8whZv6u0EiVWd7xgfNPFRraX7O9JqGOOYT0v0IlX
xUrXV1yfTpIv92Ta00tsZ3rNz8+XYrUT7ZkkNrbQ5iax1l5JFg/fIPafpPUr
WJ+26ejikh9zDB3RVGy0Tg/37if2jaR1r1h7RsftFqtWRrimS/LlK5wJXlcd
+fuTDnwqtu7THg/y3yQzHNNN7PbSESPF+mK6pik29wXLfVivu/SUNeJAviyw
s0Ls3KYjTmH8+RGwcRP914uElZyyXh5XVthdW+zMouOaiv3ds8FJI8TKDDrf
GOyHqdlh33as/3na2inWJuWAUy5jP3XMCZuRkTKfv+lmLcSBdLkYfyuxWoH2
jcsq/Rv08OViJ4FWMX/voncYP6zkexf22/i827SzGvejBnkZb6zY6EO7FuB+
VDcfHL9MrPxCW7j/ua/RESfFgZn54cSA2FejAMt7yf3K0enho8VWZEHYjhH7
q9E114n1bXT8OTw/ZC7EfFzG/e803QH3P+/491i/tdjaRHv64P52io77Bvez
9YWZv1ixp0wR7ofjuF+Oos1raP+NyvEq4/r+F622xP2jRVHulzHiwFBamSZW
v6drzsL9a0gxGvP3xtPmWrFnQAnun+bI3x3aP07syluS+ZiM/MwtxfXZIDbq
lGZ8R8XaVbpmkliZWYblLsx/e1nGu1TsVC3H8X9HPs/SahLyl1ie61tH5uNp
X4H5ixJbYyqyfbxYL12J8Q5A+5G0PktslKjM+V0QK0Pd/PxuR74tOj4W+S5c
hfu5NO5/9+kpi8XWvqqsXxXX19+rcf13iX3zqzPe3Ljf1Huf5dG4v7hqMP7N
uF9doc1DuH7m+IDxRuDz4gTd7ZWW9qd6TX6exovVLrW4PovFTsba3P9Z5fnV
+y3t7S42jTos/0CsvqYdj9jy1OP1twqeN1fWZ3yJiOdAA+7H1tgfAY3X5634
/OxtyPllx/62G3H914r1Bo25PgewXvPo3mqGEJeJxvOR+SHnOxnPR9fofDvx
PDbrI46fiuev7E2Yj2qyXup0Oh7Pq061ppz/XXy+tzUNXr+xv87RThHEc7oZ
96MX8ZxqzvUYjPpjP2Z+YhBPAq3txf4s8wn3N5431WN0RH7sr1YtOL9a2F/F
PuX+mYr7+zBaWYTnt0N0zJ9iI74l85kHz0tNW7Fcw/18EB1oKfYuofO1wfPC
hx6u1xjs5z30uuV4fmvYmutTG8+Xu1sH78d4HqnfhvH2E7tv0L0/CbUng7yP
mnU+4378Td7H1J20pki5kbMt81tcrO2grbZiK9vnzEdvvN/qtNVHrG+nteZi
O6IdP+89xYGqQfcTq11p9+pQm2sRzw/tgtc/scvdnuv5g9g7gdZ2Yfz2HVh+
Ef0pHTneKbGzjvaVkvdb7SWtdxDrzzrRG/A+PLwz87UQ78NPaXWz2HuwC/fz
D2L3V1053kb0t4x2ZojVJl9wvrbYlb8b5xuHeBrT1i9ia2G3kPr2fJ3ruUbs
ebs757MY8dXrHvy8in29aK8pdubQ+lCMd51W2ov9/+rB/nMi/iu0FY/9kyOK
9dcjvzOC3or16fYvzjcG6/Mj7auG/VK1J/vrjPaVo5m/ZdhvFXpxPR9jvxm0
okg8yknaXQjxle3NeJ+jv+O0PQrzHdGH8XyP+oe/ZPuP5XrtWdGX5Utw/X6v
Hz9fWeR6rA2mncK4fi/qz/bzxb4FA7gfMuP7hNt0s0i8788byPIyYrOul/uj
Ip7XrtFx/fD9Q9wgrs8EsZV9MOf/QMbTfxocXB/cH774ivny4PuHzEN4/RiB
+8VEOg7fd+gdvub1ZxqeR8oPhWu+xvPIejpiE+4fo4bxfoP7vd1qOOO5i+eD
v2ijAa6fj79h/vF86h4ygv2nx/XtAR1XBO+j90Yy/nly/1WSRzFfybhfNxzN
6+lneD/YTXd4iPeDuWPgxGh5Hve+NZafpw14vjdpd3Z5/nbvpH1V8Hzew+B8
F4mNS3TcV/I8rk0bx/vX9GySj4jxXJ8S2aW/rnSH6jlkfmfppPI5JT+dvqUv
i40JtLe+tPdtoVP2Snut4gTmb6uMb42j1QgZ32w7keNFitUTdGCI2LVmEvNh
iTU/7f5VbJWYzP4S0N9TOv6J2Dg4heO/FPse0YE8Eq/151SO7xabi6fx89xA
bPSfDpeJFvvnz+B+KSnzM+vNZH4XiQ3XLO6fVLGvNq1mkXyZzmzGMx2/X1U3
mb+TYifLHDqT/J6kdaEDk/B7VOW5nL+B9n/TehR+jzPm8fM0S6y/mM/9GIvv
s1O/Y3zV8P108QXcP7nF2kraboXvq5/QDr+vXrGQ45fG960HFgbvr/i+tlkM
y++j/z9o61cZX/toEctj8ftDo8Xs35Dft+wFtD0Tv681WML68/B7XR/al4Tf
C+csZXkyfp+rtYzrU1b6My7T3iVi6+Jy5rOqOJDZYnz1MF7wPAb//W85/4XP
b4TPb8Dh8xvSPnx+I3x+Q8rD5zck/vD5jeDvgeLw+Y3w+Q2Uh89vhDh8fgPr
FT6/wfjC5zfSHD6/ET6/gfmEz29IvOHzG8xf+PyG5CN8foPl4fMbMl74/Ab7
C5/fkPUJn9/gfMLnNyR/4fMbXN/w+Q3JZ/j8BvMdPr8h8YXPb9Dh8xsSX/j8
BvMdPr8h8wuf3+D/nxI+vyH5D5/fYP3w+Q1Zz/D5DdYPn9+Q+YfPbzA/4fMb
0l/4/AbLw+c30hw+vxE+v4H+w+c3JJ7w+Q32Fz6/kebw+Y3/x/mN/wB4iv8x
"], {{{},
{RGBColor[0.24, 0.6, 0.8], Opacity[0.2], EdgeForm[None],
GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1lPUGAYPANCvtm3btm2vxmrbXm1bW+3Vdrvatm1b/+3fh3uSt+QhJ0mi
hu0qtw0cEBAQiLhBfsc4QX7nsYlFTGIQnWhEJQqRiUREIhCecIQlDKEJRUhC
EJxgBCUIgX/VI4CfmvjBd77xlS985hMf+cB73vGWN7zmFS95wXOe8ZQnPOYR
D3nAfe5xlzvc5hY3ucF1rnGVK1zmEhe5wHnOcZYznOYUJznBcY5xlCMc5hAH
OcB+/mMfe9nDbnaxkx1sZxtb2cJmNrGRDaxnHWtZw2pW8S8rWcFylrGUJSxm
EQtZwHzmMZd/+Js5zGYWM5nBdKYxlSlMZhITmcB4xjGWMYxmFCMZwXCGMZQh
DGYQAxnAX/SnH33pQ2960ZMedKcbXelCZzrRkQ60px2/BrkNrWlFS1rQnGY0
pQmNaURD/qQB9alHXepQm1rUpAbV+YNqVKUKlalERSpQnnKUpQylKUVJSlCc
YhSlCIUpREEKkJ985CUPuclFTnKQnWxkJQuZyURGMpCedKQlDalJRUpSkJxk
JCUJiUlEQhIQn3jEJQ6xiUVMYhCdaEQlCpGJREQiEJ5whCUMoQlFSEIQnGAE
JQiBCUQAPy2eH3znG1/5wmc+8ZEPvOcdb3nDa17xkhc85xlPecJjHvGQB9zn
Hne5w21ucZMbXOcaV7nCZS5xkQuc5xxnOcNpTnGSExznGEc5wmEOcZAD7Oc/
9rGXPexmFzvZwXa2sZUtbGYTG9nAetaxljWsZhX/spIVLGcZS1nCYhaxkAXM
Zx5z+Ye/mcNsZjGTGUxnGlOZwmQmMZEJjGccYxnDaEYxkhEMZxhDGcJgBjGQ
AfxFf/rRlz70phc96UF3utGVLnSmEx3pQHva0ZY2tKYVLWlBc5rRlCY0phEN
+ZMG1KcedalDbWpRkxpU5w+qUZUqVKYSFalAecpRljKUphQlKUFxilGUIhSm
EAUpQH7ykZc85CYXOclBdrKRlSxkJhMZyUB60pGWNKQmFSlJQXKSkZQkJCYR
CUlAfOIRlzjEJhYxiUF0ohGVKEQmEhGJQHjCEZYwhCYUIQlBcIIRlCAEJlCg
38/HT+EH3/nGV77wmU985APvecdb3vCaV7zkBc95xlOe8JhHPOQB97nHXe5w
m1vc5AbXucZVrnCZS1zkAuc5x1nOcJpTnOQExznGUY5wmEMc5AD7+Y997GUP
u9nFTnawnW1sZQub2cRGNrCedaxlDatZxb+sZAXLWcZSlrCYRSxkAfOZx1z+
4W/mMJtZzGQG05nGVKYwmUlMZALjGcdYxjCaUYxkBMMZxlCGMJhBDGQAf9Gf
fvSlD73pRU960J1udKULnelERzrQnna0pQ2taUVLWtCcZjSlCY1pREP+pAH1
qUdd6lCbWtSkBtX5g2pUpQqVqURFKlCecpSlDKUpRUlKUJxiFKUIhSlEQQqQ
n3zkJQ+5yUVOcpCdbGQlC5nJREYykJ50pCUNqUlFSlKQnGQkJQmJSURCEhCf
eMQlDrGJRUxiEJ1oRCUKkYlERCIQnnCEJQyhCUVIQhCcYAQN+P/L/+vsB/wP
GuiFUQ==
"]]]}, {}, {}}, {{}, {},
TagBox[
{RGBColor[0.24, 0.6, 0.8], PointSize[0.0055000000000000005`],
AbsoluteThickness[2], LineBox[CompressedData["
1:eJwl10O0GIYSANAX21Yb27Zt27btNLadNrZt27Zt2//m/MU9M7tZjRI0bFex
baCAgIDYQQIC/sTASAOCEozghCAkoQhNGMISjvBEICKRiEwUohKN6MQgJrH+
1CEOcYnHX/xNfBKQkEQkJglJSUZyUpCSVKQmDWlJR3oykJFMZCYLWclGdnKQ
k1zkJg95yUd+ClCQQhSmCEUpRnFKUJJSlKYMZSlHeSpQkUpUpgpVqUZ1alCT
WtSmDnWpR30a0JBGNKYJTWlGc1rQkla0pg1taUd7OtCRTnSmC13pRnd60JNe
9KYPfelHfwbwDwMZxGCGMJRhDGcEIxnFaMYwlnGMZwITmcRkpjCVaUxnBjOZ
xb/8x2zmMJd5zGcBC1nEYpawlGUsZwUrWcVq1rCWdaxnAxvZxGa2sJVtbGcH
O9nFbvawl33s5wAHOcRhjnCUYxznBCc5xWnOcJZznOcCF7nEZa5wlWtc5wY3
ucVt7nCXe9znAQ95xGOe8JRnPOcFL3nFa97wlne85wMf+cRnvvCVb3znBz/5
xW/+NH8gAhOEoAQjOCEISShCE4awhCM8EYhIJCIThahEIzoxiEksYhOHuMTj
L/4mPglISCISk4SkJCM5KUhJKlKThrSkIz0ZyEgmMpOFrGQjOznISS5yk4e8
5CM/BShIIQpThKIUozglKEkpSlOGspSjPBWoSCUqU4WqVKM6NahJLWpTh7rU
oz4NaEgjGtOEpjSjOS1oSSta04Y/w7sd7elARzrRmS50pRvd6UFPetGbPvSl
H/0ZwD8MZBCDGcJQhjGcEYxkFKMZw1jGMZ4JTGQSk5nCVKYxnRnMZBb/8h+z
mcNc5jGfBSxkEYtZwlKWsZwVrGQVq1nDWtaxng1sZBOb2cJWtrGdHexkF7vZ
w172sZ8DHOQQhznCUY5xnBOc5BSnOcNZznGeC1zkEpe5wlWucZ0b3OQWt7nD
Xe5xnwc85BGPecJTnvGcF7zkFa95w1ve8Z4PfOQTn/nCV77xnR/85Be/+bP4
AxGYIAQlGMEJQUhCEZowhCUc4YlARCIRmShEJRrRiUFMYhGbOMQlHn/xN/FJ
QEISkZgkJCUZyUlBSlKRmjSkJR3pyUBGMpGZLGQlG9nJQU5ykZs85CUf+SlA
QQpRmCIUpRjFKUFJSlGaMpSlHOWpQEUqUZkqVKUa1alBTWpRmzrUpR71aUBD
GtGYJjSlGc1pQUta0Zo2tKUd7elARzrRmS50pRvd6UFPetGbPvSlH/0ZwD8M
ZBCDGcJQhjGcEYxkFKMZw1jGMZ4JTGQSk5nCVKYxnRnMZBb/8h+zmcNc5jGf
BSxkEYtZwlKWsZwVrGQVq1nDWtaxng1sZBOb2cJWtrGdHexkF7vZw172sZ8D
HOQQhznCUY5xnBOc5BSnOcNZznGeC1zkEpe5wlWucZ0b3OQWt7nDXe5xnwc8
5BGPecJTnvGcF7zkFa95w1ve8Z4PfOQTn/nCV77xnR/85Be/+XP0ByIwQQhK
MIITgpCEIjRhCEs4whOBiEQiMlGISjSiE4OYxAry/z/jfwZDhRA=
"]]},
Annotation[#, "Charting`Private`Tag#1"]& ]},
TagBox[
{Opacity[0.], PointBox[1590]},
Annotation[#, {{Callout}, Charting`Private`Tag, {794}}]& ]}], {{{}, {{},
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.975470897625*^9,
82906.}],
Offset[{-8., 9.797174393178826*^-16}, {3.975470897625*^9, 82906.}],
Offset[{-10., 9.797174393178826*^-16}, {3.975470897625*^9,
82906.}],
Offset[{-12., 9.797174393178826*^-16}, {3.975470897625*^9,
82906.}],
Offset[{-12., 9.797174393178826*^-16}, {3.975470897625*^9,
82906.}]}]},
{LightDarkSwitched[
RGBColor[
0.6666666666666666, 0.6666666666666666, 0.6666666666666666]],
AbsoluteThickness[1.25],
BSplineCurveBox[{
Offset[{-3., 3.6739403974420594`*^-16}, {3.975470897625*^9,
82906.}],
Offset[{-8., 9.797174393178826*^-16}, {3.975470897625*^9, 82906.}],
Offset[{-10., 9.797174393178826*^-16}, {3.975470897625*^9,
82906.}],
Offset[{-12., 9.797174393178826*^-16}, {3.975470897625*^9,
82906.}],
Offset[{-12., 9.797174393178826*^-16}, {3.975470897625*^9,
82906.}]}]},
{EdgeForm[None], FaceForm[{RGBColor[0.87, 0.94, 1], Opacity[
NCache[
Rational[2, 3], 0.6666666666666666]]}],
PolygonBox[{
Offset[{-12.000000000000002`, 5.500000000000004}, {
3.975470897625*^9, 82906.}],
Offset[{-11.999999999999998`, -5.499999999999996}, {
3.975470897625*^9, 82906.}],
Offset[{-43., -5.500000000000003}, {3.975470897625*^9, 82906.}],
Offset[{-43., 5.499999999999997}, {3.975470897625*^9,
82906.}]}]},
{LightDarkSwitched[
RGBColor[
0.6666666666666666, 0.6666666666666666, 0.6666666666666666]],
AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
StyleBox[
RotationBox["\<\"82906\"\>",
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.975470897625*^9, 82906.}],
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: Thu 1 Jan 2026 22:15:31 UTC\"", 12, StripOnInput ->
False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}},
DefaultBaseStyle -> "Column",
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"],
TraditionalForm],
PlotRange->{{3.729024*^9, 3.9762144*^9}, {0., 253021.}},
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {None,
Scaled[0.08090169943749476]}},
Ticks->{{}, Automatic}]], "Output",
CellChangeTimes->{
3.867186551570758*^9, {3.867186680772122*^9, 3.867186699782072*^9},
3.867186777935874*^9, 3.86718694202357*^9, 3.867187051044989*^9,
3.867187255654533*^9, 3.867187310041932*^9, 3.867187431429256*^9,
3.867187477376759*^9, 3.867187602705633*^9, {3.867190444725642*^9,
3.86719046295945*^9}, 3.867190761611189*^9, 3.867190819779409*^9, {
3.867190852467555*^9, 3.867190875035033*^9}, 3.867191085771729*^9, {
3.867191139927058*^9, 3.867191174532995*^9}, {3.867191217100472*^9,
3.867191249934973*^9}, {3.867191282486545*^9, 3.867191309118765*^9},
3.867191362884745*^9, {3.86719139757495*^9, 3.867191417861985*^9},
3.867191469212702*^9, 3.867191534117766*^9, {3.867191566041802*^9,
3.867191590853747*^9}, {3.867191700666916*^9, 3.867191770546698*^9}, {
3.867191813970607*^9, 3.867191837153657*^9}, {3.8674436061237383`*^9,
3.867443624613255*^9}, 3.867444944515202*^9, 3.867445839945568*^9, {
3.867445870303279*^9, 3.867445881911745*^9}, 3.867584995471957*^9,
3.867585478130906*^9, 3.86774687062293*^9, 3.868098851430778*^9,
3.868523516725683*^9, 3.86906681078651*^9, 3.869308928711943*^9,
3.869735161175044*^9, 3.870007810203533*^9, 3.870340372505321*^9,
3.870340403401229*^9, 3.87045361082372*^9, 3.870942972286525*^9,
3.8713065010498323`*^9, 3.871395829118849*^9, 3.871641630959985*^9,
3.871642275253429*^9, 3.871899229411577*^9, 3.8720932523644876`*^9,
3.87242839478826*^9, 3.8729292766301403`*^9, 3.8736608832707767`*^9,
3.874069338302347*^9, 3.874325909186389*^9, 3.874696457503956*^9,
3.874861895344188*^9, 3.875050962875978*^9, 3.87526519097518*^9,
3.875891090297274*^9, 3.876342003848527*^9, 3.876998312579729*^9,
3.8772936096656237`*^9, 3.877382516377141*^9, 3.877964348832008*^9,
3.87804450687954*^9, 3.878470212323723*^9, 3.8786395885601797`*^9,
3.878639620334971*^9, 3.878757847201033*^9, 3.879112223224792*^9,
3.879170520951467*^9, 3.879289724404871*^9, 3.879371591147833*^9,
3.879797285624524*^9, 3.879923975629261*^9, 3.880151317819726*^9,
3.880393658429194*^9, 3.880543046724104*^9, 3.881056375670085*^9,
3.881325738216374*^9, 3.881334367469533*^9, 3.881592959478129*^9,
3.882027365892887*^9, 3.88219345383886*^9, 3.882466370101098*^9,
3.882613249735723*^9, 3.883174805016778*^9, 3.883439999108673*^9,
3.883605359783735*^9, 3.883843869256338*^9, 3.883866592728613*^9,
3.883867143448183*^9, 3.884153915891087*^9, 3.884641124197339*^9,
3.884773401559798*^9, 3.884775165607097*^9, 3.88477566967144*^9,
3.885548303427269*^9, 3.885831123028147*^9, 3.886191584864834*^9,
3.886621436378044*^9, 3.886855243870946*^9, 3.887106308113074*^9,
3.887235622274569*^9, 3.887498860649525*^9, 3.887834971429055*^9,
3.8884179282247667`*^9, 3.888752672205769*^9, 3.889131678960092*^9,
3.889875549917007*^9, 3.890245716755601*^9, {3.890686789876093*^9,
3.8906868143380527`*^9}, 3.8908207849213142`*^9, 3.890908186110266*^9,
3.89090978001711*^9, 3.891285151358225*^9, 3.891545263571479*^9,
3.8916073042523813`*^9, 3.891872341652968*^9, 3.892072401751935*^9,
3.89228235594491*^9, 3.892544999424947*^9, 3.892806179970969*^9,
3.893095552437428*^9, 3.893172375102555*^9, 3.89362060069613*^9,
3.893686053639799*^9, 3.89397203764882*^9, 3.894751203039884*^9,
3.895084844111672*^9, 3.895439490125032*^9, 3.895526321693917*^9,
3.895657784061549*^9, 3.8957448599055853`*^9, 3.895931247787265*^9,
3.896013566564756*^9, 3.896095386373332*^9, 3.8965191786429*^9,
3.896893631393726*^9, 3.897216178858164*^9, 3.897657754621402*^9,
3.897926194231195*^9, 3.898379414999449*^9, 3.8983794476037083`*^9,
3.898434292317229*^9, 3.898951274337104*^9, 3.899121622375916*^9,
3.899475149831279*^9, 3.899911501496304*^9, 3.900175205856585*^9,
3.900270527812401*^9, 3.900491563343502*^9, {3.903025185560467*^9,
3.903025205982198*^9}, 3.903174150401764*^9, 3.903182074275147*^9,
3.903383990135808*^9, 3.903384025396119*^9, 3.903726387165244*^9,
3.903971852825098*^9, 3.904336629052966*^9, 3.904556665826528*^9,
3.904660734636202*^9, 3.905083048189001*^9, 3.905285129053268*^9,
3.905441042720232*^9, 3.905782272103561*^9, 3.906106379419388*^9,
3.90620708413487*^9, 3.906558811905631*^9, 3.906635301595938*^9,
3.906908194396344*^9, 3.907055587466549*^9, 3.907452024145508*^9,
3.90783837173269*^9, 3.90797214412626*^9, 3.908034764359009*^9,
3.908469310792593*^9, 3.908732154353013*^9, 3.908732190062996*^9,
3.908901085229148*^9, {3.909427575397406*^9, 3.909427588602787*^9},
3.909612415221402*^9, 3.909847575834868*^9, 3.909936481017467*^9,
3.909991254378272*^9, 3.910005424673617*^9, 3.910456143107051*^9,
3.910647476573389*^9, 3.911433387460314*^9, 3.911728222756092*^9,
3.9118237070907784`*^9, 3.912544596386341*^9, 3.912962757486238*^9,
3.91332901505127*^9, 3.913585485561975*^9, 3.914191899559814*^9,
3.91452905381531*^9, 3.914864261401607*^9, 3.915353459292568*^9,
3.915612436883578*^9, 3.916243653217845*^9, 3.916581681635819*^9,
3.916758553791595*^9, 3.917042927532581*^9, 3.91779822205876*^9,
3.917830311292558*^9, 3.918163568568325*^9, 3.918587407268053*^9,
3.9190016728292847`*^9, 3.9195037040688963`*^9, 3.9198942834595957`*^9,
3.920234712218867*^9, 3.920662078423338*^9, 3.921093853155019*^9,
3.921237317218327*^9, 3.921696325797345*^9, 3.921851598339695*^9,
3.921851647511963*^9, {3.921851723783431*^9, 3.921851736631104*^9},
3.921851789631633*^9, 3.922439881880352*^9, 3.922748366740074*^9,
3.923045431914585*^9, 3.923572464604835*^9, 3.923778956655144*^9,
3.924544421212076*^9, 3.925203572822671*^9, 3.925848169754739*^9,
3.925848217744079*^9, 3.926438083805722*^9, {3.9264381205815907`*^9,
3.9264381421853952`*^9}, 3.9268502289991503`*^9, 3.927388977392035*^9,
3.92757446555766*^9, 3.92782075468937*^9, 3.927990566625127*^9,
3.928273181747738*^9, 3.928273253177276*^9, 3.928445235964464*^9,
3.928879595108038*^9, 3.929093886948715*^9, {3.9293606314921618`*^9,
3.929360652965334*^9}, 3.929714464833693*^9, 3.929988766810141*^9,
3.930079284149286*^9, 3.930510896991767*^9, 3.930510938300539*^9,
3.931113466961287*^9, {3.9313767836902103`*^9, 3.931376810889453*^9},
3.9316146196756153`*^9, {3.931804387786202*^9, 3.931804406214263*^9},
3.9321123856670113`*^9, 3.9323876432660027`*^9, 3.932802530588872*^9,
3.932934182040694*^9, 3.933185625332106*^9, 3.933683992394909*^9,
3.933944168693449*^9, 3.934049101145823*^9, 3.9341340358613033`*^9,
3.9344541086606693`*^9, 3.934663074849002*^9, 3.9349695431536903`*^9,
3.9352387720342407`*^9, 3.93550336171005*^9, 3.93586909609081*^9,
3.935941745580612*^9, 3.936030389292848*^9, 3.93628015526616*^9,
3.936444367786038*^9, 3.936805488935912*^9, 3.9369590965559273`*^9,
3.937168651459606*^9, 3.937300611594054*^9, 3.937489671622321*^9,
3.937558235442833*^9, 3.937671079329116*^9, 3.9377615200370893`*^9,
3.93785808991883*^9, 3.938034788460722*^9, 3.938290929252728*^9,
3.938718791109577*^9, 3.938985933523465*^9, 3.93932711736786*^9,
3.9395541667847223`*^9, 3.94002264823391*^9, 3.940365418251431*^9,
3.940587757835065*^9, 3.941041083594245*^9, 3.941391262071135*^9,
3.941465460154566*^9, 3.941819366459153*^9, 3.942176463258642*^9,
3.942342955722383*^9, 3.942484441050716*^9, 3.9430232620045*^9,
3.94328565204541*^9, 3.9433497081629467`*^9, 3.9433859356078568`*^9,
3.9433859659393463`*^9, 3.9435418083866587`*^9, 3.943708057618864*^9,
3.9439622686622868`*^9, 3.94423934466717*^9, 3.944331366932857*^9,
3.944582807320376*^9, 3.945035698250413*^9, 3.9451872226369143`*^9,
3.9454275730998573`*^9, 3.9459669237252493`*^9, 3.946485490114737*^9,
3.946590997909848*^9, 3.946810796910342*^9, 3.946937977333229*^9,
3.947344865914122*^9, 3.947710724624213*^9, 3.948372183091978*^9,
3.948807734073106*^9, 3.949085720055255*^9, 3.9492552569328833`*^9,
3.949864583797016*^9, 3.9503955533275433`*^9, 3.9504852994318953`*^9,
3.9508904745101633`*^9, 3.95121634226016*^9, 3.951564384377158*^9,
3.951987570390267*^9, 3.952185461763713*^9, 3.952508849594125*^9,
3.9528851002469673`*^9, 3.953236732526196*^9, 3.953462174480653*^9,
3.9538880422373447`*^9, 3.9543605056707287`*^9, 3.954598191475656*^9,
3.954598246028067*^9, 3.954598277031808*^9, {3.9550490935789633`*^9,
3.9550491123226423`*^9}, 3.955401042607274*^9, 3.9557243571820517`*^9, {
3.955724401130506*^9, 3.955724435107072*^9}, 3.955724636672626*^9,
3.955724670569713*^9, 3.956329854105036*^9, 3.95633001832055*^9,
3.9563301535009117`*^9, 3.9565737199823647`*^9, 3.956601400125139*^9,
3.956601516023966*^9, 3.956780802534404*^9, 3.9573824486764402`*^9,
3.9578656300784273`*^9, 3.9580609764046707`*^9, 3.958279486555559*^9,
3.9587304389769077`*^9, 3.959017511434112*^9, 3.95926793864137*^9,
3.9593680633173532`*^9, 3.959705236257415*^9, 3.959891773532778*^9,
3.960299152278488*^9, 3.960552682478962*^9, 3.960716245398271*^9,
3.960982670874343*^9, 3.9612440530188007`*^9, 3.961364455456285*^9,
3.961418758806306*^9, 3.961420546415202*^9, 3.961705409006983*^9,
3.961862765641695*^9, 3.962272280228839*^9, 3.962532718589654*^9,
3.962913765110361*^9, 3.963061701744007*^9, 3.9632284319349747`*^9,
3.9636528527151117`*^9, 3.9641288435811*^9, 3.9641866630959797`*^9,
3.964601789720335*^9, 3.965039779511491*^9, 3.965040637806281*^9,
3.96550628803647*^9, 3.966074950714575*^9, 3.9663677781941977`*^9,
3.966868575532692*^9, 3.9669375244292316`*^9, 3.967841844229856*^9,
3.967979967649527*^9, 3.9684273980794783`*^9, 3.968586867999625*^9,
3.968959285335794*^9, 3.9693528666939373`*^9, 3.969659092696043*^9,
3.970428581468186*^9, 3.971001881582623*^9, 3.9711250958528423`*^9,
3.971301425842854*^9, 3.971530091065292*^9, 3.971884977210294*^9,
3.971903190420867*^9, 3.9722487649795437`*^9, 3.9724769402845163`*^9,
3.972758031475328*^9, 3.973263412923716*^9, 3.973447937794261*^9,
3.973716818418956*^9, 3.9738701190470047`*^9, 3.974455883583808*^9,
3.9748319918864517`*^9, 3.975168268164909*^9, 3.9756699581561117`*^9,
3.976294531792598*^9},
CellLabel->"Out[13]=",ExpressionUUID->"f9340f16-95ef-4c85-b054-a3be997e94e2"]
}, 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[CellGroupData[{
Cell[583, 22, 5536, 130, 23, "Input",ExpressionUUID->"e5e34011-aa3d-4e95-90b1-863054ac32f5",
CellOpen->False],
Cell[6122, 154, 762, 13, 53, "Output",ExpressionUUID->"dd3d4a13-4be1-43d0-a55e-c90635a488d8"]
}, Open ]],
Cell[CellGroupData[{
Cell[6921, 172, 5482, 117, 23, "Input",ExpressionUUID->"55c17c4f-14a9-40f1-a01c-ab0b0c9b3309",
CellOpen->False],
Cell[12406, 291, 30034, 549, 587, "Output",ExpressionUUID->"f9340f16-95ef-4c85-b054-a3be997e94e2"]
}, Open ]]
}
]
*)