(* 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[ 34704, 751]
NotebookOptionsPosition[ 33871, 725]
NotebookOutlinePosition[ 34299, 742]
CellTagsIndexPosition[ 34256, 739]
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", "]"}], "]"}], "]"}], ",", "Right", ",", " ",
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}, {
4.002276800045328*^9, 4.00227680258731*^9}},
CellLabel->
"In[303]:=",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, 4.000386939246838*^9, {
4.0010176575739737`*^9, 4.0010176718952436`*^9}, 4.0013397565076857`*^9,
4.001973333639921*^9, 4.001973550092224*^9, {4.002121461894444*^9,
4.0021214662045403`*^9}, {4.002202281951898*^9, 4.002202289463511*^9}, {
4.002276775563334*^9, 4.002276805715754*^9}},
CellLabel->
"Out[306]=",ExpressionUUID->"6a49f7aa-6e36-4d5c-b7b0-20d1fcf39054"]
}, 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[313]:=",ExpressionUUID->"55c17c4f-14a9-40f1-a01c-ab0b0c9b3309"],
Cell[BoxData[
GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJzt22eYFMW6B/Am7xJHRIlCIzk3QSTTgIckYUAkIw0rSdKACEiyRXJsgrAk
aYFDWsKI67IiwpB0STLgAktuiUtYdgCBJd+77/8/9z5zHnye++F+HL/s+Z3q
qnrrreo0TRXvPbR9n4yKoiRlVZT0v//9nzkr4Xaj9P/hdLqtv8beuH+wr0uo
zbZiV46DsN5R7OlJ2x+L7elBoz3/j7QP1iIO0V3FVnfa6Sb2TaH1paFWe4jV
c8H6sFnlMGz0RrxdaLUf4t1C27CeFDx+Qcrr7Ml4hF6D+DvSagzij6H1H8XG
Sdq3DeN5RduwOuEoxzcm1HZdxH+CVlNvSfzPaf2O2Cn9B31NrI+ljQtipeQx
+pLYd+SffEIceESrsPtDP70V/a/0B8eH/g/SCqwXPc71ECv2NKedNWKj8AmO
Lwb9D6V9c9HfXdq00P6gP1l/vNh+K5H1TbG/Ia3CVjKtdMZ46p1kOWz+cjK4
fpGfXKfZ30XUnxm0I1azJzE/zzD+abQzA+vnAm3PxnqYfIb9Lw+1syzUPlg7
S6vbsV4yn2V/x7BeKtP6WXFgIm1muiPxVDjH9iLFnsR/sJNL7C97nn5HbB2n
zSRxoNQFxt/hruRrDa22EztptBMn54P/8EXW3y5WH1zi8WPF3mEOy+fj/Cn0
F8fzBPWHBJ1B2lcXXWY+64hdA64wniix1vcqy0+JfVdpZxrq175GVxe7o4Iu
h/ZyXg+JX4u8wXg3i60etOP+D3cRB36gfZ3FzqRk+h7ynekmx9sN+e5EG6m4
XpW/xf6y4/i1tzl+WCl1h8ePx/FHaXs4rl92CuuPw/q5f5fxfYvzq0gqjx8h
dkUHGM+lm+nW9wbtwvmw8z7zmyWQbvvnByzfmCrxXwk6XuyL+5vjbSV2v/eQ
ni3WIx6x/1liq8pj+irmI4k2ron95Z7Qb8rxgdJP6YX3ZT7b0XaklLtKPuN4
U7Eeij9n/A8vS3wraRX2FH7J9tLE2n5az3dFjm/8iuX5xfpC5Q6sirV+GWAl
u9ickxH2ZRHbMzPBZgTam5aZ9bPh+KpZ6EPof3NWtrdF7N6YDXbWivXxETw+
TmytiYR1r9gclZ31Y3C8moPxTBUb7+Rke13EzpBcrN8H/S/KzfKqEp91i1Yr
IP58eTge2Hsj6ELIT18X678lVnPmDSl31wy6II6PfBO2a6M/LR9dC+1Xeovt
wf7yb9M3kP+vgk5GfC9o+47YeZqffiBW0gqw/yeof6Aw/Rzx7S3C9mDXwHdY
/grH9y9Kt72a7oCrGNvvLTbn0uZksffnoGeLtRzF2f4ilHd/l+XLxMqkEnQ3
5CNjSeY/b6h9PUNtv4nxV6SV1dKeZ30pzu869N+uNNvbIna3KcP6sWKjaDn2
3xftDQ+6P/Jzj7afyvHO0PJs/6bYul2B6zM11DasflaR47+P/hcG/RLt5a3E
+q9wfK4q7D8J+e1FG47Y5dD2LYzvgsb85Lkm48lWle3D7rO0nlfsr1A9xEpH
2pmO8b+kfVFYj8drsPwTrK9ntIn50N3vvd4qjrdG1WR5b3HgMG3jeLPl+/Tn
aP+7oAdi/Q+rxfqpYiNAK6+SJd4PagfXa6h9/2FFkeu9e1/tYP6l3Ju/DvPx
VOwaRDvnxfoiWl0uNhbUZXk+aU+tV49+T2xatF4e95fa9RlfFbGWswHjqS/2
zaDVxqhfvSHbq/t/sn6e1uuEWoW1rTrLW4kDnRpxPenIxyba/kDs+rgxbYj9
L2ifgvvpuCZ0MTxPPqWV1ngeXP0B+4vC8++7/2J/4/D824pWcT9WDgfLv0L7
xZpyfGVCbSzA82gL2p6F/lfQymLcv4s0Y/vbEE/ToOPw/OyhfdsR3wHawPH+
Js3Z3lmxFk3bya91QG/B9vg8fJNWHuN5o0FLlt9F+9dptR2eb/t8yHzlD7Va
Fs83s1oxH/nleciJo+1yoVbLi/UcrTmeqmLtIu0rK3afa8P6GcRmlrZ0VrGd
0c32CuL5t1w7rt/caL9dex4PG20+4vEv8Dx+hDYyo7/iHdj/E7xP/k07Oe6E
2Af7h38cPL/leGUFrT8Tu/d3ZH3Gs7gT+yuDeBZ2ZnyV0X+/Ljx+BfJ1jdbn
oX6drnT919ofT/vGiVWnG8vPoP3s3Tn+S8hnDdqHcmca7cxB+xdo4yHm+2wP
xltR7FToyfK+eD962TN4vcT7cOlewfsb8lmiN49fhfbUKM7XH1g/zT5lPIn4
vaFQH9bfgPepFNoZi+fr/H2Zf6xH7y3aLoT3I6s/y2OQjzwD2N43GH8UrQzE
+03Nz9h/X7zfzKDtUnifqD6Q+asr9X09BoaUB6bSZjmxmXXQ6602kvquybRS
S8rtTIMZXze830wcHLzfo/3yQ9jfEMxP+6HM5xqcP6U8LD+A8abReizeV4oN
Z/lWrL/7tDET42n6OctHYL0coE0L59udEcx/NPK7+wu2vwv5nD+Sx7+REmIl
L94nd4bauU47DTDe3KNZbiDfvYPG+6hvFm1/hfZ6fsn456K96bSzCPPXfQzn
cwfa/4F24vC+OWks4y+K96EtQZ/F+0qncWz/qdgTQ6vP8X60fjzLVXn/UstM
CN5fxe52tHuW2NPmK9g7QmwUN9neULG3+dc8fp1Y/5227sv7lOKZCGvZHqQ7
0Pgb1i8n9t6mrRg53p88icePk3LfL5M5Px3+lnhdU2DXiAchdk9Ee3Nof5zY
dYV2NojtXlOZr7Zi/0za95FYiaNd3UJtD0d/P05j/L+hv6rT2d5F9DeF9m1C
/S4zYM9tsXWadusyHm/iTNavJlaez2L8kSgfNYf9H0W8I+bS/0Y+h1kcX4LY
DNBaGuIZOo9+iHzems/5L4H2f13A9hqLnRu0T5PjtTzfsv1BUu6bTVvzxGbN
RTw+SezvsRgONHqYbvfWaI5HFTuVlnA+m4j9ylLm54xYqUDbGR9Jf3/S/n1o
r/0ytp9Nyl3PaP1dsV5qOcsXirU02h0rVg+vYH+rxZ773wXvn2IrdSXzUxPH
D7GZv2Zicy9tDxX7b37P49eivwareL4cR/03VnO8f4mdn2ntxmtt917D8e5G
/dh/83pyHfGeW8t4U8VK13UcTwriT6JdkY8lX1+vZ7xesf/EBtbPnBZiK5M4
cGwjx3NIjveOjuF4Doj1x7SZKPYU38T8PhUrNq1XkPasopsZTxWxrzmtNRd7
C2/h+TRXbN+lA5ND7bfE2uCt7H8q2t9Du6LFqu5l/Q1iJ5n2TJT4NNc2Hn9G
bNShPfvFvjm0/xbyl+tHjmentOeKo42KT2T82WPp98R2Ddr5GPn9hA4MQX67
/cT8L0N8leM4P+fRfhfadzXUFuzPsJ3jT0Y+E2n/YYnXHB/P+TqF+Tj2M9v/
E/l7QpvTkb/WOzgfK5C/I7SxXWyqv3B+m4k9D2hrsNj4bWdwfpX0v+4lv/L4
Tk9lflNo7Qux7dvF4/eKjQG7Od4UsZrXx/wVfibjv0ZbBcV21B7G11xs5NzL
9uej/k+02hf57bGP9dfK8fo22v5JrE3ez/mpKg5UOsD8GWJH+Y318z+XfL6k
jS8ypP/1rf2d450sVp/Renepb7ZNYPvDxZ53D3J8OyVe/0ja+jPUNqx+d4jj
6fNK8jHsMOdvJI4veITzv0Ns7aW9u1/IeN4+yuOPic1vaa8jx2tvHIOTfsN4
5tK+1UqIp8HqVVr7TMbj7e2nnyC+7bSdT4735DjO/gNSrsXSEUXQ3tQTcK36
Yn3Sn3ByQ7E/YyLj6YJ4TtIRX2K9dTgJp30rdr2gzQ1or8wpePR2sVHyNOtv
Q/9HaX8C2ntMxx8VO18kcX7+wnj+ppVUxNf8DJ1d8mfdo43qYu/ds7y+VM6Y
/lfTz7P/YWL1zQs8fonYO4/ub4s9dS5y/I7YP4defw/tXaE998W+Xpfg6GyZ
JB/THbhzE7HS/S+uz7Fic/Nljs/A8RWvMP89xHpHWu0qtsZf5fpJFPvWBX1C
7B1zjfGtRnvHaM88tPeETohBPKuuM95VYu0IHb8Y/ak3mK+96K8l7VxG/A9o
bbvYaZbM+TiI/pbTSU0yS/4K3YTLpqC/oTeD1yspdw+6xfVeSOzcCrqa2DPg
NvNZU2zUu8PxtRX7LHraR2gvTwrX9zyxN4q2lyEe4y6vD3+JrchU1n+C9qrT
8bmzSHvb6Oj3xY4WYP9NxUrlezx+stiYSKfFiV0v7zM/dbOm/7XHPWB8htgo
9Tevz6PE7jRa+0nsjHzI/mPEnoe0tR3tFXvEfO9Bewm09lwcaPqY+a+STeZn
SBrcfKZYyf+E87FL7NtNJySKPXWfcXwtImT+rtJKlFjd/pzxzRSbOV6wvUeh
jj6O+bxIJ10VKz1ecn66Sr60qbS7n9iX5RXPn8/EalfaPUVsbqGtTWK9k5Ii
Hr1R7D9JG1cwPx0y0CUkP9YEOqKZ2GyXEe4/SOwdSxsesf6Ujt8tVu3McC2X
5MtbNAu8vgby9zsdaC2279FuN/LfNCsc3VOseeiIsWJjKV3LElv7g+VezNdd
etpacaBANthZKXZu0xGn0P/CCNi8ifbrR8JKbpkvtys7rNURO3Po+GZif68c
cPIYsTKLLjAB62F6Ttgbi/m/QNs7xPqUXHDaZaynLrlhKzJSxnOabt5KHMiQ
h/G3FasVae/X2aV9kx79ndhJpFWM37PkLcYPKwXehv0+nO8+2lmD+1HD/Iw3
TmwOoF2LcD+qVwBOWCFWfqFt3P+0a3TESXFgdkE4KSD21izE8n5yv3IMevR4
sR1ZGPZFi/3V6VrrxcY2OuE8nh+yFmE+LuP+d4bujPufZ+I7PL6d2N5Euwfg
/naKjv8S97MNRZm/OLG7bDGuhxO4X46jrWuo/6XK/qrg+v4HrbbB/aNVca6X
CeLASFqZIVa/p2vNwf1rxLs0xu9JoK11YveQklw/LZC/O7T/a7ErfynmYyry
M78052ej2KxbhvEdE+tX6VrJYmV2WZa7MP7Ycox3udipVp7970E+z9FqMvKX
VIHzW1fG4+5UkfmLEtsTKrF+gtgoU5nxDkH9sbQxR2yWrMLxXRQrIzWev7HI
t00nxCHfRatyPZfB/e8ePW2p2N5fjcdXw/V1T3XO/06xd2ENxpsX95v677G8
L+4vrpqMfzPuV1do6zCun7neZ7wROF+coHu+1NP/1KjF82miWO1em/OzVOxk
rsP1n12eXz3f0J5eYsusy/L3xeor2nGLbXd9Xn+r4nlzVQPGl4R4DjbkemyH
9RHQeX3eivNnXyOOLyfWt68x53+d2GjYhPNzEPO1gO6vZgpx2b54PrI+4Hin
4vnoGl1gB57H5vyL/T/B81fOpsxHdZkvdSadgOdVp3ozjv8uzu9tzYLXb6yv
87RTDPGcac716EE8p1pwPobj+K9aMj/RiCeR1vdhfZb9kOsbz5vqcTqiINZX
21YcX22sr3dbc/1Mx/19FK0swfPbYTr6d7GZ0Ib5zIfnpWZtWa7jfj6MDrQR
e5bRBdrjeeEDN+drAtbzXnr9d3h+a9SO81MHz5e72wXvx3geadCe8Q4Sazfo
/h+G2p1J3ketuh9xPe6S9zF1B60rUm7m7sD8lhDr22m7g9jO8THz0R/vtwZt
DxAbsbTeQuyL6MjzvY84UC3oQWK1B62tCbW1DvH80DF4/RO7tE6czx/Enkm0
vhP9d+rM8ktoT+nC/k6JnfW0t7S83+ovaKOz2Hjald6I9+HR3ZivxXgffkyr
m8WeQ925nn8Qa5/3YH8xaG8F7cwSq00/4Xh9YlfBnhxvPOJpQtu/iO3FPUOO
9y00OJ9rxe43e3E8SxFf/V7B81Xs7Ud7LLEzjzZGor/rtNJJ7P+0N9vPjfiv
0HYC1k+uKB6/AfmdFfRWzE/PTzneaMzPj7S3OtZLtT5srxvqV+nL/K3AeqvY
j/P5EOvNpBVF4lFO0loRxFeuP+N9hvZO0L5xGO+YAYznexx/5DPWbynXa/fK
gSxfhuv3O4N4fmWT67E+nHaK4vq9ZDDrLxR7Fw3hesiK3xNu080j8b6/YCjL
y4qteh6uj0p4XrtGxw/C7w/xwzg/k8R2zuEc/33pz/hpeHB+cH/45HPmy43f
H7KO4PVjDO4Xk+l4/N5hdP6C158ZeB6pMBKu9QrPIxvoiE24f4wbxfsN7ve+
tqMZz108H/xBmw1x/Xz4JfOP51NtxBi2nxHXt/t0fDG8j6aOZfwL5P6rpIxj
vlJwv240ntfTj/B+sJvu/ADvB/MnwEl95Xnc88ZXPJ824vneorWc8vyt7aC9
VfF83tvkeJeIzb/o+M/leVyf8TXvXzNzSD4iJnJ+SuaU9nrQnWvkkvGdo5Mr
5Jb8dP2Gviw2J9GeBlLfu4VO2yf19UqTmL+t0r/9Na1GSP9Wh8nsL1Ks/kkH
Rohda6cwH7ZY99Par2K75FS2l4j2HtMJj8TmoWns/4XY+zcdyCfx2r9PZ/+a
2Fo6g+dzQ7E5eCZctq/Yv3AW10spGZ9Vfzbzu0RsuuZw/TwRe+vQajbJl+XM
ZTwz8f2qhsX8nRQ72ebRWeR7kt6dDkzB96gq8zl+E/VP00YUvseZC3g+zREb
zxdyPcbh9+wn3zK+6vh9usQirp+8Yn0V7WuL36sf0Q5/r165mP2Xwe+tBxcH
76/4vbZ5NMvvof3faPtX6V//1xKWx+H7Q+OlbN+U71u+RbRvNr6vNVzG4xfg
e90A2puM74XzlrM8Bd/naq/g/JST9szLtGeZ2L70HfNZTRzIajO++lLf3Y02
T+N74mRaxfdYvfL3rD9YvtfaE2mjNb73nqaVSLGWYRWdVex+GXQcvh+3X832
376Xbs8z2j9XrK1Zw/O/s9S30mhnpDjQ6t/Mx3y0/z2ttsD30vtrGV8brJfU
dczvDHzPLbSex+/B+ttLK3nx/TSFdt7E+PNvYL7rof1vaXcK/v3wrxuZ741i
p08M6/eT4z1XafsPfB+O2sRyRfIfeG8z85sR8xdLW53Eeo8tHG8Mvp+eo60R
8v3P6LqV630qvi/GeNnfYMz32G1s34v1VPJHjr+l2H5MG08RX6tYxvcz8lEk
jvXfwPpLpQ1LbA3ezviaYf3q8SyPwPflhbQb38vt+j+zvf5Sblynzd743j93
B+drF+JzfmF+J4i1nju5Xiogf9l+5fyNRP9TaLUGxuulAw3Eni672F5LxPMN
7X0b14+Ku1m/jNj9irZmy/y61vvoXahfeg/z/RDfs8fS2i58zy6xl/lcKee/
o+5jf/XwfW0l7W6D73PL9/N4fM9TCx9geVl839pHu7rh+2yB39heIr5PL6Jd
ZZHft37neC7h3yM0DHo0xpdMK1Ux3/MSOJ6pGF+eg1xfA7E+PqXtyfj3BTkP
cb5wvpg/0dZ8tFfjMONfjuvHNtrZjOtHtiOc/xlio1vQOs7vykfZ3iq5PugZ
/uD8x4p97Y9xvE/F7uO0PkKstD7O+Uf72ihaW4z+vqeVneL/2Z/G//63HP+F
97OF97PB4f1sUj+8ny28n03Kw/vZJP7wfrbgv48Qh/ezhfezoTy8ny3E4f1s
mK/wfjbGF97Plu7wfrbwfjaMJ7yfTeIN72dj/sL72SQf4f1sLA/vZ5P+wvvZ
2F54P5vMT3g/G8cT3s8m+QvvZ+P8hvezST7D+9mY7/B+NokvvJ+NDu9nk/jC
+9mY7/B+NhlfeD9b8N/vhPezKeH9bOH9bOH9bOLwfrbwfrb0/zu8ny14Pw7v
Z1PC+9nC+9nC+9mQr/B+NhlveD8b8xHez5bu8H628H425Cu8n036D+9n43oJ
72dLd3g/2//jfrb/Ar2iJNU=
"], {{{},
{RGBColor[0.24, 0.6, 0.8], Opacity[0.2], EdgeForm[None],
GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1lO0GIYSBdAb27Zt27Zt21bDNrZtO23MNrZt2/bbefnY68z/rDVzEjXu
ULl94ICAgEC0C/I72wb5PbehNa1oSQua04ymNKExjWhIA+pTj7rUoTa1qEkN
qlONqlShMpWoSAXKU46ylKE0pShJCYpTjKIUoTCFKEgB8pOPvOQhN7nISQ6y
k42sZCEzmchIBtKTjrSkITWpSEkKkpOMpCQhMYlISALiE4+4xCE2sYhJDKIT
jahEITKRiEgEwhOOsIQhNKEISQiCE4ygBCHwr50RwE+L/MF3vvGVL3zmEx/5
wHve8ZY3vOYVL3nBc57xlCc85hEPecB97nGXO9zmFje5wXWucZUrXOYSF7nA
ec5xljOc5hQnOcFxjnGUIxzmEAc5wH72sZf/+Jc97GYXO9nBdraxlS1sZhMb
+Ye/2cB61rGWNaxmFStZwXKWsZQlLGYRC1nAfOYxlznMZhYzmcF0pjGVKUxm
EhOZwHjGMZYxjGYUIxnBcIYxlL/4kyEMZhADGUB//qAffelDb3rRkx50pxtd
6UJnOtGRDvw6Bu1oSxta04qWtKA5zWhKExrTiIY0oD71qEsdalOLmtSgOtWo
ShUqU4mKVKA85ShLGUpTipKUoDjFKEoRClOIghQgP/nISx5yk4uc5CA72chK
FjKTiYxkID3pSEsaUpOKlKQgOclIShISk4iEJCA+8YhLHGITi5jEIDrRiEoU
IhOJiEQgPOEISxhCE4qQhCA4wQhKEAITiAB+Ot4/+M43vvKFz3ziIx94zzve
8obXvOIlL3jOM57yhMc84iEPuM897nKH29ziJje4zjWucoXLXOIiFzjPOc5y
htOc4iQnOM4xjnKEwxziIAfYzz728h//sofd7GInO9jONrayhc1sYiP/8Dcb
WM861rKG1axiJStYzjKWsoTFLGIhC5jPPOYyh9nMYiYzmM40pjKFyUxiIhMY
zzjGMobRjGIkIxjOMIbyF38yhMEMYiAD6M8f9KMvfehNL3rSg+50oytd6Ewn
OtKB9rSjLW1oTSta0oLmNKMpTWhMIxrSgPrUoy51qE0talKD6lSjKlWoTCUq
UoHylKMsZShNKUpSguIUoyhFKEwhClKA/OQjL3nITS5ykoPsZCMrWchMJjKS
gfSkIy1pSE0qUpKC5CQjKUlITCISkoD4xCMucYhNLGISg+hEIypRiEwkIhKB
8IQjLGEITShCEoLgBCMoQQhMoEC/C9xP8YPvfOMrX/jMJz7ygfe84y1veM0r
XvKC5zzjKU94zCMe8oD73OMud7jNLW5yg+tc4ypXuMwlLnKB85zjLGc4zSlO
coLjHOMoRzjMIQ5ygP3sYy//8S972M0udrKD7WxjK1vYzCY28g9/s4H1rGMt
a1jNKlayguUsYylLWMwiFrKA+cxjLnOYzSxmMoPpTGMqU5jMJCYygfGMYyxj
GM0oRjKC4QxjKH/xJ0MYzCAGMoD+/EE/+tKH3vSiJz3oTje60oXOdKIjHWhP
O9rShta0oiUtaE4zmtKExjSiIQ2oTz3qUofa1KImNahONapShcpUoiIVKE85
ylKG0pSiJCUoTjGKUoTCFKIgBchPPvKSh9zkIic5yE42spKFzGQiIxlITzrS
kobUpCIlKUhOMpKShMQkIiEJiE884hKH2MQiJjGITjSiEoXIRCIiEQhPOMIS
htCEIiQhCE4wggb8v/L/evsB/wMeYpxq
"]]]}, {}, {}}, {{}, {},
TagBox[
{RGBColor[0.24, 0.6, 0.8], PointSize[0.0055000000000000005`],
AbsoluteThickness[2], LineBox[CompressedData["
1:eJwl11OwGIYSANAb27Zt27Zt20Yb27ZtW21s27aNJnkn8z7O7P7vrBI17lC5
faCAgIA2QQIC/sTASAOCEozghCAkoQhNGMISjvBEICKRiEwUohKN6MQgJrGI
TRziEo/4JCAhiUhMEpKSjOSkICWpSE0a0pKO9GQgI5nITBayko3s5CAnuchN
HvKSj/wUoCCFKEwRilKM4pSgJKUoTRnKUo7yVKAilahMFapSjerUoCa1qE0d
6lKP+jSgIY1oTBOa0ozmtKAlrWj9p1a0pR3t6UBHOtGZLnSlG93pQU960Zs+
9OUv/qYf/RnAQAYxmCEMZRjDGcFIRjGaMYxlHOOZwEQmMZkpTGUa05nBTGYx
mznMZR7zWcBCFrGYJSxlGctZwUpWsZo1rGUd69nARjaxmS1sZRvb2cFOdrGb
PexlH//wL/s5wEEOcZgjHOUYxznBSU5xmjOc5RznucBFLnGZK1zlGte5wU1u
cZs73OUe93nAQx7xmCc85RnPecFLXvGaN7zlHe/5wEc+8ZkvfOUb3/nBf/zk
F7/50/yBCEwQghKM4IQgJKEITRjCEo7wRCAikYhMFKISjejEICaxiE0c4hKP
+CQgIYlITBKSkozkpCAlqUhNGtKSjvRkICOZyEwWspKN7OQgJ7nITR7yko/8
FKAghShMEYpSjOKUoCSlKE0ZylKO8lSgIpWoTBWqUo3q1KAmtahNHepSj/o0
oCGNaEwTmtKM5rSgJa1oTRva0o4/w7sDHelEZ7rQlW50pwc96UVv+tCXv/ib
fvRnAAMZxGCGMJRhDGcEIxnFaMYwlnGMZwITmcRkpjCVaUxnBjOZxWzmMJd5
zGcBC1nEYpawlGUsZwUrWcVq1rCWdaxnAxvZxGa2sJVtbGcHO9nFbvawl338
w7/s5wAHOcRhjnCUYxznBCc5xWnOcJZznOcCF7nEZa5wlWtc5wY3ucVt7nCX
e9znAQ95xGOe8JRnPOcFL3nFa97wlne85wMf+cRnvvCVb3znB//xk1/85s/i
D0RgghCUYAQnBCEJRWjCEJZwhCcCEYlEZKIQlWhEJwYxiUVs4hCXeMQnAQlJ
RGKSkJRkJCcFKUlFatKQlnSkJwMZyURmspCVbGQnBznJRW7ykJd85KcABSlE
YYpQlGIUpwQlKUVpylCWcpSnAhWpRGWqUJVqVKcGNalFbepQl3rUpwENaURj
mtCUZjSnBS1pRWva0JZ2tKcDHelEZ7rQlW50pwc96UVv+tCXv/ibfvRnAAMZ
xGCGMJRhDGcEIxnFaMYwlnGMZwITmcRkpjCVaUxnBjOZxWzmMJd5zGcBC1nE
YpawlGUsZwUrWcVq1rCWdaxnAxvZxGa2sJVtbGcHO9nFbvawl338w7/s5wAH
OcRhjnCUYxznBCc5xWnOcJZznOcCF7nEZa5wlWtc5wY3ucVt7nCXe9znAQ95
xGOe8JRnPOcFL3nFa97wlne85wMf+cRnvvCVb3znB//xk1/85s/RH4jABCEo
wQhOCEISitCEISzhCE8EIhKJyEQhKtGITgxiEovYxCEu8YhPAhKSiMQkISnJ
SE4KUpKK1KQhLelITwYykonMZCEr2chODnKSi9zkIS/5yE8BClKIwhShKMUo
TglKUorSlKEs5ShPBSpSicpUoSrVqE4NalKL2tShLvWoTwMa0ojGNKEpzWhO
C1rSitZB/v+r/Q9JgJuH
"]]},
Annotation[#, "Charting`Private`Tag#1"]& ]},
TagBox[
{Opacity[0.], PointBox[1752]},
Annotation[#, {{Callout}, Charting`Private`Tag, {875}}]& ]}], {{{}, {{},
GraphicsGroupBox[{
{LightDarkSwitched[
RGBColor[0.87, 0.94, 1]], AbsoluteThickness[4], Opacity[
NCache[
Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
"Round"],
BSplineCurveBox[{
Offset[{3., 0.}, {4.00304252475*^9, 76736.}],
Offset[{8., 0.}, {4.00304252475*^9, 76736.}],
Offset[{10., 0.}, {4.00304252475*^9, 76736.}],
Offset[{12., 0.}, {4.00304252475*^9, 76736.}],
Offset[{12., 0.}, {4.00304252475*^9, 76736.}]}]},
{LightDarkSwitched[
RGBColor[
0.6666666666666666, 0.6666666666666666, 0.6666666666666666]],
AbsoluteThickness[1.25],
BSplineCurveBox[{
Offset[{3., 0.}, {4.00304252475*^9, 76736.}],
Offset[{8., 0.}, {4.00304252475*^9, 76736.}],
Offset[{10., 0.}, {4.00304252475*^9, 76736.}],
Offset[{12., 0.}, {4.00304252475*^9, 76736.}],
Offset[{12., 0.}, {4.00304252475*^9, 76736.}]}]},
{EdgeForm[None], FaceForm[{RGBColor[0.87, 0.94, 1], Opacity[
NCache[
Rational[2, 3], 0.6666666666666666]]}],
PolygonBox[{
Offset[{43., 5.5000000000000036`}, {4.00304252475*^9, 76736.}],
Offset[{43., -5.4999999999999964`}, {4.00304252475*^9, 76736.}],
Offset[{12.000000000000002`, -5.5000000000000036`}, {
4.00304252475*^9, 76736.}],
Offset[{11.999999999999998`, 5.4999999999999964`}, {
4.00304252475*^9, 76736.}]}]},
{LightDarkSwitched[
RGBColor[
0.6666666666666666, 0.6666666666666666, 0.6666666666666666]],
AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
StyleBox[
RotationBox["\<\"76736\"\>",
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, 0.}, {4.00304252475*^9, 76736.}],
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: Thu 29 Oct 2026 15:33:25 UTC\"", 12, StripOnInput ->
False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}},
DefaultBaseStyle -> "Column",
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"],
TraditionalForm],
PlotRange->{{3.729024*^9, 4.0022208*^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, 4.0003869394810257`*^9, {
4.001017657821724*^9, 4.001017672133875*^9}, 4.001339756765244*^9,
4.001973333884987*^9, 4.001973550325618*^9, {4.0021214621462297`*^9,
4.0021214664779043`*^9}, {4.002202282323721*^9, 4.002202289690984*^9}, {
4.00227677578609*^9, 4.0022768059495687`*^9}},
CellLabel->
"Out[315]=",ExpressionUUID->"cc9aba74-db47-4d20-8ff4-5c5e20b3a4b7"]
}, 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, 5618, 133, 23, "Input",ExpressionUUID->"e5e34011-aa3d-4e95-90b1-863054ac32f5",
CellOpen->False,
InitializationCell->True],
Cell[6197, 157, 1095, 19, 53, "Output",ExpressionUUID->"6a49f7aa-6e36-4d5c-b7b0-20d1fcf39054"]
}, Open ]],
Cell[CellGroupData[{
Cell[7329, 181, 5513, 119, 23, "Input",ExpressionUUID->"55c17c4f-14a9-40f1-a01c-ab0b0c9b3309",
CellOpen->False,
InitializationCell->True],
Cell[12845, 302, 21010, 420, 546, "Output",ExpressionUUID->"cc9aba74-db47-4d20-8ff4-5c5e20b3a4b7"]
}, Open ]]
}
]
*)
(* End of internal cache information *)