(* 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[ 34569, 749]
NotebookOptionsPosition[ 33706, 724]
NotebookOutlinePosition[ 34134, 741]
CellTagsIndexPosition[ 34091, 738]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData["\[IndentingNewLine]"], "Input",
CellChangeTimes->{3.9838230626051273`*^9},
CellLabel->
"In[354]:=",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[355]:=",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:eJwN0E8ogwEYBvBP2bJRNkk2xaa+FBqHURJ6EYZmQ+FE/h2WctnCyXIbhcvk
f8ww22xs9jkQOyAJKVLGCtsU9ZoiclDew9Pv9DyHR97Z39gTwzBMDqUg4Q36
ZxAC2ml+7yyCsVUs85NtuhpdxRwC6z6uHCczQxUq5zyC3uR771pAsBYZ5XGL
CI/iw9Q/svBLLVIsIUylcMF2sqO0+nqUNGlcJw3LCC+mhEQrubZrZgPkVZXv
J8uCwO3LQLKC8M1aeobIIPrz0q0Iotpu6SlpDvuaZKsI2jq2TE+WR0Mfp+RT
n3Q5fh1ByY/qYm0IAwoxoyTrsxvPjkh7sU0o2EBIljhUStK9M9biILmg4ODe
jsC/qJwcdiCcTwifeU6ES4laM0JyrxOq5k36QW9Q35K2SHfaqIt2Q3bvJznf
Ft4zuKmfu2272ULIdw36Zz0IuRm8SIkXwXP38Ju0g/APZ0q03w==
"],
CellLabel->
"Out[358]=",ExpressionUUID->"176738f5-2722-4dda-85ae-054e2a03f2ad"]
}, 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[365]:=",ExpressionUUID->"55c17c4f-14a9-40f1-a01c-ab0b0c9b3309"],
Cell[BoxData[
GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJzt22eQFFW7B/Am7xJHRAkqNAiSoQkimQaUoAgDIhlpWElKGBARSbZIjk0Q
FhBtAUlLGBGXFVFaTEuSAQlLbgmyhGUHENglvnef/39u1byFVbfqfm2+rL86
6TnPOdNhxlO6z9AOfbMrijIqt6Jk/f2ff+bM5CtNs/7D7XxFf4yDif9ip2u0
zXZiX75dsN5JHOhF22+K7WkRo7/QN7QDazG76W5iqwftdhc7k2l9SbTVnmL1
RKQ9bFbfAxt9EG9XWu2PeDfSNqynROrPT3ucA9n30isRfydaTUD8CbT+jdg4
TDubMZ9HtA2r4/dxfqOjbTdA/AdpNf2yxH+f1q+K3Rf+oC+I9TG0cUqslN1P
nxE7e//NB8Xh27QK+18L0Zsw/hehyPww/i5agfWSB7gftogDrWh3pdh45iDn
l4Dxh9LOHIx3jTYt9D/oT7YfJ7afOsT2pjjUhFZhK5VWumA+DQ+zHDa/PxzZ
v8hPgaMc7zTaz4jYFat5U5ife5j/VNqdjv1zirZnYT9MOsbxP4u2uzTaDqwd
p9Wt2C85j3O8/dgv1Wj9uDg8gTZzXJV4Kp9gf7HiwKF/sVtAHKpwkn5ObB2g
zRRxuNwpxt/xmuRrJa22F7sZtJson4fQntNsv1Ws3jzD+mPEwWEuy+fh81Pi
L84nE+2HRJxN+lcXnmU+64t9A88xnjix1u88y4+InfO0OxXt612ga4n9cRFX
RH/5/46KX4u9yHg3iK2etOv/L3cVh7+mnS5id2IqfR35znGJ8+2OfHemjXRc
rypd5nh5UX/VFc4fVspdZf1xqL+Ptofj+mWnsf1Y7J8b1xjfp/h8PZvO+iPE
vvgw4zlzKcv6zoh9+Dxsv8H85gpn2f7uJsvXpUv85yJOEjuJ/3C+bcT+F2/R
s8R6zG2OP1NsVb9Dn8d6pNDGBXGoYib9pNQPv3CXXnBD1rM9bcdKua/sPc43
Hfuh9H3Gf+usxPcFrcKBZx6yvwyx9gutFzkn9Zs9YnlRsb5AuQqrYq1/NljJ
KzZnZ4edXGJ7Rg7YjEF/U3OyfR7Ur5GL3o3xN+RmfxvF/nV5YHeVWB8Xw/qJ
YmtlLKwHxeYHedk+AfXVfIxnith4Lj/76yp2hxRg+74Yf2FBlteQ+KzLtFoZ
8RcpxPnAwYsRl0B++vnY/imxmr9wVLm/TsTFUT/2Sdiuh/G0InRd9F/1KfYH
hyo9TV9E/j+KOBXxPaDtq2L3blH6pljJKMbxM9H+12fo+4hv57PsD/a9+xzL
H6H+gJJ0u/NZDvtKsf8+YnMObU4SB7+LeJZYy1ea/S9EeY8yLF8qViY+T3dH
PrKXZf4LR9vpFW37Scy/Cq2skP4Ca8pxfVdj/PYvsL+NYn/b8my/RWyUrMjx
+6G/4REPQH6u0/Zdqe8OrcT+L4mtK5W5P9OjbcPqO1U4/xsYf0HED9Ff4aps
/wj1C1Tn+CnIb2/acMU+l7YvY36nNOan0AWZT54a7B/2H6f1wuJQ5VpRVjrR
7jTM/yHtxGE/HqjN8rewv+7RJtZD97/4eKuob31Qh+V9xOE9tI365qsv0e+h
/88jfhf7f1hdtk8XG2FaeZQq8b5cL7Jfo+38lxVFrvf+n+tF8i/lwaL1mY+7
Yt8g2j0p1hfS6mdiY34DlheR/tSGDekXxaZF65Vwf6nXiPFVF2v5GzOeRmJn
Oq02Q/taTdhfg/+T9ZO0Xj/aKqxt0lneRhzu3JT7SUc+1tP2y2Lfm81oQxx6
QDsK7qdjm9Ol8Dx5l1Zex/Pgipc5Xhyef8u8wvHG4vm3Da3ifqzsiZR/hP5L
teD8ykfbmI/n0da0PRPjL6OVRbh/P9uS/W9GPC0iTsTzc4B2tiK+X2kD9UPN
W7G/42ItnrZTH+uw3pr98Xn4Eq3cwfNG41dZfg39/02r7fF82/c15qtotNUK
eL6Z2Yb5KCrPQ24ibVeMtlpJrOd7nfOpIdZO004Fsf9EW7bPJjZztaNzi+3s
fvZXHM+/Fdtz/xZE/+07sD5stH2D9R/geXwvbeTEeKU7cvxMvE/+Q7v5rkbZ
gUPD34x8vqW+sozW74n9v3Rie8azqDPHK494FnRhfNUwfv+urL8M+bpA63PR
vn43utFjHUqinbFi1e3O8mPoP28Pzv8M8lmbdlDuTqXd2ej/FG3cwnof78l4
q4jdyr1Y3g/vRw97Ra6XeB9+oXfk/oZ8Pt+H9ZejPzWO6/UH9k/LtxnPIXzf
UKIv26/F+1Qa7Y7B83XRfsw/9mPwMm2XwPuRNYDlCchHoYHs7xPMP45W3sX7
TZ13OH4/vN9Mp+1yeJ+o9S7z10DaOz3fjSoPT6HNimIz96DHW20q7X2TaKWu
lNs5BjO+7ni/mTA4cr9H/5WGcLwhWJ8OQ5nPlfj8lAuw/FfMN4PWt+B9pdRw
lm/C/rtBGzMwnxbvsXwE9suvtGnh83Z1BPMfj/zueJ/9/4h8zhvJ+k+kRVkp
jPfJ7dF2/6bdxphvwVEsN5DvPhHjfdSZSdsfob9eHzL+OehvGu0uxPr1GM31
3Ib+v6bdRLxvThzD+EvifWhjxMfxvtJ5LPu/Kw4k0Op9vB+tGcdyVd6/1PLj
I/dXsb897Z8pDrT9CA6OEBulTfY3VBxs9THrrxbrv9PWDXmfUgITYC3PzSyH
m33C9hXFwSu0lSD1Q6kTWX+slDvfT+L6dPxH4vVNhn0jbkbZPwH9zaZDiWLf
OdpdK7Z7T2G+2olDM2jnDbGSSPu6R9sejvG+mcr4f8N4Naaxv9MYbzLtrEf7
rtPhwBWxdZT26zKf4KEZbF9TrNyfyfhjUf7BbI6/D/GOmEN/hXwOszi/ZLEZ
prUMxDN0Ln0L+bw8j+v/PPr/YT77ayZ2L9KOJvW1Qp+y/0FS7syirblis85C
1k8Rh3ougsNNb2XZvyme81HFbtXFXM/m4pCyhPk5JlYq03b22zLen3ToZ/TX
YSn7zyPlvnu0Xkasl/uM5QvEWgbt3yJW9yzjeCvEgRufR+6fYiv9C+anDuoP
sZm/lmJzJ20PFYcufcn6qzBe4+X8vBxA+ydWcL5/id3vaO3iY233Wcn57kD7
LV/xevI34j2xivGmi5VuqzmfNMSfQvti70i+Pl7DeIPi0MG1bJ8zI8pWDnF4
/zrOZ7fUD45K4Hx+Fet3aPOQOFB6PfN7V6zYtF5Z+rNKbmA81cVOK1prJQ4+
s5Gfpzli+xodnhTtkCXWBm/i+FPQ/0+0L16s6kG2Xyt2U+nABIlP821m/WNi
oz4d+EXszKZDl5G/At9wPtulP18ibVTJlPnn3UK/KLZr0+6byO9bdHgI8tv9
W+Z/KeKrlsj1OYn+u9LO+WhbcCjbVs4/Ffk8RIf2SLzmuCSu1xGsx/7v2P+f
yF8mbU5D/l7fxvVYhvztpY2tYlP9nuvbUhy4SVuDxcZv2yPrq2T99S/+gfU7
35X1TaO198W28yPr7xQbA3dwvmlitbDD/D1zT+Z/gbaKi+24nxhfK7GRfyf7
n4f239JqP+S3589sv0rq65tp+1uxNukXrk8Ncbjqr8yfIXaV39i+6H3J50Pa
eD9b1l9n1e+c7ySxeo/We0h7s10y+x8uDpTZxfltl3hDI2nrz2jbsPr5bs6n
7yPJx7A9XL+RqF98L9d/m9jaSQd3PJD5PL2P9feLzU/poCv1tSf2wym/YT5z
aGeFEuWpsHqe1t6R+QT7hOhMxLeVtotI/UC+Axw/LOXaFjrmWfQ35SBct5FY
n/gnnNpEHMp+iPF0RTyH6ZgPsd86HoYzPhX7HtDmWvRX/gg8aqvYKHuU7Tdj
/H10KBn93aGT9ond91O4Pn9hPv/QSjria3WMziv5s67TRi1x8NpxXl+qZc/6
q+knOf4wsfrkKdZfLA7OpQfY4kD905y/Kw7NptdcR3/n6MANsdP7DByfJ4fk
Y5oLd2kuVnr8xf05RmxuOMv5Gahf5Rzz31Osd6LVbmJr3Hnun0NiZ3XEB8XB
0RcY3wr0t58OzEV/mXRyAuJZ/jfjXS7W9tJJizCeepH52onxXqXds4j/Jq1t
FbstU7keuzDeZ3RK85ySvxKX4AppGG/opcj1Ssr9gy5zv5cQu5cjrikODLzC
fNYRGw2vcn7txI5FT30D/RVK4/6eKw7G0fZSxGNc4/XhL7EVm872meivFp1U
MJf0t5mOf0nsamGO30KsVLvO+pPExgQ6I1Hse3iD+WmQO+uvPfYm4zPERrl/
eH3+QOzPoLVvxe7IWxw/QRy4RVtb0V+p28z3T+gvmdbui8Mt7jD/1fPI+gzJ
gFvNECtFM7keP4qdHXTyIXGgwT3Or3WMrN95WokTq1vvM74ZYjPfA/Z3O9rx
B7Cep+mU82Kl50OuTzfJlzaF9vcXO7ke8fPzjljtRvsni82NtLVerHdW0sSj
1olDh2njHNanYzb6ecmPNZ6OaSk222eHBwwSB8fQRkCs36WTdohVOydc1yf5
CpbMBa+pjfz9TodfF9vXab8f+W+RG47vJdYCdMwYsbGErmuJrV8i5UGs1zV6
6ipxuFge2P1C7F6hY45g/AUxsHkJ/TeKhZWCsl5+X15Yqy92Z9NJLcWh3vng
1NFiZSZdbDz2w7T8cHAL1v8UbW8T65MLwBlnsZ+6FoSt2FiZz1G6VRtxOFsh
xt9OrFahgx/nlf5NetTnYvcQrWL+gcVPMX5YKfY0HHLweXdodyXuR02KMt5E
sTmQ9i3E/ahhMTh5mVj5nrZx/9Mu0DGHxeFZxeGUsDhYpwTL+8v9yjXoUePE
duwzsBMvDtWi664RG5vp5JN4fsj9LPNxFve/Y3QX3P8CE55j/fZiez3tH4j7
2xE66UPcz9aWZP4Sxf4KpbgfDuJ+OZa2LqD9hyrHq47r+x+02hb3jzaluV/G
i8MjaWW6WP2Srjsb968RZWjMP5BMW6vF/iFluX9aI39X6dDHYl/RcszHFORn
3gtcn3Vis0F5xrdfrJ+n66aKlVkVWO7D/LdUZLyfid2alTj+T8jnCVpNRf5S
KnN9G8h8/J2rMH9xYnt8VbZPFhvlqzHeIWg/hjZmi82y1Tm/02JlpMbP7xbk
26aTE5HvkjW4n8vj/nednrpEbP9Sk/Vr4vr6Uy2u/3ZxcEFtxlsY95tGL7K8
H+4vvjqMfwPuV+doaw+unwVeYrwx+Ly4Efd6qGf9qV2Xn6cJYrVHPa7PErGb
sz73f155fg18Qgd6iy2zActfEquPaNcvtv2NeP2tgefN5Y0ZXwri2dWE+7E9
9kdY5/V5Ez4/Pzfl/PJjfzvNuP6rxUaT5lyfXViv+fQANUeUK/TD85H1Muc7
Bc9HF+hi2/A8NvsVjp+J56/8LZiPWrJe6gw6Gc+rbq2WnP81fL43t4xcv7G/
TtJuKcRzrBX3YwDxHGnN9RiO+h+9yvzEI55DtP4z9meF17i/8bypHqBjimN/
tWvD+dXD/irzOvfPNNzfP6CVxXh+20PH/y42k9syn0XwvNSyHct13M+H0eG2
4sBSulgHPC+87Od6jcd+3kmv+RzPb03bc33q4/lyR/vI/RjPI407MN5BYu0i
PeC1aPtzyPuo1eAN7scf5X1M3UbripSbBTsyv8+L9a203VFs53uT+RiA91uD
tgeKjS203lrsxHTi572vOFwz4kFitSetrYy2tRrxfN0pcv0T+7TOXM+vxYGJ
tL4d43fuwvIz6E/pyvGOiN01dPAFeb/VH9BGF7Fxtxu9Du/Do7ozX4vwPnyH
VjeIA7t7cD9/Ldbe68nxEtDfMtqdKVZbvMX5OmJf8V6cbxLiaU7b34vtRb2i
6jsLDK7nKrH/yd6czxLE16h35PMqDvanA5bYnUsbIzHe37TSWRx6uw/7L4j4
z9F2MvZPgTjWX4v8zox4E9an19ucbzzW5xs6WAv7pWZf9tcd7av3Y/6WYb9V
6c/1vIX9ZtKKIvEoh2ntWcRXcQDjvYf+DtLOWMx39EDG8yXq732H7V+V67X/
i3dZvhTX7+cG8fOVR67H+nDaLYnr9+LBbL9AHFw4hPshN75PuEK3isX7/vyh
LK8gthoGuD+q4nntAp00CN8/JA3j+kwU2/mHc/43ZDzj2+GR9cH94a33mC8/
vn/IPYLXj9G4X0yik/B9h9HlfV5/puN5pPJIuO4jPI+spWPW4/4x9gPeb3C/
d9qNYjzX8HzwB202wfXz1ofMP55PtRGj2X92XN9u0Eml8D6aPobxz5f7r5I2
lvlKw/266TheT9/A+8EOustNvB/MGw+n9JPn8cATH/HztA7P9xat5Zfnb20b
HayB5/M+Jue7WGz+RSe9J8/j+vSPef+akU/yETOB61M2v/TXk+5Su4DM7wSd
Wrmg5KfbJ/RZsTmRDjSW9sGNdMbP0l6vOpH52yTj2x/TaoyMb3WcxPFixeqf
dHiE2LdqMvNhi/UQrf0gtstOYX+H0N8dOvm22Nw9leM/EAf/ocNFJF7792kc
XxNbS6bz89xEbA6eAVfoJw4tmMn9Uk7mZzWaxfwuFpu+2dw/meJgfVrNI/my
3DmMZwZ+v6ptMX+HxW6euXQu+T1J70GHJ+P3qOrzOH8T7Y/SRhx+jzPn8/M0
W2zcX8D9mIjvszM/ZXy18P308wu5fwqL9eW00w7fV9+mXX5f/cUijl8e37fu
WhS5v+L72lbxLL+O/n+j7R9kfP2VxSxPxO8PzZawf1N+33IW0s4s/L7WZCnr
z8fvdQPpYCp+L5z7GcvT8PtcvWVcn4rSn3mWDiwV22c+Zz5risO5bcbXSNr7
u9PmUfyeOIlW8XusXu1Lth8sv9faE2jjdfzee5RWYsVatuV0brH/YcSJ+P24
wwr2//T1LAfu0aE5Ym3lSn7+u0h7K4N2R4rDbb5iPuah/y9ptTV+L72xivG1
xX5JX838TsfvuSXWsP5P2H87aaUwfj9No90nMf+ia5nvhuj/U9qfhv9/+Id1
zPc6sds3ge37S/3Aedr+A78Px61nuSL5D7+4gfnNjvXbQludxXrPjZxvAn4/
PUFbI+T3P6PbJu73Kfh9MSHI8QZjvcdsZv9B7Key33D+r4rtO7RxF+sfOZ/D
f/9bzn/eeR7vPA/sneeR9t55Hu88j5R753kkfu88T+T3YbF3nsc7z4Ny7zxP
lL3zPFgv7zwP4/PO82TZO8/jnefBfLzzPBKvd56H+fPO80g+vPM8LPfO88h4
3nke9ued55H18c7zcD7eeR7Jn3eeh+vrneeRfHrneZhv7zyPxOed56G98zwS
n3eeh/n2zvPI/LzzPPz/VbzzPJJ/7zwP63vneWQ9vfM8rO+d55H5e+d5mB/v
PI/0553nYbl3nifL3nke7zwP+vfO80g83nke9ued58myd57HO8+D/rzzPDL+
/+c8z38AhEJLIQ==
"], {{{},
{RGBColor[0.24, 0.6, 0.8], Opacity[0.2], EdgeForm[None],
GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1lOwGIYSANAb27Zt2zYb27bd2LadtGls27ZttLH1Tl4+zuz+7s4sEjVq
X7ld4ICAgEDkC/I75g3yO89DbnKRkxxkJxtZyUJmMpGRDKQnHWlJQ2pSkZIU
JCcZSUlCYhKRkATEJx5xiUNsYhGTGEQnGlGJQmQiEZEIhCccYQlDaEIRkhAE
JxhBCULgXzUTwE+N+MF3vvGVL3zmEx/5wHve8ZY3vOYVL/mPf3nBc57xlCc8
5hEPecB97nGXO9zmFje5wXWucZUrXOYSF7nAec5xljOc5hQnOcFxjnGUIxzm
EAc5wH72sZc97GYXO9nBdraxlS1sZhMb2cB61rGWNaxmFSv5hxX8zV8sZxlL
WcJiFrGQBcxnHnOZw2xmMZMZTGcaU5nCZCYxkQmMZxxjGcNoRjGSEQxnGEMZ
wmAGMZA/GUB/+tGXPvSmFz3pQXe60ZUudKYTHelAe34NU1va0JpWtKQFzWlG
U5rQmEY0pAH1qUdd6lCbWtSkBtWpxh9UpQqVqURFKlCecpSlDKUpRUlKUJxi
FKUIhSlEQQqQn3zkJQ+5yUVOcpCdbGQlC5nJREYykJ50pCUNqUlFSlKQnGQk
JQmJSURCEhCfeMQlDrGJRUxiEJ1oRCUKkYlERCIQnnCEJQyhCUVIQhCcYAQl
CIEJRAA/Lb8ffOcbX/nCZz7xkQ+85x1vecNrXvGS//iXFzznGU95wmMe8ZAH
3Oced7nDbW5xkxtc5xpXucJlLnGRC5znHGc5w2lOcZITHOcYRznCYQ5xkAPs
Zx972cNudrGTHWxnG1vZwmY2sZENrGcda1nDalaxkn9Ywd/8xXKWsZQlLGYR
C1nAfOYxlznMZhYzmcF0pjGVKUxmEhOZwHjGMZYxjGYUIxnBcIYxlCEMZhAD
+ZMB9KcffelDb3rRkx50pxtd6UJnOtGRDrSnHW1pQ2ta0ZIWNKcZTWlCYxrR
kAbUpx51qUNtalGTGlSnGn9QlSpUphIVqUB5ylGWMpSmFCUpQXGKUZQiFKYQ
BSlAfvKRlzzkJhc5yUF2spGVLGQmExnJQHrSkZY0pCYVKUlBcpKRlCQkJhEJ
SUB84hGXOMQmFjGJQXSiEZUoRCYSEYlAeMIRljCEJhQhCUFwghGUIAQmUKDf
D9BP4Qff+cZXvvCZT3zkA+95x1ve8JpXvOQ//uUFz3nGU57wmEc85AH3ucdd
7nCbW9zkBte5xlWucJlLXOQC5znHWc5wmlOc5ATHOcZRjnCYQxzkAPvZx172
sJtd7GQH29nGVrawmU1sZAPrWcda1rCaVazkH1bwN3+xnGUsZQmLWcRCFjCf
ecxlDrOZxUxmMJ1pTGUKk5nERCYwnnGMZQyjGcVIRjCcYQxlCIMZxED+ZAD9
6Udf+tCbXvSkB93pRle60JlOdKQD7WlHW9rQmla0pAXNaUZTmtCYRjSkAfWp
R13qUJta1KQG1anGH1SlCpWpREUqUJ5ylKUMpSlFSUpQnGIUpQiFKURBCpCf
fOQlD7nJRU5ykJ1sZCULmclERjKQnnSkJQ2pSUVKUpCcZCQlCYlJREISEJ94
xCUOsYlFTGIQnWhEJQqRiUREIhCecIQlDKEJRUhCEJxgBA34/8v/6+wH/A9t
VIui
"]]]}, {}, {}}, {{}, {},
TagBox[
{RGBColor[0.24, 0.6, 0.8], PointSize[0.0055000000000000005`],
AbsoluteThickness[2], LineBox[CompressedData["
1:eJwl10O0GIYSANAX27Ztu2ls27ZtNWYb27Zt27ZtO/k35y/umdnOYpSoYbuK
bQMFBATkCRIQ8CcGRhoQlGAEJwQhCUVowhCWcIQnAhGJRGSiEJVoRCcGMYlF
bOIQl3jEJwEJSURikpCUZCQnBSlJRWrSkJZ0pCcDGclEZrKQlWxkJwc5yUXu
P7WSl3z8RX7+pgAFKURhilCUYhSnBCUpRWnKUJZylKcCFalEZapQlWpUpwY1
qUVt6lCXetSnAQ1pRGOa0JRmNKcFLWlFa9rQlna0pwMd6URnutCVbnSnBz3p
RW/60Jd+9GcA/zCQQQxmCEMZxnBGMJJRjGYM//IfYxnHeCYwkUlMZgpTmcZ0
ZjCTWcxmDnOZx3wWsJBFLGYJS1nGclawklWsZg1rWcd6NrCRTWxmC1vZxnZ2
sJNd7GYPe9nHfg5wkEMc5ghHOcZxTnCSU5zmDGc5x3kucJFLXOYKV7nGdW5w
k1vc5g53ucd9HvCQRzzmCU95xnNe8JJXvOYNb3nHez7wkU985gtf+cZ3fvCT
X/zmT/MHIjBBCEowghOCkIQiNGEISzjCE4GIRCIyUYhKNKITg5jEIjZxiEs8
4pOAhCQiMUlISjKSk4KUpCI1aUhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7+
Ij9/U4CCFKIwRShKMYpTgpKUojRlKEs5ylOBilSiMlWoSjWqU4Oa1KI2dahL
PerTgIY0ojFNaEozmtOClrSiNW34M7zb0Z4OdKQTnelCV7rRnR70pBe96UNf
+tGfAfzDQAYxmCEMZRjDGcFIRjGaMfzLf4xlHOOZwEQmMZkpTGUa05nBTGYx
mznMZR7zWcBCFrGYJSxlGctZwUpWsZo1rGUd69nARjaxmS1sZRvb2cFOdrGb
PexlH/s5wEEOcZgjHOUYxznBSU5xmjOc5RznucBFLnGZK1zlGte5wU1ucZs7
3OUe93nAQx7xmCc85RnPecFLXvGaN7zlHe/5wEc+8ZkvfOUb3/nBT37xmz+L
PxCBCUJQghGcEIQkFKEJQ1jCEZ4IRCQSkYlCVKIRnRjEJBaxiUNc4hGfBCQk
EYlJQlKSkZwUpCQVqUlDWtKRngxkJBOZyUJWspGdHOQkF7nJQ17y8Rf5+ZsC
FKQQhSlCUYpRnBKUpBSlKUNZylGeClSkEpWpQlWqUZ0a1KQWtalDXepRnwY0
pBGNaUJTmtGcFrSkFa1pQ1va0Z4OdKQTnelCV7rRnR70pBe96UNf+tGfAfzD
QAYxmCEMZRjDGcFIRjGaMfzLf4xlHOOZwEQmMZkpTGUa05nBTGYxmznMZR7z
WcBCFrGYJSxlGctZwUpWsZo1rGUd69nARjaxmS1sZRvb2cFOdrGbPexlH/s5
wEEOcZgjHOUYxznBSU5xmjOc5RznucBFLnGZK1zlGte5wU1ucZs73OUe93nA
Qx7xmCc85RnPecFLXvGaN7zlHe/5wEc+8ZkvfOUb3/nBT37xmz9HfyACE4Sg
BCM4IQhJKEIThrCEIzwRiEgkIhOFqEQjOjGISSxiE4e4xCM+CUhIIhKThKQk
IzkpSEkqUpOGtKQjPRnISCYyk4WsZCM7OchJLnIH+f+v8z+1sYsf
"]]},
Annotation[#, "Charting`Private`Tag#1"]& ]},
TagBox[
{Opacity[0.], PointBox[1656]},
Annotation[#, {{Callout}, Charting`Private`Tag, {827}}]& ]}], {{{}, {{},
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.98589385275*^9, 81830.}],
Offset[{-8., 9.797174393178826*^-16}, {3.98589385275*^9, 81830.}],
Offset[{-10., 9.797174393178826*^-16}, {3.98589385275*^9,
81830.}],
Offset[{-12., 9.797174393178826*^-16}, {3.98589385275*^9, 81830.}],
Offset[{-12., 9.797174393178826*^-16}, {3.98589385275*^9,
81830.}]}]},
{LightDarkSwitched[
RGBColor[
0.6666666666666666, 0.6666666666666666, 0.6666666666666666]],
AbsoluteThickness[1.25],
BSplineCurveBox[{
Offset[{-3., 3.6739403974420594`*^-16}, {3.98589385275*^9, 81830.}],
Offset[{-8., 9.797174393178826*^-16}, {3.98589385275*^9, 81830.}],
Offset[{-10., 9.797174393178826*^-16}, {3.98589385275*^9,
81830.}],
Offset[{-12., 9.797174393178826*^-16}, {3.98589385275*^9, 81830.}],
Offset[{-12., 9.797174393178826*^-16}, {3.98589385275*^9,
81830.}]}]},
{EdgeForm[None], FaceForm[{RGBColor[0.87, 0.94, 1], Opacity[
NCache[
Rational[2, 3], 0.6666666666666666]]}],
PolygonBox[{
Offset[{-12.000000000000002`, 5.500000000000004}, {3.98589385275*^9,
81830.}],
Offset[{-11.999999999999998`, -5.499999999999996}, {
3.98589385275*^9, 81830.}],
Offset[{-43., -5.500000000000003}, {3.98589385275*^9, 81830.}],
Offset[{-43., 5.499999999999997}, {3.98589385275*^9, 81830.}]}]},
{LightDarkSwitched[
RGBColor[
0.6666666666666666, 0.6666666666666666, 0.6666666666666666]],
AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
StyleBox[
RotationBox["\<\"81830\"\>",
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.98589385275*^9, 81830.}],
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: Sat 2 May 2026 15:33:36 UTC\"", 12, StripOnInput ->
False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}},
DefaultBaseStyle -> "Column",
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"],
TraditionalForm],
PlotRange->{{3.729024*^9, 3.9866688*^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},
CellLabel->
"Out[367]=",ExpressionUUID->"d6589494-a1b4-4c78-a969-e2479aedf2c1"]
}, 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, 1041, 20, 53, "Output",ExpressionUUID->"176738f5-2722-4dda-85ae-054e2a03f2ad"]
}, Open ]],
Cell[CellGroupData[{
Cell[7380, 185, 5486, 118, 23, "Input",ExpressionUUID->"55c17c4f-14a9-40f1-a01c-ab0b0c9b3309",
CellOpen->False],
Cell[12869, 305, 20821, 416, 546, "Output",ExpressionUUID->"d6589494-a1b4-4c78-a969-e2479aedf2c1"]
}, Open ]]
}
]
*)