(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Wolfram 15.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 154, 7]
NotebookDataLength[ 34344, 747]
NotebookOptionsPosition[ 33512, 721]
NotebookOutlinePosition[ 33940, 738]
CellTagsIndexPosition[ 33897, 735]
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"}], ";"}]}], "]"}]}], ";"}], "\[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,
InitializationCell->True,
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[36]:=",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.997518145782423*^9, 3.997781285134109*^9, 3.997983268910081*^9,
3.998334160773848*^9, {3.998593602266593*^9, 3.998593605970955*^9},
3.9989270399738493`*^9, 3.999183178792614*^9, 3.999353495273066*^9,
3.999464362072139*^9, 3.999959989384974*^9},
CellLabel->"Out[39]=",ExpressionUUID->"cf614bb7-ba62-4a7d-ae3d-7c8e612313ae"]
}, 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,
InitializationCell->True,
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[46]:=",ExpressionUUID->"55c17c4f-14a9-40f1-a01c-ab0b0c9b3309"],
Cell[BoxData[
GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJzt22eUFMXaB/Am7i5xRJQoNJLzEEQyDXhJIgyIZKRhJUkaEBFJtkiOTRCW
JC1wSUsYEZcVEZqkS5IBF1hyS1zCsgMI7BLfd5//f+45cw+e835/xy97f7e6
qp56qjpNUyV6D23fJ7OiKEeyK0rG3//9z5iZcLtxxv9wOt3WXmFf3D/Y7hJq
o63YlfMgrHUUe3vS1kdia1rQaM//I23D7shDdFex2Z12uontybS2JNRqD7F6
LlgfNqoehvXeiLcLrfZDvJtpC9aSgsfPT3mVvZmP0KsRf0dajUX8sbT2o1g/
SdtbMZ6XtAWr449yfKNDbdVD/CdoNfWWxP+M1u6InTJ/0NfE2hhavyBWSh2j
L4ntI//kE+LAI1qFPe/76S3of4U/OD70f5BWYK3Yca6HbWJvC9pZLdaLnOD4
YtH/UNqeg/7u0oaJ9gf9yfrjxNYbiaxviP2NaBU2k2mlM8ZT/yTLYeOXk8H1
i/zkPs3+LqL+jKAdsZojifl5ivFPpZ3pWD8XaGsW1sOkM+x/WaidpaG2YfdZ
Wt2O9ZL1LPs7hvVShdbOigMTaCPLHYmn4jm2FyX2Jv6Dndxif7nz9Fti8zht
JIkDpS8w/g53JV+rabWd2EmjnTg5H/yHL7L+drH64BKPHyP2DXNYPg/nT+G/
OJ501B8SdCZpX114mfmsK3YNuMJ4osXuvldZfkpsX6Wdqahf5xpdQ+yJDro8
2st1PSR+d9QNxrtJbPagHc9/uYs48ANtdxY7E5Ppe8h3lpscbzfkuxOtp+J6
VeEW+8uB49fc5vhhpfQdHj8Oxx+lreG4flkprD8W6+f+Xcb3Lc6voqk8foTY
FRNgPJduZljbG7QL58PO+8xvtkCGrZ8fsHxDqsR/Jeh4sR33N8fbWux55yE9
S6xFPmL/M8Vm1cf0VcxHEq1fE/vLp9Ovy/GBMk/oBfdlPtvRVpSUu0o95XhT
sR5KPGP8Dy9LfCtoFfYWecH20sTu/bSW/4oc3+QlywuItQXKHVgVu/tlgpUc
YmN2ZtjOJrZmZIGNSLQ3NSvrR+D4atnoQ+h/U3a2t1ns2RABO2vE2rhIHh8n
NldHwZpPbHyRg/Vjcbyak/FMEetv5WJ7XcTOkNys3wf9L8zD8moSn3mLVisi
/vx5OR7YdyPowshPXxfrvyFWc+ULKffUCroQjo96HbbqoD93fro22q/8BtuD
/RXepG8g/18FnYz4ntPWHbHzpAD9QKykFWT/6ah/oAj9DPHtLcr2YNfAt1j+
Esf3L0a3vZrhgKs42+8tNubQxiSx7+egZ4ndOUuw/YUo7/42y5eKlYkl6W7I
R+ZSzH++UNs9Q229jvFXopVV0p53XWnO71r0364M29ss9rQpy/rbxHqx8uy/
L9obHnR/5OcebT2R452hFdj+TbF5uyLXZ2qoLVj9tBLHfx/9Lwj6BdrLV5n1
X+L43FXZfxLy24vWHbHLoa1bGN8FN/OT95qMJ6Ia24c9Z2ktn9hfsUaIlY60
Mw3jf0Hb0ViPx2uy/GOsr6e0gfnQPO+82iqON7+oxfLe4sBh2sLxRqt36c/Q
/ndBD8T6H1ab9VPFeoBWXiZLvO/VCa7XUNv/ZUWR671nX51g/qXcV6Au8/FE
7BpEO+fF2kJaXSbW59djeX5pT61fn35HbJi0VgH3lzoNGF9VsTtXQ8bTQGxP
p9UmqF+jEdur93+ydp7W6oZahd1bNJa3Fgc6NeZ60pCPjbT1ntj1URNaF/uf
07aC++nYpnRxPE8+oZUP8Dy46j32F43n37f/xf7G4vm3Na3ifqwcDpZ/hfaL
N+P4yoZan4/n0Za0NRP9L6eVRbh/F23O9rcinmZBx+H52Uvb2xHfAVrH8f6m
LdjeWbE7hraSX+mA1pLt8Xn4Jq08xvNGw1Ysv4v2r9NqOzzf9nmf+SoQarUc
nm9mtmY+CsjzkBNHW+VDrVYQazk/4Hiqid0Xabuc2HOuDetnEhvZ2tLZxVZm
D9srhOff8u24fvOg/XbteTyst/mQxz/H8/gRWs+K/kp0YP/peJ/8m3Zy3gmx
DfuHfxQ8v+V4ZTmtPRV79ndkfcazqBP7K4t4FnRmfFXQf78uPH458nWN1uai
ft2udINX2h9P22PFqtON5WfQfo7uHP8l5LMmbaPcmUo7s9H+BVp/iPk+24Px
VhI7FXuyvC/ej170DF4v8T5cplfw/oZ8luzN41eiPTWa8/UH1k/zTxhPIn5v
KNyH9dfjfSqFdsbg+bpAX+Yf69F3i7YK4/3I7M/yWOQj7wC29w3GH00rA/F+
U+tT9t8X7zfTaas03idqDGT+6kl9u8fAkPLAFNooLzayD3q11cZS3zWJVmpL
uZVlMOPrhvebCYOD93u0X2EI+xuC+Wk/lPlcjfOntJflBzDeNFrbhveV4sNZ
vgXr7z6tz8B4mn3G8hFYLwdow8T5dmcE8x+D/O7+nO3vQj7njeTxr6WEWMmH
98mdoXau005DjDfPKJbryHfvoPE+as+kra/QXs8vGf8ctDeNdhZi/rqP5nzu
QPs/0E4c3jcnjmH8xfA+tDnos3hf6TSW7T8Re2Np9Rnej9aNY7kq719q2fHB
+6vY0472zBR723wF+0aI9RIG2xsq9rX4msevFWu/0+Z9eZ9SvBNgd8SDDAea
fMP65cW+27QZK8f7kyfy+LFSbv8yifPT4W+J1zUZdo14EGLPBLQ3m/bHiV1X
aGe92Oo1hflqK/bPoO0PxUoc7eoWams4+vtxKuP/Df1Vm8b2LqK/ybS9EfW7
TIe9t8XmadqjyXh8iTNYv7pYeTaT8Ueh/IvZ7P8o4h0xh/438jnM5PgSxEaA
dqchnqFz6YfI5615nP+SaP/X+Wyvidi5QdtuOd6d91u2P0jK7Vm0OVds1FrI
45PE/h6L4EDjhxn2bInheFSxU3kx57Op2K8sYX7OiJWKtJX5kfT3J+3fh/ba
L2X7EVLuekprb4u10stYvkDsTqM928Tq4eXsb5XYe/+74P1TbKauYH5q4fgh
FvPXXGzspa2hYv/N73n8GvTXcCXPl+Oo/9oqjvcvsfMz7b7xSlu9V3O8u1F/
2795PbmOeM+tYbypYqXrWo4nBfEn0a6ox5Kvr9cxXp/Yf2I962dNC7GZRRw4
toHjOSTH+0bFcjwHxNpj2kgUe0tsZH6fiBWL1ipKe2axTYynqthuQbtbiH1F
NvN8miO27tKBSaH2m2L34C3sfwra30O7YsSq5mP99WInmfZOkPjcrq08/oxY
r0t794vt2bT/FvKX+0eOZ6e054qj9UrpMv4c2+h3xFZN2vkI+f2YDgxBfrv9
xPwvRXxV4jg/59F+F9q+GmoT9mfazvEnI5+JtP+wxGuMi+d8ncJ8HPuZ7f+J
/KXTxjTk74MdnI/lyN8RWt8uNtRfOL/Nxd4HtDlYrP+2Mzi/SsZfz+JfeXyn
JzK/KbT7c7Fl7+Lxe8X6gN0cb4pYzWczf0Weyviv0WYhsRW9h/G1EOu59rL9
eaj/E632RX577GP9NXK8tpW2fhK7J+3n/FQTByofYP50saP8xvoFnkk+X9D6
55ky/tprfud4J4nVp7TWXeobbRPY/nCx9+2DHN9Oidc/kjb/DLUFq98d4nj6
vJR8DDvM+RuJ4wsd4fzvEJt7ad/u5zKeN4/y+GNi41va58jx7teOwUm/YTxz
aHuVEuKpsHqVdn8q4/H19tPpiG87beWX4705j7P/gJS7t9GRRdHelBNw7QZi
beKfcHIjsT9zIuPpgnhO0pFfYr11OAmnfSt2PaeN9Wiv7Cl41HaxXuo0629F
/0dpfwLae0zHHxU7nydxfv7CeP6mlVTE1+IMnUPyZ96j9Rpi392zvL5UyZzx
162dZ//DxOrrF3j8YrFvLt3fEnvrXuT4HbF/Nr3uHtq7Qnvvi+1el+CYiCyS
j2kO3LmpWOn+F9fnGLGx6TLHp+P4SleY/x5irSOtdhWb465y/SSK7bVBnxD7
Rl9jfKvQ3jHaOxftpdMJsYhn5XXGu1LsPkLHL0J/6g3may/6a0U7lxH/A9q9
Xew0T+Z8HER/y+ikplklf4VvwuVS0N/Qm8HrlZR7Bt3iei8sdm4FXV3sHXCb
+awl1uvf4fjaim2Tnvoh2subwvU9V+yLpq2liEe/y+vDX2IzKpX109FeDTo+
TzZpbysd867YcQfYfzOxUuUej58k1ifQaXFi14v7zE+97Bl/rbEPGJ8u1kv/
zevzF2JPGu3+SeyMfMj+Y8Xeh7S5He0Vf8R870F7CbT7mTjQ7DHzXzVC5mdI
GtxihlgpkM752CW2d9MJiWJvvaccX8tImb+rtBItVrc/Y3wzxEbO52zvUahj
jmM+L9JJV8VKjxecn66SL/cU2tNPbGd7yfPnU7HalfZMFhubaXOjWOukpIhH
bRD7T9L6FcxPh0x0ScmPOZ6ObC422mWG+w8S+8bQulesPaHjd4tVKytc2yX5
8hXLBq+rifz9Tgc+EFv3aI8H+W+WHY7pKXZ76cgxYn0JXdsUm/uD5T7M1116
6hpxoGAE7KwQO7fpyFPof0EkbNxE+w2iYCWPzJfHlQN21xU7s+n45mJ/r5xw
8mixMpMuOB7rYVou2LcN83+BtnaItcm54bTLWE9d8sBmVJSM5zTdorU4kCkv
428rVivRvq9zSPsGPeo7sZNIqxi/d/EbjB9WCr4J+22c7zbtrMb9qFEBxhsn
NgbQroW4H9UvCCcsFyu/0Bbuf+5rdORJcWBWITgpIPbVKszyfnK/cnR61Dix
FVUEtmPE/hp07XVifSudcB7PD9mLMh+Xcf87Q3fG/c874S0e305sbaQ9A3B/
O0XHf4n72fpizF+c2FOuONfDCdwvx9LmNdT/UmV/VXF9/4NW2+D+0boE18t4
cWAkrUwXq9/TtWfj/jXibRrj9ybQ5lqxZ0gprp+WyN8d2v+12FWgNPMxBfmZ
V4bzs0Fs1CvL+I6Jtat07WSxMqscy10Y/7byjHeZ2Klegf3vQT7P0Woy8pdU
kfNbT8bj6VSJ+YsWW+Mrs36CWC9bhfEOQf0xtD5bbJSqyvFdFCsj3Tx/tyHf
Fp0Qh3wXq8b1XBb3v3v01CVia391Hl8d19c9NTj/O8W+BTUZbz7cbxq8w/K+
uL+4ajH+TbhfXaHNw7h+5n6X8UbifHGC7vlCy/hTszbPpwlitXsdzs8SsZO1
Ltd/Dnl+9X5De3uJTaMey98Vqy9pxyO2PA14/a2G582VDRlfEuI52IjrsR3W
R0Dj9XkLzp99jTm+XFjfdhPO/1qx3qgp5+cg5ms+3V/NEuJyffF8ZL7H8U7B
89E1uuAOPI/N/hf7T8fzV65mzEcNmS91Bp2A51WnRnOO/y7O763Ng9dvrK/z
tFMc8ZxpwfXoRTynWnI+huP4r1oxPzGIJ5HW9mF9lnuf6xvPm+pxOrIQ1lfb
1hxfHayvtz/g+pmG+/sXtLIYz2+H6ZjfxUZCG+YzP56XmrdluYb7+TA60Ebs
XUoXbI/nhfc8nK/xWM976XXf4fmtcTvOT108X+5uF7wf43mkYXvGO0jsvkH3
fz/UnizyPmrW+5DrcZe8j6k7aE2RciNPB+a3pFjbTlsdxFbOj5iP/ni/1Wlr
gFjfRmstxXZkR57vfcSB6kEPEqs9aPfqUJtrEc8PHYPXP7HL3Ynz+YPYO5HW
dqL/Tp1ZfgntKV3Y3ymxs472lZH3W+05rXcW60+60hvwPjyqG/O1CO/Dj2l1
k9h7qDvX8w9i92c92F8s2ltOOzPFarOPOV5b7CrUk+ONRzxNaesXsbWoZ8jx
9gKd87lG7Hm9F8ezBPE16BU8X8W+frTXFDtzaX0k+rtOK53E/k96s/08iP8K
bSVg/eSO5vHrkd+ZQW/B/PT8hOONwfz8SPtqYL1U78P2uqF+1b7M33Kst0r9
OJ8Psd4MWlEkHuUk7S6K+Mr3Z7xP0d4J2h6L8Y4ewHi+x/FHPmX9VnK99qwY
yPKluH6/NYjnV4Rcj7XhtFMM1+/Fg1l/gdi3cAjXQ3b8nnCbbhGF9/35Q1le
TmzW93J9VMbz2jU6fhB+f4gfxvmZKLZyDef470t/+k/Dg/OD+8PHnzFfHvz+
kH0Erx+jcb+YRMfj9w698+e8/kzH80jFkXDtl3geWU9HbsT9Y+wXvN/gfm+3
HcV47uL54A/aaITr58MvmX88n7pHjGb7mXF9u0/HF8f7aOoYxj9f7r9Kyljm
KwX368bjeD39EO8Hu+nOD/B+MG88nNRXnse9r33F82kDnu9N2p1Lnr/dO2hf
NTyf9zY43sVi4y86/jN5Htemf83714ycko/ICZyfUrmkvR5055q5ZXzn6OSK
eSQ/Xb+hL4uNibS3odT3babT9kl9rfJE5m+L9G99TauR0r/ZYRL7ixKrf9KB
EWLXmsnMhyXW/LT7V7FVagrbS0R7j+mER2Lj0FT2/1zs+5sO5Jd4rd+nsX+3
2FwynedzI7ExeAZcrq/Yv2Am10tpGZ/ZYBbzu1hsuGZz/aSLfXVpNULyZTpz
GM8MfL+qaTJ/J8VOxFw6m3xP0rrTgcn4HlV1HsdvoP5pWo/G9zhjPs+n2WL9
2QKuxzj8np3+LeOrgd+nSy7k+skn1lbSdlv8Xv2Idvh79YpF7L8sfm89uCh4
f8XvtS1iWH4P7f9GW79K/9q/FrM8Dt8fmixh+4Z837IX0vYsfF9rtJTHz8f3
ugG0LxnfC+cuY3kKvs/VWc75KS/tGZdp71Kxdek75rO6OJDdYnwNpL6nG22c
xvfESbSK77Fale9Zf7B8r7Um0PoH+N57mlaixO5MK+nsYs+LoOPw/bj9Krb/
5r0Me5/S/jli9+rVPP87S30zjXZGigOt/818zEP739NqS3wvvb+G8bXBekld
y/xOx/fcwut4/B6sv720kg/fT1No53WMv8B65rs+2v+W9qTg3w//uoH53iB2
+sSyfj853nuVtv7A9+HojSxXJP+BdzYxv5kxf9tos5NY67GZ443F99NztDlC
vv/pXbdwvU/B98VYH/sbjPkes5Xt+7CeSv3I8bcSW49p/Qnia72N8f2MfBSN
Y/3XsP5Sad0Um4O3M77mWL9aPMsj8X15Ae3B93Krwc9sr7+U69dpoze+98/Z
wfnahficX5jf8WJ3z51cLxWRv4hfOX8j0f9kWq2J8froQEOxt8suttcK8XxD
+97E9aPSbtYvK/a8pM1ZMr+udTa9C/XL7GG+H+J79hjavQvfs0vuZT5XyPnv
qPvYX318X1tBe9rg+9yy/Twe3/PUIgdYXg7ft/bRrm74PlvwN7aXiO/TC2lX
OeT3jd85nkv49wiNgh6F8SXTSjXM99wEjmcKxpf3INfXQKyPT2hrEv59Qa5D
nC+cL8ZPtDkP7dU8zPiX4fqxlXY24foRcYTzP12sdwtaw/ld5SjbWynXh//s
H+N//ynnf+H9ZuH9ZnB4v5nUD+83C+83k/LwfjOJP7zfLPjvF8Th/Wbh/WYo
D+83C3F4vxnmK7zfjPGF95tlOLzfLLzfDOMJ7zeTeMP7zZi/8H4zyUd4vxnL
w/vNpL/wfjO2F95vJvMT3m/G8YT3m0n+wvvNOL/h/WaSz/B+M+Y7vN9M4gvv
N6PD+80kvvB+M+Y7vN9Mxhfebxb89zXh/WZKeL9ZeL9ZeL+ZOLzfLLzfLOP/
Du83C96Pw/vNlPB+s/B+s/B+M+QrvN9Mxhveb8Z8hPebZTi83yy83wz5Cu83
k/7D+824XsL7zTL8/2q/2f8AZU3oqw==
"], {{{},
{RGBColor[0.24, 0.6, 0.8], Opacity[0.2], EdgeForm[None],
GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1lO0GIYSBdAb27Zt27Zt21Zjs41tm23QxrZt29bbefnYa+b/rEGixh0q
tw8cEBAQiBZBftfmQX73zWhKExrTiIY0oD71qEsdalOLmtSgOtWoShUqU4mK
VKA85ShLGUpTipKUoDjFKEoRClOIghQgP/nISx5yk4uc5CA72chKFjKTiYxk
ID3pSEsaUpOKlKQgOclIShISk4iEJCA+8YhLHGITi5jEIDrRiEoUIhOJiEQg
POEISxhCE4qQhCA4wQhKEAL/yoYAfgrsB9/5xle+8JlPfOQD73nHW97wmle8
5AXPecZTnvCYRzzkAfe5x13ucJtb3OQG17nGVa5wmUtc5ALnOcdZznCaU5zk
BMc5xlGOcJhDHOQA+9nHXvawm13s5D/+ZQfb2cZW/uFvtrCZTWxkA+tZx1rW
sJpVrGQFy1nGUpawmEUsZAHzmcdc5jCbWcxkBtOZxlSmMJlJTOQv/mQC4xnH
WMYwmlGMZATDGcZQhjCYQQxkAP35g370pQ+96UVPetCdbnSlC53pREc68Gvo
29GWNrSmFS1pQXOa0ZQmNKYRDWlAfepRlzrUphY1qUF1qlGVKlSmEhWpQHnK
UZYylKYUJSlBcYpRlCIUphAFKUB+8pGXPOQmFznJQXaykZUsZCYTGclAetKR
ljSkJhUpSUFykpGUJCQmEQlJQHziEZc4xCYWMYlBdKIRlShEJhIRiUB4whGW
MIQmFCEJQXCCEZQgBCYQAfy0pH/wnW985Quf+cRHPvCed7zlDa95xUte8Jxn
POUJj3nEQx5wn3vc5Q63ucVNbnCda1zlCpe5xEUucJ5znOUMpznFSU5wnGMc
5QiHOcRBDrCffexlD7vZxU7+4192sJ1tbOUf/mYLm9nERjawnnWsZQ2rWcVK
VrCcZSxlCYtZxEIWMJ95zGUOs5nFTGYwnWlMZQqTmcRE/uJPJjCecYxlDKMZ
xUhGMJxhDGUIgxnEQAbQnz/oR1/60Jte9KQH3elGV7rQmU50pAPtaUdb2tCa
VrSkBc1pRlOa0JhGNKQB9alHXepQm1rUpAbVqUZVqlCZSlSkAuUpR1nKUJpS
lKQExSlGUYpQmEIUpAD5yUde8pCbXOQkB9nJRlaykJlMZCQD6UlHWtKQmlSk
JAXJSUZSkpCYRCQkAfGJR1ziEJtYxCQG0YlGVKIQmUhEJALhCUdYwhCaUIQk
BMEJRlCCEJhAgX4/aj+VH3znG1/5wmc+8ZEPvOcdb3nDa17xkhc85xlPecJj
HvGQB9znHne5w21ucZMbXOcaV7nCZS5xkQuc5xxnOcNpTnGSExznGEc5wmEO
cZAD7Gcfe9nDbnaxk//4lx1sZxtb+Ye/2cJmNrGRDaxnHWtZw2pWsZIVLGcZ
S1nCYhaxkAXMZx5zmcNsZjGTGUxnGlOZwmQmMZG/+JMJjGccYxnDaEYxkhEM
ZxhDGcJgBjGQAfTnD/rRlz70phc96UF3utGVLnSmEx3pQHva0ZY2tKYVLWlB
c5rRlCY0phENaUB96lGXOtSmFjWpQXWqUZUqVKYSFalAecpRljKUphQlKUFx
ilGUIhSmEAUpQH7ykZc85CYXOclBdrKRlSxkJhMZyUB60pGWNKQmFSlJQXKS
kZQkJCYRCUlAfOIRlzjEJhYxiUF0ohGVKEQmEhGJQHjCEZYwhCYUIQlBcIIR
NOD/L/+vsx/wP4+kmdM=
"]]]}, {}, {}}, {{}, {},
TagBox[
{RGBColor[0.24, 0.6, 0.8], PointSize[0.0055000000000000005`],
AbsoluteThickness[2], LineBox[CompressedData["
1:eJwl11OwGIYSANAb27Zt27Zto7HZJG1s27Zt22xs207eybyPM7v/O6tEjdtX
bhcoICCgWZCAgD8xMNKAoAQjOCEISShCE4awhCM8EYhIJCIThahEIzoxiEks
YhOHuMQjPglISCISk4SkJCM5KUhJKlKThrSkIz0ZyEgmMpOFrGQjOznISS5y
k4e85CM/BShIIQpThKIUozglKEkpSlOGspSjPBWoSCUqU4WqVKM6NahJLWpT
h7rUoz4NaEgjGtOEpn9qQnNa0JJWtOYv2tCWdrSnAx3pRGe60JVudKcHPelF
b/rQl7/pR38G8A//MpBBDGYIQxnGcEYwklGMZgxjGcd4JjCRSUxmClOZxnRm
MJNZzGYOc5nHfBawkEUsZglLWcZyVrCSVaxmDWtZx3o2sJFNbGYLW9nGdnaw
k13sZg972cd+DnCQQxzmCEc5xnFOcJJTnOYMZznHeS5wkUtc5gr/cZVrXOcG
N7nFbe5wl3vc5wEPecRjnvCUZzznBS95xWve8JZ3vOcDH/nEZ77wlW985wc/
+cVv/jR/IAIThKAEIzghCEkoQhOGsIQjPBGISCQiE4WoRCM6MYhJLGITh7jE
Iz4JSEgiEpOEpCQjOSlISSpSk4a0pCM9GchIJjKThaxkIzs5yEkucpOHvOQj
PwUoSCEKU4SiFKM4JShJKUpThrKUozwVqEglKlOFqlSjOjWoSS1qU4e61KM+
DWhIIxrThKY0ozktaEkrWvMXbWjLn+Hdng50pBOd6UJXutGdHvSkF73pQ1/+
ph/9GcA//MtABjGYIQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGb
OcxlHvNZwEIWsZglLGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs9
7GUf+znAQQ5xmCMc5RjHOcFJTnGaM5zlHOe5wEUucZkr/MdVrnGdG9zkFre5
w13ucZ8HPOQRj3nCU57xnBe85BWvecNb3vGeD3zkE5/5wle+8Z0f/OQXv/mz
+AMRmCAEJRjBCUFIQhGaMIQlHOGJQEQiEZkoRCUa0YlBTGIRmzjEJR7xSUBC
EpGYJCQlGclJQUpSkZo0pCUd6clARjKRmSxkJRvZyUFOcpGbPOQlH/kpQEEK
UZgiFKUYxSlBSUpRmjKUpRzlqUBFKlGZKlSlGtWpQU1qUZs61KUe9WlAQxrR
mCY0pRnNaUFLWtGav2hDW9rRng50pBOd6UJXutGdHvSkF73pQ1/+ph/9GcA/
/MtABjGYIQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZ
wEIWsZglLGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znA
QQ5xmCMc5RjHOcFJTnGaM5zlHOe5wEUucZkr/MdVrnGdG9zkFre5w13ucZ8H
POQRj3nCU57xnBe85BWvecNb3vGeD3zkE5/5wle+8Z0f/OQXv/lz9AciMEEI
SjCCE4KQhCI0YQhLOMITgYhEIjJRiEo0ohODmMQiNnGISzzik4CEJCIxSUhK
MpKTgpSkIjVpSEs60pOBjGQiM1nISjayk4Oc5CI3echLPvJTgIIUojBFKEox
ilOCkpSiNGUoSznKU4GKVKIyVahKNapTg5rUojZ1qEs96tOAhjSiMU1oGuT/
P9n/AHvxmPw=
"]]},
Annotation[#, "Charting`Private`Tag#1"]& ]},
TagBox[
{Opacity[0.], PointBox[1740]},
Annotation[#, {{Callout}, Charting`Private`Tag, {869}}]& ]}], {{{}, {{},
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.999073291875*^9,
72233.}],
Offset[{-8., 9.797174393178826*^-16}, {3.999073291875*^9, 72233.}],
Offset[{-10., 9.797174393178826*^-16}, {3.999073291875*^9,
72233.}],
Offset[{-12., 9.797174393178826*^-16}, {3.999073291875*^9,
72233.}],
Offset[{-12., 9.797174393178826*^-16}, {3.999073291875*^9,
72233.}]}]},
{LightDarkSwitched[
RGBColor[
0.6666666666666666, 0.6666666666666666, 0.6666666666666666]],
AbsoluteThickness[1.25],
BSplineCurveBox[{
Offset[{-3., 3.6739403974420594`*^-16}, {3.999073291875*^9,
72233.}],
Offset[{-8., 9.797174393178826*^-16}, {3.999073291875*^9, 72233.}],
Offset[{-10., 9.797174393178826*^-16}, {3.999073291875*^9,
72233.}],
Offset[{-12., 9.797174393178826*^-16}, {3.999073291875*^9,
72233.}],
Offset[{-12., 9.797174393178826*^-16}, {3.999073291875*^9,
72233.}]}]},
{EdgeForm[None], FaceForm[{RGBColor[0.87, 0.94, 1], Opacity[
NCache[
Rational[2, 3], 0.6666666666666666]]}],
PolygonBox[{
Offset[{-12.000000000000002`, 5.500000000000004}, {
3.999073291875*^9, 72233.}],
Offset[{-11.999999999999998`, -5.499999999999996}, {
3.999073291875*^9, 72233.}],
Offset[{-43., -5.500000000000003}, {3.999073291875*^9, 72233.}],
Offset[{-43., 5.499999999999997}, {3.999073291875*^9,
72233.}]}]},
{LightDarkSwitched[
RGBColor[
0.6666666666666666, 0.6666666666666666, 0.6666666666666666]],
AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
StyleBox[
RotationBox["\<\"72233\"\>",
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.999073291875*^9, 72233.}],
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., 0.6, 0.6],
AbsoluteThickness[2]],
Directive[
RGBColor[0.9, 0.36, 0.684],
AbsoluteThickness[2]],
Directive[
RGBColor[0.56, 0.7, 0.],
AbsoluteThickness[2]],
Directive[
RGBColor[0.9, 0.54, 0.],
AbsoluteThickness[2]],
Directive[
RGBColor[0.585, 0.5976, 0.9],
AbsoluteThickness[2]],
Directive[
RGBColor[0.9, 0.45, 0.45],
AbsoluteThickness[2]],
Directive[
RGBColor[0.7632186717367254, 0.8174402144034898, 0.],
AbsoluteThickness[2]],
Directive[
RGBColor[0.8554632469481959, 0.24885384718327969`, 0.8334053873948551],
AbsoluteThickness[2]],
Directive[
RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218],
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: Fri 2 Oct 2026 19:59:49 UTC\"", 12, StripOnInput ->
False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}},
DefaultBaseStyle -> "Column",
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"],
TraditionalForm],
PlotRange->{{3.729024*^9, 3.999888*^9}, {0., 253021.}},
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {None,
Scaled[0.08090169943749476]}},
Ticks->{{}, Automatic}]], "Output",
CellChangeTimes->{
3.997518146010844*^9, 3.997781286629609*^9, 3.9979832705299664`*^9,
3.998334162359736*^9, {3.9985936039711027`*^9, 3.998593606199188*^9},
3.9989270403515987`*^9, 3.999183179015541*^9, 3.999353495530822*^9,
3.9994643622919903`*^9, 3.999959989971051*^9},
CellLabel->"Out[48]=",ExpressionUUID->"2dae2004-fe4c-4cda-a38a-4b101bd6e657"]
}, Open ]]
},
WindowSize->{1280.25, 878.25},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1.25 Inherited,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (July 2, 2026)",
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[576, 22, 5564, 131, 23, "Input",ExpressionUUID->"e5e34011-aa3d-4e95-90b1-863054ac32f5",
CellOpen->False,
InitializationCell->True],
Cell[6143, 155, 795, 14, 53, "Output",ExpressionUUID->"cf614bb7-ba62-4a7d-ae3d-7c8e612313ae"]
}, Open ]],
Cell[CellGroupData[{
Cell[6975, 174, 5509, 118, 23, "Input",ExpressionUUID->"55c17c4f-14a9-40f1-a01c-ab0b0c9b3309",
CellOpen->False,
InitializationCell->True],
Cell[12487, 294, 21009, 424, 546, "Output",ExpressionUUID->"2dae2004-fe4c-4cda-a38a-4b101bd6e657"]
}, Open ]]
}
]
*)
(* End of internal cache information *)