(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 56489, 1395] NotebookOptionsPosition[ 54364, 1322] NotebookOutlinePosition[ 54767, 1339] CellTagsIndexPosition[ 54724, 1336] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Fan Charts", "Subtitle"], Cell["Improved version, May 2010", "Subsubtitle", CellChangeTimes->{{3.482745581594178*^9, 3.482745587113453*^9}}], Cell["\<\ For a reference, see the working paper \"Asymmetric Density Functions and the \ Bank of England's Fan Chart\" by Prof. Ken Wallis of Warwick University. Note that this implementation shows the median as the central forecast \ (Professor Wallis' preferred approach) and not the mode, as the Bank of \ England actually does it.\ \>", "Text"], Cell["\<\ This version of the notebook allows users to specify the base colours to be \ used in drawing the fan, and whether the mean, median or mode of the \ distribution should be used to draw the line in the forecast region.\ \>", "Text", CellChangeTimes->{{3.4827455928498297`*^9, 3.482745633791109*^9}}], Cell[CellGroupData[{ Cell["1. The Two-piece Normal Distribution", "Section"], Cell["\<\ Note the use of upvalues. See \ http://www.bankofengland.co.uk/publications/quarterlybulletin/qb980101.pdf or \ http://www.riksbank.com/upload/Dokument_riksbank/Kat_publicerat/Artiklar_PV/\ qr99_2_artikel2.pdf\ \>", "Text"], Cell[BoxData[ RowBox[{"TwoPieceNormalDistribution", "/:", RowBox[{"PDF", "[", RowBox[{ RowBox[{"TwoPieceNormalDistribution", "[", RowBox[{"\[Mu]_", ",", "\[Sigma]1_", ",", "\[Sigma]2_"}], "]"}], ",", "x_"}], "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"A", "=", FractionBox["2", RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], RowBox[{"(", RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]]}], "}"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"x", "\[LessEqual]", "\[Mu]"}], ",", RowBox[{"A", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "\[Mu]"}], ")"}], "2"]}], "/", "2"}], SuperscriptBox["\[Sigma]1", "2"]}], "]"}]}], ",", RowBox[{"A", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "\[Mu]"}], ")"}], "2"]}], "/", "2"}], SuperscriptBox["\[Sigma]2", "2"]}], "]"}]}]}], "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"TwoPieceNormalDistribution", "/:", RowBox[{"CDF", "[", RowBox[{ RowBox[{"TwoPieceNormalDistribution", "[", RowBox[{"\[Mu]_", ",", "\[Sigma]1_", ",", "\[Sigma]2_"}], "]"}], ",", "x_"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"x", "<", "\[Mu]"}], ",", FractionBox[ RowBox[{"\[Sigma]1", " ", "\[Sigma]2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "\[Mu]"}], ")"}], " ", SqrtBox[ SuperscriptBox["\[Sigma]1", "2"]]}], SqrtBox["2"]], "]"}]}], ")"}]}], RowBox[{ SqrtBox[ SuperscriptBox["\[Sigma]1", "2"]], " ", RowBox[{"(", RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]], ",", RowBox[{ FractionBox[ RowBox[{"\[Sigma]1", " ", "\[Sigma]2"}], RowBox[{ SqrtBox[ SuperscriptBox["\[Sigma]1", "2"]], " ", RowBox[{"(", RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]], "+", FractionBox[ RowBox[{"\[Sigma]1", " ", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "\[Mu]"}], ")"}], " ", "\[Sigma]2"}], SqrtBox["2"]], "]"}]}], RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}]]}]}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"TwoPieceNormalDistribution", "[", RowBox[{"0.", ",", "\[Sigma]1", ",", "\[Sigma]2"}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Sigma]1", ",", "0.00005", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Sigma]2", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.482743336679187*^9, 3.4827433872442093`*^9}, { 3.482745068151758*^9, 3.482745075249627*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Sigma]1$$ = 2.41, $CellContext`\[Sigma]2$$ = 1.22, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Sigma]1$$], 0.00005, 5}, { Hold[$CellContext`\[Sigma]2$$], 0, 5}}, Typeset`size$$ = { 360., {114., 118.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Sigma]1$190809$$ = 0, $CellContext`\[Sigma]2$190810$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Sigma]1$$ = 0.00005, $CellContext`\[Sigma]2$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`\[Sigma]1$$, $CellContext`\[Sigma]1$190809$$, 0], Hold[$CellContext`\[Sigma]2$$, $CellContext`\[Sigma]2$190810$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[ PDF[ $CellContext`TwoPieceNormalDistribution[ 0., $CellContext`\[Sigma]1$$, $CellContext`\[Sigma]2$$], \ $CellContext`x], {$CellContext`x, -3, 3}], "Specifications" :> {{$CellContext`\[Sigma]1$$, 0.00005, 5}, {$CellContext`\[Sigma]2$$, 0, 5}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {172.34375, 177.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.482741374612096*^9, 3.482743337316012*^9, 3.4827433903265533`*^9, 3.482745078600421*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"CDF", "[", RowBox[{ RowBox[{"TwoPieceNormalDistribution", "[", RowBox[{"0.", ",", "\[Sigma]1", ",", "\[Sigma]2"}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Sigma]1", ",", "0.0001", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Sigma]2", ",", "0.0001", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.482743464328376*^9, 3.482743474737521*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Sigma]1$$ = 1.06, $CellContext`\[Sigma]2$$ = 0.9400000000000001, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Sigma]1$$], 0.0001, 5}, { Hold[$CellContext`\[Sigma]2$$], 0.0001, 5}}, Typeset`size$$ = { 360., {115., 119.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Sigma]1$44339$$ = 0, $CellContext`\[Sigma]2$44340$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Sigma]1$$ = 0.0001, $CellContext`\[Sigma]2$$ = 0.0001}, "ControllerVariables" :> { Hold[$CellContext`\[Sigma]1$$, $CellContext`\[Sigma]1$44339$$, 0], Hold[$CellContext`\[Sigma]2$$, $CellContext`\[Sigma]2$44340$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[ CDF[ $CellContext`TwoPieceNormalDistribution[ 0., $CellContext`\[Sigma]1$$, $CellContext`\[Sigma]2$$], \ $CellContext`x], {$CellContext`x, -3, 3}], "Specifications" :> {{$CellContext`\[Sigma]1$$, 0.0001, 5}, {$CellContext`\[Sigma]2$$, 0.0001, 5}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {173.34375, 178.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.4827434751572323`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"TwoPieceNormalDistribution", "/:", RowBox[{"Mean", "[", RowBox[{"TwoPieceNormalDistribution", "[", RowBox[{"\[Mu]_", ",", "\[Sigma]1_", ",", "\[Sigma]2_"}], "]"}], "]"}], ":=", RowBox[{"\[Mu]", "+", RowBox[{ SqrtBox[ FractionBox["2", "\[Pi]"]], RowBox[{"(", RowBox[{"\[Sigma]2", "-", "\[Sigma]1"}], ")"}]}]}]}]], "Input"], Cell[BoxData[ RowBox[{"TwoPieceNormalDistribution", "/:", RowBox[{"Variance", "[", RowBox[{"TwoPieceNormalDistribution", "[", RowBox[{"\[Mu]_", ",", "\[Sigma]1_", ",", "\[Sigma]2_"}], "]"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", FractionBox["2", "\[Pi]"]}], ")"}], SuperscriptBox[ RowBox[{"(", RowBox[{"\[Sigma]2", "-", "\[Sigma]1"}], ")"}], "2"]}], "+", RowBox[{"\[Sigma]1", " ", "\[Sigma]2"}]}]}]], "Input"], Cell[BoxData[{ RowBox[{"TwoPieceNormalDistribution", "/:", RowBox[{ RowBox[{"Quantile", "[", RowBox[{ RowBox[{"TwoPieceNormalDistribution", "[", RowBox[{"\[Mu]_", ",", "\[Sigma]1_", ",", "\[Sigma]2_"}], "]"}], ",", "q_"}], "]"}], "/;", RowBox[{"(", RowBox[{ RowBox[{"q", "<", "1"}], " ", "&&", " ", RowBox[{"q", ">", "0"}]}], ")"}]}], ":=", RowBox[{"x", "/.", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"x", "<", FractionBox[ RowBox[{"\[Sigma]1", " ", "\[Sigma]2"}], RowBox[{ SqrtBox[ SuperscriptBox["\[Sigma]1", "2"]], " ", RowBox[{"(", RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]]}], ",", RowBox[{ FractionBox[ RowBox[{"\[Sigma]1", " ", "\[Sigma]2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "\[Mu]"}], ")"}], " ", SqrtBox[ SuperscriptBox["\[Sigma]1", "2"]]}], SqrtBox["2"]], "]"}]}], ")"}]}], RowBox[{ SqrtBox[ SuperscriptBox["\[Sigma]1", "2"]], " ", RowBox[{"(", RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]], "-", "q"}], ",", RowBox[{ FractionBox[ RowBox[{"\[Sigma]1", " ", "\[Sigma]2"}], RowBox[{ SqrtBox[ SuperscriptBox["\[Sigma]1", "2"]], " ", RowBox[{"(", RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]], "+", FractionBox[ RowBox[{"\[Sigma]1", " ", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "\[Mu]"}], ")"}], " ", "\[Sigma]2"}], SqrtBox["2"]], "]"}]}], RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}]], "-", "q"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0."}], "}"}]}], "]"}]}]}], "\n", RowBox[{"\t\t"}]}], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"Quantile", "[", RowBox[{ RowBox[{"TwoPieceNormalDistribution", "[", RowBox[{"0", ",", "0.5", ",", "1.2"}], "]"}], ",", "i"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0.05", ",", "0.95", ",", "0.05"}], "}"}]}], "]"}], " ", "]"}]], "Input"], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQPWsmCKy0L1pQojf7Oc8BCH+nvaax1vKOZvYDJsYg cNh+5oYaw4mfmKHyJ+3nVlQsL9BiPMAABhfsZYRe6Rot+7sfrNz4sr3T0s9+ ye0/96engcA1e5VDO37Znf66H6L/pr3bIj+uA6Gf9p89AwJ37OMVDl0U13i3 H2LeA/unjRIPdD8+h6p/aM907kiPxqeH+yHueWz/8MKXcA7TG/vPgfU/sbeK 3fvJuvAk1L5n9o3iy+e9TJ66nxFs3gt7NXavP1eFjthDzHtpH2v88G9P7VV7 iHmv7R8nC7yx739gDzHvjb1SoX7NouZn9hDz3tn3zf33+6T3J3sAe3KYAw== "]]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, PlotRange->Automatic, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.48274137478191*^9}] }, Open ]], Cell[BoxData[ RowBox[{"TwoPieceNormalDistribution", "/:", RowBox[{"Median", "[", RowBox[{"TwoPieceNormalDistribution", "[", RowBox[{"\[Mu]_", ",", "\[Sigma]1_", ",", "\[Sigma]2_"}], "]"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"\[Sigma]2", ">", "\[Sigma]1"}], ",", RowBox[{ RowBox[{"\[Sigma]2", " ", RowBox[{"Quantile", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", RowBox[{"1", "-", FractionBox[ RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], RowBox[{"4", "\[Sigma]2"}]]}]}], "]"}]}], "+", "\[Mu]"}], ",", " ", RowBox[{"Quantile", "[", RowBox[{ RowBox[{"TwoPieceNormalDistribution", "[", RowBox[{"\[Mu]", ",", "\[Sigma]1", ",", "\[Sigma]2"}], "]"}], ",", "0.5"}], "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"TwoPieceNormalDistribution", "/:", RowBox[{"Skewness", "[", RowBox[{"TwoPieceNormalDistribution", "[", RowBox[{"\[Mu]_", ",", "\[Sigma]1_", ",", "\[Sigma]2_"}], "]"}], "]"}], ":=", RowBox[{ SqrtBox[ RowBox[{"2", "/", "\[Pi]"}]], RowBox[{"(", RowBox[{"\[Sigma]2", "-", "\[Sigma]1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", SqrtBox[ RowBox[{"2", "/", "\[Pi]"}]], ")"}], "2"]}], "-", "1"}], ")"}], SuperscriptBox[ RowBox[{"(", RowBox[{"\[Sigma]2", "-", "\[Sigma]1"}], ")"}], "2"]}], "+", RowBox[{"\[Sigma]1", " ", "\[Sigma]2"}]}], ")"}]}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Skewness", "[", RowBox[{"TwoPieceNormalDistribution", "[", RowBox[{"0.", ",", "1.2", ",", "1.0"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"-", "0.19323640350584756`"}]], "Output", CellChangeTimes->{3.482741374869288*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["The Fan Chart", "Section"], Cell["\<\ Note: this fan chart is centred on the median, not the mean. So the black \ area is not going to be in the same place as the \[Mu] you specify, because \ it's the mode. Secondly, the way the Two-piece Normal distribution works, the \ \>", "Text"], Cell[BoxData[ RowBox[{"Clear", "[", "FanChartPlot", "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Options", "[", "FanChartPlot", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"CenterColor", "\[Rule]", RowBox[{"RGBColor", "[", RowBox[{"0.", ",", "0.", ",", "0."}], "]"}]}], ",", RowBox[{"CentralForecast", "\[Rule]", "Mode"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{ 3.482741383929658*^9, {3.48274395414211*^9, 3.4827439697407303`*^9}, { 3.4827442111447906`*^9, 3.482744211595769*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FanChartPlot", "[", RowBox[{ RowBox[{"dists", ":", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"_Real", ",", RowBox[{"_", "?", "Positive"}], ",", RowBox[{"_", "?", "Positive"}]}], "}"}], ".."}], "}"}]}], ",", RowBox[{"n_", ":", "9"}], ",", RowBox[{"tail_", ":", "0.05`"}], ",", "opts___Rule"}], "]"}], "/;", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"Positive", "[", "n", "]"}], "&&", RowBox[{ RowBox[{"Head", "[", "n", "]"}], "\[Equal]", "Integer"}], "&&", RowBox[{"Positive", "[", "tail", "]"}], "&&", RowBox[{"tail", "<", "1.`"}], "&&", RowBox[{"tail", ">", "0"}]}], "]"}]}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"cc", "=", RowBox[{ RowBox[{"CenterColor", "/.", RowBox[{"{", "opts", "}"}]}], "/.", RowBox[{"Options", "[", "FanChartPlot", "]"}]}]}], ",", RowBox[{"cf", "=", " ", RowBox[{ RowBox[{"CentralForecast", "/.", RowBox[{"{", "opts", "}"}]}], "/.", RowBox[{"Options", "[", "FanChartPlot", "]"}]}]}], ",", RowBox[{"\[DoubleStruckCapitalT]", "=", RowBox[{"Length", "[", "dists", "]"}]}], ",", "colors", ",", "quantilepoints", ",", "distdefs", ",", "points", ",", "fillingrules"}], "}"}], ",", RowBox[{ RowBox[{"colors", "=", RowBox[{"Reverse", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"cc", ",", "i"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0.1`", ",", "0.9`", ",", FractionBox["0.8`", RowBox[{"n", "-", "1"}]]}], "}"}]}], "]"}]}]}], ";", RowBox[{"quantilepoints", "=", RowBox[{"Reverse", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"0.5`", "\[InvisibleSpace]", "-", "\[Alpha]"}], ",", RowBox[{"0.5`", "\[InvisibleSpace]", "+", "\[Alpha]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", FractionBox[ RowBox[{"0.5`", "\[InvisibleSpace]", "-", RowBox[{"0.5`", " ", "tail"}]}], "n"], ",", RowBox[{"0.5`", "\[InvisibleSpace]", "-", RowBox[{"0.5`", " ", "tail"}]}], ",", FractionBox[ RowBox[{"0.5`", "\[InvisibleSpace]", "-", RowBox[{"0.5`", " ", "tail"}]}], "n"]}], "}"}]}], "]"}]}]}], ";", RowBox[{"distdefs", "=", RowBox[{"Apply", "[", RowBox[{"TwoPieceNormalDistribution", ",", "dists", ",", RowBox[{"{", "1", "}"}]}], "]"}]}], ";", RowBox[{"points", "=", RowBox[{"Join", "@@", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"MapThread", "[", RowBox[{"Quantile", ",", RowBox[{"{", RowBox[{"distdefs", ",", RowBox[{"Table", "[", RowBox[{"#1", ",", RowBox[{"{", "\[DoubleStruckCapitalT]", "}"}]}], "]"}]}], "}"}]}], "]"}], "&"}], ",", "quantilepoints", ",", RowBox[{"{", "2", "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fillingrules", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"i", "+", "1"}], "}"}], ",", RowBox[{"colors", "\[LeftDoubleBracket]", RowBox[{"i", "/", "2"}], "\[RightDoubleBracket]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"2", "n"}], ",", "2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Switch", "[", RowBox[{"cf", ",", "Mode", ",", RowBox[{"First", "/@", "dists"}], ",", "Mean", ",", RowBox[{"Mean", "/@", "distdefs"}], ",", "Median", ",", RowBox[{"Median", "/@", "distdefs"}]}], "]"}], "}"}], ",", "points"}], "]"}], ",", RowBox[{"Filling", "\[Rule]", "fillingrules"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{"Black", ",", "Thick"}], "]"}], "}"}], ",", RowBox[{"Table", "[", RowBox[{"None", ",", RowBox[{"{", RowBox[{"2", " ", "n"}], "}"}]}], "]"}]}], "]"}]}], ",", RowBox[{"Sequence", "@@", RowBox[{"FilterRules", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", "opts", "}"}], "]"}], ",", RowBox[{"Options", "[", "Graphics", "]"}]}], "]"}]}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.482741546674171*^9, 3.4827415485615053`*^9}, { 3.482741637101954*^9, 3.48274173039338*^9}, {3.4827417646235533`*^9, 3.4827417852611437`*^9}, {3.482741858241715*^9, 3.482741869312188*^9}, { 3.4827419208066883`*^9, 3.482741926726574*^9}, {3.482742391894096*^9, 3.482742418375594*^9}, {3.482742452355052*^9, 3.482742489146961*^9}, { 3.482742523444899*^9, 3.4827425280782757`*^9}, {3.482742576894134*^9, 3.4827427195002403`*^9}, {3.48274275122318*^9, 3.482742754161501*^9}, { 3.48274280529171*^9, 3.482742807724101*^9}, {3.4827428909418917`*^9, 3.48274289326712*^9}, 3.482743004089471*^9, {3.482743139588481*^9, 3.482743172136756*^9}, {3.482743202484366*^9, 3.482743234607401*^9}, { 3.482743266730201*^9, 3.4827432744138203`*^9}, {3.482743612431859*^9, 3.482743647023568*^9}, {3.482743858752894*^9, 3.482743886423798*^9}, { 3.482743982594407*^9, 3.482744050016036*^9}, {3.4827442196836367`*^9, 3.4827442618574553`*^9}, {3.4827443023583193`*^9, 3.482744302774063*^9}, { 3.482745105755742*^9, 3.4827451114923487`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FanChartPlot", "[", RowBox[{ RowBox[{"data", ":", RowBox[{"{", RowBox[{"___Real", ",", RowBox[{ RowBox[{"{", RowBox[{"_Real", ",", RowBox[{"_", "?", "Positive"}], ",", RowBox[{"_", "?", "Positive"}]}], "}"}], ".."}]}], "}"}]}], ",", RowBox[{"n_", ":", "9"}], ",", RowBox[{"tail_", ":", "0.05`"}], ",", "opts___Rule"}], "]"}], "/;", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"Positive", "[", "n", "]"}], "&&", RowBox[{ RowBox[{"Head", "[", "n", "]"}], "\[Equal]", "Integer"}], "&&", RowBox[{"Positive", "[", "tail", "]"}], "&&", RowBox[{"tail", "<", "1.`"}], "&&", RowBox[{"tail", ">", "0"}]}], "]"}]}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"cc", "=", RowBox[{ RowBox[{"CenterColor", "/.", RowBox[{"{", "opts", "}"}]}], "/.", RowBox[{"Options", "[", "FanChartPlot", "]"}]}]}], ",", RowBox[{"cf", "=", " ", RowBox[{ RowBox[{"CentralForecast", "/.", RowBox[{"{", "opts", "}"}]}], "/.", RowBox[{"Options", "[", "FanChartPlot", "]"}]}]}], ",", "histdata", ",", "dists", ",", "\[DoubleStruckCapitalT]", ",", "colors", ",", "quantilepoints", ",", "distdefs", ",", "points", ",", "fillingrules"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"histdata", ",", "dists"}], "}"}], "=", RowBox[{"SplitBy", "[", RowBox[{"data", ",", "Head"}], "]"}]}], ";", RowBox[{"\[DoubleStruckCapitalT]", "=", RowBox[{"Length", "[", "dists", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"colors", "=", RowBox[{"Reverse", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"cc", ",", "i"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0.1`", ",", "0.9`", ",", FractionBox["0.8`", RowBox[{"n", "-", "1"}]]}], "}"}]}], "]"}]}]}], ";", RowBox[{"quantilepoints", "=", RowBox[{"Reverse", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"0.5`", "\[InvisibleSpace]", "-", "\[Alpha]"}], ",", RowBox[{"0.5`", "\[InvisibleSpace]", "+", "\[Alpha]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", FractionBox[ RowBox[{"0.5`", "\[InvisibleSpace]", "-", RowBox[{"0.5`", " ", "tail"}]}], "n"], ",", RowBox[{"0.5`", "\[InvisibleSpace]", "-", RowBox[{"0.5`", " ", "tail"}]}], ",", FractionBox[ RowBox[{"0.5`", "\[InvisibleSpace]", "-", RowBox[{"0.5`", " ", "tail"}]}], "n"]}], "}"}]}], "]"}]}]}], ";", RowBox[{"distdefs", "=", RowBox[{"Apply", "[", RowBox[{"TwoPieceNormalDistribution", ",", "dists", ",", RowBox[{"{", "1", "}"}]}], "]"}]}], ";", RowBox[{"points", "=", RowBox[{"Join", "@@", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"MapThread", "[", RowBox[{"Quantile", ",", RowBox[{"{", RowBox[{"distdefs", ",", RowBox[{"Table", "[", RowBox[{"#1", ",", RowBox[{"{", "\[DoubleStruckCapitalT]", "}"}]}], "]"}]}], "}"}]}], "]"}], "&"}], ",", "quantilepoints", ",", RowBox[{"{", "2", "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fillingrules", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"i", "+", "1"}], "}"}], ",", RowBox[{"colors", "\[LeftDoubleBracket]", RowBox[{"i", "/", "2"}], "\[RightDoubleBracket]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"2", "n"}], ",", "2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Join", "[", RowBox[{"histdata", ",", "#"}], "]"}], "&"}], "/@", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Switch", "[", RowBox[{"cf", ",", "Mode", ",", RowBox[{"First", "/@", "dists"}], ",", "Mean", ",", RowBox[{"Mean", "/@", "distdefs"}], ",", "Median", ",", RowBox[{"Median", "/@", "distdefs"}]}], "]"}], "}"}], ",", "points"}], "]"}]}], ",", RowBox[{"Filling", "\[Rule]", "fillingrules"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{"Black", ",", "Thick"}], "]"}], "}"}], ",", RowBox[{"Table", "[", RowBox[{"None", ",", RowBox[{"{", RowBox[{"2", " ", "n"}], "}"}]}], "]"}]}], "]"}]}], ",", RowBox[{"Sequence", "@@", RowBox[{"FilterRules", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", "opts", "}"}], "]"}], ",", RowBox[{"Options", "[", "Graphics", "]"}]}], "]"}]}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.482741546674171*^9, 3.4827415485615053`*^9}, { 3.482741637101954*^9, 3.48274173039338*^9}, {3.4827417646235533`*^9, 3.4827417852611437`*^9}, {3.482741858241715*^9, 3.482741869312188*^9}, { 3.4827419208066883`*^9, 3.482741926726574*^9}, {3.482742391894096*^9, 3.482742418375594*^9}, {3.482742452355052*^9, 3.482742489146961*^9}, { 3.482742523444899*^9, 3.4827425280782757`*^9}, {3.482742576894134*^9, 3.4827427195002403`*^9}, {3.48274275122318*^9, 3.482742754161501*^9}, { 3.48274280529171*^9, 3.482742807724101*^9}, {3.4827428909418917`*^9, 3.48274289326712*^9}, 3.482743004089471*^9, {3.482743139588481*^9, 3.482743172136756*^9}, {3.482743202484366*^9, 3.482743234607401*^9}, { 3.482743266730201*^9, 3.4827432744138203`*^9}, {3.482743612431859*^9, 3.482743647023568*^9}, {3.482743858752894*^9, 3.482743886423798*^9}, { 3.482743982594407*^9, 3.482744050016036*^9}, {3.4827442196836367`*^9, 3.4827442618574553`*^9}, {3.4827443023583193`*^9, 3.482744302774063*^9}, { 3.482744517795719*^9, 3.482744613666102*^9}, {3.482744714938843*^9, 3.482744726012929*^9}, {3.482744825889318*^9, 3.482744832420371*^9}, { 3.482745113231513*^9, 3.4827451144059772`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"forecast", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.", ",", "0.8", ",", "0.6"}], "}"}], ",", RowBox[{"{", RowBox[{"2.", ",", "0.6", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1", ",", "0.8", ",", "0.4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "0.3", ",", "0.4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", "0.28", ",", "0.35"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.482742831923616*^9, 3.4827428465069113`*^9}, 3.482743290490205*^9, {3.4827435716881027`*^9, 3.4827435718920517`*^9}, { 3.482743730721593*^9, 3.4827438142509527`*^9}, {3.482744374945745*^9, 3.482744385294293*^9}, 3.482744437897688*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FanChartPlot", "[", RowBox[{"forecast", ",", "8", ",", "0.05", ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"CenterColor", "\[Rule]", RowBox[{"Darker", "@", "Green"}]}]}], "]"}], "\n"}]], "Input", CellChangeTimes->{ 3.482742853073419*^9, {3.482743661906193*^9, 3.482743713974264*^9}, 3.482743842020032*^9}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxV1AlI01EcwPF5TOdMnde80phmppHMSjt07i8eKFqaZ5bWmqhJTZ0HXmVR kReJpAbbbHgkUlYaHuXVhkc4NY/wyLxKzcyppOZ9lej7hQ/+PB5/+PLh/3/v UZhh7oGSOBzO69+zM++O3/T9Mw7bPxMwLmdnVO29J+2tRYLdtdreul+AOkIP 9x7toUUB6hhNX7RNOrYgQD1WJ8+VKiEhRL0zX0ddKkt0hKj3o4HAnLTSE6Je uYy8MIqtDC4fldRPZasa4AvXbC75dVIdQz2y/+AzIUUFQz2djoejg6fVMNR7 bhno0MwfA1+rrngWx2gBX+bwI16iDfKTMCPxBrFbWw18C6t+YpIKGXw+elRr 2Qvy4KOG9nYXMlXBh2W9sKZcUQLfWWlOSos5AXzU3LwN20Yi+G6L37OMD7WA z6TLJIWl1UNHPYM/kc1WjtPgK/4y6RdEJoGv6rh1V2uNMviG5Q9mcJxkwUfb Oq8qmiOBz3lmRYufIQe+nge6Wc4vJcCHr46f4l2VAp8Fc9lrYrAa9ksn14Me VjoJvrIgioQG7Tv4BNEe3GIaEXyCNu/+WwcUwKc864eTc5cGn5PejG6OvSL4 TkluHzbwxIMv7ZuCJJW9Skc92zSGWTJnHfYxP+LDx8r4PvCxG8kUxYA58NVw 8duunu3gS+hluN3xxIPvsvLMyGSVLPjC+QED7CH0PXBYWxzPUWSH/jcB82Eu 89wH0HsSdj+TFcJWmgNftrFm7jR1Hnz1FYWGR4LHwGduWVpYR14CX1NOfrIv vwjO23asdyxNCp0XNUx/xPRcopwU+LxHaocLQrahp+CahEXx0f4iYITGRuJ4 8Sb0EhVXfpqvj4KvI3jCwzd6DHyy7TEc/6gp6FXa8F41ZK+B78YldaLveDf0 OvEMzEl/De6D9HyXKU7CJtwHriFPZdJi1qH3uKysgECVAd/WUUU3M4sV6Dks FXHjGurB90TfePN1QC34hrKt0u+W/7+v8mxp/TOrW+CzZzZdS40Yg17G0k3J jHfz4GNEhZp2MhfB9+Z6TrBp/TL07hlUqPqOo/1OwPLr+iOVDBegJ0h4ay0K /wy9xBNhdsF5fYK/LSxrbQ== "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.8999999999999999, 0.9666666666666666, 0.8999999999999999], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{6, 7, 8, 9, 10, 15, 14, 13, 12, 11}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.7857142857142857, 0.9285714285714286, 0.7857142857142857], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{16, 17, 18, 19, 20, 25, 24, 23, 22, 21}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.6714285714285714, 0.8904761904761904, 0.6714285714285714], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{26, 27, 28, 29, 30, 35, 34, 33, 32, 31}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.5571428571428572, 0.8523809523809524, 0.5571428571428572], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{36, 37, 38, 39, 40, 45, 44, 43, 42, 41}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {RGBColor[ 0.44285714285714284`, 0.8142857142857143, 0.44285714285714284`], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{46, 47, 48, 49, 50, 55, 54, 53, 52, 51}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[ 0.32857142857142857`, 0.7761904761904762, 0.32857142857142857`], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{56, 57, 58, 59, 60, 65, 64, 63, 62, 61}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {RGBColor[0.2142857142857143, 0.738095238095238, 0.2142857142857143], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{66, 67, 68, 69, 70, 75, 74, 73, 72, 71}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.1, 0.7, 0.1], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{76, 77, 78, 79, 80, 85, 84, 83, 82, 81}}]]}, {}, {}, {}}, {{}, {}, {GrayLevel[0], Thickness[Large], LineBox[{1, 2, 3, 4, 5}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, Frame->True, PlotRange->{{0, 5.}, {-7.5594802205896245`, 5.993849956085419}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.4827427135551043`*^9, 3.4827427229105873`*^9}, 3.482742759009654*^9, {3.4827428114744473`*^9, 3.482742853441677*^9}, 3.482742895388193*^9, 3.482743017482937*^9, 3.482743143388056*^9, { 3.482743280105608*^9, 3.482743293921122*^9}, 3.482743574202229*^9, { 3.482743626891508*^9, 3.482743714321053*^9}, {3.482743747528729*^9, 3.482743842335541*^9}, 3.482743892800254*^9, {3.482744055282547*^9, 3.482744075015491*^9}, 3.4827442742930593`*^9, 3.482744306318904*^9, 3.482744389680551*^9, 3.482744439916765*^9, 3.482744791351215*^9, 3.482745131524695*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FanChartPlot", "[", RowBox[{"forecast", ",", "8", ",", "0.05", ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"CenterColor", "\[Rule]", RowBox[{"Darker", "@", "Green"}]}], ",", RowBox[{"CentralForecast", "\[Rule]", "Median"}]}], "]"}], "\n"}]], "Input", CellChangeTimes->{ 3.482742853073419*^9, {3.482743661906193*^9, 3.482743713974264*^9}, 3.482743842020032*^9, {3.482744086185573*^9, 3.4827440910144663`*^9}, { 3.482744311442129*^9, 3.4827443128866377`*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJw91Akw1FEcwPFdWta6Ftt20qwzmsyq6GDtM0oMRchRaFtTMuVY1gilppqQ aoyjmbXaHBlTVEqUq91Q48rRoJSjUG3sFrnvani//8x//vP+b+Y7n/m/9/4M bpj7KQUCgXD03/3/uXKNsu8VyH2kFhPs1Rdo8ksAI72IiFaGZHSzXcn4d7Fs dZ6KUg2jEp8lvxavjGmoVO3gKLGhS4x7Eg/3zo29k2LcM5EdsU/YNi7GvZA2 oSuTSJTg3p5PAy5lTzZJcO9bLZkrtdGT4N5zJVUJn6eFcM9b+8a7ktl14Atf X//k5861CPfo/j13JQxthHubWq8N9OymIdy7b33KoV40CL4m3ZFfBE4j+NL6 rgvj7bCfikxGFigdG2ngG5/1G6Fq08Hnrce0VT6sCj5maFdHPlcHfCj9gS3j uCb49q4RJDVaksHHzM5ZsK+jgO/CyMsQ0y2N4DNrN0sK2dDJxj2Dich6G0cZ +Ao/Sv1O06ngK99u295UqQW+PtXNKQInZfCxlg7pNIxRwecsn9kgSlEBX+dV 3XTnh3j9aYhUETssDFAEnxV3+uj3ngrYL22ZHuywYin4Sk4ziOtYX8EnjvLI LGRRwCdu9uo+p6YOPq1ffgQV9zXgc9KT62Yd0ADfLoVlQwNPEviSv6grMHmz bNyzT+ZYJArm2bgninj1tiz2A/h4dXSGRuAY+CozScuuni3gi+viuF30JIHv mJa8X1quDL5wUeBnXi/+HgTUHCN0bNiP15uMvLnTQvfPeJ6KrqSFBPM0x8CX Ybo+W8b8A76a0nwj46BB8FlaF+dX06fA9yYrN9FXVADnbfm813mWIj4vNKTf b74vXkURfF79VX15wcvQU3dNQHwR3l9kRK6rowwVLkIvXmPmh+X8APhag757 +EYNgk+5JVrgzx+GXpmdsKg2Yw58Z3zWUnyHOqDXRuIgJ/05+B/cznUZFsQt wv/ANfiOUnL0PPRulZTkkZlK4FvaquFmYTUDPYepgsyY2hrwpeqbLj4KrAJf b4bN7UvPR6GXY8/qls8uge8A982JGxGD0EuZOquQ8uIP+Dj8UPM27iT4Hp/M CjKvmYbeZYNSHd8hvN/JKLe6O1LTaBx64rintg3h76EXvyNsf1DOB/FfMkJw 5w== "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.8999999999999999, 0.9666666666666666, 0.8999999999999999], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{6, 7, 8, 9, 10, 15, 14, 13, 12, 11}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.7857142857142857, 0.9285714285714286, 0.7857142857142857], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{16, 17, 18, 19, 20, 25, 24, 23, 22, 21}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.6714285714285714, 0.8904761904761904, 0.6714285714285714], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{26, 27, 28, 29, 30, 35, 34, 33, 32, 31}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.5571428571428572, 0.8523809523809524, 0.5571428571428572], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{36, 37, 38, 39, 40, 45, 44, 43, 42, 41}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {RGBColor[ 0.44285714285714284`, 0.8142857142857143, 0.44285714285714284`], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{46, 47, 48, 49, 50, 55, 54, 53, 52, 51}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[ 0.32857142857142857`, 0.7761904761904762, 0.32857142857142857`], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{56, 57, 58, 59, 60, 65, 64, 63, 62, 61}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {RGBColor[0.2142857142857143, 0.738095238095238, 0.2142857142857143], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{66, 67, 68, 69, 70, 75, 74, 73, 72, 71}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.1, 0.7, 0.1], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{76, 77, 78, 79, 80, 85, 84, 83, 82, 81}}]]}, {}, {}, {}}, {{}, {}, {GrayLevel[0], Thickness[Large], LineBox[{1, 2, 3, 4, 5}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, Frame->True, PlotRange->{{0, 5.}, {-7.5594802205896245`, 5.993849956085419}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.482744091594838*^9, 3.4827443136935368`*^9, 3.482745134767358*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FanChartPlot", "[", RowBox[{"forecast", ",", "8", ",", "0.05", ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"CenterColor", "\[Rule]", RowBox[{"Darker", "@", "Red"}]}], ",", RowBox[{"CentralForecast", "\[Rule]", "Mean"}]}], "]"}], "\n"}]], "Input",\ CellChangeTimes->{ 3.482742853073419*^9, {3.482743661906193*^9, 3.482743713974264*^9}, 3.482743842020032*^9, {3.482744086185573*^9, 3.4827440910144663`*^9}, { 3.482744311442129*^9, 3.482744331007161*^9}, {3.4827450483825397`*^9, 3.4827450486503153`*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxF1AkwVHEcwPF1LLsrrGtdUUsXTayKDtb+jWMYipAjqm1NjinHOoYoNR0K kzE5ZtZqx5FM6RxRzt1BxpXUoOQqJCzGkStXNfx/3sybN//3Zr7zee//f386 J9T1oiSBQDj97/x/3TimWIk+eXPVQ2OszRtoIDOwyrhsbXNMQqMeOxPM5VuE G2Mq8sqtJBvXV2+OVVHc4+miOzKdQtwTubl2aPXOCXFv7/gp67v7Z4W4F9zG d2ZISIhw7+i3AafSl9oi3PtZS+KMWOiKcO+NjJwokquEcM9TOelD8ZI6wr0w jYaXo4fUEO7RzvY8FNGVEe5pf7w90HNEFeHeI/OLdg2CQfA164gnCewm8KX1 JfDjrebgffeKVyjtWqrgm13yFVOVaeDz1GVYyp6UAx8jpLO9gKMCPpT+xJLu owi+Y9K8xCZTEvgYObkr1nUU8F0Vvws22NEEPsNPhonBmh0wH/q/Ixos7MfB V/R1xNefRgVf2QHLT80VSuDrk9ueynOQBR9z7YRK4zQVfI4Ti5qCVDL4Om7p pDs+lQAfsTx2jH9OCnxmnIXTwz3lsF7astxYoa9GwFfsT5dQZ/4AnzDKLauI SQGfsMWj6/I2efApTfoSyK7S4HPQndDJtlUA32HJ9V367kTwJX+Xl2Rwl1i4 Z53MNrnHW2bhniC8ur409gv4uHU0uoLfNPgqsojrzu6t4IvrZLtccyeC74zS RP9ImSz4wgR+3dxe/D0IqOUK377RBs83CXlyFviu3fg5Fd1MCw7iKk6DL8NA I2ecMQO+mpKC3XsCBsFnav6qoIo2D7732Xn3vAWFLNxbj/GIYUrh/0UV6fUb HY8nS4HPo7+yLz9oHXryzndRpACvLxIi1dVRhopWoRevsPjLdHkAfB8Dht28 owbBJ9sazTsbubUflFrxn9Vm/AFfoJcaxXuoHXptRDZy0PsD+0FKntMYL24V 9gPnoEyZ5Ohl6N0vLs4nMWTAt7ZPwcXEbBF6dvOFWVdqa8D3QM9g9blfJfh6 MyxSrr+Zgl6uNbNrYmlrv7LlvD+fFD4IvdT5S5Kpb2fAx44MMWrjzIHvxYXs AKOaBejd0C9R8R7C652E8qq6IhR3z0JPGPfasjHsM/TiD4baBOR+Ef4FiUJx 7g== "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.9666666666666666, 0.8999999999999999, 0.8999999999999999], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{6, 7, 8, 9, 10, 15, 14, 13, 12, 11}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.9285714285714286, 0.7857142857142857, 0.7857142857142857], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{16, 17, 18, 19, 20, 25, 24, 23, 22, 21}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.8904761904761904, 0.6714285714285714, 0.6714285714285714], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{26, 27, 28, 29, 30, 35, 34, 33, 32, 31}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.8523809523809524, 0.5571428571428572, 0.5571428571428572], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{36, 37, 38, 39, 40, 45, 44, 43, 42, 41}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {RGBColor[ 0.8142857142857143, 0.44285714285714284`, 0.44285714285714284`], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{46, 47, 48, 49, 50, 55, 54, 53, 52, 51}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[ 0.7761904761904762, 0.32857142857142857`, 0.32857142857142857`], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{56, 57, 58, 59, 60, 65, 64, 63, 62, 61}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {RGBColor[0.738095238095238, 0.2142857142857143, 0.2142857142857143], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{66, 67, 68, 69, 70, 75, 74, 73, 72, 71}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.7, 0.1, 0.1], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{76, 77, 78, 79, 80, 85, 84, 83, 82, 81}}]]}, {}, {}, {}}, {{}, {}, {GrayLevel[0], Thickness[Large], LineBox[{1, 2, 3, 4, 5}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, Frame->True, PlotRange->{{0, 5.}, {-7.5594802205896245`, 5.993849956085419}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.48274433184715*^9, 3.482745049280171*^9, 3.4827451373710527`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"forecast2", "=", RowBox[{"{", RowBox[{"2.", ",", "1.8", ",", "1.6", ",", RowBox[{"{", RowBox[{"1.", ",", "0.8", ",", "0.6"}], "}"}], ",", RowBox[{"{", RowBox[{"2.", ",", "0.6", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1", ",", "0.8", ",", "0.4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "0.3", ",", "0.4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", "0.28", ",", "0.35"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.482742831923616*^9, 3.4827428465069113`*^9}, 3.482743290490205*^9, {3.4827435716881027`*^9, 3.4827435718920517`*^9}, { 3.482743730721593*^9, 3.4827438142509527`*^9}, {3.482744374945745*^9, 3.482744385294293*^9}, 3.482744437897688*^9, {3.482744765761039*^9, 3.482744784831262*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FanChartPlot", "[", RowBox[{"forecast2", ",", "8", ",", "0.05", ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"CenterColor", "\[Rule]", RowBox[{"RGBColor", "[", RowBox[{"0.2", ",", "0", ",", "0.9"}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{ 3.4827447978389072`*^9, {3.4827448616134644`*^9, 3.482744865441165*^9}, { 3.482744991888297*^9, 3.482745034407374*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCYAcQgGgI+2EMZDjD67BkQ+AMV53CYNRMEfkL5Ag6o+kQc UPVLQNXvhMrLQPkn90P4ClD+zf3k2n8gOOiq1N2v+2H2q78JdG7X/rwfZn/u hdn+BoyMB2D2W9x65LNtvfQBmP1PD3MkvbCRO0Cu/VvYuA+UFAo6wOwPF+o6 u/mnONz/BRIn1r80FnWA2S8We2fuAUUhB5j90udbHt0xh4Ub6fYvsU51OzHv Mdz/p2Vfv2NIOAX3/+R7bbPrHGHhI+Og/voP1xUpEbj/P/+MeS0gJEa2/8Pl DOzY/bjh/jfIu3ZlaZIw3P8OU1baKUbzw/1vyTKz85QpB9z/BgsW/nE+wkW2 /2te78jVlD8F97/WRa3OXMmr9jD7lb8Un7DxeAP3/+obL2LSxATg/t+pa3fx 9G5Bsv1/j1tmwkxPdrj/bf/5Cp/8CMsXEg7eb39IzpvACff/1WbZKd6rGOH+ Z91V9Wp2HDPZ/jdL+h767M4ueP67MCvYPn/DC7j/N6cpMorbPoT7f39p8KzV tlxw/+8/E3Yzh4eXbP8Lvoth4AxigfvfU+6t7BxXPrj/TZj+qyiHsML93/2A l8mgEKZfwcG5O8GwY+Zve3Ltn1e079i2qutw/xceEVPkS/4I9//uWaz//UPO wf1ffS0hoDaEFe7/KMG391/sZCfb/wXzkm8X3oXFp4jDmcrZHiddYPlBwiE8 6fvsoNsweRmHpsm5mYX8H+H+n6opseCNwSey/X9o61JVtfTHcP+bWm9Yulfs G9z/R+cs6oictxxe/v6vCKuwZYaVhwoOSvf1rOo4mcn2f9j9PfcWZ/6H28/r 3+5QMg+WvyUcOI4c4Xqy+i/c/jq+H89Nfz+C+/98+rPgyNLHZPuf/Vz5zNiS V3D7tznOXnN46i+4/zMiRLkin1yB23+BNcHBU+kXvP7pW+Tzamb1X7LrH//M aWzd5b/h9vdu3ryYw4AN7v9/GnwBhmY/4Pa7fVs+q/LwIbj/Jylp/l2bvIds /9+datNXvwVR/y50tr359uc/uP9dk47GdxU9hts/4Vs204Ttn+D+TyjJ07uQ 9JVs/69LnJOud+g73P4G5a3CkU9g5ZmEw6K9N4v5VT/D7d9fvdHuZMEluP11 Rvku6Quv78du/sjhAwA1FYvG "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.9199999999999999, 0.8999999999999999, 0.99], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{151, 12, 13, 14, 15, 16, 24, 23, 22, 21, 20, 152}}]]}, {RGBColor[0.9199999999999999, 0.8999999999999999, 0.99], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{17, 18, 19, 152, 151, 11, 10, 9}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.8285714285714285, 0.7857142857142857, 0.9785714285714285], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{149, 28, 29, 30, 31, 32, 40, 39, 38, 37, 36, 150}}]]}, {RGBColor[0.8285714285714285, 0.7857142857142857, 0.9785714285714285], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{33, 34, 35, 150, 149, 27, 26, 25}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.7371428571428571, 0.6714285714285714, 0.9671428571428572], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{147, 44, 45, 46, 47, 48, 56, 55, 54, 53, 52, 148}}]]}, {RGBColor[0.7371428571428571, 0.6714285714285714, 0.9671428571428572], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{49, 50, 51, 148, 147, 43, 42, 41}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.6457142857142857, 0.5571428571428572, 0.9557142857142857], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{145, 60, 61, 62, 63, 64, 72, 71, 70, 69, 68, 146}}]]}, {RGBColor[0.6457142857142857, 0.5571428571428572, 0.9557142857142857], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{65, 66, 67, 146, 145, 59, 58, 57}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {RGBColor[0.5542857142857143, 0.44285714285714284`, 0.9442857142857143], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{143, 76, 77, 78, 79, 80, 88, 87, 86, 85, 84, 144}}]]}, {RGBColor[0.5542857142857143, 0.44285714285714284`, 0.9442857142857143], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{81, 82, 83, 144, 143, 75, 74, 73}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[ 0.46285714285714286`, 0.32857142857142857`, 0.9328571428571428], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{141, 92, 93, 94, 95, 96, 104, 103, 102, 101, 100, 142}}]]}, {RGBColor[ 0.46285714285714286`, 0.32857142857142857`, 0.9328571428571428], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{97, 98, 99, 142, 141, 91, 90, 89}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {RGBColor[0.37142857142857144`, 0.2142857142857143, 0.9214285714285715], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{139, 108, 109, 110, 111, 112, 120, 119, 118, 117, 116, 140}}]]}, {RGBColor[0.37142857142857144`, 0.2142857142857143, 0.9214285714285715], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{113, 114, 115, 140, 139, 107, 106, 105}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.28, 0.1, 0.91], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{137, 124, 125, 126, 127, 128, 136, 135, 134, 133, 132, 138}}]]}, {RGBColor[0.28, 0.1, 0.91], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{129, 130, 131, 138, 137, 123, 122, 121}}]]}, {}, {}}, {{}, {}, {GrayLevel[0], Thickness[Large], LineBox[{1, 2, 3, 4, 5, 6, 7, 8}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, Frame->True, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.482744798371183*^9, {3.482744836762574*^9, 3.482744866005916*^9}, { 3.4827449928032017`*^9, 3.4827450347639503`*^9}, 3.4827451398585997`*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{877, 752}, WindowMargins->{{185, Automatic}, {Automatic, 28}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 30, 0, 46, "Subtitle"], Cell[600, 24, 115, 1, 26, "Subsubtitle"], Cell[718, 27, 350, 6, 56, "Text"], Cell[1071, 35, 309, 5, 41, "Text"], Cell[CellGroupData[{ Cell[1405, 44, 55, 0, 67, "Section"], Cell[1463, 46, 233, 5, 41, "Text"], Cell[1699, 53, 1219, 38, 69, "Input"], Cell[2921, 93, 1414, 43, 102, "Input"], Cell[CellGroupData[{ Cell[4360, 140, 677, 18, 43, "Input"], Cell[5040, 160, 2084, 42, 367, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7161, 207, 630, 17, 43, "Input"], Cell[7794, 226, 2044, 42, 369, "Output"] }, Open ]], Cell[9853, 271, 384, 10, 66, "Input"], Cell[10240, 283, 490, 13, 63, "Input"], Cell[10733, 298, 2132, 62, 149, "Input"], Cell[CellGroupData[{ Cell[12890, 364, 432, 13, 27, "Input"], Cell[13325, 379, 635, 15, 234, "Output"] }, Open ]], Cell[13975, 397, 877, 22, 90, "Input"], Cell[14855, 421, 780, 23, 55, "Input"], Cell[CellGroupData[{ Cell[15660, 448, 153, 3, 27, "Input"], Cell[15816, 453, 106, 2, 27, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15971, 461, 32, 0, 67, "Section"], Cell[16006, 463, 256, 4, 41, "Text"], Cell[16265, 469, 69, 1, 27, "Input"], Cell[16337, 472, 480, 13, 27, "Input"], Cell[16820, 487, 6136, 147, 273, "Input"], Cell[22959, 636, 6769, 160, 333, "Input"], Cell[29731, 798, 815, 21, 27, "Input"], Cell[CellGroupData[{ Cell[30571, 823, 379, 9, 43, "Input"], Cell[30953, 834, 5149, 98, 244, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36139, 937, 542, 12, 43, "Input"], Cell[36684, 951, 4677, 91, 244, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41398, 1047, 589, 13, 43, "Input"], Cell[41990, 1062, 4676, 91, 244, "Output"] }, Open ]], Cell[46681, 1156, 901, 22, 43, "Input"], Cell[CellGroupData[{ Cell[47607, 1182, 478, 10, 27, "Input"], Cell[48088, 1194, 6236, 123, 243, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)