(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 370677, 7905] NotebookOptionsPosition[ 235109, 5325] NotebookOutlinePosition[ 366333, 7765] CellTagsIndexPosition[ 366253, 7760] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellChangeTimes->{3.584998877922649*^9}, CellTags->"SlideShowHeader"], Cell["Solution of Extreme Transcendental Differential Equations", "Title", CellChangeTimes->{{3.448190122176695*^9, 3.44819012385317*^9}, { 3.485609127497636*^9, 3.485609133015955*^9}, {3.514308355088097*^9, 3.514308374696691*^9}, 3.5146594348020153`*^9, 3.5146601881617107`*^9, { 3.584998217462418*^9, 3.584998242441815*^9}, {3.584998323322356*^9, 3.5849983304753437`*^9}, {3.584998448730006*^9, 3.584998449139331*^9}, { 3.584998540142825*^9, 3.5849985501029577`*^9}, {3.5850010441467743`*^9, 3.585001073633552*^9}, {3.58501557541346*^9, 3.585015575652357*^9}, { 3.585018310499155*^9, 3.585018312436632*^9}}], Cell["Stuart Nettleton", "Subtitle", CellChangeTimes->{{3.485609136120798*^9, 3.4856091511532907`*^9}, { 3.4856091945334663`*^9, 3.485609199379443*^9}, {3.4951031489375*^9, 3.49510314984375*^9}, {3.495106455296875*^9, 3.495106455453125*^9}, { 3.5143083846926413`*^9, 3.514308395249558*^9}, 3.5443793532699003`*^9, { 3.584998340784872*^9, 3.584998348230809*^9}}], Cell["\<\ University of Technology Sydney August 2013\ \>", "Subsubtitle", CellChangeTimes->{ 3.483202458953512*^9, {3.495105345328125*^9, 3.495105347890625*^9}, { 3.49510644571875*^9, 3.495106448390625*^9}, {3.5143083980990458`*^9, 3.514308409442589*^9}, {3.58499835283391*^9, 3.5849983592388973`*^9}, { 3.5850155581026573`*^9, 3.585015563796109*^9}, {3.585018427617753*^9, 3.585018440168681*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Abstract", "Section", CellChangeTimes->{{3.5862091533482723`*^9, 3.586209155201964*^9}, 3.586209811607306*^9}], Cell[TextData[{ "Extreme transcendental differential equations are found in ", StyleBox["many applications including geophysical climate change models", FontWeight->"Bold"], ". Solution of these systems in ", StyleBox["continuous time", FontWeight->"Bold"], " has only been feasible with the recent development of ", StyleBox["Chebyshev solvers such as ", FontWeight->"Bold"], StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic"], StyleBox[" 9\[CloseCurlyQuote]s NDSolve function", FontWeight->"Bold"], ". This paper presents the challenges and means of solving the widely used \ DICE 2007 integrated assessment model in continuous time. Application of the \ solution technique in a mobile policy tool is discussed. " }], "Text", CellChangeTimes->{{3.586209167454214*^9, 3.586209394670884*^9}, { 3.586209426115365*^9, 3.5862095934259367`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["An example", "Section", CellChangeTimes->{{3.591611116371167*^9, 3.591611138250296*^9}, 3.591611193786723*^9}], Cell[CellGroupData[{ Cell["Transcendental Differential Equation System", "Subsection", CellChangeTimes->{{3.585360545547522*^9, 3.585360561643755*^9}, { 3.58542677929734*^9, 3.585426785232669*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"equations", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["k", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "0.1`"}], " ", RowBox[{"k", "[", "t", "]"}]}], "-", RowBox[{"269.3998529790092`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "9.2`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.001`"}], " ", "t"}]]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"8600", "-", RowBox[{"2086", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.035`"}], " ", "t"}]]}]}], ")"}], "0.7`"], " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Tat", "[", "t", "]"}], "\[LessEqual]", "0"}], ",", "1", ",", FractionBox["1", RowBox[{"1", "+", RowBox[{"0", " ", RowBox[{"Tat", "[", "t", "]"}]}], "+", RowBox[{"0.0028388`", " ", SuperscriptBox[ RowBox[{"Tat", "[", "t", "]"}], "2"]}]}]]}], "]"}], " ", SuperscriptBox[ RowBox[{"k", "[", "t", "]"}], "0.3`"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"0.0024598146458005322`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2.433333333333333`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.003`"}], " ", "t"}]]}]], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.005`"}], " ", "t"}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"\[Mu]", "[", "t", "]"}], "2.8`"]}]}], ")"}]}], "-", RowBox[{"c", "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Tat", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"0.22`", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "36.7073066928394`"}], "+", RowBox[{"5.482241155378061`", " ", RowBox[{"Log", "[", RowBox[{"Mat", "[", "t", "]"}], "]"}]}], "+", RowBox[{"(", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ RowBox[{"-", "0.06`"}], "+", RowBox[{"0.0036`", " ", "t"}]}], RowBox[{"t", "\[LessEqual]", "100"}]}, {"0.3`", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ")"}]}], ")"}]}], "-", RowBox[{"0.06441748633333333`", " ", RowBox[{"Tat", "[", "t", "]"}]}], "+", RowBox[{"0.011002153`", " ", RowBox[{"Tlo", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Tlo", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"0.0048`", " ", RowBox[{"Tat", "[", "t", "]"}]}], "-", RowBox[{"0.0048`", " ", RowBox[{"Tlo", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Mat", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"1.1`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.01`"}], " ", "t"}]]}], "-", RowBox[{"0.0190837`", " ", RowBox[{"Mat", "[", "t", "]"}]}], "+", RowBox[{"0.009800871837862596`", " ", RowBox[{"Mup", "[", "t", "]"}]}], "-", RowBox[{"3.171771574386283`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2.433333333333333`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.003`"}], " ", "t"}]]}], "-", RowBox[{"9.2`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.001`"}], " ", "t"}]]}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"8600", "-", RowBox[{"2086", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.035`"}], " ", "t"}]]}]}], ")"}], "0.7`"], " ", SuperscriptBox[ RowBox[{"k", "[", "t", "]"}], "0.3`"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1.`"}], "+", RowBox[{"\[Mu]", "[", "t", "]"}]}], ")"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Mup", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"0.0190837`", " ", RowBox[{"Mat", "[", "t", "]"}]}], "+", RowBox[{"0.0003369934177753544`", " ", RowBox[{"Mlo", "[", "t", "]"}]}], "-", RowBox[{"0.015203871837862596`", " ", RowBox[{"Mup", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Mlo", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "0.0003369934177753544`"}], " ", RowBox[{"Mlo", "[", "t", "]"}]}], "+", RowBox[{"0.005403`", " ", RowBox[{"Mup", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SuperscriptBox["\[Mu]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ FractionBox["1", "10"], " ", "\[Mu]const", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Mu]", "[", "t", "]"}]}], ")"}], " ", RowBox[{"\[Mu]", "[", "t", "]"}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"equations", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"c", "[", "t", "]"}], "\[Rule]", "38.1"}], ",", RowBox[{"\[Mu]const", "\[Rule]", "1.2"}]}], "}"}]}], ",", RowBox[{ RowBox[{"k", "[", "0", "]"}], "\[Equal]", "136.7"}], ",", RowBox[{ RowBox[{"Tat", "[", "0", "]"}], "\[Equal]", "0.7307"}], ",", RowBox[{ RowBox[{"Tlo", "[", "0", "]"}], "\[Equal]", "0.0068"}], ",", RowBox[{ RowBox[{"Mat", "[", "0", "]"}], "\[Equal]", "808.9"}], ",", RowBox[{ RowBox[{"Mup", "[", "0", "]"}], "\[Equal]", "1255.0"}], ",", RowBox[{ RowBox[{"Mlo", "[", "0", "]"}], "\[Equal]", "18365.0"}], ",", RowBox[{ RowBox[{"\[Mu]", "[", "0", "]"}], "\[Equal]", "0.005"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"k", "'"}], "[", "t", "]"}], ",", RowBox[{"k", "[", "t", "]"}], ",", RowBox[{"Tat", "[", "t", "]"}], ",", RowBox[{"Tlo", "[", "t", "]"}], ",", RowBox[{"Mat", "[", "t", "]"}], ",", RowBox[{"Mup", "[", "t", "]"}], ",", RowBox[{"Mlo", "[", "t", "]"}], ",", RowBox[{"\[Mu]", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1400"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.585258236705991*^9, 3.585258291743229*^9}, { 3.585258327325*^9, 3.585258340194195*^9}, {3.585258388209428*^9, 3.585258437077599*^9}, 3.585258505649919*^9, {3.5852585466103163`*^9, 3.585258555624731*^9}, {3.5853604535813303`*^9, 3.585360462750284*^9}, 3.5853605288411627`*^9, {3.591606181661127*^9, 3.591606207739476*^9}, { 3.5916062690219297`*^9, 3.591606484197747*^9}, {3.591606515160388*^9, 3.5916065155701857`*^9}, {3.591606548343877*^9, 3.591606559066374*^9}, { 3.5916065981034803`*^9, 3.591606950829508*^9}, 3.591606981426127*^9}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"%", "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1400"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.585258236705991*^9, 3.585258291743229*^9}, { 3.585258327325*^9, 3.585258340194195*^9}, {3.585258388209428*^9, 3.585258437077599*^9}, 3.585258505649919*^9, {3.5852585466103163`*^9, 3.585258555624731*^9}, {3.5853604535813303`*^9, 3.585360462750284*^9}, 3.5853605288411627`*^9, {3.591606181661127*^9, 3.591606207739476*^9}, { 3.5916062690219297`*^9, 3.591606484197747*^9}, {3.591606515160388*^9, 3.5916065155701857`*^9}, {3.591606548343877*^9, 3.591606559066374*^9}, { 3.5916065981034803`*^9, 3.591606950829508*^9}, 3.591606981426127*^9}] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Transcendental Differential Equations\ \>", "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308340990994*^9, 3.514308352103572*^9}, { 3.585001029911323*^9, 3.585001101464718*^9}, 3.585001155728911*^9, { 3.585014015895467*^9, 3.585014017610895*^9}, {3.585014134561355*^9, 3.585014137132638*^9}, 3.585015582332596*^9}], Cell[TextData[{ "Transcendental equations contain transcendental or non-algebraic functions \ such as ", Cell[BoxData[ SuperscriptBox["e", "x"]], "InlineFormula"], ", ", Cell[BoxData[ RowBox[{"Log", "[", "x", "]"}]], "InlineFormula"], " and ", Cell[BoxData[ RowBox[{"Cos", "[", "x", "]"}]], "InlineFormula"], ". The defining characteristic of transcendental functions is that the roots \ are not algebraically independent, which means that the roots cannot be \ expressed as the solution to a polynomial equation whose coefficients are \ polynomials with rational coefficients." }], "Text", CellChangeTimes->{{3.495209008234375*^9, 3.49520915653125*^9}, 3.495209919765625*^9, 3.4952106014375*^9, {3.4952106824375*^9, 3.495210832234375*^9}, 3.514307848543872*^9, {3.514308058576482*^9, 3.514308065607885*^9}, {3.51430841745117*^9, 3.514308419642997*^9}, { 3.5149152616687326`*^9, 3.514915280523456*^9}, {3.514915328702818*^9, 3.5149153375415287`*^9}, 3.514915444638068*^9, {3.5850012777826233`*^9, 3.585001387268221*^9}, {3.5850014725624123`*^9, 3.585001703614745*^9}, { 3.585002086773933*^9, 3.5850021144505577`*^9}, {3.585002171260601*^9, 3.5850021788997593`*^9}, {3.585002219544098*^9, 3.58500225562809*^9}, { 3.5850023002291594`*^9, 3.585002341726008*^9}, 3.58500237641658*^9, { 3.585002427566121*^9, 3.585002441265018*^9}, {3.585002636316305*^9, 3.585002880818637*^9}, {3.585002918324191*^9, 3.585003021519205*^9}, { 3.585003062696033*^9, 3.585003166585392*^9}, {3.585003209000229*^9, 3.5850032825982733`*^9}, {3.5850033482991257`*^9, 3.585003370099854*^9}, { 3.5850034823191347`*^9, 3.5850035147979507`*^9}, {3.585003560550643*^9, 3.5850036786573*^9}, {3.585003908077442*^9, 3.585003956634301*^9}, { 3.585018544006508*^9, 3.585018569487783*^9}}], Cell[CellGroupData[{ Cell["DICE 2007 example system", "Subsection", CellChangeTimes->{{3.585007944342113*^9, 3.585008009303306*^9}, { 3.585014085701926*^9, 3.585014152875552*^9}}], Cell["\<\ It is often difficult to appreciate the sensitivity of complex social systems \ to changing constraints without simulating key interrelationships in the \ system. The DICE 2007 integrated assessment model was developed to understand \ the interrelationships between climate change, the social cost of carbon and \ efficient carbon abatement trajectories [1], [2], [3]. It has become a \ classic climate change policy simulation tool for evaluating the social and \ geophysical effects of global warming. An indicator of the success of models \ such as DICE 2007 in policy formation is the embedding of results and \ recommendations within the national climate change policies of many \ countries. \ \>", "Text", CellChangeTimes->{{3.495209008234375*^9, 3.49520915653125*^9}, 3.495209919765625*^9, 3.4952106014375*^9, {3.4952106824375*^9, 3.495210832234375*^9}, 3.514307848543872*^9, {3.514308058576482*^9, 3.514308065607885*^9}, {3.51430841745117*^9, 3.514308419642997*^9}, { 3.5149152616687326`*^9, 3.514915280523456*^9}, {3.514915328702818*^9, 3.5149153375415287`*^9}, 3.514915444638068*^9, {3.5850012777826233`*^9, 3.585001387268221*^9}, {3.5850014725624123`*^9, 3.585001703614745*^9}, { 3.585002086773933*^9, 3.5850021144505577`*^9}, {3.585002171260601*^9, 3.5850021788997593`*^9}, {3.585002219544098*^9, 3.58500225562809*^9}, { 3.5850023002291594`*^9, 3.585002341726008*^9}, 3.58500237641658*^9, { 3.585002427566121*^9, 3.585002441265018*^9}, {3.585002636316305*^9, 3.585002880818637*^9}, {3.585002918324191*^9, 3.585003021519205*^9}, { 3.585003062696033*^9, 3.585003166585392*^9}, {3.585003209000229*^9, 3.5850032825982733`*^9}, {3.5850033482991257`*^9, 3.585003370099854*^9}, { 3.5850034823191347`*^9, 3.5850035147979507`*^9}, {3.585003560550643*^9, 3.5850036786573*^9}, {3.585003908077442*^9, 3.585003963227757*^9}, { 3.585004002561018*^9, 3.585004037978545*^9}, {3.585004072002768*^9, 3.585004097720339*^9}, {3.585007752528702*^9, 3.5850077967602*^9}, 3.585007866230774*^9, {3.585008118421637*^9, 3.58500813498807*^9}, { 3.5850082028523607`*^9, 3.585008349350366*^9}, {3.585008404679558*^9, 3.585009096034227*^9}, {3.585009435019948*^9, 3.5850095919982023`*^9}, { 3.5850096383245487`*^9, 3.585009649589962*^9}, {3.585009703276746*^9, 3.585009729045453*^9}, {3.585009790469966*^9, 3.585009838674377*^9}, { 3.585009885238968*^9, 3.5850099000525913`*^9}, {3.585010318796109*^9, 3.585010337843307*^9}, {3.585010429726746*^9, 3.585010440532379*^9}, { 3.585010625019886*^9, 3.5850106279084253`*^9}, {3.5850148382105417`*^9, 3.585014911197378*^9}, {3.585014961969322*^9, 3.585014995188738*^9}, 3.585018273474015*^9}], Cell["\<\ The DICE 2007 model is an optimization problem defined by a system of \ transcendental differential equations. Figure 1 summarizes a continuous 2007 \ DICE formulation utilizing parameters fitted through dynamic programming [4], \ [5].\ \>", "Text", CellChangeTimes->{{3.495209008234375*^9, 3.49520915653125*^9}, 3.495209919765625*^9, 3.4952106014375*^9, {3.4952106824375*^9, 3.495210832234375*^9}, 3.514307848543872*^9, {3.514308058576482*^9, 3.514308065607885*^9}, {3.51430841745117*^9, 3.514308419642997*^9}, { 3.5149152616687326`*^9, 3.514915280523456*^9}, {3.514915328702818*^9, 3.5149153375415287`*^9}, 3.514915444638068*^9, {3.5850012777826233`*^9, 3.585001387268221*^9}, {3.5850014725624123`*^9, 3.585001703614745*^9}, { 3.585002086773933*^9, 3.5850021144505577`*^9}, {3.585002171260601*^9, 3.5850021788997593`*^9}, {3.585002219544098*^9, 3.58500225562809*^9}, { 3.5850023002291594`*^9, 3.585002341726008*^9}, 3.58500237641658*^9, { 3.585002427566121*^9, 3.585002441265018*^9}, {3.585002636316305*^9, 3.585002880818637*^9}, {3.585002918324191*^9, 3.585003021519205*^9}, { 3.585003062696033*^9, 3.585003166585392*^9}, {3.585003209000229*^9, 3.5850032825982733`*^9}, {3.5850033482991257`*^9, 3.585003370099854*^9}, { 3.5850034823191347`*^9, 3.5850035147979507`*^9}, {3.585003560550643*^9, 3.5850036786573*^9}, {3.585003908077442*^9, 3.585003963227757*^9}, { 3.585004002561018*^9, 3.585004037978545*^9}, {3.585004072002768*^9, 3.585004097720339*^9}, {3.585007752528702*^9, 3.5850077967602*^9}, 3.585007866230774*^9, {3.585008118421637*^9, 3.58500813498807*^9}, { 3.5850082028523607`*^9, 3.585008349350366*^9}, {3.585008404679558*^9, 3.585009096034227*^9}, {3.585009435019948*^9, 3.5850095919982023`*^9}, { 3.5850096383245487`*^9, 3.585009649589962*^9}, {3.585009703276746*^9, 3.585009729045453*^9}, {3.585009790469966*^9, 3.585009838674377*^9}, { 3.585009885238968*^9, 3.5850099000525913`*^9}, {3.585010318796109*^9, 3.585010337843307*^9}, {3.585010429726746*^9, 3.585010440532379*^9}, { 3.585010625019886*^9, 3.5850106279084253`*^9}, {3.5850148382105417`*^9, 3.585014911197378*^9}, {3.585014961969322*^9, 3.585015004989131*^9}, { 3.585015040691061*^9, 3.5850150617523003`*^9}, {3.5850185793408947`*^9, 3.585018581699129*^9}, {3.59160519140278*^9, 3.59160519180576*^9}}], Cell[TextData[{ StyleBox["Maximize", FontWeight->"Bold"], "\n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"utility", " ", "per", " ", "capita"}], "=", RowBox[{"381000", " ", "+", " ", RowBox[{ FractionBox["1", "194"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"1400", "years"}]], RowBox[{ SuperscriptBox["e", RowBox[{ RowBox[{"-", "0.015"}], " ", "t"}]], RowBox[{ SubscriptBox["c", "t"], "(", RowBox[{"1", "-", FractionBox[ SubscriptBox["l", "t"], SubscriptBox["c", "t"]]}], ")"}], " ", RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]}], TraditionalForm]]], "\n", StyleBox["Where:", FontWeight->"Bold"], "\n", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["c", "t"], "\[GreaterEqual]", "0"}], TraditionalForm]]], " is global consumption at time ", Cell[BoxData[ FormBox["t", TraditionalForm]]], "\n", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["l", "t"], "=", RowBox[{ RowBox[{"6514", SuperscriptBox["e", RowBox[{ RowBox[{"-", "0.035"}], "t"}]]}], "+", RowBox[{"8600", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["e", RowBox[{ RowBox[{"-", "0.035"}], "t"}]]}], ")"}]}]}]}], TraditionalForm]]], " is global population at time ", Cell[BoxData[ FormBox["t", TraditionalForm]]], "\n", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["k", "t"], "\[GreaterEqual]", "0"}], TraditionalForm]]], " is global capital stock at time ", Cell[BoxData[ FormBox["t", TraditionalForm]]], "\n", Cell[BoxData[ FormBox[ SubscriptBox["Tat", "t"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["Tlo", "t"], TraditionalForm]]], " is global mean surface and lower ocean temperature rise at time ", Cell[BoxData[ FormBox["t", TraditionalForm]]], "\n", Cell[BoxData[ FormBox[ SubscriptBox["Mat", "t"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["Mlo", "t"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["Mlo", "t"], TraditionalForm]]], " are the masses of carbon in the atmosphere, upper & lower oceans at time \ ", Cell[BoxData[ FormBox["t", TraditionalForm]]], "\n", Cell[BoxData[ FormBox[ RowBox[{"0", "\[LessEqual]", SubscriptBox["\[Mu]", "t"], "\[LessEqual]", "1"}], TraditionalForm]]], " is amelioration & abatement proportion at time ", Cell[BoxData[ FormBox["t", TraditionalForm]]], "\n\n", StyleBox["Subject to:\n(a) The equations of motion:", FontWeight->"Bold"], "\n", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["k", "t", "'"], "=", " ", RowBox[{ RowBox[{"-", StyleBox[ SubscriptBox["c", "t"], FontWeight->"Bold"]}], "-", RowBox[{"0.1", SubsuperscriptBox["k", "t", "'"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"269.4", SuperscriptBox["e", RowBox[{ RowBox[{"-", "9.2"}], SuperscriptBox["e", RowBox[{ RowBox[{"-", "0.001"}], "t"}]]}]], SubsuperscriptBox["k", "t", "0.3"], RowBox[{ SubsuperscriptBox["l", "t", "0.7"], "(", RowBox[{ RowBox[{"0.00245981", RowBox[{ SuperscriptBox["e", RowBox[{"2.43333", SuperscriptBox["e", RowBox[{ RowBox[{"-", "0.003"}], "t"}]]}]], "(", RowBox[{"1", "+", SuperscriptBox["e", RowBox[{ RowBox[{"-", "0.005"}], "t"}]]}], ")"}], StyleBox[ SubsuperscriptBox["\[Mu]", "t", "2.8"], FontWeight->"Bold"]}], "-", "1"}], ")"}]}], ")"}], "/", RowBox[{"If", "[", RowBox[{ RowBox[{ SubscriptBox["Tat", "t"], "\[LessEqual]", "0"}], ",", " ", "1", ",", " ", RowBox[{"1", "+", RowBox[{"0.0028388", SubsuperscriptBox["Tat", "t", "2"]}]}]}], "]"}]}]}]}], TraditionalForm]]], "\n", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["Tat", "t", "'"], "=", RowBox[{ RowBox[{"0.22", RowBox[{"(", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"t", "\[LessEqual]", "100"}], ",", RowBox[{ RowBox[{"0.0036", "t"}], "-", "0.06"}], ",", "0.03"}], "]"}], "+", RowBox[{"5.48224", RowBox[{"Log", "[", SubscriptBox["Mat", "t"], "]"}]}], "-", "36.7073"}], ")"}]}], "-", RowBox[{"0.0644175", SubscriptBox["Tat", "t"]}], "+", RowBox[{"0.0110022", SubscriptBox["Tlo", "t"]}]}]}], TraditionalForm]]], "\n", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["Tlo", "t", "'"], "=", RowBox[{"0.0048", RowBox[{"(", RowBox[{ SubscriptBox["Tat", "t"], "-", SubscriptBox["Tlo", "t"]}], ")"}]}]}], TraditionalForm]]], "\n", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["Mat", "t", "'"], "=", RowBox[{ RowBox[{ RowBox[{"-", "3.17177"}], SuperscriptBox["e", RowBox[{ RowBox[{"2.43333", SuperscriptBox["e", RowBox[{ RowBox[{"-", "0.003"}], "t"}]]}], "-", RowBox[{"9.2", SuperscriptBox["e", RowBox[{ RowBox[{"-", "0.001"}], "t"}]]}]}]], SubsuperscriptBox["k", "t", "0.3"], RowBox[{ SubsuperscriptBox["l", "t", "0.7"], "(", RowBox[{ StyleBox[ SubscriptBox["\[Mu]", "t"], FontWeight->"Bold"], "-", "1"}], ")"}]}], "-", RowBox[{"0.0190837", SubscriptBox["Mat", "t"]}], "+", RowBox[{"0.00980087", SubscriptBox["Mup", "t"]}], "+", RowBox[{"1.1", SuperscriptBox["e", RowBox[{ RowBox[{"-", "0.01"}], "t"}]]}]}]}], TraditionalForm]]], "\n", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["Mup", "t", "'"], "=", RowBox[{ RowBox[{"0.0190837", SubscriptBox["Mat", "t"]}], "+", RowBox[{"0.000336993", SubscriptBox["Mlo", "t"]}], "-", RowBox[{"0.0152039", SubscriptBox["Mup", "t"]}]}]}], TraditionalForm]]], "\n", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["Mlo", "t", "'"], "=", RowBox[{ RowBox[{"0.005403", SubscriptBox["Mup", "t"]}], "-", RowBox[{"0.000336993", SubscriptBox["Mlo", "t"]}]}]}], TraditionalForm]]], "\n", StyleBox["(b) Atmospheric temperature rise constraint ", FontWeight->"Bold"], "\n", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["Tat", "t"], "\[LessEqual]", RowBox[{ "a", " ", "maximum", " ", "temperature", " ", "rise", " ", "level", " ", "for", " ", "all", " ", "t"}]}], TraditionalForm]]], " (say 2\[Degree], which is the internationally agreed \"safe level\") \n\n\ ", StyleBox["Figure 1: Continuous Formulation of the DICE 2007 Model", FontWeight->"Bold"] }], "Text", CellChangeTimes->{{3.5852586621193237`*^9, 3.585258748337531*^9}, { 3.585258810552991*^9, 3.585258881752922*^9}, {3.585258938258115*^9, 3.585260544113264*^9}, {3.585260588428323*^9, 3.585260597899688*^9}, { 3.5852606319129143`*^9, 3.585260631912982*^9}, {3.585260664021448*^9, 3.5852606640215178`*^9}, {3.585260726393406*^9, 3.585260772401311*^9}, { 3.5852611536239443`*^9, 3.585261182660902*^9}, {3.5852612760307617`*^9, 3.5852612798356867`*^9}, {3.591605215479229*^9, 3.591605243580022*^9}, 3.591605283106039*^9, {3.591605324238132*^9, 3.5916053275643682`*^9}, { 3.591605509473298*^9, 3.591605818614848*^9}, {3.5916059500331182`*^9, 3.591605972850114*^9}, {3.591610879799076*^9, 3.5916109187979794`*^9}}, Background->RGBColor[1, 1, 0.85]], Cell[TextData[{ "Materially adding to the challenge of extreme transcendentality is the ", StyleBox["outer intertemporal joint optimization across the two unknown \ functions ", FontWeight->"Bold"], Cell[BoxData[ FormBox[ SubscriptBox["c", "t"], TraditionalForm]], FontWeight->"Bold"], StyleBox[" and ", FontWeight->"Bold"], Cell[BoxData[ FormBox[ SubscriptBox["\[Mu]", "t"], TraditionalForm]], FontWeight->"Bold"], " together with the continuous constraint ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["Tat", "t"], "\[LessEqual]", " ", SubscriptBox["T", "max"]}], TraditionalForm]]], ". Such extreme transcendentality, non-linearity and the presence of a large \ and possibly infinite number of local maxima between the two unknown \ functions to be jointly optimized has led to this apparently concise system \ of equations becoming renowned as extraordinarily difficult to solve." }], "Text", CellChangeTimes->{{3.495209008234375*^9, 3.49520915653125*^9}, 3.495209919765625*^9, 3.4952106014375*^9, {3.4952106824375*^9, 3.495210832234375*^9}, 3.514307848543872*^9, {3.514308058576482*^9, 3.514308065607885*^9}, {3.51430841745117*^9, 3.514308419642997*^9}, { 3.5149152616687326`*^9, 3.514915280523456*^9}, {3.514915328702818*^9, 3.5149153375415287`*^9}, 3.514915444638068*^9, {3.5850012777826233`*^9, 3.585001387268221*^9}, {3.5850014725624123`*^9, 3.585001703614745*^9}, { 3.585002086773933*^9, 3.5850021144505577`*^9}, {3.585002171260601*^9, 3.5850021788997593`*^9}, {3.585002219544098*^9, 3.58500225562809*^9}, { 3.5850023002291594`*^9, 3.585002341726008*^9}, 3.58500237641658*^9, { 3.585002427566121*^9, 3.585002441265018*^9}, {3.585002636316305*^9, 3.585002880818637*^9}, {3.585002918324191*^9, 3.585003021519205*^9}, { 3.585003062696033*^9, 3.585003166585392*^9}, {3.585003209000229*^9, 3.5850032825982733`*^9}, {3.5850033482991257`*^9, 3.585003370099854*^9}, { 3.5850034823191347`*^9, 3.585003547117517*^9}, {3.58500366675597*^9, 3.585003672627059*^9}, 3.585003874594795*^9, {3.585008072217745*^9, 3.585008078860508*^9}, {3.585009117024445*^9, 3.5850094221894627`*^9}, 3.585009671514683*^9, {3.58500991480927*^9, 3.5850102033082247`*^9}, { 3.585010242903576*^9, 3.5850102870931664`*^9}, {3.585015398599782*^9, 3.5850154531940947`*^9}, {3.585015606973138*^9, 3.585015614968091*^9}, { 3.58501689797016*^9, 3.585016922082037*^9}, {3.58543196560935*^9, 3.5854321131040907`*^9}, 3.5916059859362993`*^9, {3.59160603440016*^9, 3.591606039912126*^9}, {3.591611393385741*^9, 3.591611422233128*^9}}] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["DICE 2007 Solution", "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308340990994*^9, 3.514308352103572*^9}, { 3.585014200844193*^9, 3.585014223194969*^9}, {3.58501578920711*^9, 3.5850157930246468`*^9}, {3.585017171812245*^9, 3.58501717426059*^9}, { 3.585017385215508*^9, 3.585017388735572*^9}}], Cell[CellGroupData[{ Cell["\<\ Traditional and enhanced-traditional approaches\ \>", "Subsection", CellChangeTimes->{{3.58501586456222*^9, 3.585015929034555*^9}, 3.585018686311202*^9}], Cell[TextData[{ "The DICE 2007 model has always been solved by discretizing into decade time \ periods and introducing a helper Savings Ratio constraint to eliminate \ consumption ", Cell[BoxData[ FormBox[ SubscriptBox["c", "t"], TraditionalForm]]], " as an unknown function. Usually this is calculated in GAMS with the CONOPT \ solver [1], [2]." }], "Text", CellChangeTimes->{{3.5850158554644127`*^9, 3.585015884209635*^9}, { 3.5850159338957233`*^9, 3.585015961735297*^9}, {3.585016017996663*^9, 3.585016056585515*^9}, {3.591610750726722*^9, 3.591610761776168*^9}}], Cell["\<\ Recently, decade time periods have been reduced to discrete single year \ periods using Dynamic Programming, Approximate Dynamic Programming and \ Optimal Control Theory [4], [6], [7], [8].\ \>", "Text", CellChangeTimes->{{3.5850158554644127`*^9, 3.585015884209635*^9}, { 3.5850159338957233`*^9, 3.585015975835684*^9}, 3.585018689750313*^9, { 3.591610770448019*^9, 3.591610788995582*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["New approach: Chebyshev solver", "Subsection", CellChangeTimes->{ 3.483202458956058*^9, {3.514309203943825*^9, 3.514309209861143*^9}, { 3.585007873707613*^9, 3.585007911242887*^9}, {3.585014264537652*^9, 3.585014266231151*^9}, {3.585015686235016*^9, 3.585015699601161*^9}, { 3.5850159887899857`*^9, 3.585016004049065*^9}, {3.5850160946795483`*^9, 3.585016095052059*^9}, {3.5850169499354057`*^9, 3.5850169575060053`*^9}, { 3.5850171785308332`*^9, 3.5850171981387*^9}, {3.585017404221196*^9, 3.58501740493731*^9}}], Cell[TextData[{ StyleBox["Mathematica 9\[CloseCurlyQuote]", FontSlant->"Italic"], "s NDSolve numerical differential algebraic equation function is able to \ solve the DICE 2007 model using in-built Chebyshev polynomial approximation \ [9], [10]. Furthermore, NDSolve solution of transcendental differential \ equations is quick and suitable for placing within the global optimizer \ NMaximize." }], "Text", CellChangeTimes->{{3.5143080983732347`*^9, 3.514308102892667*^9}, { 3.514308469349834*^9, 3.5143084713580437`*^9}, {3.514308507511819*^9, 3.514308539833797*^9}, {3.585008034650591*^9, 3.585008061065793*^9}, { 3.585010464274107*^9, 3.58501059567231*^9}, {3.585010640981371*^9, 3.585010699268268*^9}, {3.585010757285893*^9, 3.585011006161826*^9}, { 3.5850155049492598`*^9, 3.585015506713079*^9}, {3.585016107404861*^9, 3.585016109650975*^9}, {3.58501638130215*^9, 3.5850163943087873`*^9}, { 3.585018690865088*^9, 3.585018715732939*^9}}], Cell[CellGroupData[{ Cell[TextData[{ "Resolving the two completely unknown equations ", Cell[BoxData[ FormBox[ SubscriptBox["c", "t"], TraditionalForm]], FormatType->"TraditionalForm"], " and ", Cell[BoxData[ FormBox[ SubscriptBox["\[Mu]", "t"], TraditionalForm]], FormatType->"TraditionalForm"] }], "Subsubsection", CellChangeTimes->{ 3.585016980296833*^9, {3.585017222797524*^9, 3.585017225027259*^9}}], Cell[TextData[{ "Notwithstanding the extraordinarily powerful combination of NMaximize and \ NDSolve, the overwhelming interaction between two the simultaneously unknown \ functions ", Cell[BoxData[ FormBox[ SubscriptBox["c", "t"], TraditionalForm]], FormatType->"TraditionalForm"], " and ", Cell[BoxData[ FormBox[ SubscriptBox["\[Mu]", "t"], TraditionalForm]], FormatType->"TraditionalForm"], " is a major barrier to rapid solution." }], "Text", CellChangeTimes->{{3.5143080983732347`*^9, 3.514308102892667*^9}, { 3.514308469349834*^9, 3.5143084713580437`*^9}, {3.514308507511819*^9, 3.514308539833797*^9}, {3.585008034650591*^9, 3.585008061065793*^9}, { 3.585010464274107*^9, 3.58501059567231*^9}, {3.585010640981371*^9, 3.585010699268268*^9}, {3.585010757285893*^9, 3.58501178292662*^9}, 3.585014275788801*^9, {3.5850143117469187`*^9, 3.585014371587502*^9}, { 3.585016411596919*^9, 3.585016414101397*^9}}], Cell[TextData[{ "Rather than following the traditional approach of making an arbitrary \ assumption to eliminate ", Cell[BoxData[ FormBox[ SubscriptBox["c", "t"], TraditionalForm]]], ", it is more realistic to consider a likely form of the unknown function ", Cell[BoxData[ FormBox[ SubscriptBox["\[Mu]", "t"], TraditionalForm]], FormatType->"TraditionalForm"], "." }], "Text", CellChangeTimes->{{3.5143080983732347`*^9, 3.514308102892667*^9}, { 3.514308469349834*^9, 3.5143084713580437`*^9}, {3.514308507511819*^9, 3.514308539833797*^9}, {3.585008034650591*^9, 3.585008061065793*^9}, { 3.585010464274107*^9, 3.58501059567231*^9}, {3.585010640981371*^9, 3.585010699268268*^9}, {3.585010757285893*^9, 3.585011694142024*^9}, { 3.5850117957420797`*^9, 3.585011816914009*^9}, {3.585011897184885*^9, 3.5850119014075727`*^9}, {3.5850143786178627`*^9, 3.585014381539242*^9}}], Cell[CellGroupData[{ Cell[TextData[{ "Amelioration and abatement function ", Cell[BoxData[ FormBox[ SubscriptBox["\[Mu]", "t"], TraditionalForm]]], " as generic sigmoid" }], "Subsubsubsection", CellChangeTimes->{ 3.585017029061545*^9, {3.585017101192773*^9, 3.58501710252326*^9}, 3.585018732391622*^9}], Cell[TextData[{ "Policy makers may choose any number of forms for ", Cell[BoxData[ FormBox[ SubscriptBox["\[Mu]", "t"], TraditionalForm]]], ", including \"business as usual\" leaving the form of ", Cell[BoxData[ FormBox[ SubscriptBox["\[Mu]", "t"], TraditionalForm]]], " totally to market forces (in the sense that as discomforting levels of \ damage begin to occur then consumers, insurers, producers and local \ authorities will implement amelioration, abatement and adaption measure to \ reduce the exposure to damage)." }], "Text", CellChangeTimes->{{3.5143080983732347`*^9, 3.514308102892667*^9}, { 3.514308469349834*^9, 3.5143084713580437`*^9}, {3.514308507511819*^9, 3.514308539833797*^9}, {3.585008034650591*^9, 3.585008061065793*^9}, { 3.585010464274107*^9, 3.58501059567231*^9}, {3.585010640981371*^9, 3.585010699268268*^9}, {3.585010757285893*^9, 3.585011694142024*^9}, { 3.5850117957420797`*^9, 3.585011816914009*^9}, {3.585011897184885*^9, 3.5850119014075727`*^9}, 3.5850143786178627`*^9, 3.5850144195042562`*^9}], Cell["\<\ From the perspective of evaluating future choices, policy makers readily \ understand notions such as Pareto\[CloseCurlyQuote]s 80/20 rule, where 20% of \ effort brings 80% of the effect, while achieving the remaining 20% of effect \ takes 80% of the effort. This reflects the idea of low-hanging fruit, where \ some amelioration and abatement efforts will be low cost and readily achieved \ while others measure will become progressively more painful and expensive. \ The generic sigmoid is a well understood mathematical expression of this \ concept.\ \>", "Text", CellChangeTimes->{{3.5143080983732347`*^9, 3.514308102892667*^9}, { 3.514308469349834*^9, 3.5143084713580437`*^9}, {3.514308507511819*^9, 3.514308539833797*^9}, {3.585008034650591*^9, 3.585008061065793*^9}, { 3.585010464274107*^9, 3.58501059567231*^9}, {3.585010640981371*^9, 3.585010699268268*^9}, {3.585010757285893*^9, 3.585011694142024*^9}, { 3.5850117957420797`*^9, 3.585011876525527*^9}, {3.5850119065740623`*^9, 3.58501284433146*^9}, {3.585012901942339*^9, 3.585012975619946*^9}}], Cell[TextData[{ "In the context of ", Cell[BoxData[ FormBox[ SubscriptBox["\[Mu]", "t"], TraditionalForm]]], ", a generic sigmoid allows amelioration and abatement to rise very slowly \ through the current level (0.5% assumed by DICE 2007) to saturate at 100% \ after a number of decades. Such a sigmoid may be described by the analytical \ equation of motion: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Mu]", "t"], "'"}], " ", "=", " ", RowBox[{"const", " ", RowBox[{"(", RowBox[{"1", "-", SubscriptBox["\[Mu]", "t"]}], ")"}], " ", SubscriptBox["\[Mu]", "t"], " "}]}], TraditionalForm]], FontWeight->"Bold"], ". This equation of motion greatly simplifies the DICE 2007 optimization \ problem by reducing the unknown ", Cell[BoxData[ FormBox[ SubscriptBox["\[Mu]", "t"], TraditionalForm]]], " function to just one unknown scalar quantity, which is the acceleration \ constant that determines whether the sigmoid rises quickly or over an \ extended time period." }], "Text", CellChangeTimes->{{3.5143080983732347`*^9, 3.514308102892667*^9}, { 3.514308469349834*^9, 3.5143084713580437`*^9}, {3.514308507511819*^9, 3.514308539833797*^9}, {3.585008034650591*^9, 3.585008061065793*^9}, { 3.585010464274107*^9, 3.58501059567231*^9}, {3.585010640981371*^9, 3.585010699268268*^9}, {3.585010757285893*^9, 3.585011694142024*^9}, { 3.5850117957420797`*^9, 3.585011876525527*^9}, {3.5850119065740623`*^9, 3.5850128820801487`*^9}, {3.585012985158195*^9, 3.585013108401821*^9}, { 3.5850187355972223`*^9, 3.585018748869398*^9}, {3.591611582150074*^9, 3.591611627378065*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Consumption function ", Cell[BoxData[ FormBox[ SubscriptBox["c", "t"], TraditionalForm]]], " as Chebyshev polynomial" }], "Subsubsubsection", CellChangeTimes->{3.5850170481201267`*^9}], Cell[TextData[{ "Resolving the form of ", Cell[BoxData[ FormBox[ SubscriptBox["\[Mu]", "t"], TraditionalForm]]], ", albeit still an unknown function, allows the other unknown function ", Cell[BoxData[ FormBox[ SubscriptBox["c", "t"], TraditionalForm]]], " to be determined as a Chebyshev polynomial defined though a eleven \ judiciously chosen handles (e.g. ", Cell[BoxData[ FormBox[ SubscriptBox["c", "25"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["c", "50"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["c", "75"], TraditionalForm]]], ",", Cell[BoxData[ FormBox[ RowBox[{" ", SubscriptBox["c", "100"]}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["c", "150"], TraditionalForm]]], ",", Cell[BoxData[ FormBox[ RowBox[{" ", SubscriptBox["c", "200"]}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["c", "350"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["c", "550"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["c", "800"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["c", "1100"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["c", "1400"], TraditionalForm]]], "). Including with the single ", Cell[BoxData[ FormBox[ SubscriptBox["\[Mu]", "t"], TraditionalForm]]], " acceleration constant there are just twelve optimization parameters." }], "Text", CellChangeTimes->{{3.5143080983732347`*^9, 3.514308102892667*^9}, { 3.514308469349834*^9, 3.5143084713580437`*^9}, {3.514308507511819*^9, 3.514308539833797*^9}, {3.585008034650591*^9, 3.585008061065793*^9}, { 3.585010464274107*^9, 3.58501059567231*^9}, {3.585010640981371*^9, 3.585010699268268*^9}, {3.585010757285893*^9, 3.585011694142024*^9}, { 3.5850117957420797`*^9, 3.585011876525527*^9}, {3.5850119065740623`*^9, 3.5850121205145063`*^9}, 3.585012253092164*^9, {3.5850131189801683`*^9, 3.585013308623612*^9}, {3.585013397352227*^9, 3.585013593794725*^9}, { 3.585013810479115*^9, 3.585013844226954*^9}, {3.585013884550148*^9, 3.5850139840299063`*^9}, 3.5850145124567337`*^9, {3.585016860367193*^9, 3.585016863543233*^9}, 3.585018755729492*^9}] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Memoized Optimizing Constraint Solver", "Subsection", CellChangeTimes->{3.5854319474262733`*^9}], Cell["\<\ Indicative code for the Memoized Optimizing Constraint Solver is provided \ below. The solver ensures that all constraints are correctly calculated and \ returned to the global optimizer in the required mode.\ \>", "Text", CellChangeTimes->{{3.585432186133762*^9, 3.58543235652518*^9}, { 3.585434365501562*^9, 3.585434404052878*^9}, {3.591611905150823*^9, 3.591611906110701*^9}}], Cell[TextData[{ "An important feature of the Memoized Optimizing Constraint Solver is that \ at each iteration the objective equation calls the Chebyshev solver to solve \ the System of Transcendental Differential Equations. This solution is \ retained within the solver\[CloseCurlyQuote]s ", StyleBox["DownValues array", FontWeight->"Bold"], ", where it is subsequently drawn upon by each of the constraints. There is \ no limit to the number of constraints except for the need to carefully \ prepare the logic. In order to reduce the use of memory, the solver\ \[CloseCurlyQuote]s DownValues array is periodically reset. " }], "Text", CellChangeTimes->{{3.585432186133762*^9, 3.585432633243153*^9}, { 3.585433150771639*^9, 3.5854331571955357`*^9}, {3.585434414079411*^9, 3.585434562252693*^9}, 3.585434988558373*^9, {3.5854356550593033`*^9, 3.585435687881011*^9}}], Cell["\<\ Constraints to continuous functions provide challenges in optimization. The \ Memoized Optimizing Constraint Solver addresses this with in-built utilities \ to find maximum and minimum values across continuous functions as well as a \ value at a particular time period.\ \>", "Text", CellChangeTimes->{{3.585432186133762*^9, 3.585433062667494*^9}, { 3.585433170451734*^9, 3.5854332677389917`*^9}, {3.5854334518821287`*^9, 3.5854341223586273`*^9}, {3.585434185224063*^9, 3.58543418638244*^9}, { 3.585434222766391*^9, 3.585434341525587*^9}, {3.5854349914217978`*^9, 3.585434996997848*^9}, 3.5854357137526217`*^9}], Cell[TextData[{ "The latter is quite important in conditioning the optimization for a stable \ solution that avoids a pervasive issue that often plagues dynamic models, \ which is the degenerate solution of maximizing consumption through \ cannibalizing capital. In the continuous formulation it is possible to \ directly address the cause by simply requiring that capital is greater than \ zero at the end of the simulation. This ", StyleBox["avoids the need for an interim stabilizing constraint such DICE\ \[CloseCurlyQuote]s savings ratio or a DuPont Ratio-like production to \ capital ratio", FontWeight->"Bold"], " that can become less appropriate in the presence of extended improvements \ to Total Factor Productivity, for example with simulations over many \ centuries [23, 24] ." }], "Text", CellChangeTimes->{{3.585432186133762*^9, 3.585433062667494*^9}, { 3.585433170451734*^9, 3.5854332677389917`*^9}, {3.5854334518821287`*^9, 3.5854341223586273`*^9}, {3.585434185224063*^9, 3.58543418638244*^9}, { 3.585434222766391*^9, 3.585434341525587*^9}, {3.5854349914217978`*^9, 3.585434996997848*^9}, {3.5854357137526217`*^9, 3.585435716575426*^9}, { 3.5916118055676527`*^9, 3.59161182438896*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"statevars", "=", RowBox[{"{", RowBox[{ RowBox[{"k", "[", "t", "]"}], ",", RowBox[{"Tat", "[", "t", "]"}], ",", RowBox[{"Tlo", "[", "t", "]"}], ",", RowBox[{"Mat", "[", "t", "]"}], ",", RowBox[{"Mup", "[", "t", "]"}], ",", RowBox[{"Mlo", "[", "t", "]"}], ",", RowBox[{"\[Mu]", "[", "t", "]"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"solver", "[", "params_", "]"}], ":=", RowBox[{"Check", "[", RowBox[{ RowBox[{ RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"equations", "/.", RowBox[{"Thread", "[", RowBox[{"parsarray", "\[Rule]", "params"}], "]"}]}], ",", RowBox[{"Thread", "[", RowBox[{ RowBox[{"(", RowBox[{"statevars", "/.", RowBox[{"t", "\[Rule]", "0"}]}], ")"}], "\[Equal]", RowBox[{ RowBox[{"Last", "[", "xvec3", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"k", "'"}], "[", "t", "]"}], "}"}], ",", "statevars"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "testperiods"}], "}"}], ",", " ", RowBox[{"MaxSteps", "\[Rule]", SuperscriptBox["10", "8"]}], ",", RowBox[{"InterpolationOrder", "\[Rule]", "All"}]}], "]"}], "//", "Quiet"}], ",", RowBox[{ RowBox[{"Print", "[", "\"\<**** solver failed ****\>\"", "]"}], ";", RowBox[{"{", "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cons0", "[", "params_", "]"}], ":=", RowBox[{ RowBox[{"cons0", "[", "params", "]"}], "=", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "optsolver0", ",", "optsolver", ",", "findmax", ",", "findmin", ",", "conssol", ",", "findopt", ",", "finddiff", ",", "findval"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"optsolver0", "=", RowBox[{"solver", "[", "params", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"optsolver", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"optsolver0", "\[Equal]", RowBox[{"{", "}"}]}], ",", RowBox[{"Return", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], SuperscriptBox["10", "30"]}], "]"}], ",", RowBox[{"optsolver0", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"findmax", "[", RowBox[{"var_", ",", "imtestyear_"}], "]"}], ":=", RowBox[{"Check", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{ RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"{", RowBox[{"t", "\[Rule]", "imtestyear"}], "}"}]}], ",", "_Complex"}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Im", "[", RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"t", "\[Rule]", "imtestyear"}]}], "]"}], "]"}], SuperscriptBox["10", "3"]}], ",", RowBox[{"FindMaxValue", "[", RowBox[{ RowBox[{"var", "/.", "optsolver"}], ",", RowBox[{"{", RowBox[{ "t", ",", "imtestyear", ",", "30", ",", "testperiods"}], "}"}]}], "]"}]}], "]"}], "//", "Quiet"}], ",", SuperscriptBox["10", "30"]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"findmin", "[", RowBox[{"var_", ",", "imtestyear_"}], "]"}], ":=", RowBox[{"Check", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{ RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"{", RowBox[{"t", "\[Rule]", "imtestyear"}], "}"}]}], ",", "_Complex"}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"-", RowBox[{"Abs", "[", RowBox[{"Im", "[", RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"t", "\[Rule]", "imtestyear"}]}], "]"}], "]"}]}], SuperscriptBox["10", "3"]}], ",", RowBox[{"FindMinValue", "[", RowBox[{ RowBox[{"var", "/.", "optsolver"}], ",", RowBox[{"{", RowBox[{ "t", ",", "imtestyear", ",", "40", ",", "testperiods"}], "}"}]}], "]"}]}], "]"}], "//", "Quiet"}], ",", RowBox[{"-", SuperscriptBox["10", "30"]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"finddiff", "[", RowBox[{"var_", ",", "imtestyear_"}], "]"}], ":=", RowBox[{"Check", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"imtestyear", "-", "var"}]}]}], "/.", "optsolver"}], "/.", RowBox[{"(", RowBox[{"t", "\[Rule]", RowBox[{"imtestyear", "-", "1"}]}], ")"}]}], ",", "_Complex"}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{"-", RowBox[{"Abs", "[", RowBox[{"Im", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"imtestyear", "-", "var"}]}]}], "/.", "optsolver"}], "/.", RowBox[{"(", RowBox[{"t", "\[Rule]", RowBox[{"imtestyear", "-", "1"}]}], ")"}]}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"imtestyear", "-", "var"}]}]}], "/.", "optsolver"}], "/.", RowBox[{"(", RowBox[{"t", "\[Rule]", RowBox[{"imtestyear", "-", "1"}]}], ")"}]}]}], "]"}], "//", "Quiet"}], ",", RowBox[{"-", SuperscriptBox["10", "30"]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"findval", "[", RowBox[{"var_", ",", "imtestyear_"}], "]"}], ":=", RowBox[{"Check", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{ RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"t", "\[Rule]", "imtestyear"}]}], ",", "_Complex"}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{"-", RowBox[{"Abs", "[", RowBox[{"Im", "[", RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"t", "\[Rule]", "imtestyear"}]}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"t", "\[Rule]", "imtestyear"}]}]}], "]"}], "//", "Quiet"}], ",", RowBox[{"-", SuperscriptBox["10", "30"]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"findopt", "=", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["cumutil", "0"], "/.", "sbsd"}], ")"}], "+", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "[", "t", "]"}], "/", SubscriptBox["l", "t"]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ")"}], "-", "1"}], ")"}], RowBox[{ SubscriptBox["l", "t"], "/", RowBox[{"(", RowBox[{ SubscriptBox["scale", "1"], RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ")"}]}]}], ")"}], "/.", "sbsd"}], "/.", RowBox[{"Thread", "[", RowBox[{"parsarray", "\[Rule]", "params"}], "]"}]}], "/.", "optsolver"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "testperiods"}], "}"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "24"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"conssol", "=", RowBox[{"{", RowBox[{"findopt", ",", RowBox[{"findval", "[", RowBox[{ RowBox[{"k", "[", "t", "]"}], ",", "testperiods"}], "]"}], ",", RowBox[{"findmax", "[", RowBox[{ RowBox[{"Tat", "[", "t", "]"}], ",", "80"}], "]"}]}], "}"}]}]}]}], "\[IndentingNewLine]", "]"}], "//", "Quiet"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cons1", "[", RowBox[{"params", ":", RowBox[{"{", RowBox[{ RowBox[{"_", "?", "NumberQ"}], ".."}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"cons0", "[", "params", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cons2", "[", RowBox[{"params", ":", RowBox[{"{", RowBox[{ RowBox[{"_", "?", "NumberQ"}], ".."}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"cons0", "[", "params", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cons3", "[", RowBox[{"params", ":", RowBox[{"{", RowBox[{ RowBox[{"_", "?", "NumberQ"}], ".."}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"cons0", "[", "params", "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"starttime", "=", RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"stepresult", "=", RowBox[{"{", "}"}]}], ";", RowBox[{"stepresult", ">>", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"MaxMemoryUsed", "[", "]"}], "/", RowBox[{"10", "^", "6"}]}], "]"}], "]"}], "<>", "\"\< Mb\>\""}], "]"}], ";"}], "\n", RowBox[{"sol", "=", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ii", "=", "1"}], ",", RowBox[{"jj", "=", "1"}], ",", RowBox[{"kk", "=", "1"}], ",", RowBox[{"temp", "=", "\"\<\>\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"NMaximize", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"cons1", "[", "optpars", "]"}], ",", RowBox[{"0", "\[LessEqual]", RowBox[{"cons2", "[", "optpars", "]"}]}], ",", RowBox[{ RowBox[{"0.995", " ", "tatmax"}], "\[LessEqual]", RowBox[{"cons3", "[", "optpars", "]"}]}], ",", RowBox[{ RowBox[{"cons3", "[", "optpars", "]"}], "\[LessEqual]", RowBox[{"1.005", " ", "tatmax"}]}]}], "}"}], ",", RowBox[{"Reverse", "[", RowBox[{"Thread", "[", RowBox[{ RowBox[{"Rest", "[", RowBox[{"Most", "[", "optpars", "]"}], "]"}], ">", RowBox[{"Most", "[", RowBox[{"Most", "[", "optpars", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"copt1", ">", "0"}], ",", RowBox[{"10", "\[GreaterEqual]", "\[Mu]opt"}], ",", RowBox[{"\[Mu]opt", ">", "0"}]}], "}"}]}], "]"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Min", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", RowBox[{"Max", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "}"}], "&"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"optpars", ",", RowBox[{"pars", "*", "0.995"}], ",", RowBox[{"1.005", "pars"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"MaxIterations", "\[Rule]", "3500"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "24"}], ",", "\[IndentingNewLine]", RowBox[{"StepMonitor", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{"stepresult", "=", RowBox[{"{", RowBox[{"ii", ",", "jj", ",", "kk", ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "res", "}"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"ToExpression", "[", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", "#", "]"}]}], "]"}], "&"}], ",", RowBox[{"Range", "[", RowBox[{"Length", "[", "handels", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", "\[Mu]", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"cons1", "[", "optpars", "]"}], "}"}], ",", "optpars"}], "]"}]}], "}"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"stepresult", ">>>", "\"\\""}], ";", RowBox[{"jj", "++"}], ";", RowBox[{"kk", "=", "1"}]}], ")"}]}], ",", RowBox[{"EvaluationMonitor", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{"ii", "++"}], ";", RowBox[{"kk", "++"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"ii", ",", "100"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"ii", ",", "1000"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"evalresult", "=", RowBox[{"{", RowBox[{"ii", ",", "jj", ",", "kk", ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"vars", ",", "varsopt"}], "}"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"evalresult", ">>>", "\"\\""}]}]}], "]"}], ";"}], "*)"}], RowBox[{ RowBox[{ RowBox[{"DownValues", "[", "cons0", "]"}], "=", RowBox[{"Last", "[", RowBox[{"DownValues", "[", "cons0", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NotebookDelete", "[", "temp", "]"}], ";", "\[IndentingNewLine]", RowBox[{"temp", "=", RowBox[{"PrintTemporary", "[", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", "jj", "]"}], "<>", "\"\<; Sub \>\"", "<>", RowBox[{"ToString", "[", "kk", "]"}], "<>", "\"\<; Cum \>\"", "<>", RowBox[{"ToString", "[", "ii", "]"}], "<>", "\"\<; Curr Mem: \>\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"MemoryInUse", "[", "]"}], "/", RowBox[{"10", "^", "6"}]}], "]"}], "]"}], "<>", "\"\<; Peak: \>\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"MaxMemoryUsed", "[", "]"}], "/", RowBox[{"10", "^", "6"}]}], "]"}], "]"}], "<>", "\"\< Mb\>\"", "<>", "\"\<; Hours: \>\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"AbsoluteTime", "[", "]"}], "-", "starttime"}], ")"}], "/", "3600"}], "]"}], "]"}]}], "]"}]}]}]}], "]"}]}], ")"}]}]}], "]"}]}], "]"}], "//", "Timing"}]}]}], "Input", CellChangeTimes->{{3.591611881018394*^9, 3.59161189400646*^9}}], Cell["", "Text", CellChangeTimes->{{3.585432186133762*^9, 3.585432605851881*^9}, { 3.585433072997251*^9, 3.585433149219656*^9}, 3.585434363718261*^9}] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Results", "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308340990994*^9, 3.514308352103572*^9}, { 3.585018111365881*^9, 3.585018112846545*^9}}], Cell[TextData[Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJx13Hk4FeH/N/Bj3/ctW0klS9qkbJmJorTYs6YiiWgjRUiyJVQSWUohVJJk S5Jd2UV2smVfjn3nOd/n+c7n7vr9rsc/rvc1nDNzzzlnXjP3vM9my6t61tQk EmkrPYn0n9/ET8Cq9Xzf+QEse/nB3qjpDkyyysSeN24Aq10ucw7nmMCY/46t CAwNYKluhytTxBawvUfE307IDWJpq6/Xy+JIePTY3LWo+4MY78E97w540OGn Oi8bCDcPYsYrNdYJMcw4LnBP/+qeIaxcFBNkpuXEXZ7vvxL+aAizXBX1z2/j xufPB8Y/nRrCqF94351r5MO/OnrNWZkOY49Xbqy/n92AF1ZtuMBYNoxtFxli 6D4ggrNf0x7zVBjB3i/3P3/2YhP+0lQipCplBAs/ub/lwtPN+I2gF3rjUqOY kkoXj9HZLTi9wdXsH+9HsVR/3n5FyW1426LhSbX9Y9jo3npttnEJfNxDl8vs 5xg2rSSiW5cqiav0nqflsR7HKl5NDPlck8YrJfwk7JgmMNsLJ4VkZHfg4ccK bp3LnMB++cj35PfL4rXbGFeW5MkYI13SIc0Xu3BH/hx9vmdkjOa6nsjZpN14 pvOc2t0FMmbLHtYb4rkHD9f49lPh3CSW3fpyTtVoLy7oyz54qHISG/ptb2i1 Qw5XlB9+Eakyhf2/vbMPn9fXGVH7NIWtGhvP8f7ahxv04LVK0tNYb9dNhdhY eVy/6+sJr8Rp7F24cWni9f34+MmCc4JSM5i5O+nVNuwALiOjy0r6OINNPHEo EWZRwGlvX9berziL2f6O2R/wWwF328cpnVs2i/3QDJ++9lIRDz2HRT8xncPY hvQpe1AJ11pZeJM5OYcpfPmtkyijjMcwHNSUCZrHjmaLTM5NKONPvVg8J3Ys YAf7JTvy0lRwCYcLOjR1C5iQ+hLvuuNB3LhMM/uiyyLWXv34eZacKi79JCNL UGIJO+vw1qF+ShW/jXFPm9cuYV7UVJEH0zBcQrOQ/fr1ZWxzWQX7sgKO70kq YT7NtILp+e93W3uO4xGWIgMsz1ewumKcT2oRxy2cS+NCRFexV27DLa4mh/B7 vUX4cMQqlv9Rrnz6yyGc+h1vHjfbGiZrIdL/VEgN7/mZLcx6aw0b9ouXNbuj houqp5o0Nq1hczsqXx1rV8PT+ZZvXd+1jhmcfIqdPaiOJx+KcO5wX8fWBheZ ol+q46SyAEOhovX/7p/DePqbGl7J9XXseMibzQ/PH8Z7xuVMaQRJ+GDM8JWD RYfxiCwpoTZZEl4rWTPAv+0IvrbjmJawKglnk9UPFPA7gnNphwwXHSPhocnO 5tjQEbxelG65QYeE2ycqGgcf18APR7y+c0qfslw0+i5tigZ+ocDGfrcuCWfm ePnrNacmvjfMqMpVi4T/uoPpXnTUxFMErr+UxSjPb+W5rNuoibceSf9zdBcJ 1yk7V3dB8SieLrb5SaUQCadN6Pr1MvoorpqUlZZNRcLp/+/2HMOHsyf8hX6s Y8ymm2TPWx3DVU3j1EX817E8hZidUaXH8BUeuxNrmuvYlv+sjpQWvq1fPS6f YR1T8M5PiQjUwjNrdx+1KlvDVsnnZS0mtPC0+t3K/b5rmFPPf1boOL5hQt3t mMYaFvWfl2v6cXxY3I4liI6yXP9BXD7/CXzb1bjB1OJVbOVXsuPg7RN4ef0E T8b9VUyuafeGodYTeKOOdlCE2iomco7vSaHKSVy7v8DAgmoVy3Yw7XR6eRKX C9W0o8lf+e/+OYV7mHZV+XusYCv89HNW50/h8oqBd8dVVrCkNPv8V4Wn8NO7 j9/dt7yM0dbLnc3coo33YqJVpl+WMa7bZr/ivbXxJhtq2/O3lrHq172C9n+1 8f1JS3pH5ZexjZL9QvRbdPB1Ev1DjuklLLmA+amavg6+98ZWrqzUJezZi7M3 L9/XwWuXDf+qXlnCGr72FXh+1sGbXkQyJMosYQ4ikbe9enXwo8ZTtyYGFzGL 73cjrvHo4hIyZ/ZvSFjEEuKfbT2urotf5m9T22y1iGlUtglyO+riG4TsXzCL LWIHrhYokeJ08ZTrT3pFOhawK6UZR3XqdfEE48q0V5EL2Ehdtjo1rR6+Ui3C Ema8gKU+KZfhl9fDMxu8Rlf4F7AcuhFS4EU9vM527fTv3/MYy06hIqvneviJ 4Edam57NY/HMxjdelOvh0mr7y1oN5jGvqHh2xVU93NZnqpKBbx5L6FoP379b H2cwLjZL+D2HcbdSPuGsKDnnvWNm2BxW7Ndz3ShcH7d7n8SrYDyH5Q7ZFrpW 6OM7dnxVlRGa++/+McBPqPROPmqfxXzL46UH9hngv9rEdl6MmcX0jhmr7bYz wLOZnaY/WM5iF9yENNtiDHDSz/ZDNhKzWJ7ViMLgbwP8Hb+ZYMjwDHZ2vVzA iNUQz5wed9lJ+bzT0P7Su13dEBc/99xKxWkGu6GfGW3qaoiPmxk1flWcwfpZ CtUmPhniogMyv5LXp7HXt9t//x0yxFOo+I04Sqex2Ai606rip/GY93zWvYHT 2CDl3bxgehon90mvSBpMY84L90X5Qk/jbz4YinQJT2PH/3P4qTqNf6ELK2Hs m8LUH19PkKA3wlnaZmndPkxhKlfuTdxTMcKvC98d4HaZwuRrGfE314zw0dI9 DlUaU5hsJsPzx7FGuEcHW9h7/ilsu5jHvPovI3z7WR7LD4OTmBi7vcX3dSO8 77ha3a/cSUzIs66SWsYYz4mL7BV+OonxOaeosRsY43EXRSL8L09iHGTq/G5X Sg4tm9ygMYkxjVcfdo8xxrNlo8cqxScx2mvcdV0FxnjfnsjAeKpJjMq56gJr jzEu8bqgOqaH/N/9Y4K73uFOzyshMokU+D+8wMZcI/YtHHlBObr4dEgd8gJf ukbEBQ7khTBdw0E5XeSFUieyOikceeGF6Ibkn12D4AWxE5Vij3ciL+iQ2GL1 PZEXpJVad/E2DoEXUhblyut2IS90qgpdDwwaBi98YQraenhiGLygahrYt2Aw Al6Qekt+ea5kBLygcjXk0B7NUfCCY/L1SrvWUfBC1blgjO3uGHjhZOBg5Ab5 cfACeadnZ+DKOHgh+6ghs93vCfBC/agcR/NZ5IU2slnQxw7kBefU2LvKF5AX 3sgw9t+ZRl64YBmYf+0h8kKmwS4OoR3T4IVI6sm6W7+RF7jt6xgD/GbAC8JP aj/rqM2CF3Kuj/+qoJsDL/SzyVxcrpsDL8Rb+zr8SZgHL8zfJg3d8l4AL7Rr RjQX2y2CF/R+6aiUmiyBF0w3bOd1010GL0wLipzr110BL4g37RKjM1sFL3Rp Wxo026+BF7QcLXYsUo7HhBeUnw9c9lQj4YQX0tVN38/nk3DCC2wqfgaWSlQ4 4YWj967Y5KdQ4YQXrHk4+7g2UuOEFyynLpef9qfGCS+obfQSejRGjRNeoAnX a8g5SYMTXog375hvSaLBCS9IXhX3GV2jwQkvBFVvdpvSpsUJL7S4trWPRNHi hBeonbQTm3towQtsOe5t2VvpwAtzJy66BJ6nAy8U72C6px9BB164bnJxiq2S DrxAqnev+rpIB164FqHNfUacHrxQkNyWP3mEHrwwxyre4nKBHrzAnCNuNutO D16gTu/QuBBCD15oXtKLLn1ND154HOxlJpJMefz/emFw7uUI82d6nPBCxNfW zwey6XHCC2/a5dNjv9LjhBdYTVNHj3+jxwkvVMtpnZGjZMILw7Y09CaUvye8 YLnS1p+bRVn+Xy/sG6lft0ijxwkvnN8/ooO9p8cJLwx0bG49E0uPE1740X0r KiecHie8wKA2Fmr4kB4nvBC9dq90J2X7CS8EC+zfreFAjxNeaA9k+hVlRhmP /3rB22Ll/a6j9DjhBd9A9jwqOXqc8EIvP87ILUKPE16IXH0ccI6GHie8kIxT HRkbpMMJLwh2PT6QTdmfhBe62jDLghQ6nPACzT72EsZHdDjhBc/B5bPBDnQ4 4QXjRUY5PS06nPBCwEV5VYNtdDjhBbs/hwYc12lxwgsneSaePm6hxQkv7KU+ ePjdZ1qc8IJQssxCfhAtTniBmuvrxwYbWpzwwvjuEbu/h2hxwgttLLlS08K0 OOGFiteyo6uzNDjhha9TWBpdLQ1OeCFlbeoO8zsanPBCXInGMVZvGpzwQpSm shCLBQ1OeOGJd+04vQINTnghyI2+bJ2LBie88HBXR+zsCDVOeCHghYHXYAk1 TnghsNTeujmGGie88PjdthMlLtQ44YWwY3f3f9SnxgkvvIhz2RomS40TXkjM 5uV3ZaDGCS+k++uwmHVT4YQXCnlkaRW/UuGEF36ZvCPxPqPCCS/0mf4gjV6h wgkvLPD70RYcpcIJLzTkfb+ts4UKJ7yA3T9ebrROwgkvHLggvdjYTsIJL+Sd N6er/krCCS/U3ekeV4km4YQXHNO+ZGzxIOGEF+Lo/pp4nSfhhBfO37RqM9Yg 4YQXkqnklRJ3kHDCC77vTJwdeCnnC//1Qtuf2E1Gy+vghdI4Bbai2nXwQvkr p4yNb9fBCw//hxe27b/IvBSGvJDd55W5WoO8cIQpd3mCFXmhLI6rtfYk8sKR 9Pu6r0KQF7KVuC0t2pAXJA58Y2GRRF4IfOt9KuE28sLok0vSu6uQF9TIl2KS tiEvhBT7fODwQl5oZf9uYN2DvCBUw/vsrQbygsQd2hGaTOSFVn+W+qgDyAt7 FqROXq9AXtjx86yJ93Xkharl5PkGKeQFzsdcklYzyAtzPkHDO+uQF/KvPN4k cg55wbjib8j3LuSFgmaNmnt2yAtrYZ8bLFeRF1jpd8RZRiAvjGxLVbqnirwQ PYdF5Y0iL2y53VYsFI+8cPudV9azC8gL8UHyjrt2Ii9Eb56ZHyDNgxcuXcw7 8r0deYHePNQ8owB5wZnaWaX8I/JClonV39UE5IWK8+ZGOonICx+FzocUpCIv XPK+HqZbhLww9TLIivQHeYE1YtuS9hLywtdaA9luH+QFwfbAwvdMVOCFF+M5 uX7+yAvHGP8I36SmBi9slFr843gLeUFYl4nJewB5AfPkCH+jRwNeCMxkCWjO Rl5Ym17tFhGiBS9EKvS/vOFMC144412c31KFvHCi6bmmnhgdeOHcHiu5dsrn PeGFFyFbvG9lIi+sLrUobl1CXgiw8zXoUaAHLyh3SzZ8ukEPXuA9W5AdkkgP XuDv06b2aUJeUL3WkOpPzQBeeEyjXfxCkgG8wPjyu0rxMQbwwjtMQmjFmgG8 cGPQy/yIOwN44dzz3zSvHjGAF9QtH110e8kAXugz3tym9Z4BvKDm9vA8SyYD eMGismrxWx4DeEHx2GCcZQkDeKFuqvXs4k8G8ILUzzeyXpUM4AXVyqNsq5RM eIFrpWjNtoIBvPDKWID6ZxkDeGGsW01AqJABvLAUrqF6JocBvFDsKn4rJJUB vHAioLHgSzwDeCGk1HJjfRgDeCF8V1lgpy8DeMG4hIat3YkBvNDityGm4hwD eEHgFp36By0G8ALv0/IFz70M4IWqNpt8jQ0M4IXDuh0Ra8v04IU709I+SR30 4IVrhTpehym+Irwgnnfqya9IevDC4/6taXrO9OAFk13JSgU69OCFDYHfPIVk 6MELlSvG3hZ09OAF53seR4L+0IEXeIR2Fid8oQMvJJTakN4/pQMv7PKTWYqg vJ4JLySbuXxy1KQDL2w8rCuhsJkOvOCDfzYeWKIFL/TqxBy910ALXth3k2+O LoUWvODyge/8TT9a8ELGYsyDmnO04IUBk/SrvEq04AXWaj2ewzy04AWp03ec LEZpwAvKU7JPrUpowAuHYu2u6r+kAS+oXNzDtPMWDXhhh6rXuWltGvACt/SZ m3GSNOCFMalCTVUqGvBC7sFPTUUt1OAFL2vpbfvSqMELKq9ldz8KoAYvcB21 Woq1ogYvbPnk6HNQlRq8cL3dos5CiBq8QCrf2km/QAVeqHApeS/fRAVeaBjB lUayqMALImLhD7ZHUoEXYvl/RAy7U4EXrGvq7fZZUYEXLmrlrNBqUYEX3vjd 0TbfS4UTXtjiJ2ClJEKFE15oPxp8IIaByP/bC42fRQ+zPEVeUJf3DvtdhrzQ cC9iXJ2EvOAbcebEaRXkBVO32o+sbsgLp6SnNth8R16wjiv0s6ZHXogZOLTC oIu8sDJ31flUDPKCa92JOYXJIfCC0K3mO2UayAvtA9wMSzHIC/lbVsJrV4bB C8c3pmVMWyMv0FboDbD0jYAXhqU6dwjeQl5YUTLwFd6EvKC6lj7N3T4GXnjn SLq5/gF54VDUfubuUOQFn5z3LWZHkRfcPfdkF9QiLwTFJIvFWiEvZAqI8qyS psAL04Nej34lIS9o8HQ+EzdDXkgN2ykxJjADXpBzdML3/kFeKE/62DeZirzg dqCLe0cQ8oLqJvqKLkfkhQ3nNrNxWi+AF5iX9rR8ObcIXuAaO7Cr8+ISeGGX ohyH+61l8IJl5xaXsJAV8EJyO5ODdPYqeIF9399hhcE18IL6lOniOS4STniB 2kmhqOojCSe8cCiaruHkcSrwwopdoUx3L/LCvq4r5X6U8wfCC8PLzKmHWGnA C6J5Ye3s0TTghWoJbp0JSVrwwqq8O3NvGi14IWmkiWVYkQ68UKcpbkCbRwde uK1l3rsHowcvRE/7fLnxjTh/PYxrqMc0liowgBesFZOUdn5iAC/QNb76myTB CF7YKPigaX8EI3ghm/o8ZzMjE3ihMkTyceBNJvCCxc8/pw3+MIEXHBJ8L+zS YAYvLEmJfhF9xwxeoDeIM9jEwgJeCN4qeGCfLQt4ISzK45x5MQt4YcOX+tpw EVbwgoD7Bv/+66zgheZLLhdqiljBCzGr4odbuNjACw7KfNtpzdnAC5i4DptO LBt4QSCtfi63jw28MDcc06u1hR280FqZXr94hh28UGLEXfYzlB28kP4w+1tO GTt4IelSYlblHDt4IW68M319Mwd4IUH0bIb+MQ7wwrvZ7V9+2HOAF7KdFfMt AjnAC+WvnpbzJXGAF3od9zePfecAL5DIm4f66znAC1v5Tq+S+jjAC6d6f/Gq kDnAC26mz3c9X+AAL6S5JpzkW+UAL4ypr175TMmEF3ZmRj+9scQBXnCu8/6q N80BXih8ltGvP8gBXuCm2cXn3MIBXkjdPODB/oMDvNC7WG92I4MDvJD4cPb9 69cc4IX1xuNXoynbT3hhqK3xjaUzB3jBJjJMe8aCA7xwm/uhva4GB3hB5HD6 issODvCC7i5u0hUuDvCCYEO8s+wsO3jh9l77c9lN7OCFi1qXvrF/YQcv9AtH BO2OYAcvrCSs1YreZgcvxI8892s0ZAcv/Bmy+WS6lx28kPL68ql3bOzgBU6e eIuSATbwAq0qV8/7fDbwwkPxz81nnrOBF97kP1Bru8IGXtDf8GzT1sNs4IVQ qd9XFTawgResZ47JbRhhBS9U3562LcplBS+UZtbxKAWxghcMXpy7SWPBCl5w ERapT9jNCl7Yu4dWdisdK3jhXueG+3faWMALNltMfyd/ZgEv9K6XbckOYgEv zDlaXnlBeX8TXoi5K5VhrskCXmgXF12YlWABL6SeOXjAlpEFvCC4O+BG5ggz eEEokuZdRy0zeCEl6m1HZxaR//f9CzKzndU//vHCrtGTmRY/kRdCe9I+JFAj L5g2s2W8wpAX7lVZVJ7wRF5gLHwz/a4YeWEqo0f6KyvywsG3fDfcjZEXhqNU f04mIi8sBJ3ZvWEZeeHS3RuJZF3kBYVr7jvvJCMv2J3zKMliRtcXLvXq+ATf RF6IC6z1HZhFXhAyX/1Z+BB54adu0ymxA8gLGQ4WfKQF5IXWjyGiltXIC4ob nGw0cpAX7PTvuTSeQV5okN3UpTWEvGAe9dTG8y7yAm10J8ctMeSF0l2klp2V yAtvTi8UJnohL8RxllV1qyMvFJyxX2znmAUvLBwcPBLRj7yg+0npM/8P5IXi LKtDhunIC/q6VmSD98gLVB6K+XwfkBcqD/anhn9BXkh/bFvYWou8kO1cNNM5 hbzQOjGtGb9pDbwgtLL0VdpoHbyQe9Je8ssJ5AVOt8XclgnkBfGNxoZPnyAv kOX8J//uoQYv3Pn24EldLfJCUY65/OkryAs/ZKg6HJlpwQsPOG/5S79BXmC0 zTvgqkoHXlCXbxq2bEReULpZ8LrPnh68MCHpbr5OxQBesNRhFv78jDh/PYxH jFzqWN/OCF7wXXoe9zebEbyw1z3S4cJRJvBCmKODslsjE3jhWwcXm6wVM3gh 8qtfj/M4M3hhP1vNV5PbLOCFx78Gnv8msYIX3rD8chn2YwUvuGYHWTxnYwMv MLUIaf55wgZeMHFwkfvOyw5esLz5dotCGDt4QWLynYAWPwd4QZ/00bPqKQd4 QeP8tE0VPSd4YUT4LXXLIU7wgkDq7cdMdzjBCxWillxn0zjBC/TW1j4tA5zg hXIfr9HbwlzgBX7PLxoHT3KBFwb1mUMl3LnAC2pUNxv2vecCL2zxX2S41MQF XggaDN+ZT8UNXnAX1zl6UJobvDAnL274R4cbvDAnzm6YcJMbvOAxxHM05Dk3 eCHogdzOuC/c4IUtNA4MLc3c4AW10/n1cnPc4IVBL9mnn7l4wAv8D9KPGMvw gBcqLhmObFbnAS8winN6c5rwgBeq0vs4tjrwgBcEN9cHm9/lAS+MXmwj5Tzi AS/keIkwOb/kAS9MX8vQKn/PA14I35NQkpnFA15ILB53US7kAS+ISz+yMa7g AS8wWfoFs9XzgBfO2DeNm7bwgBeEjt31xzt5wAuHFzzM8rp5wAvNLo02Db08 4IXWKp8PXn084AWNmcAdPynLCS9sHBvpS6T8P+GF89mxjRspj094gfP0J6qd lOcnvCBdKnDx9y8e8EIqYyMNH2X9CS/Eio62jhbwgBdIdKYj5pTtJ7xQlrdJ 3poyPoQXlrUOZtNRxo/wQvTbNCdVyvgSXkhqvWvHQRl/wguinfERtyn7h/AC KX0ztaspD3jhlPlcHI8GD3jhkf8ujfN7eMALx4dbPnqI8oAXvO7Ndl1m5gEv 7Dvl1SK5wA1eOK/jGZHRzw1eYPSfEONu5AYvyMzWXFUt5QYv/Azf7KuUxQ1e 6L7aZ0X/lhu84OS+gSk2ihu8cD//2022R9zgBVbFhrdH7xPvHxOcY8Dsjf5t Iv/v6wvXDunZZv/jBfMAjXSVf7yg16zWfP0fL5yQ0fxt9I8XdO7rvx+/i7xg 3GVjuv8fL9ipeffs/McL3m+T1JuNkBcS+H677/3HC9W+TE8OLiEvrK0ccV/U QV7YfztA7eJ75AWnhcau+0zIC4fPRrw87oS8IBeMFWbOIC8c9Pl5vCQAecH6 8AHlW/uRF95X+D+unEdeYBHOO17yjxcC9jbZn/+KvMDNNOxSa4G8MGZuSi4Y Rl5oCs0V9LmHvFCXyjknuAV5oTn1tI9nDfLCWGhwWbYv8gLnmezcwqPICxpM DRde8iEv+ER0fz8+hrzQzNZdVV6DvCB/8Vew8DfkhVexGdSqGcgLQkUBUnuz kRdiy3RpFkqQF5RSmR8/6kRe6HTLqFmgWgUvPJbVK5TbjbygX9hlg9siL4S8 2H3u0WnkhUiBg/1DS8gLf4RsNdJeIi+cSUz3HDyEvMD3bdOzwD7kBUbzd/df +iIvHPA2OLFREnkhRn7jBMtP5AX1awz2NrbIC+L7OIt2M9GDFxTuKczYJCEv BBp5rrNqIi+IZA30bfqLvDAecyX+lRfywhQXn+qjTUzgBXm2tk8jX5EX3j/J X88wYgYvWMWUbB+fQl7Q2T8sFUo5fyC8cPv0Tvqk7azghfb1J7lSBcgLt/fy nRQ0ZQMvGIxnZTlPIS/YyLmuHApgBy/kUJkL36GcjxNeUDM5wyuezQFeoBL9 7ii8nRO8sGww9MrsOid4IcDowCWdHOSFD1vf/lyk4gIvXMhVLTE6ygVeSNm4 YGoXxAVeCD7+O2BPHRd4gUa90eADDzd4gZVuObvDgBu88PaJelZhKDd4oWXw o7Z5PTd4gfIR4/WOkwfNR8xNn/pwgjgencIHPlRkXPDjAS9c3lWWWZvPA17w utOvO7nAA17YGSLlV7qLF7zg4Pj4tI41L3hBbZNwfnAEL3jh3bOfRfcqecEL iY1R56XWeMELCj1PInx28oEXLLLfXw47wwde2GAy1GT2kA+8cKlYq/N3Fh94 QWupxoO2lw+8kL90+8sAKz94Qae6UElOnh+84OYu/THSjB+8cJgxlX+jJz/y whX9699i+cELb1J5v98u4gcv4NXT69o9/Oj6QhlZTn2dH7ygFc1ipickAF7I PnH4prucAHihqDnSq1hLALxgh3Pc335OALyQfP+1c4KjAHghMFb3zCEfAfAC /YtNBxZCBcALIo4stBWxAuCFqq18xV9SBMALQmkqt4qzBcALdMJeoiP5AuCF gLN/M2XLBMAL7+9eVA+sEAAv2N6hK6KvFgAvFOkVyr+gZMIL2XQvorSrBMAL R0OfzYiWC4AXnNfe44wlAuAF1cNdd9nzBMAL0XSBWccyBcAL/j2MY78o6094 gdR2WuxdogB4gXHipm7NKwHwwsuNFz3VIgXAC/m22z/QUMaH8MKN2i9N3MEC 4IVPeqKka/4C4AV3sq6E8H0B8ELTWyMtXg8B8EK+x057MxcB8ML+q40PyU7E /jHBle9ov62/RmQSyY03RbPb1Qm8ECt0Olyh0Bu84Deyo16Z4TF4IXLT9UF+ rjDwQszbWw8/eESDFxoPi3WuJ74GL/z8Y/3NV+0NeCH9TaDVCPtb8MLzsNBa WbYP4AW1FlXqxJep4IXklbj1NzVp4IWoDJeup4IZ4IU1mvz4a25Z4IWOAecT KgtfwAs73IQm+V/mghem2ySSxe5+By8E01TnJZ8sAC/Ur+WmnVssBC80nu3a k1xYDF7wk1BQefS2FLwwpldcx5TyA7zA8Nd7Sri2HLzQ2O7ysoSjCrxgohT3 m96hBrxQ5UGqnJiuBS8cfvpzajv+C7wQ2rrjj0xUPXjhu4H0k2Xa3+CFcqpC xnD3RvDCu+7pI2u0zeAF+5nvR/dEtYAXSEoSXLvxNvDC1TSJmKXpdvDClzMF U48zO8EL46LLPovqXeCFKwmWNzn3daP7HY+GawbJ9IAX0mgiVq5K94IXXJtt QrN394EXUkppOGxU/8L9C6vsjNcbjvXD/QuCUxzfTY4NQD9i/arw4pzKIPQj Uv2lNyVvHYJ+xA6Vg3tcSMPQj7gZoL/LonYY+hF+jg6CZqEj0I+wng+YuHpi FPoR7PzJn6IXRqEfcbem9mz38zHoR+RvWVw8KDsO/Yif3Ns80zLGoR/xJtpg SnXvBPQjjhT46fTGTmCEF0zws1U1NGSM8IKjg9ug4m4yRnhhxiZq8eNpMkZ4 oWVXLmnvLTJGeGFrSefq9yeU5f/1QsN2mkmTBDJGeGHYSKp1PZ2MEV6wNtT9 8ukbGSO8oCF2J/hqPhkjvBCUnWCiSFlOeEFhY4MQB+X/CS8c06X5RY4nQz+C YyRc9tBTMvQjGr1n2yy9yNCPiN0o0mF4gwz9iCvZLHuErMjQj1DVK276aECG fgTn6JE6fk0y9CP6fR6LaiuRoR+Rtyk+13gnGfoRz794pshtIUM/wklfYvrP BjL0I/THQgPOcJChH7Hfr9IpmZ4M/Yi9apFWEasT0I8gOcved5uYgH5E/Vu9 o9S9E9CP+NDB9Fm6eQL6Ef5c+kWz1RPQj7A/stPFqmwC+hH6LlENjgUT0I/A PkT+lvg2Af2Ivd0ybm45E9CPkOTT/uH0ZQL6EduO0eZwUJYTXpB0P657MncC +hGyn7YGy+ZPQD/iwN9H11JLJqAf8bnq88muignoRzBtynItq5uAfsT+loh5 66YJ6EccXDEr/to+Af0IUf/Vrh/dE9CPaHLzOBnUPwH9CPvWTiamkQnoR7S8 2sivQhk/uH+h9uANiekJ6EcoX1LZ+GNuAvoR8rZCQpuXJqAfwVjfZL2Hsj8I L2S8caJaXJ+AfkT0tdtzylRk6EdUqknwGlGToR9h87Oo5STl/UR44RqtrqYY LRn6Ef3TVebVlEx44Ue4kpAxHRn6EfzksLvfKJnwQt1KT+AaJRNeWPq2UU2Y 8vohvPBITiuGh5IJLzw+Yx0/QPl7wgtrytd0wymZ8EJLtV2COCUTXljctcfm JWV9CC/Iu8QYbaJkwgvB7zJuvaFsD+EFumLHst2UTHjheUmLRgFl+wkvHP04 MHuakgkv8N170TBJGS/CC+tKyz1PKJnwAl0HafMBSia8IGmTEtxNIkM/wraF ZscTSia8UCZHtXiEhPoRXqMnRtbXJ+B+R9f/4QXe364/tmM3wQsMHm3YApcz eEGHo/aD3rQzeGHc35j7QO8t8MLgsJPDm+7b4IV98tu+vxh3AS+02tgyiDHf AS80eh3S2LHPDbywy/fDnUJ7d/BC8/UPiT2fPcAL5Fgx61JaT/CCyL30612Z nuj6gn6IC3btHnihGWOtK3K9D144aO9UeVLMH7zg3Vx+uePcI/CCaaGfkeLL UPCCl8LmCt+WSPCCxoCxv8ye1+AFjUIRXsPoN+AFXLadEU95B14QDj0u5yyX Cl4IbUngl7X6DF7gH7ibcrg/E7zwMLdxKTc3B7ywavJ++Vl/Hngh849H88Cn AvCC89xFNnmhYvCCzGRQ9N7kUvDCSM20T5fNT/DCq5DnP1VPVoIX9BTdbE6a 16D5CMuaXb5adeAFU0FSy7flX+CFT2o6H6sKGsALjJ3f0zKiG8ELFiOnem8G NoMX0u1WcfYnreAFJvOKCo937eCFSJkAaoOSTvDC71i6vWw2XeAFQcPtC5cs u8EL0Tve6X8z6AEvmEoFH2ZW7QUvGB2vL9fe2AdeeBLi0h802wdeYF73DC8u +gte+P54qGPavx+8kKr5+YvwkQHwQveWTmmVhQHwgs42uz2GsYPgBboTRlUX 1YfAC2Phb9autQ2BFwSYDEsc7YbBC64x1puvkofBCxvNmritHEbAC0vK7yK0 u0fAC3xqnRn7KL4hvHDVwdGGO2UUvECdZ5sySD8GXmiVKwjIOj0GXhiudlnx eDEGXlB69JQGaxsDL5Q6sb+a5xgHLwTfHa5LUh4HL9y/0cTKaDkOXnjM6VNc 7jsOXvhiMr1AfjsOXlg4Kf7OtWIcvKA/xtVsMzIOXig9UOiVzTQBXjCQlXtn LzEBXlipunDK+9AEeOGroNHVddMJ8EIIJzNb540J8IJ3mvt2sQcT4IWQ9U95 JS8mwAsZ8wm/qlORF2Yjza2UC5EXTg79usbyC3nhew/TsmoX8oKWHxV14yjy wnjjF5/aeeSFxkuC6uGUz1fCCwXKmVS3KccDwgtKFz57BDCQwQuqPZw51Uxk 8EJdRvXnwyxk8MJE5+jlUUomvBB15nJPCSUTXqjboyVQx0wGL1yjKTZwpzwe 4QVdV56/ioxk8IJTmMIPesrzE15oMZJb66Uczwgv3M2j8aujrC/cv1D+1vI/ viW88OTOticdlOMT4YW1OmfuFcrxh/DC+6oX/dKUTHgh8kokmx1lPAgvPLdt YXdcR17wwKWS9q4hLwye3zrAvYq80FxVXsGzMgFeOOYtclp+eQK8cNBH0PcW xR+EF7JqC8xaFyfAC+kX+ZrOUDLhhf2avAtUlEx4QfFGXl7pwgR4oXCARyaZ kgkvVCfyHkyjZMILFmn5M82UTHjhKsMGPTHK4xFeYEwUMvSnZMILYk9+rHJS 1o/wwlvx7YyJlEx4wSdbefcByvYQXsjQo3cuoGTCC8qTvi1HKNtPeIE/9Jtp MSUTXtBQfreoQhkvwguV/ScyP1Iy4YXEsDePRSjjS3ihUSvd/z4lE14wpXF5 2UfJhBfk8qfrMMr+IbxgeW/rlmfgAxO8X4MlpO8fL/zP6wtGHwUnYqOcwAu2 rWe+1+U5gRfSnrlmO/Q5gRd2d19tdWa9CV7ozz24bWz/TfBCtWTf81qrm+AF 8lYr+c1Pb4IXjn7KWeosvgleaKwaHmRavAleiHCdXn+9yxm8EJrVgCVecgYv FHsHJwnGO4MXpHvElBa7ncEL4tX5spwvXMALYXG6FrxJnuCFAIkLjq9XfcEL MxMCp3fVPAIvUHvupzkb/Ay8sPf9nkIJx2j0/Qu5a47zWrHghbjZEzlmywng BT5Pmn35WsngBe6dT66FiHwCL8wVN3QdtkoHL0R7V9rdWswCL3A53GaX/vMV vCCNjVrvZM4HLxw0d67zO1EIXkgJaj32OrMYvBBSv6HG9WgZeKFeds95Xupy 8MKd6C2kK72V4IWHm8jv/UZrwAv3zI6npQbXgReuf2J5tqpUD14I5VL0kF5u AC+M3Kl3OFDTCF5wJrdabc1qBi/su6p9bjKtFbygzGy0Tk5tBy/E1wt03Izp BC9k/v2xgmFd4IWfty3fMWzvBi+wxBnPczH0gBc8LrzvtfjTA17Y9M306vjH XvDCZPLFyPzbfeCFKbmaC78V/4IXtuqFVu+Y/gteuM+Q2VQa3w9e4DXY5xl3 agC80HmA40cheQC8UJ2m8XHrw0HwwmRxq/xP0SHwguqVCrPUpCHwQkHKhs2t MsPgBQffQh+NxGHwgtbsjwezQiPghdPLMrIDviPghZDnI1eFR0bAC6QqBr0Q zVHwQuRzz/rj0aPghUvLhjOaQ6PgBctZv3TfnWPghYe+/LyM9mPghSNbP9C7 xo+BFybU5+8GtI6BFx78nbmryI68wM2UQO+HIS88TGHmdbyCvDDzWzxpNXIc vHDq7nihRMk4eCHincOF8dFx8MIvo1eBBtzIC4u+vsom8sgL3Api11cMkRdE LjvIqjohL/CIXbm28THywuppcaUXb5EXGjkCAnLykRditN6cd/6NvGDE4PS9 dgB5gaQxF/fzHy8cpwnzS6VGXngcH+B5nBF5oZK+JTeDFXmBJH1PZYIDeWEH +/31eS7kBZ3PnXS13MgL9oKh2re4kRfu4nHtY5zIC6XyVa3N7MgLrvT1tzpY kRei09I/LzMjL8go3QiWY0JekHzBwujDgLzwpM1TjEyHvGA7W9fkRIu88GF4 TZaHBnnB4ivDlop/vOBuM5oZ/Y8X+DpN6jn+8QJjfIiz4D/XF5rE7hudXkZe uGcg41y6iLzAgD38ZbuAvGDdFWuPzyMvvFK4cVhrDnkhS3PRxG8WeSGBTeHD /AzywrWAnapRM8gL/HntrDdmkBeeJ6kJus0gL8wcO2f1ZQZ5QTJWfkRqFnlB +VNhatUs8oLELYb0+DnkhYt8nhmP55EXbnxIuum4gLyggd2bObGIvDBUzrRX dAl5wUBHbWffEvLCwxrpodfLyAuPjhZZnl5BXjjzlSWKahV5YX47bUjcKvKC eXCypso/Xggap82tWENe8DvKNqH7jxd0oku6qv/xwp3/4YWAy1uonjcgL3j8 /TY/ve8meMHYy11mNuomeIFfzTI6iskZvJCz1V5rwN0ZvKAqHSXfvOAMXnir N3Hmiust8MLii0tFb6lvgxd2szJcDHhyG7yg9aL8COd2F/CClu5nS+UiF/CC rGRBLstFV/DCzOYZ/Xscd8ALe8k9U74DbuAFTXHuNJqHyAvOHO3696rugxeS sBoLFWV/8MJc2sivfQ1B4IWo9A3G8idCwAvYHp3lcfUw8IK1toi+Zl0keIGV w/2s6kwMeEFYQZHTrjEWvOChuKblvfoGvBD+kK3L4epb8ML1nTY1Ejs+gBfo n/gENkWkIi98drOgKUoDL1StPu8I48oAL5Rea2UK8ckCL2xgPdQ7szEHvFBe U2n7vSMXvND+1f3FZMF38ML2QanvJdYF4IUQ3+2+GquF4IUdX7K23EksBi/M 3W0Nt7pQCl6YbH3Usy73A7wgWt5Eo8NfDl445viHVYm+ErxwdKWePX6tCrwg YJ3BFLxeA17oaCxYu0NbB17gv7xp9hrbL/CC4tXpgTdC9eAFjd6DTUI7GsAL SmVrhTWHfoMXNgjvf19s1ghe6OzsfbTo0gReCOZmvH4luhm8IJEZe2pLUQt4 IffnZ8kN463gBcmTyusnRNvBCz644q8CnQ7wQn7ch9fO/p3gBbLzc4fLxX/A C+vtK0I6Xl3gBdfMS+4BW7vBCyNlHJ19P7rBC9pcUypnr/aAFz6EcEQuCvSC F5aPX5r9XNgLXlA7uHIq+GofeMH1YkWC/8a/4IX4st8rsTV/wQvWD64qB3n0 gxfMG0ZPzEsMgBceJp3c0/1jALxApgsZ1LowCF4IHP1yY9/iIHjhnHlJzQu/ IfCCg2H6ui/HMHjhY5MvNfnxMHhBsleluZllBLzQfKvR85DnCHjh+zP9Fanx EfDCH5V0rRDDUfCCnMPCZdfMUfBCgYTYuR7OMfCCj63M9vILY+AFL3mhgj1p Y+CFzwGjsoKLY+AFEdtYB0/FcfDCt1plTxvHcfBCaEG2dXXCOHghTllwY0b9 OHhhUPXMW+GlcfCCTYU3A7UQmo8Q7n6kcEkOzUcweHqonNJA8xHbk3R40vXQ fEQMxznJLDM0HxFkTz/gdAHNR4zmqWuP2aP5iHz6DefFbqL5CIbD90XY3dF8 RLGzz71MbzQfMfNy42PBQDQfEZF76uiBp2g+IrWG7x1H5D/zEc2OGbGv0HyE auMlO3IC8sKnnzM/FpKRFyLTBOq+piEvzD+u81LMRl74cUG88/o35AXWncy9 FwqRF0pG/Z9wlyEvTL96OeRagbwQqnV85EUN8kLSUHDYnXrkhd0etiM8TcgL uxnbhi62Ii+88ut94tSBvOC94tWr0oW80HXxS+f3HuSF5FLf+6t9yAvKpzI2 sQ8gL7Ts4qBiHkJe8L4cun1yGHlBlerI06JR5AX6SbHD98aRFzqUJJWkycgL xZ2mN/MmkRey27NnD04jL3zZp/Y1aQZ5oaJ/rmRtFnlhZIpy0J1HXthg0vPO fgF5wVBQ0Md78f/vhfRWhw1BdWg+4tLm+IXIQ7fAC8GDOoPMFbfBC9K7nQba HVzBC2oLbHOc0m7ghTJ8I2/iujt4oYTpzaGY8bvghWgp3e9uy57ghTD2h39N Wb3ACyVynjzDUvfBC/sidh+TNvBG37+gGu0r/NAHvPB1a1HFt2pf8MLc/kmS 2Sl/8ELq+RvsBxUDwAud8RozVo8CwQv3SVfSanTQ9QUjJaet+apPwAtxpLa2 HOan4IUd+pfXjVifgRfIe7Y9ClcPBy9MRjM+dEmNAC/sDOWbXtWLBi+kCZwo 2yoTA15I52mkuSXyGryQ0i3UuiMvFrxQctOp/7NrPHiBurZHklUvAbxgSLZ+ LX84CbxQ27iqvVv3HXjh/P13+1ZuJ4MXOOYua0d8TQEvXBHYXHs/MBW80BcW 9jTuxyfwwiUX/ikZ7s/ghZW8VyMitunghZc28p7OVRngBV3Hho8KWBZ4gavH 3dUqLxu8IKYcdNnIKAe88I3Ogv0mfy54YfAQ2TJ3+Rt4oXb+dXoYTT54wdEv mfOCSAF4obMm/IjG0ULwAkedlf5BvyLwAuNDTqVjLcXghR+rLxZtVUvBCyek WENiMsvAC5FsZjTDh36CF1LeBZw81lUOXkgiRV379qQSvHCCI9Be43Q1eMFy JEVsir8WvHBHxv/WcdY68MJ6WZ3SLpZf4IU/+Q/tXvDUgxfE+TPpw7Y1gBfK y3Q4BCneIbzQ8NvMW+JiI3hBC2+yzgttAi+IMBR97qpsBi+YS2+6EsTeCl6Y ezsSWmzSBl4g+0hK+qa0gxf0eLq329F2ghcEE8VCGfX/gBfiXjlm7j7ZBV4Y vyZkojTWBV64XEy79/WDbvCCaNTeQ9biPeAF6tk4X9+sHvCC8C9jarpjveCF i3t107sae8ELfXxB0YLn+8ALYW6sXz8O9IEX3C7WcMTZ/QUvhNb/jpwe+gte 6CraZP7auh+8cP7AB/3kjn7wAu9Oj3u8egPgheXEkL8thQPgBd43w3dXdg2C Fyy3+eq4RQyCF3okrY1M1gfBC2Ef/UKfnh8CL3h8GWOQyR8CL0RohH/aJDwM Xhg87f3k+o1h8ILdcHqiWOkweEGUSmpmB/8IeMFA49FHVqsR8IKZdRj3/g8j 4IV9Fqqib2dGwAvtu/1qrBVHwQsGHdek7O+MgheirZalc3NGwQuZRRINhvOj 4IVXq1NbFfeMgRdMuc6JXrw0Bl7oXXP41h49Bl7AS0XoXlSPgRfsbOxnElbH wAu2PeYPl6TGwQv7D4z/DNcfBy/UWYuleriOgxdUr0wf/PhyHLzgqmPjKJU/ Dl54wOqmM9Y5Dl6wid3ze4niM8ILvNz+VHq8yAshZnd/T0kjL/R4COh2qCIv ULvpOHHpIC+Q9aSxRxbIC59o3nw6bYe8oBacX2HjiLxwZUtn0bwr8gL1jEWt shfywtq62qTcA+SF85oBEl2PkBd2lO+7hochL5z1V6s2iEZeWLr3GReNRV5Y yfQri0hEXrDe/t2yPBl5YX+9CffHT8gLV3OMGjUzkRe4OrJTQnOQF4SU3aOe 5f3/vXDjjMi9A5XIC/vGTWID9iMv5JRefN/6BXmBdkAtevtp5AUh7XGn6yzI C+S1S/LZLcgLwXNpHcv5yAtLQv37X3YhL4RatE6pjN0DL7BqZIqb0iMvONS5 lM7KIC8kk7Z1clggL1TXZ9kmRSMvVDpmiEYs+YEXEphep3wNeABe0H3mKsJ5 8iF4oYZfzSbsUBB4QTp4PvjUpUfo+xfcq45Fdz0GL0jvClOSlggBL4S2/Ras 834KXhj0Chx4vBIKXpDclhNnGxQGXjAutDhlduA5eMHe1HXAeikCvHB5jPXq g8Yo8ILhHf6/JRUvwAt7acOPCbfGoD6lumZ1Mek1eEHv/toVxs2x4AURfNK3 +WQceMHcdRO/vF88eIFr7wORjVVvwAvKNjsjn25KBC+0CXI8euaRBF4gH5NZ 3jL8FrzgMu/VqWr5HrzgIs6v2N+fDF4YL+9jFrqdAl6YWrnevZcvFbygYE57 SZrpE3jh6H2piGmBNPDCxhvdTsGHPoMX8iV3LC/5pIMXZBKZdij+zQAvWIy5 MBw7mwVeMF92C5KeyQYviNdx53XE5aD7F64oR1heyQUvMDfMbfyinwdeCPOM TSRL5YMXNi1zP3M4UABeuNNSaaSvVwheKBaunXjtWgReGCwQOWOSWgxeWK5I i3GZLgEvDCuGZFEfLgMvfGP5Gj/z+gd44eYhWRtttnLwAnfb4Bq3bwV44WXz 2GWMtQq8QKukktIQUw1eSFkfsrQVqwUvaISatkTP14IXaluv5nj/rkNeML8Z cy7rF3ih5nXm5muR9eCFY+/lDn32aAAvfL89uip14Td4YTdzt1GDViN4IeYs l3ba3ibwArOLe2+RcDN44cbpbXxM9C3ghcZ5xr57ky3ghX1nJHV2draCF4J9 75uwV7aBFwYdhUjiX9vBC0rbxtRt33eAFwIjl7f2RXeCF5rrj8SFPPoDXngy aH0251AXeGHfz1LlI7ld4IWGhyX9tge6wQuOuy3PSX7uBi9wZkUnee7qAS+8 33Tz+43kHvDCYbuR+DWpXvBCe9i68dakXvDCjTef2nol+sALdGFUsgcT+sAL YZcmTuyW+AteaKtVNnwb/xe84OuVeDZ0Uz944bn7XvvJsH7wAndhu2s+8wB4 YUo74SHVnQHwgsL2Ry/TBwbAC4Oa4Z9bdAbBCyuf8sqvZQ6CF5yt6fpcNgyB F4wtL6/POA+BF2KTyCI9dUPgBV2FZyqHpIbBC9e4TCy43YfBC+NyKl6GVcPg hV8xqknMQiPgBVHDc7V7KD4ivFCr/3qpPGkEvDAcRbW9cXgEvGAne89QX2oU vKDNKOardmEUvBC9ozM7LmoUvKAX+XXMuWYUvHBFN3tr7vooeGFCt+GM444x 8EJrFEdEtOEYeEFql13jgTtj4IXyRelPZi/HwAsJQ8+LN+aPgRe+rX3mvNc1 Bl5gV3R75rU+Bl6Iej6pt0V0HLxgKcp7zEpxHLxwoaz3lprBOPo+6LBzf/Id xsELwg8D7nb6jIMXquPPG0dFj4MXcnv/2s5/Ggcv9GsKpE+VjIMXTtTN7g9q Hsf+DybuiJ4= "], {{{}, {}, TagBox[ TooltipBox[{ GrayLevel[0], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131}]}, "\"Tat2C\"", TooltipStyle -> "TextStyling"], Annotation[#, "Tat2C", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], LineBox[CompressedData[" 1:eJwN0WciFgAAANDvI+7hSo7gADkEGZGZPRKyM7P3npVR9ihkbyEKvR/vBC8i KjryZTAQCMQQyyviiCeBRF6TRDJvSCGVNNLJIJO3ZJFNDrnkkU8BhRRRzDtK eE8pZZTzgQoqqaKaGmqp4yP1NNBIE8208IlW2ming0666KaHXvroZ4BBhhhm hFHGGGeCSaaYZobPfOErs8wxzwLf+M4iSyyzwiprrLPBJlv84Cfb7LDLL/bY 54BDjjjmhFPOOOeCS6645jc33HLHH+554C//eOSJZwLig4QQygvCCOc/uUpg DQ== "]]}, "\"Tatnc\"", TooltipStyle -> "TextStyling"], Annotation[#, "Tatnc", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], LineBox[CompressedData[" 1:eJwV0cVSFQAAQNHnSpQQaZDulu6U7k6V7u4uCYW/5rg4M3d/05b2R/c+BAKB Jz6KID7xmWBCCCWML4TzlQgiiSKaGGKJI54EvpFIEsmkkEoa6WSQSRbZ5JBL HvkUUEgRxXynhFLKKKeCSqqopoZa6qingUaaaKaFVn7QRjsddNJFNz300kc/ AwwyxDAjjDLGOBNMMsU0M8zyk1/8Zo55FlhkiWVWWGWNdTbYZIttdtjl/6R9 DjjkiGNOOOWMcy645Iprbrjljnse+MMjTzzzwl/+8cob77TvJ5I= "]]}, "\"Tat3C\"", TooltipStyle -> "TextStyling"], Annotation[#, "Tat3C", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], LineBox[CompressedData[" 1:eJwV0ec6lgEAgOH3+7KSk3BKDsEB5CD8E9kSSTbZEaLMlJEyi1D23pStbj/u 63r+P/GJSQmPQ0EQJJMinpBKGk9JJ4NMssgmh1zyeEY+zymgkBcU8ZJiXlFC KWWUU0ElVVRTw2tqqaOeBhppopk3tNDKW9pop4N3dNLFez7QTQ+99NHPAB8Z 5BOfGWKYEUb5whhf+cY4E0wyxTQzfOcHs8zxk3kWWOQXv1limRVWWWOdDTbZ YpsddtljnwMOOeKYE0454w9/OeeCS6645oZb7vh3PzccBCHCPCCCSKKIJoaH xPKIOP4Db5JdqA== "]]}, "\"Tat4C\"", TooltipStyle -> "TextStyling"], Annotation[#, "Tat4C", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], LineBox[CompressedData[" 1:eJwNw2c7lQEAANA33wuVmRFZobJllS0yb8NWXTPr2tnr2iN/2TnPc7LCkdDy kyAIoj6NCYJnxhpnvM994UsTTDTJZFNM9ZVpppthpq/NMts35phrnvkW+NZC iyz2ne/9YImlllluhZVWWe1Ha6y1znob/ORnG22y2RZbbbPdDr/YaZdf7bbH Xvvsd8CQ3/zuD3866JDDjjjqmONO+Mvf/jHspFNOO+Osc/513gUXXXLZiCuu uua6G2665T+33XHXPfc98NAjjz3x1KhnnnvhpVdee+Otd9773wcfAWZQKyc= "]]}, "\"Tat5C\"", TooltipStyle -> "TextStyling"], Annotation[#, "Tat5C", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], LineBox[CompressedData[" 1:eJwNw4c6lQEAAND/3mtlxht4pR7BA/AQXsBOSIOMUNmyVyXRQPbILpW99znf d9Izsh5lhoIgyDYnHAS55plvgYUW+dhin1hiqWU+tdxnPveFL62w0ldWWW2N tb62znobfONb39lok8222Gqb7Xb43k677LbHXvvsd8BBhxz2gx/95IifHfWL Y4771W9+94cTTjrlT6edcdY5511w0SWXXfGXq6657oabbrntb/+441//+d9d 99z3wEOPPPbEU88898JLr7z2xlvvDCJBEDJsxCijjTHWOB8Yb4KJJplsig9N Nc17lltbQw== "]]}, "\"Tat6C\"", TooltipStyle -> "TextStyling"], Annotation[#, "Tat6C", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], LineBox[CompressedData[" 1:eJwNw4c2lgEAANDP8QiJosxCZGTvTUZ2Rtl7xP/bKytbEpH3de85N2ky3BOK CILg1BeRQRDlS6ON8ZWvjTXON7413gQTTTLZFN/53lTTTPeDGWb60SyzzTHX T+aZb4GFFllsiaWWWW6FlVZZbY211llvg402+dlmW2y1zS+222GnXXbbY69f 7bPfAQf95neHHHbEUcccd8JJp5x2xlnnnHfBRX+45LIhw6646prrbrjpltvu uOueP933wEOPPPaXJ5565rkXXnrltb+98Y+3/vXOe//54KP/ffIZF7EuvA== "]]}, "\"\[Mu]2C\"", TooltipStyle -> "TextStyling"], Annotation[#, "\[Mu]2C", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], LineBox[CompressedData[" 1:eJwNw/c61QEAANDf7V4hKyT+7ZU8ggfgIbyDhCZZ2Tt7tYQKlb1n2Xtzzved Z1k5mdmhIAhyzQsHwXPzfWGBhRb50le+9o1vfWexJb631DLLrbDSD1ZZbY21 1llvg4022WyLrbb50XY77LTLbnvstc9+Bxz0k5/94le/OeR3hx1x1B/+9Jdj jjvhb//410mnnHbGWeecd8FFl1x2xVXXXHfDTbf853+33XHXPfc98NAjjz3x 1DPPvfDSK6+98dY7g0gQhHxg2IhRPjTaGGN9ZJzxJphoko9NNsVUn5jmU9PN 8B4ttFje "]]}, "\"\[Mu]nc\"", TooltipStyle -> "TextStyling"], Annotation[#, "\[Mu]nc", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], LineBox[CompressedData[" 1:eJwNwwc3lQEAANCvc/wJZWSv7EL2JrtHZVaevZ5ZRgtPNglZ/Vn3nnOTwouh yJMgCKLGxgTBU58ZZ7wJJvrcJJNNMdU0080w0yyzzfGFueaZb4GFFlnsS19Z YqllvrbcCiutstoaa62z3gYbbbLZFlt9Y5vtdthpl932+NaQvfb5zvd+sN8B Bx1y2BE/+snPjhp2zHEnnHTKaWecdc55F4y46JLLrrjqml/86robbrrlN7/7 w5/+ctsdd42652/3PfDQI4898dQzz/3jhX+99Mpr/3njrXfe++B/HwHJAzJR "]]}, "\"\[Mu]3C\"", TooltipStyle -> "TextStyling"], Annotation[#, "\[Mu]3C", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], LineBox[CompressedData[" 1:eJwNw4c2lQEAAOD/1r1RkRAyz/FKPYIHqIfwGkb2zi5RMrNSZih7Zc/s0Ped 82XnvHn1OhQEQa554SDIt8BC31pksSWWWma5FVZaZbU11lrnO+ttsNEmm22x 1fd+sM2PttvhJz/b6Re77LbHXvvs96sDDjrksCN+c9Tv/nDMcSecdMppfzrj rHP+8rfzLrjoksuuuOqa62646R+33HbHXffc98BDjzz2xFP/eua5F1565bU3 /vPWO+8NIkEQ8oEPDRvxkVFG+9gnPjXGWJ8Z53PjTTDRFyaZbIovTTXNdDPM NMv/NY5WeQ== "]]}, "\"\[Mu]4C\"", TooltipStyle -> "TextStyling"], Annotation[#, "\[Mu]4C", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], LineBox[CompressedData[" 1:eJwNw2c7lQEAANC3D36HLrI3KbNCNnEle11K1hWhbEVCKXvPf+qc5zmhyFQ4 +iQIgg1jY4LgqSHjjDfBZyaaZLIppppmuhlmmmW2OeaaZ77PLfCFLy20yGJL LLXMV772jeVWWOlbq6y2xlrrrLfBRpt8Z7Mthm31vW1+sN0OO+2y2x577bPf AQeNOOSwH/3kiJ8ddcxxJ5w06pRfnHbGr84657zf/O6Ciy657IqrrrnuD3+6 4aa/3PK32+646x//uuc//7vvgYceeeyJp5557oWXXnntjbfeee+Dj3pkNeY= "]]}, "\"\[Mu]5C\"", TooltipStyle -> "TextStyling"], Annotation[#, "\[Mu]5C", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], LineBox[CompressedData[" 1:eJwNw4c6lQEAAND/0r1ZkRkVuvREPYIH4CG8iVVWIpTsRNlb2bPsEcoszvm+ Ey0qeVUcCoKg1LJwEJRbYaVVvvaN1dZYa531vrXBdzba5HubbbHVD360zU+2 22GnXXbbY6+f7fOL/Q741W8OOuSwI4465rgTTjrltDPOOud3fzjvgosuueyK q6657oabbvnTX26746577nvgoUcee+JvTz3z3D/+9cJLr7z2xlv/+d87g0gQ hIwx1geGjfjQOONNMNEkH5lsio9NNc10M8w0yydmm+NTn/ncXPPM94VRCyz0 pfet6VQU "]]}, "\"\[Mu]6C\"", TooltipStyle -> "TextStyling"], Annotation[#, "\[Mu]6C", "Tooltip"]& ]}, {{ GrayLevel[0], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], DiskBox[{0, 0}]}, { Thickness[0.1], CircleBox[{0, 0}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 53, Automatic, Scaled[{0.03, 0.03}]]}, TagBox[ TooltipBox[{ GrayLevel[0], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 184, Automatic, Scaled[{0.03, 0.03}]]}, "\"Tat2C\"", TooltipStyle -> "TextStyling"], Annotation[#, "Tat2C", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], PolygonBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}}]}, { Thickness[0.1], LineBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}, {0.5, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 315, Automatic, Scaled[{0.03, 0.03}]]}, "\"Tatnc\"", TooltipStyle -> "TextStyling"], Annotation[#, "Tatnc", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, {0, 0.067}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 446, Automatic, Scaled[{0.03, 0.03}]]}, "\"Tat3C\"", TooltipStyle -> "TextStyling"], Annotation[#, "Tat3C", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], InsetBox[ GraphicsBox[{ GrayLevel[0], { Opacity[0], EdgeForm[None], RectangleBox[{0, 0}, {1, 1.2}]}, { GrayLevel[1], PolygonBox[{{0, 0.933}, {1, 0.933}, {0.5, 0.067}}]}, { Thickness[0.1], LineBox[{{0, 0.933}, {1, 0.933}, {0.5, 0.067}, {0, 0.933}}]}}, Frame -> False, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 577, Automatic, Scaled[{0.03, 0.03}]]}, "\"Tat4C\"", TooltipStyle -> "TextStyling"], Annotation[#, "Tat4C", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], InsetBox[ StyleBox[ RotationBox[ GraphicsBox[{{ GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, { 0, 0.067}}]}}, ImagePadding -> Automatic, ImageSize -> {12.66666666666572, Automatic}, PlotRangePadding -> None], BoxRotation -> 1.5707963267948966`], StripOnInput -> False, FontSize -> 0.03], 708]}, "\"Tat5C\"", TooltipStyle -> "TextStyling"], Annotation[#, "Tat5C", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], InsetBox[ GraphicsBox[{ GrayLevel[0], { Thickness[0.1], CircleBox[{0, 0}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5189655172413765, 0.48103448275862526`}], Center, Scaled[{0.5, 0.5}]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 839, Automatic, Scaled[{0.03, 0.03}]]}, "\"Tat6C\"", TooltipStyle -> "TextStyling"], Annotation[#, "Tat6C", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5189655172413623, 0.48103448275861993`}], Center, Scaled[{0.5, 0.5}]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 970, Automatic, Scaled[{0.03, 0.03}]]}, "\"\[Mu]2C\"", TooltipStyle -> "TextStyling"], Annotation[#, "\[Mu]2C", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], PolygonBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}}]}, { Thickness[0.1], LineBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}, {0.5, 0}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5189655172413765, 0.48103448275861993`}], Center, Scaled[{0.5, 0.5}]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 1101, Automatic, Scaled[{0.03, 0.03}]]}, "\"\[Mu]nc\"", TooltipStyle -> "TextStyling"], Annotation[#, "\[Mu]nc", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, {0, 0.067}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5224137931034489, 0.488333200605247}], Center, Scaled[{0.5, 0.5}]]}, ImagePadding -> Automatic, ImageSize -> {18.000000000000007`, Automatic}, PlotRangePadding -> None], 1232, Automatic, Scaled[{0.03, 0.03}]]}, "\"\[Mu]3C\"", TooltipStyle -> "TextStyling"], Annotation[#, "\[Mu]3C", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], InsetBox[ GraphicsBox[{ GrayLevel[0], { Opacity[0], EdgeForm[None], RectangleBox[{0, 0}, {1, 1.2}]}, { GrayLevel[1], PolygonBox[{{0, 0.933}, {1, 0.933}, {0.5, 0.067}}]}, { Thickness[0.1], LineBox[{{0, 0.933}, {1, 0.933}, {0.5, 0.067}, {0, 0.933}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5189655172413801, 0.48132183908045434`}], Center, Scaled[{0.5, 0.5}]]}, Frame -> False, ImagePadding -> Automatic, ImageSize -> {18.666666666666742`, Automatic}, PlotRangePadding -> None], 1363, Automatic, Scaled[{0.03, 0.03}]]}, "\"\[Mu]4C\"", TooltipStyle -> "TextStyling"], Annotation[#, "\[Mu]4C", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], InsetBox[ StyleBox[ RotationBox[ GraphicsBox[{{ GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, {0, 0.067}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5224137931034498, 0.488333200605247}], Center, Scaled[{0.5, 0.5}]]}, ImagePadding -> Automatic, ImageSize -> {14.666666666666742`, Automatic}, PlotRangePadding -> None], BoxRotation -> 1.5707963267948966`], StripOnInput -> False, FontSize -> 0.03], 1494]}, "\"\[Mu]5C\"", TooltipStyle -> "TextStyling"], Annotation[#, "\[Mu]5C", "Tooltip"]& ], {}}}], {}}, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesLabel -> { FormBox["\"Years\"", TraditionalForm], FormBox["\"Value\"", TraditionalForm]}, AxesOrigin -> {0, 0}, ImageSize -> {400, Automatic}, Method -> {}, PlotLabel -> FormBox["\"Variation of Temperature Rise (TAT) with Abatement (\[Mu])\"", TraditionalForm], PlotRange -> {{0., 100.}, {0, All}}, PlotRangeClipping -> True, PlotRangePadding -> { Scaled[0.02], Automatic}], TemplateBox[{ "\"Tat 2\[Degree]C\"", "\"Tat no constraint\"", "\"Tat 3\[Degree]C\"", "\"Tat 4\[Degree]C\"", "\"Tat 5\[Degree]C\"", "\"Tat 6\[Degree]C\"", "\"\[Mu] 2\[Degree]C\"", "\"\[Mu] no constraint\"", "\"\[Mu] 3\[Degree]C\"", "\"\[Mu] 4\[Degree]C\"", "\"\[Mu] 5\[Degree]C\"", "\"\[Mu] 6\[Degree]C\""}, "LineLegend", DisplayFunction -> (FrameBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ FormBox["\"Legend\"", TraditionalForm], TraditionalForm, Editable -> True], {FontFamily -> "Times", 9, Bold, GrayLevel[0.5]}, Background -> Automatic, StripOnInput -> False]}, { TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { LineBox[{{0, 16}, {16, 16}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { InsetBox[ GraphicsBox[{{ GrayLevel[1], DiskBox[{0, 0}]}, { Thickness[0.1], CircleBox[{0, 0}]}}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {16, 16}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.275] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { LineBox[{{0, 16}, {16, 16}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { InsetBox[ GraphicsBox[{{ GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {16, 16}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.275] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { LineBox[{{0, 16}, {16, 16}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { InsetBox[ GraphicsBox[{{ GrayLevel[1], PolygonBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}}]}, { Thickness[0.1], LineBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}, { 0.5, 0}}]}}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {16, 16}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.275] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { LineBox[{{0, 16}, {16, 16}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { InsetBox[ GraphicsBox[{{ GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, { 0, 0.067}}]}}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {16, 16}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.275] -> Baseline)], #4}, { GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { LineBox[{{0, 16}, {16, 16}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { InsetBox[ GraphicsBox[{{ Opacity[0], EdgeForm[None], RectangleBox[{0, 0}, {1, 1.2}]}, { GrayLevel[1], PolygonBox[{{0, 0.933}, {1, 0.933}, {0.5, 0.067}}]}, { Thickness[0.1], LineBox[{{0, 0.933}, {1, 0.933}, {0.5, 0.067}, { 0, 0.933}}]}}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]]}, Frame -> False, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {16, 16}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.275] -> Baseline)], #5}, { GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { LineBox[{{0, 16}, {16, 16}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { InsetBox[ FormBox[ StyleBox[ RotationBox[ GraphicsBox[{{ GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, { 0, 0.067}}]}}, ImagePadding -> Automatic, ImageSize -> {12.66666666666572, Automatic}, PlotRangePadding -> None], BoxRotation -> 1.5707963267948966`], FontSize -> 0.03, StripOnInput -> False], TraditionalForm], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, ImageSize -> {16, 16}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.275] -> Baseline)], #6}, { GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { LineBox[{{0, 16}, {16, 16}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { InsetBox[ GraphicsBox[{{ Thickness[0.1], CircleBox[{0, 0}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5189655172413765, 0.48103448275862526`}], Center, Scaled[{0.5, 0.5}]]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {16, 16}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.275] -> Baseline)], #7}, { GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { LineBox[{{0, 16}, {16, 16}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { InsetBox[ GraphicsBox[{{ GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5189655172413623, 0.48103448275861993`}], Center, Scaled[{0.5, 0.5}]]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {16, 16}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.275] -> Baseline)], #8}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"], TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { LineBox[{{0, 16}, {16, 16}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { InsetBox[ GraphicsBox[{{ GrayLevel[1], PolygonBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}}]}, { Thickness[0.1], LineBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}, { 0.5, 0}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5189655172413765, 0.48103448275861993`}], Center, Scaled[{0.5, 0.5}]]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {16, 16}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.275] -> Baseline)], #9}, { GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { LineBox[{{0, 16}, {16, 16}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { InsetBox[ GraphicsBox[{{ GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, { 0, 0.067}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5224137931034489, 0.488333200605247}], Center, Scaled[{0.5, 0.5}]]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]]}, ImagePadding -> Automatic, ImageSize -> {18.000000000000007`, Automatic}, PlotRangePadding -> None}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {16, 16}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.275] -> Baseline)], #10}, { GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { LineBox[{{0, 16}, {16, 16}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { InsetBox[ GraphicsBox[{{ Opacity[0], EdgeForm[None], RectangleBox[{0, 0}, {1, 1.2}]}, { GrayLevel[1], PolygonBox[{{0, 0.933}, {1, 0.933}, {0.5, 0.067}}]}, { Thickness[0.1], LineBox[{{0, 0.933}, {1, 0.933}, {0.5, 0.067}, { 0, 0.933}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5189655172413801, 0.48132183908045434`}], Center, Scaled[{0.5, 0.5}]]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]]}, Frame -> False, ImagePadding -> Automatic, ImageSize -> {18.666666666666742`, Automatic}, PlotRangePadding -> None}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {16, 16}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.275] -> Baseline)], #11}, { GraphicsBox[{{ Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { LineBox[{{0, 16}, {16, 16}}]}}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { InsetBox[ FormBox[ StyleBox[ RotationBox[ GraphicsBox[{{ GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, { 0, 0.067}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5224137931034498, 0.488333200605247}], Center, Scaled[{0.5, 0.5}]]}, ImagePadding -> Automatic, ImageSize -> {14.666666666666742`, Automatic}, PlotRangePadding -> None], BoxRotation -> 1.5707963267948966`], FontSize -> 0.03, StripOnInput -> False], TraditionalForm], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, ImageSize -> {16, 16}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.275] -> Baseline)], #12}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{6, 6}, {6, 6}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Times", 9, Bold, GrayLevel[0.5]}, Background -> Automatic, StripOnInput -> False], RoundingRadius -> 5, StripOnInput -> False]& ), Editable -> True, InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"GrayLevel", "[", "0", "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"GrayLevel", "[", "0", "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"GrayLevel", "[", "0", "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"GrayLevel", "[", "0", "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"GrayLevel", "[", "0", "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"GrayLevel", "[", "0", "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"GrayLevel", "[", "0", "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"GrayLevel", "[", "0", "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"GrayLevel", "[", "0", "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"GrayLevel", "[", "0", "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"GrayLevel", "[", "0", "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"GrayLevel", "[", "0", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7, ",", #8, ",", #9, ",", #10, ",", #11, ",", #12}], "}"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.5`", "]"}], ",", "Bold", ",", "9"}], "}"}]}], ",", RowBox[{"LegendFunction", "\[Rule]", RowBox[{"(", RowBox[{ FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], "&"}], ")"}]}], ",", RowBox[{"LegendLabel", "\[Rule]", "\"Legend\""}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMargins", "\[Rule]", "6"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ GraphicsBox[{{ GrayLevel[1], DiskBox[{0, 0}]}, { Thickness[0.1], CircleBox[{0, 0}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], ",", "0.03`"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], ",", "0.03`"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ GrayLevel[1], PolygonBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}}]}, { Thickness[0.1], LineBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}, { 0.5, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], ",", "0.03`"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, { 0, 0.067}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], ",", "0.03`"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ Opacity[0], EdgeForm[None], RectangleBox[{0, 0}, {1, 1.2}]}, { GrayLevel[1], PolygonBox[{{0, 0.933}, {1, 0.933}, {0.5, 0.067}}]}, { Thickness[0.1], LineBox[{{0, 0.933}, {1, 0.933}, {0.5, 0.067}, { 0, 0.933}}]}}, Frame -> False, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], ",", "0.03`"}], "}"}], ",", RowBox[{"{", RowBox[{ RotationBox[ GraphicsBox[{{ GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, { 0, 0.067}}]}}, ImagePadding -> Automatic, ImageSize -> {12.66666666666572, Automatic}, PlotRangePadding -> None], BoxRotation -> 1.5707963267948966`], ",", "0.03`"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ Thickness[0.1], CircleBox[{0, 0}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5189655172413765, 0.48103448275862526`}], Center, Scaled[{0.5, 0.5}]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], ",", "0.03`"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5189655172413623, 0.48103448275861993`}], Center, Scaled[{0.5, 0.5}]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], ",", "0.03`"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ GrayLevel[1], PolygonBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}}]}, { Thickness[0.1], LineBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}, { 0.5, 0}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5189655172413765, 0.48103448275861993`}], Center, Scaled[{0.5, 0.5}]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], ",", "0.03`"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, { 0, 0.067}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5224137931034489, 0.488333200605247}], Center, Scaled[{0.5, 0.5}]]}, ImagePadding -> Automatic, ImageSize -> {18.000000000000007`, Automatic}, PlotRangePadding -> None], ",", "0.03`"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ Opacity[0], EdgeForm[None], RectangleBox[{0, 0}, {1, 1.2}]}, { GrayLevel[1], PolygonBox[{{0, 0.933}, {1, 0.933}, {0.5, 0.067}}]}, { Thickness[0.1], LineBox[{{0, 0.933}, {1, 0.933}, {0.5, 0.067}, { 0, 0.933}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5189655172413801, 0.48132183908045434`}], Center, Scaled[{0.5, 0.5}]]}, Frame -> False, ImagePadding -> Automatic, ImageSize -> {18.666666666666742`, Automatic}, PlotRangePadding -> None], ",", "0.03`"}], "}"}], ",", RowBox[{"{", RowBox[{ RotationBox[ GraphicsBox[{{ GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, { 0, 0.067}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5224137931034498, 0.488333200605247}], Center, Scaled[{0.5, 0.5}]]}, ImagePadding -> Automatic, ImageSize -> {14.666666666666742`, Automatic}, PlotRangePadding -> None], BoxRotation -> 1.5707963267948966`], ",", "0.03`"}], "}"}]}], "}"}]}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", "16"}]}], "]"}]& )]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "Right"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.5819793741013203`*^9, {3.581979435269259*^9, 3.581979568295158*^9}, 3.581979624185802*^9, {3.581979673456381*^9, 3.5819797205794487`*^9}}]], "Text", CellChangeTimes->{{3.495209008234375*^9, 3.49520915653125*^9}, 3.495209919765625*^9, 3.4952106014375*^9, {3.4952106824375*^9, 3.4952108284375*^9}, {3.495210866984375*^9, 3.495210878859375*^9}, { 3.49521712796875*^9, 3.495217145953125*^9}, {3.5143080707765017`*^9, 3.514308090577525*^9}, {3.514308422020039*^9, 3.51430844325245*^9}, { 3.514915910280599*^9, 3.5149159358691387`*^9}, 3.5850180078468113`*^9, 3.585018049796289*^9, 3.585018100496477*^9}], Cell[TextData[Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJxl23k8lG/f8PExGPsulRBSlCWyhhxf+5bsSypJ0mJpk0JJWVJUaLekVEhS KEkSSotKlrKTfd+XYaz3/O7Lcf6e57780+v7OhnHnDNjPvM+jyTcjtocIJNI pC2MJNI//+Kv+adjVRZudeg/kxQwPubes9uudXlWgRPBUjFx1h3Lsw4ocItp aAx1Lc8G4HSj9vW9gt7l2RSsZp6sVdowuDzvgLr9smIfFEf/Mwdbw6aVq/Qu vRtfPm4HR3qKdKSvTC0fdwDbwnQncvDM8vGdMHvng5bt6zmE15sh4uyu9XeK WC+XrXwKGxONWO+BfFnJQpdZYr3PX53avPnJArFeBb+SA2U3GQCv13X6UhPL PSbA6y3M5JQT72UBvF6bWKeDh005AK9XvCLu1pwuN+D1rn16p7ftCS/g9WaS OF/M+/ADXm+gYKZxW4Avsb7Fnc/mbnUXEuth3u7400O/jzhfudMpVeUvR4jz 07dPqod/YYQ4H11GHLGdSyPE+YhcODDdua+HuP1cu808wnITxO3XBTQ2DcT/ e/8SFi98VjhHIe5PTGjFMEWDkVj/twe+r8WeLi3//MsC/PyoOyTj83T8J7J6 8lVW6HYdShsTKkzg/os0P2878+pnHcpcE8o+uLYXveG0zpNhq0eHGWYzdR+N om9nyIMnTOoR3Hkud+XcFDrGbiNwI7Ierf+1O+jX/VmUXowULlfVo7u/Gasi GEkQcP+7tr1oA8rmr90h00iG5gdTOtOeDahXIk3VqIYZ/nx9r3K0sAFtIp8O b59kBTchKbH3go3oSo6+7oIaJ4Rclplr9WlEE6rcHrcTeEBT8vv3hh+NKM/A c7Ymlg8utnJEpys0oTcnwxILXAQgpU712IWYJvT8E+fH29IrYFDs5s3o8SYU q87geWBICCxyNizUWjcjzx9ut2ReroLKW0NPHV80I50QJb3Wo8Lg97k3joej BZF2ex+PkhMBDcNVFUvuLei1g9A6+W5REOY/ayrzvgXtPSnnWJKwFkTkBVku C/xFpPpayoY0cUC3W1klD/1FJmxW6w4ES0CwRduOify/6GrZYrCYoySc2Bjp tcjcispEOtfayK2DLdUfbJPkWxHD8vMfv16VfG0kZKqkoCP+dIRqQCty9W8M KUteD7/zZ/9sSmpFYTzx0j3HN8Bv0l1D7Y+tKEUthjMISUOXt2Xt4e5WVDj8 fst1DhlgIktE5rC2oQp1iTjhGhlQec+5b/WmNtTE905PPGkjnEzi3xlv1oba z0bKPfDYBB/TtpzceoQ+n4l1jJOTBcl6rxcTEfTvZ674yD0mCzGKxVxlKW2o cp3B8YUcOeB9sflawcc2VFQ1vNfjlDwk2eUpfv/bhtL4K66bqiqAjsSuqanZ NrQof9gyclIBOP3fxKeuaEfKR7WGeF5tBpkirw4zxXYk6fno1cBWRbhBDfjx 16wdJWSVto3eUwQzkXYHjwPtiCmSKWjlrCJYKiVfbDnfjvZM772811kJklXf WZrEtaPH1FrGb/lKYLBRvvDRq3bUFOE1ZLtmC6hwzvwcLaf/fKaoEensFjje sub85r52JOwxwFXetAXmk+5W7mXsQBJZfwzeb1OGGiuf0guiHWjF9ab+n/eV YX40wfmWesfy4/Pv388aRgi13acCqktMh2M8O1BiXMLpryUqYOKt0+4f1oGs P61ocJFShZSyinnbpA5EC372TChcFexWFuStfduBoir2DI70qMIOW5JQc1UH 4s6RS+g3VYM7QYmCUYMd6ILMqneUDDVQuHfjlRylE7UripsacKsD36P2qcK1 nUjth4HRo2PqYJhwpU5vayc6MxuWva5aHT6HRu7Os+lE6e86rpaqasDN3V0X 1np1ojIel7qIuxrwct1dkzNhnaiBOhnjPacBwg2PXpbc70R2ZX7rXV22gua6 fD6evE70qiNrYXvxVghIjvroXdmJaHopwipSmlDnuOZzS38nWtdre3bFJU1w 0PdY7cbUhVSq8yXH+jRh3N37/bRoF9rE1Mj1ZbsWPC9QzE5S70LMga+23Xmh BZfMXk7vtO5C39SNs/fxa8MF7sGrGzy70FHNG54bTmlDHGunL3NYF5q9ePdw V602/NK4m0G934W8+Bwz7mtug/VJrKqzeV3oU1e5sk3iNojTUuXmre5C5OX3 B/x+JuXaz5vmpgNtQh+zT7B0IznKNQ+zUh3IsZcK+iDRjVaP95N6pBE8LtON E9PuRsPrGFrPXUHw6tQalmiHbpQaX8HIM4SgwyHrk8DxbpScIaf2UxpA0Yex +mlkN3LP/MnJuxMg/h3fFpuUbrTK9juz1RUAadTUxlncjYrj1ktcfQdQNePW Xt/YjZzDmly+DALE9T5RfkvtRr38o4WLorpwkfvJn3S+HnRI31VX2VIXrhxx /Zop14MaheS73YN14eV8LUepcQ9SVjDfeStLFxw33RFj3N+D3Da9MPrcrgvt ThvPBwX1oMMcOzOnBfRgR8Q1efW4HmRcaRK90VAP7ud93iif24MWAoMGd/np QUVf5UnXqh50hWO25FqqHvSseclROdyDRs+/Eyip04PWHfvGgjh6kVx9ScsU mz4UXOySOiLTi3RX8kpt0tKHwDfaKbGG9OOajzpcvPRBbMjj1IxbLxrRPSt6 M1Efkte5x8YH96IrCvGV38r1gWOXykLg/V7i/ctxuS/MctPT1JQMIPyHRcFk Qy/yso7/7u1mAHcod3iv0nqRe2XloSc3DCBKNyfbbVUfUlPbEdz8yQD2n0tO PqXeh1rO8/ILUQ1ALN+9tdShD+3OXCVmKW0I+dM0T1u/PvSq2ONxhJMhaKq5 GYrd7kPtb2cfl1w2hIRTiV4bcvtQz+3faxfyDaHj9bM2z5o+VOo0KagxaAic 01GPh6l9KGBpZ+hJUSNYtVX3debKfsQSyezzYocRsJz9KpCh0Y+85qiVA+eN oOGDZFH3zn6k5cJxUibLCM7lHo07FNiPOIvXCh5oN4JWvl8XtRL7UeM6ldcP BYyBVAX+ez/0o4xwE4cWA2NopX4697utH53t2z0t7GcMwcG7ouOYBtD27cfv OqYaQ7MPU1aW9ABa8yJs6806Y5gp/vB3tfkAGuCLa6hgM4Hf/ldFqn0GUIFv ZiCXlgkcu+19sDl2AEXVloiYeZnAt5WuRRpvBtBuzdr34Ykm0LbgLt3VOIA2 JQ64fCw3gTcmZxPaSYNo6X+/TIjeq3QTfKitZAqpnO0vK8wH0YNSGT1/N1PI D1O0Kj4+iI7LbOt4fcMUru6PWSDfHUQQaR06/skUxFKY3t4qHES8wwfWb6aa wjGLKxf9uwZRq1XAZ09pMwjaKemcyTmEsnOuHUxzMoMdZT+QisoQuij0iLXr shk0JV1W5tg9hGz83zyVeGcGGxucVJVDh5B403czl0Ez2OKvaZiRMYTGdFoH 4kTNYf6swn6/P0Oo+OFkVO0OcwjvUrkesziEYpnYFASDzaE82+LbgvQwmvKd jbHKMofNEhT3QuthFEJKCYxqNwdW74GsmsBhpJ7KMfBFYDs43l7INkoZRoKH ZVvJhtthVaL2Qe7KYSRixLxrm992sLmQVi4/P4xMde7tOp26HRj0dfseS4+g B9Y9bS/rtoNUO+XNSdsRJB48MtTHZgHFLjT1uPMj6Mu3rPOSWhZQkbfKa1XG CLqroHDH2csCHEbdbYfrRlBMprtKbKIFPCWPULkYR1G2qb3jt3ILaJ8rTqxY Pfpf/e1b6a6gprQDIjRlz9QbjyLuwpB2T7cdMHq++NnavaPod+lukYc3dsAK leG8GL9RVNA70vjn0w4Yd8hK2nxtFFVv2CbBTt0B13rZXWlPRhFnsMHgNmlL aOudpQ2/H0UnJ5m3HXeyhAnHC968NfTfH3pB4PFlS3ivej9/z/AoylV4c7Qm 3xL0L1q31VDG0M3JFGvWQUsI2RbfFrh2DJUfSWtK4LaC8wcD323XGENdh5xt VaWtQIU07mNqPYZiffui6PUJKSxLc8ePjCGzFsu9Hk5WYNKuNvU+ZAxFUi89 IB23gpuT8kNSiWPI+n2MVcJlKwjX6exIyR1DSVu8j25NtoJ1RTvr9SvG0HEH 4YXafCs44H/t51zfGPopc492utoKbI5cLCpnHEfPn/a5rx60gs5Y1ewC0XEk VM+BCpisQXIiNblUfRwxvlm65CpqDcyR9TF91uPIX78UUdSs4YZz2XkZr3F0 Mmi3x/Md1vB5X4DXxfBxRD1YOmd/0BqSH/Q5Tj8Y/6/PQzFGnCef3bUGp1Jm 2S014yhFq9/OKcsa5J9l88+MjiP9v/eeUMqsIeOrGK2OYwIdUFpzILfdGipE zVp+b5hAvFt8bhycs4YH6SolA7oTCLXFKgoL2oDg0ZbHonsm0IzOZe1yORtQ 8TQOP3JmAqmYW78JMbSB2ftHPapuTKBZ5oEHmi42cJjd0dD+xQTSO+pAG/ez gaDnC5ITZRNoxaUbRRnXbUAnYv/Ss+4J5GWRTD2YZgNP4iIazpMnkXnJxXip YhvI7fR65SM2ibjP9n5rrreB4CKnviOak2gl36WEa+M2IBpx84+HwyRyu+Ai oM5hCxFa4v5uJybR5A8fhdp1tvCpYa56z7VJ9GXizZCPti2UH5DudkqfRG1T W60X7WzhWVPyC9vPk0i7etIpzNsW7JGP4o72SdQS2cvEFG4LVVcvHzJZnETF a1fYB9y3BZGvk456wlNo8FqAaW+uLagPv1jUUptCjvWr2i1+2YIk6d1uVZsp xL40IvasxxaaF1acUPCZWv77Zkt8PtVoMgnbvsoOSgvelaxNmUJ5N8oyoxXt YOwcZXFlyRQ6syHs7A8TOxjc9HCUp2UKBd08M7zkage5HyPjWGan0Jfmx0yy /nZgbfJ5bnEFFdmT2T9YxNhBQZ6VIFWJimTIaaKHntrBtKBs56AFFek0B4kH FNsBeY+9Z8dhKrp749qXkHo7aI7+9bQ+jIrU1tfyh43ZQcTLe0m/HlLRqlgn chCbPZALcraXvqciaOC/7SNhD9tzRLPy66kofYG53GGrPRy6XfvjxRQVpa4n q9ha24M4u3RUNd80Cg2stQ4+bA+mOdaNdgrTyGApTLrlgj38jXHMVzafRp0v uV57xdlD2xONjccOTaP90T6zsjn2YDsyKc0ePo1KE9Om1/ywB2WfqFyGx9OI Uv8uQ7vLHoIkl347lEyjjXppq68t2sNWTosQtrZpJFvvrcO7ygHcZP2KV5Nm EM99zjUflRyAdj7g+qW1M6g6OvRFirkDLLI5D9mgGeSf9Wcu/4ADHP0m2Bi4 d+Y/ff3/eMHhs4wFp+IcILl3jUf3gxmUtaF1s8hrB3AxOcQoUzKD6hZv7Zr4 5QARzdcVv3TMoDam9Wiun/75PS126CMzDX3XuNqgTHGE9WnHNMVkaOhWXLl8 ooQj3G3euLLGjIZ0N/VpqG9zhECTwpABbxoq72maY9jpCD965YNdYmhIs/qp 34KvI0QUnuHc/JqGIgYtn26McYScb/dl9tTTUK7yrxvhzx3Bgv3B794FGipN k1YTLHMEu+CzvFWSs+i1+c7oqm5H+Car0rTKZBZZX/u1fQ2jEwyIPGCu8ZpF +9unVpiIOQF1/z1nyehZNGz8Y8BJwwmGSOKNC1mzaLTQptzC2gl+TShfOlQ1 i44YX36/4bATxGv/cXEbm0W72o6+7TjvBNaNjG4D3HPoYxSlJPSWE4z/+hDN KDuHHpla1LKlO8F5YbaBdMM5NLvSgHbivRNM5v891uYyh75O90sX/XIC+yx9 yVS/OcTdp7t/rNUJHi6oLM1FzaGyAZNnlDEnqE3KYWl9OEd4Be3/85uXBZnL foM9oVtZ/KLc5BThCWnPogrT2amEJ4yHJK3OlaQSnvClwOnGDm0q4QlSDnmy vo5UwhPYrArbN/hSCU84k34kzyOWSnjC0QPvM5SzqYQnDAfnfrhaTSU8YXbe fsyXSiU8IbI+XrdPeJrwhBShiJf9ME14gtkrYR1/+usBe4JlQ1fUuuhpwhMu vwxEZ3KnCU+gqTXZn26cJjzhgTdLhfjSNOEJ5+wWnvtKzBCeEDvwfuSE3gzh CY1bTG+tcZshPGHXpqT7Pv942bInCFR94PBKnCE8YWnjsyaBtzOEJ6zbso/P o3qG8ISz/W1P3QZnCE/AnoY9ocpTn7JLmEZ4QoWKVJnDZhrhCUyZv8bm9WiE J/jUGp6zsKcRnsCVFe5l4kEjPKFDM/bD0Cka4Qmjvof8toXSCE/YspctRp3+ esKekEHz5WlKoBGe4GzwbGxTKo3wBD2UoS71kkZ4gkv/6bYvb2iEJ7w05B5Z UUgjPKHLaHf4tk80whPSOnb89P5OIzyBuqb7Y0o1jfCEqhGJI71NNMITtPeS i7b00AhPUD5yqTRsnEZ4whverIC2RRrhCd9szv815JwlPOGQ4vhEtvAs4Qk3 n7LlyWyaJTxhe2GpbKrmLOEJsT4bLBW2zxKe4L7sm9gTSh/+eexwYpbwhNdS UrXT4bOEJyjpr3z7MGGW8ATthUwzu5xZwhMqbQYieb7PEp4wof/jbHXHLOEJ jyusRR8szBKe0DoT6H1q1RzhCRkFZt62KnOEJzCLFIpoWs8RntAvVBO48egc 4Ql7nsdekbg2R3jC7r8TJpKZc4QnbCh1XRL/NUd4wpQfUPnH5ghP+DkZKz8j ME94QoaO05MK9XnCE2Lsovck7J4nPOGcmpbDrovzhCf4dDpd53o6T3jCYZc+ 1pyKecITDj8eLDGnzROecDTX7X2t5ALhCedums84WCwQnhCrk3ry25kFwhMy l70Ze0IFNVc2omqB8AQak+eh36RFwhNk/sZ0CSguEp7gGib7yMh1kfCExGn1 h14xi4QntKq++Rv2cZHwhE3w1CWWukh4QpAQt1jspiXCE2rzukTD9i4RnqAq rejieWuJ8ISEfUMtBj+WCE9gesVdwUomAfYEHdHWikNiJMCe0HvC05xNiwTY E45pKa3OciQB9oQqPyVNV18SYE8QWO+VKRRDAuwJSkZtp34/JwH2BNmG6Oh7 ZSTAnkBuC1g80EMC7Am5zkkftjIxAPYEY+PFakEJBsCe8Drljtb0NgbAnrB0 xpPa6swA2BOkC/2Zqk5j7//X/7En8Dw0FC7LYgDsCT91GCUryxkAe8Ihy7mz fwcYAHtCa5W87BQrGbAnqH6Lk+PfQAbsCQe26F1Q0ycD9gRfbqmNbq5kwJ6w dw9I3TpHBuwJ0mvvnPgVRwbsCT9sZQT58siAPWHH3ASr8x8yYE/IWDFrlT5O BuwJvcmagwy8jIA9ISXb7biPPCNgT7hit/b0ghkjYE+4FXFsIfMQI2BP+LLD gSkknBGwJ4inVkT6P2YE7AlJMX9vxJYwAvYEQ+4QkfJWRsCeICD6br3cEiNg T2AtvPQiQ5QJsCesG+t9a6nNBNgTDuS2GKzYxQTYE35yHbZa8GcC7Al7l6/H YE8QOqnVp5LHBNgTJoND/EJrmQB7woy4ayiVygTYE9bZVvJHCjED9oRTK2sl 9NSYAXvCsPfxrDUOzIA94ZrDg+KVfsyAPcG+cr+N2m1mwJ6g3/Ju/+lcZsCe 4HAubaqB3g3YE2IzN7Lum2YG7AmTx1E82yoKYE8496Uv87cGBbAnaI7par3Z SQHsCduU9mmkBFAAe8LFS8YpD+MpgD2BbXIy9GkBBbAn1Pod/v2+mQLYE7p5 ntxsWaQA9gTND6mlHOIsgD2hKvT4QUNdFsCekOFKDoh0YwHsCWU2zgvNISyA PUFul/+Y9hMWwJ5Q5b/XIe0zy39dH8OeMEgLPvGYjRWwJzjvKtioKssK2BN4 qwutq7azAvYEyr6I/kAfVsCeYMC8elIpmhWwJ3z4cMxnMosVsCeERF/f+bGa FbAnRJw+9fr+FCtgT6jylbwYvpINsCe4RNz+ELCVDbAnKGZXegfuYgPsCfrj 1VER59gAe0KCSaJIchIbYE+wpx5tTSlmA+wJMdrX4k91sAH2BPM1MxbczOyA PeFK7PPpYxvYAXuCQXLm3URjdsCeEG42p3jzEDtgT9CLvFFkd5kdsCeEuZ82 /vuUHbAnGNSklCqXsQP2hIhWCS2bfnbAnmAS0puqyc4B2BMiC2c5hjZyENcr rZevV2JPuLfIkP/iEAdgT9jDOM1YdIkDsCekPFA3jEvhAOwJnjUfz+mUcgD2 hNzH8c8zOjgAe8JZjg+/Oxk4AXvCV3aFie61nIA9ITa5lzVnGydgT2itGl5h uosTsCekx4Pw0zOcgD1hZr55RfUtTsCeUEr9zPolmxOwJwhdnhsP/cUJ2BP4 lHzWrB/kBOwJw5583z6wcgH2hEdbu+bs1nMB9gSNuL6cTl0uwJ7w5KrYmI8L F2BPmBAIzZkI4ALsCavlhedO3OEC7Alr61u/DOZwAfaEpZV1q/dVcAH2hMK+ pdFfg1yAPcFhh5PFVjZuwJ5QbtimkLieG7An4OvH2BMsh0Iv2LlwA/YEl8Sk 8dQAbsCeYNDa3zt1mxuwJ7Dmerjr5HAD9oQ0MYEDF35xA/aE9cKj/YUD3IA9 4XzawhSVhQewJ+R+0wrfKMUD2BO+nEuPdwAewJ7w5pOpWtBuHsCecPH+aocH Z3gAe4IMh/BcwU0ewJ7wnN18/e+XPIA9QcdHbLXCTx7AnsDDQlkj0M8D2BOu 9wffKmbkBewJ6oMRUh/4eQF7QhBrvCZZkhewJ7ijN7VXlHgBe0JfdPOcky4v YE/gXuBK9bLmBewJVSEm9aX7eAF7gtr6q7HuJ3gBe4JmW2OVSQgvYE9oeqMS d+ImL2BPEF++no89geE1U+HtN7yAPSGkMVA45hsvYE94JLKwUNHIC9gT9p+J OOQwzAvYE0qGRZ0lGPgAe0Lx+fdVSoJ8gD3BVfZg1SVpPsCecH9MeOc6LT7A nhBYVefBZMkH2BNmfj6Y27SfD7AnCHaeWHnnNB9gT6gQtMw3ieID7AmbXFU7 0UM+wJ5QzR4+MvaaD7AnnNz5UO33Nz7AnsC1/dLb7iY+wJ6Q3K5+ZuMIH2BP 2CyacyKBxA/YE3LnZtIQHz9gT1ALYlsjIMEP2BNePu78KqTID9gT1h29km2m ww/YE643z9ZmmvMD9oSpEdWt+k78gD3BLkWrhsUd76fYCc//z/6KgOX9FXlz l7fETzQjwT8BX6XRKVQx98XvDs8IYglqRDN8fujlWYMfmeIzyIqn4rnNhB/K Xni49OURCYYjnPjVO04jwW1K6epBzNDb7+v9pO0Mcpr/dSAliR1UVNd/SBz2 R2WiaDU7Ey80HDzMIs4eiNwWRCOKGvmh5qKukZzKWURODD1PrVkBm8OfB5Z4 nUPR8yeWnk2tgrrjz1Pbc+ifjEX6WNrURWA0WfzAZ6Zg9Gyu++6txLUgcuHV 8dbcYHTHQq3e/YYE+NrG+qNjF5CmdquA4951UIc4Kz8GhKCXEYLdW2XWwzYv 3x8W4hFocEu1JdfwBgitK/Nsdr2OJjRFrCtfyoBzySXHrfdvou8PRvrCjm2C ixoS38Pr49BhdwthWXk5MOpxipBVeoiqwlTbi7rlwahERNA+4QliZU7TNU7c DCDfxAqZ6YjxuI3I3jRFWHPTXNlP+SU6zH27IzZYCW7WpwjJ789BeQ33qTqO W0Co53ymQXcu6vvjZb9fThkiC2pmCwryif0oC8v7XRacnKiCVSqQ+zeorier GHW0ntJITlYFP6oHl6rwJ5R+x+lz6nE1kB27mrAl4zPafY70YD1Sh4FfE2Gt B7+hkRjv0jUcGvAg9u43HYsf6PCfJLUrfzTAZuvZgxa7f6Gvxncmjt3fCgxu vzaHm1Uirj5b+iOoCc6rSfXv56qQxts/VqmyWpClZ/XiZ/FvZJInMkYd0QLW lg/ZrxNq0LZumebCbG1wGdjRcSqqDgnrzwoundwGr44sAHdMA2oqj777RlkH 2HZ//x6U3oT2ej/1rh7XgTjZK2S70hZ0kcwQty0bwZ9k5i1cB1uRxJfv3PSP t7DaXnrmkFsbsolQO7t4FyBBLt32vV07qvwEKzbSAJw3XjNg1+lAD8721wfs 1AVH8+oyS7FOVPRCuWzirS7ExPp3X53qRPIuIt03hPXo7yvBdz597EL9lx7L 7wrUgw/Rfc0TEd2IKvfjgWmTHrw0znm7xrAH2VncQHu36UPbupZN2jM9aLGX xpZwXx+s1h9Rsk/u/a/9R+axTyQi9xnA0J0ni8ca+1BvUr/Pto8GsJLNvvTk kX5UIfOrR2i9IQQkHZA4OtqPuORto1ZeMgSxXbX8+70H0M0Mv92ozxBmtdLv WbYNIK/UrU7XzI1ghV7La5Xtg+imaMJ5pkwjOOp98iB/5iBi57lf9ZDXGMiF hzN7KUOoKhBZe5w0hgbl4itvHIZQ7/7gOesaY+gv958PShxCVl9cK923moDm 9RuMqHEIMaW0Vt1PMIHPvtwPpnmGEeV/748pXDvfX5mmNYzYndfK79tvCiEn ajlZ3YZRoUaSQvxnU4jmDftUFj6M1v2znI1m8HbnxMzo02GkEVqUeS/KDGYs JNMDvg+jhdF98i4jZmA7xFd3cGAY+bb/syBz+KxecjGPbQTF//N0fWUOdvLK 6V4bRpCv7eVHRULbYf6n+45Q3RE0X5VxsvfMdni32vHokvMIUq5VXNXXsB1i edm5Wk6MIBHXFTEl2hYQmn1OWvzyCMrzdm7xvW8BsUtZhaWJI8T1u9fL+8Hm hSjU/ft2wFTc7v1aJSMoLdur6EHJDrDoqzrGUTWCmKqV9+auo/dzO9ucTusI 4juzq+pxqCWYXWIg1wyOoPKHHau9uixhuOZtWMX0CBKT6RamrLOCmkOr9e+Q RlFGMfsNPVsrKNbKZTjDNIpuJe495RliBZruOUFXWEbR73edxcE5VqDTzptf zjaKvEXizlzssILK1+U5BhyjyOXD+XvHBKxhpGXQc5A+pzy+JWWubw3xezzb S+mz0Y/G1fwnraFSyWxlJfsoUj9arEl6ZA3HGD/ZnaPfns/n1yZW1fR+DRDo 2so6igYq8/TJTDbge1vjK4X++1/GlMkKqdpAvaPyYgfzKMpnHiBFedjA+ULG S5X09XIoCH/cf9cGDpY9dfvFOIoeszudSCyzgZjA9THN5FF0Mf4x99YFG1is 9OOfZ6Cvr3XpjpqiLTz7mdi9iT7zN9D/wu23hTifOK4j9PPx6VL7ccc7tnD3 cD33yaURVNB3uCTguy0Ewca0LYv/7s/rXd6fF172eFOPih3U/Sz7LjA/gmxM nfQUj9iBaaiIg+rcCHI/K2zcmGQH28JWh5+eHUGF+wc0ev/Qe6uieFcDbQTt XSpb6chpD688VtTuoc9Glm87pPXtQc1YcIaBPp+wzU1wDrCHrScKCz/PjKBu jhK9kSx7KOkRkM2gzw/PNP3p6rOH8lTBbdn0Ofkes4OOpAO4ZBdN1tHnXvqr ecbZAY6yrLIRp9+e30yI6IqbDsCaKmwfQZ/N/3n7+Unvn5ivC7z09elHH0/Z QO+Xp5LSrKn0WdvnwsgFbUcIy9NSVKffH9UKVnhyzBFe21D8iumzfC7L3ehk R9AaC683pN9/afGgaf0qRxC6+d75E30W5/Zy+bDkCEZa6TRt+vkSDq78QZZ1 gh/d23Nf0OcVfpl63HZOkHr7SbQI/fzyjJKL2gKcoMbsVUQIfWYbLjc4l+QE zoz+9zvpM9Mx/srWYidQLpqoRPTHh8HvpztnuxP9c4DUultL/+6X7P4/+yWj lvdL4l7gYv8l/v5OD9ELWgmfHGIre4heWPHK6J47Ty/RC7et7XuVrXuJXvjs O6pPutNL9EKi6KqMb629RC+Ib/8hHq3QR/SCFYkr2Ta4j+iFTZoNmwVr+ohe yKQpl1Vu7id6oUVH+HjU1X6iF96yXZUyGOknekHHOapzxm6A6IWNT0fvu5YO EL2gfTRWV8l4kOiFkxnHfxxpGCR64afrNcR1fojoBYuo3rhVqsNEL4wqBLdE zQ8TvZBnYs9+5M8I0QvVg8o8dXtHiV5oHN119UXzKNELfi+Tz2u5jxG98ESW tTtwYozoBXe3qKJjkeP/tX8V90Iceazy9J8Johf4vSpZr1yaJHphTUxFjpXe FNEL+ceHq74zU4le6OaS9ZirpBK98PhAuPfflGmiF6bPkPpOh84QvdBkfK/u 0xEa0Qs2VVban3fOEr3gvEpa8Kz1HNELE6tFXLut54lekKzdLM68a4HohVZL N7s6r0WiF8xOusjRzi0RvaB1t8czWI8EuBde6Ts/my4iAe4FLu1Ldm6aDIB7 weSCz8GiTAbAvXBAgLeTT4wMuBfcxj3LHCLIgHtBT+yi8PUhMuBeYLxj8zvf ghFwLzze3Txdn8YIuBdkjkqGDS4yAu6Fq+USZ8ct8f5hA6hf3k+Me4Hsa5la 184EuBe48s815kkxA+4F6nYP/6h9zIB74ZMc2wXbe8yAe+H4To9xrh/MgHuB VH3u5zsa/fhyLxy7Z8m/R5ICuBeKMxqLxgwpgHuByilZ7+9OAdwL7PmSu6bO UQD3AvlVs5F7LAVwL9TN2iR8fkgB3AvR1y7uEsmg3/5yL/RS7w+w51AA98K9 dw056nkUwL3wpEn1VfI7CuBe4HR+OWj+ngK4F8qVzfYo02fcC/2HGSk76d+P e8FtvrG74A39+HIvqAxUL7lkUwD3wj61ASv0jAK4F3qaJRr2JFMA98LXttPx +XcogHuBRW/opn0k3s/97/5u3AvXVqopGnlTAPdCUxRbVfwu+vlY7oVQl/ln m00ogHshPIq7kEGZArgXOoSAlV+EArgX4hair7gyUgD3QgYwGA71MgPuhdWt 0ep59McT90JrI3IrzmQG3AuMKtylrNeZAfdCcO/c3mvezIB7wYnGqmxjxgy4 F654qOrYrWcG3AtH/ur2nFxiAtwLFgIjN6LrmQD3whbyNoP0HCbAvSCcITtT dJUJcC+Q+d69+H2QCXAvDCsOHOnSZQLcC40cBRsn1jAB7oXvD+UHF6YYAffC u3GUzVzBCLgXMhfHA9nTGQH3wqNSI1POUEbAvRBvrCXM4YL31/+73x73wtWz lC9LfIyAeyFyc3Py1AAZcC9cSbS72FtKBtwLUZ+9DtQlkQH3QnT6+u2l/mTA vXDb9LzaC1sy4F5IfOQvdVueDLgXUvMEhQJYyIB74VWEFceuNgbAvVAiIM+0 9R0D4F6o2plOErzFALgXOp2/kgZ9GAD3wozQJaZiEwbAvfC78MMZq3UMgHsB hZiXOS6RAPeCuvsmWk0TCXAvFO7bzVz+jgS4FyoD24a1E0iAe+Fk9tvX64JI gHvhEXPXzov7SIB7Yd+p/Y1ORiTAvZDBoKqZKkcC3Avh6Tv9vAVJgHuh8W/y Wse5JaIXPj/S4PpYsUT0Qtny/3/4H4b+Bdo= "], {{{}, {}, TagBox[ TooltipBox[{ GrayLevel[0], LineBox[CompressedData[" 1:eJwl02V7FgQAheF3dEinksON7u4SUGlGN4yS2kjpLmkMUmmU7u5uFBBUGqVT uvPm4sN9zi94gsMjwyKCAoFAdPO5DyGUjGQiM1nISjayk4Oc5CI3echLPvJT gIIUojBFKEoxilOCkpSiNGUoyxeUozwV+JKv+JqKVKIyVahKNapTgzBqUova 1KEu9ahPAxrSiMY0oSnNaE44LWhJK1rThm9oSzva04GORBBJJzrTha50ozvf 0oOe9KI3fehLP/ozgIEMYjBDGMowhjOC7xjJKEYzhrGMYzwT+J4f+JGfmMgk JjOFqUzjZ35hOjOYySxmM4e5zONXfmM+C1jIIhazhKUsYzkrWMkqVrOGtaxj PRvYyCY2s4WtbGM7O9jJLnazh73sYz8HOMghDnOE3/mDoxzjOH9ygpP8xd/8 wylOc4aznOM8F7jIv/zHJS5zhatc4zo3uMktbnOHu/zPPe7zgIc84jFPeMoz nvOCl7ziNW94yzsCugsiClGJFvSxxRjEJBaxiUNcPiEe8UlAQhKRmCQkJRnJ SUFKPuUzUpGaNKQlHekJJsOH/gkhlIxk4j1OhIIb "]]}, "\"cnsrnc\"", TooltipStyle -> "TextStyling"], Annotation[#, "cnsrnc", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], LineBox[CompressedData[" 1:eJwV0OWDDwYAgOHf4XRNm4mz4YphwaZ7mtPNbWPFGdPd3d3d3Z1Tm6ltmK7p 7o7Hh+f9A96Q6JioFkGBQCBYQgkjnAgiyUkuPiU3ecjLZ3zOF3xJPvLzFV9T gIIUojBFKEoxilOCkpSiNGX4hrKUozwVqEglKlOFqkRRjerUoCa1qE0d6lKP +jSgIY1oTBOi+Zbv+J6mNOMHfuQnfuYXmvN+UAwt+ZVWtOY32tCWdrSnAx3p RGe60JVudKcHPelFb/rQl370ZwADGcRghjCUYQxnBCMZxWjGMJZxjGcCE5nE ZKYwlWlMZwYzmcVs5jCXecxnAQtZxGKWsJRlLGcFK1nFatawlnWsZwMb2cRm trCVbWxnBzv5nV3sZg972ccf/Ml+/uIABznEYY7wN//wL0c5xnH+4wQnOcVp znCWc5znAhe5xP9c5gpXucZ1bnCTW9zmDne5x30e8JBHPOYJT3nGc17wkle8 5g1vCcQKBIKIRWziEExc4hGfBCQkEYlJQlKSkZwPSEFKUpGaNKQlHen5kAx8 REYykZkshJCVj/mEbGQnB6GEEU4EkbwDesWDPg== "]]}, "\"knsrnc\"", TooltipStyle -> "TextStyling"], Annotation[#, "knsrnc", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], LineBox[CompressedData[" 1:eJwNw4c2UAEAANDHn/gAe6TsHcneQsjK3nvvTVZlVSIhfrF7z7lhLf1lfSFB ECwbHhoEEUYaZbQxxhpnvAm+MtHXvjHJZFNMNc10M8w0y2xzzDXPt+Zb4DsL fW+RxZZYapnlVlhpldXWWGud9X6wwUab/GizLbb6yTbb7bDTLj/bbY+99tnv gIMOOeyIo4457oSTTjntjLPOOe+Ciy657Iqrrrnuhptuue2Ou+6574GHfvHI Y0889cyvfvO751546ZXX/vCnv7zxt7fe+cd7//rgo0/+89kX/wNKTzuH "]]}, "\"\[Mu]nsrnc\"", TooltipStyle -> "TextStyling"], Annotation[#, "\[Mu]nsrnc", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], LineBox[CompressedData[" 1:eJwNw4c6lQEAAND/3is7exe6lCgkj+IRPAAP4YUyS3ZCVsOOyiiyt+w45/tO tL6xriEUBEGTb8JB0GyLrbbZbodvfWen7+2y2x577bPfAT846EeHHHbET446 5rgTTvrZL371m1NOO+Osc8674HcXXfKHP/3lsiuuuuZv/7juhn/ddMttd9x1 z30PPPTIY0889cx/nnvhpVdee+Ot/70ziARByLARY3xgrHHGm2CiSSb70BRT TTPdDDPNMtscc80z3wIf+dhCiyz2iVFLLPWpzyzzueVW+MKXVlplta+s8bW1 3gPK7EvD "]]}, "\"Tnsrnc\"", TooltipStyle -> "TextStyling"], Annotation[#, "Tnsrnc", "Tooltip"]& ]}, {{ GrayLevel[0], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], DiskBox[{0, 0}]}, { Thickness[0.1], CircleBox[{0, 0}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 1, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], DiskBox[{0, 0}]}, { Thickness[0.1], CircleBox[{0, 0}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 2, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], DiskBox[{0, 0}]}, { Thickness[0.1], CircleBox[{0, 0}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 3, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], DiskBox[{0, 0}]}, { Thickness[0.1], CircleBox[{0, 0}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 4, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], DiskBox[{0, 0}]}, { Thickness[0.1], CircleBox[{0, 0}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 5, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], DiskBox[{0, 0}]}, { Thickness[0.1], CircleBox[{0, 0}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 6, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], DiskBox[{0, 0}]}, { Thickness[0.1], CircleBox[{0, 0}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 7, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], DiskBox[{0, 0}]}, { Thickness[0.1], CircleBox[{0, 0}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 8, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], DiskBox[{0, 0}]}, { Thickness[0.1], CircleBox[{0, 0}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 9, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], DiskBox[{0, 0}]}, { Thickness[0.1], CircleBox[{0, 0}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 10, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], DiskBox[{0, 0}]}, { Thickness[0.1], CircleBox[{0, 0}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 11, Automatic, Scaled[{0.03, 0.03}]]}, TagBox[ TooltipBox[{ GrayLevel[0], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 12, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 13, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 14, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 15, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 16, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 17, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 18, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 19, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 20, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 21, Automatic, Scaled[{0.03, 0.03}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 22, Automatic, Scaled[{0.03, 0.03}]]}, "\"cnsrnc\"", TooltipStyle -> "TextStyling"], Annotation[#, "cnsrnc", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], PolygonBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}}]}, { Thickness[0.1], LineBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}, {0.5, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 23, Automatic, Scaled[{0.04, 0.04}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], PolygonBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}}]}, { Thickness[0.1], LineBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}, {0.5, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 24, Automatic, Scaled[{0.04, 0.04}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], PolygonBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}}]}, { Thickness[0.1], LineBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}, {0.5, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 25, Automatic, Scaled[{0.04, 0.04}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], PolygonBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}}]}, { Thickness[0.1], LineBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}, {0.5, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 26, Automatic, Scaled[{0.04, 0.04}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], PolygonBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}}]}, { Thickness[0.1], LineBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}, {0.5, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 27, Automatic, Scaled[{0.04, 0.04}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], PolygonBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}}]}, { Thickness[0.1], LineBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}, {0.5, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 28, Automatic, Scaled[{0.04, 0.04}]]}, "\"knsrnc\"", TooltipStyle -> "TextStyling"], Annotation[#, "knsrnc", "Tooltip"]& ], TagBox[ TooltipBox[{ GrayLevel[0], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, {0, 0.067}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 29, Automatic, Scaled[{0.04, 0.04}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, {0, 0.067}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 30, Automatic, Scaled[{0.04, 0.04}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, {0, 0.067}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 31, Automatic, Scaled[{0.04, 0.04}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, {0, 0.067}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 32, Automatic, Scaled[{0.04, 0.04}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, {0, 0.067}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 33, Automatic, Scaled[{0.04, 0.04}]], InsetBox[ GraphicsBox[{ GrayLevel[0], { GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, {0, 0.067}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], 34, Automatic, Scaled[{0.04, 0.04}]]}, "\"\[Mu]nsrnc\"", TooltipStyle -> "TextStyling"], Annotation[#, "\[Mu]nsrnc", "Tooltip"]& ], {}}}], {}}, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesLabel -> { FormBox["\"Years\"", TraditionalForm], FormBox["\"Value\"", TraditionalForm]}, AxesOrigin -> {0, 0}, ImageSize -> {400, 400}, Method -> {}, PlotLabel -> FormBox["\"No Constraint on Atmospheric Temperature Rise\"", TraditionalForm], PlotRange -> {{-2.220446049250313*^-16, 100.}, {0., 4.608385787112793}}, PlotRangeClipping -> True, PlotRangePadding -> { Scaled[0.02], Scaled[0.02]}], TemplateBox[{ "\"Consumption c/100\"", "\"Capital k/100\"", "\"Abatement Proportion \[Mu]\"", "\"Temperature Tat\""}, "PointLegend", DisplayFunction -> (FrameBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ FormBox["\"Legend\"", TraditionalForm], TraditionalForm, Editable -> True], {FontFamily -> "Times", 9, Bold, GrayLevel[0.5]}, Background -> Automatic, StripOnInput -> False]}, { TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { InsetBox[ GraphicsBox[{{ GrayLevel[1], DiskBox[{0, 0}]}, { Thickness[0.1], CircleBox[{0, 0}]}}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {9, 9}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { InsetBox[ GraphicsBox[{{ GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, { DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {9, 9}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { InsetBox[ GraphicsBox[{{ GrayLevel[1], PolygonBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}}]}, { Thickness[0.1], LineBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}, { 0.5, 0}}]}}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {9, 9}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]], { InsetBox[ GraphicsBox[{{ GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, { 0, 0.067}}]}}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], GrayLevel[0]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {9, 9}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{3, 3}, {3, 3}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Times", 9, Bold, GrayLevel[0.5]}, Background -> Automatic, StripOnInput -> False], RoundingRadius -> 5, StripOnInput -> False]& ), Editable -> True, InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"GrayLevel", "[", "0", "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"GrayLevel", "[", "0", "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"GrayLevel", "[", "0", "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"GrayLevel", "[", "0", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.5`", "]"}], ",", "Bold", ",", "9"}], "}"}]}], ",", RowBox[{"LegendFunction", "\[Rule]", RowBox[{"(", RowBox[{ FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], "&"}], ")"}]}], ",", RowBox[{"LegendLabel", "\[Rule]", "\"Legend\""}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMargins", "\[Rule]", "3"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ GraphicsBox[{{ GrayLevel[1], DiskBox[{0, 0}]}, { Thickness[0.1], CircleBox[{0, 0}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], ",", "0.03`"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], ",", "0.03`"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ GrayLevel[1], PolygonBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}}]}, { Thickness[0.1], LineBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}, { 0.5, 0}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], ",", "0.04`"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, { 0, 0.067}}]}}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], ",", "0.04`"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ Thickness[0.1], CircleBox[{0, 0}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5189655172413765, 0.48103448275862526`}], Center, Scaled[{0.5, 0.5}]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], ",", "0.03`"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ GrayLevel[1], RectangleBox[{0, 0}]}, { Thickness[0.1], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5189655172413623, 0.48103448275861993`}], Center, Scaled[{0.5, 0.5}]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], ",", "0.03`"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ GrayLevel[1], PolygonBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}}]}, { Thickness[0.1], LineBox[{{0.5, 0}, {1, 0.5}, {0.5, 1}, {0, 0.5}, { 0.5, 0}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5189655172413765, 0.48103448275861993`}], Center, Scaled[{0.5, 0.5}]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], ",", "0.04`"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{ GrayLevel[1], EdgeForm[None], PolygonBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}}]}, { Thickness[0.1], LineBox[{{0, 0.067}, {1, 0.067}, {0.5, 0.933}, { 0, 0.067}}]}, InsetBox[ GraphicsBox[{ Thickness[0.1], CircleBox[{0, 0}]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], Scaled[{0.5224137931034489, 0.488333200605247}], Center, Scaled[{0.5, 0.5}]]}, ImagePadding -> Automatic, ImageSize -> 20, PlotRangePadding -> None], ",", "0.04`"}], "}"}]}], "}"}]}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", "9"}]}], "]"}]& )]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "Right"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.585017915432963*^9}]], "Text", CellChangeTimes->{{3.495209008234375*^9, 3.49520915653125*^9}, 3.495209919765625*^9, 3.4952106014375*^9, {3.4952106824375*^9, 3.4952108284375*^9}, {3.495210866984375*^9, 3.495210878859375*^9}, { 3.49521712796875*^9, 3.495217145953125*^9}, {3.5143080707765017`*^9, 3.514308090577525*^9}, {3.514308422020039*^9, 3.51430844325245*^9}, { 3.514915910280599*^9, 3.5149159358691387`*^9}, 3.5850180078468113`*^9, 3.585018039328318*^9, 3.585018125241012*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Discussion", "Section", CellChangeTimes->{{3.585426868128286*^9, 3.585426869472157*^9}}], Cell[TextData[{ "A continuous solution to the DICE 2007 model is important for main reasons. \ The first is that the ", StyleBox["DICE 2007 model is widely used as a discrete decade period model", FontWeight->"Bold"], ", which is rather inconvenient for policy makers. For example, the ", StyleBox["impact of policy over the next two to three decades cannot be \ properly assessed with just three calculated points", FontWeight->"Bold"], " where each represents an average across a decade." }], "Text", CellChangeTimes->{{3.585426929632193*^9, 3.585427245567441*^9}, { 3.5854314625236483`*^9, 3.585431462939773*^9}, {3.5854357573834457`*^9, 3.585435757513076*^9}}], Cell[TextData[{ "More important is the ", StyleBox["assessment of industry policy in each country using a dynamic \ global multi-regional model that settles markets in the presence of the \ competition from other economies that are interconnected through trade", FontWeight->"Bold"], ". Such dynamic models are usually computable general equilibrium (CGE) \ formulations that dynamically optimize the evolution of economies from the \ current economic position in the presence of geophysical constraints, such as \ DICE 2007 geophysical constraints, and other constraints such as labor and \ land use." }], "Text", CellChangeTimes->{{3.585426929632193*^9, 3.585427843564897*^9}, { 3.5854292155345373`*^9, 3.585429218262187*^9}, {3.58543044196797*^9, 3.585430490784255*^9}, {3.585435015661201*^9, 3.5854350366130257`*^9}, { 3.5854357785436974`*^9, 3.585435842972722*^9}, {3.591612150497116*^9, 3.591612153835062*^9}}], Cell["\<\ The starting point, or current global economic position, is generally drawn \ from Input-Output data provided by the Global Trade Analysis Project [11], \ EORA [12], EXIOBASE [13], WIOD [14], GRAM [15] or IDE-JETRO AIIOT [16].\ \>", "Text", CellChangeTimes->{{3.585426929632193*^9, 3.585427843564897*^9}, { 3.5854292155345373`*^9, 3.585429218262187*^9}, {3.58543044196797*^9, 3.585430490784255*^9}, {3.585435015661201*^9, 3.5854350366130257`*^9}, { 3.5854357785436974`*^9, 3.5854358792299767`*^9}}], Cell[CellGroupData[{ Cell["Mobile Application", "Subsection", CellChangeTimes->{{3.5854292429176397`*^9, 3.585429245654872*^9}, { 3.5854349392270184`*^9, 3.585434940290522*^9}}], Cell[TextData[{ "Policy making involves both modelling and a social research. It is \ important to put policy modelling directly into the hands of ", StyleBox["policy makers so they can test their own scenarios fast", FontWeight->"Bold"], ", in order to speed-up debate across informed viewpoints ." }], "Text", CellChangeTimes->{{3.585429269093903*^9, 3.585429376592688*^9}, { 3.5854294711812696`*^9, 3.585429641238059*^9}, {3.585429724876203*^9, 3.585429738740323*^9}, 3.585435040076742*^9, {3.585435898119234*^9, 3.5854360021816187`*^9}}], Cell[TextData[{ "Bringing the extraordinary power of dynamic CGE models directly to policy \ makers (and other users such as corporate strategic planners) is a ", StyleBox["challenging task", FontWeight->"Bold"], ". Firstly, CGE techniques are inherently complex and there is an ", StyleBox["enormous cross-disciplinary mathematical, economic and geophysical \ task", FontWeight->"Bold"], " in achieving meaningful outputs. Secondly, ", StyleBox["computational demands", FontWeight->"Bold"], " are equally challenging and technology has been a major limitation." }], "Text", CellChangeTimes->{{3.585429269093903*^9, 3.585429376592688*^9}, { 3.5854294711812696`*^9, 3.58542997781453*^9}, {3.5854301857471857`*^9, 3.5854302227142477`*^9}, 3.585435045116852*^9, {3.5854360176136427`*^9, 3.585436207592659*^9}, {3.585436240677001*^9, 3.585436250781581*^9}}], Cell["\<\ All of these factors have changed in the last few of years. It is now \ feasible to provide policy makers with the immediacy of a mobile application \ using back end cloud computation. While highly qualified researchers might be \ generally disintermediated from an in-line role in the policy making process, \ the experts remain of great importance in an off-line role, engaged in tasks \ such as geographic centering and the pre-computation of major scenarios so \ global optimizers are set in the region of final solutions.\ \>", "Text", CellChangeTimes->{{3.585429269093903*^9, 3.585429376592688*^9}, { 3.5854294711812696`*^9, 3.585429856212138*^9}, {3.585429991162527*^9, 3.585430178911426*^9}, {3.585430233985869*^9, 3.585430328841896*^9}, { 3.58543482330729*^9, 3.585434824387823*^9}, 3.585435049900898*^9, { 3.585436260492725*^9, 3.5854364968431883`*^9}}], Cell[TextData[{ "The emergence of a ", StyleBox["new form of CGE for constrained non-linear systems that \ simultaneously settles thousands of markets in both price and volume", FontWeight->"Bold"], " using shadow prices (i.e. marginal utilities) has greatly enhancing the \ ability to develop a mobile application. Although this form of CGE is quite \ new, it is a continuing theme from John von Neumann [17] to Paul Samuelson \ [18], Wassily Leontief [19], Michael Farrell [20], Anne Carter [21] and Thijs \ ten Raa [22]. Nettleton demonstrated this theme in a discrete global \ multi-regional CGE model [23, 24, 25 & 26]. " }], "Text", CellChangeTimes->{{3.585429269093903*^9, 3.585429376592688*^9}, { 3.5854294711812696`*^9, 3.585429856212138*^9}, {3.585429991162527*^9, 3.585430178911426*^9}, {3.585430233985869*^9, 3.585430421999934*^9}, { 3.585430517784541*^9, 3.5854306304713507`*^9}, {3.58543091110598*^9, 3.585430983506879*^9}, {3.585431108801124*^9, 3.5854312201938553`*^9}, { 3.5854346029327917`*^9, 3.585434615212613*^9}, {3.5854346617809067`*^9, 3.5854348057631893`*^9}, {3.585435073261599*^9, 3.5854350832688227`*^9}, { 3.585436504539803*^9, 3.585436597466518*^9}}], Cell[TextData[{ "The major achievement of solving DICE 2007 in continuous time demonstrated \ in this presentation now provides the ability to develop a continuous global \ multi-regional CGE model for a mobile application incorporating fast solution \ techniques and high scaling. It is hoped that the ", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic"], StyleBox[" Cloud", FontWeight->"Bold"], " will provide a facility to back end such a mobile application for next \ phase of this development. " }], "Text", CellChangeTimes->{{3.585429269093903*^9, 3.585429376592688*^9}, { 3.5854294711812696`*^9, 3.585429856212138*^9}, {3.585429991162527*^9, 3.585430178911426*^9}, {3.585430233985869*^9, 3.585430421999934*^9}, { 3.585430517784541*^9, 3.5854306304713507`*^9}, {3.58543091110598*^9, 3.585430983506879*^9}, {3.585431108801124*^9, 3.5854312201938553`*^9}, { 3.5854346029327917`*^9, 3.585434615212613*^9}, {3.5854346617809067`*^9, 3.5854349363625526`*^9}, {3.585435108164927*^9, 3.585435113404461*^9}, { 3.5854351948255253`*^9, 3.585435198666491*^9}, {3.585436610328232*^9, 3.5854366534980297`*^9}}] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Conclusion", "Section", CellChangeTimes->{{3.58543159809865*^9, 3.5854315998470697`*^9}}], Cell[TextData[{ "This presentation has demonstrated the solution of extreme transcendental \ differential equations using a modern Chebyshev solver, Chebyshev function \ fitting and a highly developed memoized optimizing constraint solver. These \ techniques have been applied solve the traditional DICE 2007 climate change \ model in continuous time. The ", StyleBox["achievement of a continuous solution to the DICE 2007 model is an \ important step in developing a mobile application with high scaling and fast \ solution", FontWeight->"Bold"], "." }], "Text", CellChangeTimes->{{3.585429269093903*^9, 3.585429376592688*^9}, { 3.5854294711812696`*^9, 3.585429856212138*^9}, {3.585429991162527*^9, 3.585430178911426*^9}, {3.585430233985869*^9, 3.585430421999934*^9}, { 3.585430517784541*^9, 3.5854306304713507`*^9}, {3.58543091110598*^9, 3.585430983506879*^9}, {3.585431108801124*^9, 3.5854312201938553`*^9}, { 3.585431355980908*^9, 3.585431438531804*^9}, {3.585431474827095*^9, 3.585431714863552*^9}, {3.58543174598612*^9, 3.58543177423383*^9}, { 3.585435276874003*^9, 3.585435568391371*^9}, {3.585435606333737*^9, 3.585435615236966*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Acknowledgement", "Section", CellChangeTimes->{{3.585016443682995*^9, 3.585016447379547*^9}, 3.5850187668093977`*^9}], Cell[TextData[{ "The author would like to acknowledge the ", StyleBox["encouragement and support of Daniel Lichtblau", FontWeight->"Bold"], ", Kernel Technology group at Wolfram Research, Inc. in developing the DICE \ 2007 solution as well as Daniel\[CloseCurlyQuote]s earlier assistance in \ memoizing the constraint solver." }], "Text", CellChangeTimes->{{3.585016437144203*^9, 3.585016483851313*^9}, { 3.585016814030445*^9, 3.585016819766128*^9}, {3.585426463105625*^9, 3.5854265176167994`*^9}, {3.585426551481175*^9, 3.5854266113460503`*^9}, { 3.585426659128714*^9, 3.585426676040675*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["References", "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308340990994*^9, 3.514308352103572*^9}, { 3.58501467900311*^9, 3.5850146806554823`*^9}}], Cell[TextData[{ "[1] W. D. Nordhaus, New base DICE-2006 as of November 16, 2006 \ (D_111606_alt_base.gms). 2006 [Online]. Available: \ http://www.econ.yale.edu/~nordhaus/homepage/D_111606_alt_base.GMS. [Accessed: \ 04-Mar-2013]\n[2] W. D. Nordhaus, \[OpenCurlyDoubleQuote]Notes on how to run \ the DICE model,\[CloseCurlyDoubleQuote] Oct. 2007 [Online]. Available: \ http://www.econ.yale.edu/~nordhaus/homepage/DICE2007.htm. [Accessed: \ 26-Jun-2008]\n[3] W. D. Nordhaus, A Question of balance: weighing the options \ on global warming policies. Yale University Press, 2008.\n[4] Y. Cai, K. L. \ Judd, and T. S. Lontzek, \[OpenCurlyDoubleQuote]Open science is necessary,\ \[CloseCurlyDoubleQuote] Nat. Clim. Change, vol. 2, no. 5, pp. 299\[Dash]299, \ 2012.\n[5] Y. Cai, K. L. Judd, and T. S. Lontzek, CJL -- one year. National \ Bureau of Economic Research, 2012 [Online]. Available: \ https://sites.google.com/site/openscienceletter/results/cjl----one-year/gams-\ code. [Accessed: 07-Mar-2013]\n[6] M. Webster, N. Santen, and P. Parpas, \ \[OpenCurlyDoubleQuote]An approximate dynamic programming framework for \ modeling global climate policy under decision-dependent uncertainty,\ \[CloseCurlyDoubleQuote] Comput. Manag. Sci., pp. 1\[Dash]24, 2012.\n[7] A. \ Haurie, \[OpenCurlyDoubleQuote]Integrated assessment modeling for global \ climate change: an infinite horizon optimization viewpoint,\ \[CloseCurlyDoubleQuote] Environ. Model. Assess., vol. 8, no. 3, pp. 117\ \[Dash]132, 2003.\n[8] A. Smirnov, \[OpenCurlyDoubleQuote]Attainability \ Analysis of the DICE Model,\[CloseCurlyDoubleQuote] International Institute \ for Applied Sytems Analysis, Laxenburg, Austria, Interim Report IR-05-049, \ Sep. 2005 [Online]. Available: \ http://www.iiasa.ac.at/publication/more_IR-05-049.php. [Accessed: \ 05-Jul-2013]\n[9] Wolfram Inc., \ \[OpenCurlyDoubleQuote]NDSolve\[LongDash]Wolfram Mathematica 9 Documentation,\ \[CloseCurlyDoubleQuote] 2013. [Online]. Available: \ http://reference.wolfram.com/mathematica/ref/NDSolve.html. [Accessed: \ 07-Jun-2013]\n[10] Adduci, J. \[OpenCurlyDoubleQuote]Numerical Optimization \ in ", StyleBox["Mathematica", FontSlant->"Italic"], " \[OpenCurlyDoubleQuote] Wolfram Research Presentation, 27 March 2013\n[11] \ Purdue University Department of Agricultural Resources, \ \[OpenCurlyDoubleQuote]GTAP 8.1 Database,\[CloseCurlyDoubleQuote] 2013. \ [Online]. Available: \ https://www.gtap.agecon.purdue.edu/databases/v8/default.asp\n[12] M. Lenzen, \ K. Kanemoto, D. Moran, and A. Geschke, \[OpenCurlyDoubleQuote]Mapping the \ Structure of the World Economy,\[CloseCurlyDoubleQuote] Environ. Sci. \ Technol., vol. 46, no. 15, pp. 8374\[Dash]8381, Aug. 2012 [Online]. \ Available: http://dx.doi.org/10.1021/es300171x. [Accessed: 07-Aug-2013]\n[13] \ A. Tukker, \[OpenCurlyDoubleQuote]EXIOPOL: towards a global Environmentally \ Extended Input-Output Table,\[CloseCurlyDoubleQuote] presented at the GTAP \ 2008 Conference, Helsinki, Finland, 2008, vol. Ref 2366 [Online]. Available: \ https://www.gtap.agecon.purdue.edu/resources/res_display.asp?RecordID=2702. \ [Accessed: 14-Nov-2008]\n[14] E. Dietzenbacher, B. Los, R. Stehrer, M. \ Timmer, and G. de Vries, \[OpenCurlyDoubleQuote]The Construction of World \ Input\[Dash]Output Tables in the WIOD Project,\[CloseCurlyDoubleQuote] Econ. \ Syst. Res., vol. 25, no. 1, pp. 71\[Dash]98, 2013 [Online]. Available: \ http://www.tandfonline.com/doi/abs/10.1080/09535314.2012.761180. [Accessed: \ 14-Aug-2013]\n[15] M. Bruckner, S. Giljum, C. Lutz, and K. S. Wiebe, \ \[OpenCurlyDoubleQuote]Materials embodied in international trade\[Dash]Global \ material extraction and consumption between 1995 and 2005,\ \[CloseCurlyDoubleQuote] Glob. Environ. Change, vol. 22, no. 3, pp. \ 568\[Dash]576, 2012 [Online]. Available: \ http://www.sciencedirect.com/science/article/pii/S0959378012000350. \ [Accessed: 14-Aug-2013]\n[16] B. Meng, Y. Zhang, and S. Inomata, \ \[OpenCurlyDoubleQuote]Compilation and Applications of IDE-JETRO\ \[CloseCurlyQuote]s International Input\[Dash]Output Tables,\ \[CloseCurlyDoubleQuote] Econ. Syst. Res., vol. 25, no. 1, pp. 122\[Dash]142, \ 2013 [Online]. Available: \ http://www.tandfonline.com/doi/abs/10.1080/09535314.2012.761597. [Accessed: \ 14-Aug-2013]\n[17]\tJ. Von Neumann, \[OpenCurlyDoubleQuote]A model of general \ economic equilibrium,\[CloseCurlyDoubleQuote] Readings Welf. Econ., vol. 13, \ no. 1945, pp. 1\[Dash]9, 1938. \n[18]\tS. Dorfman, P. A. Samuelson, and R. M. \ Solow, Linear Programming and Economics Analysis. New York: McGraw-Hill, \ 1958. \n[19]\tW. W. Leontief, \[OpenCurlyDoubleQuote]Input-Output analysis \ and economic structure: Studies in the structure of the American economy: \ Theoretical and Empirical Explorations in Input-Output Analysis,\ \[CloseCurlyDoubleQuote] Am. Econ. Rev., vol. 45, no. 4, pp. 626\[Dash]636, \ Sep. 1955. \n[20]\tM. J. Farrell, \[OpenCurlyDoubleQuote]The measurement of \ productive efficiency,\[CloseCurlyDoubleQuote] J. R. Stat. Soc. Ser. A Stat. \ Soc., vol. 120, no. 3, pp. 253\[Dash]82, 1957. \n[21] T. ten Raa and W. J. \ Baumol, \[OpenCurlyDoubleQuote]Anne Carter and Input-Output: Technology, \ Trade, and Pollution,\[CloseCurlyDoubleQuote] OEconomia, vol. 2011, no. 01, \ pp. 61\[Dash]73, 2011. \n[22]\tT. ten Raa, The Economics of Input Output \ Analysis. New York: Cambridge UniversityPress, 2005 [Online]. Available: \ www.cambridge.org/9780521841795\n[23]\tS. J. Nettleton, \ \[OpenCurlyDoubleQuote]Benchmarking climate change strategies under \ constrained resource usage.,\[CloseCurlyDoubleQuote] UTS theses submitted as \ part of the Australasian Digital Theses Program (ADT), University of \ Technology, Sydney, Sydney, Australia, 2010 [Online]. Available: \ http://utsescholarship.lib.uts.edu.au/iresearch/scholarly-works/handle/2100/\ 1012. [Accessed: 30-Mar-2010]\n[24]\tS. J. Nettleton, \ \[OpenCurlyDoubleQuote]The Service Science of Climate Change Policy Analysis: \ applying the Spatial Climate Economic Policy Tool for Regional Equilibria,\ \[CloseCurlyDoubleQuote] presented at the International Input Output \ Association (June 2010), Sydney University, Australia, 2010 [Online]. \ Available: http://viXra.org/abs/1210.0144\n[25]\tWolfram, Inc., Dynamics of \ Change: Modeling the Economic Effects of Global Warming with Mathematica. \ Champaign, IL.: Wolfram, Inc., 2011 [Online]. Available: \ http://www.wolfram.com/mathematica/customer-stories/modeling-the-economic-\ effects-of-global-warming-with-mathematica.html. [Accessed: 28-Jan-2012]\n\ [26]\tS. J. Nettleton, \[OpenCurlyDoubleQuote]Computable General Equilibrium \ (CGE) of Multiregion Input-Output Model,\[CloseCurlyDoubleQuote] Wolfram \ Demonstrations Project, 2011 [Online]. Available: \ http://demonstrations.wolfram.com/\ ComputableGeneralEquilibriumCGEOfMultiregionInputOutputModel/. [Accessed: \ 23-Jan-2012]" }], "Text", CellChangeTimes->{{3.495209008234375*^9, 3.49520915653125*^9}, 3.495209919765625*^9, 3.4952106014375*^9, {3.4952106824375*^9, 3.495210832234375*^9}, 3.514307848543872*^9, {3.514308058576482*^9, 3.514308065607885*^9}, {3.51430841745117*^9, 3.514308419642997*^9}, { 3.5149152616687326`*^9, 3.514915280523456*^9}, {3.514915328702818*^9, 3.5149153375415287`*^9}, 3.514915444638068*^9, {3.585014724601348*^9, 3.585014824544285*^9}, {3.5850153396362457`*^9, 3.585015359448036*^9}, { 3.5850154726963043`*^9, 3.585015495151494*^9}, {3.585016118516019*^9, 3.585016130574601*^9}, {3.5850161733041487`*^9, 3.585016250125182*^9}, { 3.5850163022598467`*^9, 3.585016307479905*^9}, {3.585016340565085*^9, 3.5850163607941113`*^9}, {3.585427849108924*^9, 3.58542785568434*^9}, { 3.585428930309504*^9, 3.585428948727035*^9}, {3.585429020687001*^9, 3.5854290602212257`*^9}, {3.585429189360252*^9, 3.585429199917762*^9}, { 3.5854310197506037`*^9, 3.585431096453271*^9}, {3.585431319053463*^9, 3.5854313362681847`*^9}, {3.5854356236604233`*^9, 3.585435626236973*^9}}], Cell["", "Text", CellChangeTimes->{{3.495209008234375*^9, 3.49520915653125*^9}, 3.495209919765625*^9, 3.4952106014375*^9, {3.4952106824375*^9, 3.495210832234375*^9}, 3.514307848543872*^9, {3.514308058576482*^9, 3.514308065607885*^9}, {3.51430841745117*^9, 3.514308419642997*^9}, { 3.5149152616687326`*^9, 3.514915280523456*^9}, {3.514915328702818*^9, 3.5149153375415287`*^9}, 3.514915444638068*^9, {3.585014724601348*^9, 3.585014824544285*^9}, {3.5850153396362457`*^9, 3.585015359448036*^9}, { 3.5850154726963043`*^9, 3.585015495151494*^9}, {3.585016118516019*^9, 3.585016130574601*^9}, {3.5850161733041487`*^9, 3.585016250125182*^9}, { 3.5850163022598467`*^9, 3.585016307479905*^9}, {3.585016340565085*^9, 3.5850163607941113`*^9}, {3.585427849108924*^9, 3.58542785568434*^9}, { 3.585428930309504*^9, 3.585428948727035*^9}, {3.585429020687001*^9, 3.5854290602212257`*^9}, {3.585429189360252*^9, 3.585429199917762*^9}, { 3.5854310197506037`*^9, 3.585431096453271*^9}, {3.585431319053463*^9, 3.5854313362681847`*^9}, {3.5854356236604233`*^9, 3.585435626236973*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Attachment", "Section", CellChangeTimes->{{3.585016443682995*^9, 3.585016447379547*^9}, 3.5850187668093977`*^9, {3.585360400646097*^9, 3.5853604023882217`*^9}}], Cell["\<\ The DICE 2007 problem requires a careful configuration of the Optimization \ loop as a memoizing constraint solver. Indicative code for the transcendental \ differential equations and the optimising constraint solver is provided below:\ \>", "Text", CellChangeTimes->{{3.585016437144203*^9, 3.585016483851313*^9}, { 3.585016814030445*^9, 3.585016819766128*^9}, {3.585360710739087*^9, 3.585360720570425*^9}, {3.5853607830265007`*^9, 3.585360800252263*^9}, { 3.58536083422619*^9, 3.585360864628768*^9}, {3.585360900665826*^9, 3.585360925106333*^9}, {3.585362399474763*^9, 3.585362400370163*^9}, { 3.5854266888902187`*^9, 3.585426769488997*^9}}], Cell[CellGroupData[{ Cell["Transcendental Differential Equation System", "Subsection", CellChangeTimes->{{3.585360545547522*^9, 3.585360561643755*^9}, { 3.58542677929734*^9, 3.585426785232669*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"equations", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["k", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "0.1`"}], " ", RowBox[{"k", "[", "t", "]"}]}], "-", RowBox[{"269.3998529790092`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "9.2`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.001`"}], " ", "t"}]]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"8600", "-", RowBox[{"2086", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.035`"}], " ", "t"}]]}]}], ")"}], "0.7`"], " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Tat", "[", "t", "]"}], "\[LessEqual]", "0"}], ",", "1", ",", FractionBox["1", RowBox[{"1", "+", RowBox[{"0", " ", RowBox[{"Tat", "[", "t", "]"}]}], "+", RowBox[{"0.0028388`", " ", SuperscriptBox[ RowBox[{"Tat", "[", "t", "]"}], "2"]}]}]]}], "]"}], " ", SuperscriptBox[ RowBox[{"k", "[", "t", "]"}], "0.3`"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"0.0024598146458005322`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2.433333333333333`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.003`"}], " ", "t"}]]}]], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.005`"}], " ", "t"}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"\[Mu]", "[", "t", "]"}], "2.8`"]}]}], ")"}]}], "-", RowBox[{"c", "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Tat", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"0.22`", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "36.7073066928394`"}], "+", RowBox[{"5.482241155378061`", " ", RowBox[{"Log", "[", RowBox[{"Mat", "[", "t", "]"}], "]"}]}], "+", RowBox[{"(", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ RowBox[{"-", "0.06`"}], "+", RowBox[{"0.0036`", " ", "t"}]}], RowBox[{"t", "\[LessEqual]", "100"}]}, {"0.3`", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ")"}]}], ")"}]}], "-", RowBox[{"0.06441748633333333`", " ", RowBox[{"Tat", "[", "t", "]"}]}], "+", RowBox[{"0.011002153`", " ", RowBox[{"Tlo", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Tlo", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"0.0048`", " ", RowBox[{"Tat", "[", "t", "]"}]}], "-", RowBox[{"0.0048`", " ", RowBox[{"Tlo", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Mat", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"1.1`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.01`"}], " ", "t"}]]}], "-", RowBox[{"0.0190837`", " ", RowBox[{"Mat", "[", "t", "]"}]}], "+", RowBox[{"0.009800871837862596`", " ", RowBox[{"Mup", "[", "t", "]"}]}], "-", RowBox[{"3.171771574386283`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2.433333333333333`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.003`"}], " ", "t"}]]}], "-", RowBox[{"9.2`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.001`"}], " ", "t"}]]}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"8600", "-", RowBox[{"2086", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.035`"}], " ", "t"}]]}]}], ")"}], "0.7`"], " ", SuperscriptBox[ RowBox[{"k", "[", "t", "]"}], "0.3`"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1.`"}], "+", RowBox[{"\[Mu]", "[", "t", "]"}]}], ")"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Mup", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"0.0190837`", " ", RowBox[{"Mat", "[", "t", "]"}]}], "+", RowBox[{"0.0003369934177753544`", " ", RowBox[{"Mlo", "[", "t", "]"}]}], "-", RowBox[{"0.015203871837862596`", " ", RowBox[{"Mup", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Mlo", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "0.0003369934177753544`"}], " ", RowBox[{"Mlo", "[", "t", "]"}]}], "+", RowBox[{"0.005403`", " ", RowBox[{"Mup", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SuperscriptBox["\[Mu]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ FractionBox["1", "10"], " ", "\[Mu]const", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Mu]", "[", "t", "]"}]}], ")"}], " ", RowBox[{"\[Mu]", "[", "t", "]"}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"equations", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"c", "[", "t", "]"}], "\[Rule]", "38.1"}], ",", RowBox[{"\[Mu]const", "\[Rule]", "1.2"}]}], "}"}]}], ",", RowBox[{ RowBox[{"k", "[", "0", "]"}], "\[Equal]", "136.7"}], ",", RowBox[{ RowBox[{"Tat", "[", "0", "]"}], "\[Equal]", "0.7307"}], ",", RowBox[{ RowBox[{"Tlo", "[", "0", "]"}], "\[Equal]", "0.0068"}], ",", RowBox[{ RowBox[{"Mat", "[", "0", "]"}], "\[Equal]", "808.9"}], ",", RowBox[{ RowBox[{"Mup", "[", "0", "]"}], "\[Equal]", "1255.0"}], ",", RowBox[{ RowBox[{"Mlo", "[", "0", "]"}], "\[Equal]", "18365.0"}], ",", RowBox[{ RowBox[{"\[Mu]", "[", "0", "]"}], "\[Equal]", "0.005"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"k", "'"}], "[", "t", "]"}], ",", RowBox[{"k", "[", "t", "]"}], ",", RowBox[{"Tat", "[", "t", "]"}], ",", RowBox[{"Tlo", "[", "t", "]"}], ",", RowBox[{"Mat", "[", "t", "]"}], ",", RowBox[{"Mup", "[", "t", "]"}], ",", RowBox[{"Mlo", "[", "t", "]"}], ",", RowBox[{"\[Mu]", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1400"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.585258236705991*^9, 3.585258291743229*^9}, { 3.585258327325*^9, 3.585258340194195*^9}, {3.585258388209428*^9, 3.585258437077599*^9}, 3.585258505649919*^9, {3.5852585466103163`*^9, 3.585258555624731*^9}, {3.5853604535813303`*^9, 3.585360462750284*^9}, 3.5853605288411627`*^9, {3.591606181661127*^9, 3.591606207739476*^9}, { 3.5916062690219297`*^9, 3.591606484197747*^9}, {3.591606515160388*^9, 3.5916065155701857`*^9}, {3.591606548343877*^9, 3.591606559066374*^9}, { 3.5916065981034803`*^9, 3.591606950829508*^9}, 3.591606981426127*^9}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"%", "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1400"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.585258236705991*^9, 3.585258291743229*^9}, { 3.585258327325*^9, 3.585258340194195*^9}, {3.585258388209428*^9, 3.585258437077599*^9}, 3.585258505649919*^9, {3.5852585466103163`*^9, 3.585258555624731*^9}, {3.5853604535813303`*^9, 3.585360462750284*^9}, 3.5853605288411627`*^9, {3.591606181661127*^9, 3.591606207739476*^9}, { 3.5916062690219297`*^9, 3.591606484197747*^9}, {3.591606515160388*^9, 3.5916065155701857`*^9}, {3.591606548343877*^9, 3.591606559066374*^9}, { 3.5916065981034803`*^9, 3.591606950829508*^9}, 3.591606981426127*^9}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Memoized Optimizing Constraint Solver", \ "Subsection"]], "Subsubsection", CellChangeTimes->{{3.585360516003785*^9, 3.5853605199445877`*^9}, { 3.585360573576858*^9, 3.585360592468606*^9}, {3.5853606413956003`*^9, 3.585360668482835*^9}, {3.585426789935657*^9, 3.585426816088114*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"statevars", "=", RowBox[{"{", RowBox[{ RowBox[{"k", "[", "t", "]"}], ",", RowBox[{"Tat", "[", "t", "]"}], ",", RowBox[{"Tlo", "[", "t", "]"}], ",", RowBox[{"Mat", "[", "t", "]"}], ",", RowBox[{"Mup", "[", "t", "]"}], ",", RowBox[{"Mlo", "[", "t", "]"}], ",", RowBox[{"\[Mu]", "[", "t", "]"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"solver", "[", "params_", "]"}], ":=", RowBox[{"Check", "[", RowBox[{ RowBox[{ RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"equations", "/.", RowBox[{"Thread", "[", RowBox[{"parsarray", "\[Rule]", "params"}], "]"}]}], ",", RowBox[{"Thread", "[", RowBox[{ RowBox[{"(", RowBox[{"statevars", "/.", RowBox[{"t", "\[Rule]", "0"}]}], ")"}], "\[Equal]", RowBox[{ RowBox[{"Last", "[", "xvec3", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"k", "'"}], "[", "t", "]"}], "}"}], ",", "statevars"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "testperiods"}], "}"}], ",", " ", RowBox[{"MaxSteps", "\[Rule]", SuperscriptBox["10", "8"]}], ",", RowBox[{"InterpolationOrder", "\[Rule]", "All"}]}], "]"}], "//", "Quiet"}], ",", RowBox[{ RowBox[{"Print", "[", "\"\<**** solver failed ****\>\"", "]"}], ";", RowBox[{"{", "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cons0", "[", "params_", "]"}], ":=", RowBox[{ RowBox[{"cons0", "[", "params", "]"}], "=", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "optsolver0", ",", "optsolver", ",", "findmax", ",", "findmin", ",", "conssol", ",", "findopt", ",", "finddiff", ",", "findval"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"optsolver0", "=", RowBox[{"solver", "[", "params", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"optsolver", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"optsolver0", "\[Equal]", RowBox[{"{", "}"}]}], ",", RowBox[{"Return", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], SuperscriptBox["10", "30"]}], "]"}], ",", RowBox[{"optsolver0", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"findmax", "[", RowBox[{"var_", ",", "imtestyear_"}], "]"}], ":=", RowBox[{"Check", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{ RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"{", RowBox[{"t", "\[Rule]", "imtestyear"}], "}"}]}], ",", "_Complex"}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Im", "[", RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"t", "\[Rule]", "imtestyear"}]}], "]"}], "]"}], SuperscriptBox["10", "3"]}], ",", RowBox[{"FindMaxValue", "[", RowBox[{ RowBox[{"var", "/.", "optsolver"}], ",", RowBox[{"{", RowBox[{ "t", ",", "imtestyear", ",", "30", ",", "testperiods"}], "}"}]}], "]"}]}], "]"}], "//", "Quiet"}], ",", SuperscriptBox["10", "30"]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"findmin", "[", RowBox[{"var_", ",", "imtestyear_"}], "]"}], ":=", RowBox[{"Check", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{ RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"{", RowBox[{"t", "\[Rule]", "imtestyear"}], "}"}]}], ",", "_Complex"}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"-", RowBox[{"Abs", "[", RowBox[{"Im", "[", RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"t", "\[Rule]", "imtestyear"}]}], "]"}], "]"}]}], SuperscriptBox["10", "3"]}], ",", RowBox[{"FindMinValue", "[", RowBox[{ RowBox[{"var", "/.", "optsolver"}], ",", RowBox[{"{", RowBox[{ "t", ",", "imtestyear", ",", "40", ",", "testperiods"}], "}"}]}], "]"}]}], "]"}], "//", "Quiet"}], ",", RowBox[{"-", SuperscriptBox["10", "30"]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"finddiff", "[", RowBox[{"var_", ",", "imtestyear_"}], "]"}], ":=", RowBox[{"Check", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"imtestyear", "-", "var"}]}]}], "/.", "optsolver"}], "/.", RowBox[{"(", RowBox[{"t", "\[Rule]", RowBox[{"imtestyear", "-", "1"}]}], ")"}]}], ",", "_Complex"}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{"-", RowBox[{"Abs", "[", RowBox[{"Im", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"imtestyear", "-", "var"}]}]}], "/.", "optsolver"}], "/.", RowBox[{"(", RowBox[{"t", "\[Rule]", RowBox[{"imtestyear", "-", "1"}]}], ")"}]}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"imtestyear", "-", "var"}]}]}], "/.", "optsolver"}], "/.", RowBox[{"(", RowBox[{"t", "\[Rule]", RowBox[{"imtestyear", "-", "1"}]}], ")"}]}]}], "]"}], "//", "Quiet"}], ",", RowBox[{"-", SuperscriptBox["10", "30"]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"findval", "[", RowBox[{"var_", ",", "imtestyear_"}], "]"}], ":=", RowBox[{"Check", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{ RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"t", "\[Rule]", "imtestyear"}]}], ",", "_Complex"}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{"-", RowBox[{"Abs", "[", RowBox[{"Im", "[", RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"t", "\[Rule]", "imtestyear"}]}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"var", "/.", "optsolver"}], "/.", RowBox[{"t", "\[Rule]", "imtestyear"}]}]}], "]"}], "//", "Quiet"}], ",", RowBox[{"-", SuperscriptBox["10", "30"]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"findopt", "=", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["cumutil", "0"], "/.", "sbsd"}], ")"}], "+", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "[", "t", "]"}], "/", SubscriptBox["l", "t"]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ")"}], "-", "1"}], ")"}], RowBox[{ SubscriptBox["l", "t"], "/", RowBox[{"(", RowBox[{ SubscriptBox["scale", "1"], RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ")"}]}]}], ")"}], "/.", "sbsd"}], "/.", RowBox[{"Thread", "[", RowBox[{"parsarray", "\[Rule]", "params"}], "]"}]}], "/.", "optsolver"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "testperiods"}], "}"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "24"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"conssol", "=", RowBox[{"{", RowBox[{"findopt", ",", RowBox[{"findval", "[", RowBox[{ RowBox[{"k", "[", "t", "]"}], ",", "testperiods"}], "]"}], ",", RowBox[{"findmax", "[", RowBox[{ RowBox[{"Tat", "[", "t", "]"}], ",", "80"}], "]"}]}], "}"}]}]}]}], "\[IndentingNewLine]", "]"}], "//", "Quiet"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cons1", "[", RowBox[{"params", ":", RowBox[{"{", RowBox[{ RowBox[{"_", "?", "NumberQ"}], ".."}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"cons0", "[", "params", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cons2", "[", RowBox[{"params", ":", RowBox[{"{", RowBox[{ RowBox[{"_", "?", "NumberQ"}], ".."}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"cons0", "[", "params", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cons3", "[", RowBox[{"params", ":", RowBox[{"{", RowBox[{ RowBox[{"_", "?", "NumberQ"}], ".."}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"cons0", "[", "params", "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"starttime", "=", RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"stepresult", "=", RowBox[{"{", "}"}]}], ";", RowBox[{"stepresult", ">>", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"MaxMemoryUsed", "[", "]"}], "/", RowBox[{"10", "^", "6"}]}], "]"}], "]"}], "<>", "\"\< Mb\>\""}], "]"}], ";"}], "\n", RowBox[{"sol", "=", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ii", "=", "1"}], ",", RowBox[{"jj", "=", "1"}], ",", RowBox[{"kk", "=", "1"}], ",", RowBox[{"temp", "=", "\"\<\>\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"NMaximize", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"cons1", "[", "optpars", "]"}], ",", RowBox[{"0", "\[LessEqual]", RowBox[{"cons2", "[", "optpars", "]"}]}], ",", RowBox[{ RowBox[{"0.995", " ", "tatmax"}], "\[LessEqual]", RowBox[{"cons3", "[", "optpars", "]"}]}], ",", RowBox[{ RowBox[{"cons3", "[", "optpars", "]"}], "\[LessEqual]", RowBox[{"1.005", " ", "tatmax"}]}]}], "}"}], ",", RowBox[{"Reverse", "[", RowBox[{"Thread", "[", RowBox[{ RowBox[{"Rest", "[", RowBox[{"Most", "[", "optpars", "]"}], "]"}], ">", RowBox[{"Most", "[", RowBox[{"Most", "[", "optpars", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"copt1", ">", "0"}], ",", RowBox[{"10", "\[GreaterEqual]", "\[Mu]opt"}], ",", RowBox[{"\[Mu]opt", ">", "0"}]}], "}"}]}], "]"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Min", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", RowBox[{"Max", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "}"}], "&"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"optpars", ",", RowBox[{"pars", "*", "0.995"}], ",", RowBox[{"1.005", "pars"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"MaxIterations", "\[Rule]", "3500"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "24"}], ",", "\[IndentingNewLine]", RowBox[{"StepMonitor", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{"stepresult", "=", RowBox[{"{", RowBox[{"ii", ",", "jj", ",", "kk", ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "res", "}"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"ToExpression", "[", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", "#", "]"}]}], "]"}], "&"}], ",", RowBox[{"Range", "[", RowBox[{"Length", "[", "handels", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", "\[Mu]", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"cons1", "[", "optpars", "]"}], "}"}], ",", "optpars"}], "]"}]}], "}"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"stepresult", ">>>", "\"\\""}], ";", RowBox[{"jj", "++"}], ";", RowBox[{"kk", "=", "1"}]}], ")"}]}], ",", RowBox[{"EvaluationMonitor", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{"ii", "++"}], ";", RowBox[{"kk", "++"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"ii", ",", "100"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"ii", ",", "1000"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"evalresult", "=", RowBox[{"{", RowBox[{"ii", ",", "jj", ",", "kk", ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"vars", ",", "varsopt"}], "}"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"evalresult", ">>>", "\"\\""}]}]}], "]"}], ";"}], "*)"}], RowBox[{ RowBox[{ RowBox[{"DownValues", "[", "cons0", "]"}], "=", RowBox[{"Last", "[", RowBox[{"DownValues", "[", "cons0", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NotebookDelete", "[", "temp", "]"}], ";", "\[IndentingNewLine]", RowBox[{"temp", "=", RowBox[{"PrintTemporary", "[", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", "jj", "]"}], "<>", "\"\<; Sub \>\"", "<>", RowBox[{"ToString", "[", "kk", "]"}], "<>", "\"\<; Cum \>\"", "<>", RowBox[{"ToString", "[", "ii", "]"}], "<>", "\"\<; Curr Mem: \>\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"MemoryInUse", "[", "]"}], "/", RowBox[{"10", "^", "6"}]}], "]"}], "]"}], "<>", "\"\<; Peak: \>\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"MaxMemoryUsed", "[", "]"}], "/", RowBox[{"10", "^", "6"}]}], "]"}], "]"}], "<>", "\"\< Mb\>\"", "<>", "\"\<; Hours: \>\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"AbsoluteTime", "[", "]"}], "-", "starttime"}], ")"}], "/", "3600"}], "]"}], "]"}]}], "]"}]}]}]}], "]"}]}], ")"}]}]}], "]"}]}], "]"}], "//", "Timing"}]}]}], "Input", CellChangeTimes->{{3.585258236705991*^9, 3.585258291743229*^9}, { 3.585258327325*^9, 3.585258340194195*^9}, {3.585258388209428*^9, 3.585258437077599*^9}, 3.585258505649919*^9, {3.5852585466103163`*^9, 3.585258555624731*^9}, {3.5853604535813303`*^9, 3.585360488423606*^9}, { 3.5853606251517143`*^9, 3.585360628621258*^9}}] }, Closed]] }, Closed]] }, Open ]] }, Open ]] }, TransitionEffect->"CrossFade", WindowSize->{1276, 669}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingStartingPageNumber->1, PrintingPageRange->{Automatic, Automatic}, PageHeaders->{{ Cell[ TextData[{ StyleBox[ CounterBox["Page"], "PageNumber"], " ", "|", " ", StyleBox[ ValueBox["FileName"], "Header"]}], "Header", CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, { None, None, Cell[ TextData[{ StyleBox[ ValueBox["FileName"], "Header"], " ", "|", " ", StyleBox[ CounterBox["Page"], "PageNumber"]}], "Header", CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}}, PageFooters->{{None, None, None}, {None, None, None}}, PageHeaderLines->{False, False}, PageFooterLines->{False, False}, PrintingOptions->{"FacingPages"->True, "FirstPageFace"->Right, "FirstPageFooter"->True, "FirstPageHeader"->False, "PaperOrientation"->"Portrait", "PaperSize"->{594.75, 842.25}, "PostScriptOutputFile"->"/home/stuart/Dropbox/13 Wolfram Conf/2013 Wolfram \ SN02.pdf"}, TaggingRules->{"SlideShow" -> True}, Magnification->1, FrontEndVersion->"9.0 for Linux x86 (64-bit) (January 25, 2013)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJztnWmQXNWV5x0z82E+TWNQA6pSSbVXZVVWZlZV7pV77XvWrtq0lxaExI5Y bIO7sY0XpgMBAjwedhPtGcTmiaBZBLYjPC0J3GGPbSHsiIagJU0MbUegIoyX WWr++U7l1au3VVYhQAT/f/xU8fK+c8499+Z7+nDuy/vKtl01vPPffOELX7ju 3+PP8NYD6Wuv3XrzyL/Dh8zN189t+7c46MS/L+B07rijo2vVzM5uNjMwkO3p 6QXd3Tm6unrs3NvbOzOZtmQynUikQFtbh3N3iUQyFkvgL1zS6Vb9qZ6ePkuX sbFxpDQzMzsxMdnZ2V340BBwx46d27btgBf6MoDMP8q8EUIIIYQQQgghhBBC CCEfN+3tnQXS09M3MJAdHR2fmprZunX73Nwu/J2enjUwNDTS2dmtKKCLjkym LZXKLJtAa2t7Ot0q6wVwUe3Dw6NIZmRkzNIL7cgKOdsZ2DE+vnHHjp0Yr6Qn pNOgFZmsKBQhhBBCCCGEEEIIIYQQ8gnT2tZhSXtHV3dPX3ZoZHRsYuPk9Jat 28HWbTvAtu1zYPuOnQAHU9OzMFAMDA7ZxVwpPb39ff2DvX0DhvZMaztQeSKN uZ27d8ztmp7ZhI/mOBgFEhufmFxRbgglo25r70wk0yCZAhnhfI2REEIIIYQQ QgghhBBCCPk4kFo66Oru7e0bGMwOj45NTE7NTM9smpndDGY3bQGbNm/dvGWb 3SoAzCY2TgnZoZF0pk2jVVBdrBSEndu5W1YZcDw2vrGvf1CfMxgaHpXiv5gh z86uHkMcuIyMjsMdQ8MwC09geGQMI8XfZCojSwAKDHDV4yKEEEIIIYQQQggh hBBCPm4Gs8PDI2PjE5MTG6fkAf7JqZmp6VkwPbNJvwqwafNWWQWQhQDDKgAa EQFxskMjyZSxVL460PuOuV2Ij44QH2kgK/QyMDjU3tElNq1tHUhYiv/KrKOz 2xAKIx0ZHQdDw6Nwce43o62GSHDExNhT6dZ4IqXno4yLEEIIIYQQQgghhBBC CPm4GRvfKMgSgH4VQBYC1CqA+iGAfhVAFgJkCQDHcMwOjcTiST3JVCaVbi2Q RDIVTyTjiRSOR8cmkADSkEf3JUkwMjo+mB3u7unLtLaLV/9AVvJBbkgSLu0d XYbIaBkeGRsaHu3rH3RIoKu7F0MAEgH9IixckJJ+UJIhIYQQQgghhBBCCCGE EHJhMjU1Mz6+cWxsAn8nJibBxo1TYHJyGuAskBf7zs5uBps2bQGbN28FW7Zs A1u3bgfbtu3Yvn0OZtnscEtLXE8ymVbvz7UkkUhFo7FQKOL3B5ubA01N/kAg hPbOzu7e3n4EHBkZQ2LIZHR0fHBwaGAgi799fQNtbR0qSEdHl+SGJJEG7PVn hZ6evqGhEfiaTwloR1/Dw6PoFF1LWIwRk4NRxGIJIR5PAqTtPC5CCCGEEEII IYQQQggh5NNi27YdYNOmLZOT0+PjG51XAWZmNgG1CoBjnB0ZGRsYyHZ2dqe0 Sn4slohGY+FwVBGPJ5LJtCUwhkEwGA4EQqC5OdDc7Nfq/0GzcSbT1t3dm80O Dw4OdXX1oEeDQWtrO3JGVsgWB0gMKekN8LG/fxDZ9vb226WE4LJGAMt0uhUt GOOWLdsQPBaLa5xbBbALQgghhBBCCCGEEEIIIYR8usjT+8KWLdtmZjZt3Dil FgIMqwD4i0acGh4e7e8f7Onp6+rq6ejoam1tl1J5PJ5saYlL/T8UCgv4mEik DMAyEmkJhSLBYDgYzBX/tYf/c8X/5uYAGs0uira2DvSLHi1PSbbIc2xsoq9v wGCAVJE52nFgGby9vTObHR4YyMIGx2jBwebNW/E3FosbftrgkCQhhBBCCCGE EEIIIYQQ8inS1zcg2/hs3rxVnuqXLXTkEXrZGmh0dFx2xRFUebynp6+zs7u9 vVPV/2OxREtLPBJpkaf6BXyUDXMUyiYUCsvD/2KGdoOlHbLWYEkm0yaZI+2h oRHkZjDo7u7t7e3v6uqxdMec9PcPAmWDvjAnCCg/bdCj9gIihBBCCCGEEEII IYQQQi4oWmKJ7NDI7KYtM7ObBXnhL5iant04OT00PCrvw1UMZof7B7K9fQPd PX0dnd1t7Z2Z1vZkKhNPpBAtEo2FIy3BUCT3SL9GKBxFuyKqGaAxKA//hyLR lrjeAHEkFEhpL+RNZ9r0BrnXFkzPol3fqAdZjY5NDI+MIVXkGdOGqUCqyBzu OLBzl9HBRjIZn5jEzOAYmQsRIRqzy4EQQgghhBBCCCGEEEII+RSJtsTBYHZY Cv7C5NSMsHFyemLjlNT89fQPZHt6+7u6ezs6u1vbOtKZNkP9f7FIHo1JfD3n iv+hiN4gkUwjVHtHF/6m0q3SiOPZTVuQ0vDIWGdXTyyeRCMOkC1yQw6GyM3+ oBz39Q8ODY8ODA7hINPabsgBaSMIgpvTAxiLjA42kkl3Tx96RG6SfDgi5MZo GYEQQgghhBBCCCGEEEII+XSJRGNC/0BW1fyFiY1TwujYxMDgkNTSFVIhb+/o SmfaEsm0LCWoaM5I/V99jMWTHZ3d8rw9DiSmnMq0ts/MbkZWyGEwOwybeCKF 9ta2jrHxjcMjYzAWSwT0eH0NHq8/EJKY2aER+Z1CZ1ePITckLL9csMsZHcEL NkgAH5OpzNT0LEaNzEPhiEZUKHDIhBBCCCGEEEIIIYQQQsgnitrKJtLS3z8o L/ydmJgU5EXA8sLfvr6B3t7+np6+7u7erq6ezs7uZDKtd18d6XSrvE0AwVXk TKZNzuJgZmbT5OT06Oj44OAQDGKxhJxKJFLZ7DC8UqlMOBxtaPACj8fr9Tbi IwwQR23jb0g1Go11dHS1tXXEtdcQm2lv74S72ES1WZqenh0ZGdPeWRDRI30R QgghhBBCCCGEEEIIIRcU4XBUT29vv6r5j41NCPL+32x2WIrzHR1d7e2dbW0d ra3tsVjCEGFFpNOtCDs4ONTfPyhLALKs0NISF4NoNIZecGp4eHRgIItO9e7o vbu7V4wbG5s8Hq/H4wNNTX60oF29pDiTaTN3jcjoyzKxVCojw4RN7oUF4SgS mJqa0b/XWJAlAEIIIYQQQgghhBBCCCHkgsLwNDvo7u4dHR0XRkbGwPDwqNDf P6gq/+l0ayqVSSbT0WjMHKQQEGFoaETq/wMD2Z6evlgsYWcc0X4L4GAQDIa1 4v/iEoBU5pEnhtPR0YUDRNDbIxQCIgfLaC0tcRmp6rSrq2dqaiYeTwYCIT3S ESGEEEIIIYQQQgghhBByQWF4ml3o6uqRsv/Q0IiQzQ4LPT19qvKfSKTi8aQ8 fm8Zx4FoNKYiDw4OoUdzMu3tnQ4RfL4mqfMrmpqaZRcg0NTkR0sslkBkxMlk 2pCn3jis/QRA9g6yjK+WORAEH3E8OTmNUQcCIb8/qJAlAEIIIYQQQgghhBBC CCHkgsLwNLuio6NLq8wLQwMDQra/P9vV1ROPJ2OxREtLXPbGlxK6XShLtC19 xoaGRrPZke7uXv2p5uaA1NV7ewfi8ZQ0hsO5XpAAwFmv1+d2e0BTk396ejaT aZOyvKr/j49vlEb8TaUyiURq7959u3fvAYggMbUljNx7ASSsIcN0ujWdbksm MxgpvPbvv/qrX/3b66+/cdeu3Tt37sbfqalpWQJAFxJZQD7OY0dfzjaW+aCX ZSN/KuxualZktC/uggXpfWLZrq6jgeaA3vFjTC9/ucpt8jG5kPMO/mco8P+Z j0jn9MbZb/3NFU/+JzD51VsSXV0Oxtn9e3b+54NiDC9nYxV/9MA1kYTxF1UC IuCsBNx6z7cQ/1OfeUIIIYQQQgghhJDPIs3+gB2tbe39A4Ogr39A6O3rF9ra O8KRaCgcCYbCgWDIHwg6xEGEru6eSLQFltLSEosPj4wODY+AgcGsam9sam7w eOvdDV5fIz5mWtt6evvQC7rDAfp6/oc/nJ+f9zU21bvdMAPRlpaFhYXXXvuR RPB4fe4Gz9Zt29A4t3OXNF53/fXwWtDp+08+KWnE4gnEf0OTIe14IplMpfF3 3/79CzZqavaDB7/7XfOpt956a3Jq2nJCTp85A4P+/gG7GUO2cDc0YuzwSqUz li6TTc0LtbUFcpfXe64vl2tZe9iYe0w1+59vaDAbo7G/qdkuPctQwmtutzk9 Q5IPejy2k6bZ2MVHSoVna+h00sbAEpkW86y+UV+/E9e3vSPOwsY884iGmJYT BXvLULd7fXazjatOLiS9cPHv3LXbLjFLF1yft9/+VYcLGHIwUDbmdtybdreb krrfBdzgy7qY+0IQS0vcnpiQu+76j3b3mp2jXvI/jHm8dv8nyDxb3vjnvtbb vyr/degHhf98LPMsJEmM0bKjcCI+972DX3rjFQMD+ywuEhjvf+bxAo3N8UcO XG02gO+Bn/w3Q0D0AkeHK4oQQgghhBBCCCGEWNDsd6C1ta2vrx/09vYJPT29 QibTGgyGAoGgXwvS1NTc2NiEv4YIoVB4fHyiv38AfyORqDR2dnaNjIwOD4+A RCKJFoSCr8/XiCDKF110d/eg03g80d7egZbbb799YWFhcnLK4/G63Q3gqquu llpWKpWGAdzReOjQ/WiRyDBe0MqV1113PWzw8bXXXssV6L7/ZDgcicXiyGqx /r8085aWWDKZQtf79u3XamV3ofdbbrllbm6nAjmDBx/M1f8Rf+fOXQKMpdzX 399vCIuz+eLbXZZzLgkv5BYIlvjKEgZ6sfTa6WssvP7/YINHORboYkyysclh 4QCnJnXfoyE9u4tNVb/16ZmTNEQ221hOjnO2MHAIaHnW+rtznBZwu9dr6Yh2 5/UX/aj1k3mdz2cIlWpqPrdcsnQmcWnpF8JwzZ8+fa6ejMvbnBiuNweX55// ofV3ka9Om69/g43FZfDGG8sWrg13q9yAy2qlHeXK9ZNT5yVDNV7MnvxPZXGV 5v9nsDyLqVbBEUSfA/5zM8csJEnMm2Vfc9+7W0ruWw9+c+PtN4HrXvyv0tI+ OW4wvuLJ7xZuDNCoDADszQZyCmYSEJGlBX0VeCcSQgghhBBCCCGEEEEq2A6k 0xlV8+/u7lF0dXWnUmkp+wOfr9Hr9QFZBVAkk6nR0bG+vv5sdkg1Dg0NS/1/ cDCLj35/AAETiaSclYA4QPxMphXt0WhLa2sbWhBHK1s9iO7c7oaGBs+zzz4r 9cnbbrtdfNH+5psnAZJBy2uvvQYDxAkEgmq8sgTQ1tbW0hIL55//Nww8Eomi 61gsfuWV+2A8N7cTCSMBSU8P8oGBwX1ychKN3/nOXYb2559/HvloddTTlhMO F6nO6X2vvfY6KUjC3dJrciX1/+94PMqxEPt5l2vJd7q0yn3a5Xqtvv55t/u0 rhEGSd2VMJd/Ih3YXWm6+n+D4ZQ+mZN1dZbudvH7Csu2b+l1qw84p11Iy4Lx nrbqCAnr8zdHu1Y3OTJAeMHXkLZ+Pp/P/wTA0J5bjcr/zOH00m8Nl67cKbjw cDmd+2rmdp48+ZZccvp2Bxe0yx20kFtH+77Fd6Erg9tNlxhYXAZa4RrXuX6h zQASWDJk7QbEKBxccD9adoS7zGyMgDJw/MX/YB89Q/2c2N3C8LKbE0yymm0V GYnJwGXshY9OYR4aSA32Lz6Zf+NVqjEUi+1/5jE0zn3vbkvj9skxvfGe73/X bAwGrtwl9gd+8kOAg4nbbjLOg7b6gO4Qx+yIHgu5GQkhhBBCCCGEEEKIYK5m m0ml0l1d3YrOzi7Q0dEJEomklP09Hi9oaPC43Q2yCiBkMq3DwyPiKC2BQFA9 /N/e3oGWZDLV29vXrD297/M1CmIZDkcikaiU4tPpDCx/85vfvPHGG1LnR3fz 8/PPPvvc6dOnX331NYkP44WFhUOHDuEsPuL4hRdegHtLSwwBxWZubg7tu3bt jkZb0MXrr78BDKNGezyegNfevVdq9f85+QWEPknhgQdyVTjzvKERp/QtSAON zz33/G233SYxzV6SDEZ08uRJ1QgXjBRjRHshXxl4wL1YB369rt7BTFeX9q40 MsCx/tS3GzyWp+Z0z7fbhUWeljH1SdoZ6G0M7c/Vu9Wpb2uXhGW2r9YbZ2ml M+MwLYigivmnXS6Do1o1gI2hL7uYvbrlHrv22zxLBotLSArauAgtrzqcVTeR gI9S/Ld0UUVpuSmWTJ1OhlvAYGOXiZ2X9cxrN6D5FnZGOrK8B8HGjZP5hcXb PnqGhjm59tprzQbyn5J5TjC9DjOpvJBw4aNzoHvbrDx7b2jv37tT6vb6xonb Dkit3jIIMLTLIsKe7z8YbWvFX63+f8BgM33nbeglOWC8qORXA2Z7QgghhBBC CCGEEOKAoZRtR2trmyr7t7d36InF4lL2B/X17rq6euDxeMURLtnskPxYQFoi kagU/4eGhuGLlu7uHjmLOMpREQyGQHOz3+v14eDv//7vFxYW4vEEjGXzH/x9 4onvSyPs9++/Csejo2MwwEccP/zwIzgVjbb4/QGJiY+y/QWS0er/ORn6DQSC SA9ee/fuhfGOHXPyIwj1SwfFAw88AAOD+7e//W00fuUrt5kbJyY24nh+fv65 554zeEliCCgjku6UMaIp92V5IP+I+Ot1dQ5mqly8wzTzdqh69av19Xb9Pldf 34N4+UYEVx3ZhX09/5w8Itgl6ZCtZfy47tF6c1j9LIG4LuFVzMy847R8RbfW MKELeI2u3bKjJ6zmU585+lWn1Byav3SpEhsuSP2Fh4tT7iD9pejgkrsSTp+G ARwt+3r11VflwPKKlVMWl8Hrr8stUODVmJsK7QY038LOSEe4r+0McMdpq3XP ffQM1XjFF7ezfqoFZGI5JzI6TLVd5GuuudY8imVHZ0cgGh26YX+iv9fQ3jox KiV9fePmu+9Ey/hXDpjjiHG0LaNvRNj+vYspSf3f0teSldoTQgghhBBCCCGE EJ+plG1JIpGUp/2F9vaOtrZ2hd8f0Ir/blX8d7nq5FcAoLOza3AwC69kMiUt 4XBE1f9xjJZsdkgO4OXxeA29+7RSfJO23wXMtm/fsbCwcPXV16jNf3CAj2j8 8pe/AntpdOd+HoBYPq3+/7Ds8y+LCIJW/38QAUOhsNT/Df2ix5aWGLyuuGKv tsPGydeXSlnef3+uQPfEE0/gADz33HMwFhdDTHmqX45hDxskpjeQgYyPTwAc fOtb31aN+Nvd3aMal+X++nP1fwczVXzerk3XsnTrKvlXNzQU4gK266rcdjaq do3M7ZI8rXuKPub1WtrY9WuwF2K6HyYYZmBFMzPuOdfRuMfaXiWvH6D6mnC2 wMlUmc/X5lcc6uoNgzXkLHeN+Xpz+sryLg42cg2b7x3VlywQmG8EZWNxGWiF a9xHhU+F3IDmNJyRjjDMlYZdRYZqvLiF5WcF5rB2Ey7dYarP7+hWytD1+770 xivX/sN/0Tfma/I3mu2l/p8ZH7EL6OBrCbqGfeeWmfM1IkIIIYQQQgghhJDP A7JvjwPxeEKr+S8+9t/WlqO1tV2jLRAIqif/Vf0fB8odLn19A3BBHNXY0OCR nwzIRxiEQmEcdHR0+f0BQwJIEo2NjU3pdGtTUzNaZM+f/OY/z4oZjo8ceRUH p0+ffuaZZ5GDxF9YWHjooYdln39xF2Q/DfQbDIaknm/oFz3K7kB79lxhrv9L X8L999+vN5CaJxrRqT7gtm3btUWKL8vHsbFxrZj/Lb0NxoWByDHiSC/6RvSi 79qB+/Pb6b9eV+dgpirG2/JfhzPbdDvSFGJfuJeu/l/vkKQ6fnypmWV8NQkn XS67fk+eK8tbByxkZlY9wCP5xiOOX5Ml39JtbYQE1PqC+RvHVSeXaOHB5ao2 3xfmsGYbqWN78tc89PjjT9jZGGdpsbp+//lN1a4jZGhngBvNMvNVZKgfr0ya +d5Xc2VwlP9Prr766vM7upUi5fepb3xF37j7iVwNf+zLN5rt8/X/YbuADr5m stftk92HztdwCCGEEEIIIYQQQj4nSCnejlgsrt/qRz3z39raJm/UlTK+ofiv jyCvD8bflpaYalQusoc/IofDERwgLCwNOch7in2+RmQr+5AfOXLk9OnTavMf MXv22WfxcWxsDH9vvfVWiY92rf7/UDTaEgqF4SvGnZ1d8iB9MBjy+wPHj78O DP02aa8Ahtfu3Xu0Sto2u1k6dChXflQfYamVDR83mEmGaIe9MD8/j4HobbSa /xE5hiXskbksc+gbnb+1xazy2+kfd9U5mKkC8rN1dXAxM6Z9R+dGp9swp5A0 zF6WvQBVvsaxXZK5GciPSyt6uy1tVjQJOGXZr2UvhQzQzuZxq2Tsei+Qc+8O 0G2O1Ln0K1OXqPkid7p+CnCRS918Qeob5Yo130GWjrkJOZ4rXKP385uqXUd2 9/WXvrRYpVf/w3yUDA3jxT2+oO0ChP+vCpxMh/9/VjG6lTL25Ruknh9Kp/Tt u594QKvh32AxgZp9emzYLqaDr6J3z3YYiCXo2Dx9XoZDCCGEEEIIIYQQ8vlB nt434/F4k8mUZeVfqvTNzX5P/oW/qv4vJX090WhLZ2cXQiUSSdWotgnCX71x U1Nzb28fukNwfPT5GtHi9wdAOBxBKNnD/5vf/KZW7juu7fOz6Cvb/r/55pv4 iwgqGdj85Cc/iUSiwWAIAfXG27fvkJ2FjmsyZI4c0Cm8du/eDeOtW7d58nsT qdUTsTx06BAM9L5S3+vo6FQtSED2/TALkcUG9trixZfk4+hobi1DQiFhfebq owOH8g+WH3e5HMwWdHVjSxBHb3+rrvy+bA6Krbon1Vfaoz7J3EzqHnTHQcTK ZkWTcPzcukOdZadbTVe1w2w7TItlMna9H3HV4ZSBDlMm++vrDbP3rGn21CVq vsidRlSACy5duYaN39fSRrkrT58+jbvAzubchBw/LsbHbaS/rfSpOgj/Y9h1 hPvr0FI99tjjkrDd8MXRQbhzzV768ar/DdBRgZOp/pcoEOck0btlkpakRoek /D76pRsMp6Qyb24H4gJfu7AOvkJjMChBBNijZUWTQAghhBBCCCGEEEKkdG+g ocGTSqUtK/+q+C9lcFX/l3q7mUAgiCCJRBJeqtHlqqutdYGamlq9ZYO2aXk8 nggGQ2iJRKItLbFQKIzucKwsOzo6pIol+/woVElN1hckJXmJ5+zsJsRHwmgJ hyOwkR115GcFUlc0ZN7U1Iyu4bVrV67+v2XLVnkTMVqA3x9AVjLw++7LlR/1 vpKhPr1bb70VLSMjo3ozZII0lNmdd+bWNeCrDE6dOi3FOr0XWh577DHL2dZz n+tctdnBbNlqPOLo7e/UFbqXzUGxpc5Ypi68R32S8nFEF+2V/OgssypkElQF 3tCvCrjF5tq27MhhWiyTWbZ3PZaZqAjyK4CwZdf3LRbzC//KCnHBTSF3ovH7 WtqIy15aXnnliJ3NueEsV11Hp5apOggGq+gIdxnu0POSoXm8+/fvN+TmPJmW MR1YNknD/0V2BJKJAz/5oZTfzWfzNfzrzaekaJ8cydpFdvBVbPq7r8NMEgD7 nn50RZNACCGEEEIIIYQQQlSpXOF2NySTaW2f/3a1z38mI7Sm0xm/PyAvDjbU /y2BAbxALBaHvTRK5b+6ugbgWBrRY0dHp7wIQFrC4Wg8ngDNzf5YLKEPe+bM mYWFhRtvPIBkVO/PPPMMGh999DG9ZV9f/wcffDA//8GTTz65f/9Vd95556lT p2B2yy23Khv5KcF9S/XAAw8ODmYRf25uF+w3b94ixX+t8h9oasptSSS/YoAx DAwDl2TgJR/f1GSeH5iha4wax6+88gpy05/FWBZy6wjP6BvNZpbcly8LH3e5 HMxU6fgZl+s+KzZrP9NQbNYVupfNwdLrUZuOTp2r/xsTNvd4n67ovU/L0DKr QiZBV4F3WXZqmAFLbilgWiyTset93qr+b5mJfm7NU7fYtXaJ4jov/CsrxAWX txSTjd+XqVGiQfv27bezWZwQrXCNixzBLZGbxRzc8v5yQHWkv+vxURIbHh5x doTxirozj1fubtWX82Sq/0lWNDo126vD6/fve/rRxdf++v1mg12P52r4I7de bz6Vr/8P2gV38DUzcM1eCdi9a9tHGREhhBBCCCGEEELI5w2Xq05Pfb07mUzp n/aXrf6FRCIZCAQbG5sM9X9DEAPxeAIxI5EofKWlttZVVVWtUVVZWYWP0nU4 HIFlKpVubvajBS7pdAZ9yYEKiLMPPfTwBx98EAyGkIxq37x588LCwtDQsL53 vz+Alh/96EfqwddTp05deeU+vY0q+hk0PT2DvjZunJQanXrsv6mpGf1iBmQs 3/jGnTAwjBpzOD8///TTz8gxDAydCsgNZnIKB/fee5/hrNnxlltuMXdn5t7a xcLyMW167dDVlp3Mzk2yrvBeiH3hXsfyCd9rStjS903dQ+9BG5tCJsGu3xXN zIoG+LSuI9X4qH2Gy2ayrAGuK1wzx44dL/wrK8RF7jjcUMZ8NBmHfyxXkcZF jtvWzkaZGW6Ej56qXUcYgr4RucnPiBwSWEWGluNFX7IWib84lsk0z0m+/r95 Rd1Zjm6lzP7d1+Stu5GudkuDXY/fr9XwrzOfknJ9YnjQLriDr0My8PooIyKE EEIIIYQQQgj5vCH78AjyrH6+5r/4wL/2zH/usf9EIuX3B6T0ra//G4KYgUss Fg+HI5FIVBlXVVVXVFQqDC719W78jccT6Eha6rRfDQC324NMtIC5BQWxVDYq K9UeCkWCwbD8ZsE5TwPNzX4ZL2JKSvriP6Khl5qaWrCisJ8Y9+ZrwsdqnTJU peNNhYXdpHPJFpyM3svO5lje4F6TjaVvVtf+iu4heb3N3gL6VQY3f4SZ0Q+w 1cbmTasBPppvfNMmw0ABkZdNddOmzVJ7L/z62bv3SilNO9jce++9WuH9mDEf TYZG/K8ipXWxt7TJXQbHjmnV9XsLT9UuDWekI8yMZTQICTs4rihDu/Fms0PS /uijj8p3ZLaR7r7+9W+cl9EVTv/VV0gNv2vnFjsbqeEP33Kd+ZT4xocGVuFr CUJJzFWPiBBCCCGEEEIIIeRziFSwgdvdIMV/9bR/Op1RyJP/zc1+oK//6yPY 4dKe5Ad+fwC+0lhdXVNeXgHKyspLS8vKy8vNjujC3IJM4vGEvBcAaejP4qOU 6HFQX+9GS0ODR/bwR6Mq1xcCxiWhkLA4urU3AuuXP9CFbGFUeNhPknt09X8H M1U6ni04snK5xyry3pral03RZnVedmGP2Ye1871HV/a3tMnofG+y6nSvziD7 0WbGeVr0mezVtd+ka89YhVUGZ+2nbtlUcTtLbTmbzRb4LcNSXOBr+5VpReZH HnnUmI8mi7HcdLOc+vrXv25nIzHvuefeAvPMXQb3LNb/C3dRHc3ObjKfksfy n376aQfHFWXoMCeSvEyjpQ3SQOPLL79yvkZXCKGONim2T9xxq4MZzlrauBsb xR0Hdr75+v+1hvamWAsw28ey/RJzdSMihBBCCCGEEEII+XwiFWy3uyGdzqjd flTZP5VKg0QiGQyGpB4uNXB5bW5trUvcl8Xr9UkRHkFcrjpprKysKi0tKy0t 3bBhkYqKSrsIdbnXAUSQUjKZe/g/Gm1BKJW/vEdAupAn9uUUjiVzHBSeLXBp uwzJSNE1WhoaPIbfPtTmdzEqPOwnyT35svAx3SyZUaXjmZpCIx/WVaQHl57C x7OqDK7rF8FVR3Zhj9VYOBqSdPCyszmRbz9VW5teegofT+nOfsSZcZgWvy6N s0s78us6go3ffj4P23+PhaQqNe2XX37Z8uzXvpYryN90002Fu8zMzEq9GgfG fDRZeiEaTp09e9bOJl9dv6eQORdgLPX/wl1UR+bkAeZB0hsczJ6XDJ3n5MSJ Ews6rSgZ/OeGrwkRcFDg6Jal3ueTV+7ufOx+Z8u+q3bD7JoXfmBo79ixWTYO cvBFcNgM3XytoV26Tk+NG9rH/za31nDl4UdWMSJCCCGEEEIIIYSQzy1VVdUe jzeVyuRf75sDHzVyxf94PBEMhtV7b6UqDhfxLRAYNzY2iaPP16h8Kyoq16/f AEpK1itKS8vQLgY1NbVwjEZjra3tSE/LJ9nSEgsGQ7XnXiKQw+drkjo/Durq 6tFSq23+I4sC6LTwbIHb3aA2+UcOMkvax3MbH1VrSxhgRZE/MQ7mS+5Ha5y+ qXPF55qcpSUvL40wUF2tr7cfrqnZU10zU13zcM25YnWuFq27QmZ0NWq7TI7m Ez5oStjBN1VVre/UbLNH1zUskeSMVbZ7TNdzITNzQOdlNy0Yzildu3l0B3WL I7D8mua1x5RhqoAvccb+rtyz5wopIx8+fNhw6sCBxQrzww8/YtludhkYGJQa /tGjxyzy0WSZBm5GVfy3tEFAtB88eM8KLvWD99hl4oB0NDMzY3lWavKWMVeR ofOcqMm0s5GFGNjA0jCZkidO4f/GwkfnzJWHH5HqfZ3X62zpi0bkmfyhm6/R N17zwg/QOH3XHQ6+Ox87ZHAUtj5wl/QeaMuoxpbBPlkXMNsTQgghhBBCCCGE EAe8Xp8q+2sP/OdIJtPJZEqetA+FwsFgSL36FvZ1dfVS99aXvlWLHTU1tVrZ 3Ftf36Aq56C8vKKkZP26dSXr1q0rLhaK0SJn3e6G1tZ2+VUCEpOd/5GPoUeY +f1B2a4HvchZn69RPfzvctUvmyGoqKiUA4/HJ9V+RJMW7bH/3Ef11mO9/QXI wepz9X8HM/P+OZYYvG5cWus2AwO9/bSuRm2Xybn6f7UxYWffO5YmYzY4rFsC sOSwqccCZ8Ywt8tOi2VH4ETNMhka5tMu1WnHO/Hw4cNSYT516tTDDz98UJN6 +BwHuFMKcXnppZel8ezZs/39Axb5aLJLY3p6RtW6LS6Do0e16vrBFVzqBw9K MkfthZwtO0IyzkmaDcQRE+LQnTl/5zm5446vOcwJJlktEGAg8i3gq1GNN954 YBVJ7tmzx9xX7/5dUtK3ZOdjh+q8Hr392N/cIqeueeEHOCtVfXDjj3/ojYQd vjWxzN50jaEdXvCVIHufegRm+Ks+GnonhBBCCCGEEEIIIc4YtvoBUvlPJBYf sxdkD3zZrl9ThZS+q7RH9GtrXS5XXV1dPZA3/EqFX/+GX3nJb329uyr/5l84 yoEsARQVFSvWrSuRU7BXLyOQ9Qiv12cOq3b+kZf8SnC18z8azclYosYl+/x4 PF4kILsSqcf+pfiPYSr7C5O787XoozU1DmYF1v/Njrurqs5aWaLxxqUvdwZT uhq1XSaq/o/M7ZJc1tfO5g7TzwRUtneYsi18Zsxzazct4CHTuBSNFZUP2awd /EtNDWI6f9fKeGq56/zuuw8uWOmppw7jml+Ry9GjR5PJpHU+mhzSeOihh+1s pHCNTpe9wpfN0CDLjqampm0vKs3gxIkTlu3Ogs1K50SFtTzb19dv2CZI9C// cmr37j0O0RxkOcnZm652qP8DTzhkcBn7m5sNNte88AN/a9r5W9ty/3dg2bNv l/kUfPc+9bB56cHl8RR+VRBCCCGEEEIIIYQQoCv7q8p/rvgfjbY0NjbX1dWX l1ds2FC6fv0G/NVUVlZWrq0CVEj9v1p7Aa7U/+vr3W53g8fj9Xp9Pl+jPI2P RnnVrx6vtxF9wUy1IHJJSUlRUdHatUXFxeukETHlVwnIRx7FN8Sp1nbAVjv/ qL70O/8jN3MCVpTLQW2tSzb5V6seaFGP/dfXN8ibf9U8XJj4yismKytBQlun sKOvolLMnLFzv6Gy6qGq6qPVNQAH+OizsZQ4ffbJJPKZmCOoJJcdrEN830qy LXBm7OZ2l66jp6qr/7aqyvlbUDMAS9iL491V1btMF7xzqgVdGL7GG2648aGH Hjp69OhTTz119913434v3OWll16CS19fn1M+fX2Tk1POAWFgaYNk0A6DQsZi iOaAOWFJ0qEjCWt2lAydMU+pZahCujPkjMnHV4AvAge7du12/gpWmqQQ6e+2 ozmTsnRpCAV79u0cPHA1SEyMFPKtiUttQ4OdAfqSgDCz65cQQgghhBBCCCGE OCM1f/XMP4jHE9FoSyAQrK11VWqv6JUt+mUJQFsFKAPlup8AVGuv31VLAA0N Hv0SAFqkVK6ASzAYkt8ahMMROOrPSi9yjC7kSXtDBAGn1MZE6Aj9lmu/UHC7 G2TPItmwSBqXRS1twF2e9seBdC2D0or/bvmZA9plKgqJTAghhBBCCCGEEEII IYR8wsjT/rLbTzgclVf9BgIhHIBQCETC4QiO8w/zN8gGPmVldrsA5X4CoJYA vN7chjyyZKCoq6uPxXKvFY5EWlpa4vjr9wflvQDl2g8BlgVm6EJ7wn9x5x+p 8+MUguR3/sk9/I/cCgmoljYwrnzx34M8pS8cq+K/bHAkyyJqNYQQQgghhBBC CCGEEEIIuaCIRKLBYEgrofvxt7k5INvp+P2yCiDIQsDiWkA4HIUXgIE8YC+7 4mhLAHUu1+IuQG63R3bLLy+vlOq6noqKykAgiJiIgAPJwefLPcNfV1dfVVVt dlGgF8lNFf/lyX8tbJWsX8jOPwjlEEfP+pxy9fzq6hrZ6gejqKysQguSwTHA 0KT4j3YYl5SsLzA4IYQQQgghhBBCCCGEEPIJ4/M1+nxNjY2gualJkIUAWQsI auV0tRaw5EcBurWAFhCNyi8IQrJDTh53qW4HIQNVVdXoWltEaJQNdkBtbZ0U 2A1UVFTCxu8PaGmE1Dt/4bJBe0OBrCloqxIBjKKhwSvty1JSsn7duhI5rq9v 0Ir/DbJ2gJbaWpf22H89DkBNTW1ZWTlcQCHBCSGEEEIIIYQQQgghhJBPHtmi R1sFUAsBai1AfhSw+HOA/FqA4UcBEfWjANk+CAFramoVtbUuKZU7UKpt2iPv DoBLVVW1FNjhq71stwHJoC/0gr+yQ5H25H8AecJeguSf/A/Kk/8Y1IYNpct2 LRQXr1u3rkQLUul2Lxb/kZI84a8e+0df1dW59PQuhBBCCCGEEEIIIYQQQsgF iMtVV1/v1lYBfPLGXnlpr9DU1Jz/LYA/vy9QIP+LgKAsBOS3Bsrt5KO9IMAt bwQQKioq160rWRHr8w/ko3fZaEgq/1rxP6Re+CvP54tLba1LfwpDKC0tK7C7 4uLioqJiOZY1CNnkX4JjLOqx/+rqGlmbKC5ep1wIIYQQQgghhBBCCCGEkAuQ 4uJ1wvr1uVfZam/yddXVuXW/CLDcF2jJLwLw0ePxyW7/NTW15eUV5eWVFRU5 EFN1sVLQu/y+IL/hT27Df6RRV1e/fv0GsZEtjAzFfzQW2EVRUfHatUX4i+Oy sgpV/Mc8oKVE+w2C/JBBiv+VlVWYNOVCCCGEEEIIIYQQQgghhFyYFBUV21Gs VdcrKqrkBbgej9dyLcDna5J9+4XKyip5s3BZWbls4+PQhSDLEOZ2r9cXCIQ0 gujd5aorL6/Qe9XWuuSsbAek7fnvWb9+w7I9Ki6/fC2QY8SX4r/sWYQWdJev /NdUVlbL0NauLYKLLAEQQgghhBBCCCGEEEIIIRcma9cWrYgNG0pLS8urqqpd rnqvt1HbLd+tJ/9u3MX3CxQXr3OIhrMVFZUIVVZWYT4rEex8KyqqpOwvlf/G xmbEKSpy6s7A5Zevveyyy6WYX15e4XK5a2vrampcSElyk8q/PPaPxvLySjSK 10rnjRBCCCGEEEIIIYQQQgj5JJEH4FdHbW3ugXkD+T2FFvcXsutirbaUUF1d I+8Ixt+i/NP4dlx22eWXXnqZIHV7j8fX1NTc2Chv+y1bUfIqGo6RMDJXm/xL kV92Q9Iq/1Xl5ZXl5RVIWLykd0IIIYQQQgghhBBCCCHkguWyyy5fHfB1ueoM 1NTU6hYXcr8vsHRct66krKy8oqJS3hRcXZ2rupeWljn3uGbNX19yyRr8/eu/ vlSK8Aji9foqKqrQ3QrzvwxBgHysqqrRnvzPpSFFfgSUyr/22H+F7GWERnSs vAghhBBCCCGEEEIIIYSQCxb1RP1KKSpaV1vrMlBRUaUiX770iX1h7dqikpL1 2iZCuRcElJdXVFZWydb68IWLQ4+XXLLm4osvkSUAoJ7eX0Xya9acW0coLS1H 5rIGIfmjccOGMqn8AxggW6QNe+VFCCGEEEIIIYQQQgghhFzIyGPwq2DdupKa mloDGzaU2tlfpj1UX6S9t7ekZP369RtgLEsAsrsOjnHKoceLL77ki1+8GH+l /r/qzC+5ZI22ipCLUFy8rqYmV/zXtvqpXru2WBq1fHIplZaWI0/5UcCaNXBc s+p+CSGEEEIIIYQQQgghhJBPjDWrVUlJSbWmKp2Ki4svyUtvvLhfz+Xavv9F RTBbl18GKNW0YcOG9ZpgadejOewqdLEmiYOUZAci/K2oqEBKkmppXiorpA0X 5UhRFEVRFEVRFEVRFEVRFEVRF7guWa1KS0urlqqysvLSSy+9WCf9WsC5Xfsv v1yWAEpKSuC1YcMGHKzThEaptH9M+uIXv3jRRRfhr6SkL/5jOGKDZDbktX79 eslNfPUjoiiKoiiKoiiKoiiKoiiKoqgLWRevVmVlZRUmfdFK6rF5tQRQVFRU Xl5eqwlexcXFRZrWalqTf0r/PApp/JWmiy66SPJB/pWVleWaSktLpVP0vj4v tSqBtNXCwXlPjKIoiqIoiqIoiqIoiqIoiqI+DllW7AtRuZX+aqku0qTK5pdc csmll166YcOGqqqqap2Kioou13TZZZfBQOrt51HI4T9oQkqSTGlpaUVFBRIu KytDPmvWrEE7upayv1T+izUhK7jLWM5vVhRFURRFURRFURRFURRFURT18SlD URRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRF URRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRF URRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRF URRFURRFUReATr558uc///nx48d/+tOf/vhHPz5y5MjLL7384osv/sMLLxBC CCGEEEIIIYQQQggh5ALnxRdffPmll48cOfLjH/34pz/96fHjx3/+85+ffPPk O2+//Zu33vr1r3/9i1/84p9+9jO0Hzt69B//+z8SQgghhBBCCCGEEEIIIeQz wbGjR48fP/5PP/vZL37xi1//+te/eeutd95++8yZM+++++7b//z2b3/727dO vnXixIlfQb/85S//ByGEEEIIIYQQQgghhBBCLnR+9ctf/upXvzpx4sRbJ9/6 7W9/+/Y/v/3uu++eOXPmd7/73XvvvYeDU6dOoeWdd97BKfDPFEVRFEVRFEVR FEVRFEVRFEVd8JKq/jvvvPPuu++eOnXqzJkz77333u9+97v5+fn333//97// PY7/9b33/pem/0lRFEVRFEVRFEVRFEVRFEVR1GdEUtv/V63s//vf//7999+f n5//8MMP//CHP3zwwQc4Pgu9T1EURVEURVEURVEURVEURVHUZ0xnwdmz8/Pz H3zwwR/+8IcPP/zwL3/5y5///Oc//elPf/zjHz+kKIqiKIqiKIqiKIqiKIqi KOozqz/+8Y9/+tOf/vznP//lL3/5P3n9b4qiKIqiKIqiKIqiKIqiKIqiPuNS Zf//l9f/pSiKoiiKoiiKoiiKoiiKoijqMy5V9v//HbEPBg== "], {{0, 71}, { 2048, 0}}, {0, 255}, ColorFunction -> RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> ColorProfileData[CompressedData[" 1:eJydlndUVNcWxs+9d3qhzTAUKUPvXWAA6b1Jr6IyzAwwlAGGGRDEhogKRBQR aYoiUQEDRkORWBHFQkCw14AEETUGo4iK5d2RtaIrL++9vHx/nPW75+x97jnf 3netq5GQEZoIAwCyCegQys51FQrZeWEY9MEtT8RLgFDwoaADoPgE8AUZsAwA 6QKRMNTbjRkdE8vEDwIYEAEOWADA5mRnBoZ5hUuifT3dmdloEPgidKvXNyQj AFdNfIKZTPD/SZaTKRSh2wSjbMXlZXNQLkI5LVeUKZmfRpmekCphWHJ+uhA9 IMqKEk6aZ+PPMfPsImFuuoCLsuTMmdx0roT7UN6UI+ahjASgXJzD5+WifA1l 7TRxOh/lN5LcdB47GwCMxB1tEY+TjLK5xChheKg7yosAIFCSvuKEr1jEWyGS XMo9IzNPyE9KFjH1OQZMCzs7FtOHl5vGE4lMgtmcVLaQy3TPSM9kC/IAmL/z Z8lJvGWiJttY2NnYmFiaWnxl1H9d/JuS1HaeXoZ8rhnEGPgy91dxGY0AsGZQ b7Z+mUuoAaBrAwCKd77Mae8BQBqtW+fQV/dhSPolWSTKtDczy83NNeXzOKYS Q//Q/wz4G/rqfaaS7f6wh+nBS2SL00RMiW+cjLQMsZCZncnm8Jgmf27if5z4 1+cwDuUl8oQ8AZoRiXYZX5CEllvA5Yv4GQImX/CfivgP0/6k+b5GRWv6COjL TYHMEB0gvw4ADI0MkLjd6Ar0R90CiJFA8uVFqU/O9/1nQf++K1wuGbL5SZ/z 3EPDmRyxMGd+TfJZAiwgAWlAB0pADWgBfWACLIEtcAAuwBP4gSAQDmLAMsAB ySAdCEEuKADrQDEoBVvBDlALGkATaAZt4AjoAsfBGXAeXAZXwHVwF4yCCfAU TIPXYA6CIDxEhWiQEqQO6UBGkCXEgpwgTygACoVioHgoCRJAYqgAWg+VQhVQ LbQXaoa+h45BZ6CL0DB0GxqDpqDfoXcwAlNgOqwK68JmMAt2hf3hcHgpnARn wflwEbwFroYb4UNwJ3wGvgxfh0fhp/AMAhAywkA0EBOEhbgjQUgskogIkdVI CVKFNCJtSA/Sj1xFRpFnyFsMDkPDMDEmGAeMDyYCw8FkYVZjyjC1mIOYTkwf 5ipmDDON+YilYlWwRlh7rC82GpuEzcUWY6uw+7Ed2HPY69gJ7GscDsfA6eFs cT64GFwKbiWuDLcL1447jRvGjeNm8Hi8Et4I74gPwrPxInwxvgZ/CH8KP4Kf wL8hkAnqBEuCFyGWICAUEqoILYSThBHCJGGOKEPUIdoTg4hcYh6xnNhE7CEO ESeIcyRZkh7JkRROSiGtI1WT2kjnSPdIL8lksibZjhxC5pPXkqvJh8kXyGPk txQ5iiHFnRJHEVO2UA5QTlNuU15SqVRdqgs1liqibqE2U89SH1DfSNGkTKV8 pbhSa6TqpDqlRqSeSxOldaRdpZdJ50tXSR+VHpJ+JkOU0ZVxl2HLrJapkzkm c1NmRpYmayEbJJsuWybbIntR9rEcXk5XzlOOK1ckt0/urNw4DaFp0dxpHNp6 WhPtHG2CjqPr0X3pKfRS+nf0Qfq0vJz8QvlI+RXydfIn5EcZCEOX4ctIY5Qz jjBuMN4pqCq4KvAUNiu0KYwozCouUHRR5CmWKLYrXld8p8RU8lRKVdqm1KV0 XxmjbKgcopyrvFv5nPKzBfQFDgs4C0oWHFlwRwVWMVQJVVmpsk9lQGVGVU3V WzVTtUb1rOozNYaai1qKWqXaSbUpdZq6kzpfvVL9lPoTpjzTlZnGrGb2Mac1 VDR8NMQaezUGNeY09TQjNAs12zXva5G0WFqJWpVavVrT2uragdoF2q3ad3SI OiydZJ2dOv06s7p6ulG6G3W7dB/rKer56uXrterd06fqO+tn6TfqXzPAGbAM Ug12GVwxhA2tDZMN6wyHjGAjGyO+0S6jYWOssZ2xwLjR+KYJxcTVJMek1WTM lGEaYFpo2mX63EzbLNZsm1m/2Udza/M08ybzuxZyFn4WhRY9Fr9bGlpyLOss r1lRrbys1lh1W71YaLSQt3D3wlvWNOtA643WvdYfbGxthDZtNlO22rbxtvW2 N1l0VjCrjHXBDmvnZrfG7rjdW3sbe5H9EfvfHEwcUh1aHB4v0lvEW9S0aNxR 05HtuNdx1InpFO+0x2nUWcOZ7dzo/NBFy4Xrst9l0tXANcX1kOtzN3M3oVuH 26y7vfsq99MeiIe3R4nHoKecZ4RnrecDL02vJK9Wr2lva++V3qd9sD7+Ptt8 bvqq+nJ8m32n/Wz9Vvn1+VP8w/xr/R8GGAYIA3oC4UC/wO2B9xbrLBYs7goC Qb5B24PuB+sFZwX/GIILCQ6pC3kUahFaENofRgtbHtYS9jrcLbw8/G6EfoQ4 ojdSOjIusjlyNsojqiJqNNoselX05RjlGH5Mdyw+NjJ2f+zMEs8lO5ZMxFnH FcfdWKq3dMXSi8uUl6UtO7Fcejl7+dF4bHxUfEv8e3YQu5E9k+CbUJ8wzXHn 7OQ85bpwK7lTPEdeBW8y0TGxIvFxkmPS9qSpZOfkquRnfHd+Lf9Fik9KQ8ps alDqgdRPaVFp7emE9Pj0YwI5QaqgL0MtY0XGcKZRZnHmaJZ91o6saaG/cH82 lL00u1tER3+mBsT64g3isRynnLqcN7mRuUdXyK4QrBjIM8zbnDeZ75X/7UrM Ss7K3gKNgnUFY6tcV+1dDa1OWN27RmtN0ZqJtd5rD64jrUtd91OheWFF4av1 Uet7ilSL1haNb/De0FosVSwsvrnRYWPDJswm/qbBzVabazZ/LOGWXCo1L60q fV/GKbv0jcU31d982pK4ZbDcpnz3VtxWwdYb25y3HayQrcivGN8euL2zkllZ Uvlqx/IdF6sWVjXsJO0U7xytDqjurtGu2Vrzvja59nqdW117vUr95vrZXdxd I7tddrc1qDaUNrzbw99za6/33s5G3caqfbh9OfseNUU29X/L+rZ5v/L+0v0f DggOjB4MPdjXbNvc3KLSUt4Kt4pbpw7FHbryncd33W0mbXvbGe2lh8Fh8eEn 38d/f+OI/5Heo6yjbT/o/FDfQeso6YQ68zqnu5K7RrtjuoeP+R3r7XHo6fjR 9McDxzWO152QP1F+knSy6OSnU/mnZk5nnn52JunMeO/y3rtno89e6wvpGzzn f+7Cea/zZ/td+09dcLxw/KL9xWOXWJe6Lttc7hywHuj4yfqnjkGbwc4h26Hu K3ZXeoYXDZ8ccR45c9Xj6vlrvtcuX198ffhGxI1bN+Nujt7i3np8O+32izs5 d+burr2HvVdyX+Z+1QOVB40/G/zcPmozemLMY2zgYdjDu+Oc8ae/ZP/yfqLo EfVR1aT6ZPNjy8fHp7ymrjxZ8mTiaebTuWfFv8r+Wv9c//kPv7n8NjAdPT3x Qvji0+9lL5VeHni18FXvTPDMg9fpr+dmS94ovTn4lvW2/13Uu8m53Pf499Uf DD70fPT/eO9T+qdP/wJOwPvu "], "RGB", "XYZ"], Interleaving -> True], Selectable -> False], BaseStyle -> "ImageGraphics", ImageSizeRaw -> {2048, 71}, PlotRange -> {{0, 2048}, {0, 71}}]], "", PageWidth -> DirectedInfinity[1], CellMargins -> 0, CellChangeTimes -> {{3.544379162237352*^9, 3.544379175555642*^9}, 3.574009622854604*^9, 3.5740096771925993`*^9}, Magnification -> 1.]}], Cell[ BoxData[ GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJztnWmQXNWV5x0z82E+TWNQA6pSSbVXZVVWZlZV7pV77XvWrtq0lxaExI5Y bIO7sY0XpgMBAjwedhPtGcTmiaBZBLYjPC0J3GGPbSHsiIagJU0MbUegIoyX WWr++U7l1au3VVYhQAT/f/xU8fK+c8499+Z7+nDuy/vKtl01vPPffOELX7ju 3+PP8NYD6Wuv3XrzyL/Dh8zN189t+7c46MS/L+B07rijo2vVzM5uNjMwkO3p 6QXd3Tm6unrs3NvbOzOZtmQynUikQFtbh3N3iUQyFkvgL1zS6Vb9qZ6ePkuX sbFxpDQzMzsxMdnZ2V340BBwx46d27btgBf6MoDMP8q8EUIIIYQQQgghhBBC CCEfN+3tnQXS09M3MJAdHR2fmprZunX73Nwu/J2enjUwNDTS2dmtKKCLjkym LZXKLJtAa2t7Ot0q6wVwUe3Dw6NIZmRkzNIL7cgKOdsZ2DE+vnHHjp0Yr6Qn pNOgFZmsKBQhhBBCCCGEEEIIIYQQ8gnT2tZhSXtHV3dPX3ZoZHRsYuPk9Jat 28HWbTvAtu1zYPuOnQAHU9OzMFAMDA7ZxVwpPb39ff2DvX0DhvZMaztQeSKN uZ27d8ztmp7ZhI/mOBgFEhufmFxRbgglo25r70wk0yCZAhnhfI2REEIIIYQQ QgghhBBCCPk4kFo66Oru7e0bGMwOj45NTE7NTM9smpndDGY3bQGbNm/dvGWb 3SoAzCY2TgnZoZF0pk2jVVBdrBSEndu5W1YZcDw2vrGvf1CfMxgaHpXiv5gh z86uHkMcuIyMjsMdQ8MwC09geGQMI8XfZCojSwAKDHDV4yKEEEIIIYQQQggh hBBCPm4Gs8PDI2PjE5MTG6fkAf7JqZmp6VkwPbNJvwqwafNWWQWQhQDDKgAa EQFxskMjyZSxVL460PuOuV2Ij44QH2kgK/QyMDjU3tElNq1tHUhYiv/KrKOz 2xAKIx0ZHQdDw6Nwce43o62GSHDExNhT6dZ4IqXno4yLEEIIIYQQQgghhBBC CPm4GRvfKMgSgH4VQBYC1CqA+iGAfhVAFgJkCQDHcMwOjcTiST3JVCaVbi2Q RDIVTyTjiRSOR8cmkADSkEf3JUkwMjo+mB3u7unLtLaLV/9AVvJBbkgSLu0d XYbIaBkeGRsaHu3rH3RIoKu7F0MAEgH9IixckJJ+UJIhIYQQQgghhBBCCCGE EHJhMjU1Mz6+cWxsAn8nJibBxo1TYHJyGuAskBf7zs5uBps2bQGbN28FW7Zs A1u3bgfbtu3Yvn0OZtnscEtLXE8ymVbvz7UkkUhFo7FQKOL3B5ubA01N/kAg hPbOzu7e3n4EHBkZQ2LIZHR0fHBwaGAgi799fQNtbR0qSEdHl+SGJJEG7PVn hZ6evqGhEfiaTwloR1/Dw6PoFF1LWIwRk4NRxGIJIR5PAqTtPC5CCCGEEEII IYQQQggh5NNi27YdYNOmLZOT0+PjG51XAWZmNgG1CoBjnB0ZGRsYyHZ2dqe0 Sn4slohGY+FwVBGPJ5LJtCUwhkEwGA4EQqC5OdDc7Nfq/0GzcSbT1t3dm80O Dw4OdXX1oEeDQWtrO3JGVsgWB0gMKekN8LG/fxDZ9vb226WE4LJGAMt0uhUt GOOWLdsQPBaLa5xbBbALQgghhBBCCCGEEEIIIYR8usjT+8KWLdtmZjZt3Dil FgIMqwD4i0acGh4e7e8f7Onp6+rq6ejoam1tl1J5PJ5saYlL/T8UCgv4mEik DMAyEmkJhSLBYDgYzBX/tYf/c8X/5uYAGs0uira2DvSLHi1PSbbIc2xsoq9v wGCAVJE52nFgGby9vTObHR4YyMIGx2jBwebNW/E3FosbftrgkCQhhBBCCCGE EEIIIYQQ8inS1zcg2/hs3rxVnuqXLXTkEXrZGmh0dFx2xRFUebynp6+zs7u9 vVPV/2OxREtLPBJpkaf6BXyUDXMUyiYUCsvD/2KGdoOlHbLWYEkm0yaZI+2h oRHkZjDo7u7t7e3v6uqxdMec9PcPAmWDvjAnCCg/bdCj9gIihBBCCCGEEEII IYQQQi4oWmKJ7NDI7KYtM7ObBXnhL5iant04OT00PCrvw1UMZof7B7K9fQPd PX0dnd1t7Z2Z1vZkKhNPpBAtEo2FIy3BUCT3SL9GKBxFuyKqGaAxKA//hyLR lrjeAHEkFEhpL+RNZ9r0BrnXFkzPol3fqAdZjY5NDI+MIVXkGdOGqUCqyBzu OLBzl9HBRjIZn5jEzOAYmQsRIRqzy4EQQgghhBBCCCGEEEII+RSJtsTBYHZY Cv7C5NSMsHFyemLjlNT89fQPZHt6+7u6ezs6u1vbOtKZNkP9f7FIHo1JfD3n iv+hiN4gkUwjVHtHF/6m0q3SiOPZTVuQ0vDIWGdXTyyeRCMOkC1yQw6GyM3+ oBz39Q8ODY8ODA7hINPabsgBaSMIgpvTAxiLjA42kkl3Tx96RG6SfDgi5MZo GYEQQgghhBBCCCGEEEII+XSJRGNC/0BW1fyFiY1TwujYxMDgkNTSFVIhb+/o SmfaEsm0LCWoaM5I/V99jMWTHZ3d8rw9DiSmnMq0ts/MbkZWyGEwOwybeCKF 9ta2jrHxjcMjYzAWSwT0eH0NHq8/EJKY2aER+Z1CZ1ePITckLL9csMsZHcEL NkgAH5OpzNT0LEaNzEPhiEZUKHDIhBBCCCGEEEIIIYQQQsgnitrKJtLS3z8o L/ydmJgU5EXA8sLfvr6B3t7+np6+7u7erq6ezs7uZDKtd18d6XSrvE0AwVXk TKZNzuJgZmbT5OT06Oj44OAQDGKxhJxKJFLZ7DC8UqlMOBxtaPACj8fr9Tbi IwwQR23jb0g1Go11dHS1tXXEtdcQm2lv74S72ES1WZqenh0ZGdPeWRDRI30R QgghhBBCCCGEEEIIIRcU4XBUT29vv6r5j41NCPL+32x2WIrzHR1d7e2dbW0d ra3tsVjCEGFFpNOtCDs4ONTfPyhLALKs0NISF4NoNIZecGp4eHRgIItO9e7o vbu7V4wbG5s8Hq/H4wNNTX60oF29pDiTaTN3jcjoyzKxVCojw4RN7oUF4SgS mJqa0b/XWJAlAEIIIYQQQgghhBBCCCHkgsLwNDvo7u4dHR0XRkbGwPDwqNDf P6gq/+l0ayqVSSbT0WjMHKQQEGFoaETq/wMD2Z6evlgsYWcc0X4L4GAQDIa1 4v/iEoBU5pEnhtPR0YUDRNDbIxQCIgfLaC0tcRmp6rSrq2dqaiYeTwYCIT3S ESGEEEIIIYQQQgghhBByQWF4ml3o6uqRsv/Q0IiQzQ4LPT19qvKfSKTi8aQ8 fm8Zx4FoNKYiDw4OoUdzMu3tnQ4RfL4mqfMrmpqaZRcg0NTkR0sslkBkxMlk 2pCn3jis/QRA9g6yjK+WORAEH3E8OTmNUQcCIb8/qJAlAEIIIYQQQgghhBBC CCHkgsLwNLuio6NLq8wLQwMDQra/P9vV1ROPJ2OxREtLXPbGlxK6XShLtC19 xoaGRrPZke7uXv2p5uaA1NV7ewfi8ZQ0hsO5XpAAwFmv1+d2e0BTk396ejaT aZOyvKr/j49vlEb8TaUyiURq7959u3fvAYggMbUljNx7ASSsIcN0ujWdbksm MxgpvPbvv/qrX/3b66+/cdeu3Tt37sbfqalpWQJAFxJZQD7OY0dfzjaW+aCX ZSN/KuxualZktC/uggXpfWLZrq6jgeaA3vFjTC9/ucpt8jG5kPMO/mco8P+Z j0jn9MbZb/3NFU/+JzD51VsSXV0Oxtn9e3b+54NiDC9nYxV/9MA1kYTxF1UC IuCsBNx6z7cQ/1OfeUIIIYQQQgghhJDPIs3+gB2tbe39A4Ogr39A6O3rF9ra O8KRaCgcCYbCgWDIHwg6xEGEru6eSLQFltLSEosPj4wODY+AgcGsam9sam7w eOvdDV5fIz5mWtt6evvQC7rDAfp6/oc/nJ+f9zU21bvdMAPRlpaFhYXXXvuR RPB4fe4Gz9Zt29A4t3OXNF53/fXwWtDp+08+KWnE4gnEf0OTIe14IplMpfF3 3/79CzZqavaDB7/7XfOpt956a3Jq2nJCTp85A4P+/gG7GUO2cDc0YuzwSqUz li6TTc0LtbUFcpfXe64vl2tZe9iYe0w1+59vaDAbo7G/qdkuPctQwmtutzk9 Q5IPejy2k6bZ2MVHSoVna+h00sbAEpkW86y+UV+/E9e3vSPOwsY884iGmJYT BXvLULd7fXazjatOLiS9cPHv3LXbLjFLF1yft9/+VYcLGHIwUDbmdtybdreb krrfBdzgy7qY+0IQS0vcnpiQu+76j3b3mp2jXvI/jHm8dv8nyDxb3vjnvtbb vyr/degHhf98LPMsJEmM0bKjcCI+972DX3rjFQMD+ywuEhjvf+bxAo3N8UcO XG02gO+Bn/w3Q0D0AkeHK4oQQgghhBBCCCGEWNDsd6C1ta2vrx/09vYJPT29 QibTGgyGAoGgXwvS1NTc2NiEv4YIoVB4fHyiv38AfyORqDR2dnaNjIwOD4+A RCKJFoSCr8/XiCDKF110d/eg03g80d7egZbbb799YWFhcnLK4/G63Q3gqquu llpWKpWGAdzReOjQ/WiRyDBe0MqV1113PWzw8bXXXssV6L7/ZDgcicXiyGqx /r8085aWWDKZQtf79u3XamV3ofdbbrllbm6nAjmDBx/M1f8Rf+fOXQKMpdzX 399vCIuz+eLbXZZzLgkv5BYIlvjKEgZ6sfTa6WssvP7/YINHORboYkyysclh 4QCnJnXfoyE9u4tNVb/16ZmTNEQ221hOjnO2MHAIaHnW+rtznBZwu9dr6Yh2 5/UX/aj1k3mdz2cIlWpqPrdcsnQmcWnpF8JwzZ8+fa6ejMvbnBiuNweX55// ofV3ka9Om69/g43FZfDGG8sWrg13q9yAy2qlHeXK9ZNT5yVDNV7MnvxPZXGV 5v9nsDyLqVbBEUSfA/5zM8csJEnMm2Vfc9+7W0ruWw9+c+PtN4HrXvyv0tI+ OW4wvuLJ7xZuDNCoDADszQZyCmYSEJGlBX0VeCcSQgghhBBCCCGEEEEq2A6k 0xlV8+/u7lF0dXWnUmkp+wOfr9Hr9QFZBVAkk6nR0bG+vv5sdkg1Dg0NS/1/ cDCLj35/AAETiaSclYA4QPxMphXt0WhLa2sbWhBHK1s9iO7c7oaGBs+zzz4r 9cnbbrtdfNH+5psnAZJBy2uvvQYDxAkEgmq8sgTQ1tbW0hIL55//Nww8Eomi 61gsfuWV+2A8N7cTCSMBSU8P8oGBwX1ychKN3/nOXYb2559/HvloddTTlhMO F6nO6X2vvfY6KUjC3dJrciX1/+94PMqxEPt5l2vJd7q0yn3a5Xqtvv55t/u0 rhEGSd2VMJd/Ih3YXWm6+n+D4ZQ+mZN1dZbudvH7Csu2b+l1qw84p11Iy4Lx nrbqCAnr8zdHu1Y3OTJAeMHXkLZ+Pp/P/wTA0J5bjcr/zOH00m8Nl67cKbjw cDmd+2rmdp48+ZZccvp2Bxe0yx20kFtH+77Fd6Erg9tNlxhYXAZa4RrXuX6h zQASWDJk7QbEKBxccD9adoS7zGyMgDJw/MX/YB89Q/2c2N3C8LKbE0yymm0V GYnJwGXshY9OYR4aSA32Lz6Zf+NVqjEUi+1/5jE0zn3vbkvj9skxvfGe73/X bAwGrtwl9gd+8kOAg4nbbjLOg7b6gO4Qx+yIHgu5GQkhhBBCCCGEEEKIYK5m m0ml0l1d3YrOzi7Q0dEJEomklP09Hi9oaPC43Q2yCiBkMq3DwyPiKC2BQFA9 /N/e3oGWZDLV29vXrD297/M1CmIZDkcikaiU4tPpDCx/85vfvPHGG1LnR3fz 8/PPPvvc6dOnX331NYkP44WFhUOHDuEsPuL4hRdegHtLSwwBxWZubg7tu3bt jkZb0MXrr78BDKNGezyegNfevVdq9f85+QWEPknhgQdyVTjzvKERp/QtSAON zz33/G233SYxzV6SDEZ08uRJ1QgXjBRjRHshXxl4wL1YB369rt7BTFeX9q40 MsCx/tS3GzyWp+Z0z7fbhUWeljH1SdoZ6G0M7c/Vu9Wpb2uXhGW2r9YbZ2ml M+MwLYigivmnXS6Do1o1gI2hL7uYvbrlHrv22zxLBotLSArauAgtrzqcVTeR gI9S/Ld0UUVpuSmWTJ1OhlvAYGOXiZ2X9cxrN6D5FnZGOrK8B8HGjZP5hcXb PnqGhjm59tprzQbyn5J5TjC9DjOpvJBw4aNzoHvbrDx7b2jv37tT6vb6xonb Dkit3jIIMLTLIsKe7z8YbWvFX63+f8BgM33nbeglOWC8qORXA2Z7QgghhBBC CCGEEOKAoZRtR2trmyr7t7d36InF4lL2B/X17rq6euDxeMURLtnskPxYQFoi kagU/4eGhuGLlu7uHjmLOMpREQyGQHOz3+v14eDv//7vFxYW4vEEjGXzH/x9 4onvSyPs9++/Csejo2MwwEccP/zwIzgVjbb4/QGJiY+y/QWS0er/ORn6DQSC SA9ee/fuhfGOHXPyIwj1SwfFAw88AAOD+7e//W00fuUrt5kbJyY24nh+fv65 554zeEliCCgjku6UMaIp92V5IP+I+Ot1dQ5mqly8wzTzdqh69av19Xb9Pldf 34N4+UYEVx3ZhX09/5w8Itgl6ZCtZfy47tF6c1j9LIG4LuFVzMy847R8RbfW MKELeI2u3bKjJ6zmU585+lWn1Byav3SpEhsuSP2Fh4tT7iD9pejgkrsSTp+G ARwt+3r11VflwPKKlVMWl8Hrr8stUODVmJsK7QY038LOSEe4r+0McMdpq3XP ffQM1XjFF7ezfqoFZGI5JzI6TLVd5GuuudY8imVHZ0cgGh26YX+iv9fQ3jox KiV9fePmu+9Ey/hXDpjjiHG0LaNvRNj+vYspSf3f0teSldoTQgghhBBCCCGE EJ+plG1JIpGUp/2F9vaOtrZ2hd8f0Ir/blX8d7nq5FcAoLOza3AwC69kMiUt 4XBE1f9xjJZsdkgO4OXxeA29+7RSfJO23wXMtm/fsbCwcPXV16jNf3CAj2j8 8pe/AntpdOd+HoBYPq3+/7Ds8y+LCIJW/38QAUOhsNT/Df2ix5aWGLyuuGKv tsPGydeXSlnef3+uQPfEE0/gADz33HMwFhdDTHmqX45hDxskpjeQgYyPTwAc fOtb31aN+Nvd3aMal+X++nP1fwczVXzerk3XsnTrKvlXNzQU4gK266rcdjaq do3M7ZI8rXuKPub1WtrY9WuwF2K6HyYYZmBFMzPuOdfRuMfaXiWvH6D6mnC2 wMlUmc/X5lcc6uoNgzXkLHeN+Xpz+sryLg42cg2b7x3VlywQmG8EZWNxGWiF a9xHhU+F3IDmNJyRjjDMlYZdRYZqvLiF5WcF5rB2Ey7dYarP7+hWytD1+770 xivX/sN/0Tfma/I3mu2l/p8ZH7EL6OBrCbqGfeeWmfM1IkIIIYQQQgghhJDP A7JvjwPxeEKr+S8+9t/WlqO1tV2jLRAIqif/Vf0fB8odLn19A3BBHNXY0OCR nwzIRxiEQmEcdHR0+f0BQwJIEo2NjU3pdGtTUzNaZM+f/OY/z4oZjo8ceRUH p0+ffuaZZ5GDxF9YWHjooYdln39xF2Q/DfQbDIaknm/oFz3K7kB79lxhrv9L X8L999+vN5CaJxrRqT7gtm3btUWKL8vHsbFxrZj/Lb0NxoWByDHiSC/6RvSi 79qB+/Pb6b9eV+dgpirG2/JfhzPbdDvSFGJfuJeu/l/vkKQ6fnypmWV8NQkn XS67fk+eK8tbByxkZlY9wCP5xiOOX5Ml39JtbYQE1PqC+RvHVSeXaOHB5ao2 3xfmsGYbqWN78tc89PjjT9jZGGdpsbp+//lN1a4jZGhngBvNMvNVZKgfr0ya +d5Xc2VwlP9Prr766vM7upUi5fepb3xF37j7iVwNf+zLN5rt8/X/YbuADr5m stftk92HztdwCCGEEEIIIYQQQj4nSCnejlgsrt/qRz3z39raJm/UlTK+ofiv jyCvD8bflpaYalQusoc/IofDERwgLCwNOch7in2+RmQr+5AfOXLk9OnTavMf MXv22WfxcWxsDH9vvfVWiY92rf7/UDTaEgqF4SvGnZ1d8iB9MBjy+wPHj78O DP02aa8Ahtfu3Xu0Sto2u1k6dChXflQfYamVDR83mEmGaIe9MD8/j4HobbSa /xE5hiXskbksc+gbnb+1xazy2+kfd9U5mKkC8rN1dXAxM6Z9R+dGp9swp5A0 zF6WvQBVvsaxXZK5GciPSyt6uy1tVjQJOGXZr2UvhQzQzuZxq2Tsei+Qc+8O 0G2O1Ln0K1OXqPkid7p+CnCRS918Qeob5Yo130GWjrkJOZ4rXKP385uqXUd2 9/WXvrRYpVf/w3yUDA3jxT2+oO0ChP+vCpxMh/9/VjG6lTL25Ruknh9Kp/Tt u594QKvh32AxgZp9emzYLqaDr6J3z3YYiCXo2Dx9XoZDCCGEEEIIIYQQ8vlB nt434/F4k8mUZeVfqvTNzX5P/oW/qv4vJX090WhLZ2cXQiUSSdWotgnCX71x U1Nzb28fukNwfPT5GtHi9wdAOBxBKNnD/5vf/KZW7juu7fOz6Cvb/r/55pv4 iwgqGdj85Cc/iUSiwWAIAfXG27fvkJ2FjmsyZI4c0Cm8du/eDeOtW7d58nsT qdUTsTx06BAM9L5S3+vo6FQtSED2/TALkcUG9trixZfk4+hobi1DQiFhfebq owOH8g+WH3e5HMwWdHVjSxBHb3+rrvy+bA6Krbon1Vfaoz7J3EzqHnTHQcTK ZkWTcPzcukOdZadbTVe1w2w7TItlMna9H3HV4ZSBDlMm++vrDbP3rGn21CVq vsidRlSACy5duYaN39fSRrkrT58+jbvAzubchBw/LsbHbaS/rfSpOgj/Y9h1 hPvr0FI99tjjkrDd8MXRQbhzzV768ar/DdBRgZOp/pcoEOck0btlkpakRoek /D76pRsMp6Qyb24H4gJfu7AOvkJjMChBBNijZUWTQAghhBBCCCGEEEKkdG+g ocGTSqUtK/+q+C9lcFX/l3q7mUAgiCCJRBJeqtHlqqutdYGamlq9ZYO2aXk8 nggGQ2iJRKItLbFQKIzucKwsOzo6pIol+/woVElN1hckJXmJ5+zsJsRHwmgJ hyOwkR115GcFUlc0ZN7U1Iyu4bVrV67+v2XLVnkTMVqA3x9AVjLw++7LlR/1 vpKhPr1bb70VLSMjo3ozZII0lNmdd+bWNeCrDE6dOi3FOr0XWh577DHL2dZz n+tctdnBbNlqPOLo7e/UFbqXzUGxpc5Ypi68R32S8nFEF+2V/OgssypkElQF 3tCvCrjF5tq27MhhWiyTWbZ3PZaZqAjyK4CwZdf3LRbzC//KCnHBTSF3ovH7 WtqIy15aXnnliJ3NueEsV11Hp5apOggGq+gIdxnu0POSoXm8+/fvN+TmPJmW MR1YNknD/0V2BJKJAz/5oZTfzWfzNfzrzaekaJ8cydpFdvBVbPq7r8NMEgD7 nn50RZNACCGEEEIIIYQQQlSpXOF2NySTaW2f/3a1z38mI7Sm0xm/PyAvDjbU /y2BAbxALBaHvTRK5b+6ugbgWBrRY0dHp7wIQFrC4Wg8ngDNzf5YLKEPe+bM mYWFhRtvPIBkVO/PPPMMGh999DG9ZV9f/wcffDA//8GTTz65f/9Vd95556lT p2B2yy23Khv5KcF9S/XAAw8ODmYRf25uF+w3b94ixX+t8h9oasptSSS/YoAx DAwDl2TgJR/f1GSeH5iha4wax6+88gpy05/FWBZy6wjP6BvNZpbcly8LH3e5 HMxU6fgZl+s+KzZrP9NQbNYVupfNwdLrUZuOTp2r/xsTNvd4n67ovU/L0DKr QiZBV4F3WXZqmAFLbilgWiyTset93qr+b5mJfm7NU7fYtXaJ4jov/CsrxAWX txSTjd+XqVGiQfv27bezWZwQrXCNixzBLZGbxRzc8v5yQHWkv+vxURIbHh5x doTxirozj1fubtWX82Sq/0lWNDo126vD6/fve/rRxdf++v1mg12P52r4I7de bz6Vr/8P2gV38DUzcM1eCdi9a9tHGREhhBBCCCGEEELI5w2Xq05Pfb07mUzp n/aXrf6FRCIZCAQbG5sM9X9DEAPxeAIxI5EofKWlttZVVVWtUVVZWYWP0nU4 HIFlKpVubvajBS7pdAZ9yYEKiLMPPfTwBx98EAyGkIxq37x588LCwtDQsL53 vz+Alh/96EfqwddTp05deeU+vY0q+hk0PT2DvjZunJQanXrsv6mpGf1iBmQs 3/jGnTAwjBpzOD8///TTz8gxDAydCsgNZnIKB/fee5/hrNnxlltuMXdn5t7a xcLyMW167dDVlp3Mzk2yrvBeiH3hXsfyCd9rStjS903dQ+9BG5tCJsGu3xXN zIoG+LSuI9X4qH2Gy2ayrAGuK1wzx44dL/wrK8RF7jjcUMZ8NBmHfyxXkcZF jtvWzkaZGW6Ej56qXUcYgr4RucnPiBwSWEWGluNFX7IWib84lsk0z0m+/r95 Rd1Zjm6lzP7d1+Stu5GudkuDXY/fr9XwrzOfknJ9YnjQLriDr0My8PooIyKE EEIIIYQQQgj5vCH78AjyrH6+5r/4wL/2zH/usf9EIuX3B6T0ra//G4KYgUss Fg+HI5FIVBlXVVVXVFQqDC719W78jccT6Eha6rRfDQC324NMtIC5BQWxVDYq K9UeCkWCwbD8ZsE5TwPNzX4ZL2JKSvriP6Khl5qaWrCisJ8Y9+ZrwsdqnTJU peNNhYXdpHPJFpyM3svO5lje4F6TjaVvVtf+iu4heb3N3gL6VQY3f4SZ0Q+w 1cbmTasBPppvfNMmw0ABkZdNddOmzVJ7L/z62bv3SilNO9jce++9WuH9mDEf TYZG/K8ipXWxt7TJXQbHjmnV9XsLT9UuDWekI8yMZTQICTs4rihDu/Fms0PS /uijj8p3ZLaR7r7+9W+cl9EVTv/VV0gNv2vnFjsbqeEP33Kd+ZT4xocGVuFr CUJJzFWPiBBCCCGEEEIIIeRziFSwgdvdIMV/9bR/Op1RyJP/zc1+oK//6yPY 4dKe5Ad+fwC+0lhdXVNeXgHKyspLS8vKy8vNjujC3IJM4vGEvBcAaejP4qOU 6HFQX+9GS0ODR/bwR6Mq1xcCxiWhkLA4urU3AuuXP9CFbGFUeNhPknt09X8H M1U6ni04snK5xyry3pral03RZnVedmGP2Ye1871HV/a3tMnofG+y6nSvziD7 0WbGeVr0mezVtd+ka89YhVUGZ+2nbtlUcTtLbTmbzRb4LcNSXOBr+5VpReZH HnnUmI8mi7HcdLOc+vrXv25nIzHvuefeAvPMXQb3LNb/C3dRHc3ObjKfksfy n376aQfHFWXoMCeSvEyjpQ3SQOPLL79yvkZXCKGONim2T9xxq4MZzlrauBsb xR0Hdr75+v+1hvamWAsw28ey/RJzdSMihBBCCCGEEEII+XwiFWy3uyGdzqjd flTZP5VKg0QiGQyGpB4uNXB5bW5trUvcl8Xr9UkRHkFcrjpprKysKi0tKy0t 3bBhkYqKSrsIdbnXAUSQUjKZe/g/Gm1BKJW/vEdAupAn9uUUjiVzHBSeLXBp uwzJSNE1WhoaPIbfPtTmdzEqPOwnyT35svAx3SyZUaXjmZpCIx/WVaQHl57C x7OqDK7rF8FVR3Zhj9VYOBqSdPCyszmRbz9VW5teegofT+nOfsSZcZgWvy6N s0s78us6go3ffj4P23+PhaQqNe2XX37Z8uzXvpYryN90002Fu8zMzEq9GgfG fDRZeiEaTp09e9bOJl9dv6eQORdgLPX/wl1UR+bkAeZB0hsczJ6XDJ3n5MSJ Ews6rSgZ/OeGrwkRcFDg6Jal3ueTV+7ufOx+Z8u+q3bD7JoXfmBo79ixWTYO cvBFcNgM3XytoV26Tk+NG9rH/za31nDl4UdWMSJCCCGEEEIIIYSQzy1VVdUe jzeVyuRf75sDHzVyxf94PBEMhtV7b6UqDhfxLRAYNzY2iaPP16h8Kyoq16/f AEpK1itKS8vQLgY1NbVwjEZjra3tSE/LJ9nSEgsGQ7XnXiKQw+drkjo/Durq 6tFSq23+I4sC6LTwbIHb3aA2+UcOMkvax3MbH1VrSxhgRZE/MQ7mS+5Ha5y+ qXPF55qcpSUvL40wUF2tr7cfrqnZU10zU13zcM25YnWuFq27QmZ0NWq7TI7m Ez5oStjBN1VVre/UbLNH1zUskeSMVbZ7TNdzITNzQOdlNy0Yzildu3l0B3WL I7D8mua1x5RhqoAvccb+rtyz5wopIx8+fNhw6sCBxQrzww8/YtludhkYGJQa /tGjxyzy0WSZBm5GVfy3tEFAtB88eM8KLvWD99hl4oB0NDMzY3lWavKWMVeR ofOcqMm0s5GFGNjA0jCZkidO4f/GwkfnzJWHH5HqfZ3X62zpi0bkmfyhm6/R N17zwg/QOH3XHQ6+Ox87ZHAUtj5wl/QeaMuoxpbBPlkXMNsTQgghhBBCCCGE EAe8Xp8q+2sP/OdIJtPJZEqetA+FwsFgSL36FvZ1dfVS99aXvlWLHTU1tVrZ 3Ftf36Aq56C8vKKkZP26dSXr1q0rLhaK0SJn3e6G1tZ2+VUCEpOd/5GPoUeY +f1B2a4HvchZn69RPfzvctUvmyGoqKiUA4/HJ9V+RJMW7bH/3Ef11mO9/QXI wepz9X8HM/P+OZYYvG5cWus2AwO9/bSuRm2Xybn6f7UxYWffO5YmYzY4rFsC sOSwqccCZ8Ywt8tOi2VH4ETNMhka5tMu1WnHO/Hw4cNSYT516tTDDz98UJN6 +BwHuFMKcXnppZel8ezZs/39Axb5aLJLY3p6RtW6LS6Do0e16vrBFVzqBw9K MkfthZwtO0IyzkmaDcQRE+LQnTl/5zm5446vOcwJJlktEGAg8i3gq1GNN954 YBVJ7tmzx9xX7/5dUtK3ZOdjh+q8Hr392N/cIqeueeEHOCtVfXDjj3/ojYQd vjWxzN50jaEdXvCVIHufegRm+Ks+GnonhBBCCCGEEEIIIc4YtvoBUvlPJBYf sxdkD3zZrl9ThZS+q7RH9GtrXS5XXV1dPZA3/EqFX/+GX3nJb329uyr/5l84 yoEsARQVFSvWrSuRU7BXLyOQ9Qiv12cOq3b+kZf8SnC18z8azclYosYl+/x4 PF4kILsSqcf+pfiPYSr7C5O787XoozU1DmYF1v/Njrurqs5aWaLxxqUvdwZT uhq1XSaq/o/M7ZJc1tfO5g7TzwRUtneYsi18Zsxzazct4CHTuBSNFZUP2awd /EtNDWI6f9fKeGq56/zuuw8uWOmppw7jml+Ry9GjR5PJpHU+mhzSeOihh+1s pHCNTpe9wpfN0CDLjqampm0vKs3gxIkTlu3Ogs1K50SFtTzb19dv2CZI9C// cmr37j0O0RxkOcnZm652qP8DTzhkcBn7m5sNNte88AN/a9r5W9ty/3dg2bNv l/kUfPc+9bB56cHl8RR+VRBCCCGEEEIIIYQQoCv7q8p/rvgfjbY0NjbX1dWX l1ds2FC6fv0G/NVUVlZWrq0CVEj9v1p7Aa7U/+vr3W53g8fj9Xp9Pl+jPI2P RnnVrx6vtxF9wUy1IHJJSUlRUdHatUXFxeukETHlVwnIRx7FN8Sp1nbAVjv/ qL70O/8jN3MCVpTLQW2tSzb5V6seaFGP/dfXN8ibf9U8XJj4yismKytBQlun sKOvolLMnLFzv6Gy6qGq6qPVNQAH+OizsZQ4ffbJJPKZmCOoJJcdrEN830qy LXBm7OZ2l66jp6qr/7aqyvlbUDMAS9iL491V1btMF7xzqgVdGL7GG2648aGH Hjp69OhTTz119913434v3OWll16CS19fn1M+fX2Tk1POAWFgaYNk0A6DQsZi iOaAOWFJ0qEjCWt2lAydMU+pZahCujPkjMnHV4AvAge7du12/gpWmqQQ6e+2 ozmTsnRpCAV79u0cPHA1SEyMFPKtiUttQ4OdAfqSgDCz65cQQgghhBBCCCGE OCM1f/XMP4jHE9FoSyAQrK11VWqv6JUt+mUJQFsFKAPlup8AVGuv31VLAA0N Hv0SAFqkVK6ASzAYkt8ahMMROOrPSi9yjC7kSXtDBAGn1MZE6Aj9lmu/UHC7 G2TPItmwSBqXRS1twF2e9seBdC2D0or/bvmZA9plKgqJTAghhBBCCCGEEEII IYR8wsjT/rLbTzgclVf9BgIhHIBQCETC4QiO8w/zN8gGPmVldrsA5X4CoJYA vN7chjyyZKCoq6uPxXKvFY5EWlpa4vjr9wflvQDl2g8BlgVm6EJ7wn9x5x+p 8+MUguR3/sk9/I/cCgmoljYwrnzx34M8pS8cq+K/bHAkyyJqNYQQQgghhBBC CCGEEEIIuaCIRKLBYEgrofvxt7k5INvp+P2yCiDIQsDiWkA4HIUXgIE8YC+7 4mhLAHUu1+IuQG63R3bLLy+vlOq6noqKykAgiJiIgAPJwefLPcNfV1dfVVVt dlGgF8lNFf/lyX8tbJWsX8jOPwjlEEfP+pxy9fzq6hrZ6gejqKysQguSwTHA 0KT4j3YYl5SsLzA4IYQQQgghhBBCCCGEEPIJ4/M1+nxNjY2gualJkIUAWQsI auV0tRaw5EcBurWAFhCNyi8IQrJDTh53qW4HIQNVVdXoWltEaJQNdkBtbZ0U 2A1UVFTCxu8PaGmE1Dt/4bJBe0OBrCloqxIBjKKhwSvty1JSsn7duhI5rq9v 0Ir/DbJ2gJbaWpf22H89DkBNTW1ZWTlcQCHBCSGEEEIIIYQQQgghhJBPHtmi R1sFUAsBai1AfhSw+HOA/FqA4UcBEfWjANk+CAFramoVtbUuKZU7UKpt2iPv DoBLVVW1FNjhq71stwHJoC/0gr+yQ5H25H8AecJeguSf/A/Kk/8Y1IYNpct2 LRQXr1u3rkQLUul2Lxb/kZI84a8e+0df1dW59PQuhBBCCCGEEEIIIYQQQsgF iMtVV1/v1lYBfPLGXnlpr9DU1Jz/LYA/vy9QIP+LgKAsBOS3Bsrt5KO9IMAt bwQQKioq160rWRHr8w/ko3fZaEgq/1rxP6Re+CvP54tLba1LfwpDKC0tK7C7 4uLioqJiOZY1CNnkX4JjLOqx/+rqGlmbKC5ep1wIIYQQQgghhBBCCCGEkAuQ 4uJ1wvr1uVfZam/yddXVuXW/CLDcF2jJLwLw0ePxyW7/NTW15eUV5eWVFRU5 EFN1sVLQu/y+IL/hT27Df6RRV1e/fv0GsZEtjAzFfzQW2EVRUfHatUX4i+Oy sgpV/Mc8oKVE+w2C/JBBiv+VlVWYNOVCCCGEEEIIIYQQQgghhFyYFBUV21Gs VdcrKqrkBbgej9dyLcDna5J9+4XKyip5s3BZWbls4+PQhSDLEOZ2r9cXCIQ0 gujd5aorL6/Qe9XWuuSsbAek7fnvWb9+w7I9Ki6/fC2QY8SX4r/sWYQWdJev /NdUVlbL0NauLYKLLAEQQgghhBBCCCGEEEIIIRcma9cWrYgNG0pLS8urqqpd rnqvt1HbLd+tJ/9u3MX3CxQXr3OIhrMVFZUIVVZWYT4rEex8KyqqpOwvlf/G xmbEKSpy6s7A5Zevveyyy6WYX15e4XK5a2vrampcSElyk8q/PPaPxvLySjSK 10rnjRBCCCGEEEIIIYQQQgj5JJEH4FdHbW3ugXkD+T2FFvcXsutirbaUUF1d I+8Ixt+i/NP4dlx22eWXXnqZIHV7j8fX1NTc2Chv+y1bUfIqGo6RMDJXm/xL kV92Q9Iq/1Xl5ZXl5RVIWLykd0IIIYQQQgghhBBCCCHkguWyyy5fHfB1ueoM 1NTU6hYXcr8vsHRct66krKy8oqJS3hRcXZ2rupeWljn3uGbNX19yyRr8/eu/ vlSK8Aji9foqKqrQ3QrzvwxBgHysqqrRnvzPpSFFfgSUyr/22H+F7GWERnSs vAghhBBCCCGEEEIIIYSQCxb1RP1KKSpaV1vrMlBRUaUiX770iX1h7dqikpL1 2iZCuRcElJdXVFZWydb68IWLQ4+XXLLm4osvkSUAoJ7eX0Xya9acW0coLS1H 5rIGIfmjccOGMqn8AxggW6QNe+VFCCGEEEIIIYQQQgghhFzIyGPwq2DdupKa mloDGzaU2tlfpj1UX6S9t7ekZP369RtgLEsAsrsOjnHKoceLL77ki1+8GH+l /r/qzC+5ZI22ipCLUFy8rqYmV/zXtvqpXru2WBq1fHIplZaWI0/5UcCaNXBc s+p+CSGEEEIIIYQQQgghhJBPjDWrVUlJSbWmKp2Ki4svyUtvvLhfz+Xavv9F RTBbl18GKNW0YcOG9ZpgadejOewqdLEmiYOUZAci/K2oqEBKkmppXiorpA0X 5UhRFEVRFEVRFEVRFEVRFEVRF7guWa1KS0urlqqysvLSSy+9WCf9WsC5Xfsv v1yWAEpKSuC1YcMGHKzThEaptH9M+uIXv3jRRRfhr6SkL/5jOGKDZDbktX79 eslNfPUjoiiKoiiKoiiKoiiKoiiKoqgLWRevVmVlZRUmfdFK6rF5tQRQVFRU Xl5eqwlexcXFRZrWalqTf0r/PApp/JWmiy66SPJB/pWVleWaSktLpVP0vj4v tSqBtNXCwXlPjKIoiqIoiqIoiqIoiqIoiqI+DllW7AtRuZX+aqku0qTK5pdc csmll166YcOGqqqqap2Kioou13TZZZfBQOrt51HI4T9oQkqSTGlpaUVFBRIu KytDPmvWrEE7upayv1T+izUhK7jLWM5vVhRFURRFURRFURRFURRFURT18SlD URRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRF URRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRF URRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRF URRFURRFUReATr558uc///nx48d/+tOf/vhHPz5y5MjLL7384osv/sMLLxBC CCGEEEIIIYQQQggh5ALnxRdffPmll48cOfLjH/34pz/96fHjx3/+85+ffPPk O2+//Zu33vr1r3/9i1/84p9+9jO0Hzt69B//+z8SQgghhBBCCCGEEEIIIeQz wbGjR48fP/5PP/vZL37xi1//+te/eeutd95++8yZM+++++7b//z2b3/727dO vnXixIlfQb/85S//ByGEEEIIIYQQQgghhBBCLnR+9ctf/upXvzpx4sRbJ9/6 7W9/+/Y/v/3uu++eOXPmd7/73XvvvYeDU6dOoeWdd97BKfDPFEVRFEVRFEVR FEVRFEVRFEVd8JKq/jvvvPPuu++eOnXqzJkz77333u9+97v5+fn333//97// PY7/9b33/pem/0lRFEVRFEVRFEVRFEVRFEVR1GdEUtv/V63s//vf//7999+f n5//8MMP//CHP3zwwQc4Pgu9T1EURVEURVEURVEURVEURVHUZ0xnwdmz8/Pz H3zwwR/+8IcPP/zwL3/5y5///Oc//elPf/zjHz+kKIqiKIqiKIqiKIqiKIqi KOozqz/+8Y9/+tOf/vznP//lL3/5P3n9b4qiKIqiKIqiKIqiKIqiKIqiPuNS Zf//l9f/pSiKoiiKoiiKoiiKoiiKoijqMy5V9v//HbEPBg== "], {{0, 71}, { 2048, 0}}, {0, 255}, ColorFunction -> RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> ColorProfileData[CompressedData[" 1:eJydlndUVNcWxs+9d3qhzTAUKUPvXWAA6b1Jr6IyzAwwlAGGGRDEhogKRBQR aYoiUQEDRkORWBHFQkCw14AEETUGo4iK5d2RtaIrL++9vHx/nPW75+x97jnf 3netq5GQEZoIAwCyCegQys51FQrZeWEY9MEtT8RLgFDwoaADoPgE8AUZsAwA 6QKRMNTbjRkdE8vEDwIYEAEOWADA5mRnBoZ5hUuifT3dmdloEPgidKvXNyQj AFdNfIKZTPD/SZaTKRSh2wSjbMXlZXNQLkI5LVeUKZmfRpmekCphWHJ+uhA9 IMqKEk6aZ+PPMfPsImFuuoCLsuTMmdx0roT7UN6UI+ahjASgXJzD5+WifA1l 7TRxOh/lN5LcdB47GwCMxB1tEY+TjLK5xChheKg7yosAIFCSvuKEr1jEWyGS XMo9IzNPyE9KFjH1OQZMCzs7FtOHl5vGE4lMgtmcVLaQy3TPSM9kC/IAmL/z Z8lJvGWiJttY2NnYmFiaWnxl1H9d/JuS1HaeXoZ8rhnEGPgy91dxGY0AsGZQ b7Z+mUuoAaBrAwCKd77Mae8BQBqtW+fQV/dhSPolWSTKtDczy83NNeXzOKYS Q//Q/wz4G/rqfaaS7f6wh+nBS2SL00RMiW+cjLQMsZCZncnm8Jgmf27if5z4 1+cwDuUl8oQ8AZoRiXYZX5CEllvA5Yv4GQImX/CfivgP0/6k+b5GRWv6COjL TYHMEB0gvw4ADI0MkLjd6Ar0R90CiJFA8uVFqU/O9/1nQf++K1wuGbL5SZ/z 3EPDmRyxMGd+TfJZAiwgAWlAB0pADWgBfWACLIEtcAAuwBP4gSAQDmLAMsAB ySAdCEEuKADrQDEoBVvBDlALGkATaAZt4AjoAsfBGXAeXAZXwHVwF4yCCfAU TIPXYA6CIDxEhWiQEqQO6UBGkCXEgpwgTygACoVioHgoCRJAYqgAWg+VQhVQ LbQXaoa+h45BZ6CL0DB0GxqDpqDfoXcwAlNgOqwK68JmMAt2hf3hcHgpnARn wflwEbwFroYb4UNwJ3wGvgxfh0fhp/AMAhAywkA0EBOEhbgjQUgskogIkdVI CVKFNCJtSA/Sj1xFRpFnyFsMDkPDMDEmGAeMDyYCw8FkYVZjyjC1mIOYTkwf 5ipmDDON+YilYlWwRlh7rC82GpuEzcUWY6uw+7Ed2HPY69gJ7GscDsfA6eFs cT64GFwKbiWuDLcL1447jRvGjeNm8Hi8Et4I74gPwrPxInwxvgZ/CH8KP4Kf wL8hkAnqBEuCFyGWICAUEqoILYSThBHCJGGOKEPUIdoTg4hcYh6xnNhE7CEO ESeIcyRZkh7JkRROSiGtI1WT2kjnSPdIL8lksibZjhxC5pPXkqvJh8kXyGPk txQ5iiHFnRJHEVO2UA5QTlNuU15SqVRdqgs1liqibqE2U89SH1DfSNGkTKV8 pbhSa6TqpDqlRqSeSxOldaRdpZdJ50tXSR+VHpJ+JkOU0ZVxl2HLrJapkzkm c1NmRpYmayEbJJsuWybbIntR9rEcXk5XzlOOK1ckt0/urNw4DaFp0dxpHNp6 WhPtHG2CjqPr0X3pKfRS+nf0Qfq0vJz8QvlI+RXydfIn5EcZCEOX4ctIY5Qz jjBuMN4pqCq4KvAUNiu0KYwozCouUHRR5CmWKLYrXld8p8RU8lRKVdqm1KV0 XxmjbKgcopyrvFv5nPKzBfQFDgs4C0oWHFlwRwVWMVQJVVmpsk9lQGVGVU3V WzVTtUb1rOozNYaai1qKWqXaSbUpdZq6kzpfvVL9lPoTpjzTlZnGrGb2Mac1 VDR8NMQaezUGNeY09TQjNAs12zXva5G0WFqJWpVavVrT2uragdoF2q3ad3SI OiydZJ2dOv06s7p6ulG6G3W7dB/rKer56uXrterd06fqO+tn6TfqXzPAGbAM Ug12GVwxhA2tDZMN6wyHjGAjGyO+0S6jYWOssZ2xwLjR+KYJxcTVJMek1WTM lGEaYFpo2mX63EzbLNZsm1m/2Udza/M08ybzuxZyFn4WhRY9Fr9bGlpyLOss r1lRrbys1lh1W71YaLSQt3D3wlvWNOtA643WvdYfbGxthDZtNlO22rbxtvW2 N1l0VjCrjHXBDmvnZrfG7rjdW3sbe5H9EfvfHEwcUh1aHB4v0lvEW9S0aNxR 05HtuNdx1InpFO+0x2nUWcOZ7dzo/NBFy4Xrst9l0tXANcX1kOtzN3M3oVuH 26y7vfsq99MeiIe3R4nHoKecZ4RnrecDL02vJK9Wr2lva++V3qd9sD7+Ptt8 bvqq+nJ8m32n/Wz9Vvn1+VP8w/xr/R8GGAYIA3oC4UC/wO2B9xbrLBYs7goC Qb5B24PuB+sFZwX/GIILCQ6pC3kUahFaENofRgtbHtYS9jrcLbw8/G6EfoQ4 ojdSOjIusjlyNsojqiJqNNoselX05RjlGH5Mdyw+NjJ2f+zMEs8lO5ZMxFnH FcfdWKq3dMXSi8uUl6UtO7Fcejl7+dF4bHxUfEv8e3YQu5E9k+CbUJ8wzXHn 7OQ85bpwK7lTPEdeBW8y0TGxIvFxkmPS9qSpZOfkquRnfHd+Lf9Fik9KQ8ps alDqgdRPaVFp7emE9Pj0YwI5QaqgL0MtY0XGcKZRZnHmaJZ91o6saaG/cH82 lL00u1tER3+mBsT64g3isRynnLqcN7mRuUdXyK4QrBjIM8zbnDeZ75X/7UrM Ss7K3gKNgnUFY6tcV+1dDa1OWN27RmtN0ZqJtd5rD64jrUtd91OheWFF4av1 Uet7ilSL1haNb/De0FosVSwsvrnRYWPDJswm/qbBzVabazZ/LOGWXCo1L60q fV/GKbv0jcU31d982pK4ZbDcpnz3VtxWwdYb25y3HayQrcivGN8euL2zkllZ Uvlqx/IdF6sWVjXsJO0U7xytDqjurtGu2Vrzvja59nqdW117vUr95vrZXdxd I7tddrc1qDaUNrzbw99za6/33s5G3caqfbh9OfseNUU29X/L+rZ5v/L+0v0f DggOjB4MPdjXbNvc3KLSUt4Kt4pbpw7FHbryncd33W0mbXvbGe2lh8Fh8eEn 38d/f+OI/5Heo6yjbT/o/FDfQeso6YQ68zqnu5K7RrtjuoeP+R3r7XHo6fjR 9McDxzWO152QP1F+knSy6OSnU/mnZk5nnn52JunMeO/y3rtno89e6wvpGzzn f+7Cea/zZ/td+09dcLxw/KL9xWOXWJe6Lttc7hywHuj4yfqnjkGbwc4h26Hu K3ZXeoYXDZ8ccR45c9Xj6vlrvtcuX198ffhGxI1bN+Nujt7i3np8O+32izs5 d+burr2HvVdyX+Z+1QOVB40/G/zcPmozemLMY2zgYdjDu+Oc8ae/ZP/yfqLo EfVR1aT6ZPNjy8fHp7ymrjxZ8mTiaebTuWfFv8r+Wv9c//kPv7n8NjAdPT3x Qvji0+9lL5VeHni18FXvTPDMg9fpr+dmS94ovTn4lvW2/13Uu8m53Pf499Uf DD70fPT/eO9T+qdP/wJOwPvu "], "RGB", "XYZ"], Interleaving -> True], Selectable -> False], BaseStyle -> "ImageGraphics", ImageSizeRaw -> {2048, 71}, PlotRange -> {{0, 2048}, {0, 71}}]], "", PageWidth -> Infinity, CellMargins -> 0, CellChangeTimes -> {{3.544379162237352*^9, 3.544379175555642*^9}, 3.574009622854604*^9, 3.5740096771925993`*^9}, Magnification -> 1.], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Evaluate", " ", "the", " ", "following", " ", "to", " ", "copy", " ", "the", " ", "style", " ", "of", " ", "the", " ", "cell", " ", "above", " ", "into", " ", "\[IndentingNewLine]", "the", " ", "docked", " ", "cell", " ", "style", " ", "of", " ", RowBox[{"the", " ", "'"}], RowBox[{"Working", "'"}], " ", "definition", " ", RowBox[{"(", RowBox[{"2", " ", "cells", " ", "above"}], ")"}], " ", "\[IndentingNewLine]", "These", " ", "two", " ", "cell", " ", "can", " ", "be", " ", "removed", " ", "once", " ", "the", " ", "docked", " ", "cell", " ", "is", " ", RowBox[{"created", "."}]}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "Previous", ",", "Cell", ",", "2"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"celldata", "=", RowBox[{"NotebookRead", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "Previous", ",", "Cell", ",", "1"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"NotebookSelection", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}], ",", RowBox[{"DockedCells", "\[Rule]", RowBox[{"{", "celldata", "}"}]}]}], "]"}], ";"}]}]}]], "Input", CellChangeTimes -> { 3.5740143744052753`*^9, {3.574014994368063*^9, 3.5740150001730556`*^9}, 3.574015035375742*^9, { 3.574016128609118*^9, 3.574016129431505*^9}}, FontWeight -> "Bold"], Cell[ StyleData[All, "Presentation"], MenuSortingValue -> None], Cell[ StyleData[All, "Condensed"], MenuSortingValue -> None], Cell[ StyleData[All, "SlideShow"], DockedCells -> { FEPrivate`FrontEndResource["FEExpressions", "SlideshowToolbar"], Cell[ BoxData[ GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJztnWmQXNWV5x0z82E+TWNQA6pSSbVXZVVWZlZV7pV77XvWrtq0lxaExI5Y bIO7sY0XpgMBAjwedhPtGcTmiaBZBLYjPC0J3GGPbSHsiIagJU0MbUegIoyX WWr++U7l1au3VVYhQAT/f/xU8fK+c8499+Z7+nDuy/vKtl01vPPffOELX7ju 3+PP8NYD6Wuv3XrzyL/Dh8zN189t+7c46MS/L+B07rijo2vVzM5uNjMwkO3p 6QXd3Tm6unrs3NvbOzOZtmQynUikQFtbh3N3iUQyFkvgL1zS6Vb9qZ6ePkuX sbFxpDQzMzsxMdnZ2V340BBwx46d27btgBf6MoDMP8q8EUIIIYQQQgghhBBC CCEfN+3tnQXS09M3MJAdHR2fmprZunX73Nwu/J2enjUwNDTS2dmtKKCLjkym LZXKLJtAa2t7Ot0q6wVwUe3Dw6NIZmRkzNIL7cgKOdsZ2DE+vnHHjp0Yr6Qn pNOgFZmsKBQhhBBCCCGEEEIIIYQQ8gnT2tZhSXtHV3dPX3ZoZHRsYuPk9Jat 28HWbTvAtu1zYPuOnQAHU9OzMFAMDA7ZxVwpPb39ff2DvX0DhvZMaztQeSKN uZ27d8ztmp7ZhI/mOBgFEhufmFxRbgglo25r70wk0yCZAhnhfI2REEIIIYQQ QgghhBBCCPk4kFo66Oru7e0bGMwOj45NTE7NTM9smpndDGY3bQGbNm/dvGWb 3SoAzCY2TgnZoZF0pk2jVVBdrBSEndu5W1YZcDw2vrGvf1CfMxgaHpXiv5gh z86uHkMcuIyMjsMdQ8MwC09geGQMI8XfZCojSwAKDHDV4yKEEEIIIYQQQggh hBBCPm4Gs8PDI2PjE5MTG6fkAf7JqZmp6VkwPbNJvwqwafNWWQWQhQDDKgAa EQFxskMjyZSxVL460PuOuV2Ij44QH2kgK/QyMDjU3tElNq1tHUhYiv/KrKOz 2xAKIx0ZHQdDw6Nwce43o62GSHDExNhT6dZ4IqXno4yLEEIIIYQQQgghhBBC CPm4GRvfKMgSgH4VQBYC1CqA+iGAfhVAFgJkCQDHcMwOjcTiST3JVCaVbi2Q RDIVTyTjiRSOR8cmkADSkEf3JUkwMjo+mB3u7unLtLaLV/9AVvJBbkgSLu0d XYbIaBkeGRsaHu3rH3RIoKu7F0MAEgH9IixckJJ+UJIhIYQQQgghhBBCCCGE EHJhMjU1Mz6+cWxsAn8nJibBxo1TYHJyGuAskBf7zs5uBps2bQGbN28FW7Zs A1u3bgfbtu3Yvn0OZtnscEtLXE8ymVbvz7UkkUhFo7FQKOL3B5ubA01N/kAg hPbOzu7e3n4EHBkZQ2LIZHR0fHBwaGAgi799fQNtbR0qSEdHl+SGJJEG7PVn hZ6evqGhEfiaTwloR1/Dw6PoFF1LWIwRk4NRxGIJIR5PAqTtPC5CCCGEEEII IYQQQggh5NNi27YdYNOmLZOT0+PjG51XAWZmNgG1CoBjnB0ZGRsYyHZ2dqe0 Sn4slohGY+FwVBGPJ5LJtCUwhkEwGA4EQqC5OdDc7Nfq/0GzcSbT1t3dm80O Dw4OdXX1oEeDQWtrO3JGVsgWB0gMKekN8LG/fxDZ9vb226WE4LJGAMt0uhUt GOOWLdsQPBaLa5xbBbALQgghhBBCCCGEEEIIIYR8usjT+8KWLdtmZjZt3Dil FgIMqwD4i0acGh4e7e8f7Onp6+rq6ejoam1tl1J5PJ5saYlL/T8UCgv4mEik DMAyEmkJhSLBYDgYzBX/tYf/c8X/5uYAGs0uira2DvSLHi1PSbbIc2xsoq9v wGCAVJE52nFgGby9vTObHR4YyMIGx2jBwebNW/E3FosbftrgkCQhhBBCCCGE EEIIIYQQ8inS1zcg2/hs3rxVnuqXLXTkEXrZGmh0dFx2xRFUebynp6+zs7u9 vVPV/2OxREtLPBJpkaf6BXyUDXMUyiYUCsvD/2KGdoOlHbLWYEkm0yaZI+2h oRHkZjDo7u7t7e3v6uqxdMec9PcPAmWDvjAnCCg/bdCj9gIihBBCCCGEEEII IYQQQi4oWmKJ7NDI7KYtM7ObBXnhL5iant04OT00PCrvw1UMZof7B7K9fQPd PX0dnd1t7Z2Z1vZkKhNPpBAtEo2FIy3BUCT3SL9GKBxFuyKqGaAxKA//hyLR lrjeAHEkFEhpL+RNZ9r0BrnXFkzPol3fqAdZjY5NDI+MIVXkGdOGqUCqyBzu OLBzl9HBRjIZn5jEzOAYmQsRIRqzy4EQQgghhBBCCCGEEEII+RSJtsTBYHZY Cv7C5NSMsHFyemLjlNT89fQPZHt6+7u6ezs6u1vbOtKZNkP9f7FIHo1JfD3n iv+hiN4gkUwjVHtHF/6m0q3SiOPZTVuQ0vDIWGdXTyyeRCMOkC1yQw6GyM3+ oBz39Q8ODY8ODA7hINPabsgBaSMIgpvTAxiLjA42kkl3Tx96RG6SfDgi5MZo GYEQQgghhBBCCCGEEEII+XSJRGNC/0BW1fyFiY1TwujYxMDgkNTSFVIhb+/o SmfaEsm0LCWoaM5I/V99jMWTHZ3d8rw9DiSmnMq0ts/MbkZWyGEwOwybeCKF 9ta2jrHxjcMjYzAWSwT0eH0NHq8/EJKY2aER+Z1CZ1ePITckLL9csMsZHcEL NkgAH5OpzNT0LEaNzEPhiEZUKHDIhBBCCCGEEEIIIYQQQsgnitrKJtLS3z8o L/ydmJgU5EXA8sLfvr6B3t7+np6+7u7erq6ezs7uZDKtd18d6XSrvE0AwVXk TKZNzuJgZmbT5OT06Oj44OAQDGKxhJxKJFLZ7DC8UqlMOBxtaPACj8fr9Tbi IwwQR23jb0g1Go11dHS1tXXEtdcQm2lv74S72ES1WZqenh0ZGdPeWRDRI30R QgghhBBCCCGEEEIIIRcU4XBUT29vv6r5j41NCPL+32x2WIrzHR1d7e2dbW0d ra3tsVjCEGFFpNOtCDs4ONTfPyhLALKs0NISF4NoNIZecGp4eHRgIItO9e7o vbu7V4wbG5s8Hq/H4wNNTX60oF29pDiTaTN3jcjoyzKxVCojw4RN7oUF4SgS mJqa0b/XWJAlAEIIIYQQQgghhBBCCCHkgsLwNDvo7u4dHR0XRkbGwPDwqNDf P6gq/+l0ayqVSSbT0WjMHKQQEGFoaETq/wMD2Z6evlgsYWcc0X4L4GAQDIa1 4v/iEoBU5pEnhtPR0YUDRNDbIxQCIgfLaC0tcRmp6rSrq2dqaiYeTwYCIT3S ESGEEEIIIYQQQgghhBByQWF4ml3o6uqRsv/Q0IiQzQ4LPT19qvKfSKTi8aQ8 fm8Zx4FoNKYiDw4OoUdzMu3tnQ4RfL4mqfMrmpqaZRcg0NTkR0sslkBkxMlk 2pCn3jis/QRA9g6yjK+WORAEH3E8OTmNUQcCIb8/qJAlAEIIIYQQQgghhBBC CCHkgsLwNLuio6NLq8wLQwMDQra/P9vV1ROPJ2OxREtLXPbGlxK6XShLtC19 xoaGRrPZke7uXv2p5uaA1NV7ewfi8ZQ0hsO5XpAAwFmv1+d2e0BTk396ejaT aZOyvKr/j49vlEb8TaUyiURq7959u3fvAYggMbUljNx7ASSsIcN0ujWdbksm MxgpvPbvv/qrX/3b66+/cdeu3Tt37sbfqalpWQJAFxJZQD7OY0dfzjaW+aCX ZSN/KuxualZktC/uggXpfWLZrq6jgeaA3vFjTC9/ucpt8jG5kPMO/mco8P+Z j0jn9MbZb/3NFU/+JzD51VsSXV0Oxtn9e3b+54NiDC9nYxV/9MA1kYTxF1UC IuCsBNx6z7cQ/1OfeUIIIYQQQgghhJDPIs3+gB2tbe39A4Ogr39A6O3rF9ra O8KRaCgcCYbCgWDIHwg6xEGEru6eSLQFltLSEosPj4wODY+AgcGsam9sam7w eOvdDV5fIz5mWtt6evvQC7rDAfp6/oc/nJ+f9zU21bvdMAPRlpaFhYXXXvuR RPB4fe4Gz9Zt29A4t3OXNF53/fXwWtDp+08+KWnE4gnEf0OTIe14IplMpfF3 3/79CzZqavaDB7/7XfOpt956a3Jq2nJCTp85A4P+/gG7GUO2cDc0YuzwSqUz li6TTc0LtbUFcpfXe64vl2tZe9iYe0w1+59vaDAbo7G/qdkuPctQwmtutzk9 Q5IPejy2k6bZ2MVHSoVna+h00sbAEpkW86y+UV+/E9e3vSPOwsY884iGmJYT BXvLULd7fXazjatOLiS9cPHv3LXbLjFLF1yft9/+VYcLGHIwUDbmdtybdreb krrfBdzgy7qY+0IQS0vcnpiQu+76j3b3mp2jXvI/jHm8dv8nyDxb3vjnvtbb vyr/degHhf98LPMsJEmM0bKjcCI+972DX3rjFQMD+ywuEhjvf+bxAo3N8UcO XG02gO+Bn/w3Q0D0AkeHK4oQQgghhBBCCCGEWNDsd6C1ta2vrx/09vYJPT29 QibTGgyGAoGgXwvS1NTc2NiEv4YIoVB4fHyiv38AfyORqDR2dnaNjIwOD4+A RCKJFoSCr8/XiCDKF110d/eg03g80d7egZbbb799YWFhcnLK4/G63Q3gqquu llpWKpWGAdzReOjQ/WiRyDBe0MqV1113PWzw8bXXXssV6L7/ZDgcicXiyGqx /r8085aWWDKZQtf79u3XamV3ofdbbrllbm6nAjmDBx/M1f8Rf+fOXQKMpdzX 399vCIuz+eLbXZZzLgkv5BYIlvjKEgZ6sfTa6WssvP7/YINHORboYkyysclh 4QCnJnXfoyE9u4tNVb/16ZmTNEQ221hOjnO2MHAIaHnW+rtznBZwu9dr6Yh2 5/UX/aj1k3mdz2cIlWpqPrdcsnQmcWnpF8JwzZ8+fa6ejMvbnBiuNweX55// ofV3ka9Om69/g43FZfDGG8sWrg13q9yAy2qlHeXK9ZNT5yVDNV7MnvxPZXGV 5v9nsDyLqVbBEUSfA/5zM8csJEnMm2Vfc9+7W0ruWw9+c+PtN4HrXvyv0tI+ OW4wvuLJ7xZuDNCoDADszQZyCmYSEJGlBX0VeCcSQgghhBBCCCGEEEEq2A6k 0xlV8+/u7lF0dXWnUmkp+wOfr9Hr9QFZBVAkk6nR0bG+vv5sdkg1Dg0NS/1/ cDCLj35/AAETiaSclYA4QPxMphXt0WhLa2sbWhBHK1s9iO7c7oaGBs+zzz4r 9cnbbrtdfNH+5psnAZJBy2uvvQYDxAkEgmq8sgTQ1tbW0hIL55//Nww8Eomi 61gsfuWV+2A8N7cTCSMBSU8P8oGBwX1ychKN3/nOXYb2559/HvloddTTlhMO F6nO6X2vvfY6KUjC3dJrciX1/+94PMqxEPt5l2vJd7q0yn3a5Xqtvv55t/u0 rhEGSd2VMJd/Ih3YXWm6+n+D4ZQ+mZN1dZbudvH7Csu2b+l1qw84p11Iy4Lx nrbqCAnr8zdHu1Y3OTJAeMHXkLZ+Pp/P/wTA0J5bjcr/zOH00m8Nl67cKbjw cDmd+2rmdp48+ZZccvp2Bxe0yx20kFtH+77Fd6Erg9tNlxhYXAZa4RrXuX6h zQASWDJk7QbEKBxccD9adoS7zGyMgDJw/MX/YB89Q/2c2N3C8LKbE0yymm0V GYnJwGXshY9OYR4aSA32Lz6Zf+NVqjEUi+1/5jE0zn3vbkvj9skxvfGe73/X bAwGrtwl9gd+8kOAg4nbbjLOg7b6gO4Qx+yIHgu5GQkhhBBCCCGEEEKIYK5m m0ml0l1d3YrOzi7Q0dEJEomklP09Hi9oaPC43Q2yCiBkMq3DwyPiKC2BQFA9 /N/e3oGWZDLV29vXrD297/M1CmIZDkcikaiU4tPpDCx/85vfvPHGG1LnR3fz 8/PPPvvc6dOnX331NYkP44WFhUOHDuEsPuL4hRdegHtLSwwBxWZubg7tu3bt jkZb0MXrr78BDKNGezyegNfevVdq9f85+QWEPknhgQdyVTjzvKERp/QtSAON zz33/G233SYxzV6SDEZ08uRJ1QgXjBRjRHshXxl4wL1YB369rt7BTFeX9q40 MsCx/tS3GzyWp+Z0z7fbhUWeljH1SdoZ6G0M7c/Vu9Wpb2uXhGW2r9YbZ2ml M+MwLYigivmnXS6Do1o1gI2hL7uYvbrlHrv22zxLBotLSArauAgtrzqcVTeR gI9S/Ld0UUVpuSmWTJ1OhlvAYGOXiZ2X9cxrN6D5FnZGOrK8B8HGjZP5hcXb PnqGhjm59tprzQbyn5J5TjC9DjOpvJBw4aNzoHvbrDx7b2jv37tT6vb6xonb Dkit3jIIMLTLIsKe7z8YbWvFX63+f8BgM33nbeglOWC8qORXA2Z7QgghhBBC CCGEEOKAoZRtR2trmyr7t7d36InF4lL2B/X17rq6euDxeMURLtnskPxYQFoi kagU/4eGhuGLlu7uHjmLOMpREQyGQHOz3+v14eDv//7vFxYW4vEEjGXzH/x9 4onvSyPs9++/Csejo2MwwEccP/zwIzgVjbb4/QGJiY+y/QWS0er/ORn6DQSC SA9ee/fuhfGOHXPyIwj1SwfFAw88AAOD+7e//W00fuUrt5kbJyY24nh+fv65 554zeEliCCgjku6UMaIp92V5IP+I+Ot1dQ5mqly8wzTzdqh69av19Xb9Pldf 34N4+UYEVx3ZhX09/5w8Itgl6ZCtZfy47tF6c1j9LIG4LuFVzMy847R8RbfW MKELeI2u3bKjJ6zmU585+lWn1Byav3SpEhsuSP2Fh4tT7iD9pejgkrsSTp+G ARwt+3r11VflwPKKlVMWl8Hrr8stUODVmJsK7QY038LOSEe4r+0McMdpq3XP ffQM1XjFF7ezfqoFZGI5JzI6TLVd5GuuudY8imVHZ0cgGh26YX+iv9fQ3jox KiV9fePmu+9Ey/hXDpjjiHG0LaNvRNj+vYspSf3f0teSldoTQgghhBBCCCGE EJ+plG1JIpGUp/2F9vaOtrZ2hd8f0Ir/blX8d7nq5FcAoLOza3AwC69kMiUt 4XBE1f9xjJZsdkgO4OXxeA29+7RSfJO23wXMtm/fsbCwcPXV16jNf3CAj2j8 8pe/AntpdOd+HoBYPq3+/7Ds8y+LCIJW/38QAUOhsNT/Df2ix5aWGLyuuGKv tsPGydeXSlnef3+uQPfEE0/gADz33HMwFhdDTHmqX45hDxskpjeQgYyPTwAc fOtb31aN+Nvd3aMal+X++nP1fwczVXzerk3XsnTrKvlXNzQU4gK266rcdjaq do3M7ZI8rXuKPub1WtrY9WuwF2K6HyYYZmBFMzPuOdfRuMfaXiWvH6D6mnC2 wMlUmc/X5lcc6uoNgzXkLHeN+Xpz+sryLg42cg2b7x3VlywQmG8EZWNxGWiF a9xHhU+F3IDmNJyRjjDMlYZdRYZqvLiF5WcF5rB2Ey7dYarP7+hWytD1+770 xivX/sN/0Tfma/I3mu2l/p8ZH7EL6OBrCbqGfeeWmfM1IkIIIYQQQgghhJDP A7JvjwPxeEKr+S8+9t/WlqO1tV2jLRAIqif/Vf0fB8odLn19A3BBHNXY0OCR nwzIRxiEQmEcdHR0+f0BQwJIEo2NjU3pdGtTUzNaZM+f/OY/z4oZjo8ceRUH p0+ffuaZZ5GDxF9YWHjooYdln39xF2Q/DfQbDIaknm/oFz3K7kB79lxhrv9L X8L999+vN5CaJxrRqT7gtm3btUWKL8vHsbFxrZj/Lb0NxoWByDHiSC/6RvSi 79qB+/Pb6b9eV+dgpirG2/JfhzPbdDvSFGJfuJeu/l/vkKQ6fnypmWV8NQkn XS67fk+eK8tbByxkZlY9wCP5xiOOX5Ml39JtbYQE1PqC+RvHVSeXaOHB5ao2 3xfmsGYbqWN78tc89PjjT9jZGGdpsbp+//lN1a4jZGhngBvNMvNVZKgfr0ya +d5Xc2VwlP9Prr766vM7upUi5fepb3xF37j7iVwNf+zLN5rt8/X/YbuADr5m stftk92HztdwCCGEEEIIIYQQQj4nSCnejlgsrt/qRz3z39raJm/UlTK+ofiv jyCvD8bflpaYalQusoc/IofDERwgLCwNOch7in2+RmQr+5AfOXLk9OnTavMf MXv22WfxcWxsDH9vvfVWiY92rf7/UDTaEgqF4SvGnZ1d8iB9MBjy+wPHj78O DP02aa8Ahtfu3Xu0Sto2u1k6dChXflQfYamVDR83mEmGaIe9MD8/j4HobbSa /xE5hiXskbksc+gbnb+1xazy2+kfd9U5mKkC8rN1dXAxM6Z9R+dGp9swp5A0 zF6WvQBVvsaxXZK5GciPSyt6uy1tVjQJOGXZr2UvhQzQzuZxq2Tsei+Qc+8O 0G2O1Ln0K1OXqPkid7p+CnCRS918Qeob5Yo130GWjrkJOZ4rXKP385uqXUd2 9/WXvrRYpVf/w3yUDA3jxT2+oO0ChP+vCpxMh/9/VjG6lTL25Ruknh9Kp/Tt u594QKvh32AxgZp9emzYLqaDr6J3z3YYiCXo2Dx9XoZDCCGEEEIIIYQQ8vlB nt434/F4k8mUZeVfqvTNzX5P/oW/qv4vJX090WhLZ2cXQiUSSdWotgnCX71x U1Nzb28fukNwfPT5GtHi9wdAOBxBKNnD/5vf/KZW7juu7fOz6Cvb/r/55pv4 iwgqGdj85Cc/iUSiwWAIAfXG27fvkJ2FjmsyZI4c0Cm8du/eDeOtW7d58nsT qdUTsTx06BAM9L5S3+vo6FQtSED2/TALkcUG9trixZfk4+hobi1DQiFhfebq owOH8g+WH3e5HMwWdHVjSxBHb3+rrvy+bA6Krbon1Vfaoz7J3EzqHnTHQcTK ZkWTcPzcukOdZadbTVe1w2w7TItlMna9H3HV4ZSBDlMm++vrDbP3rGn21CVq vsidRlSACy5duYaN39fSRrkrT58+jbvAzubchBw/LsbHbaS/rfSpOgj/Y9h1 hPvr0FI99tjjkrDd8MXRQbhzzV768ar/DdBRgZOp/pcoEOck0btlkpakRoek /D76pRsMp6Qyb24H4gJfu7AOvkJjMChBBNijZUWTQAghhBBCCCGEEEKkdG+g ocGTSqUtK/+q+C9lcFX/l3q7mUAgiCCJRBJeqtHlqqutdYGamlq9ZYO2aXk8 nggGQ2iJRKItLbFQKIzucKwsOzo6pIol+/woVElN1hckJXmJ5+zsJsRHwmgJ hyOwkR115GcFUlc0ZN7U1Iyu4bVrV67+v2XLVnkTMVqA3x9AVjLw++7LlR/1 vpKhPr1bb70VLSMjo3ozZII0lNmdd+bWNeCrDE6dOi3FOr0XWh577DHL2dZz n+tctdnBbNlqPOLo7e/UFbqXzUGxpc5Ypi68R32S8nFEF+2V/OgssypkElQF 3tCvCrjF5tq27MhhWiyTWbZ3PZaZqAjyK4CwZdf3LRbzC//KCnHBTSF3ovH7 WtqIy15aXnnliJ3NueEsV11Hp5apOggGq+gIdxnu0POSoXm8+/fvN+TmPJmW MR1YNknD/0V2BJKJAz/5oZTfzWfzNfzrzaekaJ8cydpFdvBVbPq7r8NMEgD7 nn50RZNACCGEEEIIIYQQQlSpXOF2NySTaW2f/3a1z38mI7Sm0xm/PyAvDjbU /y2BAbxALBaHvTRK5b+6ugbgWBrRY0dHp7wIQFrC4Wg8ngDNzf5YLKEPe+bM mYWFhRtvPIBkVO/PPPMMGh999DG9ZV9f/wcffDA//8GTTz65f/9Vd95556lT p2B2yy23Khv5KcF9S/XAAw8ODmYRf25uF+w3b94ixX+t8h9oasptSSS/YoAx DAwDl2TgJR/f1GSeH5iha4wax6+88gpy05/FWBZy6wjP6BvNZpbcly8LH3e5 HMxU6fgZl+s+KzZrP9NQbNYVupfNwdLrUZuOTp2r/xsTNvd4n67ovU/L0DKr QiZBV4F3WXZqmAFLbilgWiyTset93qr+b5mJfm7NU7fYtXaJ4jov/CsrxAWX txSTjd+XqVGiQfv27bezWZwQrXCNixzBLZGbxRzc8v5yQHWkv+vxURIbHh5x doTxirozj1fubtWX82Sq/0lWNDo126vD6/fve/rRxdf++v1mg12P52r4I7de bz6Vr/8P2gV38DUzcM1eCdi9a9tHGREhhBBCCCGEEELI5w2Xq05Pfb07mUzp n/aXrf6FRCIZCAQbG5sM9X9DEAPxeAIxI5EofKWlttZVVVWtUVVZWYWP0nU4 HIFlKpVubvajBS7pdAZ9yYEKiLMPPfTwBx98EAyGkIxq37x588LCwtDQsL53 vz+Alh/96EfqwddTp05deeU+vY0q+hk0PT2DvjZunJQanXrsv6mpGf1iBmQs 3/jGnTAwjBpzOD8///TTz8gxDAydCsgNZnIKB/fee5/hrNnxlltuMXdn5t7a xcLyMW167dDVlp3Mzk2yrvBeiH3hXsfyCd9rStjS903dQ+9BG5tCJsGu3xXN zIoG+LSuI9X4qH2Gy2ayrAGuK1wzx44dL/wrK8RF7jjcUMZ8NBmHfyxXkcZF jtvWzkaZGW6Ej56qXUcYgr4RucnPiBwSWEWGluNFX7IWib84lsk0z0m+/r95 Rd1Zjm6lzP7d1+Stu5GudkuDXY/fr9XwrzOfknJ9YnjQLriDr0My8PooIyKE EEIIIYQQQgj5vCH78AjyrH6+5r/4wL/2zH/usf9EIuX3B6T0ra//G4KYgUss Fg+HI5FIVBlXVVVXVFQqDC719W78jccT6Eha6rRfDQC324NMtIC5BQWxVDYq K9UeCkWCwbD8ZsE5TwPNzX4ZL2JKSvriP6Khl5qaWrCisJ8Y9+ZrwsdqnTJU peNNhYXdpHPJFpyM3svO5lje4F6TjaVvVtf+iu4heb3N3gL6VQY3f4SZ0Q+w 1cbmTasBPppvfNMmw0ABkZdNddOmzVJ7L/z62bv3SilNO9jce++9WuH9mDEf TYZG/K8ipXWxt7TJXQbHjmnV9XsLT9UuDWekI8yMZTQICTs4rihDu/Fms0PS /uijj8p3ZLaR7r7+9W+cl9EVTv/VV0gNv2vnFjsbqeEP33Kd+ZT4xocGVuFr CUJJzFWPiBBCCCGEEEIIIeRziFSwgdvdIMV/9bR/Op1RyJP/zc1+oK//6yPY 4dKe5Ad+fwC+0lhdXVNeXgHKyspLS8vKy8vNjujC3IJM4vGEvBcAaejP4qOU 6HFQX+9GS0ODR/bwR6Mq1xcCxiWhkLA4urU3AuuXP9CFbGFUeNhPknt09X8H M1U6ni04snK5xyry3pral03RZnVedmGP2Ye1871HV/a3tMnofG+y6nSvziD7 0WbGeVr0mezVtd+ka89YhVUGZ+2nbtlUcTtLbTmbzRb4LcNSXOBr+5VpReZH HnnUmI8mi7HcdLOc+vrXv25nIzHvuefeAvPMXQb3LNb/C3dRHc3ObjKfksfy n376aQfHFWXoMCeSvEyjpQ3SQOPLL79yvkZXCKGONim2T9xxq4MZzlrauBsb xR0Hdr75+v+1hvamWAsw28ey/RJzdSMihBBCCCGEEEII+XwiFWy3uyGdzqjd flTZP5VKg0QiGQyGpB4uNXB5bW5trUvcl8Xr9UkRHkFcrjpprKysKi0tKy0t 3bBhkYqKSrsIdbnXAUSQUjKZe/g/Gm1BKJW/vEdAupAn9uUUjiVzHBSeLXBp uwzJSNE1WhoaPIbfPtTmdzEqPOwnyT35svAx3SyZUaXjmZpCIx/WVaQHl57C x7OqDK7rF8FVR3Zhj9VYOBqSdPCyszmRbz9VW5teegofT+nOfsSZcZgWvy6N s0s78us6go3ffj4P23+PhaQqNe2XX37Z8uzXvpYryN90002Fu8zMzEq9GgfG fDRZeiEaTp09e9bOJl9dv6eQORdgLPX/wl1UR+bkAeZB0hsczJ6XDJ3n5MSJ Ews6rSgZ/OeGrwkRcFDg6Jal3ueTV+7ufOx+Z8u+q3bD7JoXfmBo79ixWTYO cvBFcNgM3XytoV26Tk+NG9rH/za31nDl4UdWMSJCCCGEEEIIIYSQzy1VVdUe jzeVyuRf75sDHzVyxf94PBEMhtV7b6UqDhfxLRAYNzY2iaPP16h8Kyoq16/f AEpK1itKS8vQLgY1NbVwjEZjra3tSE/LJ9nSEgsGQ7XnXiKQw+drkjo/Durq 6tFSq23+I4sC6LTwbIHb3aA2+UcOMkvax3MbH1VrSxhgRZE/MQ7mS+5Ha5y+ qXPF55qcpSUvL40wUF2tr7cfrqnZU10zU13zcM25YnWuFq27QmZ0NWq7TI7m Ez5oStjBN1VVre/UbLNH1zUskeSMVbZ7TNdzITNzQOdlNy0Yzildu3l0B3WL I7D8mua1x5RhqoAvccb+rtyz5wopIx8+fNhw6sCBxQrzww8/YtludhkYGJQa /tGjxyzy0WSZBm5GVfy3tEFAtB88eM8KLvWD99hl4oB0NDMzY3lWavKWMVeR ofOcqMm0s5GFGNjA0jCZkidO4f/GwkfnzJWHH5HqfZ3X62zpi0bkmfyhm6/R N17zwg/QOH3XHQ6+Ox87ZHAUtj5wl/QeaMuoxpbBPlkXMNsTQgghhBBCCCGE EAe8Xp8q+2sP/OdIJtPJZEqetA+FwsFgSL36FvZ1dfVS99aXvlWLHTU1tVrZ 3Ftf36Aq56C8vKKkZP26dSXr1q0rLhaK0SJn3e6G1tZ2+VUCEpOd/5GPoUeY +f1B2a4HvchZn69RPfzvctUvmyGoqKiUA4/HJ9V+RJMW7bH/3Ef11mO9/QXI wepz9X8HM/P+OZYYvG5cWus2AwO9/bSuRm2Xybn6f7UxYWffO5YmYzY4rFsC sOSwqccCZ8Ywt8tOi2VH4ETNMhka5tMu1WnHO/Hw4cNSYT516tTDDz98UJN6 +BwHuFMKcXnppZel8ezZs/39Axb5aLJLY3p6RtW6LS6Do0e16vrBFVzqBw9K MkfthZwtO0IyzkmaDcQRE+LQnTl/5zm5446vOcwJJlktEGAg8i3gq1GNN954 YBVJ7tmzx9xX7/5dUtK3ZOdjh+q8Hr392N/cIqeueeEHOCtVfXDjj3/ojYQd vjWxzN50jaEdXvCVIHufegRm+Ks+GnonhBBCCCGEEEIIIc4YtvoBUvlPJBYf sxdkD3zZrl9ThZS+q7RH9GtrXS5XXV1dPZA3/EqFX/+GX3nJb329uyr/5l84 yoEsARQVFSvWrSuRU7BXLyOQ9Qiv12cOq3b+kZf8SnC18z8azclYosYl+/x4 PF4kILsSqcf+pfiPYSr7C5O787XoozU1DmYF1v/Njrurqs5aWaLxxqUvdwZT uhq1XSaq/o/M7ZJc1tfO5g7TzwRUtneYsi18Zsxzazct4CHTuBSNFZUP2awd /EtNDWI6f9fKeGq56/zuuw8uWOmppw7jml+Ry9GjR5PJpHU+mhzSeOihh+1s pHCNTpe9wpfN0CDLjqampm0vKs3gxIkTlu3Ogs1K50SFtTzb19dv2CZI9C// cmr37j0O0RxkOcnZm652qP8DTzhkcBn7m5sNNte88AN/a9r5W9ty/3dg2bNv l/kUfPc+9bB56cHl8RR+VRBCCCGEEEIIIYQQoCv7q8p/rvgfjbY0NjbX1dWX l1ds2FC6fv0G/NVUVlZWrq0CVEj9v1p7Aa7U/+vr3W53g8fj9Xp9Pl+jPI2P RnnVrx6vtxF9wUy1IHJJSUlRUdHatUXFxeukETHlVwnIRx7FN8Sp1nbAVjv/ qL70O/8jN3MCVpTLQW2tSzb5V6seaFGP/dfXN8ibf9U8XJj4yismKytBQlun sKOvolLMnLFzv6Gy6qGq6qPVNQAH+OizsZQ4ffbJJPKZmCOoJJcdrEN830qy LXBm7OZ2l66jp6qr/7aqyvlbUDMAS9iL491V1btMF7xzqgVdGL7GG2648aGH Hjp69OhTTz119913434v3OWll16CS19fn1M+fX2Tk1POAWFgaYNk0A6DQsZi iOaAOWFJ0qEjCWt2lAydMU+pZahCujPkjMnHV4AvAge7du12/gpWmqQQ6e+2 ozmTsnRpCAV79u0cPHA1SEyMFPKtiUttQ4OdAfqSgDCz65cQQgghhBBCCCGE OCM1f/XMP4jHE9FoSyAQrK11VWqv6JUt+mUJQFsFKAPlup8AVGuv31VLAA0N Hv0SAFqkVK6ASzAYkt8ahMMROOrPSi9yjC7kSXtDBAGn1MZE6Aj9lmu/UHC7 G2TPItmwSBqXRS1twF2e9seBdC2D0or/bvmZA9plKgqJTAghhBBCCCGEEEII IYR8wsjT/rLbTzgclVf9BgIhHIBQCETC4QiO8w/zN8gGPmVldrsA5X4CoJYA vN7chjyyZKCoq6uPxXKvFY5EWlpa4vjr9wflvQDl2g8BlgVm6EJ7wn9x5x+p 8+MUguR3/sk9/I/cCgmoljYwrnzx34M8pS8cq+K/bHAkyyJqNYQQQgghhBBC CCGEEEIIuaCIRKLBYEgrofvxt7k5INvp+P2yCiDIQsDiWkA4HIUXgIE8YC+7 4mhLAHUu1+IuQG63R3bLLy+vlOq6noqKykAgiJiIgAPJwefLPcNfV1dfVVVt dlGgF8lNFf/lyX8tbJWsX8jOPwjlEEfP+pxy9fzq6hrZ6gejqKysQguSwTHA 0KT4j3YYl5SsLzA4IYQQQgghhBBCCCGEEPIJ4/M1+nxNjY2gualJkIUAWQsI auV0tRaw5EcBurWAFhCNyi8IQrJDTh53qW4HIQNVVdXoWltEaJQNdkBtbZ0U 2A1UVFTCxu8PaGmE1Dt/4bJBe0OBrCloqxIBjKKhwSvty1JSsn7duhI5rq9v 0Ir/DbJ2gJbaWpf22H89DkBNTW1ZWTlcQCHBCSGEEEIIIYQQQgghhJBPHtmi R1sFUAsBai1AfhSw+HOA/FqA4UcBEfWjANk+CAFramoVtbUuKZU7UKpt2iPv DoBLVVW1FNjhq71stwHJoC/0gr+yQ5H25H8AecJeguSf/A/Kk/8Y1IYNpct2 LRQXr1u3rkQLUul2Lxb/kZI84a8e+0df1dW59PQuhBBCCCGEEEIIIYQQQsgF iMtVV1/v1lYBfPLGXnlpr9DU1Jz/LYA/vy9QIP+LgKAsBOS3Bsrt5KO9IMAt bwQQKioq160rWRHr8w/ko3fZaEgq/1rxP6Re+CvP54tLba1LfwpDKC0tK7C7 4uLioqJiOZY1CNnkX4JjLOqx/+rqGlmbKC5ep1wIIYQQQgghhBBCCCGEkAuQ 4uJ1wvr1uVfZam/yddXVuXW/CLDcF2jJLwLw0ePxyW7/NTW15eUV5eWVFRU5 EFN1sVLQu/y+IL/hT27Df6RRV1e/fv0GsZEtjAzFfzQW2EVRUfHatUX4i+Oy sgpV/Mc8oKVE+w2C/JBBiv+VlVWYNOVCCCGEEEIIIYQQQgghhFyYFBUV21Gs VdcrKqrkBbgej9dyLcDna5J9+4XKyip5s3BZWbls4+PQhSDLEOZ2r9cXCIQ0 gujd5aorL6/Qe9XWuuSsbAek7fnvWb9+w7I9Ki6/fC2QY8SX4r/sWYQWdJev /NdUVlbL0NauLYKLLAEQQgghhBBCCCGEEEIIIRcma9cWrYgNG0pLS8urqqpd rnqvt1HbLd+tJ/9u3MX3CxQXr3OIhrMVFZUIVVZWYT4rEex8KyqqpOwvlf/G xmbEKSpy6s7A5Zevveyyy6WYX15e4XK5a2vrampcSElyk8q/PPaPxvLySjSK 10rnjRBCCCGEEEIIIYQQQgj5JJEH4FdHbW3ugXkD+T2FFvcXsutirbaUUF1d I+8Ixt+i/NP4dlx22eWXXnqZIHV7j8fX1NTc2Chv+y1bUfIqGo6RMDJXm/xL kV92Q9Iq/1Xl5ZXl5RVIWLykd0IIIYQQQgghhBBCCCHkguWyyy5fHfB1ueoM 1NTU6hYXcr8vsHRct66krKy8oqJS3hRcXZ2rupeWljn3uGbNX19yyRr8/eu/ vlSK8Aji9foqKqrQ3QrzvwxBgHysqqrRnvzPpSFFfgSUyr/22H+F7GWERnSs vAghhBBCCCGEEEIIIYSQCxb1RP1KKSpaV1vrMlBRUaUiX770iX1h7dqikpL1 2iZCuRcElJdXVFZWydb68IWLQ4+XXLLm4osvkSUAoJ7eX0Xya9acW0coLS1H 5rIGIfmjccOGMqn8AxggW6QNe+VFCCGEEEIIIYQQQgghhFzIyGPwq2DdupKa mloDGzaU2tlfpj1UX6S9t7ekZP369RtgLEsAsrsOjnHKoceLL77ki1+8GH+l /r/qzC+5ZI22ipCLUFy8rqYmV/zXtvqpXru2WBq1fHIplZaWI0/5UcCaNXBc s+p+CSGEEEIIIYQQQgghhJBPjDWrVUlJSbWmKp2Ki4svyUtvvLhfz+Xavv9F RTBbl18GKNW0YcOG9ZpgadejOewqdLEmiYOUZAci/K2oqEBKkmppXiorpA0X 5UhRFEVRFEVRFEVRFEVRFEVRF7guWa1KS0urlqqysvLSSy+9WCf9WsC5Xfsv v1yWAEpKSuC1YcMGHKzThEaptH9M+uIXv3jRRRfhr6SkL/5jOGKDZDbktX79 eslNfPUjoiiKoiiKoiiKoiiKoiiKoqgLWRevVmVlZRUmfdFK6rF5tQRQVFRU Xl5eqwlexcXFRZrWalqTf0r/PApp/JWmiy66SPJB/pWVleWaSktLpVP0vj4v tSqBtNXCwXlPjKIoiqIoiqIoiqIoiqIoiqI+DllW7AtRuZX+aqku0qTK5pdc csmll166YcOGqqqqap2Kioou13TZZZfBQOrt51HI4T9oQkqSTGlpaUVFBRIu KytDPmvWrEE7upayv1T+izUhK7jLWM5vVhRFURRFURRFURRFURRFURT18SlD URRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRF URRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRF URRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRF URRFURRFUReATr558uc///nx48d/+tOf/vhHPz5y5MjLL7384osv/sMLLxBC CCGEEEIIIYQQQggh5ALnxRdffPmll48cOfLjH/34pz/96fHjx3/+85+ffPPk O2+//Zu33vr1r3/9i1/84p9+9jO0Hzt69B//+z8SQgghhBBCCCGEEEIIIeQz wbGjR48fP/5PP/vZL37xi1//+te/eeutd95++8yZM+++++7b//z2b3/727dO vnXixIlfQb/85S//ByGEEEIIIYQQQgghhBBCLnR+9ctf/upXvzpx4sRbJ9/6 7W9/+/Y/v/3uu++eOXPmd7/73XvvvYeDU6dOoeWdd97BKfDPFEVRFEVRFEVR FEVRFEVRFEVd8JKq/jvvvPPuu++eOnXqzJkz77333u9+97v5+fn333//97// PY7/9b33/pem/0lRFEVRFEVRFEVRFEVRFEVR1GdEUtv/V63s//vf//7999+f n5//8MMP//CHP3zwwQc4Pgu9T1EURVEURVEURVEURVEURVHUZ0xnwdmz8/Pz H3zwwR/+8IcPP/zwL3/5y5///Oc//elPf/zjHz+kKIqiKIqiKIqiKIqiKIqi KOozqz/+8Y9/+tOf/vznP//lL3/5P3n9b4qiKIqiKIqiKIqiKIqiKIqiPuNS Zf//l9f/pSiKoiiKoiiKoiiKoiiKoijqMy5V9v//HbEPBg== "], {{0, 71}, {2048, 0}}, {0, 255}, ColorFunction -> RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> ColorProfileData[CompressedData[" 1:eJydlndUVNcWxs+9d3qhzTAUKUPvXWAA6b1Jr6IyzAwwlAGGGRDEhogKRBQR aYoiUQEDRkORWBHFQkCw14AEETUGo4iK5d2RtaIrL++9vHx/nPW75+x97jnf 3netq5GQEZoIAwCyCegQys51FQrZeWEY9MEtT8RLgFDwoaADoPgE8AUZsAwA 6QKRMNTbjRkdE8vEDwIYEAEOWADA5mRnBoZ5hUuifT3dmdloEPgidKvXNyQj AFdNfIKZTPD/SZaTKRSh2wSjbMXlZXNQLkI5LVeUKZmfRpmekCphWHJ+uhA9 IMqKEk6aZ+PPMfPsImFuuoCLsuTMmdx0roT7UN6UI+ahjASgXJzD5+WifA1l 7TRxOh/lN5LcdB47GwCMxB1tEY+TjLK5xChheKg7yosAIFCSvuKEr1jEWyGS XMo9IzNPyE9KFjH1OQZMCzs7FtOHl5vGE4lMgtmcVLaQy3TPSM9kC/IAmL/z Z8lJvGWiJttY2NnYmFiaWnxl1H9d/JuS1HaeXoZ8rhnEGPgy91dxGY0AsGZQ b7Z+mUuoAaBrAwCKd77Mae8BQBqtW+fQV/dhSPolWSTKtDczy83NNeXzOKYS Q//Q/wz4G/rqfaaS7f6wh+nBS2SL00RMiW+cjLQMsZCZncnm8Jgmf27if5z4 1+cwDuUl8oQ8AZoRiXYZX5CEllvA5Yv4GQImX/CfivgP0/6k+b5GRWv6COjL TYHMEB0gvw4ADI0MkLjd6Ar0R90CiJFA8uVFqU/O9/1nQf++K1wuGbL5SZ/z 3EPDmRyxMGd+TfJZAiwgAWlAB0pADWgBfWACLIEtcAAuwBP4gSAQDmLAMsAB ySAdCEEuKADrQDEoBVvBDlALGkATaAZt4AjoAsfBGXAeXAZXwHVwF4yCCfAU TIPXYA6CIDxEhWiQEqQO6UBGkCXEgpwgTygACoVioHgoCRJAYqgAWg+VQhVQ LbQXaoa+h45BZ6CL0DB0GxqDpqDfoXcwAlNgOqwK68JmMAt2hf3hcHgpnARn wflwEbwFroYb4UNwJ3wGvgxfh0fhp/AMAhAywkA0EBOEhbgjQUgskogIkdVI CVKFNCJtSA/Sj1xFRpFnyFsMDkPDMDEmGAeMDyYCw8FkYVZjyjC1mIOYTkwf 5ipmDDON+YilYlWwRlh7rC82GpuEzcUWY6uw+7Ed2HPY69gJ7GscDsfA6eFs cT64GFwKbiWuDLcL1447jRvGjeNm8Hi8Et4I74gPwrPxInwxvgZ/CH8KP4Kf wL8hkAnqBEuCFyGWICAUEqoILYSThBHCJGGOKEPUIdoTg4hcYh6xnNhE7CEO ESeIcyRZkh7JkRROSiGtI1WT2kjnSPdIL8lksibZjhxC5pPXkqvJh8kXyGPk txQ5iiHFnRJHEVO2UA5QTlNuU15SqVRdqgs1liqibqE2U89SH1DfSNGkTKV8 pbhSa6TqpDqlRqSeSxOldaRdpZdJ50tXSR+VHpJ+JkOU0ZVxl2HLrJapkzkm c1NmRpYmayEbJJsuWybbIntR9rEcXk5XzlOOK1ckt0/urNw4DaFp0dxpHNp6 WhPtHG2CjqPr0X3pKfRS+nf0Qfq0vJz8QvlI+RXydfIn5EcZCEOX4ctIY5Qz jjBuMN4pqCq4KvAUNiu0KYwozCouUHRR5CmWKLYrXld8p8RU8lRKVdqm1KV0 XxmjbKgcopyrvFv5nPKzBfQFDgs4C0oWHFlwRwVWMVQJVVmpsk9lQGVGVU3V WzVTtUb1rOozNYaai1qKWqXaSbUpdZq6kzpfvVL9lPoTpjzTlZnGrGb2Mac1 VDR8NMQaezUGNeY09TQjNAs12zXva5G0WFqJWpVavVrT2uragdoF2q3ad3SI OiydZJ2dOv06s7p6ulG6G3W7dB/rKer56uXrterd06fqO+tn6TfqXzPAGbAM Ug12GVwxhA2tDZMN6wyHjGAjGyO+0S6jYWOssZ2xwLjR+KYJxcTVJMek1WTM lGEaYFpo2mX63EzbLNZsm1m/2Udza/M08ybzuxZyFn4WhRY9Fr9bGlpyLOss r1lRrbys1lh1W71YaLSQt3D3wlvWNOtA643WvdYfbGxthDZtNlO22rbxtvW2 N1l0VjCrjHXBDmvnZrfG7rjdW3sbe5H9EfvfHEwcUh1aHB4v0lvEW9S0aNxR 05HtuNdx1InpFO+0x2nUWcOZ7dzo/NBFy4Xrst9l0tXANcX1kOtzN3M3oVuH 26y7vfsq99MeiIe3R4nHoKecZ4RnrecDL02vJK9Wr2lva++V3qd9sD7+Ptt8 bvqq+nJ8m32n/Wz9Vvn1+VP8w/xr/R8GGAYIA3oC4UC/wO2B9xbrLBYs7goC Qb5B24PuB+sFZwX/GIILCQ6pC3kUahFaENofRgtbHtYS9jrcLbw8/G6EfoQ4 ojdSOjIusjlyNsojqiJqNNoselX05RjlGH5Mdyw+NjJ2f+zMEs8lO5ZMxFnH FcfdWKq3dMXSi8uUl6UtO7Fcejl7+dF4bHxUfEv8e3YQu5E9k+CbUJ8wzXHn 7OQ85bpwK7lTPEdeBW8y0TGxIvFxkmPS9qSpZOfkquRnfHd+Lf9Fik9KQ8ps alDqgdRPaVFp7emE9Pj0YwI5QaqgL0MtY0XGcKZRZnHmaJZ91o6saaG/cH82 lL00u1tER3+mBsT64g3isRynnLqcN7mRuUdXyK4QrBjIM8zbnDeZ75X/7UrM Ss7K3gKNgnUFY6tcV+1dDa1OWN27RmtN0ZqJtd5rD64jrUtd91OheWFF4av1 Uet7ilSL1haNb/De0FosVSwsvrnRYWPDJswm/qbBzVabazZ/LOGWXCo1L60q fV/GKbv0jcU31d982pK4ZbDcpnz3VtxWwdYb25y3HayQrcivGN8euL2zkllZ Uvlqx/IdF6sWVjXsJO0U7xytDqjurtGu2Vrzvja59nqdW117vUr95vrZXdxd I7tddrc1qDaUNrzbw99za6/33s5G3caqfbh9OfseNUU29X/L+rZ5v/L+0v0f DggOjB4MPdjXbNvc3KLSUt4Kt4pbpw7FHbryncd33W0mbXvbGe2lh8Fh8eEn 38d/f+OI/5Heo6yjbT/o/FDfQeso6YQ68zqnu5K7RrtjuoeP+R3r7XHo6fjR 9McDxzWO152QP1F+knSy6OSnU/mnZk5nnn52JunMeO/y3rtno89e6wvpGzzn f+7Cea/zZ/td+09dcLxw/KL9xWOXWJe6Lttc7hywHuj4yfqnjkGbwc4h26Hu K3ZXeoYXDZ8ccR45c9Xj6vlrvtcuX198ffhGxI1bN+Nujt7i3np8O+32izs5 d+burr2HvVdyX+Z+1QOVB40/G/zcPmozemLMY2zgYdjDu+Oc8ae/ZP/yfqLo EfVR1aT6ZPNjy8fHp7ymrjxZ8mTiaebTuWfFv8r+Wv9c//kPv7n8NjAdPT3x Qvji0+9lL5VeHni18FXvTPDMg9fpr+dmS94ovTn4lvW2/13Uu8m53Pf499Uf DD70fPT/eO9T+qdP/wJOwPvu "], "RGB", "XYZ"], Interleaving -> True], Selectable -> False], BaseStyle -> "ImageGraphics", ImageSizeRaw -> {2048, 71}, PlotRange -> {{0, 2048}, {0, 71}}]], "", PageWidth -> DirectedInfinity[1], CellMargins -> 0, CellChangeTimes -> {{3.544379162237352*^9, 3.544379175555642*^9}, 3.574009622854604*^9, 3.5740096771925993`*^9}, Magnification -> 1.]}, CellMargins -> 0, CellBracketOptions -> { "Color" -> RGBColor[0.739193, 0.750317, 0.747173]}]}, Open]], Cell[ BoxData[ GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJztnWmQXNWV5x0z82E+TWNQA6pSSbVXZVVWZlZV7pV77XvWrtq0lxaExI5Y bIO7sY0XpgMBAjwedhPtGcTmiaBZBLYjPC0J3GGPbSHsiIagJU0MbUegIoyX WWr++U7l1au3VVYhQAT/f/xU8fK+c8499+Z7+nDuy/vKtl01vPPffOELX7ju 3+PP8NYD6Wuv3XrzyL/Dh8zN189t+7c46MS/L+B07rijo2vVzM5uNjMwkO3p 6QXd3Tm6unrs3NvbOzOZtmQynUikQFtbh3N3iUQyFkvgL1zS6Vb9qZ6ePkuX sbFxpDQzMzsxMdnZ2V340BBwx46d27btgBf6MoDMP8q8EUIIIYQQQgghhBBC CCEfN+3tnQXS09M3MJAdHR2fmprZunX73Nwu/J2enjUwNDTS2dmtKKCLjkym LZXKLJtAa2t7Ot0q6wVwUe3Dw6NIZmRkzNIL7cgKOdsZ2DE+vnHHjp0Yr6Qn pNOgFZmsKBQhhBBCCCGEEEIIIYQQ8gnT2tZhSXtHV3dPX3ZoZHRsYuPk9Jat 28HWbTvAtu1zYPuOnQAHU9OzMFAMDA7ZxVwpPb39ff2DvX0DhvZMaztQeSKN uZ27d8ztmp7ZhI/mOBgFEhufmFxRbgglo25r70wk0yCZAhnhfI2REEIIIYQQ QgghhBBCCPk4kFo66Oru7e0bGMwOj45NTE7NTM9smpndDGY3bQGbNm/dvGWb 3SoAzCY2TgnZoZF0pk2jVVBdrBSEndu5W1YZcDw2vrGvf1CfMxgaHpXiv5gh z86uHkMcuIyMjsMdQ8MwC09geGQMI8XfZCojSwAKDHDV4yKEEEIIIYQQQggh hBBCPm4Gs8PDI2PjE5MTG6fkAf7JqZmp6VkwPbNJvwqwafNWWQWQhQDDKgAa EQFxskMjyZSxVL460PuOuV2Ij44QH2kgK/QyMDjU3tElNq1tHUhYiv/KrKOz 2xAKIx0ZHQdDw6Nwce43o62GSHDExNhT6dZ4IqXno4yLEEIIIYQQQgghhBBC CPm4GRvfKMgSgH4VQBYC1CqA+iGAfhVAFgJkCQDHcMwOjcTiST3JVCaVbi2Q RDIVTyTjiRSOR8cmkADSkEf3JUkwMjo+mB3u7unLtLaLV/9AVvJBbkgSLu0d XYbIaBkeGRsaHu3rH3RIoKu7F0MAEgH9IixckJJ+UJIhIYQQQgghhBBCCCGE EHJhMjU1Mz6+cWxsAn8nJibBxo1TYHJyGuAskBf7zs5uBps2bQGbN28FW7Zs A1u3bgfbtu3Yvn0OZtnscEtLXE8ymVbvz7UkkUhFo7FQKOL3B5ubA01N/kAg hPbOzu7e3n4EHBkZQ2LIZHR0fHBwaGAgi799fQNtbR0qSEdHl+SGJJEG7PVn hZ6evqGhEfiaTwloR1/Dw6PoFF1LWIwRk4NRxGIJIR5PAqTtPC5CCCGEEEII IYQQQggh5NNi27YdYNOmLZOT0+PjG51XAWZmNgG1CoBjnB0ZGRsYyHZ2dqe0 Sn4slohGY+FwVBGPJ5LJtCUwhkEwGA4EQqC5OdDc7Nfq/0GzcSbT1t3dm80O Dw4OdXX1oEeDQWtrO3JGVsgWB0gMKekN8LG/fxDZ9vb226WE4LJGAMt0uhUt GOOWLdsQPBaLa5xbBbALQgghhBBCCCGEEEIIIYR8usjT+8KWLdtmZjZt3Dil FgIMqwD4i0acGh4e7e8f7Onp6+rq6ejoam1tl1J5PJ5saYlL/T8UCgv4mEik DMAyEmkJhSLBYDgYzBX/tYf/c8X/5uYAGs0uira2DvSLHi1PSbbIc2xsoq9v wGCAVJE52nFgGby9vTObHR4YyMIGx2jBwebNW/E3FosbftrgkCQhhBBCCCGE EEIIIYQQ8inS1zcg2/hs3rxVnuqXLXTkEXrZGmh0dFx2xRFUebynp6+zs7u9 vVPV/2OxREtLPBJpkaf6BXyUDXMUyiYUCsvD/2KGdoOlHbLWYEkm0yaZI+2h oRHkZjDo7u7t7e3v6uqxdMec9PcPAmWDvjAnCCg/bdCj9gIihBBCCCGEEEII IYQQQi4oWmKJ7NDI7KYtM7ObBXnhL5iant04OT00PCrvw1UMZof7B7K9fQPd PX0dnd1t7Z2Z1vZkKhNPpBAtEo2FIy3BUCT3SL9GKBxFuyKqGaAxKA//hyLR lrjeAHEkFEhpL+RNZ9r0BrnXFkzPol3fqAdZjY5NDI+MIVXkGdOGqUCqyBzu OLBzl9HBRjIZn5jEzOAYmQsRIRqzy4EQQgghhBBCCCGEEEII+RSJtsTBYHZY Cv7C5NSMsHFyemLjlNT89fQPZHt6+7u6ezs6u1vbOtKZNkP9f7FIHo1JfD3n iv+hiN4gkUwjVHtHF/6m0q3SiOPZTVuQ0vDIWGdXTyyeRCMOkC1yQw6GyM3+ oBz39Q8ODY8ODA7hINPabsgBaSMIgpvTAxiLjA42kkl3Tx96RG6SfDgi5MZo GYEQQgghhBBCCCGEEEII+XSJRGNC/0BW1fyFiY1TwujYxMDgkNTSFVIhb+/o SmfaEsm0LCWoaM5I/V99jMWTHZ3d8rw9DiSmnMq0ts/MbkZWyGEwOwybeCKF 9ta2jrHxjcMjYzAWSwT0eH0NHq8/EJKY2aER+Z1CZ1ePITckLL9csMsZHcEL NkgAH5OpzNT0LEaNzEPhiEZUKHDIhBBCCCGEEEIIIYQQQsgnitrKJtLS3z8o L/ydmJgU5EXA8sLfvr6B3t7+np6+7u7erq6ezs7uZDKtd18d6XSrvE0AwVXk TKZNzuJgZmbT5OT06Oj44OAQDGKxhJxKJFLZ7DC8UqlMOBxtaPACj8fr9Tbi IwwQR23jb0g1Go11dHS1tXXEtdcQm2lv74S72ES1WZqenh0ZGdPeWRDRI30R QgghhBBCCCGEEEIIIRcU4XBUT29vv6r5j41NCPL+32x2WIrzHR1d7e2dbW0d ra3tsVjCEGFFpNOtCDs4ONTfPyhLALKs0NISF4NoNIZecGp4eHRgIItO9e7o vbu7V4wbG5s8Hq/H4wNNTX60oF29pDiTaTN3jcjoyzKxVCojw4RN7oUF4SgS mJqa0b/XWJAlAEIIIYQQQgghhBBCCCHkgsLwNDvo7u4dHR0XRkbGwPDwqNDf P6gq/+l0ayqVSSbT0WjMHKQQEGFoaETq/wMD2Z6evlgsYWcc0X4L4GAQDIa1 4v/iEoBU5pEnhtPR0YUDRNDbIxQCIgfLaC0tcRmp6rSrq2dqaiYeTwYCIT3S ESGEEEIIIYQQQgghhBByQWF4ml3o6uqRsv/Q0IiQzQ4LPT19qvKfSKTi8aQ8 fm8Zx4FoNKYiDw4OoUdzMu3tnQ4RfL4mqfMrmpqaZRcg0NTkR0sslkBkxMlk 2pCn3jis/QRA9g6yjK+WORAEH3E8OTmNUQcCIb8/qJAlAEIIIYQQQgghhBBC CCHkgsLwNLuio6NLq8wLQwMDQra/P9vV1ROPJ2OxREtLXPbGlxK6XShLtC19 xoaGRrPZke7uXv2p5uaA1NV7ewfi8ZQ0hsO5XpAAwFmv1+d2e0BTk396ejaT aZOyvKr/j49vlEb8TaUyiURq7959u3fvAYggMbUljNx7ASSsIcN0ujWdbksm MxgpvPbvv/qrX/3b66+/cdeu3Tt37sbfqalpWQJAFxJZQD7OY0dfzjaW+aCX ZSN/KuxualZktC/uggXpfWLZrq6jgeaA3vFjTC9/ucpt8jG5kPMO/mco8P+Z j0jn9MbZb/3NFU/+JzD51VsSXV0Oxtn9e3b+54NiDC9nYxV/9MA1kYTxF1UC IuCsBNx6z7cQ/1OfeUIIIYQQQgghhJDPIs3+gB2tbe39A4Ogr39A6O3rF9ra O8KRaCgcCYbCgWDIHwg6xEGEru6eSLQFltLSEosPj4wODY+AgcGsam9sam7w eOvdDV5fIz5mWtt6evvQC7rDAfp6/oc/nJ+f9zU21bvdMAPRlpaFhYXXXvuR RPB4fe4Gz9Zt29A4t3OXNF53/fXwWtDp+08+KWnE4gnEf0OTIe14IplMpfF3 3/79CzZqavaDB7/7XfOpt956a3Jq2nJCTp85A4P+/gG7GUO2cDc0YuzwSqUz li6TTc0LtbUFcpfXe64vl2tZe9iYe0w1+59vaDAbo7G/qdkuPctQwmtutzk9 Q5IPejy2k6bZ2MVHSoVna+h00sbAEpkW86y+UV+/E9e3vSPOwsY884iGmJYT BXvLULd7fXazjatOLiS9cPHv3LXbLjFLF1yft9/+VYcLGHIwUDbmdtybdreb krrfBdzgy7qY+0IQS0vcnpiQu+76j3b3mp2jXvI/jHm8dv8nyDxb3vjnvtbb vyr/degHhf98LPMsJEmM0bKjcCI+972DX3rjFQMD+ywuEhjvf+bxAo3N8UcO XG02gO+Bn/w3Q0D0AkeHK4oQQgghhBBCCCGEWNDsd6C1ta2vrx/09vYJPT29 QibTGgyGAoGgXwvS1NTc2NiEv4YIoVB4fHyiv38AfyORqDR2dnaNjIwOD4+A RCKJFoSCr8/XiCDKF110d/eg03g80d7egZbbb799YWFhcnLK4/G63Q3gqquu llpWKpWGAdzReOjQ/WiRyDBe0MqV1113PWzw8bXXXssV6L7/ZDgcicXiyGqx /r8085aWWDKZQtf79u3XamV3ofdbbrllbm6nAjmDBx/M1f8Rf+fOXQKMpdzX 399vCIuz+eLbXZZzLgkv5BYIlvjKEgZ6sfTa6WssvP7/YINHORboYkyysclh 4QCnJnXfoyE9u4tNVb/16ZmTNEQ221hOjnO2MHAIaHnW+rtznBZwu9dr6Yh2 5/UX/aj1k3mdz2cIlWpqPrdcsnQmcWnpF8JwzZ8+fa6ejMvbnBiuNweX55// ofV3ka9Om69/g43FZfDGG8sWrg13q9yAy2qlHeXK9ZNT5yVDNV7MnvxPZXGV 5v9nsDyLqVbBEUSfA/5zM8csJEnMm2Vfc9+7W0ruWw9+c+PtN4HrXvyv0tI+ OW4wvuLJ7xZuDNCoDADszQZyCmYSEJGlBX0VeCcSQgghhBBCCCGEEEEq2A6k 0xlV8+/u7lF0dXWnUmkp+wOfr9Hr9QFZBVAkk6nR0bG+vv5sdkg1Dg0NS/1/ cDCLj35/AAETiaSclYA4QPxMphXt0WhLa2sbWhBHK1s9iO7c7oaGBs+zzz4r 9cnbbrtdfNH+5psnAZJBy2uvvQYDxAkEgmq8sgTQ1tbW0hIL55//Nww8Eomi 61gsfuWV+2A8N7cTCSMBSU8P8oGBwX1ychKN3/nOXYb2559/HvloddTTlhMO F6nO6X2vvfY6KUjC3dJrciX1/+94PMqxEPt5l2vJd7q0yn3a5Xqtvv55t/u0 rhEGSd2VMJd/Ih3YXWm6+n+D4ZQ+mZN1dZbudvH7Csu2b+l1qw84p11Iy4Lx nrbqCAnr8zdHu1Y3OTJAeMHXkLZ+Pp/P/wTA0J5bjcr/zOH00m8Nl67cKbjw cDmd+2rmdp48+ZZccvp2Bxe0yx20kFtH+77Fd6Erg9tNlxhYXAZa4RrXuX6h zQASWDJk7QbEKBxccD9adoS7zGyMgDJw/MX/YB89Q/2c2N3C8LKbE0yymm0V GYnJwGXshY9OYR4aSA32Lz6Zf+NVqjEUi+1/5jE0zn3vbkvj9skxvfGe73/X bAwGrtwl9gd+8kOAg4nbbjLOg7b6gO4Qx+yIHgu5GQkhhBBCCCGEEEKIYK5m m0ml0l1d3YrOzi7Q0dEJEomklP09Hi9oaPC43Q2yCiBkMq3DwyPiKC2BQFA9 /N/e3oGWZDLV29vXrD297/M1CmIZDkcikaiU4tPpDCx/85vfvPHGG1LnR3fz 8/PPPvvc6dOnX331NYkP44WFhUOHDuEsPuL4hRdegHtLSwwBxWZubg7tu3bt jkZb0MXrr78BDKNGezyegNfevVdq9f85+QWEPknhgQdyVTjzvKERp/QtSAON zz33/G233SYxzV6SDEZ08uRJ1QgXjBRjRHshXxl4wL1YB369rt7BTFeX9q40 MsCx/tS3GzyWp+Z0z7fbhUWeljH1SdoZ6G0M7c/Vu9Wpb2uXhGW2r9YbZ2ml M+MwLYigivmnXS6Do1o1gI2hL7uYvbrlHrv22zxLBotLSArauAgtrzqcVTeR gI9S/Ld0UUVpuSmWTJ1OhlvAYGOXiZ2X9cxrN6D5FnZGOrK8B8HGjZP5hcXb PnqGhjm59tprzQbyn5J5TjC9DjOpvJBw4aNzoHvbrDx7b2jv37tT6vb6xonb Dkit3jIIMLTLIsKe7z8YbWvFX63+f8BgM33nbeglOWC8qORXA2Z7QgghhBBC CCGEEOKAoZRtR2trmyr7t7d36InF4lL2B/X17rq6euDxeMURLtnskPxYQFoi kagU/4eGhuGLlu7uHjmLOMpREQyGQHOz3+v14eDv//7vFxYW4vEEjGXzH/x9 4onvSyPs9++/Csejo2MwwEccP/zwIzgVjbb4/QGJiY+y/QWS0er/ORn6DQSC SA9ee/fuhfGOHXPyIwj1SwfFAw88AAOD+7e//W00fuUrt5kbJyY24nh+fv65 554zeEliCCgjku6UMaIp92V5IP+I+Ot1dQ5mqly8wzTzdqh69av19Xb9Pldf 34N4+UYEVx3ZhX09/5w8Itgl6ZCtZfy47tF6c1j9LIG4LuFVzMy847R8RbfW MKELeI2u3bKjJ6zmU585+lWn1Byav3SpEhsuSP2Fh4tT7iD9pejgkrsSTp+G ARwt+3r11VflwPKKlVMWl8Hrr8stUODVmJsK7QY038LOSEe4r+0McMdpq3XP ffQM1XjFF7ezfqoFZGI5JzI6TLVd5GuuudY8imVHZ0cgGh26YX+iv9fQ3jox KiV9fePmu+9Ey/hXDpjjiHG0LaNvRNj+vYspSf3f0teSldoTQgghhBBCCCGE EJ+plG1JIpGUp/2F9vaOtrZ2hd8f0Ir/blX8d7nq5FcAoLOza3AwC69kMiUt 4XBE1f9xjJZsdkgO4OXxeA29+7RSfJO23wXMtm/fsbCwcPXV16jNf3CAj2j8 8pe/AntpdOd+HoBYPq3+/7Ds8y+LCIJW/38QAUOhsNT/Df2ix5aWGLyuuGKv tsPGydeXSlnef3+uQPfEE0/gADz33HMwFhdDTHmqX45hDxskpjeQgYyPTwAc fOtb31aN+Nvd3aMal+X++nP1fwczVXzerk3XsnTrKvlXNzQU4gK266rcdjaq do3M7ZI8rXuKPub1WtrY9WuwF2K6HyYYZmBFMzPuOdfRuMfaXiWvH6D6mnC2 wMlUmc/X5lcc6uoNgzXkLHeN+Xpz+sryLg42cg2b7x3VlywQmG8EZWNxGWiF a9xHhU+F3IDmNJyRjjDMlYZdRYZqvLiF5WcF5rB2Ey7dYarP7+hWytD1+770 xivX/sN/0Tfma/I3mu2l/p8ZH7EL6OBrCbqGfeeWmfM1IkIIIYQQQgghhJDP A7JvjwPxeEKr+S8+9t/WlqO1tV2jLRAIqif/Vf0fB8odLn19A3BBHNXY0OCR nwzIRxiEQmEcdHR0+f0BQwJIEo2NjU3pdGtTUzNaZM+f/OY/z4oZjo8ceRUH p0+ffuaZZ5GDxF9YWHjooYdln39xF2Q/DfQbDIaknm/oFz3K7kB79lxhrv9L X8L999+vN5CaJxrRqT7gtm3btUWKL8vHsbFxrZj/Lb0NxoWByDHiSC/6RvSi 79qB+/Pb6b9eV+dgpirG2/JfhzPbdDvSFGJfuJeu/l/vkKQ6fnypmWV8NQkn XS67fk+eK8tbByxkZlY9wCP5xiOOX5Ml39JtbYQE1PqC+RvHVSeXaOHB5ao2 3xfmsGYbqWN78tc89PjjT9jZGGdpsbp+//lN1a4jZGhngBvNMvNVZKgfr0ya +d5Xc2VwlP9Prr766vM7upUi5fepb3xF37j7iVwNf+zLN5rt8/X/YbuADr5m stftk92HztdwCCGEEEIIIYQQQj4nSCnejlgsrt/qRz3z39raJm/UlTK+ofiv jyCvD8bflpaYalQusoc/IofDERwgLCwNOch7in2+RmQr+5AfOXLk9OnTavMf MXv22WfxcWxsDH9vvfVWiY92rf7/UDTaEgqF4SvGnZ1d8iB9MBjy+wPHj78O DP02aa8Ahtfu3Xu0Sto2u1k6dChXflQfYamVDR83mEmGaIe9MD8/j4HobbSa /xE5hiXskbksc+gbnb+1xazy2+kfd9U5mKkC8rN1dXAxM6Z9R+dGp9swp5A0 zF6WvQBVvsaxXZK5GciPSyt6uy1tVjQJOGXZr2UvhQzQzuZxq2Tsei+Qc+8O 0G2O1Ln0K1OXqPkid7p+CnCRS918Qeob5Yo130GWjrkJOZ4rXKP385uqXUd2 9/WXvrRYpVf/w3yUDA3jxT2+oO0ChP+vCpxMh/9/VjG6lTL25Ruknh9Kp/Tt u594QKvh32AxgZp9emzYLqaDr6J3z3YYiCXo2Dx9XoZDCCGEEEIIIYQQ8vlB nt434/F4k8mUZeVfqvTNzX5P/oW/qv4vJX090WhLZ2cXQiUSSdWotgnCX71x U1Nzb28fukNwfPT5GtHi9wdAOBxBKNnD/5vf/KZW7juu7fOz6Cvb/r/55pv4 iwgqGdj85Cc/iUSiwWAIAfXG27fvkJ2FjmsyZI4c0Cm8du/eDeOtW7d58nsT qdUTsTx06BAM9L5S3+vo6FQtSED2/TALkcUG9trixZfk4+hobi1DQiFhfebq owOH8g+WH3e5HMwWdHVjSxBHb3+rrvy+bA6Krbon1Vfaoz7J3EzqHnTHQcTK ZkWTcPzcukOdZadbTVe1w2w7TItlMna9H3HV4ZSBDlMm++vrDbP3rGn21CVq vsidRlSACy5duYaN39fSRrkrT58+jbvAzubchBw/LsbHbaS/rfSpOgj/Y9h1 hPvr0FI99tjjkrDd8MXRQbhzzV768ar/DdBRgZOp/pcoEOck0btlkpakRoek /D76pRsMp6Qyb24H4gJfu7AOvkJjMChBBNijZUWTQAghhBBCCCGEEEKkdG+g ocGTSqUtK/+q+C9lcFX/l3q7mUAgiCCJRBJeqtHlqqutdYGamlq9ZYO2aXk8 nggGQ2iJRKItLbFQKIzucKwsOzo6pIol+/woVElN1hckJXmJ5+zsJsRHwmgJ hyOwkR115GcFUlc0ZN7U1Iyu4bVrV67+v2XLVnkTMVqA3x9AVjLw++7LlR/1 vpKhPr1bb70VLSMjo3ozZII0lNmdd+bWNeCrDE6dOi3FOr0XWh577DHL2dZz n+tctdnBbNlqPOLo7e/UFbqXzUGxpc5Ypi68R32S8nFEF+2V/OgssypkElQF 3tCvCrjF5tq27MhhWiyTWbZ3PZaZqAjyK4CwZdf3LRbzC//KCnHBTSF3ovH7 WtqIy15aXnnliJ3NueEsV11Hp5apOggGq+gIdxnu0POSoXm8+/fvN+TmPJmW MR1YNknD/0V2BJKJAz/5oZTfzWfzNfzrzaekaJ8cydpFdvBVbPq7r8NMEgD7 nn50RZNACCGEEEIIIYQQQlSpXOF2NySTaW2f/3a1z38mI7Sm0xm/PyAvDjbU /y2BAbxALBaHvTRK5b+6ugbgWBrRY0dHp7wIQFrC4Wg8ngDNzf5YLKEPe+bM mYWFhRtvPIBkVO/PPPMMGh999DG9ZV9f/wcffDA//8GTTz65f/9Vd95556lT p2B2yy23Khv5KcF9S/XAAw8ODmYRf25uF+w3b94ixX+t8h9oasptSSS/YoAx DAwDl2TgJR/f1GSeH5iha4wax6+88gpy05/FWBZy6wjP6BvNZpbcly8LH3e5 HMxU6fgZl+s+KzZrP9NQbNYVupfNwdLrUZuOTp2r/xsTNvd4n67ovU/L0DKr QiZBV4F3WXZqmAFLbilgWiyTset93qr+b5mJfm7NU7fYtXaJ4jov/CsrxAWX txSTjd+XqVGiQfv27bezWZwQrXCNixzBLZGbxRzc8v5yQHWkv+vxURIbHh5x doTxirozj1fubtWX82Sq/0lWNDo126vD6/fve/rRxdf++v1mg12P52r4I7de bz6Vr/8P2gV38DUzcM1eCdi9a9tHGREhhBBCCCGEEELI5w2Xq05Pfb07mUzp n/aXrf6FRCIZCAQbG5sM9X9DEAPxeAIxI5EofKWlttZVVVWtUVVZWYWP0nU4 HIFlKpVubvajBS7pdAZ9yYEKiLMPPfTwBx98EAyGkIxq37x588LCwtDQsL53 vz+Alh/96EfqwddTp05deeU+vY0q+hk0PT2DvjZunJQanXrsv6mpGf1iBmQs 3/jGnTAwjBpzOD8///TTz8gxDAydCsgNZnIKB/fee5/hrNnxlltuMXdn5t7a xcLyMW167dDVlp3Mzk2yrvBeiH3hXsfyCd9rStjS903dQ+9BG5tCJsGu3xXN zIoG+LSuI9X4qH2Gy2ayrAGuK1wzx44dL/wrK8RF7jjcUMZ8NBmHfyxXkcZF jtvWzkaZGW6Ej56qXUcYgr4RucnPiBwSWEWGluNFX7IWib84lsk0z0m+/r95 Rd1Zjm6lzP7d1+Stu5GudkuDXY/fr9XwrzOfknJ9YnjQLriDr0My8PooIyKE EEIIIYQQQgj5vCH78AjyrH6+5r/4wL/2zH/usf9EIuX3B6T0ra//G4KYgUss Fg+HI5FIVBlXVVVXVFQqDC719W78jccT6Eha6rRfDQC324NMtIC5BQWxVDYq K9UeCkWCwbD8ZsE5TwPNzX4ZL2JKSvriP6Khl5qaWrCisJ8Y9+ZrwsdqnTJU peNNhYXdpHPJFpyM3svO5lje4F6TjaVvVtf+iu4heb3N3gL6VQY3f4SZ0Q+w 1cbmTasBPppvfNMmw0ABkZdNddOmzVJ7L/z62bv3SilNO9jce++9WuH9mDEf TYZG/K8ipXWxt7TJXQbHjmnV9XsLT9UuDWekI8yMZTQICTs4rihDu/Fms0PS /uijj8p3ZLaR7r7+9W+cl9EVTv/VV0gNv2vnFjsbqeEP33Kd+ZT4xocGVuFr CUJJzFWPiBBCCCGEEEIIIeRziFSwgdvdIMV/9bR/Op1RyJP/zc1+oK//6yPY 4dKe5Ad+fwC+0lhdXVNeXgHKyspLS8vKy8vNjujC3IJM4vGEvBcAaejP4qOU 6HFQX+9GS0ODR/bwR6Mq1xcCxiWhkLA4urU3AuuXP9CFbGFUeNhPknt09X8H M1U6ni04snK5xyry3pral03RZnVedmGP2Ye1871HV/a3tMnofG+y6nSvziD7 0WbGeVr0mezVtd+ka89YhVUGZ+2nbtlUcTtLbTmbzRb4LcNSXOBr+5VpReZH HnnUmI8mi7HcdLOc+vrXv25nIzHvuefeAvPMXQb3LNb/C3dRHc3ObjKfksfy n376aQfHFWXoMCeSvEyjpQ3SQOPLL79yvkZXCKGONim2T9xxq4MZzlrauBsb xR0Hdr75+v+1hvamWAsw28ey/RJzdSMihBBCCCGEEEII+XwiFWy3uyGdzqjd flTZP5VKg0QiGQyGpB4uNXB5bW5trUvcl8Xr9UkRHkFcrjpprKysKi0tKy0t 3bBhkYqKSrsIdbnXAUSQUjKZe/g/Gm1BKJW/vEdAupAn9uUUjiVzHBSeLXBp uwzJSNE1WhoaPIbfPtTmdzEqPOwnyT35svAx3SyZUaXjmZpCIx/WVaQHl57C x7OqDK7rF8FVR3Zhj9VYOBqSdPCyszmRbz9VW5teegofT+nOfsSZcZgWvy6N s0s78us6go3ffj4P23+PhaQqNe2XX37Z8uzXvpYryN90002Fu8zMzEq9GgfG fDRZeiEaTp09e9bOJl9dv6eQORdgLPX/wl1UR+bkAeZB0hsczJ6XDJ3n5MSJ Ews6rSgZ/OeGrwkRcFDg6Jal3ueTV+7ufOx+Z8u+q3bD7JoXfmBo79ixWTYO cvBFcNgM3XytoV26Tk+NG9rH/za31nDl4UdWMSJCCCGEEEIIIYSQzy1VVdUe jzeVyuRf75sDHzVyxf94PBEMhtV7b6UqDhfxLRAYNzY2iaPP16h8Kyoq16/f AEpK1itKS8vQLgY1NbVwjEZjra3tSE/LJ9nSEgsGQ7XnXiKQw+drkjo/Durq 6tFSq23+I4sC6LTwbIHb3aA2+UcOMkvax3MbH1VrSxhgRZE/MQ7mS+5Ha5y+ qXPF55qcpSUvL40wUF2tr7cfrqnZU10zU13zcM25YnWuFq27QmZ0NWq7TI7m Ez5oStjBN1VVre/UbLNH1zUskeSMVbZ7TNdzITNzQOdlNy0Yzildu3l0B3WL I7D8mua1x5RhqoAvccb+rtyz5wopIx8+fNhw6sCBxQrzww8/YtludhkYGJQa /tGjxyzy0WSZBm5GVfy3tEFAtB88eM8KLvWD99hl4oB0NDMzY3lWavKWMVeR ofOcqMm0s5GFGNjA0jCZkidO4f/GwkfnzJWHH5HqfZ3X62zpi0bkmfyhm6/R N17zwg/QOH3XHQ6+Ox87ZHAUtj5wl/QeaMuoxpbBPlkXMNsTQgghhBBCCCGE EAe8Xp8q+2sP/OdIJtPJZEqetA+FwsFgSL36FvZ1dfVS99aXvlWLHTU1tVrZ 3Ftf36Aq56C8vKKkZP26dSXr1q0rLhaK0SJn3e6G1tZ2+VUCEpOd/5GPoUeY +f1B2a4HvchZn69RPfzvctUvmyGoqKiUA4/HJ9V+RJMW7bH/3Ef11mO9/QXI wepz9X8HM/P+OZYYvG5cWus2AwO9/bSuRm2Xybn6f7UxYWffO5YmYzY4rFsC sOSwqccCZ8Ywt8tOi2VH4ETNMhka5tMu1WnHO/Hw4cNSYT516tTDDz98UJN6 +BwHuFMKcXnppZel8ezZs/39Axb5aLJLY3p6RtW6LS6Do0e16vrBFVzqBw9K MkfthZwtO0IyzkmaDcQRE+LQnTl/5zm5446vOcwJJlktEGAg8i3gq1GNN954 YBVJ7tmzx9xX7/5dUtK3ZOdjh+q8Hr392N/cIqeueeEHOCtVfXDjj3/ojYQd vjWxzN50jaEdXvCVIHufegRm+Ks+GnonhBBCCCGEEEIIIc4YtvoBUvlPJBYf sxdkD3zZrl9ThZS+q7RH9GtrXS5XXV1dPZA3/EqFX/+GX3nJb329uyr/5l84 yoEsARQVFSvWrSuRU7BXLyOQ9Qiv12cOq3b+kZf8SnC18z8azclYosYl+/x4 PF4kILsSqcf+pfiPYSr7C5O787XoozU1DmYF1v/Njrurqs5aWaLxxqUvdwZT uhq1XSaq/o/M7ZJc1tfO5g7TzwRUtneYsi18Zsxzazct4CHTuBSNFZUP2awd /EtNDWI6f9fKeGq56/zuuw8uWOmppw7jml+Ry9GjR5PJpHU+mhzSeOihh+1s pHCNTpe9wpfN0CDLjqampm0vKs3gxIkTlu3Ogs1K50SFtTzb19dv2CZI9C// cmr37j0O0RxkOcnZm652qP8DTzhkcBn7m5sNNte88AN/a9r5W9ty/3dg2bNv l/kUfPc+9bB56cHl8RR+VRBCCCGEEEIIIYQQoCv7q8p/rvgfjbY0NjbX1dWX l1ds2FC6fv0G/NVUVlZWrq0CVEj9v1p7Aa7U/+vr3W53g8fj9Xp9Pl+jPI2P RnnVrx6vtxF9wUy1IHJJSUlRUdHatUXFxeukETHlVwnIRx7FN8Sp1nbAVjv/ qL70O/8jN3MCVpTLQW2tSzb5V6seaFGP/dfXN8ibf9U8XJj4yismKytBQlun sKOvolLMnLFzv6Gy6qGq6qPVNQAH+OizsZQ4ffbJJPKZmCOoJJcdrEN830qy LXBm7OZ2l66jp6qr/7aqyvlbUDMAS9iL491V1btMF7xzqgVdGL7GG2648aGH Hjp69OhTTz119913434v3OWll16CS19fn1M+fX2Tk1POAWFgaYNk0A6DQsZi iOaAOWFJ0qEjCWt2lAydMU+pZahCujPkjMnHV4AvAge7du12/gpWmqQQ6e+2 ozmTsnRpCAV79u0cPHA1SEyMFPKtiUttQ4OdAfqSgDCz65cQQgghhBBCCCGE OCM1f/XMP4jHE9FoSyAQrK11VWqv6JUt+mUJQFsFKAPlup8AVGuv31VLAA0N Hv0SAFqkVK6ASzAYkt8ahMMROOrPSi9yjC7kSXtDBAGn1MZE6Aj9lmu/UHC7 G2TPItmwSBqXRS1twF2e9seBdC2D0or/bvmZA9plKgqJTAghhBBCCCGEEEII IYR8wsjT/rLbTzgclVf9BgIhHIBQCETC4QiO8w/zN8gGPmVldrsA5X4CoJYA vN7chjyyZKCoq6uPxXKvFY5EWlpa4vjr9wflvQDl2g8BlgVm6EJ7wn9x5x+p 8+MUguR3/sk9/I/cCgmoljYwrnzx34M8pS8cq+K/bHAkyyJqNYQQQgghhBBC CCGEEEIIuaCIRKLBYEgrofvxt7k5INvp+P2yCiDIQsDiWkA4HIUXgIE8YC+7 4mhLAHUu1+IuQG63R3bLLy+vlOq6noqKykAgiJiIgAPJwefLPcNfV1dfVVVt dlGgF8lNFf/lyX8tbJWsX8jOPwjlEEfP+pxy9fzq6hrZ6gejqKysQguSwTHA 0KT4j3YYl5SsLzA4IYQQQgghhBBCCCGEEPIJ4/M1+nxNjY2gualJkIUAWQsI auV0tRaw5EcBurWAFhCNyi8IQrJDTh53qW4HIQNVVdXoWltEaJQNdkBtbZ0U 2A1UVFTCxu8PaGmE1Dt/4bJBe0OBrCloqxIBjKKhwSvty1JSsn7duhI5rq9v 0Ir/DbJ2gJbaWpf22H89DkBNTW1ZWTlcQCHBCSGEEEIIIYQQQgghhJBPHtmi R1sFUAsBai1AfhSw+HOA/FqA4UcBEfWjANk+CAFramoVtbUuKZU7UKpt2iPv DoBLVVW1FNjhq71stwHJoC/0gr+yQ5H25H8AecJeguSf/A/Kk/8Y1IYNpct2 LRQXr1u3rkQLUul2Lxb/kZI84a8e+0df1dW59PQuhBBCCCGEEEIIIYQQQsgF iMtVV1/v1lYBfPLGXnlpr9DU1Jz/LYA/vy9QIP+LgKAsBOS3Bsrt5KO9IMAt bwQQKioq160rWRHr8w/ko3fZaEgq/1rxP6Re+CvP54tLba1LfwpDKC0tK7C7 4uLioqJiOZY1CNnkX4JjLOqx/+rqGlmbKC5ep1wIIYQQQgghhBBCCCGEkAuQ 4uJ1wvr1uVfZam/yddXVuXW/CLDcF2jJLwLw0ePxyW7/NTW15eUV5eWVFRU5 EFN1sVLQu/y+IL/hT27Df6RRV1e/fv0GsZEtjAzFfzQW2EVRUfHatUX4i+Oy sgpV/Mc8oKVE+w2C/JBBiv+VlVWYNOVCCCGEEEIIIYQQQgghhFyYFBUV21Gs VdcrKqrkBbgej9dyLcDna5J9+4XKyip5s3BZWbls4+PQhSDLEOZ2r9cXCIQ0 gujd5aorL6/Qe9XWuuSsbAek7fnvWb9+w7I9Ki6/fC2QY8SX4r/sWYQWdJev /NdUVlbL0NauLYKLLAEQQgghhBBCCCGEEEIIIRcma9cWrYgNG0pLS8urqqpd rnqvt1HbLd+tJ/9u3MX3CxQXr3OIhrMVFZUIVVZWYT4rEex8KyqqpOwvlf/G xmbEKSpy6s7A5Zevveyyy6WYX15e4XK5a2vrampcSElyk8q/PPaPxvLySjSK 10rnjRBCCCGEEEIIIYQQQgj5JJEH4FdHbW3ugXkD+T2FFvcXsutirbaUUF1d I+8Ixt+i/NP4dlx22eWXXnqZIHV7j8fX1NTc2Chv+y1bUfIqGo6RMDJXm/xL kV92Q9Iq/1Xl5ZXl5RVIWLykd0IIIYQQQgghhBBCCCHkguWyyy5fHfB1ueoM 1NTU6hYXcr8vsHRct66krKy8oqJS3hRcXZ2rupeWljn3uGbNX19yyRr8/eu/ vlSK8Aji9foqKqrQ3QrzvwxBgHysqqrRnvzPpSFFfgSUyr/22H+F7GWERnSs vAghhBBCCCGEEEIIIYSQCxb1RP1KKSpaV1vrMlBRUaUiX770iX1h7dqikpL1 2iZCuRcElJdXVFZWydb68IWLQ4+XXLLm4osvkSUAoJ7eX0Xya9acW0coLS1H 5rIGIfmjccOGMqn8AxggW6QNe+VFCCGEEEIIIYQQQgghhFzIyGPwq2DdupKa mloDGzaU2tlfpj1UX6S9t7ekZP369RtgLEsAsrsOjnHKoceLL77ki1+8GH+l /r/qzC+5ZI22ipCLUFy8rqYmV/zXtvqpXru2WBq1fHIplZaWI0/5UcCaNXBc s+p+CSGEEEIIIYQQQgghhJBPjDWrVUlJSbWmKp2Ki4svyUtvvLhfz+Xavv9F RTBbl18GKNW0YcOG9ZpgadejOewqdLEmiYOUZAci/K2oqEBKkmppXiorpA0X 5UhRFEVRFEVRFEVRFEVRFEVRF7guWa1KS0urlqqysvLSSy+9WCf9WsC5Xfsv v1yWAEpKSuC1YcMGHKzThEaptH9M+uIXv3jRRRfhr6SkL/5jOGKDZDbktX79 eslNfPUjoiiKoiiKoiiKoiiKoiiKoqgLWRevVmVlZRUmfdFK6rF5tQRQVFRU Xl5eqwlexcXFRZrWalqTf0r/PApp/JWmiy66SPJB/pWVleWaSktLpVP0vj4v tSqBtNXCwXlPjKIoiqIoiqIoiqIoiqIoiqI+DllW7AtRuZX+aqku0qTK5pdc csmll166YcOGqqqqap2Kioou13TZZZfBQOrt51HI4T9oQkqSTGlpaUVFBRIu KytDPmvWrEE7upayv1T+izUhK7jLWM5vVhRFURRFURRFURRFURRFURT18SlD URRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRF URRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRF URRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRF URRFURRFUReATr558uc///nx48d/+tOf/vhHPz5y5MjLL7384osv/sMLLxBC CCGEEEIIIYQQQggh5ALnxRdffPmll48cOfLjH/34pz/96fHjx3/+85+ffPPk O2+//Zu33vr1r3/9i1/84p9+9jO0Hzt69B//+z8SQgghhBBCCCGEEEIIIeQz wbGjR48fP/5PP/vZL37xi1//+te/eeutd95++8yZM+++++7b//z2b3/727dO vnXixIlfQb/85S//ByGEEEIIIYQQQgghhBBCLnR+9ctf/upXvzpx4sRbJ9/6 7W9/+/Y/v/3uu++eOXPmd7/73XvvvYeDU6dOoeWdd97BKfDPFEVRFEVRFEVR FEVRFEVRFEVd8JKq/jvvvPPuu++eOnXqzJkz77333u9+97v5+fn333//97// PY7/9b33/pem/0lRFEVRFEVRFEVRFEVRFEVR1GdEUtv/V63s//vf//7999+f n5//8MMP//CHP3zwwQc4Pgu9T1EURVEURVEURVEURVEURVHUZ0xnwdmz8/Pz H3zwwR/+8IcPP/zwL3/5y5///Oc//elPf/zjHz+kKIqiKIqiKIqiKIqiKIqi KOozqz/+8Y9/+tOf/vznP//lL3/5P3n9b4qiKIqiKIqiKIqiKIqiKIqiPuNS Zf//l9f/pSiKoiiKoiiKoiiKoiiKoijqMy5V9v//HbEPBg== "], {{0, 71}, { 2048, 0}}, {0, 255}, ColorFunction -> RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> ColorProfileData[CompressedData[" 1:eJydlndUVNcWxs+9d3qhzTAUKUPvXWAA6b1Jr6IyzAwwlAGGGRDEhogKRBQR aYoiUQEDRkORWBHFQkCw14AEETUGo4iK5d2RtaIrL++9vHx/nPW75+x97jnf 3netq5GQEZoIAwCyCegQys51FQrZeWEY9MEtT8RLgFDwoaADoPgE8AUZsAwA 6QKRMNTbjRkdE8vEDwIYEAEOWADA5mRnBoZ5hUuifT3dmdloEPgidKvXNyQj AFdNfIKZTPD/SZaTKRSh2wSjbMXlZXNQLkI5LVeUKZmfRpmekCphWHJ+uhA9 IMqKEk6aZ+PPMfPsImFuuoCLsuTMmdx0roT7UN6UI+ahjASgXJzD5+WifA1l 7TRxOh/lN5LcdB47GwCMxB1tEY+TjLK5xChheKg7yosAIFCSvuKEr1jEWyGS XMo9IzNPyE9KFjH1OQZMCzs7FtOHl5vGE4lMgtmcVLaQy3TPSM9kC/IAmL/z Z8lJvGWiJttY2NnYmFiaWnxl1H9d/JuS1HaeXoZ8rhnEGPgy91dxGY0AsGZQ b7Z+mUuoAaBrAwCKd77Mae8BQBqtW+fQV/dhSPolWSTKtDczy83NNeXzOKYS Q//Q/wz4G/rqfaaS7f6wh+nBS2SL00RMiW+cjLQMsZCZncnm8Jgmf27if5z4 1+cwDuUl8oQ8AZoRiXYZX5CEllvA5Yv4GQImX/CfivgP0/6k+b5GRWv6COjL TYHMEB0gvw4ADI0MkLjd6Ar0R90CiJFA8uVFqU/O9/1nQf++K1wuGbL5SZ/z 3EPDmRyxMGd+TfJZAiwgAWlAB0pADWgBfWACLIEtcAAuwBP4gSAQDmLAMsAB ySAdCEEuKADrQDEoBVvBDlALGkATaAZt4AjoAsfBGXAeXAZXwHVwF4yCCfAU TIPXYA6CIDxEhWiQEqQO6UBGkCXEgpwgTygACoVioHgoCRJAYqgAWg+VQhVQ LbQXaoa+h45BZ6CL0DB0GxqDpqDfoXcwAlNgOqwK68JmMAt2hf3hcHgpnARn wflwEbwFroYb4UNwJ3wGvgxfh0fhp/AMAhAywkA0EBOEhbgjQUgskogIkdVI CVKFNCJtSA/Sj1xFRpFnyFsMDkPDMDEmGAeMDyYCw8FkYVZjyjC1mIOYTkwf 5ipmDDON+YilYlWwRlh7rC82GpuEzcUWY6uw+7Ed2HPY69gJ7GscDsfA6eFs cT64GFwKbiWuDLcL1447jRvGjeNm8Hi8Et4I74gPwrPxInwxvgZ/CH8KP4Kf wL8hkAnqBEuCFyGWICAUEqoILYSThBHCJGGOKEPUIdoTg4hcYh6xnNhE7CEO ESeIcyRZkh7JkRROSiGtI1WT2kjnSPdIL8lksibZjhxC5pPXkqvJh8kXyGPk txQ5iiHFnRJHEVO2UA5QTlNuU15SqVRdqgs1liqibqE2U89SH1DfSNGkTKV8 pbhSa6TqpDqlRqSeSxOldaRdpZdJ50tXSR+VHpJ+JkOU0ZVxl2HLrJapkzkm c1NmRpYmayEbJJsuWybbIntR9rEcXk5XzlOOK1ckt0/urNw4DaFp0dxpHNp6 WhPtHG2CjqPr0X3pKfRS+nf0Qfq0vJz8QvlI+RXydfIn5EcZCEOX4ctIY5Qz jjBuMN4pqCq4KvAUNiu0KYwozCouUHRR5CmWKLYrXld8p8RU8lRKVdqm1KV0 XxmjbKgcopyrvFv5nPKzBfQFDgs4C0oWHFlwRwVWMVQJVVmpsk9lQGVGVU3V WzVTtUb1rOozNYaai1qKWqXaSbUpdZq6kzpfvVL9lPoTpjzTlZnGrGb2Mac1 VDR8NMQaezUGNeY09TQjNAs12zXva5G0WFqJWpVavVrT2uragdoF2q3ad3SI OiydZJ2dOv06s7p6ulG6G3W7dB/rKer56uXrterd06fqO+tn6TfqXzPAGbAM Ug12GVwxhA2tDZMN6wyHjGAjGyO+0S6jYWOssZ2xwLjR+KYJxcTVJMek1WTM lGEaYFpo2mX63EzbLNZsm1m/2Udza/M08ybzuxZyFn4WhRY9Fr9bGlpyLOss r1lRrbys1lh1W71YaLSQt3D3wlvWNOtA643WvdYfbGxthDZtNlO22rbxtvW2 N1l0VjCrjHXBDmvnZrfG7rjdW3sbe5H9EfvfHEwcUh1aHB4v0lvEW9S0aNxR 05HtuNdx1InpFO+0x2nUWcOZ7dzo/NBFy4Xrst9l0tXANcX1kOtzN3M3oVuH 26y7vfsq99MeiIe3R4nHoKecZ4RnrecDL02vJK9Wr2lva++V3qd9sD7+Ptt8 bvqq+nJ8m32n/Wz9Vvn1+VP8w/xr/R8GGAYIA3oC4UC/wO2B9xbrLBYs7goC Qb5B24PuB+sFZwX/GIILCQ6pC3kUahFaENofRgtbHtYS9jrcLbw8/G6EfoQ4 ojdSOjIusjlyNsojqiJqNNoselX05RjlGH5Mdyw+NjJ2f+zMEs8lO5ZMxFnH FcfdWKq3dMXSi8uUl6UtO7Fcejl7+dF4bHxUfEv8e3YQu5E9k+CbUJ8wzXHn 7OQ85bpwK7lTPEdeBW8y0TGxIvFxkmPS9qSpZOfkquRnfHd+Lf9Fik9KQ8ps alDqgdRPaVFp7emE9Pj0YwI5QaqgL0MtY0XGcKZRZnHmaJZ91o6saaG/cH82 lL00u1tER3+mBsT64g3isRynnLqcN7mRuUdXyK4QrBjIM8zbnDeZ75X/7UrM Ss7K3gKNgnUFY6tcV+1dDa1OWN27RmtN0ZqJtd5rD64jrUtd91OheWFF4av1 Uet7ilSL1haNb/De0FosVSwsvrnRYWPDJswm/qbBzVabazZ/LOGWXCo1L60q fV/GKbv0jcU31d982pK4ZbDcpnz3VtxWwdYb25y3HayQrcivGN8euL2zkllZ Uvlqx/IdF6sWVjXsJO0U7xytDqjurtGu2Vrzvja59nqdW117vUr95vrZXdxd I7tddrc1qDaUNrzbw99za6/33s5G3caqfbh9OfseNUU29X/L+rZ5v/L+0v0f DggOjB4MPdjXbNvc3KLSUt4Kt4pbpw7FHbryncd33W0mbXvbGe2lh8Fh8eEn 38d/f+OI/5Heo6yjbT/o/FDfQeso6YQ68zqnu5K7RrtjuoeP+R3r7XHo6fjR 9McDxzWO152QP1F+knSy6OSnU/mnZk5nnn52JunMeO/y3rtno89e6wvpGzzn f+7Cea/zZ/td+09dcLxw/KL9xWOXWJe6Lttc7hywHuj4yfqnjkGbwc4h26Hu K3ZXeoYXDZ8ccR45c9Xj6vlrvtcuX198ffhGxI1bN+Nujt7i3np8O+32izs5 d+burr2HvVdyX+Z+1QOVB40/G/zcPmozemLMY2zgYdjDu+Oc8ae/ZP/yfqLo EfVR1aT6ZPNjy8fHp7ymrjxZ8mTiaebTuWfFv8r+Wv9c//kPv7n8NjAdPT3x Qvji0+9lL5VeHni18FXvTPDMg9fpr+dmS94ovTn4lvW2/13Uu8m53Pf499Uf DD70fPT/eO9T+qdP/wJOwPvu "], "RGB", "XYZ"], Interleaving -> True], Selectable -> False], BaseStyle -> "ImageGraphics", ImageSizeRaw -> {2048, 71}, PlotRange -> {{0, 2048}, {0, 71}}]], "", PageWidth -> Infinity, CellMargins -> 0, CellChangeTimes -> {{3.544379162237352*^9, 3.544379175555642*^9}, 3.574009622854604*^9, 3.5740096771925993`*^9}, Magnification -> 1.], Cell[ BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Evaluate", " ", "the", " ", "following", " ", "to", " ", "copy", " ", "the", " ", "style", " ", "of", " ", "the", " ", "cell", " ", "above", " ", "into", " ", "\[IndentingNewLine]", "the", " ", "docked", " ", "cell", " ", "style", " ", "of", " ", RowBox[{"the", " ", "'"}], RowBox[{"SlideShow", "'"}], " ", "definition", " ", RowBox[{"(", RowBox[{"2", " ", "cells", " ", "above"}], ")"}], " ", "\[IndentingNewLine]", "These", " ", "two", " ", "cell", " ", "can", " ", "be", " ", "removed", " ", "once", " ", "the", " ", "docked", " ", "cell", " ", "is", " ", RowBox[{"created", "."}]}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "Previous", ",", "Cell", ",", "2"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"celldata", "=", RowBox[{"NotebookRead", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "Previous", ",", "Cell", ",", "1"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"NotebookSelection", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}], ",", RowBox[{"DockedCells", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FEPrivate`FrontEndResource", "[", RowBox[{"\"FEExpressions\"", ",", "\"SlideshowToolbar\""}], "]"}], ",", "celldata"}], "}"}]}]}], "]"}], ";"}]}]}]], "Input", CellChangeTimes -> { 3.5740143744052753`*^9, {3.574014994368063*^9, 3.5740150001730556`*^9}, 3.574015035375742*^9, {3.574015802108987*^9, 3.5740158031783543`*^9}, {3.5740161341680937`*^9, 3.5740161359439573`*^9}}, FontWeight -> "Bold"]}, Closed]], Cell[ CellGroupData[{ Cell["Notebook Options Settings", "Section"], Cell[ StyleData["Notebook"], CellBracketOptions -> { "Color" -> RGBColor[0.739193, 0.750317, 0.747173]}]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Title and Section Cells", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], ShowCellBracket -> Automatic, ShowGroupOpener -> False, CellMargins -> {{60, 0}, {14, 50}}, CellBracketOptions -> {"Margins" -> {0, 0}}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, CellFrameMargins -> {{20, 20}, {20, 20}}, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, TextAlignment -> Left, LineSpacing -> {1, 0}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 40, FontWeight -> "Plain", FontSlant -> "Plain", FontTracking -> "Plain", FontVariations -> { "Masked" -> False, "Outline" -> False, "Shadow" -> False, "StrikeThrough" -> False, "Underline" -> False}, FontColor -> RGBColor[ 0.8156862745098039, 0.07058823529411765, 0.07058823529411765], Background -> None], Cell[ StyleData["Title", "Presentation", StyleDefinitions -> None], CellMargins -> {{55, 3}, {14, 125}}, LineSpacing -> {1, 5}, FontSize -> 48], Cell[ StyleData[ "Title", "SlideShow", StyleDefinitions -> StyleData["Title", "Presentation"]], CellMargins -> {{55, 3}, {14, 35}}], Cell[ StyleData["Title", "Printout", StyleDefinitions -> None], CellMargins -> {{2, 0}, {0, 20}}, FontSize -> 24]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], ShowCellBracket -> False, CellMargins -> {{60, 0}, {0, 5}}, CellBracketOptions -> {"Margins" -> {0, 0}}, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, TextAlignment -> Left, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 28, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[0.4, 0.4, 0.4], Background -> None], Cell[ StyleData["Subtitle", "Presentation", StyleDefinitions -> None], CellMargins -> {{58, 0}, {0, 5}}, FontSize -> 36], Cell[ StyleData[ "Subtitle", "SlideShow", StyleDefinitions -> StyleData["Subtitle", "Presentation"]]], Cell[ StyleData["Subtitle", "Printout", StyleDefinitions -> None], CellMargins -> {{2, 0}, {0, 5}}, FontSize -> 18, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle", StyleDefinitions -> StyleData["Subtitle"]], FontSize -> 20], Cell[ StyleData["Subsubtitle", "Presentation"], FontSize -> 24], Cell[ StyleData[ "Subsubtitle", "SlideShow", StyleDefinitions -> StyleData["Subsubtitle", "Presentation"]]], Cell[ StyleData["Subsubtitle", "Printout"], FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellFrame -> {{0, 0}, {0.2, 0}}, ShowGroupOpener -> False, CellMargins -> {{60, 50}, {7, 25}}, FontSize -> 36, FontWeight -> "Plain", FontColor -> RGBColor[ 0.8156862745098039, 0.07058823529411765, 0.07058823529411765]], Cell[ StyleData["Section", "Presentation"], CellFrame -> {{0, 0}, {0.2, 0}}, CellMargins -> {{58, 50}, {7, 35}}], Cell[ StyleData[ "Section", "SlideShow", StyleDefinitions -> StyleData["Section", "Presentation"]], CellMargins -> {{58, 50}, {10, 35}}], Cell[ StyleData["Section", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {4, 22}}, FontSize -> 20]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellDingbat -> None, ShowGroupOpener -> False, CellMargins -> {{60, Inherited}, {0, 15}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 24, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[0.4, 0.4, 0.4]], Cell[ StyleData["Subsection", "Presentation"], ShowGroupOpener -> True, WholeCellGroupOpener -> True, CellMargins -> {{60, 50}, {0, 20}}, LineSpacing -> {1, 0}, FontFamily -> "Helvetica"], Cell[ StyleData["Subsection", "SlideShow"], ShowGroupOpener -> True, WholeCellGroupOpener -> True, CellMargins -> {{60, 50}, {8, 12}}, LineSpacing -> {1, 0}, FontFamily -> "Helvetica"], Cell[ StyleData["Subsection", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {0, 17}}, FontSize -> 16]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellDingbat -> None, ShowGroupOpener -> False, CellMargins -> {{60, Inherited}, {0, 15}}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubsection", FontFamily -> "Helvetica", FontSize -> 20, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[0.4, 0.4, 0.4]], Cell[ StyleData["Subsubsection", "Presentation"], ShowGroupOpener -> True, WholeCellGroupOpener -> True, CellMargins -> {{60, 50}, {0, 20}}, LineSpacing -> {1, 0}], Cell[ StyleData[ "Subsubsection", "SlideShow", StyleDefinitions -> StyleData["Subsubsection", "Presentation"]]], Cell[ StyleData["Subsubsection", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {0, 22}}, FontSize -> 14]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[ CellGroupData[{ Cell["Standard", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{60, 10}, {7, 7}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 3}, CounterIncrements -> "Text", FontFamily -> "Helvetica", FontSize -> 12], Cell[ StyleData["Text", "Presentation"], CellMargins -> {{60, 50}, {10, 10}}, FontSize -> 17], Cell[ StyleData[ "Text", "SlideShow", StyleDefinitions -> StyleData["Text", "Presentation"]]], Cell[ StyleData["Text", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, Hyphenation -> True, FontSize -> 10]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Display", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Item", StyleDefinitions -> StyleData["Text"]], CellDingbat -> Cell["\[FilledSmallCircle]", FontWeight -> "Bold"], ShowGroupOpener -> False, CellMargins -> {{84, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, CounterIncrements -> "Item"], Cell[ StyleData["Item", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "Item", "SlideShow", StyleDefinitions -> StyleData["Item", "Presentation"]]], Cell[ StyleData["Item", "Printout"], CellMargins -> {{39, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subitem", StyleDefinitions -> StyleData["Item"]], CellMargins -> {{108, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15150}, CounterIncrements -> "Subitem"], Cell[ StyleData["Subitem", "Presentation"], CellMargins -> {{146, 10}, {7, 7}}], Cell[ StyleData[ "Subitem", "SlideShow", StyleDefinitions -> StyleData["Subitem", "Presentation"]]], Cell[ StyleData["Subitem", "Printout"], CellMargins -> {{67, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemNumbered", StyleDefinitions -> StyleData["Text"]], CellDingbat -> Cell[ TextData[{ CounterBox["ItemNumbered"], "."}]], ShowGroupOpener -> False, CellMargins -> {{84, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, CounterIncrements -> "ItemNumbered"], Cell[ StyleData["ItemNumbered", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "ItemNumbered", "SlideShow", StyleDefinitions -> StyleData["ItemNumbered", "Presentation"]]], Cell[ StyleData["ItemNumbered", "Printout"], CellMargins -> {{39, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "SubitemNumbered", StyleDefinitions -> StyleData["ItemNumbered"]], CellDingbat -> Cell[ TextData[{ CounterBox["SubitemNumbered", CounterFunction :> (Part[ CharacterRange["a", "z"], #]& )], "."}]], CellMargins -> {{108, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15150}, CounterIncrements -> "SubitemNumbered"], Cell[ StyleData["SubitemNumbered", "Presentation"], CellMargins -> {{146, 10}, {7, 7}}], Cell[ StyleData[ "SubitemNumbered", "SlideShow", StyleDefinitions -> StyleData["SubitemNumbered", "Presentation"]]], Cell[ StyleData["SubitemNumbered", "Printout"], CellMargins -> {{67, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "ItemParagraph", StyleDefinitions -> StyleData["Item"]], CellDingbat -> None, CellMargins -> {{84, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15100}, CounterIncrements -> "ItemParagraph"], Cell[ StyleData["ItemParagraph", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "ItemParagraph", "SlideShow", StyleDefinitions -> StyleData["ItemParagraph", "Presentation"]]], Cell[ StyleData["ItemParagraph", "Printout"], CellMargins -> {{39, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "SubitemParagraph", StyleDefinitions -> StyleData["Subitem"]], CellDingbat -> None, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15200}, CounterIncrements -> "SubitemParagraph"], Cell[ StyleData["SubitemParagraph", "Presentation"]], Cell[ StyleData[ "SubitemParagraph", "SlideShow", StyleDefinitions -> StyleData["SubitemParagraph", "Presentation"]]], Cell[ StyleData["SubitemParagraph", "Printout"]]}, Closed]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Formulas and Programming", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"]], Cell[ StyleData["DisplayFormula", "Presentation"], CellMargins -> {{60, Inherited}, {Inherited 1.5, Inherited 1.5}}, FontSize -> 17], Cell[ StyleData[ "DisplayFormula", "SlideShow", StyleDefinitions -> StyleData["DisplayFormula", "Presentation"]]], Cell[ StyleData["DisplayFormula", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "DisplayFormulaNumbered", StyleDefinitions -> StyleData["DisplayFormula"]], CellFrameLabels -> {{None, Cell[ TextData[{"(", CounterBox["DisplayFormulaNumbered"], ")"}]]}, {None, None}}, CounterIncrements -> "DisplayFormulaNumbered"], Cell[ StyleData["DisplayFormulaNumbered", "Presentation"], CellMargins -> {{60, Inherited}, {Inherited 1.5, Inherited 1.5}}, FontSize -> 17], Cell[ StyleData[ "DisplayFormulaNumbered", "SlideShow", StyleDefinitions -> StyleData["DisplayFormulaNumbered", "Presentation"]]], Cell[ StyleData["DisplayFormulaNumbered", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Inline Formatting", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["InlineFormula"]], Cell[ StyleData["InlineFormula", "Presentation"], FontSize -> 17], Cell[ StyleData[ "InlineFormula", "SlideShow", StyleDefinitions -> StyleData["InlineFormula", "Presentation"]]], Cell[ StyleData["InlineFormula", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Input and Output Cells", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Input"], ShowCellBracket -> True, ShowGroupOpener -> False, CellMargins -> {{103, 10}, {5, 7}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Bold"], Cell[ StyleData["Input", "Presentation"], CellMargins -> {{110, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Input", "SlideShow", StyleDefinitions -> StyleData["Input", "Presentation"]]], Cell[ StyleData["Input", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["InputOnly"], ShowCellBracket -> True, ShowGroupOpener -> False, CellMargins -> {{103, 10}, {7, 7}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", MenuSortingValue -> 1550, FontWeight -> "Bold"], Cell[ StyleData["InputOnly", "Presentation"], CellMargins -> {{110, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "InputOnly", "SlideShow", StyleDefinitions -> StyleData["InputOnly", "Presentation"]]], Cell[ StyleData["InputOnly", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Output"], ShowCellBracket -> True, CellMargins -> {{103, 10}, {7, 5}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Output"], Cell[ StyleData["Output", "Presentation"], CellMargins -> {{110, 50}, {10, 8}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Output", "SlideShow", StyleDefinitions -> StyleData["Output", "Presentation"]]], Cell[ StyleData["Output", "Printout"], CellMargins -> {{39, 0}, {6, 4}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Code"], CellMargins -> {{103, 10}, {5, 10}}], Cell[ StyleData["Code", "Presentation"], CellMargins -> {{110, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Code", "SlideShow", StyleDefinitions -> StyleData["Code", "Presentation"]]], Cell[ StyleData["Code", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], CellMargins -> {{103, Inherited}, {Inherited, Inherited}}, FontSize -> 14], Cell[ StyleData["Print", "Presentation"], CellMargins -> {{70, Inherited}, {Inherited 1.5, Inherited 1.5}}, FontSize -> 17, Magnification -> Inherited 1.5], Cell[ StyleData[ "Print", "SlideShow", StyleDefinitions -> StyleData["Print", "Presentation"]]], Cell[ StyleData["Print", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "WolframAlphaShortInput", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{98, 10}, {5, 7}}, EvaluationMode -> "WolframAlphaShort", CellEventActions -> {"ReturnKeyDown" :> FrontEndTokenExecute[ EvaluationNotebook[], "HandleShiftReturn"]}, CellFrameLabels -> {{ Cell[ BoxData[ DynamicBox[ FEPrivate`FrontEndResource["WABitmaps", "Equal"]]], CellBaseline -> Baseline], None}, {None, None}}, FormatType -> TextForm, FontFamily -> "Helvetica"], Cell[ StyleData["WolframAlphaShortInput", "Presentation"], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData[ "WolframAlphaShortInput", "SlideShow", StyleDefinitions -> StyleData["WolframAlphaShortInput", "Presentation"]]], Cell[ StyleData["WolframAlphaShortInput", "Printout"], CellFrameLabelMargins -> 3]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "WolframAlphaLong", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{100, 10}, {5, 7}}, StyleKeyMapping -> { "=" -> "Input", "Backspace" -> "WolframAlphaShort"}, EvaluationMode -> "WolframAlphaLong", CellEventActions -> {"ReturnKeyDown" :> FrontEndTokenExecute[ EvaluationNotebook[], "HandleShiftReturn"]}, CellFrameLabels -> {{ Cell[ BoxData[ DynamicBox[ FEPrivate`FrontEndResource["WABitmaps", "SpikeyEqual"]]]], None}, {None, None}}, DefaultFormatType -> TextForm, FormatType -> TextForm, FontFamily -> "Helvetica"], Cell[ StyleData["WolframAlphaLong", "Presentation"], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData[ "WolframAlphaLong", "SlideShow", StyleDefinitions -> StyleData["WolframAlphaLong", "Presentation"]], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData["WolframAlphaLong", "Printout"], CellFrameLabelMargins -> 3]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Program"], CellMargins -> {{60, 4}, {6, 8}}], Cell[ StyleData["Program", "Presentation"], CellMargins -> {{60, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Program", "SlideShow", StyleDefinitions -> StyleData["Program", "Presentation"]]], Cell[ StyleData["Program", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"]], Cell[ StyleData["CellLabel", "Presentation"], FontSize -> 12], Cell[ StyleData[ "CellLabel", "SlideShow", StyleDefinitions -> StyleData["CellLabel", "Presentation"]]], Cell[ StyleData["CellLabel", "Printout"], FontSize -> 8, FontColor -> GrayLevel[0.]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ManipulateLabel"]], Cell[ StyleData["ManipulateLabel", "Presentation"], FontSize -> 15], Cell[ StyleData[ "ManipulateLabel", "SlideShow", StyleDefinitions -> StyleData["ManipulateLabel", "Presentation"]]], Cell[ StyleData["ManipulateLabel", "Printout"], FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["GraphicsLabel"]], Cell[ StyleData["GraphicsLabel", "Presentation"], FontSize -> 14], Cell[ StyleData[ "GraphicsLabel", "SlideShow", StyleDefinitions -> StyleData["GraphicsLabel", "Presentation"]]], Cell[ StyleData["GraphicsLabel", "Printout"], FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Graphics3DLabel"]], Cell[ StyleData["Graphics3DLabel", "Presentation"], FontSize -> 14], Cell[ StyleData[ "Graphics3DLabel", "SlideShow", StyleDefinitions -> StyleData["Graphics3DLabel", "Presentation"]]], Cell[ StyleData["Graphics3DLabel", "Printout"], FontSize -> 8]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell[ "Styles for SlideShow", "Section", CellChangeTimes -> {{3.514665148412793*^9, 3.5146651505550737`*^9}}], Cell[ StyleData["slideshowheader"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, -2}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, CellFrameMargins -> 0, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> GrayLevel[1], CellPadding -> 0, CellFramePadding -> 0], Cell[ CellGroupData[{ Cell[ StyleData["hidefromslideshowgraphic"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, 0}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, CellFrameMargins -> 0, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> None, CellPadding -> 0], Cell[ StyleData["hidefromslideshowgraphic", "SlideShow"], ShowCellBracket -> False, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False, CellHorizontalScrolling -> False], Cell[ StyleData["hidefromslideshowgraphic", "Printout"], Magnification -> 0.6]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["slideshowheader2"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, 0}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> GrayLevel[1]], Cell[ StyleData["ConferenceGraphicCell", "SlideShow"], ShowCellBracket -> False, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False, CellHorizontalScrolling -> True], Cell[ StyleData["slideshowheader", "Printout"], FontSize -> 8, Magnification -> 0.75]}, Closed]], Cell[ StyleData[ "ConferenceGraphicCellSlideShowOnly", StyleDefinitions -> StyleData["ConferenceCellGraphic"]], ShowCellBracket -> False, CellMargins -> 0, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False], Cell[ CellGroupData[{ Cell[ StyleData["SlideShowNavigationBar"], Editable -> True, Selectable -> False, CellFrame -> 0, ShowGroupOpener -> False, CellMargins -> {{0, 0}, {3, 3}}, CellOpen -> True, CellFrameMargins -> 0, CellFrameColor -> None, Background -> None], Cell[ StyleData["SlideShowNavigationBar", "Printout"], PageBreakAbove -> Automatic]}, Closed]]}, Closed]]}, Visible -> False, FrontEndVersion -> "9.0 for Linux x86 (64-bit) (January 25, 2013)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[579, 22, 106, 2, 50, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[2155, 57, 64, 1, 50, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[3297, 92, 64, 1, 50, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[14378, 383, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[32482, 833, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[66702, 1703, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[185366, 4182, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[194701, 4382, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[204120, 4531, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 365433, 7738} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 106, 2, 50, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[688, 26, 634, 8, 115, "Title"], Cell[1325, 36, 375, 5, 41, "Subtitle"], Cell[1703, 43, 415, 9, 60, "Subsubtitle"] }, Open ]], Cell[CellGroupData[{ Cell[2155, 57, 64, 1, 50, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[2244, 62, 121, 2, 77, "Section"], Cell[2368, 66, 880, 20, 72, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3297, 92, 64, 1, 50, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[3386, 97, 121, 2, 77, "Section"], Cell[CellGroupData[{ Cell[3532, 103, 179, 2, 61, "Subsection"], Cell[3714, 107, 9744, 251, 456, "Input"], Cell[13461, 360, 856, 16, 39, "Input"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14378, 383, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[14467, 388, 349, 7, 98, "Section"], Cell[14819, 397, 1821, 32, 71, "Text"], Cell[CellGroupData[{ Cell[16665, 433, 161, 2, 61, "Subsection"], Cell[16829, 437, 2726, 39, 127, "Text"], Cell[19558, 478, 2386, 34, 71, "Text"], Cell[21947, 514, 7850, 262, 696, "Text"], Cell[29800, 778, 2621, 48, 99, "Text"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32482, 833, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[32571, 838, 324, 5, 98, "Section"], Cell[CellGroupData[{ Cell[32920, 847, 168, 4, 61, "Subsection"], Cell[33091, 853, 580, 12, 71, "Text"], Cell[33674, 867, 405, 7, 43, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[34116, 879, 542, 8, 53, "Subsection"], Cell[34661, 889, 963, 16, 71, "Text"], Cell[CellGroupData[{ Cell[35649, 909, 404, 13, 52, "Subsubsection"], Cell[36056, 924, 949, 21, 43, "Text"], Cell[37008, 947, 901, 19, 43, "Text"], Cell[CellGroupData[{ Cell[37934, 970, 296, 9, 45, "Subsubsubsection"], Cell[38233, 981, 1063, 20, 71, "Text"], Cell[39299, 1003, 1080, 16, 99, "Text"], Cell[40382, 1021, 1662, 37, 99, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[42081, 1063, 210, 7, 45, "Subsubsubsection"], Cell[42294, 1072, 2290, 72, 97, "Text"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[44645, 1151, 103, 1, 53, "Subsection"], Cell[44751, 1154, 395, 7, 43, "Text"], Cell[45149, 1163, 884, 15, 99, "Text"], Cell[46036, 1180, 636, 10, 71, "Text"], Cell[46675, 1192, 1219, 20, 127, "Text"], Cell[47897, 1214, 18587, 478, 1215, "Input"], Cell[66487, 1694, 154, 2, 43, "Text"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[66702, 1703, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[66791, 1708, 167, 3, 98, "Section"], Cell[66961, 1713, 72591, 1494, 296, "Text"], Cell[139555, 3209, 45762, 967, 422, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[185366, 4182, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[185455, 4187, 95, 1, 98, "Section"], Cell[185553, 4190, 680, 13, 71, "Text"], Cell[186236, 4205, 932, 16, 99, "Text"], Cell[187171, 4223, 517, 8, 71, "Text"], Cell[CellGroupData[{ Cell[187713, 4235, 159, 2, 61, "Subsection"], Cell[187875, 4239, 558, 10, 71, "Text"], Cell[188436, 4251, 879, 17, 99, "Text"], Cell[189318, 4270, 887, 13, 99, "Text"], Cell[190208, 4285, 1204, 19, 99, "Text"], Cell[191415, 4306, 1148, 21, 71, "Text"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[192612, 4333, 96, 1, 98, "Section"], Cell[192711, 4336, 1167, 20, 99, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[193915, 4361, 128, 2, 98, "Section"], Cell[194046, 4365, 606, 11, 71, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[194701, 4382, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[194790, 4387, 171, 3, 98, "Section"], Cell[194964, 4392, 7989, 116, 1107, "Text"], Cell[202956, 4510, 1115, 15, 43, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[204120, 4531, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[204209, 4536, 171, 2, 98, "Section"], Cell[204383, 4540, 665, 10, 71, "Text"], Cell[CellGroupData[{ Cell[205073, 4554, 179, 2, 61, "Subsection"], Cell[205255, 4558, 9744, 251, 456, "Input"], Cell[215002, 4811, 856, 16, 39, "Input"], Cell[CellGroupData[{ Cell[215883, 4831, 312, 4, 61, "Subsubsection"], Cell[216198, 4837, 18859, 482, 1215, "Input"] }, Closed]] }, Closed]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)